Changeset 2726

Timestamp:

03/12/08 15:49:44 (10 months ago)

Author:

ksprotte

Message:

small fix for defpersistent-class: :metaclass would miss () around it

Files:

• trunk/bknr/datastore/src/data/object.lisp (modified) (1 diff)

trunk/bknr/datastore/src/data/object.lisp

@@ -245 +245 @@
-    `(eval-when (:compile-toplevel :load-toplevel :execute)
-       (defclass ,class ,superclasses ,slots
-:metaclass persistent-class
+(:metaclass persistent-class)
-         ,@class-options))))
-