28 |
|
|
29 |
#include "include.h" |
#include "include.h" |
30 |
|
|
31 |
void |
static void |
32 |
Fcatch(VOL object args) |
Fcatch(VOL object args) |
33 |
{ |
{ |
34 |
|
|
47 |
frs_pop(); |
frs_pop(); |
48 |
} |
} |
49 |
|
|
50 |
DEFUNO("ERROR-SET",object,fSerror_set,SI |
DEFUN_NEW("ERROR-SET",object,fSerror_set,SI |
51 |
,1,1,NONE,OO,OO,OO,OO,siLerror_set, |
,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 \ |
54 |
value and the result of the evaluation as the rest of the values. If, in the \ |
value and the result of the evaluation as the rest of the values. If, in the \ |
55 |
course of the evaluation, a non-local jump from the FORM is atempted, \ |
course of the evaluation, a non-local jump from the FORM is atempted, \ |
56 |
SI:ERROR-SET traps the jump and returns the corresponding jump tag as its \ |
SI:ERROR-SET traps the jump and returns the corresponding jump tag as its \ |
57 |
value.") |
value.") |
58 |
(x0) |
|
|
volatile object x0; |
|
59 |
{ |
{ |
60 |
object *old_lex = lex_env; |
object *old_lex = lex_env; |
61 |
|
|
88 |
return Cnil; |
return Cnil; |
89 |
} |
} |
90 |
|
|
91 |
void |
static void |
92 |
Funwind_protect(VOL object args) |
Funwind_protect(VOL object args) |
93 |
{ |
{ |
94 |
|
|
133 |
} |
} |
134 |
} |
} |
135 |
|
|
136 |
void |
static void |
137 |
Fthrow(object args) |
Fthrow(object args) |
138 |
{ |
{ |
139 |
|
|