;;; are lost in the noise when compared with the cost of delivering
;;; the signal in the first place.
-;;; Magically converted by the compiler into a break instruction.
-(defun do-pending-interrupt ()
- (do-pending-interrupt))
-
#!-gengc (progn
(defvar *interrupts-enabled* t)
#!+svr4
(!def-unix-signal :SIGWAITING 32) ; Process's LWPs are blocked.
-(sb!xc:defmacro sigmask (&rest signals)
- #!+sb-doc
- "Returns a mask given a set of signals."
- (apply #'logior
- (mapcar (lambda (signal)
- (ash 1 (1- (unix-signal-number signal))))
- signals)))
-
(/show0 "done with signal.lisp")