X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=5a43e1761afcf93e628669a39f4e25776813fb5d;hb=dc9d03a1c43398d3a860520c6ea03e8d5838d142;hp=cdcae59ec6aa156493746615793bae61058468e4;hpb=ce0a49644dce03ca07008e8073897e4ed7b247df;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index cdcae59..5a43e17 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
@@ -91,7 +92,7 @@
     `(defun ,name (signal info context)
        (declare (ignore signal info))
        (declare (type system-area-pointer context))
-       (/show "in Lisp-level signal handler" (sap-int context))
+       (/show "in Lisp-level signal handler" ,(symbol-name name) (sap-int context))
        (,function ,(concatenate 'simple-string what " at #X~X")
 		  (with-alien ((context (* os-context-t) context))
 		    (sap-int (sb!vm:context-pc context)))))))