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

Diff of /gcl/o/assignment.c

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

revision 1.6.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.6.6.2 by camm, Thu Nov 6 16:16:50 2003 UTC
# Line 85  setq(object sym, object val) Line 85  setq(object sym, object val)
85  }  }
86    
87  static void  static void
88  Fsetq(object form)  FFN(Fsetq)(object form)
89  {  {
90          object ans;          object ans;
91          if (endp(form)) {          if (endp(form)) {
# Line 107  Fsetq(object form) Line 107  Fsetq(object form)
107  }  }
108    
109  static void  static void
110  Fpsetq(object arg)  FFN(Fpsetq)(object arg)
111  {  {
112          object *old_top = vs_top;          object *old_top = vs_top;
113          object *top;          object *top;
# Line 182  DEFUNO_NEW("FSET",object,fSfset,SI Line 182  DEFUNO_NEW("FSET",object,fSfset,SI
182    
183          RETURN1(function);          RETURN1(function);
184  }  }
185    #ifdef STATIC_FUNCTION_POINTERS
186    object
187    fSfset(object sym,object function) {
188      return FFN(fSfset)(sym,function);
189    }
190    #endif
191    
192  static void  static void
193  Fmultiple_value_setq(object form)  FFN(Fmultiple_value_setq)(object form)
194  {  {
195          object vars;          object vars;
196          int n, i;          int n, i;
# Line 251  DEFUNO_NEW("FMAKUNBOUND",object,fLfmakun Line 257  DEFUNO_NEW("FMAKUNBOUND",object,fLfmakun
257  }  }
258    
259  static void  static void
260  Fsetf(object form)  FFN(Fsetf)(object form)
261  {  {
262          object result,*t,*t1;          object result,*t,*t1;
263          if (endp(form)) {          if (endp(form)) {
# Line 403  OTHERWISE: Line 409  OTHERWISE:
409  }  }
410    
411  static void  static void
412  Fpush(object form)  FFN(Fpush)(object form)
413  {  {
414          object var;          object var;
415                    
# Line 434  Fpush(object form) Line 440  Fpush(object form)
440  }  }
441    
442  static void  static void
443  Fpop(object form)  FFN(Fpop)(object form)
444  {  {
445          object var;          object var;
446    
# Line 463  Fpop(object form) Line 469  Fpop(object form)
469  }  }
470    
471  static void  static void
472  Fincf(object form)  FFN(Fincf)(object form)
473  {  {
474          object var;          object var;
475          object one_plus(object x), number_plus(object x, object y);          object one_plus(object x), number_plus(object x, object y);
# Line 501  Fincf(object form) Line 507  Fincf(object form)
507  }  }
508    
509  static void  static void
510  Fdecf(object form)  FFN(Fdecf)(object form)
511  {  {
512          object var;          object var;
513          object one_minus(object x), number_minus(object x, object y);          object one_minus(object x), number_minus(object x, object y);
# Line 539  Fdecf(object form) Line 545  Fdecf(object form)
545  }  }
546    
547    
548  object  /* object */
549  clear_compiler_properties(object sym, object code)  /* clear_compiler_properties(object sym, object code) */
550  { object tem;  /* { object tem; */
551    VFUN_NARGS=2; fSuse_fast_links(Cnil,sym);  /*   VFUN_NARGS=2; fSuse_fast_links(Cnil,sym); */
552    tem = getf(sym->s.s_plist,sStraced,Cnil);  /*   tem = getf(sym->s.s_plist,sStraced,Cnil); */
553    if (sSAinhibit_macro_specialA && sSAinhibit_macro_specialA->s.s_dbind != Cnil)  /*   if (sSAinhibit_macro_specialA && sSAinhibit_macro_specialA->s.s_dbind != Cnil) */
554      (void)ifuncall2(sSclear_compiler_properties, sym,code);  /*     (void)ifuncall2(sSclear_compiler_properties, sym,code); */
555    if (tem != Cnil) return tem;  /*   if (tem != Cnil) return tem; */
556    return sym;  /*   return sym; */
557        
558  }  /* } */
559    
560  DEF_ORDINARY("CLEAR-COMPILER-PROPERTIES",sSclear_compiler_properties,SI,"");  DEF_ORDINARY("CLEAR-COMPILER-PROPERTIES",sSclear_compiler_properties,SI,"");
561    
# Line 588  gcl_init_assignment(void) Line 594  gcl_init_assignment(void)
594          make_special_form("SETQ", Fsetq);          make_special_form("SETQ", Fsetq);
595          make_special_form("PSETQ", Fpsetq);          make_special_form("PSETQ", Fpsetq);
596          make_special_form("MULTIPLE-VALUE-SETQ", Fmultiple_value_setq);          make_special_form("MULTIPLE-VALUE-SETQ", Fmultiple_value_setq);
597          make_special_form("SETF", Fsetf);          sLsetf=make_special_form("SETF", Fsetf);
598          make_special_form("PUSH", Fpush);          sLpush=make_special_form("PUSH", Fpush);
599          make_special_form("POP", Fpop);          sLpop=make_special_form("POP", Fpop);
600          make_special_form("INCF", Fincf);          sLincf=make_special_form("INCF", Fincf);
601          make_special_form("DECF", Fdecf);          sLdecf=make_special_form("DECF", Fdecf);
602    
603  }  }

Legend:
Removed from v.1.6.6.1  
changed lines
  Added in v.1.6.6.2

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