diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/eval.c b/src/eval.c index a0a05ebf0dc..e6cd4e8dc27 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -2094,7 +2094,7 @@ eval_sub (Lisp_Object form) | |||
| 2094 | args_left = original_args; | 2094 | args_left = original_args; |
| 2095 | numargs = Flength (args_left); | 2095 | numargs = Flength (args_left); |
| 2096 | 2096 | ||
| 2097 | CHECK_CONS_LIST (); | 2097 | check_cons_list (); |
| 2098 | 2098 | ||
| 2099 | if (XINT (numargs) < XSUBR (fun)->min_args | 2099 | if (XINT (numargs) < XSUBR (fun)->min_args |
| 2100 | || (XSUBR (fun)->max_args >= 0 | 2100 | || (XSUBR (fun)->max_args >= 0 |
| @@ -2222,7 +2222,7 @@ eval_sub (Lisp_Object form) | |||
| 2222 | else | 2222 | else |
| 2223 | xsignal1 (Qinvalid_function, original_fun); | 2223 | xsignal1 (Qinvalid_function, original_fun); |
| 2224 | } | 2224 | } |
| 2225 | CHECK_CONS_LIST (); | 2225 | check_cons_list (); |
| 2226 | 2226 | ||
| 2227 | lisp_eval_depth--; | 2227 | lisp_eval_depth--; |
| 2228 | if (backtrace.debug_on_exit) | 2228 | if (backtrace.debug_on_exit) |
| @@ -2762,7 +2762,7 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */) | |||
| 2762 | if (debug_on_next_call) | 2762 | if (debug_on_next_call) |
| 2763 | do_debug_on_call (Qlambda); | 2763 | do_debug_on_call (Qlambda); |
| 2764 | 2764 | ||
| 2765 | CHECK_CONS_LIST (); | 2765 | check_cons_list (); |
| 2766 | 2766 | ||
| 2767 | original_fun = args[0]; | 2767 | original_fun = args[0]; |
| 2768 | 2768 | ||
| @@ -2871,13 +2871,13 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */) | |||
| 2871 | else if (EQ (funcar, Qautoload)) | 2871 | else if (EQ (funcar, Qautoload)) |
| 2872 | { | 2872 | { |
| 2873 | Fautoload_do_load (fun, original_fun, Qnil); | 2873 | Fautoload_do_load (fun, original_fun, Qnil); |
| 2874 | CHECK_CONS_LIST (); | 2874 | check_cons_list (); |
| 2875 | goto retry; | 2875 | goto retry; |
| 2876 | } | 2876 | } |
| 2877 | else | 2877 | else |
| 2878 | xsignal1 (Qinvalid_function, original_fun); | 2878 | xsignal1 (Qinvalid_function, original_fun); |
| 2879 | } | 2879 | } |
| 2880 | CHECK_CONS_LIST (); | 2880 | check_cons_list (); |
| 2881 | lisp_eval_depth--; | 2881 | lisp_eval_depth--; |
| 2882 | if (backtrace.debug_on_exit) | 2882 | if (backtrace.debug_on_exit) |
| 2883 | val = call_debugger (Fcons (Qexit, Fcons (val, Qnil))); | 2883 | val = call_debugger (Fcons (Qexit, Fcons (val, Qnil))); |