sb-rotate-byte: Don't use :if-component-dep-fails.

[sbcl.git] / src / code / thread.lisp

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index bbd9e30..e45fa64 100644 (file)
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -11,6 +11,9 @@
 
 (in-package "SB!THREAD")
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (sb!xc:proclaim '(sb!ext:always-bound *current-thread*)))
+
 (def!type thread-name ()
   'simple-string)