1.0.4.34: return true from GET-SPINLOCK

 * unbreak threaded build: since we now depend on the return
   value of GET-SPINLOCK in WITH-SPINLOCK, NIL isn't too hot.

 ...and I could have sworn I made a threaded test build for this...

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index 42ad3dc..513acf6 100644 (file)
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -195,7 +195,8 @@ in future versions."
   ;; store any value
   #!+sb-thread
   (loop until
-        (eql (sb!vm::%instance-set-conditional spinlock 2 0 1) 0)))
+        (eql (sb!vm::%instance-set-conditional spinlock 2 0 1) 0))
+  t)
 
 (defun release-spinlock (spinlock)
   (declare (optimize (speed 3) (safety 0))

diff --git a/version.lisp-expr b/version.lisp-expr
index 1967656..91181e5 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.4.33"
+"1.0.4.34"