From 0626d56303e66dc9ac8288fc8762f913942276b4 Mon Sep 17 00:00:00 2001 From: Alex Baretta Date: Mon, 25 May 2015 18:08:37 -0700 Subject: [PATCH 1/2] Fix identifier case in FOREIGN KEY constraints --- src/pgsql/queries.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/pgsql/queries.lisp b/src/pgsql/queries.lisp index e565ecf..72c5c59 100644 --- 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 " From 817fc9a25847f50ef94626b40a23c5b0ae72cf22 Mon Sep 17 00:00:00 2001 From: Alex Baretta Date: Mon, 25 May 2015 18:19:44 -0700 Subject: [PATCH 2/2] Fix string delimiter syntax in COMMENT statements --- src/sources/mysql/mysql.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sources/mysql/mysql.lisp b/src/sources/mysql/mysql.lisp index bb1e1e1..8a45e28 100644 --- 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)))))))