X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=usql%2Fobjects.lisp;fp=usql%2Fobjects.lisp;h=14bb76f8ddd3eb2f09e019d23191dfc7253f756b;hb=b69ed367889def50db1931ab33fa9bd9a35986ab;hp=0478c8f3298b23db3216bffb443fbcdc072f2a65;hpb=f79d7e4103bd4ab6621e05f05c2b7c4a99ba9520;p=clsql.git

diff --git a/usql/objects.lisp b/usql/objects.lisp
index 0478c8f..14bb76f 100644
--- 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))