(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 _______________________________________________ elephant-devel site list elephant-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/elephant-devel
