;;;; interface to enabling and disabling signal handlers
(defun enable-interrupt (signal-designator handler)
;;;; interface to enabling and disabling signal handlers
(defun enable-interrupt (signal-designator handler)
(defun sigalrm-handler (signal info context)
(declare (ignore signal info context))
(declare (type system-area-pointer context))
(defun sigalrm-handler (signal info context)
(declare (ignore signal info context))
(declare (type system-area-pointer context))