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 \ |