X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-thread.lisp;h=81e713027c1e91f08b8a3ade6fc19fcb5967f434;hb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;hp=67ef209c7ab662ec63836ed3f47e6e9e712f48e2;hpb=79cc569a97e444389350ea3f5b1017374fe16bec;p=sbcl.git

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index 67ef209..81e7130 100644
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -40,10 +40,10 @@ in future versions."
 
 (defun thread-state (thread)
   (let ((state
-	 (sb!sys:sap-int
-	  (sb!sys:sap-ref-sap (thread-%sap thread)
-			      (* sb!vm::thread-state-slot
-				 sb!vm::n-word-bytes)))))
+         (sb!sys:sap-int
+          (sb!sys:sap-ref-sap (thread-%sap thread)
+                              (* sb!vm::thread-state-slot
+                                 sb!vm::n-word-bytes)))))
     (ecase state
       (#.(sb!vm:fixnumize 0) :starting)
       (#.(sb!vm:fixnumize 1) :running)
@@ -55,11 +55,11 @@ in future versions."
                             (* sb!vm::thread-state-slot
                                sb!vm::n-word-bytes))
         (sb!sys:int-sap
-	  (ecase state
-	    (:starting #.(sb!vm:fixnumize 0))
-	    (:running #.(sb!vm:fixnumize 1))
-	    (:suspended #.(sb!vm:fixnumize 2))
-	    (:dead #.(sb!vm:fixnumize 3))))))
+          (ecase state
+            (:starting #.(sb!vm:fixnumize 0))
+            (:running #.(sb!vm:fixnumize 1))
+            (:suspended #.(sb!vm:fixnumize 2))
+            (:dead #.(sb!vm:fixnumize 3))))))
 
 (defun thread-alive-p (thread)
   #!+sb-doc
@@ -130,7 +130,7 @@ in future versions."
   "Spinlock type."
   (name nil :type (or null simple-string))
   (value 0))
-  
+
 (declaim (inline get-spinlock release-spinlock))
 
 ;;; The bare 2 here and below are offsets of the slots in the struct.