Changeset 13204


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

FINALIZE-INHERITANCE (more) AMOP compatible.

File:
1 edited

Legend:

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

    r13203 r13204  
    425425
    426426(defun std-finalize-inheritance (class)
     427  ;; In case the class is already finalized, return
     428  ;; immediately, as per AMOP.
     429  (when (class-finalized-p class)
     430    (return-from std-finalize-inheritance))
    427431  (setf (class-precedence-list class)
    428432   (funcall (if (eq (class-of class) +the-standard-class+)
     
    781785                  ;; We're redefining the class.
    782786                  (%make-instances-obsolete old-class)
    783       (check-initargs old-class t all-keys)
     787                  (setf (class-finalized-p old-class) nil)
     788                  (check-initargs old-class t all-keys)
    784789                  (apply #'std-after-initialization-for-classes old-class all-keys)
    785790                  old-class)))
Note: See TracChangeset for help on using the changeset viewer.