X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=6a5f6e9d042c4c3b62382e6c88c518fdb1bb8a29;hb=c41d81c0d1233372012a1de93fcdfd6b2a6e5618;hp=71a5df680a15a1711b6b61699b6b86ede1ebd758;hpb=9a3ce518152a2f74eda63d467ad9f8b8594da776;p=clsql.git

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 71a5df6..6a5f6e9 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -192,13 +192,13 @@
       (setq all-slots (remove-if #'not-db-col all-slots))
       (setq all-slots (stable-sort all-slots #'string< :key #'car))
       (setf (object-definition class) all-slots))
-    #-allegro
+    #-(or sbcl allegro)
     (setf (key-slots class) (remove-if-not (lambda (slot)
 					     (eql (slot-value slot 'db-kind)
 						  :key))
 					   (ordered-class-slots class)))))
 
-#+allegro
+#+(or sbcl allegro)
 (defmethod finalize-inheritance :after ((class standard-db-class))
   (setf (key-slots class) (remove-if-not (lambda (slot)
 					   (eql (slot-value slot 'db-kind)
@@ -429,8 +429,7 @@ implementations."
 
 (defmethod initialize-instance :around ((obj view-class-direct-slot-definition)
                                         &rest initargs)
-  (do* ((saved-initargs initargs)
-        (parsed (list obj))
+  (do* ((parsed (list obj))
         (name (first initargs) (first initargs))
         (val (second initargs) (second initargs))
         (type nil)