23 |
goto T3; |
goto T3; |
24 |
T3:; |
T3:; |
25 |
{register object V10; |
{register object V10; |
26 |
V10= caar((V8)); |
V10= CMPcaar((V8)); |
27 |
if(!(type_of((V10))!=t_cons)){ |
if(!(type_of((V10))!=t_cons)){ |
28 |
goto T10;} |
goto T10;} |
29 |
{object V11; |
{object V11; |
34 |
goto T14; |
goto T14; |
35 |
T14:; |
T14:; |
36 |
{register object x= (V10),V12= VV[0]; |
{register object x= (V10),V12= VV[0]; |
37 |
while(!endp(V12)) |
while(V12!=Cnil) |
38 |
if(eql(x,V12->c.c_car)){ |
if(eql(x,V12->c.c_car)){ |
39 |
goto T18; |
goto T18; |
40 |
}else V12=V12->c.c_cdr; |
}else V12=V12->c.c_cdr; |
42 |
goto T18; |
goto T18; |
43 |
T18:; |
T18:; |
44 |
{register object x= (V4),V13= VV[1]; |
{register object x= (V4),V13= VV[1]; |
45 |
while(!endp(V13)) |
while(V13!=Cnil) |
46 |
if(eql(x,V13->c.c_car)){ |
if(eql(x,V13->c.c_car)){ |
47 |
goto T19; |
goto T19; |
48 |
}else V13=V13->c.c_cdr;} |
}else V13=V13->c.c_cdr;} |
72 |
{register object V17; |
{register object V17; |
73 |
register object V18; |
register object V18; |
74 |
V17= (V10); |
V17= (V10); |
75 |
V18= car((V17)); |
V18= CMPcar((V17)); |
76 |
goto T34; |
goto T34; |
77 |
T34:; |
T34:; |
78 |
if(!(endp_prop((V17)))){ |
if(!(((V17))==Cnil)){ |
79 |
goto T35;} |
goto T35;} |
80 |
goto T7; |
goto T7; |
81 |
goto T35; |
goto T35; |
83 |
{register object V19; |
{register object V19; |
84 |
V19= (V18); |
V19= (V18); |
85 |
V7= make_cons((V19),(V7));} |
V7= make_cons((V19),(V7));} |
86 |
V17= cdr((V17)); |
V17= CMPcdr((V17)); |
87 |
V18= car((V17)); |
V18= CMPcar((V17)); |
88 |
goto T34;}} |
goto T34;}} |
89 |
goto T7; |
goto T7; |
90 |
T7:; |
T7:; |
91 |
V8= cdr((V8)); |
V8= CMPcdr((V8)); |
92 |
goto T2;} |
goto T2;} |
93 |
base[0]=base[0]; |
base[0]=base[0]; |
94 |
return Cnil; |
return Cnil; |
112 |
goto T52; |
goto T52; |
113 |
T52:; |
T52:; |
114 |
{register object V24; |
{register object V24; |
115 |
V24= caar((V22)); |
V24= CMPcaar((V22)); |
116 |
{register object x= (V24),V25= VV[3]; |
{register object x= (V24),V25= VV[3]; |
117 |
while(!endp(V25)) |
while(V25!=Cnil) |
118 |
if(eql(x,V25->c.c_car)){ |
if(eql(x,V25->c.c_car)){ |
119 |
goto T59; |
goto T59; |
120 |
}else V25=V25->c.c_cdr; |
}else V25=V25->c.c_cdr; |
121 |
goto T56;} |
goto T56;} |
122 |
goto T59; |
goto T59; |
123 |
T59:; |
T59:; |
124 |
V26= car((V22)); |
V26= CMPcar((V22)); |
125 |
V27= make_cons((V24),Cnil); |
V27= make_cons((V24),Cnil); |
|
if(type_of(/* INLINE-ARGS */V26)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V26); |
|
126 |
(/* INLINE-ARGS */V26)->c.c_car = /* INLINE-ARGS */V27;} |
(/* INLINE-ARGS */V26)->c.c_car = /* INLINE-ARGS */V27;} |
127 |
goto T56; |
goto T56; |
128 |
T56:; |
T56:; |
129 |
V22= cdr((V22)); |
V22= CMPcdr((V22)); |
130 |
goto T51;} |
goto T51;} |
131 |
return Cnil; |
return Cnil; |
132 |
} |
} |
135 |
static void L3() |
static void L3() |
136 |
{register object *base=vs_base; |
{register object *base=vs_base; |
137 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
138 |
vs_reserve(VM3); |
vs_check; |
|
check_arg(2); |
|
139 |
vs_top=sup; |
vs_top=sup; |
140 |
{object V28=base[0]->c.c_cdr; |
{object V28=base[0]->c.c_cdr; |
|
if(endp(V28))invalid_macro_call(); |
|
141 |
base[2]= (V28->c.c_car); |
base[2]= (V28->c.c_car); |
142 |
V28=V28->c.c_cdr; |
V28=V28->c.c_cdr; |
143 |
base[3]= V28;} |
base[3]= V28;} |
164 |
static void L4() |
static void L4() |
165 |
{register object *base=vs_base; |
{register object *base=vs_base; |
166 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
167 |
vs_reserve(VM4); |
vs_check; |
|
check_arg(2); |
|
168 |
vs_top=sup; |
vs_top=sup; |
169 |
{object V37=base[0]->c.c_cdr; |
{object V37=base[0]->c.c_cdr; |
|
if(endp(V37))invalid_macro_call(); |
|
170 |
base[2]= (V37->c.c_car); |
base[2]= (V37->c.c_car); |
171 |
V37=V37->c.c_cdr; |
V37=V37->c.c_cdr; |
172 |
base[3]= V37;} |
base[3]= V37;} |
199 |
static void L5() |
static void L5() |
200 |
{register object *base=vs_base; |
{register object *base=vs_base; |
201 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
202 |
vs_reserve(VM5); |
vs_check; |
|
check_arg(2); |
|
203 |
vs_top=sup; |
vs_top=sup; |
204 |
{object V48=base[0]->c.c_cdr; |
{object V48=base[0]->c.c_cdr; |
|
if(endp(V48))invalid_macro_call(); |
|
205 |
base[2]= (V48->c.c_car); |
base[2]= (V48->c.c_car); |
206 |
V48=V48->c.c_cdr; |
V48=V48->c.c_cdr; |
207 |
base[3]= V48;} |
base[3]= V48;} |
226 |
static void L6() |
static void L6() |
227 |
{register object *base=vs_base; |
{register object *base=vs_base; |
228 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
229 |
vs_reserve(VM6); |
vs_check; |
|
check_arg(2); |
|
230 |
vs_top=sup; |
vs_top=sup; |
231 |
{object V56=base[0]->c.c_cdr; |
{object V56=base[0]->c.c_cdr; |
|
if(endp(V56))invalid_macro_call(); |
|
232 |
base[2]= (V56->c.c_car); |
base[2]= (V56->c.c_car); |
233 |
V56=V56->c.c_cdr; |
V56=V56->c.c_cdr; |
234 |
base[3]= V56;} |
base[3]= V56;} |
271 |
goto T79;} |
goto T79;} |
272 |
base[0]= (V69); |
base[0]= (V69); |
273 |
base[1]= VV[49]; |
base[1]= VV[49]; |
274 |
base[2]= make_fixnum((long)length((V68))); |
base[2]= CMPmake_fixnum((long)length((V68))); |
275 |
base[3]= (V68); |
base[3]= (V68); |
276 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
277 |
Lformat(); |
Lformat(); |
295 |
static void L8() |
static void L8() |
296 |
{register object *base=vs_base; |
{register object *base=vs_base; |
297 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
298 |
vs_reserve(VM8); |
vs_check; |
299 |
{object V72; |
{object V72; |
300 |
object V73; |
object V73; |
|
check_arg(2); |
|
301 |
V72=(base[0]); |
V72=(base[0]); |
302 |
V73=(base[1]); |
V73=(base[1]); |
303 |
vs_top=sup; |
vs_top=sup; |
311 |
vs_top=sup; |
vs_top=sup; |
312 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
313 |
goto T88;} |
goto T88;} |
314 |
base[2]= symbol_value(VV[52]); |
base[2]= (VV[52]->s.s_dbind); |
315 |
base[3]= VV[53]; |
base[3]= VV[53]; |
316 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
317 |
Lformat(); |
Lformat(); |
325 |
base[3]= make_cons((V73),Cnil); |
base[3]= make_cons((V73),Cnil); |
326 |
values= base[3]; |
values= base[3]; |
327 |
while(!endp(symbols)){ |
while(!endp(symbols)){ |
|
if(type_of(MMcar(symbols))!=t_symbol) |
|
|
FEinvalid_variable("~s is not a symbol.",MMcar(symbols)); |
|
328 |
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
329 |
else{bds_bind(MMcar(symbols),MMcar(values)); |
else{bds_bind(MMcar(symbols),MMcar(values)); |
330 |
values=MMcdr(values);} |
values=MMcdr(values);} |
350 |
static void L10() |
static void L10() |
351 |
{register object *base=vs_base; |
{register object *base=vs_base; |
352 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
353 |
vs_reserve(VM9); |
vs_check; |
354 |
{object V75; |
{object V75; |
|
check_arg(1); |
|
355 |
V75=(base[0]); |
V75=(base[0]); |
356 |
vs_top=sup; |
vs_top=sup; |
357 |
goto TTL; |
goto TTL; |
375 |
static void L11() |
static void L11() |
376 |
{register object *base=vs_base; |
{register object *base=vs_base; |
377 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
378 |
vs_reserve(VM10); |
vs_check; |
|
check_arg(2); |
|
379 |
vs_top=sup; |
vs_top=sup; |
380 |
{object V76=base[0]->c.c_cdr; |
{object V76=base[0]->c.c_cdr; |
|
if(endp(V76))invalid_macro_call(); |
|
381 |
base[2]= (V76->c.c_car); |
base[2]= (V76->c.c_car); |
382 |
V76=V76->c.c_cdr; |
V76=V76->c.c_cdr; |
383 |
if(endp(V76)){ |
if(endp(V76)){ |
408 |
V79= list(3,VV[27],VV[61],list(3,VV[62],list(2,VV[14],base[3]),VV[30])); |
V79= list(3,VV[27],VV[61],list(3,VV[62],list(2,VV[14],base[3]),VV[30])); |
409 |
{object V81; |
{object V81; |
410 |
object V82= base[3]; |
object V82= base[3]; |
411 |
if(endp(V82)){ |
if(V82==Cnil){ |
412 |
V80= Cnil; |
V80= Cnil; |
413 |
goto T117;} |
goto T117;} |
414 |
base[6]=V81=MMcons(Cnil,Cnil); |
base[6]=V81=MMcons(Cnil,Cnil); |
415 |
goto T118; |
goto T118; |
416 |
T118:; |
T118:; |
417 |
(V81->c.c_car)= list(3,VV[34],(V82->c.c_car),list(3,VV[63],list(2,VV[14],(V82->c.c_car)),(V82->c.c_car))); |
(V81->c.c_car)= list(3,VV[34],(V82->c.c_car),list(3,VV[63],list(2,VV[14],(V82->c.c_car)),(V82->c.c_car))); |
418 |
V82=MMcdr(V82); |
if((V82=MMcdr(V82))==Cnil){ |
|
if(endp(V82)){ |
|
419 |
V80= base[6]; |
V80= base[6]; |
420 |
goto T117;} |
goto T117;} |
421 |
V81=MMcdr(V81)=MMcons(Cnil,Cnil); |
V81=MMcdr(V81)=MMcons(Cnil,Cnil); |
435 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
436 |
goto TTL; |
goto TTL; |
437 |
TTL:; |
TTL:; |
438 |
base[0]= symbol_value(VV[52]); |
base[0]= (VV[52]->s.s_dbind); |
439 |
base[1]= VV[64]; |
base[1]= VV[64]; |
440 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
441 |
Lformat(); |
Lformat(); |
442 |
vs_top=sup; |
vs_top=sup; |
443 |
base[1]= symbol_value(VV[52]); |
base[1]= (VV[52]->s.s_dbind); |
444 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
445 |
Lread(); |
Lread(); |
446 |
vs_top=sup; |
vs_top=sup; |
459 |
static void L13() |
static void L13() |
460 |
{register object *base=vs_base; |
{register object *base=vs_base; |
461 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
462 |
vs_reserve(VM12); |
vs_check; |
|
check_arg(2); |
|
463 |
vs_top=sup; |
vs_top=sup; |
464 |
{object V88=base[0]->c.c_cdr; |
{object V88=base[0]->c.c_cdr; |
|
if(endp(V88))invalid_macro_call(); |
|
465 |
base[2]= (V88->c.c_car); |
base[2]= (V88->c.c_car); |
466 |
V88=V88->c.c_cdr; |
V88=V88->c.c_cdr; |
|
if(endp(V88))invalid_macro_call(); |
|
467 |
base[3]= (V88->c.c_car); |
base[3]= (V88->c.c_car); |
468 |
V88=V88->c.c_cdr; |
V88=V88->c.c_cdr; |
469 |
if(endp(V88)){ |
if(endp(V88)){ |
470 |
base[4]= Cnil; |
base[4]= Cnil; |
471 |
} else { |
} else { |
472 |
base[4]= (V88->c.c_car); |
base[4]= (V88->c.c_car);}} |
|
V88=V88->c.c_cdr;} |
|
|
if(!endp(V88))invalid_macro_call();} |
|
473 |
{object V89; |
{object V89; |
474 |
object V90; |
object V90; |
475 |
vs_base=vs_top; |
vs_base=vs_top; |
504 |
register object *base0; |
register object *base0; |
505 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
506 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
507 |
vs_reserve(VM13); |
vs_check; |
|
check_arg(0); |
|
508 |
vs_top=sup; |
vs_top=sup; |
509 |
goto TTL; |
goto TTL; |
510 |
TTL:; |
TTL:; |
511 |
base[1]= symbol_value(VV[52]); |
base[1]= (VV[52]->s.s_dbind); |
512 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
513 |
Lread(); |
Lread(); |
514 |
vs_top=sup; |
vs_top=sup; |