From: Kevin M. Rosenberg Date: Sun, 31 Dec 2006 18:42:41 +0000 (+0000) Subject: r11422: 31 Dec 2006 Kevin Rosenberg X-Git-Tag: v3.8.6~28 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=2fdeeec10378eede8406067b904b218ba8db87d3 r11422: 31 Dec 2006 Kevin Rosenberg * sql/metaclasses.lisp: Remove usused saved-initargs --- diff --git a/ChangeLog b/ChangeLog index f936b6d..c43f423 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,6 @@ +31 Dec 2006 Kevin Rosenberg + * sql/metaclasses.lisp: Remove usused saved-initargs + 30 Dec 2006 Kevin Rosenberg * 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 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)