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 |
|
|
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; |
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; |
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)) |
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; |
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)(); |
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); |
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); |
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); |
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); |