From 2fdeeec10378eede8406067b904b218ba8db87d3 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 31 Dec 2006 18:42:41 +0000 Subject: [PATCH] r11422: 31 Dec 2006 Kevin Rosenberg * sql/metaclasses.lisp: Remove usused saved-initargs --- ChangeLog | 3 +++ sql/metaclasses.lisp | 3 +-- 2 files changed, 4 insertions(+), 2 deletions(-) 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) -- 2.34.1