X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fthread.lisp;h=3d1ecd4086c76206f96621797818c88c0c1c7a2a;hb=0e3c4b4db102bd204a30402d7e5a0de44aea57ce;hp=e45fa64bd5bf16f32b357a95413522e142bddb84;hpb=a383077912ed97ce05533500174617ca318f7196;p=sbcl.git

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index e45fa64..3d1ecd4 100644
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -35,6 +35,21 @@ in future versions."
    :type mutex)
   waiting-for)
 
+(def!struct (foreign-thread
+             (:include thread)
+             (:conc-name "THREAD-"))
+  #!+sb-doc
+  "Type of native threads which are attached to the runtime as Lisp threads
+temporarily.")
+
+#!+(and sb-safepoint-strictly (not win32))
+(def!struct (signal-handling-thread
+             (:include foreign-thread)
+             (:conc-name "THREAD-"))
+  #!+sb-doc
+  "Asynchronous signal handling thread."
+  (signal-number nil :type integer))
+
 (def!struct mutex
   #!+sb-doc
   "Mutex type."