Changeset 13205 for trunk/abcl/src/org


Ignore:
Timestamp:
02/06/11 16:26:40 (11 years ago)
Author:
ehuelsmann
Message:

Upon defining a forward referenced class, assign the CLASS-DIRECT-SUBCLASSES
slot to the actual class rather than loosing that information.

Note: This causes a regression in REINITIALIZE-INSTANCE.ERROR.1;
however, the issue is truely with REINITIALIZE-INSTANCE.

File:
1 edited

Legend:

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

    r13204 r13205  
    777777                                          :name name all-keys)))
    778778                    (%set-find-class name new-class)
     779                    (setf (class-direct-subclasses new-class)
     780                          (class-direct-subclasses old-class))
    779781                    (dolist (subclass (class-direct-subclasses old-class))
    780782                      (setf (class-direct-superclasses subclass)
Note: See TracChangeset for help on using the changeset viewer.