X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Finit.lisp;h=4306079af2c6b237abcff22cb560934af04bd33b;hb=9ce24dc604859d2670a989da2a9015b67c37e00f;hp=8b55efa825430f50679d37cc0b658f50af7eea5d;hpb=81ce38f2e03e4f569d7a95bb18efb25bb16fc269;p=sbcl.git

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index 8b55efa..4306079 100644
--- a/src/pcl/init.lisp
+++ b/src/pcl/init.lisp
@@ -68,9 +68,8 @@
   (apply #'shared-initialize instance nil initargs)
   instance)
 
-(defmethod update-instance-for-different-class ((previous std-object)
-                                                (current std-object)
-                                                &rest initargs)
+(defmethod update-instance-for-different-class
+    ((previous standard-object) (current standard-object) &rest initargs)
   ;; First we must compute the newly added slots. The spec defines
   ;; newly added slots as "those local slots for which no slot of
   ;; the same name exists in the previous class."
@@ -88,11 +87,9 @@
            (list* 'shared-initialize current added-slots initargs)))
     (apply #'shared-initialize current added-slots initargs)))
 
-(defmethod update-instance-for-redefined-class ((instance std-object)
-                                                added-slots
-                                                discarded-slots
-                                                property-list
-                                                &rest initargs)
+(defmethod update-instance-for-redefined-class
+    ((instance standard-object) added-slots discarded-slots property-list
+     &rest initargs)
   (check-initargs-1
    (class-of instance) initargs
    (list (list* 'update-instance-for-redefined-class