52 |
name = MMcar(args); |
name = MMcar(args); |
53 |
if (type_of(name) != t_symbol) { |
if (type_of(name) != t_symbol) { |
54 |
if (setf_fn_form(name)) { |
if (setf_fn_form(name)) { |
55 |
|
object x; |
56 |
vs_base = vs_top; |
vs_base = vs_top; |
57 |
vs_push(MMcons(sLlambda, MMcdr(args))); |
x=alloc_object(t_ifun); |
58 |
|
x->ifn.ifn_self=MMcons(sLlambda, MMcdr(args)); |
59 |
|
vs_push(x); |
60 |
putprop(MMcadr(name),vs_base[0],sSsetf_function); |
putprop(MMcadr(name),vs_base[0],sSsetf_function); |
61 |
vs_base[0]=name; |
vs_base[0]=name; |
62 |
return; |
return; |
87 |
vs_base[0] = MMcons(sLlambda_block_closure, vs_base[0]); |
vs_base[0] = MMcons(sLlambda_block_closure, vs_base[0]); |
88 |
} |
} |
89 |
{object fname = clear_compiler_properties(name,vs_base[0]); |
{object fname = clear_compiler_properties(name,vs_base[0]); |
90 |
|
object x=alloc_object(t_ifun); |
91 |
|
x->ifn.ifn_self=vs_base[0]; |
92 |
|
vs_base[0]=x; |
93 |
fname->s.s_gfdef = vs_base[0]; |
fname->s.s_gfdef = vs_base[0]; |
94 |
fname->s.s_mflag = FALSE;} |
fname->s.s_mflag = FALSE;} |
95 |
vs_base[0] = name; |
vs_base[0] = name; |