0.6.8.9:

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

diff --git a/src/pcl/construct.lisp b/src/pcl/construct.lisp
index 2675145..b711ac6 100644 (file)
--- a/src/pcl/construct.lisp
+++ b/src/pcl/construct.lisp
@@ -523,12 +523,12 @@
            (initfn (slot-definition-initfunction slotd)))
        (cond ((null (memq name layout)))
              ((null initfn)
-              (push (cons name *slot-unbound*) constants))
+              (push (cons name +slot-unbound+) constants))
              ((constantp initform)
               (push (cons name (eval initform)) constants)
               (when (eq flag ':unsupplied) (setq flag ':constants)))
              (t
-              (push (cons name *slot-unbound*) constants)
+              (push (cons name +slot-unbound+) constants)
               (setq flag 't)))))
     (let* ((constants-alist (sort constants #'(lambda (x y)
                                                (memq (car y)