[elephant-devel] Added slot indices

[Leslie P. Polzer]

(defpclass c1 ()
  ((slotx :index t) ; to enable class indexing for all subclasses
   (slot :accessor slot :initarg :slot :initform 0)))

(defpclass c2 (c1) nil)

(find-inverted-index 'c2 'slot :null-on-fail t)
-> NIL ; okay

; now add a slot idx
(defpclass c1 ()
  ((slotx :index t) ; to enable class indexing for all subclasses
   (slot :accessor slot :initarg :slot :initform 0 :index t)))

(find-inverted-index 'c1 'slot)
#<BDB-BTREE-INDEX oid:204>


(find-inverted-index 'c2 'slot :null-on-fail t)
-> NIL ; yuk

I suppose UPDATE-INSTANCE-FOR-REDEFINED-CLASS doesn't apply
to subclasses? What could I do to get this behaviour?

  Leslie