Permalink
Browse files

proclaim *CURRENT-THREAD* as always-bound

   Eliminates quite a few "check if it's bound" cases from the system, and
   protects against MAKUNBOUND.
  • Loading branch information...
1 parent 1dededc commit a383077912ed97ce05533500174617ca318f7196 @nikodemus nikodemus committed Sep 18, 2012
Showing with 5 additions and 1 deletion.
  1. +2 −1 src/code/early-thread.lisp
  2. +3 −0 src/code/thread.lisp
@@ -9,4 +9,5 @@
(in-package "SB!THREAD")
-(defvar *current-thread*)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defvar *current-thread* nil))
View
@@ -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)

0 comments on commit a383077

Please sign in to comment.