X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftimer.lisp;h=774ee2b4a6f768e0b039c1d565f836562f764b64;hb=617d4fa1db5a4a11564e7c59bfb684c7eb25633d;hp=7862876e5005707632f06e48a3b63400a6256be6;hpb=d8659f1e656234e8f0f47d5295b503dd6cff4aba;p=sbcl.git

diff --git a/src/code/timer.lisp b/src/code/timer.lisp
index 7862876..774ee2b 100644
--- a/src/code/timer.lisp
+++ b/src/code/timer.lisp
@@ -135,8 +135,6 @@
   ;; 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)