785 |
sym = Fcar (args); |
sym = Fcar (args); |
786 |
tail = Fcdr (args); |
tail = Fcdr (args); |
787 |
if (!NILP (Fcdr (Fcdr (tail)))) |
if (!NILP (Fcdr (Fcdr (tail)))) |
788 |
error ("too many arguments"); |
error ("Too many arguments"); |
789 |
|
|
790 |
tem = Fdefault_boundp (sym); |
tem = Fdefault_boundp (sym); |
791 |
if (!NILP (tail)) |
if (!NILP (tail)) |
845 |
|
|
846 |
sym = Fcar (args); |
sym = Fcar (args); |
847 |
if (!NILP (Fcdr (Fcdr (Fcdr (args))))) |
if (!NILP (Fcdr (Fcdr (Fcdr (args))))) |
848 |
error ("too many arguments"); |
error ("Too many arguments"); |
849 |
|
|
850 |
tem = Feval (Fcar (Fcdr (args))); |
tem = Feval (Fcar (Fcdr (args))); |
851 |
if (!NILP (Vpurify_flag)) |
if (!NILP (Vpurify_flag)) |
2037 |
if (max_lisp_eval_depth < 100) |
if (max_lisp_eval_depth < 100) |
2038 |
max_lisp_eval_depth = 100; |
max_lisp_eval_depth = 100; |
2039 |
if (lisp_eval_depth > max_lisp_eval_depth) |
if (lisp_eval_depth > max_lisp_eval_depth) |
2040 |
error ("Lisp nesting exceeds max-lisp-eval-depth"); |
error ("Lisp nesting exceeds `max-lisp-eval-depth'"); |
2041 |
} |
} |
2042 |
|
|
2043 |
original_fun = Fcar (form); |
original_fun = Fcar (form); |
2733 |
if (max_lisp_eval_depth < 100) |
if (max_lisp_eval_depth < 100) |
2734 |
max_lisp_eval_depth = 100; |
max_lisp_eval_depth = 100; |
2735 |
if (lisp_eval_depth > max_lisp_eval_depth) |
if (lisp_eval_depth > max_lisp_eval_depth) |
2736 |
error ("Lisp nesting exceeds max-lisp-eval-depth"); |
error ("Lisp nesting exceeds `max-lisp-eval-depth'"); |
2737 |
} |
} |
2738 |
|
|
2739 |
backtrace.next = backtrace_list; |
backtrace.next = backtrace_list; |