Changeset 12178


Ignore:
Timestamp:
10/06/09 20:42:02 (12 years ago)
Author:
vvoutilainen
Message:

check-initargs must consider methods for initialize-instance.

File:
1 edited

Legend:

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

    r12145 r12178  
    19771977           :format-control "Odd number of keyword arguments."))
    19781978  (unless (getf initargs :allow-other-keys)
    1979     (let ((methods (compute-applicable-methods #'shared-initialize
    1980                  (if initargs
    1981                `(,instance ,shared-initialize-param ,@initargs)
    1982              (list instance shared-initialize-param))))
     1979    (let ((methods
     1980     (nconc
     1981      (compute-applicable-methods
     1982       #'shared-initialize
     1983       (if initargs
     1984     `(,instance ,shared-initialize-param ,@initargs)
     1985         (list instance shared-initialize-param)))
     1986      (compute-applicable-methods
     1987       #'initialize-instance
     1988       (if initargs
     1989     `(,instance ,@initargs)
     1990         (list instance)))))
    19831991    (slots (%class-slots (class-of instance))))
    19841992      (do* ((tail initargs (cddr tail))
Note: See TracChangeset for help on using the changeset viewer.