2742 |
if (debug_on_next_call) |
if (debug_on_next_call) |
2743 |
do_debug_on_call (Qlambda); |
do_debug_on_call (Qlambda); |
2744 |
|
|
2745 |
|
CHECK_CONS_LIST (); |
2746 |
|
|
2747 |
retry: |
retry: |
2748 |
|
|
2749 |
fun = args[0]; |
fun = args[0]; |
2752 |
|
|
2753 |
if (SUBRP (fun)) |
if (SUBRP (fun)) |
2754 |
{ |
{ |
2755 |
CHECK_CONS_LIST (); |
if (numargs < XSUBR (fun)->min_args |
|
|
|
|
if (numargs < XSUBR (fun)->min_args |
|
2756 |
|| (XSUBR (fun)->max_args >= 0 && XSUBR (fun)->max_args < numargs)) |
|| (XSUBR (fun)->max_args >= 0 && XSUBR (fun)->max_args < numargs)) |
2757 |
{ |
{ |
2758 |
XSETFASTINT (lisp_numargs, numargs); |
XSETFASTINT (lisp_numargs, numargs); |
2844 |
else if (EQ (funcar, Qautoload)) |
else if (EQ (funcar, Qautoload)) |
2845 |
{ |
{ |
2846 |
do_autoload (fun, args[0]); |
do_autoload (fun, args[0]); |
2847 |
|
CHECK_CONS_LIST (); |
2848 |
goto retry; |
goto retry; |
2849 |
} |
} |
2850 |
else |
else |