X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fpcl%2Ffixup.lisp;h=e544e0bf0bdb7cc2245f00dec33401ddba05f673;hb=b429c5c0557ed790e84dae4d6c35e06ab1a14416;hp=20ec3466b8d57379356063f2d2c44136290f744f;hpb=3d9b54df5e825dfb1f458d91d2bb09877f4348b2;p=sbcl.git

diff --git a/src/pcl/fixup.lisp b/src/pcl/fixup.lisp
index 20ec346..e544e0b 100644
--- a/src/pcl/fixup.lisp
+++ b/src/pcl/fixup.lisp
@@ -29,7 +29,7 @@
 (dolist (s '(condition function structure-object))
   (dohash ((k v) (classoid-subclasses (find-classoid s)))
     (find-class (classoid-name k))))
-(setq *boot-state* 'complete)
+(setq **boot-state** 'complete)
 
 (defun print-std-instance (instance stream depth)
   (declare (ignore depth))