X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=1c9a6c5b34583fe882886bdb6c65b7ce70f665cd;hb=534849c88501e0ea2ee5dbf78d13d8cb73814d71;hp=7a2fce71445b311a62a3dd27a6ad09a0f7f71aad;hpb=32a9217aad2888c93943daf5752b785216700484;p=clsql.git

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 7a2fce7..1c9a6c5 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -542,9 +542,7 @@ implementations."
 (defun slotdef-for-slot-with-class (slot class)
   (typecase slot
     (standard-slot-definition slot)
-    (symbol
-     (find-if #'(lambda (d) (eql slot (slot-definition-name d)))
-              (class-slots class)))))
+    (symbol (find-slot-by-name class slot))))
 
 #+ignore
 (eval-when (:compile-toplevel :load-toplevel :execute)