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

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)