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

Diff of /gcl/o/reference.c

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

revision 1.8 by camm, Thu Nov 6 16:08:11 2003 UTC revision 1.9 by camm, Wed Sep 7 02:57:37 2005 UTC
# Line 156  FFN(Ffunction)(object form) Line 156  FFN(Ffunction)(object form)
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)
# Line 216  LFD(Lspecial_form_p)(void) Line 221  LFD(Lspecial_form_p)(void)
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  {  {

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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