mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-03-20 19:41:01 +01:00
Code Issues Projects Releases Wiki Activity

Find foreign keys with #'string= by default.

Browse Source 
Blind attempt at fixing #343 and #330, which now is on at the same
level.
This commit is contained in:
Dimitri Fontaine 2016-03-09 16:33:44 +01:00
parent c724018840
commit 57f7fd1d4e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/utils/schema-structs.lisp
View File

@ -250,7 +250,7 @@
"Find FKEY-NAME in TABLE and return the FKEY object of this name."
(find fkey-name (table-fkey-list table) :key key :test test))
(defmethod maybe-add-fkey ((table table) fkey-name fkey &key key test)
(defmethod maybe-add-fkey ((table table) fkey-name fkey &key key (test #'string=))
"Add the foreign key FKEY to the table-fkey-list of TABLE unless it
already exists, and return the FKEY object."
(let ((fkey (find-fkey table fkey-name :key key :test test)))