1.0.33.9: LDB stability improvements.

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

diff --git a/src/pcl/fixup.lisp b/src/pcl/fixup.lisp
index a43c5e6..e544e0b 100644 (file)
--- 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"))))