145 |
XX,XX,XX,XX,XX,XX,XX,XX}; |
XX,XX,XX,XX,XX,XX,XX,XX}; |
146 |
|
|
147 |
void |
void |
148 |
init_safety(void) |
gcl_init_safety(void) |
149 |
{ safety_required[SIGINT]=sig_try_to_delay; |
{ safety_required[SIGINT]=sig_try_to_delay; |
150 |
safety_required[SIGALRM]=sig_normal; |
safety_required[SIGALRM]=sig_normal; |
151 |
} |
} |
152 |
|
|
153 |
DO_INIT(init_safety();) |
DO_INIT(gcl_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,(fixnum signo,fixnum 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 \ |