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

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 71a5df6..5aadc36 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -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)