X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftimer.lisp;fp=src%2Fcode%2Ftimer.lisp;h=3ad04ea8cb20d570f873f3bce02a2ef1783f9e0a;hb=18aa51db1d51cb20eb35a8e34c36cd78446c6bdd;hp=3280bd2e260e38971d8ab95f2b7f02a5229742e7;hpb=5d898ab44ba36a8fea525d8d6b95224c8ac13a54;p=sbcl.git

diff --git a/src/code/timer.lisp b/src/code/timer.lisp
index 3280bd2..3ad04ea 100644
--- a/src/code/timer.lisp
+++ b/src/code/timer.lisp
@@ -337,7 +337,8 @@ triggers."
            (handler-case
                (sb!thread:interrupt-thread thread function)
              (sb!thread:interrupt-thread-error (c)
-               (warn c)))))))
+               (declare (ignore c))
+               (warn "Timer ~S failed to interrupt thread ~S." timer thread)))))))
 
 ;; Called from the signal handler.
 (defun run-expired-timers ()