X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fthread.lisp;h=e45fa64bd5bf16f32b357a95413522e142bddb84;hb=43c6634142a96e1d1bab2efe1a39cd8234903c41;hp=d796f604eb42cb99dabffd02531192f5f10f7a99;hpb=7c9bae1be633be46bc454bd34f55263b24aafca8;p=sbcl.git

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index d796f60..e45fa64 100644
--- 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)
 
@@ -20,6 +23,7 @@
 in future versions."
   (name          nil :type (or thread-name null))
   (%alive-p      nil :type boolean)
+  (%ephemeral-p  nil :type boolean)
   (os-thread     nil :type (or integer null))
   (interruptions nil :type list)
   (result        nil :type list)