X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=d35848610e947a69a3b56f0693282ddf10e68a26;hb=d8e682fdfb7e8ba067e15aea0f3d1f8d37ca9eb1;hp=c492023c0a567247ec6fddca6793830a97178cd1;hpb=3f321528f3da20ce000bb5e0d42bf5e204b3e696;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index c492023..d358486 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -55,6 +55,7 @@
 
 (defun enable-interrupt (signal handler)
   (declare (type (or function fixnum (member :default :ignore)) handler))
+  (/show0 "enable-interrupt")
   (without-gcing
    (let ((result (install-handler signal
 				  (case handler
@@ -82,6 +83,14 @@
 ;;; SIGINT in --disable-debugger mode will cleanly terminate the system
 ;;; (by respecting the *DEBUGGER-HOOK* established in that mode).
 (defun sigint-%break (format-string &rest format-arguments)
+  #!+sb-thread
+  (let ((foreground-thread (sb!thread::foreground-thread)))
+    (if (eql foreground-thread (sb!thread:current-thread-id))
+        (apply #'%break 'sigint format-string format-arguments)
+        (sb!thread:interrupt-thread
+         foreground-thread
+         (lambda () (apply #'%break 'sigint format-string format-arguments)))))
+  #!-sb-thread
   (apply #'%break 'sigint format-string format-arguments))
 
 (eval-when (:compile-toplevel :execute)
@@ -115,7 +124,7 @@
 
 (defun sigquit-handler (signal code context)
   (declare (ignore signal code context))
-  (throw 'sb!impl::toplevel-catcher nil))
+  (throw 'toplevel-catcher nil))
 
 (defun sb!kernel:signal-cold-init-or-reinit ()
   #!+sb-doc