#include "cmpinclude.h" #include "pcl_macros.h" void init_pcl_macros(){do_init(VV);} /* macro definition for MEMQ */ static void L1() {register object *base=vs_base; register object *sup=base+VM1; VC1 vs_check; check_arg(2); vs_top=sup; {object V1=base[0]->c.c_cdr; if(endp(V1))invalid_macro_call(); base[2]= (V1->c.c_car); V1=V1->c.c_cdr; if(endp(V1))invalid_macro_call(); base[3]= (V1->c.c_car); V1=V1->c.c_cdr; if(!endp(V1))invalid_macro_call();} base[4]= listA(4,VV[0],base[2],base[3],VV[1]); vs_top=(vs_base=base+4)+1; return; } /* macro definition for ASSQ */ static void L2() {register object *base=vs_base; register object *sup=base+VM2; VC2 vs_check; check_arg(2); vs_top=sup; {object V2=base[0]->c.c_cdr; if(endp(V2))invalid_macro_call(); base[2]= (V2->c.c_car); V2=V2->c.c_cdr; if(endp(V2))invalid_macro_call(); base[3]= (V2->c.c_car); V2=V2->c.c_cdr; if(!endp(V2))invalid_macro_call();} base[4]= listA(4,VV[2],base[2],base[3],VV[3]); vs_top=(vs_base=base+4)+1; return; } /* macro definition for RASSQ */ static void L3() {register object *base=vs_base; register object *sup=base+VM3; VC3 vs_check; check_arg(2); vs_top=sup; {object V3=base[0]->c.c_cdr; if(endp(V3))invalid_macro_call(); base[2]= (V3->c.c_car); V3=V3->c.c_cdr; if(endp(V3))invalid_macro_call(); base[3]= (V3->c.c_car); V3=V3->c.c_cdr; if(!endp(V3))invalid_macro_call();} base[4]= listA(4,VV[4],base[2],base[3],VV[5]); vs_top=(vs_base=base+4)+1; return; } /* macro definition for DELQ */ static void L4() {register object *base=vs_base; register object *sup=base+VM4; VC4 vs_check; check_arg(2); vs_top=sup; {object V4=base[0]->c.c_cdr; if(endp(V4))invalid_macro_call(); base[2]= (V4->c.c_car); V4=V4->c.c_cdr; if(endp(V4))invalid_macro_call(); base[3]= (V4->c.c_car); V4=V4->c.c_cdr; if(!endp(V4))invalid_macro_call();} base[4]= listA(4,VV[6],base[2],base[3],VV[7]); vs_top=(vs_base=base+4)+1; return; } /* macro definition for POSQ */ static void L5() {register object *base=vs_base; register object *sup=base+VM5; VC5 vs_check; check_arg(2); vs_top=sup; {object V5=base[0]->c.c_cdr; if(endp(V5))invalid_macro_call(); base[2]= (V5->c.c_car); V5=V5->c.c_cdr; if(endp(V5))invalid_macro_call(); base[3]= (V5->c.c_car); V5=V5->c.c_cdr; if(!endp(V5))invalid_macro_call();} base[4]= listA(4,VV[8],base[2],base[3],VV[9]); vs_top=(vs_base=base+4)+1; return; } /* macro definition for NEQ */ static void L6() {register object *base=vs_base; register object *sup=base+VM6; VC6 vs_check; check_arg(2); vs_top=sup; {object V6=base[0]->c.c_cdr; if(endp(V6))invalid_macro_call(); base[2]= (V6->c.c_car); V6=V6->c.c_cdr; if(endp(V6))invalid_macro_call(); base[3]= (V6->c.c_car); V6=V6->c.c_cdr; if(!endp(V6))invalid_macro_call();} base[4]= list(2,VV[10],list(3,VV[11],base[2],base[3])); vs_top=(vs_base=base+4)+1; return; } /* local entry for function MAKE-CAXR */ static object LI7(V9,V10) object V9;object V10; { VMB7 VMS7 VMV7 goto TTL; TTL:; if(!(number_compare((V9),small_fixnum(4))<0)){ goto T2;} {object V11 = list(2,nth(fix((V9)),VV[12]),(V10)); VMR7(V11)} goto T2; T2:; V9= number_minus((V9),small_fixnum(4)); V10= list(2,VV[13],(V10)); goto TTL; return Cnil; } /* local entry for function MAKE-CDXR */ static object LI8(V14,V15) register object V14;object V15; { VMB8 VMS8 VMV8 goto TTL; TTL:; if(!(number_compare(small_fixnum(0),(V14))==0)){ goto T8;} {object V16 = (V15); VMR8(V16)} goto T8; T8:; if(!(number_compare((V14),small_fixnum(5))<0)){ goto T11;} {object V17 = list(2,nth(fix((V14)),VV[14]),(V15)); VMR8(V17)} goto T11; T11:; V14= number_minus((V14),small_fixnum(4)); V15= list(2,VV[13],(V15)); goto TTL; return Cnil; } /* function definition for G2005 */ static void L9() {register object *base=vs_base; register object *sup=base+VM9; VC9 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; base[0]= VV[15]; vs_top=(vs_base=base+0)+1; return; } /* local entry for function TRUE */ static object LI10(object first,...) { va_list ap; int narg = VFUN_NARGS; VMB10 VMS10 VMV10 {object V18; va_start(ap,first); narg= narg - 0; V19 = list_vector_new(narg,first,ap); V18= V19; {object V20 = Ct; VMR10(V20)} va_end(ap); return Cnil;} } /* local entry for function FALSE */ static object LI11(object first,...) { va_list ap; int narg = VFUN_NARGS; VMB11 VMS11 VMV11 {object V21; va_start(ap,first); narg= narg - 0; V22 = list_vector_new(narg,first,ap); V21= V22; {object V23 = Cnil; VMR11(V23)} va_end(ap); return Cnil;} } /* local entry for function ZERO */ static object LI12(object first,...) { va_list ap; int narg = VFUN_NARGS; VMB12 VMS12 VMV12 {object V24; va_start(ap,first); narg= narg - 0; V25 = list_vector_new(narg,first,ap); V24= V25; {object V26 = small_fixnum(0); VMR12(V26)} va_end(ap); return Cnil;} } /* local entry for function MAKE-PLIST */ static object LI13(V29,V30) object V29;object V30; { VMB13 VMS13 VMV13 goto TTL; TTL:; if(((V30))!=Cnil){ goto T17;} {object V31 = Cnil; VMR13(V31)} goto T17; T17:; V32= CMPcar((V29)); V33= CMPcar((V30)); {object V34 = listA(3,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,(*(LnkLI125))(CMPcdr((V29)),CMPcdr((V30)))); VMR13(V34)} return Cnil; } /* local entry for function REMTAIL */ static object LI14(V37,V38) object V37;object V38; { VMB14 VMS14 VMV14 goto TTL; TTL:; if(!(((V37))==((V38)))){ goto T20;} {object V39 = Cnil; VMR14(V39)} goto T20; T20:; V40= CMPcar((V37)); V41= (*(LnkLI126))(CMPcdr((V37)),(V38)); {object V42 = make_cons(/* INLINE-ARGS */V40,/* INLINE-ARGS */V41); VMR14(V42)} return Cnil; } /* macro definition for ONCE-ONLY */ static void L15() {register object *base=vs_base; register object *sup=base+VM15; VC15 vs_check; check_arg(2); vs_top=sup; {object V43=base[0]->c.c_cdr; if(endp(V43))invalid_macro_call(); base[2]= (V43->c.c_car); V43=V43->c.c_cdr; base[3]= V43;} {register object V44; register object V45; register object V46; register object V47; vs_base=vs_top; Lgensym(); vs_top=sup; V44= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; V45= vs_base[0]; vs_base=vs_top; Lgensym(); vs_top=sup; V46= vs_base[0]; V47= Cnil; {register object V48; register object V49; V48= base[2]; V49= CMPcar((V48)); goto T29; T29:; if(!(((V48))==Cnil)){ goto T30;} goto T25; goto T30; T30:; {register object V50; V51= list(2,VV[18],(V49)); V52= list(2,VV[19],(V49)); V53= list(2,VV[21],(V49)); V54= list(4,VV[17],/* INLINE-ARGS */V51,/* INLINE-ARGS */V52,list(3,VV[20],/* INLINE-ARGS */V53,list(3,VV[0],list(2,VV[22],(V49)),VV[23]))); V55= list(2,(V44),VV[25]); V56= make_cons(/* INLINE-ARGS */V55,Cnil); V57= list(3,VV[26],(V44),(V45)); V50= list(4,VV[16],/* INLINE-ARGS */V54,(V49),list(5,VV[24],/* INLINE-ARGS */V56,/* INLINE-ARGS */V57,list(3,VV[26],(V49),(V46)),(V44))); V47= make_cons((V50),(V47));} V48= CMPcdr((V48)); V49= CMPcar((V48)); goto T29;} goto T25; T25:; V62= reverse((V47)); {object V59; object V60= base[2]; object V61= /* INLINE-ARGS */V62; if(V60==Cnil||V61==Cnil){ V58= Cnil; goto T42;} base[4]=V59=MMcons(Cnil,Cnil); goto T43; T43:; (V59->c.c_car)= list(2,(V60->c.c_car),(V61->c.c_car)); if((V60=MMcdr(V60))==Cnil||(V61=MMcdr(V61))==Cnil){ V58= base[4]; goto T42;} V59=MMcdr(V59)=MMcons(Cnil,Cnil); goto T43;} goto T42; T42:; V63= list(3,(V45),(V46),list(2,VV[28],listA(3,VV[24],V58,base[3]))); V64= list(2,VV[33],(V45)); base[4]= list(3,VV[27],/* INLINE-ARGS */V63,list(4,VV[29],VV[30],list(4,VV[31],VV[32],/* INLINE-ARGS */V64,list(2,VV[33],(V46))),VV[28])); vs_top=(vs_base=base+4)+1; return;} } /* function definition for EXTRACT-DECLARATIONS */ static void L16() {register object *base=vs_base; register object *sup=base+VM16; VC16 vs_check; {register object V65; object V66; if(vs_top-vs_base<1) too_few_arguments(); if(vs_top-vs_base>2) too_many_arguments(); V65=(base[0]); vs_base=vs_base+1; if(vs_base>=vs_top){vs_top=sup;goto T45;} V66=(base[1]); vs_top=sup; goto T46; goto T45; T45:; V66= Cnil; goto T46; T46:; {object V67; register object V68; register object V69; V67= Cnil; V68= Cnil; V69= Cnil; if(!(type_of(CMPcar((V65)))==t_string)){ goto T48;} if((CMPcdr((V65)))==Cnil){ goto T48;} {object V70; V70= CMPcar((V65)); V65= CMPcdr((V65)); V67= (V70);} goto T48; T48:; goto T59; T59:; if(((V65))!=Cnil){ goto T61;} goto T57; goto T61; T61:; V69= CMPcar((V65)); goto T69; T69:; if(type_of((V69))==t_cons||((V69))==Cnil){ goto T72;} goto T57; goto T72; T72:; if(!((CMPcar((V69)))==(VV[34]))){ goto T75;} goto T67; goto T75; T75:; {register object V71; object V72; base[2]= (V69); base[3]= (V66); vs_top=(vs_base=base+2)+2; Lmacroexpand_1(); if(vs_base>=vs_top){vs_top=sup;goto T80;} V71= vs_base[0]; vs_base++; if(vs_base>=vs_top){vs_top=sup;goto T81;} V72= vs_base[0]; vs_top=sup; goto T82; goto T80; T80:; V71= Cnil; goto T81; T81:; V72= Cnil; goto T82; T82:; if(!(((V71))==((V69)))){ goto T83;} if(((V72))==Cnil){ goto T84;} goto T83; T83:; V69= (V71); goto T70; goto T84; T84:; goto T57;} goto T70; T70:; goto T69; goto T67; T67:; {object V73; V73= CMPcar((V65)); V65= CMPcdr((V65));} {register object V74; register object V75; V74= CMPcdr((V69)); V75= CMPcar((V74)); goto T97; T97:; if(!(((V74))==Cnil)){ goto T98;} goto T60; goto T98; T98:; V68= make_cons(V75,(V68)); V74= CMPcdr((V74)); V75= CMPcar((V74)); goto T97;} goto T60; T60:; goto T59; goto T57; T57:; base[2]= (V67); if((V68)==Cnil){ base[3]= Cnil; goto T111;} V77= nreverse((V68)); V78= make_cons(VV[34],/* INLINE-ARGS */V77); base[3]= make_cons(/* INLINE-ARGS */V78,Cnil); goto T111; T111:; base[4]= (V65); vs_top=(vs_base=base+2)+3; return;} } } /* local entry for function GET-DECLARATION */ static object LI17(object V80,object V79,object first,...) { va_list ap; int narg = VFUN_NARGS; VMB17 VMS17 VMV17 {register object V81; object V82; register object V83; va_start(ap,first); if(narg <2) too_few_arguments(); V81= V80; V82= V79; narg = narg - 2; if (narg <= 0) goto T113; else { V83= first;} --narg; goto T114; goto T113; T113:; V83= Cnil; goto T114; T114:; {register object V84; register object V85; V84= (V82); V85= CMPcar((V84)); goto T119; T119:; if(!(((V84))==Cnil)){ goto T120;} {object V86 = (V83); VMR17(V86)} goto T120; T120:; {register object V87; register object V88; V87= CMPcdr((V85)); V88= CMPcar((V87)); goto T128; T128:; if(!(((V87))==Cnil)){ goto T129;} goto T124; goto T129; T129:; if(!(type_of((V88))==t_cons)){ goto T133;} if(!((CMPcar((V88)))==((V81)))){ goto T133;} {object V89 = CMPcdr((V88)); VMR17(V89)} goto T133; T133:; V87= CMPcdr((V87)); V88= CMPcar((V87)); goto T128;} goto T124; T124:; V84= CMPcdr((V84)); V85= CMPcar((V84)); goto T119;} va_end(ap); base[0]=base[0]; return Cnil;} } /* function definition for MAKE-KEYWORD */ static void L18() {register object *base=vs_base; register object *sup=base+VM18; VC18 vs_check; {object V90; check_arg(1); V90=(base[0]); vs_top=sup; goto TTL; TTL:; base[1]= symbol_name((V90)); base[2]= (VV[35]->s.s_dbind); vs_top=(vs_base=base+1)+2; Lintern(); return; } } /* local entry for function STRING-APPEND */ static object LI19(object first,...) { va_list ap; int narg = VFUN_NARGS; VMB19 VMS19 VMV19 {register object V91; va_start(ap,first); narg= narg - 0; V92 = list_vector_new(narg,first,ap); V91= V92; base[0]= (V91); vs_top=(vs_base=base+0)+1; Lcopy_list(); vs_top=sup; V91= vs_base[0]; {register object V93; V93= (V91); goto T154; T154:; if(((V93))!=Cnil){ goto T155;} base[0]=VV[127]->s.s_gfdef; base[1]= VV[36]; {object V94; V94= (V91); vs_top=base+2; while(V94!=Cnil) {vs_push((V94)->c.c_car);V94=(V94)->c.c_cdr;} vs_base=base+1;} (void) (*Lnk127)(); vs_top=sup; {object V95 = vs_base[0]; VMR19(V95)} goto T155; T155:; V96= coerce_to_string(CMPcar((V93))); ((V93))->c.c_car = /* INLINE-ARGS */V96; V93= CMPcdr((V93)); goto T154;} va_end(ap); base[0]=base[0]; return Cnil;} } /* function definition for SYMBOL-APPEND */ static void L20() {register object *base=vs_base; register object *sup=base+VM20; VC20 vs_check; {object V97; object V98; object V99; if(vs_top-vs_base<2) too_few_arguments(); if(vs_top-vs_base>3) too_many_arguments(); V97=(base[0]); V98=(base[1]); vs_base=vs_base+2; if(vs_base>=vs_top){vs_top=sup;goto T165;} V99=(base[2]); vs_top=sup; goto T166; goto T165; T165:; V99= (VV[37]->s.s_dbind); goto T166; T166:; base[3]= (VFUN_NARGS=2,(*(LnkLI128))((V97),(V98))); base[4]= (V99); vs_top=(vs_base=base+3)+2; Lintern(); return; } } /* macro definition for CHECK-MEMBER */ static void L21() {register object *base=vs_base; register object *sup=base+VM21; VC21 vs_check; check_arg(2); vs_top=sup; {object V100=base[0]->c.c_cdr; if(endp(V100))invalid_macro_call(); base[2]= (V100->c.c_car); V100=V100->c.c_cdr; if(endp(V100))invalid_macro_call(); base[3]= (V100->c.c_car); V100=V100->c.c_cdr; {object V101=getf(V100,VV[39],OBJNULL); if(V101==OBJNULL){ base[4]= (VV[129]->s.s_gfdef);} else { base[4]= V101; }} {object V102=getf(V100,VV[130],OBJNULL); if(V102==OBJNULL){ base[5]= base[2];} else { base[5]= V102; }} check_other_key(V100,2,VV[39],VV[130]);} {register object V103; register object V104; object V105; V103= Cnil; V104= Cnil; {object V106; object V107; if(type_of(base[2])==t_symbol){ goto T176;} if(type_of(base[2])==t_fixnum|| type_of(base[2])==t_bignum|| type_of(base[2])==t_ratio|| type_of(base[2])==t_shortfloat|| type_of(base[2])==t_longfloat|| type_of(base[2])==t_complex){ goto T176;} if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ goto T177;} {register object x= CMPcar(base[2]),V108= VV[38]; while(V108!=Cnil) if(eql(x,V108->c.c_car)){ goto T184; }else V108=V108->c.c_cdr; goto T177;} goto T184; T184:; goto T176; T176:; V106= base[2]; goto T175; goto T177; T177:; {object V109; vs_base=vs_top; Lgensym(); vs_top=sup; V109= vs_base[0]; V103= make_cons(V109,(V103)); V104= make_cons(base[2],(V104)); V106= (V109);} goto T175; T175:; if(type_of(base[3])==t_symbol){ goto T191;} if(type_of(base[3])==t_fixnum|| type_of(base[3])==t_bignum|| type_of(base[3])==t_ratio|| type_of(base[3])==t_shortfloat|| type_of(base[3])==t_longfloat|| type_of(base[3])==t_complex){ goto T191;} if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){ goto T192;} {register object x= CMPcar(base[3]),V112= VV[38]; while(V112!=Cnil) if(eql(x,V112->c.c_car)){ goto T199; }else V112=V112->c.c_cdr; goto T192;} goto T199; T199:; goto T191; T191:; V107= base[3]; goto T190; goto T192; T192:; {object V113; vs_base=vs_top; Lgensym(); vs_top=sup; V113= vs_base[0]; V103= make_cons(V113,(V103)); V104= make_cons(base[3],(V104)); V107= (V113);} goto T190; T190:; V116= list(5,VV[0],(V106),(V107),VV[39],base[4]); V105= list(3,VV[17],/* INLINE-ARGS */V116,list(5,VV[40],VV[41],list(2,VV[42],base[5]),(V106),(V107)));} V121= reverse((V103)); V122= reverse((V104)); {object V118; object V119= /* INLINE-ARGS */V121; object V120= /* INLINE-ARGS */V122; if(V119==Cnil||V120==Cnil){ V117= Cnil; goto T205;} base[7]=V118=MMcons(Cnil,Cnil); goto T206; T206:; (V118->c.c_car)= list(2,(V119->c.c_car),(V120->c.c_car)); if((V119=MMcdr(V119))==Cnil||(V120=MMcdr(V120))==Cnil){ V117= base[7]; goto T205;} V118=MMcdr(V118)=MMcons(Cnil,Cnil); goto T206;} goto T205; T205:; base[7]= list(3,VV[24],V117,(V105)); vs_top=(vs_base=base+7)+1; return;} } /* macro definition for ALIST-ENTRY */ static void L22() {register object *base=vs_base; register object *sup=base+VM22; VC22 vs_check; check_arg(2); vs_top=sup; {object V123=base[0]->c.c_cdr; if(endp(V123))invalid_macro_call(); base[2]= (V123->c.c_car); V123=V123->c.c_cdr; if(endp(V123))invalid_macro_call(); base[3]= (V123->c.c_car); V123=V123->c.c_cdr; if(endp(V123))invalid_macro_call(); base[4]= (V123->c.c_car); V123=V123->c.c_cdr; if(!endp(V123))invalid_macro_call();} {register object V124; register object V125; object V126; V124= Cnil; V125= Cnil; {register object V127; object V128; if(type_of(base[2])==t_symbol){ goto T212;} if(type_of(base[2])==t_fixnum|| type_of(base[2])==t_bignum|| type_of(base[2])==t_ratio|| type_of(base[2])==t_shortfloat|| type_of(base[2])==t_longfloat|| type_of(base[2])==t_complex){ goto T212;} if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ goto T213;} {register object x= CMPcar(base[2]),V129= VV[38]; while(V129!=Cnil) if(eql(x,V129->c.c_car)){ goto T220; }else V129=V129->c.c_cdr; goto T213;} goto T220; T220:; goto T212; T212:; V127= base[2]; goto T211; goto T213; T213:; {object V130; vs_base=vs_top; Lgensym(); vs_top=sup; V130= vs_base[0]; V124= make_cons(V130,(V124)); V125= make_cons(base[2],(V125)); V127= (V130);} goto T211; T211:; if(type_of(base[3])==t_symbol){ goto T227;} if(type_of(base[3])==t_fixnum|| type_of(base[3])==t_bignum|| type_of(base[3])==t_ratio|| type_of(base[3])==t_shortfloat|| type_of(base[3])==t_longfloat|| type_of(base[3])==t_complex){ goto T227;} if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){ goto T228;} {register object x= CMPcar(base[3]),V133= VV[38]; while(V133!=Cnil) if(eql(x,V133->c.c_car)){ goto T235; }else V133=V133->c.c_cdr; goto T228;} goto T235; T235:; goto T227; T227:; V128= base[3]; goto T226; goto T228; T228:; {object V134; vs_base=vs_top; Lgensym(); vs_top=sup; V134= vs_base[0]; V124= make_cons(V134,(V124)); V125= make_cons(base[3],(V125)); V128= (V134);} goto T226; T226:; V137= list(3,VV[43],(V128),(V127)); V138= list(3,VV[45],(V127),list(3,VV[46],list(2,base[4],(V128)),(V127))); V126= list(3,VV[17],/* INLINE-ARGS */V137,list(3,VV[44],/* INLINE-ARGS */V138,list(2,VV[22],(V127))));} V143= reverse((V124)); V144= reverse((V125)); {object V140; object V141= /* INLINE-ARGS */V143; object V142= /* INLINE-ARGS */V144; if(V141==Cnil||V142==Cnil){ V139= Cnil; goto T241;} base[6]=V140=MMcons(Cnil,Cnil); goto T242; T242:; (V140->c.c_car)= list(2,(V141->c.c_car),(V142->c.c_car)); if((V141=MMcdr(V141))==Cnil||(V142=MMcdr(V142))==Cnil){ V139= base[6]; goto T241;} V140=MMcdr(V140)=MMcons(Cnil,Cnil); goto T242;} goto T241; T241:; base[6]= list(3,VV[24],V139,(V126)); vs_top=(vs_base=base+6)+1; return;} } /* macro definition for PCL-DESTRUCTURING-BIND */ static void L23() {register object *base=vs_base; register object *sup=base+VM23; VC23 vs_check; check_arg(2); vs_top=sup; {object V145=base[0]->c.c_cdr; if(endp(V145))invalid_macro_call(); base[2]= (V145->c.c_car); V145=V145->c.c_cdr; if(endp(V145))invalid_macro_call(); base[3]= (V145->c.c_car); V145=V145->c.c_cdr; base[4]= V145;} {object V146; object V147; object V148; base[5]= base[4]; vs_top=(vs_base=base+5)+1; (void) (*Lnk131)(); if(vs_base>=vs_top){vs_top=sup;goto T246;} V146= vs_base[0]; vs_base++; if(vs_base>=vs_top){vs_top=sup;goto T247;} V147= vs_base[0]; vs_base++; if(vs_base>=vs_top){vs_top=sup;goto T248;} V148= vs_base[0]; vs_top=sup; goto T249; goto T246; T246:; V146= Cnil; goto T247; T247:; V147= Cnil; goto T248; T248:; V148= Cnil; goto T249; T249:; {object V149; object V150; base[5]= base[2]; base[6]= base[3]; vs_top=(vs_base=base+5)+2; (void) (*Lnk132)(); if(vs_base>=vs_top){vs_top=sup;goto T253;} V149= vs_base[0]; vs_base++; if(vs_base>=vs_top){vs_top=sup;goto T254;} V150= vs_base[0]; vs_top=sup; goto T255; goto T253; T253:; V149= Cnil; goto T254; T254:; V150= Cnil; goto T255; T255:; base[5]= (V147); base[6]= (V149); base[7]= make_cons(VV[47],(V148)); vs_top=(vs_base=base+5)+3; Lappend(); vs_top=sup; V151= vs_base[0]; base[5]= listA(3,VV[24],(V150),V151); vs_top=(vs_base=base+5)+1; return;}} } /* function definition for DESTRUCTURE */ static void L24() {register object *base=vs_base; register object *sup=base+VM24; VC24 vs_check; bds_check; {object V152; object V153; check_arg(2); V152=(base[0]); V153=(base[1]); vs_top=sup; goto TTL; TTL:; {object V154; bds_bind(VV[48],Cnil); V154= Cnil; (VV[48]->s.s_dbind)= VV[49]; V155= list(3,VV[50],VV[51],(V153)); V154= make_cons(/* INLINE-ARGS */V155,Cnil); V153= VV[51]; V156= (*(LnkLI133))((V152),(V153)); V157= nreverse(/* INLINE-ARGS */V156); base[3]= nconc((V154),/* INLINE-ARGS */V157); base[5]= Cnil; base[6]= (VV[48]->s.s_dbind); vs_top=(vs_base=base+5)+2; (void) (*Lnk6)(); vs_top=sup; base[4]= vs_base[0]; vs_top=(vs_base=base+3)+2; bds_unwind1; return;} } } /* local entry for function DESTRUCTURE-INTERNAL */ static object LI25(V160,V161) object V160;register object V161; { VMB25 VMS25 VMV25 goto TTL; TTL:; {object V162; register object V163; register object V164; vs_base=vs_top; Lgensym(); vs_top=sup; V162= vs_base[0]; base[0]= small_fixnum(0); V163= Cnil; V164= Cnil; {register object V165; V165= (V160); goto T273; T273:; if(((V165))!=Cnil){ goto T274;} goto T271; goto T274; T274:; V163= CMPcar((V165)); if(!(type_of((V163))==t_symbol)){ goto T280;} {register object x= (V163),V166= VV[52]; while(V166!=Cnil) if(x==(V166->c.c_car)){ goto T283; }else V166=V166->c.c_cdr;} (VV[48]->s.s_dbind)= make_cons(V163,(VV[48]->s.s_dbind)); goto T283; T283:; if((CMPcdr((V165)))!=Cnil){ goto T288;} {object V168; base[2]= (V163); base[3]= (V161); base[4]= Cnil; vs_top=(vs_base=base+2)+3; L26(base); vs_top=sup; V168= vs_base[0]; V164= make_cons((V168),(V164)); goto T278;} goto T288; T288:; if(!(type_of(CMPcdr((V165)))==t_symbol)){ goto T296;} {object V169; base[2]= (V163); base[3]= (V161); base[4]= CMPcdr((V165)); vs_top=(vs_base=base+2)+3; L26(base); vs_top=sup; V169= vs_base[0]; V164= make_cons((V169),(V164));} {object V170; V170= CMPcdr((V165)); (VV[48]->s.s_dbind)= make_cons((V170),(VV[48]->s.s_dbind));} goto T271; goto T296; T296:; {register object x= (V163),V171= VV[53]; while(V171!=Cnil) if(x==(V171->c.c_car)){ goto T309; }else V171=V171->c.c_cdr; goto T308;} goto T309; T309:; base[0]= number_plus(base[0],small_fixnum(1)); goto T278; goto T308; T308:; {register object x= CMPcadr((V165)),V172= VV[54]; while(V172!=Cnil) if(x==(V172->c.c_car)){ goto T313; }else V172=V172->c.c_cdr; goto T312;} goto T313; T313:; {object V173; base[2]= (V163); base[3]= (V161); base[4]= Cnil; vs_top=(vs_base=base+2)+3; L26(base); vs_top=sup; V173= vs_base[0]; V164= make_cons((V173),(V164));} base[0]= number_plus(base[0],small_fixnum(1)); goto T278; goto T312; T312:; {object V174; base[2]= (V163); base[3]= (V161); base[4]= (V161); vs_top=(vs_base=base+2)+3; L26(base); vs_top=sup; V174= vs_base[0]; V164= make_cons((V174),(V164)); goto T278;} goto T280; T280:; {object V175; V176= list(2,(V162),Cnil); V177= make_cons(/* INLINE-ARGS */V176,Cnil); base[2]= (V162); base[3]= (V161); if(!(type_of(CMPcdr((V165)))==t_symbol)){ goto T333;} base[4]= CMPcdr((V165)); goto T331; goto T333; T333:; base[4]= (V161); goto T331; T331:; vs_top=(vs_base=base+2)+3; L26(base); vs_top=sup; V178= vs_base[0]; if(!(type_of((V165))==t_cons)){ goto T337;} V179= CMPcar((V165)); goto T335; goto T337; T337:; V179= (V165); goto T335; T335:; V180= (*(LnkLI133))(V179,(V162)); V175= listA(4,VV[24],/* INLINE-ARGS */V177,V178,nreverse(/* INLINE-ARGS */V180)); V164= make_cons((V175),(V164));} if(!(type_of(CMPcdr((V165)))==t_symbol)){ goto T278;} {object V181; V181= CMPcdr((V165)); (VV[48]->s.s_dbind)= make_cons((V181),(VV[48]->s.s_dbind));} goto T271; goto T278; T278:; V165= CMPcdr((V165)); goto T273;} goto T271; T271:; {object V182 = (V164); VMR25(V182)}} base[0]=base[0]; return Cnil; } /* macro definition for COLLECTING-ONCE */ static void L27() {register object *base=vs_base; register object *sup=base+VM26; VC26 vs_check; check_arg(2); vs_top=sup; {object V183=base[0]->c.c_cdr; {object V184=getf(V183,VV[134],OBJNULL); if(V184==OBJNULL){ base[2]= Cnil;} else { base[2]= V184; }} check_other_key(V183,1,VV[134]);} V185= list(2,VV[57],base[2]); if(base[2]==Cnil){ V186= Cnil; goto T349;} V186= VV[59]; goto T349; T349:; base[3]= list(3,VV[27],list(2,/* INLINE-ARGS */V185,list(2,VV[58],V186)),VV[60]); vs_top=(vs_base=base+3)+1; return; } /* macro definition for DOPLIST */ static void L28() {register object *base=vs_base; register object *sup=base+VM27; VC27 vs_check; check_arg(2); vs_top=sup; {object V187=base[0]->c.c_cdr; if(endp(V187))invalid_macro_call(); {object V188= (V187->c.c_car); if(endp(V188))invalid_macro_call(); base[2]= (V188->c.c_car); V188=V188->c.c_cdr; if(endp(V188))invalid_macro_call(); base[3]= (V188->c.c_car); V188=V188->c.c_cdr; if(!endp(V188))invalid_macro_call();} V187=V187->c.c_cdr; if(endp(V187))invalid_macro_call(); base[4]= (V187->c.c_car); V187=V187->c.c_cdr; base[5]= V187;} {object V189; object V190; object V191; base[6]= base[5]; base[7]= base[1]; vs_top=(vs_base=base+6)+2; (void) (*Lnk131)(); if(vs_base>=vs_top){vs_top=sup;goto T353;} V189= vs_base[0]; vs_base++; if(vs_base>=vs_top){vs_top=sup;goto T354;} V190= vs_base[0]; vs_base++; if(vs_base>=vs_top){vs_top=sup;goto T355;} V191= vs_base[0]; vs_top=sup; goto T356; goto T353; T353:; V189= Cnil; goto T354; T354:; V190= Cnil; goto T355; T355:; V191= Cnil; goto T356; T356:; V192= list(3,list(2,VV[61],base[4]),base[2],base[3]); V193= list(3,VV[50],base[2],VV[64]); V194= list(3,VV[66],list(2,VV[10],list(2,VV[18],base[2])),VV[67]); V195= list(3,VV[50],base[3],VV[68]); V196= list(7,VV[62],VV[63],/* INLINE-ARGS */V193,VV[65],/* INLINE-ARGS */V194,/* INLINE-ARGS */V195,make_cons(VV[44],(V191))); V197= make_cons(/* INLINE-ARGS */V196,Cnil); base[6]= listA(3,VV[24],/* INLINE-ARGS */V192,append((V190),/* INLINE-ARGS */V197)); vs_top=(vs_base=base+6)+1; return;} } /* macro definition for IF* */ static void L29() {register object *base=vs_base; register object *sup=base+VM28; VC28 vs_check; check_arg(2); vs_top=sup; {object V198=base[0]->c.c_cdr; if(endp(V198))invalid_macro_call(); base[2]= (V198->c.c_car); V198=V198->c.c_cdr; if(endp(V198))invalid_macro_call(); base[3]= (V198->c.c_car); V198=V198->c.c_cdr; base[4]= V198;} base[5]= list(4,VV[16],base[2],base[3],make_cons(VV[44],base[4])); vs_top=(vs_base=base+5)+1; return; } /* macro definition for DOLIST-CAREFULLY */ static void L30() {register object *base=vs_base; register object *sup=base+VM29; VC29 vs_check; check_arg(2); vs_top=sup; {object V199=base[0]->c.c_cdr; if(endp(V199))invalid_macro_call(); {object V200= (V199->c.c_car); if(endp(V200))invalid_macro_call(); base[2]= (V200->c.c_car); V200=V200->c.c_cdr; if(endp(V200))invalid_macro_call(); base[3]= (V200->c.c_car); V200=V200->c.c_cdr; if(endp(V200))invalid_macro_call(); base[4]= (V200->c.c_car); V200=V200->c.c_cdr; if(!endp(V200))invalid_macro_call();} V199=V199->c.c_cdr; base[5]= V199;} V201= list(2,base[2],Cnil); V202= list(2,/* INLINE-ARGS */V201,list(2,VV[69],base[3])); V203= listA(3,VV[44],list(3,VV[50],base[2],VV[72]),base[5]); base[6]= list(3,VV[24],/* INLINE-ARGS */V202,list(3,VV[62],VV[70],list(4,VV[16],VV[71],/* INLINE-ARGS */V203,make_cons(base[4],Cnil)))); vs_top=(vs_base=base+6)+1; return; } /* macro definition for PRINTING-RANDOM-THING */ static void L31() {register object *base=vs_base; register object *sup=base+VM30; VC30 vs_check; check_arg(2); vs_top=sup; {object V204=base[0]->c.c_cdr; if(endp(V204))invalid_macro_call(); {object V205= (V204->c.c_car); if(endp(V205))invalid_macro_call(); base[2]= (V205->c.c_car); V205=V205->c.c_cdr; if(endp(V205))invalid_macro_call(); base[3]= (V205->c.c_car); V205=V205->c.c_cdr; if(!endp(V205))invalid_macro_call();} V204=V204->c.c_cdr; base[4]= V204;} {register object V206; register object V207; object V208; V206= Cnil; V207= Cnil; {object V209; register object V210; if(type_of(base[2])==t_symbol){ goto T361;} if(type_of(base[2])==t_fixnum|| type_of(base[2])==t_bignum|| type_of(base[2])==t_ratio|| type_of(base[2])==t_shortfloat|| type_of(base[2])==t_longfloat|| type_of(base[2])==t_complex){ goto T361;} if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ goto T362;} {register object x= CMPcar(base[2]),V211= VV[38]; while(V211!=Cnil) if(eql(x,V211->c.c_car)){ goto T369; }else V211=V211->c.c_cdr; goto T362;} goto T369; T369:; goto T361; T361:; V209= base[2]; goto T360; goto T362; T362:; {object V212; vs_base=vs_top; Lgensym(); vs_top=sup; V212= vs_base[0]; V206= make_cons(V212,(V206)); V207= make_cons(base[2],(V207)); V209= (V212);} goto T360; T360:; if(type_of(base[3])==t_symbol){ goto T376;} if(type_of(base[3])==t_fixnum|| type_of(base[3])==t_bignum|| type_of(base[3])==t_ratio|| type_of(base[3])==t_shortfloat|| type_of(base[3])==t_longfloat|| type_of(base[3])==t_complex){ goto T376;} if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){ goto T377;} {register object x= CMPcar(base[3]),V215= VV[38]; while(V215!=Cnil) if(eql(x,V215->c.c_car)){ goto T384; }else V215=V215->c.c_cdr; goto T377;} goto T384; T384:; goto T376; T376:; V210= base[3]; goto T375; goto T377; T377:; {object V216; vs_base=vs_top; Lgensym(); vs_top=sup; V216= vs_base[0]; V206= make_cons(V216,(V206)); V207= make_cons(base[3],(V207)); V210= (V216);} goto T375; T375:; V219= list(3,VV[73],(V210),VV[74]); V220= list(3,VV[73],(V210),VV[75]); V221= list(3,VV[76],(V209),(V210)); V222= list(3,/* INLINE-ARGS */V220,/* INLINE-ARGS */V221,list(3,VV[73],(V210),VV[77])); V208= listA(3,VV[44],/* INLINE-ARGS */V219,append(base[4],/* INLINE-ARGS */V222));} V227= reverse((V206)); V228= reverse((V207)); {object V224; object V225= /* INLINE-ARGS */V227; object V226= /* INLINE-ARGS */V228; if(V225==Cnil||V226==Cnil){ V223= Cnil; goto T390;} base[6]=V224=MMcons(Cnil,Cnil); goto T391; T391:; (V224->c.c_car)= list(2,(V225->c.c_car),(V226->c.c_car)); if((V225=MMcdr(V225))==Cnil||(V226=MMcdr(V226))==Cnil){ V223= base[6]; goto T390;} V224=MMcdr(V224)=MMcons(Cnil,Cnil); goto T391;} goto T390; T390:; base[6]= list(3,VV[24],V223,(V208)); vs_top=(vs_base=base+6)+1; return;} } /* local entry for function PRINTING-RANDOM-THING-INTERNAL */ static object LI32(V231,V232) object V231;object V232; { VMB31 VMS31 VMV31 goto TTL; TTL:; {object V233 = Cnil; VMR31(V233)} return Cnil; } /* local entry for function CAPITALIZE-WORDS */ static object LI33(object V234,object first,...) { va_list ap; int narg = VFUN_NARGS; VMB32 VMS32 VMV32 {object V235; register object V236; va_start(ap,first); if(narg <1) too_few_arguments(); V235= V234; narg = narg - 1; if (narg <= 0) goto T393; else { V236= first;} --narg; goto T394; goto T393; T393:; V236= Ct; goto T394; T394:; {register object V237; base[0]= coerce_to_string((V235)); vs_top=(vs_base=base+0)+1; Lcopy_seq(); vs_top=sup; V237= vs_base[0]; {register object V238; register object V239; register object V240; register object V241; V238= Ct; V239= CMPmake_fixnum((long)((V237))->v.v_fillp); V240= Cnil; V241= small_fixnum(0); goto T403; T403:; if(!(number_compare((V241),(V239))==0)){ goto T404;} {object V242 = (V237); VMR32(V242)} goto T404; T404:; V240= elt((V237),fix((V241))); base[1]= (V240); vs_top=(vs_base=base+1)+1; Lboth_case_p(); vs_top=sup; if((vs_base[0])==Cnil){ goto T412;} if(((V238))==Cnil){ goto T417;} base[1]= (V240); vs_top=(vs_base=base+1)+1; Llower_case_p(); vs_top=sup; V238= vs_base[0]; if(((V238))!=Cnil){ goto T419;} goto T415; goto T419; T419:; base[1]= (V240); vs_top=(vs_base=base+1)+1; Lchar_upcase(); vs_top=sup; V243= vs_base[0]; (void)(elt_set((V237),fix((V241)),V243)); goto T415; goto T417; T417:; if(((V238))==Cnil){ goto T425;} goto T415; goto T425; T425:; base[1]= (V240); vs_top=(vs_base=base+1)+1; Lchar_downcase(); vs_top=sup; V244= vs_base[0]; (void)(elt_set((V237),fix((V241)),V244)); goto T415; T415:; V238= Cnil; goto T410; goto T412; T412:; base[1]= (V240); base[2]= VV[78]; vs_top=(vs_base=base+1)+2; Lchar_equal(); vs_top=sup; if((vs_base[0])==Cnil){ goto T431;} V238= Ct; if(((V236))!=Cnil){ goto T410;} (void)(elt_set((V237),fix((V241)),VV[79])); goto T410; goto T431; T431:; V238= Cnil; goto T410; T410:; V241= number_plus((V241),small_fixnum(1)); goto T403;}} va_end(ap); base[0]=base[0]; return Cnil;} } /* macro definition for DEFINE-COMPILER-MACRO */ static void L34() {register object *base=vs_base; register object *sup=base+VM33; VC33 vs_check; check_arg(2); vs_top=sup; {object V245=base[0]->c.c_cdr; if(endp(V245))invalid_macro_call(); base[2]= (V245->c.c_car); V245=V245->c.c_cdr; if(endp(V245))invalid_macro_call(); base[3]= (V245->c.c_car); V245=V245->c.c_cdr; base[4]= V245;} base[5]= listA(4,VV[80],base[2],base[3],base[4]); vs_top=(vs_base=base+5)+1; return; } /* local entry for function MAKE-CONSTANT-FUNCTION */ static object LI36(V247) object V247; { VMB34 VMS34 VMV34 goto TTL; TTL:; base[0]=MMcons((V247),Cnil); {object V248 = make_cclosure_new(LC65,Cnil,base[0],Cdata); VMR34(V248)} base[0]=base[0]; return Cnil; } /* local entry for function FUNCTION-RETURNING-NIL */ static object LI37(V250) object V250; { VMB35 VMS35 VMV35 goto TTL; TTL:; {object V251 = Cnil; VMR35(V251)} return Cnil; } /* local entry for function FUNCTION-RETURNING-T */ static object LI38(V253) object V253; { VMB36 VMS36 VMV36 goto TTL; TTL:; {object V254 = Ct; VMR36(V254)} return Cnil; } /* macro definition for FIND-CLASS-CELL-CLASS */ static void L39() {register object *base=vs_base; register object *sup=base+VM37; VC37 vs_check; check_arg(2); vs_top=sup; {object V255=base[0]->c.c_cdr; if(endp(V255))invalid_macro_call(); base[2]= (V255->c.c_car); V255=V255->c.c_cdr; if(!endp(V255))invalid_macro_call();} base[3]= list(2,VV[22],base[2]); vs_top=(vs_base=base+3)+1; return; } /* macro definition for FIND-CLASS-CELL-PREDICATE */ static void L40() {register object *base=vs_base; register object *sup=base+VM38; VC38 vs_check; check_arg(2); vs_top=sup; {object V256=base[0]->c.c_cdr; if(endp(V256))invalid_macro_call(); base[2]= (V256->c.c_car); V256=V256->c.c_cdr; if(!endp(V256))invalid_macro_call();} base[3]= list(2,VV[81],base[2]); vs_top=(vs_base=base+3)+1; return; } /* macro definition for FIND-CLASS-CELL-MAKE-INSTANCE-FUNCTION-KEYS */ static void L41() {register object *base=vs_base; register object *sup=base+VM39; VC39 vs_check; check_arg(2); vs_top=sup; {object V257=base[0]->c.c_cdr; if(endp(V257))invalid_macro_call(); base[2]= (V257->c.c_car); V257=V257->c.c_cdr; if(!endp(V257))invalid_macro_call();} base[3]= list(2,VV[82],base[2]); vs_top=(vs_base=base+3)+1; return; } /* macro definition for MAKE-FIND-CLASS-CELL */ static void L42() {register object *base=vs_base; register object *sup=base+VM40; VC40 vs_check; check_arg(2); vs_top=sup; {object V258=base[0]->c.c_cdr; if(endp(V258))invalid_macro_call(); base[2]= (V258->c.c_car); V258=V258->c.c_cdr; if(!endp(V258))invalid_macro_call();} base[3]= VV[83]; vs_top=(vs_base=base+3)+1; return; } /* local entry for function FIND-CLASS-CELL */ static object LI43(object V259,object first,...) { va_list ap; int narg = VFUN_NARGS; VMB41 VMS41 VMV41 {register object V260; object V261; va_start(ap,first); if(narg <1) too_few_arguments(); V260= V259; narg = narg - 1; if (narg <= 0) goto T449; else { V261= first;} --narg; goto T450; goto T449; T449:; V261= Cnil; goto T450; T450:;{object V262; base[0]= (V260); base[1]= (VV[84]->s.s_dbind); vs_top=(vs_base=base+0)+2; Lgethash(); vs_top=sup; V262= vs_base[0]; if(V262==Cnil)goto T452; {object V263 = V262; VMR41(V263)} goto T452; T452:;} if(((V261))!=Cnil){ goto T457;} if(((*(LnkLI135))((V260)))!=Cnil){ goto T459;} base[0]= VV[85]; base[1]= (V260); vs_top=(vs_base=base+0)+2; Lerror(); vs_top=sup; goto T459; T459:; {object V265; object V266; V265= (VV[84]->s.s_dbind); V267= (VV[136]->s.s_gfdef); V266= listA(3,Cnil,V267,Cnil); base[1]= V260; base[2]= (V265); base[3]= (V266); vs_top=(vs_base=base+1)+3; siLhash_set(); vs_top=sup; {object V268 = vs_base[0]; VMR41(V268)}} goto T457; T457:; {object V269 = Cnil; VMR41(V269)} va_end(ap); base[0]=base[0]; return Cnil;} } /* local entry for function FIND-CLASS-FROM-CELL */ static object LI44(object V271,object V270,object first,...) { va_list ap; int narg = VFUN_NARGS; VMB42 VMS42 VMV42 {register object V272; object V273; object V274; va_start(ap,first); if(narg <2) too_few_arguments(); V272= V271; V273= V270; narg = narg - 2; if (narg <= 0) goto T470; else { V274= first;} --narg; goto T471; goto T470; T470:; V274= Ct; goto T471; T471:;{object V275; V275= CMPcar((V273)); if(V275==Cnil)goto T473; {object V276 = V275; VMR42(V276)} goto T473; T473:;}{object V277; if((VV[86]->s.s_dbind)==Cnil){ V277= Cnil; goto T476;} if(((*(LnkLI137))((V272)))!=Cnil){ goto T477;} V277= Cnil; goto T476; goto T477; T477:; base[0]= (V272); vs_top=(vs_base=base+0)+1; (void) (*Lnk138)(); vs_top=sup; V277= vs_base[0]; goto T476; T476:; if(V277==Cnil)goto T475; {object V278 = V277; VMR42(V278)} goto T475; T475:;} if(((V274))!=Cnil){ goto T481;} {object V279 = Cnil; VMR42(V279)} goto T481; T481:; if(((*(LnkLI135))((V272)))==Cnil){ goto T484;} base[0]= VV[87]; base[1]= (V272); vs_top=(vs_base=base+0)+2; Lerror(); vs_top=sup; {object V280 = vs_base[0]; VMR42(V280)} goto T484; T484:; base[0]= VV[88]; base[1]= (V272); vs_top=(vs_base=base+0)+2; Lerror(); vs_top=sup; {object V281 = vs_base[0]; VMR42(V281)} va_end(ap); base[0]=base[0]; return Cnil;} } /* local entry for function FIND-CLASS-PREDICATE-FROM-CELL */ static object LI45(object V283,object V282,object first,...) { va_list ap; int narg = VFUN_NARGS; VMB43 VMS43 VMV43 {object V284; object V285; object V286; va_start(ap,first); if(narg <2) too_few_arguments(); V284= V283; V285= V282; narg = narg - 2; if (narg <= 0) goto T490; else { V286= first;} --narg; goto T491; goto T490; T490:; V286= Ct; goto T491; T491:; if((CMPcar((V285)))!=Cnil){ goto T493;} (void)((VFUN_NARGS=3,(*(LnkLI139))((V284),(V285),(V286)))); goto T493; T493:; {object V287 = CMPcadr((V285)); VMR43(V287)} va_end(ap); return Cnil;} } /* local entry for function LEGAL-CLASS-NAME-P */ static object LI46(V289) object V289; { VMB44 VMS44 VMV44 goto TTL; TTL:; {object V290 = (type_of((V289))==t_symbol?Ct:Cnil); VMR44(V290)} return Cnil; } /* local entry for function FIND-CLASS */ static object LI47(object V291,object first,...) { va_list ap; int narg = VFUN_NARGS; VMB45 VMS45 VMV45 {object V292; object V293; object V294; va_start(ap,first); if(narg <1) too_few_arguments(); V292= V291; narg = narg - 1; if (narg <= 0) goto T496; else { V293= first;} if (--narg <= 0) goto T497; else { V294= va_arg(ap,object);} --narg; goto T498; goto T496; T496:; V293= Ct; goto T497; T497:; V294= Cnil; goto T498; T498:; V295= (VFUN_NARGS=2,(*(LnkLI140))((V292),(V293))); {object V296 = (VFUN_NARGS=3,(*(LnkLI139))((V292),/* INLINE-ARGS */V295,(V293))); VMR45(V296)} va_end(ap); return Cnil;} } /* local entry for function FIND-CLASS-PREDICATE */ static object LI48(object V297,object first,...) { va_list ap; int narg = VFUN_NARGS; VMB46 VMS46 VMV46 {object V298; object V299; object V300; va_start(ap,first); if(narg <1) too_few_arguments(); V298= V297; narg = narg - 1; if (narg <= 0) goto T501; else { V299= first;} if (--narg <= 0) goto T502; else { V300= va_arg(ap,object);} --narg; goto T503; goto T501; T501:; V299= Ct; goto T502; T502:; V300= Cnil; goto T503; T503:; V301= (VFUN_NARGS=2,(*(LnkLI140))((V298),(V299))); {object V302 = (VFUN_NARGS=3,(*(LnkLI141))((V298),/* INLINE-ARGS */V301,(V299))); VMR46(V302)} va_end(ap); return Cnil;} } /* function definition for G2145 */ static void L49() {register object *base=vs_base; register object *sup=base+VM47; VC47 vs_check; {register object V303; object V304; object V305; object V306; if(vs_top-vs_base<2) too_few_arguments(); if(vs_top-vs_base>4) too_many_arguments(); V303=(base[0]); V304=(base[1]); vs_base=vs_base+2; if(vs_base>=vs_top){vs_top=sup;goto T506;} V305=(base[2]); vs_base++; if(vs_base>=vs_top){vs_top=sup;goto T507;} V306=(base[3]); vs_top=sup; goto T508; goto T506; T506:; V305= Cnil; goto T507; T507:; V306= Cnil; goto T508; T508:; if(((*(LnkLI135))((V304)))==Cnil){ goto T512;} {object V307; V307= (VFUN_NARGS=1,(*(LnkLI140))((V304))); (V307)->c.c_car = V303; if(((VV[89]->s.s_dbind))==(VV[90])){ goto T518;} if(!(((VV[89]->s.s_dbind))==(VV[91]))){ goto T517;} goto T518; T518:; {object V311; base[6]= (V303); vs_top=(vs_base=base+6)+1; (void) (*Lnk142)(Lclptr142); vs_top=sup; base[5]= vs_base[0]; vs_top=(vs_base=base+5)+1; Lsymbol_function(); vs_top=sup; V311= vs_base[0]; (CMPcdr(V307))->c.c_car = (V311); (void)(CMPcdr(V307));} if(((V303))==Cnil){ goto T517;} base[4]= (V303); vs_top=(vs_base=base+4)+1; (void) (*Lnk143)(Lclptr143); vs_top=sup; if((vs_base[0])!=Cnil){ goto T517;} {register object V312; register object V313; V312= CMPcddr((V307)); V313= CMPcar((V312)); goto T535; T535:; if(!(((V312))==Cnil)){ goto T536;} goto T517; goto T536; T536:; V314= (VFUN_NARGS=4,(*(LnkLI145))((V303),CMPcar((V313)),Cnil,CMPcdr((V313)))); (void)((*(LnkLI144))(/* INLINE-ARGS */V314,VV[92])); V312= CMPcdr((V312)); V313= CMPcar((V312)); goto T535;} goto T517; T517:; base[4]= (V303); vs_top=(vs_base=base+4)+1; return;} goto T512; T512:; base[4]= VV[93]; base[5]= (V304); vs_top=(vs_base=base+4)+2; Lerror(); return; } } /* function definition for G2154 */ static void L50() {register object *base=vs_base; register object *sup=base+VM48; VC48 vs_check; {object V315; object V316; check_arg(2); V315=(base[0]); V316=(base[1]); vs_top=sup; goto TTL; TTL:; if(((*(LnkLI135))((V316)))==Cnil){ goto T549;} {object V317; V317= (VFUN_NARGS=1,(*(LnkLI140))((V316))); (CMPcdr((V317)))->c.c_car = V315; (void)(CMPcdr((V317))); base[3]= V315; vs_top=(vs_base=base+3)+1; return;} goto T549; T549:; base[2]= VV[94]; base[3]= (V316); vs_top=(vs_base=base+2)+2; Lerror(); return; } } /* function definition for FIND-WRAPPER */ static void L51() {register object *base=vs_base; register object *sup=base+VM49; VC49 vs_check; {object V319; check_arg(1); V319=(base[0]); vs_top=sup; goto TTL; TTL:; base[1]= (VFUN_NARGS=1,(*(LnkLI146))((V319))); vs_top=(vs_base=base+1)+1; (void) (*Lnk147)(Lclptr147); return; } } /* macro definition for GATHERING1 */ static void L52() {register object *base=vs_base; register object *sup=base+VM50; VC50 vs_check; check_arg(2); vs_top=sup; {object V320=base[0]->c.c_cdr; if(endp(V320))invalid_macro_call(); base[2]= (V320->c.c_car); V320=V320->c.c_cdr; base[3]= V320;} V321= list(2,VV[96],base[2]); V322= make_cons(/* INLINE-ARGS */V321,Cnil); base[4]= list(3,VV[95],/* INLINE-ARGS */V322,listA(3,VV[97],VV[98],base[3])); vs_top=(vs_base=base+4)+1; return; } /* macro definition for VECTORIZING */ static void L53() {register object *base=vs_base; register object *sup=base+VM51; VC51 vs_check; check_arg(2); vs_top=sup; {object V323=base[0]->c.c_cdr; {object V324=getf(V323,VV[148],OBJNULL); if(V324==OBJNULL){ base[2]= small_fixnum(0);} else { base[2]= V324; }} check_other_key(V323,1,VV[148]);} V325= list(2,VV[99],base[2]); base[3]= list(3,VV[27],make_cons(/* INLINE-ARGS */V325,VV[100]),VV[101]); vs_top=(vs_base=base+3)+1; return; } /* macro definition for *LIST-ELEMENTS */ static void L54() {register object *base=vs_base; register object *sup=base+VM52; VC52 vs_check; check_arg(2); vs_top=sup; {object V326=base[0]->c.c_cdr; if(endp(V326))invalid_macro_call(); base[2]= (V326->c.c_car); V326=V326->c.c_cdr; {object V327=getf(V326,VV[149],OBJNULL); if(V327==OBJNULL){ base[3]= (VV[55]->s.s_gfdef);} else { base[3]= V327; }} check_other_key(V326,1,VV[149]);} V328= list(2,VV[58],base[2]); V329= make_cons(/* INLINE-ARGS */V328,Cnil); base[4]= list(3,VV[24],/* INLINE-ARGS */V329,list(2,VV[102],list(3,VV[103],VV[104],list(4,VV[16],VV[105],VV[106],list(3,VV[107],VV[108],list(3,VV[50],VV[58],list(3,VV[109],base[3],VV[58]))))))); vs_top=(vs_base=base+4)+1; return; } /* macro definition for *LIST-TAILS */ static void L55() {register object *base=vs_base; register object *sup=base+VM53; VC53 vs_check; check_arg(2); vs_top=sup; {object V330=base[0]->c.c_cdr; if(endp(V330))invalid_macro_call(); base[2]= (V330->c.c_car); V330=V330->c.c_cdr; {object V331=getf(V330,VV[149],OBJNULL); if(V331==OBJNULL){ base[3]= (VV[55]->s.s_gfdef);} else { base[3]= V331; }} check_other_key(V330,1,VV[149]);} V332= list(2,VV[58],base[2]); V333= make_cons(/* INLINE-ARGS */V332,Cnil); base[4]= list(3,VV[24],/* INLINE-ARGS */V333,list(2,VV[102],list(3,VV[103],VV[110],list(3,VV[107],VV[111],list(3,VV[50],VV[58],list(3,VV[109],base[3],VV[58])))))); vs_top=(vs_base=base+4)+1; return; } /* macro definition for FUNCTION-FUNCALL */ static void L56() {register object *base=vs_base; register object *sup=base+VM54; VC54 vs_check; check_arg(2); vs_top=sup; {object V334=base[0]->c.c_cdr; if(endp(V334))invalid_macro_call(); base[2]= (V334->c.c_car); V334=V334->c.c_cdr; base[3]= V334;} base[4]= listA(3,VV[109],base[2],base[3]); vs_top=(vs_base=base+4)+1; return; } /* macro definition for FUNCTION-APPLY */ static void L57() {register object *base=vs_base; register object *sup=base+VM55; VC55 vs_check; check_arg(2); vs_top=sup; {object V335=base[0]->c.c_cdr; if(endp(V335))invalid_macro_call(); base[2]= (V335->c.c_car); V335=V335->c.c_cdr; base[3]= V335;} base[4]= listA(3,VV[112],base[2],base[3]); vs_top=(vs_base=base+4)+1; return; } /* local entry for function GET-SETF-FUNCTION-NAME */ static object LI58(V337) object V337; { VMB56 VMS56 VMV56 goto TTL; TTL:; {object V338 = list(2,VV[45],(V337)); VMR56(V338)} return Cnil; } /* macro definition for DO-STANDARD-DEFSETF */ static void L59() {register object *base=vs_base; register object *sup=base+VM57; VC57 vs_check; check_arg(2); vs_top=sup; {object V339=base[0]->c.c_cdr; base[2]= V339;} base[3]= list(3,VV[113],VV[114],list(3,VV[115],list(2,VV[116],list(2,VV[42],base[2])),VV[117])); vs_top=(vs_base=base+3)+1; return; } /* local entry for function DO-STANDARD-DEFSETFS-FOR-DEFCLASS */ static object LI60(V341) object V341; { VMB58 VMS58 VMV58 goto TTL; TTL:; {register object V342; register object V343; V342= (V341); V343= CMPcar((V342)); goto T562; T562:; if(!(((V342))==Cnil)){ goto T563;} {object V344 = Cnil; VMR58(V344)} goto T563; T563:; (void)((*(LnkLI150))((V343))); V342= CMPcdr((V342)); V343= CMPcar((V342)); goto T562;} base[0]=base[0]; return Cnil; } /* local entry for function DO-STANDARD-DEFSETF-1 */ static object LI61(V346) object V346; { VMB59 VMS59 VMV59 goto TTL; TTL:; {object V347 = Cnil; VMR59(V347)} return Cnil; } /* local entry for function SETFBOUNDP */ static object LI62(V349) object V349; { VMB60 VMS60 VMV60 goto TTL; TTL:;{object V350; {object V351 =((V349))->s.s_plist; object ind= VV[118]; while(V351!=Cnil){ if(V351->c.c_car==ind){ V350= (V351->c.c_cdr->c.c_car); goto T574; }else V351=V351->c.c_cdr->c.c_cdr;} V350= Cnil;} goto T574; T574:; if(V350==Cnil)goto T573; {object V352 = V350; VMR60(V352)} goto T573; T573:;}{object V353; {object V354 =((V349))->s.s_plist; object ind= VV[119]; while(V354!=Cnil){ if(V354->c.c_car==ind){ V353= (V354->c.c_cdr->c.c_car); goto T576; }else V354=V354->c.c_cdr->c.c_cdr;} V353= Cnil;} goto T576; T576:; if(V353==Cnil)goto T575; {object V355 = V353; VMR60(V355)} goto T575; T575:;} {object V356 =((V349))->s.s_plist; object ind= VV[120]; while(V356!=Cnil){ if(V356->c.c_car==ind){ {object V357 = (V356->c.c_cdr->c.c_car); VMR60(V357)} }else V356=V356->c.c_cdr->c.c_cdr;} {object V358 = Cnil; VMR60(V358)}} return Cnil; } /* macro definition for ORIGINAL-DEFINITION */ static void L63() {register object *base=vs_base; register object *sup=base+VM61; VC61 vs_check; check_arg(2); vs_top=sup; {object V359=base[0]->c.c_cdr; if(endp(V359))invalid_macro_call(); base[2]= (V359->c.c_car); V359=V359->c.c_cdr; if(!endp(V359))invalid_macro_call();} base[3]= list(3,VV[121],base[2],VV[122]); vs_top=(vs_base=base+3)+1; return; } /* local entry for function REDEFINE-FUNCTION */ static object LI64(V362,V363) register object V362;object V363; { VMB62 VMS62 VMV62 goto TTL; TTL:; base[0]= V362; base[1]= (VV[123]->s.s_dbind); vs_top=(vs_base=base+0)+2; Ladjoin(); vs_top=sup; (VV[123]->s.s_dbind)= vs_base[0]; {object V365 =((V362))->s.s_plist; object ind= VV[124]; while(V365!=Cnil){ if(V365->c.c_car==ind){ if(((V365->c.c_cdr->c.c_car))!=Cnil){ goto T581;} goto T583; }else V365=V365->c.c_cdr->c.c_cdr;}} goto T583; T583:; base[0]= (V362); vs_top=(vs_base=base+0)+1; Lsymbol_function(); vs_top=sup; V366= vs_base[0]; (void)(sputprop((V362),VV[124],V366)); goto T581; T581:; base[0]= (V362); base[2]= (V363); vs_top=(vs_base=base+2)+1; Lsymbol_function(); vs_top=sup; base[1]= vs_base[0]; vs_top=(vs_base=base+0)+2; siLfset(); vs_top=sup; {object V367 = vs_base[0]; VMR62(V367)} base[0]=base[0]; return Cnil; } /* local function CLOSURE */ static void LC65(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM63; VC63 vs_check; {object V368; check_arg(1); V368=(base[0]); vs_top=sup; base[1]= (base0[0]->c.c_car); vs_top=(vs_base=base+1)+1; return; } } /* local function MAKE-POP */ static void L26(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM64; VC64 vs_check; {object V369; object V370; object V371; check_arg(3); V369=(base[0]); V370=(base[1]); V371=(base[2]); vs_top=sup; goto TTL; TTL:; {object V372; if(!(number_compare(small_fixnum(0),base0[0])==0)){ goto T591;} if((V369)==Cnil){ V373= Cnil; goto T593;} V373= list(3,VV[50],(V369),list(2,VV[22],(V370))); goto T593; T593:; if((V371)==Cnil){ V374= Cnil; goto T594;} V374= list(3,VV[50],(V371),list(2,VV[55],(V370))); goto T594; T594:; V372= list(3,VV[44],V373,V374); goto T589; goto T591; T591:; if(((V371))!=Cnil){ goto T596;} if((V369)==Cnil){ V372= Cnil; goto T589;} V372= list(3,VV[50],(V369),(*(LnkLI151))(base0[0],(V370))); goto T589; goto T596; T596:; V375= list(3,VV[50],(V371),(*(LnkLI152))(base0[0],(V370))); if((V369)==Cnil){ V376= Cnil; goto T598;} V376= list(3,VV[50],(V369),list(2,VV[56],(V371))); goto T598; T598:; V372= list(3,VV[44],/* INLINE-ARGS */V375,V376); goto T589; T589:; base0[0]= small_fixnum(0); base[3]= (V372); vs_top=(vs_base=base+3)+1; return;} } } static object LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,2,first,ap);va_end(ap);return V1;} /* MAKE-CDXR */ static object LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)(void *)&LnkLI151,2,first,ap);va_end(ap);return V1;} /* MAKE-CAXR */ static object LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[150],(void **)(void *)&LnkLI150,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */ static void LnkT147(ptr) object *ptr;{ call_or_link_closure(VV[147],(void **)(void *)&Lnk147,(void **)(void *)&Lclptr147);} /* CLASS-WRAPPER */ static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[146],(void **)(void *)&LnkLI146,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[145],(void **)(void *)&LnkLI145,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */ static object LnkTLI144(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[144],(void **)(void *)&LnkLI144,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */ static void LnkT143(ptr) object *ptr;{ call_or_link_closure(VV[143],(void **)(void *)&Lnk143,(void **)(void *)&Lclptr143);} /* FORWARD-REFERENCED-CLASS-P */ static void LnkT142(ptr) object *ptr;{ call_or_link_closure(VV[142],(void **)(void *)&Lnk142,(void **)(void *)&Lclptr142);} /* CLASS-PREDICATE-NAME */ static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[141],(void **)(void *)&LnkLI141,first,ap);va_end(ap);return V1;} /* FIND-CLASS-PREDICATE-FROM-CELL */ static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[140],(void **)(void *)&LnkLI140,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */ static object LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[139],(void **)(void *)&LnkLI139,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ static void LnkT138(){ call_or_link(VV[138],(void **)(void *)&Lnk138);} /* FIND-STRUCTURE-CLASS */ static object LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[137],(void **)(void *)&LnkLI137,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */ static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,1,first,ap);va_end(ap);return V1;} /* LEGAL-CLASS-NAME-P */ static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* DELETE */ static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[133],(void **)(void *)&LnkLI133,2,first,ap);va_end(ap);return V1;} /* DESTRUCTURE-INTERNAL */ static void LnkT132(){ call_or_link(VV[132],(void **)(void *)&Lnk132);} /* DESTRUCTURE */ static void LnkT131(){ call_or_link(VV[131],(void **)(void *)&Lnk131);} /* EXTRACT-DECLARATIONS */ static object LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[128],(void **)(void *)&LnkLI128,first,ap);va_end(ap);return V1;} /* STRING-APPEND */ static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* CONCATENATE */ static object LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[126],(void **)(void *)&LnkLI126,2,first,ap);va_end(ap);return V1;} /* REMTAIL */ static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,2,first,ap);va_end(ap);return V1;} /* MAKE-PLIST */ #ifdef SYSTEM_SPECIAL_INIT SYSTEM_SPECIAL_INIT #endif