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

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index cdcae59..c492023 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -91,7 +91,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)))))))