0.9.4.30:

[sbcl.git] / src / code / timer.lisp

diff --git a/src/code/timer.lisp b/src/code/timer.lisp
index cdf8863..9ee6089 100644 (file)
--- 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)