225 |
FEundefined_function(fun); |
FEundefined_function(fun); |
226 |
} |
} |
227 |
|
|
228 |
|
case t_ifun: |
229 |
|
{object x = fun->ifn.ifn_self; |
230 |
|
if (x) { fun = x; goto TOP;} |
231 |
|
else |
232 |
|
FEundefined_function(fun); |
233 |
|
} |
234 |
|
|
235 |
case t_cons: |
case t_cons: |
236 |
break; |
break; |
237 |
|
|
905 |
top[0] = ans; |
top[0] = ans; |
906 |
vs_top = ++top; |
vs_top = ++top; |
907 |
form = MMcdr(form);} |
form = MMcdr(form);} |
908 |
n =top - base; /* number of args */ |
n =top - base; /* number of args */ |
909 |
if (Vapplyhook->s.s_dbind != Cnil) { |
if (Vapplyhook->s.s_dbind != Cnil) { |
910 |
base[0]= (object)n; |
base[0]= (object)n; |
911 |
base[0] = c_apply_n(list,n+1,base); |
base[0] = c_apply_n(list,n+1,base); |