Foreign callbacks

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

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index e45fa64..2cfd567 100644 (file)
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -35,6 +35,13 @@ 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.")
+
 (def!struct mutex
   #!+sb-doc
   "Mutex type."