X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=09d865389a655dcd27a58acfd99895de2f72104f;hb=aede5ac0bbafc2ec5ef5044a51e47a9e10963d54;hp=c6acf9dcd32c62cd2a99d8b4a288f3c368cfaf9f;hpb=9aa5b376fc754246caac367407d158a11a5dc355;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index c6acf9d..09d8653 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -100,16 +100,7 @@
 (defun sigint-%break (format-string &rest format-arguments)
   (flet ((break-it ()
            (apply #'%break 'sigint format-string format-arguments)))
-    (let ((done-p nil))
-      (loop while (not done-p)
-            do
-            (setq done-p t)
-            ;; what if I type interrupt-thread at the debugger?
-            (handler-case
-                (sb!thread:interrupt-thread (sb!thread::foreground-thread)
-                                            #'break-it)
-              (sb!thread:interrupt-thread-error ()
-                (setq done-p nil)))))))
+    (sb!thread:interrupt-thread (sb!thread::foreground-thread) #'break-it)))
 
 (eval-when (:compile-toplevel :execute)
   (sb!xc:defmacro define-signal-handler (name