/[gcl]/gcl/o/toplevel.c
ViewVC logotype

Diff of /gcl/o/toplevel.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by camm, Fri Nov 19 21:38:44 2004 UTC revision 1.12 by camm, Wed Sep 7 02:58:39 2005 UTC
# Line 52  FFN(Fdefun)(object args) Line 52  FFN(Fdefun)(object args)
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;
# Line 84  FFN(Fdefun)(object args) Line 87  FFN(Fdefun)(object args)
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;

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26