diff -uNr TEST.gcl/gcl/lsp/defpackage.c agcl/agcl/lsp/defpackage.c --- TEST.gcl/gcl/lsp/defpackage.c Fri Oct 25 00:10:45 2002 +++ agcl/agcl/lsp/defpackage.c Sat Nov 9 13:15:46 2002 @@ -72,9 +72,15 @@ {register object V8; V8= car((V7)); V6= (V8);} - V9= symbol_function(VV[71]); - V10= (VFUN_NARGS=4,(*(LnkLI70))((V6),base[3],VV[4],V9)); - if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){ + base[5]= (V6); + base[6]= base[3]; + base[7]= VV[4]; + base[8]= symbol_function(VV[70]); + vs_top=(vs_base=base+5)+4; + (void) (*Lnk71)(); + vs_top=sup; + V9= vs_base[0]; + if(!(number_compare(small_fixnum(2),V9)<=0)){ goto T30;} base[5]= VV[5]; base[6]= VV[6]; @@ -93,837 +99,837 @@ goto T20; T20:; base[2]= coerce_to_string(base[2]); - {object V11; + {object V10; + object V11; object V12; object V13; - object V14; - register object V15; + register object V14; + object V15; object V16; object V17; object V18; - object V19; base[6]= VV[7]; base[7]= base[3]; vs_top=(vs_base=base+6)+2; L5(base); vs_top=sup; - V22= vs_base[0]; - {object V20; - object V21= V22; - if(endp(V21)){ - V11= Cnil; - goto T42;} - base[5]=V20=MMcons(Cnil,Cnil); -goto T43; -T43:; - (V20->c.c_car)= coerce_to_string((V21->c.c_car)); - V21=MMcdr(V21); - if(endp(V21)){ - V11= base[5]; - goto T42;} - V20=MMcdr(V20)=MMcons(Cnil,Cnil); - goto T43;} -goto T42; -T42:; + V21= vs_base[0]; + {object V19; + object V20= V21; + if(endp(V20)){ + V10= Cnil; + goto T46;} + base[5]=V19=MMcons(Cnil,Cnil); +goto T47; +T47:; + (V19->c.c_car)= coerce_to_string((V20->c.c_car)); + V20=MMcdr(V20); + if(endp(V20)){ + V10= base[5]; + goto T46;} + V19=MMcdr(V19)=MMcons(Cnil,Cnil); + goto T47;} +goto T46; +T46:; base[5]= VV[8]; base[6]= base[3]; vs_top=(vs_base=base+5)+2; L5(base); vs_top=sup; - V23= vs_base[0]; - V12= car(V23); + V22= vs_base[0]; + V11= car(V22); base[5]= VV[9]; base[6]= base[3]; vs_top=(vs_base=base+5)+2; L5(base); vs_top=sup; - V24= vs_base[0]; - V13= car(V24); + V23= vs_base[0]; + V12= car(V23); base[6]= VV[10]; base[7]= base[3]; vs_top=(vs_base=base+6)+2; L5(base); vs_top=sup; - V27= vs_base[0]; - {object V25; - object V26= V27; - if(endp(V26)){ - V14= Cnil; - goto T56;} - base[5]=V25=MMcons(Cnil,Cnil); -goto T57; -T57:; - (V25->c.c_car)= coerce_to_string((V26->c.c_car)); - V26=MMcdr(V26); - if(endp(V26)){ - V14= base[5]; - goto T56;} - V25=MMcdr(V25)=MMcons(Cnil,Cnil); - goto T57;} -goto T56; -T56:; + V26= vs_base[0]; + {object V24; + object V25= V26; + if(endp(V25)){ + V13= Cnil; + goto T60;} + base[5]=V24=MMcons(Cnil,Cnil); +goto T61; +T61:; + (V24->c.c_car)= coerce_to_string((V25->c.c_car)); + V25=MMcdr(V25); + if(endp(V25)){ + V13= base[5]; + goto T60;} + V24=MMcdr(V24)=MMcons(Cnil,Cnil); + goto T61;} +goto T60; +T60:; base[6]= VV[11]; base[7]= base[3]; vs_top=(vs_base=base+6)+2; L5(base); vs_top=sup; - V30= vs_base[0]; - {object V28; - object V29= V30; - if(endp(V29)){ - V15= Cnil; - goto T62;} - base[5]=V28=MMcons(Cnil,Cnil); -goto T63; -T63:; - (V28->c.c_car)= coerce_to_string((V29->c.c_car)); - V29=MMcdr(V29); - if(endp(V29)){ - V15= base[5]; - goto T62;} - V28=MMcdr(V28)=MMcons(Cnil,Cnil); - goto T63;} -goto T62; -T62:; + V29= vs_base[0]; + {object V27; + object V28= V29; + if(endp(V28)){ + V14= Cnil; + goto T66;} + base[5]=V27=MMcons(Cnil,Cnil); +goto T67; +T67:; + (V27->c.c_car)= coerce_to_string((V28->c.c_car)); + V28=MMcdr(V28); + if(endp(V28)){ + V14= base[5]; + goto T66;} + V27=MMcdr(V27)=MMcons(Cnil,Cnil); + goto T67;} +goto T66; +T66:; base[6]= VV[12]; base[7]= base[3]; vs_top=(vs_base=base+6)+2; L5(base); vs_top=sup; - V33= vs_base[0]; - {object V31; - object V32= V33; - if(endp(V32)){ - V16= Cnil; - goto T68;} - base[5]=V31=MMcons(Cnil,Cnil); -goto T69; -T69:; - (V31->c.c_car)= coerce_to_string((V32->c.c_car)); - V32=MMcdr(V32); - if(endp(V32)){ - V16= base[5]; - goto T68;} - V31=MMcdr(V31)=MMcons(Cnil,Cnil); - goto T69;} -goto T68; -T68:; - {register object V34; - register object V35; + V32= vs_base[0]; + {object V30; + object V31= V32; + if(endp(V31)){ + V15= Cnil; + goto T72;} + base[5]=V30=MMcons(Cnil,Cnil); +goto T73; +T73:; + (V30->c.c_car)= coerce_to_string((V31->c.c_car)); + V31=MMcdr(V31); + if(endp(V31)){ + V15= base[5]; + goto T72;} + V30=MMcdr(V30)=MMcons(Cnil,Cnil); + goto T73;} +goto T72; +T72:; + {register object V33; + register object V34; base[5]= VV[13]; base[6]= base[3]; vs_top=(vs_base=base+5)+2; L4(base); vs_top=sup; - V35= vs_base[0]; - V34= Cnil; - {register object V36; + V34= vs_base[0]; + V33= Cnil; + {register object V35; + register object V36; register object V37; - register object V38; + V35= Cnil; V36= Cnil; V37= Cnil; - V38= Cnil; -goto T79; -T79:; - if(((V35))==Cnil){ - goto T82;} - goto T81; -goto T82; -T82:; - goto T80; -goto T81; -T81:; - {register object V39; - V39= car((V35)); - V34= (V39);} - V40= coerce_to_string(car((V34))); - {object V42; - object V43= cdr((V34)); - if(endp(V43)){ - V41= Cnil; - goto T89;} - base[5]=V42=MMcons(Cnil,Cnil); -goto T90; -T90:; - (V42->c.c_car)= coerce_to_string((V43->c.c_car)); - V43=MMcdr(V43); - if(endp(V43)){ - V41= base[5]; - goto T89;} - V42=MMcdr(V42)=MMcons(Cnil,Cnil); - goto T90;} -goto T89; -T89:; - V38= make_cons(/* INLINE-ARGS */V40,V41); - if(((V37))==Cnil){ - goto T94;} - {register object V44; - register object V45; - V44= (V37); - V37= make_cons((V38),Cnil); - V45= (V37); - if(type_of((V44))!=t_cons)FEwrong_type_argument(Scons,(V44)); - ((V44))->c.c_cdr = (V45); - goto T92;} +goto T83; +T83:; + if(((V34))==Cnil){ + goto T86;} + goto T85; +goto T86; +T86:; + goto T84; +goto T85; +T85:; + {register object V38; + V38= car((V34)); + V33= (V38);} + V39= coerce_to_string(car((V33))); + {object V41; + object V42= cdr((V33)); + if(endp(V42)){ + V40= Cnil; + goto T93;} + base[5]=V41=MMcons(Cnil,Cnil); goto T94; T94:; - V37= make_cons((V38),Cnil); - V36= (V37); -goto T92; -T92:; - V35= cdr((V35)); - goto T79; -goto T80; -T80:; - V17= (V36); - goto T74; - V17= Cnil; - goto T74; - V17= Cnil; - goto T74;}} -goto T74; -T74:; - {register object V46; - register object V47; + (V41->c.c_car)= coerce_to_string((V42->c.c_car)); + V42=MMcdr(V42); + if(endp(V42)){ + V40= base[5]; + goto T93;} + V41=MMcdr(V41)=MMcons(Cnil,Cnil); + goto T94;} +goto T93; +T93:; + V37= make_cons(/* INLINE-ARGS */V39,V40); + if(((V36))==Cnil){ + goto T98;} + {register object V43; + register object V44; + V43= (V36); + V36= make_cons((V37),Cnil); + V44= (V36); + if(type_of((V43))!=t_cons)FEwrong_type_argument(Scons,(V43)); + ((V43))->c.c_cdr = (V44); + goto T96;} +goto T98; +T98:; + V36= make_cons((V37),Cnil); + V35= (V36); +goto T96; +T96:; + V34= cdr((V34)); + goto T83; +goto T84; +T84:; + V16= (V35); + goto T78; + V16= Cnil; + goto T78; + V16= Cnil; + goto T78;}} +goto T78; +T78:; + {register object V45; + register object V46; base[5]= VV[14]; base[6]= base[3]; vs_top=(vs_base=base+5)+2; L4(base); vs_top=sup; - V47= vs_base[0]; - V46= Cnil; - {register object V48; + V46= vs_base[0]; + V45= Cnil; + {register object V47; + register object V48; register object V49; - register object V50; + V47= Cnil; V48= Cnil; V49= Cnil; - V50= Cnil; -goto T111; -T111:; - if(((V47))==Cnil){ - goto T114;} - goto T113; -goto T114; -T114:; - goto T112; -goto T113; -T113:; - {register object V51; - V51= car((V47)); - V46= (V51);} - V52= coerce_to_string(car((V46))); - {object V54; - object V55= cdr((V46)); - if(endp(V55)){ - V53= Cnil; - goto T121;} - base[5]=V54=MMcons(Cnil,Cnil); -goto T122; -T122:; - (V54->c.c_car)= coerce_to_string((V55->c.c_car)); - V55=MMcdr(V55); - if(endp(V55)){ - V53= base[5]; - goto T121;} - V54=MMcdr(V54)=MMcons(Cnil,Cnil); - goto T122;} -goto T121; -T121:; - V50= make_cons(/* INLINE-ARGS */V52,V53); - if(((V49))==Cnil){ - goto T126;} - {register object V56; - register object V57; - V56= (V49); - V49= make_cons((V50),Cnil); - V57= (V49); - if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56)); - ((V56))->c.c_cdr = (V57); - goto T124;} +goto T115; +T115:; + if(((V46))==Cnil){ + goto T118;} + goto T117; +goto T118; +T118:; + goto T116; +goto T117; +T117:; + {register object V50; + V50= car((V46)); + V45= (V50);} + V51= coerce_to_string(car((V45))); + {object V53; + object V54= cdr((V45)); + if(endp(V54)){ + V52= Cnil; + goto T125;} + base[5]=V53=MMcons(Cnil,Cnil); goto T126; T126:; - V49= make_cons((V50),Cnil); - V48= (V49); -goto T124; -T124:; - V47= cdr((V47)); - goto T111; -goto T112; -T112:; - V18= (V48); - goto T106; - V18= Cnil; - goto T106; - V18= Cnil; - goto T106;}} -goto T106; -T106:; + (V53->c.c_car)= coerce_to_string((V54->c.c_car)); + V54=MMcdr(V54); + if(endp(V54)){ + V52= base[5]; + goto T125;} + V53=MMcdr(V53)=MMcons(Cnil,Cnil); + goto T126;} +goto T125; +T125:; + V49= make_cons(/* INLINE-ARGS */V51,V52); + if(((V48))==Cnil){ + goto T130;} + {register object V55; + register object V56; + V55= (V48); + V48= make_cons((V49),Cnil); + V56= (V48); + if(type_of((V55))!=t_cons)FEwrong_type_argument(Scons,(V55)); + ((V55))->c.c_cdr = (V56); + goto T128;} +goto T130; +T130:; + V48= make_cons((V49),Cnil); + V47= (V48); +goto T128; +T128:; + V46= cdr((V46)); + goto T115; +goto T116; +T116:; + V17= (V47); + goto T110; + V17= Cnil; + goto T110; + V17= Cnil; + goto T110;}} +goto T110; +T110:; base[6]= VV[15]; base[7]= base[3]; vs_top=(vs_base=base+6)+2; L5(base); vs_top=sup; - V60= vs_base[0]; - {object V58; - object V59= V60; - if(endp(V59)){ - V19= Cnil; - goto T138;} - base[5]=V58=MMcons(Cnil,Cnil); -goto T139; -T139:; - (V58->c.c_car)= coerce_to_string((V59->c.c_car)); - V59=MMcdr(V59); - if(endp(V59)){ - V19= base[5]; - goto T138;} - V58=MMcdr(V58)=MMcons(Cnil,Cnil); - goto T139;} -goto T138; -T138:; - {register object V61; - register object V62; - base[5]= (V14); - base[6]= (V15); - {register object V63; - register object V64; - V63= Cnil; - V64= (V17); - {register object V65; + V59= vs_base[0]; + {object V57; + object V58= V59; + if(endp(V58)){ + V18= Cnil; + goto T142;} + base[5]=V57=MMcons(Cnil,Cnil); +goto T143; +T143:; + (V57->c.c_car)= coerce_to_string((V58->c.c_car)); + V58=MMcdr(V58); + if(endp(V58)){ + V18= base[5]; + goto T142;} + V57=MMcdr(V57)=MMcons(Cnil,Cnil); + goto T143;} +goto T142; +T142:; + {register object V60; + register object V61; + base[5]= (V13); + base[6]= (V14); + {register object V62; + register object V63; + V62= Cnil; + V63= (V16); + {register object V64; + register object V65; register object V66; - register object V67; + V64= Cnil; V65= Cnil; V66= Cnil; - V67= Cnil; -goto T151; -T151:; - if(((V64))==Cnil){ - goto T154;} - goto T153; -goto T154; -T154:; - goto T152; -goto T153; -T153:; - {register object V68; - V68= car((V64)); - V63= (V68);} - base[8]= cdr((V63)); +goto T155; +T155:; + if(((V63))==Cnil){ + goto T158;} + goto T157; +goto T158; +T158:; + goto T156; +goto T157; +T157:; + {register object V67; + V67= car((V63)); + V62= (V67);} + base[8]= cdr((V62)); vs_top=(vs_base=base+8)+1; Lcopy_list(); vs_top=sup; - V67= vs_base[0]; - if(((V66))==Cnil){ - goto T164;} - {register object V69; - register object V70; + V66= vs_base[0]; + if(((V65))==Cnil){ + goto T168;} + {register object V68; + register object V69; + V68= (V65); V69= (V66); - V70= (V67); - if(type_of((V69))!=t_cons)FEwrong_type_argument(Scons,(V69)); - ((V69))->c.c_cdr = (V70); - if(((V70))!=Cnil){ - goto T166;}} - goto T162; -goto T166; -T166:; - base[8]= cdr((V66)); + if(type_of((V68))!=t_cons)FEwrong_type_argument(Scons,(V68)); + ((V68))->c.c_cdr = (V69); + if(((V69))!=Cnil){ + goto T170;}} + goto T166; +goto T170; +T170:; + base[8]= cdr((V65)); vs_top=(vs_base=base+8)+1; Llast(); vs_top=sup; - V66= vs_base[0]; - goto T162; -goto T164; -T164:; - V65= (V67); - base[8]= (V65); + V65= vs_base[0]; + goto T166; +goto T168; +T168:; + V64= (V66); + base[8]= (V64); vs_top=(vs_base=base+8)+1; Llast(); vs_top=sup; - V66= vs_base[0]; -goto T162; -T162:; - V64= cdr((V64)); - goto T151; -goto T152; -T152:; - base[7]= (V65); - goto T149; + V65= vs_base[0]; +goto T166; +T166:; + V63= cdr((V63)); + goto T155; +goto T156; +T156:; + base[7]= (V64); + goto T153; base[7]= Cnil; - goto T149; + goto T153; base[7]= Cnil; - goto T149;}} -goto T149; -T149:; - {register object V71; - register object V72; - V71= Cnil; - V72= (V18); - {register object V73; + goto T153;}} +goto T153; +T153:; + {register object V70; + register object V71; + V70= Cnil; + V71= (V17); + {register object V72; + register object V73; register object V74; - register object V75; + V72= Cnil; V73= Cnil; V74= Cnil; - V75= Cnil; -goto T182; -T182:; - if(((V72))==Cnil){ - goto T185;} - goto T184; -goto T185; -T185:; - goto T183; -goto T184; -T184:; - {register object V76; - V76= car((V72)); - V71= (V76);} - base[9]= cdr((V71)); +goto T186; +T186:; + if(((V71))==Cnil){ + goto T189;} + goto T188; +goto T189; +T189:; + goto T187; +goto T188; +T188:; + {register object V75; + V75= car((V71)); + V70= (V75);} + base[9]= cdr((V70)); vs_top=(vs_base=base+9)+1; Lcopy_list(); vs_top=sup; - V75= vs_base[0]; - if(((V74))==Cnil){ - goto T195;} - {register object V77; - register object V78; + V74= vs_base[0]; + if(((V73))==Cnil){ + goto T199;} + {register object V76; + register object V77; + V76= (V73); V77= (V74); - V78= (V75); - if(type_of((V77))!=t_cons)FEwrong_type_argument(Scons,(V77)); - ((V77))->c.c_cdr = (V78); - if(((V78))!=Cnil){ - goto T197;}} - goto T193; -goto T197; -T197:; - base[9]= cdr((V74)); + if(type_of((V76))!=t_cons)FEwrong_type_argument(Scons,(V76)); + ((V76))->c.c_cdr = (V77); + if(((V77))!=Cnil){ + goto T201;}} + goto T197; +goto T201; +T201:; + base[9]= cdr((V73)); vs_top=(vs_base=base+9)+1; Llast(); vs_top=sup; - V74= vs_base[0]; - goto T193; -goto T195; -T195:; - V73= (V75); - base[9]= (V73); + V73= vs_base[0]; + goto T197; +goto T199; +T199:; + V72= (V74); + base[9]= (V72); vs_top=(vs_base=base+9)+1; Llast(); vs_top=sup; - V74= vs_base[0]; -goto T193; -T193:; - V72= cdr((V72)); - goto T182; -goto T183; -T183:; - base[8]= (V73); - goto T180; + V73= vs_base[0]; +goto T197; +T197:; + V71= cdr((V71)); + goto T186; +goto T187; +T187:; + base[8]= (V72); + goto T184; base[8]= Cnil; - goto T180; + goto T184; base[8]= Cnil; - goto T180;}} -goto T180; -T180:; + goto T184;}} +goto T184; +T184:; vs_top=(vs_base=base+5)+4; L2(base); vs_top=sup; - V62= vs_base[0]; - V61= Cnil; -goto T212; -T212:; - if(((V62))==Cnil){ - goto T215;} - goto T214; -goto T215; -T215:; - goto T213; -goto T214; -T214:; + V61= vs_base[0]; + V60= Cnil; +goto T216; +T216:; + if(((V61))==Cnil){ + goto T219;} + goto T218; +goto T219; +T219:; + goto T217; +goto T218; +T218:; + {register object V78; + V78= car((V61)); + V60= (V78);} + base[5]= VV[16]; + base[6]= VV[17]; + base[7]= car((V60)); {register object V79; - V79= car((V62)); - V61= (V79);} - base[5]= VV[5]; - base[6]= VV[16]; - base[7]= car((V61)); - {register object V80; - register object V81; - V81= cdr((V61)); - V80= Cnil; - {register object V82; + register object V80; + V80= cdr((V60)); + V79= Cnil; + {register object V81; + register object V82; register object V83; - register object V84; + V81= Cnil; V82= Cnil; V83= Cnil; - V84= Cnil; -goto T227; -T227:; - if(((V81))==Cnil){ - goto T230;} - goto T229; -goto T230; -T230:; - goto T228; -goto T229; -T229:; - {register object V85; - V85= car((V81)); - V80= (V85);} - {object V86= (V80); - if(!eql(V86,VV[17]))goto T237; - V84= VV[10]; - goto T236; -goto T237; -T237:; - if(!eql(V86,VV[18]))goto T238; - V84= VV[11]; - goto T236; -goto T238; -T238:; - if(!eql(V86,VV[19]))goto T239; - V84= VV[13]; - goto T236; -goto T239; -T239:; - if(!eql(V86,VV[20]))goto T240; - V84= VV[14]; - goto T236; -goto T240; -T240:; - V84= Cnil;} -goto T236; -T236:; - if(((V83))==Cnil){ - goto T243;} - {register object V87; - register object V88; - V87= (V83); - V83= make_cons((V84),Cnil); - V88= (V83); - if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87)); - ((V87))->c.c_cdr = (V88); - goto T241;} -goto T243; -T243:; - V83= make_cons((V84),Cnil); - V82= (V83); +goto T231; +T231:; + if(((V80))==Cnil){ + goto T234;} + goto T233; +goto T234; +T234:; + goto T232; +goto T233; +T233:; + {register object V84; + V84= car((V80)); + V79= (V84);} + {object V85= (V79); + if(!eql(V85,VV[18]))goto T241; + V83= VV[10]; + goto T240; goto T241; T241:; - V81= cdr((V81)); - goto T227; -goto T228; -T228:; - base[8]= (V82); - goto T224; + if(!eql(V85,VV[19]))goto T242; + V83= VV[11]; + goto T240; +goto T242; +T242:; + if(!eql(V85,VV[20]))goto T243; + V83= VV[13]; + goto T240; +goto T243; +T243:; + if(!eql(V85,VV[21]))goto T244; + V83= VV[14]; + goto T240; +goto T244; +T244:; + V83= Cnil;} +goto T240; +T240:; + if(((V82))==Cnil){ + goto T247;} + {register object V86; + register object V87; + V86= (V82); + V82= make_cons((V83),Cnil); + V87= (V82); + if(type_of((V86))!=t_cons)FEwrong_type_argument(Scons,(V86)); + ((V86))->c.c_cdr = (V87); + goto T245;} +goto T247; +T247:; + V82= make_cons((V83),Cnil); + V81= (V82); +goto T245; +T245:; + V80= cdr((V80)); + goto T231; +goto T232; +T232:; + base[8]= (V81); + goto T228; base[8]= Cnil; - goto T224; + goto T228; base[8]= Cnil; - goto T224;}} -goto T224; -T224:; + goto T228;}} +goto T228; +T228:; vs_top=(vs_base=base+5)+4; (void) (*Lnk72)(); vs_top=sup; - V62= cdr((V62)); - goto T212; -goto T213; -T213:; - goto T145; - goto T145;} -goto T145; -T145:; - {register object V89; - register object V90; - base[5]= (V16); - base[6]= (V15); + V61= cdr((V61)); + goto T216; +goto T217; +T217:; + goto T149; + goto T149;} +goto T149; +T149:; + {register object V88; + register object V89; + base[5]= (V15); + base[6]= (V14); vs_top=(vs_base=base+5)+2; L2(base); vs_top=sup; - V90= vs_base[0]; - V89= Cnil; -goto T262; -T262:; - if(((V90))==Cnil){ - goto T265;} - goto T264; -goto T265; -T265:; - goto T263; -goto T264; -T264:; + V89= vs_base[0]; + V88= Cnil; +goto T266; +T266:; + if(((V89))==Cnil){ + goto T269;} + goto T268; +goto T269; +T269:; + goto T267; +goto T268; +T268:; + {register object V90; + V90= car((V89)); + V88= (V90);} + base[5]= VV[16]; + base[6]= VV[22]; + base[7]= car((V88)); {register object V91; - V91= car((V90)); - V89= (V91);} - base[5]= VV[5]; - base[6]= VV[21]; - base[7]= car((V89)); - {register object V92; - register object V93; - V93= cdr((V89)); - V92= Cnil; - {register object V94; + register object V92; + V92= cdr((V88)); + V91= Cnil; + {register object V93; + register object V94; register object V95; - register object V96; + V93= Cnil; V94= Cnil; V95= Cnil; - V96= Cnil; -goto T277; -T277:; - if(((V93))==Cnil){ - goto T280;} - goto T279; -goto T280; -T280:; - goto T278; -goto T279; -T279:; - {register object V97; - V97= car((V93)); - V92= (V97);} - {object V98= (V92); - if(!eql(V98,VV[17]))goto T287; - V96= VV[12]; - goto T286; -goto T287; -T287:; - if(!eql(V98,VV[18]))goto T288; - V96= VV[11]; - goto T286; -goto T288; -T288:; - V96= Cnil;} -goto T286; -T286:; - if(((V95))==Cnil){ - goto T291;} - {register object V99; - register object V100; - V99= (V95); - V95= make_cons((V96),Cnil); - V100= (V95); - if(type_of((V99))!=t_cons)FEwrong_type_argument(Scons,(V99)); - ((V99))->c.c_cdr = (V100); - goto T289;} +goto T281; +T281:; + if(((V92))==Cnil){ + goto T284;} + goto T283; +goto T284; +T284:; + goto T282; +goto T283; +T283:; + {register object V96; + V96= car((V92)); + V91= (V96);} + {object V97= (V91); + if(!eql(V97,VV[18]))goto T291; + V95= VV[12]; + goto T290; goto T291; T291:; - V95= make_cons((V96),Cnil); - V94= (V95); -goto T289; -T289:; - V93= cdr((V93)); - goto T277; -goto T278; -T278:; - base[8]= (V94); - goto T274; + if(!eql(V97,VV[19]))goto T292; + V95= VV[11]; + goto T290; +goto T292; +T292:; + V95= Cnil;} +goto T290; +T290:; + if(((V94))==Cnil){ + goto T295;} + {register object V98; + register object V99; + V98= (V94); + V94= make_cons((V95),Cnil); + V99= (V94); + if(type_of((V98))!=t_cons)FEwrong_type_argument(Scons,(V98)); + ((V98))->c.c_cdr = (V99); + goto T293;} +goto T295; +T295:; + V94= make_cons((V95),Cnil); + V93= (V94); +goto T293; +T293:; + V92= cdr((V92)); + goto T281; +goto T282; +T282:; + base[8]= (V93); + goto T278; base[8]= Cnil; - goto T274; + goto T278; base[8]= Cnil; - goto T274;}} -goto T274; -T274:; + goto T278;}} +goto T278; +T278:; vs_top=(vs_base=base+5)+4; (void) (*Lnk72)(); vs_top=sup; - V90= cdr((V90)); - goto T262; -goto T263; -T263:; - goto T144; - goto T144;} -goto T144; -T144:; - V101= list(2,VV[27],base[2]); - V102= list(3,VV[29],base[2],base[2]); - if(((V11))==Cnil){ - goto T308;} - V104= list(4,VV[29],base[2],base[2],list(2,VV[30],(V11))); - V103= make_cons(/* INLINE-ARGS */V104,Cnil); - goto T306; -goto T308; -T308:; - V103= Cnil; -goto T306; -T306:; - base[5]= VV[31]; - base[6]= base[3]; - base[7]= VV[4]; - base[8]= symbol_function(VV[71]); - vs_top=(vs_base=base+5)+4; - Lmember(); - vs_top=sup; - if((vs_base[0])==Cnil){ + V89= cdr((V89)); + goto T266; +goto T267; +T267:; + goto T148; + goto T148;} +goto T148; +T148:; + V100= list(2,VV[28],base[2]); + V101= list(3,VV[30],base[2],base[2]); + if(((V10))==Cnil){ goto T312;} - V106= list(3,VV[32],list(2,VV[33],list(2,VV[27],base[2])),base[2]); - V105= make_cons(/* INLINE-ARGS */V106,Cnil); + V103= list(4,VV[30],base[2],base[2],list(2,VV[31],(V10))); + V102= make_cons(/* INLINE-ARGS */V103,Cnil); goto T310; goto T312; T312:; - V105= Cnil; + V102= Cnil; goto T310; T310:; - V107= listA(3,VV[28],/* INLINE-ARGS */V102,append(V103,V105)); - V108= list(2,VV[30],(V11)); - if(((V13))==Cnil){ - goto T320;} - V109= Cnil; - goto T318; -goto T320; -T320:; - V109= Cnil; -goto T318; -T318:; - V110= list(4,VV[26],/* INLINE-ARGS */V101,/* INLINE-ARGS */V107,listA(7,VV[34],base[2],VV[35],VV[36],VV[37],/* INLINE-ARGS */V108,V109)); + base[5]= VV[32]; + base[6]= base[3]; + base[7]= VV[4]; + base[8]= symbol_function(VV[70]); + vs_top=(vs_base=base+5)+4; + Lmember(); + vs_top=sup; + if((vs_base[0])==Cnil){ + goto T316;} + V105= list(3,VV[33],list(2,VV[34],list(2,VV[28],base[2])),base[2]); + V104= make_cons(/* INLINE-ARGS */V105,Cnil); + goto T314; +goto T316; +T316:; + V104= Cnil; +goto T314; +T314:; + V106= listA(3,VV[29],/* INLINE-ARGS */V101,append(V102,V104)); + V107= list(2,VV[31],(V10)); + if(((V12))==Cnil){ + goto T324;} + V108= Cnil; + goto T322; +goto T324; +T324:; + V108= Cnil; +goto T322; +T322:; + V109= list(4,VV[27],/* INLINE-ARGS */V100,/* INLINE-ARGS */V106,listA(7,VV[35],base[2],VV[36],VV[37],VV[38],/* INLINE-ARGS */V107,V108)); base[5]= base[2]; - base[6]= VV[40]; + base[6]= VV[41]; vs_top=(vs_base=base+5)+2; Lintern(); vs_top=sup; - V111= vs_base[0]; - V112= list(3,VV[38],list(3,VV[39],list(2,VV[30],V111),VV[41]),(V12)); - V113= make_cons(/* INLINE-ARGS */V112,Cnil); - V114= list(2,VV[43],list(2,VV[27],base[2])); - V115= make_cons(/* INLINE-ARGS */V114,Cnil); - if(((V14))==Cnil){ - goto T328;} - V117= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V14)))); - base[5]= make_cons(/* INLINE-ARGS */V117,Cnil); - goto T326; -goto T328; -T328:; - base[5]= Cnil; -goto T326; -T326:; - if(((V17))==Cnil){ + V110= vs_base[0]; + V111= list(3,VV[39],list(3,VV[40],list(2,VV[31],V110),VV[42]),(V11)); + V112= make_cons(/* INLINE-ARGS */V111,Cnil); + V113= list(2,VV[44],list(2,VV[28],base[2])); + V114= make_cons(/* INLINE-ARGS */V113,Cnil); + if(((V13))==Cnil){ goto T332;} - {object V118; - object V119= (V17); - if(endp(V119)){ - base[6]= Cnil; - goto T330;} - base[7]=V118=MMcons(Cnil,Cnil); -goto T334; -T334:; - {register object V120; - V120= (V119->c.c_car); - V121= list(3,VV[51],VV[52],car((V120))); - V122= list(3,VV[53],VV[52],car((V120))); - V123= list(2,VV[48],list(3,VV[49],VV[50],list(4,VV[26],/* INLINE-ARGS */V121,/* INLINE-ARGS */V122,list(5,VV[54],VV[55],VV[56],car((V120)),VV[57])))); - (V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V123,list(2,VV[30],cdr((V120)))));} - V119=MMcdr(V119); - if(endp(V119)){ - base[6]= base[7]; - goto T330;} - V118=MMcdr(V118)=MMcons(Cnil,Cnil); - goto T334;} + V116= list(2,VV[45],list(3,VV[46],VV[47],list(2,VV[31],(V13)))); + base[5]= make_cons(/* INLINE-ARGS */V116,Cnil); + goto T330; goto T332; T332:; - base[6]= Cnil; + base[5]= Cnil; goto T330; T330:; - base[8]= VV[31]; + if(((V16))==Cnil){ + goto T336;} + {object V117; + object V118= (V16); + if(endp(V118)){ + base[6]= Cnil; + goto T334;} + base[7]=V117=MMcons(Cnil,Cnil); +goto T338; +T338:; + {register object V119; + V119= (V118->c.c_car); + V120= list(3,VV[52],VV[53],car((V119))); + V121= list(3,VV[54],VV[53],car((V119))); + V122= list(2,VV[49],list(3,VV[50],VV[51],list(4,VV[27],/* INLINE-ARGS */V120,/* INLINE-ARGS */V121,list(5,VV[55],VV[16],VV[56],car((V119)),VV[57])))); + (V117->c.c_car)= list(2,VV[48],list(3,VV[46],/* INLINE-ARGS */V122,list(2,VV[31],cdr((V119)))));} + V118=MMcdr(V118); + if(endp(V118)){ + base[6]= base[7]; + goto T334;} + V117=MMcdr(V117)=MMcons(Cnil,Cnil); + goto T338;} +goto T336; +T336:; + base[6]= Cnil; +goto T334; +T334:; + base[8]= VV[32]; base[9]= base[3]; - base[10]= VV[22]; + base[10]= VV[23]; base[11]= (base[4]->c.c_car); vs_top=(vs_base=base+8)+4; Lmember(); vs_top=sup; if((vs_base[0])==Cnil){ - goto T339;} - base[9]= VV[31]; + goto T343;} + base[9]= VV[32]; base[10]= base[3]; vs_top=(vs_base=base+9)+2; L5(base); vs_top=sup; - V127= vs_base[0]; - {object V125; - object V126= V127; - if(endp(V126)){ - V124= Cnil; - goto T337;} - base[8]=V125=MMcons(Cnil,Cnil); -goto T345; -T345:; - (V125->c.c_car)= coerce_to_string((V126->c.c_car)); - V126=MMcdr(V126); - if(endp(V126)){ - V124= base[8]; - goto T337;} - V125=MMcdr(V125)=MMcons(Cnil,Cnil); - goto T345;} -goto T339; -T339:; - V124= VV[59]; -goto T337; -T337:; - V128= list(2,VV[58],list(2,VV[30],V124)); - if(((V18))==Cnil){ - goto T353;} - {object V130; - object V131= (V18); - if(endp(V131)){ + V126= vs_base[0]; + {object V124; + object V125= V126; + if(endp(V125)){ + V123= Cnil; + goto T341;} + base[8]=V124=MMcons(Cnil,Cnil); +goto T349; +T349:; + (V124->c.c_car)= coerce_to_string((V125->c.c_car)); + V125=MMcdr(V125); + if(endp(V125)){ + V123= base[8]; + goto T341;} + V124=MMcdr(V124)=MMcons(Cnil,Cnil); + goto T349;} +goto T343; +T343:; + V123= VV[59]; +goto T341; +T341:; + V127= list(2,VV[58],list(2,VV[31],V123)); + if(((V17))==Cnil){ + goto T357;} + {object V129; + object V130= (V17); + if(endp(V130)){ base[8]= Cnil; - goto T351;} - base[9]=V130=MMcons(Cnil,Cnil); -goto T355; -T355:; - {register object V132; - V132= (V131->c.c_car); - V133= list(3,VV[51],VV[52],car((V132))); - V134= list(3,VV[53],VV[52],car((V132))); - V135= list(2,VV[48],list(3,VV[49],VV[61],list(4,VV[26],/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,list(5,VV[54],VV[55],VV[62],car((V132)),VV[63])))); - (V130->c.c_car)= list(2,VV[60],list(3,VV[45],/* INLINE-ARGS */V135,list(2,VV[30],cdr((V132)))));} - V131=MMcdr(V131); - if(endp(V131)){ - base[8]= base[9]; - goto T351;} - V130=MMcdr(V130)=MMcons(Cnil,Cnil); goto T355;} -goto T353; -T353:; - base[8]= Cnil; -goto T351; -T351:; - if(((V15))==Cnil){ - goto T359;} - V136= list(3,VV[45],VV[64],list(2,VV[30],(V15))); - base[9]= make_cons(/* INLINE-ARGS */V136,Cnil); - goto T357; + base[9]=V129=MMcons(Cnil,Cnil); goto T359; T359:; - base[9]= Cnil; + {register object V131; + V131= (V130->c.c_car); + V132= list(3,VV[52],VV[53],car((V131))); + V133= list(3,VV[54],VV[53],car((V131))); + V134= list(2,VV[49],list(3,VV[50],VV[61],list(4,VV[27],/* INLINE-ARGS */V132,/* INLINE-ARGS */V133,list(5,VV[55],VV[16],VV[62],car((V131)),VV[63])))); + (V129->c.c_car)= list(2,VV[60],list(3,VV[46],/* INLINE-ARGS */V134,list(2,VV[31],cdr((V131)))));} + V130=MMcdr(V130); + if(endp(V130)){ + base[8]= base[9]; + goto T355;} + V129=MMcdr(V129)=MMcons(Cnil,Cnil); + goto T359;} goto T357; T357:; - if(((V16))==Cnil){ + base[8]= Cnil; +goto T355; +T355:; + if(((V14))==Cnil){ goto T363;} - V137= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V16)))); - base[10]= make_cons(/* INLINE-ARGS */V137,Cnil); + V135= list(3,VV[46],VV[64],list(2,VV[31],(V14))); + base[9]= make_cons(/* INLINE-ARGS */V135,Cnil); goto T361; goto T363; T363:; - base[10]= Cnil; + base[9]= Cnil; goto T361; T361:; - if(((V19))==Cnil){ + if(((V15))==Cnil){ goto T367;} - V138= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V19))),VV[69]); - base[11]= make_cons(/* INLINE-ARGS */V138,Cnil); + V136= list(2,VV[65],list(3,VV[46],VV[66],list(2,VV[31],(V15)))); + base[10]= make_cons(/* INLINE-ARGS */V136,Cnil); goto T365; goto T367; T367:; - base[11]= Cnil; + base[10]= Cnil; goto T365; T365:; + if(((V18))==Cnil){ + goto T371;} + V137= list(3,VV[67],list(2,VV[68],list(2,VV[31],(V18))),VV[69]); + base[11]= make_cons(/* INLINE-ARGS */V137,Cnil); + goto T369; +goto T371; +T371:; + base[11]= Cnil; +goto T369; +T369:; vs_top=(vs_base=base+8)+4; Lappend(); vs_top=sup; - V129= vs_base[0]; - base[7]= make_cons(/* INLINE-ARGS */V128,V129); + V128= vs_base[0]; + base[7]= make_cons(/* INLINE-ARGS */V127,V128); vs_top=(vs_base=base+5)+3; Lappend(); vs_top=sup; - V116= vs_base[0]; - V139= listA(3,VV[42],/* INLINE-ARGS */V115,V116); - V140= list(2,/* INLINE-ARGS */V139,list(2,VV[27],base[2])); - base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V140)); + V115= vs_base[0]; + V138= listA(3,VV[43],/* INLINE-ARGS */V114,V115); + V139= list(2,/* INLINE-ARGS */V138,list(2,VV[28],base[2])); + base[5]= listA(4,VV[25],VV[26],/* INLINE-ARGS */V109,append(/* INLINE-ARGS */V112,/* INLINE-ARGS */V139)); vs_top=(vs_base=base+5)+1; return;} } @@ -934,173 +940,186 @@ { register object *base=vs_base; register object *sup=base+VM2; VC2 vs_reserve(VM2); - {object V141; + {object V140; vs_top[0]=Cnil; {object *p=vs_top; for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} - V141=(base[0]); + V140=(base[0]); vs_top=sup; + {object V141; + V141= Cnil; {object V142; + object V143; V142= Cnil; - {object V143; - object V144; - V143= Cnil; - V144= (V141); - {object V145; - V145= cdr((V141)); - {register long V146; - V146= 1; -goto T373; -T373:; - if(((V145))==Cnil){ - goto T376;} - goto T375; -goto T376; -T376:; - goto T374; -goto T375; -T375:; + V143= (V140); + {object V144; + V144= cdr((V140)); + {register long V145; + V145= 1; +goto T377; +T377:; if(((V144))==Cnil){ - goto T379;} + goto T380;} + goto T379; +goto T380; +T380:; goto T378; goto T379; T379:; - goto T374; -goto T378; -T378:; - {object V147; - V147= car((V144)); - V143= (V147);} - {register object V148; - register object V149; - V148= Cnil; - V149= (V143); - {register object V150; - V150= Cnil; -goto T386; -T386:; - if(((V149))==Cnil){ - goto T389;} - goto T388; -goto T389; -T389:; - goto T387; -goto T388; -T388:; + if(((V143))==Cnil){ + goto T383;} + goto T382; +goto T383; +T383:; + goto T378; +goto T382; +T382:; + {object V146; + V146= car((V143)); + V142= (V146);} + {register object V147; + register object V148; + V147= Cnil; + V148= (V142); + {register object V149; + V149= Cnil; +goto T390; +T390:; + if(((V148))==Cnil){ + goto T393;} + goto T392; +goto T393; +T393:; + goto T391; +goto T392; +T392:; + {object V150; + V150= car((V148)); + V147= (V150);} {object V151; - V151= car((V149)); - V148= (V151);} - {object V152; - V153= symbol_function(VV[71]); - V154= symbol_function(VV[74]); - V152= (VFUN_NARGS=6,(*(LnkLI73))((V148),(V142),VV[4],V153,VV[22],V154)); - V150= (V152);} - V156 = make_fixnum(V146); - {register object x= V156,V155= (V150); - while(!endp(V155)) - if(eql(x,V155->c.c_car)){ - goto T399; - }else V155=V155->c.c_cdr;} + base[1]= (V147); + base[2]= (V141); + base[3]= VV[4]; + base[4]= symbol_function(VV[70]); + base[5]= VV[23]; + base[6]= symbol_function(VV[73]); + vs_top=(vs_base=base+1)+6; + (void) (*Lnk74)(); + vs_top=sup; + V151= vs_base[0]; + V149= (V151);} + V153 = make_fixnum(V145); + {register object x= V153,V152= (V149); + while(!endp(V152)) + if(eql(x,V152->c.c_car)){ + goto T407; + }else V152=V152->c.c_cdr;} + {object V154; + register object V155; + V154= Cnil; + V155= (V144); + {register long V156; {object V157; - register object V158; - V157= Cnil; - V158= (V145); - {register long V159; + V158 = make_fixnum(V145); + V157= one_plus(V158);{object V159; + V159= (type_of((V157))==t_fixnum?Ct:Cnil); + if(V159==Cnil)goto T413; + goto T412; +goto T413; +T413:;} + vs_base=vs_top; + (void) (*Lnk75)(); + vs_top=sup; +goto T412; +T412:; + V156= fix((V157));} +goto T416; +T416:; + if(((V155))==Cnil){ + goto T419;} + goto T418; +goto T419; +T419:; + goto T417; +goto T418; +T418:; {object V160; - V161 = make_fixnum(V146); - V160= one_plus(V161);{object V162; - V162= (type_of((V160))==t_fixnum?Ct:Cnil); - if(V162==Cnil)goto T405; - goto T404; -goto T405; -T405:;} - (void)((*(LnkLI75))()); -goto T404; -T404:; - V159= fix((V160));} -goto T408; -T408:; - if(((V158))==Cnil){ - goto T411;} - goto T410; -goto T411; -T411:; - goto T409; -goto T410; -T410:; - {object V163; - V163= car((V158)); - V157= (V163);} - base[1]= (V148); - base[2]= (V157); - base[3]= VV[22]; - base[4]= symbol_function(VV[74]); + V160= car((V155)); + V154= (V160);} + base[1]= (V147); + base[2]= (V154); + base[3]= VV[23]; + base[4]= symbol_function(VV[73]); vs_top=(vs_base=base+1)+4; Lmember(); vs_top=sup; if((vs_base[0])==Cnil){ - goto T416;} - if(((V150))==Cnil){ goto T424;} - V164 = make_fixnum(V159); - V165= make_cons(V164,Cnil); - (void)(nconc((V150),/* INLINE-ARGS */V165)); - goto T416; -goto T424; -T424:; - {object V167; - V168 = make_fixnum(V146); - V169 = make_fixnum(V159); - V167= list(3,(V148),V168,V169); - V142= make_cons((V167),(V142)); - V166= (V142);} - V150= car(V166); -goto T416; -T416:; - V158= cdr((V158)); - if(!((V159)<(2147483646))){ - goto T433;} - goto T432; -goto T433; -T433:; - (void)((*(LnkLI75))()); + if(((V149))==Cnil){ + goto T432;} + V161 = make_fixnum(V156); + V162= make_cons(V161,Cnil); + (void)(nconc((V149),/* INLINE-ARGS */V162)); + goto T424; goto T432; T432:; - V159= (long)(V159)+(1); - goto T408; -goto T409; -T409:; - goto T399; - goto T399;}} -goto T399; -T399:; - V149= cdr((V149)); - goto T386; -goto T387; -T387:; - goto T384; - goto T384;}} -goto T384; -T384:; + {object V164; + V165 = make_fixnum(V145); + V166 = make_fixnum(V156); + V164= list(3,(V147),V165,V166); + V141= make_cons((V164),(V141)); + V163= (V141);} + V149= car(V163); +goto T424; +T424:; + V155= cdr((V155)); + if(!((V156)<(2147483646))){ + goto T441;} + goto T440; +goto T441; +T441:; + vs_base=vs_top; + (void) (*Lnk75)(); + vs_top=sup; +goto T440; +T440:; + V156= (long)(V156)+(1); + goto T416; +goto T417; +T417:; + goto T407; + goto T407;}} +goto T407; +T407:; + V148= cdr((V148)); + goto T390; +goto T391; +T391:; + goto T388; + goto T388;}} +goto T388; +T388:; + V143= cdr((V143)); V144= cdr((V144)); - V145= cdr((V145)); - if(!((V146)<(2147483646))){ - goto T446;} - goto T445; -goto T446; -T446:; - (void)((*(LnkLI75))()); -goto T445; -T445:; - V146= (long)(V146)+(1); + if(!((V145)<(2147483646))){ + goto T454;} + goto T453; +goto T454; +T454:; + vs_base=vs_top; + (void) (*Lnk75)(); + vs_top=sup; +goto T453; +T453:; + V145= (long)(V145)+(1); + goto T377; +goto T378; +T378:; goto T373; -goto T374; -T374:; - goto T369; - goto T369;}}} -goto T369; -T369:; - base[1]= (V142); + goto T373;}}} +goto T373; +T373:; + base[1]= (V141); vs_top=(vs_base=base+1)+1; return;} } @@ -1112,19 +1131,19 @@ { register object *base=vs_base; register object *sup=base+VM3; VC3 vs_reserve(VM3); - {object V170; - object V171; + {object V167; + object V168; check_arg(2); - V170=(base[0]); - V171=(base[1]); + V167=(base[0]); + V168=(base[1]); vs_top=sup; - if(!(type_of((V171))==t_cons)){ - goto T452;} - base[2]= (equal(car((V171)),(V170))?Ct:Cnil); + if(!(type_of((V168))==t_cons)){ + goto T460;} + base[2]= (equal(car((V168)),(V167))?Ct:Cnil); vs_top=(vs_base=base+2)+1; return; -goto T452; -T452:; +goto T460; +T460:; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return; @@ -1137,92 +1156,92 @@ { register object *base=vs_base; register object *sup=base+VM4; VC4 vs_reserve(VM4); - {object V172; - object V173; + {object V169; + object V170; check_arg(2); - V172=(base[0]); - V173=(base[1]); + V169=(base[0]); + V170=(base[1]); vs_top=sup; goto TTL; TTL:; - {register object V174; + {register object V171; + V171= Cnil; + {object V172; + register object V173; + register object V174; + V172= Cnil; + V173= Cnil; V174= Cnil; {object V175; - register object V176; - register object V177; - V175= Cnil; - V176= Cnil; - V177= Cnil; - {object V178; - base[2]= (V172); - base[3]= (V173); - base[4]= VV[22]; + base[2]= (V169); + base[3]= (V170); + base[4]= VV[23]; base[5]= (base0[4]->c.c_car); vs_top=(vs_base=base+2)+4; Lmember(); vs_top=sup; - V178= vs_base[0]; - V174= (V178);} -goto T455; -T455:; - if(((V174))==Cnil){ - goto T464;} - goto T463; -goto T464; -T464:; - goto T456; + V175= vs_base[0]; + V171= (V175);} goto T463; T463:; - if(((V174))==Cnil){ - goto T466;} - base[2]= cdr(car((V174))); + if(((V171))==Cnil){ + goto T472;} + goto T471; +goto T472; +T472:; + goto T464; +goto T471; +T471:; + if(((V171))==Cnil){ + goto T474;} + base[2]= cdr(car((V171))); vs_top=(vs_base=base+2)+1; Lcopy_list(); vs_top=sup; - V177= vs_base[0]; - if(((V176))==Cnil){ - goto T473;} - {register object V179; - register object V180; - V179= (V176); - V180= (V177); - if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179)); - ((V179))->c.c_cdr = (V180); - if(((V180))!=Cnil){ - goto T475;}} - goto T466; -goto T475; -T475:; - base[2]= cdr((V176)); + V174= vs_base[0]; + if(((V173))==Cnil){ + goto T481;} + {register object V176; + register object V177; + V176= (V173); + V177= (V174); + if(type_of((V176))!=t_cons)FEwrong_type_argument(Scons,(V176)); + ((V176))->c.c_cdr = (V177); + if(((V177))!=Cnil){ + goto T483;}} + goto T474; +goto T483; +T483:; + base[2]= cdr((V173)); vs_top=(vs_base=base+2)+1; Llast(); vs_top=sup; - V176= vs_base[0]; - goto T466; -goto T473; -T473:; - V175= (V177); - base[2]= (V175); + V173= vs_base[0]; + goto T474; +goto T481; +T481:; + V172= (V174); + base[2]= (V172); vs_top=(vs_base=base+2)+1; Llast(); vs_top=sup; - V176= vs_base[0]; -goto T466; -T466:; - {register object V181; - base[2]= (V172); - base[3]= cdr((V174)); - base[4]= VV[22]; + V173= vs_base[0]; +goto T474; +T474:; + {register object V178; + base[2]= (V169); + base[3]= cdr((V171)); + base[4]= VV[23]; base[5]= (base0[4]->c.c_car); vs_top=(vs_base=base+2)+4; Lmember(); vs_top=sup; - V181= vs_base[0]; - V174= (V181);} - goto T455; -goto T456; -T456:; - base[2]= (V175); + V178= vs_base[0]; + V171= (V178);} + goto T463; +goto T464; +T464:; + base[2]= (V172); vs_top=(vs_base=base+2)+1; return; base[2]= Cnil; @@ -1240,75 +1259,75 @@ { register object *base=vs_base; register object *sup=base+VM5; VC5 vs_reserve(VM5); - {object V182; - object V183; + {object V179; + object V180; check_arg(2); - V182=(base[0]); - V183=(base[1]); + V179=(base[0]); + V180=(base[1]); vs_top=sup; goto TTL; TTL:; - {register object V184; + {register object V181; + V181= Cnil; + {object V182; + register object V183; + register object V184; + V182= Cnil; + V183= Cnil; V184= Cnil; {object V185; - register object V186; - register object V187; - V185= Cnil; - V186= Cnil; - V187= Cnil; - {object V188; - base[2]= (V182); - base[3]= (V183); - base[4]= VV[22]; + base[2]= (V179); + base[3]= (V180); + base[4]= VV[23]; base[5]= (base0[4]->c.c_car); vs_top=(vs_base=base+2)+4; Lmember(); vs_top=sup; - V188= vs_base[0]; - V184= (V188);} -goto T495; -T495:; - if(((V184))==Cnil){ - goto T504;} - goto T503; -goto T504; -T504:; - goto T496; + V185= vs_base[0]; + V181= (V185);} goto T503; T503:; - if(((V184))==Cnil){ - goto T506;} - V187= cdr(car((V184))); - if(((V186))==Cnil){ + if(((V181))==Cnil){ goto T512;} - {register object V189; - register object V190; - V189= (V186); - V186= make_cons((V187),Cnil); - V190= (V186); - if(type_of((V189))!=t_cons)FEwrong_type_argument(Scons,(V189)); - ((V189))->c.c_cdr = (V190); - goto T506;} + goto T511; goto T512; T512:; - V186= make_cons((V187),Cnil); - V185= (V186); -goto T506; -T506:; - {register object V191; - base[2]= (V182); - base[3]= cdr((V184)); - base[4]= VV[22]; + goto T504; +goto T511; +T511:; + if(((V181))==Cnil){ + goto T514;} + V184= cdr(car((V181))); + if(((V183))==Cnil){ + goto T520;} + {register object V186; + register object V187; + V186= (V183); + V183= make_cons((V184),Cnil); + V187= (V183); + if(type_of((V186))!=t_cons)FEwrong_type_argument(Scons,(V186)); + ((V186))->c.c_cdr = (V187); + goto T514;} +goto T520; +T520:; + V183= make_cons((V184),Cnil); + V182= (V183); +goto T514; +T514:; + {register object V188; + base[2]= (V179); + base[3]= cdr((V181)); + base[4]= VV[23]; base[5]= (base0[4]->c.c_car); vs_top=(vs_base=base+2)+4; Lmember(); vs_top=sup; - V191= vs_base[0]; - V184= (V191);} - goto T495; -goto T496; -T496:; - base[2]= (V185); + V188= vs_base[0]; + V181= (V188);} + goto T503; +goto T504; +T504:; + base[2]= (V182); vs_top=(vs_base=base+2)+1; return; base[2]= Cnil; @@ -1319,10 +1338,10 @@ return;}} } } -static object LnkTLI75(){return call_proc0(VV[75],(void **)&LnkLI75);} /* TYPE-ERROR */ -static object LnkTLI73(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[73],(void **)&LnkLI73,ap);va_end(ap);return V1;} /* FIND */ +static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* TYPE-ERROR */ +static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* FIND */ static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* SPECIFIC-ERROR */ -static object LnkTLI70(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[70],(void **)&LnkLI70,ap);va_end(ap);return V1;} /* COUNT */ +static void LnkT71(){ call_or_link(VV[71],(void **)&Lnk71);} /* COUNT */ #ifdef SYSTEM_SPECIAL_INIT SYSTEM_SPECIAL_INIT diff -uNr TEST.gcl/gcl/lsp/defpackage.data agcl/agcl/lsp/defpackage.data --- TEST.gcl/gcl/lsp/defpackage.data Fri Oct 25 00:10:45 2002 +++ agcl/agcl/lsp/defpackage.data Sat Nov 9 13:15:46 2002 @@ -6,7 +6,7 @@ (lisp::provide :defpackage)#! (lisp::in-package "USER")#! (lisp::use-package "DEFPACKAGE") -#((:documentation :size :nicknames :shadow :shadowing-import-from :use :import-from :intern :export :export-from) "Proceed, ignoring this option." "~s is not a valid option." (:size :documentation) :key :invalid-form "DEFPACKAGE option ~s specified more than once." :nicknames :documentation :size :shadow :intern :export :shadowing-import-from :import-from :export-from "The symbol ~s cannot coexist in these lists:~{ ~s~}" 1 2 3 4 "The symbol ~s cannot coexist in these lists:~{ ~s~}" :test 2147483646 lisp::eval-when (lisp::load lisp::eval lisp::compile) lisp::if lisp::find-package lisp::progn lisp::rename-package lisp::quote :use lisp::unuse-package lisp::package-use-list lisp::make-package (lisp::quote :use) (lisp::quote lisp::nil) (lisp::quote :nicknames) lisp::setf lisp::get :keyword (lisp::quote system::package-documentation) lisp::let lisp::*package* lisp::shadow lisp::mapcar (lisp::function lisp::intern) lisp::shadowing-import lisp::function lisp::lambda (lisp::symbol) lisp::find-symbol lisp::symbol lisp::intern lisp::specific-correctable-error :package-error "" (lisp::format lisp::nil "Symbol ~S not present~%" lisp::symbol) lisp::use-package "LISP" lisp::import (lisp::symbol) "" (lisp::format lisp::nil "Symbol ~S not present~%" lisp::symbol) (lisp::function lisp::intern) lisp::export (lisp::function lisp::intern) lisp::dolist lisp::package (lisp::do-external-symbols (lisp::symbol (lisp::find-package lisp::package)) (lisp::when (lisp::nth 1 (lisp::multiple-value-list (lisp::find-symbol (lisp::string lisp::symbol)))) (lisp::export (lisp::list (lisp::intern (lisp::string lisp::symbol)))))) lisp::count lisp::car lisp::specific-error lisp::find lisp::string= lisp::type-error (system::%init . #((lisp::proclaim (lisp::quote (lisp::declaration lisp::values defpackage::arglist))) (system::putprop (lisp::quote defpackage::defpackage) "DEFPACKAGE - DEFINED-PACKAGE-NAME {OPTION}* [Macro] +#((:documentation :size :nicknames :shadow :shadowing-import-from :use :import-from :intern :export :export-from) "Proceed, ignoring this option." "~s is not a valid option." (:size :documentation) :key :simple-program-error "DEFPACKAGE option ~s specified more than once." :nicknames :documentation :size :shadow :intern :export :shadowing-import-from :import-from :export-from :simple-package-error "The symbol ~s cannot coexist in these lists:~{ ~s~}" 1 2 3 4 "The symbol ~s cannot coexist in these lists:~{ ~s~}" :test 2147483646 lisp::eval-when (lisp::load lisp::eval lisp::compile) lisp::if lisp::find-package lisp::progn lisp::rename-package lisp::quote :use lisp::unuse-package lisp::package-use-list lisp::make-package (lisp::quote :use) (lisp::quote lisp::nil) (lisp::quote :nicknames) lisp::setf lisp::get :keyword (lisp::quote system::package-documentation) lisp::let lisp::*package* lisp::shadow lisp::mapcar (lisp::function lisp::intern) lisp::shadowing-import lisp::function lisp::lambda (lisp::symbol) lisp::find-symbol lisp::symbol lisp::intern lisp::specific-correctable-error "" (lisp::format lisp::nil "Symbol ~S not present~%" lisp::symbol) lisp::use-package "LISP" lisp::import (lisp::symbol) "" (lisp::format lisp::nil "Symbol ~S not present~%" lisp::symbol) (lisp::function lisp::intern) lisp::export (lisp::function lisp::intern) lisp::dolist lisp::package (lisp::do-external-symbols (lisp::symbol (lisp::find-package lisp::package)) (lisp::when (lisp::nth 1 (lisp::multiple-value-list (lisp::find-symbol (lisp::string lisp::symbol)))) (lisp::export (lisp::list (lisp::intern (lisp::string lisp::symbol)))))) lisp::car lisp::count lisp::specific-error lisp::string= lisp::find lisp::type-error (system::%init . #((lisp::proclaim (lisp::quote (lisp::declaration lisp::values defpackage::arglist))) (system::putprop (lisp::quote defpackage::defpackage) "DEFPACKAGE - DEFINED-PACKAGE-NAME {OPTION}* [Macro] This creates a new package, or modifies an existing one, whose name is DEFINED-PACKAGE-NAME. The DEFINED-PACKAGE-NAME may be a string or a @@ -39,5 +39,5 @@ :DOCUMENTATION is an extension to DEFPACKAGE. - :SIZE is used only in Genera and Allegro.]" (lisp::quote system::function-documentation)) (system::mm (lisp::quote defpackage::defpackage) 0) (lisp::let* ((#0=#:g1487 :defpackage)) (lisp::setq lisp::*features* (lisp::adjoin #0# lisp::*features*))) (lisp::unintern (lisp::quote defpackage::defpackage) (lisp::quote defpackage::user))))) + :SIZE is used only in Genera and Allegro.]" (lisp::quote system::function-documentation)) (system::mm (lisp::quote defpackage::defpackage) 0) (lisp::let* ((#0=#:g1735 :defpackage)) (lisp::setq lisp::*features* (lisp::adjoin #0# lisp::*features*))) (lisp::unintern (lisp::quote defpackage::defpackage) (lisp::quote defpackage::user))))) ) diff -uNr TEST.gcl/gcl/lsp/defpackage.h agcl/agcl/lsp/defpackage.h --- TEST.gcl/gcl/lsp/defpackage.h Fri Oct 25 00:10:45 2002 +++ agcl/agcl/lsp/defpackage.h Sat Nov 9 13:15:46 2002 @@ -1,8 +1,8 @@ static void L1(); -#define VC1 object V140 ,V139 ,V138 ,V137 ,V136 ,V135 ,V134 ,V133 ,V129 ,V128 ,V127 ,V124 ,V123 ,V122 ,V121 ,V117 ,V116 ,V115 ,V114 ,V113 ,V112 ,V111 ,V110 ,V109 ,V108 ,V107 ,V106 ,V105 ,V104 ,V103 ,V102 ,V101 ,V60 ,V53 ,V52 ,V41 ,V40 ,V33 ,V30 ,V27 ,V24 ,V23 ,V22 ,V10 ,V9; +#define VC1 object V139 ,V138 ,V137 ,V136 ,V135 ,V134 ,V133 ,V132 ,V128 ,V127 ,V126 ,V123 ,V122 ,V121 ,V120 ,V116 ,V115 ,V114 ,V113 ,V112 ,V111 ,V110 ,V109 ,V108 ,V107 ,V106 ,V105 ,V104 ,V103 ,V102 ,V101 ,V100 ,V59 ,V52 ,V51 ,V40 ,V39 ,V32 ,V29 ,V26 ,V23 ,V22 ,V21 ,V9; static void L2(); -#define VC2 object V169 ,V168 ,V166 ,V165 ,V164 ,V161 ,V156 ,V154 ,V153; +#define VC2 object V166 ,V165 ,V163 ,V162 ,V161 ,V158 ,V153; static void LC3(); #define VC3 static void L5(); @@ -13,18 +13,18 @@ #define VM5 6 #define VM4 6 #define VM3 3 -#define VM2 5 +#define VM2 7 #define VM1 12 static char * VVi[77]={ #define Cdata VV[76] (char *)(L1) }; #define VV ((object *)VVi) -static object LnkTLI75() ; -static object (*LnkLI75)() = LnkTLI75; -static object LnkTLI73() ; -static object (*LnkLI73)() = LnkTLI73; +static void LnkT75() ; +static void (*Lnk75)() = LnkT75; +static void LnkT74() ; +static void (*Lnk74)() = LnkT74; static void LnkT72() ; static void (*Lnk72)() = LnkT72; -static object LnkTLI70() ; -static object (*LnkLI70)() = LnkTLI70; +static void LnkT71() ; +static void (*Lnk71)() = LnkT71; diff -uNr TEST.gcl/gcl/lsp/defpackage.lsp agcl/agcl/lsp/defpackage.lsp --- TEST.gcl/gcl/lsp/defpackage.lsp Fri Oct 25 00:10:45 2002 +++ agcl/agcl/lsp/defpackage.lsp Sat Nov 9 13:15:46 2002 @@ -155,7 +155,7 @@ (rest (first result))))) (sloop for option in '(:size :documentation) when (<= 2 (count option options ':key #'car)) - do (specific-error :invalid-form + do (specific-error :simple-program-error "DEFPACKAGE option ~s specified more than once." option)) (setq name (string name)) @@ -204,7 +204,7 @@ append (rest list))) do (specific-error - :invalid-form + :simple-package-error "The symbol ~s cannot coexist in these lists:~{ ~s~}" (first duplicate) (sloop for num in (rest duplicate) @@ -218,7 +218,7 @@ (find-duplicates exported-symbol-names interned-symbol-names) do (specific-error - :invalid-form + :simple-package-error "The symbol ~s cannot coexist in these lists:~{ ~s~}" (first duplicate) (sloop for num in @@ -268,7 +268,7 @@ (if (find-symbol symbol ,(first list)) (intern symbol ,(first list)) ; FIXME better error messages - (specific-correctable-error :package-error + (specific-correctable-error :simple-package-error "" ,(first list) (format nil "Symbol ~S not present~%" symbol)))) ',(rest list)))) @@ -282,7 +282,7 @@ (if (find-symbol symbol ,(first list)) (intern symbol ,(first list)) ; FIXME better error messages - (specific-correctable-error :package-error + (specific-correctable-error :simple-package-error "" ,(first list) (format nil "Symbol ~S not present~%" symbol)))) ',(rest list)))) diff -uNr TEST.gcl/gcl/lsp/defstruct.c agcl/agcl/lsp/defstruct.c --- TEST.gcl/gcl/lsp/defstruct.c Mon Oct 14 07:24:43 2002 +++ agcl/agcl/lsp/defstruct.c Mon Nov 4 17:54:08 2002 @@ -76,7 +76,10 @@ goto T8; goto T13; T13:; - FEerror("The ECASE key value ~s is illegal.",1,V26); + Icall_error_handler(sLsimple_type_error, + make_simple_string("The ECASE key value ~s is illegal."), + 1, + V26); goto T8;} goto T8; T8:; @@ -1451,7 +1454,10 @@ goto T640; goto T643; T643:; - FEerror("The ECASE key value ~s is illegal.",1,V248); + Icall_error_handler(sLsimple_type_error, + make_simple_string("The ECASE key value ~s is illegal."), + 1, + V248); base[1]= Cnil; goto T640;} goto T640; diff -uNr TEST.gcl/gcl/lsp/describe.c agcl/agcl/lsp/describe.c --- TEST.gcl/gcl/lsp/describe.c Mon Oct 14 07:24:43 2002 +++ agcl/agcl/lsp/describe.c Mon Nov 4 17:54:08 2002 @@ -207,7 +207,10 @@ (void)((*(LnkLI161))()); {frame_ptr fr; fr=frs_sch_catch(VV[17]); - if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[17]); + if(fr==NULL) Icall_error_handler(sKsimple_program_error, + make_simple_string("Syntax error: The tag ~s is undefined."), + 1, + VV[17]); base[3]= Cnil; vs_top=(vs_base=base+3)+1; unwind(fr,VV[17]);} @@ -284,7 +287,10 @@ (void)((*(LnkLI161))()); {frame_ptr fr; fr=frs_sch_catch(VV[28]); - if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[28]); + if(fr==NULL) Icall_error_handler(sKsimple_program_error, + make_simple_string("Syntax error: The tag ~s is undefined."), + 1, + VV[28]); base[3]= Cnil; vs_top=(vs_base=base+3)+1; unwind(fr,VV[28]);} diff -uNr TEST.gcl/gcl/lsp/destructuring_bind.data agcl/agcl/lsp/destructuring_bind.data --- TEST.gcl/gcl/lsp/destructuring_bind.data Fri Oct 25 04:41:48 2002 +++ agcl/agcl/lsp/destructuring_bind.data Sat Nov 9 13:15:58 2002 @@ -2,7 +2,7 @@ #(#! (lisp::in-package (lisp::quote user::lisp))#! (lisp::export (lisp::quote (lisp::destructuring-bind))) -#("Error in do-arg-count-error: ~S ~S ~S ~S ~S ~S~%" lisp::*default-default* lisp::error lisp::*arg-tests* lisp::*user-lets* lisp::*system-lets* lisp::*ignorable-vars* lisp::let* lisp::declare lisp::ignorable lisp::ignore "KEYWORD" :wrong-type-argument "~S is not of type ~S~%" :allow-other-keys :unknown-keyword :dotted-list :odd-length lisp::cdr :required lisp::&whole "&Whole must appear first in ~S lambda-list." "&WHOLE" lisp::&environment "&Environment not valid with ~S." "&Environment only valid at top level of ~ +#("Error in do-arg-count-error: ~S ~S ~S ~S ~S ~S~%" lisp::*default-default* lisp::error lisp::*arg-tests* lisp::*user-lets* lisp::*system-lets* lisp::*ignorable-vars* lisp::let* lisp::declare lisp::ignorable lisp::ignore "KEYWORD" lisp::simple-type-error "~S is not of type ~S~%" :allow-other-keys :unknown-keyword :dotted-list :odd-length lisp::cdr :required lisp::&whole "&Whole must appear first in ~S lambda-list." "&WHOLE" lisp::&environment "&Environment not valid with ~S." "&Environment only valid at top level of ~ lambda-list." "&ENVIRONMENT" lisp::&rest lisp::&body lisp::multiple-value-list lisp::parse-body lisp::car lisp::cadr lisp::caddr lisp::&optional :optionals lisp::&key :keywords "KEYWORDS-" lisp::&allow-other-keys lisp::&aux :auxs "SUBLIST-" "Ignore extra noise." "More than variable, initform, and suppliedp ~ in &optional binding - ~S" lisp::not lisp::null lisp::keyword-supplied-p lisp::quote lisp::lookup-keyword "Non-symbol in lambda-list - ~S." lisp::unless lisp::<= lisp::length lisp::the lisp::list lisp::do-arg-count-error (lisp::quote lisp::defmacro-ll-arg-count-error) :kind :name :argument :lambda-list :minimum :maximum "KEY-PROBLEM-" "INFO-" lisp::multiple-value-bind lisp::verify-keywords lisp::when (lisp::quote lisp::defmacro-ll-broken-key-list-error) :problem :info "TEMP-" lisp::let lisp::if lisp::listp (lisp::quote lisp::defmacro-bogus-sublist-error) :object "SUPLIEDP-" "OPTIONAL-SUBLIST-" "Illegal optional variable name: ~S" "ARG-LIST-" lisp::destructuring-bind :annonymousp :doc-string-allowed :environment :default-default :error-fun lisp::parse-defmacro-lambda-list lisp::specific-error lisp::push-let-binding lisp::defmacro-error lisp::push-sub-list-binding lisp::push-optional-binding lisp::make-keyword lisp::parse-defmacro (system::%init . #((system::*make-special (lisp::quote lisp::*arg-tests*)) (system::putprop (lisp::quote lisp::*arg-tests*) "A list of tests that do argument counting at expansion time." #0=(lisp::quote system::variable-documentation)) (lisp::or (lisp::boundp (lisp::quote lisp::*arg-tests*)) (lisp::setq lisp::*arg-tests* lisp::nil)) (system::*make-special (lisp::quote lisp::*system-lets*)) (lisp::or (lisp::boundp (lisp::quote lisp::*system-lets*)) (lisp::setq lisp::*system-lets* lisp::nil)) (system::*make-special (lisp::quote lisp::*user-lets*)) (system::putprop (lisp::quote lisp::*user-lets*) "Let bindings that the user has explicitly supplied." #0#) (lisp::or (lisp::boundp (lisp::quote lisp::*user-lets*)) (lisp::setq lisp::*user-lets* lisp::nil)) (system::*make-special (lisp::quote lisp::*default-default*)) (system::putprop (lisp::quote lisp::*default-default*) "Unsupplied optional and keyword arguments get this value defaultly." #0#) (lisp::or (lisp::boundp (lisp::quote lisp::*default-default*)) (lisp::setq lisp::*default-default* lisp::nil)) (system::*make-special (lisp::quote lisp::*ignorable-vars*)) (system::mf (lisp::quote lisp::do-arg-count-error) 0) (system::putprop (lisp::quote lisp::parse-defmacro) "Returns as multiple-values a parsed body, any local-declarations that should be made where this body is inserted, and a doc-string if there is diff -uNr TEST.gcl/gcl/lsp/destructuring_bind.lsp agcl/agcl/lsp/destructuring_bind.lsp --- TEST.gcl/gcl/lsp/destructuring_bind.lsp Fri Oct 25 04:41:48 2002 +++ agcl/agcl/lsp/destructuring_bind.lsp Sat Nov 9 13:15:58 2002 @@ -86,7 +86,7 @@ (defun defmacro-error (problem kind name) ; FIXME check this (declare (ignore kind)) - (specific-error :wrong-type-argument "~S is not of type ~S~%" problem name)) + (specific-error 'simple-type-error "~S is not of type ~S~%" problem name)) (defun verify-keywords (key-list valid-keys allow-other-keys) (do ((already-processed nil) diff -uNr TEST.gcl/gcl/lsp/loop.c agcl/agcl/lsp/loop.c --- TEST.gcl/gcl/lsp/loop.c Mon Oct 14 07:24:43 2002 +++ agcl/agcl/lsp/loop.c Mon Nov 4 17:54:08 2002 @@ -509,7 +509,10 @@ goto T116; goto T118; T118:; - FEerror("The ECASE key value ~s is illegal.",1,V65); + Icall_error_handler(sLsimple_type_error, + make_simple_string("The ECASE key value ~s is illegal."), + 1, + V65); V64= Cnil; goto T116;} goto T116; @@ -1736,7 +1739,10 @@ T590:; {frame_ptr fr; fr=frs_sch_catch(VV[84]); - if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[84]); + if(fr==NULL) Icall_error_handler(sKsimple_program_error, + make_simple_string("Syntax error: The tag ~s is undefined."), + 1, + VV[84]); base[2]= Cnil; vs_top=(vs_base=base+2)+1; unwind(fr,VV[84]);} @@ -1786,7 +1792,10 @@ T608:; {frame_ptr fr; fr=frs_sch_catch(VV[77]); - if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[77]); + if(fr==NULL) Icall_error_handler(sKsimple_program_error, + make_simple_string("Syntax error: The tag ~s is undefined."), + 1, + VV[77]); base[2]= Cnil; vs_top=(vs_base=base+2)+1; unwind(fr,VV[77]);} @@ -1831,7 +1840,10 @@ T499:; {frame_ptr fr; fr=frs_sch_catch(VV[77]); - if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[77]); + if(fr==NULL) Icall_error_handler(sKsimple_program_error, + make_simple_string("Syntax error: The tag ~s is undefined."), + 1, + VV[77]); base[2]= Cnil; vs_top=(vs_base=base+2)+1; unwind(fr,VV[77]);} @@ -3524,7 +3536,10 @@ goto T1205; goto T1209; T1209:; - FEerror("The ECASE key value ~s is illegal.",1,V325); + Icall_error_handler(sLsimple_type_error, + make_simple_string("The ECASE key value ~s is illegal."), + 1, + V325); goto T1205;} goto T1205; T1205:; diff -uNr TEST.gcl/gcl/lsp/loop.lsp agcl/agcl/lsp/loop.lsp --- TEST.gcl/gcl/lsp/loop.lsp Wed Oct 23 02:16:08 2002 +++ agcl/agcl/lsp/loop.lsp Mon Nov 4 16:59:27 2002 @@ -49,7 +49,7 @@ #+cmu (ext:file-comment - "$Header: /cvsroot/gcl/gcl/lsp/loop.lsp,v 1.4 2002/10/23 00:16:08 camm Exp $") + "$Header: /usr/local/CVS/agcl/lsp/loop.lsp,v 1.1.1.1 2002/11/04 15:59:27 prw Exp $") ;;;; LOOP Iteration Macro diff -uNr TEST.gcl/gcl/lsp/packlib.c agcl/agcl/lsp/packlib.c --- TEST.gcl/gcl/lsp/packlib.c Sun Nov 3 19:06:49 2002 +++ agcl/agcl/lsp/packlib.c Sat Nov 9 13:15:36 2002 @@ -33,74 +33,78 @@ vs_top=(vs_base=base+3)+1; return;} } -/* local entry for function FIND-ALL-SYMBOLS */ +/* function definition for FIND-ALL-SYMBOLS */ -static object LI2(V7) - -register object V7; -{ VMB2 VMS2 VMV2 +static void L2() +{register object *base=vs_base; + register object *sup=base+VM2; VC2 + vs_reserve(VM2); + {register object V6; + check_arg(1); + V6=(base[0]); + vs_top=sup; goto TTL; TTL:; - if(!(type_of((V7))==t_symbol)){ + if(!(type_of((V6))==t_symbol)){ goto T5;} - V7= symbol_name((V7)); + V6= symbol_name((V6)); goto T5; T5:; vs_base=vs_top; Llist_all_packages(); vs_top=sup; - V10= vs_base[0]; - {object V8; - object V9= V10; - if(endp(V9)){ - {object V11 = Cnil; - VMR2(V11)}} - base[0]=V8=MMcons(Cnil,Cnil); + V9= vs_base[0]; + {object V7; + object V8= V9; + if(endp(V8)){ + base[2]= Cnil; + vs_top=(vs_base=base+2)+1; + return;} + base[1]=V7=MMcons(Cnil,Cnil); goto T9; T9:; - {object V13; - object V14; - base[1]= (V7); - base[2]= (V9->c.c_car); - vs_top=(vs_base=base+1)+2; + {object V11; + object V12; + base[2]= (V6); + base[3]= (V8->c.c_car); + vs_top=(vs_base=base+2)+2; Lfind_symbol(); if(vs_base>=vs_top){vs_top=sup;goto T15;} - V13= vs_base[0]; + V11= vs_base[0]; vs_base++; if(vs_base>=vs_top){vs_top=sup;goto T16;} - V14= vs_base[0]; + V12= vs_base[0]; vs_top=sup; goto T17; goto T15; T15:; - V13= Cnil; + V11= Cnil; goto T16; T16:; - V14= Cnil; + V12= Cnil; goto T17; T17:; - if(((V14))==(VV[6])){ + if(((V12))==(VV[6])){ goto T18;} - if(!(((V14))==(VV[7]))){ + if(!(((V12))==(VV[7]))){ goto T19;} goto T18; T18:; - (V8->c.c_cdr)= make_cons((V13),Cnil); + (V7->c.c_cdr)= make_cons((V11),Cnil); goto T11; goto T19; T19:; - (V8->c.c_cdr)= Cnil;} + (V7->c.c_cdr)= Cnil;} goto T11; T11:; - {object cdr_V8=MMcdr(V8);while(!endp(cdr_V8)) {cdr_V8=MMcdr(cdr_V8);V8=MMcdr(V8);}} - V9=MMcdr(V9); - if(endp(V9)){ - base[0]=base[0]->c.c_cdr; - {object V15 = base[0]; - VMR2(V15)}} + {object cdr_V7=MMcdr(V7);while(!endp(cdr_V7)) {cdr_V7=MMcdr(cdr_V7);V7=MMcdr(V7);}} + V8=MMcdr(V8); + if(endp(V8)){ + base[1]=base[1]->c.c_cdr; + vs_top=(vs_base=base+1)+1; + return;} goto T9;} - base[0]=base[0]; - return Cnil; + } } /* macro definition for DO-SYMBOLS */ @@ -110,102 +114,102 @@ vs_reserve(VM3); check_arg(2); vs_top=sup; - {object V16=base[0]->c.c_cdr; - if(endp(V16))invalid_macro_call(); - {object V17= (V16->c.c_car); - if(endp(V17))invalid_macro_call(); - base[2]= (V17->c.c_car); - V17=V17->c.c_cdr; - if(endp(V17)){ + {object V13=base[0]->c.c_cdr; + if(endp(V13))invalid_macro_call(); + {object V14= (V13->c.c_car); + if(endp(V14))invalid_macro_call(); + base[2]= (V14->c.c_car); + V14=V14->c.c_cdr; + if(endp(V14)){ base[3]= VV[0]; } else { - base[3]= (V17->c.c_car); - V17=V17->c.c_cdr;} - if(endp(V17)){ + base[3]= (V14->c.c_car); + V14=V14->c.c_cdr;} + if(endp(V14)){ base[4]= Cnil; } else { - base[4]= (V17->c.c_car); - V17=V17->c.c_cdr;} - if(!endp(V17))invalid_macro_call();} - V16=V16->c.c_cdr; - base[5]= V16;} - {register object V18; - register object V19; + base[4]= (V14->c.c_car); + V14=V14->c.c_cdr;} + if(!endp(V14))invalid_macro_call();} + V13=V13->c.c_cdr; + base[5]= V13;} + {register object V15; + register object V16; + register object V17; + register object V18; + object V19; register object V20; - register object V21; + object V21; object V22; - register object V23; - object V24; - object V25; - object V26; + object V23; vs_base=vs_top; Lgensym(); vs_top=sup; - V18= vs_base[0]; + V15= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V19= vs_base[0]; + V16= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V20= vs_base[0]; + V17= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V21= vs_base[0]; + V18= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V22= vs_base[0]; + V19= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V23= vs_base[0]; + V20= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V24= vs_base[0]; + V21= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V25= vs_base[0]; - V26= Cnil; + V22= vs_base[0]; + V23= Cnil; base[6]= base[5]; vs_top=(vs_base=base+6)+1; (void) (*Lnk59)(); if(vs_basec.c_cdr; - if(endp(V48))invalid_macro_call(); - {object V49= (V48->c.c_car); - if(endp(V49))invalid_macro_call(); - base[2]= (V49->c.c_car); - V49=V49->c.c_cdr; - if(endp(V49)){ + {object V45=base[0]->c.c_cdr; + if(endp(V45))invalid_macro_call(); + {object V46= (V45->c.c_car); + if(endp(V46))invalid_macro_call(); + base[2]= (V46->c.c_car); + V46=V46->c.c_cdr; + if(endp(V46)){ base[3]= VV[0]; } else { - base[3]= (V49->c.c_car); - V49=V49->c.c_cdr;} - if(endp(V49)){ + base[3]= (V46->c.c_car); + V46=V46->c.c_cdr;} + if(endp(V46)){ base[4]= Cnil; } else { - base[4]= (V49->c.c_car); - V49=V49->c.c_cdr;} - if(!endp(V49))invalid_macro_call();} - V48=V48->c.c_cdr; - base[5]= V48;} - {object V50; + base[4]= (V46->c.c_car); + V46=V46->c.c_cdr;} + if(!endp(V46))invalid_macro_call();} + V45=V45->c.c_cdr; + base[5]= V45;} + {object V47; + object V48; + register object V49; + object V50; object V51; - register object V52; - object V53; - object V54; - object V55; + object V52; vs_base=vs_top; Lgensym(); vs_top=sup; - V50= vs_base[0]; + V47= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V51= vs_base[0]; + V48= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V52= vs_base[0]; + V49= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V53= vs_base[0]; + V50= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V54= vs_base[0]; - V55= Cnil; + V51= vs_base[0]; + V52= Cnil; base[6]= base[5]; vs_top=(vs_base=base+6)+1; (void) (*Lnk59)(); if(vs_basec.c_cdr; - if(endp(V67))invalid_macro_call(); - {object V68= (V67->c.c_car); - if(endp(V68))invalid_macro_call(); - base[2]= (V68->c.c_car); - V68=V68->c.c_cdr; - if(endp(V68)){ + {object V64=base[0]->c.c_cdr; + if(endp(V64))invalid_macro_call(); + {object V65= (V64->c.c_car); + if(endp(V65))invalid_macro_call(); + base[2]= (V65->c.c_car); + V65=V65->c.c_cdr; + if(endp(V65)){ base[3]= Cnil; } else { - base[3]= (V68->c.c_car); - V68=V68->c.c_cdr;} - if(!endp(V68))invalid_macro_call();} - V67=V67->c.c_cdr; - base[4]= V67;} - V69= list(3,VV[38],VV[39],base[3]); - V70= list(2,base[2],VV[38]); - base[5]= list(3,VV[9],/* INLINE-ARGS */V69,list(3,VV[40],/* INLINE-ARGS */V70,make_cons(VV[36],base[4]))); + base[3]= (V65->c.c_car); + V65=V65->c.c_cdr;} + if(!endp(V65))invalid_macro_call();} + V64=V64->c.c_cdr; + base[4]= V64;} + V66= list(3,VV[38],VV[39],base[3]); + V67= list(2,base[2],VV[38]); + base[5]= list(3,VV[9],/* INLINE-ARGS */V66,list(3,VV[40],/* INLINE-ARGS */V67,make_cons(VV[36],base[4]))); vs_top=(vs_base=base+5)+1; return; } -/* local entry for function SUBSTRINGP */ +/* function definition for SUBSTRINGP */ -static object LI6(V73,V74) - -register object V73;register object V74; -{ VMB6 VMS6 VMV6 +static void L6() +{register object *base=vs_base; + register object *sup=base+VM6; VC6 + vs_reserve(VM6); + {register object V68; + register object V69; + check_arg(2); + V68=(base[0]); + V69=(base[1]); + vs_top=sup; goto TTL; TTL:; - {register object V75; - register object V76; - register object V77; - V78 = make_fixnum((long)length((V74))); - V79 = make_fixnum((long)length((V73))); - V75= number_minus(V78,V79); - V76= make_fixnum((long)length((V73))); - V77= small_fixnum(0); + {register object V70; + register object V71; + register object V72; + V73 = make_fixnum((long)length((V69))); + V74 = make_fixnum((long)length((V68))); + V70= number_minus(V73,V74); + V71= make_fixnum((long)length((V68))); + V72= small_fixnum(0); goto T50; T50:; - if(!(number_compare((V77),(V75))>0)){ + if(!(number_compare((V72),(V70))>0)){ goto T51;} - {object V80 = Cnil; - VMR6(V80)} + base[2]= Cnil; + vs_top=(vs_base=base+2)+1; + return; goto T51; T51:; - base[0]= (V73); - base[1]= (V74); - base[2]= VV[41]; - base[3]= (V77); - base[4]= VV[42]; - base[5]= number_plus((V77),(V76)); - vs_top=(vs_base=base+0)+6; + base[2]= (V68); + base[3]= (V69); + base[4]= VV[41]; + base[5]= (V72); + base[6]= VV[42]; + base[7]= number_plus((V72),(V71)); + vs_top=(vs_base=base+2)+6; Lstring_equal(); vs_top=sup; if((vs_base[0])==Cnil){ goto T55;} - {object V81 = Ct; - VMR6(V81)} + base[2]= Ct; + vs_top=(vs_base=base+2)+1; + return; goto T55; T55:; - V77= one_plus((V77)); + V72= one_plus((V72)); goto T50;} - base[0]=base[0]; - return Cnil; + } } -/* local entry for function PRINT-SYMBOL-APROPOS */ - -static object LI7(V83) +/* function definition for PRINT-SYMBOL-APROPOS */ -register object V83; -{ VMB7 VMS7 VMV7 +static void L7() +{register object *base=vs_base; + register object *sup=base+VM7; VC7 + vs_reserve(VM7); + {register object V75; + check_arg(1); + V75=(base[0]); + vs_top=sup; goto TTL; TTL:; - (void)(prin1((V83),Cnil)); - base[0]= (V83); - vs_top=(vs_base=base+0)+1; + (void)(prin1((V75),Cnil)); + base[1]= (V75); + vs_top=(vs_base=base+1)+1; Lfboundp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T68;} - base[0]= (V83); - vs_top=(vs_base=base+0)+1; + base[1]= (V75); + vs_top=(vs_base=base+1)+1; Lspecial_form_p(); vs_top=sup; if((vs_base[0])==Cnil){ @@ -388,8 +403,8 @@ goto T68; goto T73; T73:; - base[0]= (V83); - vs_top=(vs_base=base+0)+1; + base[1]= (V75); + vs_top=(vs_base=base+1)+1; Lmacro_function(); vs_top=sup; if((vs_base[0])==Cnil){ @@ -401,14 +416,14 @@ princ_str(" Function",Cnil); goto T68; T68:; - base[0]= (V83); - vs_top=(vs_base=base+0)+1; + base[1]= (V75); + vs_top=(vs_base=base+1)+1; Lboundp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T80;} - base[0]= (V83); - vs_top=(vs_base=base+0)+1; + base[1]= (V75); + vs_top=(vs_base=base+1)+1; Lconstantp(); vs_top=sup; if((vs_base[0])==Cnil){ @@ -420,18 +435,18 @@ princ_str(" has value: ",Cnil); goto T84; T84:; - base[0]= (V83); - vs_top=(vs_base=base+0)+1; + base[1]= (V75); + vs_top=(vs_base=base+1)+1; Lsymbol_value(); vs_top=sup; - V84= vs_base[0]; - (void)(prin1(V84,Cnil)); + V76= vs_base[0]; + (void)(prin1(V76,Cnil)); goto T80; T80:; - {object V85 = terpri(Cnil); - VMR7(V85)} - base[0]=base[0]; - return Cnil; + base[1]= terpri(Cnil); + vs_top=(vs_base=base+1)+1; + return; + } } /* function definition for APROPOS */ @@ -439,134 +454,134 @@ {register object *base=vs_base; register object *sup=base+VM8; VC8 vs_reserve(VM8); - {object V86; - object V87; + {object V77; + object V78; if(vs_top-vs_base<1) too_few_arguments(); if(vs_top-vs_base>2) too_many_arguments(); - V86=(base[0]); + V77=(base[0]); vs_base=vs_base+1; if(vs_base>=vs_top){vs_top=sup;goto T91;} - V87=(base[1]); + V78=(base[1]); vs_top=sup; goto T92; goto T91; T91:; - V87= Cnil; + V78= Cnil; goto T92; T92:; - V86= coerce_to_string((V86)); - if(((V87))==Cnil){ + V77= coerce_to_string((V77)); + if(((V78))==Cnil){ goto T98;} - {object V88; - object V89; - register object V90; - base[2]= V87; + {object V79; + object V80; + register object V81; + base[2]= V78; vs_top=(vs_base=base+2)+1; Lpackagep(); vs_top=sup; if((vs_base[0])==Cnil){ goto T103;} - V88= V87; + V79= V78; goto T101; goto T103; T103:; - base[2]= coerce_to_string(V87); + base[2]= coerce_to_string(V78); vs_top=(vs_base=base+2)+1; Lfind_package(); vs_top=sup; - V88= vs_base[0]; + V79= vs_base[0]; goto T101; T101:; - V89= Cnil; - V90= Cnil; - {object V92; - object V93; - base[4]= (V88); + V80= Cnil; + V81= Cnil; + {object V83; + object V84; + base[4]= (V79); vs_top=(vs_base=base+4)+1; Lpackage_use_list(); vs_top=sup; - V94= vs_base[0]; - V92= make_cons((V88),V94); - V93= car((V92)); + V85= vs_base[0]; + V83= make_cons((V79),V85); + V84= car((V83)); goto T112; T112:; - if(!(endp_prop((V92)))){ + if(!(endp_prop((V83)))){ goto T113;} - V89= Cnil; + V80= Cnil; goto T100; goto T113; T113:; - {long V95; - long V96; - base[4]= (V93); + {long V86; + long V87; + base[4]= (V84); vs_top=(vs_base=base+4)+1; (void) (*Lnk15)(); if(vs_base>=vs_top){vs_top=sup;goto T122;} - V95= fix(vs_base[0]); + V86= fix(vs_base[0]); vs_base++; if(vs_base>=vs_top){vs_top=sup;goto T123;} - V96= fix(vs_base[0]); + V87= fix(vs_base[0]); vs_top=sup; goto T124; goto T122; T122:; - V95= fix(Cnil); + V86= fix(Cnil); goto T123; T123:; - V96= fix(Cnil); + V87= fix(Cnil); goto T124; T124:; - if(((V88))==((V93))){ + if(((V79))==((V84))){ goto T125;} - V96= 0; + V87= 0; goto T125; T125:; - {object V97; - object V98; - V99 = make_fixnum(V96); - V100 = make_fixnum(V95); - V97= number_plus(V99,V100); - V98= small_fixnum(0); + {object V88; + object V89; + V90 = make_fixnum(V87); + V91 = make_fixnum(V86); + V88= number_plus(V90,V91); + V89= small_fixnum(0); goto T132; T132:; - if(!(number_compare((V98),(V97))>=0)){ + if(!(number_compare((V89),(V88))>=0)){ goto T133;} goto T119; goto T133; T133:; - V101 = make_fixnum(V96); - if(!(number_compare((V98),V101)<0)){ + V92 = make_fixnum(V87); + if(!(number_compare((V89),V92)<0)){ goto T142;} - base[5]= (V93); - base[6]= (V98); + base[5]= (V84); + base[6]= (V89); vs_top=(vs_base=base+5)+2; siLpackage_internal(); vs_top=sup; - V90= vs_base[0]; + V81= vs_base[0]; goto T140; goto T142; T142:; - base[5]= (V93); - V102 = make_fixnum(V96); - base[6]= number_minus((V98),V102); + base[5]= (V84); + V93 = make_fixnum(V87); + base[6]= number_minus((V89),V93); vs_top=(vs_base=base+5)+2; siLpackage_external(); vs_top=sup; - V90= vs_base[0]; + V81= vs_base[0]; goto T140; T140:; goto T138; T138:; - if(((V90))!=Cnil){ + if(((V81))!=Cnil){ goto T148;} goto T139; goto T148; T148:; - V89= car((V90)); - if(((V93))==((V88))){ + V80= car((V81)); + if(((V84))==((V79))){ goto T154;} - base[6]= symbol_name((V89)); - base[7]= (V88); + base[6]= symbol_name((V80)); + base[7]= (V79); vs_top=(vs_base=base+6)+2; Lfind_symbol(); Llist(); @@ -575,247 +590,261 @@ vs_top=(vs_base=base+5)+1; Llast(); vs_top=sup; - V103= vs_base[0]; - if(!((VV[31])==(car(V103)))){ + V94= vs_base[0]; + if(!((VV[31])==(car(V94)))){ goto T153;} goto T154; T154:; - V104= coerce_to_string((V89)); - if(((*(LnkLI60))((V86),/* INLINE-ARGS */V104))==Cnil){ + base[5]= (V77); + base[6]= coerce_to_string((V80)); + vs_top=(vs_base=base+5)+2; + (void) (*Lnk60)(); + vs_top=sup; + if((vs_base[0])==Cnil){ goto T163;} - (void)((*(LnkLI61))((V89))); + base[5]= (V80); + vs_top=(vs_base=base+5)+1; + (void) (*Lnk61)(); + vs_top=sup; goto T163; T163:; goto T153; T153:; - V90= cdr((V90)); + V81= cdr((V81)); goto T138; goto T139; T139:; goto T136; goto T136; T136:; - V98= one_plus((V98)); + V89= one_plus((V89)); goto T132;}} goto T119; T119:; - V92= cdr((V92)); - V93= car((V92)); + V83= cdr((V83)); + V84= car((V83)); goto T112;}} goto T100; T100:; - {object V105; - base[2]= (V87); + {object V95; + base[2]= (V78); vs_top=(vs_base=base+2)+1; Lpackage_use_list(); vs_top=sup; - V105= vs_base[0]; -goto T179; -T179:; - if(((V105))!=Cnil){ - goto T180;} + V95= vs_base[0]; +goto T182; +T182:; + if(((V95))!=Cnil){ + goto T183;} goto T96; -goto T180; -T180:; - {object V106; - object V107; - register object V108; - {object V109; - V109= car((V105)); - base[2]= (V109); +goto T183; +T183:; + {object V96; + object V97; + register object V98; + {object V99; + V99= car((V95)); + base[2]= (V99); vs_top=(vs_base=base+2)+1; Lpackagep(); vs_top=sup; if((vs_base[0])==Cnil){ - goto T188;} - V106= (V109); - goto T185; -goto T188; -T188:; - base[2]= coerce_to_string((V109)); + goto T191;} + V96= (V99); + goto T188; +goto T191; +T191:; + base[2]= coerce_to_string((V99)); vs_top=(vs_base=base+2)+1; Lfind_package(); vs_top=sup; - V106= vs_base[0];} -goto T185; -T185:; - V107= Cnil; - V108= Cnil; - {object V110; - object V111; - base[3]= (V106); + V96= vs_base[0];} +goto T188; +T188:; + V97= Cnil; + V98= Cnil; + {object V100; + object V101; + base[3]= (V96); vs_top=(vs_base=base+3)+1; (void) (*Lnk15)(); vs_top=sup; - V110= vs_base[0]; - V111= small_fixnum(0); -goto T196; -T196:; - if(!(number_compare((V111),(V110))>=0)){ - goto T197;} - V107= Cnil; - goto T184; -goto T197; -T197:; - base[3]= (V106); - base[4]= (V111); + V100= vs_base[0]; + V101= small_fixnum(0); +goto T199; +T199:; + if(!(number_compare((V101),(V100))>=0)){ + goto T200;} + V97= Cnil; + goto T187; +goto T200; +T200:; + base[3]= (V96); + base[4]= (V101); vs_top=(vs_base=base+3)+2; siLpackage_external(); vs_top=sup; - V108= vs_base[0]; -goto T204; -T204:; - if(((V108))!=Cnil){ - goto T209;} + V98= vs_base[0]; +goto T207; +T207:; + if(((V98))!=Cnil){ + goto T212;} + goto T208; +goto T212; +T212:; + V97= car((V98)); + base[3]= (V77); + base[4]= coerce_to_string((V97)); + vs_top=(vs_base=base+3)+2; + (void) (*Lnk60)(); + vs_top=sup; + if((vs_base[0])==Cnil){ + goto T217;} + base[3]= (V97); + vs_top=(vs_base=base+3)+1; + (void) (*Lnk61)(); + vs_top=sup; +goto T217; +T217:; + V98= cdr((V98)); + goto T207; +goto T208; +T208:; goto T205; -goto T209; -T209:; - V107= car((V108)); - V112= coerce_to_string((V107)); - if(((*(LnkLI60))((V86),/* INLINE-ARGS */V112))==Cnil){ - goto T214;} - (void)((*(LnkLI61))((V107))); -goto T214; -T214:; - V108= cdr((V108)); - goto T204; goto T205; T205:; - goto T202; -goto T202; -T202:; - V111= one_plus((V111)); - goto T196;}} -goto T184; -T184:; - V105= cdr((V105)); - goto T179;} + V101= one_plus((V101)); + goto T199;}} +goto T187; +T187:; + V95= cdr((V95)); + goto T182;} goto T98; T98:; - {object V113; - object V114; + {object V102; + object V103; vs_base=vs_top; Llist_all_packages(); vs_top=sup; - V113= vs_base[0]; - V114= car((V113)); -goto T228; -T228:; - if(!(endp_prop((V113)))){ - goto T229;} + V102= vs_base[0]; + V103= car((V102)); +goto T234; +T234:; + if(!(endp_prop((V102)))){ + goto T235;} goto T96; -goto T229; -T229:; - {object V115; - register object V116; - register object V117; - base[4]= V114; +goto T235; +T235:; + {object V104; + register object V105; + register object V106; + base[4]= V103; vs_top=(vs_base=base+4)+1; Lpackagep(); vs_top=sup; if((vs_base[0])==Cnil){ - goto T236;} - V115= V114; - goto T234; -goto T236; -T236:; - base[4]= coerce_to_string(V114); + goto T242;} + V104= V103; + goto T240; +goto T242; +T242:; + base[4]= coerce_to_string(V103); vs_top=(vs_base=base+4)+1; Lfind_package(); vs_top=sup; - V115= vs_base[0]; -goto T234; -T234:; - V116= Cnil; - V117= Cnil; - {object V119; - register object V120; - base[6]= (V115); + V104= vs_base[0]; +goto T240; +T240:; + V105= Cnil; + V106= Cnil; + {object V108; + register object V109; + base[6]= (V104); vs_top=(vs_base=base+6)+1; Lpackage_use_list(); vs_top=sup; - V121= vs_base[0]; - V119= make_cons((V115),V121); - V120= car((V119)); -goto T245; -T245:; - if(!(endp_prop((V119)))){ - goto T246;} - V116= Cnil; - goto T233; -goto T246; -T246:; - {long V122; - long V123; - base[6]= (V120); + V110= vs_base[0]; + V108= make_cons((V104),V110); + V109= car((V108)); +goto T251; +T251:; + if(!(endp_prop((V108)))){ + goto T252;} + V105= Cnil; + goto T239; +goto T252; +T252:; + {long V111; + long V112; + base[6]= (V109); vs_top=(vs_base=base+6)+1; (void) (*Lnk15)(); - if(vs_base>=vs_top){vs_top=sup;goto T255;} - V122= fix(vs_base[0]); + if(vs_base>=vs_top){vs_top=sup;goto T261;} + V111= fix(vs_base[0]); vs_base++; - if(vs_base>=vs_top){vs_top=sup;goto T256;} - V123= fix(vs_base[0]); + if(vs_base>=vs_top){vs_top=sup;goto T262;} + V112= fix(vs_base[0]); vs_top=sup; - goto T257; -goto T255; -T255:; - V122= fix(Cnil); -goto T256; -T256:; - V123= fix(Cnil); -goto T257; -T257:; - if(((V115))==((V120))){ - goto T258;} - V123= 0; -goto T258; -T258:; - {object V124; - register object V125; - V126 = make_fixnum(V123); - V127 = make_fixnum(V122); - V124= number_plus(V126,V127); - V125= small_fixnum(0); -goto T265; -T265:; - if(!(number_compare((V125),(V124))>=0)){ - goto T266;} - goto T252; -goto T266; -T266:; - V128 = make_fixnum(V123); - if(!(number_compare((V125),V128)<0)){ - goto T275;} - base[7]= (V120); - base[8]= (V125); + goto T263; +goto T261; +T261:; + V111= fix(Cnil); +goto T262; +T262:; + V112= fix(Cnil); +goto T263; +T263:; + if(((V104))==((V109))){ + goto T264;} + V112= 0; +goto T264; +T264:; + {object V113; + register object V114; + V115 = make_fixnum(V112); + V116 = make_fixnum(V111); + V113= number_plus(V115,V116); + V114= small_fixnum(0); +goto T271; +T271:; + if(!(number_compare((V114),(V113))>=0)){ + goto T272;} + goto T258; +goto T272; +T272:; + V117 = make_fixnum(V112); + if(!(number_compare((V114),V117)<0)){ + goto T281;} + base[7]= (V109); + base[8]= (V114); vs_top=(vs_base=base+7)+2; siLpackage_internal(); vs_top=sup; - V117= vs_base[0]; - goto T273; -goto T275; -T275:; - base[7]= (V120); - V129 = make_fixnum(V123); - base[8]= number_minus((V125),V129); + V106= vs_base[0]; + goto T279; +goto T281; +T281:; + base[7]= (V109); + V118 = make_fixnum(V112); + base[8]= number_minus((V114),V118); vs_top=(vs_base=base+7)+2; siLpackage_external(); vs_top=sup; - V117= vs_base[0]; -goto T273; -T273:; -goto T271; -T271:; - if(((V117))!=Cnil){ - goto T281;} - goto T272; -goto T281; -T281:; - V116= car((V117)); - if(((V120))==((V115))){ + V106= vs_base[0]; +goto T279; +T279:; +goto T277; +T277:; + if(((V106))!=Cnil){ goto T287;} - base[8]= symbol_name((V116)); - base[9]= (V115); + goto T278; +goto T287; +T287:; + V105= car((V106)); + if(((V109))==((V104))){ + goto T293;} + base[8]= symbol_name((V105)); + base[9]= (V104); vs_top=(vs_base=base+8)+2; Lfind_symbol(); Llist(); @@ -824,38 +853,45 @@ vs_top=(vs_base=base+7)+1; Llast(); vs_top=sup; - V130= vs_base[0]; - if(!((VV[31])==(car(V130)))){ - goto T286;} -goto T287; -T287:; - V131= coerce_to_string((V116)); - if(((*(LnkLI60))((V86),/* INLINE-ARGS */V131))==Cnil){ - goto T297;} - (void)((*(LnkLI61))((V116))); -goto T297; -T297:; -goto T286; -T286:; - V117= cdr((V117)); - goto T271; -goto T272; -T272:; - goto T269; -goto T269; -T269:; - V125= one_plus((V125)); - goto T265;}} -goto T252; -T252:; - V119= cdr((V119)); - V120= car((V119)); - goto T245;}} -goto T233; -T233:; - V113= cdr((V113)); - V114= car((V113)); - goto T228;} + V119= vs_base[0]; + if(!((VV[31])==(car(V119)))){ + goto T292;} +goto T293; +T293:; + base[7]= (V77); + base[8]= coerce_to_string((V105)); + vs_top=(vs_base=base+7)+2; + (void) (*Lnk60)(); + vs_top=sup; + if((vs_base[0])==Cnil){ + goto T303;} + base[7]= (V105); + vs_top=(vs_base=base+7)+1; + (void) (*Lnk61)(); + vs_top=sup; +goto T303; +T303:; +goto T292; +T292:; + V106= cdr((V106)); + goto T277; +goto T278; +T278:; + goto T275; +goto T275; +T275:; + V114= one_plus((V114)); + goto T271;}} +goto T258; +T258:; + V108= cdr((V108)); + V109= car((V108)); + goto T251;}} +goto T239; +T239:; + V102= cdr((V102)); + V103= car((V102)); + goto T234;} goto T96; T96:; vs_base=vs_top=base+2; @@ -863,521 +899,529 @@ return; } } -/* local entry for function APROPOS-LIST */ +/* function definition for APROPOS-LIST */ -static object LI9(V132,va_alist) - object V132; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB9 VMS9 VMV9 - {object V133; - object V134; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <1) too_few_arguments(); - V133= V132; - narg = narg - 1; - if (narg <= 0) goto T315; - else { - V134= va_arg(ap,object);} - --narg; goto T316; -goto T315; -T315:; - V134= Cnil; -goto T316; -T316:; - {register object V135; - V135= Cnil; - V135= Cnil; - V133= coerce_to_string((V133)); - if(((V134))==Cnil){ - goto T325;} - {object V136; - object V137; - object V138; - base[0]= V134; - vs_top=(vs_base=base+0)+1; +static void L9() +{register object *base=vs_base; + register object *sup=base+VM9; VC9 + vs_reserve(VM9); + {object V120; + object V121; + if(vs_top-vs_base<1) too_few_arguments(); + if(vs_top-vs_base>2) too_many_arguments(); + V120=(base[0]); + vs_base=vs_base+1; + if(vs_base>=vs_top){vs_top=sup;goto T324;} + V121=(base[1]); + vs_top=sup; + goto T325; +goto T324; +T324:; + V121= Cnil; +goto T325; +T325:; + {register object V122; + V122= Cnil; + V122= Cnil; + V120= coerce_to_string((V120)); + if(((V121))==Cnil){ + goto T334;} + {object V123; + object V124; + object V125; + base[2]= V121; + vs_top=(vs_base=base+2)+1; Lpackagep(); vs_top=sup; if((vs_base[0])==Cnil){ - goto T330;} - V136= V134; - goto T328; -goto T330; -T330:; - base[0]= coerce_to_string(V134); - vs_top=(vs_base=base+0)+1; + goto T339;} + V123= V121; + goto T337; +goto T339; +T339:; + base[2]= coerce_to_string(V121); + vs_top=(vs_base=base+2)+1; Lfind_package(); vs_top=sup; - V136= vs_base[0]; -goto T328; -T328:; - V137= Cnil; - V138= Cnil; - {object V140; - object V141; - base[2]= (V136); - vs_top=(vs_base=base+2)+1; + V123= vs_base[0]; +goto T337; +T337:; + V124= Cnil; + V125= Cnil; + {object V127; + object V128; + base[4]= (V123); + vs_top=(vs_base=base+4)+1; Lpackage_use_list(); vs_top=sup; - V142= vs_base[0]; - V140= make_cons((V136),V142); - V141= car((V140)); -goto T339; -T339:; - if(!(endp_prop((V140)))){ - goto T340;} - V137= Cnil; - goto T327; -goto T340; -T340:; - {long V143; - long V144; - base[2]= (V141); - vs_top=(vs_base=base+2)+1; + V129= vs_base[0]; + V127= make_cons((V123),V129); + V128= car((V127)); +goto T348; +T348:; + if(!(endp_prop((V127)))){ + goto T349;} + V124= Cnil; + goto T336; +goto T349; +T349:; + {long V130; + long V131; + base[4]= (V128); + vs_top=(vs_base=base+4)+1; (void) (*Lnk15)(); - if(vs_base>=vs_top){vs_top=sup;goto T349;} - V143= fix(vs_base[0]); + if(vs_base>=vs_top){vs_top=sup;goto T358;} + V130= fix(vs_base[0]); vs_base++; - if(vs_base>=vs_top){vs_top=sup;goto T350;} - V144= fix(vs_base[0]); + if(vs_base>=vs_top){vs_top=sup;goto T359;} + V131= fix(vs_base[0]); vs_top=sup; - goto T351; -goto T349; -T349:; - V143= fix(Cnil); -goto T350; -T350:; - V144= fix(Cnil); -goto T351; -T351:; - if(((V136))==((V141))){ - goto T352;} - V144= 0; -goto T352; -T352:; - {object V145; - object V146; - V147 = make_fixnum(V144); - V148 = make_fixnum(V143); - V145= number_plus(V147,V148); - V146= small_fixnum(0); + goto T360; +goto T358; +T358:; + V130= fix(Cnil); goto T359; T359:; - if(!(number_compare((V146),(V145))>=0)){ - goto T360;} - goto T346; + V131= fix(Cnil); goto T360; T360:; - V149 = make_fixnum(V144); - if(!(number_compare((V146),V149)<0)){ + if(((V123))==((V128))){ + goto T361;} + V131= 0; +goto T361; +T361:; + {object V132; + object V133; + V134 = make_fixnum(V131); + V135 = make_fixnum(V130); + V132= number_plus(V134,V135); + V133= small_fixnum(0); +goto T368; +T368:; + if(!(number_compare((V133),(V132))>=0)){ goto T369;} - base[3]= (V141); - base[4]= (V146); - vs_top=(vs_base=base+3)+2; - siLpackage_internal(); - vs_top=sup; - V138= vs_base[0]; - goto T367; + goto T355; goto T369; T369:; - base[3]= (V141); - V150 = make_fixnum(V144); - base[4]= number_minus((V146),V150); - vs_top=(vs_base=base+3)+2; + V136 = make_fixnum(V131); + if(!(number_compare((V133),V136)<0)){ + goto T378;} + base[5]= (V128); + base[6]= (V133); + vs_top=(vs_base=base+5)+2; + siLpackage_internal(); + vs_top=sup; + V125= vs_base[0]; + goto T376; +goto T378; +T378:; + base[5]= (V128); + V137 = make_fixnum(V131); + base[6]= number_minus((V133),V137); + vs_top=(vs_base=base+5)+2; siLpackage_external(); vs_top=sup; - V138= vs_base[0]; -goto T367; -T367:; -goto T365; -T365:; - if(((V138))!=Cnil){ - goto T375;} - goto T366; -goto T375; -T375:; - V137= car((V138)); - if(((V141))==((V136))){ - goto T381;} - base[4]= symbol_name((V137)); - base[5]= (V136); - vs_top=(vs_base=base+4)+2; + V125= vs_base[0]; +goto T376; +T376:; +goto T374; +T374:; + if(((V125))!=Cnil){ + goto T384;} + goto T375; +goto T384; +T384:; + V124= car((V125)); + if(((V128))==((V123))){ + goto T390;} + base[6]= symbol_name((V124)); + base[7]= (V123); + vs_top=(vs_base=base+6)+2; Lfind_symbol(); Llist(); vs_top=sup; - base[3]= vs_base[0]; - vs_top=(vs_base=base+3)+1; + base[5]= vs_base[0]; + vs_top=(vs_base=base+5)+1; Llast(); vs_top=sup; - V151= vs_base[0]; - if(!((VV[31])==(car(V151)))){ - goto T380;} -goto T381; -T381:; - V152= coerce_to_string((V137)); - if(((*(LnkLI60))((V133),/* INLINE-ARGS */V152))==Cnil){ - goto T390;} - V135= make_cons((V137),(V135)); + V138= vs_base[0]; + if(!((VV[31])==(car(V138)))){ + goto T389;} goto T390; T390:; -goto T380; -T380:; - V138= cdr((V138)); - goto T365; -goto T366; -T366:; - goto T363; -goto T363; -T363:; - V146= one_plus((V146)); - goto T359;}} -goto T346; -T346:; - V140= cdr((V140)); - V141= car((V140)); - goto T339;}} -goto T327; -T327:; - {object V153; - base[0]= (V134); - vs_top=(vs_base=base+0)+1; + base[5]= (V120); + base[6]= coerce_to_string((V124)); + vs_top=(vs_base=base+5)+2; + (void) (*Lnk60)(); + vs_top=sup; + if((vs_base[0])==Cnil){ + goto T399;} + V122= make_cons((V124),(V122)); +goto T399; +T399:; +goto T389; +T389:; + V125= cdr((V125)); + goto T374; +goto T375; +T375:; + goto T372; +goto T372; +T372:; + V133= one_plus((V133)); + goto T368;}} +goto T355; +T355:; + V127= cdr((V127)); + V128= car((V127)); + goto T348;}} +goto T336; +T336:; + {object V139; + base[2]= (V121); + vs_top=(vs_base=base+2)+1; Lpackage_use_list(); vs_top=sup; - V153= vs_base[0]; -goto T407; -T407:; - if(((V153))!=Cnil){ - goto T408;} - goto T323; -goto T408; -T408:; - {object V154; - register object V155; - register object V156; - {object V157; - V157= car((V153)); - base[0]= (V157); - vs_top=(vs_base=base+0)+1; + V139= vs_base[0]; +goto T418; +T418:; + if(((V139))!=Cnil){ + goto T419;} + goto T332; +goto T419; +T419:; + {object V140; + register object V141; + register object V142; + {object V143; + V143= car((V139)); + base[2]= (V143); + vs_top=(vs_base=base+2)+1; Lpackagep(); vs_top=sup; if((vs_base[0])==Cnil){ - goto T416;} - V154= (V157); - goto T413; -goto T416; -T416:; - base[0]= coerce_to_string((V157)); - vs_top=(vs_base=base+0)+1; + goto T427;} + V140= (V143); + goto T424; +goto T427; +T427:; + base[2]= coerce_to_string((V143)); + vs_top=(vs_base=base+2)+1; Lfind_package(); vs_top=sup; - V154= vs_base[0];} -goto T413; -T413:; - V155= Cnil; - V156= Cnil; - {object V158; - object V159; - base[2]= (V154); - vs_top=(vs_base=base+2)+1; + V140= vs_base[0];} +goto T424; +T424:; + V141= Cnil; + V142= Cnil; + {object V144; + object V145; + base[4]= (V140); + vs_top=(vs_base=base+4)+1; Lpackage_use_list(); vs_top=sup; - V160= vs_base[0]; - V158= make_cons((V154),V160); - V159= car((V158)); -goto T425; -T425:; - if(!(endp_prop((V158)))){ - goto T426;} - V155= Cnil; - goto T412; -goto T426; -T426:; - {long V161; - long V162; - base[2]= (V159); - vs_top=(vs_base=base+2)+1; - (void) (*Lnk15)(); - if(vs_base>=vs_top){vs_top=sup;goto T435;} - V161= fix(vs_base[0]); - vs_base++; - if(vs_base>=vs_top){vs_top=sup;goto T436;} - V162= fix(vs_base[0]); - vs_top=sup; - goto T437; -goto T435; -T435:; - V161= fix(Cnil); + V146= vs_base[0]; + V144= make_cons((V140),V146); + V145= car((V144)); goto T436; T436:; - V162= fix(Cnil); + if(!(endp_prop((V144)))){ + goto T437;} + V141= Cnil; + goto T423; goto T437; T437:; - if(((V154))==((V159))){ - goto T438;} - V162= 0; -goto T438; -T438:; - {object V163; - register object V164; - V165 = make_fixnum(V162); - V166 = make_fixnum(V161); - V163= number_plus(V165,V166); - V164= small_fixnum(0); -goto T445; -T445:; - if(!(number_compare((V164),(V163))>=0)){ - goto T446;} - goto T432; + {long V147; + long V148; + base[4]= (V145); + vs_top=(vs_base=base+4)+1; + (void) (*Lnk15)(); + if(vs_base>=vs_top){vs_top=sup;goto T446;} + V147= fix(vs_base[0]); + vs_base++; + if(vs_base>=vs_top){vs_top=sup;goto T447;} + V148= fix(vs_base[0]); + vs_top=sup; + goto T448; goto T446; T446:; - V167 = make_fixnum(V162); - if(!(number_compare((V164),V167)<0)){ - goto T455;} - base[3]= (V159); - base[4]= (V164); - vs_top=(vs_base=base+3)+2; + V147= fix(Cnil); +goto T447; +T447:; + V148= fix(Cnil); +goto T448; +T448:; + if(((V140))==((V145))){ + goto T449;} + V148= 0; +goto T449; +T449:; + {object V149; + register object V150; + V151 = make_fixnum(V148); + V152 = make_fixnum(V147); + V149= number_plus(V151,V152); + V150= small_fixnum(0); +goto T456; +T456:; + if(!(number_compare((V150),(V149))>=0)){ + goto T457;} + goto T443; +goto T457; +T457:; + V153 = make_fixnum(V148); + if(!(number_compare((V150),V153)<0)){ + goto T466;} + base[5]= (V145); + base[6]= (V150); + vs_top=(vs_base=base+5)+2; siLpackage_internal(); vs_top=sup; - V156= vs_base[0]; - goto T453; -goto T455; -T455:; - base[3]= (V159); - V168 = make_fixnum(V162); - base[4]= number_minus((V164),V168); - vs_top=(vs_base=base+3)+2; + V142= vs_base[0]; + goto T464; +goto T466; +T466:; + base[5]= (V145); + V154 = make_fixnum(V148); + base[6]= number_minus((V150),V154); + vs_top=(vs_base=base+5)+2; siLpackage_external(); vs_top=sup; - V156= vs_base[0]; -goto T453; -T453:; -goto T451; -T451:; - if(((V156))!=Cnil){ - goto T461;} - goto T452; -goto T461; -T461:; - V155= car((V156)); - if(((V159))==((V154))){ - goto T467;} - base[4]= symbol_name((V155)); - base[5]= (V154); - vs_top=(vs_base=base+4)+2; + V142= vs_base[0]; +goto T464; +T464:; +goto T462; +T462:; + if(((V142))!=Cnil){ + goto T472;} + goto T463; +goto T472; +T472:; + V141= car((V142)); + if(((V145))==((V140))){ + goto T478;} + base[6]= symbol_name((V141)); + base[7]= (V140); + vs_top=(vs_base=base+6)+2; Lfind_symbol(); Llist(); vs_top=sup; - base[3]= vs_base[0]; - vs_top=(vs_base=base+3)+1; + base[5]= vs_base[0]; + vs_top=(vs_base=base+5)+1; Llast(); vs_top=sup; - V169= vs_base[0]; - if(!((VV[31])==(car(V169)))){ - goto T466;} -goto T467; -T467:; - V170= coerce_to_string((V155)); - if(((*(LnkLI60))((V133),/* INLINE-ARGS */V170))==Cnil){ - goto T476;} - V135= make_cons((V155),(V135)); -goto T476; -T476:; -goto T466; -T466:; - V156= cdr((V156)); - goto T451; -goto T452; -T452:; - goto T449; -goto T449; -T449:; - V164= one_plus((V164)); - goto T445;}} -goto T432; -T432:; - V158= cdr((V158)); - V159= car((V158)); - goto T425;}} -goto T412; -T412:; - V153= cdr((V153)); - goto T407;} -goto T325; -T325:; - {object V171; - object V172; + V155= vs_base[0]; + if(!((VV[31])==(car(V155)))){ + goto T477;} +goto T478; +T478:; + base[5]= (V120); + base[6]= coerce_to_string((V141)); + vs_top=(vs_base=base+5)+2; + (void) (*Lnk60)(); + vs_top=sup; + if((vs_base[0])==Cnil){ + goto T487;} + V122= make_cons((V141),(V122)); +goto T487; +T487:; +goto T477; +T477:; + V142= cdr((V142)); + goto T462; +goto T463; +T463:; + goto T460; +goto T460; +T460:; + V150= one_plus((V150)); + goto T456;}} +goto T443; +T443:; + V144= cdr((V144)); + V145= car((V144)); + goto T436;}} +goto T423; +T423:; + V139= cdr((V139)); + goto T418;} +goto T334; +T334:; + {object V156; + object V157; vs_base=vs_top; Llist_all_packages(); vs_top=sup; - V171= vs_base[0]; - V172= car((V171)); -goto T496; -T496:; - if(!(endp_prop((V171)))){ - goto T497;} - goto T323; -goto T497; -T497:; - {object V173; - register object V174; - register object V175; - base[2]= V172; - vs_top=(vs_base=base+2)+1; + V156= vs_base[0]; + V157= car((V156)); +goto T509; +T509:; + if(!(endp_prop((V156)))){ + goto T510;} + goto T332; +goto T510; +T510:; + {object V158; + register object V159; + register object V160; + base[4]= V157; + vs_top=(vs_base=base+4)+1; Lpackagep(); vs_top=sup; if((vs_base[0])==Cnil){ - goto T504;} - V173= V172; - goto T502; -goto T504; -T504:; - base[2]= coerce_to_string(V172); - vs_top=(vs_base=base+2)+1; + goto T517;} + V158= V157; + goto T515; +goto T517; +T517:; + base[4]= coerce_to_string(V157); + vs_top=(vs_base=base+4)+1; Lfind_package(); vs_top=sup; - V173= vs_base[0]; -goto T502; -T502:; - V174= Cnil; - V175= Cnil; - {object V177; - object V178; - base[4]= (V173); - vs_top=(vs_base=base+4)+1; + V158= vs_base[0]; +goto T515; +T515:; + V159= Cnil; + V160= Cnil; + {object V162; + object V163; + base[6]= (V158); + vs_top=(vs_base=base+6)+1; Lpackage_use_list(); vs_top=sup; - V179= vs_base[0]; - V177= make_cons((V173),V179); - V178= car((V177)); -goto T513; -T513:; - if(!(endp_prop((V177)))){ - goto T514;} - V174= Cnil; - goto T501; -goto T514; -T514:; - {long V180; - long V181; - base[4]= (V178); - vs_top=(vs_base=base+4)+1; + V164= vs_base[0]; + V162= make_cons((V158),V164); + V163= car((V162)); +goto T526; +T526:; + if(!(endp_prop((V162)))){ + goto T527;} + V159= Cnil; + goto T514; +goto T527; +T527:; + {long V165; + long V166; + base[6]= (V163); + vs_top=(vs_base=base+6)+1; (void) (*Lnk15)(); - if(vs_base>=vs_top){vs_top=sup;goto T523;} - V180= fix(vs_base[0]); + if(vs_base>=vs_top){vs_top=sup;goto T536;} + V165= fix(vs_base[0]); vs_base++; - if(vs_base>=vs_top){vs_top=sup;goto T524;} - V181= fix(vs_base[0]); + if(vs_base>=vs_top){vs_top=sup;goto T537;} + V166= fix(vs_base[0]); vs_top=sup; - goto T525; -goto T523; -T523:; - V180= fix(Cnil); -goto T524; -T524:; - V181= fix(Cnil); -goto T525; -T525:; - if(((V173))==((V178))){ - goto T526;} - V181= 0; -goto T526; -T526:; - {object V182; - register object V183; - V184 = make_fixnum(V181); - V185 = make_fixnum(V180); - V182= number_plus(V184,V185); - V183= small_fixnum(0); -goto T533; -T533:; - if(!(number_compare((V183),(V182))>=0)){ - goto T534;} - goto T520; -goto T534; -T534:; - V186 = make_fixnum(V181); - if(!(number_compare((V183),V186)<0)){ - goto T543;} - base[5]= (V178); - base[6]= (V183); - vs_top=(vs_base=base+5)+2; + goto T538; +goto T536; +T536:; + V165= fix(Cnil); +goto T537; +T537:; + V166= fix(Cnil); +goto T538; +T538:; + if(((V158))==((V163))){ + goto T539;} + V166= 0; +goto T539; +T539:; + {object V167; + register object V168; + V169 = make_fixnum(V166); + V170 = make_fixnum(V165); + V167= number_plus(V169,V170); + V168= small_fixnum(0); +goto T546; +T546:; + if(!(number_compare((V168),(V167))>=0)){ + goto T547;} + goto T533; +goto T547; +T547:; + V171 = make_fixnum(V166); + if(!(number_compare((V168),V171)<0)){ + goto T556;} + base[7]= (V163); + base[8]= (V168); + vs_top=(vs_base=base+7)+2; siLpackage_internal(); vs_top=sup; - V175= vs_base[0]; - goto T541; -goto T543; -T543:; - base[5]= (V178); - V187 = make_fixnum(V181); - base[6]= number_minus((V183),V187); - vs_top=(vs_base=base+5)+2; + V160= vs_base[0]; + goto T554; +goto T556; +T556:; + base[7]= (V163); + V172 = make_fixnum(V166); + base[8]= number_minus((V168),V172); + vs_top=(vs_base=base+7)+2; siLpackage_external(); vs_top=sup; - V175= vs_base[0]; -goto T541; -T541:; -goto T539; -T539:; - if(((V175))!=Cnil){ - goto T549;} - goto T540; -goto T549; -T549:; - V174= car((V175)); - if(((V178))==((V173))){ - goto T555;} - base[6]= symbol_name((V174)); - base[7]= (V173); - vs_top=(vs_base=base+6)+2; + V160= vs_base[0]; +goto T554; +T554:; +goto T552; +T552:; + if(((V160))!=Cnil){ + goto T562;} + goto T553; +goto T562; +T562:; + V159= car((V160)); + if(((V163))==((V158))){ + goto T568;} + base[8]= symbol_name((V159)); + base[9]= (V158); + vs_top=(vs_base=base+8)+2; Lfind_symbol(); Llist(); vs_top=sup; - base[5]= vs_base[0]; - vs_top=(vs_base=base+5)+1; + base[7]= vs_base[0]; + vs_top=(vs_base=base+7)+1; Llast(); vs_top=sup; - V188= vs_base[0]; - if(!((VV[31])==(car(V188)))){ - goto T554;} -goto T555; -T555:; - V189= coerce_to_string((V174)); - if(((*(LnkLI60))((V133),/* INLINE-ARGS */V189))==Cnil){ - goto T565;} - V135= make_cons((V174),(V135)); -goto T565; -T565:; -goto T554; -T554:; - V175= cdr((V175)); - goto T539; -goto T540; -T540:; - goto T537; -goto T537; -T537:; - V183= one_plus((V183)); - goto T533;}} -goto T520; -T520:; - V177= cdr((V177)); - V178= car((V177)); - goto T513;}} -goto T501; -T501:; - V171= cdr((V171)); - V172= car((V171)); - goto T496;} -goto T323; -T323:; - {object V190 = (V135); - VMR9(V190)}} - va_end(ap); - base[0]=base[0]; - return Cnil;} + V173= vs_base[0]; + if(!((VV[31])==(car(V173)))){ + goto T567;} +goto T568; +T568:; + base[7]= (V120); + base[8]= coerce_to_string((V159)); + vs_top=(vs_base=base+7)+2; + (void) (*Lnk60)(); + vs_top=sup; + if((vs_base[0])==Cnil){ + goto T578;} + V122= make_cons((V159),(V122)); +goto T578; +T578:; +goto T567; +T567:; + V160= cdr((V160)); + goto T552; +goto T553; +T553:; + goto T550; +goto T550; +T550:; + V168= one_plus((V168)); + goto T546;}} +goto T533; +T533:; + V162= cdr((V162)); + V163= car((V162)); + goto T526;}} +goto T514; +T514:; + V156= cdr((V156)); + V157= car((V156)); + goto T509;} +goto T332; +T332:; + base[2]= (V122); + vs_top=(vs_base=base+2)+1; + return;} } +} /* macro definition for WITH-PACKAGE-ITERATOR */ static void L10() @@ -1386,137 +1430,137 @@ vs_reserve(VM10); check_arg(2); vs_top=sup; - {object V191=base[0]->c.c_cdr; - if(endp(V191))invalid_macro_call(); - {object V192= (V191->c.c_car); - if(endp(V192))invalid_macro_call(); - base[2]= (V192->c.c_car); - V192=V192->c.c_cdr; - if(endp(V192))invalid_macro_call(); - base[3]= (V192->c.c_car); - V192=V192->c.c_cdr; - base[4]= V192;} - V191=V191->c.c_cdr; - base[5]= V191;} - {register object V193; - register object V194; - register object V195; - register object V196; - object V197; - register object V198; - register object V199; - object V200; - object V201; + {object V174=base[0]->c.c_cdr; + if(endp(V174))invalid_macro_call(); + {object V175= (V174->c.c_car); + if(endp(V175))invalid_macro_call(); + base[2]= (V175->c.c_car); + V175=V175->c.c_cdr; + if(endp(V175))invalid_macro_call(); + base[3]= (V175->c.c_car); + V175=V175->c.c_cdr; + base[4]= V175;} + V174=V174->c.c_cdr; + base[5]= V174;} + {register object V176; + register object V177; + register object V178; + register object V179; + object V180; + register object V181; + register object V182; + object V183; + object V184; vs_base=vs_top; Lgensym(); vs_top=sup; - V193= vs_base[0]; + V176= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V194= vs_base[0]; + V177= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V195= vs_base[0]; + V178= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V196= vs_base[0]; + V179= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V197= vs_base[0]; + V180= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V198= vs_base[0]; + V181= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V199= vs_base[0]; + V182= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; - V200= vs_base[0]; - V201= Cnil; + V183= vs_base[0]; + V184= Cnil; base[6]= base[5]; vs_top=(vs_base=base+6)+1; (void) (*Lnk59)(); if(vs_base=(V16))){ - goto T110;} - goto T103; + V6= vs_base[0]; + if(((V4))==Cnil){ + goto T104;} + {register long V9; + register long V10; + V9= 0; + V10= fix((V2)); goto T110; T110:; - (void)(elt_set((V8),V15,(V5))); - V15= (long)(V15)+1; - goto T109;} -goto T103; -T103:; - {object V17 = (V8); - VMR1(V17)}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function CONCATENATE */ + if(!((V9)>=(V10))){ + goto T111;} + goto T104; +goto T111; +T111:; + (void)(elt_set((V6),V9,(V3))); + V9= (long)(V9)+1; + goto T110;} +goto T104; +T104:; + base[4]= (V6); + vs_top=(vs_base=base+4)+1; + return;} + } +} +/* function definition for CONCATENATE */ + +static void L2() +{register object *base=vs_base; + register object *sup=base+VM2; VC2 + vs_reserve(VM2); + {object V11; + object V12; + if(vs_top-vs_base<1) too_few_arguments(); + V11=(base[0]); + vs_base=vs_base+1; + vs_top[0]=Cnil; + {object *p=vs_top; + for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} + V12=(base[1]); + vs_top=sup; + {register object V13; + register object V14; + register long V15; + base[2]= (V11); + {object V16; + {object V17; + object V18= (V12); + if(endp(V18)){ + V16= Cnil; + goto T122;} + base[4]=V17=MMcons(Cnil,Cnil); +goto T123; +T123:; + base[5]= (V18->c.c_car); + vs_top=(vs_base=base+5)+1; + Llength(); + vs_top=sup; + (V17->c.c_car)= vs_base[0]; + V18=MMcdr(V18); + if(endp(V18)){ + V16= base[4]; + goto T122;} + V17=MMcdr(V17)=MMcons(Cnil,Cnil); + goto T123;} +goto T122; +T122:; + vs_top=base+4; + while(!endp(V16)) + {vs_push(car(V16));V16=cdr(V16);} + vs_base=base+4;} + Lplus(); + vs_top=sup; + base[3]= vs_base[0]; + vs_top=(vs_base=base+2)+2; + (void) (*Lnk25)(); + vs_top=sup; + V13= vs_base[0]; + V15= 0; + V14= (V12); +goto T128; +T128:; + if(((V14))!=Cnil){ + goto T129;} + base[2]= (V13); + vs_top=(vs_base=base+2)+1; + return; +goto T129; +T129:; + {register long V19; + register long V20; + V19= 0; + V20= (long)length(car((V14))); +goto T137; +T137:; + if(!((V19)>=(V20))){ + goto T138;} + goto T133; +goto T138; +T138:; + V21= elt(car((V14)),V19); + (void)(elt_set((V13),V15,/* INLINE-ARGS */V21)); + V15= (long)(V15)+(1); + V19= (long)(V19)+1; + goto T137;} +goto T133; +T133:; + V14= cdr((V14)); + goto T128;} + } +} +/* function definition for MAP */ -static object LI2(V18,va_alist) - object V18; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB2 VMS2 VMV2 - {object V19; - object V20; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <1) too_few_arguments(); - V19= V18; - narg= narg - 1; - V21 = list_vector(narg,ap); - V20= V21; - {register object V22; +static void L3() +{register object *base=vs_base; + register object *sup=base+VM3; VC3 + vs_reserve(VM3); + {object V22; register object V23; - register long V24; + object V24; + register object V25; + if(vs_top-vs_base<3) too_few_arguments(); + V22=(base[0]); + V23=(base[1]); + V24=(base[2]); + vs_base=vs_base+3; + vs_top[0]=Cnil; + {object *p=vs_top; + for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} + V25=(base[3]); + vs_top=sup; + V25= make_cons((V24),(V25)); {object V26; {object V27; - object V28= (V20); - if(endp(V28)){ - V26= Cnil; - goto T120;} - base[0]=V27=MMcons(Cnil,Cnil); -goto T121; -T121:; - base[1]= (V28->c.c_car); - vs_top=(vs_base=base+1)+1; + {object V28; + object V29= (V25); + if(endp(V29)){ + V27= Cnil; + goto T154;} + base[4]=V28=MMcons(Cnil,Cnil); +goto T155; +T155:; + base[5]= (V29->c.c_car); + vs_top=(vs_base=base+5)+1; Llength(); vs_top=sup; - (V27->c.c_car)= vs_base[0]; - V28=MMcdr(V28); - if(endp(V28)){ - V26= base[0]; - goto T120;} - V27=MMcdr(V27)=MMcons(Cnil,Cnil); - goto T121;} -goto T120; -T120:; - vs_top=base+0; - while(!endp(V26)) - {vs_push(car(V26));V26=cdr(V26);} - vs_base=base+0;} - Lplus(); + (V28->c.c_car)= vs_base[0]; + V29=MMcdr(V29); + if(endp(V29)){ + V27= base[4]; + goto T154;} + V28=MMcdr(V28)=MMcons(Cnil,Cnil); + goto T155;} +goto T154; +T154:; + vs_top=base+4; + while(!endp(V27)) + {vs_push(car(V27));V27=cdr(V27);} + vs_base=base+4;} + Lmin(); vs_top=sup; - V25= vs_base[0]; - V22= (VFUN_NARGS=2,(*(LnkLI25))((V19),V25)); - V24= 0; - V23= (V20); -goto T126; -T126:; - if(((V23))!=Cnil){ - goto T127;} - {object V29 = (V22); - VMR2(V29)} -goto T127; -T127:; + V26= vs_base[0]; + if(((V22))!=Cnil){ + goto T159;} {register long V30; - register long V31; + long V31; V30= 0; - V31= (long)length(car((V23))); -goto T135; -T135:; + V31= fix((V26)); +goto T164; +T164:; if(!((V30)>=(V31))){ - goto T136;} - goto T131; -goto T136; -T136:; - V32= elt(car((V23)),V30); - (void)(elt_set((V22),V24,/* INLINE-ARGS */V32)); - V24= (long)(V24)+(1); + goto T165;} + base[4]= Cnil; + vs_top=(vs_base=base+4)+1; + return; +goto T165; +T165:; + base[4]= (V23); + {object V32; + {object V33; + object V34= (V25); + if(endp(V34)){ + V32= Cnil; + goto T171;} + base[5]=V33=MMcons(Cnil,Cnil); +goto T172; +T172:; + {register object V35; + V35= (V34->c.c_car); + (V33->c.c_car)= elt((V35),V30);} + V34=MMcdr(V34); + if(endp(V34)){ + V32= base[5]; + goto T171;} + V33=MMcdr(V33)=MMcons(Cnil,Cnil); + goto T172;} +goto T171; +T171:; + vs_top=base+5; + while(!endp(V32)) + {vs_push(car(V32));V32=cdr(V32);} + vs_base=base+5;} + super_funcall_no_event(base[4]); + vs_top=sup; V30= (long)(V30)+1; - goto T135;} -goto T131; -T131:; - V23= cdr((V23)); - goto T126;} - va_end(ap); - base[0]=base[0]; - return Cnil;} - } -/* local entry for function MAP */ - -static object LI3(V35,V34,V33,va_alist) - object V35,V34,V33; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB3 VMS3 VMV3 - {object V36; - register object V37; - object V38; - register object V39; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <3) too_few_arguments(); - V36= V35; - V37= V34; - V38= V33; - narg= narg - 3; - V40 = list_vector(narg,ap); - V39= V40; - V39= make_cons((V38),(V39)); + goto T164;} +goto T159; +T159:; + {register object V36; + base[4]= (V22); + base[5]= (V26); + vs_top=(vs_base=base+4)+2; + (void) (*Lnk25)(); + vs_top=sup; + V36= vs_base[0]; + {register long V37; + long V38; + V37= 0; + V38= fix((V26)); +goto T183; +T183:; + if(!((V37)>=(V38))){ + goto T184;} + base[4]= (V36); + vs_top=(vs_base=base+4)+1; + return; +goto T184; +T184:; + base[4]= (V23); + {object V40; {object V41; - {object V42; - {object V43; - object V44= (V39); - if(endp(V44)){ - V42= Cnil; - goto T152;} - base[0]=V43=MMcons(Cnil,Cnil); -goto T153; -T153:; - base[1]= (V44->c.c_car); - vs_top=(vs_base=base+1)+1; - Llength(); - vs_top=sup; - (V43->c.c_car)= vs_base[0]; - V44=MMcdr(V44); - if(endp(V44)){ - V42= base[0]; - goto T152;} - V43=MMcdr(V43)=MMcons(Cnil,Cnil); - goto T153;} -goto T152; -T152:; - vs_top=base+0; - while(!endp(V42)) - {vs_push(car(V42));V42=cdr(V42);} - vs_base=base+0;} - Lmin(); - vs_top=sup; - V41= vs_base[0]; - if(((V36))!=Cnil){ - goto T157;} - {register long V45; - long V46; - V45= 0; - V46= fix((V41)); -goto T162; -T162:; - if(!((V45)>=(V46))){ - goto T163;} - {object V47 = Cnil; - VMR3(V47)} -goto T163; -T163:; - base[0]= (V37); - {object V48; - {object V49; - object V50= (V39); - if(endp(V50)){ - V48= Cnil; - goto T169;} - base[1]=V49=MMcons(Cnil,Cnil); -goto T170; -T170:; - {register object V51; - V51= (V50->c.c_car); - (V49->c.c_car)= elt((V51),V45);} - V50=MMcdr(V50); - if(endp(V50)){ - V48= base[1]; - goto T169;} - V49=MMcdr(V49)=MMcons(Cnil,Cnil); - goto T170;} -goto T169; -T169:; - vs_top=base+1; - while(!endp(V48)) - {vs_push(car(V48));V48=cdr(V48);} - vs_base=base+1;} - super_funcall_no_event(base[0]); - vs_top=sup; - V45= (long)(V45)+1; - goto T162;} -goto T157; -T157:; - {register object V52; - V52= (VFUN_NARGS=2,(*(LnkLI25))((V36),(V41))); - {register long V53; - long V54; - V53= 0; - V54= fix((V41)); -goto T179; -T179:; - if(!((V53)>=(V54))){ - goto T180;} - {object V55 = (V52); - VMR3(V55)} -goto T180; -T180:; - base[0]= (V37); - {object V57; - {object V58; - object V59= (V39); - if(endp(V59)){ - V57= Cnil; - goto T187;} - base[1]=V58=MMcons(Cnil,Cnil); -goto T188; -T188:; - {register object V60; - V60= (V59->c.c_car); - (V58->c.c_car)= elt((V60),V53);} - V59=MMcdr(V59); - if(endp(V59)){ - V57= base[1]; - goto T187;} - V58=MMcdr(V58)=MMcons(Cnil,Cnil); - goto T188;} -goto T187; -T187:; - vs_top=base+1; - while(!endp(V57)) - {vs_push(car(V57));V57=cdr(V57);} - vs_base=base+1;} - super_funcall_no_event(base[0]); - vs_top=sup; - V56= vs_base[0]; - (void)(elt_set((V52),V53,V56)); - V53= (long)(V53)+1; - goto T179;}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} + object V42= (V25); + if(endp(V42)){ + V40= Cnil; + goto T191;} + base[5]=V41=MMcons(Cnil,Cnil); +goto T192; +T192:; + {register object V43; + V43= (V42->c.c_car); + (V41->c.c_car)= elt((V43),V37);} + V42=MMcdr(V42); + if(endp(V42)){ + V40= base[5]; + goto T191;} + V41=MMcdr(V41)=MMcons(Cnil,Cnil); + goto T192;} +goto T191; +T191:; + vs_top=base+5; + while(!endp(V40)) + {vs_push(car(V40));V40=cdr(V40);} + vs_base=base+5;} + super_funcall_no_event(base[4]); + vs_top=sup; + V39= vs_base[0]; + (void)(elt_set((V36),V37,V39)); + V37= (long)(V37)+1; + goto T183;}}} } -/* local entry for function SOME */ +} +/* function definition for SOME */ -static object LI4(V62,V61,va_alist) - object V62,V61; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB4 VMS4 VMV4 - {register object V63; - object V64; - register object V65; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V63= V62; - V64= V61; - narg= narg - 2; - V66 = list_vector(narg,ap); - V65= V66; - V65= make_cons((V64),(V65)); - {register long V67; - register long V68; - V67= 0; - {object V69; - {object V70; - object V71= (V65); - if(endp(V71)){ - V69= Cnil; - goto T197;} - base[0]=V70=MMcons(Cnil,Cnil); -goto T198; -T198:; - base[1]= (V71->c.c_car); - vs_top=(vs_base=base+1)+1; +static void L4() +{register object *base=vs_base; + register object *sup=base+VM4; VC4 + vs_reserve(VM4); + {register object V44; + object V45; + register object V46; + if(vs_top-vs_base<2) too_few_arguments(); + V44=(base[0]); + V45=(base[1]); + vs_base=vs_base+2; + vs_top[0]=Cnil; + {object *p=vs_top; + for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} + V46=(base[2]); + vs_top=sup; + V46= make_cons((V45),(V46)); + {register long V47; + register long V48; + V47= 0; + {object V49; + {object V50; + object V51= (V46); + if(endp(V51)){ + V49= Cnil; + goto T201;} + base[3]=V50=MMcons(Cnil,Cnil); +goto T202; +T202:; + base[4]= (V51->c.c_car); + vs_top=(vs_base=base+4)+1; Llength(); vs_top=sup; - (V70->c.c_car)= vs_base[0]; - V71=MMcdr(V71); - if(endp(V71)){ - V69= base[0]; - goto T197;} - V70=MMcdr(V70)=MMcons(Cnil,Cnil); - goto T198;} -goto T197; -T197:; - vs_top=base+0; - while(!endp(V69)) - {vs_push(car(V69));V69=cdr(V69);} - vs_base=base+0;} + (V50->c.c_car)= vs_base[0]; + V51=MMcdr(V51); + if(endp(V51)){ + V49= base[3]; + goto T201;} + V50=MMcdr(V50)=MMcons(Cnil,Cnil); + goto T202;} +goto T201; +T201:; + vs_top=base+3; + while(!endp(V49)) + {vs_push(car(V49));V49=cdr(V49);} + vs_base=base+3;} Lmin(); vs_top=sup; - V68= fix(vs_base[0]); -goto T202; -T202:; - if(!((V67)>=(V68))){ - goto T203;} - {object V72 = Cnil; - VMR4(V72)} -goto T203; -T203:; - {register object V73; - base[0]= (V63); - {object V74; - {object V75; - object V76= (V65); - if(endp(V76)){ - V74= Cnil; - goto T210;} - base[1]=V75=MMcons(Cnil,Cnil); -goto T211; -T211:; - {register object V77; - V77= (V76->c.c_car); - (V75->c.c_car)= elt((V77),V67);} - V76=MMcdr(V76); - if(endp(V76)){ - V74= base[1]; - goto T210;} - V75=MMcdr(V75)=MMcons(Cnil,Cnil); - goto T211;} -goto T210; -T210:; - vs_top=base+1; - while(!endp(V74)) - {vs_push(car(V74));V74=cdr(V74);} - vs_base=base+1;} - super_funcall_no_event(base[0]); - vs_top=sup; - V73= vs_base[0]; - if(((V73))==Cnil){ + V48= fix(vs_base[0]); +goto T206; +T206:; + if(!((V47)>=(V48))){ goto T207;} - {object V78 = (V73); - VMR4(V78)}} + base[3]= Cnil; + vs_top=(vs_base=base+3)+1; + return; goto T207; T207:; - V67= (long)(V67)+1; - goto T202;} - va_end(ap); - base[0]=base[0]; - return Cnil;} + {register object V52; + base[3]= (V44); + {object V53; + {object V54; + object V55= (V46); + if(endp(V55)){ + V53= Cnil; + goto T214;} + base[4]=V54=MMcons(Cnil,Cnil); +goto T215; +T215:; + {register object V56; + V56= (V55->c.c_car); + (V54->c.c_car)= elt((V56),V47);} + V55=MMcdr(V55); + if(endp(V55)){ + V53= base[4]; + goto T214;} + V54=MMcdr(V54)=MMcons(Cnil,Cnil); + goto T215;} +goto T214; +T214:; + vs_top=base+4; + while(!endp(V53)) + {vs_push(car(V53));V53=cdr(V53);} + vs_base=base+4;} + super_funcall_no_event(base[3]); + vs_top=sup; + V52= vs_base[0]; + if(((V52))==Cnil){ + goto T211;} + base[3]= (V52); + vs_top=(vs_base=base+3)+1; + return;} +goto T211; +T211:; + V47= (long)(V47)+1; + goto T206;} } -/* local entry for function EVERY */ +} +/* function definition for EVERY */ -static object LI5(V80,V79,va_alist) - object V80,V79; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB5 VMS5 VMV5 - {register object V81; - object V82; - register object V83; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V81= V80; - V82= V79; - narg= narg - 2; - V84 = list_vector(narg,ap); - V83= V84; - V83= make_cons((V82),(V83)); - {register long V85; - register long V86; - V85= 0; - {object V87; - {object V88; - object V89= (V83); - if(endp(V89)){ - V87= Cnil; - goto T222;} - base[0]=V88=MMcons(Cnil,Cnil); -goto T223; -T223:; - base[1]= (V89->c.c_car); - vs_top=(vs_base=base+1)+1; +static void L5() +{register object *base=vs_base; + register object *sup=base+VM5; VC5 + vs_reserve(VM5); + {register object V57; + object V58; + register object V59; + if(vs_top-vs_base<2) too_few_arguments(); + V57=(base[0]); + V58=(base[1]); + vs_base=vs_base+2; + vs_top[0]=Cnil; + {object *p=vs_top; + for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} + V59=(base[2]); + vs_top=sup; + V59= make_cons((V58),(V59)); + {register long V60; + register long V61; + V60= 0; + {object V62; + {object V63; + object V64= (V59); + if(endp(V64)){ + V62= Cnil; + goto T226;} + base[3]=V63=MMcons(Cnil,Cnil); +goto T227; +T227:; + base[4]= (V64->c.c_car); + vs_top=(vs_base=base+4)+1; Llength(); vs_top=sup; - (V88->c.c_car)= vs_base[0]; - V89=MMcdr(V89); - if(endp(V89)){ - V87= base[0]; - goto T222;} - V88=MMcdr(V88)=MMcons(Cnil,Cnil); - goto T223;} -goto T222; -T222:; - vs_top=base+0; - while(!endp(V87)) - {vs_push(car(V87));V87=cdr(V87);} - vs_base=base+0;} + (V63->c.c_car)= vs_base[0]; + V64=MMcdr(V64); + if(endp(V64)){ + V62= base[3]; + goto T226;} + V63=MMcdr(V63)=MMcons(Cnil,Cnil); + goto T227;} +goto T226; +T226:; + vs_top=base+3; + while(!endp(V62)) + {vs_push(car(V62));V62=cdr(V62);} + vs_base=base+3;} Lmin(); vs_top=sup; - V86= fix(vs_base[0]); -goto T227; -T227:; - if(!((V85)>=(V86))){ - goto T228;} - {object V90 = Ct; - VMR5(V90)} -goto T228; -T228:; - base[0]= (V81); - {object V91; - {object V92; - object V93= (V83); - if(endp(V93)){ - V91= Cnil; - goto T236;} - base[1]=V92=MMcons(Cnil,Cnil); -goto T237; -T237:; - {register object V94; - V94= (V93->c.c_car); - (V92->c.c_car)= elt((V94),V85);} - V93=MMcdr(V93); - if(endp(V93)){ - V91= base[1]; - goto T236;} - V92=MMcdr(V92)=MMcons(Cnil,Cnil); - goto T237;} -goto T236; -T236:; - vs_top=base+1; - while(!endp(V91)) - {vs_push(car(V91));V91=cdr(V91);} - vs_base=base+1;} - super_funcall_no_event(base[0]); - vs_top=sup; - if((vs_base[0])!=Cnil){ + V61= fix(vs_base[0]); +goto T231; +T231:; + if(!((V60)>=(V61))){ goto T232;} - {object V95 = Cnil; - VMR5(V95)} + base[3]= Ct; + vs_top=(vs_base=base+3)+1; + return; goto T232; T232:; - V85= (long)(V85)+1; - goto T227;} - va_end(ap); - base[0]=base[0]; - return Cnil;} + base[3]= (V57); + {object V65; + {object V66; + object V67= (V59); + if(endp(V67)){ + V65= Cnil; + goto T240;} + base[4]=V66=MMcons(Cnil,Cnil); +goto T241; +T241:; + {register object V68; + V68= (V67->c.c_car); + (V66->c.c_car)= elt((V68),V60);} + V67=MMcdr(V67); + if(endp(V67)){ + V65= base[4]; + goto T240;} + V66=MMcdr(V66)=MMcons(Cnil,Cnil); + goto T241;} +goto T240; +T240:; + vs_top=base+4; + while(!endp(V65)) + {vs_push(car(V65));V65=cdr(V65);} + vs_base=base+4;} + super_funcall_no_event(base[3]); + vs_top=sup; + if((vs_base[0])!=Cnil){ + goto T236;} + base[3]= Cnil; + vs_top=(vs_base=base+3)+1; + return; +goto T236; +T236:; + V60= (long)(V60)+1; + goto T231;} } -/* local entry for function NOTANY */ +} +/* function definition for NOTANY */ -static object LI6(V97,V96,va_alist) - object V97,V96; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB6 VMS6 VMV6 - {object V98; - object V99; - object V100; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V98= V97; - V99= V96; - narg= narg - 2; - V101 = list_vector(narg,ap); - V100= V101; - base[0]= (V98); - base[1]= (V99); - {object V103; - V103= (V100); - vs_top=base+2; - while(!endp(V103)) - {vs_push(car(V103));V103=cdr(V103);} - vs_base=base+0;} +static void L6() +{register object *base=vs_base; + register object *sup=base+VM6; VC6 + vs_reserve(VM6); + {object V69; + object V70; + object V71; + if(vs_top-vs_base<2) too_few_arguments(); + V69=(base[0]); + V70=(base[1]); + vs_base=vs_base+2; + vs_top[0]=Cnil; + {object *p=vs_top; + for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} + V71=(base[2]); + vs_top=sup; + base[3]= (V69); + base[4]= (V70); + {object V73; + V73= (V71); + vs_top=base+5; + while(!endp(V73)) + {vs_push(car(V73));V73=cdr(V73);} + vs_base=base+3;} (void) (*Lnk26)(); vs_top=sup; - V102= vs_base[0]; - {object V104 = ((V102)==Cnil?Ct:Cnil); - VMR6(V104)} - va_end(ap); - base[0]=base[0]; - return Cnil;} + V72= vs_base[0]; + base[3]= ((V72)==Cnil?Ct:Cnil); + vs_top=(vs_base=base+3)+1; + return; } -/* local entry for function NOTEVERY */ +} +/* function definition for NOTEVERY */ -static object LI7(V106,V105,va_alist) - object V106,V105; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB7 VMS7 VMV7 - {object V107; - object V108; - object V109; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V107= V106; - V108= V105; - narg= narg - 2; - V110 = list_vector(narg,ap); - V109= V110; - base[0]= (V107); - base[1]= (V108); - {object V112; - V112= (V109); - vs_top=base+2; - while(!endp(V112)) - {vs_push(car(V112));V112=cdr(V112);} - vs_base=base+0;} +static void L7() +{register object *base=vs_base; + register object *sup=base+VM7; VC7 + vs_reserve(VM7); + {object V74; + object V75; + object V76; + if(vs_top-vs_base<2) too_few_arguments(); + V74=(base[0]); + V75=(base[1]); + vs_base=vs_base+2; + vs_top[0]=Cnil; + {object *p=vs_top; + for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} + V76=(base[2]); + vs_top=sup; + base[3]= (V74); + base[4]= (V75); + {object V78; + V78= (V76); + vs_top=base+5; + while(!endp(V78)) + {vs_push(car(V78));V78=cdr(V78);} + vs_base=base+3;} (void) (*Lnk27)(); vs_top=sup; - V111= vs_base[0]; - {object V113 = ((V111)==Cnil?Ct:Cnil); - VMR7(V113)} - va_end(ap); - base[0]=base[0]; - return Cnil;} + V77= vs_base[0]; + base[3]= ((V77)==Cnil?Ct:Cnil); + vs_top=(vs_base=base+3)+1; + return; } +} static void LnkT27(){ call_or_link(VV[27],(void **)&Lnk27);} /* EVERY */ static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* SOME */ -static object LnkTLI25(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[25],(void **)&LnkLI25,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ -static object LnkTLI24(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[24],(void **)&LnkLI24,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ +static void LnkT25(){ call_or_link(VV[25],(void **)&Lnk25);} /* MAKE-SEQUENCE */ +static void LnkT24(){ call_or_link(VV[24],(void **)&Lnk24);} /* BEST-ARRAY-ELEMENT-TYPE */ static void LnkT23(){ call_or_link(VV[23],(void **)&Lnk23);} /* SPECIFIC-ERROR */ static void LnkT22(){ call_or_link(VV[22],(void **)&Lnk22);} /* SUBTYPEP */ -static object LnkTLI21(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[21],(void **)&LnkLI21,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ +static void LnkT21(){ call_or_link(VV[21],(void **)&Lnk21);} /* NORMALIZE-TYPE */ #ifdef SYSTEM_SPECIAL_INIT SYSTEM_SPECIAL_INIT diff -uNr TEST.gcl/gcl/lsp/seq.data agcl/agcl/lsp/seq.data --- TEST.gcl/gcl/lsp/seq.data Thu Oct 3 07:32:38 2002 +++ agcl/agcl/lsp/seq.data Sat Nov 9 13:15:15 2002 @@ -3,5 +3,5 @@ (lisp::in-package (lisp::quote user::lisp))#! (lisp::export (lisp::quote (lisp::make-sequence lisp::concatenate lisp::map lisp::some lisp::every lisp::notany lisp::notevery)))#! (lisp::in-package (lisp::quote lisp::system)) -#(lisp::list :initial-element lisp::simple-string lisp::string lisp::string-char lisp::simple-bit-vector lisp::bit-vector lisp::bit lisp::simple-vector lisp::vector lisp::null lisp::cons :wrong-type-argument "~S is not of type ~S." "list (size ~S)" lisp::array lisp::simple-array "~S is not of type ~S." lisp::sequence "~S is not of type ~S." "~S (size ~S)" system::normalize-type lisp::subtypep lisp::specific-error system::best-array-element-type lisp::make-sequence lisp::some lisp::every (system::%init . #((lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (system::mfvfun-key (lisp::quote lisp::make-sequence) 0 1026 1) (system::mfvfun (lisp::quote lisp::concatenate) 2 16385) (system::mfvfun (lisp::quote lisp::map) 3 16387) (system::mfvfun (lisp::quote lisp::some) 4 16386) (system::mfvfun (lisp::quote lisp::every) 5 16386) (system::mfvfun (lisp::quote lisp::notany) 6 16386) (system::mfvfun (lisp::quote lisp::notevery) 7 16386)))) +#(lisp::list :initial-element lisp::simple-string lisp::string lisp::string-char lisp::simple-bit-vector lisp::bit-vector lisp::bit lisp::simple-vector lisp::vector lisp::null lisp::cons lisp::simple-type-error "~S is not of type ~S." "list (size ~S)" lisp::array lisp::simple-array "~S is not of type ~S." lisp::sequence "~S is not of type ~S." "~S (size ~S)" system::normalize-type lisp::subtypep lisp::specific-error system::best-array-element-type lisp::make-sequence lisp::some lisp::every (system::%init . #((lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (system::mf (lisp::quote lisp::make-sequence) 0) (system::mf (lisp::quote lisp::concatenate) 1) (system::mf (lisp::quote lisp::map) 2) (system::mf (lisp::quote lisp::some) 3) (system::mf (lisp::quote lisp::every) 4) (system::mf (lisp::quote lisp::notany) 5) (system::mf (lisp::quote lisp::notevery) 6)))) ) diff -uNr TEST.gcl/gcl/lsp/seq.h agcl/agcl/lsp/seq.h --- TEST.gcl/gcl/lsp/seq.h Thu Oct 3 07:32:38 2002 +++ agcl/agcl/lsp/seq.h Sat Nov 9 13:15:15 2002 @@ -1,79 +1,47 @@ -static object LI1(); -static object LI2(); -static object LI3(); -static object LI4(); -static object LI5(); -static object LI6(); -static object LI7(); -static object LI1(); -static object VK1defaults[1]={(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[1];} LI1key={1,0,VK1defaults,{(void *)1}}; -#define VMB1 register object *base=vs_top; object Vcs[4]; -#define VMS1 register object *sup=vs_top+8;vs_top=sup; -#define VMV1 vs_reserve(8); -#define VMR1(VMT1) vs_top=base ; return(VMT1); -static object LI2(); -#define VMB2 register object *base=vs_top; object V32 ,V25 ,V21; object Vcs[2]; -#define VMS2 register object *sup=vs_top+2;vs_top=sup; -#define VMV2 vs_reserve(2); -#define VMR2(VMT2) vs_top=base ; return(VMT2); -static object LI3(); -#define VMB3 register object *base=vs_top; object V56 ,V40; object Vcs[4]; -#define VMS3 register object *sup=vs_top+2;vs_top=sup; -#define VMV3 vs_reserve(2); -#define VMR3(VMT3) vs_top=base ; return(VMT3); -static object LI4(); -#define VMB4 register object *base=vs_top; object V66; object Vcs[3]; -#define VMS4 register object *sup=vs_top+2;vs_top=sup; -#define VMV4 vs_reserve(2); -#define VMR4(VMT4) vs_top=base ; return(VMT4); -static object LI5(); -#define VMB5 register object *base=vs_top; object V84; object Vcs[3]; -#define VMS5 register object *sup=vs_top+2;vs_top=sup; -#define VMV5 vs_reserve(2); -#define VMR5(VMT5) vs_top=base ; return(VMT5); -static object LI6(); -#define VMB6 register object *base=vs_top; object V102 ,V101; object Vcs[3]; -#define VMS6 register object *sup=vs_top+2;vs_top=sup; -#define VMV6 vs_reserve(2); -#define VMR6(VMT6) vs_top=base ; return(VMT6); -static object LI7(); -#define VMB7 register object *base=vs_top; object V111 ,V110; object Vcs[3]; -#define VMS7 register object *sup=vs_top+2;vs_top=sup; -#define VMV7 vs_reserve(2); -#define VMR7(VMT7) vs_top=base ; return(VMT7); -#define VM7 2 -#define VM6 2 -#define VM5 2 -#define VM4 2 -#define VM3 2 -#define VM2 2 -#define VM1 8 +static void L1(); +static void L2(); +static void L3(); +static void L4(); +static void L5(); +static void L6(); +static void L7(); +#define VC1 +#define VC2 object V21; +#define VC3 object V39; +#define VC4 +#define VC5 +#define VC6 object V72; +#define VC7 object V77; +#define VM7 5 +#define VM6 5 +#define VM5 5 +#define VM4 5 +#define VM3 6 +#define VM2 6 +#define VM1 12 static char * VVi[29]={ #define Cdata VV[28] -(char *)(LI1), -(char *)(&LI1key), -(char *)(LI2), -(char *)(LI3), -(char *)(LI4), -(char *)(LI5), -(char *)(LI6), -(char *)(LI7) +(char *)(L1), +(char *)(L2), +(char *)(L3), +(char *)(L4), +(char *)(L5), +(char *)(L6), +(char *)(L7) }; #define VV ((object *)VVi) static void LnkT27() ; static void (*Lnk27)() = LnkT27; static void LnkT26() ; static void (*Lnk26)() = LnkT26; -static object LnkTLI25() ; -static object (*LnkLI25)() = LnkTLI25; -static object LnkTLI24() ; -static object (*LnkLI24)() = LnkTLI24; +static void LnkT25() ; +static void (*Lnk25)() = LnkT25; +static void LnkT24() ; +static void (*Lnk24)() = LnkT24; static void LnkT23() ; static void (*Lnk23)() = LnkT23; static void LnkT22() ; static void (*Lnk22)() = LnkT22; -static object LnkTLI21() ; -static object (*LnkLI21)() = LnkTLI21; +static void LnkT21() ; +static void (*Lnk21)() = LnkT21; diff -uNr TEST.gcl/gcl/lsp/seq.lsp agcl/agcl/lsp/seq.lsp --- TEST.gcl/gcl/lsp/seq.lsp Thu Oct 3 07:32:38 2002 +++ agcl/agcl/lsp/seq.lsp Sat Nov 9 13:15:15 2002 @@ -48,7 +48,7 @@ (when (subtypep (car type) 'list) (if (or (and (eq 'null (car type)) (not (equal size 0))) (and (eq 'cons (car type)) (equal size 0))) - (specific-error :wrong-type-argument "~S is not of type ~S." + (specific-error 'simple-type-error "~S is not of type ~S." type (format nil "list (size ~S)" size))) (return-from make-sequence (if iesp @@ -56,13 +56,13 @@ (make-list size)))) (unless (or (eq (car type) 'array) (eq (car type) 'simple-array)) - (specific-error :wrong-type-argument "~S is not of type ~S." + (specific-error 'simple-type-error "~S is not of type ~S." type 'sequence)) (let ((ssize (caddr type))) (if (listp ssize) (setq ssize (car ssize))) (if (not (si::fixnump ssize)) (setq ssize size)) (unless (equal ssize size) - (specific-error :wrong-type-argument "~S is not of type ~S." + (specific-error 'simple-type-error "~S is not of type ~S." type (format nil "~S (size ~S)" type size)))) (or (cadr type) t)))) (setq element-type (si::best-array-element-type element-type)) diff -uNr TEST.gcl/gcl/lsp/seqlib.c agcl/agcl/lsp/seqlib.c --- TEST.gcl/gcl/lsp/seqlib.c Sun Nov 3 19:06:49 2002 +++ agcl/agcl/lsp/seqlib.c Sat Nov 9 13:15:25 2002 @@ -138,111 +138,120 @@ base[0]=base[0]; return Cnil; } -/* local entry for function BAD-SEQ-LIMIT */ +/* function definition for BAD-SEQ-LIMIT */ -static object LI5(V28,va_alist) - object V28; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB5 VMS5 VMV5 - {object V29; - object V30; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <1) too_few_arguments(); - V29= V28; - narg = narg - 1; - if (narg <= 0) goto T39; - else { - V30= va_arg(ap,object);} - --narg; goto T40; +static void L5() +{register object *base=vs_base; + register object *sup=base+VM5; VC5 + vs_reserve(VM5); + {object V28; + object V29; + if(vs_top-vs_base<1) too_few_arguments(); + if(vs_top-vs_base>2) too_many_arguments(); + V28=(base[0]); + vs_base=vs_base+1; + if(vs_base>=vs_top){vs_top=sup;goto T39;} + V29=(base[1]); + vs_top=sup; + goto T40; goto T39; T39:; - V30= Cnil; + V29= Cnil; goto T40; T40:; - base[0]= VV[8]; - base[1]= VV[9]; - if(((V30))==Cnil){ + base[2]= VV[8]; + base[3]= VV[9]; + if(((V29))==Cnil){ goto T46;} - base[2]= list(2,(V29),(V30)); + base[4]= list(2,(V28),(V29)); goto T44; goto T46; T46:; - base[2]= (V29); + base[4]= (V28); goto T44; T44:; - vs_top=(vs_base=base+0)+3; + vs_top=(vs_base=base+2)+3; (void) (*Lnk32)(); - vs_top=sup; - {object V31 = vs_base[0]; - VMR5(V31)} - va_end(ap); - base[0]=base[0]; - return Cnil;} + return; } +} /* local entry for function THE-END */ -static object LI6(V34,V35) +static object LI6(V32,V33) -register object V34;object V35; +register object V32;object V33; { VMB6 VMS6 VMV6 goto TTL; TTL:; - if(!(type_of((V34))==t_fixnum)){ + if(!(type_of((V32))==t_fixnum)){ goto T49;} - if(!((fix((V34)))<=((long)length((V35))))){ + if(!((fix((V32)))<=((long)length((V33))))){ goto T52;} goto T51; goto T52; T52:; - (void)((VFUN_NARGS=1,(*(LnkLI33))((V34)))); + base[0]= (V32); + vs_top=(vs_base=base+0)+1; + (void) (*Lnk33)(); + vs_top=sup; goto T51; T51:; - {long V36 = fix((V34)); - VMR6((object)V36)} + {long V34 = fix((V32)); + VMR6((object)V34)} goto T49; T49:; - if(((V34))!=Cnil){ - goto T55;} - {long V37 = (long)length((V35)); - VMR6((object)V37)} -goto T55; -T55:; - {long V38 = fix((VFUN_NARGS=1,(*(LnkLI33))((V34)))); - VMR6((object)V38)} + if(((V32))!=Cnil){ + goto T56;} + {long V35 = (long)length((V33)); + VMR6((object)V35)} +goto T56; +T56:; + base[0]= (V32); + vs_top=(vs_base=base+0)+1; + (void) (*Lnk33)(); + vs_top=sup; + {long V36 = fix(vs_base[0]); + VMR6((object)V36)} + base[0]=base[0]; } /* local entry for function THE-START */ -static object LI7(V40) +static object LI7(V38) -register object V40; +register object V38; { VMB7 VMS7 VMV7 goto TTL; TTL:; - if(!(type_of((V40))==t_fixnum)){ - goto T58;} - if(!((fix((V40)))>=(0))){ - goto T61;} - goto T60; -goto T61; -T61:; - (void)((VFUN_NARGS=1,(*(LnkLI33))((V40)))); + if(!(type_of((V38))==t_fixnum)){ + goto T60;} + if(!((fix((V38)))>=(0))){ + goto T63;} + goto T62; +goto T63; +T63:; + base[0]= (V38); + vs_top=(vs_base=base+0)+1; + (void) (*Lnk33)(); + vs_top=sup; +goto T62; +T62:; + {long V39 = fix((V38)); + VMR7((object)V39)} goto T60; T60:; - {long V41 = fix((V40)); + if(((V38))!=Cnil){ + goto T67;} + {long V40 = 0; + VMR7((object)V40)} +goto T67; +T67:; + base[0]= (V38); + vs_top=(vs_base=base+0)+1; + (void) (*Lnk33)(); + vs_top=sup; + {long V41 = fix(vs_base[0]); VMR7((object)V41)} -goto T58; -T58:; - if(((V40))!=Cnil){ - goto T64;} - {long V42 = 0; - VMR7((object)V42)} -goto T64; -T64:; - {long V43 = fix((VFUN_NARGS=1,(*(LnkLI33))((V40)))); - VMR7((object)V43)} + base[0]=base[0]; } /* function definition for REDUCE */ @@ -250,2997 +259,3232 @@ {register object *base=vs_base; register object *sup=base+VM8; VC8 vs_reserve(VM8); - {register object V44; - register object V45; + {register object V42; + register object V43; + object V44; + object V45; object V46; object V47; object V48; - object V49; - object V50; - register object V51; + register object V49; if(vs_top-vs_base<2) too_few_arguments(); parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[34],VV[17]); - V44=(base[0]); - V45=(base[1]); + V42=(base[0]); + V43=(base[1]); vs_top=sup; - V46=(base[2]); - V47=(base[3]); - V48=(base[4]); - V49=(base[5]); - V50=(base[10]); + V44=(base[2]); + V45=(base[3]); + V46=(base[4]); + V47=(base[5]); + V48=(base[10]); if(base[11]==Cnil){ - V51= symbol_function(VV[35]); + V49= symbol_function(VV[35]); }else{ - V51=(base[6]);} - {register long V52; - if(((V47))==Cnil){ - goto T69;} - V52= (long)(*(LnkLI36))((V47)); - goto T67; -goto T69; -T69:; - V52= 0; -goto T67; -T67:; - {register long V53; - V53= (long)(*(LnkLI37))((V48),(V45)); - if(!((V52)<=(V53))){ + V49=(base[6]);} + {register long V50; + if(((V45))==Cnil){ goto T73;} - goto T72; + V50= (long)(*(LnkLI36))((V45)); + goto T71; goto T73; T73:; - V54 = make_fixnum(V52); - V55 = make_fixnum(V53); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V54,V55))); -goto T72; -T72:; - if(((V46))!=Cnil){ - goto T76;} - if(((V50))!=Cnil){ - goto T78;} - if(!((V52)>=(V53))){ - goto T81;} + V50= 0; +goto T71; +T71:; + {register long V51; + V51= (long)(*(LnkLI37))((V46),(V43)); + if(!((V50)<=(V51))){ + goto T77;} + goto T76; +goto T77; +T77:; + base[12]= make_fixnum(V50); + base[13]= make_fixnum(V51); + vs_top=(vs_base=base+12)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T76; +T76:; + if(((V44))!=Cnil){ + goto T82;} + if(((V48))!=Cnil){ + goto T84;} + if(!((V50)>=(V51))){ + goto T87;} vs_base=vs_top; - super_funcall_no_event((V44)); + super_funcall_no_event((V42)); return; -goto T81; -T81:; - V56= elt((V45),V52); - V49= ( - (type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)): - (fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56)); - V52= (long)(1)+(V52); -goto T78; -T78:; - {register object V57; - V57= (V49); -goto T88; -T88:; - if(!((V52)>=(V53))){ - goto T89;} - base[12]= (V57); +goto T87; +T87:; + V52= elt((V43),V50); + V47= ( + (type_of((V49)) == t_sfun ?(*(((V49))->sfn.sfn_self)): + (fcall.fun=((V49)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V52)); + V50= (long)(1)+(V50); +goto T84; +T84:; + {register object V53; + V53= (V47); +goto T94; +T94:; + if(!((V50)>=(V51))){ + goto T95;} + base[12]= (V53); vs_top=(vs_base=base+12)+1; return; -goto T89; -T89:; - {object V59; - V59= elt((V45),V52); - V52= (long)(1)+(V52); - base[12]= (V59);} +goto T95; +T95:; + {object V55; + V55= elt((V43),V50); + V50= (long)(1)+(V50); + base[12]= (V55);} vs_top=(vs_base=base+12)+1; - super_funcall_no_event((V51)); + super_funcall_no_event((V49)); vs_top=sup; - V58= vs_base[0]; - V57= ( - (type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)): - (fcall.fun=((V44)),fcall.argd=2,fcalln))((V57),V58)); - goto T88;} -goto T76; -T76:; - if(((V50))!=Cnil){ - goto T101;} - if(!((V52)>=(V53))){ - goto T104;} + V54= vs_base[0]; + V53= ( + (type_of((V42)) == t_sfun ?(*(((V42))->sfn.sfn_self)): + (fcall.fun=((V42)),fcall.argd=2,fcalln))((V53),V54)); + goto T94;} +goto T82; +T82:; + if(((V48))!=Cnil){ + goto T107;} + if(!((V50)>=(V51))){ + goto T110;} vs_base=vs_top; - super_funcall_no_event((V44)); + super_funcall_no_event((V42)); return; -goto T104; -T104:; - V53= (long)(V53)+(-1); - V60= elt((V45),V53); - V49= ( - (type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)): - (fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V60)); -goto T101; -T101:; - {register object V61; - V61= (V49); -goto T111; -T111:; - if(!((V52)>=(V53))){ - goto T112;} - base[12]= (V61); +goto T110; +T110:; + V51= (long)(V51)+(-1); + V56= elt((V43),V51); + V47= ( + (type_of((V49)) == t_sfun ?(*(((V49))->sfn.sfn_self)): + (fcall.fun=((V49)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56)); +goto T107; +T107:; + {register object V57; + V57= (V47); +goto T117; +T117:; + if(!((V50)>=(V51))){ + goto T118;} + base[12]= (V57); vs_top=(vs_base=base+12)+1; return; -goto T112; -T112:; - V53= (long)(-1)+(V53); - base[12]= elt((V45),V53); +goto T118; +T118:; + V51= (long)(-1)+(V51); + base[12]= elt((V43),V51); vs_top=(vs_base=base+12)+1; - super_funcall_no_event((V51)); + super_funcall_no_event((V49)); vs_top=sup; - V62= vs_base[0]; - V61= ( - (type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)): - (fcall.fun=((V44)),fcall.argd=2,fcalln))(V62,(V61))); - goto T111;}}} - } -} -/* local entry for function FILL */ - -static object LI9(V64,V63,va_alist) - object V64,V63; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB9 VMS9 VMV9 - {register object V65; - register object V66; - object V67; - object V68; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V65= V64; - V66= V63; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI9key,ap); - V67=(Vcs[2]); - V68=(Vcs[3]); - {long V69; - if(((V67))==Cnil){ - goto T125;} - V69= (long)(*(LnkLI36))((V67)); - goto T123; -goto T125; -T125:; - V69= 0; -goto T123; -T123:; - {register long V70; - V70= (long)(*(LnkLI37))((V68),(V65)); - if(!((V69)<=(V70))){ - goto T129;} - goto T128; + V58= vs_base[0]; + V57= ( + (type_of((V42)) == t_sfun ?(*(((V42))->sfn.sfn_self)): + (fcall.fun=((V42)),fcall.argd=2,fcalln))(V58,(V57))); + goto T117;}}} + } +} +/* function definition for FILL */ + +static void L9() +{register object *base=vs_base; + register object *sup=base+VM9; VC9 + vs_reserve(VM9); + {register object V59; + register object V60; + object V61; + object V62; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,2,VV[14],VV[15]); + V59=(base[0]); + V60=(base[1]); + vs_top=sup; + V61=(base[2]); + V62=(base[3]); + {long V63; + if(((V61))==Cnil){ + goto T131;} + V63= (long)(*(LnkLI36))((V61)); + goto T129; +goto T131; +T131:; + V63= 0; goto T129; T129:; - V71 = make_fixnum(V69); - V72 = make_fixnum(V70); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V71,V72))); -goto T128; -T128:; - {register long V73; - V73= V69; -goto T133; -T133:; - if(!((V73)>=(V70))){ - goto T134;} - {object V74 = (V65); - VMR9(V74)} + {register long V64; + V64= (long)(*(LnkLI37))((V62),(V59)); + if(!((V63)<=(V64))){ + goto T135;} + goto T134; +goto T135; +T135:; + base[6]= make_fixnum(V63); + base[7]= make_fixnum(V64); + vs_top=(vs_base=base+6)+2; + (void) (*Lnk33)(); + vs_top=sup; goto T134; T134:; - (void)(elt_set((V65),V73,(V66))); - V73= (long)(1)+(V73); - goto T133;}}} - va_end(ap); - return Cnil;} - }} -/* local entry for function REPLACE */ - -static object LI10(V76,V75,va_alist) - object V76,V75; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB10 VMS10 VMV10 - {register object V77; - object V78; - object V79; - object V80; - object V81; - object V82; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V77= V76; - V78= V75; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI10key,ap); - V79=(Vcs[2]); - V80=(Vcs[3]); - V81=(Vcs[4]); - V82=(Vcs[5]); - {long V83; - if(((V79))==Cnil){ - goto T144;} - V83= (long)(*(LnkLI36))((V79)); - goto T142; -goto T144; -T144:; - V83= 0; + {register long V65; + V65= V63; +goto T141; +T141:; + if(!((V65)>=(V64))){ + goto T142;} + base[6]= (V59); + vs_top=(vs_base=base+6)+1; + return; goto T142; T142:; - {long V84; - V84= (long)(*(LnkLI37))((V80),(V77)); - if(!((V83)<=(V84))){ - goto T148;} - goto T147; -goto T148; -T148:; - V85 = make_fixnum(V83); - V86 = make_fixnum(V84); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V85,V86))); -goto T147; -T147:; - {long V87; - if(((V81))==Cnil){ + (void)(elt_set((V59),V65,(V60))); + V65= (long)(1)+(V65); + goto T141;}}} + } +} +/* function definition for REPLACE */ + +static void L10() +{register object *base=vs_base; + register object *sup=base+VM10; VC10 + vs_reserve(VM10); + {register object V66; + object V67; + object V68; + object V69; + object V70; + object V71; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,4,VV[38],VV[39],VV[40],VV[41]); + V66=(base[0]); + V67=(base[1]); + vs_top=sup; + V68=(base[2]); + V69=(base[3]); + V70=(base[4]); + V71=(base[5]); + {long V72; + if(((V68))==Cnil){ goto T152;} - V87= (long)(*(LnkLI36))((V81)); + V72= (long)(*(LnkLI36))((V68)); goto T150; goto T152; T152:; - V87= 0; + V72= 0; goto T150; T150:; - {long V88; - V88= (long)(*(LnkLI37))((V82),(V78)); - if(!((V87)<=(V88))){ + {long V73; + V73= (long)(*(LnkLI37))((V69),(V66)); + if(!((V72)<=(V73))){ goto T156;} goto T155; goto T156; T156:; - V89 = make_fixnum(V87); - V90 = make_fixnum(V88); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V89,V90))); + base[10]= make_fixnum(V72); + base[11]= make_fixnum(V73); + vs_top=(vs_base=base+10)+2; + (void) (*Lnk33)(); + vs_top=sup; goto T155; T155:; - if(!(((V77))==((V78)))){ - goto T159;} - if(!((V83)>(V87))){ - goto T159;} - {register long V91; - long V92; - register long V93; - register long V94; - V91= 0; - if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){ + {long V74; + if(((V70))==Cnil){ + goto T162;} + V74= (long)(*(LnkLI36))((V70)); + goto T160; +goto T162; +T162:; + V74= 0; +goto T160; +T160:; + {long V75; + V75= (long)(*(LnkLI37))((V71),(V67)); + if(!((V74)<=(V75))){ goto T166;} - V92= (long)(V84)-(V83); - goto T164; + goto T165; goto T166; T166:; - V92= (long)(V88)-(V87); -goto T164; -T164:; - V93= (long)(V83)+((long)(-1)+(V92)); - V94= (long)(V87)+((long)(-1)+(V92)); + base[10]= make_fixnum(V74); + base[11]= make_fixnum(V75); + vs_top=(vs_base=base+10)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T165; +T165:; + if(!(((V66))==((V67)))){ + goto T171;} + if(!((V72)>(V74))){ + goto T171;} + {register long V76; + long V77; + register long V78; + register long V79; + V76= 0; + if(!(((long)(V73)-(V72))<((long)(V75)-(V74)))){ + goto T178;} + V77= (long)(V73)-(V72); + goto T176; +goto T178; +T178:; + V77= (long)(V75)-(V74); +goto T176; +T176:; + V78= (long)(V72)+((long)(-1)+(V77)); + V79= (long)(V74)+((long)(-1)+(V77)); +goto T183; +T183:; + if(!((V76)>=(V77))){ + goto T184;} + base[10]= (V66); + vs_top=(vs_base=base+10)+1; + return; +goto T184; +T184:; + V80= elt((V67),V79); + (void)(elt_set((V66),V78,/* INLINE-ARGS */V80)); + V76= (long)(1)+(V76); + V78= (long)(-1)+(V78); + V79= (long)(-1)+(V79); + goto T183;} goto T171; T171:; - if(!((V91)>=(V92))){ - goto T172;} - {object V95 = (V77); - VMR10(V95)} -goto T172; -T172:; - V96= elt((V78),V94); - (void)(elt_set((V77),V93,/* INLINE-ARGS */V96)); - V91= (long)(1)+(V91); - V93= (long)(-1)+(V93); - V94= (long)(-1)+(V94); - goto T171;} -goto T159; -T159:; - {register long V97; - long V98; - register long V99; - register long V100; - V97= 0; - if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){ - goto T187;} - V98= (long)(V84)-(V83); - goto T185; -goto T187; -T187:; - V98= (long)(V88)-(V87); -goto T185; -T185:; - V99= V83; - V100= V87; -goto T192; -T192:; - if(!((V97)>=(V98))){ - goto T193;} - {object V101 = (V77); - VMR10(V101)} -goto T193; -T193:; - V102= elt((V78),V100); - (void)(elt_set((V77),V99,/* INLINE-ARGS */V102)); - V97= (long)(1)+(V97); - V99= (long)(1)+(V99); - V100= (long)(1)+(V100); - goto T192;}}}}} - va_end(ap); - return Cnil;} - }} -/* local entry for function REMOVE */ - -static object LI11(V104,V103,va_alist) - object V104,V103; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB11 VMS11 VMV11 - {object V105; - object V106; - object V107; - object V108; - object V109; - object V110; - object V111; - object V112; - object V113; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V105= V104; - V106= V103; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI11key,ap); - V107=(Vcs[2]); - V108=(Vcs[3]); - V109=(Vcs[4]); - V110=(Vcs[5]); - V111=(Vcs[6]); - V112=(Vcs[7]); - if(Vcs[8]==0){ - V113= symbol_function(VV[35]); - }else{ - V113=(Vcs[8]);} - if(!(((V113))==(Cnil))){ - goto T204;} - V113= symbol_function(VV[35]); + {register long V81; + long V82; + register long V83; + register long V84; + V81= 0; + if(!(((long)(V73)-(V72))<((long)(V75)-(V74)))){ + goto T199;} + V82= (long)(V73)-(V72); + goto T197; +goto T199; +T199:; + V82= (long)(V75)-(V74); +goto T197; +T197:; + V83= V72; + V84= V74; goto T204; T204:; - {long V114; - if(((V110))==Cnil){ - goto T210;} - V114= (long)(*(LnkLI36))((V110)); - goto T208; -goto T210; -T210:; - V114= 0; -goto T208; -T208:; - {long V115; - V115= (long)(*(LnkLI37))((V111),(V106)); - if(!((V114)<=(V115))){ - goto T214;} - goto T213; -goto T214; -T214:; - V116 = make_fixnum(V114); - V117 = make_fixnum(V115); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V116,V117))); -goto T213; -T213:; - {long V118; - if(((V112))!=Cnil){ - goto T218;} - V118= 2147483647; - goto T216; -goto T218; -T218:; - V118= fix((V112)); + if(!((V81)>=(V82))){ + goto T205;} + base[10]= (V66); + vs_top=(vs_base=base+10)+1; + return; +goto T205; +T205:; + V85= elt((V67),V84); + (void)(elt_set((V66),V83,/* INLINE-ARGS */V85)); + V81= (long)(1)+(V81); + V83= (long)(1)+(V83); + V84= (long)(1)+(V84); + goto T204;}}}}} + } +} +/* function definition for REMOVE */ + +static void L11() +{register object *base=vs_base; + register object *sup=base+VM11; VC11 + vs_reserve(VM11); + {object V86; + object V87; + object V88; + object V89; + object V90; + object V91; + object V92; + object V93; + object V94; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,7,VV[11],VV[12],VV[13],VV[14],VV[15],VV[16],VV[17]); + V86=(base[0]); + V87=(base[1]); + vs_top=sup; + V88=(base[2]); + V89=(base[3]); + V90=(base[4]); + V91=(base[5]); + V92=(base[6]); + V93=(base[7]); + if(base[15]==Cnil){ + V94= symbol_function(VV[35]); + }else{ + V94=(base[8]);} + if(!(((V94))==(Cnil))){ + goto T216;} + V94= symbol_function(VV[35]); goto T216; T216:; - if((V108)==Cnil){ - goto T221;} - if((V109)==Cnil){ - goto T221;} - (void)((*(LnkLI42))()); -goto T221; -T221:; - if(((V107))!=Cnil){ - goto T223;} - if(!(type_of((V106))==t_cons||((V106))==Cnil)){ + {long V95; + if(((V91))==Cnil){ + goto T222;} + V95= (long)(*(LnkLI36))((V91)); + goto T220; +goto T222; +T222:; + V95= 0; +goto T220; +T220:; + {long V96; + V96= (long)(*(LnkLI37))((V92),(V87)); + if(!((V95)<=(V96))){ goto T226;} - {register object V119; - register object V120; - V119= (V106); - V120= Cnil; - {register long V121; - V121= 0; -goto T231; -T231:; - if(!((V121)>=(V114))){ + goto T225; +goto T226; +T226:; + base[16]= make_fixnum(V95); + base[17]= make_fixnum(V96); + vs_top=(vs_base=base+16)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T225; +T225:; + {long V97; + if(((V93))!=Cnil){ goto T232;} - goto T228; + V97= 2147483647; + goto T230; goto T232; T232:; - {register object V122; - V122= car((V119)); - V120= make_cons((V122),(V120));} - {register object V123; - V123= car((V119)); - V119= cdr((V119));} - V121= (long)(1)+(V121); - goto T231;} -goto T228; -T228:; - {register long V124; - register long V125; - V124= V114; - V125= 0; -goto T249; -T249:; - if((V124)>=(V115)){ - goto T251;} - if((V125)>=(V118)){ - goto T251;} - if(!(endp_prop((V119)))){ - goto T250;} -goto T251; -T251:; - base[0]= (V120); - base[1]= (V119); - vs_top=(vs_base=base+0)+2; - Lreconc(); - vs_top=sup; - {object V126 = vs_base[0]; - VMR11(V126)} -goto T250; -T250:; - base[0]= car((V119)); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V113)); - vs_top=sup; - V127= vs_base[0]; - if(((*(LnkLI43))((V108),(V109),(V105),V127))==Cnil){ - goto T262;} - V125= (long)(1)+(V125); - {register object V128; - V128= car((V119)); - V119= cdr((V119)); - goto T260;} -goto T262; -T262:; - {register object V129; - V129= car((V119)); - V120= make_cons((V129),(V120));} - {register object V130; - V130= car((V119)); - V119= cdr((V119));} -goto T260; -T260:; - V124= (long)(1)+(V124); - goto T249;}} -goto T226; -T226:; - V131 = make_fixnum(V114); - V132 = make_fixnum(V115); - V133 = make_fixnum(V118); - {object V134 = (VFUN_NARGS=16,(*(LnkLI44))((V105),(V106),VV[11],(V107),VV[12],(V108),VV[13],(V109),VV[14],V131,VV[15],V132,VV[16],V133,VV[17],(V113))); - VMR11(V134)} -goto T223; -T223:; - V135 = make_fixnum(V114); - V136 = make_fixnum(V115); - V137 = make_fixnum(V118); - {object V138 = (VFUN_NARGS=16,(*(LnkLI44))((V105),(V106),VV[11],(V107),VV[12],(V108),VV[13],(V109),VV[14],V135,VV[15],V136,VV[16],V137,VV[17],(V113))); - VMR11(V138)}}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function REMOVE-IF */ - -static object LI12(V140,V139,va_alist) - object V140,V139; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB12 VMS12 VMV12 - {object V141; - object V142; - object V143; - object V144; - object V145; - object V146; - object V147; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V141= V140; - V142= V139; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI12key,ap); - V143=(Vcs[2]); - V144=(Vcs[3]); - V145=(Vcs[4]); - V146=(Vcs[5]); - if(Vcs[6]==0){ - V147= symbol_function(VV[35]); - }else{ - V147=(Vcs[6]);} - if(!(((V147))==(Cnil))){ - goto T281;} - V147= symbol_function(VV[35]); -goto T281; -T281:; - V148= symbol_function(VV[46]); - {object V149 = (VFUN_NARGS=14,(*(LnkLI45))((V141),(V142),VV[11],(V143),VV[12],V148,VV[14],(V144),VV[15],(V145),VV[16],(V146),VV[17],(V147))); - VMR12(V149)} - va_end(ap); - return Cnil;} - }} -/* local entry for function REMOVE-IF-NOT */ - -static object LI13(V151,V150,va_alist) - object V151,V150; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB13 VMS13 VMV13 - {object V152; - object V153; - object V154; - object V155; - object V156; - object V157; - object V158; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V152= V151; - V153= V150; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI13key,ap); - V154=(Vcs[2]); - V155=(Vcs[3]); - V156=(Vcs[4]); - V157=(Vcs[5]); - if(Vcs[6]==0){ - V158= symbol_function(VV[35]); - }else{ - V158=(Vcs[6]);} - if(!(((V158))==(Cnil))){ - goto T287;} - V158= symbol_function(VV[35]); -goto T287; -T287:; - V159= symbol_function(VV[46]); - {object V160 = (VFUN_NARGS=14,(*(LnkLI45))((V152),(V153),VV[11],(V154),VV[13],V159,VV[14],(V155),VV[15],(V156),VV[16],(V157),VV[17],(V158))); - VMR13(V160)} - va_end(ap); - return Cnil;} - }} -/* local entry for function DELETE */ - -static object LI14(V162,V161,va_alist) - object V162,V161; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB14 VMS14 VMV14 - {object V163; - register object V164; - object V165; - object V166; - object V167; - object V168; - object V169; - object V170; - object V171; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V163= V162; - V164= V161; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI14key,ap); - V165=(Vcs[2]); - V166=(Vcs[3]); - V167=(Vcs[4]); - V168=(Vcs[5]); - V169=(Vcs[6]); - V170=(Vcs[7]); - if(Vcs[8]==0){ - V171= symbol_function(VV[35]); - }else{ - V171=(Vcs[8]);} - {long V172; - V172= (long)length((V164)); - if(!(((V171))==(Cnil))){ - goto T294;} - V171= symbol_function(VV[35]); -goto T294; -T294:; - {register long V173; - if(((V168))==Cnil){ - goto T300;} - V173= (long)(*(LnkLI36))((V168)); - goto T298; -goto T300; -T300:; - V173= 0; -goto T298; -T298:; - {long V174; - V174= (long)(*(LnkLI37))((V169),(V164)); - if(!((V173)<=(V174))){ - goto T304;} - goto T303; -goto T304; -T304:; - V175 = make_fixnum(V173); - V176 = make_fixnum(V174); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V175,V176))); -goto T303; -T303:; - {register long V177; - if(((V170))!=Cnil){ - goto T308;} - V177= 2147483647; - goto T306; -goto T308; -T308:; - V177= fix((V170)); -goto T306; -T306:; - if((V166)==Cnil){ - goto T311;} - if((V167)==Cnil){ - goto T311;} + V97= fix((V93)); +goto T230; +T230:; + if((V89)==Cnil){ + goto T235;} + if((V90)==Cnil){ + goto T235;} (void)((*(LnkLI42))()); -goto T311; -T311:; - if(((V165))!=Cnil){ - goto T313;} - if(!(type_of((V164))==t_cons||((V164))==Cnil)){ - goto T316;} - {object V178; - register object V179; - V178= make_cons(Cnil,(V164)); - V179= (V178); - {long V180; - V180= 0; -goto T323; -T323:; - if(!((V180)>=(V173))){ - goto T324;} - goto T320; -goto T324; -T324:; - {object V181; - V181= car((V179)); - V179= cdr((V179));} - V180= (long)(1)+(V180); - goto T323;} -goto T320; -T320:; - {long V182; - long V183; - V182= V173; - V183= 0; -goto T338; -T338:; - if((V182)>=(V174)){ - goto T340;} - if((V183)>=(V177)){ - goto T340;} - if(!(endp_prop(cdr((V179))))){ - goto T339;} -goto T340; -T340:; - {object V184 = cdr((V178)); - VMR14(V184)} -goto T339; -T339:; - base[1]= cadr((V179)); - vs_top=(vs_base=base+1)+1; - super_funcall_no_event((V171)); - vs_top=sup; - V185= vs_base[0]; - if(((*(LnkLI43))((V166),(V167),(V163),V185))==Cnil){ - goto T349;} - V183= (long)(1)+(V183); - if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179)); - ((V179))->c.c_cdr = cddr((V179)); - goto T347; -goto T349; -T349:; - V179= cdr((V179)); -goto T347; -T347:; - V182= (long)(1)+(V182); - goto T338;}} -goto T316; -T316:; - {long V186; - V187 = make_fixnum(V173); - V188 = make_fixnum(V174); - V189 = make_fixnum(V177); - V186= fix((VFUN_NARGS=16,(*(LnkLI47))((V163),(V164),VV[11],(V165),VV[12],(V166),VV[13],(V167),VV[14],V187,VV[15],V188,VV[16],V189,VV[17],(V171)))); - if(!((V186)<(V177))){ - goto T360;} - V177= V186; -goto T360; -T360:; - {object V190; - register long V191; - long V192; - long V193; - V194= (*(LnkLI49))((V164)); - V195 = make_fixnum((long)(V172)-(V177)); - V190= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V194,V195)); - V191= 0; - V192= 0; - V193= 0; -goto T369; -T369:; - if(!((V191)>=(V172))){ - goto T370;} - {object V196 = (V190); - VMR14(V196)} +goto T235; +T235:; + if(((V88))!=Cnil){ + goto T237;} + if(!(type_of((V87))==t_cons||((V87))==Cnil)){ + goto T240;} + {register object V98; + register object V99; + V98= (V87); + V99= Cnil; + {register long V100; + V100= 0; +goto T245; +T245:; + if(!((V100)>=(V95))){ + goto T246;} + goto T242; +goto T246; +T246:; + {register object V101; + V101= car((V98)); + V99= make_cons((V101),(V99));} + {register object V102; + V102= car((V98)); + V98= cdr((V98));} + V100= (long)(1)+(V100); + goto T245;} +goto T242; +T242:; + {register long V103; + register long V104; + V103= V95; + V104= 0; +goto T263; +T263:; + if((V103)>=(V96)){ + goto T265;} + if((V104)>=(V97)){ + goto T265;} + if(!(endp_prop((V98)))){ + goto T264;} +goto T265; +T265:; + base[16]= (V99); + base[17]= (V98); + vs_top=(vs_base=base+16)+2; + Lreconc(); + return; +goto T264; +T264:; + base[16]= car((V98)); + vs_top=(vs_base=base+16)+1; + super_funcall_no_event((V94)); + vs_top=sup; + V105= vs_base[0]; + if(((*(LnkLI43))((V89),(V90),(V86),V105))==Cnil){ + goto T276;} + V104= (long)(1)+(V104); + {register object V106; + V106= car((V98)); + V98= cdr((V98)); + goto T274;} +goto T276; +T276:; + {register object V107; + V107= car((V98)); + V99= make_cons((V107),(V99));} + {register object V108; + V108= car((V98)); + V98= cdr((V98));} +goto T274; +T274:; + V103= (long)(1)+(V103); + goto T263;}} +goto T240; +T240:; + base[16]= (V86); + base[17]= (V87); + base[18]= VV[11]; + base[19]= (V88); + base[20]= VV[12]; + base[21]= (V89); + base[22]= VV[13]; + base[23]= (V90); + base[24]= VV[14]; + base[25]= make_fixnum(V95); + base[26]= VV[15]; + base[27]= make_fixnum(V96); + base[28]= VV[16]; + base[29]= make_fixnum(V97); + base[30]= VV[17]; + base[31]= (V94); + vs_top=(vs_base=base+16)+16; + (void) (*Lnk44)(); + return; +goto T237; +T237:; + base[16]= (V86); + base[17]= (V87); + base[18]= VV[11]; + base[19]= (V88); + base[20]= VV[12]; + base[21]= (V89); + base[22]= VV[13]; + base[23]= (V90); + base[24]= VV[14]; + base[25]= make_fixnum(V95); + base[26]= VV[15]; + base[27]= make_fixnum(V96); + base[28]= VV[16]; + base[29]= make_fixnum(V97); + base[30]= VV[17]; + base[31]= (V94); + vs_top=(vs_base=base+16)+16; + (void) (*Lnk44)(); + return;}}} + } +} +/* function definition for REMOVE-IF */ + +static void L12() +{register object *base=vs_base; + register object *sup=base+VM12; VC12 + vs_reserve(VM12); + {object V109; + object V110; + object V111; + object V112; + object V113; + object V114; + object V115; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[16],VV[17]); + V109=(base[0]); + V110=(base[1]); + vs_top=sup; + V111=(base[2]); + V112=(base[3]); + V113=(base[4]); + V114=(base[5]); + if(base[11]==Cnil){ + V115= symbol_function(VV[35]); + }else{ + V115=(base[6]);} + if(!(((V115))==(Cnil))){ + goto T327;} + V115= symbol_function(VV[35]); +goto T327; +T327:; + base[12]= (V109); + base[13]= (V110); + base[14]= VV[11]; + base[15]= (V111); + base[16]= VV[12]; + base[17]= symbol_function(VV[45]); + base[18]= VV[14]; + base[19]= (V112); + base[20]= VV[15]; + base[21]= (V113); + base[22]= VV[16]; + base[23]= (V114); + base[24]= VV[17]; + base[25]= (V115); + vs_top=(vs_base=base+12)+14; + (void) (*Lnk46)(); + return; + } +} +/* function definition for REMOVE-IF-NOT */ + +static void L13() +{register object *base=vs_base; + register object *sup=base+VM13; VC13 + vs_reserve(VM13); + {object V116; + object V117; + object V118; + object V119; + object V120; + object V121; + object V122; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[16],VV[17]); + V116=(base[0]); + V117=(base[1]); + vs_top=sup; + V118=(base[2]); + V119=(base[3]); + V120=(base[4]); + V121=(base[5]); + if(base[11]==Cnil){ + V122= symbol_function(VV[35]); + }else{ + V122=(base[6]);} + if(!(((V122))==(Cnil))){ + goto T346;} + V122= symbol_function(VV[35]); +goto T346; +T346:; + base[12]= (V116); + base[13]= (V117); + base[14]= VV[11]; + base[15]= (V118); + base[16]= VV[13]; + base[17]= symbol_function(VV[45]); + base[18]= VV[14]; + base[19]= (V119); + base[20]= VV[15]; + base[21]= (V120); + base[22]= VV[16]; + base[23]= (V121); + base[24]= VV[17]; + base[25]= (V122); + vs_top=(vs_base=base+12)+14; + (void) (*Lnk46)(); + return; + } +} +/* function definition for DELETE */ + +static void L14() +{register object *base=vs_base; + register object *sup=base+VM14; VC14 + vs_reserve(VM14); + {object V123; + register object V124; + object V125; + object V126; + object V127; + object V128; + object V129; + object V130; + object V131; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,7,VV[11],VV[12],VV[13],VV[14],VV[15],VV[16],VV[17]); + V123=(base[0]); + V124=(base[1]); + vs_top=sup; + V125=(base[2]); + V126=(base[3]); + V127=(base[4]); + V128=(base[5]); + V129=(base[6]); + V130=(base[7]); + if(base[15]==Cnil){ + V131= symbol_function(VV[35]); + }else{ + V131=(base[8]);} + {long V132; + V132= (long)length((V124)); + if(!(((V131))==(Cnil))){ + goto T366;} + V131= symbol_function(VV[35]); +goto T366; +T366:; + {register long V133; + if(((V128))==Cnil){ + goto T372;} + V133= (long)(*(LnkLI36))((V128)); + goto T370; +goto T372; +T372:; + V133= 0; goto T370; T370:; - if(!((V173)<=(V191))){ - goto T376;} - if(!((V191)<(V174))){ + {long V134; + V134= (long)(*(LnkLI37))((V129),(V124)); + if(!((V133)<=(V134))){ goto T376;} - if(!((V193)<(V177))){ - goto T376;} - base[0]= elt((V164),V191); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V171)); - vs_top=sup; - V197= vs_base[0]; - if(((*(LnkLI43))((V166),(V167),(V163),V197))==Cnil){ - goto T376;} - V193= (long)(1)+(V193); - goto T374; + goto T375; goto T376; T376:; - V198= elt((V164),V191); - (void)(elt_set((V190),V192,/* INLINE-ARGS */V198)); - V192= (long)(1)+(V192); -goto T374; -T374:; - V191= (long)(1)+(V191); - goto T369;}} -goto T313; -T313:; - {long V199; - V200 = make_fixnum(V173); - V201 = make_fixnum(V174); - V202 = make_fixnum(V177); - V199= fix((VFUN_NARGS=16,(*(LnkLI47))((V163),(V164),VV[11],(V165),VV[12],(V166),VV[13],(V167),VV[14],V200,VV[15],V201,VV[16],V202,VV[17],(V171)))); - if(!((V199)<(V177))){ - goto T393;} - V177= V199; -goto T393; -T393:; - {object V203; - register long V204; - long V205; - long V206; - V207= (*(LnkLI49))((V164)); - V208 = make_fixnum((long)(V172)-(V177)); - V203= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V207,V208)); - V204= (long)(-1)+(V172); - V205= (long)(-1)+((long)(V172)-(V177)); - V206= 0; -goto T402; -T402:; - if(!((V204)<(0))){ - goto T403;} - {object V209 = (V203); - VMR14(V209)} -goto T403; -T403:; - if(!((V173)<=(V204))){ - goto T409;} - if(!((V204)<(V174))){ - goto T409;} - if(!((V206)<(V177))){ - goto T409;} - base[0]= elt((V164),V204); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V171)); + base[16]= make_fixnum(V133); + base[17]= make_fixnum(V134); + vs_top=(vs_base=base+16)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T375; +T375:; + {register long V135; + if(((V130))!=Cnil){ + goto T382;} + V135= 2147483647; + goto T380; +goto T382; +T382:; + V135= fix((V130)); +goto T380; +T380:; + if((V126)==Cnil){ + goto T385;} + if((V127)==Cnil){ + goto T385;} + (void)((*(LnkLI42))()); +goto T385; +T385:; + if(((V125))!=Cnil){ + goto T387;} + if(!(type_of((V124))==t_cons||((V124))==Cnil)){ + goto T390;} + {object V136; + register object V137; + V136= make_cons(Cnil,(V124)); + V137= (V136); + {long V138; + V138= 0; +goto T397; +T397:; + if(!((V138)>=(V133))){ + goto T398;} + goto T394; +goto T398; +T398:; + {object V139; + V139= car((V137)); + V137= cdr((V137));} + V138= (long)(1)+(V138); + goto T397;} +goto T394; +T394:; + {long V140; + long V141; + V140= V133; + V141= 0; +goto T412; +T412:; + if((V140)>=(V134)){ + goto T414;} + if((V141)>=(V135)){ + goto T414;} + if(!(endp_prop(cdr((V137))))){ + goto T413;} +goto T414; +T414:; + base[17]= cdr((V136)); + vs_top=(vs_base=base+17)+1; + return; +goto T413; +T413:; + base[17]= cadr((V137)); + vs_top=(vs_base=base+17)+1; + super_funcall_no_event((V131)); + vs_top=sup; + V142= vs_base[0]; + if(((*(LnkLI43))((V126),(V127),(V123),V142))==Cnil){ + goto T423;} + V141= (long)(1)+(V141); + if(type_of((V137))!=t_cons)FEwrong_type_argument(Scons,(V137)); + ((V137))->c.c_cdr = cddr((V137)); + goto T421; +goto T423; +T423:; + V137= cdr((V137)); +goto T421; +T421:; + V140= (long)(1)+(V140); + goto T412;}} +goto T390; +T390:; + {long V143; + base[16]= (V123); + base[17]= (V124); + base[18]= VV[11]; + base[19]= (V125); + base[20]= VV[12]; + base[21]= (V126); + base[22]= VV[13]; + base[23]= (V127); + base[24]= VV[14]; + base[25]= make_fixnum(V133); + base[26]= VV[15]; + base[27]= make_fixnum(V134); + base[28]= VV[16]; + base[29]= make_fixnum(V135); + base[30]= VV[17]; + base[31]= (V131); + vs_top=(vs_base=base+16)+16; + (void) (*Lnk47)(); vs_top=sup; - V210= vs_base[0]; - if(((*(LnkLI43))((V166),(V167),(V163),V210))==Cnil){ - goto T409;} - V206= (long)(1)+(V206); - goto T407; -goto T409; -T409:; - V211= elt((V164),V204); - (void)(elt_set((V203),V205,/* INLINE-ARGS */V211)); - V205= (long)(-1)+(V205); -goto T407; -T407:; - V204= (long)(-1)+(V204); - goto T402;}}}}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function DELETE-IF */ - -static object LI15(V213,V212,va_alist) - object V213,V212; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB15 VMS15 VMV15 - {object V214; - object V215; - object V216; - object V217; - object V218; - object V219; - object V220; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V214= V213; - V215= V212; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI15key,ap); - V216=(Vcs[2]); - V217=(Vcs[3]); - V218=(Vcs[4]); - V219=(Vcs[5]); - if(Vcs[6]==0){ - V220= symbol_function(VV[35]); - }else{ - V220=(Vcs[6]);} - if(!(((V220))==(Cnil))){ - goto T426;} - V220= symbol_function(VV[35]); -goto T426; -T426:; - V221= symbol_function(VV[46]); - {object V222 = (VFUN_NARGS=14,(*(LnkLI44))((V214),(V215),VV[11],(V216),VV[12],V221,VV[14],(V217),VV[15],(V218),VV[16],(V219),VV[17],(V220))); - VMR15(V222)} - va_end(ap); - return Cnil;} - }} -/* local entry for function DELETE-IF-NOT */ - -static object LI16(V224,V223,va_alist) - object V224,V223; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB16 VMS16 VMV16 - {object V225; - object V226; - object V227; - object V228; - object V229; - object V230; - object V231; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V225= V224; - V226= V223; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI16key,ap); - V227=(Vcs[2]); - V228=(Vcs[3]); - V229=(Vcs[4]); - V230=(Vcs[5]); - if(Vcs[6]==0){ - V231= symbol_function(VV[35]); - }else{ - V231=(Vcs[6]);} - if(!(((V231))==(Cnil))){ - goto T432;} - V231= symbol_function(VV[35]); -goto T432; -T432:; - V232= symbol_function(VV[46]); - {object V233 = (VFUN_NARGS=14,(*(LnkLI44))((V225),(V226),VV[11],(V227),VV[13],V232,VV[14],(V228),VV[15],(V229),VV[16],(V230),VV[17],(V231))); - VMR16(V233)} - va_end(ap); - return Cnil;} - }} -/* local entry for function COUNT */ - -static object LI17(V235,V234,va_alist) - object V235,V234; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB17 VMS17 VMV17 - {object V236; - register object V237; - object V238; - register object V239; - register object V240; - object V241; - object V242; - register object V243; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V236= V235; - V237= V234; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI17key,ap); - V238=(Vcs[2]); - V239=(Vcs[3]); - V240=(Vcs[4]); - V241=(Vcs[5]); - V242=(Vcs[6]); - if(Vcs[7]==0){ - V243= symbol_function(VV[35]); - }else{ - V243=(Vcs[7]);} - if(!(((V243))==(Cnil))){ - goto T438;} - V243= symbol_function(VV[35]); -goto T438; -T438:; - {long V244; - if(((V241))==Cnil){ - goto T444;} - V244= (long)(*(LnkLI36))((V241)); - goto T442; -goto T444; -T444:; - V244= 0; -goto T442; -T442:; - {long V245; - V245= (long)(*(LnkLI37))((V242),(V237)); - if(!((V244)<=(V245))){ - goto T448;} - goto T447; -goto T448; -T448:; - V246 = make_fixnum(V244); - V247 = make_fixnum(V245); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V246,V247))); -goto T447; -T447:; - if((V239)==Cnil){ - goto T450;} - if((V240)==Cnil){ + V143= fix(vs_base[0]); + if(!((V143)<(V135))){ goto T450;} - (void)((*(LnkLI42))()); + V135= V143; goto T450; T450:; - if(((V238))!=Cnil){ - goto T452;} - {register long V248; - register long V249; - V248= V244; - V249= 0; -goto T457; -T457:; - if(!((V248)>=(V245))){ - goto T458;} - {object V250 = make_fixnum(V249); - VMR17(V250)} -goto T458; -T458:; - base[0]= elt((V237),V248); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V243)); - vs_top=sup; - V251= vs_base[0]; - if(((*(LnkLI43))((V239),(V240),(V236),V251))==Cnil){ + {object V144; + register long V145; + long V146; + long V147; + base[16]= (*(LnkLI48))((V124)); + base[17]= make_fixnum((long)(V132)-(V135)); + vs_top=(vs_base=base+16)+2; + (void) (*Lnk49)(); + vs_top=sup; + V144= vs_base[0]; + V145= 0; + V146= 0; + V147= 0; +goto T461; +T461:; + if(!((V145)>=(V132))){ goto T462;} - V249= (long)(1)+(V249); + base[16]= (V144); + vs_top=(vs_base=base+16)+1; + return; goto T462; T462:; - V248= (long)(1)+(V248); - goto T457;} -goto T452; -T452:; - {register long V252; - register long V253; - V252= (long)(-1)+(V245); - V253= 0; -goto T474; -T474:; - if(!((V252)<(V244))){ - goto T475;} - {object V254 = make_fixnum(V253); - VMR17(V254)} -goto T475; -T475:; - base[0]= elt((V237),V252); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V243)); + if(!((V133)<=(V145))){ + goto T468;} + if(!((V145)<(V134))){ + goto T468;} + if(!((V147)<(V135))){ + goto T468;} + base[16]= elt((V124),V145); + vs_top=(vs_base=base+16)+1; + super_funcall_no_event((V131)); + vs_top=sup; + V148= vs_base[0]; + if(((*(LnkLI43))((V126),(V127),(V123),V148))==Cnil){ + goto T468;} + V147= (long)(1)+(V147); + goto T466; +goto T468; +T468:; + V149= elt((V124),V145); + (void)(elt_set((V144),V146,/* INLINE-ARGS */V149)); + V146= (long)(1)+(V146); +goto T466; +T466:; + V145= (long)(1)+(V145); + goto T461;}} +goto T387; +T387:; + {long V150; + base[16]= (V123); + base[17]= (V124); + base[18]= VV[11]; + base[19]= (V125); + base[20]= VV[12]; + base[21]= (V126); + base[22]= VV[13]; + base[23]= (V127); + base[24]= VV[14]; + base[25]= make_fixnum(V133); + base[26]= VV[15]; + base[27]= make_fixnum(V134); + base[28]= VV[16]; + base[29]= make_fixnum(V135); + base[30]= VV[17]; + base[31]= (V131); + vs_top=(vs_base=base+16)+16; + (void) (*Lnk47)(); vs_top=sup; - V255= vs_base[0]; - if(((*(LnkLI43))((V239),(V240),(V236),V255))==Cnil){ - goto T479;} - V253= (long)(1)+(V253); -goto T479; -T479:; - V252= (long)(-1)+(V252); - goto T474;}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function COUNT-IF */ - -static object LI18(V257,V256,va_alist) - object V257,V256; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB18 VMS18 VMV18 - {object V258; - object V259; - object V260; - object V261; - object V262; - object V263; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V258= V257; - V259= V256; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI18key,ap); - V260=(Vcs[2]); - V261=(Vcs[3]); - V262=(Vcs[4]); - if(Vcs[5]==0){ - V263= symbol_function(VV[35]); - }else{ - V263=(Vcs[5]);} - if(!(((V263))==(Cnil))){ - goto T489;} - V263= symbol_function(VV[35]); -goto T489; -T489:; - V264= symbol_function(VV[46]); - {object V265 = (VFUN_NARGS=12,(*(LnkLI50))((V258),(V259),VV[11],(V260),VV[12],V264,VV[14],(V261),VV[15],(V262),VV[17],(V263))); - VMR18(V265)} - va_end(ap); - return Cnil;} - }} -/* local entry for function COUNT-IF-NOT */ - -static object LI19(V267,V266,va_alist) - object V267,V266; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB19 VMS19 VMV19 - {object V268; - object V269; - object V270; - object V271; - object V272; - object V273; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V268= V267; - V269= V266; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI19key,ap); - V270=(Vcs[2]); - V271=(Vcs[3]); - V272=(Vcs[4]); - if(Vcs[5]==0){ - V273= symbol_function(VV[35]); - }else{ - V273=(Vcs[5]);} - if(!(((V273))==(Cnil))){ - goto T495;} - V273= symbol_function(VV[35]); -goto T495; -T495:; - V274= symbol_function(VV[46]); - {object V275 = (VFUN_NARGS=12,(*(LnkLI50))((V268),(V269),VV[11],(V270),VV[13],V274,VV[14],(V271),VV[15],(V272),VV[17],(V273))); - VMR19(V275)} - va_end(ap); - return Cnil;} - }} -/* local entry for function INTERNAL-COUNT */ - -static object LI20(V277,V276,va_alist) - object V277,V276; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB20 VMS20 VMV20 - {object V278; - register object V279; - object V280; - register object V281; - register object V282; - object V283; - object V284; - object V285; - register object V286; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V278= V277; - V279= V276; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI20key,ap); - V280=(Vcs[2]); - V281=(Vcs[3]); - V282=(Vcs[4]); - V283=(Vcs[5]); - V284=(Vcs[6]); - V285=(Vcs[7]); - if(Vcs[8]==0){ - V286= symbol_function(VV[35]); - }else{ - V286=(Vcs[8]);} - if(!(((V286))==(Cnil))){ + V150= fix(vs_base[0]); + if(!((V150)<(V135))){ goto T501;} - V286= symbol_function(VV[35]); + V135= V150; goto T501; T501:; - {long V287; - if(((V283))==Cnil){ - goto T507;} - V287= (long)(*(LnkLI36))((V283)); - goto T505; -goto T507; -T507:; - V287= 0; -goto T505; -T505:; - {long V288; - V288= (long)(*(LnkLI37))((V284),(V279)); - if(!((V287)<=(V288))){ - goto T511;} - goto T510; -goto T511; -T511:; - V289 = make_fixnum(V287); - V290 = make_fixnum(V288); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V289,V290))); -goto T510; -T510:; - {long V291; - if(((V285))!=Cnil){ - goto T515;} - V291= 2147483647; - goto T513; -goto T515; -T515:; - V291= fix((V285)); + {object V151; + register long V152; + long V153; + long V154; + base[16]= (*(LnkLI48))((V124)); + base[17]= make_fixnum((long)(V132)-(V135)); + vs_top=(vs_base=base+16)+2; + (void) (*Lnk49)(); + vs_top=sup; + V151= vs_base[0]; + V152= (long)(-1)+(V132); + V153= (long)(-1)+((long)(V132)-(V135)); + V154= 0; +goto T512; +T512:; + if(!((V152)<(0))){ + goto T513;} + base[16]= (V151); + vs_top=(vs_base=base+16)+1; + return; goto T513; T513:; - if((V281)==Cnil){ - goto T518;} - if((V282)==Cnil){ - goto T518;} - (void)((*(LnkLI42))()); -goto T518; -T518:; - if(((V280))!=Cnil){ - goto T520;} - {register long V292; - register long V293; - V292= V287; - V293= 0; -goto T525; -T525:; - if(!((V292)>=(V288))){ - goto T526;} - {object V294 = make_fixnum(V293); - VMR20(V294)} -goto T526; -T526:; - if(!((V293)<(V291))){ - goto T530;} - base[0]= elt((V279),V292); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V286)); - vs_top=sup; - V295= vs_base[0]; - if(((*(LnkLI43))((V281),(V282),(V278),V295))==Cnil){ - goto T530;} - V293= (long)(1)+(V293); -goto T530; -T530:; - V292= (long)(1)+(V292); - goto T525;} -goto T520; -T520:; - {register long V296; - register long V297; - V296= (long)(-1)+(V288); - V297= 0; -goto T544; -T544:; - if(!((V296)<(V287))){ - goto T545;} - {object V298 = make_fixnum(V297); - VMR20(V298)} -goto T545; -T545:; - if(!((V297)<(V291))){ - goto T549;} - base[0]= elt((V279),V296); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V286)); - vs_top=sup; - V299= vs_base[0]; - if(((*(LnkLI43))((V281),(V282),(V278),V299))==Cnil){ - goto T549;} - V297= (long)(1)+(V297); -goto T549; -T549:; - V296= (long)(-1)+(V296); - goto T544;}}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function INTERNAL-COUNT-IF */ - -static object LI21(V301,V300,va_alist) - object V301,V300; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB21 VMS21 VMV21 - {object V302; - object V303; - object V304; - object V305; - object V306; - object V307; - object V308; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V302= V301; - V303= V300; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI21key,ap); - V304=(Vcs[2]); - V305=(Vcs[3]); - V306=(Vcs[4]); - V307=(Vcs[5]); - if(Vcs[6]==0){ - V308= symbol_function(VV[35]); - }else{ - V308=(Vcs[6]);} - if(!(((V308))==(Cnil))){ - goto T561;} - V308= symbol_function(VV[35]); -goto T561; -T561:; - V309= symbol_function(VV[46]); - {object V310 = (VFUN_NARGS=14,(*(LnkLI47))((V302),(V303),VV[11],(V304),VV[12],V309,VV[14],(V305),VV[15],(V306),VV[16],(V307),VV[17],(V308))); - VMR21(V310)} - va_end(ap); - return Cnil;} - }} -/* local entry for function INTERNAL-COUNT-IF-NOT */ - -static object LI22(V312,V311,va_alist) - object V312,V311; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB22 VMS22 VMV22 - {object V313; - object V314; - object V315; - object V316; - object V317; - object V318; - object V319; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V313= V312; - V314= V311; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI22key,ap); - V315=(Vcs[2]); - V316=(Vcs[3]); - V317=(Vcs[4]); - V318=(Vcs[5]); - if(Vcs[6]==0){ - V319= symbol_function(VV[35]); - }else{ - V319=(Vcs[6]);} - if(!(((V319))==(Cnil))){ - goto T567;} - V319= symbol_function(VV[35]); -goto T567; -T567:; - V320= symbol_function(VV[46]); - {object V321 = (VFUN_NARGS=14,(*(LnkLI47))((V313),(V314),VV[11],(V315),VV[13],V320,VV[14],(V316),VV[15],(V317),VV[16],(V318),VV[17],(V319))); - VMR22(V321)} - va_end(ap); - return Cnil;} - }} -/* local entry for function SUBSTITUTE */ - -static object LI23(V324,V323,V322,va_alist) - object V324,V323,V322; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB23 VMS23 VMV23 - {object V325; - object V326; - register object V327; - object V328; - object V329; - object V330; - object V331; - object V332; - object V333; - object V334; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <3) too_few_arguments(); - V325= V324; - V326= V323; - V327= V322; - narg= narg - 3; - { - parse_key_new(narg,Vcs +3,(struct key *)&LI23key,ap); - V328=(Vcs[3]); - V329=(Vcs[4]); - V330=(Vcs[5]); - V331=(Vcs[6]); - V332=(Vcs[7]); - V333=(Vcs[8]); - if(Vcs[9]==0){ - V334= symbol_function(VV[35]); - }else{ - V334=(Vcs[9]);} - {long V335; - V335= (long)length((V327)); - if(!(((V334))==(Cnil))){ + if(!((V133)<=(V152))){ + goto T519;} + if(!((V152)<(V134))){ + goto T519;} + if(!((V154)<(V135))){ + goto T519;} + base[16]= elt((V124),V152); + vs_top=(vs_base=base+16)+1; + super_funcall_no_event((V131)); + vs_top=sup; + V155= vs_base[0]; + if(((*(LnkLI43))((V126),(V127),(V123),V155))==Cnil){ + goto T519;} + V154= (long)(1)+(V154); + goto T517; +goto T519; +T519:; + V156= elt((V124),V152); + (void)(elt_set((V151),V153,/* INLINE-ARGS */V156)); + V153= (long)(-1)+(V153); +goto T517; +T517:; + V152= (long)(-1)+(V152); + goto T512;}}}}}} + } +} +/* function definition for DELETE-IF */ + +static void L15() +{register object *base=vs_base; + register object *sup=base+VM15; VC15 + vs_reserve(VM15); + {object V157; + object V158; + object V159; + object V160; + object V161; + object V162; + object V163; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[16],VV[17]); + V157=(base[0]); + V158=(base[1]); + vs_top=sup; + V159=(base[2]); + V160=(base[3]); + V161=(base[4]); + V162=(base[5]); + if(base[11]==Cnil){ + V163= symbol_function(VV[35]); + }else{ + V163=(base[6]);} + if(!(((V163))==(Cnil))){ + goto T536;} + V163= symbol_function(VV[35]); +goto T536; +T536:; + base[12]= (V157); + base[13]= (V158); + base[14]= VV[11]; + base[15]= (V159); + base[16]= VV[12]; + base[17]= symbol_function(VV[45]); + base[18]= VV[14]; + base[19]= (V160); + base[20]= VV[15]; + base[21]= (V161); + base[22]= VV[16]; + base[23]= (V162); + base[24]= VV[17]; + base[25]= (V163); + vs_top=(vs_base=base+12)+14; + (void) (*Lnk44)(); + return; + } +} +/* function definition for DELETE-IF-NOT */ + +static void L16() +{register object *base=vs_base; + register object *sup=base+VM16; VC16 + vs_reserve(VM16); + {object V164; + object V165; + object V166; + object V167; + object V168; + object V169; + object V170; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[16],VV[17]); + V164=(base[0]); + V165=(base[1]); + vs_top=sup; + V166=(base[2]); + V167=(base[3]); + V168=(base[4]); + V169=(base[5]); + if(base[11]==Cnil){ + V170= symbol_function(VV[35]); + }else{ + V170=(base[6]);} + if(!(((V170))==(Cnil))){ + goto T555;} + V170= symbol_function(VV[35]); +goto T555; +T555:; + base[12]= (V164); + base[13]= (V165); + base[14]= VV[11]; + base[15]= (V166); + base[16]= VV[13]; + base[17]= symbol_function(VV[45]); + base[18]= VV[14]; + base[19]= (V167); + base[20]= VV[15]; + base[21]= (V168); + base[22]= VV[16]; + base[23]= (V169); + base[24]= VV[17]; + base[25]= (V170); + vs_top=(vs_base=base+12)+14; + (void) (*Lnk44)(); + return; + } +} +/* function definition for COUNT */ + +static void L17() +{register object *base=vs_base; + register object *sup=base+VM17; VC17 + vs_reserve(VM17); + {object V171; + register object V172; + object V173; + register object V174; + register object V175; + object V176; + object V177; + register object V178; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,6,VV[11],VV[12],VV[13],VV[14],VV[15],VV[17]); + V171=(base[0]); + V172=(base[1]); + vs_top=sup; + V173=(base[2]); + V174=(base[3]); + V175=(base[4]); + V176=(base[5]); + V177=(base[6]); + if(base[13]==Cnil){ + V178= symbol_function(VV[35]); + }else{ + V178=(base[7]);} + if(!(((V178))==(Cnil))){ goto T574;} - V334= symbol_function(VV[35]); + V178= symbol_function(VV[35]); goto T574; T574:; - {long V336; - if(((V331))==Cnil){ + {long V179; + if(((V176))==Cnil){ goto T580;} - V336= (long)(*(LnkLI36))((V331)); + V179= (long)(*(LnkLI36))((V176)); goto T578; goto T580; T580:; - V336= 0; + V179= 0; goto T578; T578:; - {long V337; - V337= (long)(*(LnkLI37))((V332),(V327)); - if(!((V336)<=(V337))){ + {long V180; + V180= (long)(*(LnkLI37))((V177),(V172)); + if(!((V179)<=(V180))){ goto T584;} goto T583; goto T584; T584:; - V338 = make_fixnum(V336); - V339 = make_fixnum(V337); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V338,V339))); + base[14]= make_fixnum(V179); + base[15]= make_fixnum(V180); + vs_top=(vs_base=base+14)+2; + (void) (*Lnk33)(); + vs_top=sup; goto T583; T583:; - {long V340; - if(((V333))!=Cnil){ + if((V174)==Cnil){ goto T588;} - V340= 2147483647; - goto T586; + if((V175)==Cnil){ + goto T588;} + (void)((*(LnkLI42))()); goto T588; T588:; - V340= fix((V333)); -goto T586; -T586:; - if((V329)==Cnil){ - goto T591;} - if((V330)==Cnil){ - goto T591;} - (void)((*(LnkLI42))()); -goto T591; -T591:; - if(((V328))!=Cnil){ - goto T593;} - {register object V341; - register long V342; - register long V343; - V344= (*(LnkLI49))((V327)); - V345 = make_fixnum(V335); - V341= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V344,V345)); - V342= 0; - V343= 0; -goto T599; -T599:; - if(!((V342)>=(V335))){ + if(((V173))!=Cnil){ + goto T590;} + {register long V181; + register long V182; + V181= V179; + V182= 0; +goto T595; +T595:; + if(!((V181)>=(V180))){ + goto T596;} + base[14]= make_fixnum(V182); + vs_top=(vs_base=base+14)+1; + return; +goto T596; +T596:; + base[14]= elt((V172),V181); + vs_top=(vs_base=base+14)+1; + super_funcall_no_event((V178)); + vs_top=sup; + V183= vs_base[0]; + if(((*(LnkLI43))((V174),(V175),(V171),V183))==Cnil){ goto T600;} - {object V346 = (V341); - VMR23(V346)} + V182= (long)(1)+(V182); goto T600; T600:; - if(!((V336)<=(V342))){ - goto T606;} - if(!((V342)<(V337))){ - goto T606;} - if(!((V343)<(V340))){ - goto T606;} - base[0]= elt((V327),V342); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V334)); - vs_top=sup; - V347= vs_base[0]; - if(((*(LnkLI43))((V329),(V330),(V326),V347))==Cnil){ - goto T606;} - (void)(elt_set((V341),V342,(V325))); - V343= (long)(1)+(V343); - goto T604; -goto T606; -T606:; - V348= elt((V327),V342); - (void)(elt_set((V341),V342,/* INLINE-ARGS */V348)); -goto T604; -T604:; - V342= (long)(1)+(V342); - goto T599;} -goto T593; -T593:; - {register object V349; - register long V350; - register long V351; - V352= (*(LnkLI49))((V327)); - V353 = make_fixnum(V335); - V349= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V352,V353)); - V350= (long)(-1)+(V335); - V351= 0; -goto T625; -T625:; - if(!((V350)<(0))){ - goto T626;} - {object V354 = (V349); - VMR23(V354)} -goto T626; -T626:; - if(!((V336)<=(V350))){ - goto T632;} - if(!((V350)<(V337))){ - goto T632;} - if(!((V351)<(V340))){ - goto T632;} - base[0]= elt((V327),V350); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V334)); + V181= (long)(1)+(V181); + goto T595;} +goto T590; +T590:; + {register long V184; + register long V185; + V184= (long)(-1)+(V180); + V185= 0; +goto T612; +T612:; + if(!((V184)<(V179))){ + goto T613;} + base[14]= make_fixnum(V185); + vs_top=(vs_base=base+14)+1; + return; +goto T613; +T613:; + base[14]= elt((V172),V184); + vs_top=(vs_base=base+14)+1; + super_funcall_no_event((V178)); + vs_top=sup; + V186= vs_base[0]; + if(((*(LnkLI43))((V174),(V175),(V171),V186))==Cnil){ + goto T617;} + V185= (long)(1)+(V185); +goto T617; +T617:; + V184= (long)(-1)+(V184); + goto T612;}}} + } +} +/* function definition for COUNT-IF */ + +static void L18() +{register object *base=vs_base; + register object *sup=base+VM18; VC18 + vs_reserve(VM18); + {object V187; + object V188; + object V189; + object V190; + object V191; + object V192; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,4,VV[11],VV[14],VV[15],VV[17]); + V187=(base[0]); + V188=(base[1]); + vs_top=sup; + V189=(base[2]); + V190=(base[3]); + V191=(base[4]); + if(base[9]==Cnil){ + V192= symbol_function(VV[35]); + }else{ + V192=(base[5]);} + if(!(((V192))==(Cnil))){ + goto T627;} + V192= symbol_function(VV[35]); +goto T627; +T627:; + base[10]= (V187); + base[11]= (V188); + base[12]= VV[11]; + base[13]= (V189); + base[14]= VV[12]; + base[15]= symbol_function(VV[45]); + base[16]= VV[14]; + base[17]= (V190); + base[18]= VV[15]; + base[19]= (V191); + base[20]= VV[17]; + base[21]= (V192); + vs_top=(vs_base=base+10)+12; + (void) (*Lnk50)(); + return; + } +} +/* function definition for COUNT-IF-NOT */ + +static void L19() +{register object *base=vs_base; + register object *sup=base+VM19; VC19 + vs_reserve(VM19); + {object V193; + object V194; + object V195; + object V196; + object V197; + object V198; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,4,VV[11],VV[14],VV[15],VV[17]); + V193=(base[0]); + V194=(base[1]); + vs_top=sup; + V195=(base[2]); + V196=(base[3]); + V197=(base[4]); + if(base[9]==Cnil){ + V198= symbol_function(VV[35]); + }else{ + V198=(base[5]);} + if(!(((V198))==(Cnil))){ + goto T644;} + V198= symbol_function(VV[35]); +goto T644; +T644:; + base[10]= (V193); + base[11]= (V194); + base[12]= VV[11]; + base[13]= (V195); + base[14]= VV[13]; + base[15]= symbol_function(VV[45]); + base[16]= VV[14]; + base[17]= (V196); + base[18]= VV[15]; + base[19]= (V197); + base[20]= VV[17]; + base[21]= (V198); + vs_top=(vs_base=base+10)+12; + (void) (*Lnk50)(); + return; + } +} +/* function definition for INTERNAL-COUNT */ + +static void L20() +{register object *base=vs_base; + register object *sup=base+VM20; VC20 + vs_reserve(VM20); + {object V199; + register object V200; + object V201; + register object V202; + register object V203; + object V204; + object V205; + object V206; + register object V207; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,7,VV[11],VV[12],VV[13],VV[14],VV[15],VV[16],VV[17]); + V199=(base[0]); + V200=(base[1]); + vs_top=sup; + V201=(base[2]); + V202=(base[3]); + V203=(base[4]); + V204=(base[5]); + V205=(base[6]); + V206=(base[7]); + if(base[15]==Cnil){ + V207= symbol_function(VV[35]); + }else{ + V207=(base[8]);} + if(!(((V207))==(Cnil))){ + goto T661;} + V207= symbol_function(VV[35]); +goto T661; +T661:; + {long V208; + if(((V204))==Cnil){ + goto T667;} + V208= (long)(*(LnkLI36))((V204)); + goto T665; +goto T667; +T667:; + V208= 0; +goto T665; +T665:; + {long V209; + V209= (long)(*(LnkLI37))((V205),(V200)); + if(!((V208)<=(V209))){ + goto T671;} + goto T670; +goto T671; +T671:; + base[16]= make_fixnum(V208); + base[17]= make_fixnum(V209); + vs_top=(vs_base=base+16)+2; + (void) (*Lnk33)(); vs_top=sup; - V355= vs_base[0]; - if(((*(LnkLI43))((V329),(V330),(V326),V355))==Cnil){ - goto T632;} - (void)(elt_set((V349),V350,(V325))); - V351= (long)(1)+(V351); - goto T630; -goto T632; -T632:; - V356= elt((V327),V350); - (void)(elt_set((V349),V350,/* INLINE-ARGS */V356)); -goto T630; -T630:; - V350= (long)(-1)+(V350); - goto T625;}}}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function SUBSTITUTE-IF */ - -static object LI24(V359,V358,V357,va_alist) - object V359,V358,V357; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB24 VMS24 VMV24 - {object V360; - object V361; - object V362; - object V363; - object V364; - object V365; - object V366; - object V367; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <3) too_few_arguments(); - V360= V359; - V361= V358; - V362= V357; - narg= narg - 3; - { - parse_key_new(narg,Vcs +3,(struct key *)&LI24key,ap); - V363=(Vcs[3]); - V364=(Vcs[4]); - V365=(Vcs[5]); - V366=(Vcs[6]); - if(Vcs[7]==0){ - V367= symbol_function(VV[35]); - }else{ - V367=(Vcs[7]);} - if(!(((V367))==(Cnil))){ - goto T648;} - V367= symbol_function(VV[35]); -goto T648; -T648:; - V368= symbol_function(VV[46]); - {object V369 = (VFUN_NARGS=15,(*(LnkLI51))((V360),(V361),(V362),VV[11],(V363),VV[12],V368,VV[14],(V364),VV[15],(V365),VV[16],(V366),VV[17],(V367))); - VMR24(V369)} - va_end(ap); - return Cnil;} - }} -/* local entry for function SUBSTITUTE-IF-NOT */ - -static object LI25(V372,V371,V370,va_alist) - object V372,V371,V370; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB25 VMS25 VMV25 - {object V373; - object V374; - object V375; - object V376; - object V377; - object V378; - object V379; - object V380; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <3) too_few_arguments(); - V373= V372; - V374= V371; - V375= V370; - narg= narg - 3; - { - parse_key_new(narg,Vcs +3,(struct key *)&LI25key,ap); - V376=(Vcs[3]); - V377=(Vcs[4]); - V378=(Vcs[5]); - V379=(Vcs[6]); - if(Vcs[7]==0){ - V380= symbol_function(VV[35]); - }else{ - V380=(Vcs[7]);} - if(!(((V380))==(Cnil))){ - goto T654;} - V380= symbol_function(VV[35]); -goto T654; -T654:; - V381= symbol_function(VV[46]); - {object V382 = (VFUN_NARGS=15,(*(LnkLI51))((V373),(V374),(V375),VV[11],(V376),VV[13],V381,VV[14],(V377),VV[15],(V378),VV[16],(V379),VV[17],(V380))); - VMR25(V382)} - va_end(ap); - return Cnil;} - }} -/* local entry for function NSUBSTITUTE */ - -static object LI26(V385,V384,V383,va_alist) - object V385,V384,V383; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB26 VMS26 VMV26 - {object V386; - object V387; - register object V388; - object V389; - object V390; - object V391; - object V392; - object V393; - object V394; - register object V395; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <3) too_few_arguments(); - V386= V385; - V387= V384; - V388= V383; - narg= narg - 3; - { - parse_key_new(narg,Vcs +3,(struct key *)&LI26key,ap); - V389=(Vcs[3]); - V390=(Vcs[4]); - V391=(Vcs[5]); - V392=(Vcs[6]); - V393=(Vcs[7]); - V394=(Vcs[8]); - if(Vcs[9]==0){ - V395= symbol_function(VV[35]); - }else{ - V395=(Vcs[9]);} - if(!(((V395))==(Cnil))){ - goto T660;} - V395= symbol_function(VV[35]); -goto T660; -T660:; - {long V396; - if(((V392))==Cnil){ - goto T666;} - V396= (long)(*(LnkLI36))((V392)); - goto T664; -goto T666; -T666:; - V396= 0; -goto T664; -T664:; - {long V397; - V397= (long)(*(LnkLI37))((V393),(V388)); - if(!((V396)<=(V397))){ - goto T670;} - goto T669; goto T670; T670:; - V398 = make_fixnum(V396); - V399 = make_fixnum(V397); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V398,V399))); -goto T669; -T669:; - {long V400; - if(((V394))!=Cnil){ - goto T674;} - V400= 2147483647; - goto T672; -goto T674; -T674:; - V400= fix((V394)); -goto T672; -T672:; - if((V390)==Cnil){ - goto T677;} - if((V391)==Cnil){ + {long V210; + if(((V206))!=Cnil){ goto T677;} - (void)((*(LnkLI42))()); + V210= 2147483647; + goto T675; goto T677; T677:; - if(((V389))!=Cnil){ - goto T679;} - {register long V401; - register long V402; - V401= V396; - V402= 0; -goto T684; -T684:; - if(!((V401)>=(V397))){ - goto T685;} - {object V403 = (V388); - VMR26(V403)} -goto T685; -T685:; - if(!((V402)<(V400))){ - goto T689;} - base[0]= elt((V388),V401); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V395)); - vs_top=sup; - V404= vs_base[0]; - if(((*(LnkLI43))((V390),(V391),(V387),V404))==Cnil){ - goto T689;} - (void)(elt_set((V388),V401,(V386))); - V402= (long)(1)+(V402); -goto T689; -T689:; - V401= (long)(1)+(V401); - goto T684;} -goto T679; -T679:; - {register long V405; - register long V406; - V405= (long)(-1)+(V397); - V406= 0; -goto T704; -T704:; - if(!((V405)<(V396))){ - goto T705;} - {object V407 = (V388); - VMR26(V407)} -goto T705; -T705:; - if(!((V406)<(V400))){ - goto T709;} - base[0]= elt((V388),V405); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V395)); - vs_top=sup; - V408= vs_base[0]; - if(((*(LnkLI43))((V390),(V391),(V387),V408))==Cnil){ - goto T709;} - (void)(elt_set((V388),V405,(V386))); - V406= (long)(1)+(V406); -goto T709; -T709:; - V405= (long)(-1)+(V405); - goto T704;}}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function NSUBSTITUTE-IF */ - -static object LI27(V411,V410,V409,va_alist) - object V411,V410,V409; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB27 VMS27 VMV27 - {object V412; - object V413; - object V414; - object V415; - object V416; - object V417; - object V418; - object V419; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <3) too_few_arguments(); - V412= V411; - V413= V410; - V414= V409; - narg= narg - 3; - { - parse_key_new(narg,Vcs +3,(struct key *)&LI27key,ap); - V415=(Vcs[3]); - V416=(Vcs[4]); - V417=(Vcs[5]); - V418=(Vcs[6]); - if(Vcs[7]==0){ - V419= symbol_function(VV[35]); - }else{ - V419=(Vcs[7]);} - if(!(((V419))==(Cnil))){ - goto T722;} - V419= symbol_function(VV[35]); -goto T722; -T722:; - V420= symbol_function(VV[46]); - {object V421 = (VFUN_NARGS=15,(*(LnkLI52))((V412),(V413),(V414),VV[11],(V415),VV[12],V420,VV[14],(V416),VV[15],(V417),VV[16],(V418),VV[17],(V419))); - VMR27(V421)} - va_end(ap); - return Cnil;} - }} -/* local entry for function NSUBSTITUTE-IF-NOT */ - -static object LI28(V424,V423,V422,va_alist) - object V424,V423,V422; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB28 VMS28 VMV28 - {object V425; - object V426; - object V427; - object V428; - object V429; - object V430; - object V431; - object V432; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <3) too_few_arguments(); - V425= V424; - V426= V423; - V427= V422; - narg= narg - 3; - { - parse_key_new(narg,Vcs +3,(struct key *)&LI28key,ap); - V428=(Vcs[3]); - V429=(Vcs[4]); - V430=(Vcs[5]); - V431=(Vcs[6]); - if(Vcs[7]==0){ - V432= symbol_function(VV[35]); - }else{ - V432=(Vcs[7]);} - if(!(((V432))==(Cnil))){ - goto T728;} - V432= symbol_function(VV[35]); -goto T728; -T728:; - V433= symbol_function(VV[46]); - {object V434 = (VFUN_NARGS=15,(*(LnkLI52))((V425),(V426),(V427),VV[11],(V428),VV[13],V433,VV[14],(V429),VV[15],(V430),VV[16],(V431),VV[17],(V432))); - VMR28(V434)} - va_end(ap); - return Cnil;} - }} -/* local entry for function FIND */ - -static object LI29(V436,V435,va_alist) - object V436,V435; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB29 VMS29 VMV29 - {object V437; - register object V438; - object V439; - register object V440; - register object V441; - object V442; - object V443; - register object V444; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V437= V436; - V438= V435; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI29key,ap); - V439=(Vcs[2]); - V440=(Vcs[3]); - V441=(Vcs[4]); - V442=(Vcs[5]); - V443=(Vcs[6]); - if(Vcs[7]==0){ - V444= symbol_function(VV[35]); - }else{ - V444=(Vcs[7]);} - if(!(((V444))==(Cnil))){ - goto T734;} - V444= symbol_function(VV[35]); -goto T734; -T734:; - {long V445; - if(((V442))==Cnil){ - goto T740;} - V445= (long)(*(LnkLI36))((V442)); - goto T738; -goto T740; -T740:; - V445= 0; -goto T738; -T738:; - {long V446; - V446= (long)(*(LnkLI37))((V443),(V438)); - if(!((V445)<=(V446))){ - goto T744;} - goto T743; -goto T744; -T744:; - V447 = make_fixnum(V445); - V448 = make_fixnum(V446); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V447,V448))); -goto T743; -T743:; - if((V440)==Cnil){ - goto T746;} - if((V441)==Cnil){ - goto T746;} + V210= fix((V206)); +goto T675; +T675:; + if((V202)==Cnil){ + goto T680;} + if((V203)==Cnil){ + goto T680;} (void)((*(LnkLI42))()); -goto T746; -T746:; - if(((V439))!=Cnil){ - goto T748;} - {register long V449; - V449= V445; -goto T752; -T752:; - if(!((V449)>=(V446))){ - goto T753;} - {object V450 = Cnil; - VMR29(V450)} -goto T753; -T753:; - base[0]= elt((V438),V449); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V444)); - vs_top=sup; - V451= vs_base[0]; - if(((*(LnkLI43))((V440),(V441),(V437),V451))==Cnil){ - goto T757;} - {object V452 = elt((V438),V449); - VMR29(V452)} -goto T757; -T757:; - V449= (long)(1)+(V449); - goto T752;} -goto T748; -T748:; - {register long V453; - V453= (long)(-1)+(V446); -goto T767; -T767:; - if(!((V453)<(V445))){ +goto T680; +T680:; + if(((V201))!=Cnil){ + goto T682;} + {register long V211; + register long V212; + V211= V208; + V212= 0; +goto T687; +T687:; + if(!((V211)>=(V209))){ + goto T688;} + base[16]= make_fixnum(V212); + vs_top=(vs_base=base+16)+1; + return; +goto T688; +T688:; + if(!((V212)<(V210))){ + goto T692;} + base[16]= elt((V200),V211); + vs_top=(vs_base=base+16)+1; + super_funcall_no_event((V207)); + vs_top=sup; + V213= vs_base[0]; + if(((*(LnkLI43))((V202),(V203),(V199),V213))==Cnil){ + goto T692;} + V212= (long)(1)+(V212); +goto T692; +T692:; + V211= (long)(1)+(V211); + goto T687;} +goto T682; +T682:; + {register long V214; + register long V215; + V214= (long)(-1)+(V209); + V215= 0; +goto T706; +T706:; + if(!((V214)<(V208))){ + goto T707;} + base[16]= make_fixnum(V215); + vs_top=(vs_base=base+16)+1; + return; +goto T707; +T707:; + if(!((V215)<(V210))){ + goto T711;} + base[16]= elt((V200),V214); + vs_top=(vs_base=base+16)+1; + super_funcall_no_event((V207)); + vs_top=sup; + V216= vs_base[0]; + if(((*(LnkLI43))((V202),(V203),(V199),V216))==Cnil){ + goto T711;} + V215= (long)(1)+(V215); +goto T711; +T711:; + V214= (long)(-1)+(V214); + goto T706;}}}} + } +} +/* function definition for INTERNAL-COUNT-IF */ + +static void L21() +{register object *base=vs_base; + register object *sup=base+VM21; VC21 + vs_reserve(VM21); + {object V217; + object V218; + object V219; + object V220; + object V221; + object V222; + object V223; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[16],VV[17]); + V217=(base[0]); + V218=(base[1]); + vs_top=sup; + V219=(base[2]); + V220=(base[3]); + V221=(base[4]); + V222=(base[5]); + if(base[11]==Cnil){ + V223= symbol_function(VV[35]); + }else{ + V223=(base[6]);} + if(!(((V223))==(Cnil))){ + goto T723;} + V223= symbol_function(VV[35]); +goto T723; +T723:; + base[12]= (V217); + base[13]= (V218); + base[14]= VV[11]; + base[15]= (V219); + base[16]= VV[12]; + base[17]= symbol_function(VV[45]); + base[18]= VV[14]; + base[19]= (V220); + base[20]= VV[15]; + base[21]= (V221); + base[22]= VV[16]; + base[23]= (V222); + base[24]= VV[17]; + base[25]= (V223); + vs_top=(vs_base=base+12)+14; + (void) (*Lnk47)(); + return; + } +} +/* function definition for INTERNAL-COUNT-IF-NOT */ + +static void L22() +{register object *base=vs_base; + register object *sup=base+VM22; VC22 + vs_reserve(VM22); + {object V224; + object V225; + object V226; + object V227; + object V228; + object V229; + object V230; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[16],VV[17]); + V224=(base[0]); + V225=(base[1]); + vs_top=sup; + V226=(base[2]); + V227=(base[3]); + V228=(base[4]); + V229=(base[5]); + if(base[11]==Cnil){ + V230= symbol_function(VV[35]); + }else{ + V230=(base[6]);} + if(!(((V230))==(Cnil))){ + goto T742;} + V230= symbol_function(VV[35]); +goto T742; +T742:; + base[12]= (V224); + base[13]= (V225); + base[14]= VV[11]; + base[15]= (V226); + base[16]= VV[13]; + base[17]= symbol_function(VV[45]); + base[18]= VV[14]; + base[19]= (V227); + base[20]= VV[15]; + base[21]= (V228); + base[22]= VV[16]; + base[23]= (V229); + base[24]= VV[17]; + base[25]= (V230); + vs_top=(vs_base=base+12)+14; + (void) (*Lnk47)(); + return; + } +} +/* function definition for SUBSTITUTE */ + +static void L23() +{register object *base=vs_base; + register object *sup=base+VM23; VC23 + vs_reserve(VM23); + {object V231; + object V232; + register object V233; + object V234; + object V235; + object V236; + object V237; + object V238; + object V239; + object V240; + if(vs_top-vs_base<3) too_few_arguments(); + parse_key(vs_base+3,FALSE,FALSE,7,VV[11],VV[12],VV[13],VV[14],VV[15],VV[16],VV[17]); + V231=(base[0]); + V232=(base[1]); + V233=(base[2]); + vs_top=sup; + V234=(base[3]); + V235=(base[4]); + V236=(base[5]); + V237=(base[6]); + V238=(base[7]); + V239=(base[8]); + if(base[16]==Cnil){ + V240= symbol_function(VV[35]); + }else{ + V240=(base[9]);} + {long V241; + V241= (long)length((V233)); + if(!(((V240))==(Cnil))){ + goto T762;} + V240= symbol_function(VV[35]); +goto T762; +T762:; + {long V242; + if(((V237))==Cnil){ goto T768;} - {object V454 = Cnil; - VMR29(V454)} + V242= (long)(*(LnkLI36))((V237)); + goto T766; goto T768; T768:; - base[0]= elt((V438),V453); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V444)); - vs_top=sup; - V455= vs_base[0]; - if(((*(LnkLI43))((V440),(V441),(V437),V455))==Cnil){ + V242= 0; +goto T766; +T766:; + {long V243; + V243= (long)(*(LnkLI37))((V238),(V233)); + if(!((V242)<=(V243))){ goto T772;} - {object V456 = elt((V438),V453); - VMR29(V456)} + goto T771; goto T772; T772:; - V453= (long)(-1)+(V453); - goto T767;}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function FIND-IF */ - -static object LI30(V458,V457,va_alist) - object V458,V457; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB30 VMS30 VMV30 - {object V459; - object V460; - object V461; - object V462; - object V463; - object V464; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V459= V458; - V460= V457; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI30key,ap); - V461=(Vcs[2]); - V462=(Vcs[3]); - V463=(Vcs[4]); - if(Vcs[5]==0){ - V464= symbol_function(VV[35]); - }else{ - V464=(Vcs[5]);} - if(!(((V464))==(Cnil))){ + base[17]= make_fixnum(V242); + base[18]= make_fixnum(V243); + vs_top=(vs_base=base+17)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T771; +T771:; + {long V244; + if(((V239))!=Cnil){ + goto T778;} + V244= 2147483647; + goto T776; +goto T778; +T778:; + V244= fix((V239)); +goto T776; +T776:; + if((V235)==Cnil){ goto T781;} - V464= symbol_function(VV[35]); + if((V236)==Cnil){ + goto T781;} + (void)((*(LnkLI42))()); goto T781; T781:; - V465= symbol_function(VV[46]); - {object V466 = (VFUN_NARGS=12,(*(LnkLI53))((V459),(V460),VV[11],(V461),VV[12],V465,VV[14],(V462),VV[15],(V463),VV[17],(V464))); - VMR30(V466)} - va_end(ap); - return Cnil;} - }} -/* local entry for function FIND-IF-NOT */ - -static object LI31(V468,V467,va_alist) - object V468,V467; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB31 VMS31 VMV31 - {object V469; - object V470; - object V471; - object V472; - object V473; - object V474; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V469= V468; - V470= V467; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI31key,ap); - V471=(Vcs[2]); - V472=(Vcs[3]); - V473=(Vcs[4]); - if(Vcs[5]==0){ - V474= symbol_function(VV[35]); - }else{ - V474=(Vcs[5]);} - if(!(((V474))==(Cnil))){ - goto T787;} - V474= symbol_function(VV[35]); -goto T787; -T787:; - V475= symbol_function(VV[46]); - {object V476 = (VFUN_NARGS=12,(*(LnkLI53))((V469),(V470),VV[11],(V471),VV[13],V475,VV[14],(V472),VV[15],(V473),VV[17],(V474))); - VMR31(V476)} - va_end(ap); - return Cnil;} - }} -/* local entry for function POSITION */ - -static object LI32(V478,V477,va_alist) - object V478,V477; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB32 VMS32 VMV32 - {object V479; - register object V480; - object V481; - register object V482; - register object V483; - object V484; - object V485; - register object V486; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V479= V478; - V480= V477; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI32key,ap); - V481=(Vcs[2]); - V482=(Vcs[3]); - V483=(Vcs[4]); - V484=(Vcs[5]); - V485=(Vcs[6]); - if(Vcs[7]==0){ - V486= symbol_function(VV[35]); - }else{ - V486=(Vcs[7]);} - if(!(((V486))==(Cnil))){ - goto T793;} - V486= symbol_function(VV[35]); -goto T793; -T793:; - {long V487; - if(((V484))==Cnil){ - goto T799;} - V487= (long)(*(LnkLI36))((V484)); - goto T797; -goto T799; -T799:; - V487= 0; -goto T797; -T797:; - {long V488; - V488= (long)(*(LnkLI37))((V485),(V480)); - if(!((V487)<=(V488))){ - goto T803;} - goto T802; -goto T803; -T803:; - V489 = make_fixnum(V487); - V490 = make_fixnum(V488); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V489,V490))); -goto T802; -T802:; - if((V482)==Cnil){ - goto T805;} - if((V483)==Cnil){ - goto T805;} - (void)((*(LnkLI42))()); -goto T805; -T805:; - if(((V481))!=Cnil){ - goto T807;} - {register long V491; - V491= V487; -goto T811; -T811:; - if(!((V491)>=(V488))){ - goto T812;} - {object V492 = Cnil; - VMR32(V492)} -goto T812; -T812:; - base[0]= elt((V480),V491); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V486)); - vs_top=sup; - V493= vs_base[0]; - if(((*(LnkLI43))((V482),(V483),(V479),V493))==Cnil){ - goto T816;} - {object V494 = make_fixnum(V491); - VMR32(V494)} -goto T816; -T816:; - V491= (long)(1)+(V491); - goto T811;} -goto T807; -T807:; - {register long V495; - V495= (long)(-1)+(V488); + if(((V234))!=Cnil){ + goto T783;} + {register object V245; + register long V246; + register long V247; + base[17]= (*(LnkLI48))((V233)); + base[18]= make_fixnum(V241); + vs_top=(vs_base=base+17)+2; + (void) (*Lnk49)(); + vs_top=sup; + V245= vs_base[0]; + V246= 0; + V247= 0; +goto T791; +T791:; + if(!((V246)>=(V241))){ + goto T792;} + base[17]= (V245); + vs_top=(vs_base=base+17)+1; + return; +goto T792; +T792:; + if(!((V242)<=(V246))){ + goto T798;} + if(!((V246)<(V243))){ + goto T798;} + if(!((V247)<(V244))){ + goto T798;} + base[17]= elt((V233),V246); + vs_top=(vs_base=base+17)+1; + super_funcall_no_event((V240)); + vs_top=sup; + V248= vs_base[0]; + if(((*(LnkLI43))((V235),(V236),(V232),V248))==Cnil){ + goto T798;} + (void)(elt_set((V245),V246,(V231))); + V247= (long)(1)+(V247); + goto T796; +goto T798; +T798:; + V249= elt((V233),V246); + (void)(elt_set((V245),V246,/* INLINE-ARGS */V249)); +goto T796; +T796:; + V246= (long)(1)+(V246); + goto T791;} +goto T783; +T783:; + {register object V250; + register long V251; + register long V252; + base[17]= (*(LnkLI48))((V233)); + base[18]= make_fixnum(V241); + vs_top=(vs_base=base+17)+2; + (void) (*Lnk49)(); + vs_top=sup; + V250= vs_base[0]; + V251= (long)(-1)+(V241); + V252= 0; +goto T819; +T819:; + if(!((V251)<(0))){ + goto T820;} + base[17]= (V250); + vs_top=(vs_base=base+17)+1; + return; +goto T820; +T820:; + if(!((V242)<=(V251))){ + goto T826;} + if(!((V251)<(V243))){ + goto T826;} + if(!((V252)<(V244))){ + goto T826;} + base[17]= elt((V233),V251); + vs_top=(vs_base=base+17)+1; + super_funcall_no_event((V240)); + vs_top=sup; + V253= vs_base[0]; + if(((*(LnkLI43))((V235),(V236),(V232),V253))==Cnil){ + goto T826;} + (void)(elt_set((V250),V251,(V231))); + V252= (long)(1)+(V252); + goto T824; goto T826; T826:; - if(!((V495)<(V487))){ - goto T827;} - {object V496 = Cnil; - VMR32(V496)} -goto T827; -T827:; - base[0]= elt((V480),V495); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V486)); - vs_top=sup; - V497= vs_base[0]; - if(((*(LnkLI43))((V482),(V483),(V479),V497))==Cnil){ - goto T831;} - {object V498 = make_fixnum(V495); - VMR32(V498)} -goto T831; -T831:; - V495= (long)(-1)+(V495); - goto T826;}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function POSITION-IF */ - -static object LI33(V500,V499,va_alist) - object V500,V499; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB33 VMS33 VMV33 - {object V501; - object V502; - object V503; - object V504; - object V505; - object V506; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V501= V500; - V502= V499; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI33key,ap); - V503=(Vcs[2]); - V504=(Vcs[3]); - V505=(Vcs[4]); - if(Vcs[5]==0){ - V506= symbol_function(VV[35]); - }else{ - V506=(Vcs[5]);} - if(!(((V506))==(Cnil))){ - goto T840;} - V506= symbol_function(VV[35]); -goto T840; -T840:; - V507= symbol_function(VV[46]); - {object V508 = (VFUN_NARGS=12,(*(LnkLI54))((V501),(V502),VV[11],(V503),VV[12],V507,VV[14],(V504),VV[15],(V505),VV[17],(V506))); - VMR33(V508)} - va_end(ap); - return Cnil;} - }} -/* local entry for function POSITION-IF-NOT */ - -static object LI34(V510,V509,va_alist) - object V510,V509; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB34 VMS34 VMV34 - {object V511; - object V512; - object V513; - object V514; - object V515; - object V516; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V511= V510; - V512= V509; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI34key,ap); - V513=(Vcs[2]); - V514=(Vcs[3]); - V515=(Vcs[4]); - if(Vcs[5]==0){ - V516= symbol_function(VV[35]); - }else{ - V516=(Vcs[5]);} - if(!(((V516))==(Cnil))){ - goto T846;} - V516= symbol_function(VV[35]); -goto T846; -T846:; - V517= symbol_function(VV[46]); - {object V518 = (VFUN_NARGS=12,(*(LnkLI54))((V511),(V512),VV[11],(V513),VV[13],V517,VV[14],(V514),VV[15],(V515),VV[17],(V516))); - VMR34(V518)} - va_end(ap); - return Cnil;} - }} -/* local entry for function REMOVE-DUPLICATES */ - -static object LI35(V519,va_alist) - object V519; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB35 VMS35 VMV35 - {register object V520; - object V521; - register object V522; - register object V523; - object V524; - object V525; - register object V526; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <1) too_few_arguments(); - V520= V519; - narg= narg - 1; - { - parse_key_new(narg,Vcs +1,(struct key *)&LI35key,ap); - V521=(Vcs[1]); - V522=(Vcs[2]); - V523=(Vcs[3]); - V524=(Vcs[4]); - V525=(Vcs[5]); - if(Vcs[6]==0){ - V526= symbol_function(VV[35]); - }else{ - V526=(Vcs[6]);} - if((V522)==Cnil){ - goto T852;} - if((V523)==Cnil){ - goto T852;} - (void)((*(LnkLI42))()); -goto T852; -T852:; - if(!(type_of((V520))==t_cons||((V520))==Cnil)){ - goto T853;} - if(((V521))!=Cnil){ - goto T853;} - if(((V524))!=Cnil){ - goto T853;} - if(((V525))!=Cnil){ - goto T853;} - if(!(endp_prop((V520)))){ + V254= elt((V233),V251); + (void)(elt_set((V250),V251,/* INLINE-ARGS */V254)); +goto T824; +T824:; + V251= (long)(-1)+(V251); + goto T819;}}}}} + } +} +/* function definition for SUBSTITUTE-IF */ + +static void L24() +{register object *base=vs_base; + register object *sup=base+VM24; VC24 + vs_reserve(VM24); + {object V255; + object V256; + object V257; + object V258; + object V259; + object V260; + object V261; + object V262; + if(vs_top-vs_base<3) too_few_arguments(); + parse_key(vs_base+3,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[16],VV[17]); + V255=(base[0]); + V256=(base[1]); + V257=(base[2]); + vs_top=sup; + V258=(base[3]); + V259=(base[4]); + V260=(base[5]); + V261=(base[6]); + if(base[12]==Cnil){ + V262= symbol_function(VV[35]); + }else{ + V262=(base[7]);} + if(!(((V262))==(Cnil))){ + goto T842;} + V262= symbol_function(VV[35]); +goto T842; +T842:; + base[13]= (V255); + base[14]= (V256); + base[15]= (V257); + base[16]= VV[11]; + base[17]= (V258); + base[18]= VV[12]; + base[19]= symbol_function(VV[45]); + base[20]= VV[14]; + base[21]= (V259); + base[22]= VV[15]; + base[23]= (V260); + base[24]= VV[16]; + base[25]= (V261); + base[26]= VV[17]; + base[27]= (V262); + vs_top=(vs_base=base+13)+15; + (void) (*Lnk51)(); + return; + } +} +/* function definition for SUBSTITUTE-IF-NOT */ + +static void L25() +{register object *base=vs_base; + register object *sup=base+VM25; VC25 + vs_reserve(VM25); + {object V263; + object V264; + object V265; + object V266; + object V267; + object V268; + object V269; + object V270; + if(vs_top-vs_base<3) too_few_arguments(); + parse_key(vs_base+3,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[16],VV[17]); + V263=(base[0]); + V264=(base[1]); + V265=(base[2]); + vs_top=sup; + V266=(base[3]); + V267=(base[4]); + V268=(base[5]); + V269=(base[6]); + if(base[12]==Cnil){ + V270= symbol_function(VV[35]); + }else{ + V270=(base[7]);} + if(!(((V270))==(Cnil))){ goto T862;} - {object V527 = Cnil; - VMR35(V527)} + V270= symbol_function(VV[35]); goto T862; T862:; - {register object V528; - register object V529; - V528= (V520); - V529= Cnil; -goto T866; -T866:; - if(!(endp_prop(cdr((V528))))){ - goto T867;} - base[0]= (V529); - base[1]= (V528); - vs_top=(vs_base=base+0)+2; - Lreconc(); - vs_top=sup; - {object V530 = vs_base[0]; - VMR35(V530)} -goto T867; -T867:; - base[0]= car((V528)); - base[1]= cdr((V528)); - base[2]= VV[12]; - base[3]= (V522); - base[4]= VV[13]; - base[5]= (V523); - base[6]= VV[17]; - base[7]= (V526); - vs_top=(vs_base=base+0)+8; - (void) (*Lnk55)(); - vs_top=sup; - if((vs_base[0])!=Cnil){ - goto T873;} - V529= make_cons(car((V528)),(V529)); -goto T873; -T873:; - V528= cdr((V528)); - goto T866;} -goto T853; -T853:; - {object V531 = (VFUN_NARGS=13,(*(LnkLI56))((V520),VV[11],(V521),VV[12],(V522),VV[13],(V523),VV[14],(V524),VV[15],(V525),VV[17],(V526))); - VMR35(V531)} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function DELETE-DUPLICATES */ - -static object LI36(V532,va_alist) - object V532; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB36 VMS36 VMV36 - {register object V533; - object V534; - object V535; - object V536; - object V537; - object V538; - register object V539; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <1) too_few_arguments(); - V533= V532; - narg= narg - 1; - { - parse_key_new(narg,Vcs +1,(struct key *)&LI36key,ap); - V534=(Vcs[1]); - V535=(Vcs[2]); - V536=(Vcs[3]); - V537=(Vcs[4]); - V538=(Vcs[5]); - if(Vcs[6]==0){ - V539= symbol_function(VV[35]); - }else{ - V539=(Vcs[6]);} - {long V540; - V540= (long)length((V533)); - if((V535)==Cnil){ - goto T890;} - if((V536)==Cnil){ - goto T890;} - (void)((*(LnkLI42))()); -goto T890; -T890:; - if(!(type_of((V533))==t_cons||((V533))==Cnil)){ - goto T891;} - if(((V534))!=Cnil){ - goto T891;} - if(((V537))!=Cnil){ - goto T891;} - if(((V538))!=Cnil){ - goto T891;} - if(!(endp_prop((V533)))){ - goto T900;} - {object V541 = Cnil; - VMR36(V541)} -goto T900; -T900:; - {register object V542; - V542= (V533); -goto T904; -T904:; - if(!(endp_prop(cdr((V542))))){ - goto T905;} - {object V543 = (V533); - VMR36(V543)} -goto T905; -T905:; - base[0]= car((V542)); - base[1]= cdr((V542)); - base[2]= VV[12]; - base[3]= (V535); - base[4]= VV[13]; - base[5]= (V536); - base[6]= VV[17]; - base[7]= (V539); - vs_top=(vs_base=base+0)+8; - (void) (*Lnk55)(); + base[13]= (V263); + base[14]= (V264); + base[15]= (V265); + base[16]= VV[11]; + base[17]= (V266); + base[18]= VV[13]; + base[19]= symbol_function(VV[45]); + base[20]= VV[14]; + base[21]= (V267); + base[22]= VV[15]; + base[23]= (V268); + base[24]= VV[16]; + base[25]= (V269); + base[26]= VV[17]; + base[27]= (V270); + vs_top=(vs_base=base+13)+15; + (void) (*Lnk51)(); + return; + } +} +/* function definition for NSUBSTITUTE */ + +static void L26() +{register object *base=vs_base; + register object *sup=base+VM26; VC26 + vs_reserve(VM26); + {object V271; + object V272; + register object V273; + object V274; + object V275; + object V276; + object V277; + object V278; + object V279; + register object V280; + if(vs_top-vs_base<3) too_few_arguments(); + parse_key(vs_base+3,FALSE,FALSE,7,VV[11],VV[12],VV[13],VV[14],VV[15],VV[16],VV[17]); + V271=(base[0]); + V272=(base[1]); + V273=(base[2]); + vs_top=sup; + V274=(base[3]); + V275=(base[4]); + V276=(base[5]); + V277=(base[6]); + V278=(base[7]); + V279=(base[8]); + if(base[16]==Cnil){ + V280= symbol_function(VV[35]); + }else{ + V280=(base[9]);} + if(!(((V280))==(Cnil))){ + goto T882;} + V280= symbol_function(VV[35]); +goto T882; +T882:; + {long V281; + if(((V277))==Cnil){ + goto T888;} + V281= (long)(*(LnkLI36))((V277)); + goto T886; +goto T888; +T888:; + V281= 0; +goto T886; +T886:; + {long V282; + V282= (long)(*(LnkLI37))((V278),(V273)); + if(!((V281)<=(V282))){ + goto T892;} + goto T891; +goto T892; +T892:; + base[17]= make_fixnum(V281); + base[18]= make_fixnum(V282); + vs_top=(vs_base=base+17)+2; + (void) (*Lnk33)(); vs_top=sup; - if((vs_base[0])==Cnil){ - goto T911;} - if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542)); - ((V542))->c.c_car = cadr((V542)); - if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542)); - ((V542))->c.c_cdr = cddr((V542)); - goto T909; -goto T911; -T911:; - V542= cdr((V542)); -goto T909; -T909:; - goto T904;} goto T891; T891:; - {register long V544; - if(((V537))==Cnil){ - goto T927;} - V544= (long)(*(LnkLI36))((V537)); - goto T925; -goto T927; -T927:; - V544= 0; -goto T925; -T925:; - {register long V545; - V545= (long)(*(LnkLI37))((V538),(V533)); - if(!((V544)<=(V545))){ - goto T931;} - goto T930; -goto T931; -T931:; - V546 = make_fixnum(V544); - V547 = make_fixnum(V545); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V546,V547))); -goto T930; -T930:; - if(((V534))!=Cnil){ - goto T934;} - {long V548; - long V549; - V548= 0; - V549= V544; -goto T939; -T939:; - if(!((V549)>=(V545))){ - goto T940;} - {object V550; - register long V551; - long V552; - V553= (*(LnkLI49))((V533)); - V554 = make_fixnum((long)(V540)-(V548)); - V550= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V553,V554)); - V551= 0; - V552= 0; -goto T947; -T947:; - if(!((V551)>=(V540))){ - goto T948;} - {object V555 = (V550); - VMR36(V555)} -goto T948; -T948:; - {object V556; - if((V544)<=(V551)){ - goto T954;} - V556= Cnil; - goto T953; -goto T954; -T954:; - if((V551)<(V545)){ - goto T956;} - V556= Cnil; - goto T953; -goto T956; -T956:; - base[0]= elt((V533),V551); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V539)); - vs_top=sup; - V557= vs_base[0]; - V558 = make_fixnum((long)(1)+(V551)); - V559 = make_fixnum(V545); - V556= (VFUN_NARGS=12,(*(LnkLI54))(V557,(V533),VV[12],(V535),VV[13],(V536),VV[14],V558,VV[15],V559,VV[17],(V539))); -goto T953; -T953:; - if(((V556))==Cnil){ - goto T961;} - goto T952; -goto T961; -T961:; - V560= elt((V533),V551); - (void)(elt_set((V550),V552,/* INLINE-ARGS */V560)); - V552= (long)(1)+(V552);} -goto T952; -T952:; - V551= (long)(1)+(V551); - goto T947;} -goto T940; -T940:; - base[0]= elt((V533),V549); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V539)); - vs_top=sup; - V561= vs_base[0]; - V562 = make_fixnum((long)(1)+(V549)); - V563 = make_fixnum(V545); - if(((VFUN_NARGS=12,(*(LnkLI54))(V561,(V533),VV[12],(V535),VV[13],(V536),VV[14],V562,VV[15],V563,VV[17],(V539))))==Cnil){ - goto T969;} - V548= (long)(1)+(V548); -goto T969; -T969:; - V549= (long)(1)+(V549); - goto T939;} -goto T934; -T934:; - {long V564; - long V565; - V564= 0; - V565= (long)(-1)+(V545); -goto T981; -T981:; - if(!((V565)<(V544))){ - goto T982;} - {object V566; - register long V567; - long V568; - V569= (*(LnkLI49))((V533)); - V570 = make_fixnum((long)(V540)-(V564)); - V566= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V569,V570)); - V567= (long)(-1)+(V540); - V568= (long)((long)(-1)+(V540))-(V564); -goto T989; -T989:; - if(!((V567)<(0))){ - goto T990;} - {object V571 = (V566); - VMR36(V571)} + {long V283; + if(((V279))!=Cnil){ + goto T898;} + V283= 2147483647; + goto T896; +goto T898; +T898:; + V283= fix((V279)); +goto T896; +T896:; + if((V275)==Cnil){ + goto T901;} + if((V276)==Cnil){ + goto T901;} + (void)((*(LnkLI42))()); +goto T901; +T901:; + if(((V274))!=Cnil){ + goto T903;} + {register long V284; + register long V285; + V284= V281; + V285= 0; +goto T908; +T908:; + if(!((V284)>=(V282))){ + goto T909;} + base[17]= (V273); + vs_top=(vs_base=base+17)+1; + return; +goto T909; +T909:; + if(!((V285)<(V283))){ + goto T913;} + base[17]= elt((V273),V284); + vs_top=(vs_base=base+17)+1; + super_funcall_no_event((V280)); + vs_top=sup; + V286= vs_base[0]; + if(((*(LnkLI43))((V275),(V276),(V272),V286))==Cnil){ + goto T913;} + (void)(elt_set((V273),V284,(V271))); + V285= (long)(1)+(V285); +goto T913; +T913:; + V284= (long)(1)+(V284); + goto T908;} +goto T903; +T903:; + {register long V287; + register long V288; + V287= (long)(-1)+(V282); + V288= 0; +goto T928; +T928:; + if(!((V287)<(V281))){ + goto T929;} + base[17]= (V273); + vs_top=(vs_base=base+17)+1; + return; +goto T929; +T929:; + if(!((V288)<(V283))){ + goto T933;} + base[17]= elt((V273),V287); + vs_top=(vs_base=base+17)+1; + super_funcall_no_event((V280)); + vs_top=sup; + V289= vs_base[0]; + if(((*(LnkLI43))((V275),(V276),(V272),V289))==Cnil){ + goto T933;} + (void)(elt_set((V273),V287,(V271))); + V288= (long)(1)+(V288); +goto T933; +T933:; + V287= (long)(-1)+(V287); + goto T928;}}}} + } +} +/* function definition for NSUBSTITUTE-IF */ + +static void L27() +{register object *base=vs_base; + register object *sup=base+VM27; VC27 + vs_reserve(VM27); + {object V290; + object V291; + object V292; + object V293; + object V294; + object V295; + object V296; + object V297; + if(vs_top-vs_base<3) too_few_arguments(); + parse_key(vs_base+3,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[16],VV[17]); + V290=(base[0]); + V291=(base[1]); + V292=(base[2]); + vs_top=sup; + V293=(base[3]); + V294=(base[4]); + V295=(base[5]); + V296=(base[6]); + if(base[12]==Cnil){ + V297= symbol_function(VV[35]); + }else{ + V297=(base[7]);} + if(!(((V297))==(Cnil))){ + goto T946;} + V297= symbol_function(VV[35]); +goto T946; +T946:; + base[13]= (V290); + base[14]= (V291); + base[15]= (V292); + base[16]= VV[11]; + base[17]= (V293); + base[18]= VV[12]; + base[19]= symbol_function(VV[45]); + base[20]= VV[14]; + base[21]= (V294); + base[22]= VV[15]; + base[23]= (V295); + base[24]= VV[16]; + base[25]= (V296); + base[26]= VV[17]; + base[27]= (V297); + vs_top=(vs_base=base+13)+15; + (void) (*Lnk52)(); + return; + } +} +/* function definition for NSUBSTITUTE-IF-NOT */ + +static void L28() +{register object *base=vs_base; + register object *sup=base+VM28; VC28 + vs_reserve(VM28); + {object V298; + object V299; + object V300; + object V301; + object V302; + object V303; + object V304; + object V305; + if(vs_top-vs_base<3) too_few_arguments(); + parse_key(vs_base+3,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[16],VV[17]); + V298=(base[0]); + V299=(base[1]); + V300=(base[2]); + vs_top=sup; + V301=(base[3]); + V302=(base[4]); + V303=(base[5]); + V304=(base[6]); + if(base[12]==Cnil){ + V305= symbol_function(VV[35]); + }else{ + V305=(base[7]);} + if(!(((V305))==(Cnil))){ + goto T966;} + V305= symbol_function(VV[35]); +goto T966; +T966:; + base[13]= (V298); + base[14]= (V299); + base[15]= (V300); + base[16]= VV[11]; + base[17]= (V301); + base[18]= VV[13]; + base[19]= symbol_function(VV[45]); + base[20]= VV[14]; + base[21]= (V302); + base[22]= VV[15]; + base[23]= (V303); + base[24]= VV[16]; + base[25]= (V304); + base[26]= VV[17]; + base[27]= (V305); + vs_top=(vs_base=base+13)+15; + (void) (*Lnk52)(); + return; + } +} +/* function definition for FIND */ + +static void L29() +{register object *base=vs_base; + register object *sup=base+VM29; VC29 + vs_reserve(VM29); + {object V306; + register object V307; + object V308; + register object V309; + register object V310; + object V311; + object V312; + register object V313; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,6,VV[11],VV[12],VV[13],VV[14],VV[15],VV[17]); + V306=(base[0]); + V307=(base[1]); + vs_top=sup; + V308=(base[2]); + V309=(base[3]); + V310=(base[4]); + V311=(base[5]); + V312=(base[6]); + if(base[13]==Cnil){ + V313= symbol_function(VV[35]); + }else{ + V313=(base[7]);} + if(!(((V313))==(Cnil))){ + goto T986;} + V313= symbol_function(VV[35]); +goto T986; +T986:; + {long V314; + if(((V311))==Cnil){ + goto T992;} + V314= (long)(*(LnkLI36))((V311)); + goto T990; +goto T992; +T992:; + V314= 0; goto T990; T990:; - {object V572; - if((V544)<=(V567)){ + {long V315; + V315= (long)(*(LnkLI37))((V312),(V307)); + if(!((V314)<=(V315))){ goto T996;} - V572= Cnil; goto T995; goto T996; T996:; - if((V567)<(V545)){ - goto T998;} - V572= Cnil; - goto T995; -goto T998; -T998:; - base[0]= elt((V533),V567); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V539)); + base[14]= make_fixnum(V314); + base[15]= make_fixnum(V315); + vs_top=(vs_base=base+14)+2; + (void) (*Lnk33)(); vs_top=sup; - V573= vs_base[0]; - V574 = make_fixnum(V544); - V575 = make_fixnum(V567); - V572= (VFUN_NARGS=14,(*(LnkLI54))(V573,(V533),VV[11],Ct,VV[12],(V535),VV[13],(V536),VV[14],V574,VV[15],V575,VV[17],(V539))); goto T995; T995:; - if(((V572))==Cnil){ - goto T1003;} - goto T994; -goto T1003; -T1003:; - V576= elt((V533),V567); - (void)(elt_set((V566),V568,/* INLINE-ARGS */V576)); - V568= (long)(-1)+(V568);} -goto T994; -T994:; - V567= (long)(-1)+(V567); - goto T989;} -goto T982; -T982:; - base[0]= elt((V533),V565); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V539)); + if((V309)==Cnil){ + goto T1000;} + if((V310)==Cnil){ + goto T1000;} + (void)((*(LnkLI42))()); +goto T1000; +T1000:; + if(((V308))!=Cnil){ + goto T1002;} + {register long V316; + V316= V314; +goto T1006; +T1006:; + if(!((V316)>=(V315))){ + goto T1007;} + base[14]= Cnil; + vs_top=(vs_base=base+14)+1; + return; +goto T1007; +T1007:; + base[14]= elt((V307),V316); + vs_top=(vs_base=base+14)+1; + super_funcall_no_event((V313)); vs_top=sup; - V577= vs_base[0]; - V578 = make_fixnum(V544); - V579 = make_fixnum(V565); - if(((VFUN_NARGS=14,(*(LnkLI54))(V577,(V533),VV[11],Ct,VV[12],(V535),VV[13],(V536),VV[14],V578,VV[15],V579,VV[17],(V539))))==Cnil){ + V317= vs_base[0]; + if(((*(LnkLI43))((V309),(V310),(V306),V317))==Cnil){ goto T1011;} - V564= (long)(1)+(V564); + base[14]= elt((V307),V316); + vs_top=(vs_base=base+14)+1; + return; goto T1011; T1011:; - V565= (long)(-1)+(V565); - goto T981;}}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function MISMATCH */ - -static object LI37(V581,V580,va_alist) - object V581,V580; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB37 VMS37 VMV37 - {object V582; - object V583; - object V584; - object V585; - object V586; - register object V587; - object V588; - object V589; - object V590; - object V591; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V582= V581; - V583= V580; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI37key,ap); - V584=(Vcs[2]); - V585=(Vcs[3]); - V586=(Vcs[4]); - if(Vcs[5]==0){ - V587= symbol_function(VV[35]); - }else{ - V587=(Vcs[5]);} - V588=(Vcs[6]); - V589=(Vcs[7]); - V590=(Vcs[8]); - V591=(Vcs[9]); - if((V585)==Cnil){ - goto T1021;} - if((V586)==Cnil){ - goto T1021;} - (void)((*(LnkLI42))()); + V316= (long)(1)+(V316); + goto T1006;} +goto T1002; +T1002:; + {register long V318; + V318= (long)(-1)+(V315); goto T1021; T1021:; - {register long V592; - if(((V588))==Cnil){ - goto T1024;} - V592= (long)(*(LnkLI36))((V588)); - goto T1022; -goto T1024; -T1024:; - V592= 0; + if(!((V318)<(V314))){ + goto T1022;} + base[14]= Cnil; + vs_top=(vs_base=base+14)+1; + return; goto T1022; T1022:; - {register long V593; - V593= (long)(*(LnkLI37))((V590),(V582)); - if(!((V592)<=(V593))){ - goto T1028;} - goto T1027; -goto T1028; -T1028:; - V594 = make_fixnum(V592); - V595 = make_fixnum(V593); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V594,V595))); -goto T1027; -T1027:; - {register long V596; - if(((V589))==Cnil){ - goto T1032;} - V596= (long)(*(LnkLI36))((V589)); - goto T1030; -goto T1032; -T1032:; - V596= 0; -goto T1030; -T1030:; - {register long V597; - V597= (long)(*(LnkLI37))((V591),(V583)); - if(!((V596)<=(V597))){ - goto T1036;} - goto T1035; -goto T1036; -T1036:; - V598 = make_fixnum(V596); - V599 = make_fixnum(V597); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V598,V599))); + base[14]= elt((V307),V318); + vs_top=(vs_base=base+14)+1; + super_funcall_no_event((V313)); + vs_top=sup; + V319= vs_base[0]; + if(((*(LnkLI43))((V309),(V310),(V306),V319))==Cnil){ + goto T1026;} + base[14]= elt((V307),V318); + vs_top=(vs_base=base+14)+1; + return; +goto T1026; +T1026:; + V318= (long)(-1)+(V318); + goto T1021;}}} + } +} +/* function definition for FIND-IF */ + +static void L30() +{register object *base=vs_base; + register object *sup=base+VM30; VC30 + vs_reserve(VM30); + {object V320; + object V321; + object V322; + object V323; + object V324; + object V325; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,4,VV[11],VV[14],VV[15],VV[17]); + V320=(base[0]); + V321=(base[1]); + vs_top=sup; + V322=(base[2]); + V323=(base[3]); + V324=(base[4]); + if(base[9]==Cnil){ + V325= symbol_function(VV[35]); + }else{ + V325=(base[5]);} + if(!(((V325))==(Cnil))){ + goto T1035;} + V325= symbol_function(VV[35]); goto T1035; T1035:; - if(((V584))!=Cnil){ - goto T1039;} - {register long V600; - register long V601; - V600= V592; - V601= V596; -goto T1044; -T1044:; - if((V600)>=(V593)){ - goto T1046;} - if(!((V601)>=(V597))){ - goto T1045;} -goto T1046; -T1046:; - if(!((V600)>=(V593))){ - goto T1051;} - if(!((V601)>=(V597))){ - goto T1051;} - {object V602 = Cnil; - VMR37(V602)} -goto T1051; -T1051:; - {object V603 = make_fixnum(V600); - VMR37(V603)} -goto T1045; -T1045:; - base[0]= elt((V582),V600); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V587)); - vs_top=sup; - V604= vs_base[0]; - base[0]= elt((V583),V601); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V587)); - vs_top=sup; - V605= vs_base[0]; - if(((*(LnkLI43))((V585),(V586),V604,V605))!=Cnil){ - goto T1056;} - {object V606 = make_fixnum(V600); - VMR37(V606)} -goto T1056; -T1056:; - V600= (long)(1)+(V600); - V601= (long)(1)+(V601); - goto T1044;} -goto T1039; -T1039:; - {register long V607; - register long V608; - V607= (long)(-1)+(V593); - V608= (long)(-1)+(V597); -goto T1070; -T1070:; - if((V607)<(V592)){ - goto T1072;} - if(!((V608)<(V596))){ - goto T1071;} -goto T1072; -T1072:; - if(!((V607)<(V592))){ - goto T1077;} - if(!((V608)<(V596))){ - goto T1077;} - {object V609 = Cnil; - VMR37(V609)} -goto T1077; -T1077:; - {object V610 = make_fixnum((long)(1)+(V607)); - VMR37(V610)} -goto T1071; -T1071:; - base[0]= elt((V582),V607); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V587)); - vs_top=sup; - V611= vs_base[0]; - base[0]= elt((V583),V608); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V587)); + base[10]= (V320); + base[11]= (V321); + base[12]= VV[11]; + base[13]= (V322); + base[14]= VV[12]; + base[15]= symbol_function(VV[45]); + base[16]= VV[14]; + base[17]= (V323); + base[18]= VV[15]; + base[19]= (V324); + base[20]= VV[17]; + base[21]= (V325); + vs_top=(vs_base=base+10)+12; + (void) (*Lnk53)(); + return; + } +} +/* function definition for FIND-IF-NOT */ + +static void L31() +{register object *base=vs_base; + register object *sup=base+VM31; VC31 + vs_reserve(VM31); + {object V326; + object V327; + object V328; + object V329; + object V330; + object V331; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,4,VV[11],VV[14],VV[15],VV[17]); + V326=(base[0]); + V327=(base[1]); + vs_top=sup; + V328=(base[2]); + V329=(base[3]); + V330=(base[4]); + if(base[9]==Cnil){ + V331= symbol_function(VV[35]); + }else{ + V331=(base[5]);} + if(!(((V331))==(Cnil))){ + goto T1052;} + V331= symbol_function(VV[35]); +goto T1052; +T1052:; + base[10]= (V326); + base[11]= (V327); + base[12]= VV[11]; + base[13]= (V328); + base[14]= VV[13]; + base[15]= symbol_function(VV[45]); + base[16]= VV[14]; + base[17]= (V329); + base[18]= VV[15]; + base[19]= (V330); + base[20]= VV[17]; + base[21]= (V331); + vs_top=(vs_base=base+10)+12; + (void) (*Lnk53)(); + return; + } +} +/* function definition for POSITION */ + +static void L32() +{register object *base=vs_base; + register object *sup=base+VM32; VC32 + vs_reserve(VM32); + {object V332; + register object V333; + object V334; + register object V335; + register object V336; + object V337; + object V338; + register object V339; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,6,VV[11],VV[12],VV[13],VV[14],VV[15],VV[17]); + V332=(base[0]); + V333=(base[1]); + vs_top=sup; + V334=(base[2]); + V335=(base[3]); + V336=(base[4]); + V337=(base[5]); + V338=(base[6]); + if(base[13]==Cnil){ + V339= symbol_function(VV[35]); + }else{ + V339=(base[7]);} + if(!(((V339))==(Cnil))){ + goto T1069;} + V339= symbol_function(VV[35]); +goto T1069; +T1069:; + {long V340; + if(((V337))==Cnil){ + goto T1075;} + V340= (long)(*(LnkLI36))((V337)); + goto T1073; +goto T1075; +T1075:; + V340= 0; +goto T1073; +T1073:; + {long V341; + V341= (long)(*(LnkLI37))((V338),(V333)); + if(!((V340)<=(V341))){ + goto T1079;} + goto T1078; +goto T1079; +T1079:; + base[14]= make_fixnum(V340); + base[15]= make_fixnum(V341); + vs_top=(vs_base=base+14)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T1078; +T1078:; + if((V335)==Cnil){ + goto T1083;} + if((V336)==Cnil){ + goto T1083;} + (void)((*(LnkLI42))()); +goto T1083; +T1083:; + if(((V334))!=Cnil){ + goto T1085;} + {register long V342; + V342= V340; +goto T1089; +T1089:; + if(!((V342)>=(V341))){ + goto T1090;} + base[14]= Cnil; + vs_top=(vs_base=base+14)+1; + return; +goto T1090; +T1090:; + base[14]= elt((V333),V342); + vs_top=(vs_base=base+14)+1; + super_funcall_no_event((V339)); vs_top=sup; - V612= vs_base[0]; - if(((*(LnkLI43))((V585),(V586),V611,V612))!=Cnil){ - goto T1082;} - {object V613 = make_fixnum((long)(1)+(V607)); - VMR37(V613)} -goto T1082; -T1082:; - V607= (long)(-1)+(V607); - V608= (long)(-1)+(V608); - goto T1070;}}}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} -/* local entry for function SEARCH */ - -static object LI38(V615,V614,va_alist) - object V615,V614; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB38 VMS38 VMV38 - {object V616; - object V617; - object V618; - object V619; - object V620; - register object V621; - object V622; - object V623; - object V624; - object V625; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <2) too_few_arguments(); - V616= V615; - V617= V614; - narg= narg - 2; - { - parse_key_new(narg,Vcs +2,(struct key *)&LI38key,ap); - V618=(Vcs[2]); - V619=(Vcs[3]); - V620=(Vcs[4]); - if(Vcs[5]==0){ - V621= symbol_function(VV[35]); - }else{ - V621=(Vcs[5]);} - V622=(Vcs[6]); - V623=(Vcs[7]); - V624=(Vcs[8]); - V625=(Vcs[9]); - if((V619)==Cnil){ - goto T1094;} - if((V620)==Cnil){ + V343= vs_base[0]; + if(((*(LnkLI43))((V335),(V336),(V332),V343))==Cnil){ goto T1094;} - (void)((*(LnkLI42))()); + base[14]= make_fixnum(V342); + vs_top=(vs_base=base+14)+1; + return; goto T1094; T1094:; - {long V626; - if(((V622))==Cnil){ - goto T1097;} - V626= (long)(*(LnkLI36))((V622)); - goto T1095; -goto T1097; -T1097:; - V626= 0; -goto T1095; -T1095:; - {long V627; - V627= (long)(*(LnkLI37))((V624),(V616)); - if(!((V626)<=(V627))){ - goto T1101;} - goto T1100; -goto T1101; -T1101:; - V628 = make_fixnum(V626); - V629 = make_fixnum(V627); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V628,V629))); -goto T1100; -T1100:; - {register long V630; - if(((V623))==Cnil){ + V342= (long)(1)+(V342); + goto T1089;} +goto T1085; +T1085:; + {register long V344; + V344= (long)(-1)+(V341); +goto T1104; +T1104:; + if(!((V344)<(V340))){ goto T1105;} - V630= (long)(*(LnkLI36))((V623)); - goto T1103; + base[14]= Cnil; + vs_top=(vs_base=base+14)+1; + return; goto T1105; T1105:; - V630= 0; -goto T1103; -T1103:; - {long V631; - V631= (long)(*(LnkLI37))((V625),(V617)); - if(!((V630)<=(V631))){ + base[14]= elt((V333),V344); + vs_top=(vs_base=base+14)+1; + super_funcall_no_event((V339)); + vs_top=sup; + V345= vs_base[0]; + if(((*(LnkLI43))((V335),(V336),(V332),V345))==Cnil){ goto T1109;} - goto T1108; + base[14]= make_fixnum(V344); + vs_top=(vs_base=base+14)+1; + return; goto T1109; T1109:; - V632 = make_fixnum(V630); - V633 = make_fixnum(V631); - (void)((VFUN_NARGS=2,(*(LnkLI33))(V632,V633))); -goto T1108; -T1108:; - if(((V618))!=Cnil){ - goto T1112;} -goto T1115; -T1115:; - {register long V634; - register long V635; - V634= V626; - V635= V630; -goto T1121; -T1121:; - if(!((V634)>=(V627))){ - goto T1122;} - {object V636 = make_fixnum(V630); - VMR38(V636)} -goto T1122; -T1122:; - if(!((V635)>=(V631))){ - goto T1126;} - {object V637 = Cnil; - VMR38(V637)} -goto T1126; -T1126:; - base[0]= elt((V616),V634); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V621)); + V344= (long)(-1)+(V344); + goto T1104;}}} + } +} +/* function definition for POSITION-IF */ + +static void L33() +{register object *base=vs_base; + register object *sup=base+VM33; VC33 + vs_reserve(VM33); + {object V346; + object V347; + object V348; + object V349; + object V350; + object V351; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,4,VV[11],VV[14],VV[15],VV[17]); + V346=(base[0]); + V347=(base[1]); + vs_top=sup; + V348=(base[2]); + V349=(base[3]); + V350=(base[4]); + if(base[9]==Cnil){ + V351= symbol_function(VV[35]); + }else{ + V351=(base[5]);} + if(!(((V351))==(Cnil))){ + goto T1118;} + V351= symbol_function(VV[35]); +goto T1118; +T1118:; + base[10]= (V346); + base[11]= (V347); + base[12]= VV[11]; + base[13]= (V348); + base[14]= VV[12]; + base[15]= symbol_function(VV[45]); + base[16]= VV[14]; + base[17]= (V349); + base[18]= VV[15]; + base[19]= (V350); + base[20]= VV[17]; + base[21]= (V351); + vs_top=(vs_base=base+10)+12; + (void) (*Lnk54)(); + return; + } +} +/* function definition for POSITION-IF-NOT */ + +static void L34() +{register object *base=vs_base; + register object *sup=base+VM34; VC34 + vs_reserve(VM34); + {object V352; + object V353; + object V354; + object V355; + object V356; + object V357; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,4,VV[11],VV[14],VV[15],VV[17]); + V352=(base[0]); + V353=(base[1]); + vs_top=sup; + V354=(base[2]); + V355=(base[3]); + V356=(base[4]); + if(base[9]==Cnil){ + V357= symbol_function(VV[35]); + }else{ + V357=(base[5]);} + if(!(((V357))==(Cnil))){ + goto T1135;} + V357= symbol_function(VV[35]); +goto T1135; +T1135:; + base[10]= (V352); + base[11]= (V353); + base[12]= VV[11]; + base[13]= (V354); + base[14]= VV[13]; + base[15]= symbol_function(VV[45]); + base[16]= VV[14]; + base[17]= (V355); + base[18]= VV[15]; + base[19]= (V356); + base[20]= VV[17]; + base[21]= (V357); + vs_top=(vs_base=base+10)+12; + (void) (*Lnk54)(); + return; + } +} +/* function definition for REMOVE-DUPLICATES */ + +static void L35() +{register object *base=vs_base; + register object *sup=base+VM35; VC35 + vs_reserve(VM35); + {register object V358; + object V359; + register object V360; + register object V361; + object V362; + object V363; + register object V364; + if(vs_top-vs_base<1) too_few_arguments(); + parse_key(vs_base+1,FALSE,FALSE,6,VV[11],VV[12],VV[13],VV[14],VV[15],VV[17]); + V358=(base[0]); + vs_top=sup; + V359=(base[1]); + V360=(base[2]); + V361=(base[3]); + V362=(base[4]); + V363=(base[5]); + if(base[12]==Cnil){ + V364= symbol_function(VV[35]); + }else{ + V364=(base[6]);} + if((V360)==Cnil){ + goto T1152;} + if((V361)==Cnil){ + goto T1152;} + (void)((*(LnkLI42))()); +goto T1152; +T1152:; + if(!(type_of((V358))==t_cons||((V358))==Cnil)){ + goto T1153;} + if(((V359))!=Cnil){ + goto T1153;} + if(((V362))!=Cnil){ + goto T1153;} + if(((V363))!=Cnil){ + goto T1153;} + if(!(endp_prop((V358)))){ + goto T1162;} + base[13]= Cnil; + vs_top=(vs_base=base+13)+1; + return; +goto T1162; +T1162:; + {register object V365; + register object V366; + V365= (V358); + V366= Cnil; +goto T1166; +T1166:; + if(!(endp_prop(cdr((V365))))){ + goto T1167;} + base[13]= (V366); + base[14]= (V365); + vs_top=(vs_base=base+13)+2; + Lreconc(); + return; +goto T1167; +T1167:; + base[13]= car((V365)); + base[14]= cdr((V365)); + base[15]= VV[12]; + base[16]= (V360); + base[17]= VV[13]; + base[18]= (V361); + base[19]= VV[17]; + base[20]= (V364); + vs_top=(vs_base=base+13)+8; + (void) (*Lnk55)(); vs_top=sup; - V638= vs_base[0]; - base[0]= elt((V617),V635); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V621)); + if((vs_base[0])!=Cnil){ + goto T1173;} + V366= make_cons(car((V365)),(V366)); +goto T1173; +T1173:; + V365= cdr((V365)); + goto T1166;} +goto T1153; +T1153:; + base[13]= (V358); + base[14]= VV[11]; + base[15]= (V359); + base[16]= VV[12]; + base[17]= (V360); + base[18]= VV[13]; + base[19]= (V361); + base[20]= VV[14]; + base[21]= (V362); + base[22]= VV[15]; + base[23]= (V363); + base[24]= VV[17]; + base[25]= (V364); + vs_top=(vs_base=base+13)+13; + (void) (*Lnk56)(); + return; + } +} +/* function definition for DELETE-DUPLICATES */ + +static void L36() +{register object *base=vs_base; + register object *sup=base+VM36; VC36 + vs_reserve(VM36); + {register object V367; + object V368; + object V369; + object V370; + object V371; + object V372; + register object V373; + if(vs_top-vs_base<1) too_few_arguments(); + parse_key(vs_base+1,FALSE,FALSE,6,VV[11],VV[12],VV[13],VV[14],VV[15],VV[17]); + V367=(base[0]); + vs_top=sup; + V368=(base[1]); + V369=(base[2]); + V370=(base[3]); + V371=(base[4]); + V372=(base[5]); + if(base[12]==Cnil){ + V373= symbol_function(VV[35]); + }else{ + V373=(base[6]);} + {long V374; + V374= (long)length((V367)); + if((V369)==Cnil){ + goto T1203;} + if((V370)==Cnil){ + goto T1203;} + (void)((*(LnkLI42))()); +goto T1203; +T1203:; + if(!(type_of((V367))==t_cons||((V367))==Cnil)){ + goto T1204;} + if(((V368))!=Cnil){ + goto T1204;} + if(((V371))!=Cnil){ + goto T1204;} + if(((V372))!=Cnil){ + goto T1204;} + if(!(endp_prop((V367)))){ + goto T1213;} + base[13]= Cnil; + vs_top=(vs_base=base+13)+1; + return; +goto T1213; +T1213:; + {register object V375; + V375= (V367); +goto T1217; +T1217:; + if(!(endp_prop(cdr((V375))))){ + goto T1218;} + base[13]= (V367); + vs_top=(vs_base=base+13)+1; + return; +goto T1218; +T1218:; + base[13]= car((V375)); + base[14]= cdr((V375)); + base[15]= VV[12]; + base[16]= (V369); + base[17]= VV[13]; + base[18]= (V370); + base[19]= VV[17]; + base[20]= (V373); + vs_top=(vs_base=base+13)+8; + (void) (*Lnk55)(); vs_top=sup; - V639= vs_base[0]; - if(((*(LnkLI43))((V619),(V620),V638,V639))!=Cnil){ - goto T1129;} - goto T1117; -goto T1129; -T1129:; - V634= (long)(1)+(V634); - V635= (long)(1)+(V635); - goto T1121;} -goto T1117; -T1117:; - V630= (long)(1)+(V630); - goto T1115; -goto T1112; -T1112:; -goto T1143; -T1143:; - {register long V640; - register long V641; - V640= (long)(-1)+(V627); - V641= (long)(-1)+(V631); -goto T1149; -T1149:; - if(!((V640)<(V626))){ - goto T1150;} - {object V642 = make_fixnum((long)(1)+(V641)); - VMR38(V642)} -goto T1150; -T1150:; - if(!((V641)<(V630))){ - goto T1154;} - {object V643 = Cnil; - VMR38(V643)} -goto T1154; -T1154:; - base[0]= elt((V616),V640); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V621)); + if((vs_base[0])==Cnil){ + goto T1224;} + if(type_of((V375))!=t_cons)FEwrong_type_argument(Scons,(V375)); + ((V375))->c.c_car = cadr((V375)); + if(type_of((V375))!=t_cons)FEwrong_type_argument(Scons,(V375)); + ((V375))->c.c_cdr = cddr((V375)); + goto T1222; +goto T1224; +T1224:; + V375= cdr((V375)); +goto T1222; +T1222:; + goto T1217;} +goto T1204; +T1204:; + {register long V376; + if(((V371))==Cnil){ + goto T1240;} + V376= (long)(*(LnkLI36))((V371)); + goto T1238; +goto T1240; +T1240:; + V376= 0; +goto T1238; +T1238:; + {register long V377; + V377= (long)(*(LnkLI37))((V372),(V367)); + if(!((V376)<=(V377))){ + goto T1244;} + goto T1243; +goto T1244; +T1244:; + base[13]= make_fixnum(V376); + base[14]= make_fixnum(V377); + vs_top=(vs_base=base+13)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T1243; +T1243:; + if(((V368))!=Cnil){ + goto T1249;} + {long V378; + long V379; + V378= 0; + V379= V376; +goto T1254; +T1254:; + if(!((V379)>=(V377))){ + goto T1255;} + {object V380; + register long V381; + long V382; + base[13]= (*(LnkLI48))((V367)); + base[14]= make_fixnum((long)(V374)-(V378)); + vs_top=(vs_base=base+13)+2; + (void) (*Lnk49)(); + vs_top=sup; + V380= vs_base[0]; + V381= 0; + V382= 0; +goto T1264; +T1264:; + if(!((V381)>=(V374))){ + goto T1265;} + base[13]= (V380); + vs_top=(vs_base=base+13)+1; + return; +goto T1265; +T1265:; + {object V383; + if((V376)<=(V381)){ + goto T1271;} + V383= Cnil; + goto T1270; +goto T1271; +T1271:; + if((V381)<(V377)){ + goto T1273;} + V383= Cnil; + goto T1270; +goto T1273; +T1273:; + base[14]= elt((V367),V381); + vs_top=(vs_base=base+14)+1; + super_funcall_no_event((V373)); + vs_top=sup; + base[13]= vs_base[0]; + base[14]= (V367); + base[15]= VV[12]; + base[16]= (V369); + base[17]= VV[13]; + base[18]= (V370); + base[19]= VV[14]; + base[20]= make_fixnum((long)(1)+(V381)); + base[21]= VV[15]; + base[22]= make_fixnum(V377); + base[23]= VV[17]; + base[24]= (V373); + vs_top=(vs_base=base+13)+12; + (void) (*Lnk54)(); vs_top=sup; - V644= vs_base[0]; - base[0]= elt((V617),V641); - vs_top=(vs_base=base+0)+1; - super_funcall_no_event((V621)); + V383= vs_base[0]; +goto T1270; +T1270:; + if(((V383))==Cnil){ + goto T1289;} + goto T1269; +goto T1289; +T1289:; + V384= elt((V367),V381); + (void)(elt_set((V380),V382,/* INLINE-ARGS */V384)); + V382= (long)(1)+(V382);} +goto T1269; +T1269:; + V381= (long)(1)+(V381); + goto T1264;} +goto T1255; +T1255:; + base[14]= elt((V367),V379); + vs_top=(vs_base=base+14)+1; + super_funcall_no_event((V373)); + vs_top=sup; + base[13]= vs_base[0]; + base[14]= (V367); + base[15]= VV[12]; + base[16]= (V369); + base[17]= VV[13]; + base[18]= (V370); + base[19]= VV[14]; + base[20]= make_fixnum((long)(1)+(V379)); + base[21]= VV[15]; + base[22]= make_fixnum(V377); + base[23]= VV[17]; + base[24]= (V373); + vs_top=(vs_base=base+13)+12; + (void) (*Lnk54)(); vs_top=sup; - V645= vs_base[0]; - if(((*(LnkLI43))((V619),(V620),V644,V645))!=Cnil){ - goto T1157;} - goto T1145; -goto T1157; -T1157:; - V640= (long)(-1)+(V640); - V641= (long)(-1)+(V641); - goto T1149;} -goto T1145; -T1145:; - V631= (long)(-1)+(V631); - goto T1143;}}}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} + if((vs_base[0])==Cnil){ + goto T1297;} + V378= (long)(1)+(V378); +goto T1297; +T1297:; + V379= (long)(1)+(V379); + goto T1254;} +goto T1249; +T1249:; + {long V385; + long V386; + V385= 0; + V386= (long)(-1)+(V377); +goto T1320; +T1320:; + if(!((V386)<(V376))){ + goto T1321;} + {object V387; + register long V388; + long V389; + base[13]= (*(LnkLI48))((V367)); + base[14]= make_fixnum((long)(V374)-(V385)); + vs_top=(vs_base=base+13)+2; + (void) (*Lnk49)(); + vs_top=sup; + V387= vs_base[0]; + V388= (long)(-1)+(V374); + V389= (long)((long)(-1)+(V374))-(V385); +goto T1330; +T1330:; + if(!((V388)<(0))){ + goto T1331;} + base[13]= (V387); + vs_top=(vs_base=base+13)+1; + return; +goto T1331; +T1331:; + {object V390; + if((V376)<=(V388)){ + goto T1337;} + V390= Cnil; + goto T1336; +goto T1337; +T1337:; + if((V388)<(V377)){ + goto T1339;} + V390= Cnil; + goto T1336; +goto T1339; +T1339:; + base[14]= elt((V367),V388); + vs_top=(vs_base=base+14)+1; + super_funcall_no_event((V373)); + vs_top=sup; + base[13]= vs_base[0]; + base[14]= (V367); + base[15]= VV[11]; + base[16]= Ct; + base[17]= VV[12]; + base[18]= (V369); + base[19]= VV[13]; + base[20]= (V370); + base[21]= VV[14]; + base[22]= make_fixnum(V376); + base[23]= VV[15]; + base[24]= make_fixnum(V388); + base[25]= VV[17]; + base[26]= (V373); + vs_top=(vs_base=base+13)+14; + (void) (*Lnk54)(); + vs_top=sup; + V390= vs_base[0]; +goto T1336; +T1336:; + if(((V390))==Cnil){ + goto T1357;} + goto T1335; +goto T1357; +T1357:; + V391= elt((V367),V388); + (void)(elt_set((V387),V389,/* INLINE-ARGS */V391)); + V389= (long)(-1)+(V389);} +goto T1335; +T1335:; + V388= (long)(-1)+(V388); + goto T1330;} +goto T1321; +T1321:; + base[14]= elt((V367),V386); + vs_top=(vs_base=base+14)+1; + super_funcall_no_event((V373)); + vs_top=sup; + base[13]= vs_base[0]; + base[14]= (V367); + base[15]= VV[11]; + base[16]= Ct; + base[17]= VV[12]; + base[18]= (V369); + base[19]= VV[13]; + base[20]= (V370); + base[21]= VV[14]; + base[22]= make_fixnum(V376); + base[23]= VV[15]; + base[24]= make_fixnum(V386); + base[25]= VV[17]; + base[26]= (V373); + vs_top=(vs_base=base+13)+14; + (void) (*Lnk54)(); + vs_top=sup; + if((vs_base[0])==Cnil){ + goto T1365;} + V385= (long)(1)+(V385); +goto T1365; +T1365:; + V386= (long)(-1)+(V386); + goto T1320;}}}} + } +} +/* function definition for MISMATCH */ + +static void L37() +{register object *base=vs_base; + register object *sup=base+VM37; VC37 + vs_reserve(VM37); + {object V392; + object V393; + object V394; + object V395; + object V396; + register object V397; + object V398; + object V399; + object V400; + object V401; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,8,VV[11],VV[12],VV[13],VV[17],VV[38],VV[40],VV[39],VV[41]); + V392=(base[0]); + V393=(base[1]); + vs_top=sup; + V394=(base[2]); + V395=(base[3]); + V396=(base[4]); + if(base[13]==Cnil){ + V397= symbol_function(VV[35]); + }else{ + V397=(base[5]);} + V398=(base[6]); + V399=(base[7]); + V400=(base[8]); + V401=(base[9]); + if((V395)==Cnil){ + goto T1388;} + if((V396)==Cnil){ + goto T1388;} + (void)((*(LnkLI42))()); +goto T1388; +T1388:; + {register long V402; + if(((V398))==Cnil){ + goto T1391;} + V402= (long)(*(LnkLI36))((V398)); + goto T1389; +goto T1391; +T1391:; + V402= 0; +goto T1389; +T1389:; + {register long V403; + V403= (long)(*(LnkLI37))((V400),(V392)); + if(!((V402)<=(V403))){ + goto T1395;} + goto T1394; +goto T1395; +T1395:; + base[18]= make_fixnum(V402); + base[19]= make_fixnum(V403); + vs_top=(vs_base=base+18)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T1394; +T1394:; + {register long V404; + if(((V399))==Cnil){ + goto T1401;} + V404= (long)(*(LnkLI36))((V399)); + goto T1399; +goto T1401; +T1401:; + V404= 0; +goto T1399; +T1399:; + {register long V405; + V405= (long)(*(LnkLI37))((V401),(V393)); + if(!((V404)<=(V405))){ + goto T1405;} + goto T1404; +goto T1405; +T1405:; + base[18]= make_fixnum(V404); + base[19]= make_fixnum(V405); + vs_top=(vs_base=base+18)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T1404; +T1404:; + if(((V394))!=Cnil){ + goto T1410;} + {register long V406; + register long V407; + V406= V402; + V407= V404; +goto T1415; +T1415:; + if((V406)>=(V403)){ + goto T1417;} + if(!((V407)>=(V405))){ + goto T1416;} +goto T1417; +T1417:; + if(!((V406)>=(V403))){ + goto T1422;} + if(!((V407)>=(V405))){ + goto T1422;} + base[18]= Cnil; + vs_top=(vs_base=base+18)+1; + return; +goto T1422; +T1422:; + base[18]= make_fixnum(V406); + vs_top=(vs_base=base+18)+1; + return; +goto T1416; +T1416:; + base[18]= elt((V392),V406); + vs_top=(vs_base=base+18)+1; + super_funcall_no_event((V397)); + vs_top=sup; + V408= vs_base[0]; + base[18]= elt((V393),V407); + vs_top=(vs_base=base+18)+1; + super_funcall_no_event((V397)); + vs_top=sup; + V409= vs_base[0]; + if(((*(LnkLI43))((V395),(V396),V408,V409))!=Cnil){ + goto T1427;} + base[18]= make_fixnum(V406); + vs_top=(vs_base=base+18)+1; + return; +goto T1427; +T1427:; + V406= (long)(1)+(V406); + V407= (long)(1)+(V407); + goto T1415;} +goto T1410; +T1410:; + {register long V410; + register long V411; + V410= (long)(-1)+(V403); + V411= (long)(-1)+(V405); +goto T1441; +T1441:; + if((V410)<(V402)){ + goto T1443;} + if(!((V411)<(V404))){ + goto T1442;} +goto T1443; +T1443:; + if(!((V410)<(V402))){ + goto T1448;} + if(!((V411)<(V404))){ + goto T1448;} + base[18]= Cnil; + vs_top=(vs_base=base+18)+1; + return; +goto T1448; +T1448:; + base[18]= make_fixnum((long)(1)+(V410)); + vs_top=(vs_base=base+18)+1; + return; +goto T1442; +T1442:; + base[18]= elt((V392),V410); + vs_top=(vs_base=base+18)+1; + super_funcall_no_event((V397)); + vs_top=sup; + V412= vs_base[0]; + base[18]= elt((V393),V411); + vs_top=(vs_base=base+18)+1; + super_funcall_no_event((V397)); + vs_top=sup; + V413= vs_base[0]; + if(((*(LnkLI43))((V395),(V396),V412,V413))!=Cnil){ + goto T1453;} + base[18]= make_fixnum((long)(1)+(V410)); + vs_top=(vs_base=base+18)+1; + return; +goto T1453; +T1453:; + V410= (long)(-1)+(V410); + V411= (long)(-1)+(V411); + goto T1441;}}}}} + } +} +/* function definition for SEARCH */ + +static void L38() +{register object *base=vs_base; + register object *sup=base+VM38; VC38 + vs_reserve(VM38); + {object V414; + object V415; + object V416; + object V417; + object V418; + register object V419; + object V420; + object V421; + object V422; + object V423; + if(vs_top-vs_base<2) too_few_arguments(); + parse_key(vs_base+2,FALSE,FALSE,8,VV[11],VV[12],VV[13],VV[17],VV[38],VV[40],VV[39],VV[41]); + V414=(base[0]); + V415=(base[1]); + vs_top=sup; + V416=(base[2]); + V417=(base[3]); + V418=(base[4]); + if(base[13]==Cnil){ + V419= symbol_function(VV[35]); + }else{ + V419=(base[5]);} + V420=(base[6]); + V421=(base[7]); + V422=(base[8]); + V423=(base[9]); + if((V417)==Cnil){ + goto T1465;} + if((V418)==Cnil){ + goto T1465;} + (void)((*(LnkLI42))()); +goto T1465; +T1465:; + {long V424; + if(((V420))==Cnil){ + goto T1468;} + V424= (long)(*(LnkLI36))((V420)); + goto T1466; +goto T1468; +T1468:; + V424= 0; +goto T1466; +T1466:; + {long V425; + V425= (long)(*(LnkLI37))((V422),(V414)); + if(!((V424)<=(V425))){ + goto T1472;} + goto T1471; +goto T1472; +T1472:; + base[18]= make_fixnum(V424); + base[19]= make_fixnum(V425); + vs_top=(vs_base=base+18)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T1471; +T1471:; + {register long V426; + if(((V421))==Cnil){ + goto T1478;} + V426= (long)(*(LnkLI36))((V421)); + goto T1476; +goto T1478; +T1478:; + V426= 0; +goto T1476; +T1476:; + {long V427; + V427= (long)(*(LnkLI37))((V423),(V415)); + if(!((V426)<=(V427))){ + goto T1482;} + goto T1481; +goto T1482; +T1482:; + base[18]= make_fixnum(V426); + base[19]= make_fixnum(V427); + vs_top=(vs_base=base+18)+2; + (void) (*Lnk33)(); + vs_top=sup; +goto T1481; +T1481:; + if(((V416))!=Cnil){ + goto T1487;} +goto T1490; +T1490:; + {register long V428; + register long V429; + V428= V424; + V429= V426; +goto T1496; +T1496:; + if(!((V428)>=(V425))){ + goto T1497;} + base[18]= make_fixnum(V426); + vs_top=(vs_base=base+18)+1; + return; +goto T1497; +T1497:; + if(!((V429)>=(V427))){ + goto T1501;} + base[18]= Cnil; + vs_top=(vs_base=base+18)+1; + return; +goto T1501; +T1501:; + base[18]= elt((V414),V428); + vs_top=(vs_base=base+18)+1; + super_funcall_no_event((V419)); + vs_top=sup; + V430= vs_base[0]; + base[18]= elt((V415),V429); + vs_top=(vs_base=base+18)+1; + super_funcall_no_event((V419)); + vs_top=sup; + V431= vs_base[0]; + if(((*(LnkLI43))((V417),(V418),V430,V431))!=Cnil){ + goto T1504;} + goto T1492; +goto T1504; +T1504:; + V428= (long)(1)+(V428); + V429= (long)(1)+(V429); + goto T1496;} +goto T1492; +T1492:; + V426= (long)(1)+(V426); + goto T1490; +goto T1487; +T1487:; +goto T1518; +T1518:; + {register long V432; + register long V433; + V432= (long)(-1)+(V425); + V433= (long)(-1)+(V427); +goto T1524; +T1524:; + if(!((V432)<(V424))){ + goto T1525;} + base[18]= make_fixnum((long)(1)+(V433)); + vs_top=(vs_base=base+18)+1; + return; +goto T1525; +T1525:; + if(!((V433)<(V426))){ + goto T1529;} + base[18]= Cnil; + vs_top=(vs_base=base+18)+1; + return; +goto T1529; +T1529:; + base[18]= elt((V414),V432); + vs_top=(vs_base=base+18)+1; + super_funcall_no_event((V419)); + vs_top=sup; + V434= vs_base[0]; + base[18]= elt((V415),V433); + vs_top=(vs_base=base+18)+1; + super_funcall_no_event((V419)); + vs_top=sup; + V435= vs_base[0]; + if(((*(LnkLI43))((V417),(V418),V434,V435))!=Cnil){ + goto T1532;} + goto T1520; +goto T1532; +T1532:; + V432= (long)(-1)+(V432); + V433= (long)(-1)+(V433); + goto T1524;} +goto T1520; +T1520:; + V427= (long)(-1)+(V427); + goto T1518;}}}} + } +} /* function definition for SORT */ static void L39() {register object *base=vs_base; register object *sup=base+VM39; VC39 vs_reserve(VM39); - {register object V646; - object V647; - object V648; + {register object V436; + object V437; + object V438; if(vs_top-vs_base<2) too_few_arguments(); parse_key(vs_base+2,FALSE,FALSE,1,VV[17]); - V646=(base[0]); - V647=(base[1]); + V436=(base[0]); + V437=(base[1]); vs_top=sup; if(base[3]==Cnil){ - V648= symbol_function(VV[35]); + V438= symbol_function(VV[35]); }else{ - V648=(base[2]);} - if(!(type_of((V646))==t_cons||((V646))==Cnil)){ - goto T1172;} - base[4]= (V646); - base[5]= (V647); - base[6]= (V648); + V438=(base[2]);} + if(!(type_of((V436))==t_cons||((V436))==Cnil)){ + goto T1547;} + base[4]= (V436); + base[5]= (V437); + base[6]= (V438); vs_top=(vs_base=base+4)+3; (void) (*Lnk57)(); return; -goto T1172; -T1172:; - base[4]= (*(LnkLI58))((V646),0,(long)length((V646)),(V647),(V648)); +goto T1547; +T1547:; + base[4]= (*(LnkLI58))((V436),0,(long)length((V436)),(V437),(V438)); vs_top=(vs_base=base+4)+1; return; } @@ -3251,13 +3495,13 @@ {register object *base=vs_base; register object *sup=base+VM40; VC40 vs_reserve(VM40); - {object V649; + {object V439; check_arg(3); - V649=(base[0]); + V439=(base[0]); vs_top=sup; goto TTL; TTL:; - base[3]= (V649); + base[3]= (V439); vs_top=(vs_base=base+3)+1; L41(base); return; @@ -3265,93 +3509,93 @@ } /* local entry for function QUICK-SORT */ -static object LI42(V655,V656,V657,V658,V659) +static object LI42(V445,V446,V447,V448,V449) -register object V655;long V656;long V657;register object V658;register object V659; +register object V445;long V446;long V447;register object V448;register object V449; { VMB41 VMS41 VMV41 goto TTL; TTL:; - if(!((V657)<=((long)(1)+(V656)))){ - goto T1179;} - {object V660 = (V655); - VMR41(V660)} -goto T1179; -T1179:; - {register long V661; - register long V662; - object V663; - register object V664; - V661= V656; - V662= V657; - V663= elt((V655),V656); - V664= ( - (type_of((V659)) == t_sfun ?(*(((V659))->sfn.sfn_self)): - (fcall.fun=((V659)),fcall.argd=1,fcalln))((V663))); -goto T1187; -T1187:; -goto T1191; -T1191:; - V662= (long)(-1)+(V662); - if((V661)<(V662)){ - goto T1195;} - goto T1185; -goto T1195; -T1195:; - base[3]= elt((V655),V662); + if(!((V447)<=((long)(1)+(V446)))){ + goto T1554;} + {object V450 = (V445); + VMR41(V450)} +goto T1554; +T1554:; + {register long V451; + register long V452; + object V453; + register object V454; + V451= V446; + V452= V447; + V453= elt((V445),V446); + V454= ( + (type_of((V449)) == t_sfun ?(*(((V449))->sfn.sfn_self)): + (fcall.fun=((V449)),fcall.argd=1,fcalln))((V453))); +goto T1562; +T1562:; +goto T1566; +T1566:; + V452= (long)(-1)+(V452); + if((V451)<(V452)){ + goto T1570;} + goto T1560; +goto T1570; +T1570:; + base[3]= elt((V445),V452); vs_top=(vs_base=base+3)+1; - super_funcall_no_event((V659)); + super_funcall_no_event((V449)); vs_top=sup; base[2]= vs_base[0]; - base[3]= (V664); + base[3]= (V454); vs_top=(vs_base=base+2)+2; - super_funcall_no_event((V658)); + super_funcall_no_event((V448)); vs_top=sup; if((vs_base[0])==Cnil){ - goto T1192;} - goto T1189; -goto T1192; -T1192:; - goto T1191; -goto T1189; -T1189:; -goto T1206; -T1206:; - V661= (long)(1)+(V661); - if((V661)<(V662)){ - goto T1210;} - goto T1185; -goto T1210; -T1210:; - base[3]= elt((V655),V661); + goto T1567;} + goto T1564; +goto T1567; +T1567:; + goto T1566; +goto T1564; +T1564:; +goto T1581; +T1581:; + V451= (long)(1)+(V451); + if((V451)<(V452)){ + goto T1585;} + goto T1560; +goto T1585; +T1585:; + base[3]= elt((V445),V451); vs_top=(vs_base=base+3)+1; - super_funcall_no_event((V659)); + super_funcall_no_event((V449)); vs_top=sup; base[2]= vs_base[0]; - base[3]= (V664); + base[3]= (V454); vs_top=(vs_base=base+2)+2; - super_funcall_no_event((V658)); + super_funcall_no_event((V448)); vs_top=sup; if((vs_base[0])!=Cnil){ - goto T1207;} - goto T1204; -goto T1207; -T1207:; - goto T1206; -goto T1204; -T1204:; - {object V665; - V665= elt((V655),V661); - V666= elt((V655),V662); - (void)(elt_set((V655),V661,/* INLINE-ARGS */V666)); - (void)(elt_set((V655),V662,(V665)));} - goto T1187; -goto T1185; -T1185:; - V667= elt((V655),V661); - (void)(elt_set((V655),V656,/* INLINE-ARGS */V667)); - (void)(elt_set((V655),V661,(V663))); - (void)((*(LnkLI58))((V655),V656,V661,(V658),(V659))); - V656= (long)(1)+(V661); + goto T1582;} + goto T1579; +goto T1582; +T1582:; + goto T1581; +goto T1579; +T1579:; + {object V455; + V455= elt((V445),V451); + V456= elt((V445),V452); + (void)(elt_set((V445),V451,/* INLINE-ARGS */V456)); + (void)(elt_set((V445),V452,(V455)));} + goto T1562; +goto T1560; +T1560:; + V457= elt((V445),V451); + (void)(elt_set((V445),V446,/* INLINE-ARGS */V457)); + (void)(elt_set((V445),V451,(V453))); + (void)((*(LnkLI58))((V445),V446,V451,(V448),(V449))); + V446= (long)(1)+(V451); goto TTL;} base[0]=base[0]; return Cnil; @@ -3362,321 +3606,316 @@ {register object *base=vs_base; register object *sup=base+VM42; VC42 vs_reserve(VM42); - {register object V668; - object V669; - object V670; + {register object V458; + object V459; + object V460; if(vs_top-vs_base<2) too_few_arguments(); parse_key(vs_base+2,FALSE,FALSE,1,VV[17]); - V668=(base[0]); - V669=(base[1]); + V458=(base[0]); + V459=(base[1]); vs_top=sup; if(base[3]==Cnil){ - V670= symbol_function(VV[35]); + V460= symbol_function(VV[35]); }else{ - V670=(base[2]);} - if(!(type_of((V668))==t_cons||((V668))==Cnil)){ - goto T1233;} - base[4]= (V668); - base[5]= (V669); - base[6]= (V670); + V460=(base[2]);} + if(!(type_of((V458))==t_cons||((V458))==Cnil)){ + goto T1608;} + base[4]= (V458); + base[5]= (V459); + base[6]= (V460); vs_top=(vs_base=base+4)+3; (void) (*Lnk57)(); return; -goto T1233; -T1233:; - if(type_of((V668))==t_string){ - goto T1238;} - if(!((type_of((V668))==t_bitvector))){ - goto T1239;} -goto T1238; -T1238:; - base[4]= (V668); - base[5]= (V669); +goto T1608; +T1608:; + if(type_of((V458))==t_string){ + goto T1613;} + if(!((type_of((V458))==t_bitvector))){ + goto T1614;} +goto T1613; +T1613:; + base[4]= (V458); + base[5]= (V459); base[6]= VV[17]; - base[7]= (V670); + base[7]= (V460); vs_top=(vs_base=base+4)+4; (void) (*Lnk59)(); return; -goto T1239; -T1239:; - base[4]= (*(LnkLI60))((V668),VV[0]); - base[5]= (V669); - base[6]= (V670); - vs_top=(vs_base=base+4)+3; +goto T1614; +T1614:; + base[6]= (V458); + base[7]= VV[0]; + vs_top=(vs_base=base+6)+2; + (void) (*Lnk60)(); + vs_top=sup; + base[5]= vs_base[0]; + base[6]= (V459); + base[7]= (V460); + vs_top=(vs_base=base+5)+3; (void) (*Lnk57)(); vs_top=sup; - V671= vs_base[0]; - V672= (*(LnkLI49))((V668)); - base[4]= (*(LnkLI60))(V671,/* INLINE-ARGS */V672); - vs_top=(vs_base=base+4)+1; + base[4]= vs_base[0]; + base[5]= (*(LnkLI48))((V458)); + vs_top=(vs_base=base+4)+2; + (void) (*Lnk60)(); return; } } -/* local entry for function MERGE */ +/* function definition for MERGE */ -static object LI44(V676,V675,V674,V673,va_alist) - object V676,V675,V674,V673; - va_dcl -{ - va_list ap; - int narg = VFUN_NARGS; VMB43 VMS43 VMV43 - {object V677; - register object V678; - object V679; - object V680; - register object V681; - Vcs[0]=Vcs[0]; - va_start(ap); - if(narg <4) too_few_arguments(); - V677= V676; - V678= V675; - V679= V674; - V680= V673; - narg= narg - 4; - { - parse_key_new(narg,Vcs +4,(struct key *)&LI44key,ap); - if(Vcs[4]==0){ - V681= symbol_function(VV[35]); - }else{ - V681=(Vcs[4]);} - {long V682; - long V683; - V682= (long)length((V678)); - V683= (long)length((V679)); - if(!(equal((V681),Cnil))){ - goto T1254;} - V681= symbol_function(VV[35]); -goto T1254; -T1254:; - {register object V684; - register long V685; - register long V686; - register long V687; - V688 = make_fixnum((long)(V682)+(V683)); - V684= (VFUN_NARGS=2,(*(LnkLI48))((V677),V688)); - V685= 0; - V686= 0; - V687= 0; -goto T1263; -T1263:; - if(!((V686)==(V682))){ - goto T1264;} - if(!((V687)==(V683))){ - goto T1264;} - {object V689 = (V684); - VMR43(V689)} -goto T1264; -T1264:; - if(!((V686)<(V682))){ - goto T1272;} - if(!((V687)<(V683))){ - goto T1272;} - base[1]= elt((V678),V686); - vs_top=(vs_base=base+1)+1; - super_funcall_no_event((V681)); - vs_top=sup; - base[0]= vs_base[0]; - base[2]= elt((V679),V687); - vs_top=(vs_base=base+2)+1; - super_funcall_no_event((V681)); - vs_top=sup; - base[1]= vs_base[0]; - vs_top=(vs_base=base+0)+2; - super_funcall_no_event((V680)); +static void L44() +{register object *base=vs_base; + register object *sup=base+VM43; VC43 + vs_reserve(VM43); + {object V461; + register object V462; + object V463; + object V464; + register object V465; + if(vs_top-vs_base<4) too_few_arguments(); + parse_key(vs_base+4,FALSE,FALSE,1,VV[17]); + V461=(base[0]); + V462=(base[1]); + V463=(base[2]); + V464=(base[3]); + vs_top=sup; + if(base[5]==Cnil){ + V465= symbol_function(VV[35]); + }else{ + V465=(base[4]);} + {long V466; + long V467; + V466= (long)length((V462)); + V467= (long)length((V463)); + if(!(equal((V465),Cnil))){ + goto T1632;} + V465= symbol_function(VV[35]); +goto T1632; +T1632:; + {register object V468; + register long V469; + register long V470; + register long V471; + base[6]= (V461); + base[7]= make_fixnum((long)(V466)+(V467)); + vs_top=(vs_base=base+6)+2; + (void) (*Lnk49)(); + vs_top=sup; + V468= vs_base[0]; + V469= 0; + V470= 0; + V471= 0; +goto T1643; +T1643:; + if(!((V470)==(V466))){ + goto T1644;} + if(!((V471)==(V467))){ + goto T1644;} + base[6]= (V468); + vs_top=(vs_base=base+6)+1; + return; +goto T1644; +T1644:; + if(!((V470)<(V466))){ + goto T1652;} + if(!((V471)<(V467))){ + goto T1652;} + base[7]= elt((V462),V470); + vs_top=(vs_base=base+7)+1; + super_funcall_no_event((V465)); + vs_top=sup; + base[6]= vs_base[0]; + base[8]= elt((V463),V471); + vs_top=(vs_base=base+8)+1; + super_funcall_no_event((V465)); + vs_top=sup; + base[7]= vs_base[0]; + vs_top=(vs_base=base+6)+2; + super_funcall_no_event((V464)); vs_top=sup; if((vs_base[0])==Cnil){ - goto T1277;} - V690= elt((V678),V686); - (void)(elt_set((V684),V685,/* INLINE-ARGS */V690)); - V686= (long)(1)+(V686); - goto T1270; -goto T1277; -T1277:; - base[1]= elt((V679),V687); - vs_top=(vs_base=base+1)+1; - super_funcall_no_event((V681)); - vs_top=sup; - base[0]= vs_base[0]; - base[2]= elt((V678),V686); - vs_top=(vs_base=base+2)+1; - super_funcall_no_event((V681)); - vs_top=sup; - base[1]= vs_base[0]; - vs_top=(vs_base=base+0)+2; - super_funcall_no_event((V680)); + goto T1657;} + V472= elt((V462),V470); + (void)(elt_set((V468),V469,/* INLINE-ARGS */V472)); + V470= (long)(1)+(V470); + goto T1650; +goto T1657; +T1657:; + base[7]= elt((V463),V471); + vs_top=(vs_base=base+7)+1; + super_funcall_no_event((V465)); + vs_top=sup; + base[6]= vs_base[0]; + base[8]= elt((V462),V470); + vs_top=(vs_base=base+8)+1; + super_funcall_no_event((V465)); + vs_top=sup; + base[7]= vs_base[0]; + vs_top=(vs_base=base+6)+2; + super_funcall_no_event((V464)); vs_top=sup; if((vs_base[0])==Cnil){ - goto T1286;} - V691= elt((V679),V687); - (void)(elt_set((V684),V685,/* INLINE-ARGS */V691)); - V687= (long)(1)+(V687); - goto T1270; -goto T1286; -T1286:; - V692= elt((V678),V686); - (void)(elt_set((V684),V685,/* INLINE-ARGS */V692)); - V686= (long)(1)+(V686); - goto T1270; -goto T1272; -T1272:; - if(!((V686)<(V682))){ - goto T1297;} - V693= elt((V678),V686); - (void)(elt_set((V684),V685,/* INLINE-ARGS */V693)); - V686= (long)(1)+(V686); - goto T1270; -goto T1297; -T1297:; - V694= elt((V679),V687); - (void)(elt_set((V684),V685,/* INLINE-ARGS */V694)); - V687= (long)(1)+(V687); -goto T1270; -T1270:; - V685= (long)(1)+(V685); - goto T1263;}} - va_end(ap); - base[0]=base[0]; - return Cnil;} - }} + goto T1666;} + V473= elt((V463),V471); + (void)(elt_set((V468),V469,/* INLINE-ARGS */V473)); + V471= (long)(1)+(V471); + goto T1650; +goto T1666; +T1666:; + V474= elt((V462),V470); + (void)(elt_set((V468),V469,/* INLINE-ARGS */V474)); + V470= (long)(1)+(V470); + goto T1650; +goto T1652; +T1652:; + if(!((V470)<(V466))){ + goto T1677;} + V475= elt((V462),V470); + (void)(elt_set((V468),V469,/* INLINE-ARGS */V475)); + V470= (long)(1)+(V470); + goto T1650; +goto T1677; +T1677:; + V476= elt((V463),V471); + (void)(elt_set((V468),V469,/* INLINE-ARGS */V476)); + V471= (long)(1)+(V471); +goto T1650; +T1650:; + V469= (long)(1)+(V469); + goto T1643;}} + } +} /* function definition for MAP-INTO */ static void L45() {register object *base=vs_base; register object *sup=base+VM44; VC44 vs_reserve(VM44); - {register object V695; - register object V696; - register object V697; + {register object V477; + register object V478; + register object V479; if(vs_top-vs_base<2) too_few_arguments(); - V695=(base[0]); - V696=(base[1]); + V477=(base[0]); + V478=(base[1]); vs_base=vs_base+2; vs_top[0]=Cnil; {object *p=vs_top; for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} - V697=(base[2]); + V479=(base[2]); vs_top=sup; - {object V698; - base[5]= (V695); - vs_top=(vs_base=base+5)+1; + {object V480; + base[4]= (V477); + vs_top=(vs_base=base+4)+1; Ltype_of(); vs_top=sup; - base[4]= vs_base[0]; - base[5]= VV[18]; - vs_top=(vs_base=base+4)+2; - (void) (*Lnk61)(); - vs_top=sup; - if((vs_base[0])==Cnil){ - goto T1309;} - base[4]= (V695); + V482= vs_base[0]; + if(!((VV[18])==(V482))){ + goto T1689;} + base[4]= (V477); base[5]= small_fixnum(0); vs_top=(vs_base=base+4)+2; Larray_dimension(); vs_top=sup; base[3]= vs_base[0]; - goto T1307; -goto T1309; -T1309:; - base[3]= make_fixnum((long)length((V695))); -goto T1307; -T1307:; - {object V699; - {object V700; - object V701= (V697); - if(endp(V701)){ - V699= Cnil; - goto T1316;} - base[4]=V700=MMcons(Cnil,Cnil); -goto T1317; -T1317:; - base[5]= (V701->c.c_car); + goto T1687; +goto T1689; +T1689:; + base[3]= make_fixnum((long)length((V477))); +goto T1687; +T1687:; + {object V481; + {object V483; + object V484= (V479); + if(endp(V484)){ + V481= Cnil; + goto T1695;} + base[4]=V483=MMcons(Cnil,Cnil); +goto T1696; +T1696:; + base[5]= (V484->c.c_car); vs_top=(vs_base=base+5)+1; Llength(); vs_top=sup; - (V700->c.c_car)= vs_base[0]; - V701=MMcdr(V701); - if(endp(V701)){ - V699= base[4]; - goto T1316;} - V700=MMcdr(V700)=MMcons(Cnil,Cnil); - goto T1317;} -goto T1316; -T1316:; + (V483->c.c_car)= vs_base[0]; + V484=MMcdr(V484); + if(endp(V484)){ + V481= base[4]; + goto T1695;} + V483=MMcdr(V483)=MMcons(Cnil,Cnil); + goto T1696;} +goto T1695; +T1695:; vs_top=base+4; - while(!endp(V699)) - {vs_push(car(V699));V699=cdr(V699);} + while(!endp(V481)) + {vs_push(car(V481));V481=cdr(V481);} vs_base=base+3;} Lmin(); vs_top=sup; - V698= vs_base[0]; - base[4]= (V695); - vs_top=(vs_base=base+4)+1; + V480= vs_base[0]; + base[3]= (V477); + vs_top=(vs_base=base+3)+1; Ltype_of(); vs_top=sup; - base[3]= vs_base[0]; - base[4]= VV[18]; - vs_top=(vs_base=base+3)+2; - (void) (*Lnk61)(); - vs_top=sup; - if((vs_base[0])==Cnil){ - goto T1320;} - base[3]= (V695); + V485= vs_base[0]; + if(!((VV[18])==(V485))){ + goto T1699;} + base[3]= (V477); vs_top=(vs_base=base+3)+1; - (void) (*Lnk62)(); + (void) (*Lnk61)(); vs_top=sup; if((vs_base[0])==Cnil){ - goto T1320;} - base[3]= (V695); - base[4]= (V698); + goto T1699;} + base[3]= (V477); + base[4]= (V480); vs_top=(vs_base=base+3)+2; siLfill_pointer_set(); vs_top=sup; -goto T1320; -T1320:; - {register object V702; - register object V703; - V702= (V698); - V703= small_fixnum(0); -goto T1334; -T1334:; - if(!(number_compare((V703),(V702))>=0)){ - goto T1335;} - base[3]= (V695); +goto T1699; +T1699:; + {register object V486; + register object V487; + V486= (V480); + V487= small_fixnum(0); +goto T1712; +T1712:; + if(!(number_compare((V487),(V486))>=0)){ + goto T1713;} + base[3]= (V477); vs_top=(vs_base=base+3)+1; return; -goto T1335; -T1335:; - base[3]= (V696); - {object V705; - {object V706; - object V707= (V697); - if(endp(V707)){ - V705= Cnil; - goto T1342;} - base[4]=V706=MMcons(Cnil,Cnil); -goto T1343; -T1343:; - {register object V708; - V708= (V707->c.c_car); - (V706->c.c_car)= elt((V708),fixint((V703)));} - V707=MMcdr(V707); - if(endp(V707)){ - V705= base[4]; - goto T1342;} - V706=MMcdr(V706)=MMcons(Cnil,Cnil); - goto T1343;} -goto T1342; -T1342:; +goto T1713; +T1713:; + base[3]= (V478); + {object V489; + {object V490; + object V491= (V479); + if(endp(V491)){ + V489= Cnil; + goto T1720;} + base[4]=V490=MMcons(Cnil,Cnil); +goto T1721; +T1721:; + {register object V492; + V492= (V491->c.c_car); + (V490->c.c_car)= elt((V492),fixint((V487)));} + V491=MMcdr(V491); + if(endp(V491)){ + V489= base[4]; + goto T1720;} + V490=MMcdr(V490)=MMcons(Cnil,Cnil); + goto T1721;} +goto T1720; +T1720:; vs_top=base+4; - while(!endp(V705)) - {vs_push(car(V705));V705=cdr(V705);} + while(!endp(V489)) + {vs_push(car(V489));V489=cdr(V489);} vs_base=base+4;} super_funcall_no_event(base[3]); vs_top=sup; - V704= vs_base[0]; - (void)(elt_set((V695),fixint((V703)),V704)); - V703= one_plus((V703)); - goto T1334;}} + V488= vs_base[0]; + (void)(elt_set((V477),fixint((V487)),V488)); + V487= one_plus((V487)); + goto T1712;}} } } /* macro definition for WITH-HASH-TABLE-ITERATOR */ @@ -3687,35 +3926,35 @@ vs_reserve(VM45); check_arg(2); vs_top=sup; - {object V709=base[0]->c.c_cdr; - if(endp(V709))invalid_macro_call(); - {object V710= (V709->c.c_car); - if(endp(V710))invalid_macro_call(); - base[2]= (V710->c.c_car); - V710=V710->c.c_cdr; - if(endp(V710))invalid_macro_call(); - base[3]= (V710->c.c_car); - V710=V710->c.c_cdr; - if(!endp(V710))invalid_macro_call();} - V709=V709->c.c_cdr; - base[4]= V709;} - {object V711; - object V712; + {object V493=base[0]->c.c_cdr; + if(endp(V493))invalid_macro_call(); + {object V494= (V493->c.c_car); + if(endp(V494))invalid_macro_call(); + base[2]= (V494->c.c_car); + V494=V494->c.c_cdr; + if(endp(V494))invalid_macro_call(); + base[3]= (V494->c.c_car); + V494=V494->c.c_cdr; + if(!endp(V494))invalid_macro_call();} + V493=V493->c.c_cdr; + base[4]= V493;} + {object V495; + object V496; vs_base=vs_top; Lgensym(); vs_top=sup; - V711= vs_base[0]; + V495= vs_base[0]; base[5]= VV[19]; vs_top=(vs_base=base+5)+1; Lgensym(); vs_top=sup; - V712= vs_base[0]; - V713= list(2,(V711),base[3]); - V714= list(2,/* INLINE-ARGS */V713,list(2,(V712),small_fixnum(0))); - V715= list(2,VV[25],(V711)); - V716= list(4,VV[0],VV[24],/* INLINE-ARGS */V715,list(2,VV[25],(V712))); - V717= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V716,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V712)),VV[29]),VV[30]),VV[31]))); - base[5]= list(3,VV[20],/* INLINE-ARGS */V714,listA(3,VV[21],make_cons(/* INLINE-ARGS */V717,Cnil),base[4])); + V496= vs_base[0]; + V497= list(2,(V495),base[3]); + V498= list(2,/* INLINE-ARGS */V497,list(2,(V496),small_fixnum(0))); + V499= list(2,VV[25],(V495)); + V500= list(4,VV[0],VV[24],/* INLINE-ARGS */V499,list(2,VV[25],(V496))); + V501= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V500,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V496)),VV[29]),VV[30]),VV[31]))); + base[5]= list(3,VV[20],/* INLINE-ARGS */V498,listA(3,VV[21],make_cons(/* INLINE-ARGS */V501,Cnil),base[4])); vs_top=(vs_base=base+5)+1; return;} } @@ -3726,210 +3965,209 @@ { register object *base=vs_base; register object *sup=base+VM46; VC46 vs_reserve(VM46); - {object V718; + {object V502; check_arg(1); - V718=(base[0]); + V502=(base[0]); vs_top=sup; goto TTL; TTL:; - {long V719; - register object V720; - register object V721; - object V722; - register object V723; - register object V724; - register object V725; - V719= 0; - V720= Cnil; - V721= Cnil; - V722= Cnil; - V723= Cnil; - V724= Cnil; - V725= Cnil; - V719= (long)length((V718)); - if(!((V719)<(2))){ - goto T1360;} - base[1]= (V718); + {long V503; + register object V504; + register object V505; + object V506; + register object V507; + register object V508; + register object V509; + V503= 0; + V504= Cnil; + V505= Cnil; + V506= Cnil; + V507= Cnil; + V508= Cnil; + V509= Cnil; + V503= (long)length((V502)); + if(!((V503)<(2))){ + goto T1738;} + base[1]= (V502); vs_top=(vs_base=base+1)+1; return; -goto T1360; -T1360:; - if(!((V719)==(2))){ - goto T1358;} - V724= ( +goto T1738; +T1738:; + if(!((V503)==(2))){ + goto T1736;} + V508= ( (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): - (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V718)))); - V725= ( + (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V502)))); + V509= ( (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): - (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V718)))); - base[1]= (V724); - base[2]= (V725); + (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V502)))); + base[1]= (V508); + base[2]= (V509); vs_top=(vs_base=base+1)+2; super_funcall_no_event(base0[1]); vs_top=sup; if((vs_base[0])==Cnil){ - goto T1369;} - base[1]= (V718); + goto T1747;} + base[1]= (V502); vs_top=(vs_base=base+1)+1; return; -goto T1369; -T1369:; - base[1]= (V725); - base[2]= (V724); +goto T1747; +T1747:; + base[1]= (V509); + base[2]= (V508); vs_top=(vs_base=base+1)+2; super_funcall_no_event(base0[1]); vs_top=sup; if((vs_base[0])==Cnil){ - goto T1374;} - base[1]= nreverse((V718)); + goto T1752;} + base[1]= nreverse((V502)); vs_top=(vs_base=base+1)+1; return; -goto T1374; -T1374:; - base[1]= (V718); +goto T1752; +T1752:; + base[1]= (V502); vs_top=(vs_base=base+1)+1; return; -goto T1358; -T1358:; - V719= (long)(V719>=0&&(2)>0?(V719)/(2):ifloor(V719,2)); - {long V726; - register object V727; - V726= 1; - V727= (V718); -goto T1383; -T1383:; - if(!((V726)>=(V719))){ - goto T1384;} - V720= (V718); - V721= cdr((V727)); - if(type_of((V727))!=t_cons)FEwrong_type_argument(Scons,(V727)); - ((V727))->c.c_cdr = Cnil; - goto T1380; -goto T1384; -T1384:; - V726= (long)(1)+(V726); - V727= cdr((V727)); - goto T1383;} -goto T1380; -T1380:; - base[1]= (V720); +goto T1736; +T1736:; + V503= (long)(V503>=0&&(2)>0?(V503)/(2):ifloor(V503,2)); + {long V510; + register object V511; + V510= 1; + V511= (V502); +goto T1761; +T1761:; + if(!((V510)>=(V503))){ + goto T1762;} + V504= (V502); + V505= cdr((V511)); + if(type_of((V511))!=t_cons)FEwrong_type_argument(Scons,(V511)); + ((V511))->c.c_cdr = Cnil; + goto T1758; +goto T1762; +T1762:; + V510= (long)(1)+(V510); + V511= cdr((V511)); + goto T1761;} +goto T1758; +T1758:; + base[1]= (V504); vs_top=(vs_base=base+1)+1; L41(base0); vs_top=sup; - V720= vs_base[0]; - base[1]= (V721); + V504= vs_base[0]; + base[1]= (V505); vs_top=(vs_base=base+1)+1; L41(base0); vs_top=sup; - V721= vs_base[0]; - if(!(endp_prop((V720)))){ - goto T1404;} - base[1]= (V721); + V505= vs_base[0]; + if(!(endp_prop((V504)))){ + goto T1782;} + base[1]= (V505); vs_top=(vs_base=base+1)+1; return; -goto T1404; -T1404:; - if(!(endp_prop((V721)))){ - goto T1402;} - base[1]= (V720); +goto T1782; +T1782:; + if(!(endp_prop((V505)))){ + goto T1780;} + base[1]= (V504); vs_top=(vs_base=base+1)+1; return; -goto T1402; -T1402:; - V722= make_cons(Cnil,Cnil); - V723= (V722); - V724= ( +goto T1780; +T1780:; + V506= make_cons(Cnil,Cnil); + V507= (V506); + V508= ( (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): - (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); - V725= ( + (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V504)))); + V509= ( (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): - (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V721)))); -goto T1353; -T1353:; - base[1]= (V724); - base[2]= (V725); + (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V505)))); +goto T1731; +T1731:; + base[1]= (V508); + base[2]= (V509); vs_top=(vs_base=base+1)+2; super_funcall_no_event(base0[1]); vs_top=sup; if((vs_base[0])==Cnil){ - goto T1416;} - goto T1354; -goto T1416; -T1416:; - base[1]= (V725); - base[2]= (V724); + goto T1794;} + goto T1732; +goto T1794; +T1794:; + base[1]= (V509); + base[2]= (V508); vs_top=(vs_base=base+1)+2; super_funcall_no_event(base0[1]); vs_top=sup; if((vs_base[0])==Cnil){ - goto T1421;} - goto T1355; -goto T1421; -T1421:; - goto T1354; -goto T1354; -T1354:; - if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723)); - ((V723))->c.c_cdr = (V720); - V723= cdr((V723)); - V720= cdr((V720)); - if(!(endp_prop((V720)))){ - goto T1430;} - if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723)); - ((V723))->c.c_cdr = (V721); - base[1]= cdr((V722)); + goto T1799;} + goto T1733; +goto T1799; +T1799:; + goto T1732; +goto T1732; +T1732:; + if(type_of((V507))!=t_cons)FEwrong_type_argument(Scons,(V507)); + ((V507))->c.c_cdr = (V504); + V507= cdr((V507)); + V504= cdr((V504)); + if(!(endp_prop((V504)))){ + goto T1808;} + if(type_of((V507))!=t_cons)FEwrong_type_argument(Scons,(V507)); + ((V507))->c.c_cdr = (V505); + base[1]= cdr((V506)); vs_top=(vs_base=base+1)+1; return; -goto T1430; -T1430:; - V724= ( +goto T1808; +T1808:; + V508= ( (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): - (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); - goto T1353; -goto T1355; -T1355:; - if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723)); - ((V723))->c.c_cdr = (V721); - V723= cdr((V723)); - V721= cdr((V721)); - if(!(endp_prop((V721)))){ - goto T1441;} - if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723)); - ((V723))->c.c_cdr = (V720); - base[1]= cdr((V722)); + (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V504)))); + goto T1731; +goto T1733; +T1733:; + if(type_of((V507))!=t_cons)FEwrong_type_argument(Scons,(V507)); + ((V507))->c.c_cdr = (V505); + V507= cdr((V507)); + V505= cdr((V505)); + if(!(endp_prop((V505)))){ + goto T1819;} + if(type_of((V507))!=t_cons)FEwrong_type_argument(Scons,(V507)); + ((V507))->c.c_cdr = (V504); + base[1]= cdr((V506)); vs_top=(vs_base=base+1)+1; return; -goto T1441; -T1441:; - V725= ( +goto T1819; +T1819:; + V509= ( (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): - (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V721)))); - goto T1353;} + (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V505)))); + goto T1731;} } } -static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* ARRAY-HAS-FILL-POINTER-P */ -static void LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* SUBTYPEP */ -static object LnkTLI60(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[60],(void **)&LnkLI60,2,ap);va_end(ap);return V1;} /* COERCE */ +static void LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* ARRAY-HAS-FILL-POINTER-P */ +static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* COERCE */ static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* SORT */ static object LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,81925,ap);va_end(ap);return V1;} /* QUICK-SORT */ static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* LIST-MERGE-SORT */ -static object LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[56],(void **)&LnkLI56,ap);va_end(ap);return V1;} /* DELETE-DUPLICATES */ +static void LnkT56(){ call_or_link(VV[56],(void **)&Lnk56);} /* DELETE-DUPLICATES */ static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* MEMBER1 */ -static object LnkTLI54(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[54],(void **)&LnkLI54,ap);va_end(ap);return V1;} /* POSITION */ -static object LnkTLI53(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[53],(void **)&LnkLI53,ap);va_end(ap);return V1;} /* FIND */ -static object LnkTLI52(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[52],(void **)&LnkLI52,ap);va_end(ap);return V1;} /* NSUBSTITUTE */ -static object LnkTLI51(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[51],(void **)&LnkLI51,ap);va_end(ap);return V1;} /* SUBSTITUTE */ -static object LnkTLI50(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[50],(void **)&LnkLI50,ap);va_end(ap);return V1;} /* COUNT */ -static object LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[49],(void **)&LnkLI49,1,ap);va_end(ap);return V1;} /* SEQTYPE */ -static object LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[48],(void **)&LnkLI48,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ -static object LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[47],(void **)&LnkLI47,ap);va_end(ap);return V1;} /* INTERNAL-COUNT */ -static object LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[45],(void **)&LnkLI45,ap);va_end(ap);return V1;} /* REMOVE */ -static object LnkTLI44(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[44],(void **)&LnkLI44,ap);va_end(ap);return V1;} /* DELETE */ +static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* POSITION */ +static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* FIND */ +static void LnkT52(){ call_or_link(VV[52],(void **)&Lnk52);} /* NSUBSTITUTE */ +static void LnkT51(){ call_or_link(VV[51],(void **)&Lnk51);} /* SUBSTITUTE */ +static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* COUNT */ +static void LnkT49(){ call_or_link(VV[49],(void **)&Lnk49);} /* MAKE-SEQUENCE */ +static object LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[48],(void **)&LnkLI48,1,ap);va_end(ap);return V1;} /* SEQTYPE */ +static void LnkT47(){ call_or_link(VV[47],(void **)&Lnk47);} /* INTERNAL-COUNT */ +static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* REMOVE */ +static void LnkT44(){ call_or_link(VV[44],(void **)&Lnk44);} /* DELETE */ static object LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,4,ap);va_end(ap);return V1;} /* CALL-TEST */ static object LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* TEST-ERROR */ static object LnkTLI37(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[37],(void **)&LnkLI37,258,ap);va_end(ap);return V1;} /* THE-END */ static object LnkTLI36(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[36],(void **)&LnkLI36,257,ap);va_end(ap);return V1;} /* THE-START */ -static object LnkTLI33(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[33],(void **)&LnkLI33,ap);va_end(ap);return V1;} /* BAD-SEQ-LIMIT */ +static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* BAD-SEQ-LIMIT */ static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* SPECIFIC-ERROR */ #ifdef SYSTEM_SPECIAL_INIT diff -uNr TEST.gcl/gcl/lsp/seqlib.data agcl/agcl/lsp/seqlib.data --- TEST.gcl/gcl/lsp/seqlib.data Sun Nov 3 19:06:49 2002 +++ agcl/agcl/lsp/seqlib.data Sat Nov 9 13:15:25 2002 @@ -3,5 +3,5 @@ (lisp::in-package (lisp::quote user::lisp))#! (lisp::export (lisp::quote (lisp::reduce lisp::fill lisp::replace lisp::remove lisp::remove-if lisp::remove-if-not lisp::delete lisp::delete-if lisp::delete-if-not lisp::count lisp::count-if lisp::count-if-not lisp::substitute lisp::substitute-if lisp::substitute-if-not lisp::nsubstitute lisp::nsubstitute-if lisp::nsubstitute-if-not lisp::find lisp::find-if lisp::find-if-not lisp::position lisp::position-if lisp::position-if-not lisp::remove-duplicates lisp::delete-duplicates lisp::mismatch lisp::search lisp::with-hash-table-iterator lisp::sort lisp::stable-sort lisp::merge lisp::map-into)))#! (lisp::in-package (lisp::quote lisp::system)) -#(lisp::list lisp::string lisp::bit-vector lisp::array "~S is not a sequence." "Fixnum expected." "START is greater than END." "both test and test not supplied" :wrong-type-argument "bad sequence limit ~a" 2147483647 :from-end :test :test-not :start :end :count :key lisp::vector "ind" lisp::let lisp::macrolet (lisp::quote lisp::multiple-value-bind) (lisp::quote (system::more system::key system::val)) (lisp::quote system::next-hash-table-entry) lisp::quote (lisp::quote lisp::cond) (lisp::quote (lisp::>= (lisp::the lisp::fixnum system::more) 0)) (lisp::quote lisp::setq) (lisp::quote system::more) (lisp::quote (lisp::values lisp::t system::key system::val)) (lisp::quote (lisp::t (lisp::values lisp::nil lisp::nil lisp::nil))) lisp::specific-error system::bad-seq-limit :initial-value lisp::identity system::the-start system::the-end :end2 :start2 :end1 :start1 system::test-error system::call-test lisp::delete lisp::remove lisp::funcall system::internal-count lisp::make-sequence system::seqtype lisp::count lisp::substitute lisp::nsubstitute lisp::find lisp::position system::member1 lisp::delete-duplicates system::list-merge-sort system::quick-sort lisp::sort lisp::coerce lisp::subtypep lisp::array-has-fill-pointer-p lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil (system::%init . #((lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (lisp::proclaim (lisp::quote (lisp::function system::seqtype (lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::seqtype) 0 1) (lisp::proclaim (lisp::quote (lisp::function system::call-test (lisp::t lisp::t lisp::t lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::call-test) 1 4) (lisp::proclaim (lisp::quote (lisp::function system::check-seq-start-end (lisp::t lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::check-seq-start-end) 2 2) (lisp::proclaim (lisp::quote (lisp::function system::test-error lisp::nil lisp::t))) (system::mfsfun (lisp::quote system::test-error) 3 0) (system::mfvfun (lisp::quote system::bad-seq-limit) 4 513) (system::mfsfun (lisp::quote system::the-end) 5 258) (system::mfsfun (lisp::quote system::the-start) 6 257) (system::mf (lisp::quote lisp::reduce) 7) (system::mfvfun-key (lisp::quote lisp::fill) 8 1538 9) (system::mfvfun-key (lisp::quote lisp::replace) 10 2562 11) (system::mfvfun-key (lisp::quote lisp::remove) 12 4098 13) (system::mfvfun-key (lisp::quote lisp::remove-if) 14 3074 15) (system::mfvfun-key (lisp::quote lisp::remove-if-not) 16 3074 17) (system::mfvfun-key (lisp::quote lisp::delete) 18 4098 19) (system::mfvfun-key (lisp::quote lisp::delete-if) 20 3074 21) (system::mfvfun-key (lisp::quote lisp::delete-if-not) 22 3074 23) (system::mfvfun-key (lisp::quote lisp::count) 24 3586 25) (system::mfvfun-key (lisp::quote lisp::count-if) 26 2562 27) (system::mfvfun-key (lisp::quote lisp::count-if-not) 28 2562 29) (system::mfvfun-key (lisp::quote system::internal-count) 30 4098 31) (system::mfvfun-key (lisp::quote system::internal-count-if) 32 3074 33) (system::mfvfun-key (lisp::quote system::internal-count-if-not) 34 3074 35) (system::mfvfun-key (lisp::quote lisp::substitute) 36 4355 37) (system::mfvfun-key (lisp::quote lisp::substitute-if) 38 3331 39) (system::mfvfun-key (lisp::quote lisp::substitute-if-not) 40 3331 41) (system::mfvfun-key (lisp::quote lisp::nsubstitute) 42 4355 43) (system::mfvfun-key (lisp::quote lisp::nsubstitute-if) 44 3331 45) (system::mfvfun-key (lisp::quote lisp::nsubstitute-if-not) 46 3331 47) (system::mfvfun-key (lisp::quote lisp::find) 48 3586 49) (system::mfvfun-key (lisp::quote lisp::find-if) 50 2562 51) (system::mfvfun-key (lisp::quote lisp::find-if-not) 52 2562 53) (system::mfvfun-key (lisp::quote lisp::position) 54 3586 55) (system::mfvfun-key (lisp::quote lisp::position-if) 56 2562 57) (system::mfvfun-key (lisp::quote lisp::position-if-not) 58 2562 59) (system::mfvfun-key (lisp::quote lisp::remove-duplicates) 60 3329 61) (system::mfvfun-key (lisp::quote lisp::delete-duplicates) 62 3329 63) (system::mfvfun-key (lisp::quote lisp::mismatch) 64 4610 65) (system::mfvfun-key (lisp::quote lisp::search) 66 4610 67) (system::mf (lisp::quote lisp::sort) 68) (system::mf (lisp::quote system::list-merge-sort) 69) (lisp::proclaim (lisp::quote (lisp::function system::quick-sort (lisp::t lisp::fixnum lisp::fixnum lisp::t lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::quick-sort) 70 81925) (system::mf (lisp::quote lisp::stable-sort) 71) (system::mfvfun-key (lisp::quote lisp::merge) 72 1540 73) (system::mf (lisp::quote lisp::map-into) 74) (system::putprop (lisp::quote lisp::with-hash-table-iterator) (lisp::quote 1) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote lisp::with-hash-table-iterator) 75)))) +#(lisp::list lisp::string lisp::bit-vector lisp::array "~S is not a sequence." "Fixnum expected." "START is greater than END." "both test and test not supplied" :simple-program-error "bad sequence limit ~a" 2147483647 :from-end :test :test-not :start :end :count :key lisp::vector "ind" lisp::let lisp::macrolet (lisp::quote lisp::multiple-value-bind) (lisp::quote (system::more system::key system::val)) (lisp::quote system::next-hash-table-entry) lisp::quote (lisp::quote lisp::cond) (lisp::quote (lisp::>= (lisp::the lisp::fixnum system::more) 0)) (lisp::quote lisp::setq) (lisp::quote system::more) (lisp::quote (lisp::values lisp::t system::key system::val)) (lisp::quote (lisp::t (lisp::values lisp::nil lisp::nil lisp::nil))) lisp::specific-error system::bad-seq-limit :initial-value lisp::identity system::the-start system::the-end :start1 :end1 :start2 :end2 system::test-error system::call-test lisp::delete lisp::funcall lisp::remove system::internal-count system::seqtype lisp::make-sequence lisp::count lisp::substitute lisp::nsubstitute lisp::find lisp::position system::member1 lisp::delete-duplicates system::list-merge-sort system::quick-sort lisp::sort lisp::coerce lisp::array-has-fill-pointer-p (system::%init . #((lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (lisp::proclaim (lisp::quote (lisp::function system::seqtype (lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::seqtype) 0 1) (lisp::proclaim (lisp::quote (lisp::function system::call-test (lisp::t lisp::t lisp::t lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::call-test) 1 4) (lisp::proclaim (lisp::quote (lisp::function system::check-seq-start-end (lisp::t lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::check-seq-start-end) 2 2) (lisp::proclaim (lisp::quote (lisp::function system::test-error lisp::nil lisp::t))) (system::mfsfun (lisp::quote system::test-error) 3 0) (system::mf (lisp::quote system::bad-seq-limit) 4) (system::mfsfun (lisp::quote system::the-end) 5 258) (system::mfsfun (lisp::quote system::the-start) 6 257) (system::mf (lisp::quote lisp::reduce) 7) (system::mf (lisp::quote lisp::fill) 8) (system::mf (lisp::quote lisp::replace) 9) (system::mf (lisp::quote lisp::remove) 10) (system::mf (lisp::quote lisp::remove-if) 11) (system::mf (lisp::quote lisp::remove-if-not) 12) (system::mf (lisp::quote lisp::delete) 13) (system::mf (lisp::quote lisp::delete-if) 14) (system::mf (lisp::quote lisp::delete-if-not) 15) (system::mf (lisp::quote lisp::count) 16) (system::mf (lisp::quote lisp::count-if) 17) (system::mf (lisp::quote lisp::count-if-not) 18) (system::mf (lisp::quote system::internal-count) 19) (system::mf (lisp::quote system::internal-count-if) 20) (system::mf (lisp::quote system::internal-count-if-not) 21) (system::mf (lisp::quote lisp::substitute) 22) (system::mf (lisp::quote lisp::substitute-if) 23) (system::mf (lisp::quote lisp::substitute-if-not) 24) (system::mf (lisp::quote lisp::nsubstitute) 25) (system::mf (lisp::quote lisp::nsubstitute-if) 26) (system::mf (lisp::quote lisp::nsubstitute-if-not) 27) (system::mf (lisp::quote lisp::find) 28) (system::mf (lisp::quote lisp::find-if) 29) (system::mf (lisp::quote lisp::find-if-not) 30) (system::mf (lisp::quote lisp::position) 31) (system::mf (lisp::quote lisp::position-if) 32) (system::mf (lisp::quote lisp::position-if-not) 33) (system::mf (lisp::quote lisp::remove-duplicates) 34) (system::mf (lisp::quote lisp::delete-duplicates) 35) (system::mf (lisp::quote lisp::mismatch) 36) (system::mf (lisp::quote lisp::search) 37) (system::mf (lisp::quote lisp::sort) 38) (system::mf (lisp::quote system::list-merge-sort) 39) (lisp::proclaim (lisp::quote (lisp::function system::quick-sort (lisp::t lisp::fixnum lisp::fixnum lisp::t lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::quick-sort) 40 81925) (system::mf (lisp::quote lisp::stable-sort) 41) (system::mf (lisp::quote lisp::merge) 42) (system::mf (lisp::quote lisp::map-into) 43) (system::putprop (lisp::quote lisp::with-hash-table-iterator) (lisp::quote 1) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote lisp::with-hash-table-iterator) 44)))) ) diff -uNr TEST.gcl/gcl/lsp/seqlib.h agcl/agcl/lsp/seqlib.h --- TEST.gcl/gcl/lsp/seqlib.h Sun Nov 3 19:06:49 2002 +++ agcl/agcl/lsp/seqlib.h Sat Nov 9 13:15:25 2002 @@ -1,40 +1,40 @@ -static object LI5(); +static void L5(); static void L8(); -static object LI9(); -static object LI10(); -static object LI11(); -static object LI12(); -static object LI13(); -static object LI14(); -static object LI15(); -static object LI16(); -static object LI17(); -static object LI18(); -static object LI19(); -static object LI20(); -static object LI21(); -static object LI22(); -static object LI23(); -static object LI24(); -static object LI25(); -static object LI26(); -static object LI27(); -static object LI28(); -static object LI29(); -static object LI30(); -static object LI31(); -static object LI32(); -static object LI33(); -static object LI34(); -static object LI35(); -static object LI36(); -static object LI37(); -static object LI38(); +static void L9(); +static void L10(); +static void L11(); +static void L12(); +static void L13(); +static void L14(); +static void L15(); +static void L16(); +static void L17(); +static void L18(); +static void L19(); +static void L20(); +static void L21(); +static void L22(); +static void L23(); +static void L24(); +static void L25(); +static void L26(); +static void L27(); +static void L28(); +static void L29(); +static void L30(); +static void L31(); +static void L32(); +static void L33(); +static void L34(); +static void L35(); +static void L36(); +static void L37(); +static void L38(); static void L39(); static void L40(); static void L43(); -static object LI44(); +static void L44(); static void L45(); static void L46(); static object LI1(); @@ -57,442 +57,190 @@ #define VMS4 register object *sup=vs_top+1;vs_top=sup; #define VMV4 vs_reserve(1); #define VMR4(VMT4) vs_top=base ; return(VMT4); -static object LI5(); -#define VMB5 register object *base=vs_top; object Vcs[2]; -#define VMS5 register object *sup=vs_top+3;vs_top=sup; -#define VMV5 vs_reserve(3); -#define VMR5(VMT5) vs_top=base ; return(VMT5); +#define VC5 static object LI6(); -#define VMB6 -#define VMS6 -#define VMV6 -#define VMR6(VMT6) return(VMT6); +#define VMB6 register object *base=vs_top; +#define VMS6 register object *sup=vs_top+1;vs_top=sup; +#define VMV6 vs_reserve(1); +#define VMR6(VMT6) vs_top=base ; return(VMT6); static object LI7(); -#define VMB7 -#define VMS7 -#define VMV7 -#define VMR7(VMT7) return(VMT7); -#define VC8 object V62 ,V60 ,V58 ,V56 ,V55 ,V54; -static object LI9(); -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[2];} LI9key={2,0,Cstd_key_defaults,{(void *)15,(void *)14}}; -#define VMB9 object V72 ,V71; object Vcs[6]; -#define VMS9 -#define VMV9 -#define VMR9(VMT9) return(VMT9); -static object LI10(); -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[4];} LI10key={4,0,Cstd_key_defaults,{(void *)38,(void *)39,(void *)40,(void *)41}}; -#define VMB10 object V102 ,V96 ,V90 ,V89 ,V86 ,V85; object Vcs[10]; -#define VMS10 -#define VMV10 -#define VMR10(VMT10) return(VMT10); -static object LI11(); -static object VK11defaults[7]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[7];} LI11key={7,0,VK11defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)13,(void *)12,(void *)11}}; -#define VMB11 register object *base=vs_top; object V137 ,V136 ,V135 ,V133 ,V132 ,V131 ,V127 ,V117 ,V116; object Vcs[16]; -#define VMS11 register object *sup=vs_top+2;vs_top=sup; -#define VMV11 vs_reserve(2); -#define VMR11(VMT11) vs_top=base ; return(VMT11); -static object LI12(); -static object VK12defaults[5]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[5];} LI12key={5,0,VK12defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)11}}; -#define VMB12 object V148; object Vcs[12]; -#define VMS12 -#define VMV12 -#define VMR12(VMT12) return(VMT12); -static object LI13(); -static object VK13defaults[5]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[5];} LI13key={5,0,VK13defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)11}}; -#define VMB13 object V159; object Vcs[12]; -#define VMS13 -#define VMV13 -#define VMR13(VMT13) return(VMT13); -static object LI14(); -static object VK14defaults[7]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[7];} LI14key={7,0,VK14defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)13,(void *)12,(void *)11}}; -#define VMB14 register object *base=vs_top; object V211 ,V210 ,V208 ,V207 ,V202 ,V201 ,V200 ,V198 ,V197 ,V195 ,V194 ,V189 ,V188 ,V187 ,V185 ,V176 ,V175; object Vcs[16]; -#define VMS14 register object *sup=vs_top+2;vs_top=sup; -#define VMV14 vs_reserve(2); -#define VMR14(VMT14) vs_top=base ; return(VMT14); -static object LI15(); -static object VK15defaults[5]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[5];} LI15key={5,0,VK15defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)11}}; -#define VMB15 object V221; object Vcs[12]; -#define VMS15 -#define VMV15 -#define VMR15(VMT15) return(VMT15); -static object LI16(); -static object VK16defaults[5]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[5];} LI16key={5,0,VK16defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)11}}; -#define VMB16 object V232; object Vcs[12]; -#define VMS16 -#define VMV16 -#define VMR16(VMT16) return(VMT16); -static object LI17(); -static object VK17defaults[6]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[6];} LI17key={6,0,VK17defaults,{(void *)17,(void *)15,(void *)14,(void *)13,(void *)12,(void *)11}}; -#define VMB17 register object *base=vs_top; object V255 ,V251 ,V247 ,V246; object Vcs[14]; -#define VMS17 register object *sup=vs_top+1;vs_top=sup; -#define VMV17 vs_reserve(1); -#define VMR17(VMT17) vs_top=base ; return(VMT17); -static object LI18(); -static object VK18defaults[4]={(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[4];} LI18key={4,0,VK18defaults,{(void *)17,(void *)15,(void *)14,(void *)11}}; -#define VMB18 object V264; object Vcs[10]; -#define VMS18 -#define VMV18 -#define VMR18(VMT18) return(VMT18); -static object LI19(); -static object VK19defaults[4]={(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[4];} LI19key={4,0,VK19defaults,{(void *)17,(void *)15,(void *)14,(void *)11}}; -#define VMB19 object V274; object Vcs[10]; -#define VMS19 -#define VMV19 -#define VMR19(VMT19) return(VMT19); -static object LI20(); -static object VK20defaults[7]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[7];} LI20key={7,0,VK20defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)13,(void *)12,(void *)11}}; -#define VMB20 register object *base=vs_top; object V299 ,V295 ,V290 ,V289; object Vcs[16]; -#define VMS20 register object *sup=vs_top+1;vs_top=sup; -#define VMV20 vs_reserve(1); -#define VMR20(VMT20) vs_top=base ; return(VMT20); -static object LI21(); -static object VK21defaults[5]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[5];} LI21key={5,0,VK21defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)11}}; -#define VMB21 object V309; object Vcs[12]; -#define VMS21 -#define VMV21 -#define VMR21(VMT21) return(VMT21); -static object LI22(); -static object VK22defaults[5]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[5];} LI22key={5,0,VK22defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)11}}; -#define VMB22 object V320; object Vcs[12]; -#define VMS22 -#define VMV22 -#define VMR22(VMT22) return(VMT22); -static object LI23(); -static object VK23defaults[7]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[7];} LI23key={7,0,VK23defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)13,(void *)12,(void *)11}}; -#define VMB23 register object *base=vs_top; object V356 ,V355 ,V353 ,V352 ,V348 ,V347 ,V345 ,V344 ,V339 ,V338; object Vcs[17]; -#define VMS23 register object *sup=vs_top+1;vs_top=sup; -#define VMV23 vs_reserve(1); -#define VMR23(VMT23) vs_top=base ; return(VMT23); -static object LI24(); -static object VK24defaults[5]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[5];} LI24key={5,0,VK24defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)11}}; -#define VMB24 object V368; object Vcs[13]; -#define VMS24 -#define VMV24 -#define VMR24(VMT24) return(VMT24); -static object LI25(); -static object VK25defaults[5]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[5];} LI25key={5,0,VK25defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)11}}; -#define VMB25 object V381; object Vcs[13]; -#define VMS25 -#define VMV25 -#define VMR25(VMT25) return(VMT25); -static object LI26(); -static object VK26defaults[7]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[7];} LI26key={7,0,VK26defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)13,(void *)12,(void *)11}}; -#define VMB26 register object *base=vs_top; object V408 ,V404 ,V399 ,V398; object Vcs[17]; -#define VMS26 register object *sup=vs_top+1;vs_top=sup; -#define VMV26 vs_reserve(1); -#define VMR26(VMT26) vs_top=base ; return(VMT26); -static object LI27(); -static object VK27defaults[5]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[5];} LI27key={5,0,VK27defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)11}}; -#define VMB27 object V420; object Vcs[13]; -#define VMS27 -#define VMV27 -#define VMR27(VMT27) return(VMT27); -static object LI28(); -static object VK28defaults[5]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[5];} LI28key={5,0,VK28defaults,{(void *)17,(void *)16,(void *)15,(void *)14,(void *)11}}; -#define VMB28 object V433; object Vcs[13]; -#define VMS28 -#define VMV28 -#define VMR28(VMT28) return(VMT28); -static object LI29(); -static object VK29defaults[6]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[6];} LI29key={6,0,VK29defaults,{(void *)17,(void *)15,(void *)14,(void *)13,(void *)12,(void *)11}}; -#define VMB29 register object *base=vs_top; object V455 ,V451 ,V448 ,V447; object Vcs[14]; -#define VMS29 register object *sup=vs_top+1;vs_top=sup; -#define VMV29 vs_reserve(1); -#define VMR29(VMT29) vs_top=base ; return(VMT29); -static object LI30(); -static object VK30defaults[4]={(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[4];} LI30key={4,0,VK30defaults,{(void *)17,(void *)15,(void *)14,(void *)11}}; -#define VMB30 object V465; object Vcs[10]; -#define VMS30 -#define VMV30 -#define VMR30(VMT30) return(VMT30); -static object LI31(); -static object VK31defaults[4]={(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[4];} LI31key={4,0,VK31defaults,{(void *)17,(void *)15,(void *)14,(void *)11}}; -#define VMB31 object V475; object Vcs[10]; -#define VMS31 -#define VMV31 -#define VMR31(VMT31) return(VMT31); -static object LI32(); -static object VK32defaults[6]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[6];} LI32key={6,0,VK32defaults,{(void *)17,(void *)15,(void *)14,(void *)13,(void *)12,(void *)11}}; -#define VMB32 register object *base=vs_top; object V497 ,V493 ,V490 ,V489; object Vcs[14]; -#define VMS32 register object *sup=vs_top+1;vs_top=sup; -#define VMV32 vs_reserve(1); -#define VMR32(VMT32) vs_top=base ; return(VMT32); -static object LI33(); -static object VK33defaults[4]={(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[4];} LI33key={4,0,VK33defaults,{(void *)17,(void *)15,(void *)14,(void *)11}}; -#define VMB33 object V507; object Vcs[10]; -#define VMS33 -#define VMV33 -#define VMR33(VMT33) return(VMT33); -static object LI34(); -static object VK34defaults[4]={(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[4];} LI34key={4,0,VK34defaults,{(void *)17,(void *)15,(void *)14,(void *)11}}; -#define VMB34 object V517; object Vcs[10]; -#define VMS34 -#define VMV34 -#define VMR34(VMT34) return(VMT34); -static object LI35(); -static object VK35defaults[6]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[6];} LI35key={6,0,VK35defaults,{(void *)17,(void *)15,(void *)14,(void *)13,(void *)12,(void *)11}}; -#define VMB35 register object *base=vs_top; object Vcs[13]; -#define VMS35 register object *sup=vs_top+8;vs_top=sup; -#define VMV35 vs_reserve(8); -#define VMR35(VMT35) vs_top=base ; return(VMT35); -static object LI36(); -static object VK36defaults[6]={(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-2,(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[6];} LI36key={6,0,VK36defaults,{(void *)17,(void *)15,(void *)14,(void *)13,(void *)12,(void *)11}}; -#define VMB36 register object *base=vs_top; object V579 ,V578 ,V577 ,V576 ,V575 ,V574 ,V573 ,V570 ,V569 ,V563 ,V562 ,V561 ,V560 ,V559 ,V558 ,V557 ,V554 ,V553 ,V547 ,V546; object Vcs[13]; -#define VMS36 register object *sup=vs_top+8;vs_top=sup; -#define VMV36 vs_reserve(8); -#define VMR36(VMT36) vs_top=base ; return(VMT36); -static object LI37(); -static object VK37defaults[8]={(void *)-2,(void *)-2,(void *)-2,(void *)-1,(void *)-2,(void *)-2,(void *)-2,(void *)-2}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[8];} LI37key={8,0,VK37defaults,{(void *)38,(void *)40,(void *)39,(void *)41,(void *)17,(void *)13,(void *)12,(void *)11}}; -#define VMB37 register object *base=vs_top; object V612 ,V611 ,V605 ,V604 ,V599 ,V598 ,V595 ,V594; object Vcs[18]; -#define VMS37 register object *sup=vs_top+1;vs_top=sup; -#define VMV37 vs_reserve(1); -#define VMR37(VMT37) vs_top=base ; return(VMT37); -static object LI38(); -static object VK38defaults[8]={(void *)-2,(void *)-2,(void *)-2,(void *)-1,(void *)-2,(void *)-2,(void *)-2,(void *)-2}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[8];} LI38key={8,0,VK38defaults,{(void *)38,(void *)40,(void *)39,(void *)41,(void *)17,(void *)13,(void *)12,(void *)11}}; -#define VMB38 register object *base=vs_top; object V645 ,V644 ,V639 ,V638 ,V633 ,V632 ,V629 ,V628; object Vcs[18]; -#define VMS38 register object *sup=vs_top+1;vs_top=sup; -#define VMV38 vs_reserve(1); -#define VMR38(VMT38) vs_top=base ; return(VMT38); +#define VMB7 register object *base=vs_top; +#define VMS7 register object *sup=vs_top+1;vs_top=sup; +#define VMV7 vs_reserve(1); +#define VMR7(VMT7) vs_top=base ; return(VMT7); +#define VC8 object V58 ,V56 ,V54 ,V52; +#define VC9 +#define VC10 object V85 ,V80; +#define VC11 object V105; +#define VC12 +#define VC13 +#define VC14 object V156 ,V155 ,V149 ,V148 ,V142; +#define VC15 +#define VC16 +#define VC17 object V186 ,V183; +#define VC18 +#define VC19 +#define VC20 object V216 ,V213; +#define VC21 +#define VC22 +#define VC23 object V254 ,V253 ,V249 ,V248; +#define VC24 +#define VC25 +#define VC26 object V289 ,V286; +#define VC27 +#define VC28 +#define VC29 object V319 ,V317; +#define VC30 +#define VC31 +#define VC32 object V345 ,V343; +#define VC33 +#define VC34 +#define VC35 +#define VC36 object V391 ,V384; +#define VC37 object V413 ,V412 ,V409 ,V408; +#define VC38 object V435 ,V434 ,V431 ,V430; #define VC39 #define VC40 static object LI42(); -#define VMB41 register object *base=vs_top; object V667 ,V666; +#define VMB41 register object *base=vs_top; object V457 ,V456; #define VMS41 register object *sup=vs_top+4;vs_top=sup; #define VMV41 vs_reserve(4); #define VMR41(VMT41) vs_top=base ; return(VMT41); -#define VC42 object V672 ,V671; -static object LI44(); -static object VK44defaults[1]={(void *)-1}; -static struct { short n,allow_other_keys;object *defaults; - KEYTYPE keys[1];} LI44key={1,0,VK44defaults,{(void *)17}}; -#define VMB43 register object *base=vs_top; object V694 ,V693 ,V692 ,V691 ,V690 ,V688; object Vcs[6]; -#define VMS43 register object *sup=vs_top+3;vs_top=sup; -#define VMV43 vs_reserve(3); -#define VMR43(VMT43) vs_top=base ; return(VMT43); -#define VC44 object V704; -#define VC45 object V717 ,V716 ,V715 ,V714 ,V713; +#define VC42 +#define VC43 object V476 ,V475 ,V474 ,V473 ,V472; +#define VC44 object V488 ,V485 ,V482; +#define VC45 object V501 ,V500 ,V499 ,V498 ,V497; static void L41(); #define VC46 #define VM46 3 #define VM45 6 #define VM44 6 -#define VM43 3 +#define VM43 9 #define VM42 8 #define VM41 4 #define VM40 4 #define VM39 7 -#define VM38 1 -#define VM37 1 -#define VM36 8 -#define VM35 8 -#define VM34 0 -#define VM33 0 -#define VM32 1 -#define VM31 0 -#define VM30 0 -#define VM29 1 -#define VM28 0 -#define VM27 0 -#define VM26 1 -#define VM25 0 -#define VM24 0 -#define VM23 1 -#define VM22 0 -#define VM21 0 -#define VM20 1 -#define VM19 0 -#define VM18 0 -#define VM17 1 -#define VM16 0 -#define VM15 0 -#define VM14 2 -#define VM13 0 -#define VM12 0 -#define VM11 2 -#define VM10 0 -#define VM9 0 -#define VM8 13 -#define VM7 0 -#define VM6 0 -#define VM5 3 +#define VM38 20 +#define VM37 20 +#define VM36 27 +#define VM35 26 +#define VM34 22 +#define VM33 22 +#define VM32 16 +#define VM31 22 +#define VM30 22 +#define VM29 16 +#define VM28 28 +#define VM27 28 +#define VM26 19 +#define VM25 28 +#define VM24 28 +#define VM23 19 +#define VM22 26 +#define VM21 26 +#define VM20 18 +#define VM19 22 +#define VM18 22 +#define VM17 16 +#define VM16 26 +#define VM15 26 +#define VM14 32 +#define VM13 26 +#define VM12 26 +#define VM11 32 +#define VM10 12 +#define VM9 8 +#define VM8 14 +#define VM7 1 +#define VM6 1 +#define VM5 5 #define VM4 1 #define VM3 1 #define VM2 2 #define VM1 2 -static char * VVi[76]={ -#define Cdata VV[75] +static char * VVi[63]={ +#define Cdata VV[62] (char *)(LI1), (char *)(LI2), (char *)(LI3), (char *)(LI4), -(char *)(LI5), +(char *)(L5), (char *)(LI6), (char *)(LI7), (char *)(L8), -(char *)(LI9), -(char *)(&LI9key), -(char *)(LI10), -(char *)(&LI10key), -(char *)(LI11), -(char *)(&LI11key), -(char *)(LI12), -(char *)(&LI12key), -(char *)(LI13), -(char *)(&LI13key), -(char *)(LI14), -(char *)(&LI14key), -(char *)(LI15), -(char *)(&LI15key), -(char *)(LI16), -(char *)(&LI16key), -(char *)(LI17), -(char *)(&LI17key), -(char *)(LI18), -(char *)(&LI18key), -(char *)(LI19), -(char *)(&LI19key), -(char *)(LI20), -(char *)(&LI20key), -(char *)(LI21), -(char *)(&LI21key), -(char *)(LI22), -(char *)(&LI22key), -(char *)(LI23), -(char *)(&LI23key), -(char *)(LI24), -(char *)(&LI24key), -(char *)(LI25), -(char *)(&LI25key), -(char *)(LI26), -(char *)(&LI26key), -(char *)(LI27), -(char *)(&LI27key), -(char *)(LI28), -(char *)(&LI28key), -(char *)(LI29), -(char *)(&LI29key), -(char *)(LI30), -(char *)(&LI30key), -(char *)(LI31), -(char *)(&LI31key), -(char *)(LI32), -(char *)(&LI32key), -(char *)(LI33), -(char *)(&LI33key), -(char *)(LI34), -(char *)(&LI34key), -(char *)(LI35), -(char *)(&LI35key), -(char *)(LI36), -(char *)(&LI36key), -(char *)(LI37), -(char *)(&LI37key), -(char *)(LI38), -(char *)(&LI38key), +(char *)(L9), +(char *)(L10), +(char *)(L11), +(char *)(L12), +(char *)(L13), +(char *)(L14), +(char *)(L15), +(char *)(L16), +(char *)(L17), +(char *)(L18), +(char *)(L19), +(char *)(L20), +(char *)(L21), +(char *)(L22), +(char *)(L23), +(char *)(L24), +(char *)(L25), +(char *)(L26), +(char *)(L27), +(char *)(L28), +(char *)(L29), +(char *)(L30), +(char *)(L31), +(char *)(L32), +(char *)(L33), +(char *)(L34), +(char *)(L35), +(char *)(L36), +(char *)(L37), +(char *)(L38), (char *)(L39), (char *)(L40), (char *)(LI42), (char *)(L43), -(char *)(LI44), -(char *)(&LI44key), +(char *)(L44), (char *)(L45), (char *)(L46) }; #define VV ((object *)VVi) -static void LnkT62() ; -static void (*Lnk62)() = LnkT62; static void LnkT61() ; static void (*Lnk61)() = LnkT61; -static object LnkTLI60() ; -static object (*LnkLI60)() = LnkTLI60; +static void LnkT60() ; +static void (*Lnk60)() = LnkT60; static void LnkT59() ; static void (*Lnk59)() = LnkT59; static object LnkTLI58() ; static object (*LnkLI58)() = LnkTLI58; static void LnkT57() ; static void (*Lnk57)() = LnkT57; -static object LnkTLI56() ; -static object (*LnkLI56)() = LnkTLI56; +static void LnkT56() ; +static void (*Lnk56)() = LnkT56; static void LnkT55() ; static void (*Lnk55)() = LnkT55; -static object LnkTLI54() ; -static object (*LnkLI54)() = LnkTLI54; -static object LnkTLI53() ; -static object (*LnkLI53)() = LnkTLI53; -static object LnkTLI52() ; -static object (*LnkLI52)() = LnkTLI52; -static object LnkTLI51() ; -static object (*LnkLI51)() = LnkTLI51; -static object LnkTLI50() ; -static object (*LnkLI50)() = LnkTLI50; -static object LnkTLI49() ; -static object (*LnkLI49)() = LnkTLI49; +static void LnkT54() ; +static void (*Lnk54)() = LnkT54; +static void LnkT53() ; +static void (*Lnk53)() = LnkT53; +static void LnkT52() ; +static void (*Lnk52)() = LnkT52; +static void LnkT51() ; +static void (*Lnk51)() = LnkT51; +static void LnkT50() ; +static void (*Lnk50)() = LnkT50; +static void LnkT49() ; +static void (*Lnk49)() = LnkT49; static object LnkTLI48() ; static object (*LnkLI48)() = LnkTLI48; -static object LnkTLI47() ; -static object (*LnkLI47)() = LnkTLI47; -static object LnkTLI45() ; -static object (*LnkLI45)() = LnkTLI45; -static object LnkTLI44() ; -static object (*LnkLI44)() = LnkTLI44; +static void LnkT47() ; +static void (*Lnk47)() = LnkT47; +static void LnkT46() ; +static void (*Lnk46)() = LnkT46; +static void LnkT44() ; +static void (*Lnk44)() = LnkT44; static object LnkTLI43() ; static object (*LnkLI43)() = LnkTLI43; static object LnkTLI42() ; @@ -501,7 +249,7 @@ static object (*LnkLI37)() = LnkTLI37; static object LnkTLI36() ; static object (*LnkLI36)() = LnkTLI36; -static object LnkTLI33() ; -static object (*LnkLI33)() = LnkTLI33; +static void LnkT33() ; +static void (*Lnk33)() = LnkT33; static void LnkT32() ; static void (*Lnk32)() = LnkT32; diff -uNr TEST.gcl/gcl/lsp/seqlib.lsp agcl/agcl/lsp/seqlib.lsp --- TEST.gcl/gcl/lsp/seqlib.lsp Sun Nov 3 19:06:49 2002 +++ agcl/agcl/lsp/seqlib.lsp Sat Nov 9 13:15:25 2002 @@ -72,7 +72,7 @@ (error "both test and test not supplied")) (defun bad-seq-limit (x &optional y) - (specific-error :wrong-type-argument "bad sequence limit ~a" (if y (list x y) x))) + (specific-error :simple-program-error "bad sequence limit ~a" (if y (list x y) x))) (eval-when (compile eval) @@ -728,12 +728,12 @@ (defun map-into (result-sequence function &rest sequences) ; "map-into: (result-sequence function &rest sequences)" - (let ((nel (apply #'min (if (subtypep (type-of result-sequence) 'vector) + (let ((nel (apply #'min (if (eq 'vector (type-of result-sequence)) (array-dimension result-sequence 0) (length result-sequence)) (mapcar #'length sequences)))) ;; Set the fill pointer to the number of iterations - (when (and (subtypep (type-of result-sequence) 'vector) + (when (and (eq 'vector (type-of result-sequence)) (array-has-fill-pointer-p result-sequence)) (setf (fill-pointer result-sequence) nel)) ;; Perform mapping diff -uNr TEST.gcl/gcl/lsp/serror.c agcl/agcl/lsp/serror.c --- TEST.gcl/gcl/lsp/serror.c Mon Oct 14 07:24:43 2002 +++ agcl/agcl/lsp/serror.c Mon Nov 4 17:54:08 2002 @@ -192,7 +192,10 @@ goto T51;} {frame_ptr fr; fr=frs_sch_catch(VV[32]); - if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[32]); + if(fr==NULL) Icall_error_handler(sKsimple_program_error, + make_simple_string("Syntax error: The tag ~s is undefined."), + 1, + VV[32]); base[0]= (V26); vs_top=(vs_base=base+0)+1; unwind(fr,VV[32]);} @@ -228,7 +231,10 @@ goto T64;} {frame_ptr fr; fr=frs_sch_catch((V28)); - if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V28)); + if(fr==NULL) Icall_error_handler(sKsimple_program_error, + make_simple_string("Syntax error: The tag ~s is undefined."), + 1, + (V28)); base[0]= (V26); vs_top=(vs_base=base+0)+1; unwind(fr,(V28));} diff -uNr TEST.gcl/gcl/lsp/sloop.c agcl/agcl/lsp/sloop.c --- TEST.gcl/gcl/lsp/sloop.c Mon Oct 14 07:24:43 2002 +++ agcl/agcl/lsp/sloop.c Mon Nov 4 17:54:08 2002 @@ -1383,7 +1383,10 @@ goto T478;} {frame_ptr fr; fr=frs_sch_catch(VV[27]); - if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[27]); + if(fr==NULL) Icall_error_handler(sKsimple_program_error, + make_simple_string("Syntax error: The tag ~s is undefined."), + 1, + VV[27]); base[0]= Cnil; vs_top=(vs_base=base+0)+1; unwind(fr,VV[27]);} @@ -2752,7 +2755,10 @@ goto T1040; goto T1047; T1047:; - FEerror("The ECASE key value ~s is illegal.",1,V372); + Icall_error_handler(sLsimple_type_error, + make_simple_string("The ECASE key value ~s is illegal."), + 1, + V372); V371= Cnil; goto T1040;} goto T1040; diff -uNr TEST.gcl/gcl/lsp/top.c agcl/agcl/lsp/top.c --- TEST.gcl/gcl/lsp/top.c Sat Oct 5 20:34:15 2002 +++ agcl/agcl/lsp/top.c Mon Nov 4 17:54:08 2002 @@ -915,7 +915,10 @@ goto T388;} {frame_ptr fr; fr=frs_sch_catch((VV[11]->s.s_dbind)); - if(fr==NULL) FEerror("The tag ~s is undefined.",1,(VV[11]->s.s_dbind)); + if(fr==NULL) Icall_error_handler(sKsimple_program_error, + make_simple_string("Syntax error: The tag ~s is undefined."), + 1, + (VV[11]->s.s_dbind)); base[0]= (VV[11]->s.s_dbind); vs_top=(vs_base=base+0)+1; unwind(fr,(VV[11]->s.s_dbind));} @@ -1161,7 +1164,10 @@ {frame_ptr fr; base[2]= CMPcdr((V74)); fr=frs_sch_catch(base[2]); - if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[2]); + if(fr==NULL) Icall_error_handler(sKsimple_program_error, + make_simple_string("Syntax error: The tag ~s is undefined."), + 1, + base[2]); base[3]= CMPcdr((V74)); vs_top=(vs_base=base+3)+1; unwind(fr,base[2]);}}