(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
`(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)))))))