[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory clnet:/tmp/cvs-serv1438/tests

Modified Files:
	testmigration.lisp 
Log Message:
Small changes for lispworks; mainly fixing pointer types

--- /project/elephant/cvsroot/elephant/tests/testmigration.lisp	2007/03/11 05:59:03	1.17
+++ /project/elephant/cvsroot/elephant/tests/testmigration.lisp	2007/03/16 14:44:46	1.18
@@ -155,7 +155,7 @@
 	    (close-store sc2))))
   t)
 
-(defclass simple-class ()
+(defclass migrate-simple-class ()
   ((slot1 :accessor slot1 :initarg :slot1)
    (slot2 :accessor slot2 :initarg :slot2)))
 
@@ -179,7 +179,7 @@
 			   (array (make-array '(2 2) :initial-contents `((,i2 1)
 									 (,i2 2))))
 			   (hash (make-hash-table))
-			   (object (make-instance 'simple-class :slot1 i4 :slot2 i4))
+			   (object (make-instance 'migrate-simple-class :slot1 i4 :slot2 i4))
 			   (struct (make-simple-struct :s1 i5 :s2 i5)))
 		      (setf (gethash 1 hash) i3)
 		      (setf (gethash 2 hash) i3)