[elephant-devel] Glitch in classes.lisp

[Leslie P. Polzer]

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