Changeset 13929


Ignore:
Timestamp:
05/05/12 14:12:13 (9 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/mop.lisp

    r13923 r13929  
    2727          (and (eql (class-of class) +the-funcallable-standard-class+)
    2828               (eql (class-of superclass) +the-standard-class+)))))
     29
     30;;; This is against the letter of the MOP, but very much in its spirit.
     31(defmethod validate-superclass ((class class)
     32                                (superclass forward-referenced-class))
     33  t)
    2934
    3035(defmethod shared-initialize :before ((instance class)
Note: See TracChangeset for help on using the changeset viewer.