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

Diff of /gcl/o/catch.c

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

revision 1.9 by camm, Mon Aug 8 23:05:04 2005 UTC revision 1.10 by camm, Sun Nov 6 18:07:36 2005 UTC
# Line 47  FFN(Fcatch)(VOL object args) Line 47  FFN(Fcatch)(VOL object args)
47          frs_pop();          frs_pop();
48  }  }
49    
50  DEFUN_NEW("ERROR-SET",object,fSerror_set,SI  DEFUNM_NEW("ERROR-SET",object,fSerror_set,SI
51             ,1,1,NONE,OO,OO,OO,OO,(volatile object x0),             ,1,1,NONE,OO,OO,OO,OO,(volatile object x0),
52         "Evaluates the FORM in the null environment.  If the evaluation \         "Evaluates the FORM in the null environment.  If the evaluation \
53  of the FORM has successfully completed, SI:ERROR-SET returns NIL as the first \  of the FORM has successfully completed, SI:ERROR-SET returns NIL as the first \

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

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