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

Diff of /gcl/o/toplevel.c

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

revision 1.12 by camm, Wed Sep 7 02:58:39 2005 UTC revision 1.13 by camm, Thu Oct 6 20:30:09 2005 UTC
# Line 47  FFN(Fdefun)(object args) Line 47  FFN(Fdefun)(object args)
47    
48          if (endp(args) || endp(MMcdr(args)))          if (endp(args) || endp(MMcdr(args)))
49                  FEtoo_few_argumentsF(args);                  FEtoo_few_argumentsF(args);
50          if (MMcadr(args) != Cnil && type_of(MMcadr(args)) != t_cons)          if (MMcadr(args) != Cnil && !consp(MMcadr(args)))
51                  FEerror("~S is an illegal lambda-list.", 1, MMcadr(args));                  FEerror("~S is an illegal lambda-list.", 1, MMcadr(args));
52          name = MMcar(args);          name = MMcar(args);
53          if (type_of(name) != t_symbol) {          if (type_of(name) != t_symbol) {
# Line 106  FFN(Fdefun)(object args) Line 106  FFN(Fdefun)(object args)
106              vs_popp;              vs_popp;
107              break;              break;
108            }            }
109            if (type_of(form) != t_cons || form->c.c_car != sLdeclare)            if (!consp(form) || form->c.c_car != sLdeclare)
110              break;              break;
111          }          }
112  }  }
# Line 205  FFN(Fthe)(object args) Line 205  FFN(Fthe)(object args)
205                  FEtoo_many_argumentsF(args);                  FEtoo_many_argumentsF(args);
206          eval(MMcadr(args));          eval(MMcadr(args));
207          args = MMcar(args);          args = MMcar(args);
208          if (type_of(args) == t_cons && MMcar(args) == sLvalues) {          if (consp(args) && MMcar(args) == sLvalues) {
209            vs = vs_base;            vs = vs_base;
210            for (args=MMcdr(args); !endp(args) && vs<vs_top; args=MMcdr(args), vs++)            for (args=MMcdr(args); !endp(args) && vs<vs_top; args=MMcdr(args), vs++)
211              /*                  { if (vs >= vs_top)              /*                  { if (vs >= vs_top)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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