0.6.10.3:

[sbcl.git] / src / pcl / fast-init.lisp

diff --git a/src/pcl/fast-init.lisp b/src/pcl/fast-init.lisp
index ac2f9d4..45303b4 100644 (file)
--- a/src/pcl/fast-init.lisp
+++ b/src/pcl/fast-init.lisp
@@ -599,7 +599,7 @@
         (wrapper (class-wrapper class))
         (constants (when simple-p
                      (make-list (wrapper-no-of-instance-slots wrapper)
-                                ':initial-element *slot-unbound*)))
+                                ':initial-element +slot-unbound+)))
         (slots (class-slots class))
         (slot-names (mapcar #'slot-definition-name slots))
         (slots-key (mapcar #'(lambda (slot)
@@ -847,8 +847,8 @@
           `((unless ,(if *inline-iis-instance-locations-p*
                          (typecase location
                            (fixnum `(not (eq (%instance-ref slots ,(const location))
-                                             ',*slot-unbound*)))
-                           (cons `(not (eq (cdr ,(const location)) ',*slot-unbound*)))
+                                             +slot-unbound+)))
+                           (cons `(not (eq (cdr ,(const location)) +slot-unbound+)))
                            (t default))
                          `(instance-boundp-internal pv slots ,(const pv-offset)
                            ,default