This is cmpinline.c in view mode; [Download] [Up]
#include <cmpinclude.h> #include "cmpinline.h" init_cmpinline(){do_init(VV);} /* local entry for function MAKE-INFO */ static object LI1(va_alist) va_dcl { va_list ap; int narg = VFUN_NARGS; VMB1 VMS1 VMV1 {object V1; object V2; object V3; object V4; object V5; narg= narg - 0; va_start(ap); { parse_key_new(narg,Vcs +0,&LI1key,ap); V1=(Vcs[0]); V2=(Vcs[1]); if(Vcs[2]==0){ V3= Ct; }else{ V3=(Vcs[2]);} V4=(Vcs[3]); V5=(Vcs[4]); base[0]= VV[0]; base[1]= (V1); base[2]= (V2); base[3]= (V3); base[4]= (V4); base[5]= (V5); vs_top=(vs_base=base+0)+6; siLmake_structure(); vs_top=sup; {object V6 = vs_base[0]; VMR1(V6)}} }} /* local entry for function ADD-INFO */ static object LI2(V9,V10) register object V9;object V10; { VMB2 VMS2 VMV2 TTL:; V11= structure_ref((V10),VV[0],0); V12= structure_ref((V9),VV[0],0); V13= append(/* INLINE-ARGS */V11,/* INLINE-ARGS */V12); (void)(structure_set((V9),VV[0],0,/* INLINE-ARGS */V13)); V14= structure_ref((V10),VV[0],1); V15= structure_ref((V9),VV[0],1); V16= append(/* INLINE-ARGS */V14,/* INLINE-ARGS */V15); (void)(structure_set((V9),VV[0],1,/* INLINE-ARGS */V16)); if((structure_ref((V10),VV[0],3))==Cnil){ goto T11;} {object V17 = structure_set((V9),VV[0],3,Ct); VMR2(V17)} T11:; {object V18 = Cnil; VMR2(V18)} } /* local entry for function ARGS-INFO-CHANGED-VARS */ static object LI3(V21,V22) register object V21;object V22; { VMB3 VMS3 VMV3 TTL:; V24= structure_ref((V21),VV[1],1); {object V23= /* INLINE-ARGS */V24; if((V23== VV[71]) || (V23== VV[45]) || (V23== VV[72]) || (V23== VV[46]) || (V23== VV[47]))goto T14; if((V23!= VV[18]))goto T13; T14:; {register object V25; register object V26; V25= (V22); V26= car((V25)); T18:; if(!(endp((V25)))){ goto T19;} {object V27 = Cnil; VMR3(V27)} T19:; V29= structure_ref(cadr((V26)),VV[0],0); {register object x= (V21),V28= /* INLINE-ARGS */V29; while(!endp(V28)) if(eql(x,V28->c.c_car)){ goto T25; }else V28=V28->c.c_cdr; goto T23;} T25:; {object V30 = Ct; VMR3(V30)} T23:; V25= cdr((V25)); V26= car((V25)); goto T18;} T13:; if((V23!= VV[73]))goto T31; {object V31 = Cnil; VMR3(V31)} T31:; {register object V32; register object V33; V32= (V22); V33= car((V32)); T35:; if(!(endp((V32)))){ goto T36;} {object V34 = Cnil; VMR3(V34)} T36:; V36= structure_ref(cadr((V33)),VV[0],0); {register object x= (V21),V35= /* INLINE-ARGS */V36; while(!endp(V35)) if(eql(x,V35->c.c_car)){ goto T41; }else V35=V35->c.c_cdr;} if((structure_ref(cadr((V33)),VV[0],3))==Cnil){ goto T40;} T41:; {object V37 = Ct; VMR3(V37)} T40:; V32= cdr((V32)); V33= car((V32)); goto T35;}} } /* local entry for function ARGS-INFO-REFERRED-VARS */ static object LI4(V40,V41) register object V40;object V41; { VMB4 VMS4 VMV4 TTL:; V43= structure_ref((V40),VV[1],1); {object V42= /* INLINE-ARGS */V43; if((V42== VV[71]) || (V42== VV[73]) || (V42== VV[45]) || (V42== VV[72]) || (V42== VV[46]))goto T51; if((V42!= VV[47]) && (V42!= VV[18]))goto T50; T51:; {register object V44; register object V45; V44= (V41); V45= car((V44)); T55:; if(!(endp((V44)))){ goto T56;} {object V46 = Cnil; VMR4(V46)} T56:; V48= structure_ref(cadr((V45)),VV[0],1); {register object x= (V40),V47= /* INLINE-ARGS */V48; while(!endp(V47)) if(eql(x,V47->c.c_car)){ goto T62; }else V47=V47->c.c_cdr; goto T60;} T62:; {object V49 = Ct; VMR4(V49)} T60:; V44= cdr((V44)); V45= car((V44)); goto T55;} T50:; {register object V50; register object V51; V50= (V41); V51= car((V50)); T71:; if(!(endp((V50)))){ goto T72;} {object V52 = Cnil; VMR4(V52)} T72:; V54= structure_ref(cadr((V51)),VV[0],1); {register object x= (V40),V53= /* INLINE-ARGS */V54; while(!endp(V53)) if(eql(x,V53->c.c_car)){ goto T77; }else V53=V53->c.c_cdr;} if((structure_ref(cadr((V51)),VV[0],3))==Cnil){ goto T76;} T77:; {object V55 = Ct; VMR4(V55)} T76:; V50= cdr((V50)); V51= car((V50)); goto T71;}} } /* function definition for INC-INLINE-BLOCKS */ static L5() {register object *base=vs_base; register object *sup=base+VM5; VC5 vs_reserve(VM5); check_arg(0); vs_top=sup; TTL:; if(!(type_of(symbol_value(VV[2]))==t_cons)){ goto T87;} {object V56; object V57; V56= symbol_value(VV[2]); V57= number_plus(car((V56)),small_fixnum(1)); if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56)); ((V56))->c.c_car = (V57); base[1]= (V57); vs_top=(vs_base=base+1)+1; return;} T87:; setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1))); base[0]= symbol_value(VV[2]); vs_top=(vs_base=base+0)+1; return; } /* local entry for function INLINE-ARGS */ static object LI6(V59,V58,va_alist) object V59,V58; va_dcl { va_list ap; int narg = VFUN_NARGS; VMB6 VMS6 VMV6 bds_check; {object V60; object V61; object V62; if(narg <2) too_few_arguments(); V60= V59; V61= V58; narg = narg - 2; if (narg <= 0) goto T93; else { va_start(ap); V62= va_arg(ap,object);} --narg; goto T94; T93:; V62= Cnil; T94:; {register object V63; register object V64; V63= Cnil; V64= Cnil; {register object V65; object V66; V65= (V60); V66= (V61); T99:; if(!(endp((V65)))){ goto T100;} {object V67 = reverse((V63)); VMR6(V67)} T100:; {register object V68; register object V69; V68= car((V65)); V69= car((V66)); {object V70= car((V68)); if((V70!= VV[14]))goto T107; V71= (*(LnkLI74))(caddr((V68)),(V69)); V63= make_cons(/* INLINE-ARGS */V71,(V63)); goto T104; T107:; if((V70!= VV[1]))goto T109; if(((*(LnkLI75))(caaddr((V68)),cdr((V65))))==Cnil){ goto T111;} V73= structure_ref(caaddr((V68)),VV[1],1); {register object x= /* INLINE-ARGS */V73,V72= symbol_value(VV[3]); while(!endp(V72)) if(eql(x,V72->c.c_car)){ goto T116; }else V72=V72->c.c_cdr; goto T114;} T116:; V74= structure_ref(caaddr((V68)),VV[1],1); if(!(((V69))==(/* INLINE-ARGS */V74))){ goto T114;} {object V75; setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); V75= symbol_value(VV[4]); princ_str("\n {",VV[5]); V76= (*(LnkLI77))((V69)); (void)((*(LnkLI76))(/* INLINE-ARGS */V76)); princ_char(86,VV[5]); (void)((*(LnkLI76))((V75))); princ_str("= V",VV[5]); V77= structure_ref(caaddr((V68)),VV[1],4); (void)((*(LnkLI76))(/* INLINE-ARGS */V77)); princ_char(59,VV[5]); V78= list(3,VV[6],(V75),VV[7]); V63= make_cons(/* INLINE-ARGS */V78,(V63)); vs_base=vs_top; (void) (*Lnk78)(); vs_top=sup; goto T104;} T114:; {object V79; V79= (*(LnkLI79))(); princ_str("\n ",VV[5]); (void)((*(LnkLI76))((V79))); princ_str("= ",VV[5]); (void)((*(LnkLI80))(caaddr((V68)),cadr(caddr((V68))))); princ_char(59,VV[5]); V80= (*(LnkLI74))((V79),(V69)); V63= make_cons(/* INLINE-ARGS */V80,(V63)); goto T104;} T111:; V82= structure_ref(caaddr((V68)),VV[1],1); {register object x= /* INLINE-ARGS */V82,V81= VV[8]; while(!endp(V81)) if(eql(x,V81->c.c_car)){ goto T142; }else V81=V81->c.c_cdr; goto T140;} T142:; V83= structure_ref(caaddr((V68)),VV[1],1); if(((V69))==(/* INLINE-ARGS */V83)){ goto T140;} {object V84; V84= (VFUN_NARGS=1,(*(LnkLI81))((V69))); princ_str("\n V",VV[5]); (void)((*(LnkLI76))((V84))); princ_str(" = ",VV[5]); V85= make_cons(VV[1],caddr((V68))); V86= (*(LnkLI74))(/* INLINE-ARGS */V85,(V69)); (void)((*(LnkLI76))(/* INLINE-ARGS */V86)); princ_char(59,VV[5]); V87= list(2,VV[6],(V84)); V63= make_cons(/* INLINE-ARGS */V87,(V63)); goto T104;} T140:; V88= make_cons(VV[1],caddr((V68))); V89= (*(LnkLI74))(/* INLINE-ARGS */V88,(V69)); V63= make_cons(/* INLINE-ARGS */V89,(V63)); goto T104; T109:; if((V70!= VV[82]))goto T153; {object V90; V90= caddr((V68)); if(((*(LnkLI83))((V90)))!=Cnil){ goto T158;} goto T155; T158:; V91= cadddr((V68)); V92= structure_ref(cadr((V68)),VV[0],2); V64= (*(LnkLI84))((V90),/* INLINE-ARGS */V91,/* INLINE-ARGS */V92); if(((V64))!=Cnil){ goto T160;} goto T155; T160:; base[0]= (V64); vs_top=(vs_base=base+0)+1; (void) (*Lnk85)(); vs_top=sup;} {register object V93; V93= (*(LnkLI86))((V64),cadddr((V68))); base[0]= small_fixnum(0); base[1]= caddr((V64)); vs_top=(vs_base=base+0)+2; Llogbitp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T168;} if((symbol_value(VV[9]))==Cnil){ goto T166;} T168:; {register object x= cadr((V64)),V94= VV[10]; while(!endp(V94)) if(eql(x,V94->c.c_car)){ goto T175; }else V94=V94->c.c_cdr; goto T167;} T175:; if(((V69))==(cadr((V64)))){ goto T167;} T166:; {object V95; V95= (VFUN_NARGS=1,(*(LnkLI81))((V69))); princ_str("\n V",VV[5]); (void)((*(LnkLI76))((V95))); princ_str(" = ",VV[5]); V96= (*(LnkLI74))((V93),(V69)); (void)((*(LnkLI76))(/* INLINE-ARGS */V96)); princ_char(59,VV[5]); V97= list(2,VV[6],(V95)); V63= make_cons(/* INLINE-ARGS */V97,(V63)); goto T104;} T167:; if(((*(LnkLI87))(cdr((V65)),cdr((V66))))!=Cnil){ goto T185;} base[0]= small_fixnum(0); base[1]= caddr((V64)); vs_top=(vs_base=base+0)+2; Llogbitp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T189;} if(((V62))==Cnil){ goto T185;} {register object x= (V62),V98= VV[11]; while(!endp(V98)) if(x==(V98->c.c_car)){ goto T196; }else V98=V98->c.c_cdr; goto T185;} T196:; T189:; base[0]= small_fixnum(4); base[1]= caddr((V64)); vs_top=(vs_base=base+0)+2; Llogbitp(); vs_top=sup; if((vs_base[0])!=Cnil){ goto T185;} base[0]= small_fixnum(1); base[1]= caddr((V64)); vs_top=(vs_base=base+0)+2; Llogbitp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T186;} if((cdr((V65)))==Cnil){ goto T186;} T185:; {object V99; V99= Cnil; if(!(((V69))==(Ct))){ goto T208;} V99= (VFUN_NARGS=0,(*(LnkLI81))()); princ_str("\n V",VV[5]); (void)((*(LnkLI76))((V99))); princ_str("= ",VV[5]); base[0]= (V93); vs_top=(vs_base=base+0)+1; (void) (*Lnk88)(); vs_top=sup; goto T206; T208:; setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); V99= symbol_value(VV[4]); princ_str("\n {",VV[5]); V100= (*(LnkLI77))((V69)); (void)((*(LnkLI76))(/* INLINE-ARGS */V100)); princ_char(86,VV[5]); (void)((*(LnkLI76))((V99))); princ_str("= ",VV[5]); {object V101= (V69); if((V101!= VV[45]))goto T227; base[0]= (V93); vs_top=(vs_base=base+0)+1; (void) (*Lnk89)(); vs_top=sup; goto T226; T227:; if((V101!= VV[40]))goto T229; base[0]= (V93); base[1]= VV[7]; vs_top=(vs_base=base+0)+2; (void) (*Lnk90)(); vs_top=sup; goto T226; T229:; if((V101!= VV[72]))goto T232; base[0]= (V93); vs_top=(vs_base=base+0)+1; (void) (*Lnk91)(); vs_top=sup; goto T226; T232:; if((V101!= VV[46]))goto T234; base[0]= (V93); vs_top=(vs_base=base+0)+1; (void) (*Lnk92)(); vs_top=sup; goto T226; T234:; if((V101!= VV[47]))goto T236; base[0]= (V93); vs_top=(vs_base=base+0)+1; (void) (*Lnk93)(); vs_top=sup; goto T226; T236:; base[0]= (V93); vs_top=(vs_base=base+0)+1; (void) (*Lnk88)(); vs_top=sup;} T226:; vs_base=vs_top; (void) (*Lnk78)(); vs_top=sup; T206:; princ_char(59,VV[5]); V102= list(3,VV[6],(V99),VV[7]); V63= make_cons(/* INLINE-ARGS */V102,(V63)); goto T104;} T186:; V103= (*(LnkLI74))((V93),(V69)); V63= make_cons(/* INLINE-ARGS */V103,(V63)); goto T104;} T155:; {object V104; if((symbol_value(VV[9]))==Cnil){ goto T245;} V104= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))())); goto T243; T245:; V104= list(2,VV[12],(*(LnkLI94))()); T243:; bds_bind(VV[13],(V104)); V105= (*(LnkLI95))((V68)); bds_unwind1; V106= (*(LnkLI74))((V104),(V69)); V63= make_cons(/* INLINE-ARGS */V106,(V63)); goto T104;} T153:; if((V70!= VV[96]))goto T249; V107= (*(LnkLI97))(cdr((V68)),(V69)); V63= make_cons(/* INLINE-ARGS */V107,(V63)); goto T104; T249:; if((V70!= VV[98]))goto T251; {object V108; object V109; V108= caddr((V68)); V109= cadddr((V68)); base[0]= make_cons(VV[1],(V108)); bds_bind(VV[13],base[0]); V110= (*(LnkLI95))((V109)); bds_unwind1; if(!((car((V109)))==(VV[14]))){ goto T257;} V111= (*(LnkLI74))(caddr((V109)),(V69)); V63= make_cons(/* INLINE-ARGS */V111,(V63)); goto T104; T257:; V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V108)),cdr((V65))); V66= make_cons((V69),(V66)); goto T104;} T251:; {object V112; if((symbol_value(VV[9]))==Cnil){ goto T265;} if(!(((V69))==(Ct))){ goto T268;} V112= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))())); goto T263; T268:; setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); V113= make_cons((V69),symbol_value(VV[4])); setq(VV[15],make_cons(/* INLINE-ARGS */V113,symbol_value(VV[15]))); {register object x= (V69),V115= symbol_value(VV[3]); while(!endp(V115)) if(eql(x,V115->c.c_car)){ goto T276; }else V115=V115->c.c_cdr; goto T275;} T276:; V114= (V69); goto T273; T275:; V114= VV[18]; T273:; V116= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V69),VV[17],V114,VV[19],cdar(symbol_value(VV[15])))); V112= list(3,VV[1],/* INLINE-ARGS */V116,Cnil); goto T263; T265:; V112= list(2,VV[12],(*(LnkLI94))()); T263:; bds_bind(VV[13],(V112)); (void)((*(LnkLI95))((V68))); V117= (*(LnkLI74))((V112),(V69)); V63= make_cons(/* INLINE-ARGS */V117,(V63)); bds_unwind1;}}} T104:; V65= cdr((V65)); V66= cdr((V66)); goto T99;}}} } /* local entry for function COERCE-LOC */ static object LI7(V120,V121) register object V120;object V121; { VMB7 VMS7 VMV7 TTL:; {object V122= (V121); if((V122!= VV[45]))goto T283; {object V123 = list(2,VV[20],(V120)); VMR7(V123)} T283:; if((V122!= VV[40]))goto T284; {object V124 = list(2,VV[21],(V120)); VMR7(V124)} T284:; if((V122!= VV[72]))goto T285; {object V125 = list(2,VV[22],(V120)); VMR7(V125)} T285:; if((V122!= VV[46]))goto T286; {object V126 = list(2,VV[23],(V120)); VMR7(V126)} T286:; if((V122!= VV[47]))goto T287; {object V127 = list(2,VV[24],(V120)); VMR7(V127)} T287:; {object V128 = (V120); VMR7(V128)}} } /* local entry for function GET-INLINE-LOC */ static object LI8(V131,V132) object V131;object V132; { VMB8 VMS8 VMV8 TTL:; {object V133; object V134; V133= car(cdddr((V131))); V134= Cnil; V134= (VFUN_NARGS=3,(*(LnkLI7))((V132),car((V131)),(V133))); if(!(type_of((V133))==t_string)){ goto T292;} base[1]= elt((V133),0); base[2]= VV[25]; vs_top=(vs_base=base+1)+2; Lchar_eq(); vs_top=sup; if((vs_base[0])==Cnil){ goto T292;} {register int V135; object V136; V135= 1; V136= Cnil; {unsigned char V137; V137= char_code(elt((V133),V135)); T303:; base[1]= code_char(V137); base[2]= VV[26]; vs_top=(vs_base=base+1)+2; Lchar_eq(); vs_top=sup; if((vs_base[0])==Cnil){ goto T304;} V135= (V135)+(1); goto T300; T304:; V138 = make_fixnum(((V137))-(48)); V136= make_cons(V138,(V136)); V135= (V135)+(1); V137= char_code(elt((V133),V135)); goto T303;} T300:; {object V139; int V140; register object V141; V140= 0; V139= (V134); V141= Cnil; T320:; if(!(endp((V139)))){ goto T321;} V134= reverse((V141)); goto T292; T321:; V143 = make_fixnum(V140); {register object x= V143,V142= (V136); while(!endp(V142)) if(eql(x,V142->c.c_car)){ goto T329; }else V142=V142->c.c_cdr; goto T328;} T329:; {register object V144; register object V145; object V146; V144= car((V139)); V145= (V144); V146= Cnil; if(!(type_of((V144))==t_cons)){ goto T333;} {register object x= car((V144)),V147= VV[27]; while(!endp(V147)) if(eql(x,V147->c.c_car)){ goto T337; }else V147=V147->c.c_cdr; goto T333;} T337:; V146= car((V144)); V145= cadr((V144)); T333:; if(!(type_of((V145))==t_cons)){ goto T342;} {register object x= car((V145)),V148= VV[28]; while(!endp(V148)) if(eql(x,V148->c.c_car)){ goto T341; }else V148=V148->c.c_cdr;} {register object x= car((V145)),V149= VV[29]; while(!endp(V149)) if(eql(x,V149->c.c_car)){ goto T348; }else V149=V149->c.c_cdr; goto T342;} T348:; base[2]= small_fixnum(0); base[3]= cadr((V145)); vs_top=(vs_base=base+2)+2; Llogbitp(); vs_top=sup; if((vs_base[0])!=Cnil){ goto T341;} base[2]= small_fixnum(1); base[3]= cadr((V145)); vs_top=(vs_base=base+2)+2; Llogbitp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T342;} T341:; princ_str("\n {",VV[5]); vs_base=vs_top; (void) (*Lnk78)(); vs_top=sup; {register object V150; setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); V150= symbol_value(VV[4]); V151= list(2,VV[6],(V150)); V141= make_cons(/* INLINE-ARGS */V151,(V141)); {object V152= (V146); if((V152!= Cnil))goto T364; princ_str("object V",VV[5]); (void)((*(LnkLI76))((V150))); princ_str("= ",VV[5]); base[2]= (V144); vs_top=(vs_base=base+2)+1; (void) (*Lnk88)(); vs_top=sup; goto T359; T364:; if((V152!= VV[20]))goto T370; princ_str("int V",VV[5]); (void)((*(LnkLI76))((V150))); princ_str("= ",VV[5]); base[2]= (V145); vs_top=(vs_base=base+2)+1; (void) (*Lnk89)(); vs_top=sup; goto T359; T370:; if((V152!= VV[21]))goto T376; princ_str("GEN V",VV[5]); (void)((*(LnkLI76))((V150))); princ_str("= ",VV[5]); base[2]= (V145); base[3]= VV[30]; vs_top=(vs_base=base+2)+2; (void) (*Lnk90)(); vs_top=sup; goto T359; T376:; if((V152!= VV[22]))goto T383; princ_str("unsigned char V",VV[5]); (void)((*(LnkLI76))((V150))); princ_str("= ",VV[5]); base[2]= (V145); vs_top=(vs_base=base+2)+1; (void) (*Lnk91)(); vs_top=sup; goto T359; T383:; if((V152!= VV[23]))goto T389; princ_str("double V",VV[5]); (void)((*(LnkLI76))((V150))); princ_str("= ",VV[5]); base[2]= (V145); vs_top=(vs_base=base+2)+1; (void) (*Lnk92)(); vs_top=sup; goto T359; T389:; if((V152!= VV[24]))goto T395; princ_str("float V",VV[5]); (void)((*(LnkLI76))((V150))); princ_str("= ",VV[5]); base[2]= (V145); vs_top=(vs_base=base+2)+1; (void) (*Lnk93)(); vs_top=sup; goto T359; T395:; (void)((*(LnkLI100))());}} T359:; princ_char(59,VV[5]); goto T326; T342:; V141= make_cons((V144),(V141)); goto T326;} T328:; V141= make_cons(car((V139)),(V141)); T326:; V139= cdr((V139)); V140= (V140)+1; goto T320;}} T292:; V153= (*(LnkLI101))(cadr((V131))); {object V154 = list(4,/* INLINE-ARGS */V153,caddr((V131)),(V133),(V134)); VMR8(V154)}} } /* local entry for function INLINE-TYPE */ static object LI9(V156) object V156; { VMB9 VMS9 VMV9 TTL:;{object V157; {register object x= (V156),V159= symbol_value(VV[31]); while(!endp(V159)) if(type_of(V159->c.c_car)==t_cons &&eql(x,V159->c.c_car->c.c_car)){ V158= (V159->c.c_car); goto T410; }else V159=V159->c.c_cdr; V158= Cnil;} T410:; V157= cdr(V158); if(V157==Cnil)goto T408; {object V160 = V157; VMR9(V160)} T408:;} {object V161 = VV[32]; VMR9(V161)} } /* local entry for function GET-INLINE-INFO */ static object LI10(V165,V166,V167) object V165;register object V166;object V167; { VMB10 VMS10 VMV10 TTL:; {register object V168; base[0]=MMcons(Cnil,Cnil); V168= Cnil; if(((VFUN_NARGS=2,(*(LnkLI102))((V165),(V166))))!=Cnil){ goto T413;} goto T412; T413:; (void)((*(LnkLI103))((V165),(V167),(V166))); T412:; {object V169; object V170= (V166); if(endp(V170)){ V166= Cnil; goto T416;} base[1]=V169=MMcons(Cnil,Cnil); T417:; (V169->c.c_car)= structure_ref(cadr((V170->c.c_car)),VV[0],2); if(endp(V170=MMcdr(V170))){ V166= base[1]; goto T416;} V169=MMcdr(V169)=MMcons(Cnil,Cnil); goto T417;} T416:; if((symbol_value(VV[33]))==Cnil){ goto T423;} (base[0]->c.c_car)= get((V165),VV[34],Cnil); if(((base[0]->c.c_car))==Cnil){ goto T419;} goto T421; T423:; (base[0]->c.c_car)= get((V165),VV[35],Cnil); if(((base[0]->c.c_car))==Cnil){ goto T419;} T421:; {register object V172; object V173; V172= (base[0]->c.c_car); V173= car((V172)); T430:; if(!(endp((V172)))){ goto T431;} goto T419; T431:; V168= (*(LnkLI104))((V173),(V166),(V167)); if(((V168))==Cnil){ goto T435;} {object V174 = (V168); VMR10(V174)} T435:; V172= cdr((V172)); V173= car((V172)); goto T430;} T419:; (base[0]->c.c_car)= get((V165),VV[36],Cnil); if(((base[0]->c.c_car))==Cnil){ goto T444;} {register object V175; object V176; V175= (base[0]->c.c_car); V176= car((V175)); T451:; if(!(endp((V175)))){ goto T452;} goto T444; T452:; V168= (*(LnkLI104))((V176),(V166),(V167)); if(((V168))==Cnil){ goto T456;} {object V177 = (V168); VMR10(V177)} T456:; V175= cdr((V175)); V176= car((V175)); goto T451;} T444:; {register object V178; object V179; V178= symbol_value(VV[37]); V179= car((V178)); T469:; if(!(endp((V178)))){ goto T470;} goto T465; T470:; if(!((car((V179)))==((V165)))){ goto T474;} V168= (*(LnkLI104))(cdr((V179)),(V166),(V167)); if(((V168))==Cnil){ goto T474;} {object V180 = (V168); VMR10(V180)} T474:; V178= cdr((V178)); V179= car((V178)); goto T469;} T465:; (base[0]->c.c_car)= get((V165),VV[38],Cnil); if(((base[0]->c.c_car))==Cnil){ goto T485;} if(!(type_of((base[0]->c.c_car))==t_cons)){ goto T492;} if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){ goto T492;} {object V181; V182 = make_fixnum(length((V166))); V181= (number_compare(V182,car((base[0]->c.c_car)))>=0?Ct:Cnil); (base[0]->c.c_car)= cdr((base[0]->c.c_car)); if(((V181))==Cnil){ goto T485;} goto T490;} T492:; T490:; base[1]= make_fixnum(length((V166))); base[2]= VV[39]; base[3]= Ct; vs_top=(vs_base=base+1)+3; Lmake_list(); vs_top=sup; V183= vs_base[0]; V184= make_cclosure_new(LC27,Cnil,base[0],Cdata); {object V185 = list(4,V183,Ct,small_fixnum(3),V184); VMR10(V185)} T485:; {object V186 = Cnil; VMR10(V186)}} } /* local entry for function INLINE-TYPE-MATCHES */ static object LI11(V190,V191,V192) register object V190;object V191;object V192; { VMB11 VMS11 VMV11 TTL:; {register object V193; V193= Cnil; if(type_of(caddr((V190)))==t_fixnum){ goto T505;} base[0]= (V190); vs_top=(vs_base=base+0)+1; (void) (*Lnk105)(); vs_top=sup; T505:; {register object x= VV[40],V194= car((V190)); while(!endp(V194)) if(eql(x,V194->c.c_car)){ goto T511; }else V194=V194->c.c_cdr; goto T509;} T511:; {object V195 = Cnil; VMR11(V195)} T509:; {register object V196; V196= car((V190)); {register object V197; register object V198; V197= (V191); V198= car((V197)); T520:; if(!(endp((V197)))){ goto T521;} if(!(equal((V196),VV[41]))){ goto T524;} goto T515; T524:; if(!(endp((V196)))){ goto T513;} goto T515; T521:; if(!(endp((V196)))){ goto T527;} goto T513; T527:; if(!(equal((V196),VV[42]))){ goto T530;} V196= VV[43]; T530:; if(!((car((V196)))==(VV[44]))){ goto T536;} if(((*(LnkLI106))(VV[45],(V198)))==Cnil){ goto T539;} V193= make_cons(VV[45],(V193)); goto T534; T539:; if(((*(LnkLI106))(VV[46],(V198)))==Cnil){ goto T543;} V193= make_cons(VV[46],(V193)); goto T534; T543:; if(((*(LnkLI106))(VV[47],(V198)))==Cnil){ goto T547;} V193= make_cons(VV[47],(V193)); goto T534; T547:; goto T513; T536:; if(((*(LnkLI106))(car((V196)),(V198)))==Cnil){ goto T551;} V193= make_cons(car((V196)),(V193)); goto T534; T551:; goto T513; T534:; {register object V199; V199= car((V196)); V196= cdr((V196));} V197= cdr((V197)); V198= car((V197)); goto T520;}} T515:; if(((*(LnkLI106))(cadr((V190)),(V192)))==Cnil){ goto T513;} V200= reverse((V193)); {object V201 = make_cons(/* INLINE-ARGS */V200,cdr((V190))); VMR11(V201)} T513:; {object V202 = Cnil; VMR11(V202)}} } /* local entry for function NEED-TO-PROTECT */ static object LI12(V205,V206) object V205;object V206; { VMB12 VMS12 VMV12 TTL:; {register object V207; V207= Cnil; {register object V208; register object V209; V208= (V205); V209= (V206); T566:; if(!(endp((V208)))){ goto T567;} {object V210 = Cnil; VMR12(V210)} T567:; {register object V211; V211= car((V208)); {object V212= car((V211)); if((V212!= VV[14]))goto T573; goto T571; T573:; if((V212!= VV[1]))goto T574; if(((*(LnkLI75))(caaddr((V211)),cdr((V208))))!=Cnil){ goto T575;} V214= structure_ref(caaddr((V211)),VV[1],1); {register object x= /* INLINE-ARGS */V214,V213= VV[48]; while(!endp(V213)) if(eql(x,V213->c.c_car)){ goto T579; }else V213=V213->c.c_cdr; goto T571;} T579:; V215= car((V209)); V216= structure_ref(caaddr((V211)),VV[1],1); if((/* INLINE-ARGS */V215)==(/* INLINE-ARGS */V216)){ goto T571;} T575:; {object V217 = Ct; VMR12(V217)} T574:; if((V212!= VV[82]))goto T581; {register object V218; V218= caddr((V211)); if(((*(LnkLI83))((V218)))==Cnil){ goto T583;} V219= cadddr((V211)); V220= structure_ref(cadr((V211)),VV[0],2); V207= (*(LnkLI84))((V218),/* INLINE-ARGS */V219,/* INLINE-ARGS */V220); if(((V207))==Cnil){ goto T583;} base[0]= small_fixnum(0); base[1]= caddr((V207)); vs_top=(vs_base=base+0)+2; Llogbitp(); vs_top=sup; if((vs_base[0])!=Cnil){ goto T583;} base[0]= small_fixnum(1); base[1]= caddr((V207)); vs_top=(vs_base=base+0)+2; Llogbitp(); vs_top=sup; if((vs_base[0])!=Cnil){ goto T583;} base[0]= small_fixnum(4); base[1]= caddr((V207)); vs_top=(vs_base=base+0)+2; Llogbitp(); vs_top=sup; if((vs_base[0])!=Cnil){ goto T583;} {register object x= cadr((V207)),V221= VV[49]; while(!endp(V221)) if(eql(x,V221->c.c_car)){ goto T603; }else V221=V221->c.c_cdr; goto T601;} T603:; if(!((car((V209)))==(cadr((V207))))){ goto T583;} T601:; if(((*(LnkLI87))(cadddr((V211)),car((V207))))==Cnil){ goto T571;} T583:; {object V222 = Ct; VMR12(V222)}} T581:; if((V212!= VV[96]))goto T606; V223= make_cons(caddr((V211)),Cnil); if(((*(LnkLI87))(/* INLINE-ARGS */V223,VV[50]))==Cnil){ goto T571;} {object V224 = Ct; VMR12(V224)} T606:; {object V225 = Ct; VMR12(V225)}}} T571:; V208= cdr((V208)); V209= cdr((V209)); goto T566;}} } /* local entry for function WT-C-PUSH */ static object LI13() { VMB13 VMS13 VMV13 TTL:; if((symbol_value(VV[9]))==Cnil){ goto T614;} vs_base=vs_top; (void) (*Lnk78)(); vs_top=sup; {object V226; setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); V226= symbol_value(VV[4]); princ_char(123,VV[5]); (void)((*(LnkLI76))(symbol_value(VV[51]))); princ_str("object V",VV[5]); (void)((*(LnkLI76))((V226))); princ_char(59,VV[5]); {object V227 = list(2,VV[6],(V226)); VMR13(V227)}} T614:; {object V228 = list(2,VV[12],(*(LnkLI94))()); VMR13(V228)} } /* local entry for function CLOSE-INLINE-BLOCKS */ static object LI14() { VMB14 VMS14 VMV14 TTL:; {register object V229; V229= symbol_value(VV[2]); if(!(type_of((V229))==t_cons)){ goto T626;} if(!(eql(cdr((V229)),VV[52]))){ goto T629;} princ_str("restore_avma;",VV[5]); T629:; V229= car((V229)); T626:; {register int V230; register int V231; V230= fix((V229)); V231= 0; T637:; if(!((V231)>=(V230))){ goto T638;} {object V232 = Cnil; VMR14(V232)} T638:; princ_char(125,VV[5]); V231= (V231)+1; goto T637;}} } /* function definition for WT-INLINE-LOC */ static L15() {register object *base=vs_base; register object *sup=base+VM15; VC15 vs_reserve(VM15); {register object V233; object V234; check_arg(2); V233=(base[0]); V234=(base[1]); vs_top=sup; TTL:; {register int V235; int V236; V235= 0; V236= -1; if(!(type_of((V233))==t_string)){ goto T650;} base[2]= elt((V233),0); base[3]= VV[25]; vs_top=(vs_base=base+2)+2; Lchar_eq(); vs_top=sup; if((vs_base[0])==Cnil){ goto T652;} V235= 1; T660:; base[2]= elt((V233),V235); base[3]= VV[26]; vs_top=(vs_base=base+2)+2; Lchar_eq(); vs_top=sup; if((vs_base[0])==Cnil){ goto T661;} V235= (V235)+(1); goto T652; T661:; V235= (V235)+(1); goto T660; T652:; {int V237; V237= length((V233)); T674:; if(!((V235)>=(V237))){ goto T675;} base[2]= Cnil; vs_top=(vs_base=base+2)+1; return; T675:; {unsigned char V238; V238= char_code(elt((V233),V235)); base[2]= code_char(V238); base[3]= VV[53]; vs_top=(vs_base=base+2)+2; Lchar_eq(); vs_top=sup; if((vs_base[0])==Cnil){ goto T682;} {register object V239; register object V240; V239= elt((V233),(V235)+1); V240= small_fixnum(0); if(!(eql((V239),VV[54]))){ goto T689;} if(!((V236)>=(0))){ goto T691;} V241 = make_fixnum(V236); V242= one_plus(V241); V243 = make_fixnum(length((V234))); if(!(number_compare(/* INLINE-ARGS */V242,V243)<0)){ goto T691;} princ_char(44,VV[5]); T691:; {register object V244; V245 = make_fixnum(V236); V246= one_plus(V245); V244= nthcdr(fixint(/* INLINE-ARGS */V246),(V234)); T699:; if(((V244))!=Cnil){ goto T700;} goto T686; T700:; base[2]= car((V244)); vs_top=(vs_base=base+2)+1; (void) (*Lnk88)(); vs_top=sup; if((cdr((V244)))==Cnil){ goto T706;} princ_char(44,VV[5]); T706:; V244= cdr((V244)); goto T699;} T689:; base[2]= (V239); base[3]= small_fixnum(10); vs_top=(vs_base=base+2)+2; Ldigit_char_p(); vs_top=sup; if((vs_base[0])==Cnil){ goto T686;} base[2]= (V239); vs_top=(vs_base=base+2)+1; Lchar_code(); vs_top=sup; V247= vs_base[0]; V248 = make_fixnum((48)); V240= number_minus(V247,V248); V249 = make_fixnum(length((V233))); V250 = make_fixnum(V235); V251= number_plus(V250,small_fixnum(2)); if(!(number_compare(V249,/* INLINE-ARGS */V251)>0)){ goto T721;} V252 = make_fixnum(V235); V253= number_plus(V252,small_fixnum(2)); V239= elt((V233),fixint(/* INLINE-ARGS */V253)); if(((V239))==Cnil){ goto T721;} base[2]= (V239); vs_top=(vs_base=base+2)+1; Ldigit_char_p(); vs_top=sup; if((vs_base[0])==Cnil){ goto T721;} V254= number_times((V240),small_fixnum(10)); base[2]= (V239); vs_top=(vs_base=base+2)+1; Lchar_code(); vs_top=sup; V255= vs_base[0]; V256 = make_fixnum((48)); V257= number_minus(V255,V256); V240= number_plus(/* INLINE-ARGS */V254,/* INLINE-ARGS */V257); V235= (V235)+(1); T721:; V258 = make_fixnum(V236); if(!(number_compare((V240),V258)>=0)){ goto T735;} V236= fix((V240)); T735:; base[2]= nth(fixint((V240)),(V234)); vs_top=(vs_base=base+2)+1; (void) (*Lnk88)(); vs_top=sup;} T686:; V235= (V235)+(2); goto T679; T682:; (void)(princ(code_char(V238),symbol_value(VV[5]))); V235= (V235)+(1);} T679:; goto T674;} T650:; base[2]= (V233); {object V259; V259= (V234); vs_top=base+3; while(!endp(V259)) {vs_push(car(V259));V259=cdr(V259);} vs_base=base+3;} super_funcall_no_event(base[2]); return;} } } /* function definition for WT-INLINE */ static L16() {register object *base=vs_base; register object *sup=base+VM16; VC16 vs_reserve(VM16); {object V260; object V261; object V262; check_arg(3); V260=(base[0]); V261=(base[1]); V262=(base[2]); vs_top=sup; TTL:; base[3]= (V261); base[4]= (V262); vs_top=(vs_base=base+3)+2; (void) (*Lnk107)(); return; } } /* local entry for function WT-INLINE-COND */ static object LI17(V266,V267,V268) object V266;object V267;object V268; { VMB17 VMS17 VMV17 TTL:; princ_char(40,VV[5]); base[0]= (V267); base[1]= (V268); vs_top=(vs_base=base+0)+2; (void) (*Lnk107)(); vs_top=sup; princ_str("?Ct:Cnil)",VV[5]); {object V269 = Cnil; VMR17(V269)} } /* local entry for function WT-INLINE-FIXNUM */ static object LI18(V273,V274,V275) object V273;object V274;object V275; { VMB18 VMS18 VMV18 TTL:; if(!(number_compare(small_fixnum(0),symbol_value(VV[56]))==0)){ goto T755;} princ_str("CMP",VV[5]); T755:; princ_str("make_fixnum(",VV[5]); base[0]= (V274); base[1]= (V275); vs_top=(vs_base=base+0)+2; (void) (*Lnk107)(); vs_top=sup; princ_char(41,VV[5]); {object V276 = Cnil; VMR18(V276)} } /* function definition for WT-INLINE-INTEGER */ static L19() {register object *base=vs_base; register object *sup=base+VM19; VC19 vs_reserve(VM19); {object V277; object V278; object V279; check_arg(3); V277=(base[0]); V278=(base[1]); V279=(base[2]); vs_top=sup; TTL:; princ_str("make_integer(",VV[5]); base[3]= (V278); base[4]= (V279); vs_top=(vs_base=base+3)+2; (void) (*Lnk107)(); vs_top=sup; princ_char(41,VV[5]); base[3]= Cnil; vs_top=(vs_base=base+3)+1; return; } } /* local entry for function WT-INLINE-CHARACTER */ static object LI20(V283,V284,V285) object V283;object V284;object V285; { VMB20 VMS20 VMV20 TTL:; princ_str("code_char(",VV[5]); base[0]= (V284); base[1]= (V285); vs_top=(vs_base=base+0)+2; (void) (*Lnk107)(); vs_top=sup; princ_char(41,VV[5]); {object V286 = Cnil; VMR20(V286)} } /* local entry for function WT-INLINE-LONG-FLOAT */ static object LI21(V290,V291,V292) object V290;object V291;object V292; { VMB21 VMS21 VMV21 TTL:; princ_str("make_longfloat(",VV[5]); base[0]= (V291); base[1]= (V292); vs_top=(vs_base=base+0)+2; (void) (*Lnk107)(); vs_top=sup; princ_char(41,VV[5]); {object V293 = Cnil; VMR21(V293)} } /* local entry for function WT-INLINE-SHORT-FLOAT */ static object LI22(V297,V298,V299) object V297;object V298;object V299; { VMB22 VMS22 VMV22 TTL:; princ_str("make_shortfloat(",VV[5]); base[0]= (V298); base[1]= (V299); vs_top=(vs_base=base+0)+2; (void) (*Lnk107)(); vs_top=sup; princ_char(41,VV[5]); {object V300 = Cnil; VMR22(V300)} } /* local entry for function ARGS-CAUSE-SIDE-EFFECT */ static object LI23(V302) object V302; { VMB23 VMS23 VMV23 TTL:; {register object V303; V303= Cnil; {register object V304; register object V305; V304= (V302); V305= car((V304)); T793:; if(!(endp((V304)))){ goto T794;} {object V306 = Cnil; VMR23(V306)} T794:; {object V307= car((V305)); if((V307!= VV[14]) && (V307!= VV[1]) && (V307!= VV[96]))goto T799; goto T798; T799:; if((V307!= VV[82]))goto T800; {register object V308; V308= caddr((V305)); if(((*(LnkLI83))((V308)))==Cnil){ goto T802;} V309= cadddr((V305)); V310= structure_ref(cadr((V305)),VV[0],2); V303= (*(LnkLI84))((V308),/* INLINE-ARGS */V309,/* INLINE-ARGS */V310); if(((V303))==Cnil){ goto T802;} base[1]= (V303); vs_top=(vs_base=base+1)+1; (void) (*Lnk105)(); vs_top=sup; base[1]= small_fixnum(1); base[2]= caddr((V303)); vs_top=(vs_base=base+1)+2; Llogbitp(); vs_top=sup; V311= vs_base[0]; if((V311)==Cnil){ goto T798;} T802:; {object V312 = Ct; VMR23(V312)}} T800:; {object V313 = Ct; VMR23(V313)}} T798:; V304= cdr((V304)); V305= car((V304)); goto T793;}} } /* local entry for function LIST-INLINE */ static object LI24(va_alist) va_dcl { va_list ap; int narg = VFUN_NARGS; VMB24 VMS24 VMV24 {object V314; narg= narg - 0; va_start(ap); V315 = list_vector(narg,ap); V314= V315; {object V316; object V317; V316= Cnil; V317= make_fixnum(length((V314))); if(type_of(symbol_value(VV[13]))==t_cons){ goto T826;} V316= Cnil; goto T825; T826:; if((car(symbol_value(VV[13])))==(VV[1])){ goto T828;} V316= Cnil; goto T825; T828:; V318= structure_ref(cadr(symbol_value(VV[13])),VV[1],5); V316= ((/* INLINE-ARGS */V318)==(VV[57])?Ct:Cnil); T825:; if(((V316))==Cnil){ goto T823;} princ_str("(ALLOCA_CONS(",VV[5]); (void)((*(LnkLI76))((V317))); princ_str("),ON_STACK_LIST(",VV[5]); (void)((*(LnkLI76))((V317))); goto T821; T823:; princ_str("list(",VV[5]); V319 = make_fixnum(length((V314))); (void)((*(LnkLI76))(V319)); T821:; {register object V320; register object V321; V320= (V314); V321= car((V320)); T840:; if(!(endp((V320)))){ goto T841;} goto T836; T841:; (void)((*(LnkLI76))(VV[58])); (void)((*(LnkLI76))((V321))); V320= cdr((V320)); V321= car((V320)); goto T840;} T836:; (void)((*(LnkLI76))(VV[59])); if(((V316))==Cnil){ goto T856;} (void)((*(LnkLI76))(VV[59])); {object V322 = Cnil; VMR24(V322)} T856:; {object V323 = Cnil; VMR24(V323)}}} } /* local entry for function LIST*-INLINE */ static object LI25(va_alist) va_dcl { va_list ap; int narg = VFUN_NARGS; VMB25 VMS25 VMV25 {register object V324; narg= narg - 0; va_start(ap); V325 = list_vector(narg,ap); V324= V325;switch(length((V324))){ case 1: T860:; (void)((*(LnkLI76))(car((V324)))); {object V326 = Cnil; VMR25(V326)} case 2: T861:; princ_str("make_cons(",VV[5]); (void)((*(LnkLI76))(car((V324)))); princ_char(44,VV[5]); (void)((*(LnkLI76))(cadr((V324)))); princ_char(41,VV[5]); {object V327 = Cnil; VMR25(V327)} default: T862:; princ_str("listA(",VV[5]); V328 = make_fixnum(length((V324))); (void)((*(LnkLI76))(V328)); {register object V329; register object V330; V329= (V324); V330= car((V329)); T877:; if(!(endp((V329)))){ goto T878;} goto T873; T878:; (void)((*(LnkLI76))(VV[58])); (void)((*(LnkLI76))((V330))); V329= cdr((V329)); V330= car((V329)); goto T877;} T873:; (void)((*(LnkLI76))(VV[59])); {object V331 = Cnil; VMR25(V331)} {object V332 = Cnil; VMR25(V332)}} {object V333 = Cnil; VMR25(V333)}} } /* local entry for function DEFSYSFUN */ static object LI26(V340,V341,V342,V343,V344,V345) register object V340;object V341;object V342;register object V343;object V344;object V345; { VMB26 VMS26 VMV26 TTL:; if(((V341))==Cnil){ goto T891;} (void)(putprop((V340),(V341),VV[60])); T891:; if(((V342))==Cnil){ goto T894;} {object V347; object V348= (V342); if(endp(V348)){ V346= Cnil; goto T897;} base[0]=V347=MMcons(Cnil,Cnil); T898:; if(!(((V348->c.c_car))==(VV[61]))){ goto T901;} (V347->c.c_car)= VV[61]; goto T899; T901:; (V347->c.c_car)= (*(LnkLI108))((V348->c.c_car)); T899:; if(endp(V348=MMcdr(V348))){ V346= base[0]; goto T897;} V347=MMcdr(V347)=MMcons(Cnil,Cnil); goto T898;} T897:; (void)(putprop((V340),V346,VV[62])); T894:; if(((V343))==Cnil){ goto T903;} {register object V350; if(!(type_of((V343))!=t_cons)){ goto T909;} V351= make_cons((V343),Cnil); goto T907; T909:; V351= (V343); T907:; V350= (*(LnkLI109))(V351); if(!(type_of((V350))==t_cons)){ goto T912;} goto T911; T912:; V350= make_cons((V350),Cnil); T911:; if((cdr((V350)))!=Cnil){ goto T917;} V352= car((V350)); goto T915; T917:; V352= make_cons(VV[63],(V350)); T915:; (void)(putprop((V340),V352,VV[64]));} T903:; if(((V344))==Cnil){ goto T919;} (void)(putprop((V340),Ct,VV[65])); T919:; if(((V345))==Cnil){ goto T923;} {object V353 = putprop((V340),Ct,VV[66]); VMR26(V353)} T923:; {object V354 = Cnil; VMR26(V354)} } /* local function CLOSURE */ static LC27(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM27; VC27 vs_reserve(VM27); {object V355; vs_top[0]=Cnil; {object *p=vs_top; for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} V355=(base[0]); vs_top=sup; princ_str("(VFUN_NARGS=",VV[5]); V356 = make_fixnum(length((V355))); (void)((*(LnkLI76))(V356)); princ_char(44,VV[5]); base[1]= (base0[0]->c.c_car); base[2]= (V355); vs_top=(vs_base=base+1)+2; (void) (*Lnk107)(); vs_top=sup; princ_char(41,VV[5]); base[1]= Cnil; vs_top=(vs_base=base+1)+1; return; } } static object LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,1,ap);} /* FUNCTION-RETURN-TYPE */ static object LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,1,ap);} /* TYPE-FILTER */ static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* WT-INLINE-LOC */ static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,2,ap);} /* TYPE>= */ static LnkT105(){ call_or_link(VV[105],&Lnk105);} /* FIX-OPT */ static object LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],&LnkLI104,3,ap);} /* INLINE-TYPE-MATCHES */ static object LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,3,ap);} /* ADD-FAST-LINK */ static object LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[102],&LnkLI102,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */ static object LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,1,ap);} /* INLINE-TYPE */ static object LnkTLI100(){return call_proc0(VV[100],&LnkLI100);} /* BABOON */ static object LnkTLI7(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[7],&LnkLI7,ap);} /* INLINE-ARGS */ static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],&LnkLI99,ap);} /* MAKE-VAR */ static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,2,ap);} /* COERCE-LOC-STRUCTURE-REF */ static object LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],&LnkLI95,1,ap);} /* C2EXPR* */ static object LnkTLI94(){return call_proc0(VV[94],&LnkLI94);} /* VS-PUSH */ static LnkT93(){ call_or_link(VV[93],&Lnk93);} /* WT-SHORT-FLOAT-LOC */ static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* WT-LONG-FLOAT-LOC */ static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* WT-CHARACTER-LOC */ static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* WT-INTEGER-LOC */ static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* WT-FIXNUM-LOC */ static LnkT88(){ call_or_link(VV[88],&Lnk88);} /* WT-LOC */ static object LnkTLI87(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[87],&LnkLI87,2,ap);} /* NEED-TO-PROTECT */ static object LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],&LnkLI86,2,ap);} /* GET-INLINE-LOC */ static LnkT85(){ call_or_link(VV[85],&Lnk85);} /* SAVE-AVMA */ static object LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[84],&LnkLI84,3,ap);} /* GET-INLINE-INFO */ static object LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[83],&LnkLI83,1,ap);} /* INLINE-POSSIBLE */ static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[81],&LnkLI81,ap);} /* CS-PUSH */ static object LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,2,ap);} /* WT-VAR */ static object LnkTLI79(){return call_proc0(VV[79],&LnkLI79);} /* WT-C-PUSH */ static LnkT78(){ call_or_link(VV[78],&Lnk78);} /* INC-INLINE-BLOCKS */ static object LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],&LnkLI77,1,ap);} /* REP-TYPE */ static object LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,1,ap);} /* WT1 */ static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,2,ap);} /* ARGS-INFO-CHANGED-VARS */ static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,2,ap);} /* COERCE-LOC */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.