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.
This commit is contained in:
Dimitri Fontaine 2017-07-06 00:59:36 +02:00
parent 26d372bca3
commit d50ed64635

View File

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