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

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index c492023..f0f98d7 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
@@ -115,7 +116,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