748 |
vs_top=sup; |
vs_top=sup; |
749 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
750 |
goto T304;} |
goto T304;} |
751 |
V135= (V135)+(1); |
V135= (long)(V135)+(1); |
752 |
goto T300; |
goto T300; |
753 |
goto T304; |
goto T304; |
754 |
T304:; |
T304:; |
755 |
V138 = make_fixnum(((V137))-(48)); |
V138 = make_fixnum((long)((long)(V137))-(48)); |
756 |
V136= make_cons(V138,(V136)); |
V136= make_cons(V138,(V136)); |
757 |
V135= (V135)+(1); |
V135= (long)(V135)+(1); |
758 |
V137= char_code(elt((V133),V135)); |
V137= char_code(elt((V133),V135)); |
759 |
goto T303;} |
goto T303;} |
760 |
goto T300; |
goto T300; |
925 |
goto T326; |
goto T326; |
926 |
T326:; |
T326:; |
927 |
V139= cdr((V139)); |
V139= cdr((V139)); |
928 |
V140= (V140)+1; |
V140= (long)(V140)+1; |
929 |
goto T320;}} |
goto T320;}} |
930 |
goto T292; |
goto T292; |
931 |
T292:; |
T292:; |
1092 |
if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){ |
if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){ |
1093 |
goto T492;} |
goto T492;} |
1094 |
{object V181; |
{object V181; |
1095 |
V182 = make_fixnum(length((V166))); |
V182 = make_fixnum((long)length((V166))); |
1096 |
V181= (number_compare(V182,car((base[0]->c.c_car)))>=0?Ct:Cnil); |
V181= (number_compare(V182,car((base[0]->c.c_car)))>=0?Ct:Cnil); |
1097 |
(base[0]->c.c_car)= cdr((base[0]->c.c_car)); |
(base[0]->c.c_car)= cdr((base[0]->c.c_car)); |
1098 |
if(((V181))==Cnil){ |
if(((V181))==Cnil){ |
1102 |
T492:; |
T492:; |
1103 |
goto T490; |
goto T490; |
1104 |
T490:; |
T490:; |
1105 |
base[1]= make_fixnum(length((V166))); |
base[1]= make_fixnum((long)length((V166))); |
1106 |
base[2]= VV[39]; |
base[2]= VV[39]; |
1107 |
base[3]= Ct; |
base[3]= Ct; |
1108 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1413 |
goto T638; |
goto T638; |
1414 |
T638:; |
T638:; |
1415 |
princ_char(125,VV[5]); |
princ_char(125,VV[5]); |
1416 |
V231= (V231)+1; |
V231= (long)(V231)+1; |
1417 |
goto T637;}} |
goto T637;}} |
1418 |
return Cnil; |
return Cnil; |
1419 |
} |
} |
1454 |
vs_top=sup; |
vs_top=sup; |
1455 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1456 |
goto T661;} |
goto T661;} |
1457 |
V235= (V235)+(1); |
V235= (long)(V235)+(1); |
1458 |
goto T652; |
goto T652; |
1459 |
goto T661; |
goto T661; |
1460 |
T661:; |
T661:; |
1461 |
V235= (V235)+(1); |
V235= (long)(V235)+(1); |
1462 |
goto T660; |
goto T660; |
1463 |
goto T652; |
goto T652; |
1464 |
T652:; |
T652:; |
1465 |
{long V237; |
{long V237; |
1466 |
V237= length((V233)); |
V237= (long)length((V233)); |
1467 |
goto T674; |
goto T674; |
1468 |
T674:; |
T674:; |
1469 |
if(!((V235)>=(V237))){ |
if(!((V235)>=(V237))){ |
1484 |
goto T682;} |
goto T682;} |
1485 |
{register object V239; |
{register object V239; |
1486 |
register object V240; |
register object V240; |
1487 |
V239= elt((V233),(V235)+1); |
V239= elt((V233),(long)(V235)+1); |
1488 |
V240= small_fixnum(0); |
V240= small_fixnum(0); |
1489 |
if(!(eql((V239),VV[54]))){ |
if(!(eql((V239),VV[54]))){ |
1490 |
goto T689;} |
goto T689;} |
1492 |
goto T691;} |
goto T691;} |
1493 |
V241 = make_fixnum(V236); |
V241 = make_fixnum(V236); |
1494 |
V242= one_plus(V241); |
V242= one_plus(V241); |
1495 |
V243 = make_fixnum(length((V234))); |
V243 = make_fixnum((long)length((V234))); |
1496 |
if(!(number_compare(/* INLINE-ARGS */V242,V243)<0)){ |
if(!(number_compare(/* INLINE-ARGS */V242,V243)<0)){ |
1497 |
goto T691;} |
goto T691;} |
1498 |
princ_char(44,VV[5]); |
princ_char(44,VV[5]); |
1534 |
Lchar_code(); |
Lchar_code(); |
1535 |
vs_top=sup; |
vs_top=sup; |
1536 |
V247= vs_base[0]; |
V247= vs_base[0]; |
1537 |
V248 = make_fixnum((48)); |
V248 = make_fixnum((long)(48)); |
1538 |
V240= number_minus(V247,V248); |
V240= number_minus(V247,V248); |
1539 |
V249 = make_fixnum(length((V233))); |
V249 = make_fixnum((long)length((V233))); |
1540 |
V250 = make_fixnum(V235); |
V250 = make_fixnum(V235); |
1541 |
V251= number_plus(V250,small_fixnum(2)); |
V251= number_plus(V250,small_fixnum(2)); |
1542 |
if(!(number_compare(V249,/* INLINE-ARGS */V251)>0)){ |
if(!(number_compare(V249,/* INLINE-ARGS */V251)>0)){ |
1556 |
Lchar_code(); |
Lchar_code(); |
1557 |
vs_top=sup; |
vs_top=sup; |
1558 |
V255= vs_base[0]; |
V255= vs_base[0]; |
1559 |
V256 = make_fixnum((48)); |
V256 = make_fixnum((long)(48)); |
1560 |
V257= number_minus(V255,V256); |
V257= number_minus(V255,V256); |
1561 |
V240= number_plus(/* INLINE-ARGS */V254,/* INLINE-ARGS */V257); |
V240= number_plus(/* INLINE-ARGS */V254,/* INLINE-ARGS */V257); |
1562 |
V235= (V235)+(1); |
V235= (long)(V235)+(1); |
1563 |
goto T721; |
goto T721; |
1564 |
T721:; |
T721:; |
1565 |
V258 = make_fixnum(V236); |
V258 = make_fixnum(V236); |
1574 |
vs_top=sup;} |
vs_top=sup;} |
1575 |
goto T686; |
goto T686; |
1576 |
T686:; |
T686:; |
1577 |
V235= (V235)+(2); |
V235= (long)(V235)+(2); |
1578 |
goto T679; |
goto T679; |
1579 |
goto T682; |
goto T682; |
1580 |
T682:; |
T682:; |
1581 |
(void)(princ(code_char(V238),symbol_value(VV[5]))); |
(void)(princ(code_char(V238),symbol_value(VV[5]))); |
1582 |
V235= (V235)+(1);} |
V235= (long)(V235)+(1);} |
1583 |
goto T679; |
goto T679; |
1584 |
T679:; |
T679:; |
1585 |
goto T674;} |
goto T674;} |
1652 |
princ_str("CMP",VV[5]); |
princ_str("CMP",VV[5]); |
1653 |
goto T754; |
goto T754; |
1654 |
T754:; |
T754:; |
1655 |
princ_str("make_fixnum(",VV[5]); |
princ_str("make_fixnum((long)",VV[5]); |
1656 |
base[0]= (V274); |
base[0]= (V274); |
1657 |
base[1]= (V275); |
base[1]= (V275); |
1658 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1835 |
{object V316; |
{object V316; |
1836 |
object V317; |
object V317; |
1837 |
V316= Cnil; |
V316= Cnil; |
1838 |
V317= make_fixnum(length((V314))); |
V317= make_fixnum((long)length((V314))); |
1839 |
if(type_of(symbol_value(VV[13]))==t_cons){ |
if(type_of(symbol_value(VV[13]))==t_cons){ |
1840 |
goto T825;} |
goto T825;} |
1841 |
V316= Cnil; |
V316= Cnil; |
1862 |
goto T822; |
goto T822; |
1863 |
T822:; |
T822:; |
1864 |
princ_str("list(",VV[5]); |
princ_str("list(",VV[5]); |
1865 |
V319 = make_fixnum(length((V314))); |
V319 = make_fixnum((long)length((V314))); |
1866 |
(void)((*(LnkLI76))(V319)); |
(void)((*(LnkLI76))(V319)); |
1867 |
goto T820; |
goto T820; |
1868 |
T820:; |
T820:; |
1910 |
va_start(ap); |
va_start(ap); |
1911 |
narg= narg - 0; |
narg= narg - 0; |
1912 |
V325 = list_vector(narg,ap); |
V325 = list_vector(narg,ap); |
1913 |
V324= V325;switch(length((V324))){ |
V324= V325;switch((long)length((V324))){ |
1914 |
case 1: |
case 1: |
1915 |
goto T859; |
goto T859; |
1916 |
T859:; |
T859:; |
1931 |
goto T861; |
goto T861; |
1932 |
T861:; |
T861:; |
1933 |
princ_str("listA(",VV[5]); |
princ_str("listA(",VV[5]); |
1934 |
V328 = make_fixnum(length((V324))); |
V328 = make_fixnum((long)length((V324))); |
1935 |
(void)((*(LnkLI76))(V328)); |
(void)((*(LnkLI76))(V328)); |
1936 |
{register object V329; |
{register object V329; |
1937 |
register object V330; |
register object V330; |
2067 |
V355=(base[0]); |
V355=(base[0]); |
2068 |
vs_top=sup; |
vs_top=sup; |
2069 |
princ_str("(VFUN_NARGS=",VV[5]); |
princ_str("(VFUN_NARGS=",VV[5]); |
2070 |
V356 = make_fixnum(length((V355))); |
V356 = make_fixnum((long)length((V355))); |
2071 |
(void)((*(LnkLI76))(V356)); |
(void)((*(LnkLI76))(V356)); |
2072 |
princ_char(44,VV[5]); |
princ_char(44,VV[5]); |
2073 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
2081 |
return; |
return; |
2082 |
} |
} |
2083 |
} |
} |
2084 |
static object LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],(void **)&LnkLI109,1,ap);} /* FUNCTION-RETURN-TYPE */ |
static object LnkTLI109(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[109],(void **)&LnkLI109,1,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */ |
2085 |
static object LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],(void **)&LnkLI108,1,ap);} /* TYPE-FILTER */ |
static object LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[108],(void **)&LnkLI108,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */ |
2086 |
static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* WT-INLINE-LOC */ |
static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* WT-INLINE-LOC */ |
2087 |
static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],(void **)&LnkLI106,2,ap);} /* TYPE>= */ |
static object LnkTLI106(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[106],(void **)&LnkLI106,2,ap);va_end(ap);return V1;} /* TYPE>= */ |
2088 |
static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-OPT */ |
static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-OPT */ |
2089 |
static object LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],(void **)&LnkLI104,3,ap);} /* INLINE-TYPE-MATCHES */ |
static object LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[104],(void **)&LnkLI104,3,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */ |
2090 |
static object LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],(void **)&LnkLI103,3,ap);} /* ADD-FAST-LINK */ |
static object LnkTLI103(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[103],(void **)&LnkLI103,3,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */ |
2091 |
static object LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[102],(void **)&LnkLI102,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
static object LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[102],(void **)&LnkLI102,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
2092 |
static object LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],(void **)&LnkLI101,1,ap);} /* INLINE-TYPE */ |
static object LnkTLI101(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[101],(void **)&LnkLI101,1,ap);va_end(ap);return V1;} /* INLINE-TYPE */ |
2093 |
static object LnkTLI100(){return call_proc0(VV[100],(void **)&LnkLI100);} /* BABOON */ |
static object LnkTLI100(){return call_proc0(VV[100],(void **)&LnkLI100);} /* BABOON */ |
2094 |
static object LnkTLI7(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[7],(void **)&LnkLI7,ap);} /* INLINE-ARGS */ |
static object LnkTLI7(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[7],(void **)&LnkLI7,ap);va_end(ap);return V1;} /* INLINE-ARGS */ |
2095 |
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],(void **)&LnkLI99,ap);} /* MAKE-VAR */ |
static object LnkTLI99(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[99],(void **)&LnkLI99,ap);va_end(ap);return V1;} /* MAKE-VAR */ |
2096 |
static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],(void **)&LnkLI97,2,ap);} /* COERCE-LOC-STRUCTURE-REF */ |
static object LnkTLI97(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[97],(void **)&LnkLI97,2,ap);va_end(ap);return V1;} /* COERCE-LOC-STRUCTURE-REF */ |
2097 |
static object LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],(void **)&LnkLI95,1,ap);} /* C2EXPR* */ |
static object LnkTLI95(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[95],(void **)&LnkLI95,1,ap);va_end(ap);return V1;} /* C2EXPR* */ |
2098 |
static object LnkTLI94(){return call_proc0(VV[94],(void **)&LnkLI94);} /* VS-PUSH */ |
static object LnkTLI94(){return call_proc0(VV[94],(void **)&LnkLI94);} /* VS-PUSH */ |
2099 |
static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* WT-SHORT-FLOAT-LOC */ |
static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* WT-SHORT-FLOAT-LOC */ |
2100 |
static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* WT-LONG-FLOAT-LOC */ |
static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* WT-LONG-FLOAT-LOC */ |
2102 |
static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* WT-INTEGER-LOC */ |
static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* WT-INTEGER-LOC */ |
2103 |
static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* WT-FIXNUM-LOC */ |
static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* WT-FIXNUM-LOC */ |
2104 |
static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* WT-LOC */ |
static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* WT-LOC */ |
2105 |
static object LnkTLI87(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[87],(void **)&LnkLI87,2,ap);} /* NEED-TO-PROTECT */ |
static object LnkTLI87(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[87],(void **)&LnkLI87,2,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */ |
2106 |
static object LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],(void **)&LnkLI86,2,ap);} /* GET-INLINE-LOC */ |
static object LnkTLI86(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[86],(void **)&LnkLI86,2,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */ |
2107 |
static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* SAVE-AVMA */ |
static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* SAVE-AVMA */ |
2108 |
static object LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[84],(void **)&LnkLI84,3,ap);} /* GET-INLINE-INFO */ |
static object LnkTLI84(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[84],(void **)&LnkLI84,3,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */ |
2109 |
static object LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[83],(void **)&LnkLI83,1,ap);} /* INLINE-POSSIBLE */ |
static object LnkTLI83(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[83],(void **)&LnkLI83,1,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
2110 |
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[81],(void **)&LnkLI81,ap);} /* CS-PUSH */ |
static object LnkTLI81(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[81],(void **)&LnkLI81,ap);va_end(ap);return V1;} /* CS-PUSH */ |
2111 |
static object LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],(void **)&LnkLI80,2,ap);} /* WT-VAR */ |
static object LnkTLI80(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[80],(void **)&LnkLI80,2,ap);va_end(ap);return V1;} /* WT-VAR */ |
2112 |
static object LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* WT-C-PUSH */ |
static object LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* WT-C-PUSH */ |
2113 |
static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INC-INLINE-BLOCKS */ |
static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INC-INLINE-BLOCKS */ |
2114 |
static object LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],(void **)&LnkLI77,1,ap);} /* REP-TYPE */ |
static object LnkTLI77(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[77],(void **)&LnkLI77,1,ap);va_end(ap);return V1;} /* REP-TYPE */ |
2115 |
static object LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],(void **)&LnkLI76,1,ap);} /* WT1 */ |
static object LnkTLI76(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[76],(void **)&LnkLI76,1,ap);va_end(ap);return V1;} /* WT1 */ |
2116 |
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],(void **)&LnkLI75,2,ap);} /* ARGS-INFO-CHANGED-VARS */ |
static object LnkTLI75(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[75],(void **)&LnkLI75,2,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */ |
2117 |
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],(void **)&LnkLI74,2,ap);} /* COERCE-LOC */ |
static object LnkTLI74(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[74],(void **)&LnkLI74,2,ap);va_end(ap);return V1;} /* COERCE-LOC */ |
2118 |
|
|
2119 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2120 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |