r11422: 31 Dec 2006 Kevin Rosenberg <kevin@rosenberg.net>

       * sql/metaclasses.lisp: Remove usused saved-initargs

diff --git a/ChangeLog b/ChangeLog
index f936b6def34ba72db691ea281ef8c1ae583256ed..c43f423e8d8a25d5171707d1fef6853e0a23f31d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+31 Dec 2006  Kevin Rosenberg <kevin@rosenberg.net>
+       * sql/metaclasses.lisp: Remove usused saved-initargs
+       
 30 Dec 2006  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.8.0: BACKWARD INCOMPATABLE CHANGE!
        * db-postgresql/postgresql-{api,loader,sql,package}.lisp:

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 71a5df680a15a1711b6b61699b6b86ede1ebd758..5aadc369562a3040d8d999c0f1294a670727a574 100644 (file)
--- 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)