From 57f7fd1d4e3122a13577290dbc4e29d3124c0789 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Wed, 9 Mar 2016 16:33:44 +0100 Subject: [PATCH] Find foreign keys with #'string= by default. Blind attempt at fixing #343 and #330, which now is on at the same level. --- src/utils/schema-structs.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/utils/schema-structs.lisp b/src/utils/schema-structs.lisp index d05c02e..a2f872d 100644 --- a/src/utils/schema-structs.lisp +++ b/src/utils/schema-structs.lisp @@ -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)))