From: Tobias C. Rittweiler <trittweiler@users.sourceforge.net>
Date: Sat, 3 Apr 2010 14:57:14 +0000 (+0000)
Subject: 1.0.37.32: Adapt test :GC-DEADLOCK due to 1.0.37.30.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5ed095bdfed6d335ccc43ac4b826eeb0bf27963e;p=sbcl.git

1.0.37.32: Adapt test :GC-DEADLOCK due to 1.0.37.30.
---

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index 91184e0..6df83ca 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -1201,7 +1201,7 @@
                (sb-thread:make-thread
                 (lambda ()
                   (sleep (random 0.001)))
-                :name (list :sleep i))
+                :name (format nil "SLEEP-~D" i))
                (sb-thread:make-thread
                 (lambda ()
                   ;; KLUDGE: what we are doing here is explicit,
@@ -1211,7 +1211,7 @@
                   (sb-thread::with-all-threads-lock
                     (sb-thread::with-session-lock (sb-thread::*session*)
                       (sb-ext:gc))))
-                :name (list :gc i)))
+                :name (format nil "GC-~D" i)))
          (error (e)
            (format t "~%error creating thread ~D: ~A -- backing off for retry~%" i e)
            (sleep 0.1)
diff --git a/version.lisp-expr b/version.lisp-expr
index 98bec2b..01bc7b4 100644
--- 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.37.31"
+"1.0.37.32"