0.7.12.7:

[sbcl.git] / src / pcl / boot.lisp

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 9bb5b50..fe00080 100644 (file)
--- 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)