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.
This commit is contained in:
Dimitri Fontaine 2015-01-23 19:59:04 +01:00
parent 4e7f925a9b
commit 13faf3e4f8

View File

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