projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8826: allegro improvement
[clsql.git]
/
usql
/
objects.lisp
diff --git
a/usql/objects.lisp
b/usql/objects.lisp
index 0478c8f3298b23db3216bffb443fbcdc072f2a65..14bb76f8ddd3eb2f09e019d23191dfc7253f756b 100644
(file)
--- a/
usql/objects.lisp
+++ b/
usql/objects.lisp
@@
-215,8
+215,10
@@
database view is queried, and the slots in the resulting View Class
instances are filled with attribute values from the database. If
SUPERS is nil then STANDARD-DB-OBJECT automatically becomes the
superclass of the newly-defined View Class."
instances are filled with attribute values from the database. If
SUPERS is nil then STANDARD-DB-OBJECT automatically becomes the
superclass of the newly-defined View Class."
- `(defclass ,class ,supers ,slots ,@options
- (:metaclass standard-db-class)))
+ `(progn
+ (defclass ,class ,supers ,slots ,@options
+ (:metaclass standard-db-class))
+ (finalize-inheritance (find-class ',class))))
(defun keyslots-for-class (class)
(slot-value class 'key-slots))
(defun keyslots-for-class (class)
(slot-value class 'key-slots))