[Sbcl-commits] CVS: sbcl/src/code target-thread.lisp, 1.129, 1.130 thread.lisp, 1.34, 1.35

[Tobias R. <tri...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv28139/src/code

Modified Files:
	target-thread.lisp thread.lisp 
Log Message:
1.0.37.33: Add SB-THREAD:GRAB-MUTEX.

  * I unintentionally comitted the bulk of what was supposed to become
    this commit with 1.0.37.31. Sorry.

  * SB-THREAD:GRAB-MUTEX is like GET-MUTEX except it takes &key, not
    &optional parameters.

  * Also add a :TIMEOUT key parameter on non-lutex platforms.

  * Tests included. News updated. Phew.


Index: target-thread.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-thread.lisp,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -d -r1.129 -r1.130
--- target-thread.lisp	3 Apr 2010 14:55:39 -0000	1.129
+++ target-thread.lisp	3 Apr 2010 16:46:09 -0000	1.130
@@ -468,19 +468,19 @@
     ALLOW-WITH-INTERRUPTS allows the call to be interrupted from
     sleep.
 
-   - The TIMEOUT parameter is currently only supported on non-SB-LUTEX
-     platforms like Linux or BSD.
+  - The TIMEOUT parameter is currently only supported on non-SB-LUTEX
+    platforms like Linux or BSD.
 
-   - (GRAB-MUTEX <mutex> :timeout 0.0) differs from
-     (GRAB-MUTEX <mutex> :waitp nil) in that the former may signal a
-     DEADLINE-TIMEOUT if the global deadline was due already on
-     entering GRAB-MUTEX.
+  - (GRAB-MUTEX <mutex> :timeout 0.0) differs from
+    (GRAB-MUTEX <mutex> :waitp nil) in that the former may signal a
+    DEADLINE-TIMEOUT if the global deadline was due already on
+    entering GRAB-MUTEX.
 
-     The exact interplay of GRAB-MUTEX and deadlines are reserved to
-     change in future versions.
+    The exact interplay of GRAB-MUTEX and deadlines are reserved to
+    change in future versions.
 
-   - It is recommended that you use WITH-MUTEX instead of calling
-     GRAB-MUTEX directly.
+  - It is recommended that you use WITH-MUTEX instead of calling
+    GRAB-MUTEX directly.
 "
   (get-mutex mutex new-owner waitp timeout))
 

Index: thread.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/thread.lisp,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- thread.lisp	3 Apr 2010 14:55:39 -0000	1.34
+++ thread.lisp	3 Apr 2010 16:46:09 -0000	1.35
@@ -21,7 +21,6 @@
   (name          nil :type (or thread-name null))
   (%alive-p      nil :type boolean)
   (os-thread     nil :type (or integer null))
-  (whostate      nil :type (or null simple-string))
   (interruptions nil :type list)
   (result        nil :type list)
   (interruptions-lock