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

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index 2cfd567..3d1ecd4 100644
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -42,6 +42,14 @@ in future versions."
   "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."