projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9291: 9 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
[clsql.git]
/
sql
/
metaclasses.lisp
diff --git
a/sql/metaclasses.lisp
b/sql/metaclasses.lisp
index a8b1563e3f061d26ee83e0c92d4eccf217fec280..f981c900be363b18be8e67cd8db6895e800d465e 100644
(file)
--- a/
sql/metaclasses.lisp
+++ b/
sql/metaclasses.lisp
@@
-62,11
+62,11
@@
#+lispworks
(dolist (slot-option +extra-slot-options+)
#+lispworks
(dolist (slot-option +extra-slot-options+)
- (
process-slot-option standard-db-class slot-option
))
+ (
eval `(process-slot-option standard-db-class ,slot-option)
))
#+lispworks
(dolist (class-option +extra-class-options+)
#+lispworks
(dolist (class-option +extra-class-options+)
- (
process-class-option standard-db-class class-option
))
+ (
eval `(process-class-option standard-db-class ,class-option)
))
(defmethod validate-superclass ((class standard-db-class)
(superclass standard-class))
(defmethod validate-superclass ((class standard-db-class)
(superclass standard-class))