X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-thread.lisp;h=7134b676e19724b9380bc1afd847228417531534;hb=492dce07cf27b3cbee8ce4800c938fcb884aa53e;hp=bbdce5629f6f88699ac95171614bb688ff519edf;hpb=94ea2b2082deaa0331dfb66fa6af6ca12dd8dc83;p=sbcl.git

diff --git a/src/code/early-thread.lisp b/src/code/early-thread.lisp
index bbdce56..7134b67 100644
--- a/src/code/early-thread.lisp
+++ b/src/code/early-thread.lisp
@@ -9,4 +9,5 @@
 
 (in-package "SB!THREAD")
 
-(defvar *current-thread*)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defvar *current-thread* nil))