[elephant-cvs] CVS elephant/tests

[ieslick]

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

Modified Files:
	mop-tests.lisp 
Log Message:
Fixed lispworks MOP support; lispworks is green under Mac OS X

--- /project/elephant/cvsroot/elephant/tests/mop-tests.lisp	2007/02/03 04:09:14	1.12
+++ /project/elephant/cvsroot/elephant/tests/mop-tests.lisp	2007/03/19 19:41:36	1.13
@@ -44,22 +44,27 @@
 	(slot2 :accessor slot2 :transient t)
 	(slot3 :accessor slot3 :allocation :class :transient t))
        (:metaclass persistent-metaclass))
+     (finalize-inheritance (find-class 'p-class))
      (defclass nonp-class ()
        ((slot1 :accessor slot1)
 	(slot2 :accessor slot2)
 	(slot3 :accessor slot3 :allocation :class)))
+     (finalize-inheritance (find-class 'nonp-class))
      (defclass minus-p-class ()
        ((slot1 :accessor slot1 :transient t)
 	(slot2 :accessor slot2)
 	(slot3 :accessor slot3))
        (:metaclass persistent-metaclass))
+     (finalize-inheritance (find-class 'minus-p-class))
      (defclass switch-transient ()
        ((slot1 :accessor slot1 :transient t)
 	(slot2 :accessor slot2))
        (:metaclass persistent-metaclass))
+     (finalize-inheritance (find-class 'switch-transient))
      (defclass make-persistent ()
        ((slot2 :accessor slot2))
-       (:metaclass persistent-metaclass)))
+       (:metaclass persistent-metaclass))
+     (finalize-inheritance (find-class 'make-persistent)))
   t)
 
 (deftest bad-inheritence