X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Finit.lisp;h=7e59506bfebea71273148c8e68a22391825d5f08;hb=1ca4f69009204caee2484161e6eb89fa6c5fd3f6;hp=a4c3dad8872e474b41b1071f35fc6822202190ed;hpb=386e90a63e7f9587f7c4d6b9206da72b16dc1361;p=sbcl.git

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index a4c3dad..7e59506 100644
--- a/src/pcl/init.lisp
+++ b/src/pcl/init.lisp
@@ -34,7 +34,7 @@
     (when class-default-initargs
       (setf initargs (default-initargs initargs class-default-initargs)))
     (when initargs
-      (when (and (eq *boot-state* 'complete)
+      (when (and (eq **boot-state** 'complete)
                  (not (getf initargs :allow-other-keys)))
         (let ((class-proto (class-prototype class)))
           (check-initargs-1