Changeset 13784


Ignore:
Timestamp:
01/16/12 22:08:40 (12 years ago)
Author:
ehuelsmann
Message:

Update function signatures of functions involved in object
creation and (re)initialization to match the CLHS.

File:
1 edited

Legend:

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

    r13783 r13784  
    28972897  (apply #'make-instance (find-class class) initargs))
    28982898
    2899 (defgeneric initialize-instance (instance &key))
     2899(defgeneric initialize-instance (instance &rest initargs
     2900                                          &key &allow-other-keys))
    29002901
    29012902(defmethod initialize-instance ((instance standard-object) &rest initargs)
    29022903  (apply #'shared-initialize instance t initargs))
    29032904
    2904 (defgeneric reinitialize-instance (instance &key))
     2905(defgeneric reinitialize-instance (instance &rest initargs
     2906                                            &key &allow-other-keys))
    29052907
    29062908;; "The system-supplied primary method for REINITIALIZE-INSTANCE checks the
     
    29432945  instance)
    29442946
    2945 (defgeneric shared-initialize (instance slot-names &key))
     2947(defgeneric shared-initialize (instance slot-names
     2948                                        &rest initargs
     2949                                        &key &allow-other-keys))
    29462950
    29472951(defmethod shared-initialize ((instance standard-object) slot-names &rest initargs)
     
    29642968;;; change-class
    29652969
    2966 (defgeneric change-class (instance new-class &key))
     2970(defgeneric change-class (instance new-class &key &allow-other-keys))
    29672971
    29682972(defmethod change-class ((old-instance standard-object) (new-class standard-class)
     
    29932997  (apply #'change-class instance (find-class new-class) initargs))
    29942998
    2995 (defgeneric update-instance-for-different-class (old new &key))
     2999(defgeneric update-instance-for-different-class (old new
     3000                                                     &rest initargs
     3001                                                     &key &allow-other-keys))
    29963002
    29973003(defmethod update-instance-for-different-class
Note: See TracChangeset for help on using the changeset viewer.