X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=fe00080a9ddee94b222b56708c3fd71d961139df;hb=ec735ab75335c1744b39190314142a7e6f1ecdb3;hp=9bb5b50fb8651f28b71b23b5ba67d82d3314d2ed;hpb=1e08b23e730c7a1c9cda1b918e9fdca38b8c4e17;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 9bb5b50..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
@@ -1064,7 +1064,7 @@ bootstrapping.
                             ,call)
                            ,call))))
 		 ,(locally
-		   ;; As above, this declaration supresses code
+		   ;; As above, this declaration suppresses code
 		   ;; deletion notes.
 		   (declare (optimize (inhibit-warnings 3)))
 		   (if (and (null ',rest-arg)