Changeset 13784 for trunk/abcl/src/org/armedbear/lisp/clos.lisp

Timestamp:

01/16/12 22:08:40 (11 years ago)

Author:

ehuelsmann

Message:

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

File:

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

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

@@ -2897 +2897 @@
   (apply #'make-instance (find-class class) initargs))
 
-(defgeneric initialize-instance (instance &key))
+(defgeneric initialize-instance (instance &rest initargs
+                                          &key &allow-other-keys))
 
 (defmethod initialize-instance ((instance standard-object) &rest initargs)
   (apply #'shared-initialize instance t initargs))
 
-(defgeneric reinitialize-instance (instance &key))
+(defgeneric reinitialize-instance (instance &rest initargs
+                                            &key &allow-other-keys))
 
 ;; "The system-supplied primary method for REINITIALIZE-INSTANCE checks the
@@ -2943 +2945 @@
   instance)
 
-(defgeneric shared-initialize (instance slot-names &key))
+(defgeneric shared-initialize (instance slot-names
+                                        &rest initargs
+                                        &key &allow-other-keys))
 
 (defmethod shared-initialize ((instance standard-object) slot-names &rest initargs)
@@ -2964 +2968 @@
 ;;; change-class
 
-(defgeneric change-class (instance new-class &key))
+(defgeneric change-class (instance new-class &key &allow-other-keys))
 
 (defmethod change-class ((old-instance standard-object) (new-class standard-class)
@@ -2993 +2997 @@
   (apply #'change-class instance (find-class new-class) initargs))
 
-(defgeneric update-instance-for-different-class (old new &key))
+(defgeneric update-instance-for-different-class (old new
+                                                     &rest initargs
+                                                     &key &allow-other-keys))
 
 (defmethod update-instance-for-different-class