[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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