[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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))