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."
-  `(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))