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) { |
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 |
} |
} |
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) |