152 |
|
|
153 |
DO_INIT(init_safety();) |
DO_INIT(init_safety();) |
154 |
DEFUN_NEW("SIGNAL-SAFETY-REQUIRED",object,sSsignal_safety_required,SI,2,2, |
DEFUN_NEW("SIGNAL-SAFETY-REQUIRED",object,sSsignal_safety_required,SI,2,2, |
155 |
NONE,OI,IO,OO,OO,(int signo,int safety), |
NONE,OI,IO,OO,OO,(fixnum signo,fixnum safety), |
156 |
"Set the safety level required for handling SIGNO to SAFETY, or if \ |
"Set the safety level required for handling SIGNO to SAFETY, or if \ |
157 |
SAFETY is negative just return the current safety level for that \ |
SAFETY is negative just return the current safety level for that \ |
158 |
signal number. Value of 1 means allow interrupt at any place not \ |
signal number. Value of 1 means allow interrupt at any place not \ |
401 |
}} |
}} |
402 |
|
|
403 |
|
|
404 |
DEFUN_NEW("ALLOW-SIGNAL",object,fSallow_signal,SI,1,1,NONE,OI,OO,OO,OO,(int n), |
DEFUN_NEW("ALLOW-SIGNAL",object,fSallow_signal,SI,1,1,NONE,OI,OO,OO,OO,(fixnum n), |
405 |
"Install the default signal handler on signal N") |
"Install the default signal handler on signal N") |
406 |
|
|
407 |
{ |
{ |