Changeset 13929

Timestamp:

05/05/12 14:12:13 (12 years ago)

Author:

rschlatte

Message:

Re-enable class forward definitions.

... add an additional clause to validate-superclass, allowing forward

referenced classes as superclasses in all cases.

File:

• trunk/abcl/src/org/armedbear/lisp/mop.lisp (modified) (1 diff)

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

@@ -27 +27 @@
           (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)