projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11509: fix number of arguments to handler-case :no-error form
[clsql.git]
/
sql
/
metaclasses.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)
(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)
(name (first initargs) (first initargs))
(val (second initargs) (second initargs))
(type nil)