/[gcl]/gcl/o/usig2.c
ViewVC logotype

Diff of /gcl/o/usig2.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by camm, Wed Feb 26 22:21:37 2003 UTC revision 1.11 by camm, Sat Mar 1 22:37:37 2003 UTC
# Line 152  init_safety(void) Line 152  init_safety(void)
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 \
# Line 401  raise_pending_signals(int cond) Line 401  raise_pending_signals(int cond)
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  {  {

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26