X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fboot.lisp;h=fe00080a9ddee94b222b56708c3fd71d961139df;hb=98f3f617894ce24a40764aa98606ce68c5482cf0;hp=09719c948cf2de5b6342ce9764de5c05316e75ff;hpb=1eec7e16cc38e8eba97364ef2d2af1b089764016;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 09719c9..fe00080 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -932,7 +932,7 @@ bootstrapping.
 	       `(((typep ,emf 'fixnum)
 		  (let ((.new-value. ,(car required-args+rest-arg))
 			(.slots. (get-slots-or-nil
-				  ,(car required-args+rest-arg))))
+				  ,(cadr required-args+rest-arg))))
 		    (when .slots.
 		      (setf (clos-slots-ref .slots. ,emf) .new-value.))))))
 	   ;; (In cmucl-2.4.8 there was a commented-out third ,@(WHEN