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)