#include "cmpinclude.h" #include "pcl_precom2.h" void init_pcl_precom2(){do_init(VV);} /* function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 0)10614 */ static void L1() {register object *base=vs_base; register object *sup=base+VM1; VC1 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V1= VV[232]; base[0]= (*(LnkLI231))(VV[0],VV[1],V1,VV[3],VV[4]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 1)10614 */ static void L2() {register object *base=vs_base; register object *sup=base+VM2; VC2 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V2= VV[233]; base[0]= (*(LnkLI231))(VV[5],VV[6],V2,VV[7],VV[4]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 2)10614 */ static void L3() {register object *base=vs_base; register object *sup=base+VM3; VC3 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V3= VV[234]; base[0]= (*(LnkLI231))(VV[8],VV[9],V3,VV[23],VV[4]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 3)10614 */ static void L4() {register object *base=vs_base; register object *sup=base+VM4; VC4 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V4= VV[235]; base[0]= (*(LnkLI231))(VV[24],VV[25],V4,VV[30],VV[4]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 4)10614 */ static void L5() {register object *base=vs_base; register object *sup=base+VM5; VC5 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V5= VV[236]; base[0]= (*(LnkLI231))(VV[31],VV[32],V5,VV[33],VV[4]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 5)10614 */ static void L6() {register object *base=vs_base; register object *sup=base+VM6; VC6 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V6= VV[237]; base[0]= (*(LnkLI231))(VV[34],VV[35],V6,VV[37],VV[4]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 6)10614 */ static void L7() {register object *base=vs_base; register object *sup=base+VM7; VC7 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V7= VV[238]; base[0]= (*(LnkLI231))(VV[38],VV[39],V7,VV[44],VV[4]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 7)10614 */ static void L8() {register object *base=vs_base; register object *sup=base+VM8; VC8 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V8= VV[239]; base[0]= (*(LnkLI231))(VV[45],VV[46],V8,VV[47],VV[4]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 8)10614 */ 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:; V9= VV[240]; base[0]= (*(LnkLI231))(VV[48],VV[49],V9,VV[51],VV[4]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L10() {register object *base=vs_base; register object *sup=base+VM10; VC10 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V10= VV[242]; base[0]= (*(LnkLI241))(VV[52],VV[53],VV[4],V10); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L11() {register object *base=vs_base; register object *sup=base+VM11; VC11 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V11= VV[243]; base[0]= (*(LnkLI241))(VV[52],VV[62],VV[4],V11); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L12() {register object *base=vs_base; register object *sup=base+VM12; VC12 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V12= VV[244]; base[0]= (*(LnkLI241))(VV[52],VV[67],VV[4],V12); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L13() {register object *base=vs_base; register object *sup=base+VM13; VC13 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V13= VV[245]; base[0]= (*(LnkLI241))(VV[52],VV[72],VV[4],V13); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L14() {register object *base=vs_base; register object *sup=base+VM14; VC14 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V14= VV[246]; base[0]= (*(LnkLI241))(VV[52],VV[77],VV[4],V14); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L15() {register object *base=vs_base; register object *sup=base+VM15; VC15 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V15= VV[247]; base[0]= (*(LnkLI241))(VV[52],VV[83],VV[4],V15); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L16() {register object *base=vs_base; register object *sup=base+VM16; VC16 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V16= VV[248]; base[0]= (*(LnkLI241))(VV[52],VV[87],VV[4],V16); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L17() {register object *base=vs_base; register object *sup=base+VM17; VC17 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V17= VV[249]; base[0]= (*(LnkLI241))(VV[52],VV[91],VV[4],V17); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L18() {register object *base=vs_base; register object *sup=base+VM18; VC18 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V18= VV[250]; base[0]= (*(LnkLI241))(VV[52],VV[96],VV[4],V18); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L19() {register object *base=vs_base; register object *sup=base+VM19; VC19 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V19= VV[251]; base[0]= (*(LnkLI241))(VV[52],VV[100],VV[4],V19); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L20() {register object *base=vs_base; register object *sup=base+VM20; VC20 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V20= VV[252]; base[0]= (*(LnkLI241))(VV[52],VV[104],VV[4],V20); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L21() {register object *base=vs_base; register object *sup=base+VM21; VC21 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V21= VV[253]; base[0]= (*(LnkLI241))(VV[52],VV[108],VV[4],V21); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L22() {register object *base=vs_base; register object *sup=base+VM22; VC22 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V22= VV[254]; base[0]= (*(LnkLI241))(VV[52],VV[114],VV[4],V22); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L23() {register object *base=vs_base; register object *sup=base+VM23; VC23 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V23= VV[255]; base[0]= (*(LnkLI241))(VV[52],VV[119],VV[4],V23); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L24() {register object *base=vs_base; register object *sup=base+VM24; VC24 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V24= VV[256]; base[0]= (*(LnkLI241))(VV[52],VV[123],VV[4],V24); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */ static void L25() {register object *base=vs_base; register object *sup=base+VM25; VC25 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V25= VV[257]; base[0]= (*(LnkLI241))(VV[52],VV[128],VV[4],V25); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CONSTANT-VALUE)10649 */ static void L26() {register object *base=vs_base; register object *sup=base+VM26; VC26 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V26= VV[258]; base[0]= (*(LnkLI241))(VV[132],VV[133],VV[4],V26); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CONSTANT-VALUE)10649 */ static void L27() {register object *base=vs_base; register object *sup=base+VM27; VC27 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V27= VV[259]; base[0]= (*(LnkLI241))(VV[132],VV[135],VV[4],V27); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)10649 */ static void L28() {register object *base=vs_base; register object *sup=base+VM28; VC28 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V28= VV[260]; base[0]= (*(LnkLI241))(VV[137],VV[138],VV[4],V28); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)10649 */ static void L29() {register object *base=vs_base; register object *sup=base+VM29; VC29 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V29= VV[261]; base[0]= (*(LnkLI241))(VV[137],VV[142],VV[4],V29); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)10649 */ static void L30() {register object *base=vs_base; register object *sup=base+VM30; VC30 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V30= VV[262]; base[0]= (*(LnkLI241))(VV[137],VV[148],VV[4],V30); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)10649 */ static void L31() {register object *base=vs_base; register object *sup=base+VM31; VC31 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V31= VV[263]; base[0]= (*(LnkLI241))(VV[137],VV[153],VV[4],V31); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)10649 */ static void L32() {register object *base=vs_base; register object *sup=base+VM32; VC32 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V32= VV[264]; base[0]= (*(LnkLI241))(VV[137],VV[157],VV[4],V32); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 0)10834 */ static void L33() {register object *base=vs_base; register object *sup=base+VM33; VC33 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V33= VV[266]; base[0]= (*(LnkLI265))(VV[162],V33,VV[4],VV[167]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 1)10834 */ static void L34() {register object *base=vs_base; register object *sup=base+VM34; VC34 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V34= VV[267]; base[0]= (*(LnkLI265))(VV[168],V34,VV[4],VV[170]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 2)10834 */ static void L35() {register object *base=vs_base; register object *sup=base+VM35; VC35 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V35= VV[268]; base[0]= (*(LnkLI265))(VV[171],V35,VV[4],VV[173]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 3)10834 */ static void L36() {register object *base=vs_base; register object *sup=base+VM36; VC36 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V36= VV[269]; base[0]= (*(LnkLI265))(VV[174],V36,VV[4],VV[176]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 4)10834 */ static void L37() {register object *base=vs_base; register object *sup=base+VM37; VC37 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V37= VV[270]; base[0]= (*(LnkLI265))(VV[177],V37,VV[4],VV[179]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 5)10834 */ static void L38() {register object *base=vs_base; register object *sup=base+VM38; VC38 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V38= VV[271]; base[0]= (*(LnkLI265))(VV[180],V38,VV[4],VV[182]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 6)10834 */ static void L39() {register object *base=vs_base; register object *sup=base+VM39; VC39 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V39= VV[272]; base[0]= (*(LnkLI265))(VV[183],V39,VV[4],VV[187]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 7)10834 */ static void L40() {register object *base=vs_base; register object *sup=base+VM40; VC40 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V40= VV[273]; base[0]= (*(LnkLI265))(VV[188],V40,VV[4],VV[190]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 8)10834 */ static void L41() {register object *base=vs_base; register object *sup=base+VM41; VC41 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V41= VV[274]; base[0]= (*(LnkLI265))(VV[191],V41,VV[4],VV[193]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 9)10834 */ static void L42() {register object *base=vs_base; register object *sup=base+VM42; VC42 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V42= VV[275]; base[0]= (*(LnkLI265))(VV[194],V42,VV[4],VV[196]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 10)10834 */ static void L43() {register object *base=vs_base; register object *sup=base+VM43; VC43 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V43= VV[276]; base[0]= (*(LnkLI265))(VV[197],V43,VV[4],VV[199]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 11)10834 */ static void L44() {register object *base=vs_base; register object *sup=base+VM44; VC44 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V44= VV[277]; base[0]= (*(LnkLI265))(VV[200],V44,VV[4],VV[202]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 12)10834 */ static void L45() {register object *base=vs_base; register object *sup=base+VM45; VC45 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V45= VV[278]; base[0]= (*(LnkLI265))(VV[203],V45,VV[4],VV[205]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 13)10834 */ static void L46() {register object *base=vs_base; register object *sup=base+VM46; VC46 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V46= VV[279]; base[0]= (*(LnkLI265))(VV[206],V46,VV[4],VV[208]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 14)10834 */ static void L47() {register object *base=vs_base; register object *sup=base+VM47; VC47 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V47= VV[280]; base[0]= (*(LnkLI265))(VV[209],V47,VV[4],VV[211]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 15)10834 */ static void L48() {register object *base=vs_base; register object *sup=base+VM48; VC48 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V48= VV[281]; base[0]= (*(LnkLI265))(VV[212],V48,VV[4],VV[214]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 16)10834 */ static void L49() {register object *base=vs_base; register object *sup=base+VM49; VC49 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V49= VV[282]; base[0]= (*(LnkLI265))(VV[215],V49,VV[4],VV[218]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 17)10834 */ static void L50() {register object *base=vs_base; register object *sup=base+VM50; VC50 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V50= VV[283]; base[0]= (*(LnkLI265))(VV[219],V50,VV[4],VV[221]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 18)10834 */ static void L51() {register object *base=vs_base; register object *sup=base+VM51; VC51 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V51= VV[284]; base[0]= (*(LnkLI265))(VV[222],V51,VV[4],VV[224]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 19)10834 */ static void L52() {register object *base=vs_base; register object *sup=base+VM52; VC52 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V52= VV[285]; base[0]= (*(LnkLI265))(VV[225],V52,VV[4],VV[227]); vs_top=(vs_base=base+0)+1; return; } /* function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 20)10834 */ static void L53() {register object *base=vs_base; register object *sup=base+VM53; VC53 vs_check; check_arg(0); vs_top=sup; goto TTL; TTL:; V53= VV[286]; base[0]= (*(LnkLI265))(VV[228],V53,VV[4],VV[230]); vs_top=(vs_base=base+0)+1; return; } /* local function CLOSURE */ static void LC106(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM54; VC54 vs_check; {object V54; check_arg(2); base[0]=MMcons(base[0],Cnil); V54=(base[1]); vs_top=sup; base[2]= make_cclosure_new(LC107,Cnil,base[0],Cdata); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC107(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM55; VC55 vs_check; {register object V55; object V56; check_arg(2); V55=(base[0]); V56=(base[1]); vs_top=sup; {register object V57; object V58; register object V59; register object V60; object V61; register object V62; V58= CMPcar((base0[0]->c.c_car)); V57= (V56); V59= Cnil; V60= Cnil; V61= Cnil; V62= Cnil; if(type_of(V55)==t_structure){ goto T66;} goto T64; goto T66; T66:; if(!(((V55)->str.str_def)==(VV[229]))){ goto T64;} V59= STREF(object,(V55),4); V60= STREF(object,(V55),0); goto T62; goto T64; T64:;{object V64; V64= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V55); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V65= vs_base[0]; if(!((V64)==(CMPcar(V65)))){ goto T72;}} V59= CMPcar(((V55))->cc.cc_turbo[12]); V60= CMPcar(((V55))->cc.cc_turbo[13]); goto T62; goto T72; T72:; V60= (*(LnkLI289))((V55)); goto T62; T62:; V61= ((V60))->v.v_self[11]; V57= CMPcdr((V57)); {object V66; V66= CMPcar((V57)); V57= CMPcdr((V57)); V62= (V66);} (void)(((V59))->v.v_self[1]= ((V62))); if(!((((V59))->v.v_self[0])==(VV[43]))){ goto T54;} V62= Cnil; (void)(((V59))->v.v_self[0]= ((V62)));} goto T54; T54:; base[2]= (V56); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC105(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM56; VC56 vs_check; {object V67; check_arg(2); base[0]=MMcons(base[0],Cnil); V67=(base[1]); vs_top=sup; base[2]= make_cclosure_new(LC108,Cnil,base[0],Cdata); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC108(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM57; VC57 vs_check; {register object V68; object V69; check_arg(2); V68=(base[0]); V69=(base[1]); vs_top=sup; {register object V70; object V71; register object V72; register object V73; object V74; object V75; V71= CMPcar((base0[0]->c.c_car)); V70= (V69); V72= Cnil; V73= Cnil; V74= Cnil; V75= Cnil; if(type_of(V68)==t_structure){ goto T107;} goto T105; goto T107; T107:; if(!(((V68)->str.str_def)==(VV[226]))){ goto T105;} V72= STREF(object,(V68),4); V73= STREF(object,(V68),0); goto T103; goto T105; T105:;{object V77; V77= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V68); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V78= vs_base[0]; if(!((V77)==(CMPcar(V78)))){ goto T113;}} V72= CMPcar(((V68))->cc.cc_turbo[12]); V73= CMPcar(((V68))->cc.cc_turbo[13]); goto T103; goto T113; T113:; V73= (*(LnkLI289))((V68)); goto T103; T103:; V74= ((V73))->v.v_self[11]; V70= (V69); V70= CMPcdr((V70)); {object V79; V79= CMPcar((V70)); V70= CMPcdr((V70)); V75= (V79);} (void)(((V72))->v.v_self[1]= ((V75)));} base[2]= (V69); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC104(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM58; VC58 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC109,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC109(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM59; VC59 vs_check; {register object V80; object V81; check_arg(2); V80=(base[0]); V81=(base[1]); vs_top=sup; {register object V82; object V83; register object V84; register object V85; object V86; register object V87; V83= CMPcar((base0[1]->c.c_car)); V82= (V81); V84= Cnil; V85= Cnil; V86= Cnil; V87= Cnil; if(type_of(V80)==t_structure){ goto T145;} goto T143; goto T145; T145:; if(!(((V80)->str.str_def)==(VV[223]))){ goto T143;} V84= STREF(object,(V80),4); V85= STREF(object,(V80),0); goto T141; goto T143; T143:;{object V89; V89= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V80); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V90= vs_base[0]; if(!((V89)==(CMPcar(V90)))){ goto T151;}} V84= CMPcar(((V80))->cc.cc_turbo[12]); V85= CMPcar(((V80))->cc.cc_turbo[13]); goto T141; goto T151; T151:; V85= (*(LnkLI289))((V80)); goto T141; T141:; V86= ((V85))->v.v_self[11]; V82= CMPcdr((V82)); {object V91; V91= CMPcar((V82)); V82= CMPcdr((V82)); V87= (V91);} (void)(((V84))->v.v_self[8]= ((V87))); V82= CMPcdr((V82)); {object V92; V92= CMPcar((V82)); V82= CMPcdr((V82)); V87= (V92);} (void)(((V84))->v.v_self[2]= ((V87))); V82= CMPcdr((V82)); {object V93; V93= CMPcar((V82)); V82= CMPcdr((V82)); V87= (V93);} (void)(((V84))->v.v_self[0]= ((V87))); V82= CMPcdr((V82)); {object V94; V94= CMPcar((V82)); V82= CMPcdr((V82)); V87= (V94);} (void)(((V84))->v.v_self[3]= ((V87))); V82= CMPcdr((V82)); {object V95; V95= CMPcar((V82)); V82= CMPcdr((V82)); V87= (V95);} (void)(((V84))->v.v_self[4]= ((V87))); V82= CMPcdr((V82)); {object V96; V96= CMPcar((V82)); V82= CMPcdr((V82)); V87= (V96);} (void)(((V84))->v.v_self[5]= ((V87))); V82= CMPcdr((V82)); {object V97; V97= CMPcar((V82)); V82= CMPcdr((V82)); V87= (V97);} (void)(((V84))->v.v_self[1]= ((V87))); if(!((((V84))->v.v_self[6])==(VV[43]))){ goto T218;} V87= Ct; (void)(((V84))->v.v_self[6]= ((V87))); goto T218; T218:; if(!((((V84))->v.v_self[7])==(VV[43]))){ goto T223;} V87= ((base0[0]->c.c_car))->v.v_self[9]; (void)(((V84))->v.v_self[7]= ((V87))); goto T223; T223:; if(!((((V84))->v.v_self[9])==(VV[43]))){ goto T133;} V87= VV[217]; (void)(((V84))->v.v_self[9]= ((V87)));} goto T133; T133:; base[2]= (V81); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC103(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM60; VC60 vs_check; {object V98; check_arg(2); base[0]=MMcons(base[0],Cnil); V98=(base[1]); vs_top=sup; base[2]= make_cclosure_new(LC110,Cnil,base[0],Cdata); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC110(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM61; VC61 vs_check; {register object V99; object V100; check_arg(2); V99=(base[0]); V100=(base[1]); vs_top=sup; {register object V101; object V102; register object V103; register object V104; object V105; register object V106; V102= CMPcar((base0[0]->c.c_car)); V101= (V100); V103= Cnil; V104= Cnil; V105= Cnil; V106= Cnil; if(type_of(V99)==t_structure){ goto T244;} goto T242; goto T244; T244:; if(!(((V99)->str.str_def)==(VV[220]))){ goto T242;} V103= STREF(object,(V99),4); V104= STREF(object,(V99),0); goto T240; goto T242; T242:;{object V108; V108= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V99); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V109= vs_base[0]; if(!((V108)==(CMPcar(V109)))){ goto T250;}} V103= CMPcar(((V99))->cc.cc_turbo[12]); V104= CMPcar(((V99))->cc.cc_turbo[13]); goto T240; goto T250; T250:; V104= (*(LnkLI289))((V99)); goto T240; T240:; V105= ((V104))->v.v_self[11]; V101= (V100); V101= CMPcdr((V101)); {object V110; V110= CMPcar((V101)); V101= CMPcdr((V101)); V106= (V110);} (void)(((V103))->v.v_self[8]= ((V106))); V101= CMPcdr((V101)); {object V111; V111= CMPcar((V101)); V101= CMPcdr((V101)); V106= (V111);} (void)(((V103))->v.v_self[2]= ((V106))); V101= CMPcdr((V101)); {object V112; V112= CMPcar((V101)); V101= CMPcdr((V101)); V106= (V112);} (void)(((V103))->v.v_self[0]= ((V106))); V101= CMPcdr((V101)); {object V113; V113= CMPcar((V101)); V101= CMPcdr((V101)); V106= (V113);} (void)(((V103))->v.v_self[3]= ((V106))); V101= CMPcdr((V101)); {object V114; V114= CMPcar((V101)); V101= CMPcdr((V101)); V106= (V114);} (void)(((V103))->v.v_self[4]= ((V106))); V101= CMPcdr((V101)); {object V115; V115= CMPcar((V101)); V101= CMPcdr((V101)); V106= (V115);} (void)(((V103))->v.v_self[5]= ((V106))); V101= CMPcdr((V101)); {object V116; V116= CMPcar((V101)); V101= CMPcdr((V101)); V106= (V116);} (void)(((V103))->v.v_self[1]= ((V106)));} base[2]= (V100); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC102(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM62; VC62 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC111,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC111(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM63; VC63 vs_check; {register object V117; object V118; check_arg(2); V117=(base[0]); V118=(base[1]); vs_top=sup; {register object V119; object V120; register object V121; register object V122; object V123; register object V124; V120= CMPcar((base0[1]->c.c_car)); V119= (V118); V121= Cnil; V122= Cnil; V123= Cnil; V124= Cnil; if(type_of(V117)==t_structure){ goto T330;} goto T328; goto T330; T330:; if(!(((V117)->str.str_def)==(VV[216]))){ goto T328;} V121= STREF(object,(V117),4); V122= STREF(object,(V117),0); goto T326; goto T328; T328:;{object V126; V126= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V117); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V127= vs_base[0]; if(!((V126)==(CMPcar(V127)))){ goto T336;}} V121= CMPcar(((V117))->cc.cc_turbo[12]); V122= CMPcar(((V117))->cc.cc_turbo[13]); goto T326; goto T336; T336:; V122= (*(LnkLI289))((V117)); goto T326; T326:; V123= ((V122))->v.v_self[11]; V119= CMPcdr((V119)); {object V128; V128= CMPcar((V119)); V119= CMPcdr((V119)); V124= (V128);} (void)(((V121))->v.v_self[8]= ((V124))); V119= CMPcdr((V119)); {object V129; V129= CMPcar((V119)); V119= CMPcdr((V119)); V124= (V129);} (void)(((V121))->v.v_self[0]= ((V124))); V119= CMPcdr((V119)); {object V130; V130= CMPcar((V119)); V119= CMPcdr((V119)); V124= (V130);} (void)(((V121))->v.v_self[3]= ((V124))); V119= CMPcdr((V119)); {object V131; V131= CMPcar((V119)); V119= CMPcdr((V119)); V124= (V131);} (void)(((V121))->v.v_self[4]= ((V124))); V119= CMPcdr((V119)); {object V132; V132= CMPcar((V119)); V119= CMPcdr((V119)); V124= (V132);} (void)(((V121))->v.v_self[5]= ((V124))); if(!((((V121))->v.v_self[1])==(VV[43]))){ goto T387;} V124= Cnil; (void)(((V121))->v.v_self[1]= ((V124))); goto T387; T387:; if(!((((V121))->v.v_self[2])==(VV[43]))){ goto T392;} V124= Cnil; (void)(((V121))->v.v_self[2]= ((V124))); goto T392; T392:; if(!((((V121))->v.v_self[6])==(VV[43]))){ goto T397;} V124= Ct; (void)(((V121))->v.v_self[6]= ((V124))); goto T397; T397:; if(!((((V121))->v.v_self[7])==(VV[43]))){ goto T402;} V124= ((base0[0]->c.c_car))->v.v_self[9]; (void)(((V121))->v.v_self[7]= ((V124))); goto T402; T402:; if(!((((V121))->v.v_self[9])==(VV[43]))){ goto T318;} V124= VV[217]; (void)(((V121))->v.v_self[9]= ((V124)));} goto T318; T318:; base[2]= (V118); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC101(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM64; VC64 vs_check; {object V133; check_arg(2); base[0]=MMcons(base[0],Cnil); V133=(base[1]); vs_top=sup; base[2]= make_cclosure_new(LC112,Cnil,base[0],Cdata); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC112(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM65; VC65 vs_check; {register object V134; object V135; check_arg(2); V134=(base[0]); V135=(base[1]); vs_top=sup; {register object V136; object V137; register object V138; register object V139; object V140; register object V141; V137= CMPcar((base0[0]->c.c_car)); V136= (V135); V138= Cnil; V139= Cnil; V140= Cnil; V141= Cnil; if(type_of(V134)==t_structure){ goto T423;} goto T421; goto T423; T423:; if(!(((V134)->str.str_def)==(VV[213]))){ goto T421;} V138= STREF(object,(V134),4); V139= STREF(object,(V134),0); goto T419; goto T421; T421:;{object V143; V143= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V134); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V144= vs_base[0]; if(!((V143)==(CMPcar(V144)))){ goto T429;}} V138= CMPcar(((V134))->cc.cc_turbo[12]); V139= CMPcar(((V134))->cc.cc_turbo[13]); goto T419; goto T429; T429:; V139= (*(LnkLI289))((V134)); goto T419; T419:; V140= ((V139))->v.v_self[11]; V136= (V135); V136= CMPcdr((V136)); {object V145; V145= CMPcar((V136)); V136= CMPcdr((V136)); V141= (V145);} (void)(((V138))->v.v_self[8]= ((V141))); V136= CMPcdr((V136)); {object V146; V146= CMPcar((V136)); V136= CMPcdr((V136)); V141= (V146);} (void)(((V138))->v.v_self[0]= ((V141))); V136= CMPcdr((V136)); {object V147; V147= CMPcar((V136)); V136= CMPcdr((V136)); V141= (V147);} (void)(((V138))->v.v_self[3]= ((V141))); V136= CMPcdr((V136)); {object V148; V148= CMPcar((V136)); V136= CMPcdr((V136)); V141= (V148);} (void)(((V138))->v.v_self[4]= ((V141))); V136= CMPcdr((V136)); {object V149; V149= CMPcar((V136)); V136= CMPcdr((V136)); V141= (V149);} (void)(((V138))->v.v_self[5]= ((V141)));} base[2]= (V135); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC100(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM66; VC66 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC113,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC113(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM67; VC67 vs_check; {register object V150; object V151; check_arg(2); V150=(base[0]); V151=(base[1]); vs_top=sup; {register object V152; object V153; register object V154; register object V155; object V156; register object V157; V153= CMPcar((base0[1]->c.c_car)); V152= (V151); V154= Cnil; V155= Cnil; V156= Cnil; V157= Cnil; if(type_of(V150)==t_structure){ goto T493;} goto T491; goto T493; T493:; if(!(((V150)->str.str_def)==(VV[210]))){ goto T491;} V154= STREF(object,(V150),4); V155= STREF(object,(V150),0); goto T489; goto T491; T491:;{object V159; V159= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V150); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V160= vs_base[0]; if(!((V159)==(CMPcar(V160)))){ goto T499;}} V154= CMPcar(((V150))->cc.cc_turbo[12]); V155= CMPcar(((V150))->cc.cc_turbo[13]); goto T489; goto T499; T499:; V155= (*(LnkLI289))((V150)); goto T489; T489:; V156= ((V155))->v.v_self[11]; V152= CMPcdr((V152)); {object V161; V161= CMPcar((V152)); V152= CMPcdr((V152)); V157= (V161);} (void)(((V154))->v.v_self[0]= ((V157))); V152= CMPcdr((V152)); {object V162; V162= CMPcar((V152)); V152= CMPcdr((V152)); V157= (V162);} (void)(((V154))->v.v_self[1]= ((V157))); V152= CMPcdr((V152)); {object V163; V163= CMPcar((V152)); V152= CMPcdr((V152)); V157= (V163);} (void)(((V154))->v.v_self[2]= ((V157))); V152= CMPcdr((V152)); {object V164; V164= CMPcar((V152)); V152= CMPcdr((V152)); V157= (V164);} (void)(((V154))->v.v_self[5]= ((V157))); V152= CMPcdr((V152)); {object V165; V165= CMPcar((V152)); V152= CMPcdr((V152)); V157= (V165);} (void)(((V154))->v.v_self[13]= ((V157))); V152= CMPcdr((V152)); {object V166; V166= CMPcar((V152)); V152= CMPcdr((V152)); V157= (V166);} (void)(((V154))->v.v_self[6]= ((V157))); V152= CMPcdr((V152)); {object V167; V167= CMPcar((V152)); V152= CMPcdr((V152)); V157= (V167);} (void)(((V154))->v.v_self[8]= ((V157))); if(!((((V154))->v.v_self[3])==(VV[43]))){ goto T566;} V157= Cnil; (void)(((V154))->v.v_self[3]= ((V157))); goto T566; T566:; if(!((((V154))->v.v_self[4])==(VV[43]))){ goto T571;} V157= Cnil; (void)(((V154))->v.v_self[4]= ((V157))); goto T571; T571:; if(!((((V154))->v.v_self[7])==(VV[43]))){ goto T576;} V157= ((base0[0]->c.c_car))->v.v_self[10]; (void)(((V154))->v.v_self[7]= ((V157))); goto T576; T576:; if(!((((V154))->v.v_self[12])==(VV[43]))){ goto T581;} V157= small_fixnum(0); (void)(((V154))->v.v_self[12]= ((V157))); goto T581; T581:; if(!((((V154))->v.v_self[14])==(VV[43]))){ goto T481;} V157= Cnil; (void)(((V154))->v.v_self[14]= ((V157)));} goto T481; T481:; base[2]= (V151); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC99(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM68; VC68 vs_check; {object V168; check_arg(2); base[0]=MMcons(base[0],Cnil); V168=(base[1]); vs_top=sup; base[2]= make_cclosure_new(LC114,Cnil,base[0],Cdata); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC114(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM69; VC69 vs_check; {register object V169; object V170; check_arg(2); V169=(base[0]); V170=(base[1]); vs_top=sup; {register object V171; object V172; register object V173; register object V174; object V175; register object V176; V172= CMPcar((base0[0]->c.c_car)); V171= (V170); V173= Cnil; V174= Cnil; V175= Cnil; V176= Cnil; if(type_of(V169)==t_structure){ goto T602;} goto T600; goto T602; T602:; if(!(((V169)->str.str_def)==(VV[207]))){ goto T600;} V173= STREF(object,(V169),4); V174= STREF(object,(V169),0); goto T598; goto T600; T600:;{object V178; V178= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V169); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V179= vs_base[0]; if(!((V178)==(CMPcar(V179)))){ goto T608;}} V173= CMPcar(((V169))->cc.cc_turbo[12]); V174= CMPcar(((V169))->cc.cc_turbo[13]); goto T598; goto T608; T608:; V174= (*(LnkLI289))((V169)); goto T598; T598:; V175= ((V174))->v.v_self[11]; V171= (V170); V171= CMPcdr((V171)); {object V180; V180= CMPcar((V171)); V171= CMPcdr((V171)); V176= (V180);} (void)(((V173))->v.v_self[0]= ((V176))); V171= CMPcdr((V171)); {object V181; V181= CMPcar((V171)); V171= CMPcdr((V171)); V176= (V181);} (void)(((V173))->v.v_self[1]= ((V176))); V171= CMPcdr((V171)); {object V182; V182= CMPcar((V171)); V171= CMPcdr((V171)); V176= (V182);} (void)(((V173))->v.v_self[2]= ((V176))); V171= CMPcdr((V171)); {object V183; V183= CMPcar((V171)); V171= CMPcdr((V171)); V176= (V183);} (void)(((V173))->v.v_self[5]= ((V176))); V171= CMPcdr((V171)); {object V184; V184= CMPcar((V171)); V171= CMPcdr((V171)); V176= (V184);} (void)(((V173))->v.v_self[13]= ((V176))); V171= CMPcdr((V171)); {object V185; V185= CMPcar((V171)); V171= CMPcdr((V171)); V176= (V185);} (void)(((V173))->v.v_self[6]= ((V176))); V171= CMPcdr((V171)); {object V186; V186= CMPcar((V171)); V171= CMPcdr((V171)); V176= (V186);} (void)(((V173))->v.v_self[8]= ((V176)));} base[2]= (V170); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC98(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM70; VC70 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC115,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC115(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM71; VC71 vs_check; {register object V187; object V188; check_arg(2); V187=(base[0]); V188=(base[1]); vs_top=sup; {register object V189; object V190; register object V191; register object V192; object V193; register object V194; V190= CMPcar((base0[1]->c.c_car)); V189= (V188); V191= Cnil; V192= Cnil; V193= Cnil; V194= Cnil; if(type_of(V187)==t_structure){ goto T688;} goto T686; goto T688; T688:; if(!(((V187)->str.str_def)==(VV[204]))){ goto T686;} V191= STREF(object,(V187),4); V192= STREF(object,(V187),0); goto T684; goto T686; T686:;{object V196; V196= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V187); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V197= vs_base[0]; if(!((V196)==(CMPcar(V197)))){ goto T694;}} V191= CMPcar(((V187))->cc.cc_turbo[12]); V192= CMPcar(((V187))->cc.cc_turbo[13]); goto T684; goto T694; T694:; V192= (*(LnkLI289))((V187)); goto T684; T684:; V193= ((V192))->v.v_self[11]; V189= CMPcdr((V189)); {object V198; V198= CMPcar((V189)); V189= CMPcdr((V189)); V194= (V198);} (void)(((V191))->v.v_self[3]= ((V194))); V189= CMPcdr(CMPcddddr((V189))); {object V199; V199= CMPcar((V189)); V189= CMPcdr((V189)); V194= (V199);} (void)(((V191))->v.v_self[1]= ((V194))); if(!((((V191))->v.v_self[0])==(VV[43]))){ goto T721;} V194= Cnil; (void)(((V191))->v.v_self[0]= ((V194))); goto T721; T721:; if(!((((V191))->v.v_self[2])==(VV[43]))){ goto T726;} V194= Cnil; (void)(((V191))->v.v_self[2]= ((V194))); goto T726; T726:; if(!((((V191))->v.v_self[4])==(VV[43]))){ goto T731;} V194= Cnil; (void)(((V191))->v.v_self[4]= ((V194))); goto T731; T731:; if(!((((V191))->v.v_self[5])==(VV[43]))){ goto T736;} V194= Cnil; (void)(((V191))->v.v_self[5]= ((V194))); goto T736; T736:; if(!((((V191))->v.v_self[6])==(VV[43]))){ goto T741;} V194= Cnil; (void)(((V191))->v.v_self[6]= ((V194))); goto T741; T741:; if(!((((V191))->v.v_self[7])==(VV[43]))){ goto T746;} V194= ( V200 = ((base0[0]->c.c_car))->v.v_self[8], (type_of(V200) == t_sfun ?(*((V200)->sfn.sfn_self)): (fcall.argd=0,type_of(V200)==t_vfun) ? (*((V200)->sfn.sfn_self)): (fcall.fun=(V200),fcalln))()); (void)(((V191))->v.v_self[7]= ((V194))); goto T746; T746:; if(!((((V191))->v.v_self[8])==(VV[43]))){ goto T751;} V194= Cnil; (void)(((V191))->v.v_self[8]= ((V194))); goto T751; T751:; if(!((((V191))->v.v_self[10])==(VV[43]))){ goto T756;} V194= Cnil; (void)(((V191))->v.v_self[10]= ((V194))); goto T756; T756:; if(!((((V191))->v.v_self[11])==(VV[43]))){ goto T761;} V194= Cnil; (void)(((V191))->v.v_self[11]= ((V194))); goto T761; T761:; if(!((((V191))->v.v_self[12])==(VV[43]))){ goto T766;} V194= Cnil; (void)(((V191))->v.v_self[12]= ((V194))); goto T766; T766:; if(!((((V191))->v.v_self[13])==(VV[43]))){ goto T771;} V194= Cnil; (void)(((V191))->v.v_self[13]= ((V194))); goto T771; T771:; if(!((((V191))->v.v_self[14])==(VV[43]))){ goto T776;} V194= Cnil; (void)(((V191))->v.v_self[14]= ((V194))); goto T776; T776:; if(!((((V191))->v.v_self[15])==(VV[43]))){ goto T781;} V194= Cnil; (void)(((V191))->v.v_self[15]= ((V194))); goto T781; T781:; if(!((((V191))->v.v_self[16])==(VV[43]))){ goto T676;} V194= Cnil; (void)(((V191))->v.v_self[16]= ((V194)));} goto T676; T676:; base[2]= (V188); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC97(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM72; VC72 vs_check; {object V201; check_arg(2); base[0]=MMcons(base[0],Cnil); V201=(base[1]); vs_top=sup; base[2]= make_cclosure_new(LC116,Cnil,base[0],Cdata); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC116(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM73; VC73 vs_check; {register object V202; object V203; check_arg(2); V202=(base[0]); V203=(base[1]); vs_top=sup; {register object V204; object V205; register object V206; register object V207; object V208; object V209; V205= CMPcar((base0[0]->c.c_car)); V204= (V203); V206= Cnil; V207= Cnil; V208= Cnil; V209= Cnil; if(type_of(V202)==t_structure){ goto T802;} goto T800; goto T802; T802:; if(!(((V202)->str.str_def)==(VV[201]))){ goto T800;} V206= STREF(object,(V202),4); V207= STREF(object,(V202),0); goto T798; goto T800; T800:;{object V211; V211= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V202); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V212= vs_base[0]; if(!((V211)==(CMPcar(V212)))){ goto T808;}} V206= CMPcar(((V202))->cc.cc_turbo[12]); V207= CMPcar(((V202))->cc.cc_turbo[13]); goto T798; goto T808; T808:; V207= (*(LnkLI289))((V202)); goto T798; T798:; V208= ((V207))->v.v_self[11]; V204= CMPcdddr((V204)); {object V213; V213= CMPcar((V204)); V204= CMPcdr((V204)); V209= (V213);} (void)(((V206))->v.v_self[1]= ((V209)));} base[2]= (V203); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC96(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM74; VC74 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC117,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC117(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM75; VC75 vs_check; {register object V214; object V215; check_arg(2); V214=(base[0]); V215=(base[1]); vs_top=sup; {register object V216; object V217; register object V218; register object V219; object V220; register object V221; V217= CMPcar((base0[1]->c.c_car)); V216= (V215); V218= Cnil; V219= Cnil; V220= Cnil; V221= Cnil; if(type_of(V214)==t_structure){ goto T838;} goto T836; goto T838; T838:; if(!(((V214)->str.str_def)==(VV[198]))){ goto T836;} V218= STREF(object,(V214),4); V219= STREF(object,(V214),0); goto T834; goto T836; T836:;{object V223; V223= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V214); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V224= vs_base[0]; if(!((V223)==(CMPcar(V224)))){ goto T844;}} V218= CMPcar(((V214))->cc.cc_turbo[12]); V219= CMPcar(((V214))->cc.cc_turbo[13]); goto T834; goto T844; T844:; V219= (*(LnkLI289))((V214)); goto T834; T834:; V220= ((V219))->v.v_self[11]; V216= CMPcdr((V216)); {object V225; V225= CMPcar((V216)); V216= CMPcdr((V216)); V221= (V225);} (void)(((V218))->v.v_self[5]= ((V221))); V216= CMPcdr((V216)); {object V226; V226= CMPcar((V216)); V216= CMPcdr((V216)); V221= (V226);} (void)(((V218))->v.v_self[4]= ((V221))); V216= CMPcdddr((V216)); {object V227; V227= CMPcar((V216)); V216= CMPcdr((V216)); V221= (V227);} (void)(((V218))->v.v_self[1]= ((V221))); if(!((((V218))->v.v_self[0])==(VV[43]))){ goto T879;} V221= Cnil; (void)(((V218))->v.v_self[0]= ((V221))); goto T879; T879:; if(!((((V218))->v.v_self[2])==(VV[43]))){ goto T884;} V221= Cnil; (void)(((V218))->v.v_self[2]= ((V221))); goto T884; T884:; if(!((((V218))->v.v_self[3])==(VV[43]))){ goto T889;} V221= Cnil; (void)(((V218))->v.v_self[3]= ((V221))); goto T889; T889:; if(!((((V218))->v.v_self[6])==(VV[43]))){ goto T894;} V221= ( V228 = ((base0[0]->c.c_car))->v.v_self[7], (type_of(V228) == t_sfun ?(*((V228)->sfn.sfn_self)): (fcall.argd=0,type_of(V228)==t_vfun) ? (*((V228)->sfn.sfn_self)): (fcall.fun=(V228),fcalln))()); (void)(((V218))->v.v_self[6]= ((V221))); goto T894; T894:; if(!((((V218))->v.v_self[7])==(VV[43]))){ goto T899;} V221= Cnil; (void)(((V218))->v.v_self[7]= ((V221))); goto T899; T899:; if(!((((V218))->v.v_self[8])==(VV[43]))){ goto T826;} V221= Cnil; (void)(((V218))->v.v_self[8]= ((V221)));} goto T826; T826:; base[2]= (V215); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC95(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM76; VC76 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC118,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC118(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM77; VC77 vs_check; {register object V229; object V230; check_arg(2); V229=(base[0]); V230=(base[1]); vs_top=sup; {register object V231; object V232; register object V233; register object V234; object V235; register object V236; V232= CMPcar((base0[1]->c.c_car)); V231= (V230); V233= Cnil; V234= Cnil; V235= Cnil; V236= Cnil; if(type_of(V229)==t_structure){ goto T920;} goto T918; goto T920; T920:; if(!(((V229)->str.str_def)==(VV[195]))){ goto T918;} V233= STREF(object,(V229),4); V234= STREF(object,(V229),0); goto T916; goto T918; T918:;{object V238; V238= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V229); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V239= vs_base[0]; if(!((V238)==(CMPcar(V239)))){ goto T926;}} V233= CMPcar(((V229))->cc.cc_turbo[12]); V234= CMPcar(((V229))->cc.cc_turbo[13]); goto T916; goto T926; T926:; V234= (*(LnkLI289))((V229)); goto T916; T916:; V235= ((V234))->v.v_self[11]; V231= CMPcdr((V231)); {object V240; V240= CMPcar((V231)); V231= CMPcdr((V231)); V236= (V240);} (void)(((V233))->v.v_self[5]= ((V236))); V231= CMPcdr((V231)); {object V241; V241= CMPcar((V231)); V231= CMPcdr((V231)); V236= (V241);} (void)(((V233))->v.v_self[4]= ((V236))); V231= CMPcdr((V231)); {object V242; V242= CMPcar((V231)); V231= CMPcdr((V231)); V236= (V242);} (void)(((V233))->v.v_self[2]= ((V236))); if(!((((V233))->v.v_self[0])==(VV[43]))){ goto T961;} V236= Cnil; (void)(((V233))->v.v_self[0]= ((V236))); goto T961; T961:; if(!((((V233))->v.v_self[1])==(VV[43]))){ goto T966;} V236= ( V243 = ((base0[0]->c.c_car))->v.v_self[5], (type_of(V243) == t_sfun ?(*((V243)->sfn.sfn_self)): (fcall.argd=0,type_of(V243)==t_vfun) ? (*((V243)->sfn.sfn_self)): (fcall.fun=(V243),fcalln))()); (void)(((V233))->v.v_self[1]= ((V236))); goto T966; T966:; if(!((((V233))->v.v_self[3])==(VV[43]))){ goto T971;} V236= Cnil; (void)(((V233))->v.v_self[3]= ((V236))); goto T971; T971:; if(!((((V233))->v.v_self[6])==(VV[43]))){ goto T976;} V236= ( V244 = ((base0[0]->c.c_car))->v.v_self[8], (type_of(V244) == t_sfun ?(*((V244)->sfn.sfn_self)): (fcall.argd=0,type_of(V244)==t_vfun) ? (*((V244)->sfn.sfn_self)): (fcall.fun=(V244),fcalln))()); (void)(((V233))->v.v_self[6]= ((V236))); goto T976; T976:; if(!((((V233))->v.v_self[7])==(VV[43]))){ goto T981;} V236= Cnil; (void)(((V233))->v.v_self[7]= ((V236))); goto T981; T981:; if(!((((V233))->v.v_self[8])==(VV[43]))){ goto T908;} V236= Cnil; (void)(((V233))->v.v_self[8]= ((V236)));} goto T908; T908:; base[2]= (V230); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC94(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM78; VC78 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC119,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC119(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM79; VC79 vs_check; {register object V245; object V246; check_arg(2); V245=(base[0]); V246=(base[1]); vs_top=sup; {register object V247; object V248; register object V249; register object V250; object V251; register object V252; V248= CMPcar((base0[1]->c.c_car)); V247= (V246); V249= Cnil; V250= Cnil; V251= Cnil; V252= Cnil; if(type_of(V245)==t_structure){ goto T1002;} goto T1000; goto T1002; T1002:; if(!(((V245)->str.str_def)==(VV[192]))){ goto T1000;} V249= STREF(object,(V245),4); V250= STREF(object,(V245),0); goto T998; goto T1000; T1000:;{object V254; V254= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V245); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V255= vs_base[0]; if(!((V254)==(CMPcar(V255)))){ goto T1008;}} V249= CMPcar(((V245))->cc.cc_turbo[12]); V250= CMPcar(((V245))->cc.cc_turbo[13]); goto T998; goto T1008; T1008:; V250= (*(LnkLI289))((V245)); goto T998; T998:; V251= ((V250))->v.v_self[11]; V247= CMPcdr((V247)); {object V256; V256= CMPcar((V247)); V247= CMPcdr((V247)); V252= (V256);} (void)(((V249))->v.v_self[5]= ((V252))); V247= CMPcdr((V247)); {object V257; V257= CMPcar((V247)); V247= CMPcdr((V247)); V252= (V257);} (void)(((V249))->v.v_self[4]= ((V252))); if(!((((V249))->v.v_self[0])==(VV[43]))){ goto T1035;} V252= Cnil; (void)(((V249))->v.v_self[0]= ((V252))); goto T1035; T1035:; if(!((((V249))->v.v_self[1])==(VV[43]))){ goto T1040;} V252= ( V258 = ((base0[0]->c.c_car))->v.v_self[4], (type_of(V258) == t_sfun ?(*((V258)->sfn.sfn_self)): (fcall.argd=0,type_of(V258)==t_vfun) ? (*((V258)->sfn.sfn_self)): (fcall.fun=(V258),fcalln))()); (void)(((V249))->v.v_self[1]= ((V252))); goto T1040; T1040:; if(!((((V249))->v.v_self[2])==(VV[43]))){ goto T1045;} V252= Cnil; (void)(((V249))->v.v_self[2]= ((V252))); goto T1045; T1045:; if(!((((V249))->v.v_self[3])==(VV[43]))){ goto T1050;} V252= Cnil; (void)(((V249))->v.v_self[3]= ((V252))); goto T1050; T1050:; if(!((((V249))->v.v_self[6])==(VV[43]))){ goto T1055;} V252= ( V259 = ((base0[0]->c.c_car))->v.v_self[8], (type_of(V259) == t_sfun ?(*((V259)->sfn.sfn_self)): (fcall.argd=0,type_of(V259)==t_vfun) ? (*((V259)->sfn.sfn_self)): (fcall.fun=(V259),fcalln))()); (void)(((V249))->v.v_self[6]= ((V252))); goto T1055; T1055:; if(!((((V249))->v.v_self[7])==(VV[43]))){ goto T1060;} V252= Cnil; (void)(((V249))->v.v_self[7]= ((V252))); goto T1060; T1060:; if(!((((V249))->v.v_self[8])==(VV[43]))){ goto T990;} V252= Cnil; (void)(((V249))->v.v_self[8]= ((V252)));} goto T990; T990:; base[2]= (V246); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC93(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM80; VC80 vs_check; {object V260; check_arg(2); base[0]=MMcons(base[0],Cnil); V260=(base[1]); vs_top=sup; base[2]= make_cclosure_new(LC120,Cnil,base[0],Cdata); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC120(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM81; VC81 vs_check; {register object V261; object V262; check_arg(2); V261=(base[0]); V262=(base[1]); vs_top=sup; {object V264; object V265; register object V266; object V267; V264= CMPcar((base0[0]->c.c_car)); V265= Cnil; V266= Cnil; V267= Cnil; if(type_of(V261)==t_structure){ goto T1081;} goto T1079; goto T1081; T1081:; if(!(((V261)->str.str_def)==(VV[189]))){ goto T1079;} V265= STREF(object,(V261),4); V266= STREF(object,(V261),0); goto T1077; goto T1079; T1079:;{object V270; V270= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V261); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V271= vs_base[0]; if(!((V270)==(CMPcar(V271)))){ goto T1087;}} V265= CMPcar(((V261))->cc.cc_turbo[12]); V266= CMPcar(((V261))->cc.cc_turbo[13]); goto T1077; goto T1087; T1087:; V266= (*(LnkLI289))((V261)); goto T1077; T1077:; V267= ((V266))->v.v_self[11];} base[2]= (V262); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC92(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM82; VC82 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC121,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC121(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM83; VC83 vs_check; {register object V272; register object V273; check_arg(2); V272=(base[0]); V273=(base[1]); vs_top=sup; {object V274; object V275; object V276; register object V277; object V278; register object V279; V275= CMPcar((base0[1]->c.c_car)); V274= (V273); V276= Cnil; V277= Cnil; V278= Cnil; V279= Cnil; if(type_of(V272)==t_structure){ goto T1109;} goto T1107; goto T1109; T1109:; if(!(((V272)->str.str_def)==(VV[184]))){ goto T1107;} V276= STREF(object,(V272),4); V277= STREF(object,(V272),0); goto T1105; goto T1107; T1107:;{object V281; V281= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V272); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V282= vs_base[0]; if(!((V281)==(CMPcar(V282)))){ goto T1115;}} V276= CMPcar(((V272))->cc.cc_turbo[12]); V277= CMPcar(((V272))->cc.cc_turbo[13]); goto T1105; goto T1115; T1115:; V277= (*(LnkLI289))((V272)); goto T1105; T1105:; V278= ((V277))->v.v_self[11]; V279= ( V283 = ((base0[0]->c.c_car))->v.v_self[0], (type_of(V283) == t_sfun ?(*((V283)->sfn.sfn_self)): (fcall.argd=0,type_of(V283)==t_vfun) ? (*((V283)->sfn.sfn_self)): (fcall.fun=(V283),fcalln))()); V273= make_cons(V279,(V273)); V273= make_cons(VV[185],(V273)); V279= ( V286 = ((base0[0]->c.c_car))->v.v_self[1], (type_of(V286) == t_sfun ?(*((V286)->sfn.sfn_self)): (fcall.argd=0,type_of(V286)==t_vfun) ? (*((V286)->sfn.sfn_self)): (fcall.fun=(V286),fcalln))()); V273= make_cons(V279,(V273)); V273= make_cons(VV[186],(V273)); if(!(type_of((V273))==t_cons)){ goto T1138;} V273= make_cons(CMPcar((V273)),CMPcdr((V273))); goto T1138; T1138:; (VV[164]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[2]; (VV[165]->s.s_dbind)= (V273); (VV[166]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[3]; V274= (V273);} base[2]= (V273); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC91(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM84; VC84 vs_check; {object V289; check_arg(2); base[0]=MMcons(base[0],Cnil); V289=(base[1]); vs_top=sup; base[2]= make_cclosure_new(LC122,Cnil,base[0],Cdata); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC122(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM85; VC85 vs_check; {register object V290; object V291; check_arg(2); V290=(base[0]); V291=(base[1]); vs_top=sup; {register object V292; object V293; register object V294; register object V295; object V296; register object V297; V293= CMPcar((base0[0]->c.c_car)); V292= (V291); V294= Cnil; V295= Cnil; V296= Cnil; V297= Cnil; if(type_of(V290)==t_structure){ goto T1161;} goto T1159; goto T1161; T1161:; if(!(((V290)->str.str_def)==(VV[181]))){ goto T1159;} V294= STREF(object,(V290),4); V295= STREF(object,(V290),0); goto T1157; goto T1159; T1159:;{object V299; V299= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V290); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V300= vs_base[0]; if(!((V299)==(CMPcar(V300)))){ goto T1167;}} V294= CMPcar(((V290))->cc.cc_turbo[12]); V295= CMPcar(((V290))->cc.cc_turbo[13]); goto T1157; goto T1167; T1167:; V295= (*(LnkLI289))((V290)); goto T1157; T1157:; V296= ((V295))->v.v_self[11]; V292= CMPcdddr((V292)); {object V301; V301= CMPcar((V292)); V292= CMPcdr((V292)); V297= (V301);} (void)(((V294))->v.v_self[3]= ((V297))); V292= CMPcdr((V292)); {object V302; V302= CMPcar((V292)); V292= CMPcdr((V292)); V297= (V302);} (void)(((V294))->v.v_self[4]= ((V297))); V292= CMPcdr((V292)); {object V303; V303= CMPcar((V292)); V292= CMPcdr((V292)); V297= (V303);} (void)(((V294))->v.v_self[5]= ((V297))); V292= CMPcdr((V292)); {object V304; V304= CMPcar((V292)); V292= CMPcdr((V292)); V297= (V304);} (void)(((V294))->v.v_self[1]= ((V297))); if(!((((V294))->v.v_self[0])==(VV[43]))){ goto T1210;} V297= Cnil; (void)(((V294))->v.v_self[0]= ((V297))); goto T1210; T1210:; if(!((((V294))->v.v_self[2])==(VV[43]))){ goto T1215;} V297= Cnil; (void)(((V294))->v.v_self[2]= ((V297))); goto T1215; T1215:; if(!((((V294))->v.v_self[6])==(VV[43]))){ goto T1149;} V297= Cnil; (void)(((V294))->v.v_self[6]= ((V297)));} goto T1149; T1149:; base[2]= (V291); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC90(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM86; VC86 vs_check; {object V305; check_arg(2); base[0]=MMcons(base[0],Cnil); V305=(base[1]); vs_top=sup; base[2]= make_cclosure_new(LC123,Cnil,base[0],Cdata); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC123(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM87; VC87 vs_check; {register object V306; object V307; check_arg(2); V306=(base[0]); V307=(base[1]); vs_top=sup; {register object V308; object V309; register object V310; register object V311; object V312; register object V313; V309= CMPcar((base0[0]->c.c_car)); V308= (V307); V310= Cnil; V311= Cnil; V312= Cnil; V313= Cnil; if(type_of(V306)==t_structure){ goto T1236;} goto T1234; goto T1236; T1236:; if(!(((V306)->str.str_def)==(VV[178]))){ goto T1234;} V310= STREF(object,(V306),4); V311= STREF(object,(V306),0); goto T1232; goto T1234; T1234:;{object V315; V315= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V306); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V316= vs_base[0]; if(!((V315)==(CMPcar(V316)))){ goto T1242;}} V310= CMPcar(((V306))->cc.cc_turbo[12]); V311= CMPcar(((V306))->cc.cc_turbo[13]); goto T1232; goto T1242; T1242:; V311= (*(LnkLI289))((V306)); goto T1232; T1232:; V312= ((V311))->v.v_self[11]; V308= CMPcdddr((V308)); {object V317; V317= CMPcar((V308)); V308= CMPcdr((V308)); V313= (V317);} (void)(((V310))->v.v_self[3]= ((V313))); V308= CMPcdr((V308)); {object V318; V318= CMPcar((V308)); V308= CMPcdr((V308)); V313= (V318);} (void)(((V310))->v.v_self[4]= ((V313))); V308= CMPcdr((V308)); {object V319; V319= CMPcar((V308)); V308= CMPcdr((V308)); V313= (V319);} (void)(((V310))->v.v_self[1]= ((V313))); V308= CMPcdddr((V308)); {object V320; V320= CMPcar((V308)); V308= CMPcdr((V308)); V313= (V320);} (void)(((V310))->v.v_self[6]= ((V313))); if(!((((V310))->v.v_self[0])==(VV[43]))){ goto T1285;} V313= Cnil; (void)(((V310))->v.v_self[0]= ((V313))); goto T1285; T1285:; if(!((((V310))->v.v_self[2])==(VV[43]))){ goto T1290;} V313= Cnil; (void)(((V310))->v.v_self[2]= ((V313))); goto T1290; T1290:; if(!((((V310))->v.v_self[5])==(VV[43]))){ goto T1224;} V313= Cnil; (void)(((V310))->v.v_self[5]= ((V313)));} goto T1224; T1224:; base[2]= (V307); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC89(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM88; VC88 vs_check; {object V321; check_arg(2); base[0]=MMcons(base[0],Cnil); V321=(base[1]); vs_top=sup; base[2]= make_cclosure_new(LC124,Cnil,base[0],Cdata); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC124(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM89; VC89 vs_check; {register object V322; object V323; check_arg(2); V322=(base[0]); V323=(base[1]); vs_top=sup; {register object V324; object V325; register object V326; register object V327; object V328; register object V329; V325= CMPcar((base0[0]->c.c_car)); V324= (V323); V326= Cnil; V327= Cnil; V328= Cnil; V329= Cnil; if(type_of(V322)==t_structure){ goto T1311;} goto T1309; goto T1311; T1311:; if(!(((V322)->str.str_def)==(VV[175]))){ goto T1309;} V326= STREF(object,(V322),4); V327= STREF(object,(V322),0); goto T1307; goto T1309; T1309:;{object V331; V331= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V322); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V332= vs_base[0]; if(!((V331)==(CMPcar(V332)))){ goto T1317;}} V326= CMPcar(((V322))->cc.cc_turbo[12]); V327= CMPcar(((V322))->cc.cc_turbo[13]); goto T1307; goto T1317; T1317:; V327= (*(LnkLI289))((V322)); goto T1307; T1307:; V328= ((V327))->v.v_self[11]; V324= CMPcdddr((V324)); {object V333; V333= CMPcar((V324)); V324= CMPcdr((V324)); V329= (V333);} (void)(((V326))->v.v_self[4]= ((V329))); V324= CMPcdr((V324)); {object V334; V334= CMPcar((V324)); V324= CMPcdr((V324)); V329= (V334);} (void)(((V326))->v.v_self[3]= ((V329))); V324= CMPcdddr(CMPcddddr((V324))); {object V335; V335= CMPcar((V324)); V324= CMPcdr((V324)); V329= (V335);} (void)(((V326))->v.v_self[1]= ((V329))); V324= CMPcdddr((V324)); {object V336; V336= CMPcar((V324)); V324= CMPcdr((V324)); V329= (V336);} (void)(((V326))->v.v_self[6]= ((V329))); if(!((((V326))->v.v_self[0])==(VV[43]))){ goto T1360;} V329= Cnil; (void)(((V326))->v.v_self[0]= ((V329))); goto T1360; T1360:; if(!((((V326))->v.v_self[2])==(VV[43]))){ goto T1365;} V329= Cnil; (void)(((V326))->v.v_self[2]= ((V329))); goto T1365; T1365:; if(!((((V326))->v.v_self[5])==(VV[43]))){ goto T1299;} V329= Cnil; (void)(((V326))->v.v_self[5]= ((V329)));} goto T1299; T1299:; base[2]= (V323); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC88(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM90; VC90 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC125,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC125(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM91; VC91 vs_check; {register object V337; object V338; check_arg(2); V337=(base[0]); V338=(base[1]); vs_top=sup; {register object V339; object V340; register object V341; register object V342; object V343; register object V344; V340= CMPcar((base0[1]->c.c_car)); V339= (V338); V341= Cnil; V342= Cnil; V343= Cnil; V344= Cnil; if(type_of(V337)==t_structure){ goto T1386;} goto T1384; goto T1386; T1386:; if(!(((V337)->str.str_def)==(VV[172]))){ goto T1384;} V341= STREF(object,(V337),4); V342= STREF(object,(V337),0); goto T1382; goto T1384; T1384:;{object V346; V346= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V337); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V347= vs_base[0]; if(!((V346)==(CMPcar(V347)))){ goto T1392;}} V341= CMPcar(((V337))->cc.cc_turbo[12]); V342= CMPcar(((V337))->cc.cc_turbo[13]); goto T1382; goto T1392; T1392:; V342= (*(LnkLI289))((V337)); goto T1382; T1382:; V343= ((V342))->v.v_self[11]; V339= CMPcdddr((V339)); {object V348; V348= CMPcar((V339)); V339= CMPcdr((V339)); V344= (V348);} (void)(((V341))->v.v_self[4]= ((V344))); V339= CMPcdr((V339)); {object V349; V349= CMPcar((V339)); V339= CMPcdr((V339)); V344= (V349);} (void)(((V341))->v.v_self[3]= ((V344))); V339= CMPcdddr(CMPcddddr((V339))); {object V350; V350= CMPcar((V339)); V339= CMPcdr((V339)); V344= (V350);} (void)(((V341))->v.v_self[5]= ((V344))); if(!((((V341))->v.v_self[0])==(VV[43]))){ goto T1427;} V344= Cnil; (void)(((V341))->v.v_self[0]= ((V344))); goto T1427; T1427:; if(!((((V341))->v.v_self[1])==(VV[43]))){ goto T1432;} V344= ( V351 = ((base0[0]->c.c_car))->v.v_self[5], (type_of(V351) == t_sfun ?(*((V351)->sfn.sfn_self)): (fcall.argd=0,type_of(V351)==t_vfun) ? (*((V351)->sfn.sfn_self)): (fcall.fun=(V351),fcalln))()); (void)(((V341))->v.v_self[1]= ((V344))); goto T1432; T1432:; if(!((((V341))->v.v_self[2])==(VV[43]))){ goto T1437;} V344= Cnil; (void)(((V341))->v.v_self[2]= ((V344))); goto T1437; T1437:; if(!((((V341))->v.v_self[6])==(VV[43]))){ goto T1374;} V344= Cnil; (void)(((V341))->v.v_self[6]= ((V344)));} goto T1374; T1374:; base[2]= (V338); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC87(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM92; VC92 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC126,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC126(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM93; VC93 vs_check; {register object V352; object V353; check_arg(2); V352=(base[0]); V353=(base[1]); vs_top=sup; {register object V354; object V355; register object V356; register object V357; object V358; register object V359; V355= CMPcar((base0[1]->c.c_car)); V354= (V353); V356= Cnil; V357= Cnil; V358= Cnil; V359= Cnil; if(type_of(V352)==t_structure){ goto T1458;} goto T1456; goto T1458; T1458:; if(!(((V352)->str.str_def)==(VV[169]))){ goto T1456;} V356= STREF(object,(V352),4); V357= STREF(object,(V352),0); goto T1454; goto T1456; T1456:;{object V361; V361= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V352); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V362= vs_base[0]; if(!((V361)==(CMPcar(V362)))){ goto T1464;}} V356= CMPcar(((V352))->cc.cc_turbo[12]); V357= CMPcar(((V352))->cc.cc_turbo[13]); goto T1454; goto T1464; T1464:; V357= (*(LnkLI289))((V352)); goto T1454; T1454:; V358= ((V357))->v.v_self[11]; V354= CMPcdddr((V354)); {object V363; V363= CMPcar((V354)); V354= CMPcdr((V354)); V359= (V363);} (void)(((V356))->v.v_self[4]= ((V359))); V354= CMPcdr((V354)); {object V364; V364= CMPcar((V354)); V354= CMPcdr((V354)); V359= (V364);} (void)(((V356))->v.v_self[3]= ((V359))); V354= CMPcdddr((V354)); {object V365; V365= CMPcar((V354)); V354= CMPcdr((V354)); V359= (V365);} (void)(((V356))->v.v_self[7]= ((V359))); V354= CMPcdr(CMPcddddr((V354))); {object V366; V366= CMPcar((V354)); V354= CMPcdr((V354)); V359= (V366);} (void)(((V356))->v.v_self[6]= ((V359))); if(!((((V356))->v.v_self[0])==(VV[43]))){ goto T1507;} V359= Cnil; (void)(((V356))->v.v_self[0]= ((V359))); goto T1507; T1507:; if(!((((V356))->v.v_self[1])==(VV[43]))){ goto T1512;} V359= ( V367 = ((base0[0]->c.c_car))->v.v_self[6], (type_of(V367) == t_sfun ?(*((V367)->sfn.sfn_self)): (fcall.argd=0,type_of(V367)==t_vfun) ? (*((V367)->sfn.sfn_self)): (fcall.fun=(V367),fcalln))()); (void)(((V356))->v.v_self[1]= ((V359))); goto T1512; T1512:; if(!((((V356))->v.v_self[2])==(VV[43]))){ goto T1517;} V359= Cnil; (void)(((V356))->v.v_self[2]= ((V359))); goto T1517; T1517:; if(!((((V356))->v.v_self[5])==(VV[43]))){ goto T1522;} V359= Cnil; (void)(((V356))->v.v_self[5]= ((V359))); goto T1522; T1522:; if(!((((V356))->v.v_self[8])==(VV[43]))){ goto T1446;} V359= Cnil; (void)(((V356))->v.v_self[8]= ((V359)));} goto T1446; T1446:; base[2]= (V353); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC86(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM94; VC94 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC127,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC127(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM95; VC95 vs_check; {register object V368; register object V369; check_arg(2); V368=(base[0]); V369=(base[1]); vs_top=sup; {object V370; object V371; object V372; register object V373; object V374; V371= CMPcar((base0[1]->c.c_car)); V370= (V369); V372= Cnil; V373= Cnil; V374= Cnil; if(type_of(V368)==t_structure){ goto T1543;} goto T1541; goto T1543; T1543:; if(!(((V368)->str.str_def)==(VV[163]))){ goto T1541;} V372= STREF(object,(V368),4); V373= STREF(object,(V368),0); goto T1539; goto T1541; T1541:;{object V377; V377= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V368); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V378= vs_base[0]; if(!((V377)==(CMPcar(V378)))){ goto T1549;}} V372= CMPcar(((V368))->cc.cc_turbo[12]); V373= CMPcar(((V368))->cc.cc_turbo[13]); goto T1539; goto T1549; T1549:; V373= (*(LnkLI289))((V368)); goto T1539; T1539:; V374= ((V373))->v.v_self[11]; if(!(type_of((V369))==t_cons)){ goto T1560;} V369= make_cons(CMPcar((V369)),CMPcdr((V369))); goto T1560; T1560:; (VV[164]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[0]; (VV[165]->s.s_dbind)= (V369); (VV[166]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[1]; V370= (V369);} base[2]= (V369); vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC85(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM96; VC96 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC128,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC128(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM97; VC97 vs_check; {register object V379; check_arg(1); V379=(base[0]); vs_top=sup; {long V380; object V381; long V382; long V383; object V384; register object V385; V380= (long)STREF(unsigned char,(base0[2]->c.c_car),16); V381= STREF(object,(base0[2]->c.c_car),40); V382= (long)STREF(fixnum,(base0[2]->c.c_car),24); V383= (long)STREF(fixnum,(base0[2]->c.c_car),28); V384= STREF(object,(base0[2]->c.c_car),44); if(type_of(V379)==t_structure){ goto T1582;} goto T1580; goto T1582; T1582:; if(!(((V379)->str.str_def)==(VV[158]))){ goto T1580;} V385= STREF(object,(V379),0); goto T1578; goto T1580; T1580:;{object V387; V387= (VV[42]->s.s_dbind); base[1]= small_fixnum(14); base[2]= (V379); vs_top=(vs_base=base+1)+2; (void) (*Lnk287)(); vs_top=sup; V388= vs_base[0]; if(!((V387)==(CMPcar(V388)))){ goto T1585;}} V385= CMPcar(((V379))->cc.cc_turbo[13]); goto T1578; goto T1585; T1585:; if(!(type_of((V379))==t_structure)){ goto T1591;} V385= (*(LnkLI290))((V379)); goto T1578; goto T1591; T1591:; if(!(type_of((V379))==t_symbol)){ goto T1594;} if(((V379))==Cnil){ goto T1597;} V385= (VV[56]->s.s_dbind); goto T1578; goto T1597; T1597:; V385= (VV[57]->s.s_dbind); goto T1578; goto T1594; T1594:; V385= (*(LnkLI291))((V379)); goto T1578; T1578:; {register long V389; register long V390; {long V391; V391= fix(((V385))->v.v_self[V380]); if(!((V391)==0)){ goto T1602;} goto T1572; goto T1602; T1602:; V389= (long)((V382) & (V391));} V390= V389; goto T1607; T1607:; if(!(((V385))==(((V381))->v.v_self[V390]))){ goto T1609;} goto T1599; goto T1609; T1609:; V390= (long)(V390)+(1); if(!((V390)==(V383))){ goto T1614;} V390= 0; goto T1614; T1614:; if(!((V390)==(V389))){ goto T1608;} {register object V392; register object V393; V392= (V384); V393= CMPcar((V392)); goto T1624; T1624:; if(!(((V392))==Cnil)){ goto T1625;} goto T1620; goto T1625; T1625:; if(!((CMPcar((V393)))==((V385)))){ goto T1629;} goto T1599; goto T1629; T1629:; V392= CMPcdr((V392)); V393= CMPcar((V392)); goto T1624;} goto T1620; T1620:; goto T1572; goto T1608; T1608:; goto T1607;} goto T1599; T1599:; base[1]= (base0[1]->c.c_car); base[2]= VV[2]; vs_top=(vs_base=base+1)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1640;} base[1]= STREF(object,(base0[1]->c.c_car),0); base[2]= STREF(object,(base0[1]->c.c_car),4); base[3]= STREF(object,(base0[1]->c.c_car),8); base[4]= (V379); vs_top=(vs_base=base+2)+3; {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T1640; T1640:; if(!(type_of((base0[1]->c.c_car))==t_fixnum)){ goto T1649;} {object V394; object V395; if(type_of(V379)==t_structure){ goto T1655;} goto T1653; goto T1655; T1655:; if(!(((V379)->str.str_def)==(VV[159]))){ goto T1653;} V394= STREF(object,(V379),4); goto T1651; goto T1653; T1653:;{object V397; V397= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V379); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V398= vs_base[0]; if(!((V397)==(CMPcar(V398)))){ goto T1658;}} V394= CMPcar(((V379))->cc.cc_turbo[12]); goto T1651; goto T1658; T1658:; V394= Cnil; goto T1651; T1651:; if(((V394))==Cnil){ goto T1665;} V395= ((V394))->v.v_self[fix((base0[1]->c.c_car))]; goto T1663; goto T1665; T1665:; V395= Cnil; goto T1663; T1663:; if(!(((V395))==(VV[43]))){ goto T1668;} base[3]= (V379); base[4]= (base0[1]->c.c_car); vs_top=(vs_base=base+3)+2; (void) (*Lnk293)(); return; goto T1668; T1668:; base[3]= (V395); vs_top=(vs_base=base+3)+1; return;} goto T1649; T1649:; {object V399; V399= (base0[1]->c.c_car); base[1]= V399; base[2]= VV[10]; vs_top=(vs_base=base+1)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1673;} {object V401; object V402; object V403; V401= STREF(object,(base0[1]->c.c_car),0); V402= make_cons((V379),Cnil); V403= STREF(object,(base0[1]->c.c_car),4); if(((V403))==Cnil){ goto T1681;} if((CMPcdr((V403)))!=Cnil){ goto T1681;} base[1]= (V402); base[2]= CMPcar((V403)); vs_top=(vs_base=base+1)+2; {object _funobj = (V401);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T1681; T1681:; base[1]= (V401); base[2]= (V402); {object V404; V404= (V403); vs_top=base+3; while(V404!=Cnil) {vs_push((V404)->c.c_car);V404=(V404)->c.c_cdr;} vs_base=base+2;} {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T1673; T1673:; base[1]= V399; vs_top=(vs_base=base+1)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1691;} base[1]= (V379); vs_top=(vs_base=base+1)+1; {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T1691; T1691:; base[1]= VV[11]; base[2]= VV[12]; base[3]= VV[13]; base[4]= VV[14]; base[5]= (V399); base[6]= VV[15]; base[7]= VV[160]; base[8]= VV[17]; base[9]= VV[161]; vs_top=(vs_base=base+1)+9; (void) (*Lnk294)(); return;}} goto T1572; T1572:; base[1]= (V379); vs_top=(vs_base=base+1)+1; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[1]= Cnil; vs_top=(vs_base=base+1)+1; return; } } /* local function CLOSURE */ static void LC84(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM98; VC98 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC129,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC129(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM99; VC99 vs_check; {register object V405; register object V406; if(vs_top-vs_base<1) too_few_arguments(); V405=(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]);} V406=(base[1]); vs_top=sup; {long V407; object V408; long V409; long V410; object V411; register object V412; V407= (long)STREF(unsigned char,(base0[2]->c.c_car),16); V408= STREF(object,(base0[2]->c.c_car),40); V409= (long)STREF(fixnum,(base0[2]->c.c_car),24); V410= (long)STREF(fixnum,(base0[2]->c.c_car),28); V411= STREF(object,(base0[2]->c.c_car),44); if(type_of(V405)==t_structure){ goto T1717;} goto T1715; goto T1717; T1717:; if(!(((V405)->str.str_def)==(VV[154]))){ goto T1715;} V412= STREF(object,(V405),0); goto T1713; goto T1715; T1715:;{object V414; V414= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V405); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V415= vs_base[0]; if(!((V414)==(CMPcar(V415)))){ goto T1720;}} V412= CMPcar(((V405))->cc.cc_turbo[13]); goto T1713; goto T1720; T1720:; if(!(type_of((V405))==t_structure)){ goto T1726;} V412= (*(LnkLI290))((V405)); goto T1713; goto T1726; T1726:; if(!(type_of((V405))==t_symbol)){ goto T1729;} if(((V405))==Cnil){ goto T1732;} V412= (VV[56]->s.s_dbind); goto T1713; goto T1732; T1732:; V412= (VV[57]->s.s_dbind); goto T1713; goto T1729; T1729:; V412= (*(LnkLI291))((V405)); goto T1713; T1713:; {long V416; register long V417; {long V418; V418= fix(((V412))->v.v_self[V407]); if(!((V418)==0)){ goto T1737;} goto T1707; goto T1737; T1737:; V416= (long)((V409) & (V418));} V417= V416; goto T1742; T1742:; if(!(((V412))==(((V408))->v.v_self[V417]))){ goto T1744;} goto T1734; goto T1744; T1744:; V417= (long)(V417)+(1); if(!((V417)==(V410))){ goto T1749;} V417= 0; goto T1749; T1749:; if(!((V417)==(V416))){ goto T1743;} {register object V419; register object V420; V419= (V411); V420= CMPcar((V419)); goto T1759; T1759:; if(!(((V419))==Cnil)){ goto T1760;} goto T1755; goto T1760; T1760:; if(!((CMPcar((V420)))==((V412)))){ goto T1764;} goto T1734; goto T1764; T1764:; V419= CMPcdr((V419)); V420= CMPcar((V419)); goto T1759;} goto T1755; T1755:; goto T1707; goto T1743; T1743:; goto T1742;} goto T1734; T1734:; base[2]= (base0[1]->c.c_car); base[3]= VV[2]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1775;} base[2]= STREF(object,(base0[1]->c.c_car),0); base[3]= STREF(object,(base0[1]->c.c_car),4); base[4]= STREF(object,(base0[1]->c.c_car),8); base[5]= (V405); base[6]= (V406); vs_top=(vs_base=base+3)+4; {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T1775; T1775:; {object V421; V421= (base0[1]->c.c_car); base[2]= V421; base[3]= VV[10]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1785;} {object V423; object V424; object V425; V423= STREF(object,(base0[1]->c.c_car),0); V424= make_cons((V405),(V406)); V425= STREF(object,(base0[1]->c.c_car),4); if(((V425))==Cnil){ goto T1793;} if((CMPcdr((V425)))!=Cnil){ goto T1793;} base[2]= (V424); base[3]= CMPcar((V425)); vs_top=(vs_base=base+2)+2; {object _funobj = (V423);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T1793; T1793:; base[2]= (V423); base[3]= (V424); {object V426; V426= (V425); vs_top=base+4; while(V426!=Cnil) {vs_push((V426)->c.c_car);V426=(V426)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T1785; T1785:; base[2]= V421; vs_top=(vs_base=base+2)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1803;} base[2]= (base0[1]->c.c_car); base[3]= (V405); {object V427; V427= (V406); vs_top=base+4; while(V427!=Cnil) {vs_push((V427)->c.c_car);V427=(V427)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T1803; T1803:; base[2]= VV[11]; base[3]= VV[12]; base[4]= VV[13]; base[5]= VV[14]; base[6]= (V421); base[7]= VV[15]; base[8]= VV[155]; base[9]= VV[17]; base[10]= VV[156]; vs_top=(vs_base=base+2)+9; (void) (*Lnk294)(); return;}} goto T1707; T1707:; base[2]= (base0[0]->c.c_car); base[3]= (V405); {object V428; V428= (V406); vs_top=base+4; while(V428!=Cnil) {vs_push((V428)->c.c_car);V428=(V428)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC83(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM100; VC100 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC130,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC130(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM101; VC101 vs_check; {register object V429; register object V430; check_arg(2); V429=(base[0]); V430=(base[1]); vs_top=sup; {long V431; object V432; long V433; long V434; object V435; register object V436; V431= (long)STREF(unsigned char,(base0[2]->c.c_car),16); V432= STREF(object,(base0[2]->c.c_car),40); V433= (long)STREF(fixnum,(base0[2]->c.c_car),24); V434= (long)STREF(fixnum,(base0[2]->c.c_car),28); V435= STREF(object,(base0[2]->c.c_car),44); if(type_of(V429)==t_structure){ goto T1833;} goto T1831; goto T1833; T1833:; if(!(((V429)->str.str_def)==(VV[149]))){ goto T1831;} V436= STREF(object,(V429),0); goto T1829; goto T1831; T1831:;{object V438; V438= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V429); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V439= vs_base[0]; if(!((V438)==(CMPcar(V439)))){ goto T1836;}} V436= CMPcar(((V429))->cc.cc_turbo[13]); goto T1829; goto T1836; T1836:; if(!(type_of((V429))==t_structure)){ goto T1842;} V436= (*(LnkLI290))((V429)); goto T1829; goto T1842; T1842:; if(!(type_of((V429))==t_symbol)){ goto T1845;} if(((V429))==Cnil){ goto T1848;} V436= (VV[56]->s.s_dbind); goto T1829; goto T1848; T1848:; V436= (VV[57]->s.s_dbind); goto T1829; goto T1845; T1845:; V436= (*(LnkLI291))((V429)); goto T1829; T1829:; {long V440; register long V441; {long V442; V442= fix(((V436))->v.v_self[V431]); if(!((V442)==0)){ goto T1853;} goto T1823; goto T1853; T1853:; V440= (long)((V433) & (V442));} V441= V440; goto T1858; T1858:; if(!(((V436))==(((V432))->v.v_self[V441]))){ goto T1860;} goto T1850; goto T1860; T1860:; V441= (long)(V441)+(1); if(!((V441)==(V434))){ goto T1865;} V441= 0; goto T1865; T1865:; if(!((V441)==(V440))){ goto T1859;} {register object V443; register object V444; V443= (V435); V444= CMPcar((V443)); goto T1875; T1875:; if(!(((V443))==Cnil)){ goto T1876;} goto T1871; goto T1876; T1876:; if(!((CMPcar((V444)))==((V436)))){ goto T1880;} goto T1850; goto T1880; T1880:; V443= CMPcdr((V443)); V444= CMPcar((V443)); goto T1875;} goto T1871; T1871:; goto T1823; goto T1859; T1859:; goto T1858;} goto T1850; T1850:; base[2]= (base0[1]->c.c_car); base[3]= VV[2]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1891;} base[2]= STREF(object,(base0[1]->c.c_car),0); base[3]= STREF(object,(base0[1]->c.c_car),4); base[4]= STREF(object,(base0[1]->c.c_car),8); base[5]= (V429); base[6]= (V430); vs_top=(vs_base=base+3)+4; {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T1891; T1891:; if(!(type_of((base0[1]->c.c_car))==t_fixnum)){ goto T1901;} {object V446; if(type_of(V429)==t_structure){ goto T1907;} goto T1905; goto T1907; T1907:; if(!(((V429)->str.str_def)==(VV[150]))){ goto T1905;} V446= STREF(object,(V429),4); goto T1903; goto T1905; T1905:;{object V448; V448= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V429); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V449= vs_base[0]; if(!((V448)==(CMPcar(V449)))){ goto T1910;}} V446= CMPcar(((V429))->cc.cc_turbo[12]); goto T1903; goto T1910; T1910:; V446= Cnil; goto T1903; T1903:; if(((V446))==Cnil){ goto T1916;} base[2]= ((V446))->v.v_self[fix((base0[1]->c.c_car))]= (V429); vs_top=(vs_base=base+2)+1; return; goto T1916; T1916:; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} goto T1901; T1901:; {object V450; V450= (base0[1]->c.c_car); base[2]= V450; base[3]= VV[10]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1919;} {object V452; object V453; object V454; V452= STREF(object,(base0[1]->c.c_car),0); V453= list(2,(V429),(V430)); V454= STREF(object,(base0[1]->c.c_car),4); if(((V454))==Cnil){ goto T1927;} if((CMPcdr((V454)))!=Cnil){ goto T1927;} base[2]= (V453); base[3]= CMPcar((V454)); vs_top=(vs_base=base+2)+2; {object _funobj = (V452);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T1927; T1927:; base[2]= (V452); base[3]= (V453); {object V455; V455= (V454); vs_top=base+4; while(V455!=Cnil) {vs_push((V455)->c.c_car);V455=(V455)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T1919; T1919:; base[2]= V450; vs_top=(vs_base=base+2)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T1937;} base[2]= (V429); base[3]= (V430); vs_top=(vs_base=base+2)+2; {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T1937; T1937:; base[2]= VV[11]; base[3]= VV[12]; base[4]= VV[13]; base[5]= VV[14]; base[6]= (V450); base[7]= VV[15]; base[8]= VV[151]; base[9]= VV[17]; base[10]= VV[152]; vs_top=(vs_base=base+2)+9; (void) (*Lnk294)(); return;}} goto T1823; T1823:; base[2]= (V429); base[3]= (V430); vs_top=(vs_base=base+2)+2; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC82(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM102; VC102 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC131,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC131(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM103; VC103 vs_check; {object V456; object V457; check_arg(2); V456=(base[0]); V457=(base[1]); vs_top=sup; {long V458; object V459; long V460; long V461; object V462; object V463; object V464; V458= (long)STREF(unsigned char,(base0[2]->c.c_car),16); V459= STREF(object,(base0[2]->c.c_car),40); V460= (long)STREF(fixnum,(base0[2]->c.c_car),24); V461= (long)STREF(fixnum,(base0[2]->c.c_car),28); V462= STREF(object,(base0[2]->c.c_car),44); if(type_of(V456)==t_structure){ goto T1965;} goto T1963; goto T1965; T1965:; if(!(((V456)->str.str_def)==(VV[143]))){ goto T1963;} V463= STREF(object,(V456),0); goto T1961; goto T1963; T1963:;{object V466; V466= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V456); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V467= vs_base[0]; if(!((V466)==(CMPcar(V467)))){ goto T1968;}} V463= CMPcar(((V456))->cc.cc_turbo[13]); goto T1961; goto T1968; T1968:; if(!(type_of((V456))==t_structure)){ goto T1974;} V463= (*(LnkLI290))((V456)); goto T1961; goto T1974; T1974:; if(!(type_of((V456))==t_symbol)){ goto T1977;} if(((V456))==Cnil){ goto T1980;} V463= (VV[56]->s.s_dbind); goto T1961; goto T1980; T1980:; V463= (VV[57]->s.s_dbind); goto T1961; goto T1977; T1977:; V463= (*(LnkLI291))((V456)); goto T1961; T1961:; if(type_of(V457)==t_structure){ goto T1986;} goto T1984; goto T1986; T1986:; if(!(((V457)->str.str_def)==(VV[144]))){ goto T1984;} V464= STREF(object,(V457),0); goto T1982; goto T1984; T1984:;{object V469; V469= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V457); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V470= vs_base[0]; if(!((V469)==(CMPcar(V470)))){ goto T1989;}} V464= CMPcar(((V457))->cc.cc_turbo[13]); goto T1982; goto T1989; T1989:; if(!(type_of((V457))==t_structure)){ goto T1995;} V464= (*(LnkLI290))((V457)); goto T1982; goto T1995; T1995:; if(!(type_of((V457))==t_symbol)){ goto T1998;} if(((V457))==Cnil){ goto T2001;} V464= (VV[56]->s.s_dbind); goto T1982; goto T2001; T2001:; V464= (VV[57]->s.s_dbind); goto T1982; goto T1998; T1998:; V464= (*(LnkLI291))((V457)); goto T1982; T1982:; {long V471; long V472; V471= 0; V472= (long)(V461)-(1); {long V473; V473= fix(((V463))->v.v_self[V458]); if(!((V473)==0)){ goto T2009;} goto T1955; goto T2009; T2009:; V471= (long)(V471)+(V473);} {long V474; V474= fix(((V464))->v.v_self[V458]); if(!((V474)==0)){ goto T2014;} goto T1955; goto T2014; T2014:; V471= (long)(V471)+(V474); V471= (long)((V471) & (V460));} {long V475; {object V476; V476= ((V459))->v.v_self[0]; if(type_of((V476))==t_fixnum){ goto T2022;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T2022; T2022:; V475= fix((V476));} {register long V477; long V478; V477= V471; V478= 0; goto T2030; T2030:; V478= (long)(V477)+(2); V477= (long)(V477)+(1); if(!(((V463))==(((V459))->v.v_self[V477]))){ goto T2034;} V477= (long)(V477)+(1); if(!(((V464))==(((V459))->v.v_self[V477]))){ goto T2034;} goto T2028; goto T2034; T2034:; V477= V478; if(!((V477)==(V472))){ goto T2043;} V477= 0; goto T2043; T2043:; if(!((V477)==(V471))){ goto T2031;} {register object V479; register object V480; V479= (V462); V480= CMPcar((V479)); goto T2053; T2053:; if(!(((V479))==Cnil)){ goto T2054;} goto T2049; goto T2054; T2054:; {register object V481; V481= CMPcar((V480)); {register object V483; V483= CMPcar((V481)); V481= CMPcdr((V481)); V482= (V483);} if(!(((V463))==(V482))){ goto T2058;} {register object V485; V485= CMPcar((V481)); V481= CMPcdr((V481)); V484= (V485);} if(!(((V464))==(V484))){ goto T2058;} goto T2028;} goto T2058; T2058:; V479= CMPcdr((V479)); V480= CMPcar((V479)); goto T2053;} goto T2049; T2049:; goto T1955; goto T2031; T2031:; goto T2030; goto T2028; T2028:; {object V487; V487= ((V459))->v.v_self[0]; if(type_of((V487))==t_fixnum){ goto T2082;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T2082; T2082:; V486= fix((V487));} if((V475)==(V486)){ goto T2003;} goto T1955;}}} goto T2003; T2003:; base[2]= (base0[1]->c.c_car); base[3]= VV[2]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2088;} base[2]= STREF(object,(base0[1]->c.c_car),0); base[3]= STREF(object,(base0[1]->c.c_car),4); base[4]= STREF(object,(base0[1]->c.c_car),8); base[5]= (V456); base[6]= (V457); vs_top=(vs_base=base+3)+4; {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2088; T2088:; if(!(type_of((base0[1]->c.c_car))==t_fixnum)){ goto T2098;} {object V489; if(type_of(V456)==t_structure){ goto T2104;} goto T2102; goto T2104; T2104:; if(!(((V456)->str.str_def)==(VV[145]))){ goto T2102;} V489= STREF(object,(V456),4); goto T2100; goto T2102; T2102:;{object V491; V491= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V456); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V492= vs_base[0]; if(!((V491)==(CMPcar(V492)))){ goto T2107;}} V489= CMPcar(((V456))->cc.cc_turbo[12]); goto T2100; goto T2107; T2107:; V489= Cnil; goto T2100; T2100:; if(((V489))==Cnil){ goto T2113;} base[2]= ((V489))->v.v_self[fix((base0[1]->c.c_car))]= (V456); vs_top=(vs_base=base+2)+1; return; goto T2113; T2113:; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} goto T2098; T2098:; {object V493; V493= (base0[1]->c.c_car); base[2]= V493; base[3]= VV[10]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2116;} {object V495; object V496; object V497; V495= STREF(object,(base0[1]->c.c_car),0); V496= list(2,(V456),(V457)); V497= STREF(object,(base0[1]->c.c_car),4); if(((V497))==Cnil){ goto T2124;} if((CMPcdr((V497)))!=Cnil){ goto T2124;} base[2]= (V496); base[3]= CMPcar((V497)); vs_top=(vs_base=base+2)+2; {object _funobj = (V495);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2124; T2124:; base[2]= (V495); base[3]= (V496); {object V498; V498= (V497); vs_top=base+4; while(V498!=Cnil) {vs_push((V498)->c.c_car);V498=(V498)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T2116; T2116:; base[2]= V493; vs_top=(vs_base=base+2)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2134;} base[2]= (V456); base[3]= (V457); vs_top=(vs_base=base+2)+2; {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2134; T2134:; base[2]= VV[11]; base[3]= VV[12]; base[4]= VV[13]; base[5]= VV[14]; base[6]= (V493); base[7]= VV[15]; base[8]= VV[146]; base[9]= VV[17]; base[10]= VV[147]; vs_top=(vs_base=base+2)+9; (void) (*Lnk294)(); return;}} goto T1955; T1955:; base[2]= (V456); base[3]= (V457); vs_top=(vs_base=base+2)+2; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return; } } /* local function CLOSURE */ static void LC81(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM104; VC104 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC132,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC132(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM105; VC105 vs_check; {register object V499; register object V500; register object V501; check_arg(3); V499=(base[0]); V500=(base[1]); V501=(base[2]); vs_top=sup; {long V502; object V503; long V504; long V505; object V506; register object V507; V502= (long)STREF(unsigned char,(base0[2]->c.c_car),16); V503= STREF(object,(base0[2]->c.c_car),40); V504= (long)STREF(fixnum,(base0[2]->c.c_car),24); V505= (long)STREF(fixnum,(base0[2]->c.c_car),28); V506= STREF(object,(base0[2]->c.c_car),44); if(type_of(V500)==t_structure){ goto T2162;} goto T2160; goto T2162; T2162:; if(!(((V500)->str.str_def)==(VV[139]))){ goto T2160;} V507= STREF(object,(V500),0); goto T2158; goto T2160; T2160:;{object V509; V509= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V500); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V510= vs_base[0]; if(!((V509)==(CMPcar(V510)))){ goto T2165;}} V507= CMPcar(((V500))->cc.cc_turbo[13]); goto T2158; goto T2165; T2165:; if(!(type_of((V500))==t_structure)){ goto T2171;} V507= (*(LnkLI290))((V500)); goto T2158; goto T2171; T2171:; if(!(type_of((V500))==t_symbol)){ goto T2174;} if(((V500))==Cnil){ goto T2177;} V507= (VV[56]->s.s_dbind); goto T2158; goto T2177; T2177:; V507= (VV[57]->s.s_dbind); goto T2158; goto T2174; T2174:; V507= (*(LnkLI291))((V500)); goto T2158; T2158:; {long V511; register long V512; {long V513; V513= fix(((V507))->v.v_self[V502]); if(!((V513)==0)){ goto T2182;} goto T2152; goto T2182; T2182:; V511= (long)((V504) & (V513));} V512= V511; goto T2187; T2187:; if(!(((V507))==(((V503))->v.v_self[V512]))){ goto T2189;} goto T2179; goto T2189; T2189:; V512= (long)(V512)+(1); if(!((V512)==(V505))){ goto T2194;} V512= 0; goto T2194; T2194:; if(!((V512)==(V511))){ goto T2188;} {register object V514; register object V515; V514= (V506); V515= CMPcar((V514)); goto T2204; T2204:; if(!(((V514))==Cnil)){ goto T2205;} goto T2200; goto T2205; T2205:; if(!((CMPcar((V515)))==((V507)))){ goto T2209;} goto T2179; goto T2209; T2209:; V514= CMPcdr((V514)); V515= CMPcar((V514)); goto T2204;} goto T2200; T2200:; goto T2152; goto T2188; T2188:; goto T2187;} goto T2179; T2179:; base[3]= (base0[1]->c.c_car); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2220;} base[3]= STREF(object,(base0[1]->c.c_car),0); base[4]= STREF(object,(base0[1]->c.c_car),4); base[5]= STREF(object,(base0[1]->c.c_car),8); base[6]= (V499); base[7]= (V500); base[8]= (V501); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2220; T2220:; {object V516; V516= (base0[1]->c.c_car); base[3]= V516; base[4]= VV[10]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2231;} {object V518; object V519; object V520; V518= STREF(object,(base0[1]->c.c_car),0); V519= list(3,(V499),(V500),(V501)); V520= STREF(object,(base0[1]->c.c_car),4); if(((V520))==Cnil){ goto T2239;} if((CMPcdr((V520)))!=Cnil){ goto T2239;} base[3]= (V519); base[4]= CMPcar((V520)); vs_top=(vs_base=base+3)+2; {object _funobj = (V518);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2239; T2239:; base[3]= (V518); base[4]= (V519); {object V521; V521= (V520); vs_top=base+5; while(V521!=Cnil) {vs_push((V521)->c.c_car);V521=(V521)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T2231; T2231:; base[3]= V516; vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2249;} base[3]= (V499); base[4]= (V500); base[5]= (V501); vs_top=(vs_base=base+3)+3; {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2249; T2249:; base[3]= VV[11]; base[4]= VV[12]; base[5]= VV[13]; base[6]= VV[14]; base[7]= (V516); base[8]= VV[15]; base[9]= VV[140]; base[10]= VV[17]; base[11]= VV[141]; vs_top=(vs_base=base+3)+9; (void) (*Lnk294)(); return;}} goto T2152; T2152:; base[3]= (V499); base[4]= (V500); base[5]= (V501); vs_top=(vs_base=base+3)+3; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[3]= Cnil; vs_top=(vs_base=base+3)+1; return; } } /* local function CLOSURE */ static void LC80(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM106; VC106 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC133,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC133(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM107; VC107 vs_check; {object V522; check_arg(1); V522=(base[0]); vs_top=sup; {register object V523; V523= Cnil; {long V524; register object V525; long V526; long V527; object V528; register object V529; V524= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V525= STREF(object,(base0[1]->c.c_car),40); V526= (long)STREF(fixnum,(base0[1]->c.c_car),24); V527= (long)STREF(fixnum,(base0[1]->c.c_car),28); V528= STREF(object,(base0[1]->c.c_car),44); if(type_of(V522)==t_structure){ goto T2279;} goto T2277; goto T2279; T2279:; if(!(((V522)->str.str_def)==(VV[136]))){ goto T2277;} V529= STREF(object,(V522),0); goto T2275; goto T2277; T2277:;{object V531; V531= (VV[42]->s.s_dbind); base[1]= small_fixnum(14); base[2]= (V522); vs_top=(vs_base=base+1)+2; (void) (*Lnk287)(); vs_top=sup; V532= vs_base[0]; if(!((V531)==(CMPcar(V532)))){ goto T2282;}} V529= CMPcar(((V522))->cc.cc_turbo[13]); goto T2275; goto T2282; T2282:; if(!(type_of((V522))==t_structure)){ goto T2288;} V529= (*(LnkLI290))((V522)); goto T2275; goto T2288; T2288:; if(!(type_of((V522))==t_symbol)){ goto T2291;} if(((V522))==Cnil){ goto T2294;} V529= (VV[56]->s.s_dbind); goto T2275; goto T2294; T2294:; V529= (VV[57]->s.s_dbind); goto T2275; goto T2291; T2291:; V529= (*(LnkLI291))((V522)); goto T2275; T2275:; {long V533; long V534; {long V535; V535= fix(((V529))->v.v_self[V524]); if(!((V535)==0)){ goto T2299;} goto T2269; goto T2299; T2299:; V533= (long)((V526) & (V535));} {object V536; V536= ((V525))->v.v_self[0]; if(type_of((V536))==t_fixnum){ goto T2304;} base[1]= VV[58]; vs_top=(vs_base=base+1)+1; Lerror(); vs_top=sup; goto T2304; T2304:; V534= fix((V536));} {register long V537; V537= V533; goto T2311; T2311:; if(!(((V529))==(((V525))->v.v_self[V537]))){ goto T2313;} V523= ((V525))->v.v_self[(long)(V537)+1]; goto T2309; goto T2313; T2313:; V537= (long)(V537)+(2); if(!((V537)==(V527))){ goto T2320;} V537= 0; goto T2320; T2320:; if(!((V537)==(V533))){ goto T2312;} {register object V538; register object V539; V538= (V528); V539= CMPcar((V538)); goto T2330; T2330:; if(!(((V538))==Cnil)){ goto T2331;} goto T2326; goto T2331; T2331:; if(!((CMPcar((V539)))==((V529)))){ goto T2335;} V523= CMPcdr((V539)); goto T2309; goto T2335; T2335:; V538= CMPcdr((V538)); V539= CMPcar((V538)); goto T2330;} goto T2326; T2326:; goto T2269; goto T2312; T2312:; goto T2311; goto T2309; T2309:; {object V541; V541= ((V525))->v.v_self[0]; if(type_of((V541))==t_fixnum){ goto T2350;} base[1]= VV[58]; vs_top=(vs_base=base+1)+1; Lerror(); vs_top=sup; goto T2350; T2350:; V540= fix((V541));} if((V534)==(V540)){ goto T2296;} goto T2269;}} goto T2296; T2296:; base[1]= (V523); vs_top=(vs_base=base+1)+1; return;} goto T2269; T2269:; base[1]= (V522); vs_top=(vs_base=base+1)+1; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[1]= Cnil; vs_top=(vs_base=base+1)+1; return;} } } /* local function CLOSURE */ static void LC79(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM108; VC108 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC134,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC134(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM109; VC109 vs_check; {object V542; object V543; check_arg(2); V542=(base[0]); V543=(base[1]); vs_top=sup; {register object V544; V544= Cnil; {long V545; register object V546; long V547; long V548; object V549; register object V550; V545= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V546= STREF(object,(base0[1]->c.c_car),40); V547= (long)STREF(fixnum,(base0[1]->c.c_car),24); V548= (long)STREF(fixnum,(base0[1]->c.c_car),28); V549= STREF(object,(base0[1]->c.c_car),44); if(type_of(V542)==t_structure){ goto T2367;} goto T2365; goto T2367; T2367:; if(!(((V542)->str.str_def)==(VV[134]))){ goto T2365;} V550= STREF(object,(V542),0); goto T2363; goto T2365; T2365:;{object V552; V552= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V542); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V553= vs_base[0]; if(!((V552)==(CMPcar(V553)))){ goto T2370;}} V550= CMPcar(((V542))->cc.cc_turbo[13]); goto T2363; goto T2370; T2370:; if(!(type_of((V542))==t_structure)){ goto T2376;} V550= (*(LnkLI290))((V542)); goto T2363; goto T2376; T2376:; if(!(type_of((V542))==t_symbol)){ goto T2379;} if(((V542))==Cnil){ goto T2382;} V550= (VV[56]->s.s_dbind); goto T2363; goto T2382; T2382:; V550= (VV[57]->s.s_dbind); goto T2363; goto T2379; T2379:; V550= (*(LnkLI291))((V542)); goto T2363; T2363:; {long V554; long V555; {long V556; V556= fix(((V550))->v.v_self[V545]); if(!((V556)==0)){ goto T2387;} goto T2357; goto T2387; T2387:; V554= (long)((V547) & (V556));} {object V557; V557= ((V546))->v.v_self[0]; if(type_of((V557))==t_fixnum){ goto T2392;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T2392; T2392:; V555= fix((V557));} {register long V558; V558= V554; goto T2399; T2399:; if(!(((V550))==(((V546))->v.v_self[V558]))){ goto T2401;} V544= ((V546))->v.v_self[(long)(V558)+1]; goto T2397; goto T2401; T2401:; V558= (long)(V558)+(2); if(!((V558)==(V548))){ goto T2408;} V558= 0; goto T2408; T2408:; if(!((V558)==(V554))){ goto T2400;} {register object V559; register object V560; V559= (V549); V560= CMPcar((V559)); goto T2418; T2418:; if(!(((V559))==Cnil)){ goto T2419;} goto T2414; goto T2419; T2419:; if(!((CMPcar((V560)))==((V550)))){ goto T2423;} V544= CMPcdr((V560)); goto T2397; goto T2423; T2423:; V559= CMPcdr((V559)); V560= CMPcar((V559)); goto T2418;} goto T2414; T2414:; goto T2357; goto T2400; T2400:; goto T2399; goto T2397; T2397:; {object V562; V562= ((V546))->v.v_self[0]; if(type_of((V562))==t_fixnum){ goto T2438;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T2438; T2438:; V561= fix((V562));} if((V555)==(V561)){ goto T2384;} goto T2357;}} goto T2384; T2384:; base[2]= (V544); vs_top=(vs_base=base+2)+1; return;} goto T2357; T2357:; base[2]= (V542); base[3]= (V543); vs_top=(vs_base=base+2)+2; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} } } /* local function CLOSURE */ static void LC78(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM110; VC110 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC135,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC135(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM111; VC111 vs_check; {object V563; object V564; if(vs_top-vs_base<1) too_few_arguments(); V563=(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]);} V564=(base[1]); vs_top=sup; {register object V565; V565= Cnil; {long V566; register object V567; long V568; long V569; object V570; register object V571; V566= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V567= STREF(object,(base0[1]->c.c_car),40); V568= (long)STREF(fixnum,(base0[1]->c.c_car),24); V569= (long)STREF(fixnum,(base0[1]->c.c_car),28); V570= STREF(object,(base0[1]->c.c_car),44); if(type_of(V563)==t_structure){ goto T2456;} goto T2454; goto T2456; T2456:; if(!(((V563)->str.str_def)==(VV[129]))){ goto T2454;} V571= STREF(object,(V563),0); goto T2452; goto T2454; T2454:;{object V573; V573= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V563); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V574= vs_base[0]; if(!((V573)==(CMPcar(V574)))){ goto T2459;}} V571= CMPcar(((V563))->cc.cc_turbo[13]); goto T2452; goto T2459; T2459:; if(!(type_of((V563))==t_structure)){ goto T2465;} V571= (*(LnkLI290))((V563)); goto T2452; goto T2465; T2465:; if(!(type_of((V563))==t_symbol)){ goto T2468;} if(((V563))==Cnil){ goto T2471;} V571= (VV[56]->s.s_dbind); goto T2452; goto T2471; T2471:; V571= (VV[57]->s.s_dbind); goto T2452; goto T2468; T2468:; V571= (*(LnkLI291))((V563)); goto T2452; T2452:; {long V575; long V576; {long V577; V577= fix(((V571))->v.v_self[V566]); if(!((V577)==0)){ goto T2476;} goto T2446; goto T2476; T2476:; V575= (long)((V568) & (V577));} {object V578; V578= ((V567))->v.v_self[0]; if(type_of((V578))==t_fixnum){ goto T2481;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T2481; T2481:; V576= fix((V578));} {register long V579; V579= V575; goto T2488; T2488:; if(!(((V571))==(((V567))->v.v_self[V579]))){ goto T2490;} V565= ((V567))->v.v_self[(long)(V579)+1]; goto T2486; goto T2490; T2490:; V579= (long)(V579)+(2); if(!((V579)==(V569))){ goto T2497;} V579= 0; goto T2497; T2497:; if(!((V579)==(V575))){ goto T2489;} {register object V580; register object V581; V580= (V570); V581= CMPcar((V580)); goto T2507; T2507:; if(!(((V580))==Cnil)){ goto T2508;} goto T2503; goto T2508; T2508:; if(!((CMPcar((V581)))==((V571)))){ goto T2512;} V565= CMPcdr((V581)); goto T2486; goto T2512; T2512:; V580= CMPcdr((V580)); V581= CMPcar((V580)); goto T2507;} goto T2503; T2503:; goto T2446; goto T2489; T2489:; goto T2488; goto T2486; T2486:; {object V583; V583= ((V567))->v.v_self[0]; if(type_of((V583))==t_fixnum){ goto T2527;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T2527; T2527:; V582= fix((V583));} if((V576)==(V582)){ goto T2473;} goto T2446;}} goto T2473; T2473:; base[2]= (V565); base[3]= VV[2]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2533;} base[2]= STREF(object,(V565),0); base[3]= STREF(object,(V565),4); base[4]= STREF(object,(V565),8); base[5]= (V563); base[6]= (V564); vs_top=(vs_base=base+3)+4; {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2533; T2533:; base[2]= V565; base[3]= VV[10]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2543;} {object V586; object V587; object V588; V586= STREF(object,(V565),0); V587= make_cons((V563),(V564)); V588= STREF(object,(V565),4); if(((V588))==Cnil){ goto T2551;} if((CMPcdr((V588)))!=Cnil){ goto T2551;} base[2]= (V587); base[3]= CMPcar((V588)); vs_top=(vs_base=base+2)+2; {object _funobj = (V586);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2551; T2551:; base[2]= (V586); base[3]= (V587); {object V589; V589= (V588); vs_top=base+4; while(V589!=Cnil) {vs_push((V589)->c.c_car);V589=(V589)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T2543; T2543:; base[2]= V565; vs_top=(vs_base=base+2)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2561;} base[2]= (V565); base[3]= (V563); {object V590; V590= (V564); vs_top=base+4; while(V590!=Cnil) {vs_push((V590)->c.c_car);V590=(V590)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2561; T2561:; base[2]= VV[11]; base[3]= VV[12]; base[4]= VV[13]; base[5]= VV[14]; base[6]= V565; base[7]= VV[15]; base[8]= VV[130]; base[9]= VV[17]; base[10]= VV[131]; vs_top=(vs_base=base+2)+9; (void) (*Lnk294)(); return;} goto T2446; T2446:; base[2]= (base0[0]->c.c_car); base[3]= (V563); {object V591; V591= (V564); vs_top=base+4; while(V591!=Cnil) {vs_push((V591)->c.c_car);V591=(V591)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} } } /* local function CLOSURE */ static void LC77(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM112; VC112 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC136,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC136(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM113; VC113 vs_check; {object V592; check_arg(1); V592=(base[0]); vs_top=sup; {register object V593; V593= Cnil; {long V594; register object V595; long V596; long V597; object V598; register object V599; V594= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V595= STREF(object,(base0[1]->c.c_car),40); V596= (long)STREF(fixnum,(base0[1]->c.c_car),24); V597= (long)STREF(fixnum,(base0[1]->c.c_car),28); V598= STREF(object,(base0[1]->c.c_car),44); if(type_of(V592)==t_structure){ goto T2591;} goto T2589; goto T2591; T2591:; if(!(((V592)->str.str_def)==(VV[124]))){ goto T2589;} V599= STREF(object,(V592),0); goto T2587; goto T2589; T2589:;{object V601; V601= (VV[42]->s.s_dbind); base[1]= small_fixnum(14); base[2]= (V592); vs_top=(vs_base=base+1)+2; (void) (*Lnk287)(); vs_top=sup; V602= vs_base[0]; if(!((V601)==(CMPcar(V602)))){ goto T2594;}} V599= CMPcar(((V592))->cc.cc_turbo[13]); goto T2587; goto T2594; T2594:; if(!(type_of((V592))==t_structure)){ goto T2600;} V599= (*(LnkLI290))((V592)); goto T2587; goto T2600; T2600:; if(!(type_of((V592))==t_symbol)){ goto T2603;} if(((V592))==Cnil){ goto T2606;} V599= (VV[56]->s.s_dbind); goto T2587; goto T2606; T2606:; V599= (VV[57]->s.s_dbind); goto T2587; goto T2603; T2603:; V599= (*(LnkLI291))((V592)); goto T2587; T2587:; {long V603; long V604; {long V605; V605= fix(((V599))->v.v_self[V594]); if(!((V605)==0)){ goto T2611;} goto T2581; goto T2611; T2611:; V603= (long)((V596) & (V605));} {object V606; V606= ((V595))->v.v_self[0]; if(type_of((V606))==t_fixnum){ goto T2616;} base[1]= VV[58]; vs_top=(vs_base=base+1)+1; Lerror(); vs_top=sup; goto T2616; T2616:; V604= fix((V606));} {register long V607; V607= V603; goto T2623; T2623:; if(!(((V599))==(((V595))->v.v_self[V607]))){ goto T2625;} V593= ((V595))->v.v_self[(long)(V607)+1]; goto T2621; goto T2625; T2625:; V607= (long)(V607)+(2); if(!((V607)==(V597))){ goto T2632;} V607= 0; goto T2632; T2632:; if(!((V607)==(V603))){ goto T2624;} {register object V608; register object V609; V608= (V598); V609= CMPcar((V608)); goto T2642; T2642:; if(!(((V608))==Cnil)){ goto T2643;} goto T2638; goto T2643; T2643:; if(!((CMPcar((V609)))==((V599)))){ goto T2647;} V593= CMPcdr((V609)); goto T2621; goto T2647; T2647:; V608= CMPcdr((V608)); V609= CMPcar((V608)); goto T2642;} goto T2638; T2638:; goto T2581; goto T2624; T2624:; goto T2623; goto T2621; T2621:; {object V611; V611= ((V595))->v.v_self[0]; if(type_of((V611))==t_fixnum){ goto T2662;} base[1]= VV[58]; vs_top=(vs_base=base+1)+1; Lerror(); vs_top=sup; goto T2662; T2662:; V610= fix((V611));} if((V604)==(V610)){ goto T2608;} goto T2581;}} goto T2608; T2608:; base[1]= (V593); base[2]= VV[2]; vs_top=(vs_base=base+1)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2668;} base[1]= STREF(object,(V593),0); base[2]= STREF(object,(V593),4); base[3]= STREF(object,(V593),8); base[4]= (V592); vs_top=(vs_base=base+2)+3; {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2668; T2668:; if(!(type_of((V593))==t_fixnum)){ goto T2677;} {object V612; object V613; if(type_of(V592)==t_structure){ goto T2683;} goto T2681; goto T2683; T2683:; if(!(((V592)->str.str_def)==(VV[125]))){ goto T2681;} V612= STREF(object,(V592),4); goto T2679; goto T2681; T2681:;{object V615; V615= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V592); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V616= vs_base[0]; if(!((V615)==(CMPcar(V616)))){ goto T2686;}} V612= CMPcar(((V592))->cc.cc_turbo[12]); goto T2679; goto T2686; T2686:; V612= Cnil; goto T2679; T2679:; if(((V612))==Cnil){ goto T2693;} V613= ((V612))->v.v_self[fix((V593))]; goto T2691; goto T2693; T2693:; V613= Cnil; goto T2691; T2691:; if(!(((V613))==(VV[43]))){ goto T2696;} base[3]= (V592); base[4]= (V593); vs_top=(vs_base=base+3)+2; (void) (*Lnk293)(); return; goto T2696; T2696:; base[3]= (V613); vs_top=(vs_base=base+3)+1; return;} goto T2677; T2677:; base[1]= V593; base[2]= VV[10]; vs_top=(vs_base=base+1)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2701;} {object V619; object V620; object V621; V619= STREF(object,(V593),0); V620= make_cons((V592),Cnil); V621= STREF(object,(V593),4); if(((V621))==Cnil){ goto T2709;} if((CMPcdr((V621)))!=Cnil){ goto T2709;} base[1]= (V620); base[2]= CMPcar((V621)); vs_top=(vs_base=base+1)+2; {object _funobj = (V619);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2709; T2709:; base[1]= (V619); base[2]= (V620); {object V622; V622= (V621); vs_top=base+3; while(V622!=Cnil) {vs_push((V622)->c.c_car);V622=(V622)->c.c_cdr;} vs_base=base+2;} {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T2701; T2701:; base[1]= V593; vs_top=(vs_base=base+1)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2719;} base[1]= (V592); vs_top=(vs_base=base+1)+1; {object _funobj = (V593);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2719; T2719:; base[1]= VV[11]; base[2]= VV[12]; base[3]= VV[13]; base[4]= VV[14]; base[5]= V593; base[6]= VV[15]; base[7]= VV[126]; base[8]= VV[17]; base[9]= VV[127]; vs_top=(vs_base=base+1)+9; (void) (*Lnk294)(); return;} goto T2581; T2581:; base[1]= (V592); vs_top=(vs_base=base+1)+1; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[1]= Cnil; vs_top=(vs_base=base+1)+1; return;} } } /* local function CLOSURE */ static void LC76(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM114; VC114 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC137,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC137(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM115; VC115 vs_check; {object V623; object V624; object V625; if(vs_top-vs_base<2) too_few_arguments(); V623=(base[0]); V624=(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]);} V625=(base[2]); vs_top=sup; {register object V626; V626= Cnil; {long V627; register object V628; long V629; long V630; object V631; register object V632; V627= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V628= STREF(object,(base0[1]->c.c_car),40); V629= (long)STREF(fixnum,(base0[1]->c.c_car),24); V630= (long)STREF(fixnum,(base0[1]->c.c_car),28); V631= STREF(object,(base0[1]->c.c_car),44); if(type_of(V623)==t_structure){ goto T2745;} goto T2743; goto T2745; T2745:; if(!(((V623)->str.str_def)==(VV[120]))){ goto T2743;} V632= STREF(object,(V623),0); goto T2741; goto T2743; T2743:;{object V634; V634= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V623); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V635= vs_base[0]; if(!((V634)==(CMPcar(V635)))){ goto T2748;}} V632= CMPcar(((V623))->cc.cc_turbo[13]); goto T2741; goto T2748; T2748:; if(!(type_of((V623))==t_structure)){ goto T2754;} V632= (*(LnkLI290))((V623)); goto T2741; goto T2754; T2754:; if(!(type_of((V623))==t_symbol)){ goto T2757;} if(((V623))==Cnil){ goto T2760;} V632= (VV[56]->s.s_dbind); goto T2741; goto T2760; T2760:; V632= (VV[57]->s.s_dbind); goto T2741; goto T2757; T2757:; V632= (*(LnkLI291))((V623)); goto T2741; T2741:; {long V636; long V637; {long V638; V638= fix(((V632))->v.v_self[V627]); if(!((V638)==0)){ goto T2765;} goto T2735; goto T2765; T2765:; V636= (long)((V629) & (V638));} {object V639; V639= ((V628))->v.v_self[0]; if(type_of((V639))==t_fixnum){ goto T2770;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T2770; T2770:; V637= fix((V639));} {register long V640; V640= V636; goto T2777; T2777:; if(!(((V632))==(((V628))->v.v_self[V640]))){ goto T2779;} V626= ((V628))->v.v_self[(long)(V640)+1]; goto T2775; goto T2779; T2779:; V640= (long)(V640)+(2); if(!((V640)==(V630))){ goto T2786;} V640= 0; goto T2786; T2786:; if(!((V640)==(V636))){ goto T2778;} {register object V641; register object V642; V641= (V631); V642= CMPcar((V641)); goto T2796; T2796:; if(!(((V641))==Cnil)){ goto T2797;} goto T2792; goto T2797; T2797:; if(!((CMPcar((V642)))==((V632)))){ goto T2801;} V626= CMPcdr((V642)); goto T2775; goto T2801; T2801:; V641= CMPcdr((V641)); V642= CMPcar((V641)); goto T2796;} goto T2792; T2792:; goto T2735; goto T2778; T2778:; goto T2777; goto T2775; T2775:; {object V644; V644= ((V628))->v.v_self[0]; if(type_of((V644))==t_fixnum){ goto T2816;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T2816; T2816:; V643= fix((V644));} if((V637)==(V643)){ goto T2762;} goto T2735;}} goto T2762; T2762:; base[3]= (V626); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2822;} base[3]= STREF(object,(V626),0); base[4]= STREF(object,(V626),4); base[5]= STREF(object,(V626),8); base[6]= (V623); base[7]= (V624); base[8]= (V625); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2822; T2822:; base[3]= V626; base[4]= VV[10]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2833;} {object V647; object V648; object V649; V647= STREF(object,(V626),0); V648= listA(3,(V623),(V624),(V625)); V649= STREF(object,(V626),4); if(((V649))==Cnil){ goto T2841;} if((CMPcdr((V649)))!=Cnil){ goto T2841;} base[3]= (V648); base[4]= CMPcar((V649)); vs_top=(vs_base=base+3)+2; {object _funobj = (V647);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2841; T2841:; base[3]= (V647); base[4]= (V648); {object V650; V650= (V649); vs_top=base+5; while(V650!=Cnil) {vs_push((V650)->c.c_car);V650=(V650)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T2833; T2833:; base[3]= V626; vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2851;} base[3]= (V626); base[4]= (V623); base[5]= (V624); {object V651; V651= (V625); vs_top=base+6; while(V651!=Cnil) {vs_push((V651)->c.c_car);V651=(V651)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2851; T2851:; base[3]= VV[11]; base[4]= VV[12]; base[5]= VV[13]; base[6]= VV[14]; base[7]= V626; base[8]= VV[15]; base[9]= VV[121]; base[10]= VV[17]; base[11]= VV[122]; vs_top=(vs_base=base+3)+9; (void) (*Lnk294)(); return;} goto T2735; T2735:; base[3]= (base0[0]->c.c_car); base[4]= (V623); base[5]= (V624); {object V652; V652= (V625); vs_top=base+6; while(V652!=Cnil) {vs_push((V652)->c.c_car);V652=(V652)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[3]= Cnil; vs_top=(vs_base=base+3)+1; return;} } } /* local function CLOSURE */ static void LC75(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM116; VC116 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC138,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC138(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM117; VC117 vs_check; {object V653; object V654; check_arg(2); V653=(base[0]); V654=(base[1]); vs_top=sup; {register object V655; V655= Cnil; {long V656; register object V657; long V658; long V659; object V660; register object V661; V656= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V657= STREF(object,(base0[1]->c.c_car),40); V658= (long)STREF(fixnum,(base0[1]->c.c_car),24); V659= (long)STREF(fixnum,(base0[1]->c.c_car),28); V660= STREF(object,(base0[1]->c.c_car),44); if(type_of(V653)==t_structure){ goto T2883;} goto T2881; goto T2883; T2883:; if(!(((V653)->str.str_def)==(VV[115]))){ goto T2881;} V661= STREF(object,(V653),0); goto T2879; goto T2881; T2881:;{object V663; V663= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V653); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V664= vs_base[0]; if(!((V663)==(CMPcar(V664)))){ goto T2886;}} V661= CMPcar(((V653))->cc.cc_turbo[13]); goto T2879; goto T2886; T2886:; if(!(type_of((V653))==t_structure)){ goto T2892;} V661= (*(LnkLI290))((V653)); goto T2879; goto T2892; T2892:; if(!(type_of((V653))==t_symbol)){ goto T2895;} if(((V653))==Cnil){ goto T2898;} V661= (VV[56]->s.s_dbind); goto T2879; goto T2898; T2898:; V661= (VV[57]->s.s_dbind); goto T2879; goto T2895; T2895:; V661= (*(LnkLI291))((V653)); goto T2879; T2879:; {long V665; long V666; {long V667; V667= fix(((V661))->v.v_self[V656]); if(!((V667)==0)){ goto T2903;} goto T2873; goto T2903; T2903:; V665= (long)((V658) & (V667));} {object V668; V668= ((V657))->v.v_self[0]; if(type_of((V668))==t_fixnum){ goto T2908;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T2908; T2908:; V666= fix((V668));} {register long V669; V669= V665; goto T2915; T2915:; if(!(((V661))==(((V657))->v.v_self[V669]))){ goto T2917;} V655= ((V657))->v.v_self[(long)(V669)+1]; goto T2913; goto T2917; T2917:; V669= (long)(V669)+(2); if(!((V669)==(V659))){ goto T2924;} V669= 0; goto T2924; T2924:; if(!((V669)==(V665))){ goto T2916;} {register object V670; register object V671; V670= (V660); V671= CMPcar((V670)); goto T2934; T2934:; if(!(((V670))==Cnil)){ goto T2935;} goto T2930; goto T2935; T2935:; if(!((CMPcar((V671)))==((V661)))){ goto T2939;} V655= CMPcdr((V671)); goto T2913; goto T2939; T2939:; V670= CMPcdr((V670)); V671= CMPcar((V670)); goto T2934;} goto T2930; T2930:; goto T2873; goto T2916; T2916:; goto T2915; goto T2913; T2913:; {object V673; V673= ((V657))->v.v_self[0]; if(type_of((V673))==t_fixnum){ goto T2954;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T2954; T2954:; V672= fix((V673));} if((V666)==(V672)){ goto T2900;} goto T2873;}} goto T2900; T2900:; base[2]= (V655); base[3]= VV[2]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2960;} base[2]= STREF(object,(V655),0); base[3]= STREF(object,(V655),4); base[4]= STREF(object,(V655),8); base[5]= (V653); base[6]= (V654); vs_top=(vs_base=base+3)+4; {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2960; T2960:; if(!(type_of((V655))==t_fixnum)){ goto T2970;} {object V675; if(type_of(V653)==t_structure){ goto T2976;} goto T2974; goto T2976; T2976:; if(!(((V653)->str.str_def)==(VV[116]))){ goto T2974;} V675= STREF(object,(V653),4); goto T2972; goto T2974; T2974:;{object V677; V677= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V653); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V678= vs_base[0]; if(!((V677)==(CMPcar(V678)))){ goto T2979;}} V675= CMPcar(((V653))->cc.cc_turbo[12]); goto T2972; goto T2979; T2979:; V675= Cnil; goto T2972; T2972:; if(((V675))==Cnil){ goto T2985;} base[2]= ((V675))->v.v_self[fix((V655))]= (V653); vs_top=(vs_base=base+2)+1; return; goto T2985; T2985:; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} goto T2970; T2970:; base[2]= V655; base[3]= VV[10]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T2988;} {object V681; object V682; object V683; V681= STREF(object,(V655),0); V682= list(2,(V653),(V654)); V683= STREF(object,(V655),4); if(((V683))==Cnil){ goto T2996;} if((CMPcdr((V683)))!=Cnil){ goto T2996;} base[2]= (V682); base[3]= CMPcar((V683)); vs_top=(vs_base=base+2)+2; {object _funobj = (V681);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T2996; T2996:; base[2]= (V681); base[3]= (V682); {object V684; V684= (V683); vs_top=base+4; while(V684!=Cnil) {vs_push((V684)->c.c_car);V684=(V684)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T2988; T2988:; base[2]= V655; vs_top=(vs_base=base+2)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3006;} base[2]= (V653); base[3]= (V654); vs_top=(vs_base=base+2)+2; {object _funobj = (V655);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3006; T3006:; base[2]= VV[11]; base[3]= VV[12]; base[4]= VV[13]; base[5]= VV[14]; base[6]= V655; base[7]= VV[15]; base[8]= VV[117]; base[9]= VV[17]; base[10]= VV[118]; vs_top=(vs_base=base+2)+9; (void) (*Lnk294)(); return;} goto T2873; T2873:; base[2]= (V653); base[3]= (V654); vs_top=(vs_base=base+2)+2; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} } } /* local function CLOSURE */ static void LC74(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM118; VC118 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC139,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC139(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM119; VC119 vs_check; {object V685; object V686; check_arg(2); V685=(base[0]); V686=(base[1]); vs_top=sup; {object V687; V687= Cnil; {long V688; object V689; long V690; long V691; object V692; object V693; object V694; V688= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V689= STREF(object,(base0[1]->c.c_car),40); V690= (long)STREF(fixnum,(base0[1]->c.c_car),24); V691= (long)STREF(fixnum,(base0[1]->c.c_car),28); V692= STREF(object,(base0[1]->c.c_car),44); if(type_of(V685)==t_structure){ goto T3034;} goto T3032; goto T3034; T3034:; if(!(((V685)->str.str_def)==(VV[109]))){ goto T3032;} V693= STREF(object,(V685),0); goto T3030; goto T3032; T3032:;{object V696; V696= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V685); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V697= vs_base[0]; if(!((V696)==(CMPcar(V697)))){ goto T3037;}} V693= CMPcar(((V685))->cc.cc_turbo[13]); goto T3030; goto T3037; T3037:; if(!(type_of((V685))==t_structure)){ goto T3043;} V693= (*(LnkLI290))((V685)); goto T3030; goto T3043; T3043:; if(!(type_of((V685))==t_symbol)){ goto T3046;} if(((V685))==Cnil){ goto T3049;} V693= (VV[56]->s.s_dbind); goto T3030; goto T3049; T3049:; V693= (VV[57]->s.s_dbind); goto T3030; goto T3046; T3046:; V693= (*(LnkLI291))((V685)); goto T3030; T3030:; if(type_of(V686)==t_structure){ goto T3055;} goto T3053; goto T3055; T3055:; if(!(((V686)->str.str_def)==(VV[110]))){ goto T3053;} V694= STREF(object,(V686),0); goto T3051; goto T3053; T3053:;{object V699; V699= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V686); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V700= vs_base[0]; if(!((V699)==(CMPcar(V700)))){ goto T3058;}} V694= CMPcar(((V686))->cc.cc_turbo[13]); goto T3051; goto T3058; T3058:; if(!(type_of((V686))==t_structure)){ goto T3064;} V694= (*(LnkLI290))((V686)); goto T3051; goto T3064; T3064:; if(!(type_of((V686))==t_symbol)){ goto T3067;} if(((V686))==Cnil){ goto T3070;} V694= (VV[56]->s.s_dbind); goto T3051; goto T3070; T3070:; V694= (VV[57]->s.s_dbind); goto T3051; goto T3067; T3067:; V694= (*(LnkLI291))((V686)); goto T3051; T3051:; {long V701; long V702; V701= 0; V702= (long)(V691)-(1); {long V703; V703= fix(((V693))->v.v_self[V688]); if(!((V703)==0)){ goto T3078;} goto T3024; goto T3078; T3078:; V701= (long)(V701)+(V703);} {long V704; V704= fix(((V694))->v.v_self[V688]); if(!((V704)==0)){ goto T3083;} goto T3024; goto T3083; T3083:; V701= (long)(V701)+(V704); V701= (long)((V701) & (V690));} {long V705; {object V706; V706= ((V689))->v.v_self[0]; if(type_of((V706))==t_fixnum){ goto T3091;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T3091; T3091:; V705= fix((V706));} {register long V707; long V708; V707= V701; V708= 0; goto T3099; T3099:; V708= (long)(V707)+(4); V707= (long)(V707)+(1); if(!(((V693))==(((V689))->v.v_self[V707]))){ goto T3103;} V707= (long)(V707)+(1); if(!(((V694))==(((V689))->v.v_self[V707]))){ goto T3103;} V707= (long)(V707)+(1); V687= ((V689))->v.v_self[V707]; goto T3097; goto T3103; T3103:; V707= V708; if(!((V707)==(V702))){ goto T3116;} V707= 0; goto T3116; T3116:; if(!((V707)==(V701))){ goto T3100;} {register object V709; register object V710; V709= (V692); V710= CMPcar((V709)); goto T3126; T3126:; if(!(((V709))==Cnil)){ goto T3127;} goto T3122; goto T3127; T3127:; {register object V711; V711= CMPcar((V710)); {register object V713; V713= CMPcar((V711)); V711= CMPcdr((V711)); V712= (V713);} if(!(((V693))==(V712))){ goto T3131;} {register object V715; V715= CMPcar((V711)); V711= CMPcdr((V711)); V714= (V715);} if(!(((V694))==(V714))){ goto T3131;} V687= CMPcdr((V710)); goto T3097;} goto T3131; T3131:; V709= CMPcdr((V709)); V710= CMPcar((V709)); goto T3126;} goto T3122; T3122:; goto T3024; goto T3100; T3100:; goto T3099; goto T3097; T3097:; {object V717; V717= ((V689))->v.v_self[0]; if(type_of((V717))==t_fixnum){ goto T3157;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T3157; T3157:; V716= fix((V717));} if((V705)==(V716)){ goto T3072;} goto T3024;}}} goto T3072; T3072:; base[2]= (V687); base[3]= VV[2]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3163;} base[2]= STREF(object,(V687),0); base[3]= STREF(object,(V687),4); base[4]= STREF(object,(V687),8); base[5]= (V685); base[6]= (V686); vs_top=(vs_base=base+3)+4; {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3163; T3163:; if(!(type_of((V687))==t_fixnum)){ goto T3173;} {object V719; if(type_of(V685)==t_structure){ goto T3179;} goto T3177; goto T3179; T3179:; if(!(((V685)->str.str_def)==(VV[111]))){ goto T3177;} V719= STREF(object,(V685),4); goto T3175; goto T3177; T3177:;{object V721; V721= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V685); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V722= vs_base[0]; if(!((V721)==(CMPcar(V722)))){ goto T3182;}} V719= CMPcar(((V685))->cc.cc_turbo[12]); goto T3175; goto T3182; T3182:; V719= Cnil; goto T3175; T3175:; if(((V719))==Cnil){ goto T3188;} base[2]= ((V719))->v.v_self[fix((V687))]= (V685); vs_top=(vs_base=base+2)+1; return; goto T3188; T3188:; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} goto T3173; T3173:; base[2]= V687; base[3]= VV[10]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3191;} {object V725; object V726; object V727; V725= STREF(object,(V687),0); V726= list(2,(V685),(V686)); V727= STREF(object,(V687),4); if(((V727))==Cnil){ goto T3199;} if((CMPcdr((V727)))!=Cnil){ goto T3199;} base[2]= (V726); base[3]= CMPcar((V727)); vs_top=(vs_base=base+2)+2; {object _funobj = (V725);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3199; T3199:; base[2]= (V725); base[3]= (V726); {object V728; V728= (V727); vs_top=base+4; while(V728!=Cnil) {vs_push((V728)->c.c_car);V728=(V728)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T3191; T3191:; base[2]= V687; vs_top=(vs_base=base+2)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3209;} base[2]= (V685); base[3]= (V686); vs_top=(vs_base=base+2)+2; {object _funobj = (V687);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3209; T3209:; base[2]= VV[11]; base[3]= VV[12]; base[4]= VV[13]; base[5]= VV[14]; base[6]= V687; base[7]= VV[15]; base[8]= VV[112]; base[9]= VV[17]; base[10]= VV[113]; vs_top=(vs_base=base+2)+9; (void) (*Lnk294)(); return;} goto T3024; T3024:; base[2]= (V685); base[3]= (V686); vs_top=(vs_base=base+2)+2; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} } } /* local function CLOSURE */ static void LC73(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM120; VC120 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC140,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC140(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM121; VC121 vs_check; {object V729; object V730; object V731; check_arg(3); V729=(base[0]); V730=(base[1]); V731=(base[2]); vs_top=sup; {register object V732; V732= Cnil; {long V733; register object V734; long V735; long V736; object V737; register object V738; V733= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V734= STREF(object,(base0[1]->c.c_car),40); V735= (long)STREF(fixnum,(base0[1]->c.c_car),24); V736= (long)STREF(fixnum,(base0[1]->c.c_car),28); V737= STREF(object,(base0[1]->c.c_car),44); if(type_of(V729)==t_structure){ goto T3237;} goto T3235; goto T3237; T3237:; if(!(((V729)->str.str_def)==(VV[105]))){ goto T3235;} V738= STREF(object,(V729),0); goto T3233; goto T3235; T3235:;{object V740; V740= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V729); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V741= vs_base[0]; if(!((V740)==(CMPcar(V741)))){ goto T3240;}} V738= CMPcar(((V729))->cc.cc_turbo[13]); goto T3233; goto T3240; T3240:; if(!(type_of((V729))==t_structure)){ goto T3246;} V738= (*(LnkLI290))((V729)); goto T3233; goto T3246; T3246:; if(!(type_of((V729))==t_symbol)){ goto T3249;} if(((V729))==Cnil){ goto T3252;} V738= (VV[56]->s.s_dbind); goto T3233; goto T3252; T3252:; V738= (VV[57]->s.s_dbind); goto T3233; goto T3249; T3249:; V738= (*(LnkLI291))((V729)); goto T3233; T3233:; {long V742; long V743; {long V744; V744= fix(((V738))->v.v_self[V733]); if(!((V744)==0)){ goto T3257;} goto T3227; goto T3257; T3257:; V742= (long)((V735) & (V744));} {object V745; V745= ((V734))->v.v_self[0]; if(type_of((V745))==t_fixnum){ goto T3262;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T3262; T3262:; V743= fix((V745));} {register long V746; V746= V742; goto T3269; T3269:; if(!(((V738))==(((V734))->v.v_self[V746]))){ goto T3271;} V732= ((V734))->v.v_self[(long)(V746)+1]; goto T3267; goto T3271; T3271:; V746= (long)(V746)+(2); if(!((V746)==(V736))){ goto T3278;} V746= 0; goto T3278; T3278:; if(!((V746)==(V742))){ goto T3270;} {register object V747; register object V748; V747= (V737); V748= CMPcar((V747)); goto T3288; T3288:; if(!(((V747))==Cnil)){ goto T3289;} goto T3284; goto T3289; T3289:; if(!((CMPcar((V748)))==((V738)))){ goto T3293;} V732= CMPcdr((V748)); goto T3267; goto T3293; T3293:; V747= CMPcdr((V747)); V748= CMPcar((V747)); goto T3288;} goto T3284; T3284:; goto T3227; goto T3270; T3270:; goto T3269; goto T3267; T3267:; {object V750; V750= ((V734))->v.v_self[0]; if(type_of((V750))==t_fixnum){ goto T3308;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T3308; T3308:; V749= fix((V750));} if((V743)==(V749)){ goto T3254;} goto T3227;}} goto T3254; T3254:; base[3]= (V732); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3314;} base[3]= STREF(object,(V732),0); base[4]= STREF(object,(V732),4); base[5]= STREF(object,(V732),8); base[6]= (V729); base[7]= (V730); base[8]= (V731); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3314; T3314:; base[3]= V732; base[4]= VV[10]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3325;} {object V753; object V754; object V755; V753= STREF(object,(V732),0); V754= list(3,(V729),(V730),(V731)); V755= STREF(object,(V732),4); if(((V755))==Cnil){ goto T3333;} if((CMPcdr((V755)))!=Cnil){ goto T3333;} base[3]= (V754); base[4]= CMPcar((V755)); vs_top=(vs_base=base+3)+2; {object _funobj = (V753);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3333; T3333:; base[3]= (V753); base[4]= (V754); {object V756; V756= (V755); vs_top=base+5; while(V756!=Cnil) {vs_push((V756)->c.c_car);V756=(V756)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T3325; T3325:; base[3]= V732; vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3343;} base[3]= (V729); base[4]= (V730); base[5]= (V731); vs_top=(vs_base=base+3)+3; {object _funobj = (V732);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3343; T3343:; base[3]= VV[11]; base[4]= VV[12]; base[5]= VV[13]; base[6]= VV[14]; base[7]= V732; base[8]= VV[15]; base[9]= VV[106]; base[10]= VV[17]; base[11]= VV[107]; vs_top=(vs_base=base+3)+9; (void) (*Lnk294)(); return;} goto T3227; T3227:; base[3]= (V729); base[4]= (V730); base[5]= (V731); vs_top=(vs_base=base+3)+3; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[3]= Cnil; vs_top=(vs_base=base+3)+1; return;} } } /* local function CLOSURE */ static void LC72(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM122; VC122 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC141,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC141(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM123; VC123 vs_check; {object V757; object V758; object V759; check_arg(3); V757=(base[0]); V758=(base[1]); V759=(base[2]); vs_top=sup; {register object V760; V760= Cnil; {long V761; register object V762; long V763; long V764; object V765; register object V766; V761= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V762= STREF(object,(base0[1]->c.c_car),40); V763= (long)STREF(fixnum,(base0[1]->c.c_car),24); V764= (long)STREF(fixnum,(base0[1]->c.c_car),28); V765= STREF(object,(base0[1]->c.c_car),44); if(type_of(V758)==t_structure){ goto T3373;} goto T3371; goto T3373; T3373:; if(!(((V758)->str.str_def)==(VV[101]))){ goto T3371;} V766= STREF(object,(V758),0); goto T3369; goto T3371; T3371:;{object V768; V768= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V758); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V769= vs_base[0]; if(!((V768)==(CMPcar(V769)))){ goto T3376;}} V766= CMPcar(((V758))->cc.cc_turbo[13]); goto T3369; goto T3376; T3376:; if(!(type_of((V758))==t_structure)){ goto T3382;} V766= (*(LnkLI290))((V758)); goto T3369; goto T3382; T3382:; if(!(type_of((V758))==t_symbol)){ goto T3385;} if(((V758))==Cnil){ goto T3388;} V766= (VV[56]->s.s_dbind); goto T3369; goto T3388; T3388:; V766= (VV[57]->s.s_dbind); goto T3369; goto T3385; T3385:; V766= (*(LnkLI291))((V758)); goto T3369; T3369:; {long V770; long V771; {long V772; V772= fix(((V766))->v.v_self[V761]); if(!((V772)==0)){ goto T3393;} goto T3363; goto T3393; T3393:; V770= (long)((V763) & (V772));} {object V773; V773= ((V762))->v.v_self[0]; if(type_of((V773))==t_fixnum){ goto T3398;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T3398; T3398:; V771= fix((V773));} {register long V774; V774= V770; goto T3405; T3405:; if(!(((V766))==(((V762))->v.v_self[V774]))){ goto T3407;} V760= ((V762))->v.v_self[(long)(V774)+1]; goto T3403; goto T3407; T3407:; V774= (long)(V774)+(2); if(!((V774)==(V764))){ goto T3414;} V774= 0; goto T3414; T3414:; if(!((V774)==(V770))){ goto T3406;} {register object V775; register object V776; V775= (V765); V776= CMPcar((V775)); goto T3424; T3424:; if(!(((V775))==Cnil)){ goto T3425;} goto T3420; goto T3425; T3425:; if(!((CMPcar((V776)))==((V766)))){ goto T3429;} V760= CMPcdr((V776)); goto T3403; goto T3429; T3429:; V775= CMPcdr((V775)); V776= CMPcar((V775)); goto T3424;} goto T3420; T3420:; goto T3363; goto T3406; T3406:; goto T3405; goto T3403; T3403:; {object V778; V778= ((V762))->v.v_self[0]; if(type_of((V778))==t_fixnum){ goto T3444;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T3444; T3444:; V777= fix((V778));} if((V771)==(V777)){ goto T3390;} goto T3363;}} goto T3390; T3390:; base[3]= (V760); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3450;} base[3]= STREF(object,(V760),0); base[4]= STREF(object,(V760),4); base[5]= STREF(object,(V760),8); base[6]= (V757); base[7]= (V758); base[8]= (V759); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3450; T3450:; base[3]= V760; base[4]= VV[10]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3461;} {object V781; object V782; object V783; V781= STREF(object,(V760),0); V782= list(3,(V757),(V758),(V759)); V783= STREF(object,(V760),4); if(((V783))==Cnil){ goto T3469;} if((CMPcdr((V783)))!=Cnil){ goto T3469;} base[3]= (V782); base[4]= CMPcar((V783)); vs_top=(vs_base=base+3)+2; {object _funobj = (V781);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3469; T3469:; base[3]= (V781); base[4]= (V782); {object V784; V784= (V783); vs_top=base+5; while(V784!=Cnil) {vs_push((V784)->c.c_car);V784=(V784)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T3461; T3461:; base[3]= V760; vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3479;} base[3]= (V757); base[4]= (V758); base[5]= (V759); vs_top=(vs_base=base+3)+3; {object _funobj = (V760);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3479; T3479:; base[3]= VV[11]; base[4]= VV[12]; base[5]= VV[13]; base[6]= VV[14]; base[7]= V760; base[8]= VV[15]; base[9]= VV[102]; base[10]= VV[17]; base[11]= VV[103]; vs_top=(vs_base=base+3)+9; (void) (*Lnk294)(); return;} goto T3363; T3363:; base[3]= (V757); base[4]= (V758); base[5]= (V759); vs_top=(vs_base=base+3)+3; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[3]= Cnil; vs_top=(vs_base=base+3)+1; return;} } } /* local function CLOSURE */ static void LC71(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM124; VC124 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC142,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC142(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM125; VC125 vs_check; {object V785; object V786; object V787; object V788; object V789; if(vs_top-vs_base<4) too_few_arguments(); V785=(base[0]); V786=(base[1]); V787=(base[2]); V788=(base[3]); vs_base=vs_base+4; vs_top[0]=Cnil; {object *p=vs_top; for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} V789=(base[4]); vs_top=sup; {register object V790; V790= Cnil; {long V791; register object V792; long V793; long V794; object V795; register object V796; V791= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V792= STREF(object,(base0[1]->c.c_car),40); V793= (long)STREF(fixnum,(base0[1]->c.c_car),24); V794= (long)STREF(fixnum,(base0[1]->c.c_car),28); V795= STREF(object,(base0[1]->c.c_car),44); if(type_of(V785)==t_structure){ goto T3509;} goto T3507; goto T3509; T3509:; if(!(((V785)->str.str_def)==(VV[97]))){ goto T3507;} V796= STREF(object,(V785),0); goto T3505; goto T3507; T3507:;{object V798; V798= (VV[42]->s.s_dbind); base[5]= small_fixnum(14); base[6]= (V785); vs_top=(vs_base=base+5)+2; (void) (*Lnk287)(); vs_top=sup; V799= vs_base[0]; if(!((V798)==(CMPcar(V799)))){ goto T3512;}} V796= CMPcar(((V785))->cc.cc_turbo[13]); goto T3505; goto T3512; T3512:; if(!(type_of((V785))==t_structure)){ goto T3518;} V796= (*(LnkLI290))((V785)); goto T3505; goto T3518; T3518:; if(!(type_of((V785))==t_symbol)){ goto T3521;} if(((V785))==Cnil){ goto T3524;} V796= (VV[56]->s.s_dbind); goto T3505; goto T3524; T3524:; V796= (VV[57]->s.s_dbind); goto T3505; goto T3521; T3521:; V796= (*(LnkLI291))((V785)); goto T3505; T3505:; {long V800; long V801; {long V802; V802= fix(((V796))->v.v_self[V791]); if(!((V802)==0)){ goto T3529;} goto T3499; goto T3529; T3529:; V800= (long)((V793) & (V802));} {object V803; V803= ((V792))->v.v_self[0]; if(type_of((V803))==t_fixnum){ goto T3534;} base[5]= VV[58]; vs_top=(vs_base=base+5)+1; Lerror(); vs_top=sup; goto T3534; T3534:; V801= fix((V803));} {register long V804; V804= V800; goto T3541; T3541:; if(!(((V796))==(((V792))->v.v_self[V804]))){ goto T3543;} V790= ((V792))->v.v_self[(long)(V804)+1]; goto T3539; goto T3543; T3543:; V804= (long)(V804)+(2); if(!((V804)==(V794))){ goto T3550;} V804= 0; goto T3550; T3550:; if(!((V804)==(V800))){ goto T3542;} {register object V805; register object V806; V805= (V795); V806= CMPcar((V805)); goto T3560; T3560:; if(!(((V805))==Cnil)){ goto T3561;} goto T3556; goto T3561; T3561:; if(!((CMPcar((V806)))==((V796)))){ goto T3565;} V790= CMPcdr((V806)); goto T3539; goto T3565; T3565:; V805= CMPcdr((V805)); V806= CMPcar((V805)); goto T3560;} goto T3556; T3556:; goto T3499; goto T3542; T3542:; goto T3541; goto T3539; T3539:; {object V808; V808= ((V792))->v.v_self[0]; if(type_of((V808))==t_fixnum){ goto T3580;} base[5]= VV[58]; vs_top=(vs_base=base+5)+1; Lerror(); vs_top=sup; goto T3580; T3580:; V807= fix((V808));} if((V801)==(V807)){ goto T3526;} goto T3499;}} goto T3526; T3526:; base[5]= (V790); base[6]= VV[2]; vs_top=(vs_base=base+5)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3586;} base[5]= STREF(object,(V790),0); base[6]= STREF(object,(V790),4); base[7]= STREF(object,(V790),8); base[8]= (V785); base[9]= (V786); base[10]= (V787); base[11]= (V788); base[12]= (V789); vs_top=(vs_base=base+6)+7; {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3586; T3586:; base[5]= V790; base[6]= VV[10]; vs_top=(vs_base=base+5)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3599;} {object V811; object V812; object V813; V811= STREF(object,(V790),0); V812= listA(5,(V785),(V786),(V787),(V788),(V789)); V813= STREF(object,(V790),4); if(((V813))==Cnil){ goto T3607;} if((CMPcdr((V813)))!=Cnil){ goto T3607;} base[5]= (V812); base[6]= CMPcar((V813)); vs_top=(vs_base=base+5)+2; {object _funobj = (V811);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3607; T3607:; base[5]= (V811); base[6]= (V812); {object V814; V814= (V813); vs_top=base+7; while(V814!=Cnil) {vs_push((V814)->c.c_car);V814=(V814)->c.c_cdr;} vs_base=base+6;} {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T3599; T3599:; base[5]= V790; vs_top=(vs_base=base+5)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3617;} base[5]= (V790); base[6]= (V785); base[7]= (V786); base[8]= (V787); base[9]= (V788); {object V815; V815= (V789); vs_top=base+10; while(V815!=Cnil) {vs_push((V815)->c.c_car);V815=(V815)->c.c_cdr;} vs_base=base+6;} {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3617; T3617:; base[5]= VV[11]; base[6]= VV[12]; base[7]= VV[13]; base[8]= VV[14]; base[9]= V790; base[10]= VV[15]; base[11]= VV[98]; base[12]= VV[17]; base[13]= VV[99]; vs_top=(vs_base=base+5)+9; (void) (*Lnk294)(); return;} goto T3499; T3499:; base[5]= (base0[0]->c.c_car); base[6]= (V785); base[7]= (V786); base[8]= (V787); base[9]= (V788); {object V816; V816= (V789); vs_top=base+10; while(V816!=Cnil) {vs_push((V816)->c.c_car);V816=(V816)->c.c_cdr;} vs_base=base+6;} {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[5]= Cnil; vs_top=(vs_base=base+5)+1; return;} } } /* local function CLOSURE */ static void LC70(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM126; VC126 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC143,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC143(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM127; VC127 vs_check; {object V817; object V818; object V819; if(vs_top-vs_base<2) too_few_arguments(); V817=(base[0]); V818=(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]);} V819=(base[2]); vs_top=sup; {object V820; V820= Cnil; {long V821; object V822; long V823; long V824; object V825; object V826; object V827; V821= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V822= STREF(object,(base0[1]->c.c_car),40); V823= (long)STREF(fixnum,(base0[1]->c.c_car),24); V824= (long)STREF(fixnum,(base0[1]->c.c_car),28); V825= STREF(object,(base0[1]->c.c_car),44); if(type_of(V817)==t_structure){ goto T3653;} goto T3651; goto T3653; T3653:; if(!(((V817)->str.str_def)==(VV[92]))){ goto T3651;} V826= STREF(object,(V817),0); goto T3649; goto T3651; T3651:;{object V829; V829= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V817); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V830= vs_base[0]; if(!((V829)==(CMPcar(V830)))){ goto T3656;}} V826= CMPcar(((V817))->cc.cc_turbo[13]); goto T3649; goto T3656; T3656:; if(!(type_of((V817))==t_structure)){ goto T3662;} V826= (*(LnkLI290))((V817)); goto T3649; goto T3662; T3662:; if(!(type_of((V817))==t_symbol)){ goto T3665;} if(((V817))==Cnil){ goto T3668;} V826= (VV[56]->s.s_dbind); goto T3649; goto T3668; T3668:; V826= (VV[57]->s.s_dbind); goto T3649; goto T3665; T3665:; V826= (*(LnkLI291))((V817)); goto T3649; T3649:; if(type_of(V818)==t_structure){ goto T3674;} goto T3672; goto T3674; T3674:; if(!(((V818)->str.str_def)==(VV[93]))){ goto T3672;} V827= STREF(object,(V818),0); goto T3670; goto T3672; T3672:;{object V832; V832= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V818); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V833= vs_base[0]; if(!((V832)==(CMPcar(V833)))){ goto T3677;}} V827= CMPcar(((V818))->cc.cc_turbo[13]); goto T3670; goto T3677; T3677:; if(!(type_of((V818))==t_structure)){ goto T3683;} V827= (*(LnkLI290))((V818)); goto T3670; goto T3683; T3683:; if(!(type_of((V818))==t_symbol)){ goto T3686;} if(((V818))==Cnil){ goto T3689;} V827= (VV[56]->s.s_dbind); goto T3670; goto T3689; T3689:; V827= (VV[57]->s.s_dbind); goto T3670; goto T3686; T3686:; V827= (*(LnkLI291))((V818)); goto T3670; T3670:; {long V834; long V835; V834= 0; V835= (long)(V824)-(1); {long V836; V836= fix(((V826))->v.v_self[V821]); if(!((V836)==0)){ goto T3697;} goto T3643; goto T3697; T3697:; V834= (long)(V834)+(V836);} {long V837; V837= fix(((V827))->v.v_self[V821]); if(!((V837)==0)){ goto T3702;} goto T3643; goto T3702; T3702:; V834= (long)(V834)+(V837); V834= (long)((V834) & (V823));} {long V838; {object V839; V839= ((V822))->v.v_self[0]; if(type_of((V839))==t_fixnum){ goto T3710;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T3710; T3710:; V838= fix((V839));} {register long V840; long V841; V840= V834; V841= 0; goto T3718; T3718:; V841= (long)(V840)+(4); V840= (long)(V840)+(1); if(!(((V826))==(((V822))->v.v_self[V840]))){ goto T3722;} V840= (long)(V840)+(1); if(!(((V827))==(((V822))->v.v_self[V840]))){ goto T3722;} V840= (long)(V840)+(1); V820= ((V822))->v.v_self[V840]; goto T3716; goto T3722; T3722:; V840= V841; if(!((V840)==(V835))){ goto T3735;} V840= 0; goto T3735; T3735:; if(!((V840)==(V834))){ goto T3719;} {register object V842; register object V843; V842= (V825); V843= CMPcar((V842)); goto T3745; T3745:; if(!(((V842))==Cnil)){ goto T3746;} goto T3741; goto T3746; T3746:; {register object V844; V844= CMPcar((V843)); {register object V846; V846= CMPcar((V844)); V844= CMPcdr((V844)); V845= (V846);} if(!(((V826))==(V845))){ goto T3750;} {register object V848; V848= CMPcar((V844)); V844= CMPcdr((V844)); V847= (V848);} if(!(((V827))==(V847))){ goto T3750;} V820= CMPcdr((V843)); goto T3716;} goto T3750; T3750:; V842= CMPcdr((V842)); V843= CMPcar((V842)); goto T3745;} goto T3741; T3741:; goto T3643; goto T3719; T3719:; goto T3718; goto T3716; T3716:; {object V850; V850= ((V822))->v.v_self[0]; if(type_of((V850))==t_fixnum){ goto T3776;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T3776; T3776:; V849= fix((V850));} if((V838)==(V849)){ goto T3691;} goto T3643;}}} goto T3691; T3691:; base[3]= (V820); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3782;} base[3]= STREF(object,(V820),0); base[4]= STREF(object,(V820),4); base[5]= STREF(object,(V820),8); base[6]= (V817); base[7]= (V818); base[8]= (V819); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3782; T3782:; base[3]= V820; base[4]= VV[10]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3793;} {object V853; object V854; object V855; V853= STREF(object,(V820),0); V854= listA(3,(V817),(V818),(V819)); V855= STREF(object,(V820),4); if(((V855))==Cnil){ goto T3801;} if((CMPcdr((V855)))!=Cnil){ goto T3801;} base[3]= (V854); base[4]= CMPcar((V855)); vs_top=(vs_base=base+3)+2; {object _funobj = (V853);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3801; T3801:; base[3]= (V853); base[4]= (V854); {object V856; V856= (V855); vs_top=base+5; while(V856!=Cnil) {vs_push((V856)->c.c_car);V856=(V856)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T3793; T3793:; base[3]= V820; vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3811;} base[3]= (V820); base[4]= (V817); base[5]= (V818); {object V857; V857= (V819); vs_top=base+6; while(V857!=Cnil) {vs_push((V857)->c.c_car);V857=(V857)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3811; T3811:; base[3]= VV[11]; base[4]= VV[12]; base[5]= VV[13]; base[6]= VV[14]; base[7]= V820; base[8]= VV[15]; base[9]= VV[94]; base[10]= VV[17]; base[11]= VV[95]; vs_top=(vs_base=base+3)+9; (void) (*Lnk294)(); return;} goto T3643; T3643:; base[3]= (base0[0]->c.c_car); base[4]= (V817); base[5]= (V818); {object V858; V858= (V819); vs_top=base+6; while(V858!=Cnil) {vs_push((V858)->c.c_car);V858=(V858)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[3]= Cnil; vs_top=(vs_base=base+3)+1; return;} } } /* local function CLOSURE */ static void LC69(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM128; VC128 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC144,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC144(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM129; VC129 vs_check; {object V859; object V860; object V861; if(vs_top-vs_base<2) too_few_arguments(); V859=(base[0]); V860=(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]);} V861=(base[2]); vs_top=sup; {register object V862; V862= Cnil; {long V863; register object V864; long V865; long V866; object V867; register object V868; V863= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V864= STREF(object,(base0[1]->c.c_car),40); V865= (long)STREF(fixnum,(base0[1]->c.c_car),24); V866= (long)STREF(fixnum,(base0[1]->c.c_car),28); V867= STREF(object,(base0[1]->c.c_car),44); if(type_of(V860)==t_structure){ goto T3843;} goto T3841; goto T3843; T3843:; if(!(((V860)->str.str_def)==(VV[88]))){ goto T3841;} V868= STREF(object,(V860),0); goto T3839; goto T3841; T3841:;{object V870; V870= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V860); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V871= vs_base[0]; if(!((V870)==(CMPcar(V871)))){ goto T3846;}} V868= CMPcar(((V860))->cc.cc_turbo[13]); goto T3839; goto T3846; T3846:; if(!(type_of((V860))==t_structure)){ goto T3852;} V868= (*(LnkLI290))((V860)); goto T3839; goto T3852; T3852:; if(!(type_of((V860))==t_symbol)){ goto T3855;} if(((V860))==Cnil){ goto T3858;} V868= (VV[56]->s.s_dbind); goto T3839; goto T3858; T3858:; V868= (VV[57]->s.s_dbind); goto T3839; goto T3855; T3855:; V868= (*(LnkLI291))((V860)); goto T3839; T3839:; {long V872; long V873; {long V874; V874= fix(((V868))->v.v_self[V863]); if(!((V874)==0)){ goto T3863;} goto T3833; goto T3863; T3863:; V872= (long)((V865) & (V874));} {object V875; V875= ((V864))->v.v_self[0]; if(type_of((V875))==t_fixnum){ goto T3868;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T3868; T3868:; V873= fix((V875));} {register long V876; V876= V872; goto T3875; T3875:; if(!(((V868))==(((V864))->v.v_self[V876]))){ goto T3877;} V862= ((V864))->v.v_self[(long)(V876)+1]; goto T3873; goto T3877; T3877:; V876= (long)(V876)+(2); if(!((V876)==(V866))){ goto T3884;} V876= 0; goto T3884; T3884:; if(!((V876)==(V872))){ goto T3876;} {register object V877; register object V878; V877= (V867); V878= CMPcar((V877)); goto T3894; T3894:; if(!(((V877))==Cnil)){ goto T3895;} goto T3890; goto T3895; T3895:; if(!((CMPcar((V878)))==((V868)))){ goto T3899;} V862= CMPcdr((V878)); goto T3873; goto T3899; T3899:; V877= CMPcdr((V877)); V878= CMPcar((V877)); goto T3894;} goto T3890; T3890:; goto T3833; goto T3876; T3876:; goto T3875; goto T3873; T3873:; {object V880; V880= ((V864))->v.v_self[0]; if(type_of((V880))==t_fixnum){ goto T3914;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T3914; T3914:; V879= fix((V880));} if((V873)==(V879)){ goto T3860;} goto T3833;}} goto T3860; T3860:; base[3]= (V862); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3920;} base[3]= STREF(object,(V862),0); base[4]= STREF(object,(V862),4); base[5]= STREF(object,(V862),8); base[6]= (V859); base[7]= (V860); base[8]= (V861); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3920; T3920:; base[3]= V862; base[4]= VV[10]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3931;} {object V883; object V884; object V885; V883= STREF(object,(V862),0); V884= listA(3,(V859),(V860),(V861)); V885= STREF(object,(V862),4); if(((V885))==Cnil){ goto T3939;} if((CMPcdr((V885)))!=Cnil){ goto T3939;} base[3]= (V884); base[4]= CMPcar((V885)); vs_top=(vs_base=base+3)+2; {object _funobj = (V883);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3939; T3939:; base[3]= (V883); base[4]= (V884); {object V886; V886= (V885); vs_top=base+5; while(V886!=Cnil) {vs_push((V886)->c.c_car);V886=(V886)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T3931; T3931:; base[3]= V862; vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3949;} base[3]= (V862); base[4]= (V859); base[5]= (V860); {object V887; V887= (V861); vs_top=base+6; while(V887!=Cnil) {vs_push((V887)->c.c_car);V887=(V887)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T3949; T3949:; base[3]= VV[11]; base[4]= VV[12]; base[5]= VV[13]; base[6]= VV[14]; base[7]= V862; base[8]= VV[15]; base[9]= VV[89]; base[10]= VV[17]; base[11]= VV[90]; vs_top=(vs_base=base+3)+9; (void) (*Lnk294)(); return;} goto T3833; T3833:; base[3]= (base0[0]->c.c_car); base[4]= (V859); base[5]= (V860); {object V888; V888= (V861); vs_top=base+6; while(V888!=Cnil) {vs_push((V888)->c.c_car);V888=(V888)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[3]= Cnil; vs_top=(vs_base=base+3)+1; return;} } } /* local function CLOSURE */ static void LC68(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM130; VC130 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC145,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC145(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM131; VC131 vs_check; {object V889; object V890; object V891; object V892; if(vs_top-vs_base<3) too_few_arguments(); V889=(base[0]); V890=(base[1]); V891=(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]);} V892=(base[3]); vs_top=sup; {register object V893; V893= Cnil; {long V894; register object V895; long V896; long V897; object V898; register object V899; V894= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V895= STREF(object,(base0[1]->c.c_car),40); V896= (long)STREF(fixnum,(base0[1]->c.c_car),24); V897= (long)STREF(fixnum,(base0[1]->c.c_car),28); V898= STREF(object,(base0[1]->c.c_car),44); if(type_of(V889)==t_structure){ goto T3981;} goto T3979; goto T3981; T3981:; if(!(((V889)->str.str_def)==(VV[84]))){ goto T3979;} V899= STREF(object,(V889),0); goto T3977; goto T3979; T3979:;{object V901; V901= (VV[42]->s.s_dbind); base[4]= small_fixnum(14); base[5]= (V889); vs_top=(vs_base=base+4)+2; (void) (*Lnk287)(); vs_top=sup; V902= vs_base[0]; if(!((V901)==(CMPcar(V902)))){ goto T3984;}} V899= CMPcar(((V889))->cc.cc_turbo[13]); goto T3977; goto T3984; T3984:; if(!(type_of((V889))==t_structure)){ goto T3990;} V899= (*(LnkLI290))((V889)); goto T3977; goto T3990; T3990:; if(!(type_of((V889))==t_symbol)){ goto T3993;} if(((V889))==Cnil){ goto T3996;} V899= (VV[56]->s.s_dbind); goto T3977; goto T3996; T3996:; V899= (VV[57]->s.s_dbind); goto T3977; goto T3993; T3993:; V899= (*(LnkLI291))((V889)); goto T3977; T3977:; {long V903; long V904; {long V905; V905= fix(((V899))->v.v_self[V894]); if(!((V905)==0)){ goto T4001;} goto T3971; goto T4001; T4001:; V903= (long)((V896) & (V905));} {object V906; V906= ((V895))->v.v_self[0]; if(type_of((V906))==t_fixnum){ goto T4006;} base[4]= VV[58]; vs_top=(vs_base=base+4)+1; Lerror(); vs_top=sup; goto T4006; T4006:; V904= fix((V906));} {register long V907; V907= V903; goto T4013; T4013:; if(!(((V899))==(((V895))->v.v_self[V907]))){ goto T4015;} V893= ((V895))->v.v_self[(long)(V907)+1]; goto T4011; goto T4015; T4015:; V907= (long)(V907)+(2); if(!((V907)==(V897))){ goto T4022;} V907= 0; goto T4022; T4022:; if(!((V907)==(V903))){ goto T4014;} {register object V908; register object V909; V908= (V898); V909= CMPcar((V908)); goto T4032; T4032:; if(!(((V908))==Cnil)){ goto T4033;} goto T4028; goto T4033; T4033:; if(!((CMPcar((V909)))==((V899)))){ goto T4037;} V893= CMPcdr((V909)); goto T4011; goto T4037; T4037:; V908= CMPcdr((V908)); V909= CMPcar((V908)); goto T4032;} goto T4028; T4028:; goto T3971; goto T4014; T4014:; goto T4013; goto T4011; T4011:; {object V911; V911= ((V895))->v.v_self[0]; if(type_of((V911))==t_fixnum){ goto T4052;} base[4]= VV[58]; vs_top=(vs_base=base+4)+1; Lerror(); vs_top=sup; goto T4052; T4052:; V910= fix((V911));} if((V904)==(V910)){ goto T3998;} goto T3971;}} goto T3998; T3998:; base[4]= (V893); base[5]= VV[2]; vs_top=(vs_base=base+4)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4058;} base[4]= STREF(object,(V893),0); base[5]= STREF(object,(V893),4); base[6]= STREF(object,(V893),8); base[7]= (V889); base[8]= (V890); base[9]= (V891); base[10]= (V892); vs_top=(vs_base=base+5)+6; {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4058; T4058:; base[4]= V893; base[5]= VV[10]; vs_top=(vs_base=base+4)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4070;} {object V914; object V915; object V916; V914= STREF(object,(V893),0); V915= listA(4,(V889),(V890),(V891),(V892)); V916= STREF(object,(V893),4); if(((V916))==Cnil){ goto T4078;} if((CMPcdr((V916)))!=Cnil){ goto T4078;} base[4]= (V915); base[5]= CMPcar((V916)); vs_top=(vs_base=base+4)+2; {object _funobj = (V914);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4078; T4078:; base[4]= (V914); base[5]= (V915); {object V917; V917= (V916); vs_top=base+6; while(V917!=Cnil) {vs_push((V917)->c.c_car);V917=(V917)->c.c_cdr;} vs_base=base+5;} {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T4070; T4070:; base[4]= V893; vs_top=(vs_base=base+4)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4088;} base[4]= (V893); base[5]= (V889); base[6]= (V890); base[7]= (V891); {object V918; V918= (V892); vs_top=base+8; while(V918!=Cnil) {vs_push((V918)->c.c_car);V918=(V918)->c.c_cdr;} vs_base=base+5;} {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4088; T4088:; base[4]= VV[11]; base[5]= VV[12]; base[6]= VV[13]; base[7]= VV[14]; base[8]= V893; base[9]= VV[15]; base[10]= VV[85]; base[11]= VV[17]; base[12]= VV[86]; vs_top=(vs_base=base+4)+9; (void) (*Lnk294)(); return;} goto T3971; T3971:; base[4]= (base0[0]->c.c_car); base[5]= (V889); base[6]= (V890); base[7]= (V891); {object V919; V919= (V892); vs_top=base+8; while(V919!=Cnil) {vs_push((V919)->c.c_car);V919=(V919)->c.c_cdr;} vs_base=base+5;} {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[4]= Cnil; vs_top=(vs_base=base+4)+1; return;} } } /* local function CLOSURE */ static void LC67(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM132; VC132 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC146,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC146(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM133; VC133 vs_check; {object V920; object V921; object V922; check_arg(3); V920=(base[0]); V921=(base[1]); V922=(base[2]); vs_top=sup; {object V923; V923= Cnil; {long V924; register object V925; long V926; long V927; object V928; object V929; object V930; object V931; V924= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V925= STREF(object,(base0[1]->c.c_car),40); V926= (long)STREF(fixnum,(base0[1]->c.c_car),24); V927= (long)STREF(fixnum,(base0[1]->c.c_car),28); V928= STREF(object,(base0[1]->c.c_car),44); if(type_of(V920)==t_structure){ goto T4122;} goto T4120; goto T4122; T4122:; if(!(((V920)->str.str_def)==(VV[78]))){ goto T4120;} V929= STREF(object,(V920),0); goto T4118; goto T4120; T4120:;{object V933; V933= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V920); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V934= vs_base[0]; if(!((V933)==(CMPcar(V934)))){ goto T4125;}} V929= CMPcar(((V920))->cc.cc_turbo[13]); goto T4118; goto T4125; T4125:; if(!(type_of((V920))==t_structure)){ goto T4131;} V929= (*(LnkLI290))((V920)); goto T4118; goto T4131; T4131:; if(!(type_of((V920))==t_symbol)){ goto T4134;} if(((V920))==Cnil){ goto T4137;} V929= (VV[56]->s.s_dbind); goto T4118; goto T4137; T4137:; V929= (VV[57]->s.s_dbind); goto T4118; goto T4134; T4134:; V929= (*(LnkLI291))((V920)); goto T4118; T4118:; if(type_of(V921)==t_structure){ goto T4143;} goto T4141; goto T4143; T4143:; if(!(((V921)->str.str_def)==(VV[79]))){ goto T4141;} V930= STREF(object,(V921),0); goto T4139; goto T4141; T4141:;{object V936; V936= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V921); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V937= vs_base[0]; if(!((V936)==(CMPcar(V937)))){ goto T4146;}} V930= CMPcar(((V921))->cc.cc_turbo[13]); goto T4139; goto T4146; T4146:; if(!(type_of((V921))==t_structure)){ goto T4152;} V930= (*(LnkLI290))((V921)); goto T4139; goto T4152; T4152:; if(!(type_of((V921))==t_symbol)){ goto T4155;} if(((V921))==Cnil){ goto T4158;} V930= (VV[56]->s.s_dbind); goto T4139; goto T4158; T4158:; V930= (VV[57]->s.s_dbind); goto T4139; goto T4155; T4155:; V930= (*(LnkLI291))((V921)); goto T4139; T4139:; if(type_of(V922)==t_structure){ goto T4164;} goto T4162; goto T4164; T4164:; if(!(((V922)->str.str_def)==(VV[80]))){ goto T4162;} V931= STREF(object,(V922),0); goto T4160; goto T4162; T4162:;{object V939; V939= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V922); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V940= vs_base[0]; if(!((V939)==(CMPcar(V940)))){ goto T4167;}} V931= CMPcar(((V922))->cc.cc_turbo[13]); goto T4160; goto T4167; T4167:; if(!(type_of((V922))==t_structure)){ goto T4173;} V931= (*(LnkLI290))((V922)); goto T4160; goto T4173; T4173:; if(!(type_of((V922))==t_symbol)){ goto T4176;} if(((V922))==Cnil){ goto T4179;} V931= (VV[56]->s.s_dbind); goto T4160; goto T4179; T4179:; V931= (VV[57]->s.s_dbind); goto T4160; goto T4176; T4176:; V931= (*(LnkLI291))((V922)); goto T4160; T4160:; {long V941; long V942; V941= 0; V942= (long)(V927)-(1); {long V943; V943= fix(((V929))->v.v_self[V924]); if(!((V943)==0)){ goto T4187;} goto T4112; goto T4187; T4187:; V941= (long)(V941)+(V943);} {long V944; V944= fix(((V930))->v.v_self[V924]); if(!((V944)==0)){ goto T4193;} goto T4112; goto T4193; T4193:; V941= (long)(V941)+(V944);} {long V945; V945= fix(((V931))->v.v_self[V924]); if(!((V945)==0)){ goto T4198;} goto T4112; goto T4198; T4198:; V941= (long)(V941)+(V945); V941= (long)((V941) & (V926));} {long V946; {object V947; V947= ((V925))->v.v_self[0]; if(type_of((V947))==t_fixnum){ goto T4206;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T4206; T4206:; V946= fix((V947));} {register long V948; long V949; V948= V941; V949= 0; goto T4214; T4214:; V949= (long)(V948)+(4); V948= (long)(V948)+(1); if(!(((V929))==(((V925))->v.v_self[V948]))){ goto T4218;} V948= (long)(V948)+(1); if(!(((V930))==(((V925))->v.v_self[V948]))){ goto T4218;} V948= (long)(V948)+(1); if(!(((V931))==(((V925))->v.v_self[V948]))){ goto T4218;} V948= (long)(V948)+(1); V923= ((V925))->v.v_self[V948]; goto T4212; goto T4218; T4218:; V948= V949; if(!((V948)==(V942))){ goto T4234;} V948= 0; goto T4234; T4234:; if(!((V948)==(V941))){ goto T4215;} {register object V950; register object V951; V950= (V928); V951= CMPcar((V950)); goto T4244; T4244:; if(!(((V950))==Cnil)){ goto T4245;} goto T4240; goto T4245; T4245:; {register object V952; V952= CMPcar((V951)); {register object V954; V954= CMPcar((V952)); V952= CMPcdr((V952)); V953= (V954);} if(!(((V929))==(V953))){ goto T4249;} {register object V956; V956= CMPcar((V952)); V952= CMPcdr((V952)); V955= (V956);} if(!(((V930))==(V955))){ goto T4249;} {register object V958; V958= CMPcar((V952)); V952= CMPcdr((V952)); V957= (V958);} if(!(((V931))==(V957))){ goto T4249;} V923= CMPcdr((V951)); goto T4212;} goto T4249; T4249:; V950= CMPcdr((V950)); V951= CMPcar((V950)); goto T4244;} goto T4240; T4240:; goto T4112; goto T4215; T4215:; goto T4214; goto T4212; T4212:; {object V960; V960= ((V925))->v.v_self[0]; if(type_of((V960))==t_fixnum){ goto T4281;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T4281; T4281:; V959= fix((V960));} if((V946)==(V959)){ goto T4181;} goto T4112;}}} goto T4181; T4181:; base[3]= (V923); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4287;} base[3]= STREF(object,(V923),0); base[4]= STREF(object,(V923),4); base[5]= STREF(object,(V923),8); base[6]= (V920); base[7]= (V921); base[8]= (V922); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4287; T4287:; base[3]= V923; base[4]= VV[10]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4298;} {object V963; object V964; object V965; V963= STREF(object,(V923),0); V964= list(3,(V920),(V921),(V922)); V965= STREF(object,(V923),4); if(((V965))==Cnil){ goto T4306;} if((CMPcdr((V965)))!=Cnil){ goto T4306;} base[3]= (V964); base[4]= CMPcar((V965)); vs_top=(vs_base=base+3)+2; {object _funobj = (V963);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4306; T4306:; base[3]= (V963); base[4]= (V964); {object V966; V966= (V965); vs_top=base+5; while(V966!=Cnil) {vs_push((V966)->c.c_car);V966=(V966)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T4298; T4298:; base[3]= V923; vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4316;} base[3]= (V920); base[4]= (V921); base[5]= (V922); vs_top=(vs_base=base+3)+3; {object _funobj = (V923);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4316; T4316:; base[3]= VV[11]; base[4]= VV[12]; base[5]= VV[13]; base[6]= VV[14]; base[7]= V923; base[8]= VV[15]; base[9]= VV[81]; base[10]= VV[17]; base[11]= VV[82]; vs_top=(vs_base=base+3)+9; (void) (*Lnk294)(); return;} goto T4112; T4112:; base[3]= (V920); base[4]= (V921); base[5]= (V922); vs_top=(vs_base=base+3)+3; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[3]= Cnil; vs_top=(vs_base=base+3)+1; return;} } } /* local function CLOSURE */ static void LC66(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM134; VC134 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC147,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC147(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM135; VC135 vs_check; {object V967; object V968; object V969; object V970; check_arg(4); V967=(base[0]); V968=(base[1]); V969=(base[2]); V970=(base[3]); vs_top=sup; {object V971; V971= Cnil; {long V972; object V973; long V974; long V975; object V976; object V977; object V978; V972= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V973= STREF(object,(base0[1]->c.c_car),40); V974= (long)STREF(fixnum,(base0[1]->c.c_car),24); V975= (long)STREF(fixnum,(base0[1]->c.c_car),28); V976= STREF(object,(base0[1]->c.c_car),44); if(type_of(V967)==t_structure){ goto T4346;} goto T4344; goto T4346; T4346:; if(!(((V967)->str.str_def)==(VV[73]))){ goto T4344;} V977= STREF(object,(V967),0); goto T4342; goto T4344; T4344:;{object V980; V980= (VV[42]->s.s_dbind); base[4]= small_fixnum(14); base[5]= (V967); vs_top=(vs_base=base+4)+2; (void) (*Lnk287)(); vs_top=sup; V981= vs_base[0]; if(!((V980)==(CMPcar(V981)))){ goto T4349;}} V977= CMPcar(((V967))->cc.cc_turbo[13]); goto T4342; goto T4349; T4349:; if(!(type_of((V967))==t_structure)){ goto T4355;} V977= (*(LnkLI290))((V967)); goto T4342; goto T4355; T4355:; if(!(type_of((V967))==t_symbol)){ goto T4358;} if(((V967))==Cnil){ goto T4361;} V977= (VV[56]->s.s_dbind); goto T4342; goto T4361; T4361:; V977= (VV[57]->s.s_dbind); goto T4342; goto T4358; T4358:; V977= (*(LnkLI291))((V967)); goto T4342; T4342:; if(type_of(V968)==t_structure){ goto T4367;} goto T4365; goto T4367; T4367:; if(!(((V968)->str.str_def)==(VV[74]))){ goto T4365;} V978= STREF(object,(V968),0); goto T4363; goto T4365; T4365:;{object V983; V983= (VV[42]->s.s_dbind); base[4]= small_fixnum(14); base[5]= (V968); vs_top=(vs_base=base+4)+2; (void) (*Lnk287)(); vs_top=sup; V984= vs_base[0]; if(!((V983)==(CMPcar(V984)))){ goto T4370;}} V978= CMPcar(((V968))->cc.cc_turbo[13]); goto T4363; goto T4370; T4370:; if(!(type_of((V968))==t_structure)){ goto T4376;} V978= (*(LnkLI290))((V968)); goto T4363; goto T4376; T4376:; if(!(type_of((V968))==t_symbol)){ goto T4379;} if(((V968))==Cnil){ goto T4382;} V978= (VV[56]->s.s_dbind); goto T4363; goto T4382; T4382:; V978= (VV[57]->s.s_dbind); goto T4363; goto T4379; T4379:; V978= (*(LnkLI291))((V968)); goto T4363; T4363:; {long V985; long V986; V985= 0; V986= (long)(V975)-(1); {long V987; V987= fix(((V977))->v.v_self[V972]); if(!((V987)==0)){ goto T4390;} goto T4336; goto T4390; T4390:; V985= (long)(V985)+(V987);} {long V988; V988= fix(((V978))->v.v_self[V972]); if(!((V988)==0)){ goto T4395;} goto T4336; goto T4395; T4395:; V985= (long)(V985)+(V988); V985= (long)((V985) & (V974));} {long V989; {object V990; V990= ((V973))->v.v_self[0]; if(type_of((V990))==t_fixnum){ goto T4403;} base[4]= VV[58]; vs_top=(vs_base=base+4)+1; Lerror(); vs_top=sup; goto T4403; T4403:; V989= fix((V990));} {register long V991; long V992; V991= V985; V992= 0; goto T4411; T4411:; V992= (long)(V991)+(4); V991= (long)(V991)+(1); if(!(((V977))==(((V973))->v.v_self[V991]))){ goto T4415;} V991= (long)(V991)+(1); if(!(((V978))==(((V973))->v.v_self[V991]))){ goto T4415;} V991= (long)(V991)+(1); V971= ((V973))->v.v_self[V991]; goto T4409; goto T4415; T4415:; V991= V992; if(!((V991)==(V986))){ goto T4428;} V991= 0; goto T4428; T4428:; if(!((V991)==(V985))){ goto T4412;} {register object V993; register object V994; V993= (V976); V994= CMPcar((V993)); goto T4438; T4438:; if(!(((V993))==Cnil)){ goto T4439;} goto T4434; goto T4439; T4439:; {register object V995; V995= CMPcar((V994)); {register object V997; V997= CMPcar((V995)); V995= CMPcdr((V995)); V996= (V997);} if(!(((V977))==(V996))){ goto T4443;} {register object V999; V999= CMPcar((V995)); V995= CMPcdr((V995)); V998= (V999);} if(!(((V978))==(V998))){ goto T4443;} V971= CMPcdr((V994)); goto T4409;} goto T4443; T4443:; V993= CMPcdr((V993)); V994= CMPcar((V993)); goto T4438;} goto T4434; T4434:; goto T4336; goto T4412; T4412:; goto T4411; goto T4409; T4409:; {object V1001; V1001= ((V973))->v.v_self[0]; if(type_of((V1001))==t_fixnum){ goto T4469;} base[4]= VV[58]; vs_top=(vs_base=base+4)+1; Lerror(); vs_top=sup; goto T4469; T4469:; V1000= fix((V1001));} if((V989)==(V1000)){ goto T4384;} goto T4336;}}} goto T4384; T4384:; base[4]= (V971); base[5]= VV[2]; vs_top=(vs_base=base+4)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4475;} base[4]= STREF(object,(V971),0); base[5]= STREF(object,(V971),4); base[6]= STREF(object,(V971),8); base[7]= (V967); base[8]= (V968); base[9]= (V969); base[10]= (V970); vs_top=(vs_base=base+5)+6; {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4475; T4475:; base[4]= V971; base[5]= VV[10]; vs_top=(vs_base=base+4)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4487;} {object V1004; object V1005; object V1006; V1004= STREF(object,(V971),0); V1005= list(4,(V967),(V968),(V969),(V970)); V1006= STREF(object,(V971),4); if(((V1006))==Cnil){ goto T4495;} if((CMPcdr((V1006)))!=Cnil){ goto T4495;} base[4]= (V1005); base[5]= CMPcar((V1006)); vs_top=(vs_base=base+4)+2; {object _funobj = (V1004);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4495; T4495:; base[4]= (V1004); base[5]= (V1005); {object V1007; V1007= (V1006); vs_top=base+6; while(V1007!=Cnil) {vs_push((V1007)->c.c_car);V1007=(V1007)->c.c_cdr;} vs_base=base+5;} {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T4487; T4487:; base[4]= V971; vs_top=(vs_base=base+4)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4505;} base[4]= (V967); base[5]= (V968); base[6]= (V969); base[7]= (V970); vs_top=(vs_base=base+4)+4; {object _funobj = (V971);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4505; T4505:; base[4]= VV[11]; base[5]= VV[12]; base[6]= VV[13]; base[7]= VV[14]; base[8]= V971; base[9]= VV[15]; base[10]= VV[75]; base[11]= VV[17]; base[12]= VV[76]; vs_top=(vs_base=base+4)+9; (void) (*Lnk294)(); return;} goto T4336; T4336:; base[4]= (V967); base[5]= (V968); base[6]= (V969); base[7]= (V970); vs_top=(vs_base=base+4)+4; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[4]= Cnil; vs_top=(vs_base=base+4)+1; return;} } } /* local function CLOSURE */ static void LC65(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM136; VC136 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC148,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC148(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM137; VC137 vs_check; {object V1008; object V1009; object V1010; object V1011; object V1012; check_arg(5); V1008=(base[0]); V1009=(base[1]); V1010=(base[2]); V1011=(base[3]); V1012=(base[4]); vs_top=sup; {object V1013; V1013= Cnil; {long V1014; object V1015; long V1016; long V1017; object V1018; object V1019; object V1020; V1014= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V1015= STREF(object,(base0[1]->c.c_car),40); V1016= (long)STREF(fixnum,(base0[1]->c.c_car),24); V1017= (long)STREF(fixnum,(base0[1]->c.c_car),28); V1018= STREF(object,(base0[1]->c.c_car),44); if(type_of(V1008)==t_structure){ goto T4537;} goto T4535; goto T4537; T4537:; if(!(((V1008)->str.str_def)==(VV[68]))){ goto T4535;} V1019= STREF(object,(V1008),0); goto T4533; goto T4535; T4535:;{object V1022; V1022= (VV[42]->s.s_dbind); base[5]= small_fixnum(14); base[6]= (V1008); vs_top=(vs_base=base+5)+2; (void) (*Lnk287)(); vs_top=sup; V1023= vs_base[0]; if(!((V1022)==(CMPcar(V1023)))){ goto T4540;}} V1019= CMPcar(((V1008))->cc.cc_turbo[13]); goto T4533; goto T4540; T4540:; if(!(type_of((V1008))==t_structure)){ goto T4546;} V1019= (*(LnkLI290))((V1008)); goto T4533; goto T4546; T4546:; if(!(type_of((V1008))==t_symbol)){ goto T4549;} if(((V1008))==Cnil){ goto T4552;} V1019= (VV[56]->s.s_dbind); goto T4533; goto T4552; T4552:; V1019= (VV[57]->s.s_dbind); goto T4533; goto T4549; T4549:; V1019= (*(LnkLI291))((V1008)); goto T4533; T4533:; if(type_of(V1009)==t_structure){ goto T4558;} goto T4556; goto T4558; T4558:; if(!(((V1009)->str.str_def)==(VV[69]))){ goto T4556;} V1020= STREF(object,(V1009),0); goto T4554; goto T4556; T4556:;{object V1025; V1025= (VV[42]->s.s_dbind); base[5]= small_fixnum(14); base[6]= (V1009); vs_top=(vs_base=base+5)+2; (void) (*Lnk287)(); vs_top=sup; V1026= vs_base[0]; if(!((V1025)==(CMPcar(V1026)))){ goto T4561;}} V1020= CMPcar(((V1009))->cc.cc_turbo[13]); goto T4554; goto T4561; T4561:; if(!(type_of((V1009))==t_structure)){ goto T4567;} V1020= (*(LnkLI290))((V1009)); goto T4554; goto T4567; T4567:; if(!(type_of((V1009))==t_symbol)){ goto T4570;} if(((V1009))==Cnil){ goto T4573;} V1020= (VV[56]->s.s_dbind); goto T4554; goto T4573; T4573:; V1020= (VV[57]->s.s_dbind); goto T4554; goto T4570; T4570:; V1020= (*(LnkLI291))((V1009)); goto T4554; T4554:; {long V1027; long V1028; V1027= 0; V1028= (long)(V1017)-(1); {long V1029; V1029= fix(((V1019))->v.v_self[V1014]); if(!((V1029)==0)){ goto T4581;} goto T4527; goto T4581; T4581:; V1027= (long)(V1027)+(V1029);} {long V1030; V1030= fix(((V1020))->v.v_self[V1014]); if(!((V1030)==0)){ goto T4586;} goto T4527; goto T4586; T4586:; V1027= (long)(V1027)+(V1030); V1027= (long)((V1027) & (V1016));} {long V1031; {object V1032; V1032= ((V1015))->v.v_self[0]; if(type_of((V1032))==t_fixnum){ goto T4594;} base[5]= VV[58]; vs_top=(vs_base=base+5)+1; Lerror(); vs_top=sup; goto T4594; T4594:; V1031= fix((V1032));} {register long V1033; long V1034; V1033= V1027; V1034= 0; goto T4602; T4602:; V1034= (long)(V1033)+(4); V1033= (long)(V1033)+(1); if(!(((V1019))==(((V1015))->v.v_self[V1033]))){ goto T4606;} V1033= (long)(V1033)+(1); if(!(((V1020))==(((V1015))->v.v_self[V1033]))){ goto T4606;} V1033= (long)(V1033)+(1); V1013= ((V1015))->v.v_self[V1033]; goto T4600; goto T4606; T4606:; V1033= V1034; if(!((V1033)==(V1028))){ goto T4619;} V1033= 0; goto T4619; T4619:; if(!((V1033)==(V1027))){ goto T4603;} {register object V1035; register object V1036; V1035= (V1018); V1036= CMPcar((V1035)); goto T4629; T4629:; if(!(((V1035))==Cnil)){ goto T4630;} goto T4625; goto T4630; T4630:; {register object V1037; V1037= CMPcar((V1036)); {register object V1039; V1039= CMPcar((V1037)); V1037= CMPcdr((V1037)); V1038= (V1039);} if(!(((V1019))==(V1038))){ goto T4634;} {register object V1041; V1041= CMPcar((V1037)); V1037= CMPcdr((V1037)); V1040= (V1041);} if(!(((V1020))==(V1040))){ goto T4634;} V1013= CMPcdr((V1036)); goto T4600;} goto T4634; T4634:; V1035= CMPcdr((V1035)); V1036= CMPcar((V1035)); goto T4629;} goto T4625; T4625:; goto T4527; goto T4603; T4603:; goto T4602; goto T4600; T4600:; {object V1043; V1043= ((V1015))->v.v_self[0]; if(type_of((V1043))==t_fixnum){ goto T4660;} base[5]= VV[58]; vs_top=(vs_base=base+5)+1; Lerror(); vs_top=sup; goto T4660; T4660:; V1042= fix((V1043));} if((V1031)==(V1042)){ goto T4575;} goto T4527;}}} goto T4575; T4575:; base[5]= (V1013); base[6]= VV[2]; vs_top=(vs_base=base+5)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4666;} base[5]= STREF(object,(V1013),0); base[6]= STREF(object,(V1013),4); base[7]= STREF(object,(V1013),8); base[8]= (V1008); base[9]= (V1009); base[10]= (V1010); base[11]= (V1011); base[12]= (V1012); vs_top=(vs_base=base+6)+7; {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4666; T4666:; base[5]= V1013; base[6]= VV[10]; vs_top=(vs_base=base+5)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4679;} {object V1046; object V1047; object V1048; V1046= STREF(object,(V1013),0); V1047= list(5,(V1008),(V1009),(V1010),(V1011),(V1012)); V1048= STREF(object,(V1013),4); if(((V1048))==Cnil){ goto T4687;} if((CMPcdr((V1048)))!=Cnil){ goto T4687;} base[5]= (V1047); base[6]= CMPcar((V1048)); vs_top=(vs_base=base+5)+2; {object _funobj = (V1046);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4687; T4687:; base[5]= (V1046); base[6]= (V1047); {object V1049; V1049= (V1048); vs_top=base+7; while(V1049!=Cnil) {vs_push((V1049)->c.c_car);V1049=(V1049)->c.c_cdr;} vs_base=base+6;} {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T4679; T4679:; base[5]= V1013; vs_top=(vs_base=base+5)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4697;} base[5]= (V1008); base[6]= (V1009); base[7]= (V1010); base[8]= (V1011); base[9]= (V1012); vs_top=(vs_base=base+5)+5; {object _funobj = (V1013);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4697; T4697:; base[5]= VV[11]; base[6]= VV[12]; base[7]= VV[13]; base[8]= VV[14]; base[9]= V1013; base[10]= VV[15]; base[11]= VV[70]; base[12]= VV[17]; base[13]= VV[71]; vs_top=(vs_base=base+5)+9; (void) (*Lnk294)(); return;} goto T4527; T4527:; base[5]= (V1008); base[6]= (V1009); base[7]= (V1010); base[8]= (V1011); base[9]= (V1012); vs_top=(vs_base=base+5)+5; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[5]= Cnil; vs_top=(vs_base=base+5)+1; return;} } } /* local function CLOSURE */ static void LC64(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM138; VC138 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC149,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC149(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM139; VC139 vs_check; {object V1050; object V1051; object V1052; check_arg(3); V1050=(base[0]); V1051=(base[1]); V1052=(base[2]); vs_top=sup; {object V1053; V1053= Cnil; {long V1054; object V1055; long V1056; long V1057; object V1058; object V1059; object V1060; V1054= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V1055= STREF(object,(base0[1]->c.c_car),40); V1056= (long)STREF(fixnum,(base0[1]->c.c_car),24); V1057= (long)STREF(fixnum,(base0[1]->c.c_car),28); V1058= STREF(object,(base0[1]->c.c_car),44); if(type_of(V1050)==t_structure){ goto T4731;} goto T4729; goto T4731; T4731:; if(!(((V1050)->str.str_def)==(VV[63]))){ goto T4729;} V1059= STREF(object,(V1050),0); goto T4727; goto T4729; T4729:;{object V1062; V1062= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V1050); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V1063= vs_base[0]; if(!((V1062)==(CMPcar(V1063)))){ goto T4734;}} V1059= CMPcar(((V1050))->cc.cc_turbo[13]); goto T4727; goto T4734; T4734:; if(!(type_of((V1050))==t_structure)){ goto T4740;} V1059= (*(LnkLI290))((V1050)); goto T4727; goto T4740; T4740:; if(!(type_of((V1050))==t_symbol)){ goto T4743;} if(((V1050))==Cnil){ goto T4746;} V1059= (VV[56]->s.s_dbind); goto T4727; goto T4746; T4746:; V1059= (VV[57]->s.s_dbind); goto T4727; goto T4743; T4743:; V1059= (*(LnkLI291))((V1050)); goto T4727; T4727:; if(type_of(V1051)==t_structure){ goto T4752;} goto T4750; goto T4752; T4752:; if(!(((V1051)->str.str_def)==(VV[64]))){ goto T4750;} V1060= STREF(object,(V1051),0); goto T4748; goto T4750; T4750:;{object V1065; V1065= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V1051); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V1066= vs_base[0]; if(!((V1065)==(CMPcar(V1066)))){ goto T4755;}} V1060= CMPcar(((V1051))->cc.cc_turbo[13]); goto T4748; goto T4755; T4755:; if(!(type_of((V1051))==t_structure)){ goto T4761;} V1060= (*(LnkLI290))((V1051)); goto T4748; goto T4761; T4761:; if(!(type_of((V1051))==t_symbol)){ goto T4764;} if(((V1051))==Cnil){ goto T4767;} V1060= (VV[56]->s.s_dbind); goto T4748; goto T4767; T4767:; V1060= (VV[57]->s.s_dbind); goto T4748; goto T4764; T4764:; V1060= (*(LnkLI291))((V1051)); goto T4748; T4748:; {long V1067; long V1068; V1067= 0; V1068= (long)(V1057)-(1); {long V1069; V1069= fix(((V1059))->v.v_self[V1054]); if(!((V1069)==0)){ goto T4775;} goto T4721; goto T4775; T4775:; V1067= (long)(V1067)+(V1069);} {long V1070; V1070= fix(((V1060))->v.v_self[V1054]); if(!((V1070)==0)){ goto T4780;} goto T4721; goto T4780; T4780:; V1067= (long)(V1067)+(V1070); V1067= (long)((V1067) & (V1056));} {long V1071; {object V1072; V1072= ((V1055))->v.v_self[0]; if(type_of((V1072))==t_fixnum){ goto T4788;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T4788; T4788:; V1071= fix((V1072));} {register long V1073; long V1074; V1073= V1067; V1074= 0; goto T4796; T4796:; V1074= (long)(V1073)+(4); V1073= (long)(V1073)+(1); if(!(((V1059))==(((V1055))->v.v_self[V1073]))){ goto T4800;} V1073= (long)(V1073)+(1); if(!(((V1060))==(((V1055))->v.v_self[V1073]))){ goto T4800;} V1073= (long)(V1073)+(1); V1053= ((V1055))->v.v_self[V1073]; goto T4794; goto T4800; T4800:; V1073= V1074; if(!((V1073)==(V1068))){ goto T4813;} V1073= 0; goto T4813; T4813:; if(!((V1073)==(V1067))){ goto T4797;} {register object V1075; register object V1076; V1075= (V1058); V1076= CMPcar((V1075)); goto T4823; T4823:; if(!(((V1075))==Cnil)){ goto T4824;} goto T4819; goto T4824; T4824:; {register object V1077; V1077= CMPcar((V1076)); {register object V1079; V1079= CMPcar((V1077)); V1077= CMPcdr((V1077)); V1078= (V1079);} if(!(((V1059))==(V1078))){ goto T4828;} {register object V1081; V1081= CMPcar((V1077)); V1077= CMPcdr((V1077)); V1080= (V1081);} if(!(((V1060))==(V1080))){ goto T4828;} V1053= CMPcdr((V1076)); goto T4794;} goto T4828; T4828:; V1075= CMPcdr((V1075)); V1076= CMPcar((V1075)); goto T4823;} goto T4819; T4819:; goto T4721; goto T4797; T4797:; goto T4796; goto T4794; T4794:; {object V1083; V1083= ((V1055))->v.v_self[0]; if(type_of((V1083))==t_fixnum){ goto T4854;} base[3]= VV[58]; vs_top=(vs_base=base+3)+1; Lerror(); vs_top=sup; goto T4854; T4854:; V1082= fix((V1083));} if((V1071)==(V1082)){ goto T4769;} goto T4721;}}} goto T4769; T4769:; base[3]= (V1053); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4860;} base[3]= STREF(object,(V1053),0); base[4]= STREF(object,(V1053),4); base[5]= STREF(object,(V1053),8); base[6]= (V1050); base[7]= (V1051); base[8]= (V1052); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4860; T4860:; base[3]= V1053; base[4]= VV[10]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4871;} {object V1086; object V1087; object V1088; V1086= STREF(object,(V1053),0); V1087= list(3,(V1050),(V1051),(V1052)); V1088= STREF(object,(V1053),4); if(((V1088))==Cnil){ goto T4879;} if((CMPcdr((V1088)))!=Cnil){ goto T4879;} base[3]= (V1087); base[4]= CMPcar((V1088)); vs_top=(vs_base=base+3)+2; {object _funobj = (V1086);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4879; T4879:; base[3]= (V1086); base[4]= (V1087); {object V1089; V1089= (V1088); vs_top=base+5; while(V1089!=Cnil) {vs_push((V1089)->c.c_car);V1089=(V1089)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T4871; T4871:; base[3]= V1053; vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4889;} base[3]= (V1050); base[4]= (V1051); base[5]= (V1052); vs_top=(vs_base=base+3)+3; {object _funobj = (V1053);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4889; T4889:; base[3]= VV[11]; base[4]= VV[12]; base[5]= VV[13]; base[6]= VV[14]; base[7]= V1053; base[8]= VV[15]; base[9]= VV[65]; base[10]= VV[17]; base[11]= VV[66]; vs_top=(vs_base=base+3)+9; (void) (*Lnk294)(); return;} goto T4721; T4721:; base[3]= (V1050); base[4]= (V1051); base[5]= (V1052); vs_top=(vs_base=base+3)+3; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[3]= Cnil; vs_top=(vs_base=base+3)+1; return;} } } /* local function CLOSURE */ static void LC63(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM140; VC140 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC150,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC150(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM141; VC141 vs_check; {object V1090; object V1091; check_arg(2); V1090=(base[0]); V1091=(base[1]); vs_top=sup; {register object V1092; V1092= Cnil; {long V1093; register object V1094; long V1095; long V1096; object V1097; register object V1098; V1093= (long)STREF(unsigned char,(base0[1]->c.c_car),16); V1094= STREF(object,(base0[1]->c.c_car),40); V1095= (long)STREF(fixnum,(base0[1]->c.c_car),24); V1096= (long)STREF(fixnum,(base0[1]->c.c_car),28); V1097= STREF(object,(base0[1]->c.c_car),44); if(type_of(V1091)==t_structure){ goto T4919;} goto T4917; goto T4919; T4919:; if(!(((V1091)->str.str_def)==(VV[55]))){ goto T4917;} V1098= STREF(object,(V1091),0); goto T4915; goto T4917; T4917:;{object V1100; V1100= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V1091); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V1101= vs_base[0]; if(!((V1100)==(CMPcar(V1101)))){ goto T4922;}} V1098= CMPcar(((V1091))->cc.cc_turbo[13]); goto T4915; goto T4922; T4922:; if(!(type_of((V1091))==t_structure)){ goto T4928;} V1098= (*(LnkLI290))((V1091)); goto T4915; goto T4928; T4928:; if(!(type_of((V1091))==t_symbol)){ goto T4931;} if(((V1091))==Cnil){ goto T4934;} V1098= (VV[56]->s.s_dbind); goto T4915; goto T4934; T4934:; V1098= (VV[57]->s.s_dbind); goto T4915; goto T4931; T4931:; V1098= (*(LnkLI291))((V1091)); goto T4915; T4915:; {long V1102; long V1103; {long V1104; V1104= fix(((V1098))->v.v_self[V1093]); if(!((V1104)==0)){ goto T4939;} goto T4909; goto T4939; T4939:; V1102= (long)((V1095) & (V1104));} {object V1105; V1105= ((V1094))->v.v_self[0]; if(type_of((V1105))==t_fixnum){ goto T4944;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T4944; T4944:; V1103= fix((V1105));} {register long V1106; V1106= V1102; goto T4951; T4951:; if(!(((V1098))==(((V1094))->v.v_self[V1106]))){ goto T4953;} V1092= ((V1094))->v.v_self[(long)(V1106)+1]; goto T4949; goto T4953; T4953:; V1106= (long)(V1106)+(2); if(!((V1106)==(V1096))){ goto T4960;} V1106= 0; goto T4960; T4960:; if(!((V1106)==(V1102))){ goto T4952;} {register object V1107; register object V1108; V1107= (V1097); V1108= CMPcar((V1107)); goto T4970; T4970:; if(!(((V1107))==Cnil)){ goto T4971;} goto T4966; goto T4971; T4971:; if(!((CMPcar((V1108)))==((V1098)))){ goto T4975;} V1092= CMPcdr((V1108)); goto T4949; goto T4975; T4975:; V1107= CMPcdr((V1107)); V1108= CMPcar((V1107)); goto T4970;} goto T4966; T4966:; goto T4909; goto T4952; T4952:; goto T4951; goto T4949; T4949:; {object V1110; V1110= ((V1094))->v.v_self[0]; if(type_of((V1110))==t_fixnum){ goto T4990;} base[2]= VV[58]; vs_top=(vs_base=base+2)+1; Lerror(); vs_top=sup; goto T4990; T4990:; V1109= fix((V1110));} if((V1103)==(V1109)){ goto T4936;} goto T4909;}} goto T4936; T4936:; base[2]= (V1092); base[3]= VV[2]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T4996;} base[2]= STREF(object,(V1092),0); base[3]= STREF(object,(V1092),4); base[4]= STREF(object,(V1092),8); base[5]= (V1090); base[6]= (V1091); vs_top=(vs_base=base+3)+4; {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T4996; T4996:; if(!(type_of((V1092))==t_fixnum)){ goto T5006;} {object V1112; if(type_of(V1090)==t_structure){ goto T5012;} goto T5010; goto T5012; T5012:; if(!(((V1090)->str.str_def)==(VV[59]))){ goto T5010;} V1112= STREF(object,(V1090),4); goto T5008; goto T5010; T5010:;{object V1114; V1114= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V1090); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V1115= vs_base[0]; if(!((V1114)==(CMPcar(V1115)))){ goto T5015;}} V1112= CMPcar(((V1090))->cc.cc_turbo[12]); goto T5008; goto T5015; T5015:; V1112= Cnil; goto T5008; T5008:; if(((V1112))==Cnil){ goto T5021;} base[2]= ((V1112))->v.v_self[fix((V1092))]= (V1090); vs_top=(vs_base=base+2)+1; return; goto T5021; T5021:; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} goto T5006; T5006:; base[2]= V1092; base[3]= VV[10]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5024;} {object V1118; object V1119; object V1120; V1118= STREF(object,(V1092),0); V1119= list(2,(V1090),(V1091)); V1120= STREF(object,(V1092),4); if(((V1120))==Cnil){ goto T5032;} if((CMPcdr((V1120)))!=Cnil){ goto T5032;} base[2]= (V1119); base[3]= CMPcar((V1120)); vs_top=(vs_base=base+2)+2; {object _funobj = (V1118);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5032; T5032:; base[2]= (V1118); base[3]= (V1119); {object V1121; V1121= (V1120); vs_top=base+4; while(V1121!=Cnil) {vs_push((V1121)->c.c_car);V1121=(V1121)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T5024; T5024:; base[2]= V1092; vs_top=(vs_base=base+2)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5042;} base[2]= (V1090); base[3]= (V1091); vs_top=(vs_base=base+2)+2; {object _funobj = (V1092);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5042; T5042:; base[2]= VV[11]; base[3]= VV[12]; base[4]= VV[13]; base[5]= VV[14]; base[6]= V1092; base[7]= VV[15]; base[8]= VV[60]; base[9]= VV[17]; base[10]= VV[61]; vs_top=(vs_base=base+2)+9; (void) (*Lnk294)(); return;} goto T4909; T4909:; base[2]= (V1090); base[3]= (V1091); vs_top=(vs_base=base+2)+2; {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} } } /* local function CLOSURE */ static void LC62(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM142; VC142 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC151,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC151(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM143; VC143 vs_check; {register object V1122; object V1123; check_arg(2); V1122=(base[0]); V1123=(base[1]); vs_top=sup; {register object V1124; V1124= (base0[2]->c.c_car); base[2]= (V1124); base[3]= VV[2]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5061;} base[2]= STREF(object,(V1124),0); base[3]= STREF(object,(V1124),4); base[4]= STREF(object,(V1124),8); base[5]= (V1122); base[6]= (V1123); vs_top=(vs_base=base+3)+4; {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5061; T5061:; if(!(type_of((V1124))==t_fixnum)){ goto T5071;} {object V1126; if(type_of(V1122)==t_structure){ goto T5077;} goto T5075; goto T5077; T5077:; if(!(((V1122)->str.str_def)==(VV[50]))){ goto T5075;} V1126= STREF(object,(V1122),4); goto T5073; goto T5075; T5075:;{object V1128; V1128= (VV[42]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V1122); vs_top=(vs_base=base+2)+2; (void) (*Lnk287)(); vs_top=sup; V1129= vs_base[0]; if(!((V1128)==(CMPcar(V1129)))){ goto T5080;}} V1126= CMPcar(((V1122))->cc.cc_turbo[12]); goto T5073; goto T5080; T5080:; V1126= Cnil; goto T5073; T5073:; if(((V1126))==Cnil){ goto T5086;} base[2]= ((V1126))->v.v_self[fix((V1124))]= (V1122); vs_top=(vs_base=base+2)+1; return; goto T5086; T5086:; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} goto T5071; T5071:; {register object V1131; V1131= V1124; base[2]= (V1131); base[3]= VV[10]; vs_top=(vs_base=base+2)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5089;} {object V1132; object V1133; register object V1134; V1132= STREF(object,(V1124),0); V1133= list(2,(V1122),(V1123)); V1134= STREF(object,(V1124),4); if(((V1134))==Cnil){ goto T5100;} if(!((CMPcdr((V1134)))==Cnil)){ goto T5097;} goto T5098; goto T5100; T5100:; goto T5097; goto T5098; T5098:; base[2]= (V1133); base[3]= CMPcar((V1134)); vs_top=(vs_base=base+2)+2; {object _funobj = (V1132);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5097; T5097:; base[2]= (V1132); base[3]= (V1133); {object V1135; V1135= (V1134); vs_top=base+4; while(V1135!=Cnil) {vs_push((V1135)->c.c_car);V1135=(V1135)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T5089; T5089:; base[2]= (V1131); vs_top=(vs_base=base+2)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5108;} base[2]= (V1122); base[3]= (V1123); vs_top=(vs_base=base+2)+2; {object _funobj = (V1124);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5108; T5108:; base[2]= VV[11]; base[3]= VV[12]; base[4]= VV[13]; base[5]= VV[14]; base[6]= V1124; base[7]= VV[15]; base[8]= (base0[1]->c.c_car); base[9]= VV[17]; base[10]= (base0[0]->c.c_car); vs_top=(vs_base=base+2)+9; (void) (*Lnk294)(); return;}} } } /* local function CLOSURE */ static void LC61(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM144; VC144 vs_check; check_arg(5); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); base[3]=MMcons(base[3],base[2]); base[4]=MMcons(base[4],base[3]); vs_top=sup; base[5]= make_cclosure_new(LC152,Cnil,base[4],Cdata); vs_top=(vs_base=base+5)+1; return; } /* local function CLOSURE */ static void LC152(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM145; VC145 vs_check; {register object V1136; register object V1137; object V1138; check_arg(3); V1136=(base[0]); V1137=(base[1]); V1138=(base[2]); vs_top=sup; {register object V1139; base[3]= (V1136); base[4]= VV[36]; vs_top=(vs_base=base+3)+2; (void) (*Lnk295)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5124;} {register object V1140; register object V1141; V1140= (base0[4]->c.c_car); V1141= CMPcar((V1140)); goto T5131; T5131:; if(!(((V1140))==Cnil)){ goto T5132;} V1139= (base0[3]->c.c_car); goto T5122; goto T5132; T5132:; if(!((CMPcar((V1141)))==((V1137)))){ goto T5136;} V1139= CMPcdr((V1141)); goto T5122; goto T5136; T5136:; V1140= CMPcdr((V1140)); V1141= CMPcar((V1140)); goto T5131;} goto T5124; T5124:; V1139= (base0[2]->c.c_car); goto T5122; T5122:; base[3]= (V1139); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5146;} base[3]= STREF(object,(V1139),0); base[4]= STREF(object,(V1139),4); base[5]= STREF(object,(V1139),8); base[6]= (V1136); base[7]= (V1137); base[8]= (V1138); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5146; T5146:; base[3]= V1139; base[4]= VV[10]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5157;} {object V1144; object V1145; object V1146; V1144= STREF(object,(V1139),0); V1145= list(3,(V1136),(V1137),(V1138)); V1146= STREF(object,(V1139),4); if(((V1146))==Cnil){ goto T5168;} if(!((CMPcdr((V1146)))==Cnil)){ goto T5165;} goto T5166; goto T5168; T5168:; goto T5165; goto T5166; T5166:; base[3]= (V1145); base[4]= CMPcar((V1146)); vs_top=(vs_base=base+3)+2; {object _funobj = (V1144);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5165; T5165:; base[3]= (V1144); base[4]= (V1145); {object V1147; V1147= (V1146); vs_top=base+5; while(V1147!=Cnil) {vs_push((V1147)->c.c_car);V1147=(V1147)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T5157; T5157:; base[3]= V1139; vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5176;} base[3]= (V1136); base[4]= (V1137); base[5]= (V1138); vs_top=(vs_base=base+3)+3; {object _funobj = (V1139);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5176; T5176:; base[3]= VV[11]; base[4]= VV[12]; base[5]= VV[13]; base[6]= VV[14]; base[7]= V1139; base[8]= VV[15]; base[9]= (base0[1]->c.c_car); base[10]= VV[17]; base[11]= (base0[0]->c.c_car); vs_top=(vs_base=base+3)+9; (void) (*Lnk294)(); return;} } } /* local function CLOSURE */ static void LC60(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM146; VC146 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC153,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC153(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM147; VC147 vs_check; {register object V1148; check_arg(1); V1148=(base[0]); vs_top=sup; {register object V1149; V1149= (base0[2]->c.c_car); base[1]= (V1149); base[2]= VV[2]; vs_top=(vs_base=base+1)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5193;} base[1]= STREF(object,(V1149),0); base[2]= STREF(object,(V1149),4); base[3]= STREF(object,(V1149),8); base[4]= (V1148); vs_top=(vs_base=base+2)+3; {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5193; T5193:; if(!(type_of((V1149))==t_fixnum)){ goto T5202;} {object V1150; object V1151; if(type_of(V1148)==t_structure){ goto T5208;} goto T5206; goto T5208; T5208:; if(!(((V1148)->str.str_def)==(VV[40]))){ goto T5206;} V1150= STREF(object,(V1148),4); goto T5204; goto T5206; T5206:;{object V1153; V1153= (VV[42]->s.s_dbind); base[3]= small_fixnum(14); base[4]= (V1148); vs_top=(vs_base=base+3)+2; (void) (*Lnk287)(); vs_top=sup; V1154= vs_base[0]; if(!((V1153)==(CMPcar(V1154)))){ goto T5211;}} V1150= CMPcar(((V1148))->cc.cc_turbo[12]); goto T5204; goto T5211; T5211:; V1150= Cnil; goto T5204; T5204:; if(((V1150))==Cnil){ goto T5218;} V1151= ((V1150))->v.v_self[fix((V1149))]; goto T5216; goto T5218; T5218:; V1151= Cnil; goto T5216; T5216:; if(!(((V1151))==(VV[43]))){ goto T5221;} base[3]= (V1148); base[4]= (V1149); vs_top=(vs_base=base+3)+2; (void) (*Lnk293)(); return; goto T5221; T5221:; base[3]= (V1151); vs_top=(vs_base=base+3)+1; return;} goto T5202; T5202:; {register object V1156; V1156= V1149; base[1]= (V1156); base[2]= VV[10]; vs_top=(vs_base=base+1)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5226;} {object V1157; object V1158; register object V1159; V1157= STREF(object,(V1149),0); V1158= make_cons((V1148),Cnil); V1159= STREF(object,(V1149),4); if(((V1159))==Cnil){ goto T5237;} if(!((CMPcdr((V1159)))==Cnil)){ goto T5234;} goto T5235; goto T5237; T5237:; goto T5234; goto T5235; T5235:; base[1]= (V1158); base[2]= CMPcar((V1159)); vs_top=(vs_base=base+1)+2; {object _funobj = (V1157);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5234; T5234:; base[1]= (V1157); base[2]= (V1158); {object V1160; V1160= (V1159); vs_top=base+3; while(V1160!=Cnil) {vs_push((V1160)->c.c_car);V1160=(V1160)->c.c_cdr;} vs_base=base+2;} {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T5226; T5226:; base[1]= (V1156); vs_top=(vs_base=base+1)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5245;} base[1]= (V1148); vs_top=(vs_base=base+1)+1; {object _funobj = (V1149);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5245; T5245:; base[1]= VV[11]; base[2]= VV[12]; base[3]= VV[13]; base[4]= VV[14]; base[5]= V1149; base[6]= VV[15]; base[7]= (base0[1]->c.c_car); base[8]= VV[17]; base[9]= (base0[0]->c.c_car); vs_top=(vs_base=base+1)+9; (void) (*Lnk294)(); return;}} } } /* local function CLOSURE */ static void LC59(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM148; VC148 vs_check; check_arg(5); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); base[3]=MMcons(base[3],base[2]); base[4]=MMcons(base[4],base[3]); vs_top=sup; base[5]= make_cclosure_new(LC154,Cnil,base[4],Cdata); vs_top=(vs_base=base+5)+1; return; } /* local function CLOSURE */ static void LC154(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM149; VC149 vs_check; {register object V1161; register object V1162; object V1163; check_arg(3); V1161=(base[0]); V1162=(base[1]); V1163=(base[2]); vs_top=sup; {register object V1164; base[3]= (V1161); base[4]= VV[36]; vs_top=(vs_base=base+3)+2; (void) (*Lnk295)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5260;} if(!(((V1162))==(CMPcar((base0[4]->c.c_car))))){ goto T5265;} V1164= CMPcdr((base0[4]->c.c_car)); goto T5258; goto T5265; T5265:; V1164= (base0[3]->c.c_car); goto T5258; goto T5260; T5260:; V1164= (base0[2]->c.c_car); goto T5258; T5258:; base[3]= (V1164); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5269;} base[3]= STREF(object,(V1164),0); base[4]= STREF(object,(V1164),4); base[5]= STREF(object,(V1164),8); base[6]= (V1161); base[7]= (V1162); base[8]= (V1163); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5269; T5269:; {register object V1166; V1166= V1164; base[3]= (V1166); base[4]= VV[10]; vs_top=(vs_base=base+3)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5280;} {object V1167; object V1168; register object V1169; V1167= STREF(object,(V1164),0); V1168= list(3,(V1161),(V1162),(V1163)); V1169= STREF(object,(V1164),4); if(((V1169))==Cnil){ goto T5291;} if(!((CMPcdr((V1169)))==Cnil)){ goto T5288;} goto T5289; goto T5291; T5291:; goto T5288; goto T5289; T5289:; base[3]= (V1168); base[4]= CMPcar((V1169)); vs_top=(vs_base=base+3)+2; {object _funobj = (V1167);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5288; T5288:; base[3]= (V1167); base[4]= (V1168); {object V1170; V1170= (V1169); vs_top=base+5; while(V1170!=Cnil) {vs_push((V1170)->c.c_car);V1170=(V1170)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} goto T5280; T5280:; base[3]= (V1166); vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5299;} base[3]= (V1161); base[4]= (V1162); base[5]= (V1163); vs_top=(vs_base=base+3)+3; {object _funobj = (V1164);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; goto T5299; T5299:; base[3]= VV[11]; base[4]= VV[12]; base[5]= VV[13]; base[6]= VV[14]; base[7]= V1164; base[8]= VV[15]; base[9]= (base0[1]->c.c_car); base[10]= VV[17]; base[11]= (base0[0]->c.c_car); vs_top=(vs_base=base+3)+9; (void) (*Lnk294)(); return;}} } } /* local function CLOSURE */ static void LC58(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM150; VC150 vs_check; check_arg(2); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); vs_top=sup; base[2]= make_cclosure_new(LC155,Cnil,base[1],Cdata); vs_top=(vs_base=base+2)+1; return; } /* local function CLOSURE */ static void LC155(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM151; VC151 vs_check; {object V1171; object V1172; object V1173; object V1174; object V1175; check_arg(5); V1171=(base[0]); V1172=(base[1]); V1173=(base[2]); V1174=(base[3]); V1175=(base[4]); vs_top=sup; base[5]= (base0[1]->c.c_car); base[6]= (base0[0]->c.c_car); vs_top=(vs_base=base+5)+2; Lerror(); return; } } /* local function CLOSURE */ static void LC57(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM152; VC152 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC156,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC156(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM153; VC153 vs_check; {object V1176; object V1177; register object V1178; register object V1179; check_arg(4); V1176=(base[0]); V1177=(base[1]); V1178=(base[2]); V1179=(base[3]); vs_top=sup; {register object V1182; object V1183; V1182= (base0[2]->c.c_car); V1183= CMPcar((V1182)); goto T5321; T5321:; if(!(((V1182))==Cnil)){ goto T5322;} goto T5317; goto T5322; T5322:; (void)(( V1184 = STREF(object,(V1183),0), (type_of(V1184) == t_sfun ?(*((V1184)->sfn.sfn_self)): (fcall.argd=4,type_of(V1184)==t_vfun) ? (*((V1184)->sfn.sfn_self)): (fcall.fun=(V1184),fcalln))(STREF(object,(V1183),4),STREF(object,(V1183),8),(V1178),(V1179)))); V1182= CMPcdr((V1182)); V1183= CMPcar((V1182)); goto T5321;} goto T5317; T5317:; base[4]= (base0[1]->c.c_car); base[5]= VV[2]; vs_top=(vs_base=base+4)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5335;} base[4]= STREF(object,(base0[1]->c.c_car),0); base[5]= STREF(object,(base0[1]->c.c_car),4); base[6]= STREF(object,(base0[1]->c.c_car),8); base[7]= (V1178); base[8]= (V1179); vs_top=(vs_base=base+5)+4; {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} goto T5316; goto T5335; T5335:; {object V1185; V1185= (base0[1]->c.c_car); base[4]= V1185; base[5]= VV[10]; vs_top=(vs_base=base+4)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5345;} {object V1187; object V1188; object V1189; V1187= STREF(object,(base0[1]->c.c_car),0); V1188= make_cons((V1178),(V1179)); V1189= STREF(object,(base0[1]->c.c_car),4); if(((V1189))==Cnil){ goto T5353;} if((CMPcdr((V1189)))!=Cnil){ goto T5353;} base[4]= (V1188); base[5]= CMPcar((V1189)); vs_top=(vs_base=base+4)+2; {object _funobj = (V1187);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} goto T5316; goto T5353; T5353:; base[4]= (V1187); base[5]= (V1188); {object V1190; V1190= (V1189); vs_top=base+6; while(V1190!=Cnil) {vs_push((V1190)->c.c_car);V1190=(V1190)->c.c_cdr;} vs_base=base+5;} {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} goto T5316;} goto T5345; T5345:; base[4]= V1185; vs_top=(vs_base=base+4)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5363;} base[4]= (base0[1]->c.c_car); base[5]= (V1178); {object V1191; V1191= (V1179); vs_top=base+6; while(V1191!=Cnil) {vs_push((V1191)->c.c_car);V1191=(V1191)->c.c_cdr;} vs_base=base+5;} {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} goto T5316; goto T5363; T5363:; base[4]= VV[11]; base[5]= VV[12]; base[6]= VV[13]; base[7]= VV[14]; base[8]= (V1185); base[9]= VV[15]; base[10]= VV[26]; base[11]= VV[17]; base[12]= VV[27]; vs_top=(vs_base=base+4)+9; (void) (*Lnk294)();} goto T5316; T5316:; {object *V1181=vs_top;object *V1180=vs_base; vs_base=V1181; {register object *base1=base; {register object *base=V1181; register object *sup=vs_base+VM154; base1[0]=base1[0]; base[0]=base[0]; vs_check; vs_top=sup; {register object V1192; register object V1193; V1192= (base0[0]->c.c_car); V1193= CMPcar((V1192)); goto T5382; T5382:; if(!(((V1192))==Cnil)){ goto T5383;} goto T5378; goto T5383; T5383:; base[1]= (V1193); base[2]= VV[2]; vs_top=(vs_base=base+1)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5390;} (void)(( V1194 = STREF(object,(V1193),0), (type_of(V1194) == t_sfun ?(*((V1194)->sfn.sfn_self)): (fcall.argd=4,type_of(V1194)==t_vfun) ? (*((V1194)->sfn.sfn_self)): (fcall.fun=(V1194),fcalln))(STREF(object,(V1193),4),STREF(object,(V1193),8),(V1178),(V1179)))); goto T5387; goto T5390; T5390:; base[1]= V1193; base[2]= VV[10]; vs_top=(vs_base=base+1)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5395;} {object V1197; object V1198; register object V1199; V1197= STREF(object,(V1193),0); V1198= make_cons((V1178),(V1179)); V1199= STREF(object,(V1193),4); if(((V1199))==Cnil){ goto T5403;} if((CMPcdr((V1199)))!=Cnil){ goto T5403;} (void)(( (type_of((V1197)) == t_sfun ?(*(((V1197))->sfn.sfn_self)): (fcall.argd=2,type_of((V1197))==t_vfun) ? (*(((V1197))->sfn.sfn_self)): (fcall.fun=((V1197)),fcalln))((V1198),CMPcar((V1199))))); goto T5387; goto T5403; T5403:; base[1]= (V1197); base[2]= (V1198); {object V1200; V1200= (V1199); vs_top=base+3; while(V1200!=Cnil) {vs_push((V1200)->c.c_car);V1200=(V1200)->c.c_cdr;} vs_base=base+2;} {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} vs_top=sup; goto T5387;} goto T5395; T5395:; base[1]= V1193; vs_top=(vs_base=base+1)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5411;} base[1]= (V1193); base[2]= (V1178); {object V1201; V1201= (V1179); vs_top=base+3; while(V1201!=Cnil) {vs_push((V1201)->c.c_car);V1201=(V1201)->c.c_cdr;} vs_base=base+2;} {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} vs_top=sup; goto T5387; goto T5411; T5411:; base[1]= VV[11]; base[2]= VV[12]; base[3]= VV[13]; base[4]= VV[14]; base[5]= V1193; base[6]= VV[15]; base[7]= VV[28]; base[8]= VV[17]; base[9]= VV[29]; vs_top=(vs_base=base+1)+9; (void) (*Lnk294)(); vs_top=sup; goto T5387; T5387:; V1192= CMPcdr((V1192)); V1193= CMPcar((V1192)); goto T5382;} }} goto T5378; T5378:; vs_base=V1180;vs_top=V1181;} return; } } /* local function CLOSURE */ static void LC56(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM155; VC155 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC157,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC157(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM156; VC156 vs_check; {object V1202; object V1203; register object V1204; register object V1205; register object V1206; check_arg(5); V1202=(base[0]); V1203=(base[1]); V1204=(base[2]); V1205=(base[3]); V1206=(base[4]); vs_top=sup; {object V1209; register object V1210; V1209= (base0[2]->c.c_car); V1210= CMPcar((V1209)); goto T5436; T5436:; if(!(((V1209))==Cnil)){ goto T5437;} goto T5432; goto T5437; T5437:; base[6]= (V1210); base[7]= VV[2]; vs_top=(vs_base=base+6)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5444;} (void)(( V1211 = STREF(object,(V1210),0), (type_of(V1211) == t_sfun ?(*((V1211)->sfn.sfn_self)): (fcall.argd=5,type_of(V1211)==t_vfun) ? (*((V1211)->sfn.sfn_self)): (fcall.fun=(V1211),fcalln))(STREF(object,(V1210),4),STREF(object,(V1210),8),(V1204),(V1205),(V1206)))); goto T5441; goto T5444; T5444:; base[6]= V1210; base[7]= VV[10]; vs_top=(vs_base=base+6)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5449;} {object V1214; object V1215; register object V1216; V1214= STREF(object,(V1210),0); V1215= listA(3,(V1204),(V1205),(V1206)); V1216= STREF(object,(V1210),4); if(((V1216))==Cnil){ goto T5457;} if((CMPcdr((V1216)))!=Cnil){ goto T5457;} (void)(( (type_of((V1214)) == t_sfun ?(*(((V1214))->sfn.sfn_self)): (fcall.argd=2,type_of((V1214))==t_vfun) ? (*(((V1214))->sfn.sfn_self)): (fcall.fun=((V1214)),fcalln))((V1215),CMPcar((V1216))))); goto T5441; goto T5457; T5457:; base[6]= (V1214); base[7]= (V1215); {object V1217; V1217= (V1216); vs_top=base+8; while(V1217!=Cnil) {vs_push((V1217)->c.c_car);V1217=(V1217)->c.c_cdr;} vs_base=base+7;} {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} vs_top=sup; goto T5441;} goto T5449; T5449:; base[6]= V1210; vs_top=(vs_base=base+6)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5465;} base[6]= (V1210); base[7]= (V1204); base[8]= (V1205); {object V1218; V1218= (V1206); vs_top=base+9; while(V1218!=Cnil) {vs_push((V1218)->c.c_car);V1218=(V1218)->c.c_cdr;} vs_base=base+7;} {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} vs_top=sup; goto T5441; goto T5465; T5465:; base[6]= VV[11]; base[7]= VV[12]; base[8]= VV[13]; base[9]= VV[14]; base[10]= V1210; base[11]= VV[15]; base[12]= VV[16]; base[13]= VV[17]; base[14]= VV[18]; vs_top=(vs_base=base+6)+9; (void) (*Lnk294)(); vs_top=sup; goto T5441; T5441:; V1209= CMPcdr((V1209)); V1210= CMPcar((V1209)); goto T5436;} goto T5432; T5432:; base[5]= (base0[1]->c.c_car); base[6]= VV[2]; vs_top=(vs_base=base+5)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5488;} base[5]= STREF(object,(base0[1]->c.c_car),0); base[6]= STREF(object,(base0[1]->c.c_car),4); base[7]= STREF(object,(base0[1]->c.c_car),8); base[8]= (V1204); base[9]= (V1205); base[10]= (V1206); vs_top=(vs_base=base+6)+5; {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} goto T5431; goto T5488; T5488:; {object V1219; V1219= (base0[1]->c.c_car); base[5]= V1219; base[6]= VV[10]; vs_top=(vs_base=base+5)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5499;} {object V1221; object V1222; object V1223; V1221= STREF(object,(base0[1]->c.c_car),0); V1222= listA(3,(V1204),(V1205),(V1206)); V1223= STREF(object,(base0[1]->c.c_car),4); if(((V1223))==Cnil){ goto T5507;} if((CMPcdr((V1223)))!=Cnil){ goto T5507;} base[5]= (V1222); base[6]= CMPcar((V1223)); vs_top=(vs_base=base+5)+2; {object _funobj = (V1221);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} goto T5431; goto T5507; T5507:; base[5]= (V1221); base[6]= (V1222); {object V1224; V1224= (V1223); vs_top=base+7; while(V1224!=Cnil) {vs_push((V1224)->c.c_car);V1224=(V1224)->c.c_cdr;} vs_base=base+6;} {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} goto T5431;} goto T5499; T5499:; base[5]= V1219; vs_top=(vs_base=base+5)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5517;} base[5]= (base0[1]->c.c_car); base[6]= (V1204); base[7]= (V1205); {object V1225; V1225= (V1206); vs_top=base+8; while(V1225!=Cnil) {vs_push((V1225)->c.c_car);V1225=(V1225)->c.c_cdr;} vs_base=base+6;} {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} goto T5431; goto T5517; T5517:; base[5]= VV[11]; base[6]= VV[12]; base[7]= VV[13]; base[8]= VV[14]; base[9]= (V1219); base[10]= VV[15]; base[11]= VV[19]; base[12]= VV[17]; base[13]= VV[20]; vs_top=(vs_base=base+5)+9; (void) (*Lnk294)();} goto T5431; T5431:; {object *V1208=vs_top;object *V1207=vs_base; vs_base=V1208; {register object *base1=base; {register object *base=V1208; register object *sup=vs_base+VM157; base1[0]=base1[0]; base[0]=base[0]; vs_check; vs_top=sup; {object V1226; register object V1227; V1226= (base0[0]->c.c_car); V1227= CMPcar((V1226)); goto T5537; T5537:; if(!(((V1226))==Cnil)){ goto T5538;} goto T5533; goto T5538; T5538:; base[1]= (V1227); base[2]= VV[2]; vs_top=(vs_base=base+1)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5545;} (void)(( V1228 = STREF(object,(V1227),0), (type_of(V1228) == t_sfun ?(*((V1228)->sfn.sfn_self)): (fcall.argd=5,type_of(V1228)==t_vfun) ? (*((V1228)->sfn.sfn_self)): (fcall.fun=(V1228),fcalln))(STREF(object,(V1227),4),STREF(object,(V1227),8),(V1204),(V1205),(V1206)))); goto T5542; goto T5545; T5545:; base[1]= V1227; base[2]= VV[10]; vs_top=(vs_base=base+1)+2; (void) (*Lnk292)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5550;} {object V1231; object V1232; register object V1233; V1231= STREF(object,(V1227),0); V1232= listA(3,(V1204),(V1205),(V1206)); V1233= STREF(object,(V1227),4); if(((V1233))==Cnil){ goto T5558;} if((CMPcdr((V1233)))!=Cnil){ goto T5558;} (void)(( (type_of((V1231)) == t_sfun ?(*(((V1231))->sfn.sfn_self)): (fcall.argd=2,type_of((V1231))==t_vfun) ? (*(((V1231))->sfn.sfn_self)): (fcall.fun=((V1231)),fcalln))((V1232),CMPcar((V1233))))); goto T5542; goto T5558; T5558:; base[1]= (V1231); base[2]= (V1232); {object V1234; V1234= (V1233); vs_top=base+3; while(V1234!=Cnil) {vs_push((V1234)->c.c_car);V1234=(V1234)->c.c_cdr;} vs_base=base+2;} {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} vs_top=sup; goto T5542;} goto T5550; T5550:; base[1]= V1227; vs_top=(vs_base=base+1)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T5566;} base[1]= (V1227); base[2]= (V1204); base[3]= (V1205); {object V1235; V1235= (V1206); vs_top=base+4; while(V1235!=Cnil) {vs_push((V1235)->c.c_car);V1235=(V1235)->c.c_cdr;} vs_base=base+2;} {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} vs_top=sup; goto T5542; goto T5566; T5566:; base[1]= VV[11]; base[2]= VV[12]; base[3]= VV[13]; base[4]= VV[14]; base[5]= V1227; base[6]= VV[15]; base[7]= VV[21]; base[8]= VV[17]; base[9]= VV[22]; vs_top=(vs_base=base+1)+9; (void) (*Lnk294)(); vs_top=sup; goto T5542; T5542:; V1226= CMPcdr((V1226)); V1227= CMPcar((V1226)); goto T5537;} }} goto T5533; T5533:; vs_base=V1207;vs_top=V1208;} return; } } /* local function CLOSURE */ static void LC55(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM158; VC158 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC158,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC158(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM159; VC159 vs_check; {object V1236; object V1237; register object V1238; register object V1239; check_arg(4); V1236=(base[0]); V1237=(base[1]); V1238=(base[2]); V1239=(base[3]); vs_top=sup; {register object V1242; register object V1243; V1242= (base0[2]->c.c_car); V1243= CMPcar((V1242)); goto T5592; T5592:; if(!(((V1242))==Cnil)){ goto T5593;} goto T5588; goto T5593; T5593:; (void)(( V1244 = STREF(object,(V1243),0), (type_of(V1244) == t_sfun ?(*((V1244)->sfn.sfn_self)): (fcall.argd=4,type_of(V1244)==t_vfun) ? (*((V1244)->sfn.sfn_self)): (fcall.fun=(V1244),fcalln))(STREF(object,(V1243),4),STREF(object,(V1243),8),(V1238),(V1239)))); V1242= CMPcdr((V1242)); V1243= CMPcar((V1242)); goto T5592;} goto T5588; T5588:; base[4]= STREF(object,(base0[1]->c.c_car),0); base[5]= STREF(object,(base0[1]->c.c_car),4); base[6]= STREF(object,(base0[1]->c.c_car),8); base[7]= (V1238); base[8]= (V1239); vs_top=(vs_base=base+5)+4; {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} {object *V1241=vs_top;object *V1240=vs_base; vs_base=V1241; {register object *base1=base; {register object *base=V1241; register object *sup=vs_base+VM160; base1[0]=base1[0]; base[0]=base[0]; vs_check; vs_top=sup; {register object V1245; register object V1246; V1245= (base0[0]->c.c_car); V1246= CMPcar((V1245)); goto T5614; T5614:; if(!(((V1245))==Cnil)){ goto T5615;} goto T5610; goto T5615; T5615:; (void)(( V1247 = STREF(object,(V1246),0), (type_of(V1247) == t_sfun ?(*((V1247)->sfn.sfn_self)): (fcall.argd=4,type_of(V1247)==t_vfun) ? (*((V1247)->sfn.sfn_self)): (fcall.fun=(V1247),fcalln))(STREF(object,(V1246),4),STREF(object,(V1246),8),(V1238),(V1239)))); V1245= CMPcdr((V1245)); V1246= CMPcar((V1245)); goto T5614;} }} goto T5610; T5610:; vs_base=V1240;vs_top=V1241;} return; } } /* local function CLOSURE */ static void LC54(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM161; VC161 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC159,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC159(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM162; VC162 vs_check; {object V1248; object V1249; register object V1250; register object V1251; register object V1252; check_arg(5); V1248=(base[0]); V1249=(base[1]); V1250=(base[2]); V1251=(base[3]); V1252=(base[4]); vs_top=sup; {register object V1255; register object V1256; V1255= (base0[2]->c.c_car); V1256= CMPcar((V1255)); goto T5631; T5631:; if(!(((V1255))==Cnil)){ goto T5632;} goto T5627; goto T5632; T5632:; (void)(( V1257 = STREF(object,(V1256),0), (type_of(V1257) == t_sfun ?(*((V1257)->sfn.sfn_self)): (fcall.argd=5,type_of(V1257)==t_vfun) ? (*((V1257)->sfn.sfn_self)): (fcall.fun=(V1257),fcalln))(STREF(object,(V1256),4),STREF(object,(V1256),8),(V1250),(V1251),(V1252)))); V1255= CMPcdr((V1255)); V1256= CMPcar((V1255)); goto T5631;} goto T5627; T5627:; base[5]= STREF(object,(base0[1]->c.c_car),0); base[6]= STREF(object,(base0[1]->c.c_car),4); base[7]= STREF(object,(base0[1]->c.c_car),8); base[8]= (V1250); base[9]= (V1251); base[10]= (V1252); vs_top=(vs_base=base+6)+5; {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} {object *V1254=vs_top;object *V1253=vs_base; vs_base=V1254; {register object *base1=base; {register object *base=V1254; register object *sup=vs_base+VM163; base1[0]=base1[0]; base[0]=base[0]; vs_check; vs_top=sup; {register object V1258; register object V1259; V1258= (base0[0]->c.c_car); V1259= CMPcar((V1258)); goto T5654; T5654:; if(!(((V1258))==Cnil)){ goto T5655;} goto T5650; goto T5655; T5655:; (void)(( V1260 = STREF(object,(V1259),0), (type_of(V1260) == t_sfun ?(*((V1260)->sfn.sfn_self)): (fcall.argd=5,type_of(V1260)==t_vfun) ? (*((V1260)->sfn.sfn_self)): (fcall.fun=(V1260),fcalln))(STREF(object,(V1259),4),STREF(object,(V1259),8),(V1250),(V1251),(V1252)))); V1258= CMPcdr((V1258)); V1259= CMPcar((V1258)); goto T5654;} }} goto T5650; T5650:; vs_base=V1253;vs_top=V1254;} return; } } static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* TYPEP */ static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* ERROR */ static void LnkT293(){ call_or_link(VV[293],(void **)(void *)&Lnk293);} /* SLOT-UNBOUND-INTERNAL */ static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* STRUCTURE-SUBTYPE-P */ static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */ static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */ static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ static object LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)(void *)&LnkLI288,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* CCLOSURE-ENV-NTHCDR */ static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[265],(void **)(void *)&LnkLI265,4,first,ap);va_end(ap);return V1;} /* LOAD-PRECOMPILED-IIS-ENTRY */ static object LnkTLI241(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[241],(void **)(void *)&LnkLI241,4,first,ap);va_end(ap);return V1;} /* LOAD-PRECOMPILED-DFUN-CONSTRUCTOR */ static object LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,5,first,ap);va_end(ap);return V1;} /* LOAD-FUNCTION-GENERATOR */ #ifdef SYSTEM_SPECIAL_INIT SYSTEM_SPECIAL_INIT #endif