X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-thread.lisp;h=ad831974e1c7989b7c5f86ab1e96832bccd176cd;hb=77d7fddb855305e783c100bfe9b6b46bdb05e4b6;hp=a73ec31051e28554eab99bacc5fab0002c0772e8;hpb=b18df732481502bca0040c56685979712ec58754;p=sbcl.git

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index a73ec31..ad83197 100644
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -103,18 +103,6 @@ instead.")
 (setf (fdocumentation '*current-thread* 'variable)
       "Bound in each thread to the thread itself.")
 
-(defstruct (thread (:constructor %make-thread))
-  #!+sb-doc
-  "Thread type. Do not rely on threads being structs as it may change
-in future versions."
-  name
-  %alive-p
-  os-thread
-  interruptions
-  (interruptions-lock (make-mutex :name "thread interruptions lock"))
-  result
-  (result-lock (make-mutex :name "thread result lock")))
-
 #!+sb-doc
 (setf
  (fdocumentation 'thread-name 'function)