From: Gabor Melis <mega@hotpop.com>
Date: Wed, 7 Sep 2005 08:25:32 +0000 (+0000)
Subject: 0.9.4.30:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d27e4848d1b93cb08de9cb02d82e4ce5d0663c68;p=sbcl.git

0.9.4.30:
  * added #+-sb-thread conditionals to make timer compile without
    threads and run the tests
---

diff --git a/src/code/timer.lisp b/src/code/timer.lisp
index cdf8863..9ee6089 100644
--- a/src/code/timer.lisp
+++ b/src/code/timer.lisp
@@ -135,6 +135,8 @@
   ;; FUNCTION until the other is called, from when it does nothing.
   (let ((mutex (sb!thread:make-mutex))
         (cancelled-p nil))
+    #!-sb-thread
+    (declare (ignore mutex))
     (list
      #'(lambda ()
          (sb!thread:with-recursive-lock (mutex)
diff --git a/tests/timer.impure.lisp b/tests/timer.impure.lisp
index 45b7025..bfdcb78 100644
--- a/tests/timer.impure.lisp
+++ b/tests/timer.impure.lisp
@@ -110,6 +110,7 @@
             (sb-ext:with-timeout 2
               (sleep 2))))))
 
+#+sb-thread
 (with-test (:name (:with-timeout :many-at-the-same-time))
   (loop repeat 10 do
         (sb-thread:make-thread
diff --git a/version.lisp-expr b/version.lisp-expr
index 3b2e5ff..afcc31f 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".)
-"0.9.4.29"
+"0.9.4.30"