0.9.14.11:
authorChristophe Rhodes <csr21@cam.ac.uk>
Wed, 12 Jul 2006 13:25:55 +0000 (13:25 +0000)
committerChristophe Rhodes <csr21@cam.ac.uk>
Wed, 12 Jul 2006 13:25:55 +0000 (13:25 +0000)
Add a couple of necessary FINALIZE-INHERITANCEs to
mop.impure.lisp.  With the current eager finalization they have
no effect, but the finalization regime probably has to change to
support anonymous classes.

tests/mop.impure.lisp
version.lisp-expr

index 8aad5b4..8b18720 100644 (file)
                                :name 'y
                                :allocation :instance))))
 (defclass dummy-ctais () ((x :allocation :class)))
+(finalize-inheritance (find-class 'class-to-add-instance-slot))
 (assert (equal (mapcar #'slot-definition-allocation
                        (class-slots (find-class 'class-to-add-instance-slot)))
                ;; FIXME: is the order really guaranteed?
                                :name 'y
                                :allocation :class))))
 (defclass dummy-ctacs () ((x :allocation :class)))
+(finalize-inheritance (find-class 'class-to-add-class-slot))
 (assert (equal (mapcar #'slot-definition-allocation
                        (class-slots (find-class 'class-to-add-class-slot)))
                '(:class :class)))
index ae34558..9e0d5c3 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.14.10"
+"0.9.14.11"