/[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.5 by camm, Fri Oct 18 21:28:53 2002 UTC revision 1.6 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 28  Foundation, 675 Mass Ave, Cambridge, MA Line 28  Foundation, 675 Mass Ave, Cambridge, MA
28    
29  #include "include.h"  #include "include.h"
30    
31    static object
32    setf(object,object);
33    
34  object sLsetf;  object sLsetf;
35    
36  object sLget;  object sLget;
# Line 81  setq(object sym, object val) Line 84  setq(object sym, object val)
84          }          }
85  }  }
86    
87  void  static void
88  Fsetq(object form)  Fsetq(object form)
89  {  {
90          object ans;          object ans;
# Line 103  Fsetq(object form) Line 106  Fsetq(object form)
106          }          }
107  }  }
108    
109  void  static void
110  Fpsetq(object arg)  Fpsetq(object arg)
111  {  {
112          object *old_top = vs_top;          object *old_top = vs_top;
# Line 122  Fpsetq(object arg) Line 125  Fpsetq(object arg)
125          vs_push(Cnil);          vs_push(Cnil);
126  }  }
127    
128  DEFUNO("SET",object,fLset,LISP  DEFUNO_NEW("SET",object,fLset,LISP
129     ,2,2,NONE,OO,OO,OO,OO,Lset,"")(symbol,value)     ,2,2,NONE,OO,OO,OO,OO,void,Lset,(object symbol,object value),"")
130  object symbol,value;  
131  {  {
132          /* 2 args */          /* 2 args */
133          if (type_of(symbol) != t_symbol)          if (type_of(symbol) != t_symbol)
# Line 136  object symbol,value; Line 139  object symbol,value;
139          RETURN1(value);          RETURN1(value);
140  }  }
141    
142  DEFUNO("FSET",object,fSfset,SI  DEFUNO_NEW("FSET",object,fSfset,SI
143     ,2,2,NONE,OO,OO,OO,OO,siLfset,"")(sym,function)     ,2,2,NONE,OO,OO,OO,OO,void,siLfset,(object sym,object function),"")
144  object sym,function;  
145  {  {
146          /* 2 args */          /* 2 args */
147          if (type_of(sym) != t_symbol)          if (type_of(sym) != t_symbol)
# Line 180  object sym,function; Line 183  object sym,function;
183          RETURN1(function);          RETURN1(function);
184  }  }
185    
186  void  static void
187  Fmultiple_value_setq(object form)  Fmultiple_value_setq(object form)
188  {  {
189          object vars;          object vars;
# Line 204  Fmultiple_value_setq(object form) Line 207  Fmultiple_value_setq(object form)
207          vs_top = vs_base+1;          vs_top = vs_base+1;
208  }  }
209    
210  DEFUNO("MAKUNBOUND",object,fLmakunbound,LISP  DEFUNO_NEW("MAKUNBOUND",object,fLmakunbound,LISP
211     ,1,1,NONE,OO,OO,OO,OO,Lmakunbound,"")(sym)     ,1,1,NONE,OO,OO,OO,OO,void,Lmakunbound,(object sym),"")
212  object sym;  
213  {  {
214          /* 1 args */          /* 1 args */
215          if (type_of(sym) != t_symbol)          if (type_of(sym) != t_symbol)
# Line 220  object sym; Line 223  object sym;
223    
224  object sStraced;  object sStraced;
225    
226  DEFUNO("FMAKUNBOUND",object,fLfmakunbound,LISP  DEFUNO_NEW("FMAKUNBOUND",object,fLfmakunbound,LISP
227     ,1,1,NONE,OO,OO,OO,OO,Lfmakunbound,"")(sym)     ,1,1,NONE,OO,OO,OO,OO,void,Lfmakunbound,(object sym),"")
228  object sym;  
229  {  {
230          /* 1 args */          /* 1 args */
231          if(type_of(sym) != t_symbol)          if(type_of(sym) != t_symbol)
# Line 247  object sym; Line 250  object sym;
250          RETURN1(sym);          RETURN1(sym);
251  }  }
252    
253  void  static void
254  Fsetf(object form)  Fsetf(object form)
255  {  {
256          object result,*t,*t1;          object result,*t,*t1;
# Line 280  Fsetf(object form) Line 283  Fsetf(object form)
283          vs_top = old_top + 1;  \          vs_top = old_top + 1;  \
284  }  }
285    
286  object  static object
287  setf(object place, object form)  setf(object place, object form)
288  {  {
289          object fun;          object fun;
# Line 399  OTHERWISE: Line 402  OTHERWISE:
402          return Ieval(vs_base[0]);          return Ieval(vs_base[0]);
403  }  }
404    
405  void  static void
406  Fpush(object form)  Fpush(object form)
407  {  {
408          object var;          object var;
# Line 430  Fpush(object form) Line 433  Fpush(object form)
433          eval(vs_base[0]);          eval(vs_base[0]);
434  }  }
435    
436  void  static void
437  Fpop(object form)  Fpop(object form)
438  {  {
439          object var;          object var;
# Line 459  Fpop(object form) Line 462  Fpop(object form)
462          eval(vs_base[0]);          eval(vs_base[0]);
463  }  }
464    
465  void  static void
466  Fincf(object form)  Fincf(object form)
467  {  {
468          object var;          object var;
# Line 497  Fincf(object form) Line 500  Fincf(object form)
500          eval(vs_base[0]);          eval(vs_base[0]);
501  }  }
502    
503  void  static void
504  Fdecf(object form)  Fdecf(object form)
505  {  {
506          object var;          object var;
# Line 550  clear_compiler_properties(object sym, ob Line 553  clear_compiler_properties(object sym, ob
553    
554  DEF_ORDINARY("CLEAR-COMPILER-PROPERTIES",sSclear_compiler_properties,SI,"");  DEF_ORDINARY("CLEAR-COMPILER-PROPERTIES",sSclear_compiler_properties,SI,"");
555    
556  DEFUNO("CLEAR-COMPILER-PROPERTIES",object,fSclear_compiler_properties,SI  DEFUN_NEW("CLEAR-COMPILER-PROPERTIES",object,fSclear_compiler_properties,SI
557     ,2,2,NONE,OO,OO,OO,OO,siLclear_compiler_properties,"")(x0,x1)     ,2,2,NONE,OO,OO,OO,OO,(object x0,object x1),"")
558  object x0,x1;  
559  {  {
560          /* 2 args */          /* 2 args */
561    RETURN1(Cnil);    RETURN1(Cnil);

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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