246 |
return; |
return; |
247 |
goto T63; |
goto T63; |
248 |
T63:; |
T63:; |
249 |
V37= (V37)+(1); |
V37= (long)(V37)+(1); |
250 |
V38= cdr((V38)); |
V38= cdr((V38)); |
251 |
V39= car((V38)); |
V39= car((V38)); |
252 |
goto T58;} |
goto T58;} |
396 |
vs_top=sup; |
vs_top=sup; |
397 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
398 |
goto T122;} |
goto T122;} |
399 |
if(!((length((V49)))==(length(car((V54)))))){ |
if(!(((long)length((V49)))==((long)length(car((V54)))))){ |
400 |
goto T122;} |
goto T122;} |
401 |
{register object V55; |
{register object V55; |
402 |
register object V56; |
register object V56; |
520 |
goto T186; |
goto T186; |
521 |
T186:; |
T186:; |
522 |
V63= ( |
V63= ( |
523 |
(type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)): |
(type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)): |
524 |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
525 |
goto T185; |
goto T185; |
526 |
T185:; |
T185:; |
614 |
goto T242; |
goto T242; |
615 |
T242:; |
T242:; |
616 |
V75= ( |
V75= ( |
617 |
(type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)): |
(type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)): |
618 |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
619 |
goto T238; |
goto T238; |
620 |
T238:; |
T238:; |
1128 |
V143= Cnil; |
V143= Cnil; |
1129 |
V144= make_cons((V140),(V141)); |
V144= make_cons((V140),(V141)); |
1130 |
bds_bind(VV[56],small_fixnum(0)); |
bds_bind(VV[56],small_fixnum(0)); |
1131 |
base[2]= make_fixnum(length((V144))); |
base[2]= make_fixnum((long)length((V144))); |
1132 |
base[3]= VV[57]; |
base[3]= VV[57]; |
1133 |
base[4]= Ct; |
base[4]= Ct; |
1134 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2089 |
VMR37(V389)}} |
VMR37(V389)}} |
2090 |
return Cnil; |
return Cnil; |
2091 |
} |
} |
2092 |
static object LnkTLI177(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[177],(void **)&LnkLI177,1,ap);} /* ABS */ |
static object LnkTLI177(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[177],(void **)&LnkLI177,1,ap);va_end(ap);return V1;} /* ABS */ |
2093 |
static object LnkTLI176(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[176],(void **)&LnkLI176,1,ap);} /* AET-C-TYPE */ |
static object LnkTLI176(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[176],(void **)&LnkLI176,1,ap);va_end(ap);return V1;} /* AET-C-TYPE */ |
2094 |
static object LnkTLI175(){return call_proc0(VV[175],(void **)&LnkLI175);} /* WFS-ERROR */ |
static object LnkTLI175(){return call_proc0(VV[175],(void **)&LnkLI175);} /* WFS-ERROR */ |
2095 |
static object LnkTLI174(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[174],(void **)&LnkLI174,ap);} /* INLINE-ARGS */ |
static object LnkTLI174(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[174],(void **)&LnkLI174,ap);va_end(ap);return V1;} /* INLINE-ARGS */ |
2096 |
static object LnkTLI173(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[173],(void **)&LnkLI173,2,ap);} /* COERCE-LOC */ |
static object LnkTLI173(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[173],(void **)&LnkLI173,2,ap);va_end(ap);return V1;} /* COERCE-LOC */ |
2097 |
static object LnkTLI172(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[172],(void **)&LnkLI172,1,ap);} /* INLINE-TYPE */ |
static object LnkTLI172(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[172],(void **)&LnkLI172,1,ap);va_end(ap);return V1;} /* INLINE-TYPE */ |
2098 |
static object LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],(void **)&LnkLI171,1,ap);} /* ADD-SYMBOL */ |
static object LnkTLI171(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[171],(void **)&LnkLI171,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
2099 |
static object LnkTLI170(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[170],(void **)&LnkLI170,1,ap);} /* TYPE-FILTER */ |
static object LnkTLI170(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[170],(void **)&LnkLI170,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */ |
2100 |
static object LnkTLI169(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[169],(void **)&LnkLI169,2,ap);} /* C1EXPR* */ |
static object LnkTLI169(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[169],(void **)&LnkLI169,2,ap);va_end(ap);return V1;} /* C1EXPR* */ |
2101 |
static object LnkTLI168(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[168],(void **)&LnkLI168,1,ap);} /* C1PROGN */ |
static object LnkTLI168(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[168],(void **)&LnkLI168,1,ap);va_end(ap);return V1;} /* C1PROGN */ |
2102 |
static object LnkTLI167(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[167],(void **)&LnkLI167,2,ap);} /* C2EXPR-TOP */ |
static object LnkTLI167(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[167],(void **)&LnkLI167,2,ap);va_end(ap);return V1;} /* C2EXPR-TOP */ |
2103 |
static object LnkTLI166(){return call_proc0(VV[166],(void **)&LnkLI166);} /* RESET-TOP */ |
static object LnkTLI166(){return call_proc0(VV[166],(void **)&LnkLI166);} /* RESET-TOP */ |
2104 |
static object LnkTLI165(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[165],(void **)&LnkLI165,1,ap);} /* WT1 */ |
static object LnkTLI165(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[165],(void **)&LnkLI165,1,ap);va_end(ap);return V1;} /* WT1 */ |
2105 |
static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* C2EXPR */ |
static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* C2EXPR */ |
2106 |
static object LnkTLI163(){return call_proc0(VV[163],(void **)&LnkLI163);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI163(){return call_proc0(VV[163],(void **)&LnkLI163);} /* CLOSE-INLINE-BLOCKS */ |
2107 |
static object LnkTLI162(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[162],(void **)&LnkLI162,ap);} /* UNWIND-EXIT */ |
static object LnkTLI162(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[162],(void **)&LnkLI162,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
2108 |
static object LnkTLI161(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[161],(void **)&LnkLI161,2,ap);} /* GET-INLINE-LOC */ |
static object LnkTLI161(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[161],(void **)&LnkLI161,2,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */ |
2109 |
static object LnkTLI160(){return call_proc0(VV[160],(void **)&LnkLI160);} /* BABOON */ |
static object LnkTLI160(){return call_proc0(VV[160],(void **)&LnkLI160);} /* BABOON */ |
2110 |
static object LnkTLI159(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[159],(void **)&LnkLI159,1,ap);} /* VOLATILE */ |
static object LnkTLI159(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[159],(void **)&LnkLI159,1,ap);va_end(ap);return V1;} /* VOLATILE */ |
2111 |
static object LnkTLI158(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[158],(void **)&LnkLI158,4,ap);} /* C2CALL-GLOBAL */ |
static object LnkTLI158(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[158],(void **)&LnkLI158,4,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */ |
2112 |
static object LnkTLI157(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[157],(void **)&LnkLI157,ap);} /* C1LAMBDA-EXPR */ |
static object LnkTLI157(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[157],(void **)&LnkLI157,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
2113 |
static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* RESULT-TYPE-FROM-ARGS */ |
static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* RESULT-TYPE-FROM-ARGS */ |
2114 |
static object LnkTLI154(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[154],(void **)&LnkLI154,2,ap);} /* TYPE-AND */ |
static object LnkTLI154(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[154],(void **)&LnkLI154,2,ap);va_end(ap);return V1;} /* TYPE-AND */ |
2115 |
static object LnkTLI152(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[152],(void **)&LnkLI152,3,ap);} /* CHECK-FORM-TYPE */ |
static object LnkTLI152(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[152],(void **)&LnkLI152,3,ap);va_end(ap);return V1;} /* CHECK-FORM-TYPE */ |
2116 |
static object LnkTLI151(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[151],(void **)&LnkLI151,1,ap);} /* GET-ARG-TYPES */ |
static object LnkTLI151(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[151],(void **)&LnkLI151,1,ap);va_end(ap);return V1;} /* GET-ARG-TYPES */ |
2117 |
static object LnkTLI150(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[150],(void **)&LnkLI150,1,ap);} /* GET-RETURN-TYPE */ |
static object LnkTLI150(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[150],(void **)&LnkLI150,1,ap);va_end(ap);return V1;} /* GET-RETURN-TYPE */ |
2118 |
static object LnkTLI149(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[149],(void **)&LnkLI149,3,ap);} /* C1STRUCTURE-REF1 */ |
static object LnkTLI149(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[149],(void **)&LnkLI149,3,ap);va_end(ap);return V1;} /* C1STRUCTURE-REF1 */ |
2119 |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* CMP-EVAL */ |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* CMP-EVAL */ |
2120 |
static object LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],(void **)&LnkLI32,2,ap);} /* RECORD-CALL-INFO */ |
static object LnkTLI32(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[32],(void **)&LnkLI32,2,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */ |
2121 |
static object LnkTLI147(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[147],(void **)&LnkLI147,1,ap);} /* INLINE-POSSIBLE */ |
static object LnkTLI147(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[147],(void **)&LnkLI147,1,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
2122 |
static object LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],(void **)&LnkLI146,3,ap);} /* CMP-EXPAND-MACRO */ |
static object LnkTLI146(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[146],(void **)&LnkLI146,3,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */ |
2123 |
static object LnkTLI145(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[145],(void **)&LnkLI145,3,ap);} /* AND-FORM-TYPE */ |
static object LnkTLI145(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[145],(void **)&LnkLI145,3,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */ |
2124 |
static object LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],(void **)&LnkLI144,1,ap);} /* GET-LOCAL-ARG-TYPES */ |
static object LnkTLI144(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[144],(void **)&LnkLI144,1,ap);va_end(ap);return V1;} /* GET-LOCAL-ARG-TYPES */ |
2125 |
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],(void **)&LnkLI143,1,ap);} /* GET-LOCAL-RETURN-TYPE */ |
static object LnkTLI143(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[143],(void **)&LnkLI143,1,ap);va_end(ap);return V1;} /* GET-LOCAL-RETURN-TYPE */ |
2126 |
static object LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],(void **)&LnkLI142,2,ap);} /* C1ARGS */ |
static object LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,2,ap);va_end(ap);return V1;} /* C1ARGS */ |
2127 |
static object LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],(void **)&LnkLI141,1,ap);} /* C1LOCAL-FUN */ |
static object LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,1,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */ |
2128 |
static object LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],(void **)&LnkLI140,2,ap);} /* TYPE>= */ |
static object LnkTLI140(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[140],(void **)&LnkLI140,2,ap);va_end(ap);return V1;} /* TYPE>= */ |
2129 |
static void LnkT139(){ call_or_link(VV[139],(void **)&Lnk139);} /* FIX-OPT */ |
static void LnkT139(){ call_or_link(VV[139],(void **)&Lnk139);} /* FIX-OPT */ |
2130 |
static object LnkTLI138(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[138],(void **)&LnkLI138,ap);} /* CMPWARN */ |
static object LnkTLI138(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[138],(void **)&LnkLI138,ap);va_end(ap);return V1;} /* CMPWARN */ |
2131 |
static void LnkT137(){ call_or_link(VV[137],(void **)&Lnk137);} /* FLAGS-POS */ |
static void LnkT137(){ call_or_link(VV[137],(void **)&Lnk137);} /* FLAGS-POS */ |
2132 |
static object LnkTLI136(){return call_proc0(VV[136],(void **)&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
static object LnkTLI136(){return call_proc0(VV[136],(void **)&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
2133 |
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],(void **)&LnkLI135,ap);} /* CMPERR */ |
static object LnkTLI135(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[135],(void **)&LnkLI135,ap);va_end(ap);return V1;} /* CMPERR */ |
2134 |
static object LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],(void **)&LnkLI134,2,ap);} /* C1LAMBDA-FUN */ |
static object LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,2,ap);va_end(ap);return V1;} /* C1LAMBDA-FUN */ |
2135 |
static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* C1SYMBOL-FUN */ |
static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* C1SYMBOL-FUN */ |
2136 |
static object LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],(void **)&LnkLI132,1,ap);} /* C1VAR */ |
static object LnkTLI132(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[132],(void **)&LnkLI132,1,ap);va_end(ap);return V1;} /* C1VAR */ |
2137 |
static object LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],(void **)&LnkLI131,1,ap);} /* ADD-CONSTANT */ |
static object LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[131],(void **)&LnkLI131,1,ap);va_end(ap);return V1;} /* ADD-CONSTANT */ |
2138 |
static object LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],(void **)&LnkLI130,2,ap);} /* C1CONSTANT-VALUE */ |
static object LnkTLI130(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[130],(void **)&LnkLI130,2,ap);va_end(ap);return V1;} /* C1CONSTANT-VALUE */ |
2139 |
static object LnkTLI129(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[129],(void **)&LnkLI129,1,ap);} /* ADD-OBJECT */ |
static object LnkTLI129(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[129],(void **)&LnkLI129,1,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
2140 |
static object LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],(void **)&LnkLI128,1,ap);} /* OBJECT-TYPE */ |
static object LnkTLI128(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[128],(void **)&LnkLI128,1,ap);va_end(ap);return V1;} /* OBJECT-TYPE */ |
2141 |
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],(void **)&LnkLI127,ap);} /* MAKE-INFO */ |
static object LnkTLI127(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[127],(void **)&LnkLI127,ap);va_end(ap);return V1;} /* MAKE-INFO */ |
2142 |
static object LnkTLI126(){return call_proc0(VV[126],(void **)&LnkLI126);} /* C1T */ |
static object LnkTLI126(){return call_proc0(VV[126],(void **)&LnkLI126);} /* C1T */ |
2143 |
static object LnkTLI125(){return call_proc0(VV[125],(void **)&LnkLI125);} /* C1NIL */ |
static object LnkTLI125(){return call_proc0(VV[125],(void **)&LnkLI125);} /* C1NIL */ |
2144 |
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,2,ap);} /* ADD-INFO */ |
static object LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,2,ap);va_end(ap);return V1;} /* ADD-INFO */ |
2145 |
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],(void **)&LnkLI123,1,ap);} /* C1EXPR */ |
static object LnkTLI123(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[123],(void **)&LnkLI123,1,ap);va_end(ap);return V1;} /* C1EXPR */ |
2146 |
|
|
2147 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2148 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |