0.9.5.44: oops

[sbcl.git] / src / code / target-signal.lisp

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index c6acf9d..09d8653 100644 (file)
--- 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