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