Fix identifier case in FOREIGN KEY constraints

This commit is contained in:
Alex Baretta 2015-05-25 18:08:37 -07:00
parent c3b5d60542
commit 0626d56303

View File

@ -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 "