617 |
register Lisp_Object defn; |
register Lisp_Object defn; |
618 |
|
|
619 |
fn_name = Fcar (args); |
fn_name = Fcar (args); |
620 |
|
CHECK_SYMBOL (fn_name); |
621 |
defn = Fcons (Qlambda, Fcdr (args)); |
defn = Fcons (Qlambda, Fcdr (args)); |
622 |
if (!NILP (Vpurify_flag)) |
if (!NILP (Vpurify_flag)) |
623 |
defn = Fpurecopy (defn); |
defn = Fpurecopy (defn); |
1221 |
|
|
1222 |
The value of the last BODY form is returned from the condition-case. |
The value of the last BODY form is returned from the condition-case. |
1223 |
See also the function `signal' for more info. |
See also the function `signal' for more info. |
1224 |
usage: (condition-case VAR BODYFORM HANDLERS...) */) |
usage: (condition-case VAR BODYFORM &rest HANDLERS) */) |
1225 |
(args) |
(args) |
1226 |
Lisp_Object args; |
Lisp_Object args; |
1227 |
{ |
{ |
1236 |
handlers = Fcdr (Fcdr (args)); |
handlers = Fcdr (Fcdr (args)); |
1237 |
CHECK_SYMBOL (var); |
CHECK_SYMBOL (var); |
1238 |
|
|
1239 |
for (val = handlers; ! NILP (val); val = Fcdr (val)) |
for (val = handlers; CONSP (val); val = XCDR (val)) |
1240 |
{ |
{ |
1241 |
Lisp_Object tem; |
Lisp_Object tem; |
1242 |
tem = Fcar (val); |
tem = XCAR (val); |
1243 |
if (! (NILP (tem) |
if (! (NILP (tem) |
1244 |
|| (CONSP (tem) |
|| (CONSP (tem) |
1245 |
&& (SYMBOLP (XCAR (tem)) |
&& (SYMBOLP (XCAR (tem)) |
3244 |
|
|
3245 |
|
|
3246 |
void |
void |
3247 |
|
mark_backtrace () |
3248 |
|
{ |
3249 |
|
register struct backtrace *backlist; |
3250 |
|
register int i; |
3251 |
|
|
3252 |
|
for (backlist = backtrace_list; backlist; backlist = backlist->next) |
3253 |
|
{ |
3254 |
|
mark_object (*backlist->function); |
3255 |
|
|
3256 |
|
if (backlist->nargs == UNEVALLED || backlist->nargs == MANY) |
3257 |
|
i = 0; |
3258 |
|
else |
3259 |
|
i = backlist->nargs - 1; |
3260 |
|
for (; i >= 0; i--) |
3261 |
|
mark_object (backlist->args[i]); |
3262 |
|
} |
3263 |
|
} |
3264 |
|
|
3265 |
|
void |
3266 |
syms_of_eval () |
syms_of_eval () |
3267 |
{ |
{ |
3268 |
DEFVAR_INT ("max-specpdl-size", &max_specpdl_size, |
DEFVAR_INT ("max-specpdl-size", &max_specpdl_size, |