X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=bb02da3899c849151288056ac2080f06ea0532d4;hb=2961f4f122593e9d4875e88e6af159de28c8dd47;hp=7980e325edcf6737aefb3d2f3ec5b7e93a9db9ea;hpb=d0695ffb828519fade3aa5166236812e6144975b;p=clsql.git

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 7980e32..bb02da3 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -423,7 +423,7 @@ which does type checking before storing a value in a slot."
       (car list)
       list))
 
-(declaim (inline delistify))
+(declaim (inline delistify-dsd))
 (defun delistify-dsd (list)
   "Some MOPs, like openmcl 0.14.2, cons attribute values in a list."
   (if (and (listp list) (null (cdr list)))