From 0626d56303e66dc9ac8288fc8762f913942276b4 Mon Sep 17 00:00:00 2001
From: Alex Baretta <alexbaretta@gmail.com>
Date: Mon, 25 May 2015 18:08:37 -0700
Subject: [PATCH] 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 "