Merge pull request #240 from alexbaretta/master

Two bugfixes
2026-05-05 10:56:10 +02:00 · 2015-05-27 01:14:03 +02:00 · 2015-05-27 01:14:03 +02:00 · ceaad92f4c
commit ceaad92f4c
parent c3b5d60542 817fc9a258
2 changed files with 2 additions and 2 deletions
--- a/src/pgsql/queries.lisp
+++ b/src/pgsql/queries.lisp
@ -207,7 +207,7 @@
      (when tables
        (pomo:execute
         (format nil "create temp table reloids(oid) as values ~{('~a'::regclass)~^,~}"
-                 tables)))
+                 (mapcar #'apply-identifier-case tables))))

      (handler-case
          (let ((sql (format nil "
--- a/src/sources/mysql/mysql.lisp
+++ b/src/sources/mysql/mysql.lisp
@ -248,7 +248,7 @@
                         (map 'string #'code-char
                              (loop :repeat 5
                                 :collect (+ (random 26) (char-code #\A))))
-                         "-"
+                         "_"
                         (map 'string #'code-char
                              (loop :repeat 5
                                 :collect (+ (random 26) (char-code #\A)))))))