Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv18074

Modified Files: classes.lisp Log Message: Fix for class indexing test

--- /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2007/03/03 17:24:59 1.19 +++ /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2007/03/08 19:24:08 1.20 @@ -49,6 +49,7 @@

(defmethod ensure-class-using-class :around ((class (eql nil)) name &rest args &key index) "Support the :index class option" + (format t "ecuc nil index = ~A~%" index) (let ((result (apply #'call-next-method class name (remove-keywords '(:index) args)))) (when (and index (subtypep (type-of result) 'persistent-metaclass)) (update-indexed-record result nil :class-indexed t)) @@ -56,6 +57,7 @@

(defmethod ensure-class-using-class :around ((class persistent-metaclass) name &rest args &key index) "Support the :index class option on redefinition" + (format t "ecuc class index = ~A~%" index) (let ((result (apply #'call-next-method class name (remove-keywords '(:index) args)))) (when index (update-indexed-record result nil :class-indexed t))