Changeset 13220

Timestamp:

02/13/11 21:27:48 (13 years ago)

Author:

ehuelsmann

Message:

Add REINITIALIZE-INSTANCE initargs cache.

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (4 diffs)

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

@@ -745 +745 @@
   (make-hash-table :test #'eq)
   "Cached sets of allowable initargs, keyed on the class they belong to.")
+(defvar *reinitialize-instance-initargs-cache*
+  (make-hash-table :test #'eq)
+  "Cached sets of allowable initargs, keyed on the class they belong to.")
 
 (defun ensure-class (name &rest all-keys &key metaclass &allow-other-keys)
@@ -793 +796 @@
                   ;; We're redefining the class.
                   (remhash old-class *make-instance-initargs-cache*)
+                  (remhash old-class *reinitialize-instance-initargs-cache*)
                   (%make-instances-obsolete old-class)
                   (setf (class-finalized-p old-class) nil)
@@ -1618 +1622 @@
       ;; as we only need to remove the specializing class and all
       ;; its subclasses from the hash.
-      (clrhash *make-instance-initargs-cache*))
+      (clrhash *make-instance-initargs-cache*)
+      (clrhash *reinitialize-instance-initargs-cache*))
     (if gf
         (check-method-lambda-list name method-lambda-list
@@ -2717 +2722 @@
   (check-initargs (list #'reinitialize-instance) (list* instance initargs)
                   instance () initargs
-                  nil)
+                  *reinitialize-instance-initargs-cache*)
   (apply #'shared-initialize instance () initargs))