From d50ed646359ba1a62565ece73a4db6a866ba07fb Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 6 Jul 2017 00:59:36 +0200 Subject: [PATCH] Defensive programming, after though. It might be that a column-type-name is actually an sqltype instance, and then #'string= won't be happy. Prevent that now with discarding any smarts when the type name does not satisfies stringp. --- src/pgsql/pgsql-ddl.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/pgsql/pgsql-ddl.lisp b/src/pgsql/pgsql-ddl.lisp index 9e56849..cf233e4 100644 --- a/src/pgsql/pgsql-ddl.lisp +++ b/src/pgsql/pgsql-ddl.lisp @@ -234,7 +234,8 @@ (nobtree (catalog-types-without-btree (schema-catalog (table-schema (index-table index)))))) (let* ((idx-type (first idx-types)) - (method (cdr (assoc idx-type nobtree :test #'string=)))) + (method (when (stringp idx-type) + (cdr (assoc idx-type nobtree :test #'string=))))) (when method (aref method 0))))))