[armedbear-cvs] r13929 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sat May  5 07:12:13 2012
New Revision: 13929

Log:
Re-enable class forward definitions.

... add an additional clause to validate-superclass, allowing forward
    referenced classes as superclasses in all cases.

Modified:
   trunk/abcl/src/org/armedbear/lisp/mop.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/mop.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/mop.lisp	Sat May  5 07:05:28 2012	(r13928)
+++ trunk/abcl/src/org/armedbear/lisp/mop.lisp	Sat May  5 07:12:13 2012	(r13929)
@@ -27,6 +27,11 @@
           (and (eql (class-of class) +the-funcallable-standard-class+)
                (eql (class-of superclass) +the-standard-class+)))))
 
+;;; This is against the letter of the MOP, but very much in its spirit.
+(defmethod validate-superclass ((class class)
+                                (superclass forward-referenced-class))
+  t)
+
 (defmethod shared-initialize :before ((instance class)
                                       slot-names
                                       &key direct-superclasses