31 |
V2=(base[0]); |
V2=(base[0]); |
32 |
vs_top=sup; |
vs_top=sup; |
33 |
goto T2; |
goto T2; |
34 |
goto T1; |
goto T1; |
35 |
T1:; |
T1:; |
36 |
V2= VV[1]; |
V2= VV[1]; |
37 |
goto T2; |
goto T2; |
38 |
T2:; |
T2:; |
39 |
if((symbol_value(VV[2]))==Cnil){ |
if((symbol_value(VV[2]))==Cnil){ |
40 |
goto T5;} |
goto T5;} |
42 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
43 |
Lgentemp(); |
Lgentemp(); |
44 |
return; |
return; |
45 |
goto T5; |
goto T5; |
46 |
T5:; |
T5:; |
47 |
vs_base=vs_top; |
vs_base=vs_top; |
48 |
Lgensym(); |
Lgensym(); |
141 |
goto T14;} |
goto T14;} |
142 |
V12= list(2,base[4],Cnil); |
V12= list(2,base[4],Cnil); |
143 |
V11= make_cons(/* INLINE-ARGS */V12,Cnil); |
V11= make_cons(/* INLINE-ARGS */V12,Cnil); |
144 |
goto T14; |
goto T14; |
145 |
T14:; |
T14:; |
146 |
V13= list(2,base[2],VV[4]); |
V13= list(2,base[2],VV[4]); |
147 |
base[6]= listA(3,VV[3],listA(3,/* INLINE-ARGS */V13,list(2,base[3],base[2]),(V11)),base[5]); |
base[6]= listA(3,VV[3],listA(3,/* INLINE-ARGS */V13,list(2,base[3],base[2]),(V11)),base[5]); |
191 |
V18 = make_fixnum((long)length(cdr(base[5]))); |
V18 = make_fixnum((long)length(cdr(base[5]))); |
192 |
V17= one_minus(V18); |
V17= one_minus(V18); |
193 |
goto T20; |
goto T20; |
194 |
goto T24; |
goto T24; |
195 |
T24:; |
T24:; |
196 |
{register object x= car(base[5]),V19= VV[6]; |
{register object x= car(base[5]),V19= VV[6]; |
197 |
while(!endp(V19)) |
while(!endp(V19)) |
199 |
goto T28; |
goto T28; |
200 |
}else V19=V19->c.c_cdr; |
}else V19=V19->c.c_cdr; |
201 |
goto T20;} |
goto T20;} |
202 |
goto T28; |
goto T28; |
203 |
T28:; |
T28:; |
204 |
if((cddr(base[5]))==Cnil){ |
if((cddr(base[5]))==Cnil){ |
205 |
goto T20;} |
goto T20;} |
214 |
goto T32; |
goto T32; |
215 |
}else V20=V20->c.c_cdr; |
}else V20=V20->c.c_cdr; |
216 |
goto T20;} |
goto T20;} |
217 |
goto T32; |
goto T32; |
218 |
T32:; |
T32:; |
219 |
V22 = make_fixnum((long)length(cdr(base[5]))); |
V22 = make_fixnum((long)length(cdr(base[5]))); |
220 |
V17= number_minus(V22,small_fixnum(2)); |
V17= number_minus(V22,small_fixnum(2)); |
221 |
goto T20; |
goto T20; |
222 |
T20:; |
T20:; |
223 |
{object V23; |
{object V23; |
224 |
if(((V17))!=Cnil){ |
if(((V17))!=Cnil){ |
226 |
V24= list(3,VV[9],list(2,VV[10],base[3]),base[5]); |
V24= list(3,VV[9],list(2,VV[10],base[3]),base[5]); |
227 |
V23= list(3,VV[8],/* INLINE-ARGS */V24,list(3,VV[11],base[3],list(2,VV[12],list(2,VV[10],base[3])))); |
V23= list(3,VV[8],/* INLINE-ARGS */V24,list(3,VV[11],base[3],list(2,VV[12],list(2,VV[10],base[3])))); |
228 |
goto T36; |
goto T36; |
229 |
goto T38; |
goto T38; |
230 |
T38:; |
T38:; |
231 |
if(!(number_compare((V17),small_fixnum(0))<0)){ |
if(!(number_compare((V17),small_fixnum(0))<0)){ |
232 |
goto T41;} |
goto T41;} |
233 |
base[6]= Cnil; |
base[6]= Cnil; |
234 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
235 |
return; |
return; |
236 |
goto T41; |
goto T41; |
237 |
T41:; |
T41:; |
238 |
if(!(number_compare((V17),small_fixnum(0))==0)){ |
if(!(number_compare((V17),small_fixnum(0))==0)){ |
239 |
goto T44;} |
goto T44;} |
240 |
V23= list(3,VV[13],base[3],list(3,VV[11],base[3],base[5])); |
V23= list(3,VV[13],base[3],list(3,VV[11],base[3],base[5])); |
241 |
goto T36; |
goto T36; |
242 |
goto T44; |
goto T44; |
243 |
T44:; |
T44:; |
244 |
base[6]= list(3,VV[9],list(2,VV[10],base[3]),base[5]); |
base[6]= list(3,VV[9],list(2,VV[10],base[3]),base[5]); |
245 |
base[7]= (V17); |
base[7]= (V17); |
248 |
vs_top=sup; |
vs_top=sup; |
249 |
V25= vs_base[0]; |
V25= vs_base[0]; |
250 |
V23= list(3,VV[11],base[3],V25); |
V23= list(3,VV[11],base[3],V25); |
251 |
goto T36; |
goto T36; |
252 |
T36:; |
T36:; |
253 |
if((base[4])==Cnil){ |
if((base[4])==Cnil){ |
254 |
goto T49;} |
goto T49;} |
255 |
V23= list(3,VV[14],(V23),list(3,VV[11],base[4],list(2,VV[10],base[2]))); |
V23= list(3,VV[14],(V23),list(3,VV[11],base[4],list(2,VV[10],base[2]))); |
256 |
goto T49; |
goto T49; |
257 |
T49:; |
T49:; |
258 |
base[6]= (V23); |
base[6]= (V23); |
259 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
355 |
goto T76;} |
goto T76;} |
356 |
base[9]= Cnil; |
base[9]= Cnil; |
357 |
goto T75; |
goto T75; |
358 |
goto T76; |
goto T76; |
359 |
T76:; |
T76:; |
360 |
base[10]= VV[26]; |
base[10]= VV[26]; |
361 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
362 |
(void) (*Lnk327)(); |
(void) (*Lnk327)(); |
363 |
vs_top=sup; |
vs_top=sup; |
364 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
365 |
goto T75; |
goto T75; |
366 |
T75:; |
T75:; |
367 |
base[10]= VV[27]; |
base[10]= VV[27]; |
368 |
base[11]= Cnil; |
base[11]= Cnil; |
406 |
vs_top=sup; |
vs_top=sup; |
407 |
V43= vs_base[0]; |
V43= vs_base[0]; |
408 |
(void)(structure_set((V38),VV[18],3,V43)); |
(void)(structure_set((V38),VV[18],3,V43)); |
409 |
goto T87; |
goto T87; |
410 |
T87:; |
T87:; |
411 |
base[2]= (V37); |
base[2]= (V37); |
412 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
453 |
base[4]= listA(4,VV[29],/* INLINE-ARGS */V55,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]); |
base[4]= listA(4,VV[29],/* INLINE-ARGS */V55,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]); |
454 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
455 |
return; |
return; |
456 |
goto T103; |
goto T103; |
457 |
T103:; |
T103:; |
458 |
if(!(((V46))==(VV[32]))){ |
if(!(((V46))==(VV[32]))){ |
459 |
goto T107;} |
goto T107;} |
460 |
V56= car((V47)); |
V56= car((V47)); |
461 |
goto T105; |
goto T105; |
462 |
goto T107; |
goto T107; |
463 |
T107:; |
T107:; |
464 |
V56= cadr((V47)); |
V56= cadr((V47)); |
465 |
goto T105; |
goto T105; |
466 |
T105:; |
T105:; |
467 |
V57= list(2,(V48),V56); |
V57= list(2,(V48),V56); |
468 |
V58= list(2,/* INLINE-ARGS */V57,list(2,(V49),(V45))); |
V58= list(2,/* INLINE-ARGS */V57,list(2,(V49),(V45))); |
502 |
if((V65!= VV[32]))goto T117; |
if((V65!= VV[32]))goto T117; |
503 |
V64= VV[33]; |
V64= VV[33]; |
504 |
goto T116; |
goto T116; |
505 |
goto T117; |
goto T117; |
506 |
T117:; |
T117:; |
507 |
if((V65!= VV[330]))goto T118; |
if((V65!= VV[330]))goto T118; |
508 |
V64= VV[34]; |
V64= VV[34]; |
509 |
goto T116; |
goto T116; |
510 |
goto T118; |
goto T118; |
511 |
T118:; |
T118:; |
512 |
FEerror("The ECASE key value ~s is illegal.",1,V65); |
FEerror("The ECASE key value ~s is illegal.",1,V65); |
513 |
V64= Cnil; |
V64= Cnil; |
514 |
goto T116;} |
goto T116;} |
515 |
goto T116; |
goto T116; |
516 |
T116:; |
T116:; |
517 |
base[11]= list(3,V64,(V61),(V60)); |
base[11]= list(3,V64,(V61),(V60)); |
518 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
524 |
goto T121;} |
goto T121;} |
525 |
V67= list(3,VV[35],list(2,VV[36],(V62)),(V63)); |
V67= list(3,VV[35],list(2,VV[36],(V62)),(V63)); |
526 |
goto T119; |
goto T119; |
527 |
goto T121; |
goto T121; |
528 |
T121:; |
T121:; |
529 |
V67= (V63); |
V67= (V63); |
530 |
goto T119; |
goto T119; |
531 |
T119:; |
T119:; |
532 |
if((V62)==Cnil){ |
if((V62)==Cnil){ |
533 |
V68= Cnil; |
V68= Cnil; |
534 |
goto T123;} |
goto T123;} |
535 |
V68= list(2,(V62),Ct); |
V68= list(2,(V62),Ct); |
536 |
goto T123; |
goto T123; |
537 |
T123:; |
T123:; |
538 |
V69= list(2,(V60),(V61)); |
V69= list(2,(V60),(V61)); |
539 |
V70= append(V68,/* INLINE-ARGS */V69); |
V70= append(V68,/* INLINE-ARGS */V69); |
560 |
base[2]= Cnil; |
base[2]= Cnil; |
561 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
562 |
return; |
return; |
563 |
goto T124; |
goto T124; |
564 |
T124:; |
T124:; |
565 |
base[2]= (V71); |
base[2]= (V71); |
566 |
base[3]= (V72); |
base[3]= (V72); |
588 |
base[2]= Cnil; |
base[2]= Cnil; |
589 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
590 |
return; |
return; |
591 |
goto T128; |
goto T128; |
592 |
T128:; |
T128:; |
593 |
base[2]= (V73); |
base[2]= (V73); |
594 |
base[3]= (V74); |
base[3]= (V74); |
618 |
base[2]= Cnil; |
base[2]= Cnil; |
619 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
620 |
return; |
return; |
621 |
goto T134; |
goto T134; |
622 |
T134:; |
T134:; |
623 |
base[2]= (V75); |
base[2]= (V75); |
624 |
base[3]= (V76); |
base[3]= (V76); |
648 |
base[2]= Cnil; |
base[2]= Cnil; |
649 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
650 |
return; |
return; |
651 |
goto T140; |
goto T140; |
652 |
T140:; |
T140:; |
653 |
base[3]= symbol_name((V77)); |
base[3]= symbol_name((V77)); |
654 |
base[4]= (V78); |
base[4]= (V78); |
743 |
if((V92!= Cnil))goto T155; |
if((V92!= Cnil))goto T155; |
744 |
V91= VV[40]; |
V91= VV[40]; |
745 |
goto T154; |
goto T154; |
746 |
goto T155; |
goto T155; |
747 |
T155:; |
T155:; |
748 |
if((V92!= Ct))goto T156; |
if((V92!= Ct))goto T156; |
749 |
V91= VV[41]; |
V91= VV[41]; |
750 |
goto T154; |
goto T154; |
751 |
goto T156; |
goto T156; |
752 |
T156:; |
T156:; |
753 |
if((V92!= VV[307]))goto T157; |
if((V92!= VV[307]))goto T157; |
754 |
V91= VV[42]; |
V91= VV[42]; |
755 |
goto T154; |
goto T154; |
756 |
goto T157; |
goto T157; |
757 |
T157:; |
T157:; |
758 |
V91= structure_ref((V88),VV[39],6);} |
V91= structure_ref((V88),VV[39],6);} |
759 |
goto T154; |
goto T154; |
760 |
T154:; |
T154:; |
761 |
base[3]= (V89); |
base[3]= (V89); |
762 |
base[4]= VV[43]; |
base[4]= VV[43]; |
796 |
V100=(base[6]); |
V100=(base[6]); |
797 |
bds_bind(VV[44],small_fixnum(4)); |
bds_bind(VV[44],small_fixnum(4)); |
798 |
bds_bind(VV[45],small_fixnum(4)); |
bds_bind(VV[45],small_fixnum(4)); |
799 |
goto T165; |
goto T165; |
800 |
T165:; |
T165:; |
801 |
base[16]= (V100); |
base[16]= (V100); |
802 |
base[17]= VV[46]; |
base[17]= VV[46]; |
808 |
bds_unwind1; |
bds_unwind1; |
809 |
bds_unwind1; |
bds_unwind1; |
810 |
goto T163; |
goto T163; |
811 |
goto T166; |
goto T166; |
812 |
T166:; |
T166:; |
813 |
base[16]= VV[47]; |
base[16]= VV[47]; |
814 |
base[17]= VV[48]; |
base[17]= VV[48]; |
838 |
Lformat(); |
Lformat(); |
839 |
vs_top=sup; |
vs_top=sup; |
840 |
goto T165; |
goto T165; |
841 |
goto T163; |
goto T163; |
842 |
T163:; |
T163:; |
843 |
base[14]= VV[53]; |
base[14]= VV[53]; |
844 |
base[16]= (V94); |
base[16]= (V94); |
883 |
goto T217;} |
goto T217;} |
884 |
base[33]= small_fixnum(10); |
base[33]= small_fixnum(10); |
885 |
goto T215; |
goto T215; |
886 |
goto T217; |
goto T217; |
887 |
T217:; |
T217:; |
888 |
base[33]= (V101); |
base[33]= (V101); |
889 |
goto T215; |
goto T215; |
890 |
T215:; |
T215:; |
891 |
base[34]= VV[20]; |
base[34]= VV[20]; |
892 |
base[35]= symbol_function(VV[334]); |
base[35]= symbol_function(VV[334]); |
898 |
register object V104; |
register object V104; |
899 |
V103= (V99); |
V103= (V99); |
900 |
V104= car((V103)); |
V104= car((V103)); |
901 |
goto T225; |
goto T225; |
902 |
T225:; |
T225:; |
903 |
if(!(endp_prop((V103)))){ |
if(!(endp_prop((V103)))){ |
904 |
goto T226;} |
goto T226;} |
905 |
goto T221; |
goto T221; |
906 |
goto T226; |
goto T226; |
907 |
T226:; |
T226:; |
908 |
if(!(type_of((V104))!=t_cons)){ |
if(!(type_of((V104))!=t_cons)){ |
909 |
goto T232;} |
goto T232;} |
914 |
siLhash_set(); |
siLhash_set(); |
915 |
vs_top=sup; |
vs_top=sup; |
916 |
goto T230; |
goto T230; |
917 |
goto T232; |
goto T232; |
918 |
T232:; |
T232:; |
919 |
{object V108; |
{object V108; |
920 |
object V110; |
object V110; |
926 |
vs_top=(vs_base=base+35)+3; |
vs_top=(vs_base=base+35)+3; |
927 |
siLhash_set(); |
siLhash_set(); |
928 |
vs_top=sup;} |
vs_top=sup;} |
929 |
goto T230; |
goto T230; |
930 |
T230:; |
T230:; |
931 |
V103= cdr((V103)); |
V103= cdr((V103)); |
932 |
V104= car((V103)); |
V104= car((V103)); |
933 |
goto T225;} |
goto T225;} |
934 |
goto T221; |
goto T221; |
935 |
T221:; |
T221:; |
936 |
base[29]= (V102);} |
base[29]= (V102);} |
937 |
vs_top=(vs_base=base+14)+16; |
vs_top=(vs_base=base+14)+16; |
960 |
goto T250;} |
goto T250;} |
961 |
V113= cadr((V111)); |
V113= cadr((V111)); |
962 |
goto T248; |
goto T248; |
963 |
goto T250; |
goto T250; |
964 |
T250:; |
T250:; |
965 |
V114= cadr((V111)); |
V114= cadr((V111)); |
966 |
base[2]= cddr((V111)); |
base[2]= cddr((V111)); |
969 |
vs_top=sup; |
vs_top=sup; |
970 |
V115= vs_base[0]; |
V115= vs_base[0]; |
971 |
V113= list(3,VV[62],/* INLINE-ARGS */V114,V115); |
V113= list(3,VV[62],/* INLINE-ARGS */V114,V115); |
972 |
goto T248; |
goto T248; |
973 |
T248:; |
T248:; |
974 |
base[1]= list(2,/* INLINE-ARGS */V112,V113); |
base[1]= list(2,/* INLINE-ARGS */V112,V113); |
975 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
994 |
base[1]= Cnil; |
base[1]= Cnil; |
995 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
996 |
return; |
return; |
997 |
goto T255; |
goto T255; |
998 |
T255:; |
T255:; |
999 |
if((symbol_value(VV[63]))==Cnil){ |
if((symbol_value(VV[63]))==Cnil){ |
1000 |
goto T259;} |
goto T259;} |
1001 |
V117= cadr(symbol_value(VV[63])); |
V117= cadr(symbol_value(VV[63])); |
1002 |
goto T257; |
goto T257; |
1003 |
goto T259; |
goto T259; |
1004 |
T259:; |
T259:; |
1005 |
V117= VV[64]; |
V117= VV[64]; |
1006 |
goto T257; |
goto T257; |
1007 |
T257:; |
T257:; |
1008 |
base[1]= make_cons(V117,(V116)); |
base[1]= make_cons(V117,(V116)); |
1009 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1022 |
base[2]= V118;} |
base[2]= V118;} |
1023 |
{register object V119; |
{register object V119; |
1024 |
V119= Cnil; |
V119= Cnil; |
1025 |
goto T262; |
goto T262; |
1026 |
T262:; |
T262:; |
1027 |
if((base[2])!=Cnil){ |
if((base[2])!=Cnil){ |
1028 |
goto T263;} |
goto T263;} |
1031 |
base[3]= car((V119)); |
base[3]= car((V119)); |
1032 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1033 |
return; |
return; |
1034 |
goto T267; |
goto T267; |
1035 |
T267:; |
T267:; |
1036 |
V120= nreverse((V119)); |
V120= nreverse((V119)); |
1037 |
base[3]= make_cons(VV[14],/* INLINE-ARGS */V120); |
base[3]= make_cons(VV[14],/* INLINE-ARGS */V120); |
1038 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1039 |
return; |
return; |
1040 |
goto T263; |
goto T263; |
1041 |
T263:; |
T263:; |
1042 |
{register object V121; |
{register object V121; |
1043 |
V121= car(base[2]); |
V121= car(base[2]); |
1074 |
V124=(base[1]); |
V124=(base[1]); |
1075 |
vs_top=sup; |
vs_top=sup; |
1076 |
goto T285; |
goto T285; |
1077 |
goto T284; |
goto T284; |
1078 |
T284:; |
T284:; |
1079 |
V124= Cnil; |
V124= Cnil; |
1080 |
goto T285; |
goto T285; |
1081 |
T285:; |
T285:; |
1082 |
{register object V126; |
{register object V126; |
1083 |
register object V127; |
register object V127; |
1095 |
Leval(); |
Leval(); |
1096 |
vs_top=sup; |
vs_top=sup; |
1097 |
V127= vs_base[0]; |
V127= vs_base[0]; |
1098 |
goto T287; |
goto T287; |
1099 |
T287:; |
T287:; |
1100 |
if(((V126))==Cnil){ |
if(((V126))==Cnil){ |
1101 |
goto T294;} |
goto T294;} |
1117 |
vs_top=sup; |
vs_top=sup; |
1118 |
V126= Cnil; |
V126= Cnil; |
1119 |
V127= Cnil; |
V127= Cnil; |
1120 |
goto T294; |
goto T294; |
1121 |
T294:; |
T294:; |
1122 |
base[2]= V123; |
base[2]= V123; |
1123 |
base[3]= (V126); |
base[3]= (V126); |
1168 |
V131= vs_base[0]; |
V131= vs_base[0]; |
1169 |
vs_top=sup; |
vs_top=sup; |
1170 |
goto T319; |
goto T319; |
1171 |
goto T317; |
goto T317; |
1172 |
T317:; |
T317:; |
1173 |
V130= Cnil; |
V130= Cnil; |
1174 |
goto T318; |
goto T318; |
1175 |
T318:; |
T318:; |
1176 |
V131= Cnil; |
V131= Cnil; |
1177 |
goto T319; |
goto T319; |
1178 |
T319:; |
T319:; |
1179 |
V132= number_minus((V130),(V131)); |
V132= number_minus((V130),(V131)); |
1180 |
V133= number_times(/* INLINE-ARGS */V132,small_fixnum(10)); |
V133= number_times(/* INLINE-ARGS */V132,small_fixnum(10)); |
1217 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1218 |
Lerror(); |
Lerror(); |
1219 |
vs_top=sup; |
vs_top=sup; |
1220 |
goto T323; |
goto T323; |
1221 |
T323:; |
T323:; |
1222 |
base[7]= reverse(base[3]); |
base[7]= reverse(base[3]); |
1223 |
base[8]= reverse(base[5]); |
base[8]= reverse(base[5]); |
1225 |
goto T332;} |
goto T332;} |
1226 |
if((base[7])!=Cnil){ |
if((base[7])!=Cnil){ |
1227 |
goto T331;} |
goto T331;} |
1228 |
goto T332; |
goto T332; |
1229 |
T332:; |
T332:; |
1230 |
vs_base=vs_top; |
vs_base=vs_top; |
1231 |
L35(base); |
L35(base); |
1232 |
return; |
return; |
1233 |
goto T331; |
goto T331; |
1234 |
T331:; |
T331:; |
1235 |
{register long V135; |
{register long V135; |
1236 |
base[10]= base[1]; |
base[10]= base[1]; |
1238 |
(void) (*Lnk340)(); |
(void) (*Lnk340)(); |
1239 |
vs_top=sup; |
vs_top=sup; |
1240 |
V135= fix(vs_base[0]); |
V135= fix(vs_base[0]); |
1241 |
goto T339; |
goto T339; |
1242 |
T339:; |
T339:; |
1243 |
goto T344; |
goto T344; |
1244 |
T344:; |
T344:; |
1245 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
1246 |
goto T346;} |
goto T346;} |
1247 |
if(equal(car(base[7]),car(base[8]))){ |
if(equal(car(base[7]),car(base[8]))){ |
1248 |
goto T345;} |
goto T345;} |
1249 |
goto T346; |
goto T346; |
1250 |
T346:; |
T346:; |
1251 |
goto T342; |
goto T342; |
1252 |
goto T345; |
goto T345; |
1253 |
T345:; |
T345:; |
1254 |
{register object V136; |
{register object V136; |
1255 |
{register object V137; |
{register object V137; |
1261 |
V138= car(base[8]); |
V138= car(base[8]); |
1262 |
base[8]= cdr(base[8]);} |
base[8]= cdr(base[8]);} |
1263 |
goto T344; |
goto T344; |
1264 |
goto T342; |
goto T342; |
1265 |
T342:; |
T342:; |
1266 |
if((base[7])!=Cnil){ |
if((base[7])!=Cnil){ |
1267 |
goto T363;} |
goto T363;} |
1268 |
vs_base=vs_top; |
vs_base=vs_top; |
1269 |
L35(base); |
L35(base); |
1270 |
return; |
return; |
1271 |
goto T363; |
goto T363; |
1272 |
T363:; |
T363:; |
1273 |
{register object V139; |
{register object V139; |
1274 |
register object V140; |
register object V140; |
1280 |
V141= Cnil; |
V141= Cnil; |
1281 |
V142= small_fixnum(0); |
V142= small_fixnum(0); |
1282 |
V143= Cnil; |
V143= Cnil; |
1283 |
goto T368; |
goto T368; |
1284 |
T368:; |
T368:; |
1285 |
if(((V139))!=Cnil){ |
if(((V139))!=Cnil){ |
1286 |
goto T369;} |
goto T369;} |
1287 |
vs_base=vs_top; |
vs_base=vs_top; |
1288 |
L35(base); |
L35(base); |
1289 |
return; |
return; |
1290 |
goto T369; |
goto T369; |
1291 |
T369:; |
T369:; |
1292 |
if(equal(car((V139)),car((V140)))){ |
if(equal(car((V139)),car((V140)))){ |
1293 |
goto T375;} |
goto T375;} |
1294 |
V141= (V139); |
V141= (V139); |
1295 |
V142= small_fixnum(0); |
V142= small_fixnum(0); |
1296 |
goto T373; |
goto T373; |
1297 |
goto T375; |
goto T375; |
1298 |
T375:; |
T375:; |
1299 |
base[10]= car((V139)); |
base[10]= car((V139)); |
1300 |
base[11]= base[1]; |
base[11]= base[1]; |
1308 |
V144 = make_fixnum(V135); |
V144 = make_fixnum(V135); |
1309 |
if(!(number_compare((V142),V144)>0)){ |
if(!(number_compare((V142),V144)>0)){ |
1310 |
goto T373;} |
goto T373;} |
1311 |
goto T380; |
goto T380; |
1312 |
T380:; |
T380:; |
1313 |
{register object V145; |
{register object V145; |
1314 |
register object V146; |
register object V146; |
1315 |
V145= Cnil; |
V145= Cnil; |
1316 |
V146= Cnil; |
V146= Cnil; |
1317 |
goto T391; |
goto T391; |
1318 |
T391:; |
T391:; |
1319 |
{register object V147; |
{register object V147; |
1320 |
{register object V148; |
{register object V148; |
1331 |
if(!((base[7])==(cdr((V141))))){ |
if(!((base[7])==(cdr((V141))))){ |
1332 |
goto T406;} |
goto T406;} |
1333 |
goto T389; |
goto T389; |
1334 |
goto T406; |
goto T406; |
1335 |
T406:; |
T406:; |
1336 |
goto T391; |
goto T391; |
1337 |
goto T389; |
goto T389; |
1338 |
T389:; |
T389:; |
1339 |
if((base[9])!=Cnil){ |
if((base[9])!=Cnil){ |
1340 |
goto T411;} |
goto T411;} |
1342 |
base[9]= symbol_value(VV[70]); |
base[9]= symbol_value(VV[70]); |
1343 |
V151= list(3,VV[11],base[9],Ct); |
V151= list(3,VV[11],base[9],Ct); |
1344 |
V146= make_cons((V151),(V146));} |
V146= make_cons((V151),(V146));} |
1345 |
goto T411; |
goto T411; |
1346 |
T411:; |
T411:; |
1347 |
{register object V152; |
{register object V152; |
1348 |
base[12]= (V145); |
base[12]= (V145); |
1365 |
V154= vs_base[0]; |
V154= vs_base[0]; |
1366 |
V152= list(4,VV[71],base[9],V153,V154); |
V152= list(4,VV[71],base[9],V153,V154); |
1367 |
base[4]= make_cons((V152),base[4]);}} |
base[4]= make_cons((V152),base[4]);}} |
1368 |
goto T427; |
goto T427; |
1369 |
T427:; |
T427:; |
1370 |
{register object V155; |
{register object V155; |
1371 |
V155= car(base[8]); |
V155= car(base[8]); |
1379 |
if(!((base[7])==(cdr((V139))))){ |
if(!((base[7])==(cdr((V139))))){ |
1380 |
goto T440;} |
goto T440;} |
1381 |
goto T425; |
goto T425; |
1382 |
goto T440; |
goto T440; |
1383 |
T440:; |
T440:; |
1384 |
goto T427; |
goto T427; |
1385 |
goto T425; |
goto T425; |
1386 |
T425:; |
T425:; |
1387 |
goto T366; |
goto T366; |
1388 |
goto T373; |
goto T373; |
1389 |
T373:; |
T373:; |
1390 |
V139= cdr((V139)); |
V139= cdr((V139)); |
1391 |
V140= cdr((V140)); |
V140= cdr((V140)); |
1392 |
goto T368;} |
goto T368;} |
1393 |
goto T366; |
goto T366; |
1394 |
T366:; |
T366:; |
1395 |
goto T339;} |
goto T339;} |
1396 |
} |
} |
1413 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
1414 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1415 |
return; |
return; |
1416 |
goto T452; |
goto T452; |
1417 |
T452:; |
T452:; |
1418 |
{long V160; |
{long V160; |
1419 |
base[2]= (V158); |
base[2]= (V158); |
1443 |
register object V163; |
register object V163; |
1444 |
V162= (V161); |
V162= (V161); |
1445 |
V163= small_fixnum(0); |
V163= small_fixnum(0); |
1446 |
goto T458; |
goto T458; |
1447 |
T458:; |
T458:; |
1448 |
if(!(type_of((V162))!=t_cons)){ |
if(!(type_of((V162))!=t_cons)){ |
1449 |
goto T459;} |
goto T459;} |
1451 |
goto T464;} |
goto T464;} |
1452 |
V164= small_fixnum(0); |
V164= small_fixnum(0); |
1453 |
goto T462; |
goto T462; |
1454 |
goto T464; |
goto T464; |
1455 |
T464:; |
T464:; |
1456 |
V164= small_fixnum(1); |
V164= small_fixnum(1); |
1457 |
goto T462; |
goto T462; |
1458 |
T462:; |
T462:; |
1459 |
base[1]= number_plus((V163),V164); |
base[1]= number_plus((V163),V164); |
1460 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1461 |
return; |
return; |
1462 |
goto T459; |
goto T459; |
1463 |
T459:; |
T459:; |
1464 |
{object V165; |
{object V165; |
1465 |
V165= cdr((V162)); |
V165= cdr((V162)); |
1521 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1522 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1523 |
return; |
return; |
1524 |
goto T477; |
goto T477; |
1525 |
T477:; |
T477:; |
1526 |
if(!(type_of((V169))==t_symbol)){ |
if(!(type_of((V169))==t_symbol)){ |
1527 |
goto T481;} |
goto T481;} |
1538 |
V171= vs_base[0]; |
V171= vs_base[0]; |
1539 |
vs_top=sup; |
vs_top=sup; |
1540 |
goto T488; |
goto T488; |
1541 |
goto T486; |
goto T486; |
1542 |
T486:; |
T486:; |
1543 |
V170= Cnil; |
V170= Cnil; |
1544 |
goto T487; |
goto T487; |
1545 |
T487:; |
T487:; |
1546 |
V171= Cnil; |
V171= Cnil; |
1547 |
goto T488; |
goto T488; |
1548 |
T488:; |
T488:; |
1549 |
if(((V171))==Cnil){ |
if(((V171))==Cnil){ |
1550 |
goto T490;} |
goto T490;} |
1551 |
V169= (V170); |
V169= (V170); |
1552 |
goto TTL; |
goto TTL; |
1553 |
goto T490; |
goto T490; |
1554 |
T490:; |
T490:; |
1555 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1556 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1557 |
return;} |
return;} |
1558 |
goto T481; |
goto T481; |
1559 |
T481:; |
T481:; |
1560 |
if(!(type_of((V169))!=t_cons)){ |
if(!(type_of((V169))!=t_cons)){ |
1561 |
goto T496;} |
goto T496;} |
1562 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1563 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1564 |
return; |
return; |
1565 |
goto T496; |
goto T496; |
1566 |
T496:; |
T496:; |
1567 |
if(!(type_of(car((V169)))==t_symbol)){ |
if(!(type_of(car((V169)))==t_symbol)){ |
1568 |
goto T499;} |
goto T499;} |
1585 |
base[2]= make_fixnum((long)(fix((V173)))+(V176)); |
base[2]= make_fixnum((long)(fix((V173)))+(V176)); |
1586 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1587 |
return; |
return; |
1588 |
goto T508; |
goto T508; |
1589 |
T508:; |
T508:; |
1590 |
base[2]= (V169); |
base[2]= (V169); |
1591 |
base[3]= base[1]; |
base[3]= base[1]; |
1592 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1593 |
super_funcall_no_event((V173)); |
super_funcall_no_event((V173)); |
1594 |
return; |
return; |
1595 |
goto T504; |
goto T504; |
1596 |
T504:; |
T504:; |
1597 |
{register object x= (V172),V177= symbol_value(VV[78]); |
{register object x= (V172),V177= symbol_value(VV[78]); |
1598 |
while(!endp(V177)) |
while(!endp(V177)) |
1601 |
goto T517; |
goto T517; |
1602 |
}else V177=V177->c.c_cdr; |
}else V177=V177->c.c_cdr; |
1603 |
V173= Cnil;} |
V173= Cnil;} |
1604 |
goto T517; |
goto T517; |
1605 |
T517:; |
T517:; |
1606 |
if(((V173))==Cnil){ |
if(((V173))==Cnil){ |
1607 |
goto T515;} |
goto T515;} |
1614 |
base[2]= make_fixnum((long)(/* INLINE-ARGS */V178)+(V179)); |
base[2]= make_fixnum((long)(/* INLINE-ARGS */V178)+(V179)); |
1615 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1616 |
return;} |
return;} |
1617 |
goto T515; |
goto T515; |
1618 |
T515:; |
T515:; |
1619 |
if(!(((V172))==(VV[79]))){ |
if(!(((V172))==(VV[79]))){ |
1620 |
goto T521;} |
goto T521;} |
1622 |
object V181; |
object V181; |
1623 |
V180= cdr((V169)); |
V180= cdr((V169)); |
1624 |
V181= car((V180)); |
V181= car((V180)); |
1625 |
goto T526; |
goto T526; |
1626 |
T526:; |
T526:; |
1627 |
if(!(endp_prop((V180)))){ |
if(!(endp_prop((V180)))){ |
1628 |
goto T527;} |
goto T527;} |
1629 |
base[4]= make_fixnum(V174); |
base[4]= make_fixnum(V174); |
1630 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1631 |
return; |
return; |
1632 |
goto T527; |
goto T527; |
1633 |
T527:; |
T527:; |
1634 |
V182 = make_fixnum(V174); |
V182 = make_fixnum(V174); |
1635 |
base[4]= (V181); |
base[4]= (V181); |
1642 |
V180= cdr((V180)); |
V180= cdr((V180)); |
1643 |
V181= car((V180)); |
V181= car((V180)); |
1644 |
goto T526;} |
goto T526;} |
1645 |
goto T521; |
goto T521; |
1646 |
T521:; |
T521:; |
1647 |
if(!(((V172))==(VV[80]))){ |
if(!(((V172))==(VV[80]))){ |
1648 |
goto T543;} |
goto T543;} |
1649 |
{register object V184; |
{register object V184; |
1650 |
V184= cdr((V169)); |
V184= cdr((V169)); |
1651 |
goto T547; |
goto T547; |
1652 |
T547:; |
T547:; |
1653 |
if(((V184))!=Cnil){ |
if(((V184))!=Cnil){ |
1654 |
goto T548;} |
goto T548;} |
1655 |
base[2]= make_fixnum(V174); |
base[2]= make_fixnum(V174); |
1656 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1657 |
return; |
return; |
1658 |
goto T548; |
goto T548; |
1659 |
T548:; |
T548:; |
1660 |
base[2]= make_fixnum(V174); |
base[2]= make_fixnum(V174); |
1661 |
base[4]= car((V184)); |
base[4]= car((V184)); |
1675 |
V174= fix(vs_base[0]); |
V174= fix(vs_base[0]); |
1676 |
V184= cdr((V184)); |
V184= cdr((V184)); |
1677 |
goto T547;} |
goto T547;} |
1678 |
goto T543; |
goto T543; |
1679 |
T543:; |
T543:; |
1680 |
{register object x= (V172),V185= VV[81]; |
{register object x= (V172),V185= VV[81]; |
1681 |
while(!endp(V185)) |
while(!endp(V185)) |
1683 |
goto T565; |
goto T565; |
1684 |
}else V185=V185->c.c_cdr; |
}else V185=V185->c.c_cdr; |
1685 |
goto T564;} |
goto T564;} |
1686 |
goto T565; |
goto T565; |
1687 |
T565:; |
T565:; |
1688 |
{register object V186; |
{register object V186; |
1689 |
V186= cdr((V169)); |
V186= cdr((V169)); |
1690 |
goto T568; |
goto T568; |
1691 |
T568:; |
T568:; |
1692 |
if(((V186))!=Cnil){ |
if(((V186))!=Cnil){ |
1693 |
goto T569;} |
goto T569;} |
1694 |
base[2]= make_fixnum(V174); |
base[2]= make_fixnum(V174); |
1695 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1696 |
return; |
return; |
1697 |
goto T569; |
goto T569; |
1698 |
T569:; |
T569:; |
1699 |
base[2]= make_fixnum(V174); |
base[2]= make_fixnum(V174); |
1700 |
base[4]= cadr((V186)); |
base[4]= cadr((V186)); |
1710 |
V174= fix(vs_base[0]); |
V174= fix(vs_base[0]); |
1711 |
V186= cdr((V186)); |
V186= cdr((V186)); |
1712 |
goto T568;} |
goto T568;} |
1713 |
goto T564; |
goto T564; |
1714 |
T564:; |
T564:; |
1715 |
if(!(((V172))==(VV[82]))){ |
if(!(((V172))==(VV[82]))){ |
1716 |
goto T584;} |
goto T584;} |
1717 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1718 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1719 |
return; |
return; |
1720 |
goto T584; |
goto T584; |
1721 |
T584:; |
T584:; |
1722 |
if(!(((V172))==(VV[83]))){ |
if(!(((V172))==(VV[83]))){ |
1723 |
goto T587;} |
goto T587;} |
1727 |
goto T590;} |
goto T590;} |
1728 |
if(!((caadr((V169)))==(VV[9]))){ |
if(!((caadr((V169)))==(VV[9]))){ |
1729 |
goto T590;} |
goto T590;} |
1730 |
goto T589; |
goto T589; |
1731 |
T589:; |
T589:; |
1732 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1733 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1734 |
return; |
return; |
1735 |
goto T590; |
goto T590; |
1736 |
T590:; |
T590:; |
1737 |
{frame_ptr fr; |
{frame_ptr fr; |
1738 |
fr=frs_sch_catch(VV[84]); |
fr=frs_sch_catch(VV[84]); |
1740 |
base[2]= Cnil; |
base[2]= Cnil; |
1741 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1742 |
unwind(fr,VV[84]);} |
unwind(fr,VV[84]);} |
1743 |
goto T587; |
goto T587; |
1744 |
T587:; |
T587:; |
1745 |
if(!(((V172))==(VV[85]))){ |
if(!(((V172))==(VV[85]))){ |
1746 |
goto T598;} |
goto T598;} |
1753 |
base[2]= make_fixnum((long)(/* INLINE-ARGS */V187)+(V188)); |
base[2]= make_fixnum((long)(/* INLINE-ARGS */V187)+(V188)); |
1754 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1755 |
return;} |
return;} |
1756 |
goto T598; |
goto T598; |
1757 |
T598:; |
T598:; |
1758 |
if(!(((V172))==(VV[86]))){ |
if(!(((V172))==(VV[86]))){ |
1759 |
goto T603;} |
goto T603;} |
1766 |
base[2]= one_plus(V189); |
base[2]= one_plus(V189); |
1767 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1768 |
return; |
return; |
1769 |
goto T603; |
goto T603; |
1770 |
T603:; |
T603:; |
1771 |
base[2]= (V172); |
base[2]= (V172); |
1772 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1780 |
goto T613; |
goto T613; |
1781 |
}else V190=V190->c.c_cdr; |
}else V190=V190->c.c_cdr; |
1782 |
goto T609;} |
goto T609;} |
1783 |
goto T613; |
goto T613; |
1784 |
T613:; |
T613:; |
1785 |
goto T608; |
goto T608; |
1786 |
T608:; |
T608:; |
1787 |
{frame_ptr fr; |
{frame_ptr fr; |
1788 |
fr=frs_sch_catch(VV[77]); |
fr=frs_sch_catch(VV[77]); |
1790 |
base[2]= Cnil; |
base[2]= Cnil; |
1791 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1792 |
unwind(fr,VV[77]);} |
unwind(fr,VV[77]);} |
1793 |
goto T609; |
goto T609; |
1794 |
T609:; |
T609:; |
1795 |
{object V191; |
{object V191; |
1796 |
object V192; |
object V192; |
1805 |
V192= vs_base[0]; |
V192= vs_base[0]; |
1806 |
vs_top=sup; |
vs_top=sup; |
1807 |
goto T620; |
goto T620; |
1808 |
goto T618; |
goto T618; |
1809 |
T618:; |
T618:; |
1810 |
V191= Cnil; |
V191= Cnil; |
1811 |
goto T619; |
goto T619; |
1812 |
T619:; |
T619:; |
1813 |
V192= Cnil; |
V192= Cnil; |
1814 |
goto T620; |
goto T620; |
1815 |
T620:; |
T620:; |
1816 |
if(((V192))==Cnil){ |
if(((V192))==Cnil){ |
1817 |
goto T622;} |
goto T622;} |
1818 |
V169= (V191); |
V169= (V191); |
1819 |
goto TTL; |
goto TTL; |
1820 |
goto T622; |
goto T622; |
1821 |
T622:; |
T622:; |
1822 |
base[2]= cdr((V169)); |
base[2]= cdr((V169)); |
1823 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1827 |
base[2]= make_fixnum((long)(3)+(V193)); |
base[2]= make_fixnum((long)(3)+(V193)); |
1828 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1829 |
return;}} |
return;}} |
1830 |
goto T499; |
goto T499; |
1831 |
T499:; |
T499:; |
1832 |
{frame_ptr fr; |
{frame_ptr fr; |
1833 |
fr=frs_sch_catch(VV[77]); |
fr=frs_sch_catch(VV[77]); |
1851 |
register object V195; |
register object V195; |
1852 |
V194= symbol_value(VV[88]); |
V194= symbol_value(VV[88]); |
1853 |
V195= Cnil; |
V195= Cnil; |
1854 |
goto T631; |
goto T631; |
1855 |
T631:; |
T631:; |
1856 |
if(!(((V194))==(cdr(symbol_value(VV[89]))))){ |
if(!(((V194))==(cdr(symbol_value(VV[89]))))){ |
1857 |
goto T632;} |
goto T632;} |
1858 |
base[0]= nreverse((V195)); |
base[0]= nreverse((V195)); |
1859 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1860 |
return; |
return; |
1861 |
goto T632; |
goto T632; |
1862 |
T632:; |
T632:; |
1863 |
{object V196; |
{object V196; |
1864 |
V196= cdr((V194)); |
V196= cdr((V194)); |
1938 |
V204=(base[2]); |
V204=(base[2]); |
1939 |
vs_top=sup; |
vs_top=sup; |
1940 |
goto T647; |
goto T647; |
1941 |
goto T646; |
goto T646; |
1942 |
T646:; |
T646:; |
1943 |
V204= (V203); |
V204= (V203); |
1944 |
goto T647; |
goto T647; |
1945 |
T647:; |
T647:; |
1946 |
if(((V202))!=Cnil){ |
if(((V202))!=Cnil){ |
1947 |
goto T650;} |
goto T650;} |
1948 |
base[3]= (V204); |
base[3]= (V204); |
1949 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1950 |
return; |
return; |
1951 |
goto T650; |
goto T650; |
1952 |
T650:; |
T650:; |
1953 |
{object V205; |
{object V205; |
1954 |
object V206; |
object V206; |
1963 |
V206= vs_base[0]; |
V206= vs_base[0]; |
1964 |
vs_top=sup; |
vs_top=sup; |
1965 |
goto T657; |
goto T657; |
1966 |
goto T655; |
goto T655; |
1967 |
T655:; |
T655:; |
1968 |
V205= Cnil; |
V205= Cnil; |
1969 |
goto T656; |
goto T656; |
1970 |
T656:; |
T656:; |
1971 |
V206= Cnil; |
V206= Cnil; |
1972 |
goto T657; |
goto T657; |
1973 |
T657:; |
T657:; |
1974 |
if(((V206))!=Cnil){ |
if(((V206))!=Cnil){ |
1975 |
goto T660;} |
goto T660;} |
1980 |
(void) (*Lnk338)(); |
(void) (*Lnk338)(); |
1981 |
vs_top=sup; |
vs_top=sup; |
1982 |
goto T658; |
goto T658; |
1983 |
goto T660; |
goto T660; |
1984 |
T660:; |
T660:; |
1985 |
if(((V205))!=Cnil){ |
if(((V205))!=Cnil){ |
1986 |
goto T658;} |
goto T658;} |
1990 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1991 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
1992 |
vs_top=sup; |
vs_top=sup; |
1993 |
goto T658; |
goto T658; |
1994 |
T658:; |
T658:; |
1995 |
base[3]= (V202); |
base[3]= (V202); |
1996 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2071 |
register object V215; |
register object V215; |
2072 |
V214= (VV[105]->s.s_dbind); |
V214= (VV[105]->s.s_dbind); |
2073 |
V215= car((V214)); |
V215= car((V214)); |
2074 |
goto T680; |
goto T680; |
2075 |
T680:; |
T680:; |
2076 |
if(!(endp_prop((V214)))){ |
if(!(endp_prop((V214)))){ |
2077 |
goto T681;} |
goto T681;} |
2078 |
goto T676; |
goto T676; |
2079 |
goto T681; |
goto T681; |
2080 |
T681:; |
T681:; |
2081 |
{object V216; |
{object V216; |
2082 |
object V217; |
object V217; |
2090 |
register object V221; |
register object V221; |
2091 |
V220= (V219); |
V220= (V219); |
2092 |
V221= car((V220)); |
V221= car((V220)); |
2093 |
goto T694; |
goto T694; |
2094 |
T694:; |
T694:; |
2095 |
if(!(endp_prop((V220)))){ |
if(!(endp_prop((V220)))){ |
2096 |
goto T695;} |
goto T695;} |
2097 |
goto T690; |
goto T690; |
2098 |
goto T695; |
goto T695; |
2099 |
T695:; |
T695:; |
2100 |
V222= make_cons((V208),Cnil); |
V222= make_cons((V208),Cnil); |
2101 |
V208= append((V221),/* INLINE-ARGS */V222); |
V208= append((V221),/* INLINE-ARGS */V222); |
2102 |
V220= cdr((V220)); |
V220= cdr((V220)); |
2103 |
V221= car((V220)); |
V221= car((V220)); |
2104 |
goto T694;} |
goto T694;} |
2105 |
goto T690; |
goto T690; |
2106 |
T690:; |
T690:; |
2107 |
if(((V216))!=Cnil){ |
if(((V216))!=Cnil){ |
2108 |
goto T706;} |
goto T706;} |
2110 |
goto T706;} |
goto T706;} |
2111 |
if(((V218))==Cnil){ |
if(((V218))==Cnil){ |
2112 |
goto T685;} |
goto T685;} |
2113 |
goto T706; |
goto T706; |
2114 |
T706:; |
T706:; |
2115 |
{register object V223; |
{register object V223; |
2116 |
V223= make_cons((V208),Cnil); |
V223= make_cons((V208),Cnil); |
2119 |
{object V224; |
{object V224; |
2120 |
V224= make_cons(VV[30],(V217)); |
V224= make_cons(VV[30],(V217)); |
2121 |
V223= make_cons((V224),(V223));} |
V223= make_cons((V224),(V223));} |
2122 |
goto T713; |
goto T713; |
2123 |
T713:; |
T713:; |
2124 |
if(((V216))!=Cnil){ |
if(((V216))!=Cnil){ |
2125 |
goto T721;} |
goto T721;} |
2126 |
V225= VV[122]; |
V225= VV[122]; |
2127 |
goto T719; |
goto T719; |
2128 |
goto T721; |
goto T721; |
2129 |
T721:; |
T721:; |
2130 |
if((symbol_value(VV[63]))==Cnil){ |
if((symbol_value(VV[63]))==Cnil){ |
2131 |
goto T724;} |
goto T724;} |
2132 |
V225= car(symbol_value(VV[63])); |
V225= car(symbol_value(VV[63])); |
2133 |
goto T719; |
goto T719; |
2134 |
goto T724; |
goto T724; |
2135 |
T724:; |
T724:; |
2136 |
V225= VV[29]; |
V225= VV[29]; |
2137 |
goto T719; |
goto T719; |
2138 |
T719:; |
T719:; |
2139 |
if(((V218))==Cnil){ |
if(((V218))==Cnil){ |
2140 |
goto T728;} |
goto T728;} |
2142 |
V228= make_cons(VV[123],/* INLINE-ARGS */V227); |
V228= make_cons(VV[123],/* INLINE-ARGS */V227); |
2143 |
V226= make_cons(/* INLINE-ARGS */V228,Cnil); |
V226= make_cons(/* INLINE-ARGS */V228,Cnil); |
2144 |
goto T726; |
goto T726; |
2145 |
goto T728; |
goto T728; |
2146 |
T728:; |
T728:; |
2147 |
V226= (V223); |
V226= (V223); |
2148 |
goto T726; |
goto T726; |
2149 |
T726:; |
T726:; |
2150 |
V208= listA(3,V225,(V216),V226);}} |
V208= listA(3,V225,(V216),V226);}} |
2151 |
goto T685; |
goto T685; |
2152 |
T685:; |
T685:; |
2153 |
V214= cdr((V214)); |
V214= cdr((V214)); |
2154 |
V215= car((V214)); |
V215= car((V214)); |
2155 |
goto T680;} |
goto T680;} |
2156 |
goto T676; |
goto T676; |
2157 |
T676:; |
T676:; |
2158 |
V208= list(3,VV[124],car((VV[118]->s.s_dbind)),(V208)); |
V208= list(3,VV[124],car((VV[118]->s.s_dbind)),(V208)); |
2159 |
base[27]= (V208); |
base[27]= (V208); |
2197 |
vs_top=sup; |
vs_top=sup; |
2198 |
goto TTL; |
goto TTL; |
2199 |
TTL:; |
TTL:; |
2200 |
goto T738; |
goto T738; |
2201 |
T738:; |
T738:; |
2202 |
if((symbol_value(VV[89]))!=Cnil){ |
if((symbol_value(VV[89]))!=Cnil){ |
2203 |
goto T739;} |
goto T739;} |
2204 |
base[0]= Cnil; |
base[0]= Cnil; |
2205 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2206 |
return; |
return; |
2207 |
goto T739; |
goto T739; |
2208 |
T739:; |
T739:; |
2209 |
{register object V229; |
{register object V229; |
2210 |
register object V230; |
register object V230; |
2218 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
2219 |
vs_top=sup; |
vs_top=sup; |
2220 |
goto T743; |
goto T743; |
2221 |
goto T746; |
goto T746; |
2222 |
T746:; |
T746:; |
2223 |
setq(VV[88],symbol_value(VV[89])); |
setq(VV[88],symbol_value(VV[89])); |
2224 |
vs_base=vs_top; |
vs_base=vs_top; |
2246 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
2247 |
vs_top=sup; |
vs_top=sup; |
2248 |
goto T743; |
goto T743; |
2249 |
goto T754; |
goto T754; |
2250 |
T754:; |
T754:; |
2251 |
base[0]= (V229); |
base[0]= (V229); |
2252 |
base[1]= structure_ref(symbol_value(VV[97]),VV[39],1); |
base[1]= structure_ref(symbol_value(VV[97]),VV[39],1); |
2261 |
(void) (*Lnk352)(); |
(void) (*Lnk352)(); |
2262 |
vs_top=sup; |
vs_top=sup; |
2263 |
goto T743; |
goto T743; |
2264 |
goto T763; |
goto T763; |
2265 |
T763:; |
T763:; |
2266 |
base[0]= (V229); |
base[0]= (V229); |
2267 |
base[1]= VV[126]; |
base[1]= VV[126]; |
2278 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
2279 |
vs_top=sup; |
vs_top=sup; |
2280 |
goto T743; |
goto T743; |
2281 |
goto T770; |
goto T770; |
2282 |
T770:; |
T770:; |
2283 |
base[0]= VV[128]; |
base[0]= VV[128]; |
2284 |
base[1]= (V229); |
base[1]= (V229); |
2285 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2286 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
2287 |
vs_top=sup;} |
vs_top=sup;} |
2288 |
goto T743; |
goto T743; |
2289 |
T743:; |
T743:; |
2290 |
goto T738; |
goto T738; |
2291 |
} |
} |
2307 |
base[0]= (V232); |
base[0]= (V232); |
2308 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2309 |
return;} |
return;} |
2310 |
goto T783; |
goto T783; |
2311 |
T783:; |
T783:; |
2312 |
base[0]= VV[129]; |
base[0]= VV[129]; |
2313 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2332 |
V235= vs_base[0]; |
V235= vs_base[0]; |
2333 |
V233= make_cons(V235,Cnil); |
V233= make_cons(V235,Cnil); |
2334 |
V234= car(symbol_value(VV[89])); |
V234= car(symbol_value(VV[89])); |
2335 |
goto T793; |
goto T793; |
2336 |
T793:; |
T793:; |
2337 |
if(!(type_of((V234))!=t_cons)){ |
if(!(type_of((V234))!=t_cons)){ |
2338 |
goto T794;} |
goto T794;} |
2341 |
base[0]= car((V233)); |
base[0]= car((V233)); |
2342 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2343 |
return; |
return; |
2344 |
goto T798; |
goto T798; |
2345 |
T798:; |
T798:; |
2346 |
V236= nreverse((V233)); |
V236= nreverse((V233)); |
2347 |
base[0]= make_cons(VV[14],/* INLINE-ARGS */V236); |
base[0]= make_cons(VV[14],/* INLINE-ARGS */V236); |
2348 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2349 |
return; |
return; |
2350 |
goto T794; |
goto T794; |
2351 |
T794:; |
T794:; |
2352 |
vs_base=vs_top; |
vs_base=vs_top; |
2353 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
2372 |
vs_base=vs_top; |
vs_base=vs_top; |
2373 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
2374 |
return; |
return; |
2375 |
goto T807; |
goto T807; |
2376 |
T807:; |
T807:; |
2377 |
base[0]= VV[130]; |
base[0]= VV[130]; |
2378 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2412 |
goto T810;} |
goto T810;} |
2413 |
if((symbol_value(VV[115]))==Cnil){ |
if((symbol_value(VV[115]))==Cnil){ |
2414 |
goto T811;} |
goto T811;} |
2415 |
goto T810; |
goto T810; |
2416 |
T810:; |
T810:; |
2417 |
setq(VV[109],make_cons(V239,symbol_value(VV[109]))); |
setq(VV[109],make_cons(V239,symbol_value(VV[109]))); |
2418 |
base[1]= symbol_value(VV[109]); |
base[1]= symbol_value(VV[109]); |
2419 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2420 |
return; |
return; |
2421 |
goto T811; |
goto T811; |
2422 |
T811:; |
T811:; |
2423 |
setq(VV[108],make_cons(V239,symbol_value(VV[108]))); |
setq(VV[108],make_cons(V239,symbol_value(VV[108]))); |
2424 |
setq(VV[111],make_cons(V239,symbol_value(VV[111]))); |
setq(VV[111],make_cons(V239,symbol_value(VV[111]))); |
2476 |
(void) (*Lnk345)(); |
(void) (*Lnk345)(); |
2477 |
vs_top=sup; |
vs_top=sup; |
2478 |
goto T826; |
goto T826; |
2479 |
goto T830; |
goto T830; |
2480 |
T830:; |
T830:; |
2481 |
base[1]= VV[132]; |
base[1]= VV[132]; |
2482 |
base[2]= symbol_value(VV[114]); |
base[2]= symbol_value(VV[114]); |
2483 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2484 |
(void) (*Lnk338)(); |
(void) (*Lnk338)(); |
2485 |
vs_top=sup; |
vs_top=sup; |
2486 |
goto T826; |
goto T826; |
2487 |
T826:; |
T826:; |
2488 |
setq(VV[114],car(symbol_value(VV[88]))); |
setq(VV[114],car(symbol_value(VV[88]))); |
2489 |
base[1]= symbol_value(VV[114]); |
base[1]= symbol_value(VV[114]); |
2503 |
V246=(base[0]); |
V246=(base[0]); |
2504 |
vs_top=sup; |
vs_top=sup; |
2505 |
goto T839; |
goto T839; |
2506 |
goto T838; |
goto T838; |
2507 |
T838:; |
T838:; |
2508 |
V246= Cnil; |
V246= Cnil; |
2509 |
goto T839; |
goto T839; |
2510 |
T839:; |
T839:; |
2511 |
if((symbol_value(VV[115]))==Cnil){ |
if((symbol_value(VV[115]))==Cnil){ |
2512 |
goto T842;} |
goto T842;} |
2515 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2516 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
2517 |
return; |
return; |
2518 |
goto T842; |
goto T842; |
2519 |
T842:; |
T842:; |
2520 |
base[1]= Cnil; |
base[1]= Cnil; |
2521 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2557 |
vs_top=sup; |
vs_top=sup; |
2558 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2559 |
goto T854;} |
goto T854;} |
2560 |
goto T853; |
goto T853; |
2561 |
T853:; |
T853:; |
2562 |
base[1]= (*(LnkLI356))(small_fixnum(0),(V247)); |
base[1]= (*(LnkLI356))(small_fixnum(0),(V247)); |
2563 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2564 |
return; |
return; |
2565 |
goto T854; |
goto T854; |
2566 |
T854:; |
T854:; |
2567 |
base[1]= small_fixnum(0); |
base[1]= small_fixnum(0); |
2568 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2569 |
return; |
return; |
2570 |
goto T847; |
goto T847; |
2571 |
T847:; |
T847:; |
2572 |
base[1]= Cnil; |
base[1]= Cnil; |
2573 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2584 |
if(vs_base>=vs_top){vs_top=sup;goto T862;} |
if(vs_base>=vs_top){vs_top=sup;goto T862;} |
2585 |
vs_top=sup; |
vs_top=sup; |
2586 |
goto T863; |
goto T863; |
2587 |
goto T862; |
goto T862; |
2588 |
T862:; |
T862:; |
2589 |
base[0]= Cnil; |
base[0]= Cnil; |
2590 |
goto T863; |
goto T863; |
2591 |
T863:; |
T863:; |
2592 |
if(symbol_value(VV[89])==Cnil){ |
if(symbol_value(VV[89])==Cnil){ |
2593 |
base[1]= Cnil; |
base[1]= Cnil; |
2607 |
vs_base=vs_top; |
vs_base=vs_top; |
2608 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
2609 |
return; |
return; |
2610 |
goto T867; |
goto T867; |
2611 |
T867:; |
T867:; |
2612 |
if(!(type_of(base[1])==t_symbol)){ |
if(!(type_of(base[1])==t_symbol)){ |
2613 |
goto T873;} |
goto T873;} |
2621 |
if(V249==Cnil)goto T876; |
if(V249==Cnil)goto T876; |
2622 |
V248= V249; |
V248= V249; |
2623 |
goto T875; |
goto T875; |
2624 |
goto T876; |
goto T876; |
2625 |
T876:;} |
T876:;} |
2626 |
base[2]= symbol_name(base[1]); |
base[2]= symbol_name(base[1]); |
2627 |
base[3]= structure_ref(symbol_value(VV[97]),VV[39],5); |
base[3]= structure_ref(symbol_value(VV[97]),VV[39],5); |
2629 |
Lgethash(); |
Lgethash(); |
2630 |
vs_top=sup; |
vs_top=sup; |
2631 |
V248= vs_base[0]; |
V248= vs_base[0]; |
2632 |
goto T875; |
goto T875; |
2633 |
T875:; |
T875:; |
2634 |
if(((V248))==Cnil){ |
if(((V248))==Cnil){ |
2635 |
goto T883;} |
goto T883;} |
2639 |
base[2]= (V248); |
base[2]= (V248); |
2640 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2641 |
return; |
return; |
2642 |
goto T883; |
goto T883; |
2643 |
T883:; |
T883:; |
2644 |
base[2]= Cnil; |
base[2]= Cnil; |
2645 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2646 |
return;} |
return;} |
2647 |
goto T873; |
goto T873; |
2648 |
T873:; |
T873:; |
2649 |
if(!(type_of(base[0])==t_cons)){ |
if(!(type_of(base[0])==t_cons)){ |
2650 |
goto T888;} |
goto T888;} |
2656 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
2657 |
vs_top=sup; |
vs_top=sup; |
2658 |
goto T886; |
goto T886; |
2659 |
goto T888; |
goto T888; |
2660 |
T888:; |
T888:; |
2661 |
base[2]= VV[139]; |
base[2]= VV[139]; |
2662 |
base[3]= base[1]; |
base[3]= base[1]; |
2663 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2664 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
2665 |
vs_top=sup; |
vs_top=sup; |
2666 |
goto T886; |
goto T886; |
2667 |
T886:; |
T886:; |
2668 |
vs_base=vs_top; |
vs_base=vs_top; |
2669 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
2690 |
goto T899;} |
goto T899;} |
2691 |
if((symbol_value(VV[107]))==Cnil){ |
if((symbol_value(VV[107]))==Cnil){ |
2692 |
goto T900;} |
goto T900;} |
2693 |
goto T899; |
goto T899; |
2694 |
T899:; |
T899:; |
2695 |
{object V250; |
{object V250; |
2696 |
V251= nreverse(symbol_value(VV[100])); |
V251= nreverse(symbol_value(VV[100])); |
2703 |
base[0]= Cnil; |
base[0]= Cnil; |
2704 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2705 |
return; |
return; |
2706 |
goto T900; |
goto T900; |
2707 |
T900:; |
T900:; |
2708 |
base[0]= Cnil; |
base[0]= Cnil; |
2709 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2729 |
V255=(base[3]); |
V255=(base[3]); |
2730 |
vs_top=sup; |
vs_top=sup; |
2731 |
goto T917; |
goto T917; |
2732 |
goto T916; |
goto T916; |
2733 |
T916:; |
T916:; |
2734 |
V255= Cnil; |
V255= Cnil; |
2735 |
goto T917; |
goto T917; |
2736 |
T917:; |
T917:; |
2737 |
if(((V252))!=Cnil){ |
if(((V252))!=Cnil){ |
2738 |
goto T921;} |
goto T921;} |
2750 |
V257= list(2,VV[143],(V252)); |
V257= list(2,VV[143],(V252)); |
2751 |
setq(VV[103],make_cons((V257),symbol_value(VV[103]))); |
setq(VV[103],make_cons((V257),symbol_value(VV[103]))); |
2752 |
goto T919;} |
goto T919;} |
2753 |
goto T921; |
goto T921; |
2754 |
T921:; |
T921:; |
2755 |
if(!(type_of((V252))!=t_cons)){ |
if(!(type_of((V252))!=t_cons)){ |
2756 |
goto T933;} |
goto T933;} |
2762 |
goto T941; |
goto T941; |
2763 |
}else V258=V258->c.c_cdr; |
}else V258=V258->c.c_cdr; |
2764 |
goto T940;} |
goto T940;} |
2765 |
goto T941; |
goto T941; |
2766 |
T941:; |
T941:; |
2767 |
base[4]= VV[144]; |
base[4]= VV[144]; |
2768 |
base[5]= (V252); |
base[5]= (V252); |
2770 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
2771 |
vs_top=sup; |
vs_top=sup; |
2772 |
goto T935; |
goto T935; |
2773 |
goto T940; |
goto T940; |
2774 |
T940:; |
T940:; |
2775 |
setq(VV[99],make_cons(V252,symbol_value(VV[99]))); |
setq(VV[99],make_cons(V252,symbol_value(VV[99]))); |
2776 |
goto T935; |
goto T935; |
2777 |
goto T937; |
goto T937; |
2778 |
T937:; |
T937:; |
2779 |
{register object x= (V252),V260= symbol_value(VV[100]); |
{register object x= (V252),V260= symbol_value(VV[100]); |
2780 |
while(!endp(V260)) |
while(!endp(V260)) |
2782 |
goto T946; |
goto T946; |
2783 |
}else V260=V260->c.c_cdr; |
}else V260=V260->c.c_cdr; |
2784 |
goto T935;} |
goto T935;} |
2785 |
goto T946; |
goto T946; |
2786 |
T946:; |
T946:; |
2787 |
base[4]= VV[145]; |
base[4]= VV[145]; |
2788 |
base[5]= (V252); |
base[5]= (V252); |
2789 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2790 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
2791 |
vs_top=sup; |
vs_top=sup; |
2792 |
goto T935; |
goto T935; |
2793 |
T935:; |
T935:; |
2794 |
if(type_of((V252))==t_symbol){ |
if(type_of((V252))==t_symbol){ |
2795 |
goto T949;} |
goto T949;} |
2798 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2799 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
2800 |
vs_top=sup; |
vs_top=sup; |
2801 |
goto T949; |
goto T949; |
2802 |
T949:; |
T949:; |
2803 |
base[4]= (V252); |
base[4]= (V252); |
2804 |
base[5]= (V254); |
base[5]= (V254); |
2814 |
(void) (*Lnk329)(); |
(void) (*Lnk329)(); |
2815 |
vs_top=sup; |
vs_top=sup; |
2816 |
V262= vs_base[0]; |
V262= vs_base[0]; |
2817 |
goto T958; |
goto T958; |
2818 |
T958:; |
T958:; |
2819 |
V261= list(2,(V252),V262); |
V261= list(2,(V252),V262); |
2820 |
setq(VV[100],make_cons((V261),symbol_value(VV[100]))); |
setq(VV[100],make_cons((V261),symbol_value(VV[100]))); |
2821 |
goto T919;} |
goto T919;} |
2822 |
goto T933; |
goto T933; |
2823 |
T933:; |
T933:; |
2824 |
if(((V253))==Cnil){ |
if(((V253))==Cnil){ |
2825 |
goto T962;} |
goto T962;} |
2834 |
V263= list(2,(V252),(V253)); |
V263= list(2,(V252),(V253)); |
2835 |
setq(VV[100],make_cons((V263),symbol_value(VV[100]))); |
setq(VV[100],make_cons((V263),symbol_value(VV[100]))); |
2836 |
goto T919;} |
goto T919;} |
2837 |
goto T965; |
goto T965; |
2838 |
T965:; |
T965:; |
2839 |
{object V264; |
{object V264; |
2840 |
base[4]= VV[147]; |
base[4]= VV[147]; |
2847 |
setq(VV[100],make_cons((V265),symbol_value(VV[100])));} |
setq(VV[100],make_cons((V265),symbol_value(VV[100])));} |
2848 |
setq(VV[104],listA(3,(V252),(V264),symbol_value(VV[104]))); |
setq(VV[104],listA(3,(V252),(V264),symbol_value(VV[104]))); |
2849 |
goto T919;} |
goto T919;} |
2850 |
goto T962; |
goto T962; |
2851 |
T962:; |
T962:; |
2852 |
{object V266; |
{object V266; |
2853 |
object V267; |
object V267; |
2858 |
V267= (V254); |
V267= (V254); |
2859 |
V266= (V267); |
V266= (V267); |
2860 |
goto T978; |
goto T978; |
2861 |
goto T980; |
goto T980; |
2862 |
T980:; |
T980:; |
2863 |
V266= car((V254)); |
V266= car((V254)); |
2864 |
V267= cdr((V254)); |
V267= cdr((V254)); |
2865 |
goto T978; |
goto T978; |
2866 |
T978:; |
T978:; |
2867 |
base[4]= car((V252)); |
base[4]= car((V252)); |
2868 |
base[5]= Cnil; |
base[5]= Cnil; |
2878 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2879 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
2880 |
vs_top=sup;} |
vs_top=sup;} |
2881 |
goto T919; |
goto T919; |
2882 |
T919:; |
T919:; |
2883 |
base[4]= (V252); |
base[4]= (V252); |
2884 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2930 |
goto T1000;} |
goto T1000;} |
2931 |
if(!(((V272))==(Ct))){ |
if(!(((V272))==(Ct))){ |
2932 |
goto T1001;} |
goto T1001;} |
2933 |
goto T1000; |
goto T1000; |
2934 |
T1000:; |
T1000:; |
2935 |
base[2]= Cnil; |
base[2]= Cnil; |
2936 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2937 |
return; |
return; |
2938 |
goto T1001; |
goto T1001; |
2939 |
T1001:; |
T1001:; |
2940 |
if(!(type_of((V271))==t_symbol)){ |
if(!(type_of((V271))==t_symbol)){ |
2941 |
goto T1008;} |
goto T1008;} |
2952 |
base[3]= symbol_value(VV[103]); |
base[3]= symbol_value(VV[103]); |
2953 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2954 |
return;} |
return;} |
2955 |
goto T1011; |
goto T1011; |
2956 |
T1011:; |
T1011:; |
2957 |
base[2]= Cnil; |
base[2]= Cnil; |
2958 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2959 |
return; |
return; |
2960 |
goto T1008; |
goto T1008; |
2961 |
T1008:; |
T1008:; |
2962 |
if(!(type_of((V271))==t_cons)){ |
if(!(type_of((V271))==t_cons)){ |
2963 |
goto T1018;} |
goto T1018;} |
2971 |
V271= cdr((V271)); |
V271= cdr((V271)); |
2972 |
V272= cdr((V272)); |
V272= cdr((V272)); |
2973 |
goto TTL; |
goto TTL; |
2974 |
goto T1021; |
goto T1021; |
2975 |
T1021:; |
T1021:; |
2976 |
base[2]= car((V271)); |
base[2]= car((V271)); |
2977 |
base[3]= (V272); |
base[3]= (V272); |
2980 |
vs_top=sup; |
vs_top=sup; |
2981 |
V271= cdr((V271)); |
V271= cdr((V271)); |
2982 |
goto TTL; |
goto TTL; |
2983 |
goto T1018; |
goto T1018; |
2984 |
T1018:; |
T1018:; |
2985 |
base[2]= VV[148]; |
base[2]= VV[148]; |
2986 |
base[3]= (V271); |
base[3]= (V271); |
3012 |
base[2]= (V276); |
base[2]= (V276); |
3013 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3014 |
return; |
return; |
3015 |
goto T1038; |
goto T1038; |
3016 |
T1038:; |
T1038:; |
3017 |
base[3]= VV[149]; |
base[3]= VV[149]; |
3018 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3072 |
V283= vs_base[0]; |
V283= vs_base[0]; |
3073 |
V282= make_cons(V283,Cnil); |
V282= make_cons(V283,Cnil); |
3074 |
goto T1048; |
goto T1048; |
3075 |
goto T1050; |
goto T1050; |
3076 |
T1050:; |
T1050:; |
3077 |
V282= Cnil; |
V282= Cnil; |
3078 |
goto T1048; |
goto T1048; |
3079 |
T1048:; |
T1048:; |
3080 |
base[4]= car(symbol_value(VV[89])); |
base[4]= car(symbol_value(VV[89])); |
3081 |
base[5]= VV[151]; |
base[5]= VV[151]; |
3087 |
vs_base=vs_top; |
vs_base=vs_top; |
3088 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
3089 |
vs_top=sup; |
vs_top=sup; |
3090 |
goto T1057; |
goto T1057; |
3091 |
T1057:; |
T1057:; |
3092 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
3093 |
goto T1062;} |
goto T1062;} |
3094 |
V280= list(3,VV[11],base[3],(V280)); |
V280= list(3,VV[11],base[3],(V280)); |
3095 |
goto T1062; |
goto T1062; |
3096 |
T1062:; |
T1062:; |
3097 |
if(((V279))==Cnil){ |
if(((V279))==Cnil){ |
3098 |
goto T1069;} |
goto T1069;} |
3099 |
V284= list(2,VV[36],(V280)); |
V284= list(2,VV[36],(V280)); |
3100 |
goto T1067; |
goto T1067; |
3101 |
goto T1069; |
goto T1069; |
3102 |
T1069:; |
T1069:; |
3103 |
V284= (V280); |
V284= (V280); |
3104 |
goto T1067; |
goto T1067; |
3105 |
T1067:; |
T1067:; |
3106 |
base[4]= listA(4,VV[71],V284,(V281),(V282)); |
base[4]= listA(4,VV[71],V284,(V281),(V282)); |
3107 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3198 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3199 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
3200 |
vs_top=sup; |
vs_top=sup; |
3201 |
goto T1081; |
goto T1081; |
3202 |
T1081:; |
T1081:; |
3203 |
if((symbol_value(VV[108]))!=Cnil){ |
if((symbol_value(VV[108]))!=Cnil){ |
3204 |
goto T1087;} |
goto T1087;} |
3208 |
goto T1087;} |
goto T1087;} |
3209 |
if((symbol_value(VV[115]))==Cnil){ |
if((symbol_value(VV[115]))==Cnil){ |
3210 |
goto T1086;} |
goto T1086;} |
3211 |
goto T1087; |
goto T1087; |
3212 |
T1087:; |
T1087:; |
3213 |
base[0]= VV[159]; |
base[0]= VV[159]; |
3214 |
base[1]= (V287); |
base[1]= (V287); |
3215 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3216 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
3217 |
vs_top=sup; |
vs_top=sup; |
3218 |
goto T1086; |
goto T1086; |
3219 |
T1086:; |
T1086:; |
3220 |
if((symbol_value(VV[118]))==Cnil){ |
if((symbol_value(VV[118]))==Cnil){ |
3221 |
goto T1097;} |
goto T1097;} |
3225 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3226 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
3227 |
vs_top=sup; |
vs_top=sup; |
3228 |
goto T1097; |
goto T1097; |
3229 |
T1097:; |
T1097:; |
3230 |
setq(VV[118],list(2,(V287),Cnil)); |
setq(VV[118],list(2,(V287),Cnil)); |
3231 |
base[0]= symbol_value(VV[118]); |
base[0]= symbol_value(VV[118]); |
3310 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
3311 |
goto T1113;} |
goto T1113;} |
3312 |
setq(VV[119],Ct); |
setq(VV[119],Ct); |
3313 |
goto T1113; |
goto T1113; |
3314 |
T1113:; |
T1113:; |
3315 |
{object V297; |
{object V297; |
3316 |
register object V298; |
register object V298; |
3324 |
goto T1121;} |
goto T1121;} |
3325 |
V298= Cnil; |
V298= Cnil; |
3326 |
goto T1120; |
goto T1120; |
3327 |
goto T1121; |
goto T1121; |
3328 |
T1121:; |
T1121:; |
3329 |
vs_base=vs_top; |
vs_base=vs_top; |
3330 |
(void) (*Lnk367)(); |
(void) (*Lnk367)(); |
3331 |
vs_top=sup; |
vs_top=sup; |
3332 |
V298= vs_base[0]; |
V298= vs_base[0]; |
3333 |
goto T1120; |
goto T1120; |
3334 |
T1120:; |
T1120:; |
3335 |
base[3]= car(symbol_value(VV[89])); |
base[3]= car(symbol_value(VV[89])); |
3336 |
base[4]= VV[162]; |
base[4]= VV[162]; |
3347 |
vs_top=sup; |
vs_top=sup; |
3348 |
V299= vs_base[0]; |
V299= vs_base[0]; |
3349 |
goto T1123; |
goto T1123; |
3350 |
goto T1125; |
goto T1125; |
3351 |
T1125:; |
T1125:; |
3352 |
V299= Cnil; |
V299= Cnil; |
3353 |
goto T1123; |
goto T1123; |
3354 |
T1123:; |
T1123:; |
3355 |
if(type_of((V299))==t_symbol){ |
if(type_of((V299))==t_symbol){ |
3356 |
goto T1130;} |
goto T1130;} |
3359 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3360 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
3361 |
vs_top=sup; |
vs_top=sup; |
3362 |
goto T1130; |
goto T1130; |
3363 |
T1130:; |
T1130:; |
3364 |
if(((V298))!=Cnil){ |
if(((V298))!=Cnil){ |
3365 |
goto T1135;}{object V301; |
goto T1135;}{object V301; |
3370 |
if(V301==Cnil)goto T1139; |
if(V301==Cnil)goto T1139; |
3371 |
V298= V301; |
V298= V301; |
3372 |
goto T1138; |
goto T1138; |
3373 |
goto T1139; |
goto T1139; |
3374 |
T1139:;} |
T1139:;} |
3375 |
V298= (V296); |
V298= (V296); |
3376 |
goto T1138; |
goto T1138; |
3377 |
T1138:; |
T1138:; |
3378 |
goto T1135; |
goto T1135; |
3379 |
T1135:; |
T1135:; |
3380 |
{register object V302;{object V303; |
{register object V302;{object V303; |
3381 |
V303= symbol_value(VV[120]); |
V303= symbol_value(VV[120]); |
3399 |
V305= (V302); |
V305= (V302); |
3400 |
setq(VV[120],make_cons((V305),symbol_value(VV[120]))); |
setq(VV[120],make_cons((V305),symbol_value(VV[120]))); |
3401 |
goto T1143;} |
goto T1143;} |
3402 |
goto T1145; |
goto T1145; |
3403 |
T1145:; |
T1145:; |
3404 |
V306= structure_ref((V302),VV[161],1); |
V306= structure_ref((V302),VV[161],1); |
3405 |
if((/* INLINE-ARGS */V306)==((V295))){ |
if((/* INLINE-ARGS */V306)==((V295))){ |
3412 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3413 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
3414 |
vs_top=sup; |
vs_top=sup; |
3415 |
goto T1158; |
goto T1158; |
3416 |
T1158:; |
T1158:; |
3417 |
V308= structure_ref((V302),VV[161],4); |
V308= structure_ref((V302),VV[161],4); |
3418 |
if(equal((V298),/* INLINE-ARGS */V308)){ |
if(equal((V298),/* INLINE-ARGS */V308)){ |
3428 |
if(!((/* INLINE-ARGS */V309)==(Ct))){ |
if(!((/* INLINE-ARGS */V309)==(Ct))){ |
3429 |
goto T1165;} |
goto T1165;} |
3430 |
(void)(structure_set((V302),VV[161],4,(V298))); |
(void)(structure_set((V302),VV[161],4,(V298))); |
3431 |
goto T1165; |
goto T1165; |
3432 |
T1165:; |
T1165:; |
3433 |
{object V312; |
{object V312; |
3434 |
V313= structure_ref(V302,VV[161],2); |
V313= structure_ref(V302,VV[161],2); |
3435 |
V312= make_cons(V294,/* INLINE-ARGS */V313); |
V312= make_cons(V294,/* INLINE-ARGS */V313); |
3436 |
(void)(structure_set(V302,VV[161],2,(V312)));} |
(void)(structure_set(V302,VV[161],2,(V312)));} |
3437 |
goto T1143; |
goto T1143; |
3438 |
T1143:; |
T1143:; |
3439 |
base[3]= (V302); |
base[3]= (V302); |
3440 |
base[4]= (V297); |
base[4]= (V297); |
3468 |
V316= vs_base[0]; |
V316= vs_base[0]; |
3469 |
vs_top=sup; |
vs_top=sup; |
3470 |
goto T1184; |
goto T1184; |
3471 |
goto T1182; |
goto T1182; |
3472 |
T1182:; |
T1182:; |
3473 |
V315= Cnil; |
V315= Cnil; |
3474 |
goto T1183; |
goto T1183; |
3475 |
T1183:; |
T1183:; |
3476 |
V316= Cnil; |
V316= Cnil; |
3477 |
goto T1184; |
goto T1184; |
3478 |
T1184:; |
T1184:; |
3479 |
{register object V317; |
{register object V317; |
3480 |
V317= structure_ref((V315),VV[161],3); |
V317= structure_ref((V315),VV[161],3); |
3494 |
goto T1196;} |
goto T1196;} |
3495 |
V320= Cnil; |
V320= Cnil; |
3496 |
goto T1195; |
goto T1195; |
3497 |
goto T1196; |
goto T1196; |
3498 |
T1196:; |
T1196:; |
3499 |
V321= structure_ref((V315),VV[161],0); |
V321= structure_ref((V315),VV[161],0); |
3500 |
V320= make_cons(/* INLINE-ARGS */V321,Cnil); |
V320= make_cons(/* INLINE-ARGS */V321,Cnil); |
3501 |
goto T1195; |
goto T1195; |
3502 |
T1195:; |
T1195:; |
3503 |
V317= listA(3,V318,V319,V320); |
V317= listA(3,V318,V319,V320); |
3504 |
(void)(structure_set((V315),VV[161],3,(V317))); |
(void)(structure_set((V315),VV[161],3,(V317))); |
3511 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3512 |
(void) (*Lnk372)(); |
(void) (*Lnk372)(); |
3513 |
vs_top=sup; |
vs_top=sup; |
3514 |
goto T1186; |
goto T1186; |
3515 |
T1186:; |
T1186:; |
3516 |
{object V323= (V314); |
{object V323= (V314); |
3517 |
if((V323!= VV[5]))goto T1205; |
if((V323!= VV[5]))goto T1205; |
3518 |
V316= list(2,VV[5],(V316)); |
V316= list(2,VV[5],(V316)); |
3519 |
goto T1204; |
goto T1204; |
3520 |
goto T1205; |
goto T1205; |
3521 |
T1205:; |
T1205:; |
3522 |
if((V323!= VV[373]))goto T1207; |
if((V323!= VV[373]))goto T1207; |
3523 |
goto T1204; |
goto T1204; |
3524 |
goto T1207; |
goto T1207; |
3525 |
T1207:; |
T1207:; |
3526 |
if((V323!= VV[374]))goto T1208; |
if((V323!= VV[374]))goto T1208; |
3527 |
if(!(type_of((V316))==t_cons)){ |
if(!(type_of((V316))==t_cons)){ |
3528 |
goto T1209;} |
goto T1209;} |
3529 |
if((car((V316)))==(VV[5])){ |
if((car((V316)))==(VV[5])){ |
3530 |
goto T1204;} |
goto T1204;} |
3531 |
goto T1209; |
goto T1209; |
3532 |
T1209:; |
T1209:; |
3533 |
V316= list(2,VV[175],(V316)); |
V316= list(2,VV[175],(V316)); |
3534 |
goto T1204; |
goto T1204; |
3535 |
goto T1208; |
goto T1208; |
3536 |
T1208:; |
T1208:; |
3537 |
FEerror("The ECASE key value ~s is illegal.",1,V323); |
FEerror("The ECASE key value ~s is illegal.",1,V323); |
3538 |
goto T1204;} |
goto T1204;} |
3539 |
goto T1204; |
goto T1204; |
3540 |
T1204:; |
T1204:; |
3541 |
base[1]= list(3,VV[176],(V317),(V316)); |
base[1]= list(3,VV[176],(V317),(V316)); |
3542 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3574 |
V328= vs_base[0]; |
V328= vs_base[0]; |
3575 |
vs_top=sup; |
vs_top=sup; |
3576 |
goto T1221; |
goto T1221; |
3577 |
goto T1219; |
goto T1219; |
3578 |
T1219:; |
T1219:; |
3579 |
V327= Cnil; |
V327= Cnil; |
3580 |
goto T1220; |
goto T1220; |
3581 |
T1220:; |
T1220:; |
3582 |
V328= Cnil; |
V328= Cnil; |
3583 |
goto T1221; |
goto T1221; |
3584 |
T1221:; |
T1221:; |
3585 |
base[3]= structure_ref((V327),VV[161],4); |
base[3]= structure_ref((V327),VV[161],4); |
3586 |
base[4]= (V325); |
base[4]= (V325); |
3595 |
if(V331==Cnil)goto T1233; |
if(V331==Cnil)goto T1233; |
3596 |
base[3]= V331; |
base[3]= V331; |
3597 |
goto T1232; |
goto T1232; |
3598 |
goto T1233; |
goto T1233; |
3599 |
T1233:;} |
T1233:;} |
3600 |
base[4]= VV[178]; |
base[4]= VV[178]; |
3601 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3602 |
(void) (*Lnk327)(); |
(void) (*Lnk327)(); |
3603 |
vs_top=sup; |
vs_top=sup; |
3604 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
3605 |
goto T1232; |
goto T1232; |
3606 |
T1232:; |
T1232:; |
3607 |
base[4]= Cnil; |
base[4]= Cnil; |
3608 |
base[5]= structure_ref((V327),VV[161],4); |
base[5]= structure_ref((V327),VV[161],4); |
3619 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3620 |
(void) (*Lnk372)(); |
(void) (*Lnk372)(); |
3621 |
vs_top=sup; |
vs_top=sup; |
3622 |
goto T1226; |
goto T1226; |
3623 |
T1226:; |
T1226:; |
3624 |
if(!(((V324))==(VV[179]))){ |
if(!(((V324))==(VV[179]))){ |
3625 |
goto T1243;} |
goto T1243;} |
3633 |
V334= vs_base[0]; |
V334= vs_base[0]; |
3634 |
base[3]= list(3,VV[8],(V328),list(3,VV[11],/* INLINE-ARGS */V333,V334)); |
base[3]= list(3,VV[8],(V328),list(3,VV[11],/* INLINE-ARGS */V333,V334)); |
3635 |
goto T1241; |
goto T1241; |
3636 |
goto T1243; |
goto T1243; |
3637 |
T1243:; |
T1243:; |
3638 |
V335= car((V329)); |
V335= car((V329)); |
3639 |
base[4]= Ct; |
base[4]= Ct; |
3644 |
vs_top=sup; |
vs_top=sup; |
3645 |
V336= vs_base[0]; |
V336= vs_base[0]; |
3646 |
base[3]= list(3,VV[11],/* INLINE-ARGS */V335,list(3,VV[181],V336,(V328))); |
base[3]= list(3,VV[11],/* INLINE-ARGS */V335,list(3,VV[181],V336,(V328))); |
3647 |
goto T1241; |
goto T1241; |
3648 |
T1241:; |
T1241:; |
3649 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3650 |
(void) (*Lnk364)(); |
(void) (*Lnk364)(); |
3677 |
V339= vs_base[0]; |
V339= vs_base[0]; |
3678 |
vs_top=sup; |
vs_top=sup; |
3679 |
goto T1259; |
goto T1259; |
3680 |
goto T1257; |
goto T1257; |
3681 |
T1257:; |
T1257:; |
3682 |
V338= Cnil; |
V338= Cnil; |
3683 |
goto T1258; |
goto T1258; |
3684 |
T1258:; |
T1258:; |
3685 |
V339= Cnil; |
V339= Cnil; |
3686 |
goto T1259; |
goto T1259; |
3687 |
T1259:; |
T1259:; |
3688 |
base[1]= structure_ref((V338),VV[161],4); |
base[1]= structure_ref((V338),VV[161],4); |
3689 |
base[2]= symbol_value(VV[183]); |
base[2]= symbol_value(VV[183]); |
3698 |
if(V341==Cnil)goto T1270; |
if(V341==Cnil)goto T1270; |
3699 |
base[1]= V341; |
base[1]= V341; |
3700 |
goto T1269; |
goto T1269; |
3701 |
goto T1270; |
goto T1270; |
3702 |
T1270:;} |
T1270:;} |
3703 |
base[2]= VV[184]; |
base[2]= VV[184]; |
3704 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3705 |
(void) (*Lnk327)(); |
(void) (*Lnk327)(); |
3706 |
vs_top=sup; |
vs_top=sup; |
3707 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3708 |
goto T1269; |
goto T1269; |
3709 |
T1269:; |
T1269:; |
3710 |
base[2]= structure_ref((V338),VV[161],4); |
base[2]= structure_ref((V338),VV[161],4); |
3711 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3719 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3720 |
(void) (*Lnk372)(); |
(void) (*Lnk372)(); |
3721 |
vs_top=sup; |
vs_top=sup; |
3722 |
goto T1264; |
goto T1264; |
3723 |
T1264:; |
T1264:; |
3724 |
base[1]= (V337); |
base[1]= (V337); |
3725 |
base[2]= (V340); |
base[2]= (V340); |
3759 |
vs_base=vs_top; |
vs_base=vs_top; |
3760 |
(void) (*Lnk362)(); |
(void) (*Lnk362)(); |
3761 |
vs_top=sup; |
vs_top=sup; |
3762 |
goto T1285; |
goto T1285; |
3763 |
T1285:; |
T1285:; |
3764 |
if(((V344))==Cnil){ |
if(((V344))==Cnil){ |
3765 |
goto T1292;} |
goto T1292;} |
3766 |
V346= VV[8]; |
V346= VV[8]; |
3767 |
goto T1290; |
goto T1290; |
3768 |
goto T1292; |
goto T1292; |
3769 |
T1292:; |
T1292:; |
3770 |
V346= VV[187]; |
V346= VV[187]; |
3771 |
goto T1290; |
goto T1290; |
3772 |
T1290:; |
T1290:; |
3773 |
base[3]= Cnil; |
base[3]= Cnil; |
3774 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3802 |
vs_base=vs_top; |
vs_base=vs_top; |
3803 |
(void) (*Lnk362)(); |
(void) (*Lnk362)(); |
3804 |
vs_top=sup; |
vs_top=sup; |
3805 |
goto T1297; |
goto T1297; |
3806 |
T1297:; |
T1297:; |
3807 |
vs_base=vs_top; |
vs_base=vs_top; |
3808 |
(void) (*Lnk378)(); |
(void) (*Lnk378)(); |
3855 |
goto T1313;} |
goto T1313;} |
3856 |
V356= VV[8]; |
V356= VV[8]; |
3857 |
goto T1311; |
goto T1311; |
3858 |
goto T1313; |
goto T1313; |
3859 |
T1313:; |
T1313:; |
3860 |
V356= VV[187]; |
V356= VV[187]; |
3861 |
goto T1311; |
goto T1311; |
3862 |
T1311:; |
T1311:; |
3863 |
base[3]= list(3,V356,(V355),VV[188]); |
base[3]= list(3,V356,(V355),VV[188]); |
3864 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3886 |
V357= Cnil; |
V357= Cnil; |
3887 |
V358= Cnil; |
V358= Cnil; |
3888 |
V359= Cnil; |
V359= Cnil; |
3889 |
goto T1318; |
goto T1318; |
3890 |
T1318:; |
T1318:; |
3891 |
vs_base=vs_top; |
vs_base=vs_top; |
3892 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
3912 |
vs_top=sup; |
vs_top=sup; |
3913 |
V358= vs_base[0]; |
V358= vs_base[0]; |
3914 |
goto T1327; |
goto T1327; |
3915 |
goto T1329; |
goto T1329; |
3916 |
T1329:; |
T1329:; |
3917 |
V358= Cnil; |
V358= Cnil; |
3918 |
goto T1327; |
goto T1327; |
3919 |
T1327:; |
T1327:; |
3920 |
base[0]= (V357); |
base[0]= (V357); |
3921 |
base[1]= (V358); |
base[1]= (V358); |
3934 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
3935 |
vs_top=sup; |
vs_top=sup; |
3936 |
goto T1338; |
goto T1338; |
3937 |
goto T1340; |
goto T1340; |
3938 |
T1340:; |
T1340:; |
3939 |
vs_base=vs_top; |
vs_base=vs_top; |
3940 |
(void) (*Lnk349)(); |
(void) (*Lnk349)(); |
3941 |
return; |
return; |
3942 |
goto T1338; |
goto T1338; |
3943 |
T1338:; |
T1338:; |
3944 |
goto T1318;} |
goto T1318;} |
3945 |
} |
} |
3975 |
V368= Cnil; |
V368= Cnil; |
3976 |
V369= Cnil; |
V369= Cnil; |
3977 |
V370= Cnil; |
V370= Cnil; |
3978 |
goto T1347; |
goto T1347; |
3979 |
T1347:; |
T1347:; |
3980 |
base[2]= car((V360)); |
base[2]= car((V360)); |
3981 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3995 |
if((car((V369)))!=Cnil){ |
if((car((V369)))!=Cnil){ |
3996 |
goto T1357;} |
goto T1357;} |
3997 |
goto T1356; |
goto T1356; |
3998 |
goto T1357; |
goto T1357; |
3999 |
T1357:; |
T1357:; |
4000 |
{object V372; |
{object V372; |
4001 |
V372= car((V369)); |
V372= car((V369)); |
4002 |
V361= make_cons((V372),(V361));} |
V361= make_cons((V372),(V361));} |
4003 |
goto T1356; |
goto T1356; |
4004 |
T1356:; |
T1356:; |
4005 |
V369= cdr((V369)); |
V369= cdr((V369)); |
4006 |
base[1]= car((V369)); |
base[1]= car((V369)); |
4013 |
if((car((V369)))!=Cnil){ |
if((car((V369)))!=Cnil){ |
4014 |
goto T1367;} |
goto T1367;} |
4015 |
goto T1366; |
goto T1366; |
4016 |
goto T1367; |
goto T1367; |
4017 |
T1367:; |
T1367:; |
4018 |
{object V374; |
{object V374; |
4019 |
V374= car((V369)); |
V374= car((V369)); |
4020 |
V363= make_cons((V374),(V363));} |
V363= make_cons((V374),(V363));} |
4021 |
goto T1366; |
goto T1366; |
4022 |
T1366:; |
T1366:; |
4023 |
V369= cdr((V369)); |
V369= cdr((V369)); |
4024 |
base[1]= car((V369)); |
base[1]= car((V369)); |
4034 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4035 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
4036 |
vs_top=sup; |
vs_top=sup; |
4037 |
goto T1379; |
goto T1379; |
4038 |
T1379:; |
T1379:; |
4039 |
if(((V369))!=Cnil){ |
if(((V369))!=Cnil){ |
4040 |
goto T1383;} |
goto T1383;} |
4041 |
V369= (V370); |
V369= (V370); |
4042 |
goto T1383; |
goto T1383; |
4043 |
T1383:; |
T1383:; |
4044 |
if((car((V369)))==Cnil){ |
if((car((V369)))==Cnil){ |
4045 |
goto T1387;} |
goto T1387;} |
4046 |
{object V376; |
{object V376; |
4047 |
V376= car((V369)); |
V376= car((V369)); |
4048 |
V365= make_cons((V376),(V365));} |
V365= make_cons((V376),(V365));} |
4049 |
goto T1387; |
goto T1387; |
4050 |
T1387:; |
T1387:; |
4051 |
V369= cdr((V369)); |
V369= cdr((V369)); |
4052 |
base[1]= car((V369)); |
base[1]= car((V369)); |
4061 |
{object V378; |
{object V378; |
4062 |
V378= car((V369)); |
V378= car((V369)); |
4063 |
V367= make_cons((V378),(V367));} |
V367= make_cons((V378),(V367));} |
4064 |
goto T1397; |
goto T1397; |
4065 |
T1397:; |
T1397:; |
4066 |
base[1]= cadr((V369)); |
base[1]= cadr((V369)); |
4067 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4124 |
base[1]= Cnil; |
base[1]= Cnil; |
4125 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4126 |
return; |
return; |
4127 |
goto T1407; |
goto T1407; |
4128 |
T1407:; |
T1407:; |
4129 |
vs_base=vs_top; |
vs_base=vs_top; |
4130 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
4143 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
4144 |
vs_top=sup; |
vs_top=sup; |
4145 |
V360= (V369); |
V360= (V369); |
4146 |
goto T1434; |
goto T1434; |
4147 |
T1434:; |
T1434:; |
4148 |
goto T1347;} |
goto T1347;} |
4149 |
} |
} |
4192 |
V392= vs_base[0]; |
V392= vs_base[0]; |
4193 |
if(((V392))!=Cnil){ |
if(((V392))!=Cnil){ |
4194 |
goto T1454;} |
goto T1454;} |
4195 |
goto T1455; |
goto T1455; |
4196 |
T1455:; |
T1455:; |
4197 |
base[3]= VV[194]; |
base[3]= VV[194]; |
4198 |
base[4]= (V390); |
base[4]= (V390); |
4199 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4200 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
4201 |
vs_top=sup; |
vs_top=sup; |
4202 |
goto T1454; |
goto T1454; |
4203 |
T1454:; |
T1454:; |
4204 |
base[3]= car((V392)); |
base[3]= car((V392)); |
4205 |
base[4]= (V388); |
base[4]= (V388); |
4251 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4252 |
goto T1473;} |
goto T1473;} |
4253 |
V395= cadr((V394)); |
V395= cadr((V394)); |
4254 |
goto T1473; |
goto T1473; |
4255 |
T1473:; |
T1473:; |
4256 |
{object V396; |
{object V396; |
4257 |
object V397; |
object V397; |
4270 |
V398= vs_base[0]; |
V398= vs_base[0]; |
4271 |
vs_top=sup; |
vs_top=sup; |
4272 |
goto T1489; |
goto T1489; |
4273 |
goto T1486; |
goto T1486; |
4274 |
T1486:; |
T1486:; |
4275 |
V396= Cnil; |
V396= Cnil; |
4276 |
goto T1487; |
goto T1487; |
4277 |
T1487:; |
T1487:; |
4278 |
V397= Cnil; |
V397= Cnil; |
4279 |
goto T1488; |
goto T1488; |
4280 |
T1488:; |
T1488:; |
4281 |
V398= Cnil; |
V398= Cnil; |
4282 |
goto T1489; |
goto T1489; |
4283 |
T1489:; |
T1489:; |
4284 |
if(((V397))==Cnil){ |
if(((V397))==Cnil){ |
4285 |
goto T1491;} |
goto T1491;} |
4288 |
base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V398),small_fixnum(0))<=0?Ct:Cnil),VV[196]); |
base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V398),small_fixnum(0))<=0?Ct:Cnil),VV[196]); |
4289 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4290 |
return; |
return; |
4291 |
goto T1491; |
goto T1491; |
4292 |
T1491:; |
T1491:; |
4293 |
{register object V399; |
{register object V399; |
4294 |
base[1]= VV[197]; |
base[1]= VV[197]; |
4308 |
base[0]= make_cons(/* INLINE-ARGS */V400,VV[200]); |
base[0]= make_cons(/* INLINE-ARGS */V400,VV[200]); |
4309 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4310 |
return; |
return; |
4311 |
goto T1501; |
goto T1501; |
4312 |
T1501:; |
T1501:; |
4313 |
V401= list(2,VV[201],list(3,VV[11],(V399),list(2,VV[199],(V399)))); |
V401= list(2,VV[201],list(3,VV[11],(V399),list(2,VV[199],(V399)))); |
4314 |
base[0]= make_cons(/* INLINE-ARGS */V401,VV[202]); |
base[0]= make_cons(/* INLINE-ARGS */V401,VV[202]); |
4384 |
base[3]= listA(7,Cnil,/* INLINE-ARGS */V406,Cnil,Cnil,Cnil,list(2,(V402),(V403)),VV[205]); |
base[3]= listA(7,Cnil,/* INLINE-ARGS */V406,Cnil,Cnil,Cnil,list(2,(V402),(V403)),VV[205]); |
4385 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4386 |
return; |
return; |
4387 |
goto T1513; |
goto T1513; |
4388 |
T1513:; |
T1513:; |
4389 |
base[3]= listA(3,Cnil,list(2,(V402),(V403)),VV[206]); |
base[3]= listA(3,Cnil,list(2,(V402),(V403)),VV[206]); |
4390 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4442 |
V414= vs_base[0]; |
V414= vs_base[0]; |
4443 |
vs_top=sup; |
vs_top=sup; |
4444 |
goto T1533; |
goto T1533; |
4445 |
goto T1530; |
goto T1530; |
4446 |
T1530:; |
T1530:; |
4447 |
V412= Cnil; |
V412= Cnil; |
4448 |
goto T1531; |
goto T1531; |
4449 |
T1531:; |
T1531:; |
4450 |
V413= Cnil; |
V413= Cnil; |
4451 |
goto T1532; |
goto T1532; |
4452 |
T1532:; |
T1532:; |
4453 |
V414= Cnil; |
V414= Cnil; |
4454 |
goto T1533; |
goto T1533; |
4455 |
T1533:; |
T1533:; |
4456 |
base[3]= (V410); |
base[3]= (V410); |
4457 |
base[4]= (V412); |
base[4]= (V412); |
4461 |
goto T1539;} |
goto T1539;} |
4462 |
base[5]= cadr((V412)); |
base[5]= cadr((V412)); |
4463 |
goto T1537; |
goto T1537; |
4464 |
goto T1539; |
goto T1539; |
4465 |
T1539:; |
T1539:; |
4466 |
base[5]= VV[209]; |
base[5]= VV[209]; |
4467 |
goto T1537; |
goto T1537; |
4468 |
T1537:; |
T1537:; |
4469 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4470 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
4501 |
vs_top=sup; |
vs_top=sup; |
4502 |
V416= vs_base[0]; |
V416= vs_base[0]; |
4503 |
goto T1548;} |
goto T1548;} |
4504 |
goto T1550; |
goto T1550; |
4505 |
T1550:; |
T1550:; |
4506 |
V415= (long)length((V414)); |
V415= (long)length((V414)); |
4507 |
V416= make_fixnum(V415); |
V416= make_fixnum(V415); |
4508 |
goto T1548; |
goto T1548; |
4509 |
T1548:; |
T1548:; |
4510 |
V417= list(3,VV[213],(V411),(V416)); |
V417= list(3,VV[213],(V411),(V416)); |
4511 |
V418= (V417); |
V418= (V417); |
4517 |
if(!((V415)<=(1))){ |
if(!((V415)<=(1))){ |
4518 |
goto T1565;} |
goto T1565;} |
4519 |
V418= Ct; |
V418= Ct; |
4520 |
goto T1565; |
goto T1565; |
4521 |
T1565:; |
T1565:; |
4522 |
if(((((V417))==((V418))?Ct:Cnil))==Cnil){ |
if(((((V417))==((V418))?Ct:Cnil))==Cnil){ |
4523 |
goto T1574;} |
goto T1574;} |
4524 |
V423= Cnil; |
V423= Cnil; |
4525 |
goto T1573; |
goto T1573; |
4526 |
goto T1574; |
goto T1574; |
4527 |
T1574:; |
T1574:; |
4528 |
V423= list(4,(V417),(V419),Cnil,(V420)); |
V423= list(4,(V417),(V419),Cnil,(V420)); |
4529 |
goto T1573; |
goto T1573; |
4530 |
T1573:; |
T1573:; |
4531 |
base[7]= listA(5,(V418),(V419),Cnil,(V420),V423); |
base[7]= listA(5,(V418),(V419),Cnil,(V420),V423); |
4532 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
4561 |
vs_top=sup; |
vs_top=sup; |
4562 |
V425= vs_base[0]; |
V425= vs_base[0]; |
4563 |
goto T1576; |
goto T1576; |
4564 |
goto T1578; |
goto T1578; |
4565 |
T1578:; |
T1578:; |
4566 |
V425= VV[216]; |
V425= VV[216]; |
4567 |
goto T1576; |
goto T1576; |
4568 |
T1576:; |
T1576:; |
4569 |
if(!(type_of((V425))==t_cons)){ |
if(!(type_of((V425))==t_cons)){ |
4570 |
goto T1584;} |
goto T1584;} |
4578 |
base[2]= Cnil; |
base[2]= Cnil; |
4579 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4580 |
return; |
return; |
4581 |
goto T1584; |
goto T1584; |
4582 |
T1584:; |
T1584:; |
4583 |
if(!(type_of((V425))==t_cons)){ |
if(!(type_of((V425))==t_cons)){ |
4584 |
goto T1593;} |
goto T1593;} |
4588 |
base[2]= cadr((V425)); |
base[2]= cadr((V425)); |
4589 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4590 |
return; |
return; |
4591 |
goto T1593; |
goto T1593; |
4592 |
T1593:; |
T1593:; |
4593 |
base[3]= VV[220]; |
base[3]= VV[220]; |
4594 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4639 |
V432= vs_base[0]; |
V432= vs_base[0]; |
4640 |
vs_top=sup; |
vs_top=sup; |
4641 |
goto T1611; |
goto T1611; |
4642 |
goto T1608; |
goto T1608; |
4643 |
T1608:; |
T1608:; |
4644 |
V430= Cnil; |
V430= Cnil; |
4645 |
goto T1609; |
goto T1609; |
4646 |
T1609:; |
T1609:; |
4647 |
V431= Cnil; |
V431= Cnil; |
4648 |
goto T1610; |
goto T1610; |
4649 |
T1610:; |
T1610:; |
4650 |
V432= Cnil; |
V432= Cnil; |
4651 |
goto T1611; |
goto T1611; |
4652 |
T1611:; |
T1611:; |
4653 |
{register object V433; |
{register object V433; |
4654 |
V433= (V427); |
V433= (V427); |
4663 |
(void) (*Lnk380)(); |
(void) (*Lnk380)(); |
4664 |
vs_top=sup; |
vs_top=sup; |
4665 |
goto T1612; |
goto T1612; |
4666 |
goto T1614; |
goto T1614; |
4667 |
T1614:; |
T1614:; |
4668 |
vs_base=vs_top; |
vs_base=vs_top; |
4669 |
(void) (*Lnk327)(); |
(void) (*Lnk327)(); |
4681 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4682 |
(void) (*Lnk380)(); |
(void) (*Lnk380)(); |
4683 |
vs_top=sup; |
vs_top=sup; |
4684 |
goto T1612; |
goto T1612; |
4685 |
T1612:; |
T1612:; |
4686 |
{object V434; |
{object V434; |
4687 |
object V435; |
object V435; |
4695 |
V435= vs_base[0]; |
V435= vs_base[0]; |
4696 |
vs_top=sup; |
vs_top=sup; |
4697 |
goto T1633; |
goto T1633; |
4698 |
goto T1631; |
goto T1631; |
4699 |
T1631:; |
T1631:; |
4700 |
V434= Cnil; |
V434= Cnil; |
4701 |
goto T1632; |
goto T1632; |
4702 |
T1632:; |
T1632:; |
4703 |
V435= Cnil; |
V435= Cnil; |
4704 |
goto T1633; |
goto T1633; |
4705 |
T1633:; |
T1633:; |
4706 |
{register object V436; |
{register object V436; |
4707 |
object V437; |
object V437; |
4718 |
if(!(type_of((V432))==t_cons||((V432))==Cnil)){ |
if(!(type_of((V432))==t_cons||((V432))==Cnil)){ |
4719 |
goto T1639;} |
goto T1639;} |
4720 |
V436= (((V432))==Cnil?Ct:Cnil); |
V436= (((V432))==Cnil?Ct:Cnil); |
4721 |
goto T1639; |
goto T1639; |
4722 |
T1639:; |
T1639:; |
4723 |
if(!(((V427))==((V433)))){ |
if(!(((V427))==((V433)))){ |
4724 |
goto T1646;} |
goto T1646;} |
4732 |
base[4]= list(8,Cnil,list(2,(V433),V438),(V437),Cnil,Cnil,Cnil,(V436),Cnil); |
base[4]= list(8,Cnil,list(2,(V433),V438),(V437),Cnil,Cnil,Cnil,(V436),Cnil); |
4733 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4734 |
return; |
return; |
4735 |
goto T1646; |
goto T1646; |
4736 |
T1646:; |
T1646:; |
4737 |
{object V439; |
{object V439; |
4738 |
object V440; |
object V440; |
4742 |
goto T1655;} |
goto T1655;} |
4743 |
V441= Cnil; |
V441= Cnil; |
4744 |
goto T1654; |
goto T1654; |
4745 |
goto T1655; |
goto T1655; |
4746 |
T1655:; |
T1655:; |
4747 |
V441= list(4,(V436),(V439),Cnil,(V440)); |
V441= list(4,(V436),(V439),Cnil,(V440)); |
4748 |
goto T1654; |
goto T1654; |
4749 |
T1654:; |
T1654:; |
4750 |
base[4]= listA(5,(V437),(V439),Cnil,(V440),V441); |
base[4]= listA(5,(V437),(V439),Cnil,(V440),V441); |
4751 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4784 |
V447= vs_base[0]; |
V447= vs_base[0]; |
4785 |
vs_top=sup; |
vs_top=sup; |
4786 |
goto T1662; |
goto T1662; |
4787 |
goto T1659; |
goto T1659; |
4788 |
T1659:; |
T1659:; |
4789 |
V445= Cnil; |
V445= Cnil; |
4790 |
goto T1660; |
goto T1660; |
4791 |
T1660:; |
T1660:; |
4792 |
V446= Cnil; |
V446= Cnil; |
4793 |
goto T1661; |
goto T1661; |
4794 |
T1661:; |
T1661:; |
4795 |
V447= Cnil; |
V447= Cnil; |
4796 |
goto T1662; |
goto T1662; |
4797 |
T1662:; |
T1662:; |
4798 |
{register object V448; |
{register object V448; |
4799 |
base[3]= VV[222]; |
base[3]= VV[222]; |
4825 |
V450= vs_base[0]; |
V450= vs_base[0]; |
4826 |
vs_top=sup; |
vs_top=sup; |
4827 |
goto T1677; |
goto T1677; |
4828 |
goto T1675; |
goto T1675; |
4829 |
T1675:; |
T1675:; |
4830 |
V449= Cnil; |
V449= Cnil; |
4831 |
goto T1676; |
goto T1676; |
4832 |
T1676:; |
T1676:; |
4833 |
V450= Cnil; |
V450= Cnil; |
4834 |
goto T1677; |
goto T1677; |
4835 |
T1677:; |
T1677:; |
4836 |
{register object V451; |
{register object V451; |
4837 |
object V452; |
object V452; |
4846 |
if(!(type_of((V447))==t_cons||((V447))==Cnil)){ |
if(!(type_of((V447))==t_cons||((V447))==Cnil)){ |
4847 |
goto T1682;} |
goto T1682;} |
4848 |
V451= (((V447))==Cnil?Ct:Cnil); |
V451= (((V447))==Cnil?Ct:Cnil); |
4849 |
goto T1682; |
goto T1682; |
4850 |
T1682:; |
T1682:; |
4851 |
if(((((V451))==((V452))?Ct:Cnil))==Cnil){ |
if(((((V451))==((V452))?Ct:Cnil))==Cnil){ |
4852 |
goto T1689;} |
goto T1689;} |
4853 |
V455= Cnil; |
V455= Cnil; |
4854 |
goto T1688; |
goto T1688; |
4855 |
goto T1689; |
goto T1689; |
4856 |
T1689:; |
T1689:; |
4857 |
V455= list(4,(V451),(V453),Cnil,(V454)); |
V455= list(4,(V451),(V453),Cnil,(V454)); |
4858 |
goto T1688; |
goto T1688; |
4859 |
T1688:; |
T1688:; |
4860 |
base[6]= listA(5,(V452),(V453),Cnil,(V454),V455); |
base[6]= listA(5,(V452),(V453),Cnil,(V454),V455); |
4861 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
4916 |
if(type_of((V461))==t_cons||((V461))==Cnil){ |
if(type_of((V461))==t_cons||((V461))==Cnil){ |
4917 |
goto T1697;} |
goto T1697;} |
4918 |
V461= make_cons((V461),Cnil); |
V461= make_cons((V461),Cnil); |
4919 |
goto T1697; |
goto T1697; |
4920 |
T1697:; |
T1697:; |
4921 |
bds_bind(VV[44],small_fixnum(4)); |
bds_bind(VV[44],small_fixnum(4)); |
4922 |
bds_bind(VV[45],small_fixnum(4)); |
bds_bind(VV[45],small_fixnum(4)); |
4923 |
goto T1703; |
goto T1703; |
4924 |
T1703:; |
T1703:; |
4925 |
base[11]= (V463); |
base[11]= (V463); |
4926 |
base[12]= VV[39]; |
base[12]= VV[39]; |
4932 |
bds_unwind1; |
bds_unwind1; |
4933 |
bds_unwind1; |
bds_unwind1; |
4934 |
goto T1701; |
goto T1701; |
4935 |
goto T1704; |
goto T1704; |
4936 |
T1704:; |
T1704:; |
4937 |
base[11]= VV[47]; |
base[11]= VV[47]; |
4938 |
base[12]= VV[48]; |
base[12]= VV[48]; |
4962 |
Lformat(); |
Lformat(); |
4963 |
vs_top=sup; |
vs_top=sup; |
4964 |
goto T1703; |
goto T1703; |
4965 |
goto T1701; |
goto T1701; |
4966 |
T1701:; |
T1701:; |
4967 |
{object V467; |
{object V467; |
4968 |
object V468; |
object V468; |
4974 |
base[10]= Cnil; |
base[10]= Cnil; |
4975 |
goto T1732;} |
goto T1732;} |
4976 |
base[11]=V469=MMcons(Cnil,Cnil); |
base[11]=V469=MMcons(Cnil,Cnil); |
4977 |
goto T1733; |
goto T1733; |
4978 |
T1733:; |
T1733:; |
4979 |
(V469->c.c_car)= symbol_name((V470->c.c_car)); |
(V469->c.c_car)= symbol_name((V470->c.c_car)); |
4980 |
V470=MMcdr(V470); |
V470=MMcdr(V470); |
4983 |
goto T1732;} |
goto T1732;} |
4984 |
V469=MMcdr(V469)=MMcons(Cnil,Cnil); |
V469=MMcdr(V469)=MMcons(Cnil,Cnil); |
4985 |
goto T1733;} |
goto T1733;} |
4986 |
goto T1732; |
goto T1732; |
4987 |
T1732:; |
T1732:; |
4988 |
base[11]= VV[227]; |
base[11]= VV[227]; |
4989 |
base[12]= (V462); |
base[12]= (V462); |
4996 |
base[16]= Cnil; |
base[16]= Cnil; |
4997 |
goto T1740;} |
goto T1740;} |
4998 |
base[17]=V471=MMcons(Cnil,Cnil); |
base[17]=V471=MMcons(Cnil,Cnil); |
4999 |
goto T1741; |
goto T1741; |
5000 |
T1741:; |
T1741:; |
5001 |
if(!(type_of((V472->c.c_car))==t_cons||((V472->c.c_car))==Cnil)){ |
if(!(type_of((V472->c.c_car))==t_cons||((V472->c.c_car))==Cnil)){ |
5002 |
goto T1744;} |
goto T1744;} |
5003 |
(V471->c.c_car)= (V472->c.c_car); |
(V471->c.c_car)= (V472->c.c_car); |
5004 |
goto T1742; |
goto T1742; |
5005 |
goto T1744; |
goto T1744; |
5006 |
T1744:; |
T1744:; |
5007 |
(V471->c.c_car)= make_cons((V472->c.c_car),Cnil); |
(V471->c.c_car)= make_cons((V472->c.c_car),Cnil); |
5008 |
goto T1742; |
goto T1742; |
5009 |
T1742:; |
T1742:; |
5010 |
V472=MMcdr(V472); |
V472=MMcdr(V472); |
5011 |
if(endp(V472)){ |
if(endp(V472)){ |
5013 |
goto T1740;} |
goto T1740;} |
5014 |
V471=MMcdr(V471)=MMcons(Cnil,Cnil); |
V471=MMcdr(V471)=MMcons(Cnil,Cnil); |
5015 |
goto T1741;} |
goto T1741;} |
5016 |
goto T1740; |
goto T1740; |
5017 |
T1740:; |
T1740:; |
5018 |
base[17]= VV[230]; |
base[17]= VV[230]; |
5019 |
base[18]= (V465); |
base[18]= (V465); |
5025 |
register object V475; |
register object V475; |
5026 |
V474= (V461); |
V474= (V461); |
5027 |
V475= car((V474)); |
V475= car((V474)); |
5028 |
goto T1752; |
goto T1752; |
5029 |
T1752:; |
T1752:; |
5030 |
if(!(endp_prop((V474)))){ |
if(!(endp_prop((V474)))){ |
5031 |
goto T1753;} |
goto T1753;} |
5032 |
goto T1748; |
goto T1748; |
5033 |
goto T1753; |
goto T1753; |
5034 |
T1753:; |
T1753:; |
5035 |
{register object V476; |
{register object V476; |
5036 |
register object V477; |
register object V477; |
5047 |
V474= cdr((V474)); |
V474= cdr((V474)); |
5048 |
V475= car((V474)); |
V475= car((V474)); |
5049 |
goto T1752;} |
goto T1752;} |
5050 |
goto T1748; |
goto T1748; |
5051 |
T1748:; |
T1748:; |
5052 |
base[9]= (V468); |
base[9]= (V468); |
5053 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
5092 |
vs_top=sup; |
vs_top=sup; |
5093 |
V482= vs_base[0]; |
V482= vs_base[0]; |
5094 |
goto T1769; |
goto T1769; |
5095 |
goto T1771; |
goto T1771; |
5096 |
T1771:; |
T1771:; |
5097 |
base[3]= car(symbol_value(VV[89])); |
base[3]= car(symbol_value(VV[89])); |
5098 |
base[4]= VV[155]; |
base[4]= VV[155]; |
5117 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5118 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5119 |
vs_top=sup; |
vs_top=sup; |
5120 |
goto T1784; |
goto T1784; |
5121 |
T1784:; |
T1784:; |
5122 |
vs_base=vs_top; |
vs_base=vs_top; |
5123 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
5129 |
V487= list(2,VV[234],(V480)); |
V487= list(2,VV[234],(V480)); |
5130 |
V486= make_cons(/* INLINE-ARGS */V487,Cnil); |
V486= make_cons(/* INLINE-ARGS */V487,Cnil); |
5131 |
goto T1769; |
goto T1769; |
5132 |
goto T1777; |
goto T1777; |
5133 |
T1777:; |
T1777:; |
5134 |
base[3]= VV[235]; |
base[3]= VV[235]; |
5135 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5136 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5137 |
vs_top=sup; |
vs_top=sup; |
5138 |
goto T1769; |
goto T1769; |
5139 |
T1769:; |
T1769:; |
5140 |
if(type_of((V482))==t_symbol){ |
if(type_of((V482))==t_symbol){ |
5141 |
goto T1798;} |
goto T1798;} |
5145 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5146 |
vs_top=sup; |
vs_top=sup; |
5147 |
goto T1796; |
goto T1796; |
5148 |
goto T1798; |
goto T1798; |
5149 |
T1798:; |
T1798:; |
5150 |
base[3]= (V482); |
base[3]= (V482); |
5151 |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],3); |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],3); |
5161 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5162 |
vs_top=sup; |
vs_top=sup; |
5163 |
goto T1796; |
goto T1796; |
5164 |
goto T1803; |
goto T1803; |
5165 |
T1803:; |
T1803:; |
5166 |
if(((V484))==Cnil){ |
if(((V484))==Cnil){ |
5167 |
goto T1796;} |
goto T1796;} |
5172 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5173 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5174 |
vs_top=sup; |
vs_top=sup; |
5175 |
goto T1796; |
goto T1796; |
5176 |
T1796:; |
T1796:; |
5177 |
{object V488; |
{object V488; |
5178 |
object V489; |
object V489; |
5193 |
Lsymbol_function(); |
Lsymbol_function(); |
5194 |
vs_top=sup; |
vs_top=sup; |
5195 |
V488= vs_base[0]; |
V488= vs_base[0]; |
5196 |
goto T1823; |
goto T1823; |
5197 |
T1823:; |
T1823:; |
5198 |
if(((V484))==Cnil){ |
if(((V484))==Cnil){ |
5199 |
goto T1830;} |
goto T1830;} |
5213 |
vs_top=sup; |
vs_top=sup; |
5214 |
V485= vs_base[0]; |
V485= vs_base[0]; |
5215 |
goto T1828; |
goto T1828; |
5216 |
goto T1830; |
goto T1830; |
5217 |
T1830:; |
T1830:; |
5218 |
base[3]= (V488); |
base[3]= (V488); |
5219 |
base[4]= (V479); |
base[4]= (V479); |
5228 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
5229 |
vs_top=sup; |
vs_top=sup; |
5230 |
V485= vs_base[0]; |
V485= vs_base[0]; |
5231 |
goto T1828; |
goto T1828; |
5232 |
T1828:;} |
T1828:;} |
5233 |
if((symbol_value(VV[102]))==Cnil){ |
if((symbol_value(VV[102]))==Cnil){ |
5234 |
goto T1844;} |
goto T1844;} |
5237 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5238 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5239 |
vs_top=sup; |
vs_top=sup; |
5240 |
goto T1844; |
goto T1844; |
5241 |
T1844:; |
T1844:; |
5242 |
V495 = make_fixnum((long)length((V485))); |
V495 = make_fixnum((long)length((V485))); |
5243 |
{register object x= V495,V494= VV[241]; |
{register object x= V495,V494= VV[241]; |
5250 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5251 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5252 |
vs_top=sup; |
vs_top=sup; |
5253 |
goto T1849; |
goto T1849; |
5254 |
T1849:; |
T1849:; |
5255 |
{register object V496; |
{register object V496; |
5256 |
register object V497; |
register object V497; |
5257 |
V496= car((V485)); |
V496= car((V485)); |
5258 |
V497= Cnil; |
V497= Cnil; |
5259 |
goto T1857; |
goto T1857; |
5260 |
T1857:; |
T1857:; |
5261 |
if(((V496))!=Cnil){ |
if(((V496))!=Cnil){ |
5262 |
goto T1858;} |
goto T1858;} |
5263 |
goto T1854; |
goto T1854; |
5264 |
goto T1858; |
goto T1858; |
5265 |
T1858:; |
T1858:; |
5266 |
V497= car((V496)); |
V497= car((V496)); |
5267 |
if(!(type_of((V497))!=t_cons)){ |
if(!(type_of((V497))!=t_cons)){ |
5273 |
(void) (*Lnk380)(); |
(void) (*Lnk380)(); |
5274 |
vs_top=sup; |
vs_top=sup; |
5275 |
goto T1862; |
goto T1862; |
5276 |
goto T1864; |
goto T1864; |
5277 |
T1864:; |
T1864:; |
5278 |
base[3]= car((V497)); |
base[3]= car((V497)); |
5279 |
base[4]= cadr((V497)); |
base[4]= cadr((V497)); |
5281 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
5282 |
(void) (*Lnk380)(); |
(void) (*Lnk380)(); |
5283 |
vs_top=sup; |
vs_top=sup; |
5284 |
goto T1862; |
goto T1862; |
5285 |
T1862:; |
T1862:; |
5286 |
V496= cdr((V496)); |
V496= cdr((V496)); |
5287 |
goto T1857;} |
goto T1857;} |
5288 |
goto T1854; |
goto T1854; |
5289 |
T1854:; |
T1854:; |
5290 |
V498= reverse(cadr((V485))); |
V498= reverse(cadr((V485))); |
5291 |
setq(VV[106],nconc(/* INLINE-ARGS */V498,symbol_value(VV[106]))); |
setq(VV[106],nconc(/* INLINE-ARGS */V498,symbol_value(VV[106]))); |
5322 |
base[2]= Cnil; |
base[2]= Cnil; |
5323 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5324 |
return; |
return; |
5325 |
goto T1882; |
goto T1882; |
5326 |
T1882:; |
T1882:; |
5327 |
setq(VV[102],(VFUN_NARGS=2,(*(LnkLI386))((V500),symbol_value(VV[102])))); |
setq(VV[102],(VFUN_NARGS=2,(*(LnkLI386))((V500),symbol_value(VV[102])))); |
5328 |
base[1]= cdr((V500)); |
base[1]= cdr((V500)); |
5351 |
V503=(base[2]); |
V503=(base[2]); |
5352 |
vs_top=sup; |
vs_top=sup; |
5353 |
goto T1892; |
goto T1892; |
5354 |
goto T1890; |
goto T1890; |
5355 |
T1890:; |
T1890:; |
5356 |
V502= Cnil; |
V502= Cnil; |
5357 |
goto T1891; |
goto T1891; |
5358 |
T1891:; |
T1891:; |
5359 |
V503= Cnil; |
V503= Cnil; |
5360 |
goto T1892; |
goto T1892; |
5361 |
T1892:; |
T1892:; |
5362 |
base[3]=make_cclosure_new(LC96,Cnil,Cnil,Cdata); |
base[3]=make_cclosure_new(LC96,Cnil,Cnil,Cdata); |
5363 |
base[3]=MMcons(base[3],Cnil); |
base[3]=MMcons(base[3],Cnil); |
5373 |
V508= Cnil; |
V508= Cnil; |
5374 |
goto T1895;} |
goto T1895;} |
5375 |
base[4]=V510=MMcons(Cnil,Cnil); |
base[4]=V510=MMcons(Cnil,Cnil); |
5376 |
goto T1896; |
goto T1896; |
5377 |
T1896:; |
T1896:; |
5378 |
V513= car((V511->c.c_car)); |
V513= car((V511->c.c_car)); |
5379 |
V514= (base[3]->c.c_car); |
V514= (base[3]->c.c_car); |
5389 |
V508= base[4]; |
V508= base[4]; |
5390 |
goto T1895;} |
goto T1895;} |
5391 |
goto T1896;} |
goto T1896;} |
5392 |
goto T1895; |
goto T1895; |
5393 |
T1895:; |
T1895:; |
5394 |
{object V515; |
{object V515; |
5395 |
object V516= (V503); |
object V516= (V503); |
5397 |
V509= Cnil; |
V509= Cnil; |
5398 |
goto T1900;} |
goto T1900;} |
5399 |
base[4]=V515=MMcons(Cnil,Cnil); |
base[4]=V515=MMcons(Cnil,Cnil); |
5400 |
goto T1901; |
goto T1901; |
5401 |
T1901:; |
T1901:; |
5402 |
(V515->c.c_car)= car((V516->c.c_car)); |
(V515->c.c_car)= car((V516->c.c_car)); |
5403 |
V516=MMcdr(V516); |
V516=MMcdr(V516); |
5406 |
goto T1900;} |
goto T1900;} |
5407 |
V515=MMcdr(V515)=MMcons(Cnil,Cnil); |
V515=MMcdr(V515)=MMcons(Cnil,Cnil); |
5408 |
goto T1901;} |
goto T1901;} |
5409 |
goto T1900; |
goto T1900; |
5410 |
T1900:; |
T1900:; |
5411 |
V504= Cnil; |
V504= Cnil; |
5412 |
V505= (V503); |
V505= (V503); |
5413 |
V506= Cnil; |
V506= Cnil; |
5414 |
V507= Cnil; |
V507= Cnil; |
5415 |
goto T1904; |
goto T1904; |
5416 |
T1904:; |
T1904:; |
5417 |
if((symbol_value(VV[89]))!=Cnil){ |
if((symbol_value(VV[89]))!=Cnil){ |
5418 |
goto T1905;} |
goto T1905;} |
5419 |
base[4]= nreverse((V505)); |
base[4]= nreverse((V505)); |
5420 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5421 |
return; |
return; |
5422 |
goto T1905; |
goto T1905; |
5423 |
T1905:; |
T1905:; |
5424 |
V504= car(symbol_value(VV[89])); |
V504= car(symbol_value(VV[89])); |
5425 |
{register object V517; |
{register object V517; |
5426 |
register object V518; |
register object V518; |
5427 |
V517= (V501); |
V517= (V501); |
5428 |
V518= car((V517)); |
V518= car((V517)); |
5429 |
goto T1915; |
goto T1915; |
5430 |
T1915:; |
T1915:; |
5431 |
if(!(endp_prop((V517)))){ |
if(!(endp_prop((V517)))){ |
5432 |
goto T1916;} |
goto T1916;} |
5433 |
goto T1911; |
goto T1911; |
5434 |
goto T1916; |
goto T1916; |
5435 |
T1916:; |
T1916:; |
5436 |
base[5]= (V504); |
base[5]= (V504); |
5437 |
base[6]= (V518); |
base[6]= (V518); |
5443 |
goto T1920;} |
goto T1920;} |
5444 |
V506= (V518); |
V506= (V518); |
5445 |
goto T1911; |
goto T1911; |
5446 |
goto T1920; |
goto T1920; |
5447 |
T1920:; |
T1920:; |
5448 |
V517= cdr((V517)); |
V517= cdr((V517)); |
5449 |
V518= car((V517)); |
V518= car((V517)); |
5450 |
goto T1915;} |
goto T1915;} |
5451 |
goto T1911; |
goto T1911; |
5452 |
T1911:; |
T1911:; |
5453 |
if(((V506))==Cnil){ |
if(((V506))==Cnil){ |
5454 |
goto T1934;} |
goto T1934;} |
5458 |
goto T1938; |
goto T1938; |
5459 |
}else V519=V519->c.c_cdr; |
}else V519=V519->c.c_cdr; |
5460 |
goto T1936;} |
goto T1936;} |
5461 |
goto T1938; |
goto T1938; |
5462 |
T1938:; |
T1938:; |
5463 |
{register object x= (V507),V520= (V509); |
{register object x= (V507),V520= (V509); |
5464 |
while(!endp(V520)) |
while(!endp(V520)) |
5466 |
goto T1942; |
goto T1942; |
5467 |
}else V520=V520->c.c_cdr; |
}else V520=V520->c.c_cdr; |
5468 |
goto T1941;} |
goto T1941;} |
5469 |
goto T1942; |
goto T1942; |
5470 |
T1942:; |
T1942:; |
5471 |
base[4]= VV[243]; |
base[4]= VV[243]; |
5472 |
goto T1939; |
goto T1939; |
5473 |
goto T1941; |
goto T1941; |
5474 |
T1941:; |
T1941:; |
5475 |
base[4]= VV[244]; |
base[4]= VV[244]; |
5476 |
goto T1939; |
goto T1939; |
5477 |
T1939:; |
T1939:; |
5478 |
base[5]= (V504); |
base[5]= (V504); |
5479 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5480 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5481 |
vs_top=sup; |
vs_top=sup; |
5482 |
goto T1936; |
goto T1936; |
5483 |
T1936:; |
T1936:; |
5484 |
if(!(type_of((V506))==t_cons||((V506))==Cnil)){ |
if(!(type_of((V506))==t_cons||((V506))==Cnil)){ |
5485 |
goto T1947;} |
goto T1947;} |
5486 |
V509= append((V506),(V509)); |
V509= append((V506),(V509)); |
5487 |
goto T1945; |
goto T1945; |
5488 |
goto T1947; |
goto T1947; |
5489 |
T1947:; |
T1947:; |
5490 |
V509= make_cons((V506),(V509)); |
V509= make_cons((V506),(V509)); |
5491 |
goto T1945; |
goto T1945; |
5492 |
T1945:; |
T1945:; |
5493 |
vs_base=vs_top; |
vs_base=vs_top; |
5494 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
5501 |
V521= list(2,(V507),V522); |
V521= list(2,(V507),V522); |
5502 |
V505= make_cons((V521),(V505)); |
V505= make_cons((V521),(V505)); |
5503 |
goto T1932;} |
goto T1932;} |
5504 |
goto T1934; |
goto T1934; |
5505 |
T1934:; |
T1934:; |
5506 |
if(((V502))==Cnil){ |
if(((V502))==Cnil){ |
5507 |
goto T1954;} |
goto T1954;} |
5522 |
vs_top=sup; |
vs_top=sup; |
5523 |
V523= vs_base[0]; |
V523= vs_base[0]; |
5524 |
V524= Cnil; |
V524= Cnil; |
5525 |
goto T1963; |
goto T1963; |
5526 |
T1963:; |
T1963:; |
5527 |
if(type_of((V523))!=t_cons){ |
if(type_of((V523))!=t_cons){ |
5528 |
goto T1967;} |
goto T1967;} |
5536 |
goto T1966;} |
goto T1966;} |
5537 |
if(type_of(cadr((V523)))==t_symbol){ |
if(type_of(cadr((V523)))==t_symbol){ |
5538 |
goto T1966;} |
goto T1966;} |
5539 |
goto T1967; |
goto T1967; |
5540 |
T1967:; |
T1967:; |
5541 |
base[4]= VV[246]; |
base[4]= VV[246]; |
5542 |
base[5]= (V523); |
base[5]= (V523); |
5543 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5544 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5545 |
vs_top=sup; |
vs_top=sup; |
5546 |
goto T1966; |
goto T1966; |
5547 |
T1966:; |
T1966:; |
5548 |
if((cadr((V523)))==Cnil){ |
if((cadr((V523)))==Cnil){ |
5549 |
goto T1981;} |
goto T1981;} |
5563 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5564 |
vs_top=sup; |
vs_top=sup; |
5565 |
goto T1981; |
goto T1981; |
5566 |
goto T1985; |
goto T1985; |
5567 |
T1985:; |
T1985:; |
5568 |
{object V525; |
{object V525; |
5569 |
V525= make_cons(car((V523)),cadr((V523))); |
V525= make_cons(car((V523)),cadr((V523))); |
5570 |
setq(VV[102],make_cons((V525),symbol_value(VV[102])));} |
setq(VV[102],make_cons((V525),symbol_value(VV[102])));} |
5571 |
goto T1981; |
goto T1981; |
5572 |
T1981:; |
T1981:; |
5573 |
if((symbol_value(VV[89]))==Cnil){ |
if((symbol_value(VV[89]))==Cnil){ |
5574 |
goto T1997;} |
goto T1997;} |
5575 |
if(!(type_of(car(symbol_value(VV[89])))==t_symbol)){ |
if(!(type_of(car(symbol_value(VV[89])))==t_symbol)){ |
5576 |
goto T1996;} |
goto T1996;} |
5577 |
goto T1997; |
goto T1997; |
5578 |
T1997:; |
T1997:; |
5579 |
goto T1932; |
goto T1932; |
5580 |
goto T1996; |
goto T1996; |
5581 |
T1996:; |
T1996:; |
5582 |
vs_base=vs_top; |
vs_base=vs_top; |
5583 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
5584 |
vs_top=sup; |
vs_top=sup; |
5585 |
V523= vs_base[0]; |
V523= vs_base[0]; |
5586 |
goto T1963;} |
goto T1963;} |
5587 |
goto T1954; |
goto T1954; |
5588 |
T1954:; |
T1954:; |
5589 |
base[4]= nreverse((V505)); |
base[4]= nreverse((V505)); |
5590 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5591 |
return; |
return; |
5592 |
goto T1932; |
goto T1932; |
5593 |
T1932:; |
T1932:; |
5594 |
V506= Cnil; |
V506= Cnil; |
5595 |
V507= Cnil; |
V507= Cnil; |
5649 |
if(V552==Cnil)goto T2010; |
if(V552==Cnil)goto T2010; |
5650 |
V551= V552; |
V551= V552; |
5651 |
goto T2009; |
goto T2009; |
5652 |
goto T2010; |
goto T2010; |
5653 |
T2010:;} |
T2010:;} |
5654 |
V551= small_fixnum(0); |
V551= small_fixnum(0); |
5655 |
goto T2009; |
goto T2009; |
5656 |
T2009:; |
T2009:; |
5657 |
V540= one_plus(V551); |
V540= one_plus(V551); |
5658 |
V536= Cnil; |
V536= Cnil; |
5677 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5678 |
(void) (*Lnk380)(); |
(void) (*Lnk380)(); |
5679 |
vs_top=sup; |
vs_top=sup; |
5680 |
goto T2013; |
goto T2013; |
5681 |
T2013:; |
T2013:; |
5682 |
{register object V553; |
{register object V553; |
5683 |
register object V554; |
register object V554; |
5687 |
V554= Cnil; |
V554= Cnil; |
5688 |
V555= Cnil; |
V555= Cnil; |
5689 |
V556= Cnil; |
V556= Cnil; |
5690 |
goto T2021; |
goto T2021; |
5691 |
T2021:; |
T2021:; |
5692 |
if(((V553))!=Cnil){ |
if(((V553))!=Cnil){ |
5693 |
goto T2022;} |
goto T2022;} |
5694 |
goto T2019; |
goto T2019; |
5695 |
goto T2022; |
goto T2022; |
5696 |
T2022:; |
T2022:; |
5697 |
V554= caar((V553)); |
V554= caar((V553)); |
5698 |
V555= cadar((V553)); |
V555= cadar((V553)); |
5707 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
5708 |
vs_top=sup; |
vs_top=sup; |
5709 |
goto T2030; |
goto T2030; |
5710 |
goto T2031; |
goto T2031; |
5711 |
T2031:; |
T2031:; |
5712 |
if((V557!= VV[388]) |
if((V557!= VV[388]) |
5713 |
&& (V557!= VV[248]) |
&& (V557!= VV[248]) |
5717 |
goto T2042;} |
goto T2042;} |
5718 |
V543= VV[249]; |
V543= VV[249]; |
5719 |
goto T2040; |
goto T2040; |
5720 |
goto T2042; |
goto T2042; |
5721 |
T2042:; |
T2042:; |
5722 |
if(!(((V554))==(VV[250]))){ |
if(!(((V554))==(VV[250]))){ |
5723 |
goto T2040;} |
goto T2040;} |
5724 |
V543= VV[251]; |
V543= VV[251]; |
5725 |
goto T2040; |
goto T2040; |
5726 |
T2040:; |
T2040:; |
5727 |
base[10]= (V555); |
base[10]= (V555); |
5728 |
base[11]= (V527); |
base[11]= (V527); |
5750 |
(void) (*Lnk380)(); |
(void) (*Lnk380)(); |
5751 |
vs_top=sup; |
vs_top=sup; |
5752 |
goto T2030; |
goto T2030; |
5753 |
goto T2037; |
goto T2037; |
5754 |
T2037:; |
T2037:; |
5755 |
if((V557!= VV[252]) |
if((V557!= VV[252]) |
5756 |
&& (V557!= VV[253]) |
&& (V557!= VV[253]) |
5767 |
V543= VV[251]; |
V543= VV[251]; |
5768 |
V544= VV[251]; |
V544= VV[251]; |
5769 |
goto T2056; |
goto T2056; |
5770 |
goto T2058; |
goto T2058; |
5771 |
T2058:; |
T2058:; |
5772 |
base[10]= (V554); |
base[10]= (V554); |
5773 |
base[11]= VV[253]; |
base[11]= VV[253]; |
5778 |
goto T2065;} |
goto T2065;} |
5779 |
V544= Ct; |
V544= Ct; |
5780 |
goto T2056; |
goto T2056; |
5781 |
goto T2065; |
goto T2065; |
5782 |
T2065:; |
T2065:; |
5783 |
base[10]= (V554); |
base[10]= (V554); |
5784 |
base[11]= VV[254]; |
base[11]= VV[254]; |
5790 |
V543= VV[249]; |
V543= VV[249]; |
5791 |
V544= VV[249]; |
V544= VV[249]; |
5792 |
goto T2056; |
goto T2056; |
5793 |
goto T2071; |
goto T2071; |
5794 |
T2071:; |
T2071:; |
5795 |
base[10]= (V554); |
base[10]= (V554); |
5796 |
base[11]= VV[255]; |
base[11]= VV[255]; |
5801 |
goto T2078;} |
goto T2078;} |
5802 |
V543= VV[249]; |
V543= VV[249]; |
5803 |
goto T2056; |
goto T2056; |
5804 |
goto T2078; |
goto T2078; |
5805 |
T2078:; |
T2078:; |
5806 |
base[10]= (V554); |
base[10]= (V554); |
5807 |
base[11]= VV[256]; |
base[11]= VV[256]; |
5811 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5812 |
goto T2056;} |
goto T2056;} |
5813 |
V543= VV[251]; |
V543= VV[251]; |
5814 |
goto T2056; |
goto T2056; |
5815 |
T2056:; |
T2056:; |
5816 |
V548= Ct; |
V548= Ct; |
5817 |
base[10]= (V555); |
base[10]= (V555); |
5837 |
goto T2096;} |
goto T2096;} |
5838 |
V536= list(2,VV[217],(V550)); |
V536= list(2,VV[217],(V550)); |
5839 |
goto T2094; |
goto T2094; |
5840 |
goto T2096; |
goto T2096; |
5841 |
T2096:; |
T2096:; |
5842 |
base[11]= VV[257]; |
base[11]= VV[257]; |
5843 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
5850 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
5851 |
vs_top=sup; |
vs_top=sup; |
5852 |
V536= vs_base[0]; |
V536= vs_base[0]; |
5853 |
goto T2094; |
goto T2094; |
5854 |
T2094:; |
T2094:; |
5855 |
goto T2030; |
goto T2030; |
5856 |
goto T2055; |
goto T2055; |
5857 |
T2055:; |
T2055:; |
5858 |
if((V557!= VV[215]))goto T2102; |
if((V557!= VV[215]))goto T2102; |
5859 |
base[10]= (V555); |
base[10]= (V555); |
5889 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
5890 |
vs_top=sup; |
vs_top=sup; |
5891 |
goto T2030; |
goto T2030; |
5892 |
goto T2102; |
goto T2102; |
5893 |
T2102:; |
T2102:; |
5894 |
base[10]= VV[259]; |
base[10]= VV[259]; |
5895 |
base[11]= (V554); |
base[11]= (V554); |
5896 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5897 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5898 |
vs_top=sup;} |
vs_top=sup;} |
5899 |
goto T2030; |
goto T2030; |
5900 |
T2030:; |
T2030:; |
5901 |
if(((V556))==Cnil){ |
if(((V556))==Cnil){ |
5902 |
goto T2116;} |
goto T2116;} |
5908 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5909 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5910 |
vs_top=sup; |
vs_top=sup; |
5911 |
goto T2116; |
goto T2116; |
5912 |
T2116:; |
T2116:; |
5913 |
V556= (V543); |
V556= (V543); |
5914 |
V553= cdr((V553)); |
V553= cdr((V553)); |
5915 |
goto T2021;} |
goto T2021;} |
5916 |
goto T2019; |
goto T2019; |
5917 |
T2019:; |
T2019:; |
5918 |
if(((V531))==Cnil){ |
if(((V531))==Cnil){ |
5919 |
goto T2129;} |
goto T2129;} |
5923 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5924 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
5925 |
vs_top=sup; |
vs_top=sup; |
5926 |
goto T2129; |
goto T2129; |
5927 |
T2129:; |
T2129:; |
5928 |
if(((V545))!=Cnil){ |
if(((V545))!=Cnil){ |
5929 |
goto T2135;} |
goto T2135;} |
5937 |
if(V558==Cnil)goto T2143; |
if(V558==Cnil)goto T2143; |
5938 |
V546= V558; |
V546= V558; |
5939 |
goto T2142; |
goto T2142; |
5940 |
goto T2143; |
goto T2143; |
5941 |
T2143:;} |
T2143:;} |
5942 |
V546= small_fixnum(0); |
V546= small_fixnum(0); |
5943 |
goto T2142; |
goto T2142; |
5944 |
T2142:; |
T2142:; |
5945 |
base[11]= (V546); |
base[11]= (V546); |
5946 |
base[12]= (V527); |
base[12]= (V527); |
5947 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5948 |
(void) (*Lnk380)(); |
(void) (*Lnk380)(); |
5949 |
vs_top=sup; |
vs_top=sup; |
5950 |
goto T2135; |
goto T2135; |
5951 |
T2135:; |
T2135:; |
5952 |
{register object x= (V543),V559= VV[262]; |
{register object x= (V543),V559= VV[262]; |
5953 |
while(!endp(V559)) |
while(!endp(V559)) |
5955 |
goto T2150; |
goto T2150; |
5956 |
}else V559=V559->c.c_cdr; |
}else V559=V559->c.c_cdr; |
5957 |
goto T2149;} |
goto T2149;} |
5958 |
goto T2150; |
goto T2150; |
5959 |
T2150:; |
T2150:; |
5960 |
if(((V548))!=Cnil){ |
if(((V548))!=Cnil){ |
5961 |
goto T2152;} |
goto T2152;} |
5962 |
if(((V534))==Cnil){ |
if(((V534))==Cnil){ |
5963 |
goto T2151;} |
goto T2151;} |
5964 |
goto T2152; |
goto T2152; |
5965 |
T2152:; |
T2152:; |
5966 |
if(((V548))!=Cnil){ |
if(((V548))!=Cnil){ |
5967 |
goto T2156;} |
goto T2156;} |
5979 |
{object V560; |
{object V560; |
5980 |
V560= list(3,VV[11],(V536),(V534)); |
V560= list(3,VV[11],(V536),(V534)); |
5981 |
setq(VV[106],make_cons((V560),symbol_value(VV[106])));} |
setq(VV[106],make_cons((V560),symbol_value(VV[106])));} |
5982 |
goto T2156; |
goto T2156; |
5983 |
T2156:; |
T2156:; |
5984 |
if(((V544))==Cnil){ |
if(((V544))==Cnil){ |
5985 |
goto T2169;} |
goto T2169;} |
5986 |
V538= VV[34]; |
V538= VV[34]; |
5987 |
goto T2167; |
goto T2167; |
5988 |
goto T2169; |
goto T2169; |
5989 |
T2169:; |
T2169:; |
5990 |
V538= VV[213]; |
V538= VV[213]; |
5991 |
goto T2167; |
goto T2167; |
5992 |
T2167:; |
T2167:; |
5993 |
goto T2151; |
goto T2151; |
5994 |
T2151:; |
T2151:; |
5995 |
if(!(eql((V540),small_fixnum(1)))){ |
if(!(eql((V540),small_fixnum(1)))){ |
5996 |
goto T2173;} |
goto T2173;} |
5997 |
V542= list(2,VV[180],(V526)); |
V542= list(2,VV[180],(V526)); |
5998 |
goto T2171; |
goto T2171; |
5999 |
goto T2173; |
goto T2173; |
6000 |
T2173:; |
T2173:; |
6001 |
V542= list(3,VV[181],(V526),(V540)); |
V542= list(3,VV[181],(V526),(V540)); |
6002 |
goto T2171; |
goto T2171; |
6003 |
T2171:; |
T2171:; |
6004 |
goto T2147; |
goto T2147; |
6005 |
goto T2149; |
goto T2149; |
6006 |
T2149:; |
T2149:; |
6007 |
if(((V545))!=Cnil){ |
if(((V545))!=Cnil){ |
6008 |
goto T2175;} |
goto T2175;} |
6012 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6013 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
6014 |
vs_top=sup; |
vs_top=sup; |
6015 |
goto T2178; |
goto T2178; |
6016 |
T2178:; |
T2178:; |
6017 |
{object V561; |
{object V561; |
6018 |
V561= list(3,VV[11],(V526),list(2,VV[199],(V534))); |
V561= list(3,VV[11],(V526),list(2,VV[199],(V534))); |
6019 |
setq(VV[106],make_cons((V561),symbol_value(VV[106])));} |
setq(VV[106],make_cons((V561),symbol_value(VV[106])));} |
6020 |
goto T2175; |
goto T2175; |
6021 |
T2175:; |
T2175:; |
6022 |
if(((V534))==Cnil){ |
if(((V534))==Cnil){ |
6023 |
goto T2184;} |
goto T2184;} |
6029 |
vs_top=sup; |
vs_top=sup; |
6030 |
V536= vs_base[0]; |
V536= vs_base[0]; |
6031 |
V544= Ct; |
V544= Ct; |
6032 |
goto T2184; |
goto T2184; |
6033 |
T2184:; |
T2184:; |
6034 |
if(((V536))==Cnil){ |
if(((V536))==Cnil){ |
6035 |
goto T2193;} |
goto T2193;} |
6037 |
goto T2198;} |
goto T2198;} |
6038 |
V538= VV[33]; |
V538= VV[33]; |
6039 |
goto T2196; |
goto T2196; |
6040 |
goto T2198; |
goto T2198; |
6041 |
T2198:; |
T2198:; |
6042 |
V538= VV[265]; |
V538= VV[265]; |
6043 |
goto T2196; |
goto T2196; |
6044 |
T2196:; |
T2196:; |
6045 |
goto T2193; |
goto T2193; |
6046 |
T2193:; |
T2193:; |
6047 |
if(!(eql((V540),small_fixnum(1)))){ |
if(!(eql((V540),small_fixnum(1)))){ |
6048 |
goto T2202;} |
goto T2202;} |
6049 |
V542= list(2,VV[199],(V526)); |
V542= list(2,VV[199],(V526)); |
6050 |
goto T2200; |
goto T2200; |
6051 |
goto T2202; |
goto T2202; |
6052 |
T2202:; |
T2202:; |
6053 |
V542= list(3,VV[266],(V526),(V540)); |
V542= list(3,VV[266],(V526),(V540)); |
6054 |
goto T2200; |
goto T2200; |
6055 |
T2200:; |
T2200:; |
6056 |
goto T2147; |
goto T2147; |
6057 |
T2147:; |
T2147:; |
6058 |
if(((V538))==Cnil){ |
if(((V538))==Cnil){ |
6059 |
goto T2204;} |
goto T2204;} |
6064 |
(void) (*Lnk331)(); |
(void) (*Lnk331)(); |
6065 |
vs_top=sup; |
vs_top=sup; |
6066 |
V539= vs_base[0]; |
V539= vs_base[0]; |
6067 |
goto T2204; |
goto T2204; |
6068 |
T2204:; |
T2204:; |
6069 |
if(((V533))==Cnil){ |
if(((V533))==Cnil){ |
6070 |
goto T2211;} |
goto T2211;} |
6076 |
vs_top=sup; |
vs_top=sup; |
6077 |
V562= vs_base[0]; |
V562= vs_base[0]; |
6078 |
V533= list(2,(V529),V562); |
V533= list(2,(V529),V562); |
6079 |
goto T2211; |
goto T2211; |
6080 |
T2211:; |
T2211:; |
6081 |
{object V563; |
{object V563; |
6082 |
object V564; |
object V564; |
6100 |
if(((V563))==Cnil){ |
if(((V563))==Cnil){ |
6101 |
goto T2219;} |
goto T2219;} |
6102 |
V564= Ct; |
V564= Ct; |
6103 |
goto T2219; |
goto T2219; |
6104 |
T2219:; |
T2219:; |
6105 |
base[10]= Ct; |
base[10]= Ct; |
6106 |
base[11]= (V526); |
base[11]= (V526); |
6194 |
V581= vs_base[0]; |
V581= vs_base[0]; |
6195 |
vs_top=sup; |
vs_top=sup; |
6196 |
goto T2255; |
goto T2255; |
6197 |
goto T2253; |
goto T2253; |
6198 |
T2253:; |
T2253:; |
6199 |
V580= Cnil; |
V580= Cnil; |
6200 |
goto T2254; |
goto T2254; |
6201 |
T2254:; |
T2254:; |
6202 |
V581= Cnil; |
V581= Cnil; |
6203 |
goto T2255; |
goto T2255; |
6204 |
T2255:; |
T2255:; |
6205 |
{object V582; |
{object V582; |
6206 |
base[11]= VV[269]; |
base[11]= VV[269]; |
6216 |
base[15]= (V574); |
base[15]= (V574); |
6217 |
goto T2263;} |
goto T2263;} |
6218 |
base[15]= (V579); |
base[15]= (V579); |
6219 |
goto T2263; |
goto T2263; |
6220 |
T2263:; |
T2263:; |
6221 |
base[16]= (V582); |
base[16]= (V582); |
6222 |
base[17]= (V578); |
base[17]= (V578); |
6252 |
V587=(base[3]); |
V587=(base[3]); |
6253 |
bds_bind(VV[44],small_fixnum(4)); |
bds_bind(VV[44],small_fixnum(4)); |
6254 |
bds_bind(VV[45],small_fixnum(4)); |
bds_bind(VV[45],small_fixnum(4)); |
6255 |
goto T2271; |
goto T2271; |
6256 |
T2271:; |
T2271:; |
6257 |
base[7]= (V587); |
base[7]= (V587); |
6258 |
base[8]= VV[270]; |
base[8]= VV[270]; |
6264 |
bds_unwind1; |
bds_unwind1; |
6265 |
bds_unwind1; |
bds_unwind1; |
6266 |
goto T2269; |
goto T2269; |
6267 |
goto T2272; |
goto T2272; |
6268 |
T2272:; |
T2272:; |
6269 |
base[7]= VV[47]; |
base[7]= VV[47]; |
6270 |
base[8]= VV[48]; |
base[8]= VV[48]; |
6294 |
Lformat(); |
Lformat(); |
6295 |
vs_top=sup; |
vs_top=sup; |
6296 |
goto T2271; |
goto T2271; |
6297 |
goto T2269; |
goto T2269; |
6298 |
T2269:; |
T2269:; |
6299 |
if((cdr((V586)))!=Cnil){ |
if((cdr((V586)))!=Cnil){ |
6300 |
goto T2298;} |
goto T2298;} |
6303 |
if(eql(x,V588->c.c_car)){ |
if(eql(x,V588->c.c_car)){ |
6304 |
goto T2299; |
goto T2299; |
6305 |
}else V588=V588->c.c_cdr;} |
}else V588=V588->c.c_cdr;} |
6306 |
goto T2298; |
goto T2298; |
6307 |
T2298:; |
T2298:; |
6308 |
base[5]= VV[273]; |
base[5]= VV[273]; |
6309 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6310 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
6311 |
vs_top=sup; |
vs_top=sup; |
6312 |
goto T2297; |
goto T2297; |
6313 |
goto T2299; |
goto T2299; |
6314 |
T2299:; |
T2299:; |
6315 |
if(((V586))!=Cnil){ |
if(((V586))!=Cnil){ |
6316 |
goto T2297;} |
goto T2297;} |
6318 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6319 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
6320 |
vs_top=sup; |
vs_top=sup; |
6321 |
goto T2297; |
goto T2297; |
6322 |
T2297:; |
T2297:; |
6323 |
{object V589; |
{object V589; |
6324 |
object V590; |
object V590; |
6342 |
goto T2314;} |
goto T2314;} |
6343 |
base[5]= VV[278]; |
base[5]= VV[278]; |
6344 |
goto T2312; |
goto T2312; |
6345 |
goto T2314; |
goto T2314; |
6346 |
T2314:; |
T2314:; |
6347 |
base[5]= VV[277]; |
base[5]= VV[277]; |
6348 |
goto T2312; |
goto T2312; |
6349 |
T2312:; |
T2312:; |
6350 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6351 |
(void) (*Lnk394)(); |
(void) (*Lnk394)(); |
6356 |
V594= vs_base[0]; |
V594= vs_base[0]; |
6357 |
vs_top=sup; |
vs_top=sup; |
6358 |
goto T2318; |
goto T2318; |
6359 |
goto T2316; |
goto T2316; |
6360 |
T2316:; |
T2316:; |
6361 |
V593= Cnil; |
V593= Cnil; |
6362 |
goto T2317; |
goto T2317; |
6363 |
T2317:; |
T2317:; |
6364 |
V594= Cnil; |
V594= Cnil; |
6365 |
goto T2318; |
goto T2318; |
6366 |
T2318:; |
T2318:; |
6367 |
V594= Ct; |
V594= Ct; |
6368 |
vs_base=vs_top; |
vs_base=vs_top; |
6382 |
goto T2324;} |
goto T2324;} |
6383 |
V601= list(2,(V593),Cnil); |
V601= list(2,(V593),Cnil); |
6384 |
V600= make_cons(/* INLINE-ARGS */V601,Cnil); |
V600= make_cons(/* INLINE-ARGS */V601,Cnil); |
6385 |
goto T2324; |
goto T2324; |
6386 |
T2324:; |
T2324:; |
6387 |
V597= listA(3,/* INLINE-ARGS */V598,/* INLINE-ARGS */V599,V600); |
V597= listA(3,/* INLINE-ARGS */V598,/* INLINE-ARGS */V599,V600); |
6388 |
V595= Cnil; |
V595= Cnil; |
6394 |
V596= Cnil; |
V596= Cnil; |
6395 |
goto T2331;} |
goto T2331;} |
6396 |
V596= (V593); |
V596= (V593); |
6397 |
goto T2331; |
goto T2331; |
6398 |
T2331:; |
T2331:; |
6399 |
goto T2325; |
goto T2325; |
6400 |
goto T2327; |
goto T2327; |
6401 |
T2327:; |
T2327:; |
6402 |
if((V594)==Cnil){ |
if((V594)==Cnil){ |
6403 |
V595= Cnil; |
V595= Cnil; |
6404 |
goto T2333;} |
goto T2333;} |
6405 |
V595= (V593); |
V595= (V593); |
6406 |
goto T2333; |
goto T2333; |
6407 |
T2333:; |
T2333:; |
6408 |
V596= (V584); |
V596= (V584); |
6409 |
goto T2325; |
goto T2325; |
6410 |
T2325:; |
T2325:; |
6411 |
{object V602; |
{object V602; |
6412 |
V602= list(2,VV[279],list(2,(V590),(V589))); |
V602= list(2,VV[279],list(2,(V590),(V589))); |
6423 |
{object V604; |
{object V604; |
6424 |
V604= list(2,(V595),Cnil); |
V604= list(2,(V595),Cnil); |
6425 |
V597= make_cons((V604),(V597));} |
V597= make_cons((V604),(V597));} |
6426 |
goto T2338; |
goto T2338; |
6427 |
T2338:; |
T2338:; |
6428 |
if(!(type_of((V596))==t_cons)){ |
if(!(type_of((V596))==t_cons)){ |
6429 |
goto T2347;}{object V605; |
goto T2347;}{object V605; |
6437 |
{object V606; |
{object V606; |
6438 |
V606= list(2,(V596),Cnil); |
V606= list(2,(V596),Cnil); |
6439 |
V597= make_cons((V606),(V597));} |
V597= make_cons((V606),(V597));} |
6440 |
goto T2347; |
goto T2347; |
6441 |
T2347:; |
T2347:; |
6442 |
V607= list(3,(V591),(V595),(V596)); |
V607= list(3,(V591),(V595),(V596)); |
6443 |
base[5]= list(6,(V597),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V607,make_cons((V590),Cnil))),(V592)); |
base[5]= list(6,(V597),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V607,make_cons((V590),Cnil))),(V592)); |
6469 |
if(eql(x,V612->c.c_car)){ |
if(eql(x,V612->c.c_car)){ |
6470 |
goto T2358; |
goto T2358; |
6471 |
}else V612=V612->c.c_cdr;} |
}else V612=V612->c.c_cdr;} |
6472 |
goto T2357; |
goto T2357; |
6473 |
T2357:; |
T2357:; |
6474 |
base[5]= VV[283]; |
base[5]= VV[283]; |
6475 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6476 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
6477 |
vs_top=sup; |
vs_top=sup; |
6478 |
goto T2356; |
goto T2356; |
6479 |
goto T2358; |
goto T2358; |
6480 |
T2358:; |
T2358:; |
6481 |
if(((V610))!=Cnil){ |
if(((V610))!=Cnil){ |
6482 |
goto T2356;} |
goto T2356;} |
6484 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6485 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
6486 |
vs_top=sup; |
vs_top=sup; |
6487 |
goto T2356; |
goto T2356; |
6488 |
T2356:; |
T2356:; |
6489 |
if(type_of((V608))==t_symbol){ |
if(type_of((V608))==t_symbol){ |
6490 |
goto T2366;} |
goto T2366;} |
6492 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6493 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
6494 |
vs_top=sup; |
vs_top=sup; |
6495 |
goto T2366; |
goto T2366; |
6496 |
T2366:; |
T2366:; |
6497 |
{object V613; |
{object V613; |
6498 |
object V614; |
object V614; |
6567 |
goto T2407;} |
goto T2407;} |
6568 |
base[12]= VV[307]; |
base[12]= VV[307]; |
6569 |
goto T2405; |
goto T2405; |
6570 |
goto T2407; |
goto T2407; |
6571 |
T2407:; |
T2407:; |
6572 |
base[12]= Ct; |
base[12]= Ct; |
6573 |
goto T2405; |
goto T2405; |
6574 |
T2405:; |
T2405:; |
6575 |
vs_top=(vs_base=base+1)+12; |
vs_top=(vs_base=base+1)+12; |
6576 |
(void) (*Lnk397)(); |
(void) (*Lnk397)(); |
6667 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
6668 |
(void) (*Lnk399)(); |
(void) (*Lnk399)(); |
6669 |
return; |
return; |
6670 |
goto T2460; |
goto T2460; |
6671 |
T2460:; |
T2460:; |
6672 |
{object V625; |
{object V625; |
6673 |
vs_base=vs_top; |
vs_base=vs_top; |
6765 |
base[1]= Cnil; |
base[1]= Cnil; |
6766 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6767 |
return; |
return; |
6768 |
goto T2478; |
goto T2478; |
6769 |
T2478:; |
T2478:; |
6770 |
{register object x= Ct,V635= (V634); |
{register object x= Ct,V635= (V634); |
6771 |
while(!endp(V635)) |
while(!endp(V635)) |
6773 |
goto T2482; |
goto T2482; |
6774 |
}else V635=V635->c.c_cdr; |
}else V635=V635->c.c_cdr; |
6775 |
goto T2481;} |
goto T2481;} |
6776 |
goto T2482; |
goto T2482; |
6777 |
T2482:; |
T2482:; |
6778 |
base[1]= VV[192]; |
base[1]= VV[192]; |
6779 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6780 |
return; |
return; |
6781 |
goto T2481; |
goto T2481; |
6782 |
T2481:; |
T2481:; |
6783 |
V634= nreverse((V634)); |
V634= nreverse((V634)); |
6784 |
if((cdr((V634)))!=Cnil){ |
if((cdr((V634)))!=Cnil){ |
6785 |
goto T2485;} |
goto T2485;} |
6786 |
V636= car((V634)); |
V636= car((V634)); |
6787 |
goto T2483; |
goto T2483; |
6788 |
goto T2485; |
goto T2485; |
6789 |
T2485:; |
T2485:; |
6790 |
V636= make_cons(VV[35],(V634)); |
V636= make_cons(VV[35],(V634)); |
6791 |
goto T2483; |
goto T2483; |
6792 |
T2483:; |
T2483:; |
6793 |
base[1]= list(3,VV[8],V636,VV[193]); |
base[1]= list(3,VV[8],V636,VV[193]); |
6794 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6810 |
TTL:; |
TTL:; |
6811 |
{register object V638; |
{register object V638; |
6812 |
V638= Cnil; |
V638= Cnil; |
6813 |
goto T2489; |
goto T2489; |
6814 |
T2489:; |
T2489:; |
6815 |
{register object V639; |
{register object V639; |
6816 |
register object V640; |
register object V640; |
6827 |
vs_top=sup; |
vs_top=sup; |
6828 |
bds_unwind1; |
bds_unwind1; |
6829 |
goto T2492; |
goto T2492; |
6830 |
goto T2495; |
goto T2495; |
6831 |
T2495:; |
T2495:; |
6832 |
setq(VV[88],symbol_value(VV[89])); |
setq(VV[88],symbol_value(VV[89])); |
6833 |
vs_base=vs_top; |
vs_base=vs_top; |
6848 |
vs_top=sup; |
vs_top=sup; |
6849 |
base0[3]= vs_base[0]; |
base0[3]= vs_base[0]; |
6850 |
V641= base0[3]; |
V641= base0[3]; |
6851 |
goto T2509; |
goto T2509; |
6852 |
T2509:; |
T2509:; |
6853 |
setq(VV[89],make_cons(V641,cdr(symbol_value(VV[89])))); |
setq(VV[89],make_cons(V641,cdr(symbol_value(VV[89])))); |
6854 |
goto T2503; |
goto T2503; |
6855 |
T2503:; |
T2503:; |
6856 |
base[2]= (V639); |
base[2]= (V639); |
6857 |
base[3]= structure_ref(symbol_value(VV[97]),VV[39],0); |
base[3]= structure_ref(symbol_value(VV[97]),VV[39],0); |
6876 |
vs_top=sup; |
vs_top=sup; |
6877 |
if(!(((VV[109]->s.s_dbind))==Cnil)){ |
if(!(((VV[109]->s.s_dbind))==Cnil)){ |
6878 |
goto T2512;} |
goto T2512;} |
6879 |
goto T2511; |
goto T2511; |
6880 |
T2511:; |
T2511:; |
6881 |
base[2]= VV[154]; |
base[2]= VV[154]; |
6882 |
base[3]= (V639); |
base[3]= (V639); |
6886 |
vs_top=sup; |
vs_top=sup; |
6887 |
bds_unwind1; |
bds_unwind1; |
6888 |
goto T2492; |
goto T2492; |
6889 |
goto T2512; |
goto T2512; |
6890 |
T2512:; |
T2512:; |
6891 |
base[2]= (VV[109]->s.s_dbind); |
base[2]= (VV[109]->s.s_dbind); |
6892 |
base[3]= (V638); |
base[3]= (V638); |
6895 |
vs_top=sup; |
vs_top=sup; |
6896 |
V638= vs_base[0]; |
V638= vs_base[0]; |
6897 |
bds_unwind1;} |
bds_unwind1;} |
6898 |
goto T2492; |
goto T2492; |
6899 |
T2492:; |
T2492:; |
6900 |
base[1]= car(symbol_value(VV[89])); |
base[1]= car(symbol_value(VV[89])); |
6901 |
base[2]= VV[155]; |
base[2]= VV[155]; |
6908 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
6909 |
vs_top=sup; |
vs_top=sup; |
6910 |
goto T2529; |
goto T2529; |
6911 |
goto T2531; |
goto T2531; |
6912 |
T2531:; |
T2531:; |
6913 |
if((cdr((V638)))==Cnil){ |
if((cdr((V638)))==Cnil){ |
6914 |
goto T2536;} |
goto T2536;} |
6916 |
base[1]= make_cons(VV[14],/* INLINE-ARGS */V643); |
base[1]= make_cons(VV[14],/* INLINE-ARGS */V643); |
6917 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6918 |
return; |
return; |
6919 |
goto T2536; |
goto T2536; |
6920 |
T2536:; |
T2536:; |
6921 |
base[1]= car((V638)); |
base[1]= car((V638)); |
6922 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6923 |
return; |
return; |
6924 |
goto T2529; |
goto T2529; |
6925 |
T2529:; |
T2529:; |
6926 |
goto T2489;} |
goto T2489;} |
6927 |
} |
} |
6946 |
base[2]= (V644); |
base[2]= (V644); |
6947 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6948 |
return; |
return; |
6949 |
goto T2541; |
goto T2541; |
6950 |
T2541:; |
T2541:; |
6951 |
base[2]= (V644); |
base[2]= (V644); |
6952 |
base[3]= car((V645)); |
base[3]= car((V645)); |
6985 |
base[2]= Cnil; |
base[2]= Cnil; |
6986 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6987 |
return; |
return; |
6988 |
goto T2550; |
goto T2550; |
6989 |
T2550:; |
T2550:; |
6990 |
if(!(type_of((V648))!=t_cons)){ |
if(!(type_of((V648))!=t_cons)){ |
6991 |
goto T2553;}{object V650; |
goto T2553;}{object V650; |
6998 |
if(V650==Cnil)goto T2556; |
if(V650==Cnil)goto T2556; |
6999 |
base[2]= V650; |
base[2]= V650; |
7000 |
goto T2555; |
goto T2555; |
7001 |
goto T2556; |
goto T2556; |
7002 |
T2556:;}{object V651; |
T2556:;}{object V651; |
7003 |
base[3]= symbol_name((V648)); |
base[3]= symbol_name((V648)); |
7004 |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],5); |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],5); |
7009 |
if(V651==Cnil)goto T2560; |
if(V651==Cnil)goto T2560; |
7010 |
base[2]= V651; |
base[2]= V651; |
7011 |
goto T2555; |
goto T2555; |
7012 |
goto T2560; |
goto T2560; |
7013 |
T2560:;} |
T2560:;} |
7014 |
base[3]= VV[140]; |
base[3]= VV[140]; |
7015 |
base[4]= base0[1]; |
base[4]= base0[1]; |
7018 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
7019 |
vs_top=sup; |
vs_top=sup; |
7020 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
7021 |
goto T2555; |
goto T2555; |
7022 |
T2555:; |
T2555:; |
7023 |
base[3]= (V649); |
base[3]= (V649); |
7024 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7025 |
L59(base0); |
L59(base0); |
7026 |
return; |
return; |
7027 |
goto T2553; |
goto T2553; |
7028 |
T2553:; |
T2553:; |
7029 |
if(!(type_of((V649))!=t_cons)){ |
if(!(type_of((V649))!=t_cons)){ |
7030 |
goto T2569;} |
goto T2569;} |
7034 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
7035 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
7036 |
return; |
return; |
7037 |
goto T2569; |
goto T2569; |
7038 |
T2569:; |
T2569:; |
7039 |
base[2]= car((V648)); |
base[2]= car((V648)); |
7040 |
base[3]= car((V649)); |
base[3]= car((V649)); |
7072 |
object V657; |
object V657; |
7073 |
V656= (V654); |
V656= (V654); |
7074 |
V657= car((V656)); |
V657= car((V656)); |
7075 |
goto T2584; |
goto T2584; |
7076 |
T2584:; |
T2584:; |
7077 |
if(!(endp_prop((V656)))){ |
if(!(endp_prop((V656)))){ |
7078 |
goto T2585;} |
goto T2585;} |
7079 |
base[2]= make_fixnum(V655); |
base[2]= make_fixnum(V655); |
7080 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7081 |
return; |
return; |
7082 |
goto T2585; |
goto T2585; |
7083 |
T2585:; |
T2585:; |
7084 |
V658 = make_fixnum(V655); |
V658 = make_fixnum(V655); |
7085 |
base[2]= (V657); |
base[2]= (V657); |
7139 |
base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V670,Cnil),(V660)); |
base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V670,Cnil),(V660)); |
7140 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7141 |
return; |
return; |
7142 |
goto T2610; |
goto T2610; |
7143 |
T2610:; |
T2610:; |
7144 |
base[0]= (V660); |
base[0]= (V660); |
7145 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7163 |
base[1]= car((V671)); |
base[1]= car((V671)); |
7164 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7165 |
return; |
return; |
7166 |
goto T2613; |
goto T2613; |
7167 |
T2613:; |
T2613:; |
7168 |
base[1]= make_cons(VV[14],(V671)); |
base[1]= make_cons(VV[14],(V671)); |
7169 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7189 |
register object V675; |
register object V675; |
7190 |
V674= (V672); |
V674= (V672); |
7191 |
V675= car((V674)); |
V675= car((V674)); |
7192 |
goto T2619; |
goto T2619; |
7193 |
T2619:; |
T2619:; |
7194 |
if(!(endp_prop((V674)))){ |
if(!(endp_prop((V674)))){ |
7195 |
goto T2620;} |
goto T2620;} |
7196 |
goto T2615; |
goto T2615; |
7197 |
goto T2620; |
goto T2620; |
7198 |
T2620:; |
T2620:; |
7199 |
if(((V675))==Cnil){ |
if(((V675))==Cnil){ |
7200 |
goto T2624;} |
goto T2624;} |
7209 |
goto T2633; |
goto T2633; |
7210 |
}else V677=V677->c.c_cdr; |
}else V677=V677->c.c_cdr; |
7211 |
goto T2624;} |
goto T2624;} |
7212 |
goto T2633; |
goto T2633; |
7213 |
T2633:; |
T2633:; |
7214 |
goto T2615; |
goto T2615; |
7215 |
goto T2624; |
goto T2624; |
7216 |
T2624:; |
T2624:; |
7217 |
V674= cdr((V674)); |
V674= cdr((V674)); |
7218 |
V675= car((V674)); |
V675= car((V674)); |
7219 |
goto T2619;} |
goto T2619;} |
7220 |
goto T2615; |
goto T2615; |
7221 |
T2615:; |
T2615:; |
7222 |
base[1]= nreverse((V673)); |
base[1]= nreverse((V673)); |
7223 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7239 |
TTL:; |
TTL:; |
7240 |
{register object V679; |
{register object V679; |
7241 |
V679= (V678); |
V679= (V678); |
7242 |
goto T2640; |
goto T2640; |
7243 |
T2640:; |
T2640:; |
7244 |
if(type_of((V679))==t_cons){ |
if(type_of((V679))==t_cons){ |
7245 |
goto T2641;} |
goto T2641;} |
7246 |
base[1]= (V679); |
base[1]= (V679); |
7247 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7248 |
return; |
return; |
7249 |
goto T2641; |
goto T2641; |
7250 |
T2641:; |
T2641:; |
7251 |
{register object V680; |
{register object V680; |
7252 |
V680= car((V679)); |
V680= car((V679)); |
7260 |
base[1]= Ct; |
base[1]= Ct; |
7261 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7262 |
return; |
return; |
7263 |
goto T2645; |
goto T2645; |
7264 |
T2645:; |
T2645:; |
7265 |
goto T2640;} |
goto T2640;} |
7266 |
} |
} |
7284 |
V683=(base[2]); |
V683=(base[2]); |
7285 |
vs_top=sup; |
vs_top=sup; |
7286 |
goto T2655; |
goto T2655; |
7287 |
goto T2654; |
goto T2654; |
7288 |
T2654:; |
T2654:; |
7289 |
V683= Cnil; |
V683= Cnil; |
7290 |
goto T2655; |
goto T2655; |
7291 |
T2655:; |
T2655:; |
7292 |
{register object V684; |
{register object V684; |
7293 |
V684= (V681); |
V684= (V681); |
7304 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7305 |
return;} |
return;} |
7306 |
base[3]=V685=MMcons(Cnil,Cnil); |
base[3]=V685=MMcons(Cnil,Cnil); |
7307 |
goto T2666; |
goto T2666; |
7308 |
T2666:; |
T2666:; |
7309 |
{register object V687; |
{register object V687; |
7310 |
V687= (V686->c.c_car); |
V687= (V686->c.c_car); |
7312 |
goto T2668;} |
goto T2668;} |
7313 |
(V685->c.c_cdr)= Cnil; |
(V685->c.c_cdr)= Cnil; |
7314 |
goto T2667; |
goto T2667; |
7315 |
goto T2668; |
goto T2668; |
7316 |
T2668:; |
T2668:; |
7317 |
if(!((((car((V687)))==(VV[65])?Ct:Cnil))==Cnil)){ |
if(!((((car((V687)))==(VV[65])?Ct:Cnil))==Cnil)){ |
7318 |
goto T2672;} |
goto T2672;} |
7319 |
goto T2670; |
goto T2670; |
7320 |
goto T2672; |
goto T2672; |
7321 |
T2672:; |
T2672:; |
7322 |
if(!(((type_of(cadr((V687)))==t_symbol?Ct:Cnil))==Cnil)){ |
if(!(((type_of(cadr((V687)))==t_symbol?Ct:Cnil))==Cnil)){ |
7323 |
goto T2674;} |
goto T2674;} |
7324 |
goto T2670; |
goto T2670; |
7325 |
goto T2674; |
goto T2674; |
7326 |
T2674:; |
T2674:; |
7327 |
base[4]= (V687); |
base[4]= (V687); |
7328 |
base[5]= base0[1]; |
base[5]= base0[1]; |
7334 |
goto T2670;} |
goto T2670;} |
7335 |
(V685->c.c_cdr)= Cnil; |
(V685->c.c_cdr)= Cnil; |
7336 |
goto T2667; |
goto T2667; |
7337 |
goto T2670; |
goto T2670; |
7338 |
T2670:; |
T2670:; |
7339 |
(V685->c.c_cdr)= make_cons((V687),Cnil);} |
(V685->c.c_cdr)= make_cons((V687),Cnil);} |
7340 |
goto T2667; |
goto T2667; |
7341 |
T2667:; |
T2667:; |
7342 |
{object cdr_V685=MMcdr(V685);while(!endp(cdr_V685)) {cdr_V685=MMcdr(cdr_V685);V685=MMcdr(V685);}} |
{object cdr_V685=MMcdr(V685);while(!endp(cdr_V685)) {cdr_V685=MMcdr(cdr_V685);V685=MMcdr(V685);}} |
7343 |
V686=MMcdr(V686); |
V686=MMcdr(V686); |
7346 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7347 |
return;} |
return;} |
7348 |
goto T2666;} |
goto T2666;} |
7349 |
goto T2664; |
goto T2664; |
7350 |
T2664:; |
T2664:; |
7351 |
base[3]= make_cons((V682),Cnil); |
base[3]= make_cons((V682),Cnil); |
7352 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7353 |
return; |
return; |
7354 |
goto T2661; |
goto T2661; |
7355 |
T2661:; |
T2661:; |
7356 |
base[3]= Cnil; |
base[3]= Cnil; |
7357 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7358 |
return; |
return; |
7359 |
goto T2658; |
goto T2658; |
7360 |
T2658:; |
T2658:; |
7361 |
if(!(type_of((V684))==t_cons)){ |
if(!(type_of((V684))==t_cons)){ |
7362 |
goto T2680;} |
goto T2680;} |
7380 |
goto T2688;} |
goto T2688;} |
7381 |
if(((V691))==Cnil){ |
if(((V691))==Cnil){ |
7382 |
goto T2689;} |
goto T2689;} |
7383 |
goto T2688; |
goto T2688; |
7384 |
T2688:; |
T2688:; |
7385 |
if(((V691))==Cnil){ |
if(((V691))==Cnil){ |
7386 |
goto T2694;} |
goto T2694;} |
7390 |
V693= (V683); |
V693= (V683); |
7391 |
goto T2696;} |
goto T2696;} |
7392 |
V693= symbol_value(VV[66]); |
V693= symbol_value(VV[66]); |
7393 |
goto T2696; |
goto T2696; |
7394 |
T2696:; |
T2696:; |
7395 |
base[9]= (V688); |
base[9]= (V688); |
7396 |
base[10]= list(2,VV[65],(V693)); |
base[10]= list(2,VV[65],(V693)); |
7415 |
V700= list(3,VV[11],(V693),(V682)); |
V700= list(3,VV[11],(V693),(V682)); |
7416 |
V699= make_cons(/* INLINE-ARGS */V700,Cnil); |
V699= make_cons(/* INLINE-ARGS */V700,Cnil); |
7417 |
goto T2708; |
goto T2708; |
7418 |
goto T2710; |
goto T2710; |
7419 |
T2710:; |
T2710:; |
7420 |
V699= Cnil; |
V699= Cnil; |
7421 |
goto T2708; |
goto T2708; |
7422 |
T2708:; |
T2708:; |
7423 |
base[9]= append(V699,(V694)); |
base[9]= append(V699,(V694)); |
7424 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
7425 |
return; |
return; |
7426 |
goto T2706; |
goto T2706; |
7427 |
T2706:; |
T2706:; |
7428 |
V701= list(2,(V693),(V682)); |
V701= list(2,(V693),(V682)); |
7429 |
V702= listA(3,VV[29],make_cons(/* INLINE-ARGS */V701,Cnil),(V694)); |
V702= listA(3,VV[29],make_cons(/* INLINE-ARGS */V701,Cnil),(V694)); |
7430 |
base[9]= make_cons(/* INLINE-ARGS */V702,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V702,Cnil); |
7431 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
7432 |
return;} |
return;} |
7433 |
goto T2694; |
goto T2694; |
7434 |
T2694:; |
T2694:; |
7435 |
base[7]= (V688); |
base[7]= (V688); |
7436 |
base[8]= list(2,VV[65],(V682)); |
base[8]= list(2,VV[65],(V682)); |
7438 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
7439 |
L28(base0); |
L28(base0); |
7440 |
return; |
return; |
7441 |
goto T2689; |
goto T2689; |
7442 |
T2689:; |
T2689:; |
7443 |
base[7]= Cnil; |
base[7]= Cnil; |
7444 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
7445 |
return;} |
return;} |
7446 |
goto T2680; |
goto T2680; |
7447 |
T2680:; |
T2680:; |
7448 |
if(((V681))==((V682))){ |
if(((V681))==((V682))){ |
7449 |
goto T2716;} |
goto T2716;} |
7451 |
base[3]= make_cons(/* INLINE-ARGS */V703,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V703,Cnil); |
7452 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7453 |
return; |
return; |
7454 |
goto T2716; |
goto T2716; |
7455 |
T2716:; |
T2716:; |
7456 |
base[3]= Cnil; |
base[3]= Cnil; |
7457 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7479 |
goto T2723;} |
goto T2723;} |
7480 |
base[4]= small_fixnum(10); |
base[4]= small_fixnum(10); |
7481 |
goto T2721; |
goto T2721; |
7482 |
goto T2723; |
goto T2723; |
7483 |
T2723:; |
T2723:; |
7484 |
base[4]= (V705); |
base[4]= (V705); |
7485 |
goto T2721; |
goto T2721; |
7486 |
T2721:; |
T2721:; |
7487 |
base[5]= VV[20]; |
base[5]= VV[20]; |
7488 |
base[6]= symbol_function(VV[401]); |
base[6]= symbol_function(VV[401]); |
7494 |
register object V708; |
register object V708; |
7495 |
V707= (V704); |
V707= (V704); |
7496 |
V708= car((V707)); |
V708= car((V707)); |
7497 |
goto T2731; |
goto T2731; |
7498 |
T2731:; |
T2731:; |
7499 |
if(!(endp_prop((V707)))){ |
if(!(endp_prop((V707)))){ |
7500 |
goto T2732;} |
goto T2732;} |
7501 |
goto T2727; |
goto T2727; |
7502 |
goto T2732; |
goto T2732; |
7503 |
T2732:; |
T2732:; |
7504 |
{object V709; |
{object V709; |
7505 |
object V711; |
object V711; |
7514 |
V707= cdr((V707)); |
V707= cdr((V707)); |
7515 |
V708= car((V707)); |
V708= car((V707)); |
7516 |
goto T2731;} |
goto T2731;} |
7517 |
goto T2727; |
goto T2727; |
7518 |
T2727:; |
T2727:; |
7519 |
base[3]= (V706); |
base[3]= (V706); |
7520 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7536 |
vs_top=sup; |
vs_top=sup; |
7537 |
goto TTL; |
goto TTL; |
7538 |
TTL:; |
TTL:; |
7539 |
goto T2748; |
goto T2748; |
7540 |
T2748:; |
T2748:; |
7541 |
if(!((V713)<=(4))){ |
if(!((V713)<=(4))){ |
7542 |
goto T2749;}switch(V713){ |
goto T2749;}switch(V713){ |
7543 |
case 1: |
case 1: |
7544 |
goto T2755; |
goto T2755; |
7545 |
T2755:; |
T2755:; |
7546 |
V714= VV[10]; |
V714= VV[10]; |
7547 |
goto T2753; |
goto T2753; |
7548 |
case 2: |
case 2: |
7549 |
goto T2756; |
goto T2756; |
7550 |
T2756:; |
T2756:; |
7551 |
V714= VV[15]; |
V714= VV[15]; |
7552 |
goto T2753; |
goto T2753; |
7553 |
case 3: |
case 3: |
7554 |
goto T2757; |
goto T2757; |
7555 |
T2757:; |
T2757:; |
7556 |
V714= VV[16]; |
V714= VV[16]; |
7557 |
goto T2753; |
goto T2753; |
7558 |
case 4: |
case 4: |
7559 |
goto T2758; |
goto T2758; |
7560 |
T2758:; |
T2758:; |
7561 |
V714= VV[17]; |
V714= VV[17]; |
7562 |
goto T2753; |
goto T2753; |
7563 |
default: |
default: |
7564 |
goto T2759; |
goto T2759; |
7565 |
T2759:; |
T2759:; |
7566 |
V714= Cnil; |
V714= Cnil; |
7567 |
goto T2753;} |
goto T2753;} |
7568 |
V714= Cnil; |
V714= Cnil; |
7569 |
goto T2753; |
goto T2753; |
7570 |
T2753:; |
T2753:; |
7571 |
V712= list(2,V714,(V712)); |
V712= list(2,V714,(V712)); |
7572 |
base[2]= (V712); |
base[2]= (V712); |
7573 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7574 |
return; |
return; |
7575 |
goto T2749; |
goto T2749; |
7576 |
T2749:; |
T2749:; |
7577 |
V712= list(2,VV[17],(V712)); |
V712= list(2,VV[17],(V712)); |
7578 |
V713= (long)(V713)-(4); |
V713= (long)(V713)-(4); |