X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ffixup.lisp;h=e544e0bf0bdb7cc2245f00dec33401ddba05f673;hb=b429c5c0557ed790e84dae4d6c35e06ab1a14416;hp=a43c5e65b2432cbcccf3fb43c4c65cf9a8574227;hpb=796873d7b696e1079d2319844444040d18e0e2b1;p=sbcl.git

diff --git a/src/pcl/fixup.lisp b/src/pcl/fixup.lisp
index a43c5e6..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))
@@ -74,6 +74,6 @@
                   ;; Safe code wants to check the type, and the global
                   ;; accessor won't do that. Also see the comment in the
                   ;; compiler-macro.
-                  (abort-ir1-transform "cannot use optimized accessor in safe code")
+                  (give-up-ir1-transform "cannot use optimized accessor in safe code")
                   `(sb-pcl::accessor-set-slot-value object ',c-slot-name new-value))))
         (give-up-ir1-transform "slot name is not an interned symbol"))))