X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftimer.lisp;h=2d4c67ac3c061950bd455805d9330f1598c9b134;hb=0c5c2fec5aae5fc87fc392192b009d234ea99462;hp=3ad04ea8cb20d570f873f3bce02a2ef1783f9e0a;hpb=1ac136852028fcd4d5568e996ebc612136c26b4f;p=sbcl.git

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