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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Feb  6 11:26:40 2011
New Revision: 13205

Log:
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.

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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sun Feb  6 11:26:40 2011
@@ -776,6 +776,8 @@
                                           +the-standard-class+
                                           :name name all-keys)))
                     (%set-find-class name new-class)
+                    (setf (class-direct-subclasses new-class)
+                          (class-direct-subclasses old-class))
                     (dolist (subclass (class-direct-subclasses old-class))
                       (setf (class-direct-superclasses subclass)
                             (substitute new-class old-class