From: Nathan Bird <nathan@acceleration.net>
Date: Wed, 5 Dec 2012 18:37:49 +0000 (-0500)
Subject: Simplify slotdefs-for-slots-with-class by using existing function.
X-Git-Tag: v6.4.0~6
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=142fb42d3502f82883f7a49c9b0587bfc3de57b1

Simplify slotdefs-for-slots-with-class by using existing function.
---

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)