Update of /project/elephant/cvsroot/elephant/src/elephant In directory common-lisp:/tmp/cvs-serv26639/src/elephant
Modified Files: classes.lisp Log Message: Fixed a bug I introduced while exploring. Fixed some issues in testindexing that reduce failures. Please update if you're hacking on bug fixes.
--- /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2006/02/22 21:03:47 1.4 +++ /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2006/02/22 22:01:44 1.5 @@ -130,7 +130,7 @@ (setf (get-value oid class-index) instance)))) ))))
-(defmethod update-instance-for-redefined-class ((instance persistent-object) added-slots discarded-slots property-list &rest initargs &key &allow-other-keys) +(defmethod update-instance-for-redefined-class :around ((instance persistent-object) added-slots discarded-slots property-list &rest initargs &key &allow-other-keys) ;; NOTE: probably should delete discarded slots, but we'll worry about that later ;; (also will want to delete discarded indices since we don't have a good GC) (declare (ignore property-list discarded-slots added-slots))