-(sb!alien:def-alien-routine ("sigblock" unix-sigblock) sb!c-call:unsigned-long
- #!+sb-doc
- "Unix-sigblock cause the signals specified in mask to be
- added to the set of signals currently being blocked from
- delivery. The macro sigmask is provided to create masks."
- (mask sb!c-call:unsigned-long))
-
-(sb!alien:def-alien-routine ("sigpause" unix-sigpause) sb!c-call:void
- #!+sb-doc
- "Unix-sigpause sets the set of masked signals to its argument
- and then waits for a signal to arrive, restoring the previous
- mask upon its return."
- (mask sb!c-call:unsigned-long))
-
-(sb!alien:def-alien-routine ("sigsetmask" unix-sigsetmask)
- sb!c-call:unsigned-long
- #!+sb-doc
- "Unix-sigsetmask sets the current set of masked signals (those
- begin blocked from delivery) to the argument. The macro sigmask
- can be used to create the mask. The previous value of the signal
- mask is returned."
- (mask sb!c-call:unsigned-long))