/[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.1.1.1 by wfs, Mon Dec 6 22:44:10 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 57  object sLwarn; Line 57  object sLwarn;
57    
58  object sSAinhibit_macro_specialA;  object sSAinhibit_macro_specialA;
59    
60    void
61  setq(sym, val)  setq(object sym, object val)
 object sym, val;  
62  {  {
63          object endp_temp;          object endp_temp;
64          object vd;          object vd;
# Line 82  object sym, val; Line 81  object sym, val;
81          }          }
82  }  }
83    
84  Fsetq(form)  void
85  object form;  Fsetq(object form)
86  {  {
87          object endp_temp;          object endp_temp;
88          object ans;          object ans;
# Line 105  object form; Line 104  object form;
104          }          }
105  }  }
106    
107  Fpsetq(arg)  void
108  object arg;  Fpsetq(object arg)
109  {  {
110          object endp_temp;          object endp_temp;
111          object *old_top = vs_top;          object *old_top = vs_top;
# Line 183  object sym,function; Line 182  object sym,function;
182          RETURN1(function);          RETURN1(function);
183  }  }
184    
185  Fmultiple_value_setq(form)  void
186  object form;  Fmultiple_value_setq(object form)
187  {  {
188          object vars;          object vars;
189          int n, i;          int n, i;
190          object endp_temp;          object endp_temp;
         object result;  
191    
192          if (endp(form) || endp(form->c.c_cdr) ||          if (endp(form) || endp(form->c.c_cdr) ||
193              !endp(form->c.c_cdr->c.c_cdr))              !endp(form->c.c_cdr->c.c_cdr))
# Line 252  object sym; Line 250  object sym;
250          RETURN1(sym);          RETURN1(sym);
251  }  }
252    
253  Fsetf(form)  void
254  object form;  Fsetf(object form)
255  {  {
256          object endp_temp;          object endp_temp;
257          object result;          object result;
# Line 284  object form; Line 282  object form;
282  }  }
283    
284  object  object
285  setf(place, form)  setf(object place, object form)
 object place, form;  
286  {  {
287          object endp_temp;          object endp_temp;
288          object fun;          object fun;
289          object *vs = vs_top;          object *vs = vs_top;
290          int (*f)();          void (*f)();
291          object args;          object args;
292          object x,result,y;          object x,result,y;
293          int i;          int i;
294          extern siLaset();  /*      extern void siLaset(void); */
295          extern siLsvset();  /*      extern void siLsvset(void); */
296          extern siLelt_set();          extern void siLelt_set();
297          extern siLchar_set();          extern void siLchar_set();
298          extern siLfill_pointer_set();  /*      extern void siLfill_pointer_set(void); */
299          extern siLhash_set();          extern void siLhash_set();
300    
301          if (type_of(place) != t_cons) {          if (type_of(place) != t_cons) {
302                  setq(place, result=Ieval(form));                  setq(place, result=Ieval(form));
# Line 401  OTHERWISE: Line 398  OTHERWISE:
398          return Ieval(vs_base[0]);          return Ieval(vs_base[0]);
399  }  }
400    
401  Fpush(form)  void
402  object form;  Fpush(object form)
403  {  {
404          object var;          object var;
405          object endp_temp;          object endp_temp;
# Line 433  object form; Line 430  object form;
430          eval(vs_base[0]);          eval(vs_base[0]);
431  }  }
432    
433  Fpop(form)  void
434  object form;  Fpop(object form)
435  {  {
436          object var;          object var;
437          object endp_temp;          object endp_temp;
# Line 463  object form; Line 460  object form;
460          eval(vs_base[0]);          eval(vs_base[0]);
461  }  }
462    
463  Fincf(form)  void
464  object form;  Fincf(object form)
465  {  {
466          object var;          object var;
467          object one_plus(), number_plus();          object one_plus(object x), number_plus(object x, object y);
468          object endp_temp;          object endp_temp;
469    
470          if (endp(form))          if (endp(form))
# Line 502  object form; Line 499  object form;
499          eval(vs_base[0]);          eval(vs_base[0]);
500  }  }
501    
502  Fdecf(form)  void
503  object form;  Fdecf(object form)
504  {  {
505          object var;          object var;
506          object one_minus(), number_minus();          object one_minus(object x), number_minus(object x, object y);
507          object endp_temp;          object endp_temp;
508    
509          if (endp(form))          if (endp(form))
# Line 543  object form; Line 540  object form;
540    
541    
542  object  object
543  clear_compiler_properties(sym,code)  clear_compiler_properties(object sym, object code)
 object sym;  
 object code;  
544  { object tem;  { object tem;
545    VFUN_NARGS=2; fSuse_fast_links(Cnil,sym);    VFUN_NARGS=2; fSuse_fast_links(Cnil,sym);
546    tem = getf(sym->s.s_plist,sStraced,Cnil);    tem = getf(sym->s.s_plist,sStraced,Cnil);
# Line 586  DEF_ORDINARY("SVREF",sLsvref,LISP,""); Line 581  DEF_ORDINARY("SVREF",sLsvref,LISP,"");
581  DEF_ORDINARY("TRACED",sStraced,SI,"");  DEF_ORDINARY("TRACED",sStraced,SI,"");
582  DEF_ORDINARY("VECTOR",sLvector,LISP,"");  DEF_ORDINARY("VECTOR",sLvector,LISP,"");
583    
584    void
585  init_assignment()  init_assignment(void)
586  {  {
587          make_special_form("SETQ", Fsetq);          make_special_form("SETQ", Fsetq);
588          make_special_form("PSETQ", Fpsetq);          make_special_form("PSETQ", Fpsetq);

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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