From 13faf3e4f87b512cc9f5395311efb2a7376756e9 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Fri, 23 Jan 2015 19:59:04 +0100 Subject: [PATCH] Blind try at fixing #158. The call to format-pgsql-create-fkey was passing the fkey cons rather than just the fk definition structure as an argument. --- src/sources/mssql/mssql.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sources/mssql/mssql.lisp b/src/sources/mssql/mssql.lisp index 68973ef..d56475b 100644 --- a/src/sources/mssql/mssql.lisp +++ b/src/sources/mssql/mssql.lisp @@ -133,7 +133,7 @@ (pgstate-add-table state (db-name pgconn) "Foreign Keys") (loop :for (schema . tables) :in all-fkeys :do (loop :for (table-name . fkeys) :in tables - :do (loop :for fkey :in fkeys + :do (loop :for (fk-name . fkey) :in fkeys :for sql := (format-pgsql-create-fkey fkey) :do (progn (log-message :notice "~a;" sql)