/[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.3 by camm, Tue Aug 20 23:23:57 2002 UTC revision 1.4 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 61  object sSAinhibit_macro_specialA; Line 61  object sSAinhibit_macro_specialA;
61  void  void
62  setq(object sym, object val)  setq(object sym, object val)
63  {  {
         object endp_temp;  
64          object vd;          object vd;
65          enum stype type;          enum stype type;
66    
# Line 85  setq(object sym, object val) Line 84  setq(object sym, object val)
84  void  void
85  Fsetq(object form)  Fsetq(object form)
86  {  {
         object endp_temp;  
87          object ans;          object ans;
88          if (endp(form)) {          if (endp(form)) {
89                  vs_base = vs_top;                  vs_base = vs_top;
# Line 108  Fsetq(object form) Line 106  Fsetq(object form)
106  void  void
107  Fpsetq(object arg)  Fpsetq(object arg)
108  {  {
         object endp_temp;  
109          object *old_top = vs_top;          object *old_top = vs_top;
110          object *top;          object *top;
111          object argsv = arg;          object argsv = arg;
# Line 188  Fmultiple_value_setq(object form) Line 185  Fmultiple_value_setq(object form)
185  {  {
186          object vars;          object vars;
187          int n, i;          int n, i;
         object endp_temp;  
188    
189          if (endp(form) || endp(form->c.c_cdr) ||          if (endp(form) || endp(form->c.c_cdr) ||
190              !endp(form->c.c_cdr->c.c_cdr))              !endp(form->c.c_cdr->c.c_cdr))
# Line 254  object sym; Line 250  object sym;
250  void  void
251  Fsetf(object form)  Fsetf(object form)
252  {  {
         object endp_temp;  
253          object result;          object result;
254          if (endp(form)) {          if (endp(form)) {
255                  vs_base = vs_top;                  vs_base = vs_top;
# Line 285  Fsetf(object form) Line 280  Fsetf(object form)
280  object  object
281  setf(object place, object form)  setf(object place, object form)
282  {  {
         object endp_temp;  
283          object fun;          object fun;
284          object *vs = vs_top;          object *vs = vs_top;
285          void (*f)();          void (*f)();
# Line 405  void Line 399  void
399  Fpush(object form)  Fpush(object form)
400  {  {
401          object var;          object var;
         object endp_temp;  
402                    
403          if (endp(form) || endp(MMcdr(form)))          if (endp(form) || endp(MMcdr(form)))
404                  FEtoo_few_argumentsF(form);                  FEtoo_few_argumentsF(form);
# Line 437  void Line 430  void
430  Fpop(object form)  Fpop(object form)
431  {  {
432          object var;          object var;
         object endp_temp;  
433    
434          if (endp(form))          if (endp(form))
435                  FEtoo_few_argumentsF(form);                  FEtoo_few_argumentsF(form);
# Line 468  Fincf(object form) Line 460  Fincf(object form)
460  {  {
461          object var;          object var;
462          object one_plus(object x), number_plus(object x, object y);          object one_plus(object x), number_plus(object x, object y);
         object endp_temp;  
463    
464          if (endp(form))          if (endp(form))
465                  FEtoo_few_argumentsF(form);                  FEtoo_few_argumentsF(form);
# Line 507  Fdecf(object form) Line 498  Fdecf(object form)
498  {  {
499          object var;          object var;
500          object one_minus(object x), number_minus(object x, object y);          object one_minus(object x), number_minus(object x, object y);
         object endp_temp;  
501    
502          if (endp(form))          if (endp(form))
503                  FEtoo_few_argumentsF(form);                  FEtoo_few_argumentsF(form);

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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