From 142fb42d3502f82883f7a49c9b0587bfc3de57b1 Mon Sep 17 00:00:00 2001
From: Nathan Bird <nathan@acceleration.net>
Date: Wed, 5 Dec 2012 13:37:49 -0500
Subject: [PATCH] Simplify slotdefs-for-slots-with-class by using existing
 function.

---
 sql/metaclasses.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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