334 |
base[2]= (V34); |
base[2]= (V34); |
335 |
base[3]= symbol_value(VV[19]); |
base[3]= symbol_value(VV[19]); |
336 |
base[4]= VV[20]; |
base[4]= VV[20]; |
337 |
base[5]= symbol_function(VV[324]); |
base[5]= symbol_function(VV[326]); |
338 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
339 |
Lassoc(); |
Lassoc(); |
340 |
vs_top=sup; |
vs_top=sup; |
347 |
base[6]= VV[23]; |
base[6]= VV[23]; |
348 |
base[8]= VV[24]; |
base[8]= VV[24]; |
349 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
350 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
351 |
vs_top=sup; |
vs_top=sup; |
352 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
353 |
base[8]= VV[25]; |
base[8]= VV[25]; |
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) (*Lnk325)(); |
(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; |
369 |
base[12]= VV[28]; |
base[12]= VV[28]; |
370 |
base[13]= (V35); |
base[13]= (V35); |
371 |
vs_top=(vs_base=base+2)+12; |
vs_top=(vs_base=base+2)+12; |
372 |
(void) (*Lnk326)(); |
(void) (*Lnk328)(); |
373 |
return;} |
return;} |
374 |
} |
} |
375 |
} |
} |
402 |
goto T87;} |
goto T87;} |
403 |
base[2]= VV[26]; |
base[2]= VV[26]; |
404 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
405 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
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)); |
435 |
object V51; |
object V51; |
436 |
base[4]= structure_ref(base[2],VV[18],1); |
base[4]= structure_ref(base[2],VV[18],1); |
437 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
438 |
(void) (*Lnk327)(); |
(void) (*Lnk329)(); |
439 |
vs_top=sup; |
vs_top=sup; |
440 |
V45= vs_base[0]; |
V45= vs_base[0]; |
441 |
V52= structure_ref(base[2],VV[18],4); |
V52= structure_ref(base[2],VV[18],4); |
504 |
goto T116; |
goto T116; |
505 |
goto T117; |
goto T117; |
506 |
T117:; |
T117:; |
507 |
if((V65!= VV[328]))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; |
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; |
519 |
(void) (*Lnk329)(); |
(void) (*Lnk331)(); |
520 |
vs_top=sup; |
vs_top=sup; |
521 |
V63= vs_base[0]; |
V63= vs_base[0]; |
522 |
V66= list(3,VV[11],(V61),base[4]); |
V66= list(3,VV[11],(V61),base[4]); |
593 |
base[2]= (V73); |
base[2]= (V73); |
594 |
base[3]= (V74); |
base[3]= (V74); |
595 |
base[4]= VV[20]; |
base[4]= VV[20]; |
596 |
base[5]= symbol_function(VV[330]); |
base[5]= symbol_function(VV[332]); |
597 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
598 |
Lassoc(); |
Lassoc(); |
599 |
return; |
return; |
623 |
base[2]= (V75); |
base[2]= (V75); |
624 |
base[3]= (V76); |
base[3]= (V76); |
625 |
base[4]= VV[20]; |
base[4]= VV[20]; |
626 |
base[5]= symbol_function(VV[330]); |
base[5]= symbol_function(VV[332]); |
627 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
628 |
Lmember(); |
Lmember(); |
629 |
return; |
return; |
750 |
goto T154; |
goto T154; |
751 |
goto T156; |
goto T156; |
752 |
T156:; |
T156:; |
753 |
if((V92!= VV[305]))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; |
801 |
base[16]= (V100); |
base[16]= (V100); |
802 |
base[17]= VV[46]; |
base[17]= VV[46]; |
803 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
804 |
(void) (*Lnk331)(); |
(void) (*Lnk333)(); |
805 |
vs_top=sup; |
vs_top=sup; |
806 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
807 |
goto T166;} |
goto T166;} |
889 |
goto T215; |
goto T215; |
890 |
T215:; |
T215:; |
891 |
base[34]= VV[20]; |
base[34]= VV[20]; |
892 |
base[35]= symbol_function(VV[332]); |
base[35]= symbol_function(VV[334]); |
893 |
vs_top=(vs_base=base+32)+4; |
vs_top=(vs_base=base+32)+4; |
894 |
Lmake_hash_table(); |
Lmake_hash_table(); |
895 |
vs_top=sup; |
vs_top=sup; |
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; |
938 |
(void) (*Lnk333)(); |
(void) (*Lnk335)(); |
939 |
return; |
return; |
940 |
} |
} |
941 |
} |
} |
965 |
V114= cadr((V111)); |
V114= cadr((V111)); |
966 |
base[2]= cddr((V111)); |
base[2]= cddr((V111)); |
967 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
968 |
(void) (*Lnk334)(); |
(void) (*Lnk336)(); |
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); |
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; |
976 |
(void) (*Lnk335)(); |
(void) (*Lnk337)(); |
977 |
return; |
return; |
978 |
} |
} |
979 |
} |
} |
1104 |
base[2]= (V127); |
base[2]= (V127); |
1105 |
base[3]= (V124); |
base[3]= (V124); |
1106 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1107 |
(void) (*Lnk331)(); |
(void) (*Lnk333)(); |
1108 |
vs_top=sup; |
vs_top=sup; |
1109 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1110 |
goto T294;} |
goto T294;} |
1113 |
base[4]= (V127); |
base[4]= (V127); |
1114 |
base[5]= (V124); |
base[5]= (V124); |
1115 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1116 |
(void) (*Lnk336)(); |
(void) (*Lnk338)(); |
1117 |
vs_top=sup; |
vs_top=sup; |
1118 |
V126= Cnil; |
V126= Cnil; |
1119 |
V127= Cnil; |
V127= Cnil; |
1160 |
object V131; |
object V131; |
1161 |
base[1]= (V129); |
base[1]= (V129); |
1162 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1163 |
(void) (*Lnk337)(); |
(void) (*Lnk339)(); |
1164 |
if(vs_base>=vs_top){vs_top=sup;goto T317;} |
if(vs_base>=vs_top){vs_top=sup;goto T317;} |
1165 |
V130= vs_base[0]; |
V130= vs_base[0]; |
1166 |
vs_base++; |
vs_base++; |
1235 |
{register long V135; |
{register long V135; |
1236 |
base[10]= base[1]; |
base[10]= base[1]; |
1237 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1238 |
(void) (*Lnk338)(); |
(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; |
1465 |
V165= cdr((V162)); |
V165= cdr((V162)); |
1466 |
base[1]= car((V162)); |
base[1]= car((V162)); |
1467 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1468 |
(void) (*Lnk339)(); |
(void) (*Lnk341)(); |
1469 |
vs_top=sup; |
vs_top=sup; |
1470 |
V166= vs_base[0]; |
V166= vs_base[0]; |
1471 |
V163= number_plus(V166,(V163)); |
V163= number_plus(V166,(V163)); |
1495 |
base[2]= (V167); |
base[2]= (V167); |
1496 |
base[3]= (V168); |
base[3]= (V168); |
1497 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1498 |
(void) (*Lnk340)(); |
(void) (*Lnk342)(); |
1499 |
frs_pop(); |
frs_pop(); |
1500 |
return;} |
return;} |
1501 |
} |
} |
1660 |
base[2]= make_fixnum(V174); |
base[2]= make_fixnum(V174); |
1661 |
base[4]= car((V184)); |
base[4]= car((V184)); |
1662 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1663 |
(void) (*Lnk339)(); |
(void) (*Lnk341)(); |
1664 |
vs_top=sup; |
vs_top=sup; |
1665 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1666 |
base[5]= cadr((V184)); |
base[5]= cadr((V184)); |
1667 |
base[6]= base[1]; |
base[6]= base[1]; |
1668 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1669 |
(void) (*Lnk340)(); |
(void) (*Lnk342)(); |
1670 |
vs_top=sup; |
vs_top=sup; |
1671 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1672 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1700 |
base[4]= cadr((V186)); |
base[4]= cadr((V186)); |
1701 |
base[5]= base[1]; |
base[5]= base[1]; |
1702 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1703 |
(void) (*Lnk340)(); |
(void) (*Lnk342)(); |
1704 |
vs_top=sup; |
vs_top=sup; |
1705 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1706 |
base[4]= small_fixnum(1); |
base[4]= small_fixnum(1); |
1760 |
base[2]= caddr((V169)); |
base[2]= caddr((V169)); |
1761 |
base[3]= base[1]; |
base[3]= base[1]; |
1762 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1763 |
(void) (*Lnk340)(); |
(void) (*Lnk342)(); |
1764 |
vs_top=sup; |
vs_top=sup; |
1765 |
V189= vs_base[0]; |
V189= vs_base[0]; |
1766 |
base[2]= one_plus(V189); |
base[2]= one_plus(V189); |
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; |
1773 |
(void) (*Lnk341)(); |
(void) (*Lnk343)(); |
1774 |
vs_top=sup; |
vs_top=sup; |
1775 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1776 |
goto T608;} |
goto T608;} |
1887 |
base[4]= (V197); |
base[4]= (V197); |
1888 |
base[5]= (V198); |
base[5]= (V198); |
1889 |
vs_base=vs_top; |
vs_base=vs_top; |
1890 |
(void) (*Lnk342)(); |
(void) (*Lnk344)(); |
1891 |
vs_top=sup; |
vs_top=sup; |
1892 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1893 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1894 |
(void) (*Lnk343)(); |
(void) (*Lnk345)(); |
1895 |
return; |
return; |
1896 |
} |
} |
1897 |
} |
} |
1912 |
V200=(base[1]); |
V200=(base[1]); |
1913 |
vs_top=sup; |
vs_top=sup; |
1914 |
vs_base=vs_top; |
vs_base=vs_top; |
1915 |
(void) (*Lnk342)(); |
(void) (*Lnk344)(); |
1916 |
vs_top=sup; |
vs_top=sup; |
1917 |
V201= vs_base[0]; |
V201= vs_base[0]; |
1918 |
base[2]= (VFUN_NARGS=4,(*(LnkLI344))(VV[92],(V199),(V200),V201)); |
base[2]= (VFUN_NARGS=4,(*(LnkLI346))(VV[92],(V199),(V200),V201)); |
1919 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1920 |
return; |
return; |
1921 |
} |
} |
1955 |
base[3]= (V202); |
base[3]= (V202); |
1956 |
base[4]= (V203); |
base[4]= (V203); |
1957 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1958 |
(void) (*Lnk324)(); |
(void) (*Lnk326)(); |
1959 |
if(vs_base>=vs_top){vs_top=sup;goto T655;} |
if(vs_base>=vs_top){vs_top=sup;goto T655;} |
1960 |
V205= vs_base[0]; |
V205= vs_base[0]; |
1961 |
vs_base++; |
vs_base++; |
1977 |
base[4]= (V202); |
base[4]= (V202); |
1978 |
base[5]= (V203); |
base[5]= (V203); |
1979 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1980 |
(void) (*Lnk336)(); |
(void) (*Lnk338)(); |
1981 |
vs_top=sup; |
vs_top=sup; |
1982 |
goto T658; |
goto T658; |
1983 |
goto T660; |
goto T660; |
1988 |
base[4]= (V202); |
base[4]= (V202); |
1989 |
base[5]= (V203); |
base[5]= (V203); |
1990 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1991 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
1992 |
vs_top=sup; |
vs_top=sup; |
1993 |
goto T658; |
goto T658; |
1994 |
T658:; |
T658:; |
2048 |
bds_bind(VV[117],Cnil); |
bds_bind(VV[117],Cnil); |
2049 |
bds_bind(VV[118],Cnil); |
bds_bind(VV[118],Cnil); |
2050 |
bds_bind(VV[119],Cnil); |
bds_bind(VV[119],Cnil); |
2051 |
|
bds_bind(VV[120],Cnil); |
2052 |
vs_base=vs_top; |
vs_base=vs_top; |
2053 |
(void) (*Lnk346)(); |
(void) (*Lnk348)(); |
2054 |
vs_top=sup; |
vs_top=sup; |
2055 |
vs_base=vs_top; |
vs_base=vs_top; |
2056 |
(void) (*Lnk347)(); |
(void) (*Lnk349)(); |
2057 |
vs_top=sup; |
vs_top=sup; |
2058 |
{register object V208; |
{register object V208; |
2059 |
V209= nreverse((VV[106]->s.s_dbind)); |
V209= nreverse((VV[106]->s.s_dbind)); |
2060 |
V210= nreverse((VV[108]->s.s_dbind)); |
V210= nreverse((VV[108]->s.s_dbind)); |
2061 |
V211= nreverse((VV[109]->s.s_dbind)); |
V211= nreverse((VV[109]->s.s_dbind)); |
2062 |
V212= nreverse((VV[111]->s.s_dbind)); |
V212= nreverse((VV[111]->s.s_dbind)); |
2063 |
base[26]= (VV[112]->s.s_dbind); |
base[27]= (VV[112]->s.s_dbind); |
2064 |
base[27]= nreverse((VV[113]->s.s_dbind)); |
base[28]= nreverse((VV[113]->s.s_dbind)); |
2065 |
vs_top=(vs_base=base+26)+2; |
vs_top=(vs_base=base+27)+2; |
2066 |
Lreconc(); |
Lreconc(); |
2067 |
vs_top=sup; |
vs_top=sup; |
2068 |
V213= vs_base[0]; |
V213= vs_base[0]; |
2069 |
V208= list(6,VV[120],/* INLINE-ARGS */V209,/* INLINE-ARGS */V210,/* INLINE-ARGS */V211,/* INLINE-ARGS */V212,V213); |
V208= list(6,VV[121],/* INLINE-ARGS */V209,/* INLINE-ARGS */V210,/* INLINE-ARGS */V211,/* INLINE-ARGS */V212,V213); |
2070 |
goto T678; |
{register object V214; |
2071 |
T678:; |
register object V215; |
2072 |
{object V215; |
V214= (VV[105]->s.s_dbind); |
2073 |
V215= car((VV[118]->s.s_dbind)); |
V215= car((V214)); |
2074 |
(VV[118]->s.s_dbind)= cdr((VV[118]->s.s_dbind)); |
goto T680; |
2075 |
V214= (V215);} |
T680:; |
2076 |
V208= list(3,VV[121],V214,(V208)); |
if(!(endp_prop((V214)))){ |
2077 |
if(((VV[118]->s.s_dbind))!=Cnil){ |
goto T681;} |
|
goto T687;} |
|
2078 |
goto T676; |
goto T676; |
2079 |
goto T687; |
goto T681; |
2080 |
T687:; |
T681:; |
2081 |
goto T678; |
{object V216; |
2082 |
goto T676; |
object V217; |
2083 |
T676:; |
object V218; |
|
{register object V216; |
|
|
register object V217; |
|
|
V216= (VV[105]->s.s_dbind); |
|
|
V217= car((V216)); |
|
|
goto T696; |
|
|
T696:; |
|
|
if(!(endp_prop((V216)))){ |
|
|
goto T697;} |
|
|
goto T692; |
|
|
goto T697; |
|
|
T697:; |
|
|
{object V218; |
|
2084 |
object V219; |
object V219; |
2085 |
object V220; |
V216= car((V215)); |
2086 |
object V221; |
V217= cadr((V215)); |
2087 |
V218= car((V217)); |
V218= caddr((V215)); |
2088 |
V219= cadr((V217)); |
V219= cadddr((V215)); |
2089 |
V220= caddr((V217)); |
{register object V220; |
2090 |
V221= cadddr((V217)); |
register object V221; |
2091 |
{register object V222; |
V220= (V219); |
2092 |
register object V223; |
V221= car((V220)); |
2093 |
V222= (V221); |
goto T694; |
2094 |
V223= car((V222)); |
T694:; |
2095 |
goto T710; |
if(!(endp_prop((V220)))){ |
2096 |
T710:; |
goto T695;} |
2097 |
if(!(endp_prop((V222)))){ |
goto T690; |
2098 |
goto T711;} |
goto T695; |
2099 |
goto T706; |
T695:; |
2100 |
goto T711; |
V222= make_cons((V208),Cnil); |
2101 |
T711:; |
V208= append((V221),/* INLINE-ARGS */V222); |
2102 |
V224= make_cons((V208),Cnil); |
V220= cdr((V220)); |
2103 |
V208= append((V223),/* INLINE-ARGS */V224); |
V221= car((V220)); |
2104 |
V222= cdr((V222)); |
goto T694;} |
2105 |
V223= car((V222)); |
goto T690; |
2106 |
goto T710;} |
T690:; |
2107 |
|
if(((V216))!=Cnil){ |
2108 |
|
goto T706;} |
2109 |
|
if(((V217))!=Cnil){ |
2110 |
|
goto T706;} |
2111 |
|
if(((V218))==Cnil){ |
2112 |
|
goto T685;} |
2113 |
goto T706; |
goto T706; |
2114 |
T706:; |
T706:; |
2115 |
if(((V218))!=Cnil){ |
{register object V223; |
2116 |
goto T722;} |
V223= make_cons((V208),Cnil); |
2117 |
if(((V219))!=Cnil){ |
if(((V217))==Cnil){ |
2118 |
goto T722;} |
goto T713;} |
2119 |
if(((V220))==Cnil){ |
{object V224; |
2120 |
goto T701;} |
V224= make_cons(VV[30],(V217)); |
2121 |
goto T722; |
V223= make_cons((V224),(V223));} |
2122 |
T722:; |
goto T713; |
2123 |
{register object V225; |
T713:; |
2124 |
V225= make_cons((V208),Cnil); |
if(((V216))!=Cnil){ |
2125 |
if(((V219))==Cnil){ |
goto T721;} |
2126 |
goto T729;} |
V225= VV[122]; |
2127 |
{object V226; |
goto T719; |
2128 |
V226= make_cons(VV[30],(V219)); |
goto T721; |
2129 |
V225= make_cons((V226),(V225));} |
T721:; |
|
goto T729; |
|
|
T729:; |
|
|
if(((V218))!=Cnil){ |
|
|
goto T737;} |
|
|
V227= VV[122]; |
|
|
goto T735; |
|
|
goto T737; |
|
|
T737:; |
|
2130 |
if((symbol_value(VV[63]))==Cnil){ |
if((symbol_value(VV[63]))==Cnil){ |
2131 |
goto T740;} |
goto T724;} |
2132 |
V227= car(symbol_value(VV[63])); |
V225= car(symbol_value(VV[63])); |
2133 |
goto T735; |
goto T719; |
2134 |
goto T740; |
goto T724; |
2135 |
T740:; |
T724:; |
2136 |
V227= VV[29]; |
V225= VV[29]; |
2137 |
goto T735; |
goto T719; |
2138 |
T735:; |
T719:; |
2139 |
if(((V220))==Cnil){ |
if(((V218))==Cnil){ |
2140 |
goto T744;} |
goto T728;} |
2141 |
V229= append((V220),(V225)); |
V227= append((V218),(V223)); |
2142 |
V230= make_cons(VV[123],/* INLINE-ARGS */V229); |
V228= make_cons(VV[123],/* INLINE-ARGS */V227); |
2143 |
V228= make_cons(/* INLINE-ARGS */V230,Cnil); |
V226= make_cons(/* INLINE-ARGS */V228,Cnil); |
2144 |
goto T742; |
goto T726; |
2145 |
goto T744; |
goto T728; |
2146 |
T744:; |
T728:; |
2147 |
V228= (V225); |
V226= (V223); |
2148 |
goto T742; |
goto T726; |
2149 |
T742:; |
T726:; |
2150 |
V208= listA(3,V227,(V218),V228);}} |
V208= listA(3,V225,(V216),V226);}} |
2151 |
goto T701; |
goto T685; |
2152 |
T701:; |
T685:; |
2153 |
V216= cdr((V216)); |
V214= cdr((V214)); |
2154 |
V217= car((V216)); |
V215= car((V214)); |
2155 |
goto T696;} |
goto T680;} |
2156 |
goto T692; |
goto T676; |
2157 |
T692:; |
T676:; |
2158 |
base[26]= (V208); |
V208= list(3,VV[124],car((VV[118]->s.s_dbind)),(V208)); |
2159 |
vs_top=(vs_base=base+26)+1; |
base[27]= (V208); |
2160 |
|
vs_top=(vs_base=base+27)+1; |
2161 |
|
bds_unwind1; |
2162 |
bds_unwind1; |
bds_unwind1; |
2163 |
bds_unwind1; |
bds_unwind1; |
2164 |
bds_unwind1; |
bds_unwind1; |
2197 |
vs_top=sup; |
vs_top=sup; |
2198 |
goto TTL; |
goto TTL; |
2199 |
TTL:; |
TTL:; |
2200 |
goto T752; |
goto T738; |
2201 |
T752:; |
T738:; |
2202 |
if((symbol_value(VV[89]))!=Cnil){ |
if((symbol_value(VV[89]))!=Cnil){ |
2203 |
goto T753;} |
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 T753; |
goto T739; |
2208 |
T753:; |
T739:; |
2209 |
{register object V231; |
{register object V229; |
2210 |
register object V232; |
register object V230; |
2211 |
V231= car(symbol_value(VV[89])); |
V229= car(symbol_value(VV[89])); |
2212 |
V232= Cnil; |
V230= Cnil; |
2213 |
if(type_of((V231))==t_symbol){ |
if(type_of((V229))==t_symbol){ |
2214 |
goto T760;} |
goto T746;} |
2215 |
base[0]= VV[124]; |
base[0]= VV[125]; |
2216 |
base[1]= (V231); |
base[1]= (V229); |
2217 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2218 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
2219 |
vs_top=sup; |
vs_top=sup; |
2220 |
goto T757; |
goto T743; |
2221 |
goto T760; |
goto T746; |
2222 |
T760:; |
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; |
2225 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
2226 |
vs_top=sup; |
vs_top=sup; |
2227 |
base[0]= (V231); |
base[0]= (V229); |
2228 |
base[1]= structure_ref(symbol_value(VV[97]),VV[39],0); |
base[1]= structure_ref(symbol_value(VV[97]),VV[39],0); |
2229 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2230 |
(void) (*Lnk349)(); |
(void) (*Lnk351)(); |
2231 |
vs_top=sup; |
vs_top=sup; |
2232 |
V232= vs_base[0]; |
V230= vs_base[0]; |
2233 |
if(((V232))==Cnil){ |
if(((V230))==Cnil){ |
2234 |
goto T768;} |
goto T754;} |
2235 |
base[1]= car((V232)); |
base[1]= car((V230)); |
2236 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2237 |
Lsymbol_function(); |
Lsymbol_function(); |
2238 |
vs_top=sup; |
vs_top=sup; |
2239 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2240 |
{object V233; |
{object V231; |
2241 |
V233= cdr((V232)); |
V231= cdr((V230)); |
2242 |
vs_top=base+1; |
vs_top=base+1; |
2243 |
while(!endp(V233)) |
while(!endp(V231)) |
2244 |
{vs_push(car(V233));V233=cdr(V233);} |
{vs_push(car(V231));V231=cdr(V231);} |
2245 |
vs_base=base+1;} |
vs_base=base+1;} |
2246 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
2247 |
vs_top=sup; |
vs_top=sup; |
2248 |
goto T757; |
goto T743; |
2249 |
goto T768; |
goto T754; |
2250 |
T768:; |
T754:; |
2251 |
base[0]= (V231); |
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); |
2253 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2254 |
(void) (*Lnk349)(); |
(void) (*Lnk351)(); |
2255 |
vs_top=sup; |
vs_top=sup; |
2256 |
V232= vs_base[0]; |
V230= vs_base[0]; |
2257 |
if(((V232))==Cnil){ |
if(((V230))==Cnil){ |
2258 |
goto T777;} |
goto T763;} |
2259 |
base[0]= (V232); |
base[0]= (V230); |
2260 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2261 |
(void) (*Lnk350)(); |
(void) (*Lnk352)(); |
2262 |
vs_top=sup; |
vs_top=sup; |
2263 |
goto T757; |
goto T743; |
2264 |
goto T777; |
goto T763; |
2265 |
T777:; |
T763:; |
2266 |
base[0]= (V231); |
base[0]= (V229); |
2267 |
base[1]= VV[125]; |
base[1]= VV[126]; |
2268 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2269 |
(void) (*Lnk351)(); |
(void) (*Lnk353)(); |
2270 |
vs_top=sup; |
vs_top=sup; |
2271 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2272 |
goto T784;} |
goto T770;} |
2273 |
base[0]= VV[126]; |
base[0]= VV[127]; |
2274 |
base[1]= (V231); |
base[1]= (V229); |
2275 |
base[2]= car(symbol_value(VV[89])); |
base[2]= car(symbol_value(VV[89])); |
2276 |
base[3]= cadr(symbol_value(VV[89])); |
base[3]= cadr(symbol_value(VV[89])); |
2277 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
2278 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
2279 |
vs_top=sup; |
vs_top=sup; |
2280 |
goto T757; |
goto T743; |
2281 |
goto T784; |
goto T770; |
2282 |
T784:; |
T770:; |
2283 |
base[0]= VV[127]; |
base[0]= VV[128]; |
2284 |
base[1]= (V231); |
base[1]= (V229); |
2285 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2286 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
2287 |
vs_top=sup;} |
vs_top=sup;} |
2288 |
goto T757; |
goto T743; |
2289 |
T757:; |
T743:; |
2290 |
goto T752; |
goto T738; |
2291 |
} |
} |
2292 |
/* function definition for LOOP-POP-SOURCE */ |
/* function definition for LOOP-POP-SOURCE */ |
2293 |
|
|
2300 |
goto TTL; |
goto TTL; |
2301 |
TTL:; |
TTL:; |
2302 |
if((symbol_value(VV[89]))==Cnil){ |
if((symbol_value(VV[89]))==Cnil){ |
2303 |
goto T797;} |
goto T783;} |
2304 |
{object V234; |
{object V232; |
2305 |
V234= car(symbol_value(VV[89])); |
V232= car(symbol_value(VV[89])); |
2306 |
setq(VV[89],cdr(symbol_value(VV[89]))); |
setq(VV[89],cdr(symbol_value(VV[89]))); |
2307 |
base[0]= (V234); |
base[0]= (V232); |
2308 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2309 |
return;} |
return;} |
2310 |
goto T797; |
goto T783; |
2311 |
T797:; |
T783:; |
2312 |
base[0]= VV[128]; |
base[0]= VV[129]; |
2313 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2314 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
2315 |
return; |
return; |
2316 |
} |
} |
2317 |
/* function definition for LOOP-GET-PROGN */ |
/* function definition for LOOP-GET-PROGN */ |
2324 |
vs_top=sup; |
vs_top=sup; |
2325 |
goto TTL; |
goto TTL; |
2326 |
TTL:; |
TTL:; |
2327 |
{register object V235; |
{register object V233; |
2328 |
register object V236; |
register object V234; |
2329 |
vs_base=vs_top; |
vs_base=vs_top; |
2330 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
2331 |
vs_top=sup; |
vs_top=sup; |
2332 |
V237= vs_base[0]; |
V235= vs_base[0]; |
2333 |
V235= make_cons(V237,Cnil); |
V233= make_cons(V235,Cnil); |
2334 |
V236= car(symbol_value(VV[89])); |
V234= car(symbol_value(VV[89])); |
2335 |
goto T807; |
goto T793; |
2336 |
T807:; |
T793:; |
2337 |
if(!(type_of((V236))!=t_cons)){ |
if(!(type_of((V234))!=t_cons)){ |
2338 |
goto T808;} |
goto T794;} |
2339 |
if((cdr((V235)))!=Cnil){ |
if((cdr((V233)))!=Cnil){ |
2340 |
goto T812;} |
goto T798;} |
2341 |
base[0]= car((V235)); |
base[0]= car((V233)); |
2342 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2343 |
return; |
return; |
2344 |
goto T812; |
goto T798; |
2345 |
T812:; |
T798:; |
2346 |
V238= nreverse((V235)); |
V236= nreverse((V233)); |
2347 |
base[0]= make_cons(VV[14],/* INLINE-ARGS */V238); |
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 T808; |
goto T794; |
2351 |
T808:; |
T794:; |
2352 |
vs_base=vs_top; |
vs_base=vs_top; |
2353 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
2354 |
vs_top=sup; |
vs_top=sup; |
2355 |
V239= vs_base[0]; |
V237= vs_base[0]; |
2356 |
V235= make_cons(V239,(V235)); |
V233= make_cons(V237,(V233)); |
2357 |
V236= car(symbol_value(VV[89])); |
V234= car(symbol_value(VV[89])); |
2358 |
goto T807;} |
goto T793;} |
2359 |
} |
} |
2360 |
/* function definition for LOOP-GET-FORM */ |
/* function definition for LOOP-GET-FORM */ |
2361 |
|
|
2368 |
goto TTL; |
goto TTL; |
2369 |
TTL:; |
TTL:; |
2370 |
if((symbol_value(VV[89]))==Cnil){ |
if((symbol_value(VV[89]))==Cnil){ |
2371 |
goto T821;} |
goto T807;} |
2372 |
vs_base=vs_top; |
vs_base=vs_top; |
2373 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
2374 |
return; |
return; |
2375 |
goto T821; |
goto T807; |
2376 |
T821:; |
T807:; |
2377 |
base[0]= VV[129]; |
base[0]= VV[130]; |
2378 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2379 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
2380 |
return; |
return; |
2381 |
} |
} |
2382 |
/* function definition for LOOP-CONSTRUCT-RETURN */ |
/* function definition for LOOP-CONSTRUCT-RETURN */ |
2385 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2386 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM43; VC43 |
2387 |
vs_reserve(VM43); |
vs_reserve(VM43); |
2388 |
{object V240; |
{object V238; |
2389 |
check_arg(1); |
check_arg(1); |
2390 |
V240=(base[0]); |
V238=(base[0]); |
2391 |
vs_top=sup; |
vs_top=sup; |
2392 |
goto TTL; |
goto TTL; |
2393 |
TTL:; |
TTL:; |
2394 |
base[1]= list(3,VV[86],car(symbol_value(VV[118])),(V240)); |
base[1]= list(3,VV[86],car(symbol_value(VV[118])),(V238)); |
2395 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2396 |
return; |
return; |
2397 |
} |
} |
2402 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2403 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM44; VC44 |
2404 |
vs_reserve(VM44); |
vs_reserve(VM44); |
2405 |
{object V241; |
{object V239; |
2406 |
check_arg(1); |
check_arg(1); |
2407 |
V241=(base[0]); |
V239=(base[0]); |
2408 |
vs_top=sup; |
vs_top=sup; |
2409 |
goto TTL; |
goto TTL; |
2410 |
TTL:; |
TTL:; |
2411 |
if((symbol_value(VV[110]))!=Cnil){ |
if((symbol_value(VV[110]))!=Cnil){ |
2412 |
goto T824;} |
goto T810;} |
2413 |
if((symbol_value(VV[115]))==Cnil){ |
if((symbol_value(VV[115]))==Cnil){ |
2414 |
goto T825;} |
goto T811;} |
2415 |
goto T824; |
goto T810; |
2416 |
T824:; |
T810:; |
2417 |
setq(VV[109],make_cons(V241,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 T825; |
goto T811; |
2422 |
T825:; |
T811:; |
2423 |
setq(VV[108],make_cons(V241,symbol_value(VV[108]))); |
setq(VV[108],make_cons(V239,symbol_value(VV[108]))); |
2424 |
setq(VV[111],make_cons(V241,symbol_value(VV[111]))); |
setq(VV[111],make_cons(V239,symbol_value(VV[111]))); |
2425 |
base[1]= symbol_value(VV[111]); |
base[1]= symbol_value(VV[111]); |
2426 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2427 |
return; |
return; |
2433 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2434 |
register object *sup=base+VM45; VC45 |
register object *sup=base+VM45; VC45 |
2435 |
vs_reserve(VM45); |
vs_reserve(VM45); |
2436 |
{object V245; |
{object V243; |
2437 |
check_arg(1); |
check_arg(1); |
2438 |
V245=(base[0]); |
V243=(base[0]); |
2439 |
vs_top=sup; |
vs_top=sup; |
2440 |
goto TTL; |
goto TTL; |
2441 |
TTL:; |
TTL:; |
2442 |
setq(VV[110],Ct); |
setq(VV[110],Ct); |
2443 |
base[1]= (V245); |
base[1]= (V243); |
2444 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2445 |
(void) (*Lnk352)(); |
(void) (*Lnk354)(); |
2446 |
return; |
return; |
2447 |
} |
} |
2448 |
} |
} |
2452 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2453 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
2454 |
vs_reserve(VM46); |
vs_reserve(VM46); |
2455 |
{object V246; |
{object V244; |
2456 |
check_arg(1); |
check_arg(1); |
2457 |
V246=(base[0]); |
V244=(base[0]); |
2458 |
vs_top=sup; |
vs_top=sup; |
2459 |
goto TTL; |
goto TTL; |
2460 |
TTL:; |
TTL:; |
2461 |
{object V247; |
{object V245; |
2462 |
base[2]= (V246); |
base[2]= (V244); |
2463 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2464 |
(void) (*Lnk353)(); |
(void) (*Lnk355)(); |
2465 |
vs_top=sup; |
vs_top=sup; |
2466 |
V247= vs_base[0]; |
V245= vs_base[0]; |
2467 |
setq(VV[113],make_cons((V247),symbol_value(VV[113])));} |
setq(VV[113],make_cons((V245),symbol_value(VV[113])));} |
2468 |
if((symbol_value(VV[114]))==Cnil){ |
if((symbol_value(VV[114]))==Cnil){ |
2469 |
goto T840;} |
goto T826;} |
2470 |
base[1]= VV[130]; |
if((symbol_value(VV[119]))==Cnil){ |
2471 |
|
goto T830;} |
2472 |
|
base[1]= VV[90]; |
2473 |
|
base[2]= VV[131]; |
2474 |
|
base[3]= symbol_value(VV[114]); |
2475 |
|
vs_top=(vs_base=base+1)+3; |
2476 |
|
(void) (*Lnk345)(); |
2477 |
|
vs_top=sup; |
2478 |
|
goto T826; |
2479 |
|
goto T830; |
2480 |
|
T830:; |
2481 |
|
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) (*Lnk336)(); |
(void) (*Lnk338)(); |
2485 |
vs_top=sup; |
vs_top=sup; |
2486 |
goto T840; |
goto T826; |
2487 |
T840:; |
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]); |
2490 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2497 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2498 |
register object *sup=base+VM47; VC47 |
register object *sup=base+VM47; VC47 |
2499 |
vs_reserve(VM47); |
vs_reserve(VM47); |
2500 |
{object V248; |
{object V246; |
2501 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_top-vs_base>1) too_many_arguments(); |
2502 |
if(vs_base>=vs_top){vs_top=sup;goto T846;} |
if(vs_base>=vs_top){vs_top=sup;goto T838;} |
2503 |
V248=(base[0]); |
V246=(base[0]); |
2504 |
vs_top=sup; |
vs_top=sup; |
2505 |
goto T847; |
goto T839; |
2506 |
goto T846; |
goto T838; |
2507 |
T846:; |
T838:; |
2508 |
V248= Cnil; |
V246= Cnil; |
2509 |
goto T847; |
goto T839; |
2510 |
T847:; |
T839:; |
2511 |
if((symbol_value(VV[115]))==Cnil){ |
if((symbol_value(VV[115]))==Cnil){ |
2512 |
goto T850;} |
goto T842;} |
2513 |
base[1]= VV[131]; |
base[1]= VV[133]; |
2514 |
base[2]= (V248); |
base[2]= (V246); |
2515 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2516 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
2517 |
return; |
return; |
2518 |
goto T850; |
goto T842; |
2519 |
T850:; |
T842:; |
2520 |
base[1]= Cnil; |
base[1]= Cnil; |
2521 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2522 |
return; |
return; |
2528 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2529 |
register object *sup=base+VM48; VC48 |
register object *sup=base+VM48; VC48 |
2530 |
vs_reserve(VM48); |
vs_reserve(VM48); |
2531 |
{register object V249; |
{register object V247; |
2532 |
check_arg(1); |
check_arg(1); |
2533 |
V249=(base[0]); |
V247=(base[0]); |
2534 |
vs_top=sup; |
vs_top=sup; |
2535 |
goto TTL; |
goto TTL; |
2536 |
TTL:; |
TTL:; |
2537 |
if(((V249))==Cnil){ |
if(((V247))==Cnil){ |
2538 |
goto T855;} |
goto T847;} |
2539 |
base[1]= (V249); |
base[1]= (V247); |
2540 |
base[2]= VV[132]; |
base[2]= VV[134]; |
2541 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2542 |
(void) (*Lnk324)(); |
(void) (*Lnk326)(); |
2543 |
vs_top=sup; |
vs_top=sup; |
2544 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2545 |
goto T855;} |
goto T847;} |
2546 |
base[1]= (V249); |
base[1]= (V247); |
2547 |
base[2]= VV[133]; |
base[2]= VV[135]; |
2548 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2549 |
(void) (*Lnk324)(); |
(void) (*Lnk326)(); |
2550 |
vs_top=sup; |
vs_top=sup; |
2551 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2552 |
goto T861;} |
goto T853;} |
2553 |
base[1]= (V249); |
base[1]= (V247); |
2554 |
base[2]= VV[134]; |
base[2]= VV[136]; |
2555 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2556 |
(void) (*Lnk324)(); |
(void) (*Lnk326)(); |
2557 |
vs_top=sup; |
vs_top=sup; |
2558 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2559 |
goto T862;} |
goto T854;} |
2560 |
goto T861; |
goto T853; |
2561 |
T861:; |
T853:; |
2562 |
base[1]= (*(LnkLI354))(small_fixnum(0),(V249)); |
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 T862; |
goto T854; |
2566 |
T862:; |
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 T855; |
goto T847; |
2571 |
T855:; |
T847:; |
2572 |
base[1]= Cnil; |
base[1]= Cnil; |
2573 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2574 |
return; |
return; |
2581 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM49; VC49 |
2582 |
vs_reserve(VM49); |
vs_reserve(VM49); |
2583 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_top-vs_base>1) too_many_arguments(); |
2584 |
if(vs_base>=vs_top){vs_top=sup;goto T870;} |
if(vs_base>=vs_top){vs_top=sup;goto T862;} |
2585 |
vs_top=sup; |
vs_top=sup; |
2586 |
goto T871; |
goto T863; |
2587 |
goto T870; |
goto T862; |
2588 |
T870:; |
T862:; |
2589 |
base[0]= Cnil; |
base[0]= Cnil; |
2590 |
goto T871; |
goto T863; |
2591 |
T871:; |
T863:; |
2592 |
if(symbol_value(VV[89])==Cnil){ |
if(symbol_value(VV[89])==Cnil){ |
2593 |
base[1]= Cnil; |
base[1]= Cnil; |
2594 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2595 |
return;} |
return;} |
2596 |
base[1]= car(symbol_value(VV[89])); |
base[1]= car(symbol_value(VV[89])); |
2597 |
base[2]= base[1]; |
base[2]= base[1]; |
2598 |
base[3]= VV[135]; |
base[3]= VV[137]; |
2599 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2600 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
2601 |
vs_top=sup; |
vs_top=sup; |
2602 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2603 |
goto T875;} |
goto T867;} |
2604 |
vs_base=vs_top; |
vs_base=vs_top; |
2605 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
2606 |
vs_top=sup; |
vs_top=sup; |
2607 |
vs_base=vs_top; |
vs_base=vs_top; |
2608 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
2609 |
return; |
return; |
2610 |
goto T875; |
goto T867; |
2611 |
T875:; |
T867:; |
2612 |
if(!(type_of(base[1])==t_symbol)){ |
if(!(type_of(base[1])==t_symbol)){ |
2613 |
goto T881;} |
goto T873;} |
2614 |
{object V250;{object V251; |
{object V248;{object V249; |
2615 |
base[2]= base[1]; |
base[2]= base[1]; |
2616 |
base[3]= structure_ref(symbol_value(VV[97]),VV[39],4); |
base[3]= structure_ref(symbol_value(VV[97]),VV[39],4); |
2617 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2618 |
Lgethash(); |
Lgethash(); |
2619 |
vs_top=sup; |
vs_top=sup; |
2620 |
V251= vs_base[0]; |
V249= vs_base[0]; |
2621 |
if(V251==Cnil)goto T884; |
if(V249==Cnil)goto T876; |
2622 |
V250= V251; |
V248= V249; |
2623 |
goto T883; |
goto T875; |
2624 |
goto T884; |
goto T876; |
2625 |
T884:;} |
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); |
2628 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2629 |
Lgethash(); |
Lgethash(); |
2630 |
vs_top=sup; |
vs_top=sup; |
2631 |
V250= vs_base[0]; |
V248= vs_base[0]; |
2632 |
goto T883; |
goto T875; |
2633 |
T883:; |
T875:; |
2634 |
if(((V250))==Cnil){ |
if(((V248))==Cnil){ |
2635 |
goto T891;} |
goto T883;} |
2636 |
vs_base=vs_top; |
vs_base=vs_top; |
2637 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
2638 |
vs_top=sup; |
vs_top=sup; |
2639 |
base[2]= (V250); |
base[2]= (V248); |
2640 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2641 |
return; |
return; |
2642 |
goto T891; |
goto T883; |
2643 |
T891:; |
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 T881; |
goto T873; |
2648 |
T881:; |
T873:; |
2649 |
if(!(type_of(base[0])==t_cons)){ |
if(!(type_of(base[0])==t_cons)){ |
2650 |
goto T896;} |
goto T888;} |
2651 |
if(type_of(base[1])==t_cons){ |
if(type_of(base[1])==t_cons){ |
2652 |
goto T894;} |
goto T886;} |
2653 |
base[2]= VV[136]; |
base[2]= VV[138]; |
2654 |
base[3]= base[1]; |
base[3]= base[1]; |
2655 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2656 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
2657 |
vs_top=sup; |
vs_top=sup; |
2658 |
goto T894; |
goto T886; |
2659 |
goto T896; |
goto T888; |
2660 |
T896:; |
T888:; |
2661 |
base[2]= VV[137]; |
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) (*Lnk345)(); |
(void) (*Lnk347)(); |
2665 |
vs_top=sup; |
vs_top=sup; |
2666 |
goto T894; |
goto T886; |
2667 |
T894:; |
T886:; |
2668 |
vs_base=vs_top; |
vs_base=vs_top; |
2669 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
2670 |
vs_top=sup; |
vs_top=sup; |
2671 |
base[2]= base[1]; |
base[2]= base[1]; |
2672 |
base[3]= base[0]; |
base[3]= base[0]; |
2685 |
goto TTL; |
goto TTL; |
2686 |
TTL:; |
TTL:; |
2687 |
if((symbol_value(VV[100]))!=Cnil){ |
if((symbol_value(VV[100]))!=Cnil){ |
2688 |
goto T907;} |
goto T899;} |
2689 |
if((symbol_value(VV[103]))!=Cnil){ |
if((symbol_value(VV[103]))!=Cnil){ |
2690 |
goto T907;} |
goto T899;} |
2691 |
if((symbol_value(VV[107]))==Cnil){ |
if((symbol_value(VV[107]))==Cnil){ |
2692 |
goto T908;} |
goto T900;} |
2693 |
goto T907; |
goto T899; |
2694 |
T907:; |
T899:; |
2695 |
{object V252; |
{object V250; |
2696 |
V253= nreverse(symbol_value(VV[100])); |
V251= nreverse(symbol_value(VV[100])); |
2697 |
V252= list(4,/* INLINE-ARGS */V253,symbol_value(VV[103]),symbol_value(VV[104]),symbol_value(VV[107])); |
V250= list(4,/* INLINE-ARGS */V251,symbol_value(VV[103]),symbol_value(VV[104]),symbol_value(VV[107])); |
2698 |
setq(VV[105],make_cons((V252),symbol_value(VV[105])));} |
setq(VV[105],make_cons((V250),symbol_value(VV[105])));} |
2699 |
setq(VV[100],Cnil); |
setq(VV[100],Cnil); |
2700 |
setq(VV[103],Cnil); |
setq(VV[103],Cnil); |
2701 |
setq(VV[104],Cnil); |
setq(VV[104],Cnil); |
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 T908; |
goto T900; |
2707 |
T908:; |
T900:; |
2708 |
base[0]= Cnil; |
base[0]= Cnil; |
2709 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2710 |
return; |
return; |
2715 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2716 |
register object *sup=base+VM51; VC51 |
register object *sup=base+VM51; VC51 |
2717 |
vs_reserve(VM51); |
vs_reserve(VM51); |
2718 |
{register object V254; |
{register object V252; |
2719 |
register object V255; |
register object V253; |
2720 |
register object V256; |
register object V254; |
2721 |
object V257; |
object V255; |
2722 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
2723 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
2724 |
V254=(base[0]); |
V252=(base[0]); |
2725 |
V255=(base[1]); |
V253=(base[1]); |
2726 |
V256=(base[2]); |
V254=(base[2]); |
2727 |
vs_base=vs_base+3; |
vs_base=vs_base+3; |
2728 |
if(vs_base>=vs_top){vs_top=sup;goto T924;} |
if(vs_base>=vs_top){vs_top=sup;goto T916;} |
2729 |
V257=(base[3]); |
V255=(base[3]); |
2730 |
vs_top=sup; |
vs_top=sup; |
2731 |
goto T925; |
goto T917; |
2732 |
goto T924; |
goto T916; |
2733 |
T924:; |
T916:; |
2734 |
V257= Cnil; |
V255= Cnil; |
2735 |
goto T925; |
goto T917; |
2736 |
T925:; |
T917:; |
2737 |
if(((V254))!=Cnil){ |
if(((V252))!=Cnil){ |
2738 |
goto T929;} |
goto T921;} |
2739 |
if(((V255))==Cnil){ |
if(((V253))==Cnil){ |
2740 |
goto T927;} |
goto T919;} |
2741 |
{object V258; |
{object V256; |
2742 |
base[5]= VV[140]; |
base[5]= VV[142]; |
2743 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2744 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
2745 |
vs_top=sup; |
vs_top=sup; |
2746 |
V254= vs_base[0]; |
V252= vs_base[0]; |
2747 |
V258= list(2,(V254),(V255)); |
V256= list(2,(V252),(V253)); |
2748 |
setq(VV[100],make_cons((V258),symbol_value(VV[100])));} |
setq(VV[100],make_cons((V256),symbol_value(VV[100])));} |
2749 |
{object V259; |
{object V257; |
2750 |
V259= list(2,VV[141],(V254)); |
V257= list(2,VV[143],(V252)); |
2751 |
setq(VV[103],make_cons((V259),symbol_value(VV[103]))); |
setq(VV[103],make_cons((V257),symbol_value(VV[103]))); |
2752 |
goto T927;} |
goto T919;} |
2753 |
goto T929; |
goto T921; |
2754 |
T929:; |
T921:; |
2755 |
if(!(type_of((V254))!=t_cons)){ |
if(!(type_of((V252))!=t_cons)){ |
2756 |
goto T941;} |
goto T933;} |
2757 |
if(((V257))==Cnil){ |
if(((V255))==Cnil){ |
2758 |
goto T945;} |
goto T937;} |
2759 |
{register object x= (V254),V260= symbol_value(VV[99]); |
{register object x= (V252),V258= symbol_value(VV[99]); |
2760 |
|
while(!endp(V258)) |
2761 |
|
if(eql(x,V258->c.c_car)){ |
2762 |
|
goto T941; |
2763 |
|
}else V258=V258->c.c_cdr; |
2764 |
|
goto T940;} |
2765 |
|
goto T941; |
2766 |
|
T941:; |
2767 |
|
base[4]= VV[144]; |
2768 |
|
base[5]= (V252); |
2769 |
|
vs_top=(vs_base=base+4)+2; |
2770 |
|
(void) (*Lnk347)(); |
2771 |
|
vs_top=sup; |
2772 |
|
goto T935; |
2773 |
|
goto T940; |
2774 |
|
T940:; |
2775 |
|
setq(VV[99],make_cons(V252,symbol_value(VV[99]))); |
2776 |
|
goto T935; |
2777 |
|
goto T937; |
2778 |
|
T937:; |
2779 |
|
{register object x= (V252),V260= symbol_value(VV[100]); |
2780 |
while(!endp(V260)) |
while(!endp(V260)) |
2781 |
if(eql(x,V260->c.c_car)){ |
if(type_of(V260->c.c_car)==t_cons &&eql(x,V260->c.c_car->c.c_car)){ |
2782 |
goto T949; |
goto T946; |
2783 |
}else V260=V260->c.c_cdr; |
}else V260=V260->c.c_cdr; |
2784 |
goto T948;} |
goto T935;} |
2785 |
|
goto T946; |
2786 |
|
T946:; |
2787 |
|
base[4]= VV[145]; |
2788 |
|
base[5]= (V252); |
2789 |
|
vs_top=(vs_base=base+4)+2; |
2790 |
|
(void) (*Lnk347)(); |
2791 |
|
vs_top=sup; |
2792 |
|
goto T935; |
2793 |
|
T935:; |
2794 |
|
if(type_of((V252))==t_symbol){ |
2795 |
|
goto T949;} |
2796 |
|
base[4]= VV[146]; |
2797 |
|
base[5]= (V252); |
2798 |
|
vs_top=(vs_base=base+4)+2; |
2799 |
|
(void) (*Lnk347)(); |
2800 |
|
vs_top=sup; |
2801 |
goto T949; |
goto T949; |
2802 |
T949:; |
T949:; |
2803 |
base[4]= VV[142]; |
base[4]= (V252); |
2804 |
base[5]= (V254); |
base[5]= (V254); |
2805 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2806 |
(void) (*Lnk345)(); |
(void) (*Lnk358)(); |
2807 |
vs_top=sup; |
vs_top=sup; |
2808 |
goto T943; |
{object V261; |
2809 |
goto T948; |
if((V253)!=Cnil){ |
2810 |
T948:; |
V262= (V253); |
2811 |
setq(VV[99],make_cons(V254,symbol_value(VV[99]))); |
goto T958;} |
|
goto T943; |
|
|
goto T945; |
|
|
T945:; |
|
|
{register object x= (V254),V262= symbol_value(VV[100]); |
|
|
while(!endp(V262)) |
|
|
if(type_of(V262->c.c_car)==t_cons &&eql(x,V262->c.c_car->c.c_car)){ |
|
|
goto T954; |
|
|
}else V262=V262->c.c_cdr; |
|
|
goto T943;} |
|
|
goto T954; |
|
|
T954:; |
|
|
base[4]= VV[143]; |
|
2812 |
base[5]= (V254); |
base[5]= (V254); |
2813 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+5)+1; |
2814 |
(void) (*Lnk345)(); |
(void) (*Lnk329)(); |
2815 |
vs_top=sup; |
vs_top=sup; |
2816 |
goto T943; |
V262= vs_base[0]; |
2817 |
T943:; |
goto T958; |
2818 |
if(type_of((V254))==t_symbol){ |
T958:; |
2819 |
goto T957;} |
V261= list(2,(V252),V262); |
2820 |
base[4]= VV[144]; |
setq(VV[100],make_cons((V261),symbol_value(VV[100]))); |
2821 |
|
goto T919;} |
2822 |
|
goto T933; |
2823 |
|
T933:; |
2824 |
|
if(((V253))==Cnil){ |
2825 |
|
goto T962;} |
2826 |
|
if((symbol_value(VV[63]))==Cnil){ |
2827 |
|
goto T965;} |
2828 |
|
base[4]= (V252); |
2829 |
base[5]= (V254); |
base[5]= (V254); |
2830 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2831 |
(void) (*Lnk345)(); |
(void) (*Lnk358)(); |
|
vs_top=sup; |
|
|
goto T957; |
|
|
T957:; |
|
|
base[4]= (V254); |
|
|
base[5]= (V256); |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk356)(); |
|
2832 |
vs_top=sup; |
vs_top=sup; |
2833 |
{object V263; |
{object V263; |
2834 |
if((V255)!=Cnil){ |
V263= list(2,(V252),(V253)); |
2835 |
V264= (V255); |
setq(VV[100],make_cons((V263),symbol_value(VV[100]))); |
2836 |
goto T966;} |
goto T919;} |
2837 |
base[5]= (V256); |
goto T965; |
2838 |
vs_top=(vs_base=base+5)+1; |
T965:; |
2839 |
|
{object V264; |
2840 |
|
base[4]= VV[147]; |
2841 |
|
vs_top=(vs_base=base+4)+1; |
2842 |
(void) (*Lnk327)(); |
(void) (*Lnk327)(); |
2843 |
vs_top=sup; |
vs_top=sup; |
2844 |
V264= vs_base[0]; |
V264= vs_base[0]; |
|
goto T966; |
|
|
T966:; |
|
|
V263= list(2,(V254),V264); |
|
|
setq(VV[100],make_cons((V263),symbol_value(VV[100]))); |
|
|
goto T927;} |
|
|
goto T941; |
|
|
T941:; |
|
|
if(((V255))==Cnil){ |
|
|
goto T970;} |
|
|
if((symbol_value(VV[63]))==Cnil){ |
|
|
goto T973;} |
|
|
base[4]= (V254); |
|
|
base[5]= (V256); |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk356)(); |
|
|
vs_top=sup; |
|
2845 |
{object V265; |
{object V265; |
2846 |
V265= list(2,(V254),(V255)); |
V265= list(2,(V264),(V253)); |
2847 |
setq(VV[100],make_cons((V265),symbol_value(VV[100]))); |
setq(VV[100],make_cons((V265),symbol_value(VV[100])));} |
2848 |
goto T927;} |
setq(VV[104],listA(3,(V252),(V264),symbol_value(VV[104]))); |
2849 |
goto T973; |
goto T919;} |
2850 |
T973:; |
goto T962; |
2851 |
|
T962:; |
2852 |
{object V266; |
{object V266; |
2853 |
base[4]= VV[145]; |
object V267; |
2854 |
vs_top=(vs_base=base+4)+1; |
V266= Cnil; |
2855 |
(void) (*Lnk325)(); |
V267= Cnil; |
2856 |
vs_top=sup; |
if(!(type_of((V254))!=t_cons)){ |
2857 |
V266= vs_base[0]; |
goto T980;} |
2858 |
{object V267; |
V267= (V254); |
2859 |
V267= list(2,(V266),(V255)); |
V266= (V267); |
2860 |
setq(VV[100],make_cons((V267),symbol_value(VV[100])));} |
goto T978; |
2861 |
setq(VV[104],listA(3,(V254),(V266),symbol_value(VV[104]))); |
goto T980; |
2862 |
goto T927;} |
T980:; |
2863 |
goto T970; |
V266= car((V254)); |
2864 |
T970:; |
V267= cdr((V254)); |
2865 |
{object V268; |
goto T978; |
2866 |
object V269; |
T978:; |
2867 |
V268= Cnil; |
base[4]= car((V252)); |
|
V269= Cnil; |
|
|
if(!(type_of((V256))!=t_cons)){ |
|
|
goto T988;} |
|
|
V269= (V256); |
|
|
V268= (V269); |
|
|
goto T986; |
|
|
goto T988; |
|
|
T988:; |
|
|
V268= car((V256)); |
|
|
V269= cdr((V256)); |
|
|
goto T986; |
|
|
T986:; |
|
|
base[4]= car((V254)); |
|
2868 |
base[5]= Cnil; |
base[5]= Cnil; |
2869 |
base[6]= (V268); |
base[6]= (V266); |
2870 |
base[7]= (V257); |
base[7]= (V255); |
2871 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2872 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
2873 |
vs_top=sup; |
vs_top=sup; |
2874 |
base[4]= cdr((V254)); |
base[4]= cdr((V252)); |
2875 |
base[5]= Cnil; |
base[5]= Cnil; |
2876 |
base[6]= (V269); |
base[6]= (V267); |
2877 |
base[7]= (V257); |
base[7]= (V255); |
2878 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2879 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
2880 |
vs_top=sup;} |
vs_top=sup;} |
2881 |
goto T927; |
goto T919; |
2882 |
T927:; |
T919:; |
2883 |
base[4]= (V254); |
base[4]= (V252); |
2884 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2885 |
return; |
return; |
2886 |
} |
} |
2891 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2892 |
register object *sup=base+VM52; VC52 |
register object *sup=base+VM52; VC52 |
2893 |
vs_reserve(VM52); |
vs_reserve(VM52); |
2894 |
{object V270; |
{object V268; |
2895 |
object V271; |
object V269; |
2896 |
object V272; |
object V270; |
2897 |
check_arg(3); |
check_arg(3); |
2898 |
V270=(base[0]); |
V268=(base[0]); |
2899 |
V271=(base[1]); |
V269=(base[1]); |
2900 |
V272=(base[2]); |
V270=(base[2]); |
2901 |
vs_top=sup; |
vs_top=sup; |
2902 |
goto TTL; |
goto TTL; |
2903 |
TTL:; |
TTL:; |
2904 |
base[3]= (V270); |
base[3]= (V268); |
2905 |
base[4]= (V271); |
base[4]= (V269); |
2906 |
base[5]= (V272); |
base[5]= (V270); |
2907 |
base[6]= Ct; |
base[6]= Ct; |
2908 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
2909 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
2910 |
return; |
return; |
2911 |
} |
} |
2912 |
} |
} |
2916 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2917 |
register object *sup=base+VM53; VC53 |
register object *sup=base+VM53; VC53 |
2918 |
vs_reserve(VM53); |
vs_reserve(VM53); |
2919 |
{register object V273; |
{register object V271; |
2920 |
register object V274; |
register object V272; |
2921 |
check_arg(2); |
check_arg(2); |
2922 |
V273=(base[0]); |
V271=(base[0]); |
2923 |
V274=(base[1]); |
V272=(base[1]); |
2924 |
vs_top=sup; |
vs_top=sup; |
2925 |
goto TTL; |
goto TTL; |
2926 |
TTL:; |
TTL:; |
2927 |
if(((V273))==Cnil){ |
if(((V271))==Cnil){ |
2928 |
goto T1008;} |
goto T1000;} |
2929 |
if(((V274))==Cnil){ |
if(((V272))==Cnil){ |
2930 |
goto T1008;} |
goto T1000;} |
2931 |
if(!(((V274))==(Ct))){ |
if(!(((V272))==(Ct))){ |
2932 |
goto T1009;} |
goto T1001;} |
2933 |
goto T1008; |
goto T1000; |
2934 |
T1008:; |
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 T1009; |
goto T1001; |
2939 |
T1009:; |
T1001:; |
2940 |
if(!(type_of((V273))==t_symbol)){ |
if(!(type_of((V271))==t_symbol)){ |
2941 |
goto T1016;} |
goto T1008;} |
2942 |
if(((V274))==(Ct)){ |
if(((V272))==(Ct)){ |
2943 |
goto T1019;} |
goto T1011;} |
2944 |
{register object x= (V273),V275= symbol_value(VV[101]); |
{register object x= (V271),V273= symbol_value(VV[101]); |
2945 |
while(!endp(V275)) |
while(!endp(V273)) |
2946 |
if(eql(x,V275->c.c_car)){ |
if(eql(x,V273->c.c_car)){ |
2947 |
goto T1019; |
goto T1011; |
2948 |
}else V275=V275->c.c_cdr;} |
}else V273=V273->c.c_cdr;} |
2949 |
{object V277; |
{object V275; |
2950 |
V277= list(3,VV[31],V274,(V273)); |
V275= list(3,VV[31],V272,(V271)); |
2951 |
setq(VV[103],make_cons((V277),symbol_value(VV[103]))); |
setq(VV[103],make_cons((V275),symbol_value(VV[103]))); |
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 T1019; |
goto T1011; |
2956 |
T1019:; |
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 T1016; |
goto T1008; |
2961 |
T1016:; |
T1008:; |
2962 |
if(!(type_of((V273))==t_cons)){ |
if(!(type_of((V271))==t_cons)){ |
2963 |
goto T1026;} |
goto T1018;} |
2964 |
if(!(type_of((V274))==t_cons)){ |
if(!(type_of((V272))==t_cons)){ |
2965 |
goto T1029;} |
goto T1021;} |
2966 |
base[2]= car((V273)); |
base[2]= car((V271)); |
2967 |
base[3]= car((V274)); |
base[3]= car((V272)); |
2968 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2969 |
(void) (*Lnk356)(); |
(void) (*Lnk358)(); |
2970 |
vs_top=sup; |
vs_top=sup; |
2971 |
V273= cdr((V273)); |
V271= cdr((V271)); |
2972 |
V274= cdr((V274)); |
V272= cdr((V272)); |
2973 |
goto TTL; |
goto TTL; |
2974 |
goto T1029; |
goto T1021; |
2975 |
T1029:; |
T1021:; |
2976 |
base[2]= car((V273)); |
base[2]= car((V271)); |
2977 |
base[3]= (V274); |
base[3]= (V272); |
2978 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2979 |
(void) (*Lnk356)(); |
(void) (*Lnk358)(); |
2980 |
vs_top=sup; |
vs_top=sup; |
2981 |
V273= cdr((V273)); |
V271= cdr((V271)); |
2982 |
goto TTL; |
goto TTL; |
2983 |
goto T1026; |
goto T1018; |
2984 |
T1026:; |
T1018:; |
2985 |
base[2]= VV[146]; |
base[2]= VV[148]; |
2986 |
base[3]= (V273); |
base[3]= (V271); |
2987 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2988 |
Lerror(); |
Lerror(); |
2989 |
return; |
return; |
2995 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2996 |
register object *sup=base+VM54; VC54 |
register object *sup=base+VM54; VC54 |
2997 |
vs_reserve(VM54); |
vs_reserve(VM54); |
2998 |
{object V278; |
{object V276; |
2999 |
object V279; |
object V277; |
3000 |
check_arg(2); |
check_arg(2); |
3001 |
V278=(base[0]); |
V276=(base[0]); |
3002 |
V279=(base[1]); |
V277=(base[1]); |
3003 |
vs_top=sup; |
vs_top=sup; |
3004 |
goto TTL; |
goto TTL; |
3005 |
TTL:; |
TTL:; |
3006 |
base[2]= (V278); |
base[2]= (V276); |
3007 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3008 |
(void) (*Lnk358)(); |
(void) (*Lnk360)(); |
3009 |
vs_top=sup; |
vs_top=sup; |
3010 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3011 |
goto T1046;} |
goto T1038;} |
3012 |
base[2]= (V278); |
base[2]= (V276); |
3013 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3014 |
return; |
return; |
3015 |
goto T1046; |
goto T1038; |
3016 |
T1046:; |
T1038:; |
3017 |
base[3]= VV[147]; |
base[3]= VV[149]; |
3018 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3019 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
3020 |
vs_top=sup; |
vs_top=sup; |
3021 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3022 |
base[3]= (V278); |
base[3]= (V276); |
3023 |
base[4]= (V279); |
base[4]= (V277); |
3024 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
3025 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
3026 |
return; |
return; |
3027 |
} |
} |
3028 |
} |
} |
3033 |
register object *sup=base+VM55; VC55 |
register object *sup=base+VM55; VC55 |
3034 |
vs_reserve(VM55); |
vs_reserve(VM55); |
3035 |
bds_check; |
bds_check; |
3036 |
{object V280; |
{object V278; |
3037 |
object V281; |
object V279; |
3038 |
check_arg(2); |
check_arg(2); |
3039 |
V280=(base[0]); |
V278=(base[0]); |
3040 |
V281=(base[1]); |
V279=(base[1]); |
3041 |
vs_top=sup; |
vs_top=sup; |
3042 |
goto TTL; |
goto TTL; |
3043 |
TTL:; |
TTL:; |
3044 |
{object V282; |
{object V280; |
3045 |
vs_base=vs_top; |
vs_base=vs_top; |
3046 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
3047 |
vs_top=sup; |
vs_top=sup; |
3048 |
V282= vs_base[0]; |
V280= vs_base[0]; |
3049 |
bds_bind(VV[115],Ct); |
bds_bind(VV[115],Ct); |
3050 |
base[3]= Cnil; |
base[3]= Cnil; |
3051 |
{object V283; |
{object V281; |
3052 |
object V284; |
object V282; |
3053 |
base[4]= (V280); |
base[4]= (V278); |
3054 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3055 |
L66(base); |
L66(base); |
3056 |
vs_top=sup; |
vs_top=sup; |
3057 |
V283= vs_base[0]; |
V281= vs_base[0]; |
3058 |
base[4]= car(symbol_value(VV[89])); |
base[4]= car(symbol_value(VV[89])); |
3059 |
base[5]= VV[148]; |
base[5]= VV[150]; |
3060 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3061 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
3062 |
vs_top=sup; |
vs_top=sup; |
3063 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3064 |
goto T1058;} |
goto T1050;} |
3065 |
vs_base=vs_top; |
vs_base=vs_top; |
3066 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
3067 |
vs_top=sup; |
vs_top=sup; |
3068 |
base[4]= VV[148]; |
base[4]= VV[150]; |
3069 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3070 |
L66(base); |
L66(base); |
3071 |
vs_top=sup; |
vs_top=sup; |
3072 |
V285= vs_base[0]; |
V283= vs_base[0]; |
3073 |
V284= make_cons(V285,Cnil); |
V282= make_cons(V283,Cnil); |
3074 |
goto T1056; |
goto T1048; |
3075 |
goto T1058; |
goto T1050; |
3076 |
T1058:; |
T1050:; |
3077 |
V284= Cnil; |
V282= Cnil; |
3078 |
goto T1056; |
goto T1048; |
3079 |
T1056:; |
T1048:; |
3080 |
base[4]= car(symbol_value(VV[89])); |
base[4]= car(symbol_value(VV[89])); |
3081 |
base[5]= VV[149]; |
base[5]= VV[151]; |
3082 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3083 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
3084 |
vs_top=sup; |
vs_top=sup; |
3085 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3086 |
goto T1065;} |
goto T1057;} |
3087 |
vs_base=vs_top; |
vs_base=vs_top; |
3088 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
3089 |
vs_top=sup; |
vs_top=sup; |
3090 |
goto T1065; |
goto T1057; |
3091 |
T1065:; |
T1057:; |
3092 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
3093 |
goto T1070;} |
goto T1062;} |
3094 |
V282= list(3,VV[11],base[3],(V282)); |
V280= list(3,VV[11],base[3],(V280)); |
3095 |
goto T1070; |
goto T1062; |
3096 |
T1070:; |
T1062:; |
3097 |
if(((V281))==Cnil){ |
if(((V279))==Cnil){ |
3098 |
goto T1077;} |
goto T1069;} |
3099 |
V286= list(2,VV[36],(V282)); |
V284= list(2,VV[36],(V280)); |
3100 |
goto T1075; |
goto T1067; |
3101 |
goto T1077; |
goto T1069; |
3102 |
T1077:; |
T1069:; |
3103 |
V286= (V282); |
V284= (V280); |
3104 |
goto T1075; |
goto T1067; |
3105 |
T1075:; |
T1067:; |
3106 |
base[4]= listA(4,VV[71],V286,(V283),(V284)); |
base[4]= listA(4,VV[71],V284,(V281),(V282)); |
3107 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3108 |
(void) (*Lnk352)(); |
(void) (*Lnk354)(); |
3109 |
bds_unwind1; |
bds_unwind1; |
3110 |
return;}} |
return;}} |
3111 |
} |
} |
3120 |
vs_top=sup; |
vs_top=sup; |
3121 |
goto TTL; |
goto TTL; |
3122 |
TTL:; |
TTL:; |
3123 |
base[0]= VV[154]; |
base[0]= VV[156]; |
3124 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3125 |
(void) (*Lnk360)(); |
(void) (*Lnk362)(); |
3126 |
vs_top=sup; |
vs_top=sup; |
3127 |
{object V287; |
{object V285; |
3128 |
vs_base=vs_top; |
vs_base=vs_top; |
3129 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
3130 |
vs_top=sup; |
vs_top=sup; |
3131 |
V287= vs_base[0]; |
V285= vs_base[0]; |
3132 |
setq(VV[106],make_cons((V287),symbol_value(VV[106]))); |
setq(VV[106],make_cons((V285),symbol_value(VV[106]))); |
3133 |
base[1]= symbol_value(VV[106]); |
base[1]= symbol_value(VV[106]); |
3134 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3135 |
return;} |
return;} |
3144 |
vs_top=sup; |
vs_top=sup; |
3145 |
goto TTL; |
goto TTL; |
3146 |
TTL:; |
TTL:; |
3147 |
base[0]= VV[155]; |
base[0]= VV[157]; |
3148 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3149 |
(void) (*Lnk360)(); |
(void) (*Lnk362)(); |
3150 |
vs_top=sup; |
vs_top=sup; |
3151 |
{object V288; |
{object V286; |
3152 |
vs_base=vs_top; |
vs_base=vs_top; |
3153 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
3154 |
vs_top=sup; |
vs_top=sup; |
3155 |
V288= vs_base[0]; |
V286= vs_base[0]; |
3156 |
setq(VV[112],make_cons((V288),symbol_value(VV[112]))); |
setq(VV[112],make_cons((V286),symbol_value(VV[112]))); |
3157 |
base[1]= symbol_value(VV[112]); |
base[1]= symbol_value(VV[112]); |
3158 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3159 |
return;} |
return;} |
3169 |
goto TTL; |
goto TTL; |
3170 |
TTL:; |
TTL:; |
3171 |
vs_base=vs_top; |
vs_base=vs_top; |
3172 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
3173 |
vs_top=sup; |
vs_top=sup; |
3174 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3175 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3176 |
(void) (*Lnk362)(); |
(void) (*Lnk364)(); |
3177 |
return; |
return; |
3178 |
} |
} |
3179 |
/* function definition for LOOP-DO-NAMED */ |
/* function definition for LOOP-DO-NAMED */ |
3186 |
vs_top=sup; |
vs_top=sup; |
3187 |
goto TTL; |
goto TTL; |
3188 |
TTL:; |
TTL:; |
3189 |
{register object V289; |
{register object V287; |
3190 |
vs_base=vs_top; |
vs_base=vs_top; |
3191 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
3192 |
vs_top=sup; |
vs_top=sup; |
3193 |
V289= vs_base[0]; |
V287= vs_base[0]; |
3194 |
if(type_of((V289))==t_symbol){ |
if(type_of((V287))==t_symbol){ |
3195 |
goto T1089;} |
goto T1081;} |
3196 |
base[0]= VV[156]; |
base[0]= VV[158]; |
3197 |
base[1]= (V289); |
base[1]= (V287); |
3198 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3199 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
3200 |
vs_top=sup; |
vs_top=sup; |
3201 |
goto T1089; |
goto T1081; |
3202 |
T1089:; |
T1081:; |
3203 |
if((symbol_value(VV[108]))!=Cnil){ |
if((symbol_value(VV[108]))!=Cnil){ |
3204 |
goto T1095;} |
goto T1087;} |
3205 |
if((symbol_value(VV[109]))!=Cnil){ |
if((symbol_value(VV[109]))!=Cnil){ |
3206 |
goto T1095;} |
goto T1087;} |
3207 |
if((symbol_value(VV[113]))!=Cnil){ |
if((symbol_value(VV[113]))!=Cnil){ |
3208 |
goto T1095;} |
goto T1087;} |
3209 |
if((symbol_value(VV[115]))==Cnil){ |
if((symbol_value(VV[115]))==Cnil){ |
3210 |
goto T1094;} |
goto T1086;} |
3211 |
goto T1095; |
goto T1087; |
3212 |
T1095:; |
T1087:; |
3213 |
base[0]= VV[157]; |
base[0]= VV[159]; |
3214 |
base[1]= (V289); |
base[1]= (V287); |
3215 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3216 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
3217 |
vs_top=sup; |
vs_top=sup; |
3218 |
goto T1094; |
goto T1086; |
3219 |
T1094:; |
T1086:; |
3220 |
if((symbol_value(VV[118]))==Cnil){ |
if((symbol_value(VV[118]))==Cnil){ |
3221 |
goto T1105;} |
goto T1097;} |
3222 |
base[0]= VV[158]; |
base[0]= VV[160]; |
3223 |
base[1]= car(symbol_value(VV[118])); |
base[1]= car(symbol_value(VV[118])); |
3224 |
base[2]= (V289); |
base[2]= (V287); |
3225 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3226 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
3227 |
vs_top=sup; |
vs_top=sup; |
3228 |
goto T1105; |
goto T1097; |
3229 |
T1105:; |
T1097:; |
3230 |
setq(VV[118],list(2,(V289),Cnil)); |
setq(VV[118],list(2,(V287),Cnil)); |
3231 |
base[0]= symbol_value(VV[118]); |
base[0]= symbol_value(VV[118]); |
3232 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3233 |
return;} |
return;} |
3243 |
goto TTL; |
goto TTL; |
3244 |
TTL:; |
TTL:; |
3245 |
vs_base=vs_top; |
vs_base=vs_top; |
3246 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
3247 |
vs_top=sup; |
vs_top=sup; |
3248 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3249 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3250 |
(void) (*Lnk353)(); |
(void) (*Lnk355)(); |
3251 |
vs_top=sup; |
vs_top=sup; |
3252 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3253 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3254 |
(void) (*Lnk352)(); |
(void) (*Lnk354)(); |
3255 |
return; |
return; |
3256 |
} |
} |
3257 |
/* function definition for MAKE-LOOP-COLLECTOR */ |
/* function definition for MAKE-LOOP-COLLECTOR */ |
3260 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3261 |
register object *sup=base+VM61; VC61 |
register object *sup=base+VM61; VC61 |
3262 |
vs_reserve(VM61); |
vs_reserve(VM61); |
3263 |
{object V290; |
{object V288; |
3264 |
|
object V289; |
3265 |
|
object V290; |
3266 |
object V291; |
object V291; |
3267 |
object V292; |
object V292; |
3268 |
object V293; |
object V293; |
3269 |
object V294; |
parse_key(vs_base,FALSE,FALSE,6,VV[165],VV[166],VV[167],VV[365],VV[168],VV[366]); |
|
object V295; |
|
|
parse_key(vs_base,FALSE,FALSE,6,VV[163],VV[164],VV[165],VV[363],VV[166],VV[364]); |
|
3270 |
vs_top=sup; |
vs_top=sup; |
3271 |
V290=(base[0]); |
V288=(base[0]); |
3272 |
V291=(base[1]); |
V289=(base[1]); |
3273 |
V292=(base[2]); |
V290=(base[2]); |
3274 |
V293=(base[3]); |
V291=(base[3]); |
3275 |
V294=(base[4]); |
V292=(base[4]); |
3276 |
V295=(base[5]); |
V293=(base[5]); |
3277 |
base[12]= VV[159]; |
base[12]= VV[161]; |
3278 |
base[13]= (V290); |
base[13]= (V288); |
3279 |
base[14]= (V291); |
base[14]= (V289); |
3280 |
base[15]= (V292); |
base[15]= (V290); |
3281 |
base[16]= (V293); |
base[16]= (V291); |
3282 |
base[17]= (V294); |
base[17]= (V292); |
3283 |
base[18]= (V295); |
base[18]= (V293); |
3284 |
vs_top=(vs_base=base+12)+7; |
vs_top=(vs_base=base+12)+7; |
3285 |
siLmake_structure(); |
siLmake_structure(); |
3286 |
return; |
return; |
3292 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3293 |
register object *sup=base+VM62; VC62 |
register object *sup=base+VM62; VC62 |
3294 |
vs_reserve(VM62); |
vs_reserve(VM62); |
3295 |
{object V296; |
{object V294; |
3296 |
object V297; |
object V295; |
3297 |
object V298; |
object V296; |
3298 |
check_arg(3); |
check_arg(3); |
3299 |
V296=(base[0]); |
V294=(base[0]); |
3300 |
V297=(base[1]); |
V295=(base[1]); |
3301 |
V298=(base[2]); |
V296=(base[2]); |
3302 |
vs_top=sup; |
vs_top=sup; |
3303 |
goto TTL; |
goto TTL; |
3304 |
TTL:; |
TTL:; |
3305 |
{object V299; |
base[3]= car(symbol_value(VV[89])); |
3306 |
register object V300; |
base[4]= VV[162]; |
3307 |
register object V301; |
vs_top=(vs_base=base+3)+2; |
3308 |
vs_base=vs_top; |
(void) (*Lnk357)(); |
|
(void) (*Lnk359)(); |
|
3309 |
vs_top=sup; |
vs_top=sup; |
3310 |
V299= vs_base[0]; |
if((vs_base[0])!=Cnil){ |
3311 |
V302= structure_ref(symbol_value(VV[97]),VV[39],6); |
goto T1113;} |
3312 |
if((/* INLINE-ARGS */V302)==Cnil){ |
setq(VV[119],Ct); |
3313 |
goto T1123;} |
goto T1113; |
3314 |
V300= Cnil; |
T1113:; |
3315 |
goto T1122; |
{object V297; |
3316 |
goto T1123; |
register object V298; |
3317 |
T1123:; |
register object V299; |
3318 |
vs_base=vs_top; |
vs_base=vs_top; |
3319 |
(void) (*Lnk365)(); |
(void) (*Lnk361)(); |
3320 |
vs_top=sup; |
vs_top=sup; |
3321 |
V300= vs_base[0]; |
V297= vs_base[0]; |
3322 |
goto T1122; |
V300= structure_ref(symbol_value(VV[97]),VV[39],6); |
3323 |
T1122:; |
if((/* INLINE-ARGS */V300)==Cnil){ |
3324 |
|
goto T1121;} |
3325 |
|
V298= Cnil; |
3326 |
|
goto T1120; |
3327 |
|
goto T1121; |
3328 |
|
T1121:; |
3329 |
|
vs_base=vs_top; |
3330 |
|
(void) (*Lnk367)(); |
3331 |
|
vs_top=sup; |
3332 |
|
V298= vs_base[0]; |
3333 |
|
goto T1120; |
3334 |
|
T1120:; |
3335 |
base[3]= car(symbol_value(VV[89])); |
base[3]= car(symbol_value(VV[89])); |
3336 |
base[4]= VV[160]; |
base[4]= VV[162]; |
3337 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3338 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
3339 |
vs_top=sup; |
vs_top=sup; |
3340 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3341 |
goto T1127;} |
goto T1125;} |
3342 |
vs_base=vs_top; |
vs_base=vs_top; |
3343 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
3344 |
vs_top=sup; |
vs_top=sup; |
3345 |
vs_base=vs_top; |
vs_base=vs_top; |
3346 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
3347 |
vs_top=sup; |
vs_top=sup; |
3348 |
V301= vs_base[0]; |
V299= vs_base[0]; |
3349 |
goto T1125; |
goto T1123; |
|
goto T1127; |
|
|
T1127:; |
|
|
V301= Cnil; |
|
3350 |
goto T1125; |
goto T1125; |
3351 |
T1125:; |
T1125:; |
3352 |
if(type_of((V301))==t_symbol){ |
V299= Cnil; |
3353 |
goto T1132;} |
goto T1123; |
3354 |
base[3]= VV[161]; |
T1123:; |
3355 |
base[4]= (V301); |
if(type_of((V299))==t_symbol){ |
3356 |
|
goto T1130;} |
3357 |
|
base[3]= VV[163]; |
3358 |
|
base[4]= (V299); |
3359 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3360 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
3361 |
vs_top=sup; |
vs_top=sup; |
3362 |
goto T1132; |
goto T1130; |
3363 |
T1132:; |
T1130:; |
3364 |
if(((V300))!=Cnil){ |
if(((V298))!=Cnil){ |
3365 |
goto T1137;}{object V303; |
goto T1135;}{object V301; |
3366 |
vs_base=vs_top; |
vs_base=vs_top; |
3367 |
(void) (*Lnk365)(); |
(void) (*Lnk367)(); |
|
vs_top=sup; |
|
|
V303= vs_base[0]; |
|
|
if(V303==Cnil)goto T1141; |
|
|
V300= V303; |
|
|
goto T1140; |
|
|
goto T1141; |
|
|
T1141:;} |
|
|
V300= (V298); |
|
|
goto T1140; |
|
|
T1140:; |
|
|
goto T1137; |
|
|
T1137:; |
|
|
{register object V304;{object V305; |
|
|
V305= symbol_value(VV[119]); |
|
|
V306= symbol_function(VV[367]); |
|
|
V304= (VFUN_NARGS=4,(*(LnkLI366))((V301),V305,VV[162],V306));} |
|
|
if(((V304))!=Cnil){ |
|
|
goto T1147;} |
|
|
{object V307; |
|
|
base[4]= VV[163]; |
|
|
base[5]= (V301); |
|
|
base[6]= VV[164]; |
|
|
base[7]= (V297); |
|
|
base[8]= VV[165]; |
|
|
base[9]= make_cons((V296),Cnil); |
|
|
base[10]= VV[166]; |
|
|
base[11]= (V300); |
|
|
vs_top=(vs_base=base+4)+8; |
|
|
(void) (*Lnk368)(); |
|
3368 |
vs_top=sup; |
vs_top=sup; |
3369 |
V304= vs_base[0]; |
V301= vs_base[0]; |
3370 |
V307= (V304); |
if(V301==Cnil)goto T1139; |
3371 |
setq(VV[119],make_cons((V307),symbol_value(VV[119]))); |
V298= V301; |
3372 |
|
goto T1138; |
3373 |
|
goto T1139; |
3374 |
|
T1139:;} |
3375 |
|
V298= (V296); |
3376 |
|
goto T1138; |
3377 |
|
T1138:; |
3378 |
|
goto T1135; |
3379 |
|
T1135:; |
3380 |
|
{register object V302;{object V303; |
3381 |
|
V303= symbol_value(VV[120]); |
3382 |
|
V304= symbol_function(VV[369]); |
3383 |
|
V302= (VFUN_NARGS=4,(*(LnkLI368))((V299),V303,VV[164],V304));} |
3384 |
|
if(((V302))!=Cnil){ |
3385 |
goto T1145;} |
goto T1145;} |
3386 |
goto T1147; |
{object V305; |
3387 |
T1147:; |
base[4]= VV[165]; |
3388 |
V308= structure_ref((V304),VV[159],1); |
base[5]= (V299); |
3389 |
if((/* INLINE-ARGS */V308)==((V297))){ |
base[6]= VV[166]; |
3390 |
goto T1160;} |
base[7]= (V295); |
3391 |
base[3]= VV[167]; |
base[8]= VV[167]; |
3392 |
base[4]= (V301); |
base[9]= make_cons((V294),Cnil); |
3393 |
V309= structure_ref((V304),VV[159],2); |
base[10]= VV[168]; |
3394 |
base[5]= car(/* INLINE-ARGS */V309); |
base[11]= (V298); |
3395 |
base[6]= (V296); |
vs_top=(vs_base=base+4)+8; |
3396 |
vs_top=(vs_base=base+3)+4; |
(void) (*Lnk370)(); |
|
(void) (*Lnk345)(); |
|
|
vs_top=sup; |
|
|
goto T1160; |
|
|
T1160:; |
|
|
V310= structure_ref((V304),VV[159],4); |
|
|
if(equal((V300),/* INLINE-ARGS */V310)){ |
|
|
goto T1167;} |
|
|
base[3]= VV[168]; |
|
|
base[4]= (V301); |
|
|
base[5]= (V300); |
|
|
base[6]= structure_ref((V304),VV[159],4); |
|
|
vs_top=(vs_base=base+3)+4; |
|
|
(void) (*Lnk336)(); |
|
3397 |
vs_top=sup; |
vs_top=sup; |
3398 |
V311= structure_ref((V304),VV[159],4); |
V302= vs_base[0]; |
3399 |
if(!((/* INLINE-ARGS */V311)==(Ct))){ |
V305= (V302); |
3400 |
goto T1167;} |
setq(VV[120],make_cons((V305),symbol_value(VV[120]))); |
3401 |
(void)(structure_set((V304),VV[159],4,(V300))); |
goto T1143;} |
|
goto T1167; |
|
|
T1167:; |
|
|
{object V314; |
|
|
V315= structure_ref(V304,VV[159],2); |
|
|
V314= make_cons(V296,/* INLINE-ARGS */V315); |
|
|
(void)(structure_set(V304,VV[159],2,(V314)));} |
|
3402 |
goto T1145; |
goto T1145; |
3403 |
T1145:; |
T1145:; |
3404 |
base[3]= (V304); |
V306= structure_ref((V302),VV[161],1); |
3405 |
|
if((/* INLINE-ARGS */V306)==((V295))){ |
3406 |
|
goto T1158;} |
3407 |
|
base[3]= VV[169]; |
3408 |
|
base[4]= (V299); |
3409 |
|
V307= structure_ref((V302),VV[161],2); |
3410 |
|
base[5]= car(/* INLINE-ARGS */V307); |
3411 |
|
base[6]= (V294); |
3412 |
|
vs_top=(vs_base=base+3)+4; |
3413 |
|
(void) (*Lnk347)(); |
3414 |
|
vs_top=sup; |
3415 |
|
goto T1158; |
3416 |
|
T1158:; |
3417 |
|
V308= structure_ref((V302),VV[161],4); |
3418 |
|
if(equal((V298),/* INLINE-ARGS */V308)){ |
3419 |
|
goto T1165;} |
3420 |
|
base[3]= VV[170]; |
3421 |
base[4]= (V299); |
base[4]= (V299); |
3422 |
|
base[5]= (V298); |
3423 |
|
base[6]= structure_ref((V302),VV[161],4); |
3424 |
|
vs_top=(vs_base=base+3)+4; |
3425 |
|
(void) (*Lnk338)(); |
3426 |
|
vs_top=sup; |
3427 |
|
V309= structure_ref((V302),VV[161],4); |
3428 |
|
if(!((/* INLINE-ARGS */V309)==(Ct))){ |
3429 |
|
goto T1165;} |
3430 |
|
(void)(structure_set((V302),VV[161],4,(V298))); |
3431 |
|
goto T1165; |
3432 |
|
T1165:; |
3433 |
|
{object V312; |
3434 |
|
V313= structure_ref(V302,VV[161],2); |
3435 |
|
V312= make_cons(V294,/* INLINE-ARGS */V313); |
3436 |
|
(void)(structure_set(V302,VV[161],2,(V312)));} |
3437 |
|
goto T1143; |
3438 |
|
T1143:; |
3439 |
|
base[3]= (V302); |
3440 |
|
base[4]= (V297); |
3441 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3442 |
return;}} |
return;}} |
3443 |
} |
} |
3448 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3449 |
register object *sup=base+VM63; VC63 |
register object *sup=base+VM63; VC63 |
3450 |
vs_reserve(VM63); |
vs_reserve(VM63); |
3451 |
{object V316; |
{object V314; |
3452 |
check_arg(1); |
check_arg(1); |
3453 |
V316=(base[0]); |
V314=(base[0]); |
3454 |
vs_top=sup; |
vs_top=sup; |
3455 |
goto TTL; |
goto TTL; |
3456 |
TTL:; |
TTL:; |
3457 |
{register object V317; |
{register object V315; |
3458 |
register object V318; |
register object V316; |
3459 |
base[1]= (V316); |
base[1]= (V314); |
3460 |
base[2]= VV[5]; |
base[2]= VV[5]; |
3461 |
base[3]= VV[5]; |
base[3]= VV[5]; |
3462 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3463 |
(void) (*Lnk369)(); |
(void) (*Lnk371)(); |
3464 |
if(vs_base>=vs_top){vs_top=sup;goto T1184;} |
if(vs_base>=vs_top){vs_top=sup;goto T1182;} |
3465 |
V317= vs_base[0]; |
V315= vs_base[0]; |
3466 |
vs_base++; |
vs_base++; |
3467 |
if(vs_base>=vs_top){vs_top=sup;goto T1185;} |
if(vs_base>=vs_top){vs_top=sup;goto T1183;} |
3468 |
V318= vs_base[0]; |
V316= vs_base[0]; |
3469 |
vs_top=sup; |
vs_top=sup; |
3470 |
goto T1186; |
goto T1184; |
3471 |
|
goto T1182; |
3472 |
|
T1182:; |
3473 |
|
V315= Cnil; |
3474 |
|
goto T1183; |
3475 |
|
T1183:; |
3476 |
|
V316= Cnil; |
3477 |
goto T1184; |
goto T1184; |
3478 |
T1184:; |
T1184:; |
3479 |
V317= Cnil; |
{register object V317; |
3480 |
goto T1185; |
V317= structure_ref((V315),VV[161],3); |
3481 |
T1185:; |
if(((V317))!=Cnil){ |
3482 |
V318= Cnil; |
goto T1186;} |
3483 |
goto T1186; |
base[1]= VV[171]; |
|
T1186:; |
|
|
{register object V319; |
|
|
V319= structure_ref((V317),VV[159],3); |
|
|
if(((V319))!=Cnil){ |
|
|
goto T1188;} |
|
|
base[1]= VV[169]; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk325)(); |
|
|
vs_top=sup; |
|
|
V320= vs_base[0]; |
|
|
base[1]= VV[170]; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk325)(); |
|
|
vs_top=sup; |
|
|
V321= vs_base[0]; |
|
|
if((structure_ref((V317),VV[159],0))!=Cnil){ |
|
|
goto T1198;} |
|
|
V322= Cnil; |
|
|
goto T1197; |
|
|
goto T1198; |
|
|
T1198:; |
|
|
V323= structure_ref((V317),VV[159],0); |
|
|
V322= make_cons(/* INLINE-ARGS */V323,Cnil); |
|
|
goto T1197; |
|
|
T1197:; |
|
|
V319= listA(3,V320,V321,V322); |
|
|
(void)(structure_set((V317),VV[159],3,(V319))); |
|
|
{object V324; |
|
|
V324= list(2,VV[171],(V319)); |
|
|
setq(VV[107],make_cons((V324),symbol_value(VV[107])));} |
|
|
if((structure_ref((V317),VV[159],0))!=Cnil){ |
|
|
goto T1188;} |
|
|
base[1]= listA(3,VV[172],car((V319)),cddr((V319))); |
|
3484 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3485 |
(void) (*Lnk370)(); |
(void) (*Lnk327)(); |
3486 |
vs_top=sup; |
vs_top=sup; |
3487 |
goto T1188; |
V318= vs_base[0]; |
3488 |
T1188:; |
base[1]= VV[172]; |
3489 |
{object V325= (V316); |
vs_top=(vs_base=base+1)+1; |
3490 |
if((V325!= VV[5]))goto T1207; |
(void) (*Lnk327)(); |
3491 |
V318= list(2,VV[5],(V318)); |
vs_top=sup; |
3492 |
goto T1206; |
V319= vs_base[0]; |
3493 |
|
if((structure_ref((V315),VV[161],0))!=Cnil){ |
3494 |
|
goto T1196;} |
3495 |
|
V320= Cnil; |
3496 |
|
goto T1195; |
3497 |
|
goto T1196; |
3498 |
|
T1196:; |
3499 |
|
V321= structure_ref((V315),VV[161],0); |
3500 |
|
V320= make_cons(/* INLINE-ARGS */V321,Cnil); |
3501 |
|
goto T1195; |
3502 |
|
T1195:; |
3503 |
|
V317= listA(3,V318,V319,V320); |
3504 |
|
(void)(structure_set((V315),VV[161],3,(V317))); |
3505 |
|
{object V322; |
3506 |
|
V322= list(2,VV[173],(V317)); |
3507 |
|
setq(VV[107],make_cons((V322),symbol_value(VV[107])));} |
3508 |
|
if((structure_ref((V315),VV[161],0))!=Cnil){ |
3509 |
|
goto T1186;} |
3510 |
|
base[1]= listA(3,VV[174],car((V317)),cddr((V317))); |
3511 |
|
vs_top=(vs_base=base+1)+1; |
3512 |
|
(void) (*Lnk372)(); |
3513 |
|
vs_top=sup; |
3514 |
|
goto T1186; |
3515 |
|
T1186:; |
3516 |
|
{object V323= (V314); |
3517 |
|
if((V323!= VV[5]))goto T1205; |
3518 |
|
V316= list(2,VV[5],(V316)); |
3519 |
|
goto T1204; |
3520 |
|
goto T1205; |
3521 |
|
T1205:; |
3522 |
|
if((V323!= VV[373]))goto T1207; |
3523 |
|
goto T1204; |
3524 |
goto T1207; |
goto T1207; |
3525 |
T1207:; |
T1207:; |
3526 |
if((V325!= VV[371]))goto T1209; |
if((V323!= VV[374]))goto T1208; |
3527 |
goto T1206; |
if(!(type_of((V316))==t_cons)){ |
3528 |
|
goto T1209;} |
3529 |
|
if((car((V316)))==(VV[5])){ |
3530 |
|
goto T1204;} |
3531 |
goto T1209; |
goto T1209; |
3532 |
T1209:; |
T1209:; |
3533 |
if((V325!= VV[372]))goto T1210; |
V316= list(2,VV[175],(V316)); |
3534 |
if(!(type_of((V318))==t_cons)){ |
goto T1204; |
3535 |
goto T1211;} |
goto T1208; |
3536 |
if((car((V318)))==(VV[5])){ |
T1208:; |
3537 |
goto T1206;} |
FEerror("The ECASE key value ~s is illegal.",1,V323); |
3538 |
goto T1211; |
goto T1204;} |
3539 |
T1211:; |
goto T1204; |
3540 |
V318= list(2,VV[173],(V318)); |
T1204:; |
3541 |
goto T1206; |
base[1]= list(3,VV[176],(V317),(V316)); |
|
goto T1210; |
|
|
T1210:; |
|
|
FEerror("The ECASE key value ~s is illegal.",1,V325); |
|
|
goto T1206;} |
|
|
goto T1206; |
|
|
T1206:; |
|
|
base[1]= list(3,VV[174],(V319),(V318)); |
|
3542 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3543 |
(void) (*Lnk362)(); |
(void) (*Lnk364)(); |
3544 |
return;}} |
return;}} |
3545 |
} |
} |
3546 |
} |
} |
3550 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3551 |
register object *sup=base+VM64; VC64 |
register object *sup=base+VM64; VC64 |
3552 |
vs_reserve(VM64); |
vs_reserve(VM64); |
3553 |
{object V326; |
{object V324; |
3554 |
object V327; |
object V325; |
3555 |
object V328; |
object V326; |
3556 |
check_arg(3); |
check_arg(3); |
3557 |
V326=(base[0]); |
V324=(base[0]); |
3558 |
V327=(base[1]); |
V325=(base[1]); |
3559 |
V328=(base[2]); |
V326=(base[2]); |
3560 |
vs_top=sup; |
vs_top=sup; |
3561 |
goto TTL; |
goto TTL; |
3562 |
TTL:; |
TTL:; |
3563 |
{register object V329; |
{register object V327; |
3564 |
object V330; |
object V328; |
3565 |
base[3]= (V326); |
base[3]= (V324); |
3566 |
base[4]= VV[175]; |
base[4]= VV[177]; |
3567 |
base[5]= (V328); |
base[5]= (V326); |
3568 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3569 |
(void) (*Lnk369)(); |
(void) (*Lnk371)(); |
3570 |
if(vs_base>=vs_top){vs_top=sup;goto T1221;} |
if(vs_base>=vs_top){vs_top=sup;goto T1219;} |
3571 |
V329= vs_base[0]; |
V327= vs_base[0]; |
3572 |
vs_base++; |
vs_base++; |
3573 |
if(vs_base>=vs_top){vs_top=sup;goto T1222;} |
if(vs_base>=vs_top){vs_top=sup;goto T1220;} |
3574 |
V330= vs_base[0]; |
V328= vs_base[0]; |
3575 |
vs_top=sup; |
vs_top=sup; |
3576 |
goto T1223; |
goto T1221; |
3577 |
|
goto T1219; |
3578 |
|
T1219:; |
3579 |
|
V327= Cnil; |
3580 |
|
goto T1220; |
3581 |
|
T1220:; |
3582 |
|
V328= Cnil; |
3583 |
goto T1221; |
goto T1221; |
3584 |
T1221:; |
T1221:; |
3585 |
V329= Cnil; |
base[3]= structure_ref((V327),VV[161],4); |
3586 |
goto T1222; |
base[4]= (V325); |
|
T1222:; |
|
|
V330= Cnil; |
|
|
goto T1223; |
|
|
T1223:; |
|
|
base[3]= structure_ref((V329),VV[159],4); |
|
|
base[4]= (V327); |
|
3587 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3588 |
(void) (*Lnk373)(); |
(void) (*Lnk375)(); |
3589 |
vs_top=sup; |
vs_top=sup; |
3590 |
{register object V331; |
{register object V329; |
3591 |
V331= structure_ref((V329),VV[159],3); |
V329= structure_ref((V327),VV[161],3); |
3592 |
if(((V331))!=Cnil){ |
if(((V329))!=Cnil){ |
3593 |
goto T1228;}{object V333; |
goto T1226;}{object V331; |
3594 |
V333= structure_ref((V329),VV[159],0); |
V331= structure_ref((V327),VV[161],0); |
3595 |
if(V333==Cnil)goto T1235; |
if(V331==Cnil)goto T1233; |
3596 |
base[3]= V333; |
base[3]= V331; |
3597 |
goto T1234; |
goto T1232; |
3598 |
goto T1235; |
goto T1233; |
3599 |
T1235:;} |
T1233:;} |
3600 |
base[4]= VV[176]; |
base[4]= VV[178]; |
3601 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3602 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
3603 |
vs_top=sup; |
vs_top=sup; |
3604 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
3605 |
goto T1234; |
goto T1232; |
3606 |
T1234:; |
T1232:; |
3607 |
base[4]= Cnil; |
base[4]= Cnil; |
3608 |
base[5]= structure_ref((V329),VV[159],4); |
base[5]= structure_ref((V327),VV[161],4); |
3609 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3610 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
3611 |
vs_top=sup; |
vs_top=sup; |
3612 |
V332= vs_base[0]; |
V330= vs_base[0]; |
3613 |
V331= make_cons(V332,Cnil); |
V329= make_cons(V330,Cnil); |
3614 |
(void)(structure_set((V329),VV[159],3,(V331))); |
(void)(structure_set((V327),VV[161],3,(V329))); |
3615 |
if((structure_ref((V329),VV[159],0))!=Cnil){ |
if((structure_ref((V327),VV[161],0))!=Cnil){ |
3616 |
goto T1228;} |
goto T1226;} |
3617 |
V334= structure_ref((V329),VV[159],3); |
V332= structure_ref((V327),VV[161],3); |
3618 |
base[3]= car(/* INLINE-ARGS */V334); |
base[3]= car(/* INLINE-ARGS */V332); |
3619 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3620 |
(void) (*Lnk370)(); |
(void) (*Lnk372)(); |
3621 |
vs_top=sup; |
vs_top=sup; |
3622 |
goto T1228; |
goto T1226; |
3623 |
T1228:; |
T1226:; |
3624 |
if(!(((V326))==(VV[177]))){ |
if(!(((V324))==(VV[179]))){ |
3625 |
goto T1245;} |
goto T1243;} |
3626 |
V335= car((V331)); |
V333= car((V329)); |
3627 |
base[4]= Ct; |
base[4]= Ct; |
3628 |
base[5]= car((V331)); |
base[5]= car((V329)); |
3629 |
base[6]= list(2,VV[178],car((V331))); |
base[6]= list(2,VV[180],car((V329))); |
3630 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3631 |
(void) (*Lnk329)(); |
(void) (*Lnk331)(); |
3632 |
vs_top=sup; |
vs_top=sup; |
3633 |
V336= vs_base[0]; |
V334= vs_base[0]; |
3634 |
base[3]= list(3,VV[8],(V330),list(3,VV[11],/* INLINE-ARGS */V335,V336)); |
base[3]= list(3,VV[8],(V328),list(3,VV[11],/* INLINE-ARGS */V333,V334)); |
3635 |
goto T1243; |
goto T1241; |
3636 |
goto T1245; |
goto T1243; |
3637 |
T1245:; |
T1243:; |
3638 |
V337= car((V331)); |
V335= car((V329)); |
3639 |
base[4]= Ct; |
base[4]= Ct; |
3640 |
base[5]= car((V331)); |
base[5]= car((V329)); |
3641 |
base[6]= car((V331)); |
base[6]= car((V329)); |
3642 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3643 |
(void) (*Lnk329)(); |
(void) (*Lnk331)(); |
3644 |
vs_top=sup; |
vs_top=sup; |
3645 |
V338= vs_base[0]; |
V336= vs_base[0]; |
3646 |
base[3]= list(3,VV[11],/* INLINE-ARGS */V337,list(3,VV[179],V338,(V330))); |
base[3]= list(3,VV[11],/* INLINE-ARGS */V335,list(3,VV[181],V336,(V328))); |
3647 |
goto T1243; |
goto T1241; |
3648 |
T1243:; |
T1241:; |
3649 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3650 |
(void) (*Lnk362)(); |
(void) (*Lnk364)(); |
3651 |
return;}} |
return;}} |
3652 |
} |
} |
3653 |
} |
} |
3657 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3658 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM65; VC65 |
3659 |
vs_reserve(VM65); |
vs_reserve(VM65); |
3660 |
{object V339; |
{object V337; |
3661 |
check_arg(1); |
check_arg(1); |
3662 |
V339=(base[0]); |
V337=(base[0]); |
3663 |
vs_top=sup; |
vs_top=sup; |
3664 |
goto TTL; |
goto TTL; |
3665 |
TTL:; |
TTL:; |
3666 |
{register object V340; |
{register object V338; |
3667 |
object V341; |
object V339; |
3668 |
base[1]= (V339); |
base[1]= (V337); |
3669 |
base[2]= VV[180]; |
base[2]= VV[182]; |
3670 |
base[3]= symbol_value(VV[181]); |
base[3]= symbol_value(VV[183]); |
3671 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3672 |
(void) (*Lnk369)(); |
(void) (*Lnk371)(); |
3673 |
if(vs_base>=vs_top){vs_top=sup;goto T1259;} |
if(vs_base>=vs_top){vs_top=sup;goto T1257;} |
3674 |
V340= vs_base[0]; |
V338= vs_base[0]; |
3675 |
vs_base++; |
vs_base++; |
3676 |
if(vs_base>=vs_top){vs_top=sup;goto T1260;} |
if(vs_base>=vs_top){vs_top=sup;goto T1258;} |
3677 |
V341= vs_base[0]; |
V339= vs_base[0]; |
3678 |
vs_top=sup; |
vs_top=sup; |
3679 |
goto T1261; |
goto T1259; |
3680 |
|
goto T1257; |
3681 |
|
T1257:; |
3682 |
|
V338= Cnil; |
3683 |
|
goto T1258; |
3684 |
|
T1258:; |
3685 |
|
V339= Cnil; |
3686 |
goto T1259; |
goto T1259; |
3687 |
T1259:; |
T1259:; |
3688 |
V340= Cnil; |
base[1]= structure_ref((V338),VV[161],4); |
3689 |
goto T1260; |
base[2]= symbol_value(VV[183]); |
|
T1260:; |
|
|
V341= Cnil; |
|
|
goto T1261; |
|
|
T1261:; |
|
|
base[1]= structure_ref((V340),VV[159],4); |
|
|
base[2]= symbol_value(VV[181]); |
|
3690 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3691 |
(void) (*Lnk373)(); |
(void) (*Lnk375)(); |
3692 |
vs_top=sup; |
vs_top=sup; |
3693 |
{register object V342; |
{register object V340; |
3694 |
V342= structure_ref((V340),VV[159],5); |
V340= structure_ref((V338),VV[161],5); |
3695 |
if(((V342))!=Cnil){ |
if(((V340))!=Cnil){ |
3696 |
goto T1266;}{object V343; |
goto T1264;}{object V341; |
3697 |
V343= structure_ref((V340),VV[159],0); |
V341= structure_ref((V338),VV[161],0); |
3698 |
if(V343==Cnil)goto T1272; |
if(V341==Cnil)goto T1270; |
3699 |
base[1]= V343; |
base[1]= V341; |
3700 |
goto T1271; |
goto T1269; |
3701 |
goto T1272; |
goto T1270; |
3702 |
T1272:;} |
T1270:;} |
3703 |
base[2]= VV[182]; |
base[2]= VV[184]; |
3704 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3705 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
3706 |
vs_top=sup; |
vs_top=sup; |
3707 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3708 |
goto T1271; |
goto T1269; |
3709 |
T1271:; |
T1269:; |
3710 |
base[2]= structure_ref((V340),VV[159],4); |
base[2]= structure_ref((V338),VV[161],4); |
3711 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3712 |
(void) (*Lnk374)(); |
(void) (*Lnk376)(); |
|
vs_top=sup; |
|
|
V342= vs_base[0]; |
|
|
(void)(structure_set((V340),VV[159],5,(V342))); |
|
|
if((structure_ref((V340),VV[159],0))!=Cnil){ |
|
|
goto T1266;} |
|
|
base[1]= structure_ref((V342),VV[18],0); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk370)(); |
|
3713 |
vs_top=sup; |
vs_top=sup; |
3714 |
goto T1266; |
V340= vs_base[0]; |
3715 |
T1266:; |
(void)(structure_set((V338),VV[161],5,(V340))); |
3716 |
base[1]= (V339); |
if((structure_ref((V338),VV[161],0))!=Cnil){ |
3717 |
base[2]= (V342); |
goto T1264;} |
3718 |
|
base[1]= structure_ref((V340),VV[18],0); |
3719 |
|
vs_top=(vs_base=base+1)+1; |
3720 |
|
(void) (*Lnk372)(); |
3721 |
|
vs_top=sup; |
3722 |
|
goto T1264; |
3723 |
|
T1264:; |
3724 |
|
base[1]= (V337); |
3725 |
|
base[2]= (V340); |
3726 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3727 |
(void) (*Lnk375)(); |
(void) (*Lnk377)(); |
3728 |
vs_top=sup; |
vs_top=sup; |
3729 |
{object V344; |
{object V342; |
3730 |
V344= list(2,VV[183],(V342)); |
V342= list(2,VV[185],(V340)); |
3731 |
setq(VV[107],make_cons((V344),symbol_value(VV[107])));} |
setq(VV[107],make_cons((V342),symbol_value(VV[107])));} |
3732 |
base[1]= list(4,VV[184],(V342),(V339),(V341)); |
base[1]= list(4,VV[186],(V340),(V337),(V339)); |
3733 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3734 |
(void) (*Lnk362)(); |
(void) (*Lnk364)(); |
3735 |
return;}} |
return;}} |
3736 |
} |
} |
3737 |
} |
} |
3741 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3742 |
register object *sup=base+VM66; VC66 |
register object *sup=base+VM66; VC66 |
3743 |
vs_reserve(VM66); |
vs_reserve(VM66); |
3744 |
{object V345; |
{object V343; |
3745 |
object V346; |
object V344; |
3746 |
check_arg(2); |
check_arg(2); |
3747 |
V345=(base[0]); |
V343=(base[0]); |
3748 |
V346=(base[1]); |
V344=(base[1]); |
3749 |
vs_top=sup; |
vs_top=sup; |
3750 |
goto TTL; |
goto TTL; |
3751 |
TTL:; |
TTL:; |
3752 |
{object V347; |
{object V345; |
3753 |
vs_base=vs_top; |
vs_base=vs_top; |
3754 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
3755 |
vs_top=sup; |
vs_top=sup; |
3756 |
V347= vs_base[0]; |
V345= vs_base[0]; |
3757 |
if(((V345))==Cnil){ |
if(((V343))==Cnil){ |
3758 |
goto T1287;} |
goto T1285;} |
3759 |
vs_base=vs_top; |
vs_base=vs_top; |
3760 |
(void) (*Lnk360)(); |
(void) (*Lnk362)(); |
3761 |
vs_top=sup; |
vs_top=sup; |
3762 |
goto T1287; |
goto T1285; |
3763 |
T1287:; |
T1285:; |
3764 |
if(((V346))==Cnil){ |
if(((V344))==Cnil){ |
3765 |
goto T1294;} |
goto T1292;} |
3766 |
V348= VV[8]; |
V346= VV[8]; |
3767 |
goto T1292; |
goto T1290; |
|
goto T1294; |
|
|
T1294:; |
|
|
V348= VV[185]; |
|
3768 |
goto T1292; |
goto T1292; |
3769 |
T1292:; |
T1292:; |
3770 |
|
V346= VV[187]; |
3771 |
|
goto T1290; |
3772 |
|
T1290:; |
3773 |
base[3]= Cnil; |
base[3]= Cnil; |
3774 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3775 |
(void) (*Lnk353)(); |
(void) (*Lnk355)(); |
3776 |
vs_top=sup; |
vs_top=sup; |
3777 |
V349= vs_base[0]; |
V347= vs_base[0]; |
3778 |
base[2]= list(3,V348,(V347),V349); |
base[2]= list(3,V346,(V345),V347); |
3779 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3780 |
(void) (*Lnk362)(); |
(void) (*Lnk364)(); |
3781 |
vs_top=sup; |
vs_top=sup; |
3782 |
base[2]= Ct; |
base[2]= Ct; |
3783 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3784 |
(void) (*Lnk370)(); |
(void) (*Lnk372)(); |
3785 |
return;} |
return;} |
3786 |
} |
} |
3787 |
} |
} |
3791 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3792 |
register object *sup=base+VM67; VC67 |
register object *sup=base+VM67; VC67 |
3793 |
vs_reserve(VM67); |
vs_reserve(VM67); |
3794 |
{object V350; |
{object V348; |
3795 |
check_arg(1); |
check_arg(1); |
3796 |
V350=(base[0]); |
V348=(base[0]); |
3797 |
vs_top=sup; |
vs_top=sup; |
3798 |
goto TTL; |
goto TTL; |
3799 |
TTL:; |
TTL:; |
3800 |
if(((V350))==Cnil){ |
if(((V348))==Cnil){ |
3801 |
goto T1299;} |
goto T1297;} |
3802 |
vs_base=vs_top; |
vs_base=vs_top; |
3803 |
(void) (*Lnk360)(); |
(void) (*Lnk362)(); |
3804 |
vs_top=sup; |
vs_top=sup; |
3805 |
goto T1299; |
goto T1297; |
3806 |
T1299:; |
T1297:; |
3807 |
vs_base=vs_top; |
vs_base=vs_top; |
3808 |
(void) (*Lnk376)(); |
(void) (*Lnk378)(); |
3809 |
vs_top=sup; |
vs_top=sup; |
3810 |
V351= vs_base[0]; |
V349= vs_base[0]; |
3811 |
vs_base=vs_top; |
vs_base=vs_top; |
3812 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
3813 |
vs_top=sup; |
vs_top=sup; |
3814 |
V352= vs_base[0]; |
V350= vs_base[0]; |
3815 |
V353= list(3,VV[11],V351,V352); |
V351= list(3,VV[11],V349,V350); |
3816 |
base[2]= symbol_value(VV[116]); |
base[2]= symbol_value(VV[116]); |
3817 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3818 |
(void) (*Lnk353)(); |
(void) (*Lnk355)(); |
3819 |
vs_top=sup; |
vs_top=sup; |
3820 |
V354= vs_base[0]; |
V352= vs_base[0]; |
3821 |
base[1]= list(3,VV[8],/* INLINE-ARGS */V353,V354); |
base[1]= list(3,VV[8],/* INLINE-ARGS */V351,V352); |
3822 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3823 |
(void) (*Lnk362)(); |
(void) (*Lnk364)(); |
3824 |
|
vs_top=sup; |
3825 |
|
base[1]= Cnil; |
3826 |
|
vs_top=(vs_base=base+1)+1; |
3827 |
|
(void) (*Lnk372)(); |
3828 |
return; |
return; |
3829 |
} |
} |
3830 |
} |
} |
3834 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3835 |
register object *sup=base+VM68; VC68 |
register object *sup=base+VM68; VC68 |
3836 |
vs_reserve(VM68); |
vs_reserve(VM68); |
3837 |
{object V355; |
{object V353; |
3838 |
object V356; |
object V354; |
3839 |
check_arg(2); |
check_arg(2); |
3840 |
V355=(base[0]); |
V353=(base[0]); |
3841 |
V356=(base[1]); |
V354=(base[1]); |
3842 |
vs_top=sup; |
vs_top=sup; |
3843 |
goto TTL; |
goto TTL; |
3844 |
TTL:; |
TTL:; |
3845 |
{object V357; |
{object V355; |
3846 |
vs_base=vs_top; |
vs_base=vs_top; |
3847 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
3848 |
vs_top=sup; |
vs_top=sup; |
3849 |
V357= vs_base[0]; |
V355= vs_base[0]; |
3850 |
base[3]= (V356); |
base[3]= (V354); |
3851 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3852 |
(void) (*Lnk360)(); |
(void) (*Lnk362)(); |
3853 |
vs_top=sup; |
vs_top=sup; |
3854 |
if(((V355))==Cnil){ |
if(((V353))==Cnil){ |
3855 |
goto T1313;} |
goto T1313;} |
3856 |
V358= VV[8]; |
V356= VV[8]; |
3857 |
goto T1311; |
goto T1311; |
3858 |
goto T1313; |
goto T1313; |
3859 |
T1313:; |
T1313:; |
3860 |
V358= VV[185]; |
V356= VV[187]; |
3861 |
goto T1311; |
goto T1311; |
3862 |
T1311:; |
T1311:; |
3863 |
base[3]= list(3,V358,(V357),VV[186]); |
base[3]= list(3,V356,(V355),VV[188]); |
3864 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3865 |
(void) (*Lnk352)(); |
(void) (*Lnk354)(); |
3866 |
return;} |
return;} |
3867 |
} |
} |
3868 |
} |
} |
3876 |
vs_top=sup; |
vs_top=sup; |
3877 |
goto TTL; |
goto TTL; |
3878 |
TTL:; |
TTL:; |
3879 |
base[0]= VV[187]; |
base[0]= VV[189]; |
3880 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3881 |
(void) (*Lnk360)(); |
(void) (*Lnk362)(); |
3882 |
vs_top=sup; |
vs_top=sup; |
3883 |
{register object V359; |
{register object V357; |
3884 |
register object V360; |
register object V358; |
3885 |
register object V361; |
register object V359; |
3886 |
|
V357= Cnil; |
3887 |
|
V358= Cnil; |
3888 |
V359= Cnil; |
V359= Cnil; |
|
V360= Cnil; |
|
|
V361= Cnil; |
|
3889 |
goto T1318; |
goto T1318; |
3890 |
T1318:; |
T1318:; |
3891 |
vs_base=vs_top; |
vs_base=vs_top; |
3892 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
3893 |
vs_top=sup; |
vs_top=sup; |
3894 |
V359= vs_base[0]; |
V357= vs_base[0]; |
3895 |
base[0]= (V359); |
base[0]= (V357); |
3896 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3897 |
(void) (*Lnk365)(); |
(void) (*Lnk367)(); |
3898 |
vs_top=sup; |
vs_top=sup; |
3899 |
V361= vs_base[0]; |
V359= vs_base[0]; |
3900 |
base[0]= car(symbol_value(VV[89])); |
base[0]= car(symbol_value(VV[89])); |
3901 |
base[1]= VV[188]; |
base[1]= VV[190]; |
3902 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3903 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
3904 |
vs_top=sup; |
vs_top=sup; |
3905 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3906 |
goto T1329;} |
goto T1329;} |
3907 |
vs_base=vs_top; |
vs_base=vs_top; |
3908 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
3909 |
vs_top=sup; |
vs_top=sup; |
3910 |
vs_base=vs_top; |
vs_base=vs_top; |
3911 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
3912 |
vs_top=sup; |
vs_top=sup; |
3913 |
V360= vs_base[0]; |
V358= vs_base[0]; |
3914 |
goto T1327; |
goto T1327; |
3915 |
goto T1329; |
goto T1329; |
3916 |
T1329:; |
T1329:; |
3917 |
V360= Cnil; |
V358= Cnil; |
3918 |
goto T1327; |
goto T1327; |
3919 |
T1327:; |
T1327:; |
3920 |
base[0]= (V359); |
base[0]= (V357); |
3921 |
base[1]= (V360); |
base[1]= (V358); |
3922 |
base[2]= (V361); |
base[2]= (V359); |
3923 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3924 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
3925 |
vs_top=sup; |
vs_top=sup; |
3926 |
base[0]= car(symbol_value(VV[89])); |
base[0]= car(symbol_value(VV[89])); |
3927 |
base[1]= VV[153]; |
base[1]= VV[155]; |
3928 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3929 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
3930 |
vs_top=sup; |
vs_top=sup; |
3931 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3932 |
goto T1340;} |
goto T1340;} |
3933 |
vs_base=vs_top; |
vs_base=vs_top; |
3934 |
(void) (*Lnk348)(); |
(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) (*Lnk347)(); |
(void) (*Lnk349)(); |
3941 |
return; |
return; |
3942 |
goto T1338; |
goto T1338; |
3943 |
T1338:; |
T1338:; |
3949 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3950 |
register object *sup=base+VM70; VC70 |
register object *sup=base+VM70; VC70 |
3951 |
vs_reserve(VM70); |
vs_reserve(VM70); |
3952 |
{register object V362; |
{register object V360; |
3953 |
check_arg(1); |
check_arg(1); |
3954 |
V362=(base[0]); |
V360=(base[0]); |
3955 |
vs_top=sup; |
vs_top=sup; |
3956 |
goto TTL; |
goto TTL; |
3957 |
TTL:; |
TTL:; |
3958 |
{register object V363; |
{register object V361; |
3959 |
|
register object V362; |
3960 |
|
register object V363; |
3961 |
register object V364; |
register object V364; |
3962 |
register object V365; |
register object V365; |
3963 |
register object V366; |
register object V366; |
3964 |
register object V367; |
register object V367; |
3965 |
register object V368; |
register object V368; |
3966 |
register object V369; |
register object V369; |
3967 |
register object V370; |
object V370; |
3968 |
register object V371; |
V361= Cnil; |
3969 |
object V372; |
V362= Cnil; |
3970 |
V363= Cnil; |
V363= Cnil; |
3971 |
V364= Cnil; |
V364= Cnil; |
3972 |
V365= Cnil; |
V365= Cnil; |
3975 |
V368= Cnil; |
V368= Cnil; |
3976 |
V369= Cnil; |
V369= Cnil; |
3977 |
V370= Cnil; |
V370= Cnil; |
|
V371= Cnil; |
|
|
V372= Cnil; |
|
3978 |
goto T1347; |
goto T1347; |
3979 |
T1347:; |
T1347:; |
3980 |
base[2]= car((V362)); |
base[2]= car((V360)); |
3981 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3982 |
Lsymbol_function(); |
Lsymbol_function(); |
3983 |
vs_top=sup; |
vs_top=sup; |
3984 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3985 |
{object V373; |
{object V371; |
3986 |
V373= cdr((V362)); |
V371= cdr((V360)); |
3987 |
vs_top=base+2; |
vs_top=base+2; |
3988 |
while(!endp(V373)) |
while(!endp(V371)) |
3989 |
{vs_push(car(V373));V373=cdr(V373);} |
{vs_push(car(V371));V371=cdr(V371);} |
3990 |
vs_base=base+2;} |
vs_base=base+2;} |
3991 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
3992 |
vs_top=sup; |
vs_top=sup; |
3993 |
V372= vs_base[0]; |
V370= vs_base[0]; |
3994 |
V371= (V372); |
V369= (V370); |
3995 |
if((car((V371)))!=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 V374; |
{object V372; |
4001 |
V374= car((V371)); |
V372= car((V369)); |
4002 |
V363= make_cons((V374),(V363));} |
V361= make_cons((V372),(V361));} |
4003 |
goto T1356; |
goto T1356; |
4004 |
T1356:; |
T1356:; |
4005 |
V371= cdr((V371)); |
V369= cdr((V369)); |
4006 |
base[1]= car((V371)); |
base[1]= car((V369)); |
4007 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4008 |
Lcopy_list(); |
Lcopy_list(); |
4009 |
vs_top=sup; |
vs_top=sup; |
4010 |
V375= vs_base[0]; |
V373= vs_base[0]; |
4011 |
V364= nconc((V364),V375); |
V362= nconc((V362),V373); |
4012 |
V371= cdr((V371)); |
V369= cdr((V369)); |
4013 |
if((car((V371)))!=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 V376; |
{object V374; |
4019 |
V376= car((V371)); |
V374= car((V369)); |
4020 |
V365= make_cons((V376),(V365));} |
V363= make_cons((V374),(V363));} |
4021 |
goto T1366; |
goto T1366; |
4022 |
T1366:; |
T1366:; |
4023 |
V371= cdr((V371)); |
V369= cdr((V369)); |
4024 |
base[1]= car((V371)); |
base[1]= car((V369)); |
4025 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4026 |
Lcopy_list(); |
Lcopy_list(); |
4027 |
vs_top=sup; |
vs_top=sup; |
4028 |
V377= vs_base[0]; |
V375= vs_base[0]; |
4029 |
V366= nconc((V366),V377); |
V364= nconc((V364),V375); |
4030 |
V371= cdr((V371)); |
V369= cdr((V369)); |
4031 |
if((symbol_value(VV[110]))==Cnil){ |
if((symbol_value(VV[110]))==Cnil){ |
4032 |
goto T1379;} |
goto T1379;} |
4033 |
base[1]= VV[189]; |
base[1]= VV[191]; |
4034 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4035 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
4036 |
vs_top=sup; |
vs_top=sup; |
4037 |
goto T1379; |
goto T1379; |
4038 |
T1379:; |
T1379:; |
4039 |
if(((V371))!=Cnil){ |
if(((V369))!=Cnil){ |
4040 |
goto T1383;} |
goto T1383;} |
4041 |
V371= (V372); |
V369= (V370); |
4042 |
goto T1383; |
goto T1383; |
4043 |
T1383:; |
T1383:; |
4044 |
if((car((V371)))==Cnil){ |
if((car((V369)))==Cnil){ |
4045 |
goto T1387;} |
goto T1387;} |
4046 |
{object V378; |
{object V376; |
4047 |
V378= car((V371)); |
V376= car((V369)); |
4048 |
V367= make_cons((V378),(V367));} |
V365= make_cons((V376),(V365));} |
4049 |
goto T1387; |
goto T1387; |
4050 |
T1387:; |
T1387:; |
4051 |
V371= cdr((V371)); |
V369= cdr((V369)); |
4052 |
base[1]= car((V371)); |
base[1]= car((V369)); |
4053 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4054 |
Lcopy_list(); |
Lcopy_list(); |
4055 |
vs_top=sup; |
vs_top=sup; |
4056 |
V379= vs_base[0]; |
V377= vs_base[0]; |
4057 |
V368= nconc((V368),V379); |
V366= nconc((V366),V377); |
4058 |
V371= cdr((V371)); |
V369= cdr((V369)); |
4059 |
if((car((V371)))==Cnil){ |
if((car((V369)))==Cnil){ |
4060 |
goto T1397;} |
goto T1397;} |
4061 |
{object V380; |
{object V378; |
4062 |
V380= car((V371)); |
V378= car((V369)); |
4063 |
V369= make_cons((V380),(V369));} |
V367= make_cons((V378),(V367));} |
4064 |
goto T1397; |
goto T1397; |
4065 |
T1397:; |
T1397:; |
4066 |
base[1]= cadr((V371)); |
base[1]= cadr((V369)); |
4067 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4068 |
Lcopy_list(); |
Lcopy_list(); |
4069 |
vs_top=sup; |
vs_top=sup; |
4070 |
V381= vs_base[0]; |
V379= vs_base[0]; |
4071 |
V370= nconc((V370),V381); |
V368= nconc((V368),V379); |
4072 |
base[1]= car(symbol_value(VV[89])); |
base[1]= car(symbol_value(VV[89])); |
4073 |
base[2]= VV[153]; |
base[2]= VV[155]; |
4074 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4075 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
4076 |
vs_top=sup; |
vs_top=sup; |
4077 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4078 |
goto T1407;} |
goto T1407;} |
|
base[1]= (V370); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk335)(); |
|
|
vs_top=sup; |
|
|
V382= vs_base[0]; |
|
|
base[1]= (V369); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
L82(base); |
|
|
vs_top=sup; |
|
|
V383= vs_base[0]; |
|
4079 |
base[1]= (V368); |
base[1]= (V368); |
4080 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4081 |
(void) (*Lnk334)(); |
(void) (*Lnk337)(); |
4082 |
vs_top=sup; |
vs_top=sup; |
4083 |
V384= vs_base[0]; |
V380= vs_base[0]; |
4084 |
base[1]= (V367); |
base[1]= (V367); |
4085 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4086 |
L82(base); |
L82(base); |
4087 |
vs_top=sup; |
vs_top=sup; |
4088 |
V385= vs_base[0]; |
V381= vs_base[0]; |
|
setq(VV[108],listA(5,V382,V383,V384,V385,symbol_value(VV[108]))); |
|
4089 |
base[1]= (V366); |
base[1]= (V366); |
4090 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4091 |
(void) (*Lnk335)(); |
(void) (*Lnk336)(); |
4092 |
vs_top=sup; |
vs_top=sup; |
4093 |
V386= vs_base[0]; |
V382= vs_base[0]; |
4094 |
base[1]= (V365); |
base[1]= (V365); |
4095 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4096 |
L82(base); |
L82(base); |
4097 |
vs_top=sup; |
vs_top=sup; |
4098 |
V387= vs_base[0]; |
V383= vs_base[0]; |
4099 |
|
setq(VV[108],listA(5,V380,V381,V382,V383,symbol_value(VV[108]))); |
4100 |
base[1]= (V364); |
base[1]= (V364); |
4101 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4102 |
(void) (*Lnk334)(); |
(void) (*Lnk337)(); |
4103 |
vs_top=sup; |
vs_top=sup; |
4104 |
V388= vs_base[0]; |
V384= vs_base[0]; |
4105 |
base[1]= (V363); |
base[1]= (V363); |
4106 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4107 |
L82(base); |
L82(base); |
4108 |
vs_top=sup; |
vs_top=sup; |
4109 |
V389= vs_base[0]; |
V385= vs_base[0]; |
4110 |
setq(VV[111],listA(5,V386,V387,V388,V389,symbol_value(VV[111]))); |
base[1]= (V362); |
4111 |
|
vs_top=(vs_base=base+1)+1; |
4112 |
|
(void) (*Lnk336)(); |
4113 |
|
vs_top=sup; |
4114 |
|
V386= vs_base[0]; |
4115 |
|
base[1]= (V361); |
4116 |
|
vs_top=(vs_base=base+1)+1; |
4117 |
|
L82(base); |
4118 |
|
vs_top=sup; |
4119 |
|
V387= vs_base[0]; |
4120 |
|
setq(VV[111],listA(5,V384,V385,V386,V387,symbol_value(VV[111]))); |
4121 |
vs_base=vs_top; |
vs_base=vs_top; |
4122 |
(void) (*Lnk347)(); |
(void) (*Lnk349)(); |
4123 |
vs_top=sup; |
vs_top=sup; |
4124 |
base[1]= Cnil; |
base[1]= Cnil; |
4125 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4127 |
goto T1407; |
goto T1407; |
4128 |
T1407:; |
T1407:; |
4129 |
vs_base=vs_top; |
vs_base=vs_top; |
4130 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
4131 |
vs_top=sup; |
vs_top=sup; |
4132 |
if((structure_ref(symbol_value(VV[97]),VV[39],7))!=Cnil){ |
if((structure_ref(symbol_value(VV[97]),VV[39],7))!=Cnil){ |
4133 |
goto T1434;} |
goto T1434;} |
4134 |
base[1]= car(symbol_value(VV[89])); |
base[1]= car(symbol_value(VV[89])); |
4135 |
base[2]= structure_ref(symbol_value(VV[97]),VV[39],1); |
base[2]= structure_ref(symbol_value(VV[97]),VV[39],1); |
4136 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4137 |
(void) (*Lnk349)(); |
(void) (*Lnk351)(); |
4138 |
vs_top=sup; |
vs_top=sup; |
4139 |
V371= vs_base[0]; |
V369= vs_base[0]; |
4140 |
if(((V371))==Cnil){ |
if(((V369))==Cnil){ |
4141 |
goto T1434;} |
goto T1434;} |
4142 |
vs_base=vs_top; |
vs_base=vs_top; |
4143 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
4144 |
vs_top=sup; |
vs_top=sup; |
4145 |
V362= (V371); |
V360= (V369); |
4146 |
goto T1434; |
goto T1434; |
4147 |
T1434:; |
T1434:; |
4148 |
goto T1347;} |
goto T1347;} |
4158 |
vs_top=sup; |
vs_top=sup; |
4159 |
goto TTL; |
goto TTL; |
4160 |
TTL:; |
TTL:; |
4161 |
{object V390; |
{object V388; |
4162 |
|
object V389; |
4163 |
|
object V390; |
4164 |
object V391; |
object V391; |
4165 |
object V392; |
object V392; |
|
object V393; |
|
|
object V394; |
|
4166 |
vs_base=vs_top; |
vs_base=vs_top; |
4167 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
4168 |
vs_top=sup; |
vs_top=sup; |
4169 |
V390= vs_base[0]; |
V388= vs_base[0]; |
4170 |
base[3]= (V390); |
base[3]= (V388); |
4171 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4172 |
(void) (*Lnk365)(); |
(void) (*Lnk367)(); |
4173 |
vs_top=sup; |
vs_top=sup; |
4174 |
V391= vs_base[0]; |
V389= vs_base[0]; |
4175 |
vs_base=vs_top; |
vs_base=vs_top; |
4176 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
4177 |
vs_top=sup; |
vs_top=sup; |
4178 |
V392= vs_base[0]; |
V390= vs_base[0]; |
4179 |
V393= Cnil; |
V391= Cnil; |
4180 |
V394= Cnil; |
V392= Cnil; |
4181 |
vs_base=vs_top; |
vs_base=vs_top; |
4182 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
4183 |
vs_top=sup; |
vs_top=sup; |
4184 |
V393= vs_base[0]; |
V391= vs_base[0]; |
4185 |
if(!(type_of((V392))==t_symbol)){ |
if(!(type_of((V390))==t_symbol)){ |
4186 |
goto T1455;} |
goto T1455;} |
4187 |
base[3]= (V392); |
base[3]= (V390); |
4188 |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],2); |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],2); |
4189 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4190 |
(void) (*Lnk349)(); |
(void) (*Lnk351)(); |
4191 |
vs_top=sup; |
vs_top=sup; |
4192 |
V394= vs_base[0]; |
V392= vs_base[0]; |
4193 |
if(((V394))!=Cnil){ |
if(((V392))!=Cnil){ |
4194 |
goto T1454;} |
goto T1454;} |
4195 |
goto T1455; |
goto T1455; |
4196 |
T1455:; |
T1455:; |
4197 |
base[3]= VV[192]; |
base[3]= VV[194]; |
4198 |
base[4]= (V392); |
base[4]= (V390); |
4199 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4200 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
4201 |
vs_top=sup; |
vs_top=sup; |
4202 |
goto T1454; |
goto T1454; |
4203 |
T1454:; |
T1454:; |
4204 |
base[3]= car((V394)); |
base[3]= car((V392)); |
4205 |
base[4]= (V390); |
base[4]= (V388); |
4206 |
base[5]= (V393); |
base[5]= (V391); |
4207 |
base[6]= (V391); |
base[6]= (V389); |
4208 |
{object V395; |
{object V393; |
4209 |
V395= cdr((V394)); |
V393= cdr((V392)); |
4210 |
vs_top=base+7; |
vs_top=base+7; |
4211 |
while(!endp(V395)) |
while(!endp(V393)) |
4212 |
{vs_push(car(V395));V395=cdr(V395);} |
{vs_push(car(V393));V393=cdr(V393);} |
4213 |
vs_base=base+4;} |
vs_base=base+4;} |
4214 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
4215 |
return;} |
return;} |
4224 |
vs_top=sup; |
vs_top=sup; |
4225 |
goto TTL; |
goto TTL; |
4226 |
TTL:; |
TTL:; |
4227 |
{register object V396; |
{register object V394; |
4228 |
register object V397; |
register object V395; |
4229 |
vs_base=vs_top; |
vs_base=vs_top; |
4230 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
4231 |
vs_top=sup; |
vs_top=sup; |
4232 |
V396= vs_base[0]; |
V394= vs_base[0]; |
4233 |
vs_base=vs_top; |
vs_base=vs_top; |
4234 |
(void) (*Lnk365)(); |
(void) (*Lnk367)(); |
4235 |
vs_top=sup; |
vs_top=sup; |
4236 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
4237 |
base[1]= symbol_value(VV[181]); |
base[1]= symbol_value(VV[183]); |
4238 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4239 |
(void) (*Lnk373)(); |
(void) (*Lnk375)(); |
4240 |
vs_top=sup; |
vs_top=sup; |
4241 |
V397= vs_base[0]; |
V395= vs_base[0]; |
4242 |
if(!(type_of((V396))==t_cons)){ |
if(!(type_of((V394))==t_cons)){ |
4243 |
goto T1473;} |
goto T1473;} |
4244 |
if(!((car((V396)))==(VV[193]))){ |
if(!((car((V394)))==(VV[195]))){ |
4245 |
goto T1473;} |
goto T1473;} |
4246 |
base[0]= cadr((V396)); |
base[0]= cadr((V394)); |
4247 |
base[1]= (V397); |
base[1]= (V395); |
4248 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4249 |
(void) (*Lnk324)(); |
(void) (*Lnk326)(); |
4250 |
vs_top=sup; |
vs_top=sup; |
4251 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4252 |
goto T1473;} |
goto T1473;} |
4253 |
V397= cadr((V396)); |
V395= cadr((V394)); |
4254 |
goto T1473; |
goto T1473; |
4255 |
T1473:; |
T1473:; |
4256 |
{object V398; |
{object V396; |
4257 |
object V399; |
object V397; |
4258 |
object V400; |
object V398; |
4259 |
base[0]= (V396); |
base[0]= (V394); |
4260 |
base[1]= (V397); |
base[1]= (V395); |
4261 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4262 |
(void) (*Lnk377)(); |
(void) (*Lnk379)(); |
4263 |
if(vs_base>=vs_top){vs_top=sup;goto T1486;} |
if(vs_base>=vs_top){vs_top=sup;goto T1486;} |
4264 |
V398= vs_base[0]; |
V396= vs_base[0]; |
4265 |
vs_base++; |
vs_base++; |
4266 |
if(vs_base>=vs_top){vs_top=sup;goto T1487;} |
if(vs_base>=vs_top){vs_top=sup;goto T1487;} |
4267 |
V399= vs_base[0]; |
V397= vs_base[0]; |
4268 |
vs_base++; |
vs_base++; |
4269 |
if(vs_base>=vs_top){vs_top=sup;goto T1488;} |
if(vs_base>=vs_top){vs_top=sup;goto T1488;} |
4270 |
V400= 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 |
V398= Cnil; |
V396= Cnil; |
4276 |
goto T1487; |
goto T1487; |
4277 |
T1487:; |
T1487:; |
4278 |
V399= Cnil; |
V397= Cnil; |
4279 |
goto T1488; |
goto T1488; |
4280 |
T1488:; |
T1488:; |
4281 |
V400= Cnil; |
V398= Cnil; |
4282 |
goto T1489; |
goto T1489; |
4283 |
T1489:; |
T1489:; |
4284 |
if(((V399))==Cnil){ |
if(((V397))==Cnil){ |
4285 |
goto T1491;} |
goto T1491;} |
4286 |
if(!(number_compare((V400),small_fixnum(1))<=0)){ |
if(!(number_compare((V398),small_fixnum(1))<=0)){ |
4287 |
goto T1491;} |
goto T1491;} |
4288 |
base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V400),small_fixnum(0))<=0?Ct:Cnil),VV[194]); |
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 V401; |
{register object V399; |
4294 |
base[1]= VV[195]; |
base[1]= VV[197]; |
4295 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4296 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
4297 |
vs_top=sup; |
vs_top=sup; |
4298 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
4299 |
base[1]= (V398); |
base[1]= (V396); |
4300 |
base[2]= (V397); |
base[2]= (V395); |
4301 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
4302 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
4303 |
vs_top=sup; |
vs_top=sup; |
4304 |
V401= vs_base[0]; |
V399= vs_base[0]; |
4305 |
if(((V399))==Cnil){ |
if(((V397))==Cnil){ |
4306 |
goto T1501;} |
goto T1501;} |
4307 |
V402= list(2,VV[36],list(2,VV[196],list(3,VV[11],(V401),list(2,VV[197],(V401))))); |
V400= list(2,VV[36],list(2,VV[198],list(3,VV[11],(V399),list(2,VV[199],(V399))))); |
4308 |
base[0]= make_cons(/* INLINE-ARGS */V402,VV[198]); |
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 |
V403= list(2,VV[199],list(3,VV[11],(V401),list(2,VV[197],(V401)))); |
V401= list(2,VV[201],list(3,VV[11],(V399),list(2,VV[199],(V399)))); |
4314 |
base[0]= make_cons(/* INLINE-ARGS */V403,VV[200]); |
base[0]= make_cons(/* INLINE-ARGS */V401,VV[202]); |
4315 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4316 |
return;}}} |
return;}}} |
4317 |
} |
} |
4329 |
base[0]= symbol_value(VV[116]); |
base[0]= symbol_value(VV[116]); |
4330 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4331 |
return;} |
return;} |
4332 |
base[1]= VV[201]; |
base[1]= VV[203]; |
4333 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4334 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
4335 |
vs_top=sup; |
vs_top=sup; |
4336 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
4337 |
base[1]= Cnil; |
base[1]= Cnil; |
4338 |
base[2]= Cnil; |
base[2]= Cnil; |
4339 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
4340 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
4341 |
vs_top=sup; |
vs_top=sup; |
4342 |
setq(VV[116],vs_base[0]); |
setq(VV[116],vs_base[0]); |
4343 |
base[0]= symbol_value(VV[116]); |
base[0]= symbol_value(VV[116]); |
4350 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4351 |
register object *sup=base+VM74; VC74 |
register object *sup=base+VM74; VC74 |
4352 |
vs_reserve(VM74); |
vs_reserve(VM74); |
4353 |
{register object V404; |
{register object V402; |
4354 |
object V405; |
object V403; |
4355 |
object V406; |
object V404; |
4356 |
check_arg(3); |
check_arg(3); |
4357 |
V404=(base[0]); |
V402=(base[0]); |
4358 |
V405=(base[1]); |
V403=(base[1]); |
4359 |
V406=(base[2]); |
V404=(base[2]); |
4360 |
vs_top=sup; |
vs_top=sup; |
4361 |
goto TTL; |
goto TTL; |
4362 |
TTL:; |
TTL:; |
4363 |
base[3]= (V404); |
base[3]= (V402); |
4364 |
base[4]= Cnil; |
base[4]= Cnil; |
4365 |
base[5]= (V406); |
base[5]= (V404); |
4366 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4367 |
(void) (*Lnk378)(); |
(void) (*Lnk380)(); |
4368 |
vs_top=sup; |
vs_top=sup; |
4369 |
base[3]= car(symbol_value(VV[89])); |
base[3]= car(symbol_value(VV[89])); |
4370 |
base[4]= VV[202]; |
base[4]= VV[204]; |
4371 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4372 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
4373 |
vs_top=sup; |
vs_top=sup; |
4374 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4375 |
goto T1513;} |
goto T1513;} |
4376 |
vs_base=vs_top; |
vs_base=vs_top; |
4377 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
4378 |
vs_top=sup; |
vs_top=sup; |
4379 |
vs_base=vs_top; |
vs_base=vs_top; |
4380 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
4381 |
vs_top=sup; |
vs_top=sup; |
4382 |
V407= vs_base[0]; |
V405= vs_base[0]; |
4383 |
V408= list(2,(V404),V407); |
V406= list(2,(V402),V405); |
4384 |
base[3]= listA(7,Cnil,/* INLINE-ARGS */V408,Cnil,Cnil,Cnil,list(2,(V404),(V405)),VV[203]); |
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,(V404),(V405)),VV[204]); |
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; |
4391 |
return; |
return; |
4392 |
} |
} |
4397 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4398 |
register object *sup=base+VM75; VC75 |
register object *sup=base+VM75; VC75 |
4399 |
vs_reserve(VM75); |
vs_reserve(VM75); |
4400 |
{object V409; |
{object V407; |
4401 |
object V410; |
object V408; |
4402 |
object V411; |
object V409; |
4403 |
check_arg(3); |
check_arg(3); |
4404 |
V409=(base[0]); |
V407=(base[0]); |
4405 |
V410=(base[1]); |
V408=(base[1]); |
4406 |
V411=(base[2]); |
V409=(base[2]); |
4407 |
vs_top=sup; |
vs_top=sup; |
4408 |
goto TTL; |
goto TTL; |
4409 |
TTL:; |
TTL:; |
4410 |
base[3]= (V409); |
base[3]= (V407); |
4411 |
base[4]= Cnil; |
base[4]= Cnil; |
4412 |
base[5]= (V411); |
base[5]= (V409); |
4413 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4414 |
(void) (*Lnk378)(); |
(void) (*Lnk380)(); |
4415 |
vs_top=sup; |
vs_top=sup; |
4416 |
{object V412; |
{object V410; |
4417 |
register object V413; |
register object V411; |
4418 |
base[3]= VV[205]; |
base[3]= VV[207]; |
4419 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4420 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
4421 |
vs_top=sup; |
vs_top=sup; |
4422 |
V412= vs_base[0]; |
V410= vs_base[0]; |
4423 |
base[3]= VV[206]; |
base[3]= VV[208]; |
4424 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4425 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
4426 |
vs_top=sup; |
vs_top=sup; |
4427 |
V413= vs_base[0]; |
V411= vs_base[0]; |
4428 |
{register object V414; |
{register object V412; |
4429 |
object V415; |
object V413; |
4430 |
object V416; |
object V414; |
4431 |
base[3]= (V410); |
base[3]= (V408); |
4432 |
base[4]= VV[207]; |
base[4]= VV[209]; |
4433 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4434 |
(void) (*Lnk377)(); |
(void) (*Lnk379)(); |
4435 |
if(vs_base>=vs_top){vs_top=sup;goto T1530;} |
if(vs_base>=vs_top){vs_top=sup;goto T1530;} |
4436 |
V414= vs_base[0]; |
V412= vs_base[0]; |
4437 |
vs_base++; |
vs_base++; |
4438 |
if(vs_base>=vs_top){vs_top=sup;goto T1531;} |
if(vs_base>=vs_top){vs_top=sup;goto T1531;} |
4439 |
V415= vs_base[0]; |
V413= vs_base[0]; |
4440 |
vs_base++; |
vs_base++; |
4441 |
if(vs_base>=vs_top){vs_top=sup;goto T1532;} |
if(vs_base>=vs_top){vs_top=sup;goto T1532;} |
4442 |
V416= 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 |
V414= Cnil; |
V412= Cnil; |
4448 |
goto T1531; |
goto T1531; |
4449 |
T1531:; |
T1531:; |
4450 |
V415= Cnil; |
V413= Cnil; |
4451 |
goto T1532; |
goto T1532; |
4452 |
T1532:; |
T1532:; |
4453 |
V416= Cnil; |
V414= Cnil; |
4454 |
goto T1533; |
goto T1533; |
4455 |
T1533:; |
T1533:; |
4456 |
base[3]= (V412); |
base[3]= (V410); |
4457 |
base[4]= (V414); |
base[4]= (V412); |
4458 |
if(!(type_of((V414))==t_cons)){ |
if(!(type_of((V412))==t_cons)){ |
4459 |
goto T1539;} |
goto T1539;} |
4460 |
if(!((car((V414)))==(VV[193]))){ |
if(!((car((V412)))==(VV[195]))){ |
4461 |
goto T1539;} |
goto T1539;} |
4462 |
base[5]= cadr((V414)); |
base[5]= cadr((V412)); |
4463 |
goto T1537; |
goto T1537; |
4464 |
goto T1539; |
goto T1539; |
4465 |
T1539:; |
T1539:; |
4466 |
base[5]= VV[207]; |
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) (*Lnk357)(); |
(void) (*Lnk359)(); |
4471 |
vs_top=sup; |
vs_top=sup; |
4472 |
base[3]= (V413); |
base[3]= (V411); |
4473 |
base[4]= small_fixnum(0); |
base[4]= small_fixnum(0); |
4474 |
base[5]= VV[208]; |
base[5]= VV[210]; |
4475 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4476 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
4477 |
vs_top=sup; |
vs_top=sup; |
4478 |
{long V417; |
{long V415; |
4479 |
|
object V416; |
4480 |
|
register object V417; |
4481 |
object V418; |
object V418; |
4482 |
register object V419; |
object V419; |
4483 |
object V420; |
object V420; |
4484 |
object V421; |
V415= 0; |
4485 |
object V422; |
if(((V413))!=Cnil){ |
|
V417= 0; |
|
|
if(((V415))!=Cnil){ |
|
4486 |
goto T1550;} |
goto T1550;} |
4487 |
{object V423; |
{object V421; |
4488 |
base[7]= VV[209]; |
base[7]= VV[211]; |
4489 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
4490 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
4491 |
vs_top=sup; |
vs_top=sup; |
4492 |
V423= vs_base[0]; |
V421= vs_base[0]; |
4493 |
{object V424; |
{object V422; |
4494 |
V424= list(3,VV[11],(V423),list(2,VV[210],(V412))); |
V422= list(3,VV[11],(V421),list(2,VV[212],(V410))); |
4495 |
setq(VV[106],make_cons((V424),symbol_value(VV[106])));} |
setq(VV[106],make_cons((V422),symbol_value(VV[106])));} |
4496 |
base[7]= (V423); |
base[7]= (V421); |
4497 |
base[8]= small_fixnum(0); |
base[8]= small_fixnum(0); |
4498 |
base[9]= VV[208]; |
base[9]= VV[210]; |
4499 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
4500 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
4501 |
vs_top=sup; |
vs_top=sup; |
4502 |
V418= vs_base[0]; |
V416= vs_base[0]; |
4503 |
goto T1548;} |
goto T1548;} |
4504 |
goto T1550; |
goto T1550; |
4505 |
T1550:; |
T1550:; |
4506 |
V417= (long)length((V416)); |
V415= (long)length((V414)); |
4507 |
V418= make_fixnum(V417); |
V416= make_fixnum(V415); |
4508 |
goto T1548; |
goto T1548; |
4509 |
T1548:; |
T1548:; |
4510 |
V419= list(3,VV[211],(V413),(V418)); |
V417= list(3,VV[213],(V411),(V416)); |
4511 |
V420= (V419); |
V418= (V417); |
4512 |
V421= list(2,(V409),list(3,VV[212],(V412),(V413))); |
V419= list(2,(V407),list(3,VV[214],(V410),(V411))); |
4513 |
V422= list(2,(V413),list(2,VV[178],(V413))); |
V420= list(2,(V411),list(2,VV[180],(V411))); |
4514 |
if(((V415))==Cnil){ |
if(((V413))==Cnil){ |
4515 |
goto T1565;} |
goto T1565;} |
4516 |
V419= ((V417)==(0)?Ct:Cnil); |
V417= ((V415)==(0)?Ct:Cnil); |
4517 |
if(!((V417)<=(1))){ |
if(!((V415)<=(1))){ |
4518 |
goto T1565;} |
goto T1565;} |
4519 |
V420= Ct; |
V418= Ct; |
4520 |
goto T1565; |
goto T1565; |
4521 |
T1565:; |
T1565:; |
4522 |
if(((((V419))==((V420))?Ct:Cnil))==Cnil){ |
if(((((V417))==((V418))?Ct:Cnil))==Cnil){ |
4523 |
goto T1574;} |
goto T1574;} |
4524 |
V425= Cnil; |
V423= Cnil; |
4525 |
goto T1573; |
goto T1573; |
4526 |
goto T1574; |
goto T1574; |
4527 |
T1574:; |
T1574:; |
4528 |
V425= list(4,(V419),(V421),Cnil,(V422)); |
V423= list(4,(V417),(V419),Cnil,(V420)); |
4529 |
goto T1573; |
goto T1573; |
4530 |
T1573:; |
T1573:; |
4531 |
base[7]= listA(5,(V420),(V421),Cnil,(V422),V425); |
base[7]= listA(5,(V418),(V419),Cnil,(V420),V423); |
4532 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
4533 |
return;}}} |
return;}}} |
4534 |
} |
} |
4539 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4540 |
register object *sup=base+VM76; VC76 |
register object *sup=base+VM76; VC76 |
4541 |
vs_reserve(VM76); |
vs_reserve(VM76); |
4542 |
{object V426; |
{object V424; |
4543 |
check_arg(1); |
check_arg(1); |
4544 |
V426=(base[0]); |
V424=(base[0]); |
4545 |
vs_top=sup; |
vs_top=sup; |
4546 |
goto TTL; |
goto TTL; |
4547 |
TTL:; |
TTL:; |
4548 |
{register object V427; |
{register object V425; |
4549 |
base[1]= car(symbol_value(VV[89])); |
base[1]= car(symbol_value(VV[89])); |
4550 |
base[2]= VV[213]; |
base[2]= VV[215]; |
4551 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4552 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
4553 |
vs_top=sup; |
vs_top=sup; |
4554 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4555 |
goto T1578;} |
goto T1578;} |
4556 |
vs_base=vs_top; |
vs_base=vs_top; |
4557 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
4558 |
vs_top=sup; |
vs_top=sup; |
4559 |
vs_base=vs_top; |
vs_base=vs_top; |
4560 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
4561 |
vs_top=sup; |
vs_top=sup; |
4562 |
V427= vs_base[0]; |
V425= vs_base[0]; |
4563 |
goto T1576; |
goto T1576; |
4564 |
goto T1578; |
goto T1578; |
4565 |
T1578:; |
T1578:; |
4566 |
V427= VV[214]; |
V425= VV[216]; |
4567 |
goto T1576; |
goto T1576; |
4568 |
T1576:; |
T1576:; |
4569 |
if(!(type_of((V427))==t_cons)){ |
if(!(type_of((V425))==t_cons)){ |
4570 |
goto T1584;} |
goto T1584;} |
4571 |
if(!((car((V427)))==(VV[215]))){ |
if(!((car((V425)))==(VV[217]))){ |
4572 |
goto T1584;} |
goto T1584;} |
4573 |
base[1]= VV[216]; |
base[1]= VV[218]; |
4574 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4575 |
(void) (*Lnk336)(); |
(void) (*Lnk338)(); |
4576 |
vs_top=sup; |
vs_top=sup; |
4577 |
base[1]= list(3,VV[217],(V427),(V426)); |
base[1]= list(3,VV[219],(V425),(V424)); |
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((V427))==t_cons)){ |
if(!(type_of((V425))==t_cons)){ |
4584 |
goto T1593;} |
goto T1593;} |
4585 |
if(!((car((V427)))==(VV[83]))){ |
if(!((car((V425)))==(VV[83]))){ |
4586 |
goto T1593;} |
goto T1593;} |
4587 |
base[1]= list(2,cadr((V427)),(V426)); |
base[1]= list(2,cadr((V425)),(V424)); |
4588 |
base[2]= cadr((V427)); |
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[218]; |
base[3]= VV[220]; |
4594 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4595 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
4596 |
vs_top=sup; |
vs_top=sup; |
4597 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
4598 |
base[3]= (V427); |
base[3]= (V425); |
4599 |
base[4]= VV[83]; |
base[4]= VV[83]; |
4600 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
4601 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
4602 |
vs_top=sup; |
vs_top=sup; |
4603 |
V428= vs_base[0]; |
V426= vs_base[0]; |
4604 |
base[1]= list(3,VV[217],V428,(V426)); |
base[1]= list(3,VV[219],V426,(V424)); |
4605 |
base[2]= Cnil; |
base[2]= Cnil; |
4606 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4607 |
return;} |
return;} |
4613 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4614 |
register object *sup=base+VM77; VC77 |
register object *sup=base+VM77; VC77 |
4615 |
vs_reserve(VM77); |
vs_reserve(VM77); |
4616 |
{register object V429; |
{register object V427; |
4617 |
object V430; |
object V428; |
4618 |
object V431; |
object V429; |
4619 |
check_arg(3); |
check_arg(3); |
4620 |
V429=(base[0]); |
V427=(base[0]); |
4621 |
V430=(base[1]); |
V428=(base[1]); |
4622 |
V431=(base[2]); |
V429=(base[2]); |
4623 |
vs_top=sup; |
vs_top=sup; |
4624 |
goto TTL; |
goto TTL; |
4625 |
TTL:; |
TTL:; |
4626 |
{object V432; |
{object V430; |
4627 |
object V433; |
object V431; |
4628 |
object V434; |
object V432; |
4629 |
base[3]= (V430); |
base[3]= (V428); |
4630 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4631 |
(void) (*Lnk377)(); |
(void) (*Lnk379)(); |
4632 |
if(vs_base>=vs_top){vs_top=sup;goto T1608;} |
if(vs_base>=vs_top){vs_top=sup;goto T1608;} |
4633 |
V432= vs_base[0]; |
V430= vs_base[0]; |
4634 |
vs_base++; |
vs_base++; |
4635 |
if(vs_base>=vs_top){vs_top=sup;goto T1609;} |
if(vs_base>=vs_top){vs_top=sup;goto T1609;} |
4636 |
V433= vs_base[0]; |
V431= vs_base[0]; |
4637 |
vs_base++; |
vs_base++; |
4638 |
if(vs_base>=vs_top){vs_top=sup;goto T1610;} |
if(vs_base>=vs_top){vs_top=sup;goto T1610;} |
4639 |
V434= 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 |
V432= Cnil; |
V430= Cnil; |
4645 |
goto T1609; |
goto T1609; |
4646 |
T1609:; |
T1609:; |
4647 |
V433= Cnil; |
V431= Cnil; |
4648 |
goto T1610; |
goto T1610; |
4649 |
T1610:; |
T1610:; |
4650 |
V434= Cnil; |
V432= Cnil; |
4651 |
goto T1611; |
goto T1611; |
4652 |
T1611:; |
T1611:; |
4653 |
{register object V435; |
{register object V433; |
4654 |
V435= (V429); |
V433= (V427); |
4655 |
if(((V429))==Cnil){ |
if(((V427))==Cnil){ |
4656 |
goto T1614;} |
goto T1614;} |
4657 |
if(!(type_of((V429))==t_symbol)){ |
if(!(type_of((V427))==t_symbol)){ |
4658 |
goto T1614;} |
goto T1614;} |
4659 |
base[3]= (V429); |
base[3]= (V427); |
4660 |
base[4]= (V432); |
base[4]= (V430); |
4661 |
base[5]= (V431); |
base[5]= (V429); |
4662 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4663 |
(void) (*Lnk378)(); |
(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) (*Lnk325)(); |
(void) (*Lnk327)(); |
4670 |
vs_top=sup; |
vs_top=sup; |
4671 |
V435= vs_base[0]; |
V433= vs_base[0]; |
4672 |
base[3]= (V435); |
base[3]= (V433); |
4673 |
base[4]= (V432); |
base[4]= (V430); |
4674 |
base[5]= VV[5]; |
base[5]= VV[5]; |
4675 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4676 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
4677 |
vs_top=sup; |
vs_top=sup; |
4678 |
base[3]= (V429); |
base[3]= (V427); |
4679 |
base[4]= Cnil; |
base[4]= Cnil; |
4680 |
base[5]= (V431); |
base[5]= (V429); |
4681 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4682 |
(void) (*Lnk378)(); |
(void) (*Lnk380)(); |
4683 |
vs_top=sup; |
vs_top=sup; |
4684 |
goto T1612; |
goto T1612; |
4685 |
T1612:; |
T1612:; |
4686 |
{object V436; |
{object V434; |
4687 |
object V437; |
object V435; |
4688 |
base[3]= (V435); |
base[3]= (V433); |
4689 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4690 |
(void) (*Lnk379)(); |
(void) (*Lnk381)(); |
4691 |
if(vs_base>=vs_top){vs_top=sup;goto T1631;} |
if(vs_base>=vs_top){vs_top=sup;goto T1631;} |
4692 |
V436= vs_base[0]; |
V434= vs_base[0]; |
4693 |
vs_base++; |
vs_base++; |
4694 |
if(vs_base>=vs_top){vs_top=sup;goto T1632;} |
if(vs_base>=vs_top){vs_top=sup;goto T1632;} |
4695 |
V437= 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 |
V436= Cnil; |
V434= Cnil; |
4701 |
goto T1632; |
goto T1632; |
4702 |
T1632:; |
T1632:; |
4703 |
V437= Cnil; |
V435= Cnil; |
4704 |
goto T1633; |
goto T1633; |
4705 |
T1633:; |
T1633:; |
4706 |
{register object V438; |
{register object V436; |
4707 |
object V439; |
object V437; |
4708 |
base[4]= (((V429))==((V435))?Ct:Cnil); |
base[4]= (((V427))==((V433))?Ct:Cnil); |
4709 |
base[5]= (V435); |
base[5]= (V433); |
4710 |
base[6]= list(2,VV[219],(V435)); |
base[6]= list(2,VV[221],(V433)); |
4711 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4712 |
(void) (*Lnk329)(); |
(void) (*Lnk331)(); |
4713 |
vs_top=sup; |
vs_top=sup; |
4714 |
V438= vs_base[0]; |
V436= vs_base[0]; |
4715 |
V439= (V438); |
V437= (V436); |
4716 |
if(((V433))==Cnil){ |
if(((V431))==Cnil){ |
4717 |
goto T1639;} |
goto T1639;} |
4718 |
if(!(type_of((V434))==t_cons||((V434))==Cnil)){ |
if(!(type_of((V432))==t_cons||((V432))==Cnil)){ |
4719 |
goto T1639;} |
goto T1639;} |
4720 |
V438= (((V434))==Cnil?Ct:Cnil); |
V436= (((V432))==Cnil?Ct:Cnil); |
4721 |
goto T1639; |
goto T1639; |
4722 |
T1639:; |
T1639:; |
4723 |
if(!(((V429))==((V435)))){ |
if(!(((V427))==((V433)))){ |
4724 |
goto T1646;} |
goto T1646;} |
4725 |
base[4]= Ct; |
base[4]= Ct; |
4726 |
base[5]= (V435); |
base[5]= (V433); |
4727 |
base[6]= (V436); |
base[6]= (V434); |
4728 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4729 |
(void) (*Lnk329)(); |
(void) (*Lnk331)(); |
4730 |
vs_top=sup; |
vs_top=sup; |
4731 |
V440= vs_base[0]; |
V438= vs_base[0]; |
4732 |
base[4]= list(8,Cnil,list(2,(V435),V440),(V439),Cnil,Cnil,Cnil,(V438),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 V441; |
{object V439; |
4738 |
object V442; |
object V440; |
4739 |
V441= list(2,(V429),(V435)); |
V439= list(2,(V427),(V433)); |
4740 |
V442= list(2,(V435),(V436)); |
V440= list(2,(V433),(V434)); |
4741 |
if(((((V438))==((V439))?Ct:Cnil))==Cnil){ |
if(((((V436))==((V437))?Ct:Cnil))==Cnil){ |
4742 |
goto T1655;} |
goto T1655;} |
4743 |
V443= Cnil; |
V441= Cnil; |
4744 |
goto T1654; |
goto T1654; |
4745 |
goto T1655; |
goto T1655; |
4746 |
T1655:; |
T1655:; |
4747 |
V443= list(4,(V438),(V441),Cnil,(V442)); |
V441= list(4,(V436),(V439),Cnil,(V440)); |
4748 |
goto T1654; |
goto T1654; |
4749 |
T1654:; |
T1654:; |
4750 |
base[4]= listA(5,(V439),(V441),Cnil,(V442),V443); |
base[4]= listA(5,(V437),(V439),Cnil,(V440),V441); |
4751 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4752 |
return;}}}}} |
return;}}}}} |
4753 |
} |
} |
4758 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4759 |
register object *sup=base+VM78; VC78 |
register object *sup=base+VM78; VC78 |
4760 |
vs_reserve(VM78); |
vs_reserve(VM78); |
4761 |
{object V444; |
{object V442; |
4762 |
object V445; |
object V443; |
4763 |
object V446; |
object V444; |
4764 |
check_arg(3); |
check_arg(3); |
4765 |
V444=(base[0]); |
V442=(base[0]); |
4766 |
V445=(base[1]); |
V443=(base[1]); |
4767 |
V446=(base[2]); |
V444=(base[2]); |
4768 |
vs_top=sup; |
vs_top=sup; |
4769 |
goto TTL; |
goto TTL; |
4770 |
TTL:; |
TTL:; |
4771 |
{object V447; |
{object V445; |
4772 |
object V448; |
object V446; |
4773 |
object V449; |
object V447; |
4774 |
base[3]= (V445); |
base[3]= (V443); |
4775 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4776 |
(void) (*Lnk377)(); |
(void) (*Lnk379)(); |
4777 |
if(vs_base>=vs_top){vs_top=sup;goto T1659;} |
if(vs_base>=vs_top){vs_top=sup;goto T1659;} |
4778 |
V447= vs_base[0]; |
V445= vs_base[0]; |
4779 |
vs_base++; |
vs_base++; |
4780 |
if(vs_base>=vs_top){vs_top=sup;goto T1660;} |
if(vs_base>=vs_top){vs_top=sup;goto T1660;} |
4781 |
V448= vs_base[0]; |
V446= vs_base[0]; |
4782 |
vs_base++; |
vs_base++; |
4783 |
if(vs_base>=vs_top){vs_top=sup;goto T1661;} |
if(vs_base>=vs_top){vs_top=sup;goto T1661;} |
4784 |
V449= 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 |
V447= Cnil; |
V445= Cnil; |
4790 |
goto T1660; |
goto T1660; |
4791 |
T1660:; |
T1660:; |
4792 |
V448= Cnil; |
V446= Cnil; |
4793 |
goto T1661; |
goto T1661; |
4794 |
T1661:; |
T1661:; |
4795 |
V449= Cnil; |
V447= Cnil; |
4796 |
goto T1662; |
goto T1662; |
4797 |
T1662:; |
T1662:; |
4798 |
{register object V450; |
{register object V448; |
4799 |
base[3]= VV[220]; |
base[3]= VV[222]; |
4800 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4801 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
4802 |
vs_top=sup; |
vs_top=sup; |
4803 |
V450= vs_base[0]; |
V448= vs_base[0]; |
4804 |
base[3]= (V444); |
base[3]= (V442); |
4805 |
base[4]= Cnil; |
base[4]= Cnil; |
4806 |
base[5]= (V446); |
base[5]= (V444); |
4807 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4808 |
(void) (*Lnk378)(); |
(void) (*Lnk380)(); |
4809 |
vs_top=sup; |
vs_top=sup; |
4810 |
base[3]= (V450); |
base[3]= (V448); |
4811 |
base[4]= (V447); |
base[4]= (V445); |
4812 |
base[5]= VV[5]; |
base[5]= VV[5]; |
4813 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4814 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
4815 |
vs_top=sup; |
vs_top=sup; |
4816 |
{object V451; |
{object V449; |
4817 |
object V452; |
object V450; |
4818 |
base[3]= (V450); |
base[3]= (V448); |
4819 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4820 |
(void) (*Lnk379)(); |
(void) (*Lnk381)(); |
4821 |
if(vs_base>=vs_top){vs_top=sup;goto T1675;} |
if(vs_base>=vs_top){vs_top=sup;goto T1675;} |
4822 |
V451= vs_base[0]; |
V449= vs_base[0]; |
4823 |
vs_base++; |
vs_base++; |
4824 |
if(vs_base>=vs_top){vs_top=sup;goto T1676;} |
if(vs_base>=vs_top){vs_top=sup;goto T1676;} |
4825 |
V452= 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 |
V451= Cnil; |
V449= Cnil; |
4831 |
goto T1676; |
goto T1676; |
4832 |
T1676:; |
T1676:; |
4833 |
V452= Cnil; |
V450= Cnil; |
4834 |
goto T1677; |
goto T1677; |
4835 |
T1677:; |
T1677:; |
4836 |
{register object V453; |
{register object V451; |
4837 |
|
object V452; |
4838 |
|
object V453; |
4839 |
object V454; |
object V454; |
4840 |
object V455; |
V451= list(2,VV[223],(V448)); |
4841 |
object V456; |
V452= (V451); |
4842 |
V453= list(2,VV[221],(V450)); |
V453= list(2,(V442),list(2,VV[65],(V448))); |
4843 |
V454= (V453); |
V454= list(2,(V448),(V449)); |
4844 |
V455= list(2,(V444),list(2,VV[65],(V450))); |
if(((V446))==Cnil){ |
|
V456= list(2,(V450),(V451)); |
|
|
if(((V448))==Cnil){ |
|
4845 |
goto T1682;} |
goto T1682;} |
4846 |
if(!(type_of((V449))==t_cons||((V449))==Cnil)){ |
if(!(type_of((V447))==t_cons||((V447))==Cnil)){ |
4847 |
goto T1682;} |
goto T1682;} |
4848 |
V453= (((V449))==Cnil?Ct:Cnil); |
V451= (((V447))==Cnil?Ct:Cnil); |
4849 |
goto T1682; |
goto T1682; |
4850 |
T1682:; |
T1682:; |
4851 |
if(((((V453))==((V454))?Ct:Cnil))==Cnil){ |
if(((((V451))==((V452))?Ct:Cnil))==Cnil){ |
4852 |
goto T1689;} |
goto T1689;} |
4853 |
V457= Cnil; |
V455= Cnil; |
4854 |
goto T1688; |
goto T1688; |
4855 |
goto T1689; |
goto T1689; |
4856 |
T1689:; |
T1689:; |
4857 |
V457= list(4,(V453),(V455),Cnil,(V456)); |
V455= list(4,(V451),(V453),Cnil,(V454)); |
4858 |
goto T1688; |
goto T1688; |
4859 |
T1688:; |
T1688:; |
4860 |
base[6]= listA(5,(V454),(V455),Cnil,(V456),V457); |
base[6]= listA(5,(V452),(V453),Cnil,(V454),V455); |
4861 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
4862 |
return;}}}} |
return;}}}} |
4863 |
} |
} |
4868 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4869 |
register object *sup=base+VM79; VC79 |
register object *sup=base+VM79; VC79 |
4870 |
vs_reserve(VM79); |
vs_reserve(VM79); |
4871 |
{object V458; |
{object V456; |
4872 |
|
object V457; |
4873 |
|
object V458; |
4874 |
object V459; |
object V459; |
4875 |
object V460; |
object V460; |
4876 |
object V461; |
parse_key(vs_base,FALSE,FALSE,5,VV[226],VV[229],VV[230],VV[227],VV[228]); |
|
object V462; |
|
|
parse_key(vs_base,FALSE,FALSE,5,VV[224],VV[227],VV[228],VV[225],VV[226]); |
|
4877 |
vs_top=sup; |
vs_top=sup; |
4878 |
V458=(base[0]); |
V456=(base[0]); |
4879 |
V459=(base[1]); |
V457=(base[1]); |
4880 |
V460=(base[2]); |
V458=(base[2]); |
4881 |
V461=(base[3]); |
V459=(base[3]); |
4882 |
V462=(base[4]); |
V460=(base[4]); |
4883 |
base[10]= VV[222]; |
base[10]= VV[224]; |
4884 |
base[11]= (V458); |
base[11]= (V456); |
4885 |
base[12]= (V459); |
base[12]= (V457); |
4886 |
base[13]= (V460); |
base[13]= (V458); |
4887 |
base[14]= (V461); |
base[14]= (V459); |
4888 |
base[15]= (V462); |
base[15]= (V460); |
4889 |
vs_top=(vs_base=base+10)+6; |
vs_top=(vs_base=base+10)+6; |
4890 |
siLmake_structure(); |
siLmake_structure(); |
4891 |
return; |
return; |
4898 |
register object *sup=base+VM80; VC80 |
register object *sup=base+VM80; VC80 |
4899 |
vs_reserve(VM80); |
vs_reserve(VM80); |
4900 |
bds_check; |
bds_check; |
4901 |
{object V463; |
{object V461; |
4902 |
|
object V462; |
4903 |
|
register object V463; |
4904 |
object V464; |
object V464; |
4905 |
register object V465; |
object V465; |
4906 |
object V466; |
object V466; |
|
object V467; |
|
|
object V468; |
|
4907 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
4908 |
parse_key(vs_base+3,FALSE,FALSE,3,VV[227],VV[228],VV[226]); |
parse_key(vs_base+3,FALSE,FALSE,3,VV[229],VV[230],VV[228]); |
4909 |
V463=(base[0]); |
V461=(base[0]); |
4910 |
V464=(base[1]); |
V462=(base[1]); |
4911 |
V465=(base[2]); |
V463=(base[2]); |
4912 |
vs_top=sup; |
vs_top=sup; |
4913 |
V466=(base[3]); |
V464=(base[3]); |
4914 |
V467=(base[4]); |
V465=(base[4]); |
4915 |
V468=(base[5]); |
V466=(base[5]); |
4916 |
if(type_of((V463))==t_cons||((V463))==Cnil){ |
if(type_of((V461))==t_cons||((V461))==Cnil){ |
4917 |
goto T1697;} |
goto T1697;} |
4918 |
V463= make_cons((V463),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]= (V465); |
base[11]= (V463); |
4926 |
base[12]= VV[39]; |
base[12]= VV[39]; |
4927 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
4928 |
(void) (*Lnk380)(); |
(void) (*Lnk382)(); |
4929 |
vs_top=sup; |
vs_top=sup; |
4930 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4931 |
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]; |
4939 |
base[13]= VV[223]; |
base[13]= VV[225]; |
4940 |
base[14]= (V465); |
base[14]= (V463); |
4941 |
base[15]= VV[39]; |
base[15]= VV[39]; |
4942 |
vs_top=(vs_base=base+11)+5; |
vs_top=(vs_base=base+11)+5; |
4943 |
Lcerror(); |
Lcerror(); |
4944 |
vs_top=sup; |
vs_top=sup; |
4945 |
base[11]= symbol_value(VV[50]); |
base[11]= symbol_value(VV[50]); |
4946 |
base[12]= VV[51]; |
base[12]= VV[51]; |
4947 |
base[13]= VV[223]; |
base[13]= VV[225]; |
4948 |
vs_top=(vs_base=base+11)+3; |
vs_top=(vs_base=base+11)+3; |
4949 |
Lformat(); |
Lformat(); |
4950 |
vs_top=sup; |
vs_top=sup; |
4955 |
vs_base=vs_top; |
vs_base=vs_top; |
4956 |
Lread(); |
Lread(); |
4957 |
vs_top=sup; |
vs_top=sup; |
4958 |
V465= vs_base[0]; |
V463= vs_base[0]; |
4959 |
base[11]= symbol_value(VV[50]); |
base[11]= symbol_value(VV[50]); |
4960 |
base[12]= VV[52]; |
base[12]= VV[52]; |
4961 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
4964 |
goto T1703; |
goto T1703; |
4965 |
goto T1701; |
goto T1701; |
4966 |
T1701:; |
T1701:; |
4967 |
|
{object V467; |
4968 |
|
object V468; |
4969 |
|
V467= structure_ref((V463),VV[39],3); |
4970 |
|
base[9]= VV[226]; |
4971 |
{object V469; |
{object V469; |
4972 |
object V470; |
object V470= (V461); |
4973 |
V469= structure_ref((V465),VV[39],3); |
if(endp(V470)){ |
|
base[9]= VV[224]; |
|
|
{object V471; |
|
|
object V472= (V463); |
|
|
if(endp(V472)){ |
|
4974 |
base[10]= Cnil; |
base[10]= Cnil; |
4975 |
goto T1732;} |
goto T1732;} |
4976 |
base[11]=V471=MMcons(Cnil,Cnil); |
base[11]=V469=MMcons(Cnil,Cnil); |
4977 |
goto T1733; |
goto T1733; |
4978 |
T1733:; |
T1733:; |
4979 |
(V471->c.c_car)= symbol_name((V472->c.c_car)); |
(V469->c.c_car)= symbol_name((V470->c.c_car)); |
4980 |
V472=MMcdr(V472); |
V470=MMcdr(V470); |
4981 |
if(endp(V472)){ |
if(endp(V470)){ |
4982 |
base[10]= base[11]; |
base[10]= base[11]; |
4983 |
goto T1732;} |
goto T1732;} |
4984 |
V471=MMcdr(V471)=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[225]; |
base[11]= VV[227]; |
4989 |
base[12]= (V464); |
base[12]= (V462); |
4990 |
base[13]= VV[226]; |
base[13]= VV[228]; |
4991 |
base[14]= (V468); |
base[14]= (V466); |
4992 |
base[15]= VV[227]; |
base[15]= VV[229]; |
4993 |
{object V473; |
{object V471; |
4994 |
object V474= (V466); |
object V472= (V464); |
4995 |
if(endp(V474)){ |
if(endp(V472)){ |
4996 |
base[16]= Cnil; |
base[16]= Cnil; |
4997 |
goto T1740;} |
goto T1740;} |
4998 |
base[17]=V473=MMcons(Cnil,Cnil); |
base[17]=V471=MMcons(Cnil,Cnil); |
4999 |
goto T1741; |
goto T1741; |
5000 |
T1741:; |
T1741:; |
5001 |
if(!(type_of((V474->c.c_car))==t_cons||((V474->c.c_car))==Cnil)){ |
if(!(type_of((V472->c.c_car))==t_cons||((V472->c.c_car))==Cnil)){ |
5002 |
goto T1744;} |
goto T1744;} |
5003 |
(V473->c.c_car)= (V474->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 |
(V473->c.c_car)= make_cons((V474->c.c_car),Cnil); |
(V471->c.c_car)= make_cons((V472->c.c_car),Cnil); |
5008 |
goto T1742; |
goto T1742; |
5009 |
T1742:; |
T1742:; |
5010 |
V474=MMcdr(V474); |
V472=MMcdr(V472); |
5011 |
if(endp(V474)){ |
if(endp(V472)){ |
5012 |
base[16]= base[17]; |
base[16]= base[17]; |
5013 |
goto T1740;} |
goto T1740;} |
5014 |
V473=MMcdr(V473)=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[228]; |
base[17]= VV[230]; |
5019 |
base[18]= (V467); |
base[18]= (V465); |
5020 |
vs_top=(vs_base=base+9)+10; |
vs_top=(vs_base=base+9)+10; |
5021 |
(void) (*Lnk381)(); |
(void) (*Lnk383)(); |
5022 |
vs_top=sup; |
vs_top=sup; |
5023 |
V470= vs_base[0]; |
V468= vs_base[0]; |
5024 |
{register object V476; |
{register object V474; |
5025 |
register object V477; |
register object V475; |
5026 |
V476= (V463); |
V474= (V461); |
5027 |
V477= car((V476)); |
V475= car((V474)); |
5028 |
goto T1752; |
goto T1752; |
5029 |
T1752:; |
T1752:; |
5030 |
if(!(endp_prop((V476)))){ |
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 V478; |
{register object V476; |
5036 |
register object V479; |
register object V477; |
5037 |
register object V480; |
register object V478; |
5038 |
V478= symbol_name((V477)); |
V476= symbol_name((V475)); |
5039 |
V479= (V469); |
V477= (V467); |
5040 |
V480= (V470); |
V478= (V468); |
5041 |
base[11]= (V478); |
base[11]= (V476); |
5042 |
base[12]= (V479); |
base[12]= (V477); |
5043 |
base[13]= (V480); |
base[13]= (V478); |
5044 |
vs_top=(vs_base=base+11)+3; |
vs_top=(vs_base=base+11)+3; |
5045 |
siLhash_set(); |
siLhash_set(); |
5046 |
vs_top=sup;} |
vs_top=sup;} |
5047 |
V476= cdr((V476)); |
V474= cdr((V474)); |
5048 |
V477= car((V476)); |
V475= car((V474)); |
5049 |
goto T1752;} |
goto T1752;} |
5050 |
goto T1748; |
goto T1748; |
5051 |
T1748:; |
T1748:; |
5052 |
base[9]= (V470); |
base[9]= (V468); |
5053 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
5054 |
return;} |
return;} |
5055 |
} |
} |
5060 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5061 |
register object *sup=base+VM81; VC81 |
register object *sup=base+VM81; VC81 |
5062 |
vs_reserve(VM81); |
vs_reserve(VM81); |
5063 |
{object V481; |
{object V479; |
5064 |
object V482; |
object V480; |
5065 |
object V483; |
object V481; |
5066 |
check_arg(3); |
check_arg(3); |
5067 |
V481=(base[0]); |
V479=(base[0]); |
5068 |
V482=(base[1]); |
V480=(base[1]); |
5069 |
V483=(base[2]); |
V481=(base[2]); |
5070 |
vs_top=sup; |
vs_top=sup; |
5071 |
goto TTL; |
goto TTL; |
5072 |
TTL:; |
TTL:; |
5073 |
{register object V484; |
{register object V482; |
5074 |
|
object V483; |
5075 |
|
object V484; |
5076 |
object V485; |
object V485; |
5077 |
object V486; |
object V486; |
5078 |
object V487; |
V482= Cnil; |
5079 |
object V488; |
V483= Cnil; |
5080 |
V484= Cnil; |
V484= Cnil; |
5081 |
V485= Cnil; |
V485= Cnil; |
5082 |
V486= Cnil; |
V486= Cnil; |
5083 |
V487= Cnil; |
base[3]= (V480); |
5084 |
V488= Cnil; |
base[4]= VV[231]; |
|
base[3]= (V482); |
|
|
base[4]= VV[229]; |
|
5085 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5086 |
(void) (*Lnk351)(); |
(void) (*Lnk353)(); |
5087 |
vs_top=sup; |
vs_top=sup; |
5088 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5089 |
goto T1771;} |
goto T1771;} |
5090 |
vs_base=vs_top; |
vs_base=vs_top; |
5091 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
5092 |
vs_top=sup; |
vs_top=sup; |
5093 |
V484= 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[153]; |
base[4]= VV[155]; |
5099 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5100 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
5101 |
vs_top=sup; |
vs_top=sup; |
5102 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5103 |
goto T1777;} |
goto T1777;} |
5104 |
vs_base=vs_top; |
vs_base=vs_top; |
5105 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
5106 |
vs_top=sup; |
vs_top=sup; |
5107 |
V486= Ct; |
V484= Ct; |
5108 |
base[3]= car(symbol_value(VV[89])); |
base[3]= car(symbol_value(VV[89])); |
5109 |
base[4]= VV[230]; |
base[4]= VV[232]; |
5110 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5111 |
(void) (*Lnk351)(); |
(void) (*Lnk353)(); |
5112 |
vs_top=sup; |
vs_top=sup; |
5113 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5114 |
goto T1784;} |
goto T1784;} |
5115 |
base[3]= VV[231]; |
base[3]= VV[233]; |
5116 |
base[4]= car(symbol_value(VV[89])); |
base[4]= car(symbol_value(VV[89])); |
5117 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5118 |
(void) (*Lnk345)(); |
(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) (*Lnk348)(); |
(void) (*Lnk350)(); |
5124 |
vs_top=sup; |
vs_top=sup; |
5125 |
vs_base=vs_top; |
vs_base=vs_top; |
5126 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
5127 |
vs_top=sup; |
vs_top=sup; |
5128 |
V484= vs_base[0]; |
V482= vs_base[0]; |
5129 |
V489= list(2,VV[232],(V482)); |
V487= list(2,VV[234],(V480)); |
5130 |
V488= make_cons(/* INLINE-ARGS */V489,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[233]; |
base[3]= VV[235]; |
5135 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5136 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5137 |
vs_top=sup; |
vs_top=sup; |
5138 |
goto T1769; |
goto T1769; |
5139 |
T1769:; |
T1769:; |
5140 |
if(type_of((V484))==t_symbol){ |
if(type_of((V482))==t_symbol){ |
5141 |
goto T1798;} |
goto T1798;} |
5142 |
base[3]= VV[234]; |
base[3]= VV[236]; |
5143 |
base[4]= (V484); |
base[4]= (V482); |
5144 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5145 |
(void) (*Lnk345)(); |
(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]= (V484); |
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); |
5152 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5153 |
(void) (*Lnk349)(); |
(void) (*Lnk351)(); |
5154 |
vs_top=sup; |
vs_top=sup; |
5155 |
V485= vs_base[0]; |
V483= vs_base[0]; |
5156 |
if(((V485))!=Cnil){ |
if(((V483))!=Cnil){ |
5157 |
goto T1803;} |
goto T1803;} |
5158 |
base[3]= VV[235]; |
base[3]= VV[237]; |
5159 |
base[4]= (V484); |
base[4]= (V482); |
5160 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5161 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5162 |
vs_top=sup; |
vs_top=sup; |
5163 |
goto T1796; |
goto T1796; |
5164 |
goto T1803; |
goto T1803; |
5165 |
T1803:; |
T1803:; |
5166 |
if(((V486))==Cnil){ |
if(((V484))==Cnil){ |
5167 |
goto T1796;} |
goto T1796;} |
5168 |
if((structure_ref((V485),VV[222],2))!=Cnil){ |
if((structure_ref((V483),VV[224],2))!=Cnil){ |
5169 |
goto T1796;} |
goto T1796;} |
5170 |
base[3]= VV[236]; |
base[3]= VV[238]; |
5171 |
base[4]= (V484); |
base[4]= (V482); |
5172 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5173 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5174 |
vs_top=sup; |
vs_top=sup; |
5175 |
goto T1796; |
goto T1796; |
5176 |
T1796:; |
T1796:; |
5177 |
{object V490; |
{object V488; |
5178 |
object V491; |
object V489; |
5179 |
object V492; |
object V490; |
5180 |
V490= structure_ref((V485),VV[222],3); |
V488= structure_ref((V483),VV[224],3); |
5181 |
base[3]= structure_ref((V485),VV[222],1); |
base[3]= structure_ref((V483),VV[224],1); |
5182 |
base[4]= Ct; |
base[4]= Ct; |
5183 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5184 |
(void) (*Lnk382)(); |
(void) (*Lnk384)(); |
5185 |
vs_top=sup; |
vs_top=sup; |
5186 |
V493= vs_base[0]; |
V491= vs_base[0]; |
5187 |
V491= nconc((V488),V493); |
V489= nconc((V486),V491); |
5188 |
V492= structure_ref((V485),VV[222],4); |
V490= structure_ref((V483),VV[224],4); |
5189 |
if(!(type_of((V490))==t_symbol)){ |
if(!(type_of((V488))==t_symbol)){ |
5190 |
goto T1823;} |
goto T1823;} |
5191 |
base[3]= (V490); |
base[3]= (V488); |
5192 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5193 |
Lsymbol_function(); |
Lsymbol_function(); |
5194 |
vs_top=sup; |
vs_top=sup; |
5195 |
V490= vs_base[0]; |
V488= vs_base[0]; |
5196 |
goto T1823; |
goto T1823; |
5197 |
T1823:; |
T1823:; |
5198 |
if(((V486))==Cnil){ |
if(((V484))==Cnil){ |
5199 |
goto T1830;} |
goto T1830;} |
5200 |
base[3]= (V490); |
base[3]= (V488); |
5201 |
base[4]= (V481); |
base[4]= (V479); |
5202 |
base[5]= (V483); |
base[5]= (V481); |
5203 |
base[6]= (V491); |
base[6]= (V489); |
5204 |
base[7]= VV[237]; |
base[7]= VV[239]; |
5205 |
base[8]= Ct; |
base[8]= Ct; |
5206 |
{object V494; |
{object V492; |
5207 |
V494= (V492); |
V492= (V490); |
5208 |
vs_top=base+9; |
vs_top=base+9; |
5209 |
while(!endp(V494)) |
while(!endp(V492)) |
5210 |
{vs_push(car(V494));V494=cdr(V494);} |
{vs_push(car(V492));V492=cdr(V492);} |
5211 |
vs_base=base+4;} |
vs_base=base+4;} |
5212 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
5213 |
vs_top=sup; |
vs_top=sup; |
5214 |
V487= vs_base[0]; |
V485= vs_base[0]; |
5215 |
goto T1828; |
goto T1828; |
5216 |
goto T1830; |
goto T1830; |
5217 |
T1830:; |
T1830:; |
5218 |
base[3]= (V490); |
base[3]= (V488); |
5219 |
base[4]= (V481); |
base[4]= (V479); |
5220 |
base[5]= (V483); |
base[5]= (V481); |
5221 |
base[6]= (V491); |
base[6]= (V489); |
5222 |
{object V495; |
{object V493; |
5223 |
V495= (V492); |
V493= (V490); |
5224 |
vs_top=base+7; |
vs_top=base+7; |
5225 |
while(!endp(V495)) |
while(!endp(V493)) |
5226 |
{vs_push(car(V495));V495=cdr(V495);} |
{vs_push(car(V493));V493=cdr(V493);} |
5227 |
vs_base=base+4;} |
vs_base=base+4;} |
5228 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
5229 |
vs_top=sup; |
vs_top=sup; |
5230 |
V487= 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;} |
5235 |
base[3]= VV[238]; |
base[3]= VV[240]; |
5236 |
base[4]= symbol_value(VV[102]); |
base[4]= symbol_value(VV[102]); |
5237 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5238 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5239 |
vs_top=sup; |
vs_top=sup; |
5240 |
goto T1844; |
goto T1844; |
5241 |
T1844:; |
T1844:; |
5242 |
V497 = make_fixnum((long)length((V487))); |
V495 = make_fixnum((long)length((V485))); |
5243 |
{register object x= V497,V496= VV[239]; |
{register object x= V495,V494= VV[241]; |
5244 |
while(!endp(V496)) |
while(!endp(V494)) |
5245 |
if(eql(x,V496->c.c_car)){ |
if(eql(x,V494->c.c_car)){ |
5246 |
goto T1849; |
goto T1849; |
5247 |
}else V496=V496->c.c_cdr;} |
}else V494=V494->c.c_cdr;} |
5248 |
base[3]= VV[240]; |
base[3]= VV[242]; |
5249 |
base[4]= (V484); |
base[4]= (V482); |
5250 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5251 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5252 |
vs_top=sup; |
vs_top=sup; |
5253 |
goto T1849; |
goto T1849; |
5254 |
T1849:; |
T1849:; |
5255 |
{register object V498; |
{register object V496; |
5256 |
register object V499; |
register object V497; |
5257 |
V498= car((V487)); |
V496= car((V485)); |
5258 |
V499= Cnil; |
V497= Cnil; |
5259 |
goto T1857; |
goto T1857; |
5260 |
T1857:; |
T1857:; |
5261 |
if(((V498))!=Cnil){ |
if(((V496))!=Cnil){ |
5262 |
goto T1858;} |
goto T1858;} |
5263 |
goto T1854; |
goto T1854; |
5264 |
goto T1858; |
goto T1858; |
5265 |
T1858:; |
T1858:; |
5266 |
V499= car((V498)); |
V497= car((V496)); |
5267 |
if(!(type_of((V499))!=t_cons)){ |
if(!(type_of((V497))!=t_cons)){ |
5268 |
goto T1864;} |
goto T1864;} |
5269 |
base[3]= (V499); |
base[3]= (V497); |
5270 |
base[4]= Cnil; |
base[4]= Cnil; |
5271 |
base[5]= Cnil; |
base[5]= Cnil; |
5272 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
5273 |
(void) (*Lnk378)(); |
(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((V499)); |
base[3]= car((V497)); |
5279 |
base[4]= cadr((V499)); |
base[4]= cadr((V497)); |
5280 |
base[5]= caddr((V499)); |
base[5]= caddr((V497)); |
5281 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
5282 |
(void) (*Lnk378)(); |
(void) (*Lnk380)(); |
5283 |
vs_top=sup; |
vs_top=sup; |
5284 |
goto T1862; |
goto T1862; |
5285 |
T1862:; |
T1862:; |
5286 |
V498= cdr((V498)); |
V496= cdr((V496)); |
5287 |
goto T1857;} |
goto T1857;} |
5288 |
goto T1854; |
goto T1854; |
5289 |
T1854:; |
T1854:; |
5290 |
V500= reverse(cadr((V487))); |
V498= reverse(cadr((V485))); |
5291 |
setq(VV[106],nconc(/* INLINE-ARGS */V500,symbol_value(VV[106]))); |
setq(VV[106],nconc(/* INLINE-ARGS */V498,symbol_value(VV[106]))); |
5292 |
base[3]= cddr((V487)); |
base[3]= cddr((V485)); |
5293 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5294 |
return;} |
return;} |
5295 |
} |
} |
5300 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5301 |
register object *sup=base+VM82; VC82 |
register object *sup=base+VM82; VC82 |
5302 |
vs_reserve(VM82); |
vs_reserve(VM82); |
5303 |
{object V501; |
{object V499; |
5304 |
check_arg(1); |
check_arg(1); |
5305 |
V501=(base[0]); |
V499=(base[0]); |
5306 |
vs_top=sup; |
vs_top=sup; |
5307 |
goto TTL; |
goto TTL; |
5308 |
TTL:; |
TTL:; |
5309 |
{object V502; |
{object V500; |
5310 |
base[1]= (V501); |
base[1]= (V499); |
5311 |
base[2]= symbol_value(VV[102]); |
base[2]= symbol_value(VV[102]); |
5312 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5313 |
(void) (*Lnk383)(); |
(void) (*Lnk385)(); |
5314 |
vs_top=sup; |
vs_top=sup; |
5315 |
V502= vs_base[0]; |
V500= vs_base[0]; |
5316 |
if(((V502))!=Cnil){ |
if(((V500))!=Cnil){ |
5317 |
goto T1882;} |
goto T1882;} |
5318 |
vs_base=vs_top; |
vs_base=vs_top; |
5319 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
5320 |
vs_top=sup; |
vs_top=sup; |
5321 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
5322 |
base[2]= Cnil; |
base[2]= Cnil; |
5324 |
return; |
return; |
5325 |
goto T1882; |
goto T1882; |
5326 |
T1882:; |
T1882:; |
5327 |
setq(VV[102],(VFUN_NARGS=2,(*(LnkLI384))((V502),symbol_value(VV[102])))); |
setq(VV[102],(VFUN_NARGS=2,(*(LnkLI386))((V500),symbol_value(VV[102])))); |
5328 |
base[1]= cdr((V502)); |
base[1]= cdr((V500)); |
5329 |
base[2]= Ct; |
base[2]= Ct; |
5330 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5331 |
return;} |
return;} |
5337 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5338 |
register object *sup=base+VM83; VC83 |
register object *sup=base+VM83; VC83 |
5339 |
vs_reserve(VM83); |
vs_reserve(VM83); |
5340 |
{object V503; |
{object V501; |
5341 |
object V504; |
object V502; |
5342 |
object V505; |
object V503; |
5343 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
5344 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
5345 |
V503=(base[0]); |
V501=(base[0]); |
5346 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
5347 |
if(vs_base>=vs_top){vs_top=sup;goto T1890;} |
if(vs_base>=vs_top){vs_top=sup;goto T1890;} |
5348 |
V504=(base[1]); |
V502=(base[1]); |
5349 |
vs_base++; |
vs_base++; |
5350 |
if(vs_base>=vs_top){vs_top=sup;goto T1891;} |
if(vs_base>=vs_top){vs_top=sup;goto T1891;} |
5351 |
V505=(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 |
V504= Cnil; |
V502= Cnil; |
5357 |
goto T1891; |
goto T1891; |
5358 |
T1891:; |
T1891:; |
5359 |
V505= 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); |
5364 |
{object V506; |
{object V504; |
5365 |
object V507; |
object V505; |
5366 |
register object V508; |
register object V506; |
5367 |
register object V509; |
register object V507; |
5368 |
object V510; |
object V508; |
5369 |
object V511; |
object V509; |
5370 |
{object V512; |
{object V510; |
5371 |
object V513= (V505); |
object V511= (V503); |
5372 |
if(endp(V513)){ |
if(endp(V511)){ |
5373 |
V510= Cnil; |
V508= Cnil; |
5374 |
goto T1895;} |
goto T1895;} |
5375 |
base[4]=V512=MMcons(Cnil,Cnil); |
base[4]=V510=MMcons(Cnil,Cnil); |
5376 |
goto T1896; |
goto T1896; |
5377 |
T1896:; |
T1896:; |
5378 |
V515= car((V513->c.c_car)); |
V513= car((V511->c.c_car)); |
5379 |
V516= (base[3]->c.c_car); |
V514= (base[3]->c.c_car); |
5380 |
base[5]= (VFUN_NARGS=4,(*(LnkLI366))(/* INLINE-ARGS */V515,(V503),VV[20],V516)); |
base[5]= (VFUN_NARGS=4,(*(LnkLI368))(/* INLINE-ARGS */V513,(V501),VV[20],V514)); |
5381 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
5382 |
Lcopy_list(); |
Lcopy_list(); |
5383 |
vs_top=sup; |
vs_top=sup; |
5384 |
(V512->c.c_cdr)= vs_base[0]; |
(V510->c.c_cdr)= vs_base[0]; |
5385 |
{object cdr_V512=MMcdr(V512);while(!endp(cdr_V512)) {cdr_V512=MMcdr(cdr_V512);V512=MMcdr(V512);}} |
{object cdr_V510=MMcdr(V510);while(!endp(cdr_V510)) {cdr_V510=MMcdr(cdr_V510);V510=MMcdr(V510);}} |
5386 |
V513=MMcdr(V513); |
V511=MMcdr(V511); |
5387 |
if(endp(V513)){ |
if(endp(V511)){ |
5388 |
base[4]=base[4]->c.c_cdr; |
base[4]=base[4]->c.c_cdr; |
5389 |
V510= 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 V517; |
{object V515; |
5395 |
object V518= (V505); |
object V516= (V503); |
5396 |
if(endp(V518)){ |
if(endp(V516)){ |
5397 |
V511= Cnil; |
V509= Cnil; |
5398 |
goto T1900;} |
goto T1900;} |
5399 |
base[4]=V517=MMcons(Cnil,Cnil); |
base[4]=V515=MMcons(Cnil,Cnil); |
5400 |
goto T1901; |
goto T1901; |
5401 |
T1901:; |
T1901:; |
5402 |
(V517->c.c_car)= car((V518->c.c_car)); |
(V515->c.c_car)= car((V516->c.c_car)); |
5403 |
V518=MMcdr(V518); |
V516=MMcdr(V516); |
5404 |
if(endp(V518)){ |
if(endp(V516)){ |
5405 |
V511= base[4]; |
V509= base[4]; |
5406 |
goto T1900;} |
goto T1900;} |
5407 |
V517=MMcdr(V517)=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; |
5412 |
|
V505= (V503); |
5413 |
V506= Cnil; |
V506= Cnil; |
5414 |
V507= (V505); |
V507= Cnil; |
|
V508= Cnil; |
|
|
V509= 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((V507)); |
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 |
V506= car(symbol_value(VV[89])); |
V504= car(symbol_value(VV[89])); |
5425 |
{register object V519; |
{register object V517; |
5426 |
register object V520; |
register object V518; |
5427 |
V519= (V503); |
V517= (V501); |
5428 |
V520= car((V519)); |
V518= car((V517)); |
5429 |
goto T1915; |
goto T1915; |
5430 |
T1915:; |
T1915:; |
5431 |
if(!(endp_prop((V519)))){ |
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]= (V506); |
base[5]= (V504); |
5437 |
base[6]= (V520); |
base[6]= (V518); |
5438 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
5439 |
L96(base); |
L96(base); |
5440 |
vs_top=sup; |
vs_top=sup; |
5441 |
V509= vs_base[0]; |
V507= vs_base[0]; |
5442 |
if(((V509))==Cnil){ |
if(((V507))==Cnil){ |
5443 |
goto T1920;} |
goto T1920;} |
5444 |
V508= (V520); |
V506= (V518); |
5445 |
goto T1911; |
goto T1911; |
5446 |
goto T1920; |
goto T1920; |
5447 |
T1920:; |
T1920:; |
5448 |
V519= cdr((V519)); |
V517= cdr((V517)); |
5449 |
V520= car((V519)); |
V518= car((V517)); |
5450 |
goto T1915;} |
goto T1915;} |
5451 |
goto T1911; |
goto T1911; |
5452 |
T1911:; |
T1911:; |
5453 |
if(((V508))==Cnil){ |
if(((V506))==Cnil){ |
5454 |
goto T1934;} |
goto T1934;} |
5455 |
{register object x= (V509),V521= (V510); |
{register object x= (V507),V519= (V508); |
5456 |
while(!endp(V521)) |
while(!endp(V519)) |
5457 |
if(eql(x,V521->c.c_car)){ |
if(eql(x,V519->c.c_car)){ |
5458 |
goto T1938; |
goto T1938; |
5459 |
}else V521=V521->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= (V509),V522= (V511); |
{register object x= (V507),V520= (V509); |
5464 |
while(!endp(V522)) |
while(!endp(V520)) |
5465 |
if(eql(x,V522->c.c_car)){ |
if(eql(x,V520->c.c_car)){ |
5466 |
goto T1942; |
goto T1942; |
5467 |
}else V522=V522->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[241]; |
base[4]= VV[243]; |
5472 |
goto T1939; |
goto T1939; |
5473 |
goto T1941; |
goto T1941; |
5474 |
T1941:; |
T1941:; |
5475 |
base[4]= VV[242]; |
base[4]= VV[244]; |
5476 |
goto T1939; |
goto T1939; |
5477 |
T1939:; |
T1939:; |
5478 |
base[5]= (V506); |
base[5]= (V504); |
5479 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5480 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5481 |
vs_top=sup; |
vs_top=sup; |
5482 |
goto T1936; |
goto T1936; |
5483 |
T1936:; |
T1936:; |
5484 |
if(!(type_of((V508))==t_cons||((V508))==Cnil)){ |
if(!(type_of((V506))==t_cons||((V506))==Cnil)){ |
5485 |
goto T1947;} |
goto T1947;} |
5486 |
V511= append((V508),(V511)); |
V509= append((V506),(V509)); |
5487 |
goto T1945; |
goto T1945; |
5488 |
goto T1947; |
goto T1947; |
5489 |
T1947:; |
T1947:; |
5490 |
V511= make_cons((V508),(V511)); |
V509= make_cons((V506),(V509)); |
5491 |
goto T1945; |
goto T1945; |
5492 |
T1945:; |
T1945:; |
5493 |
vs_base=vs_top; |
vs_base=vs_top; |
5494 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
5495 |
vs_top=sup; |
vs_top=sup; |
5496 |
{object V523; |
{object V521; |
5497 |
vs_base=vs_top; |
vs_base=vs_top; |
5498 |
(void) (*Lnk359)(); |
(void) (*Lnk361)(); |
5499 |
vs_top=sup; |
vs_top=sup; |
5500 |
V524= vs_base[0]; |
V522= vs_base[0]; |
5501 |
V523= list(2,(V509),V524); |
V521= list(2,(V507),V522); |
5502 |
V507= make_cons((V523),(V507)); |
V505= make_cons((V521),(V505)); |
5503 |
goto T1932;} |
goto T1932;} |
5504 |
goto T1934; |
goto T1934; |
5505 |
T1934:; |
T1934:; |
5506 |
if(((V504))==Cnil){ |
if(((V502))==Cnil){ |
5507 |
goto T1954;} |
goto T1954;} |
5508 |
base[4]= (V506); |
base[4]= (V504); |
5509 |
base[5]= VV[243]; |
base[5]= VV[245]; |
5510 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5511 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
5512 |
vs_top=sup; |
vs_top=sup; |
5513 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5514 |
goto T1954;} |
goto T1954;} |
5515 |
vs_base=vs_top; |
vs_base=vs_top; |
5516 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
5517 |
vs_top=sup; |
vs_top=sup; |
5518 |
{register object V525; |
{register object V523; |
5519 |
object V526; |
object V524; |
5520 |
vs_base=vs_top; |
vs_base=vs_top; |
5521 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
5522 |
vs_top=sup; |
vs_top=sup; |
5523 |
V525= vs_base[0]; |
V523= vs_base[0]; |
5524 |
V526= Cnil; |
V524= Cnil; |
5525 |
goto T1963; |
goto T1963; |
5526 |
T1963:; |
T1963:; |
5527 |
if(type_of((V525))!=t_cons){ |
if(type_of((V523))!=t_cons){ |
5528 |
goto T1967;} |
goto T1967;} |
5529 |
if(type_of(cdr((V525)))!=t_cons){ |
if(type_of(cdr((V523)))!=t_cons){ |
5530 |
goto T1967;} |
goto T1967;} |
5531 |
if((cddr((V525)))!=Cnil){ |
if((cddr((V523)))!=Cnil){ |
5532 |
goto T1967;} |
goto T1967;} |
5533 |
if(!(type_of(car((V525)))==t_symbol)){ |
if(!(type_of(car((V523)))==t_symbol)){ |
5534 |
goto T1967;} |
goto T1967;} |
5535 |
if((cadr((V525)))==Cnil){ |
if((cadr((V523)))==Cnil){ |
5536 |
goto T1966;} |
goto T1966;} |
5537 |
if(type_of(cadr((V525)))==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[244]; |
base[4]= VV[246]; |
5542 |
base[5]= (V525); |
base[5]= (V523); |
5543 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5544 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5545 |
vs_top=sup; |
vs_top=sup; |
5546 |
goto T1966; |
goto T1966; |
5547 |
T1966:; |
T1966:; |
5548 |
if((cadr((V525)))==Cnil){ |
if((cadr((V523)))==Cnil){ |
5549 |
goto T1981;} |
goto T1981;} |
5550 |
base[4]= car((V525)); |
base[4]= car((V523)); |
5551 |
base[5]= symbol_value(VV[102]); |
base[5]= symbol_value(VV[102]); |
5552 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5553 |
(void) (*Lnk383)(); |
(void) (*Lnk385)(); |
5554 |
vs_top=sup; |
vs_top=sup; |
5555 |
V526= vs_base[0]; |
V524= vs_base[0]; |
5556 |
if(((V526))==Cnil){ |
if(((V524))==Cnil){ |
5557 |
goto T1985;} |
goto T1985;} |
5558 |
base[4]= VV[245]; |
base[4]= VV[247]; |
5559 |
base[5]= car((V525)); |
base[5]= car((V523)); |
5560 |
base[6]= cadr((V525)); |
base[6]= cadr((V523)); |
5561 |
base[7]= cadr((V526)); |
base[7]= cadr((V524)); |
5562 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
5563 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5564 |
vs_top=sup; |
vs_top=sup; |
5565 |
goto T1981; |
goto T1981; |
5566 |
goto T1985; |
goto T1985; |
5567 |
T1985:; |
T1985:; |
5568 |
{object V527; |
{object V525; |
5569 |
V527= make_cons(car((V525)),cadr((V525))); |
V525= make_cons(car((V523)),cadr((V523))); |
5570 |
setq(VV[102],make_cons((V527),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){ |
5580 |
goto T1996; |
goto T1996; |
5581 |
T1996:; |
T1996:; |
5582 |
vs_base=vs_top; |
vs_base=vs_top; |
5583 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
5584 |
vs_top=sup; |
vs_top=sup; |
5585 |
V525= vs_base[0]; |
V523= vs_base[0]; |
5586 |
goto T1963;} |
goto T1963;} |
5587 |
goto T1954; |
goto T1954; |
5588 |
T1954:; |
T1954:; |
5589 |
base[4]= nreverse((V507)); |
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 |
V508= Cnil; |
V506= Cnil; |
5595 |
V509= Cnil; |
V507= Cnil; |
5596 |
goto T1904;} |
goto T1904;} |
5597 |
} |
} |
5598 |
} |
} |
5602 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5603 |
register object *sup=base+VM84; VC84 |
register object *sup=base+VM84; VC84 |
5604 |
vs_reserve(VM84); |
vs_reserve(VM84); |
5605 |
{object V528; |
{object V526; |
5606 |
register object V529; |
register object V527; |
5607 |
|
object V528; |
5608 |
|
object V529; |
5609 |
object V530; |
object V530; |
5610 |
object V531; |
object V531; |
5611 |
object V532; |
object V532; |
5612 |
object V533; |
object V533; |
5613 |
object V534; |
object V534; |
5614 |
object V535; |
object V535; |
|
object V536; |
|
|
object V537; |
|
5615 |
check_arg(10); |
check_arg(10); |
5616 |
V528=(base[0]); |
V526=(base[0]); |
5617 |
V529=(base[1]); |
V527=(base[1]); |
5618 |
V530=(base[2]); |
V528=(base[2]); |
5619 |
V531=(base[3]); |
V529=(base[3]); |
5620 |
V532=(base[4]); |
V530=(base[4]); |
5621 |
V533=(base[5]); |
V531=(base[5]); |
5622 |
V534=(base[6]); |
V532=(base[6]); |
5623 |
V535=(base[7]); |
V533=(base[7]); |
5624 |
V536=(base[8]); |
V534=(base[8]); |
5625 |
V537=(base[9]); |
V535=(base[9]); |
5626 |
vs_top=sup; |
vs_top=sup; |
5627 |
goto TTL; |
goto TTL; |
5628 |
TTL:; |
TTL:; |
5629 |
{object V538; |
{object V536; |
5630 |
|
object V537; |
5631 |
|
object V538; |
5632 |
object V539; |
object V539; |
5633 |
object V540; |
object V540; |
5634 |
object V541; |
object V541; |
5635 |
object V542; |
object V542; |
5636 |
object V543; |
register object V543; |
5637 |
object V544; |
register object V544; |
5638 |
register object V545; |
object V545; |
5639 |
register object V546; |
object V546; |
5640 |
object V547; |
object V547; |
5641 |
object V548; |
object V548; |
5642 |
object V549; |
object V549; |
5643 |
object V550; |
object V550;{object V552; |
5644 |
object V551; |
base[10]= (V527); |
|
object V552;{object V554; |
|
|
base[10]= (V529); |
|
5645 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5646 |
(void) (*Lnk327)(); |
(void) (*Lnk329)(); |
5647 |
vs_top=sup; |
vs_top=sup; |
5648 |
V554= vs_base[0]; |
V552= vs_base[0]; |
5649 |
if(V554==Cnil)goto T2010; |
if(V552==Cnil)goto T2010; |
5650 |
V553= V554; |
V551= V552; |
5651 |
goto T2009; |
goto T2009; |
5652 |
goto T2010; |
goto T2010; |
5653 |
T2010:;} |
T2010:;} |
5654 |
V553= small_fixnum(0); |
V551= small_fixnum(0); |
5655 |
goto T2009; |
goto T2009; |
5656 |
T2009:; |
T2009:; |
5657 |
V542= one_plus(V553); |
V540= one_plus(V551); |
5658 |
|
V536= Cnil; |
5659 |
|
V537= Cnil; |
5660 |
V538= Cnil; |
V538= Cnil; |
5661 |
V539= Cnil; |
V539= Cnil; |
5662 |
V540= Cnil; |
V541= Ct; |
5663 |
V541= Cnil; |
V542= Cnil; |
5664 |
V543= Ct; |
V543= Cnil; |
5665 |
V544= Cnil; |
V544= Cnil; |
5666 |
V545= Cnil; |
V545= Cnil; |
5667 |
V546= Cnil; |
V546= Cnil; |
5669 |
V548= Cnil; |
V548= Cnil; |
5670 |
V549= Cnil; |
V549= Cnil; |
5671 |
V550= Cnil; |
V550= Cnil; |
5672 |
V551= Cnil; |
if(((V529))==Cnil){ |
|
V552= Cnil; |
|
|
if(((V531))==Cnil){ |
|
5673 |
goto T2013;} |
goto T2013;} |
5674 |
base[10]= (V531); |
base[10]= (V529); |
5675 |
base[11]= Cnil; |
base[11]= Cnil; |
5676 |
base[12]= (V532); |
base[12]= (V530); |
5677 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5678 |
(void) (*Lnk378)(); |
(void) (*Lnk380)(); |
5679 |
vs_top=sup; |
vs_top=sup; |
5680 |
goto T2013; |
goto T2013; |
5681 |
T2013:; |
T2013:; |
5682 |
{register object V555; |
{register object V553; |
5683 |
register object V556; |
register object V554; |
5684 |
register object V557; |
register object V555; |
5685 |
object V558; |
object V556; |
5686 |
V555= (V537); |
V553= (V535); |
5687 |
|
V554= Cnil; |
5688 |
|
V555= Cnil; |
5689 |
V556= Cnil; |
V556= Cnil; |
|
V557= Cnil; |
|
|
V558= Cnil; |
|
5690 |
goto T2021; |
goto T2021; |
5691 |
T2021:; |
T2021:; |
5692 |
if(((V555))!=Cnil){ |
if(((V553))!=Cnil){ |
5693 |
goto T2022;} |
goto T2022;} |
5694 |
goto T2019; |
goto T2019; |
5695 |
goto T2022; |
goto T2022; |
5696 |
T2022:; |
T2022:; |
5697 |
V556= caar((V555)); |
V554= caar((V553)); |
5698 |
V557= cadar((V555)); |
V555= cadar((V553)); |
5699 |
{object V559= (V556); |
{object V557= (V554); |
5700 |
if((V559!= VV[385]) |
if((V557!= VV[387]) |
5701 |
&& (V559!= VV[232]))goto T2031; |
&& (V557!= VV[234]))goto T2031; |
5702 |
V539= Ct; |
V537= Ct; |
5703 |
base[10]= (V533); |
base[10]= (V531); |
5704 |
base[11]= (V557); |
base[11]= (V555); |
5705 |
base[12]= (V534); |
base[12]= (V532); |
5706 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5707 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
5708 |
vs_top=sup; |
vs_top=sup; |
5709 |
goto T2030; |
goto T2030; |
5710 |
goto T2031; |
goto T2031; |
5711 |
T2031:; |
T2031:; |
5712 |
if((V559!= VV[386]) |
if((V557!= VV[388]) |
5713 |
&& (V559!= VV[246]) |
&& (V557!= VV[248]) |
5714 |
&& (V559!= VV[248]))goto T2037; |
&& (V557!= VV[250]))goto T2037; |
5715 |
V547= Ct; |
V545= Ct; |
5716 |
if(!(((V556))==(VV[246]))){ |
if(!(((V554))==(VV[248]))){ |
5717 |
goto T2042;} |
goto T2042;} |
5718 |
V545= VV[247]; |
V543= VV[249]; |
5719 |
goto T2040; |
goto T2040; |
5720 |
goto T2042; |
goto T2042; |
5721 |
T2042:; |
T2042:; |
5722 |
if(!(((V556))==(VV[248]))){ |
if(!(((V554))==(VV[250]))){ |
5723 |
goto T2040;} |
goto T2040;} |
5724 |
V545= VV[249]; |
V543= VV[251]; |
5725 |
goto T2040; |
goto T2040; |
5726 |
T2040:; |
T2040:; |
5727 |
base[10]= (V557); |
base[10]= (V555); |
5728 |
base[11]= (V529); |
base[11]= (V527); |
5729 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5730 |
(void) (*Lnk377)(); |
(void) (*Lnk379)(); |
5731 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5732 |
V557= vs_base[0]; |
V555= vs_base[0]; |
5733 |
vs_base++; |
vs_base++; |
5734 |
}else{ |
}else{ |
5735 |
V557= Cnil;} |
V555= Cnil;} |
5736 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5737 |
V549= vs_base[0]; |
V547= vs_base[0]; |
5738 |
vs_base++; |
vs_base++; |
5739 |
}else{ |
}else{ |
5740 |
V549= Cnil;} |
V547= Cnil;} |
5741 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5742 |
V548= vs_base[0]; |
V546= vs_base[0]; |
5743 |
}else{ |
}else{ |
5744 |
V548= Cnil;} |
V546= Cnil;} |
5745 |
vs_top=sup; |
vs_top=sup; |
5746 |
base[10]= (V528); |
base[10]= (V526); |
5747 |
base[11]= (V557); |
base[11]= (V555); |
5748 |
base[12]= (V529); |
base[12]= (V527); |
5749 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5750 |
(void) (*Lnk378)(); |
(void) (*Lnk380)(); |
5751 |
vs_top=sup; |
vs_top=sup; |
5752 |
goto T2030; |
goto T2030; |
5753 |
goto T2037; |
goto T2037; |
5754 |
T2037:; |
T2037:; |
5755 |
if((V559!= VV[250]) |
if((V557!= VV[252]) |
5756 |
&& (V559!= VV[251]) |
&& (V557!= VV[253]) |
5757 |
&& (V559!= VV[252]) |
&& (V557!= VV[254]) |
5758 |
&& (V559!= VV[253]) |
&& (V557!= VV[255]) |
5759 |
&& (V559!= VV[254]))goto T2055; |
&& (V557!= VV[256]))goto T2055; |
5760 |
base[10]= (V556); |
base[10]= (V554); |
5761 |
base[11]= VV[250]; |
base[11]= VV[252]; |
5762 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5763 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
5764 |
vs_top=sup; |
vs_top=sup; |
5765 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5766 |
goto T2058;} |
goto T2058;} |
5767 |
V545= VV[249]; |
V543= VV[251]; |
5768 |
V546= VV[249]; |
V544= VV[251]; |
5769 |
goto T2056; |
goto T2056; |
5770 |
goto T2058; |
goto T2058; |
5771 |
T2058:; |
T2058:; |
5772 |
base[10]= (V556); |
base[10]= (V554); |
5773 |
base[11]= VV[251]; |
base[11]= VV[253]; |
5774 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5775 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
5776 |
vs_top=sup; |
vs_top=sup; |
5777 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5778 |
goto T2065;} |
goto T2065;} |
5779 |
V546= Ct; |
V544= Ct; |
5780 |
goto T2056; |
goto T2056; |
5781 |
goto T2065; |
goto T2065; |
5782 |
T2065:; |
T2065:; |
5783 |
base[10]= (V556); |
base[10]= (V554); |
5784 |
base[11]= VV[252]; |
base[11]= VV[254]; |
5785 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5786 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
5787 |
vs_top=sup; |
vs_top=sup; |
5788 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5789 |
goto T2071;} |
goto T2071;} |
5790 |
V545= VV[247]; |
V543= VV[249]; |
5791 |
V546= VV[247]; |
V544= VV[249]; |
5792 |
goto T2056; |
goto T2056; |
5793 |
goto T2071; |
goto T2071; |
5794 |
T2071:; |
T2071:; |
5795 |
base[10]= (V556); |
base[10]= (V554); |
5796 |
base[11]= VV[253]; |
base[11]= VV[255]; |
5797 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5798 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
5799 |
vs_top=sup; |
vs_top=sup; |
5800 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5801 |
goto T2078;} |
goto T2078;} |
5802 |
V545= VV[247]; |
V543= VV[249]; |
5803 |
goto T2056; |
goto T2056; |
5804 |
goto T2078; |
goto T2078; |
5805 |
T2078:; |
T2078:; |
5806 |
base[10]= (V556); |
base[10]= (V554); |
5807 |
base[11]= VV[254]; |
base[11]= VV[256]; |
5808 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5809 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
5810 |
vs_top=sup; |
vs_top=sup; |
5811 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5812 |
goto T2056;} |
goto T2056;} |
5813 |
V545= VV[249]; |
V543= VV[251]; |
5814 |
goto T2056; |
goto T2056; |
5815 |
T2056:; |
T2056:; |
5816 |
V550= Ct; |
V548= Ct; |
5817 |
base[10]= (V557); |
base[10]= (V555); |
5818 |
base[11]= (V529); |
base[11]= (V527); |
5819 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5820 |
(void) (*Lnk377)(); |
(void) (*Lnk379)(); |
5821 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5822 |
V557= vs_base[0]; |
V555= vs_base[0]; |
5823 |
vs_base++; |
vs_base++; |
5824 |
}else{ |
}else{ |
5825 |
V557= Cnil;} |
V555= Cnil;} |
5826 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5827 |
V551= vs_base[0]; |
V549= vs_base[0]; |
5828 |
vs_base++; |
vs_base++; |
5829 |
}else{ |
}else{ |
5830 |
V551= Cnil;} |
V549= Cnil;} |
5831 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5832 |
V552= vs_base[0]; |
V550= vs_base[0]; |
5833 |
}else{ |
}else{ |
5834 |
V552= Cnil;} |
V550= Cnil;} |
5835 |
vs_top=sup; |
vs_top=sup; |
5836 |
if(((V551))==Cnil){ |
if(((V549))==Cnil){ |
5837 |
goto T2096;} |
goto T2096;} |
5838 |
V538= list(2,VV[215],(V552)); |
V536= list(2,VV[217],(V550)); |
5839 |
goto T2094; |
goto T2094; |
5840 |
goto T2096; |
goto T2096; |
5841 |
T2096:; |
T2096:; |
5842 |
base[11]= VV[255]; |
base[11]= VV[257]; |
5843 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
5844 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
5845 |
vs_top=sup; |
vs_top=sup; |
5846 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
5847 |
base[11]= (V557); |
base[11]= (V555); |
5848 |
base[12]= (V529); |
base[12]= (V527); |
5849 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5850 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
5851 |
vs_top=sup; |
vs_top=sup; |
5852 |
V538= 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((V559!= VV[213]))goto T2102; |
if((V557!= VV[215]))goto T2102; |
5859 |
base[10]= (V557); |
base[10]= (V555); |
5860 |
base[11]= (V529); |
base[11]= (V527); |
5861 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5862 |
(void) (*Lnk377)(); |
(void) (*Lnk379)(); |
5863 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5864 |
V557= vs_base[0]; |
V555= vs_base[0]; |
5865 |
vs_base++; |
vs_base++; |
5866 |
}else{ |
}else{ |
5867 |
V557= Cnil;} |
V555= Cnil;} |
5868 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5869 |
V543= vs_base[0]; |
V541= vs_base[0]; |
5870 |
vs_base++; |
vs_base++; |
5871 |
}else{ |
}else{ |
5872 |
V543= Cnil;} |
V541= Cnil;} |
5873 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5874 |
V542= vs_base[0]; |
V540= vs_base[0]; |
5875 |
}else{ |
}else{ |
5876 |
V542= Cnil;} |
V540= Cnil;} |
5877 |
vs_top=sup; |
vs_top=sup; |
5878 |
if(((V543))!=Cnil){ |
if(((V541))!=Cnil){ |
5879 |
goto T2030;} |
goto T2030;} |
5880 |
base[11]= VV[256]; |
base[11]= VV[258]; |
5881 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
5882 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
5883 |
vs_top=sup; |
vs_top=sup; |
5884 |
V542= vs_base[0]; |
V540= vs_base[0]; |
5885 |
base[10]= (V542); |
base[10]= (V540); |
5886 |
base[11]= (V557); |
base[11]= (V555); |
5887 |
base[12]= (V529); |
base[12]= (V527); |
5888 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5889 |
(void) (*Lnk357)(); |
(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[257]; |
base[10]= VV[259]; |
5895 |
base[11]= (V556); |
base[11]= (V554); |
5896 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5897 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5898 |
vs_top=sup;} |
vs_top=sup;} |
5899 |
goto T2030; |
goto T2030; |
5900 |
T2030:; |
T2030:; |
5901 |
if(((V558))==Cnil){ |
if(((V556))==Cnil){ |
5902 |
goto T2116;} |
goto T2116;} |
5903 |
if(((V545))==Cnil){ |
if(((V543))==Cnil){ |
5904 |
goto T2116;} |
goto T2116;} |
5905 |
if(((V545))==((V558))){ |
if(((V543))==((V556))){ |
5906 |
goto T2116;} |
goto T2116;} |
5907 |
base[10]= VV[258]; |
base[10]= VV[260]; |
5908 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5909 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5910 |
vs_top=sup; |
vs_top=sup; |
5911 |
goto T2116; |
goto T2116; |
5912 |
T2116:; |
T2116:; |
5913 |
V558= (V545); |
V556= (V543); |
5914 |
V555= cdr((V555)); |
V553= cdr((V553)); |
5915 |
goto T2021;} |
goto T2021;} |
5916 |
goto T2019; |
goto T2019; |
5917 |
T2019:; |
T2019:; |
5918 |
if(((V533))==Cnil){ |
if(((V531))==Cnil){ |
5919 |
goto T2129;} |
goto T2129;} |
5920 |
if(((V539))!=Cnil){ |
if(((V537))!=Cnil){ |
5921 |
goto T2129;} |
goto T2129;} |
5922 |
base[10]= VV[259]; |
base[10]= VV[261]; |
5923 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5924 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
5925 |
vs_top=sup; |
vs_top=sup; |
5926 |
goto T2129; |
goto T2129; |
5927 |
T2129:; |
T2129:; |
5928 |
if(((V547))!=Cnil){ |
if(((V545))!=Cnil){ |
5929 |
goto T2135;} |
goto T2135;} |
5930 |
base[10]= (V528); |
base[10]= (V526); |
5931 |
V549= Ct;{object V560; |
V547= Ct;{object V558; |
5932 |
base[12]= (V529); |
base[12]= (V527); |
5933 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
5934 |
(void) (*Lnk327)(); |
(void) (*Lnk329)(); |
5935 |
vs_top=sup; |
vs_top=sup; |
5936 |
V560= vs_base[0]; |
V558= vs_base[0]; |
5937 |
if(V560==Cnil)goto T2143; |
if(V558==Cnil)goto T2143; |
5938 |
V548= V560; |
V546= V558; |
5939 |
goto T2142; |
goto T2142; |
5940 |
goto T2143; |
goto T2143; |
5941 |
T2143:;} |
T2143:;} |
5942 |
V548= small_fixnum(0); |
V546= small_fixnum(0); |
5943 |
goto T2142; |
goto T2142; |
5944 |
T2142:; |
T2142:; |
5945 |
base[11]= (V548); |
base[11]= (V546); |
5946 |
base[12]= (V529); |
base[12]= (V527); |
5947 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5948 |
(void) (*Lnk378)(); |
(void) (*Lnk380)(); |
5949 |
vs_top=sup; |
vs_top=sup; |
5950 |
goto T2135; |
goto T2135; |
5951 |
T2135:; |
T2135:; |
5952 |
{register object x= (V545),V561= VV[260]; |
{register object x= (V543),V559= VV[262]; |
5953 |
while(!endp(V561)) |
while(!endp(V559)) |
5954 |
if(eql(x,V561->c.c_car)){ |
if(eql(x,V559->c.c_car)){ |
5955 |
goto T2150; |
goto T2150; |
5956 |
}else V561=V561->c.c_cdr; |
}else V559=V559->c.c_cdr; |
5957 |
goto T2149;} |
goto T2149;} |
5958 |
goto T2150; |
goto T2150; |
5959 |
T2150:; |
T2150:; |
5960 |
if(((V550))!=Cnil){ |
if(((V548))!=Cnil){ |
5961 |
goto T2152;} |
goto T2152;} |
5962 |
if(((V536))==Cnil){ |
if(((V534))==Cnil){ |
5963 |
goto T2151;} |
goto T2151;} |
5964 |
goto T2152; |
goto T2152; |
5965 |
T2152:; |
T2152:; |
5966 |
if(((V550))!=Cnil){ |
if(((V548))!=Cnil){ |
5967 |
goto T2156;} |
goto T2156;} |
5968 |
base[11]= VV[261]; |
base[11]= VV[263]; |
5969 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
5970 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
5971 |
vs_top=sup; |
vs_top=sup; |
5972 |
V538= vs_base[0]; |
V536= vs_base[0]; |
5973 |
base[10]= (V538); |
base[10]= (V536); |
5974 |
base[11]= Cnil; |
base[11]= Cnil; |
5975 |
base[12]= (V529); |
base[12]= (V527); |
5976 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5977 |
(void) (*Lnk357)(); |
(void) (*Lnk359)(); |
5978 |
vs_top=sup; |
vs_top=sup; |
5979 |
{object V562; |
{object V560; |
5980 |
V562= list(3,VV[11],(V538),(V536)); |
V560= list(3,VV[11],(V536),(V534)); |
5981 |
setq(VV[106],make_cons((V562),symbol_value(VV[106])));} |
setq(VV[106],make_cons((V560),symbol_value(VV[106])));} |
5982 |
goto T2156; |
goto T2156; |
5983 |
T2156:; |
T2156:; |
5984 |
if(((V546))==Cnil){ |
if(((V544))==Cnil){ |
5985 |
goto T2169;} |
goto T2169;} |
5986 |
V540= VV[34]; |
V538= VV[34]; |
5987 |
goto T2167; |
goto T2167; |
5988 |
goto T2169; |
goto T2169; |
5989 |
T2169:; |
T2169:; |
5990 |
V540= VV[211]; |
V538= VV[213]; |
5991 |
goto T2167; |
goto T2167; |
5992 |
T2167:; |
T2167:; |
5993 |
goto T2151; |
goto T2151; |
5994 |
T2151:; |
T2151:; |
5995 |
if(!(eql((V542),small_fixnum(1)))){ |
if(!(eql((V540),small_fixnum(1)))){ |
5996 |
goto T2173;} |
goto T2173;} |
5997 |
V544= list(2,VV[178],(V528)); |
V542= list(2,VV[180],(V526)); |
5998 |
goto T2171; |
goto T2171; |
5999 |
goto T2173; |
goto T2173; |
6000 |
T2173:; |
T2173:; |
6001 |
V544= list(3,VV[179],(V528),(V542)); |
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(((V547))!=Cnil){ |
if(((V545))!=Cnil){ |
6008 |
goto T2175;} |
goto T2175;} |
6009 |
if(((V536))!=Cnil){ |
if(((V534))!=Cnil){ |
6010 |
goto T2178;} |
goto T2178;} |
6011 |
base[10]= VV[262]; |
base[10]= VV[264]; |
6012 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6013 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
6014 |
vs_top=sup; |
vs_top=sup; |
6015 |
goto T2178; |
goto T2178; |
6016 |
T2178:; |
T2178:; |
6017 |
{object V563; |
{object V561; |
6018 |
V563= list(3,VV[11],(V528),list(2,VV[197],(V536))); |
V561= list(3,VV[11],(V526),list(2,VV[199],(V534))); |
6019 |
setq(VV[106],make_cons((V563),symbol_value(VV[106])));} |
setq(VV[106],make_cons((V561),symbol_value(VV[106])));} |
6020 |
goto T2175; |
goto T2175; |
6021 |
T2175:; |
T2175:; |
6022 |
if(((V536))==Cnil){ |
if(((V534))==Cnil){ |
6023 |
goto T2184;} |
goto T2184;} |
6024 |
if(((V538))!=Cnil){ |
if(((V536))!=Cnil){ |
6025 |
goto T2184;} |
goto T2184;} |
6026 |
base[10]= (V529); |
base[10]= (V527); |
6027 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6028 |
(void) (*Lnk327)(); |
(void) (*Lnk329)(); |
6029 |
vs_top=sup; |
vs_top=sup; |
6030 |
V538= vs_base[0]; |
V536= vs_base[0]; |
6031 |
V546= Ct; |
V544= Ct; |
6032 |
goto T2184; |
goto T2184; |
6033 |
T2184:; |
T2184:; |
6034 |
if(((V538))==Cnil){ |
if(((V536))==Cnil){ |
6035 |
goto T2193;} |
goto T2193;} |
6036 |
if(((V546))==Cnil){ |
if(((V544))==Cnil){ |
6037 |
goto T2198;} |
goto T2198;} |
6038 |
V540= VV[33]; |
V538= VV[33]; |
6039 |
goto T2196; |
goto T2196; |
6040 |
goto T2198; |
goto T2198; |
6041 |
T2198:; |
T2198:; |
6042 |
V540= VV[263]; |
V538= VV[265]; |
6043 |
goto T2196; |
goto T2196; |
6044 |
T2196:; |
T2196:; |
6045 |
goto T2193; |
goto T2193; |
6046 |
T2193:; |
T2193:; |
6047 |
if(!(eql((V542),small_fixnum(1)))){ |
if(!(eql((V540),small_fixnum(1)))){ |
6048 |
goto T2202;} |
goto T2202;} |
6049 |
V544= list(2,VV[197],(V528)); |
V542= list(2,VV[199],(V526)); |
6050 |
goto T2200; |
goto T2200; |
6051 |
goto T2202; |
goto T2202; |
6052 |
T2202:; |
T2202:; |
6053 |
V544= list(3,VV[264],(V528),(V542)); |
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(((V540))==Cnil){ |
if(((V538))==Cnil){ |
6059 |
goto T2204;} |
goto T2204;} |
6060 |
base[10]= Ct; |
base[10]= Ct; |
6061 |
base[11]= (V528); |
base[11]= (V526); |
6062 |
base[12]= list(3,(V540),(V528),(V538)); |
base[12]= list(3,(V538),(V526),(V536)); |
6063 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
6064 |
(void) (*Lnk329)(); |
(void) (*Lnk331)(); |
6065 |
vs_top=sup; |
vs_top=sup; |
6066 |
V541= vs_base[0]; |
V539= vs_base[0]; |
6067 |
goto T2204; |
goto T2204; |
6068 |
T2204:; |
T2204:; |
6069 |
if(((V535))==Cnil){ |
if(((V533))==Cnil){ |
6070 |
goto T2211;} |
goto T2211;} |
6071 |
base[10]= (V530); |
base[10]= (V528); |
6072 |
base[11]= (V528); |
base[11]= (V526); |
6073 |
base[12]= (V535); |
base[12]= (V533); |
6074 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
6075 |
(void) (*Lnk329)(); |
(void) (*Lnk331)(); |
6076 |
vs_top=sup; |
vs_top=sup; |
6077 |
V564= vs_base[0]; |
V562= vs_base[0]; |
6078 |
V535= list(2,(V531),V564); |
V533= list(2,(V529),V562); |
6079 |
goto T2211; |
goto T2211; |
6080 |
T2211:; |
T2211:; |
6081 |
{object V565; |
{object V563; |
6082 |
object V566; |
object V564; |
6083 |
V565= (V541); |
V563= (V539); |
6084 |
V566= (V541); |
V564= (V539); |
6085 |
if(((V543))==Cnil){ |
if(((V541))==Cnil){ |
6086 |
goto T2219;} |
goto T2219;} |
6087 |
if(((V549))==Cnil){ |
if(((V547))==Cnil){ |
6088 |
goto T2219;} |
goto T2219;} |
6089 |
if(((V551))==Cnil){ |
if(((V549))==Cnil){ |
6090 |
goto T2219;} |
goto T2219;} |
6091 |
base[10]= (V540); |
base[10]= (V538); |
6092 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6093 |
Lsymbol_function(); |
Lsymbol_function(); |
6094 |
vs_top=sup; |
vs_top=sup; |
6095 |
V567= vs_base[0]; |
V565= vs_base[0]; |
6096 |
V565= ( |
V563= ( |
6097 |
V568 = V567, |
V566 = V565, |
6098 |
(type_of(V568) == t_sfun ?(*((V568)->sfn.sfn_self)): |
(type_of(V566) == t_sfun ?(*((V566)->sfn.sfn_self)): |
6099 |
(fcall.fun=(V568),fcall.argd=2,fcalln))((V548),(V552))); |
(fcall.fun=(V566),fcall.argd=2,fcalln))((V546),(V550))); |
6100 |
if(((V565))==Cnil){ |
if(((V563))==Cnil){ |
6101 |
goto T2219;} |
goto T2219;} |
6102 |
V566= Ct; |
V564= Ct; |
6103 |
goto T2219; |
goto T2219; |
6104 |
T2219:; |
T2219:; |
6105 |
base[10]= Ct; |
base[10]= Ct; |
6106 |
base[11]= (V528); |
base[11]= (V526); |
6107 |
base[12]= (V544); |
base[12]= (V542); |
6108 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
6109 |
(void) (*Lnk329)(); |
(void) (*Lnk331)(); |
6110 |
vs_top=sup; |
vs_top=sup; |
6111 |
V569= vs_base[0]; |
V567= vs_base[0]; |
6112 |
base[10]= list(8,Cnil,list(2,(V528),V569),(V566),(V535),Cnil,Cnil,(V565),(V535)); |
base[10]= list(8,Cnil,list(2,(V526),V567),(V564),(V533),Cnil,Cnil,(V563),(V533)); |
6113 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6114 |
return;}} |
return;}} |
6115 |
} |
} |
6120 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6121 |
register object *sup=base+VM85; VC85 |
register object *sup=base+VM85; VC85 |
6122 |
vs_reserve(VM85); |
vs_reserve(VM85); |
6123 |
{object V570; |
{object V568; |
6124 |
|
object V569; |
6125 |
|
object V570; |
6126 |
object V571; |
object V571; |
|
object V572; |
|
|
object V573; |
|
6127 |
check_arg(4); |
check_arg(4); |
6128 |
V570=(base[0]); |
V568=(base[0]); |
6129 |
V571=(base[1]); |
V569=(base[1]); |
6130 |
V572=(base[2]); |
V570=(base[2]); |
6131 |
V573=(base[3]); |
V571=(base[3]); |
6132 |
vs_top=sup; |
vs_top=sup; |
6133 |
goto TTL; |
goto TTL; |
6134 |
TTL:; |
TTL:; |
6135 |
base[4]= (V570); |
base[4]= (V568); |
6136 |
base[6]= (V572); |
base[6]= (V570); |
6137 |
base[7]= symbol_value(VV[181]); |
base[7]= symbol_value(VV[183]); |
6138 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
6139 |
(void) (*Lnk373)(); |
(void) (*Lnk375)(); |
6140 |
vs_top=sup; |
vs_top=sup; |
6141 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
6142 |
base[6]= Ct; |
base[6]= Ct; |
6146 |
base[10]= Cnil; |
base[10]= Cnil; |
6147 |
base[11]= Cnil; |
base[11]= Cnil; |
6148 |
base[12]= Cnil; |
base[12]= Cnil; |
6149 |
base[14]= VV[265]; |
base[14]= VV[267]; |
6150 |
base[15]= Cnil; |
base[15]= Cnil; |
6151 |
V574= list(2,(V573),(V571)); |
V572= list(2,(V571),(V569)); |
6152 |
base[16]= make_cons(/* INLINE-ARGS */V574,Cnil); |
base[16]= make_cons(/* INLINE-ARGS */V572,Cnil); |
6153 |
vs_top=(vs_base=base+14)+3; |
vs_top=(vs_base=base+14)+3; |
6154 |
(void) (*Lnk382)(); |
(void) (*Lnk384)(); |
6155 |
vs_top=sup; |
vs_top=sup; |
6156 |
base[13]= vs_base[0]; |
base[13]= vs_base[0]; |
6157 |
vs_top=(vs_base=base+4)+10; |
vs_top=(vs_base=base+4)+10; |
6158 |
(void) (*Lnk387)(); |
(void) (*Lnk389)(); |
6159 |
return; |
return; |
6160 |
} |
} |
6161 |
} |
} |
6165 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6166 |
register object *sup=base+VM86; VC86 |
register object *sup=base+VM86; VC86 |
6167 |
vs_reserve(VM86); |
vs_reserve(VM86); |
6168 |
{object V575; |
{object V573; |
6169 |
|
object V574; |
6170 |
|
object V575; |
6171 |
object V576; |
object V576; |
6172 |
object V577; |
object V577; |
6173 |
object V578; |
object V578; |
6174 |
object V579; |
object V579; |
|
object V580; |
|
|
object V581; |
|
6175 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
6176 |
parse_key(vs_base+3,FALSE,FALSE,4,VV[388],VV[389],VV[390],VV[391]); |
parse_key(vs_base+3,FALSE,FALSE,4,VV[390],VV[391],VV[392],VV[393]); |
6177 |
V575=(base[0]); |
V573=(base[0]); |
6178 |
V576=(base[1]); |
V574=(base[1]); |
6179 |
V577=(base[2]); |
V575=(base[2]); |
6180 |
vs_top=sup; |
vs_top=sup; |
6181 |
V578=(base[3]); |
V576=(base[3]); |
6182 |
V579=(base[4]); |
V577=(base[4]); |
6183 |
V580=(base[5]); |
V578=(base[5]); |
6184 |
V581=(base[6]); |
V579=(base[6]); |
6185 |
{object V582; |
{object V580; |
6186 |
object V583; |
object V581; |
6187 |
base[11]= VV[266]; |
base[11]= VV[268]; |
6188 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
6189 |
(void) (*Lnk392)(); |
(void) (*Lnk394)(); |
6190 |
if(vs_base>=vs_top){vs_top=sup;goto T2253;} |
if(vs_base>=vs_top){vs_top=sup;goto T2253;} |
6191 |
V582= vs_base[0]; |
V580= vs_base[0]; |
6192 |
vs_base++; |
vs_base++; |
6193 |
if(vs_base>=vs_top){vs_top=sup;goto T2254;} |
if(vs_base>=vs_top){vs_top=sup;goto T2254;} |
6194 |
V583= 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 |
V582= Cnil; |
V580= Cnil; |
6200 |
goto T2254; |
goto T2254; |
6201 |
T2254:; |
T2254:; |
6202 |
V583= Cnil; |
V581= Cnil; |
6203 |
goto T2255; |
goto T2255; |
6204 |
T2255:; |
T2255:; |
6205 |
{object V584; |
{object V582; |
6206 |
base[11]= VV[267]; |
base[11]= VV[269]; |
6207 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
6208 |
(void) (*Lnk392)(); |
(void) (*Lnk394)(); |
6209 |
vs_top=sup; |
vs_top=sup; |
6210 |
V584= vs_base[0]; |
V582= vs_base[0]; |
6211 |
base[11]= (V582); |
base[11]= (V580); |
6212 |
base[12]= VV[208]; |
base[12]= VV[210]; |
6213 |
base[13]= (V583); |
base[13]= (V581); |
6214 |
base[14]= (V575); |
base[14]= (V573); |
6215 |
if((V576)!=Cnil){ |
if((V574)!=Cnil){ |
6216 |
base[15]= (V576); |
base[15]= (V574); |
6217 |
goto T2263;} |
goto T2263;} |
6218 |
base[15]= (V581); |
base[15]= (V579); |
6219 |
goto T2263; |
goto T2263; |
6220 |
T2263:; |
T2263:; |
6221 |
base[16]= (V584); |
base[16]= (V582); |
6222 |
base[17]= (V580); |
base[17]= (V578); |
6223 |
base[18]= list(3,(V578),(V584),(V582)); |
base[18]= list(3,(V576),(V582),(V580)); |
6224 |
base[19]= list(2,(V579),(V584)); |
base[19]= list(2,(V577),(V582)); |
6225 |
base[20]= (V577); |
base[20]= (V575); |
6226 |
vs_top=(vs_base=base+11)+10; |
vs_top=(vs_base=base+11)+10; |
6227 |
(void) (*Lnk387)(); |
(void) (*Lnk389)(); |
6228 |
vs_top=sup; |
vs_top=sup; |
6229 |
V585= vs_base[0]; |
V583= vs_base[0]; |
6230 |
base[11]= listA(3,Cnil,Cnil,V585); |
base[11]= listA(3,Cnil,Cnil,V583); |
6231 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
6232 |
return;}} |
return;}} |
6233 |
} |
} |
6239 |
register object *sup=base+VM87; VC87 |
register object *sup=base+VM87; VC87 |
6240 |
vs_reserve(VM87); |
vs_reserve(VM87); |
6241 |
bds_check; |
bds_check; |
6242 |
{object V586; |
{object V584; |
6243 |
object V587; |
object V585; |
6244 |
object V588; |
object V586; |
6245 |
register object V589; |
register object V587; |
6246 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
6247 |
parse_key(vs_base+3,FALSE,FALSE,1,VV[393]); |
parse_key(vs_base+3,FALSE,FALSE,1,VV[395]); |
6248 |
V586=(base[0]); |
V584=(base[0]); |
6249 |
V587=(base[1]); |
V585=(base[1]); |
6250 |
V588=(base[2]); |
V586=(base[2]); |
6251 |
vs_top=sup; |
vs_top=sup; |
6252 |
V589=(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]= (V589); |
base[7]= (V587); |
6258 |
base[8]= VV[268]; |
base[8]= VV[270]; |
6259 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
6260 |
(void) (*Lnk331)(); |
(void) (*Lnk333)(); |
6261 |
vs_top=sup; |
vs_top=sup; |
6262 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
6263 |
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]; |
6271 |
base[9]= VV[269]; |
base[9]= VV[271]; |
6272 |
base[10]= (V589); |
base[10]= (V587); |
6273 |
base[11]= VV[268]; |
base[11]= VV[270]; |
6274 |
vs_top=(vs_base=base+7)+5; |
vs_top=(vs_base=base+7)+5; |
6275 |
Lcerror(); |
Lcerror(); |
6276 |
vs_top=sup; |
vs_top=sup; |
6277 |
base[7]= symbol_value(VV[50]); |
base[7]= symbol_value(VV[50]); |
6278 |
base[8]= VV[51]; |
base[8]= VV[51]; |
6279 |
base[9]= VV[269]; |
base[9]= VV[271]; |
6280 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
6281 |
Lformat(); |
Lformat(); |
6282 |
vs_top=sup; |
vs_top=sup; |
6287 |
vs_base=vs_top; |
vs_base=vs_top; |
6288 |
Lread(); |
Lread(); |
6289 |
vs_top=sup; |
vs_top=sup; |
6290 |
V589= vs_base[0]; |
V587= vs_base[0]; |
6291 |
base[7]= symbol_value(VV[50]); |
base[7]= symbol_value(VV[50]); |
6292 |
base[8]= VV[52]; |
base[8]= VV[52]; |
6293 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
6296 |
goto T2271; |
goto T2271; |
6297 |
goto T2269; |
goto T2269; |
6298 |
T2269:; |
T2269:; |
6299 |
if((cdr((V588)))!=Cnil){ |
if((cdr((V586)))!=Cnil){ |
6300 |
goto T2298;} |
goto T2298;} |
6301 |
{register object x= caar((V588)),V590= VV[270]; |
{register object x= caar((V586)),V588= VV[272]; |
6302 |
while(!endp(V590)) |
while(!endp(V588)) |
6303 |
if(eql(x,V590->c.c_car)){ |
if(eql(x,V588->c.c_car)){ |
6304 |
goto T2299; |
goto T2299; |
6305 |
}else V590=V590->c.c_cdr;} |
}else V588=V588->c.c_cdr;} |
6306 |
goto T2298; |
goto T2298; |
6307 |
T2298:; |
T2298:; |
6308 |
base[5]= VV[271]; |
base[5]= VV[273]; |
6309 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6310 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
6311 |
vs_top=sup; |
vs_top=sup; |
6312 |
goto T2297; |
goto T2297; |
6313 |
goto T2299; |
goto T2299; |
6314 |
T2299:; |
T2299:; |
6315 |
if(((V588))!=Cnil){ |
if(((V586))!=Cnil){ |
6316 |
goto T2297;} |
goto T2297;} |
6317 |
base[5]= VV[272]; |
base[5]= VV[274]; |
6318 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6319 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
6320 |
vs_top=sup; |
vs_top=sup; |
6321 |
goto T2297; |
goto T2297; |
6322 |
T2297:; |
T2297:; |
6323 |
{object V591; |
{object V589; |
6324 |
object V592; |
object V590; |
6325 |
object V593; |
object V591; |
6326 |
register object V594; |
register object V592; |
6327 |
base[5]= VV[273]; |
base[5]= VV[275]; |
6328 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6329 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
6330 |
vs_top=sup; |
vs_top=sup; |
6331 |
V591= vs_base[0]; |
V589= vs_base[0]; |
6332 |
base[5]= VV[274]; |
base[5]= VV[276]; |
6333 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6334 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
6335 |
vs_top=sup; |
vs_top=sup; |
6336 |
V592= vs_base[0]; |
V590= vs_base[0]; |
6337 |
V593= Cnil; |
V591= Cnil; |
6338 |
V594= Cnil; |
V592= Cnil; |
6339 |
{object V595; |
{object V593; |
6340 |
object V596; |
object V594; |
6341 |
if(!(((V589))==(VV[275]))){ |
if(!(((V587))==(VV[277]))){ |
6342 |
goto T2314;} |
goto T2314;} |
6343 |
base[5]= VV[276]; |
base[5]= VV[278]; |
6344 |
goto T2312; |
goto T2312; |
6345 |
goto T2314; |
goto T2314; |
6346 |
T2314:; |
T2314:; |
6347 |
base[5]= VV[275]; |
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) (*Lnk392)(); |
(void) (*Lnk394)(); |
6352 |
if(vs_base>=vs_top){vs_top=sup;goto T2316;} |
if(vs_base>=vs_top){vs_top=sup;goto T2316;} |
6353 |
V595= vs_base[0]; |
V593= vs_base[0]; |
6354 |
vs_base++; |
vs_base++; |
6355 |
if(vs_base>=vs_top){vs_top=sup;goto T2317;} |
if(vs_base>=vs_top){vs_top=sup;goto T2317;} |
6356 |
V596= 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 |
V595= Cnil; |
V593= Cnil; |
6362 |
goto T2317; |
goto T2317; |
6363 |
T2317:; |
T2317:; |
6364 |
V596= Cnil; |
V594= Cnil; |
6365 |
goto T2318; |
goto T2318; |
6366 |
T2318:; |
T2318:; |
6367 |
V596= Ct; |
V594= Ct; |
6368 |
vs_base=vs_top; |
vs_base=vs_top; |
6369 |
(void) (*Lnk376)(); |
(void) (*Lnk378)(); |
6370 |
vs_top=sup; |
vs_top=sup; |
6371 |
V593= vs_base[0]; |
V591= vs_base[0]; |
6372 |
{register object V597; |
{register object V595; |
6373 |
register object V598; |
register object V596; |
6374 |
register object V599; |
register object V597; |
6375 |
V600= list(3,(V586),Cnil,(V587)); |
V598= list(3,(V584),Cnil,(V585)); |
6376 |
V601= list(2,(V591),cadar((V588))); |
V599= list(2,(V589),cadar((V586))); |
6377 |
if((V596)==Cnil){ |
if((V594)==Cnil){ |
6378 |
V602= Cnil; |
V600= Cnil; |
6379 |
goto T2324;} |
goto T2324;} |
6380 |
if((V595)==Cnil){ |
if((V593)==Cnil){ |
6381 |
V602= Cnil; |
V600= Cnil; |
6382 |
goto T2324;} |
goto T2324;} |
6383 |
V603= list(2,(V595),Cnil); |
V601= list(2,(V593),Cnil); |
6384 |
V602= make_cons(/* INLINE-ARGS */V603,Cnil); |
V600= make_cons(/* INLINE-ARGS */V601,Cnil); |
6385 |
goto T2324; |
goto T2324; |
6386 |
T2324:; |
T2324:; |
6387 |
V599= listA(3,/* INLINE-ARGS */V600,/* INLINE-ARGS */V601,V602); |
V597= listA(3,/* INLINE-ARGS */V598,/* INLINE-ARGS */V599,V600); |
6388 |
V597= Cnil; |
V595= Cnil; |
6389 |
V598= Cnil; |
V596= Cnil; |
6390 |
if(!(((V589))==(VV[275]))){ |
if(!(((V587))==(VV[277]))){ |
6391 |
goto T2327;} |
goto T2327;} |
6392 |
V597= (V586); |
V595= (V584); |
6393 |
if((V596)==Cnil){ |
if((V594)==Cnil){ |
6394 |
V598= Cnil; |
V596= Cnil; |
6395 |
goto T2331;} |
goto T2331;} |
6396 |
V598= (V595); |
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((V596)==Cnil){ |
if((V594)==Cnil){ |
6403 |
V597= Cnil; |
V595= Cnil; |
6404 |
goto T2333;} |
goto T2333;} |
6405 |
V597= (V595); |
V595= (V593); |
6406 |
goto T2333; |
goto T2333; |
6407 |
T2333:; |
T2333:; |
6408 |
V598= (V586); |
V596= (V584); |
6409 |
goto T2325; |
goto T2325; |
6410 |
T2325:; |
T2325:; |
6411 |
{object V604; |
{object V602; |
6412 |
V604= list(2,VV[277],list(2,(V592),(V591))); |
V602= list(2,VV[279],list(2,(V590),(V589))); |
6413 |
setq(VV[107],make_cons((V604),symbol_value(VV[107])));} |
setq(VV[107],make_cons((V602),symbol_value(VV[107])));} |
6414 |
if(!(type_of((V597))==t_cons)){ |
if(!(type_of((V595))==t_cons)){ |
6415 |
goto T2338;}{object V605; |
goto T2338;}{object V603; |
6416 |
V605= (V597); |
V603= (V595); |
6417 |
base[5]= VV[278]; |
base[5]= VV[280]; |
6418 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6419 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
6420 |
vs_top=sup; |
vs_top=sup; |
6421 |
V597= vs_base[0]; |
V595= vs_base[0]; |
6422 |
V594= listA(3,V605,(V597),(V594));} |
V592= listA(3,V603,(V595),(V592));} |
6423 |
{object V606; |
{object V604; |
6424 |
V606= list(2,(V597),Cnil); |
V604= list(2,(V595),Cnil); |
6425 |
V599= make_cons((V606),(V599));} |
V597= make_cons((V604),(V597));} |
6426 |
goto T2338; |
goto T2338; |
6427 |
T2338:; |
T2338:; |
6428 |
if(!(type_of((V598))==t_cons)){ |
if(!(type_of((V596))==t_cons)){ |
6429 |
goto T2347;}{object V607; |
goto T2347;}{object V605; |
6430 |
V607= (V598); |
V605= (V596); |
6431 |
base[5]= VV[279]; |
base[5]= VV[281]; |
6432 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6433 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
6434 |
vs_top=sup; |
vs_top=sup; |
6435 |
V598= vs_base[0]; |
V596= vs_base[0]; |
6436 |
V594= listA(3,V607,(V598),(V594));} |
V592= listA(3,V605,(V596),(V592));} |
6437 |
{object V608; |
{object V606; |
6438 |
V608= list(2,(V598),Cnil); |
V606= list(2,(V596),Cnil); |
6439 |
V599= make_cons((V608),(V599));} |
V597= make_cons((V606),(V597));} |
6440 |
goto T2347; |
goto T2347; |
6441 |
T2347:; |
T2347:; |
6442 |
V609= list(3,(V593),(V597),(V598)); |
V607= list(3,(V591),(V595),(V596)); |
6443 |
base[5]= list(6,(V599),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V609,make_cons((V592),Cnil))),(V594)); |
base[5]= list(6,(V597),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V607,make_cons((V590),Cnil))),(V592)); |
6444 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6445 |
return;}}} |
return;}}} |
6446 |
} |
} |
6451 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6452 |
register object *sup=base+VM88; VC88 |
register object *sup=base+VM88; VC88 |
6453 |
vs_reserve(VM88); |
vs_reserve(VM88); |
6454 |
{object V610; |
{object V608; |
6455 |
|
object V609; |
6456 |
|
register object V610; |
6457 |
object V611; |
object V611; |
|
register object V612; |
|
|
object V613; |
|
6458 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
6459 |
parse_key(vs_base+3,FALSE,FALSE,1,VV[394]); |
parse_key(vs_base+3,FALSE,FALSE,1,VV[396]); |
6460 |
V610=(base[0]); |
V608=(base[0]); |
6461 |
V611=(base[1]); |
V609=(base[1]); |
6462 |
V612=(base[2]); |
V610=(base[2]); |
6463 |
vs_top=sup; |
vs_top=sup; |
6464 |
V613=(base[3]); |
V611=(base[3]); |
6465 |
if((cdr((V612)))!=Cnil){ |
if((cdr((V610)))!=Cnil){ |
6466 |
goto T2357;} |
goto T2357;} |
6467 |
{register object x= caar((V612)),V614= VV[280]; |
{register object x= caar((V610)),V612= VV[282]; |
6468 |
while(!endp(V614)) |
while(!endp(V612)) |
6469 |
if(eql(x,V614->c.c_car)){ |
if(eql(x,V612->c.c_car)){ |
6470 |
goto T2358; |
goto T2358; |
6471 |
}else V614=V614->c.c_cdr;} |
}else V612=V612->c.c_cdr;} |
6472 |
goto T2357; |
goto T2357; |
6473 |
T2357:; |
T2357:; |
6474 |
base[5]= VV[281]; |
base[5]= VV[283]; |
6475 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6476 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
6477 |
vs_top=sup; |
vs_top=sup; |
6478 |
goto T2356; |
goto T2356; |
6479 |
goto T2358; |
goto T2358; |
6480 |
T2358:; |
T2358:; |
6481 |
if(((V612))!=Cnil){ |
if(((V610))!=Cnil){ |
6482 |
goto T2356;} |
goto T2356;} |
6483 |
base[5]= VV[282]; |
base[5]= VV[284]; |
6484 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6485 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
6486 |
vs_top=sup; |
vs_top=sup; |
6487 |
goto T2356; |
goto T2356; |
6488 |
T2356:; |
T2356:; |
6489 |
if(type_of((V610))==t_symbol){ |
if(type_of((V608))==t_symbol){ |
6490 |
goto T2366;} |
goto T2366;} |
6491 |
base[5]= VV[283]; |
base[5]= VV[285]; |
6492 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6493 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
6494 |
vs_top=sup; |
vs_top=sup; |
6495 |
goto T2366; |
goto T2366; |
6496 |
T2366:; |
T2366:; |
6497 |
{object V615; |
{object V613; |
6498 |
object V616; |
object V614; |
6499 |
base[5]= VV[284]; |
base[5]= VV[286]; |
6500 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6501 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
6502 |
vs_top=sup; |
vs_top=sup; |
6503 |
V615= vs_base[0]; |
V613= vs_base[0]; |
6504 |
base[5]= VV[285]; |
base[5]= VV[287]; |
6505 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6506 |
(void) (*Lnk325)(); |
(void) (*Lnk327)(); |
6507 |
vs_top=sup; |
vs_top=sup; |
6508 |
V616= vs_base[0]; |
V614= vs_base[0]; |
6509 |
{object V617; |
{object V615; |
6510 |
V617= list(2,VV[286],listA(3,(V616),(V615),(V613))); |
V615= list(2,VV[288],listA(3,(V614),(V613),(V611))); |
6511 |
setq(VV[107],make_cons((V617),symbol_value(VV[107])));} |
setq(VV[107],make_cons((V615),symbol_value(VV[107])));} |
6512 |
V618= list(3,(V610),Cnil,(V611)); |
V616= list(3,(V608),Cnil,(V609)); |
6513 |
V619= list(2,/* INLINE-ARGS */V618,list(2,(V615),cadar((V612)))); |
V617= list(2,/* INLINE-ARGS */V616,list(2,(V613),cadar((V610)))); |
6514 |
vs_base=vs_top; |
vs_base=vs_top; |
6515 |
(void) (*Lnk376)(); |
(void) (*Lnk378)(); |
6516 |
vs_top=sup; |
vs_top=sup; |
6517 |
V620= vs_base[0]; |
V618= vs_base[0]; |
6518 |
V621= list(2,V620,(V610)); |
V619= list(2,V618,(V608)); |
6519 |
base[5]= list(6,/* INLINE-ARGS */V619,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V621,make_cons((V616),Cnil))),Cnil); |
base[5]= list(6,/* INLINE-ARGS */V617,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V619,make_cons((V614),Cnil))),Cnil); |
6520 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6521 |
return;} |
return;} |
6522 |
} |
} |
6527 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6528 |
register object *sup=base+VM89; VC89 |
register object *sup=base+VM89; VC89 |
6529 |
vs_reserve(VM89); |
vs_reserve(VM89); |
6530 |
{object V622; |
{object V620; |
6531 |
check_arg(1); |
check_arg(1); |
6532 |
V622=(base[0]); |
V620=(base[0]); |
6533 |
vs_top=sup; |
vs_top=sup; |
6534 |
goto TTL; |
goto TTL; |
6535 |
TTL:; |
TTL:; |
6536 |
{register object V623; |
{register object V621; |
6537 |
base[1]= VV[53]; |
base[1]= VV[53]; |
6538 |
base[3]= VV[287]; |
base[3]= VV[289]; |
6539 |
base[4]= VV[288]; |
base[4]= VV[290]; |
6540 |
base[5]= VV[289]; |
base[5]= VV[291]; |
6541 |
base[6]= VV[290]; |
base[6]= VV[292]; |
6542 |
base[7]= VV[291]; |
base[7]= VV[293]; |
6543 |
base[8]= VV[292]; |
base[8]= VV[294]; |
6544 |
base[9]= VV[293]; |
base[9]= VV[295]; |
6545 |
base[10]= VV[294]; |
base[10]= VV[296]; |
6546 |
base[11]= VV[295]; |
base[11]= VV[297]; |
6547 |
base[12]= VV[296]; |
base[12]= VV[298]; |
6548 |
base[13]= VV[297]; |
base[13]= VV[299]; |
6549 |
base[14]= VV[298]; |
base[14]= VV[300]; |
6550 |
base[15]= list(2,VV[177],list(4,VV[299],VV[177],symbol_value(VV[181]),VV[208])); |
base[15]= list(2,VV[179],list(4,VV[301],VV[179],symbol_value(VV[183]),VV[210])); |
6551 |
base[16]= list(2,VV[300],list(4,VV[299],VV[177],symbol_value(VV[181]),VV[208])); |
base[16]= list(2,VV[302],list(4,VV[301],VV[179],symbol_value(VV[183]),VV[210])); |
6552 |
base[17]= VV[301]; |
base[17]= VV[303]; |
6553 |
vs_top=(vs_base=base+3)+15; |
vs_top=(vs_base=base+3)+15; |
6554 |
LlistA(); |
LlistA(); |
6555 |
vs_top=sup; |
vs_top=sup; |
6556 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
6557 |
base[3]= VV[54]; |
base[3]= VV[54]; |
6558 |
base[4]= VV[302]; |
base[4]= VV[304]; |
6559 |
base[5]= VV[55]; |
base[5]= VV[55]; |
6560 |
base[6]= VV[303]; |
base[6]= VV[305]; |
6561 |
base[7]= VV[60]; |
base[7]= VV[60]; |
6562 |
base[8]= VV[304]; |
base[8]= VV[306]; |
6563 |
base[9]= VV[59]; |
base[9]= VV[59]; |
6564 |
base[10]= Cnil; |
base[10]= Cnil; |
6565 |
base[11]= VV[57]; |
base[11]= VV[57]; |
6566 |
if(((V622))==Cnil){ |
if(((V620))==Cnil){ |
6567 |
goto T2407;} |
goto T2407;} |
6568 |
base[12]= VV[305]; |
base[12]= VV[307]; |
6569 |
goto T2405; |
goto T2405; |
6570 |
goto T2407; |
goto T2407; |
6571 |
T2407:; |
T2407:; |
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) (*Lnk395)(); |
(void) (*Lnk397)(); |
6577 |
vs_top=sup; |
vs_top=sup; |
6578 |
V623= vs_base[0]; |
V621= vs_base[0]; |
6579 |
base[1]= VV[306]; |
base[1]= VV[308]; |
6580 |
base[2]= VV[307]; |
base[2]= VV[309]; |
6581 |
base[3]= (V623); |
base[3]= (V621); |
6582 |
base[4]= VV[227]; |
base[4]= VV[229]; |
6583 |
base[5]= VV[308]; |
base[5]= VV[310]; |
6584 |
base[6]= VV[228]; |
base[6]= VV[230]; |
6585 |
base[7]= Cnil; |
base[7]= Cnil; |
6586 |
base[8]= VV[226]; |
base[8]= VV[228]; |
6587 |
base[9]= VV[309]; |
base[9]= VV[311]; |
6588 |
vs_top=(vs_base=base+1)+9; |
vs_top=(vs_base=base+1)+9; |
6589 |
(void) (*Lnk396)(); |
(void) (*Lnk398)(); |
6590 |
vs_top=sup; |
vs_top=sup; |
6591 |
base[1]= VV[310]; |
base[1]= VV[312]; |
6592 |
base[2]= VV[307]; |
base[2]= VV[309]; |
6593 |
base[3]= (V623); |
base[3]= (V621); |
6594 |
base[4]= VV[227]; |
base[4]= VV[229]; |
6595 |
base[5]= VV[311]; |
base[5]= VV[313]; |
6596 |
base[6]= VV[228]; |
base[6]= VV[230]; |
6597 |
base[7]= Cnil; |
base[7]= Cnil; |
6598 |
base[8]= VV[226]; |
base[8]= VV[228]; |
6599 |
base[9]= VV[312]; |
base[9]= VV[314]; |
6600 |
vs_top=(vs_base=base+1)+9; |
vs_top=(vs_base=base+1)+9; |
6601 |
(void) (*Lnk396)(); |
(void) (*Lnk398)(); |
6602 |
vs_top=sup; |
vs_top=sup; |
6603 |
base[1]= VV[313]; |
base[1]= VV[315]; |
6604 |
base[2]= VV[314]; |
base[2]= VV[316]; |
6605 |
base[3]= (V623); |
base[3]= (V621); |
6606 |
base[4]= VV[227]; |
base[4]= VV[229]; |
6607 |
base[5]= VV[315]; |
base[5]= VV[317]; |
6608 |
base[6]= VV[228]; |
base[6]= VV[230]; |
6609 |
base[7]= Cnil; |
base[7]= Cnil; |
6610 |
base[8]= VV[226]; |
base[8]= VV[228]; |
6611 |
base[9]= VV[316]; |
base[9]= VV[318]; |
6612 |
vs_top=(vs_base=base+1)+9; |
vs_top=(vs_base=base+1)+9; |
6613 |
(void) (*Lnk396)(); |
(void) (*Lnk398)(); |
6614 |
vs_top=sup; |
vs_top=sup; |
6615 |
base[1]= VV[317]; |
base[1]= VV[319]; |
6616 |
base[2]= VV[314]; |
base[2]= VV[316]; |
6617 |
base[3]= (V623); |
base[3]= (V621); |
6618 |
base[4]= VV[227]; |
base[4]= VV[229]; |
6619 |
base[5]= VV[318]; |
base[5]= VV[320]; |
6620 |
base[6]= VV[228]; |
base[6]= VV[230]; |
6621 |
base[7]= Cnil; |
base[7]= Cnil; |
6622 |
base[8]= VV[226]; |
base[8]= VV[228]; |
6623 |
base[9]= VV[319]; |
base[9]= VV[321]; |
6624 |
vs_top=(vs_base=base+1)+9; |
vs_top=(vs_base=base+1)+9; |
6625 |
(void) (*Lnk396)(); |
(void) (*Lnk398)(); |
6626 |
vs_top=sup; |
vs_top=sup; |
6627 |
base[1]= VV[320]; |
base[1]= VV[322]; |
6628 |
base[2]= VV[314]; |
base[2]= VV[316]; |
6629 |
base[3]= (V623); |
base[3]= (V621); |
6630 |
base[4]= VV[227]; |
base[4]= VV[229]; |
6631 |
base[5]= VV[321]; |
base[5]= VV[323]; |
6632 |
base[6]= VV[228]; |
base[6]= VV[230]; |
6633 |
base[7]= Cnil; |
base[7]= Cnil; |
6634 |
base[8]= VV[226]; |
base[8]= VV[228]; |
6635 |
base[9]= VV[322]; |
base[9]= VV[324]; |
6636 |
vs_top=(vs_base=base+1)+9; |
vs_top=(vs_base=base+1)+9; |
6637 |
(void) (*Lnk396)(); |
(void) (*Lnk398)(); |
6638 |
vs_top=sup; |
vs_top=sup; |
6639 |
base[1]= (V623); |
base[1]= (V621); |
6640 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6641 |
return;} |
return;} |
6642 |
} |
} |
6647 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6648 |
register object *sup=base+VM90; VC90 |
register object *sup=base+VM90; VC90 |
6649 |
vs_reserve(VM90); |
vs_reserve(VM90); |
6650 |
{register object V624; |
{register object V622; |
6651 |
object V625; |
object V623; |
6652 |
object V626; |
object V624; |
6653 |
check_arg(3); |
check_arg(3); |
6654 |
V624=(base[0]); |
V622=(base[0]); |
6655 |
V625=(base[1]); |
V623=(base[1]); |
6656 |
V626=(base[2]); |
V624=(base[2]); |
6657 |
vs_top=sup; |
vs_top=sup; |
6658 |
goto TTL; |
goto TTL; |
6659 |
TTL:; |
TTL:; |
6660 |
if(((V624))==Cnil){ |
if(((V622))==Cnil){ |
6661 |
goto T2460;} |
goto T2460;} |
6662 |
if(!(type_of(car((V624)))==t_symbol)){ |
if(!(type_of(car((V622)))==t_symbol)){ |
6663 |
goto T2460;} |
goto T2460;} |
6664 |
base[3]= (V624); |
base[3]= (V622); |
6665 |
base[4]= (V625); |
base[4]= (V623); |
6666 |
base[5]= (V626); |
base[5]= (V624); |
6667 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
6668 |
(void) (*Lnk397)(); |
(void) (*Lnk399)(); |
6669 |
return; |
return; |
6670 |
goto T2460; |
goto T2460; |
6671 |
T2460:; |
T2460:; |
6672 |
{object V627; |
{object V625; |
6673 |
vs_base=vs_top; |
vs_base=vs_top; |
6674 |
Lgensym(); |
Lgensym(); |
6675 |
vs_top=sup; |
vs_top=sup; |
6676 |
V627= vs_base[0]; |
V625= vs_base[0]; |
6677 |
V628= make_cons(VV[14],(V624)); |
V626= make_cons(VV[14],(V622)); |
6678 |
base[3]= list(3,VV[121],Cnil,list(4,VV[73],(V627),/* INLINE-ARGS */V628,list(2,VV[82],(V627)))); |
base[3]= list(3,VV[124],Cnil,list(4,VV[73],(V625),/* INLINE-ARGS */V626,list(2,VV[82],(V625)))); |
6679 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6680 |
return;} |
return;} |
6681 |
} |
} |
6688 |
vs_reserve(VM91); |
vs_reserve(VM91); |
6689 |
check_arg(2); |
check_arg(2); |
6690 |
vs_top=sup; |
vs_top=sup; |
6691 |
{object V629=base[0]->c.c_cdr; |
{object V627=base[0]->c.c_cdr; |
6692 |
base[2]= V629;} |
base[2]= V627;} |
6693 |
base[3]= base[2]; |
base[3]= base[2]; |
6694 |
base[4]= base[1]; |
base[4]= base[1]; |
6695 |
base[5]= symbol_value(VV[323]); |
base[5]= symbol_value(VV[325]); |
6696 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
6697 |
(void) (*Lnk398)(); |
(void) (*Lnk400)(); |
6698 |
return; |
return; |
6699 |
} |
} |
6700 |
/* local function IN-GROUP-P */ |
/* local function IN-GROUP-P */ |
6704 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6705 |
register object *sup=base+VM92; VC92 |
register object *sup=base+VM92; VC92 |
6706 |
vs_reserve(VM92); |
vs_reserve(VM92); |
6707 |
{object V630; |
{object V628; |
6708 |
object V631; |
object V629; |
6709 |
check_arg(2); |
check_arg(2); |
6710 |
V630=(base[0]); |
V628=(base[0]); |
6711 |
V631=(base[1]); |
V629=(base[1]); |
6712 |
vs_top=sup; |
vs_top=sup; |
6713 |
base[2]= (V630); |
base[2]= (V628); |
6714 |
base[3]= (V631); |
base[3]= (V629); |
6715 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6716 |
(void) (*Lnk351)(); |
(void) (*Lnk353)(); |
6717 |
vs_top=sup; |
vs_top=sup; |
6718 |
V632= vs_base[0]; |
V630= vs_base[0]; |
6719 |
base[2]= car(V632); |
base[2]= car(V630); |
6720 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6721 |
return; |
return; |
6722 |
} |
} |
6728 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6729 |
register object *sup=base+VM93; VC93 |
register object *sup=base+VM93; VC93 |
6730 |
vs_reserve(VM93); |
vs_reserve(VM93); |
6731 |
{object V633; |
{object V631; |
6732 |
object V634; |
object V632; |
6733 |
check_arg(2); |
check_arg(2); |
6734 |
V633=(base[0]); |
V631=(base[0]); |
6735 |
V634=(base[1]); |
V632=(base[1]); |
6736 |
vs_top=sup; |
vs_top=sup; |
6737 |
goto TTL; |
goto TTL; |
6738 |
TTL:; |
TTL:; |
6739 |
base[2]= (V633); |
base[2]= (V631); |
6740 |
base[3]= (V634); |
base[3]= (V632); |
6741 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6742 |
(void) (*Lnk351)(); |
(void) (*Lnk353)(); |
6743 |
vs_top=sup; |
vs_top=sup; |
6744 |
V635= vs_base[0]; |
V633= vs_base[0]; |
6745 |
base[2]= car(V635); |
base[2]= car(V633); |
6746 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6747 |
return; |
return; |
6748 |
} |
} |
6754 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6755 |
register object *sup=base+VM94; VC94 |
register object *sup=base+VM94; VC94 |
6756 |
vs_reserve(VM94); |
vs_reserve(VM94); |
6757 |
{object V636; |
{object V634; |
6758 |
check_arg(1); |
check_arg(1); |
6759 |
V636=(base[0]); |
V634=(base[0]); |
6760 |
vs_top=sup; |
vs_top=sup; |
6761 |
goto TTL; |
goto TTL; |
6762 |
TTL:; |
TTL:; |
6763 |
if(((V636))!=Cnil){ |
if(((V634))!=Cnil){ |
6764 |
goto T2478;} |
goto T2478;} |
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,V637= (V636); |
{register object x= Ct,V635= (V634); |
6771 |
while(!endp(V637)) |
while(!endp(V635)) |
6772 |
if(eql(x,V637->c.c_car)){ |
if(eql(x,V635->c.c_car)){ |
6773 |
goto T2482; |
goto T2482; |
6774 |
}else V637=V637->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[190]; |
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 |
V636= nreverse((V636)); |
V634= nreverse((V634)); |
6784 |
if((cdr((V636)))!=Cnil){ |
if((cdr((V634)))!=Cnil){ |
6785 |
goto T2485;} |
goto T2485;} |
6786 |
V638= car((V636)); |
V636= car((V634)); |
6787 |
goto T2483; |
goto T2483; |
6788 |
goto T2485; |
goto T2485; |
6789 |
T2485:; |
T2485:; |
6790 |
V638= make_cons(VV[35],(V636)); |
V636= make_cons(VV[35],(V634)); |
6791 |
goto T2483; |
goto T2483; |
6792 |
T2483:; |
T2483:; |
6793 |
base[1]= list(3,VV[8],V638,VV[191]); |
base[1]= list(3,VV[8],V636,VV[193]); |
6794 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6795 |
return; |
return; |
6796 |
} |
} |
6802 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6803 |
register object *sup=base+VM95; VC95 |
register object *sup=base+VM95; VC95 |
6804 |
vs_reserve(VM95); |
vs_reserve(VM95); |
6805 |
{object V639; |
{object V637; |
6806 |
check_arg(1); |
check_arg(1); |
6807 |
V639=(base[0]); |
V637=(base[0]); |
6808 |
vs_top=sup; |
vs_top=sup; |
6809 |
goto TTL; |
goto TTL; |
6810 |
TTL:; |
TTL:; |
6811 |
{register object V640; |
{register object V638; |
6812 |
V640= Cnil; |
V638= Cnil; |
6813 |
goto T2489; |
goto T2489; |
6814 |
T2489:; |
T2489:; |
6815 |
{register object V641; |
{register object V639; |
6816 |
register object V642; |
register object V640; |
6817 |
V641= car(symbol_value(VV[89])); |
V639= car(symbol_value(VV[89])); |
6818 |
bds_bind(VV[109],Cnil); |
bds_bind(VV[109],Cnil); |
6819 |
V642= Cnil; |
V640= Cnil; |
6820 |
if(type_of((V641))==t_symbol){ |
if(type_of((V639))==t_symbol){ |
6821 |
goto T2495;} |
goto T2495;} |
6822 |
base[2]= VV[150]; |
base[2]= VV[152]; |
6823 |
base[3]= (V641); |
base[3]= (V639); |
6824 |
base[4]= (V639); |
base[4]= (V637); |
6825 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
6826 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
6827 |
vs_top=sup; |
vs_top=sup; |
6828 |
bds_unwind1; |
bds_unwind1; |
6829 |
goto T2492; |
goto T2492; |
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; |
6834 |
(void) (*Lnk348)(); |
(void) (*Lnk350)(); |
6835 |
vs_top=sup; |
vs_top=sup; |
6836 |
base[2]= car(symbol_value(VV[89])); |
base[2]= car(symbol_value(VV[89])); |
6837 |
base[3]= VV[151]; |
base[3]= VV[153]; |
6838 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6839 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
6840 |
vs_top=sup; |
vs_top=sup; |
6841 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
6842 |
goto T2503;} |
goto T2503;} |
6843 |
if(base0[3]!=Cnil){ |
if(base0[3]!=Cnil){ |
6844 |
V643= base0[3]; |
V641= base0[3]; |
6845 |
goto T2509;} |
goto T2509;} |
6846 |
vs_base=vs_top; |
vs_base=vs_top; |
6847 |
(void) (*Lnk376)(); |
(void) (*Lnk378)(); |
6848 |
vs_top=sup; |
vs_top=sup; |
6849 |
base0[3]= vs_base[0]; |
base0[3]= vs_base[0]; |
6850 |
V643= base0[3]; |
V641= base0[3]; |
6851 |
goto T2509; |
goto T2509; |
6852 |
T2509:; |
T2509:; |
6853 |
setq(VV[89],make_cons(V643,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]= (V641); |
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); |
6858 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6859 |
(void) (*Lnk349)(); |
(void) (*Lnk351)(); |
6860 |
vs_top=sup; |
vs_top=sup; |
6861 |
V642= vs_base[0]; |
V640= vs_base[0]; |
6862 |
if(((V642))==Cnil){ |
if(((V640))==Cnil){ |
6863 |
goto T2511;} |
goto T2511;} |
6864 |
base[3]= car((V642)); |
base[3]= car((V640)); |
6865 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6866 |
Lsymbol_function(); |
Lsymbol_function(); |
6867 |
vs_top=sup; |
vs_top=sup; |
6868 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
6869 |
{object V644; |
{object V642; |
6870 |
V644= cdr((V642)); |
V642= cdr((V640)); |
6871 |
vs_top=base+3; |
vs_top=base+3; |
6872 |
while(!endp(V644)) |
while(!endp(V642)) |
6873 |
{vs_push(car(V644));V644=cdr(V644);} |
{vs_push(car(V642));V642=cdr(V642);} |
6874 |
vs_base=base+3;} |
vs_base=base+3;} |
6875 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
6876 |
vs_top=sup; |
vs_top=sup; |
6878 |
goto T2512;} |
goto T2512;} |
6879 |
goto T2511; |
goto T2511; |
6880 |
T2511:; |
T2511:; |
6881 |
base[2]= VV[152]; |
base[2]= VV[154]; |
6882 |
base[3]= (V641); |
base[3]= (V639); |
6883 |
base[4]= (V639); |
base[4]= (V637); |
6884 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
6885 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
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]= (V640); |
base[3]= (V638); |
6893 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6894 |
Lreconc(); |
Lreconc(); |
6895 |
vs_top=sup; |
vs_top=sup; |
6896 |
V640= 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[153]; |
base[2]= VV[155]; |
6902 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6903 |
(void) (*Lnk355)(); |
(void) (*Lnk357)(); |
6904 |
vs_top=sup; |
vs_top=sup; |
6905 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
6906 |
goto T2531;} |
goto T2531;} |
6907 |
vs_base=vs_top; |
vs_base=vs_top; |
6908 |
(void) (*Lnk348)(); |
(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((V640)))==Cnil){ |
if((cdr((V638)))==Cnil){ |
6914 |
goto T2536;} |
goto T2536;} |
6915 |
V645= nreverse((V640)); |
V643= nreverse((V638)); |
6916 |
base[1]= make_cons(VV[14],/* INLINE-ARGS */V645); |
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((V640)); |
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; |
6933 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6934 |
register object *sup=base+VM96; VC96 |
register object *sup=base+VM96; VC96 |
6935 |
vs_reserve(VM96); |
vs_reserve(VM96); |
6936 |
{object V646; |
{object V644; |
6937 |
object V647; |
object V645; |
6938 |
check_arg(2); |
check_arg(2); |
6939 |
V646=(base[0]); |
V644=(base[0]); |
6940 |
V647=(base[1]); |
V645=(base[1]); |
6941 |
vs_top=sup; |
vs_top=sup; |
6942 |
goto TTL; |
goto TTL; |
6943 |
TTL:; |
TTL:; |
6944 |
if(!(type_of((V647))!=t_cons)){ |
if(!(type_of((V645))!=t_cons)){ |
6945 |
goto T2541;} |
goto T2541;} |
6946 |
base[2]= (V646); |
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]= (V646); |
base[2]= (V644); |
6952 |
base[3]= car((V647)); |
base[3]= car((V645)); |
6953 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6954 |
L59(base0); |
L59(base0); |
6955 |
vs_top=sup; |
vs_top=sup; |
6956 |
V648= vs_base[0]; |
V646= vs_base[0]; |
6957 |
base[2]= (V646); |
base[2]= (V644); |
6958 |
base[3]= cdr((V647)); |
base[3]= cdr((V645)); |
6959 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6960 |
L59(base0); |
L59(base0); |
6961 |
vs_top=sup; |
vs_top=sup; |
6962 |
V649= vs_base[0]; |
V647= vs_base[0]; |
6963 |
base[2]= make_cons(V648,V649); |
base[2]= make_cons(V646,V647); |
6964 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6965 |
return; |
return; |
6966 |
} |
} |
6972 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6973 |
register object *sup=base+VM97; VC97 |
register object *sup=base+VM97; VC97 |
6974 |
vs_reserve(VM97); |
vs_reserve(VM97); |
6975 |
{register object V650; |
{register object V648; |
6976 |
register object V651; |
register object V649; |
6977 |
check_arg(2); |
check_arg(2); |
6978 |
V650=(base[0]); |
V648=(base[0]); |
6979 |
V651=(base[1]); |
V649=(base[1]); |
6980 |
vs_top=sup; |
vs_top=sup; |
6981 |
goto TTL; |
goto TTL; |
6982 |
TTL:; |
TTL:; |
6983 |
if(((V650))!=Cnil){ |
if(((V648))!=Cnil){ |
6984 |
goto T2550;} |
goto T2550;} |
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((V650))!=t_cons)){ |
if(!(type_of((V648))!=t_cons)){ |
6991 |
goto T2553;}{object V652; |
goto T2553;}{object V650; |
6992 |
base[3]= (V650); |
base[3]= (V648); |
6993 |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],4); |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],4); |
6994 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6995 |
Lgethash(); |
Lgethash(); |
6996 |
vs_top=sup; |
vs_top=sup; |
6997 |
V652= vs_base[0]; |
V650= vs_base[0]; |
6998 |
if(V652==Cnil)goto T2556; |
if(V650==Cnil)goto T2556; |
6999 |
base[2]= V652; |
base[2]= V650; |
7000 |
goto T2555; |
goto T2555; |
7001 |
goto T2556; |
goto T2556; |
7002 |
T2556:;}{object V653; |
T2556:;}{object V651; |
7003 |
base[3]= symbol_name((V650)); |
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); |
7005 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7006 |
Lgethash(); |
Lgethash(); |
7007 |
vs_top=sup; |
vs_top=sup; |
7008 |
V653= vs_base[0]; |
V651= vs_base[0]; |
7009 |
if(V653==Cnil)goto T2560; |
if(V651==Cnil)goto T2560; |
7010 |
base[2]= V653; |
base[2]= V651; |
7011 |
goto T2555; |
goto T2555; |
7012 |
goto T2560; |
goto T2560; |
7013 |
T2560:;} |
T2560:;} |
7014 |
base[3]= VV[138]; |
base[3]= VV[140]; |
7015 |
base[4]= base0[1]; |
base[4]= base0[1]; |
7016 |
base[5]= (V650); |
base[5]= (V648); |
7017 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
7018 |
(void) (*Lnk345)(); |
(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]= (V651); |
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((V651))!=t_cons)){ |
if(!(type_of((V649))!=t_cons)){ |
7030 |
goto T2569;} |
goto T2569;} |
7031 |
base[2]= VV[139]; |
base[2]= VV[141]; |
7032 |
base[3]= base0[1]; |
base[3]= base0[1]; |
7033 |
base[4]= base0[0]; |
base[4]= base0[0]; |
7034 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
7035 |
(void) (*Lnk345)(); |
(void) (*Lnk347)(); |
7036 |
return; |
return; |
7037 |
goto T2569; |
goto T2569; |
7038 |
T2569:; |
T2569:; |
7039 |
base[2]= car((V650)); |
base[2]= car((V648)); |
7040 |
base[3]= car((V651)); |
base[3]= car((V649)); |
7041 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7042 |
L58(base0); |
L58(base0); |
7043 |
vs_top=sup; |
vs_top=sup; |
7044 |
V654= vs_base[0]; |
V652= vs_base[0]; |
7045 |
base[2]= cdr((V650)); |
base[2]= cdr((V648)); |
7046 |
base[3]= cdr((V651)); |
base[3]= cdr((V649)); |
7047 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7048 |
L58(base0); |
L58(base0); |
7049 |
vs_top=sup; |
vs_top=sup; |
7050 |
V655= vs_base[0]; |
V653= vs_base[0]; |
7051 |
base[2]= make_cons(V654,V655); |
base[2]= make_cons(V652,V653); |
7052 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7053 |
return; |
return; |
7054 |
} |
} |
7060 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7061 |
register object *sup=base+VM98; VC98 |
register object *sup=base+VM98; VC98 |
7062 |
vs_reserve(VM98); |
vs_reserve(VM98); |
7063 |
{object V656; |
{object V654; |
7064 |
check_arg(1); |
check_arg(1); |
7065 |
V656=(base[0]); |
V654=(base[0]); |
7066 |
vs_top=sup; |
vs_top=sup; |
7067 |
goto TTL; |
goto TTL; |
7068 |
TTL:; |
TTL:; |
7069 |
{long V657; |
{long V655; |
7070 |
V657= 0; |
V655= 0; |
7071 |
{register object V658; |
{register object V656; |
7072 |
object V659; |
object V657; |
7073 |
V658= (V656); |
V656= (V654); |
7074 |
V659= car((V658)); |
V657= car((V656)); |
7075 |
goto T2584; |
goto T2584; |
7076 |
T2584:; |
T2584:; |
7077 |
if(!(endp_prop((V658)))){ |
if(!(endp_prop((V656)))){ |
7078 |
goto T2585;} |
goto T2585;} |
7079 |
base[2]= make_fixnum(V657); |
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 |
V660 = make_fixnum(V657); |
V658 = make_fixnum(V655); |
7085 |
base[2]= (V659); |
base[2]= (V657); |
7086 |
base[3]= base0[1]; |
base[3]= base0[1]; |
7087 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7088 |
(void) (*Lnk340)(); |
(void) (*Lnk342)(); |
7089 |
vs_top=sup; |
vs_top=sup; |
7090 |
V661= vs_base[0]; |
V659= vs_base[0]; |
7091 |
V657= fix(number_plus(V660,V661)); |
V655= fix(number_plus(V658,V659)); |
7092 |
V658= cdr((V658)); |
V656= cdr((V656)); |
7093 |
V659= car((V658)); |
V657= car((V656)); |
7094 |
goto T2584;}} |
goto T2584;}} |
7095 |
} |
} |
7096 |
} |
} |
7105 |
vs_top=sup; |
vs_top=sup; |
7106 |
goto TTL; |
goto TTL; |
7107 |
TTL:; |
TTL:; |
7108 |
{object V662; |
{object V660; |
7109 |
V664= nreverse(base0[7]); |
V662= nreverse(base0[7]); |
7110 |
base[0]= append(base0[2],/* INLINE-ARGS */V664); |
base[0]= append(base0[2],/* INLINE-ARGS */V662); |
7111 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7112 |
L33(base0); |
L33(base0); |
7113 |
vs_top=sup; |
vs_top=sup; |
7114 |
V663= vs_base[0]; |
V661= vs_base[0]; |
7115 |
base[1]= base0[8]; |
base[1]= base0[8]; |
7116 |
base[2]= VV[75]; |
base[2]= VV[75]; |
7117 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
7118 |
Lreconc(); |
Lreconc(); |
7119 |
vs_top=sup; |
vs_top=sup; |
7120 |
V666= vs_base[0]; |
V664= vs_base[0]; |
7121 |
base[0]= append(base0[4],V666); |
base[0]= append(base0[4],V664); |
7122 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7123 |
L33(base0); |
L33(base0); |
7124 |
vs_top=sup; |
vs_top=sup; |
7125 |
V665= vs_base[0]; |
V663= vs_base[0]; |
7126 |
base[0]= base0[6]; |
base[0]= base0[6]; |
7127 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7128 |
L33(base0); |
L33(base0); |
7129 |
vs_top=sup; |
vs_top=sup; |
7130 |
V667= vs_base[0]; |
V665= vs_base[0]; |
7131 |
V668= make_cons(VV[76],V667); |
V666= make_cons(VV[76],V665); |
7132 |
V669= append(V665,/* INLINE-ARGS */V668); |
V667= append(V663,/* INLINE-ARGS */V666); |
7133 |
V670= make_cons(VV[74],/* INLINE-ARGS */V669); |
V668= make_cons(VV[74],/* INLINE-ARGS */V667); |
7134 |
V671= append(V663,/* INLINE-ARGS */V670); |
V669= append(V661,/* INLINE-ARGS */V668); |
7135 |
V662= make_cons(VV[73],/* INLINE-ARGS */V671); |
V660= make_cons(VV[73],/* INLINE-ARGS */V669); |
7136 |
if((base0[9])==Cnil){ |
if((base0[9])==Cnil){ |
7137 |
goto T2610;} |
goto T2610;} |
7138 |
V672= list(2,base0[9],Cnil); |
V670= list(2,base0[9],Cnil); |
7139 |
base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V672,Cnil),(V662)); |
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]= (V662); |
base[0]= (V660); |
7145 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7146 |
return;} |
return;} |
7147 |
} |
} |
7152 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7153 |
register object *sup=base+VM100; VC100 |
register object *sup=base+VM100; VC100 |
7154 |
vs_reserve(VM100); |
vs_reserve(VM100); |
7155 |
{object V673; |
{object V671; |
7156 |
check_arg(1); |
check_arg(1); |
7157 |
V673=(base[0]); |
V671=(base[0]); |
7158 |
vs_top=sup; |
vs_top=sup; |
7159 |
goto TTL; |
goto TTL; |
7160 |
TTL:; |
TTL:; |
7161 |
if((cdr((V673)))!=Cnil){ |
if((cdr((V671)))!=Cnil){ |
7162 |
goto T2613;} |
goto T2613;} |
7163 |
base[1]= car((V673)); |
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],(V673)); |
base[1]= make_cons(VV[14],(V671)); |
7169 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7170 |
return; |
return; |
7171 |
} |
} |
7177 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7178 |
register object *sup=base+VM101; VC101 |
register object *sup=base+VM101; VC101 |
7179 |
vs_reserve(VM101); |
vs_reserve(VM101); |
7180 |
{object V674; |
{object V672; |
7181 |
check_arg(1); |
check_arg(1); |
7182 |
V674=(base[0]); |
V672=(base[0]); |
7183 |
vs_top=sup; |
vs_top=sup; |
7184 |
goto TTL; |
goto TTL; |
7185 |
TTL:; |
TTL:; |
7186 |
{register object V675; |
{register object V673; |
7187 |
V675= Cnil; |
V673= Cnil; |
7188 |
{register object V676; |
{register object V674; |
7189 |
register object V677; |
register object V675; |
7190 |
V676= (V674); |
V674= (V672); |
7191 |
V677= car((V676)); |
V675= car((V674)); |
7192 |
goto T2619; |
goto T2619; |
7193 |
T2619:; |
T2619:; |
7194 |
if(!(endp_prop((V676)))){ |
if(!(endp_prop((V674)))){ |
7195 |
goto T2620;} |
goto T2620;} |
7196 |
goto T2615; |
goto T2615; |
7197 |
goto T2620; |
goto T2620; |
7198 |
T2620:; |
T2620:; |
7199 |
if(((V677))==Cnil){ |
if(((V675))==Cnil){ |
7200 |
goto T2624;} |
goto T2624;} |
7201 |
{register object V678; |
{register object V676; |
7202 |
V678= (V677); |
V676= (V675); |
7203 |
V675= make_cons((V678),(V675));} |
V673= make_cons((V676),(V673));} |
7204 |
if(!(type_of((V677))==t_cons)){ |
if(!(type_of((V675))==t_cons)){ |
7205 |
goto T2624;} |
goto T2624;} |
7206 |
{register object x= car((V677)),V679= VV[72]; |
{register object x= car((V675)),V677= VV[72]; |
7207 |
while(!endp(V679)) |
while(!endp(V677)) |
7208 |
if(eql(x,V679->c.c_car)){ |
if(eql(x,V677->c.c_car)){ |
7209 |
goto T2633; |
goto T2633; |
7210 |
}else V679=V679->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 |
V676= cdr((V676)); |
V674= cdr((V674)); |
7218 |
V677= car((V676)); |
V675= car((V674)); |
7219 |
goto T2619;} |
goto T2619;} |
7220 |
goto T2615; |
goto T2615; |
7221 |
T2615:; |
T2615:; |
7222 |
base[1]= nreverse((V675)); |
base[1]= nreverse((V673)); |
7223 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7224 |
return;} |
return;} |
7225 |
} |
} |
7231 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7232 |
register object *sup=base+VM102; VC102 |
register object *sup=base+VM102; VC102 |
7233 |
vs_reserve(VM102); |
vs_reserve(VM102); |
7234 |
{object V680; |
{object V678; |
7235 |
check_arg(1); |
check_arg(1); |
7236 |
V680=(base[0]); |
V678=(base[0]); |
7237 |
vs_top=sup; |
vs_top=sup; |
7238 |
goto TTL; |
goto TTL; |
7239 |
TTL:; |
TTL:; |
7240 |
{register object V681; |
{register object V679; |
7241 |
V681= (V680); |
V679= (V678); |
7242 |
goto T2640; |
goto T2640; |
7243 |
T2640:; |
T2640:; |
7244 |
if(type_of((V681))==t_cons){ |
if(type_of((V679))==t_cons){ |
7245 |
goto T2641;} |
goto T2641;} |
7246 |
base[1]= (V681); |
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 V682; |
{register object V680; |
7252 |
V682= car((V681)); |
V680= car((V679)); |
7253 |
V681= cdr((V681)); |
V679= cdr((V679)); |
7254 |
base[1]= (V682);} |
base[1]= (V680);} |
7255 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7256 |
L27(base0); |
L27(base0); |
7257 |
vs_top=sup; |
vs_top=sup; |
7272 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7273 |
register object *sup=base+VM103; VC103 |
register object *sup=base+VM103; VC103 |
7274 |
vs_reserve(VM103); |
vs_reserve(VM103); |
7275 |
{register object V683; |
{register object V681; |
7276 |
register object V684; |
register object V682; |
7277 |
object V685; |
object V683; |
7278 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
7279 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
7280 |
V683=(base[0]); |
V681=(base[0]); |
7281 |
V684=(base[1]); |
V682=(base[1]); |
7282 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
7283 |
if(vs_base>=vs_top){vs_top=sup;goto T2654;} |
if(vs_base>=vs_top){vs_top=sup;goto T2654;} |
7284 |
V685=(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 |
V685= Cnil; |
V683= Cnil; |
7290 |
goto T2655; |
goto T2655; |
7291 |
T2655:; |
T2655:; |
7292 |
{register object V686; |
{register object V684; |
7293 |
V686= (V683); |
V684= (V681); |
7294 |
if(!(((V686))==Cnil)){ |
if(!(((V684))==Cnil)){ |
7295 |
goto T2658;} |
goto T2658;} |
7296 |
if(!(type_of((V684))==t_cons)){ |
if(!(type_of((V682))==t_cons)){ |
7297 |
goto T2661;} |
goto T2661;} |
7298 |
if(!((car((V684)))==(VV[62]))){ |
if(!((car((V682)))==(VV[62]))){ |
7299 |
goto T2664;} |
goto T2664;} |
7300 |
{object V687; |
{object V685; |
7301 |
object V688= cdr((V684)); |
object V686= cdr((V682)); |
7302 |
if(endp(V688)){ |
if(endp(V686)){ |
7303 |
base[4]= Cnil; |
base[4]= Cnil; |
7304 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7305 |
return;} |
return;} |
7306 |
base[3]=V687=MMcons(Cnil,Cnil); |
base[3]=V685=MMcons(Cnil,Cnil); |
7307 |
goto T2666; |
goto T2666; |
7308 |
T2666:; |
T2666:; |
7309 |
{register object V689; |
{register object V687; |
7310 |
V689= (V688->c.c_car); |
V687= (V686->c.c_car); |
7311 |
if(type_of((V689))==t_cons){ |
if(type_of((V687))==t_cons){ |
7312 |
goto T2668;} |
goto T2668;} |
7313 |
(V687->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((V689)))==(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((V689)))==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]= (V689); |
base[4]= (V687); |
7328 |
base[5]= base0[1]; |
base[5]= base0[1]; |
7329 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
7330 |
Lmacroexpand(); |
Lmacroexpand(); |
7331 |
vs_top=sup; |
vs_top=sup; |
7332 |
V689= vs_base[0]; |
V687= vs_base[0]; |
7333 |
if(((type_of((V689))==t_symbol?Ct:Cnil))==Cnil){ |
if(((type_of((V687))==t_symbol?Ct:Cnil))==Cnil){ |
7334 |
goto T2670;} |
goto T2670;} |
7335 |
(V687->c.c_cdr)= Cnil; |
(V685->c.c_cdr)= Cnil; |
7336 |
goto T2667; |
goto T2667; |
7337 |
goto T2670; |
goto T2670; |
7338 |
T2670:; |
T2670:; |
7339 |
(V687->c.c_cdr)= make_cons((V689),Cnil);} |
(V685->c.c_cdr)= make_cons((V687),Cnil);} |
7340 |
goto T2667; |
goto T2667; |
7341 |
T2667:; |
T2667:; |
7342 |
{object cdr_V687=MMcdr(V687);while(!endp(cdr_V687)) {cdr_V687=MMcdr(cdr_V687);V687=MMcdr(V687);}} |
{object cdr_V685=MMcdr(V685);while(!endp(cdr_V685)) {cdr_V685=MMcdr(cdr_V685);V685=MMcdr(V685);}} |
7343 |
V688=MMcdr(V688); |
V686=MMcdr(V686); |
7344 |
if(endp(V688)){ |
if(endp(V686)){ |
7345 |
base[3]=base[3]->c.c_cdr; |
base[3]=base[3]->c.c_cdr; |
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((V684),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; |
7358 |
return; |
return; |
7359 |
goto T2658; |
goto T2658; |
7360 |
T2658:; |
T2658:; |
7361 |
if(!(type_of((V686))==t_cons)){ |
if(!(type_of((V684))==t_cons)){ |
7362 |
goto T2680;} |
goto T2680;} |
7363 |
{object V690; |
{object V688; |
7364 |
|
object V689; |
7365 |
|
object V690; |
7366 |
object V691; |
object V691; |
7367 |
object V692; |
V688= car((V681)); |
7368 |
object V693; |
V689= cdr((V681)); |
7369 |
V690= car((V683)); |
base[7]= (V688); |
|
V691= cdr((V683)); |
|
|
base[7]= (V690); |
|
7370 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
7371 |
L27(base0); |
L27(base0); |
7372 |
vs_top=sup; |
vs_top=sup; |
7373 |
V692= vs_base[0]; |
V690= vs_base[0]; |
7374 |
base[7]= (V691); |
base[7]= (V689); |
7375 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
7376 |
L27(base0); |
L27(base0); |
7377 |
vs_top=sup; |
vs_top=sup; |
7378 |
V693= vs_base[0]; |
V691= vs_base[0]; |
7379 |
if(((V692))!=Cnil){ |
if(((V690))!=Cnil){ |
7380 |
goto T2688;} |
goto T2688;} |
7381 |
if(((V693))==Cnil){ |
if(((V691))==Cnil){ |
7382 |
goto T2689;} |
goto T2689;} |
7383 |
goto T2688; |
goto T2688; |
7384 |
T2688:; |
T2688:; |
7385 |
if(((V693))==Cnil){ |
if(((V691))==Cnil){ |
7386 |
goto T2694;} |
goto T2694;} |
7387 |
{register object V695; |
{register object V693; |
7388 |
object V696; |
object V694; |
7389 |
if((V685)!=Cnil){ |
if((V683)!=Cnil){ |
7390 |
V695= (V685); |
V693= (V683); |
7391 |
goto T2696;} |
goto T2696;} |
7392 |
V695= symbol_value(VV[66]); |
V693= symbol_value(VV[66]); |
7393 |
goto T2696; |
goto T2696; |
7394 |
T2696:; |
T2696:; |
7395 |
base[9]= (V690); |
base[9]= (V688); |
7396 |
base[10]= list(2,VV[65],(V695)); |
base[10]= list(2,VV[65],(V693)); |
7397 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
7398 |
L28(base0); |
L28(base0); |
7399 |
vs_top=sup; |
vs_top=sup; |
7400 |
V697= vs_base[0]; |
V695= vs_base[0]; |
7401 |
V698= list(3,VV[11],(V695),list(2,VV[10],(V695))); |
V696= list(3,VV[11],(V693),list(2,VV[10],(V693))); |
7402 |
base[9]= (V691); |
base[9]= (V689); |
7403 |
base[10]= (V695); |
base[10]= (V693); |
7404 |
base[11]= (V695); |
base[11]= (V693); |
7405 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
7406 |
L28(base0); |
L28(base0); |
7407 |
vs_top=sup; |
vs_top=sup; |
7408 |
V699= vs_base[0]; |
V697= vs_base[0]; |
7409 |
V700= make_cons(/* INLINE-ARGS */V698,V699); |
V698= make_cons(/* INLINE-ARGS */V696,V697); |
7410 |
V696= append(V697,/* INLINE-ARGS */V700); |
V694= append(V695,/* INLINE-ARGS */V698); |
7411 |
if((V685)==Cnil){ |
if((V683)==Cnil){ |
7412 |
goto T2706;} |
goto T2706;} |
7413 |
if(((V695))==((V684))){ |
if(((V693))==((V682))){ |
7414 |
goto T2710;} |
goto T2710;} |
7415 |
V702= list(3,VV[11],(V695),(V684)); |
V700= list(3,VV[11],(V693),(V682)); |
7416 |
V701= make_cons(/* INLINE-ARGS */V702,Cnil); |
V699= make_cons(/* INLINE-ARGS */V700,Cnil); |
7417 |
goto T2708; |
goto T2708; |
7418 |
goto T2710; |
goto T2710; |
7419 |
T2710:; |
T2710:; |
7420 |
V701= Cnil; |
V699= Cnil; |
7421 |
goto T2708; |
goto T2708; |
7422 |
T2708:; |
T2708:; |
7423 |
base[9]= append(V701,(V696)); |
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 |
V703= list(2,(V695),(V684)); |
V701= list(2,(V693),(V682)); |
7429 |
V704= listA(3,VV[29],make_cons(/* INLINE-ARGS */V703,Cnil),(V696)); |
V702= listA(3,VV[29],make_cons(/* INLINE-ARGS */V701,Cnil),(V694)); |
7430 |
base[9]= make_cons(/* INLINE-ARGS */V704,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]= (V690); |
base[7]= (V688); |
7436 |
base[8]= list(2,VV[65],(V684)); |
base[8]= list(2,VV[65],(V682)); |
7437 |
base[9]= (V685); |
base[9]= (V683); |
7438 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
7439 |
L28(base0); |
L28(base0); |
7440 |
return; |
return; |
7445 |
return;} |
return;} |
7446 |
goto T2680; |
goto T2680; |
7447 |
T2680:; |
T2680:; |
7448 |
if(((V683))==((V684))){ |
if(((V681))==((V682))){ |
7449 |
goto T2716;} |
goto T2716;} |
7450 |
V705= list(3,VV[11],(V683),(V684)); |
V703= list(3,VV[11],(V681),(V682)); |
7451 |
base[3]= make_cons(/* INLINE-ARGS */V705,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; |
7465 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7466 |
register object *sup=base+VM104; VC104 |
register object *sup=base+VM104; VC104 |
7467 |
vs_reserve(VM104); |
vs_reserve(VM104); |
7468 |
{object V706; |
{object V704; |
7469 |
check_arg(1); |
check_arg(1); |
7470 |
V706=(base[0]); |
V704=(base[0]); |
7471 |
vs_top=sup; |
vs_top=sup; |
7472 |
goto TTL; |
goto TTL; |
7473 |
TTL:; |
TTL:; |
7474 |
{object V707; |
{object V705; |
7475 |
object V708; |
object V706; |
7476 |
V707= make_fixnum((long)length((V706))); |
V705= make_fixnum((long)length((V704))); |
7477 |
base[3]= VV[61]; |
base[3]= VV[61]; |
7478 |
if(!(number_compare((V707),small_fixnum(10))<0)){ |
if(!(number_compare((V705),small_fixnum(10))<0)){ |
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]= (V707); |
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[399]); |
base[6]= symbol_function(VV[401]); |
7489 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
7490 |
Lmake_hash_table(); |
Lmake_hash_table(); |
7491 |
vs_top=sup; |
vs_top=sup; |
7492 |
V708= vs_base[0]; |
V706= vs_base[0]; |
7493 |
{register object V709; |
{register object V707; |
7494 |
register object V710; |
register object V708; |
7495 |
V709= (V706); |
V707= (V704); |
7496 |
V710= car((V709)); |
V708= car((V707)); |
7497 |
goto T2731; |
goto T2731; |
7498 |
T2731:; |
T2731:; |
7499 |
if(!(endp_prop((V709)))){ |
if(!(endp_prop((V707)))){ |
7500 |
goto T2732;} |
goto T2732;} |
7501 |
goto T2727; |
goto T2727; |
7502 |
goto T2732; |
goto T2732; |
7503 |
T2732:; |
T2732:; |
7504 |
{object V711; |
{object V709; |
7505 |
object V713; |
object V711; |
7506 |
V711= symbol_name(car((V710))); |
V709= symbol_name(car((V708))); |
7507 |
V713= cadr((V710)); |
V711= cadr((V708)); |
7508 |
base[6]= (V711); |
base[6]= (V709); |
7509 |
base[7]= V708; |
base[7]= V706; |
7510 |
base[8]= (V713); |
base[8]= (V711); |
7511 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
7512 |
siLhash_set(); |
siLhash_set(); |
7513 |
vs_top=sup;} |
vs_top=sup;} |
7514 |
V709= cdr((V709)); |
V707= cdr((V707)); |
7515 |
V710= car((V709)); |
V708= car((V707)); |
7516 |
goto T2731;} |
goto T2731;} |
7517 |
goto T2727; |
goto T2727; |
7518 |
T2727:; |
T2727:; |
7519 |
base[3]= (V708); |
base[3]= (V706); |
7520 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7521 |
return;} |
return;} |
7522 |
} |
} |
7528 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7529 |
register object *sup=base+VM105; VC105 |
register object *sup=base+VM105; VC105 |
7530 |
vs_reserve(VM105); |
vs_reserve(VM105); |
7531 |
{register object V714; |
{register object V712; |
7532 |
register long V715; |
register long V713; |
7533 |
check_arg(2); |
check_arg(2); |
7534 |
V714=(base[0]); |
V712=(base[0]); |
7535 |
V715=fix(base[1]); |
V713=fix(base[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(!((V715)<=(4))){ |
if(!((V713)<=(4))){ |
7542 |
goto T2749;}switch(V715){ |
goto T2749;}switch(V713){ |
7543 |
case 1: |
case 1: |
7544 |
goto T2755; |
goto T2755; |
7545 |
T2755:; |
T2755:; |
7546 |
V716= VV[10]; |
V714= VV[10]; |
7547 |
goto T2753; |
goto T2753; |
7548 |
case 2: |
case 2: |
7549 |
goto T2756; |
goto T2756; |
7550 |
T2756:; |
T2756:; |
7551 |
V716= VV[15]; |
V714= VV[15]; |
7552 |
goto T2753; |
goto T2753; |
7553 |
case 3: |
case 3: |
7554 |
goto T2757; |
goto T2757; |
7555 |
T2757:; |
T2757:; |
7556 |
V716= VV[16]; |
V714= VV[16]; |
7557 |
goto T2753; |
goto T2753; |
7558 |
case 4: |
case 4: |
7559 |
goto T2758; |
goto T2758; |
7560 |
T2758:; |
T2758:; |
7561 |
V716= VV[17]; |
V714= VV[17]; |
7562 |
goto T2753; |
goto T2753; |
7563 |
default: |
default: |
7564 |
goto T2759; |
goto T2759; |
7565 |
T2759:; |
T2759:; |
7566 |
V716= Cnil; |
V714= Cnil; |
7567 |
goto T2753;} |
goto T2753;} |
7568 |
V716= Cnil; |
V714= Cnil; |
7569 |
goto T2753; |
goto T2753; |
7570 |
T2753:; |
T2753:; |
7571 |
V714= list(2,V716,(V714)); |
V712= list(2,V714,(V712)); |
7572 |
base[2]= (V714); |
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 |
V714= list(2,VV[17],(V714)); |
V712= list(2,VV[17],(V712)); |
7578 |
V715= (long)(V715)-(4); |
V713= (long)(V713)-(4); |
7579 |
goto T2748; |
goto T2748; |
7580 |
} |
} |
7581 |
} |
} |
7582 |
static void LnkT398(){ call_or_link(VV[398],(void **)&Lnk398);} /* LOOP-STANDARD-EXPANSION */ |
static void LnkT400(){ call_or_link(VV[400],(void **)&Lnk400);} /* LOOP-STANDARD-EXPANSION */ |
7583 |
static void LnkT397(){ call_or_link(VV[397],(void **)&Lnk397);} /* LOOP-TRANSLATE */ |
static void LnkT399(){ call_or_link(VV[399],(void **)&Lnk399);} /* LOOP-TRANSLATE */ |
7584 |
static void LnkT396(){ call_or_link(VV[396],(void **)&Lnk396);} /* ADD-LOOP-PATH */ |
static void LnkT398(){ call_or_link(VV[398],(void **)&Lnk398);} /* ADD-LOOP-PATH */ |
7585 |
static void LnkT395(){ call_or_link(VV[395],(void **)&Lnk395);} /* MAKE-STANDARD-LOOP-UNIVERSE */ |
static void LnkT397(){ call_or_link(VV[397],(void **)&Lnk397);} /* MAKE-STANDARD-LOOP-UNIVERSE */ |
7586 |
static void LnkT392(){ call_or_link(VV[392],(void **)&Lnk392);} /* NAMED-VARIABLE */ |
static void LnkT394(){ call_or_link(VV[394],(void **)&Lnk394);} /* NAMED-VARIABLE */ |
7587 |
static void LnkT387(){ call_or_link(VV[387],(void **)&Lnk387);} /* LOOP-SEQUENCER */ |
static void LnkT389(){ call_or_link(VV[389],(void **)&Lnk389);} /* LOOP-SEQUENCER */ |
7588 |
static object LnkTLI384(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[384],(void **)&LnkLI384,ap);va_end(ap);return V1;} /* DELETE */ |
static object LnkTLI386(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[386],(void **)&LnkLI386,ap);va_end(ap);return V1;} /* DELETE */ |
7589 |
static void LnkT383(){ call_or_link(VV[383],(void **)&Lnk383);} /* LOOP-TASSOC */ |
static void LnkT385(){ call_or_link(VV[385],(void **)&Lnk385);} /* LOOP-TASSOC */ |
7590 |
static void LnkT382(){ call_or_link(VV[382],(void **)&Lnk382);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
static void LnkT384(){ call_or_link(VV[384],(void **)&Lnk384);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
7591 |
static void LnkT381(){ call_or_link(VV[381],(void **)&Lnk381);} /* MAKE-LOOP-PATH */ |
static void LnkT383(){ call_or_link(VV[383],(void **)&Lnk383);} /* MAKE-LOOP-PATH */ |
7592 |
static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT382(){ call_or_link(VV[382],(void **)&Lnk382);} /* STRUCTURE-SUBTYPE-P */ |
7593 |
static void LnkT379(){ call_or_link(VV[379],(void **)&Lnk379);} /* LOOP-LIST-STEP */ |
static void LnkT381(){ call_or_link(VV[381],(void **)&Lnk381);} /* LOOP-LIST-STEP */ |
7594 |
static void LnkT378(){ call_or_link(VV[378],(void **)&Lnk378);} /* LOOP-MAKE-ITERATION-VARIABLE */ |
static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* LOOP-MAKE-ITERATION-VARIABLE */ |
7595 |
static void LnkT377(){ call_or_link(VV[377],(void **)&Lnk377);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */ |
static void LnkT379(){ call_or_link(VV[379],(void **)&Lnk379);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */ |
7596 |
static void LnkT376(){ call_or_link(VV[376],(void **)&Lnk376);} /* LOOP-WHEN-IT-VARIABLE */ |
static void LnkT378(){ call_or_link(VV[378],(void **)&Lnk378);} /* LOOP-WHEN-IT-VARIABLE */ |
7597 |
static void LnkT375(){ call_or_link(VV[375],(void **)&Lnk375);} /* LOOP-NOTE-MINIMAX-OPERATION */ |
static void LnkT377(){ call_or_link(VV[377],(void **)&Lnk377);} /* LOOP-NOTE-MINIMAX-OPERATION */ |
7598 |
static void LnkT374(){ call_or_link(VV[374],(void **)&Lnk374);} /* MAKE-LOOP-MINIMAX */ |
static void LnkT376(){ call_or_link(VV[376],(void **)&Lnk376);} /* MAKE-LOOP-MINIMAX */ |
7599 |
static void LnkT373(){ call_or_link(VV[373],(void **)&Lnk373);} /* LOOP-CHECK-DATA-TYPE */ |
static void LnkT375(){ call_or_link(VV[375],(void **)&Lnk375);} /* LOOP-CHECK-DATA-TYPE */ |
7600 |
static void LnkT370(){ call_or_link(VV[370],(void **)&Lnk370);} /* LOOP-EMIT-FINAL-VALUE */ |
static void LnkT372(){ call_or_link(VV[372],(void **)&Lnk372);} /* LOOP-EMIT-FINAL-VALUE */ |
7601 |
static void LnkT369(){ call_or_link(VV[369],(void **)&Lnk369);} /* LOOP-GET-COLLECTION-INFO */ |
static void LnkT371(){ call_or_link(VV[371],(void **)&Lnk371);} /* LOOP-GET-COLLECTION-INFO */ |
7602 |
static void LnkT368(){ call_or_link(VV[368],(void **)&Lnk368);} /* MAKE-LOOP-COLLECTOR */ |
static void LnkT370(){ call_or_link(VV[370],(void **)&Lnk370);} /* MAKE-LOOP-COLLECTOR */ |
7603 |
static object LnkTLI366(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[366],(void **)&LnkLI366,ap);va_end(ap);return V1;} /* FIND */ |
static object LnkTLI368(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[368],(void **)&LnkLI368,ap);va_end(ap);return V1;} /* FIND */ |
7604 |
static void LnkT365(){ call_or_link(VV[365],(void **)&Lnk365);} /* LOOP-OPTIONAL-TYPE */ |
static void LnkT367(){ call_or_link(VV[367],(void **)&Lnk367);} /* LOOP-OPTIONAL-TYPE */ |
7605 |
static void LnkT362(){ call_or_link(VV[362],(void **)&Lnk362);} /* LOOP-EMIT-BODY */ |
static void LnkT364(){ call_or_link(VV[364],(void **)&Lnk364);} /* LOOP-EMIT-BODY */ |
7606 |
static void LnkT361(){ call_or_link(VV[361],(void **)&Lnk361);} /* LOOP-GET-PROGN */ |
static void LnkT363(){ call_or_link(VV[363],(void **)&Lnk363);} /* LOOP-GET-PROGN */ |
7607 |
static void LnkT360(){ call_or_link(VV[360],(void **)&Lnk360);} /* LOOP-DISALLOW-CONDITIONAL */ |
static void LnkT362(){ call_or_link(VV[362],(void **)&Lnk362);} /* LOOP-DISALLOW-CONDITIONAL */ |
7608 |
static void LnkT359(){ call_or_link(VV[359],(void **)&Lnk359);} /* LOOP-GET-FORM */ |
static void LnkT361(){ call_or_link(VV[361],(void **)&Lnk361);} /* LOOP-GET-FORM */ |
7609 |
static void LnkT358(){ call_or_link(VV[358],(void **)&Lnk358);} /* LOOP-CONSTANTP */ |
static void LnkT360(){ call_or_link(VV[360],(void **)&Lnk360);} /* LOOP-CONSTANTP */ |
7610 |
static void LnkT357(){ call_or_link(VV[357],(void **)&Lnk357);} /* LOOP-MAKE-VARIABLE */ |
static void LnkT359(){ call_or_link(VV[359],(void **)&Lnk359);} /* LOOP-MAKE-VARIABLE */ |
7611 |
static void LnkT356(){ call_or_link(VV[356],(void **)&Lnk356);} /* LOOP-DECLARE-VARIABLE */ |
static void LnkT358(){ call_or_link(VV[358],(void **)&Lnk358);} /* LOOP-DECLARE-VARIABLE */ |
7612 |
static void LnkT355(){ call_or_link(VV[355],(void **)&Lnk355);} /* LOOP-TEQUAL */ |
static void LnkT357(){ call_or_link(VV[357],(void **)&Lnk357);} /* LOOP-TEQUAL */ |
7613 |
static object LnkTLI354(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[354],(void **)&LnkLI354,2,ap);va_end(ap);return V1;} /* COERCE */ |
static object LnkTLI356(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[356],(void **)&LnkLI356,2,ap);va_end(ap);return V1;} /* COERCE */ |
7614 |
static void LnkT353(){ call_or_link(VV[353],(void **)&Lnk353);} /* LOOP-CONSTRUCT-RETURN */ |
static void LnkT355(){ call_or_link(VV[355],(void **)&Lnk355);} /* LOOP-CONSTRUCT-RETURN */ |
7615 |
static void LnkT352(){ call_or_link(VV[352],(void **)&Lnk352);} /* LOOP-PSEUDO-BODY */ |
static void LnkT354(){ call_or_link(VV[354],(void **)&Lnk354);} /* LOOP-PSEUDO-BODY */ |
7616 |
static void LnkT351(){ call_or_link(VV[351],(void **)&Lnk351);} /* LOOP-TMEMBER */ |
static void LnkT353(){ call_or_link(VV[353],(void **)&Lnk353);} /* LOOP-TMEMBER */ |
7617 |
static void LnkT350(){ call_or_link(VV[350],(void **)&Lnk350);} /* LOOP-HACK-ITERATION */ |
static void LnkT352(){ call_or_link(VV[352],(void **)&Lnk352);} /* LOOP-HACK-ITERATION */ |
7618 |
static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* LOOP-LOOKUP-KEYWORD */ |
static void LnkT351(){ call_or_link(VV[351],(void **)&Lnk351);} /* LOOP-LOOKUP-KEYWORD */ |
7619 |
static void LnkT348(){ call_or_link(VV[348],(void **)&Lnk348);} /* LOOP-POP-SOURCE */ |
static void LnkT350(){ call_or_link(VV[350],(void **)&Lnk350);} /* LOOP-POP-SOURCE */ |
7620 |
static void LnkT347(){ call_or_link(VV[347],(void **)&Lnk347);} /* LOOP-BIND-BLOCK */ |
static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* LOOP-BIND-BLOCK */ |
7621 |
static void LnkT346(){ call_or_link(VV[346],(void **)&Lnk346);} /* LOOP-ITERATION-DRIVER */ |
static void LnkT348(){ call_or_link(VV[348],(void **)&Lnk348);} /* LOOP-ITERATION-DRIVER */ |
7622 |
static void LnkT345(){ call_or_link(VV[345],(void **)&Lnk345);} /* LOOP-ERROR */ |
static void LnkT347(){ call_or_link(VV[347],(void **)&Lnk347);} /* LOOP-ERROR */ |
7623 |
static void LnkT324(){ call_or_link(VV[324],(void **)&Lnk324);} /* SUBTYPEP */ |
static void LnkT326(){ call_or_link(VV[326],(void **)&Lnk326);} /* SUBTYPEP */ |
7624 |
static object LnkTLI344(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[344],(void **)&LnkLI344,ap);va_end(ap);return V1;} /* WARN */ |
static object LnkTLI346(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[346],(void **)&LnkLI346,ap);va_end(ap);return V1;} /* WARN */ |
7625 |
static void LnkT343(){ call_or_link(VV[343],(void **)&Lnk343);} /* SPECIFIC-ERROR */ |
static void LnkT345(){ call_or_link(VV[345],(void **)&Lnk345);} /* SPECIFIC-ERROR */ |
7626 |
static void LnkT342(){ call_or_link(VV[342],(void **)&Lnk342);} /* LOOP-CONTEXT */ |
static void LnkT344(){ call_or_link(VV[344],(void **)&Lnk344);} /* LOOP-CONTEXT */ |
7627 |
static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* SPECIAL-OPERATOR-P */ |
static void LnkT343(){ call_or_link(VV[343],(void **)&Lnk343);} /* SPECIAL-OPERATOR-P */ |
7628 |
static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* ESTIMATE-CODE-SIZE-1 */ |
static void LnkT342(){ call_or_link(VV[342],(void **)&Lnk342);} /* ESTIMATE-CODE-SIZE-1 */ |
7629 |
static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* DESTRUCTURING-SIZE */ |
static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* DESTRUCTURING-SIZE */ |
7630 |
static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* ESTIMATE-CODE-SIZE */ |
static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* ESTIMATE-CODE-SIZE */ |
7631 |
static void LnkT338(){ call_or_link(VV[338],(void **)&Lnk338);} /* LOOP-CODE-DUPLICATION-THRESHOLD */ |
static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* LOOP-CODE-DUPLICATION-THRESHOLD */ |
7632 |
static void LnkT337(){ call_or_link(VV[337],(void **)&Lnk337);} /* LOOP-OPTIMIZATION-QUANTITIES */ |
static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* LOOP-OPTIMIZATION-QUANTITIES */ |
7633 |
static void LnkT336(){ call_or_link(VV[336],(void **)&Lnk336);} /* LOOP-WARN */ |
static void LnkT338(){ call_or_link(VV[338],(void **)&Lnk338);} /* LOOP-WARN */ |
7634 |
static void LnkT335(){ call_or_link(VV[335],(void **)&Lnk335);} /* LOOP-MAKE-DESETQ */ |
static void LnkT337(){ call_or_link(VV[337],(void **)&Lnk337);} /* LOOP-MAKE-DESETQ */ |
7635 |
static void LnkT334(){ call_or_link(VV[334],(void **)&Lnk334);} /* LOOP-MAKE-PSETQ */ |
static void LnkT336(){ call_or_link(VV[336],(void **)&Lnk336);} /* LOOP-MAKE-PSETQ */ |
7636 |
static void LnkT333(){ call_or_link(VV[333],(void **)&Lnk333);} /* MAKE-LOOP-UNIVERSE */ |
static void LnkT335(){ call_or_link(VV[335],(void **)&Lnk335);} /* MAKE-LOOP-UNIVERSE */ |
7637 |
static void LnkT331(){ call_or_link(VV[331],(void **)&Lnk331);} /* TYPEP */ |
static void LnkT333(){ call_or_link(VV[333],(void **)&Lnk333);} /* TYPEP */ |
7638 |
static void LnkT329(){ call_or_link(VV[329],(void **)&Lnk329);} /* HIDE-VARIABLE-REFERENCE */ |
static void LnkT331(){ call_or_link(VV[331],(void **)&Lnk331);} /* HIDE-VARIABLE-REFERENCE */ |
7639 |
static void LnkT327(){ call_or_link(VV[327],(void **)&Lnk327);} /* LOOP-TYPED-INIT */ |
static void LnkT329(){ call_or_link(VV[329],(void **)&Lnk329);} /* LOOP-TYPED-INIT */ |
7640 |
static void LnkT326(){ call_or_link(VV[326],(void **)&Lnk326);} /* MAKE-LOOP-MINIMAX-INTERNAL */ |
static void LnkT328(){ call_or_link(VV[328],(void **)&Lnk328);} /* MAKE-LOOP-MINIMAX-INTERNAL */ |
7641 |
static void LnkT325(){ call_or_link(VV[325],(void **)&Lnk325);} /* LOOP-GENTEMP */ |
static void LnkT327(){ call_or_link(VV[327],(void **)&Lnk327);} /* LOOP-GENTEMP */ |
7642 |
|
|
7643 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
7644 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |