X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-thread.lisp;h=63e282d96f8d433135af6774ebee6bc6090a7032;hb=862c0325616a991a5bd7b50d79f7176d2115493b;hp=ba386493a8df2556ac581f9c030bc78550a82520;hpb=08d8d7bccb7642ba4fb54e05fe55c47228951130;p=sbcl.git

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index ba38649..63e282d 100644
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -585,6 +585,6 @@ SB-EXT:QUIT - the usual cleanup forms will be evaluated"
     (let* ((index (sb!vm::symbol-tls-index symbol))
            (tl-val (sb!sys:sap-ref-word thread-sap
                                         (* sb!vm:n-word-bytes index))))
-      (if (eql tl-val sb!vm::unbound-marker-widetag)
+      (if (eql tl-val sb!vm::no-tls-value-marker-widetag)
           (sb!vm::symbol-global-value symbol)
           (sb!kernel:make-lisp-obj tl-val)))))