156 |
vs_base[0] = MMcons(lex_env[1], vs_base[0]); |
vs_base[0] = MMcons(lex_env[1], vs_base[0]); |
157 |
vs_base[0] = MMcons(lex_env[0], vs_base[0]); |
vs_base[0] = MMcons(lex_env[0], vs_base[0]); |
158 |
vs_base[0] = MMcons(sLlambda_closure, vs_base[0]); |
vs_base[0] = MMcons(sLlambda_closure, vs_base[0]); |
159 |
|
{ |
160 |
|
object x=alloc_object(t_ifun); |
161 |
|
x->ifn.ifn_self=vs_base[0]; |
162 |
|
vs_base[0]=x; |
163 |
|
} |
164 |
} else if (setf_fn_form(fun)) { |
} else if (setf_fn_form(fun)) { |
165 |
object setf_fn_def=get(MMcadr(fun),sSsetf_function,Cnil); |
object setf_fn_def=get(MMcadr(fun),sSsetf_function,Cnil); |
166 |
if (setf_fn_def==Cnil) |
if (setf_fn_def==Cnil) |
221 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
222 |
} |
} |
223 |
|
|
224 |
|
DEFUNO_NEW("INTERPRETED-FUNCTION-LAMBDA",object,fSinterpreted_function_lambda,SI |
225 |
|
,1,1,NONE,OO,OO,OO,OO,void,siLinterpreted_function_lambda,(object x),"") |
226 |
|
|
227 |
|
{ |
228 |
|
|
229 |
|
if (type_of(x)!=t_ifun) |
230 |
|
TYPE_ERROR(x,sLinterpreted_function); |
231 |
|
return x->ifn.ifn_self; |
232 |
|
|
233 |
|
} |
234 |
|
|
235 |
|
|
236 |
void |
void |
237 |
gcl_init_reference(void) |
gcl_init_reference(void) |
238 |
{ |
{ |