This is cmpfun.c in view mode; [Download] [Up]
#include <cmpinclude.h> #include "cmpfun.h" init_cmpfun(){do_init(VV);} /* local entry for function C1PRINC */ static object LI1(V2) register object V2; { VMB1 VMS1 VMV1 TTL:; {object V3; object V4; V3= Cnil; V4= (VFUN_NARGS=0,(*(LnkLI215))()); if(!(endp((V2)))){ goto T3;} (void)((*(LnkLI216))(VV[0],small_fixnum(1),small_fixnum(0))); T3:; if(endp(cdr((V2)))){ goto T6;} if(endp(cddr((V2)))){ goto T6;} V5 = make_fixnum(length((V2))); (void)((*(LnkLI217))(VV[0],small_fixnum(2),V5)); T6:; if(!(endp(cdr((V2))))){ goto T14;} V3= (*(LnkLI218))(); goto T12; T14:; V3= (*(LnkLI219))(cadr((V2)),(V4)); T12:; if(!(type_of(car((V2)))==t_string)){ goto T19;} V6 = make_fixnum(length(car((V2)))); if(number_compare(V6,symbol_value(VV[1]))<=0){ goto T18;} T19:; if(!(type_of(car((V2)))==t_character)){ goto T17;} T18:; if(endp(cdr((V2)))){ goto T16;} if(!((car((V3)))==(VV[2]))){ goto T17;} V8= structure_ref(caaddr((V3)),VV[2],1); {register object x= /* INLINE-ARGS */V8,V7= VV[3]; while(!endp(V7)) if(eql(x,V7->c.c_car)){ goto T28; }else V7=V7->c.c_cdr; goto T17;} T28:; T16:; V9= car((V2)); if(!(endp(cdr((V2))))){ goto T31;} V10= Cnil; goto T29; T31:; V10= structure_ref(caaddr((V3)),VV[2],4); T29:; {object V11 = list(5,VV[0],(V4),/* INLINE-ARGS */V9,V10,(V3)); VMR1(V11)} T17:; V12= (*(LnkLI219))(car((V2)),(V4)); {object V13 = list(4,VV[4],(V4),VV[0],list(2,/* INLINE-ARGS */V12,(V3))); VMR1(V13)}} } /* local entry for function C2PRINC */ static object LI2(V17,V18,V19) register object V17;register object V18;object V19; { VMB2 VMS2 VMV2 TTL:; if(!((symbol_value(VV[5]))==(VV[6]))){ goto T34;} if(!(type_of((V17))==t_character)){ goto T38;} princ_str("\n princ_char(",VV[7]); base[0]= (V17); vs_top=(vs_base=base+0)+1; Lchar_code(); vs_top=sup; V20= vs_base[0]; (void)((*(LnkLI220))(V20)); if(((V18))!=Cnil){ goto T47;} princ_str(",Cnil",VV[7]); goto T45; T47:; princ_str(",VV[",VV[7]); (void)((*(LnkLI220))((V18))); princ_char(93,VV[7]); T45:; princ_str(");",VV[7]); goto T36; T38:; if(!((length((V17)))==(1))){ goto T55;} princ_str("\n princ_char(",VV[7]); base[0]= aref1((V17),0); vs_top=(vs_base=base+0)+1; Lchar_code(); vs_top=sup; V21= vs_base[0]; (void)((*(LnkLI220))(V21)); if(((V18))!=Cnil){ goto T64;} princ_str(",Cnil",VV[7]); goto T62; T64:; princ_str(",VV[",VV[7]); (void)((*(LnkLI220))((V18))); princ_char(93,VV[7]); T62:; princ_str(");",VV[7]); goto T36; T55:; princ_str("\n princ_str(\"",VV[7]); {int V22; int V23; V22= length((V17)); V23= 0; T77:; if(!((V23)>=(V22))){ goto T78;} goto T73; T78:; {object V24; V24= elt((V17),V23); base[0]= (V24); base[1]= VV[8]; vs_top=(vs_base=base+0)+2; Lchar_eq(); vs_top=sup; if((vs_base[0])==Cnil){ goto T85;} princ_str("\\\\",VV[7]); goto T82; T85:; base[0]= (V24); base[1]= VV[9]; vs_top=(vs_base=base+0)+2; Lchar_eq(); vs_top=sup; if((vs_base[0])==Cnil){ goto T91;} princ_str("\\\"",VV[7]); goto T82; T91:; base[0]= (V24); base[1]= VV[10]; vs_top=(vs_base=base+0)+2; Lchar_eq(); vs_top=sup; if((vs_base[0])==Cnil){ goto T97;} princ_str("\\n",VV[7]); goto T82; T97:; (void)((*(LnkLI220))((V24)));} T82:; V23= (V23)+1; goto T77;} T73:; princ_str("\",",VV[7]); if(((V18))!=Cnil){ goto T110;} princ_str("Cnil",VV[7]); goto T108; T110:; princ_str("VV[",VV[7]); (void)((*(LnkLI220))((V18))); princ_char(93,VV[7]); T108:; princ_str(");",VV[7]); T36:; {object V25 = (VFUN_NARGS=1,(*(LnkLI221))(Cnil)); VMR2(V25)} T34:; if(!(eql((V17),VV[10]))){ goto T118;} V26= make_cons((V19),Cnil); {object V27 = (*(LnkLI222))(VV[11],/* INLINE-ARGS */V26,Cnil,Ct); VMR2(V27)} T118:; if(!(type_of((V17))==t_character)){ goto T122;} V28= VV[14]; goto T120; T122:; V28= VV[15]; T120:; V29= (VFUN_NARGS=2,(*(LnkLI215))(VV[13],V28)); V30= list(2,list(3,VV[12],/* INLINE-ARGS */V29,list(2,VV[16],(*(LnkLI223))((V17)))),(V19)); {object V31 = (*(LnkLI222))(VV[0],/* INLINE-ARGS */V30,Cnil,Ct); VMR2(V31)} } /* local entry for function C1TERPRI */ static object LI3(V33) register object V33; { VMB3 VMS3 VMV3 TTL:; {object V34; object V35; V34= Cnil; V35= (VFUN_NARGS=0,(*(LnkLI215))()); if(endp((V33))){ goto T126;} if(endp(cdr((V33)))){ goto T126;} V36 = make_fixnum(length((V33))); (void)((*(LnkLI217))(VV[11],small_fixnum(1),V36)); T126:; if(!(endp((V33)))){ goto T134;} V34= (*(LnkLI218))(); goto T132; T134:; V34= (*(LnkLI219))(car((V33)),(V35)); T132:; if(endp((V33))){ goto T136;} if(!((car((V34)))==(VV[2]))){ goto T137;} V38= structure_ref(caaddr((V34)),VV[2],1); {register object x= /* INLINE-ARGS */V38,V37= VV[17]; while(!endp(V37)) if(eql(x,V37->c.c_car)){ goto T142; }else V37=V37->c.c_cdr; goto T137;} T142:; T136:; if(!(endp((V33)))){ goto T145;} V39= Cnil; goto T143; T145:; V39= structure_ref(caaddr((V34)),VV[2],4); T143:; {object V40 = list(5,VV[0],(V35),VV[10],V39,(V34)); VMR3(V40)} T137:; {object V41 = list(4,VV[4],(V35),VV[11],make_cons((V34),Cnil)); VMR3(V41)}} } /* local entry for function C1APPLY */ static object LI4(V43) register object V43; { VMB4 VMS4 VMV4 TTL:; {object V44; V44= Cnil; if(endp((V43))){ goto T149;} if(!(endp(cdr((V43))))){ goto T148;} T149:; V45 = make_fixnum(length((V43))); (void)((*(LnkLI216))(VV[18],small_fixnum(2),V45)); T148:; {object V46; V46= (*(LnkLI224))(car((V43))); base[0]= cadr((V46)); vs_top=(vs_base=base+0)+1; (void) (*Lnk225)(); vs_top=sup; V44= vs_base[0]; V43= (*(LnkLI226))(cdr((V43)),(V44)); if(!((car((V46)))==(VV[19]))){ goto T160;} {object V47; object V48; V47= caddr((V46)); V48= caddr((V47)); if((cadr((V48)))!=Cnil){ goto T165;} if((cadddr((V48)))!=Cnil){ goto T165;} {object V49 = (*(LnkLI227))((V44),car((V48)),caddr((V48)),car(cddddr((V47))),(V43)); VMR4(V49)} T165:; {object V50 = list(4,VV[18],(V44),(V46),(V43)); VMR4(V50)}} T160:; {object V51 = list(4,VV[18],(V44),(V46),(V43)); VMR4(V51)}}} } /* local entry for function C2APPLY */ static object LI5(V54,V55) object V54;object V55; { VMB5 VMS5 VMV5 bds_check; TTL:; {object V56; bds_bind(VV[20],symbol_value(VV[20])); V56= Cnil; V56= (*(LnkLI228))((V54)); {object V57; object V58; base[1]= (VV[20]->s.s_dbind); V57= (VV[20]->s.s_dbind); setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); V58= list(2,VV[21],symbol_value(VV[22])); bds_bind(VV[20],base[1]); {object V59; V59= (V55); T180:; if(!(endp(cdr((V59))))){ goto T181;} princ_str("\n {object ",VV[7]); (void)((*(LnkLI220))((V58))); princ_char(59,VV[7]); bds_bind(VV[5],(V58)); V60= (*(LnkLI229))(car((V59))); bds_unwind1; goto T177; T181:; base[2]= list(2,VV[23],(*(LnkLI230))()); bds_bind(VV[5],base[2]); V61= (*(LnkLI229))(car((V59))); bds_unwind1; V59= cdr((V59)); goto T180;} T177:; princ_str("\n vs_top=base+",VV[7]); (void)((*(LnkLI220))((VV[20]->s.s_dbind))); princ_char(59,VV[7]); setq(VV[24],Ct); if((symbol_value(VV[25]))==Cnil){ goto T202;} princ_str("\n while(!endp(",VV[7]); (void)((*(LnkLI220))((V58))); princ_str("))",VV[7]); princ_str("\n {vs_push(car(",VV[7]); (void)((*(LnkLI220))((V58))); princ_str("));",VV[7]); (void)((*(LnkLI220))((V58))); princ_str("=cdr(",VV[7]); (void)((*(LnkLI220))((V58))); princ_str(");}",VV[7]); goto T200; T202:; princ_str("\n while(",VV[7]); (void)((*(LnkLI220))((V58))); princ_str("!=Cnil)",VV[7]); princ_str("\n {vs_push((",VV[7]); (void)((*(LnkLI220))((V58))); princ_str(")->c.c_car);",VV[7]); (void)((*(LnkLI220))((V58))); princ_str("=(",VV[7]); (void)((*(LnkLI220))((V58))); princ_str(")->c.c_cdr;}",VV[7]); T200:; princ_str("\n vs_base=base+",VV[7]); (void)((*(LnkLI220))((V57))); princ_str(";}",VV[7]); setq(VV[24],Ct); bds_unwind1;} {object V62 = (VFUN_NARGS=3,(*(LnkLI231))((V54),VV[26],(V56))); bds_unwind1; VMR5(V62)}} } /* local entry for function C1APPLY-OPTIMIZE */ static object LI6(V68,V69,V70,V71,V72) object V68;register object V69;object V70;object V71;register object V72; { VMB6 VMS6 VMV6 TTL:; {object V73; object V74; V73= Cnil; V74= Cnil; T237:; if(endp(cdr((V72)))){ goto T239;} if(!(endp((V69)))){ goto T238;} T239:; goto T235; T238:; {object V76; V76= car((V69)); V69= cdr((V69)); V75= (V76);} V73= make_cons(V75,(V73)); {object V78; V78= car((V72)); V72= cdr((V72)); V77= (V78);} V74= make_cons(V77,(V74)); goto T237; T235:; if((cdr((V72)))==Cnil){ goto T259;} if(((V70))!=Cnil){ goto T261;} (void)((VFUN_NARGS=1,(*(LnkLI232))(VV[27]))); T261:; V73= make_cons((V70),(V73)); V79= list(4,VV[4],(V68),VV[28],(V72)); V74= make_cons(/* INLINE-ARGS */V79,(V74)); V80= reverse((V73)); {object V81 = list(5,VV[29],(V68),/* INLINE-ARGS */V80,reverse((V74)),(V71)); VMR6(V81)} T259:; if(((V69))==Cnil){ goto T269;} {object V82; V82= (VFUN_NARGS=4,(*(LnkLI233))(VV[30],VV[31],VV[32],Ct)); V73= make_cons((V82),(V73)); V74= make_cons(car((V72)),(V74)); V83= reverse((V73)); V84= reverse((V74)); {object V85 = list(5,VV[29],(V68),/* INLINE-ARGS */V83,/* INLINE-ARGS */V84,list(6,VV[33],cadr((V71)),(V82),(V69),(V70),(V71))); VMR6(V85)}} T269:; if(((V70))==Cnil){ goto T277;} V73= make_cons((V70),(V73)); V74= make_cons(car((V72)),(V74)); V86= reverse((V73)); {object V87 = list(5,VV[29],(V68),/* INLINE-ARGS */V86,reverse((V74)),(V71)); VMR6(V87)} T277:; {object V88; V88= (VFUN_NARGS=4,(*(LnkLI233))(VV[30],VV[31],VV[32],Ct)); V73= make_cons((V88),(V73)); V74= make_cons(car((V72)),(V74)); V89= reverse((V73)); V90= reverse((V74)); {object V91 = list(5,VV[29],(V68),/* INLINE-ARGS */V89,/* INLINE-ARGS */V90,list(6,VV[33],cadr((V71)),(V88),(V69),(V70),(V71))); VMR6(V91)}}} } /* function definition for C2APPLY-OPTIMIZE */ static L7() {register object *base=vs_base; register object *sup=base+VM7; VC7 vs_reserve(VM7); bds_check; {object V92; object V93; object V94; object V95; check_arg(4); V92=(base[0]); V93=(base[1]); V94=(base[2]); V95=(base[3]); vs_top=sup; TTL:; bds_bind(VV[34],symbol_value(VV[34])); bds_bind(VV[20],symbol_value(VV[20])); bds_bind(VV[35],symbol_value(VV[35])); bds_bind(VV[36],symbol_value(VV[36])); if((symbol_value(VV[25]))!=Cnil){ goto T289;} if((symbol_value(VV[37]))==Cnil){ goto T288;} T289:; princ_str("\n ",VV[7]); if(((V94))==Cnil){ goto T298;} V96= VV[38]; goto T296; T298:; V96= VV[39]; T296:; (void)((*(LnkLI220))(V96)); princ_char(40,VV[7]); V97 = make_fixnum(length((V93))); (void)((*(LnkLI220))(V97)); princ_char(44,VV[7]); (void)((*(LnkLI234))((V92),Cnil)); princ_str(");",VV[7]); T288:; {object V98; object V99; V98= (V93); V99= car((V98)); T309:; if(!(endp((V98)))){ goto T310;} goto T305; T310:; V100= (*(LnkLI230))(); (void)(structure_set((V99),VV[2],2,/* INLINE-ARGS */V100)); V98= cdr((V98)); V99= car((V98)); goto T309;} T305:; if(((V94))==Cnil){ goto T320;} V101= (*(LnkLI230))(); (void)(structure_set((V94),VV[2],2,/* INLINE-ARGS */V101)); T320:; {int V102; object V103; V102= 0; V103= (V93); T327:; if(!(endp((V103)))){ goto T328;} if(((V94))==Cnil){ goto T323;} princ_str("\n ",VV[7]); V104= structure_ref((V94),VV[2],2); (void)((*(LnkLI235))(/* INLINE-ARGS */V104)); princ_str("= ",VV[7]); {int V105; int V106; V105= V102; V106= 0; T341:; if(!((V106)>=(V105))){ goto T342;} goto T337; T342:; princ_char(40,VV[7]); V106= (V106)+1; goto T341;} T337:; (void)((*(LnkLI234))((V92),Cnil)); {int V107; int V108; V107= V102; V108= 0; T356:; if(!((V108)>=(V107))){ goto T357;} goto T352; T357:; princ_str("\n )->c.c_cdr",VV[7]); V108= (V108)+1; goto T356;} T352:; princ_char(59,VV[7]); goto T323; T328:; princ_str("\n ",VV[7]); V109= structure_ref(car((V103)),VV[2],2); (void)((*(LnkLI235))(/* INLINE-ARGS */V109)); princ_str("=(",VV[7]); {int V110; int V111; V110= V102; V111= 0; T376:; if(!((V111)>=(V110))){ goto T377;} goto T372; T377:; princ_char(40,VV[7]); V111= (V111)+1; goto T376;} T372:; (void)((*(LnkLI234))((V92),Cnil)); {int V112; int V113; V112= V102; V113= 0; T391:; if(!((V113)>=(V112))){ goto T392;} goto T387; T392:; princ_str("\n )->c.c_cdr",VV[7]); V113= (V113)+1; goto T391;} T387:; princ_str(")->c.c_car;",VV[7]); V102= (V102)+1; V103= cdr((V103)); goto T327;} T323:; {object V114; object V115; V114= (V93); V115= car((V114)); T411:; if(!(endp((V114)))){ goto T412;} goto T407; T412:; (void)((*(LnkLI236))((V115))); V114= cdr((V114)); V115= car((V114)); goto T411;} T407:; if(((V94))==Cnil){ goto T422;} (void)((*(LnkLI236))((V94))); T422:; base[8]= (V95); vs_top=(vs_base=base+8)+1; (void) (*Lnk237)(); bds_unwind1; bds_unwind1; bds_unwind1; bds_unwind1; return; } } /* local entry for function C1FUNCALL */ static object LI8(V117) object V117; { VMB8 VMS8 VMV8 TTL:; {object V118; object V119; V118= Cnil; V119= (VFUN_NARGS=0,(*(LnkLI215))()); if(!(endp((V117)))){ goto T428;} (void)((*(LnkLI216))(VV[40],small_fixnum(1),small_fixnum(0))); T428:; V118= (*(LnkLI224))(car((V117))); (void)((*(LnkLI238))((V119),cadr((V118)))); {object V120 = list(4,VV[40],(V119),(V118),(*(LnkLI226))(cdr((V117)),(V119))); VMR8(V120)}} } /* local entry for function C1RPLACA */ static object LI9(V122) register object V122; { VMB9 VMS9 VMV9 TTL:; {object V123; V123= (VFUN_NARGS=0,(*(LnkLI215))()); if(endp((V122))){ goto T436;} if(!(endp(cdr((V122))))){ goto T435;} T436:; V124 = make_fixnum(length((V122))); (void)((*(LnkLI216))(VV[41],small_fixnum(2),V124)); T435:; if(endp(cddr((V122)))){ goto T440;} V125 = make_fixnum(length((V122))); (void)((*(LnkLI217))(VV[41],small_fixnum(2),V125)); T440:; V122= (*(LnkLI226))((V122),(V123)); {object V126 = list(3,VV[41],(V123),(V122)); VMR9(V126)}} } /* local entry for function C2RPLACA */ static object LI10(V128) register object V128; { VMB10 VMS10 VMV10 bds_check; TTL:; bds_bind(VV[20],symbol_value(VV[20])); bds_bind(VV[42],small_fixnum(0)); V128= (VFUN_NARGS=2,(*(LnkLI239))((V128),VV[43])); if((symbol_value(VV[25]))==Cnil){ goto T447;} princ_str("\n if(type_of(",VV[7]); (void)((*(LnkLI220))(car((V128)))); princ_str(")!=t_cons)",VV[7]); princ_str("FEwrong_type_argument(Scons,",VV[7]); (void)((*(LnkLI220))(car((V128)))); princ_str(");",VV[7]); T447:; princ_str("\n (",VV[7]); (void)((*(LnkLI220))(car((V128)))); princ_str(")->c.c_car = ",VV[7]); (void)((*(LnkLI220))(cadr((V128)))); princ_char(59,VV[7]); (void)((VFUN_NARGS=1,(*(LnkLI221))(car((V128))))); {object V129 = (*(LnkLI240))(); bds_unwind1; bds_unwind1; VMR10(V129)} } /* local entry for function C1RPLACD */ static object LI11(V131) register object V131; { VMB11 VMS11 VMV11 TTL:; {object V132; V132= (VFUN_NARGS=0,(*(LnkLI215))()); if(endp((V131))){ goto T465;} if(!(endp(cdr((V131))))){ goto T464;} T465:; V133 = make_fixnum(length((V131))); (void)((*(LnkLI216))(VV[44],small_fixnum(2),V133)); T464:; if(endp(cddr((V131)))){ goto T469;} V134 = make_fixnum(length((V131))); (void)((*(LnkLI217))(VV[44],small_fixnum(2),V134)); T469:; V131= (*(LnkLI226))((V131),(V132)); {object V135 = list(3,VV[44],(V132),(V131)); VMR11(V135)}} } /* local entry for function C2RPLACD */ static object LI12(V137) register object V137; { VMB12 VMS12 VMV12 bds_check; TTL:; bds_bind(VV[20],symbol_value(VV[20])); bds_bind(VV[42],small_fixnum(0)); V137= (VFUN_NARGS=2,(*(LnkLI239))((V137),VV[45])); if((symbol_value(VV[25]))==Cnil){ goto T476;} princ_str("\n if(type_of(",VV[7]); (void)((*(LnkLI220))(car((V137)))); princ_str(")!=t_cons)",VV[7]); princ_str("FEwrong_type_argument(Scons,",VV[7]); (void)((*(LnkLI220))(car((V137)))); princ_str(");",VV[7]); T476:; princ_str("\n (",VV[7]); (void)((*(LnkLI220))(car((V137)))); princ_str(")->c.c_cdr = ",VV[7]); (void)((*(LnkLI220))(cadr((V137)))); princ_char(59,VV[7]); (void)((VFUN_NARGS=1,(*(LnkLI221))(car((V137))))); {object V138 = (*(LnkLI240))(); bds_unwind1; bds_unwind1; VMR12(V138)} } /* local entry for function C1MEMQ */ static object LI13(V140) register object V140; { VMB13 VMS13 VMV13 TTL:; {object V141; V141= (VFUN_NARGS=0,(*(LnkLI215))()); if(endp((V140))){ goto T494;} if(!(endp(cdr((V140))))){ goto T493;} T494:; V142 = make_fixnum(length((V140))); (void)((*(LnkLI216))(VV[46],small_fixnum(2),V142)); T493:; if(endp(cddr((V140)))){ goto T498;} V143 = make_fixnum(length((V140))); (void)((*(LnkLI217))(VV[46],small_fixnum(2),V143)); T498:; V144= list(2,car((V140)),cadr((V140))); {object V145 = list(4,VV[47],(V141),VV[48],(*(LnkLI226))(/* INLINE-ARGS */V144,(V141))); VMR13(V145)}} } /* local entry for function C1MEMBER */ static object LI14(V147) register object V147; { VMB14 VMS14 VMV14 TTL:; {object V148; V148= (VFUN_NARGS=0,(*(LnkLI215))()); if(endp((V147))){ goto T503;} if(!(endp(cdr((V147))))){ goto T502;} T503:; V149 = make_fixnum(length((V147))); (void)((*(LnkLI216))(VV[49],small_fixnum(2),V149)); T502:; if(!(endp(cddr((V147))))){ goto T508;} {object V150 = list(4,VV[47],(V148),VV[50],(*(LnkLI226))((V147),(V148))); VMR14(V150)} T508:; if(!((caddr((V147)))==(VV[51]))){ goto T511;} if(!((length((V147)))==(4))){ goto T511;} {register object x= cadddr((V147)),V151= VV[52]; while(!endp(V151)) if(equal(x,V151->c.c_car)){ goto T516; }else V151=V151->c.c_cdr; goto T511;} T516:; V152= cadr(cadddr((V147))); V153= list(2,car((V147)),cadr((V147))); {object V154 = list(4,VV[47],(V148),/* INLINE-ARGS */V152,(*(LnkLI226))(/* INLINE-ARGS */V153,(V148))); VMR14(V154)} T511:; {object V155 = list(4,VV[4],(V148),VV[49],(*(LnkLI226))((V147),(V148))); VMR14(V155)}} } /* local entry for function C2MEMBER!2 */ static object LI15(V158,V159) object V158;register object V159; { VMB15 VMS15 VMV15 bds_check; TTL:; {object V160; bds_bind(VV[20],symbol_value(VV[20])); bds_bind(VV[42],small_fixnum(0)); setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); V160= symbol_value(VV[22]); V159= (VFUN_NARGS=2,(*(LnkLI239))((V159),VV[53])); princ_str("\n {register object x= ",VV[7]); (void)((*(LnkLI220))(car((V159)))); princ_str(",V",VV[7]); (void)((*(LnkLI220))((V160))); princ_str("= ",VV[7]); (void)((*(LnkLI220))(cadr((V159)))); princ_char(59,VV[7]); if((symbol_value(VV[25]))==Cnil){ goto T531;} princ_str("\n while(!endp(V",VV[7]); (void)((*(LnkLI220))((V160))); princ_str("))",VV[7]); goto T529; T531:; princ_str("\n while(V",VV[7]); (void)((*(LnkLI220))((V160))); princ_str("!=Cnil)",VV[7]); T529:; if(!(((V158))==(VV[48]))){ goto T541;} princ_str("\n if(x==(V",VV[7]); (void)((*(LnkLI220))((V160))); princ_str("->c.c_car)){",VV[7]); goto T539; T541:; princ_str("\n if(",VV[7]); base[2]= symbol_name((V158)); vs_top=(vs_base=base+2)+1; Lstring_downcase(); vs_top=sup; V161= vs_base[0]; (void)((*(LnkLI220))(V161)); princ_str("(x,V",VV[7]); (void)((*(LnkLI220))((V160))); princ_str("->c.c_car)){",VV[7]); T539:; if(!(type_of(symbol_value(VV[5]))==t_cons)){ goto T555;} if((car(symbol_value(VV[5])))==(VV[54])){ goto T554;} if(!((car(symbol_value(VV[5])))==(VV[55]))){ goto T555;} T554:; (void)((VFUN_NARGS=2,(*(LnkLI221))(Ct,VV[56]))); goto T553; T555:; V162= list(2,VV[21],(V160)); (void)((VFUN_NARGS=2,(*(LnkLI221))(/* INLINE-ARGS */V162,VV[56]))); T553:; princ_str("\n }else V",VV[7]); (void)((*(LnkLI220))((V160))); princ_str("=V",VV[7]); (void)((*(LnkLI220))((V160))); princ_str("->c.c_cdr;",VV[7]); (void)((VFUN_NARGS=1,(*(LnkLI221))(Cnil))); princ_char(125,VV[7]); {object V163 = (*(LnkLI240))(); bds_unwind1; bds_unwind1; VMR15(V163)}} } /* local entry for function C1ASSOC */ static object LI16(V165) register object V165; { VMB16 VMS16 VMV16 TTL:; {object V166; V166= (VFUN_NARGS=0,(*(LnkLI215))()); if(endp((V165))){ goto T572;} if(!(endp(cdr((V165))))){ goto T571;} T572:; V167 = make_fixnum(length((V165))); (void)((*(LnkLI216))(VV[57],small_fixnum(2),V167)); T571:; if(!(endp(cddr((V165))))){ goto T577;} {object V168 = list(4,VV[58],(V166),VV[50],(*(LnkLI226))((V165),(V166))); VMR16(V168)} T577:; if(!((caddr((V165)))==(VV[51]))){ goto T580;} if(!((length((V165)))==(4))){ goto T580;} {register object x= cadddr((V165)),V169= VV[59]; while(!endp(V169)) if(equal(x,V169->c.c_car)){ goto T585; }else V169=V169->c.c_cdr; goto T580;} T585:; V170= cadr(cadddr((V165))); V171= list(2,car((V165)),cadr((V165))); {object V172 = list(4,VV[58],(V166),/* INLINE-ARGS */V170,(*(LnkLI226))(/* INLINE-ARGS */V171,(V166))); VMR16(V172)} T580:; {object V173 = list(4,VV[4],(V166),VV[57],(*(LnkLI226))((V165),(V166))); VMR16(V173)}} } /* local entry for function C2ASSOC!2 */ static object LI17(V176,V177) object V176;register object V177; { VMB17 VMS17 VMV17 bds_check; TTL:; {object V178; object V179; bds_bind(VV[20],symbol_value(VV[20])); bds_bind(VV[42],small_fixnum(0)); setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); V178= symbol_value(VV[22]); V179= Cnil; V177= (VFUN_NARGS=2,(*(LnkLI239))((V177),VV[60])); V179= symbol_name((V176)); if(!(((V176))==(VV[48]))){ goto T594;} goto T593; T594:; base[3]= (V179); vs_top=(vs_base=base+3)+1; Lstring_downcase(); vs_top=sup; V179= vs_base[0]; T593:; princ_str("\n {register object x= ",VV[7]); (void)((*(LnkLI220))(car((V177)))); princ_str(",V",VV[7]); (void)((*(LnkLI220))((V178))); princ_str("= ",VV[7]); (void)((*(LnkLI220))(cadr((V177)))); princ_char(59,VV[7]); if((symbol_value(VV[25]))==Cnil){ goto T608;} princ_str("\n while(!endp(V",VV[7]); (void)((*(LnkLI220))((V178))); princ_str("))",VV[7]); princ_str("\n if(type_of(V",VV[7]); (void)((*(LnkLI220))((V178))); princ_str("->c.c_car)==t_cons &&",VV[7]); (void)((*(LnkLI220))((V179))); princ_str("(x,V",VV[7]); (void)((*(LnkLI220))((V178))); princ_str("->c.c_car->c.c_car)){",VV[7]); goto T606; T608:; princ_str("\n while(V",VV[7]); (void)((*(LnkLI220))((V178))); princ_str("!=Cnil)",VV[7]); princ_str("\n if(",VV[7]); (void)((*(LnkLI220))((V179))); princ_str("(x,V",VV[7]); (void)((*(LnkLI220))((V178))); princ_str("->c.c_car->c.c_car) &&",VV[7]); princ_char(86,VV[7]); (void)((*(LnkLI220))((V178))); princ_str("->c.c_car != Cnil){",VV[7]); T606:; if(!(type_of(symbol_value(VV[5]))==t_cons)){ goto T635;} if((car(symbol_value(VV[5])))==(VV[54])){ goto T634;} if(!((car(symbol_value(VV[5])))==(VV[55]))){ goto T635;} T634:; (void)((VFUN_NARGS=2,(*(LnkLI221))(Ct,VV[56]))); goto T633; T635:; V180= list(2,VV[61],(V178)); (void)((VFUN_NARGS=2,(*(LnkLI221))(/* INLINE-ARGS */V180,VV[56]))); T633:; princ_str("\n }else V",VV[7]); (void)((*(LnkLI220))((V178))); princ_str("=V",VV[7]); (void)((*(LnkLI220))((V178))); princ_str("->c.c_cdr;",VV[7]); (void)((VFUN_NARGS=1,(*(LnkLI221))(Cnil))); princ_char(125,VV[7]); {object V181 = (*(LnkLI240))(); bds_unwind1; bds_unwind1; VMR17(V181)}} } /* local entry for function C1BOOLE-CONDITION */ static object LI18(V183) object V183; { VMB18 VMS18 VMV18 TTL:; if(((endp(cddr((V183)))?Ct:Cnil))==Cnil){ goto T650;} {object V184 = Cnil; VMR18(V184)} T650:; if(endp(cdddr((V183)))){ goto T652;} {object V185 = Cnil; VMR18(V185)} T652:; {object V186 = (*(LnkLI241))(car((V183))); VMR18(V186)} } /* local entry for function C1BOOLE3 */ static object LI19(V188) object V188; { VMB19 VMS19 VMV19 TTL:; V189= make_cons(VV[62],(V188)); {object V190 = (*(LnkLI242))(/* INLINE-ARGS */V189); VMR19(V190)} } /* function definition for INLINE-BOOLE3 */ static L20() {register object *base=vs_base; register object *sup=base+VM20; VC20 vs_reserve(VM20); {object V191; vs_top[0]=Cnil; {object *p=vs_top; for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} V191=(base[0]); vs_top=sup; {object V192; V192= cadr(car((V191))); if(!((car((V192)))==(VV[63]))){ goto T656;} goto T655; T656:; base[2]= VV[64]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; T655:; {object V193; V193= (*(LnkLI241))(caddr((V192))); if((V193)!=Cnil){ goto T660;} base[2]= VV[65]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; T660:; base[1]= (V193); base[2]= cdr((V191)); vs_top=(vs_base=base+1)+2; (void) (*Lnk243)(); return;}} } } /* local entry for function INLINE-BOOLE3-STRING */ static object LI21(V195) register object V195; { VMB21 VMS21 VMV21 TTL:; base[0]= (V195); vs_top=(vs_base=base+0)+1; Lconstantp(); vs_top=sup; if((vs_base[0])!=Cnil){ goto T665;} goto T664; T665:; base[0]= (V195); vs_top=(vs_base=base+0)+1; Leval(); vs_top=sup; V195= vs_base[0]; T664:; {object V196= (V195); if(!eql(V196,VV[66]))goto T670; {object V197 = VV[67]; VMR21(V197)} T670:; if(!eql(V196,VV[68]))goto T671; {object V198 = VV[69]; VMR21(V198)} T671:; if(!eql(V196,VV[70]))goto T672; {object V199 = VV[71]; VMR21(V199)} T672:; if(!eql(V196,VV[72]))goto T673; {object V200 = VV[73]; VMR21(V200)} T673:; if(!eql(V196,VV[74]))goto T674; {object V201 = VV[75]; VMR21(V201)} T674:; if(!eql(V196,VV[76]))goto T675; {object V202 = VV[77]; VMR21(V202)} T675:; if(!eql(V196,VV[78]))goto T676; {object V203 = VV[79]; VMR21(V203)} T676:; if(!eql(V196,VV[80]))goto T677; {object V204 = VV[81]; VMR21(V204)} T677:; if(!eql(V196,VV[82]))goto T678; {object V205 = VV[83]; VMR21(V205)} T678:; if(!eql(V196,VV[84]))goto T679; {object V206 = VV[85]; VMR21(V206)} T679:; {object V207 = Cnil; VMR21(V207)}} } /* local entry for function C1ASH-CONDITION */ static object LI22(V209) object V209; { VMB22 VMS22 VMV22 TTL:; {object V210; V210= cadr((V209)); {object V211; V211= (V210); if(type_of((V211))==t_fixnum){ goto T684;} base[0]= Cnil; goto T682; T684:; if((fix((V211)))>=(0)){ goto T686;} base[0]= Cnil; goto T682; T686:; base[0]= ((fix((V211)))<=(31)?Ct:Cnil);} T682:; if(base[0]==Cnil)goto T681; {object V212 = base[0]; VMR22(V212)} T681:; if(type_of((V210))==t_cons){ goto T688;} {object V213 = Cnil; VMR22(V213)} T688:; if((car((V210)))==(VV[86])){ goto T690;} {object V214 = Cnil; VMR22(V214)} T690:; {object V215; V215= cadr((V210)); base[1]= (V215); base[2]= VV[87]; vs_top=(vs_base=base+1)+2; (void) (*Lnk244)(); vs_top=sup; {object V216 = vs_base[0]; VMR22(V216)}}} } /* local entry for function C1ASH */ static object LI23(V218) object V218; { VMB23 VMS23 VMV23 TTL:; {object V219; object V220; V219= cadr((V218)); V220= Cnil; base[0]= (V219); vs_top=(vs_base=base+0)+1; Lconstantp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T699;} base[0]= (V219); vs_top=(vs_base=base+0)+1; Leval(); vs_top=sup; V219= vs_base[0]; base[1]= (V219); vs_top=(vs_base=base+1)+1; (void) (*Lnk114)(); vs_top=sup; base[0]= vs_base[0]; if(base[0]==Cnil)goto T706; goto T705; T706:; base[1]= VV[88]; vs_top=(vs_base=base+1)+1; Lerror(); vs_top=sup; T705:; if(!(number_compare((V219),small_fixnum(0))<0)){ goto T711;} V220= VV[89]; goto T697; T711:; if(!(number_compare((V219),small_fixnum(0))>=0)){ goto T697;} V220= VV[90]; goto T697; T699:; {object V221; V221= cadr((V219)); base[0]= (V221); base[1]= VV[91]; vs_top=(vs_base=base+0)+2; (void) (*Lnk244)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T719;} V220= VV[90]; goto T697; T719:; base[0]= (V221); base[1]= VV[92]; vs_top=(vs_base=base+0)+2; (void) (*Lnk244)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T725;} V220= VV[89]; goto T697; T725:; base[0]= VV[93]; vs_top=(vs_base=base+0)+1; Lerror(); vs_top=sup;} T697:; V222= make_cons((V220),(V218)); {object V223 = (*(LnkLI242))(/* INLINE-ARGS */V222); VMR23(V223)}} } /* local entry for function SHIFT>> */ static object LI24(V226,V227) object V226;object V227; { VMB24 VMS24 VMV24 TTL:; base[0]= (V226); base[1]= (V227); vs_top=(vs_base=base+0)+2; Lash(); vs_top=sup; {object V228 = vs_base[0]; VMR24(V228)} } /* local entry for function SHIFT<< */ static object LI25(V231,V232) object V231;object V232; { VMB25 VMS25 VMV25 TTL:; base[0]= (V231); base[1]= (V232); vs_top=(vs_base=base+0)+2; Lash(); vs_top=sup; {object V233 = vs_base[0]; VMR25(V233)} } /* function definition for CO1LDB */ static L26() {register object *base=vs_base; register object *sup=base+VM26; VC26 vs_reserve(VM26); {object V234; object V235; check_arg(2); V234=(base[0]); V235=(base[1]); vs_top=sup; TTL:; {object V236; object V237; V236= Cnil; base[2]= VV[94]; vs_top=(vs_base=base+2)+1; Linteger_length(); vs_top=sup; V237= vs_base[0]; {object V238; {object V239; V236= car((V235)); if(type_of((V236))==t_cons){ goto T741;} V239= Cnil; goto T740; T741:; if((VV[95])==(car((V236)))){ goto T744;} V239= Cnil; goto T740; T744:; V239= make_cons(cadr((V236)),caddr((V236))); T740:; if(((V239))==Cnil){ goto T747;} V238= (V239); goto T739; T747:; V238= Cnil;} T739:; {object V240= cdr((V238)); if(!(type_of(V240)==t_fixnum||type_of(V240)==t_bignum)){ goto T750;}} {object V241= car((V238)); if(!(type_of(V241)==t_fixnum||type_of(V241)==t_bignum)){ goto T750;}} V242= number_plus(car((V238)),cdr((V238))); if(!(number_compare(/* INLINE-ARGS */V242,(V237))<0)){ goto T750;} base[2]= (*(LnkLI245))(cadr((V235))); base[3]= VV[96]; vs_top=(vs_base=base+2)+2; (void) (*Lnk244)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T750;} V243= list(3,VV[86],VV[96],list(4,VV[97],car((V238)),cdr((V238)),cadr((V235)))); base[2]= (*(LnkLI242))(/* INLINE-ARGS */V243); vs_top=(vs_base=base+2)+1; return; T750:; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;}} } } /* local entry for function C1LENGTH */ static object LI27(V245) register object V245; { VMB27 VMS27 VMV27 TTL:; {object V246; V246= (VFUN_NARGS=0,(*(LnkLI215))()); (void)(structure_set((V246),VV[98],2,VV[96])); {object V247; if(type_of(car((V245)))==t_cons){ goto T763;} V247= Cnil; goto T762; T763:; if((caar((V245)))==(VV[99])){ goto T765;} V247= Cnil; goto T762; T765:; {object V248; V248= cdr(car((V245))); if((V248)==Cnil){ V247= Cnil; goto T762;} if((cddr((V248)))==Cnil){ goto T768;} V247= Cnil; goto T762; T768:; V247= list(4,VV[4],(V246),VV[100],(*(LnkLI226))((V248),(V246)));} T762:; if(((V247))==Cnil){ goto T771;} {object V249 = (V247); VMR27(V249)} T771:; V245= (*(LnkLI226))((V245),(V246)); {object V250 = list(4,VV[4],(V246),VV[101],(V245)); VMR27(V250)}}} } /* local entry for function C1GET */ static object LI28(V252) register object V252; { VMB28 VMS28 VMV28 TTL:; {object V253; V253= (VFUN_NARGS=0,(*(LnkLI215))()); if(endp((V252))){ goto T777;} if(!(endp(cdr((V252))))){ goto T776;} T777:; V254 = make_fixnum(length((V252))); (void)((*(LnkLI216))(VV[102],small_fixnum(2),V254)); T776:; if(endp(cddr((V252)))){ goto T781;} if(endp(cdddr((V252)))){ goto T781;} V255 = make_fixnum(length((V252))); (void)((*(LnkLI217))(VV[102],small_fixnum(3),V255)); T781:; {object V256 = list(3,VV[102],(V253),(*(LnkLI226))((V252),(V253))); VMR28(V256)}} } /* local entry for function C2GET */ static object LI29(V258) register object V258; { VMB29 VMS29 VMV29 bds_check; TTL:; if((symbol_value(VV[25]))==Cnil){ goto T787;} {object V259 = (*(LnkLI222))(VV[102],(V258),Cnil,Ct); VMR29(V259)} T787:; {object V260; base[0]= symbol_value(VV[20]); setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); V260= symbol_value(VV[22]); bds_bind(VV[20],base[0]); bds_bind(VV[42],small_fixnum(0)); if((cddr((V258)))==Cnil){ goto T796;} V261= VV[103]; goto T794; T796:; V261= VV[104]; T794:; V258= (VFUN_NARGS=2,(*(LnkLI239))((V258),V261)); princ_str("\n {object V",VV[7]); (void)((*(LnkLI220))((V260))); princ_str(" =(",VV[7]); (void)((*(LnkLI220))(car((V258)))); princ_str(")->s.s_plist;",VV[7]); princ_str("\n object ind= ",VV[7]); (void)((*(LnkLI220))(cadr((V258)))); princ_char(59,VV[7]); princ_str("\n while(V",VV[7]); (void)((*(LnkLI220))((V260))); princ_str("!=Cnil){",VV[7]); princ_str("\n if(V",VV[7]); (void)((*(LnkLI220))((V260))); princ_str("->c.c_car==ind){",VV[7]); V262= list(2,VV[105],(V260)); (void)((VFUN_NARGS=2,(*(LnkLI221))(/* INLINE-ARGS */V262,VV[56]))); princ_str("\n }else V",VV[7]); (void)((*(LnkLI220))((V260))); princ_str("=V",VV[7]); (void)((*(LnkLI220))((V260))); princ_str("->c.c_cdr->c.c_cdr;}",VV[7]); if((cddr((V258)))==Cnil){ goto T826;} V263= caddr((V258)); goto T824; T826:; V263= Cnil; T824:; (void)((VFUN_NARGS=1,(*(LnkLI221))(V263))); princ_char(125,VV[7]); {object V264 = (*(LnkLI240))(); bds_unwind1; bds_unwind1; VMR29(V264)}} } /* local entry for function CO1EQL */ static object LI30(V267,V268) object V267;register object V268; { VMB30 VMS30 VMV30 TTL:; if((cdr((V268)))!=Cnil){ goto T834;} base[0]= Cnil; goto T833; T834:; base[0]= ((symbol_value(VV[25]))==Cnil?Ct:Cnil); T833:; if(base[0]==Cnil)goto T832; goto T831; T832:; {object V269 = Cnil; VMR30(V269)} T831:; if(((*(LnkLI246))((V268)))==Cnil){ goto T837;} if(!(type_of(cadr((V268)))==t_character)){ goto T839;} V268= reverse((V268)); T839:; if(!(type_of(car((V268)))==t_character)){ goto T844;} {object V270; vs_base=vs_top; Lgensym(); vs_top=sup; V270= vs_base[0]; V271= list(2,(V270),cadr((V268))); V272= make_cons(/* INLINE-ARGS */V271,Cnil); V273= (*(LnkLI245))(cadr((V268))); V274= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V273,(V270))); V275= list(3,VV[109],(V270),VV[110]); V276= list(2,VV[112],car((V268))); V277= list(4,VV[29],/* INLINE-ARGS */V272,/* INLINE-ARGS */V274,list(3,VV[108],/* INLINE-ARGS */V275,list(3,VV[111],/* INLINE-ARGS */V276,list(3,VV[86],VV[96],list(2,VV[112],list(3,VV[86],VV[14],(V270))))))); {object V278 = (*(LnkLI242))(/* INLINE-ARGS */V277); VMR30(V278)}} T844:; {object V279 = Cnil; VMR30(V279)} T837:; {object V280 = Cnil; VMR30(V280)} } /* local entry for function RESULT-TYPE */ static object LI31(V282) register object V282; { VMB31 VMS31 VMV31 TTL:; if(!(type_of((V282))==t_symbol)){ goto T848;} {object V283; V283= (*(LnkLI242))((V282)); {object V284 = structure_ref(cadr((V283)),VV[98],2); VMR31(V284)}} T848:; base[0]= (V282); vs_top=(vs_base=base+0)+1; Lconstantp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T852;} base[0]= (V282); vs_top=(vs_base=base+0)+1; Ltype_of(); vs_top=sup; V285= vs_base[0]; {object V286 = (*(LnkLI247))(V285); VMR31(V286)} T852:; if(!(type_of((V282))==t_cons)){ goto T858;} if(!((car((V282)))==(VV[86]))){ goto T858;} {object V287 = (*(LnkLI247))(cadr((V282))); VMR31(V287)} T858:; {object V288 = Ct; VMR31(V288)} } /* local entry for function CO1TYPEP */ static object LI32(V291,V292) object V291;register object V292; { VMB32 VMS32 VMV32 TTL:; {object V293; V293= Cnil; {object V294; object V295; object V296; V294= car((V292)); V295= Cnil; if(type_of(cadr((V292)))==t_cons){ goto T867;} V296= Cnil; goto T866; T867:; if((car(cadr((V292))))==(VV[113])){ goto T869;} V296= Cnil; goto T866; T869:; V296= cadr(cadr((V292))); T866:; base[0]= (*(LnkLI245))(car((V292))); base[1]= (V296); vs_top=(vs_base=base+0)+2; (void) (*Lnk244)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T871;} V295= Ct; {object V297 = (*(LnkLI242))((V295)); VMR32(V297)} T871:; if((V296)==Cnil){ V295= Cnil; goto T879;} {object V298= (V296); if((V298!= VV[96]))goto T880; V295= list(2,VV[114],(V294)); goto T879; T880:; if((V298!= VV[248]))goto T881; V295= list(2,VV[115],(V294)); goto T879; T881:; if((V298!= VV[249]))goto T882; V295= list(2,VV[116],(V294)); goto T879; T882:; if((V298!= VV[250]))goto T883; V295= list(2,VV[117],(V294)); goto T879; T883:; if((V298!= VV[251]))goto T884; V295= list(2,VV[118],(V294)); goto T879; T884:; if((V298!= VV[14]))goto T885; V295= list(2,VV[119],(V294)); goto T879; T885:; if((V298!= VV[144]))goto T886; V295= list(2,VV[120],(V294)); goto T879; T886:; if(!(type_of((V296))==t_cons)){ goto T888;} if(!((car((V296)))==(VV[121]))){ goto T891;} if((cddr((V296)))==Cnil){ goto T887;} T891:; {register object x= car((V296)),V299= VV[122]; while(!endp(V299)) if(eql(x,V299->c.c_car)){ goto T896; }else V299=V299->c.c_cdr; goto T888;} T896:; if(!(equal(caddr((V296)),VV[123]))){ goto T888;} T887:; V293= (*(LnkLI252))(cadr((V296))); if(!(((V293))==(VV[124]))){ goto T901;} V295= list(2,VV[125],(V294)); goto T879; T901:; if(!(((V293))==(VV[126]))){ goto T904;} V295= list(2,VV[127],(V294)); goto T879; T904:; V293= (VFUN_NARGS=2,(*(LnkLI253))((V293),symbol_value(VV[128]))); if(((V293))==Cnil){ goto T907;} V295= list(3,VV[86],VV[129],list(3,VV[130],(V294),(V293))); goto T879; T907:; V295= Cnil; goto T879; T888:; base[0]= (V296); base[1]= VV[96]; vs_top=(vs_base=base+0)+2; (void) (*Lnk244)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T911;} V293= (*(LnkLI254))((V296)); if(type_of((V293))==t_cons){ goto T917;} V295= Cnil; goto T879; T917:; base[0]= cadr((V293)); vs_top=(vs_base=base+0)+1; (void) (*Lnk114)(); vs_top=sup; if((vs_base[0])!=Cnil){ goto T919;} V295= Cnil; goto T879; T919:; base[0]= caddr((V293)); vs_top=(vs_base=base+0)+1; (void) (*Lnk114)(); vs_top=sup; if((vs_base[0])!=Cnil){ goto T922;} V295= Cnil; goto T879; T922:; V300= list(2,VV[131],(V294)); V301= make_cons(/* INLINE-ARGS */V300,Cnil); V302= (*(LnkLI245))((V294)); V303= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V302,VV[131])); V304= list(3,VV[133],VV[134],cadr((V293))); V295= list(4,VV[29],/* INLINE-ARGS */V301,/* INLINE-ARGS */V303,list(4,VV[108],VV[132],/* INLINE-ARGS */V304,list(3,VV[135],VV[136],caddr((V293))))); goto T879; T911:; if(!(type_of((V296))==t_symbol)){ goto T926;} V293= get((V296),VV[137],Cnil); if(((V293))==Cnil){ goto T926;} if((structure_ref((V293),VV[137],11))!=Cnil){ goto T931;} if((symbol_value(VV[138]))==Cnil){ goto T932;} T931:; V295= (*(LnkLI255))((V294),(V293)); goto T879; T932:; V295= list(3,VV[139],(V294),list(2,VV[113],(V296))); goto T879; T926:; V295= Cnil;} T879:; if((V295)==Cnil){ {object V305 = Cnil; VMR32(V305)}} V306= list(3,VV[86],VV[129],(V295)); {object V307 = (*(LnkLI242))(/* INLINE-ARGS */V306); VMR32(V307)}}} } /* local entry for function STRUCT-TYPE-OPT */ static object LI33(V310,V311) object V310;object V311; { VMB33 VMS33 VMV33 TTL:; {object V312; object V313; vs_base=vs_top; Lgensym(); vs_top=sup; V312= vs_base[0]; V314= structure_ref((V311),VV[137],0); V313= (*(LnkLI256))(/* INLINE-ARGS */V314); V315= list(2,(V312),(V310)); V316= make_cons(/* INLINE-ARGS */V315,Cnil); V317= list(2,VV[140],(V312)); if(!((length((V313)))<(3))){ goto T940;} {object V320; object V321= (V313); if(endp(V321)){ V319= Cnil; goto T942;} base[0]=V320=MMcons(Cnil,Cnil); T943:; {object V322; V322= (V321->c.c_car); V323= list(2,VV[142],(V312)); (V320->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V323,(*(LnkLI257))((V322)));} if(endp(V321=MMcdr(V321))){ V319= base[0]; goto T942;} V320=MMcdr(V320)=MMcons(Cnil,Cnil); goto T943;} T942:; V318= make_cons(VV[141],V319); goto T938; T940:; V324= structure_ref((V311),VV[137],0); V318= list(3,VV[139],(V312),(*(LnkLI257))(/* INLINE-ARGS */V324)); T938:; {object V325 = list(3,VV[29],/* INLINE-ARGS */V316,list(3,VV[108],/* INLINE-ARGS */V317,V318)); VMR33(V325)}} } /* local entry for function GET-INCLUDED */ static object LI34(V327) object V327; { VMB34 VMS34 VMV34 TTL:; {object V328; V328= get((V327),VV[137],Cnil); V329= structure_ref((V328),VV[137],0); V333= structure_ref((V328),VV[137],3); {object V331; object V332= /* INLINE-ARGS */V333; if(endp(V332)){ V330= Cnil; goto T947;} base[0]=V331=MMcons(Cnil,Cnil); T948:; (V331->c.c_cdr)= (*(LnkLI256))((V332->c.c_car)); while(!endp(MMcdr(V331)))V331=MMcdr(V331); if(endp(V332=MMcdr(V332))){ base[0]=base[0]->c.c_cdr; V330= base[0]; goto T947;} goto T948;} T947:; {object V334 = make_cons(/* INLINE-ARGS */V329,V330); VMR34(V334)}} } /* local entry for function CO1SCHAR */ static object LI35(V337,V338) object V337;register object V338; { VMB35 VMS35 VMV35 TTL:; {object V339= car((V338)); if(type_of(V339)==t_cons||(V339)==Cnil){ goto T951;}} {object V340 = Cnil; VMR35(V340)} T951:; if((symbol_value(VV[25]))==Cnil){ goto T953;} {object V341 = Cnil; VMR35(V341)} T953:; if((cdr((V338)))!=Cnil){ goto T955;} {object V342 = Cnil; VMR35(V342)} T955:; if((caar((V338)))==(VV[99])){ goto T957;} {object V343 = Cnil; VMR35(V343)} T957:; V344= list(3,VV[143],list(3,VV[86],VV[15],cadr(car((V338)))),cadr((V338))); {object V345 = (*(LnkLI242))(/* INLINE-ARGS */V344); VMR35(V345)} } /* local entry for function CONS-TO-LISTA */ static object LI36(V347) object V347; { VMB36 VMS36 VMV36 TTL:; {object V348; base[0]= (V347); vs_top=(vs_base=base+0)+1; Llast(); vs_top=sup; V348= vs_base[0]; {object V349; if(type_of((V348))==t_cons){ goto T962;} V349= Cnil; goto T961; T962:; if(type_of(car((V348)))==t_cons){ goto T964;} V349= Cnil; goto T961; T964:; if((caar((V348)))==(VV[144])){ goto T966;} V349= Cnil; goto T961; T966:; if((length(cdar((V348))))==(2)){ goto T968;} V349= Cnil; goto T961; T968:; base[0]= (V347); vs_top=(vs_base=base+0)+1; Lbutlast(); vs_top=sup; V350= vs_base[0]; V351= append(V350,cdar((V348))); V349= (*(LnkLI258))(/* INLINE-ARGS */V351); T961:; if(((V349))==Cnil){ goto T973;} {object V352 = (V349); VMR36(V352)} T973:; {object V353 = (V347); VMR36(V353)}}} } /* local entry for function CO1CONS */ static object LI37(V356,V357) object V356;object V357; { VMB37 VMS37 VMV37 TTL:; {object V358; if((length((V357)))==(2)){ goto T977;} V358= Cnil; goto T976; T977:; V358= (*(LnkLI258))((V357)); T976:; if(((((V358))==((V357))?Ct:Cnil))==Cnil){ goto T979;} {object V359 = Cnil; VMR37(V359)} T979:; base[0]= (V358); vs_top=(vs_base=base+0)+1; Llast(); vs_top=sup; V361= vs_base[0]; if(!(equal(VV[145],V361))){ goto T983;} base[0]= (V358); vs_top=(vs_base=base+0)+1; Lbutlast(); vs_top=sup; V362= vs_base[0]; V360= make_cons(VV[146],V362); goto T981; T983:; V360= make_cons(VV[28],(V358)); T981:; {object V363 = (*(LnkLI242))(V360); VMR37(V363)}} } /* local entry for function C1NTH-CONDITION */ static object LI38(V365) register object V365; { VMB38 VMS38 VMV38 TTL:; if(((endp((V365))?Ct:Cnil))==Cnil){ goto T989;} {object V366 = Cnil; VMR38(V366)} T989:; if(((endp(cdr((V365)))?Ct:Cnil))==Cnil){ goto T991;} {object V367 = Cnil; VMR38(V367)} T991:; if(endp(cddr((V365)))){ goto T993;} {object V368 = Cnil; VMR38(V368)} T993:; {object V369= car((V365)); if(type_of(V369)==t_fixnum|| type_of(V369)==t_bignum|| type_of(V369)==t_ratio|| type_of(V369)==t_shortfloat|| type_of(V369)==t_longfloat|| type_of(V369)==t_complex){ goto T995;}} {object V370 = Cnil; VMR38(V370)} T995:; base[0]= small_fixnum(0); base[1]= car((V365)); base[2]= small_fixnum(7); vs_top=(vs_base=base+0)+3; Lmonotonically_nondecreasing(); vs_top=sup; {object V371 = vs_base[0]; VMR38(V371)} } /* local entry for function C1NTH */ static object LI39(V373) register object V373; { VMB39 VMS39 VMV39 TTL:; {object V375= car((V373)); if(!eql(V375,VV[147]))goto T1001; V374= make_cons(VV[61],cdr((V373))); goto T1000; T1001:; if(!eql(V375,VV[80]))goto T1002; V374= make_cons(VV[105],cdr((V373))); goto T1000; T1002:; if(!eql(V375,VV[68]))goto T1003; V374= make_cons(VV[148],cdr((V373))); goto T1000; T1003:; if(!eql(V375,VV[149]))goto T1004; V374= make_cons(VV[150],cdr((V373))); goto T1000; T1004:; if(!eql(V375,VV[66]))goto T1005; V374= list(2,VV[61],make_cons(VV[151],cdr((V373)))); goto T1000; T1005:; if(!eql(V375,VV[152]))goto T1006; V374= list(2,VV[105],make_cons(VV[151],cdr((V373)))); goto T1000; T1006:; if(!eql(V375,VV[82]))goto T1007; V374= list(2,VV[148],make_cons(VV[151],cdr((V373)))); goto T1000; T1007:; if(!eql(V375,VV[84]))goto T1008; V374= list(2,VV[150],make_cons(VV[151],cdr((V373)))); goto T1000; T1008:; V374= Cnil;} T1000:; {object V376 = (*(LnkLI242))(V374); VMR39(V376)} } /* local entry for function C1NTHCDR-CONDITION */ static object LI40(V378) register object V378; { VMB40 VMS40 VMV40 TTL:; if(((endp((V378))?Ct:Cnil))==Cnil){ goto T1009;} {object V379 = Cnil; VMR40(V379)} T1009:; if(((endp(cdr((V378)))?Ct:Cnil))==Cnil){ goto T1011;} {object V380 = Cnil; VMR40(V380)} T1011:; if(endp(cddr((V378)))){ goto T1013;} {object V381 = Cnil; VMR40(V381)} T1013:; {object V382= car((V378)); if(type_of(V382)==t_fixnum|| type_of(V382)==t_bignum|| type_of(V382)==t_ratio|| type_of(V382)==t_shortfloat|| type_of(V382)==t_longfloat|| type_of(V382)==t_complex){ goto T1015;}} {object V383 = Cnil; VMR40(V383)} T1015:; base[0]= small_fixnum(0); base[1]= car((V378)); base[2]= small_fixnum(7); vs_top=(vs_base=base+0)+3; Lmonotonically_nondecreasing(); vs_top=sup; {object V384 = vs_base[0]; VMR40(V384)} } /* local entry for function C1NTHCDR */ static object LI41(V386) register object V386; { VMB41 VMS41 VMV41 TTL:; {object V388= car((V386)); if(!eql(V388,VV[147]))goto T1021; V387= cadr((V386)); goto T1020; T1021:; if(!eql(V388,VV[80]))goto T1022; V387= make_cons(VV[153],cdr((V386))); goto T1020; T1022:; if(!eql(V388,VV[68]))goto T1023; V387= make_cons(VV[154],cdr((V386))); goto T1020; T1023:; if(!eql(V388,VV[149]))goto T1024; V387= make_cons(VV[155],cdr((V386))); goto T1020; T1024:; if(!eql(V388,VV[66]))goto T1025; V387= make_cons(VV[151],cdr((V386))); goto T1020; T1025:; if(!eql(V388,VV[152]))goto T1026; V387= list(2,VV[153],make_cons(VV[151],cdr((V386)))); goto T1020; T1026:; if(!eql(V388,VV[82]))goto T1027; V387= list(2,VV[154],make_cons(VV[151],cdr((V386)))); goto T1020; T1027:; if(!eql(V388,VV[84]))goto T1028; V387= list(2,VV[155],make_cons(VV[151],cdr((V386)))); goto T1020; T1028:; V387= Cnil;} T1020:; {object V389 = (*(LnkLI242))(V387); VMR41(V389)} } /* local entry for function C1RPLACA-NTHCDR */ static object LI42(V391) register object V391; { VMB42 VMS42 VMV42 TTL:; {object V392; V392= (VFUN_NARGS=0,(*(LnkLI215))()); if(endp((V391))){ goto T1031;} if(endp(cdr((V391)))){ goto T1031;} if(!(endp(cddr((V391))))){ goto T1030;} T1031:; V393 = make_fixnum(length((V391))); (void)((*(LnkLI216))(VV[156],small_fixnum(3),V393)); T1030:; if(endp(cdddr((V391)))){ goto T1037;} V394 = make_fixnum(length((V391))); (void)((*(LnkLI216))(VV[156],small_fixnum(3),V394)); T1037:; {object V395= cadr((V391)); if(!(type_of(V395)==t_fixnum|| type_of(V395)==t_bignum|| type_of(V395)==t_ratio|| type_of(V395)==t_shortfloat|| type_of(V395)==t_longfloat|| type_of(V395)==t_complex)){ goto T1041;}} base[0]= small_fixnum(0); base[1]= cadr((V391)); base[2]= small_fixnum(10); vs_top=(vs_base=base+0)+3; Lmonotonically_nondecreasing(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1041;} {object V396; object V397; vs_base=vs_top; Lgensym(); vs_top=sup; V396= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; V397= vs_base[0]; V398= list(2,(V396),car((V391))); V399= list(2,/* INLINE-ARGS */V398,list(2,(V397),caddr((V391)))); V400= list(3,VV[157],(V396),list(3,VV[158],cadr((V391)),(V396))); V401= list(5,VV[29],/* INLINE-ARGS */V399,/* INLINE-ARGS */V400,list(3,VV[157],list(2,VV[61],(V396)),(V397)),(V397)); {object V402 = (*(LnkLI242))(/* INLINE-ARGS */V401); VMR42(V402)}} T1041:; {object V403 = list(4,VV[4],(V392),VV[156],(*(LnkLI226))((V391),(V392))); VMR42(V403)}} } /* local entry for function FAST-READ */ static object LI43(V406,V407) register object V406;object V407; { VMB43 VMS43 VMV43 TTL:; if((symbol_value(VV[25]))!=Cnil){ goto T1051;} if(!(number_compare(symbol_value(VV[159]),small_fixnum(2))<0)){ goto T1051;} if((cadr((V406)))!=Cnil){ goto T1051;} base[0]= VV[160]; vs_top=(vs_base=base+0)+1; Lboundp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1051;} if(!(type_of(car((V406)))!=t_cons)){ goto T1061;} base[0]= car((V406)); if(base[0]==Cnil)goto T1064; goto T1063; T1064:; V406= make_cons(VV[161],cdr((V406))); T1063:; {object V408; object V409; V408= car((V406)); V409= caddr((V406)); V410= list(2,VV[162],list(2,VV[163],(V408))); V411= make_cons(/* INLINE-ARGS */V410,Cnil); V412= list(2,VV[166],list(3,(V407),(V408),(V409))); V413= list(3,VV[50],VV[162],symbol_value(VV[160])); V414= list(2,list(3,VV[108],/* INLINE-ARGS */V413,list(2,VV[168],list(3,VV[86],VV[96],list(2,VV[163],list(3,VV[86],VV[169],(V408)))))),(V409)); if(!(((V407))==(VV[170]))){ goto T1071;} V415= VV[171]; goto T1069; T1071:; V415= VV[162]; T1069:; {object V416 = list(4,VV[29],/* INLINE-ARGS */V411,VV[164],list(3,VV[165],/* INLINE-ARGS */V412,list(3,Ct,VV[167],list(3,VV[165],/* INLINE-ARGS */V414,list(2,Ct,V415))))); VMR43(V416)}} T1061:; V417= list(2,VV[172],car((V406))); V418= make_cons(/* INLINE-ARGS */V417,Cnil); V419= (*(LnkLI245))(car((V406))); V420= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V419,VV[172])); V421= make_cons(VV[172],cdr((V406))); {object V422 = list(4,VV[29],/* INLINE-ARGS */V418,/* INLINE-ARGS */V420,(*(LnkLI259))(/* INLINE-ARGS */V421,(V407))); VMR43(V422)} T1051:; {object V423 = Cnil; VMR43(V423)} } /* local entry for function CO1READ-BYTE */ static object LI44(V426,V427) object V426;object V427; { VMB44 VMS44 VMV44 bds_check; TTL:; {object V428; V428= Cnil; V428= (*(LnkLI259))((V427),VV[173]); if(((V428))==Cnil){ goto T1076;} bds_bind(VV[159],small_fixnum(10)); {object V429 = (*(LnkLI242))((V428)); bds_unwind1; VMR44(V429)} T1076:; {object V430 = Cnil; VMR44(V430)}} } /* local entry for function CO1READ-CHAR */ static object LI45(V433,V434) object V433;object V434; { VMB45 VMS45 VMV45 bds_check; TTL:; {object V435; V435= Cnil; V435= (*(LnkLI259))((V434),VV[170]); if(((V435))==Cnil){ goto T1082;} bds_bind(VV[159],small_fixnum(10)); {object V436 = (*(LnkLI242))((V435)); bds_unwind1; VMR45(V436)} T1082:; {object V437 = Cnil; VMR45(V437)}} } /* local entry for function CFAST-WRITE */ static object LI46(V440,V441) object V440;object V441; { VMB46 VMS46 VMV46 TTL:; if((symbol_value(VV[25]))!=Cnil){ goto T1086;} if(!(number_compare(symbol_value(VV[159]),small_fixnum(2))<0)){ goto T1086;} base[0]= VV[160]; vs_top=(vs_base=base+0)+1; Lboundp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1086;} {object V442; V442= cadr((V440)); if((V442)!=Cnil){ goto T1094;} V442= VV[174]; T1094:; if(!(type_of((V442))!=t_cons)){ goto T1097;} V443= list(2,VV[162],list(2,VV[163],(V442))); V444= make_cons(/* INLINE-ARGS */V443,Cnil); {object V445 = list(4,VV[29],/* INLINE-ARGS */V444,VV[175],list(3,VV[165],list(2,VV[176],list(3,(V441),VV[177],(V442))),VV[178])); VMR46(V445)} T1097:; V446= list(2,VV[179],(V442)); V447= make_cons(/* INLINE-ARGS */V446,Cnil); V448= (*(LnkLI245))((V442)); V449= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V448,VV[179])); V450= list(2,VV[177],VV[179]); {object V451 = list(4,VV[29],/* INLINE-ARGS */V447,/* INLINE-ARGS */V449,(*(LnkLI260))(/* INLINE-ARGS */V450,(V441))); VMR46(V451)}} T1086:; {object V452 = Cnil; VMR46(V452)} } /* local entry for function CO1WRITE-BYTE */ static object LI47(V455,V456) object V455;register object V456; { VMB47 VMS47 VMV47 bds_check; TTL:; {object V457; V457= (*(LnkLI260))((V456),VV[180]); if(((V457))==Cnil){ goto T1102;} bds_bind(VV[159],small_fixnum(10)); V458= list(2,VV[177],car((V456))); V459= make_cons(/* INLINE-ARGS */V458,Cnil); if(!(type_of(car((V456)))!=t_cons)){ goto T1106;} V460= car((V456)); goto T1104; T1106:; V460= VV[177]; T1104:; V461= list(5,VV[29],/* INLINE-ARGS */V459,VV[181],(V457),V460); {object V462 = (*(LnkLI242))(/* INLINE-ARGS */V461); bds_unwind1; VMR47(V462)} T1102:; {object V463 = Cnil; VMR47(V463)}} } /* local entry for function CO1WRITE-CHAR */ static object LI48(V466,V467) object V466;register object V467; { VMB48 VMS48 VMV48 bds_check; TTL:; {object V468; V468= (*(LnkLI260))((V467),VV[182]); if(((V468))==Cnil){ goto T1111;} bds_bind(VV[159],small_fixnum(10)); V469= list(2,VV[177],car((V467))); V470= make_cons(/* INLINE-ARGS */V469,Cnil); if(!(type_of(car((V467)))!=t_cons)){ goto T1115;} V471= car((V467)); goto T1113; T1115:; V471= VV[177]; T1113:; V472= list(5,VV[29],/* INLINE-ARGS */V470,VV[183],(V468),V471); {object V473 = (*(LnkLI242))(/* INLINE-ARGS */V472); bds_unwind1; VMR48(V473)} T1111:; {object V474 = Cnil; VMR48(V474)}} } /* local entry for function AET-C-TYPE */ static object LI49(V476) object V476; { VMB49 VMS49 VMV49 TTL:; {object V477= (V476); if((V477!= Ct))goto T1117; {object V478 = VV[184]; VMR49(V478)} T1117:; if((V477!= VV[124]) && (V477!= VV[261]))goto T1118; {object V479 = VV[185]; VMR49(V479)} T1118:; if((V477!= VV[96]))goto T1119; {object V480 = VV[186]; VMR49(V480)} T1119:; if((V477!= VV[262]))goto T1120; {object V481 = VV[187]; VMR49(V481)} T1120:; if((V477!= VV[263]))goto T1121; {object V482 = VV[188]; VMR49(V482)} T1121:; if((V477!= VV[264]))goto T1122; {object V483 = VV[189]; VMR49(V483)} T1122:; if((V477!= VV[263]))goto T1123; {object V484 = VV[190]; VMR49(V484)} T1123:; if((V477!= VV[250]))goto T1124; {object V485 = VV[191]; VMR49(V485)} T1124:; if((V477!= VV[249]))goto T1125; {object V486 = VV[192]; VMR49(V486)} T1125:; FEerror("The ECASE key value ~s is illegal.",1,V477);} } /* local entry for function CO1VECTOR-PUSH */ static object LI50(V489,V490) object V489;register object V490; { VMB50 VMS50 VMV50 bds_check; TTL:; if((symbol_value(VV[25]))!=Cnil){ goto T1128;} if(number_compare(symbol_value(VV[159]),small_fixnum(3))>0){ goto T1128;} if((cdr((V490)))==Cnil){ goto T1128;} bds_bind(VV[159],small_fixnum(10)); V491= list(2,VV[194],car((V490))); V492= listA(3,/* INLINE-ARGS */V491,list(2,VV[195],cadr((V490))),VV[196]); V493= (*(LnkLI245))(cadr((V490))); V494= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V493,VV[195])); V495= (*(LnkLI245))(car((V490))); V496= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V495,VV[194])); if(!(((V489))==(VV[199]))){ goto T1136;} V497= listA(4,VV[199],VV[194],VV[195],cddr((V490))); goto T1134; T1136:; V497= Cnil; T1134:; V498= list(6,VV[193],/* INLINE-ARGS */V492,VV[197],/* INLINE-ARGS */V494,/* INLINE-ARGS */V496,list(3,VV[165],VV[198],list(2,Ct,V497))); {object V499 = (*(LnkLI242))(/* INLINE-ARGS */V498); bds_unwind1; VMR50(V499)} T1128:; {object V500 = Cnil; VMR50(V500)} } /* local entry for function CONSTANT-FOLD-P */ static object LI51(V502) register object V502; { VMB51 VMS51 VMV51 TTL:; base[0]= (V502); vs_top=(vs_base=base+0)+1; Lconstantp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1139;} {object V503 = Ct; VMR51(V503)} T1139:; if(!(type_of((V502))!=t_cons)){ goto T1143;} {object V504 = Cnil; VMR51(V504)} T1143:; if(!((car((V502)))==(VV[86]))){ goto T1146;} V502= caddr((V502)); goto TTL; T1146:; if(!(type_of(car((V502)))==t_symbol)){ goto T1151;} V505= get(car((V502)),VV[200],Cnil); if(!((V505)==(VV[201]))){ goto T1151;} {object V506; object V507; V506= cdr((V502)); V507= car((V506)); T1160:; if(!(endp((V506)))){ goto T1161;} goto T1156; T1161:; base[0]= (*(LnkLI265))((V507)); if(base[0]==Cnil)goto T1166; goto T1165; T1166:; {object V508 = Cnil; VMR51(V508)} T1165:; V506= cdr((V506)); V507= car((V506)); goto T1160;} T1156:; {object V509 = Ct; VMR51(V509)} T1151:; {object V510 = Cnil; VMR51(V510)} } /* local entry for function CO1CONSTANT-FOLD */ static object LI52(V513,V514) object V513;object V514; { VMB52 VMS52 VMV52 TTL:; base[0]= (V513); vs_top=(vs_base=base+0)+1; Lfboundp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1174;} {object V515; object V516; V515= (V514); V516= car((V515)); T1182:; if(!(endp((V515)))){ goto T1183;} goto T1178; T1183:; base[0]= (*(LnkLI265))((V516)); if(base[0]==Cnil)goto T1188; goto T1187; T1188:; {object V517 = Cnil; VMR52(V517)} T1187:; V515= cdr((V515)); V516= car((V515)); goto T1182;} T1178:; base[0]= make_cons((V513),(V514)); vs_top=(vs_base=base+0)+1; (void) (*Lnk266)(); vs_top=sup; V518= vs_base[0]; {object V519 = (*(LnkLI242))(V518); VMR52(V519)} T1174:; {object V520 = Cnil; VMR52(V520)} } /* local entry for function CO1SPECIAL-FIX-DECL */ static object LI53(V523,V524) object V523;register object V524; { VMB53 VMS53 VMV53 TTL:; {object V526= (V523); if((V526!= VV[268]) && (V526!= VV[269]))goto T1198; V527= car((V524)); V528= cadr((V524)); base[0]= cddr((V524)); vs_top=(vs_base=base+0)+1; L54(base); vs_top=sup; V529= vs_base[0]; V525= listA(4,(V523),/* INLINE-ARGS */V527,/* INLINE-ARGS */V528,V529); goto T1197; T1198:; if((V526!= VV[270]) && (V526!= VV[271]))goto T1201; V530= car((V524)); base[0]= cdr((V524)); vs_top=(vs_base=base+0)+1; L54(base); vs_top=sup; V531= vs_base[0]; V525= listA(3,(V523),/* INLINE-ARGS */V530,V531); goto T1197; T1201:; V525= Cnil;} T1197:; V532= (*(LnkLI267))(V525); {object V533 = (*(LnkLI242))(/* INLINE-ARGS */V532); VMR53(V533)} } /* local entry for function CO1SUBLIS */ static object LI55(V536,V537) object V536;register object V537; { VMB54 VMS54 VMV54 TTL:; {object V538; V538= Cnil; V540 = make_fixnum(length((V537))); {object V539= V540; if(!eql(V539,VV[68]))goto T1208; V538= VV[50]; if((VV[50])!=Cnil){ goto T1206;} goto T1207; T1208:; if(!eql(V539,VV[66]))goto T1210; if((caddr((V537)))==(VV[51])){ goto T1211;} goto T1207; T1211:; {register object x= cadddr((V537)),V541= VV[202]; while(!endp(V541)) if(eql(x,V541->c.c_car)){ goto T1215; }else V541=V541->c.c_cdr; goto T1214;} T1215:; V538= VV[203]; if((VV[203])!=Cnil){ goto T1206;} goto T1207; T1214:; {register object x= cadddr((V537)),V542= VV[204]; while(!endp(V542)) if(eql(x,V542->c.c_car)){ goto T1219; }else V542=V542->c.c_cdr; goto T1218;} T1219:; V538= VV[50]; if((VV[50])!=Cnil){ goto T1206;} goto T1207; T1218:; {register object x= cadddr((V537)),V543= VV[205]; while(!endp(V543)) if(eql(x,V543->c.c_car)){ goto T1223; }else V543=V543->c.c_cdr; goto T1222;} T1223:; V538= VV[48]; if((VV[48])!=Cnil){ goto T1206;} goto T1207; T1222:; goto T1207; T1210:;} T1207:; {object V544 = Cnil; VMR54(V544)} T1206:; {object V545; vs_base=vs_top; Lgensym(); vs_top=sup; V545= vs_base[0]; V546= list(2,(V545),car((V537))); V547= make_cons(/* INLINE-ARGS */V546,Cnil); V548= cadr((V537)); V549= list(3,VV[29],/* INLINE-ARGS */V547,list(4,VV[206],(V545),/* INLINE-ARGS */V548,list(2,VV[113],(V538)))); {object V550 = (*(LnkLI242))(/* INLINE-ARGS */V549); VMR54(V550)}}} } /* local entry for function SUBLIS1-INLINE */ static object LI56(V554,V555,V556) object V554;object V555;object V556; { VMB55 VMS55 VMV55 TTL:; {object V557; V558= (VFUN_NARGS=4,(*(LnkLI272))(cadr((V556)),symbol_value(VV[207]),VV[208],VV[105])); V557= car(/* INLINE-ARGS */V558); {register object x= (V557),V559= VV[209]; while(!endp(V559)) if(eql(x,V559->c.c_car)){ base[0]= V559; goto T1229; }else V559=V559->c.c_cdr; base[0]= Cnil;} T1229:; if(base[0]==Cnil)goto T1228; goto T1227; T1228:; base[1]= VV[210]; vs_top=(vs_base=base+1)+1; Lerror(); vs_top=sup; T1227:; princ_str("(check_alist(",VV[7]); (void)((*(LnkLI220))((V554))); princ_str("),sublis1(",VV[7]); (void)((*(LnkLI220))((V554))); princ_char(44,VV[7]); (void)((*(LnkLI220))((V555))); princ_char(44,VV[7]); base[0]= Cnil; base[1]= VV[211]; base[2]= (V557); vs_top=(vs_base=base+0)+3; Lformat(); vs_top=sup; V560= vs_base[0]; (void)((*(LnkLI220))(V560)); {object V561 = Cnil; VMR55(V561)}} } /* local entry for function C1LIST-NTH */ static object LI57(V563) register object V563; { VMB56 VMS56 VMV56 TTL:; {object V564; V564= (VFUN_NARGS=0,(*(LnkLI215))()); if(endp((V563))){ goto T1245;} if(!(endp(cdr((V563))))){ goto T1244;} T1245:; V565 = make_fixnum(length((V563))); (void)((*(LnkLI216))(VV[156],small_fixnum(2),V565)); T1244:; if(endp(cddr((V563)))){ goto T1249;} V566 = make_fixnum(length((V563))); (void)((*(LnkLI216))(VV[156],small_fixnum(2),V566)); T1249:; {object V567= car((V563)); if(!(type_of(V567)==t_fixnum|| type_of(V567)==t_bignum|| type_of(V567)==t_ratio|| type_of(V567)==t_shortfloat|| type_of(V567)==t_longfloat|| type_of(V567)==t_complex)){ goto T1253;}} base[0]= small_fixnum(0); base[1]= car((V563)); base[2]= small_fixnum(10); vs_top=(vs_base=base+0)+3; Lmonotonically_nondecreasing(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1253;} V568= car((V563)); V569= make_cons(cadr((V563)),Cnil); {object V570 = list(4,VV[212],(V564),/* INLINE-ARGS */V568,(*(LnkLI226))(/* INLINE-ARGS */V569,(V564))); VMR56(V570)} T1253:; {object V571 = list(4,VV[4],(V564),VV[213],(*(LnkLI226))((V563),(V564))); VMR56(V571)}} } /* local entry for function C2LIST-NTH-IMMEDIATE */ static object LI58(V574,V575) object V574;object V575; { VMB57 VMS57 VMV57 bds_check; TTL:; {object V576; setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); V576= symbol_value(VV[22]); bds_bind(VV[20],symbol_value(VV[20])); bds_bind(VV[42],small_fixnum(0)); V575= (VFUN_NARGS=2,(*(LnkLI239))((V575),VV[214])); princ_str("\n {object V",VV[7]); (void)((*(LnkLI220))((V576))); princ_str("= ",VV[7]); if((symbol_value(VV[25]))==Cnil){ goto T1270;} {int V577; int V578; V577= fix((V574)); V578= 0; T1276:; if(!((V578)>=(V577))){ goto T1277;} goto T1272; T1277:; princ_str("cdr(",VV[7]); V578= (V578)+1; goto T1276;} T1272:; (void)((*(LnkLI220))(car((V575)))); {int V579; int V580; V579= fix((V574)); V580= 0; T1292:; if(!((V580)>=(V579))){ goto T1293;} goto T1288; T1293:; princ_char(41,VV[7]); V580= (V580)+1; goto T1292;} T1288:; princ_char(59,VV[7]); princ_str("\n if((type_of(V",VV[7]); (void)((*(LnkLI220))((V576))); princ_str(")!=t_cons) && (",VV[7]); (void)((*(LnkLI220))(car((V575)))); princ_str("!= Cnil))",VV[7]); princ_str("\n FEwrong_type_argument(Scons,V",VV[7]); (void)((*(LnkLI220))((V576))); princ_str(");",VV[7]); goto T1268; T1270:; princ_str("\n ",VV[7]); (void)((*(LnkLI220))(car((V575)))); {int V581; int V582; V581= fix((V574)); V582= 0; T1320:; if(!((V582)>=(V581))){ goto T1321;} goto T1316; T1321:; princ_str("\n ->c.c_cdr",VV[7]); V582= (V582)+1; goto T1320;} T1316:; princ_char(59,VV[7]); T1268:; V583= list(2,VV[61],(V576)); (void)((VFUN_NARGS=1,(*(LnkLI221))(/* INLINE-ARGS */V583))); princ_char(125,VV[7]); {object V584 = (*(LnkLI240))(); bds_unwind1; bds_unwind1; VMR57(V584)}} } /* local function FIXUP */ static L54(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM58; VC58 vs_reserve(VM58); {register object V585; check_arg(1); V585=(base[0]); vs_top=sup; TTL:; {object V586; V586= Cnil; T1336:; if(!(type_of((V585))==t_cons)){ goto T1339;} goto T1338; T1339:; goto T1337; T1338:; {object V587; V587= car((V585)); if(!(type_of((V587))==t_cons)){ goto T1344;} V587= (*(LnkLI267))((V587)); if(((V587))==Cnil){ goto T1344;} if(!((car((V587)))==(VV[106]))){ goto T1344;} V586= make_cons((V587),(V586)); {object V588; V588= car((V585)); V585= cdr((V585)); goto T1341;} T1344:; goto T1337;} T1341:; goto T1336; T1337:; V589= nreverse((V586)); base[1]= nconc(/* INLINE-ARGS */V589,(V585)); vs_top=(vs_base=base+1)+1; return; base[1]= Cnil; vs_top=(vs_base=base+1)+1; return;} } } static object LnkTLI272(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[272],&LnkLI272,ap);} /* FIND */ static object LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[267],&LnkLI267,1,ap);} /* CMP-MACROEXPAND */ static LnkT266(){ call_or_link(VV[266],&Lnk266);} /* CMP-EVAL */ static object LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[265],&LnkLI265,1,ap);} /* CONSTANT-FOLD-P */ static object LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,2,ap);} /* CFAST-WRITE */ static object LnkTLI259(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[259],&LnkLI259,2,ap);} /* FAST-READ */ static object LnkTLI258(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[258],&LnkLI258,1,ap);} /* CONS-TO-LISTA */ static object LnkTLI257(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[257],&LnkLI257,1,ap);} /* NAME-SD1 */ static object LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* GET-INCLUDED */ static object LnkTLI255(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[255],&LnkLI255,2,ap);} /* STRUCT-TYPE-OPT */ static object LnkTLI254(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[254],&LnkLI254,1,ap);} /* NORMALIZE-TYPE */ static object LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[253],&LnkLI253,ap);} /* POSITION */ static object LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[252],&LnkLI252,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ static object LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[247],&LnkLI247,1,ap);} /* TYPE-FILTER */ static object LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],&LnkLI246,1,ap);} /* REPLACE-CONSTANT */ static object LnkTLI245(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[245],&LnkLI245,1,ap);} /* RESULT-TYPE */ static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* FIXNUMP */ static LnkT244(){ call_or_link(VV[244],&Lnk244);} /* SUBTYPEP */ static LnkT243(){ call_or_link(VV[243],&Lnk243);} /* WT-INLINE-LOC */ static object LnkTLI242(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[242],&LnkLI242,1,ap);} /* C1EXPR */ static object LnkTLI241(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[241],&LnkLI241,1,ap);} /* INLINE-BOOLE3-STRING */ static object LnkTLI240(){return call_proc0(VV[240],&LnkLI240);} /* CLOSE-INLINE-BLOCKS */ static object LnkTLI239(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[239],&LnkLI239,ap);} /* INLINE-ARGS */ static object LnkTLI238(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[238],&LnkLI238,2,ap);} /* ADD-INFO */ static LnkT237(){ call_or_link(VV[237],&Lnk237);} /* C2EXPR */ static object LnkTLI236(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[236],&LnkLI236,1,ap);} /* C2BIND */ static object LnkTLI235(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[235],&LnkLI235,1,ap);} /* WT-VS */ static object LnkTLI234(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[234],&LnkLI234,2,ap);} /* WT-VAR */ static object LnkTLI233(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[233],&LnkLI233,ap);} /* MAKE-VAR */ static object LnkTLI232(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[232],&LnkLI232,ap);} /* CMPERR */ static object LnkTLI231(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[231],&LnkLI231,ap);} /* C2FUNCALL */ static object LnkTLI230(){return call_proc0(VV[230],&LnkLI230);} /* VS-PUSH */ static object LnkTLI229(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[229],&LnkLI229,1,ap);} /* C2EXPR* */ static object LnkTLI228(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[228],&LnkLI228,1,ap);} /* SAVE-FUNOB */ static object LnkTLI227(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[227],&LnkLI227,5,ap);} /* C1APPLY-OPTIMIZE */ static object LnkTLI226(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[226],&LnkLI226,2,ap);} /* C1ARGS */ static LnkT225(){ call_or_link(VV[225],&Lnk225);} /* COPY-INFO */ static object LnkTLI224(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[224],&LnkLI224,1,ap);} /* C1FUNOB */ static object LnkTLI223(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[223],&LnkLI223,1,ap);} /* ADD-OBJECT */ static object LnkTLI222(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[222],&LnkLI222,4,ap);} /* C2CALL-GLOBAL */ static object LnkTLI221(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[221],&LnkLI221,ap);} /* UNWIND-EXIT */ static object LnkTLI220(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[220],&LnkLI220,1,ap);} /* WT1 */ static object LnkTLI219(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[219],&LnkLI219,2,ap);} /* C1EXPR* */ static object LnkTLI218(){return call_proc0(VV[218],&LnkLI218);} /* C1NIL */ static object LnkTLI217(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[217],&LnkLI217,3,ap);} /* TOO-MANY-ARGS */ static object LnkTLI216(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[216],&LnkLI216,3,ap);} /* TOO-FEW-ARGS */ static object LnkTLI215(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[215],&LnkLI215,ap);} /* MAKE-INFO */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.