;;; sets *interrupt-pending* and returns without handling the signal.
;;;
;;; When we drop out the without interrupts, we check to see whether
-;;; *interrupt-pending* has been set. If so, we call
-;;; do-pending-interrupt, which generates a SIGTRAP. The C code
+;;; *INTERRUPT-PENDING* has been set. If so, we call
+;;; RECEIVE-PENDING-INTERRUPT, which generates a SIGTRAP. The C code
;;; invokes the handler for the saved signal instead of the SIGTRAP
;;; after replacing the signal mask in the signal context with the
;;; saved value. When that hander returns, the original signal mask is
;; whether interrupts are pending before executing themselves
;; immediately?
(when *interrupt-pending*
- (do-pending-interrupt)))
+ (receive-pending-interrupt)))
(,name)))))
(sb!xc:defmacro with-interrupts (&body body)
(,name)
(let ((*interrupts-enabled* t))
(when *interrupt-pending*
- (do-pending-interrupt))
+ (receive-pending-interrupt))
(,name))))))
\f
;;;; utilities for dealing with signal names and numbers
(:constructor make-unix-signal (%name %number))
(:copier nil))
;; signal keyword (e.g. :SIGINT for the Unix SIGINT signal)
- (%name (required-argument) :type keyword :read-only t)
+ (%name (missing-arg) :type keyword :read-only t)
;; signal number
- (%number (required-argument) :type integer :read-only t))
+ (%number (missing-arg) :type integer :read-only t))
;;; list of all defined UNIX-SIGNALs
(defvar *unix-signals* nil)