Fix OPEN with :io and :if-does-not-exist nil.

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

diff --git a/src/code/early-thread.lisp b/src/code/early-thread.lisp
index bbdce56..7134b67 100644 (file)
--- 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))