Ian,
the change introduced by you here:
@@ -62,8 +62,7 @@
(persistent-object (find-class 'persistent-object))
(not-already-persistent (loop for superclass in direct-superclasses
never (eq (class-of superclass)
persistent-metaclass))))
- (when index
- (update-indexed-record class nil :class-indexed t))
+ (setf (%indexed-class class) index)
(if (and (not (eq class persistent-object)) not-already-persistent)
(apply #'call-next-method class slot-names
:direct-superclasses (append direct-superclasses (list
persistent-object)) args)
just caused my Lisp to throw a warning about
The slot %INDEXED-CLASS is unbound in the object #<PERSISTENT-METACLASS
PERSISTENT-OBJECT>.
Leslie
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
