/[gcl]/gcl/pcl/pcl_precom2.c
ViewVC logotype

Diff of /gcl/pcl/pcl_precom2.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Tue Sep 23 21:48:34 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:18 2003 UTC
# Line 4289  T2006:; Line 4289  T2006:;
4289          goto T2014;          goto T2014;
4290  T2014:;  T2014:;
4291          V474= (long)(V473)+(2);          V474= (long)(V473)+(2);
4292            V475 = (V455);
4293          V473= (long)(V473)+(1);          V473= (long)(V473)+(1);
4294          if(!(((V459))==(((V455))->v.v_self[V473]))){          V476 = V473;
4295            if(!(((V459))==((V475)->v.v_self[V476]))){
4296          goto T2018;}          goto T2018;}
4297            V477 = (V455);
4298          V473= (long)(V473)+(1);          V473= (long)(V473)+(1);
4299          if(!(((V460))==(((V455))->v.v_self[V473]))){          V478 = V473;
4300            if(!(((V460))==((V477)->v.v_self[V478]))){
4301          goto T2018;}          goto T2018;}
4302          goto T2012;          goto T2012;
4303          goto T2018;          goto T2018;
# Line 4306  T2018:; Line 4310  T2018:;
4310  T2027:;  T2027:;
4311          if(!((V473)==(V467))){          if(!((V473)==(V467))){
4312          goto T2015;}          goto T2015;}
4313          {register object V475;          {register object V479;
4314          register object V476;          register object V480;
4315          V475= (V458);          V479= (V458);
4316          V476= CMPcar((V475));          V480= CMPcar((V479));
4317          goto T2037;          goto T2037;
4318  T2037:;  T2037:;
4319          if(!(((V475))==Cnil)){          if(!(((V479))==Cnil)){
4320          goto T2038;}          goto T2038;}
4321          goto T2033;          goto T2033;
4322          goto T2038;          goto T2038;
4323  T2038:;  T2038:;
         {register object V477;  
         V477= CMPcar((V476));  
         {register object V479;  
         V479= CMPcar((V477));  
         V477= CMPcdr((V477));  
         V478= (V479);}  
         if(!(((V459))==(V478))){  
         goto T2042;}  
4324          {register object V481;          {register object V481;
4325          V481= CMPcar((V477));          V481= CMPcar((V480));
4326          V477= CMPcdr((V477));          V482 = (V459);
4327          V480= (V481);}          {register object V484;
4328          if(!(((V460))==(V480))){          V484= CMPcar((V481));
4329            V481= CMPcdr((V481));
4330            V483= (V484);}
4331            if(!((V482)==(V483))){
4332            goto T2042;}
4333            V485 = (V460);
4334            {register object V487;
4335            V487= CMPcar((V481));
4336            V481= CMPcdr((V481));
4337            V486= (V487);}
4338            if(!((V485)==(V486))){
4339          goto T2042;}          goto T2042;}
4340          goto T2012;}          goto T2012;}
4341          goto T2042;          goto T2042;
4342  T2042:;  T2042:;
4343          V475= CMPcdr((V475));          V479= CMPcdr((V479));
4344          V476= CMPcar((V475));          V480= CMPcar((V479));
4345          goto T2037;}          goto T2037;}
4346          goto T2033;          goto T2033;
4347  T2033:;  T2033:;
# Line 4345  T2015:; Line 4351  T2015:;
4351          goto T2014;          goto T2014;
4352          goto T2012;          goto T2012;
4353  T2012:;  T2012:;
4354          {object V483;          V488 = V471;
4355          V483= ((V455))->v.v_self[0];          {object V490;
4356          if(type_of((V483))==t_fixnum){          V490= ((V455))->v.v_self[0];
4357            if(type_of((V490))==t_fixnum){
4358          goto T2066;}          goto T2066;}
4359          base[2]= VV[46];          base[2]= VV[46];
4360          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 4355  T2012:; Line 4362  T2012:;
4362          vs_top=sup;          vs_top=sup;
4363          goto T2066;          goto T2066;
4364  T2066:;  T2066:;
4365          V482= fix((V483));}          V489= fix((V490));}
4366          if((V471)==(V482)){          if((V488)==(V489)){
4367          goto T1987;}          goto T1987;}
4368          goto T1939;}}}          goto T1939;}}}
4369          goto T1987;          goto T1987;
# Line 4383  T1987:; Line 4390  T1987:;
4390  T2072:;  T2072:;
4391          if(!(type_of((base0[1]->c.c_car))==t_fixnum)){          if(!(type_of((base0[1]->c.c_car))==t_fixnum)){
4392          goto T2082;}          goto T2082;}
4393          {object V485;          {object V492;
4394          if(type_of(V452)==t_structure){          if(type_of(V452)==t_structure){
4395          goto T2088;}          goto T2088;}
4396          goto T2086;          goto T2086;
# Line 4391  T2072:; Line 4398  T2072:;
4398  T2088:;  T2088:;
4399          if(!(((V452)->str.str_def)==(VV[116]))){          if(!(((V452)->str.str_def)==(VV[116]))){
4400          goto T2086;}          goto T2086;}
4401          V485= STREF(object,(V452),4);          V492= STREF(object,(V452),4);
4402          goto T2084;          goto T2084;
4403          goto T2086;          goto T2086;
4404  T2086:;{object V487;  T2086:;{object V494;
4405          V487= (VV[30]->s.s_dbind);          V494= (VV[30]->s.s_dbind);
4406          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
4407          base[3]= (V452);          base[3]= (V452);
4408          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4409          (void) (*Lnk253)();          (void) (*Lnk253)();
4410          vs_top=sup;          vs_top=sup;
4411          V488= vs_base[0];          V495= vs_base[0];
4412          if(!((V487)==(CMPcar(V488)))){          if(!((V494)==(CMPcar(V495)))){
4413          goto T2091;}}          goto T2091;}}
4414          V485= CMPcar(((V452))->cc.cc_turbo[12]);          V492= CMPcar(((V452))->cc.cc_turbo[12]);
4415          goto T2084;          goto T2084;
4416          goto T2091;          goto T2091;
4417  T2091:;  T2091:;
4418          V485= Cnil;          V492= Cnil;
4419          goto T2084;          goto T2084;
4420  T2084:;  T2084:;
4421          if(((V485))==Cnil){          if(((V492))==Cnil){
4422          goto T2097;}          goto T2097;}
4423          base[2]= ((V485))->v.v_self[fix((base0[1]->c.c_car))]= (V452);          base[2]= ((V492))->v.v_self[fix((base0[1]->c.c_car))]= (V452);
4424          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4425          return;          return;
4426          goto T2097;          goto T2097;
# Line 4423  T2097:; Line 4430  T2097:;
4430          return;}          return;}
4431          goto T2082;          goto T2082;
4432  T2082:;  T2082:;
4433          {object V489;          {object V496;
4434          V489= (base0[1]->c.c_car);          V496= (base0[1]->c.c_car);
4435          base[2]= (V489);          base[2]= (V496);
4436          base[3]= VV[10];          base[3]= VV[10];
4437          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4438          (void) (*Lnk258)();          (void) (*Lnk258)();
4439          vs_top=sup;          vs_top=sup;
4440          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4441          goto T2100;}          goto T2100;}
4442          {object V490;          {object V497;
4443          object V491;          object V498;
4444          object V492;          object V499;
4445          V490= STREF(object,(base0[1]->c.c_car),0);          V497= STREF(object,(base0[1]->c.c_car),0);
4446          V491= list(2,(V452),(V453));          V498= list(2,(V452),(V453));
4447          V492= STREF(object,(base0[1]->c.c_car),4);          V499= STREF(object,(base0[1]->c.c_car),4);
4448          if(((V492))==Cnil){          if(((V499))==Cnil){
4449          goto T2108;}          goto T2108;}
4450          if((CMPcdr((V492)))!=Cnil){          if((CMPcdr((V499)))!=Cnil){
4451          goto T2108;}          goto T2108;}
4452          base[2]= (V491);          base[2]= (V498);
4453          base[3]= CMPcar((V492));          base[3]= CMPcar((V499));
4454          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4455          {object _funobj = (V490);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V497);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4456                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4457                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4458                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4459          return;          return;
4460          goto T2108;          goto T2108;
4461  T2108:;  T2108:;
4462          base[2]= (V490);          base[2]= (V497);
4463          base[3]= (V491);          base[3]= (V498);
4464          {object V493;          {object V500;
4465          V493= (V492);          V500= (V499);
4466           vs_top=base+4;           vs_top=base+4;
4467           while(V493!=Cnil)           while(V500!=Cnil)
4468           {vs_push((V493)->c.c_car);V493=(V493)->c.c_cdr;}           {vs_push((V500)->c.c_car);V500=(V500)->c.c_cdr;}
4469          vs_base=base+3;}          vs_base=base+3;}
4470          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4471                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4467  T2108:; Line 4474  T2108:;
4474          return;}          return;}
4475          goto T2100;          goto T2100;
4476  T2100:;  T2100:;
4477          base[2]= (V489);          base[2]= (V496);
4478          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4479          Lfunctionp();          Lfunctionp();
4480          vs_top=sup;          vs_top=sup;
# Line 4484  T2100:; Line 4491  T2100:;
4491          goto T2118;          goto T2118;
4492  T2118:;  T2118:;
4493          base[3]= VV[11];          base[3]= VV[11];
4494          base[4]= (V489);          base[4]= (V496);
4495          base[5]= VV[117];          base[5]= VV[117];
4496          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4497          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 4532  register object *base0; Line 4539  register object *base0;
4539  {       register object *base=vs_base;  {       register object *base=vs_base;
4540          register object *sup=base+VM104; VC104          register object *sup=base+VM104; VC104
4541          vs_check;          vs_check;
4542          {register object V494;          {register object V501;
         register object V495;  
         register object V496;  
         check_arg(3);  
         V494=(base[0]);  
         V495=(base[1]);  
         V496=(base[2]);  
         vs_top=sup;  
         {long V497;  
         object V498;  
         long V499;  
         long V500;  
         object V501;  
4543          register object V502;          register object V502;
4544          V497= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          register object V503;
4545          V498= STREF(object,(base0[2]->c.c_car),40);          check_arg(3);
4546          V499= (long)STREF(fixnum,(base0[2]->c.c_car),24);          V501=(base[0]);
4547          V500= (long)STREF(fixnum,(base0[2]->c.c_car),28);          V502=(base[1]);
4548          V501= STREF(object,(base0[2]->c.c_car),44);          V503=(base[2]);
4549          if(type_of(V495)==t_structure){          vs_top=sup;
4550            {long V504;
4551            object V505;
4552            long V506;
4553            long V507;
4554            object V508;
4555            register object V509;
4556            V504= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
4557            V505= STREF(object,(base0[2]->c.c_car),40);
4558            V506= (long)STREF(fixnum,(base0[2]->c.c_car),24);
4559            V507= (long)STREF(fixnum,(base0[2]->c.c_car),28);
4560            V508= STREF(object,(base0[2]->c.c_car),44);
4561            if(type_of(V502)==t_structure){
4562          goto T2141;}          goto T2141;}
4563          goto T2139;          goto T2139;
4564          goto T2141;          goto T2141;
4565  T2141:;  T2141:;
4566          if(!(((V495)->str.str_def)==(VV[111]))){          if(!(((V502)->str.str_def)==(VV[111]))){
4567          goto T2139;}          goto T2139;}
4568          V502= STREF(object,(V495),0);          V509= STREF(object,(V502),0);
4569          goto T2137;          goto T2137;
4570          goto T2139;          goto T2139;
4571  T2139:;{object V504;  T2139:;{object V511;
4572          V504= (VV[30]->s.s_dbind);          V511= (VV[30]->s.s_dbind);
4573          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
4574          base[4]= (V495);          base[4]= (V502);
4575          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4576          (void) (*Lnk253)();          (void) (*Lnk253)();
4577          vs_top=sup;          vs_top=sup;
4578          V505= vs_base[0];          V512= vs_base[0];
4579          if(!((V504)==(CMPcar(V505)))){          if(!((V511)==(CMPcar(V512)))){
4580          goto T2144;}}          goto T2144;}}
4581          V502= CMPcar(((V495))->cc.cc_turbo[13]);          V509= CMPcar(((V502))->cc.cc_turbo[13]);
4582          goto T2137;          goto T2137;
4583          goto T2144;          goto T2144;
4584  T2144:;  T2144:;
4585          if(!(type_of((V495))==t_structure)){          if(!(type_of((V502))==t_structure)){
4586          goto T2150;}          goto T2150;}
4587          V502= (*(LnkLI256))((V495));          V509= (*(LnkLI256))((V502));
4588          goto T2137;          goto T2137;
4589          goto T2150;          goto T2150;
4590  T2150:;  T2150:;
4591          if(!(type_of((V495))==t_symbol)){          if(!(type_of((V502))==t_symbol)){
4592          goto T2153;}          goto T2153;}
4593          if(((V495))==Cnil){          if(((V502))==Cnil){
4594          goto T2156;}          goto T2156;}
4595          V502= (VV[44]->s.s_dbind);          V509= (VV[44]->s.s_dbind);
4596          goto T2137;          goto T2137;
4597          goto T2156;          goto T2156;
4598  T2156:;  T2156:;
4599          V502= (VV[45]->s.s_dbind);          V509= (VV[45]->s.s_dbind);
4600          goto T2137;          goto T2137;
4601          goto T2153;          goto T2153;
4602  T2153:;  T2153:;
4603          V502= (*(LnkLI257))((V495));          V509= (*(LnkLI257))((V502));
4604          goto T2137;          goto T2137;
4605  T2137:;  T2137:;
4606          {long V506;          {long V513;
4607          register long V507;          register long V514;
4608          {long V508;          {long V515;
4609          V508= fix(((V502))->v.v_self[V497]);          V515= fix(((V509))->v.v_self[V504]);
4610          if(!((V508)==0)){          if(!((V515)==0)){
4611          goto T2161;}          goto T2161;}
4612          goto T2131;          goto T2131;
4613          goto T2161;          goto T2161;
4614  T2161:;  T2161:;
4615          V506= (long)((V499) & (V508));}          V513= (long)((V506) & (V515));}
4616          V507= V506;          V514= V513;
4617          goto T2166;          goto T2166;
4618  T2166:;  T2166:;
4619          if(!(((V502))==(((V498))->v.v_self[V507]))){          if(!(((V509))==(((V505))->v.v_self[V514]))){
4620          goto T2168;}          goto T2168;}
4621          goto T2158;          goto T2158;
4622          goto T2168;          goto T2168;
4623  T2168:;  T2168:;
4624          V507= (long)(V507)+(1);          V514= (long)(V514)+(1);
4625          if(!((V507)==(V500))){          if(!((V514)==(V507))){
4626          goto T2173;}          goto T2173;}
4627          V507= 0;          V514= 0;
4628          goto T2173;          goto T2173;
4629  T2173:;  T2173:;
4630          if(!((V507)==(V506))){          if(!((V514)==(V513))){
4631          goto T2167;}          goto T2167;}
4632          {register object V509;          {register object V516;
4633          register object V510;          register object V517;
4634          V509= (V501);          V516= (V508);
4635          V510= CMPcar((V509));          V517= CMPcar((V516));
4636          goto T2183;          goto T2183;
4637  T2183:;  T2183:;
4638          if(!(((V509))==Cnil)){          if(!(((V516))==Cnil)){
4639          goto T2184;}          goto T2184;}
4640          goto T2179;          goto T2179;
4641          goto T2184;          goto T2184;
4642  T2184:;  T2184:;
4643          if(!((CMPcar((V510)))==((V502)))){          if(!((CMPcar((V517)))==((V509)))){
4644          goto T2188;}          goto T2188;}
4645          goto T2158;          goto T2158;
4646          goto T2188;          goto T2188;
4647  T2188:;  T2188:;
4648          V509= CMPcdr((V509));          V516= CMPcdr((V516));
4649          V510= CMPcar((V509));          V517= CMPcar((V516));
4650          goto T2183;}          goto T2183;}
4651          goto T2179;          goto T2179;
4652  T2179:;  T2179:;
# Line 4659  T2158:; Line 4666  T2158:;
4666          base[3]= STREF(object,(base0[1]->c.c_car),0);          base[3]= STREF(object,(base0[1]->c.c_car),0);
4667          base[4]= STREF(object,(base0[1]->c.c_car),4);          base[4]= STREF(object,(base0[1]->c.c_car),4);
4668          base[5]= STREF(object,(base0[1]->c.c_car),8);          base[5]= STREF(object,(base0[1]->c.c_car),8);
4669          base[6]= (V494);          base[6]= (V501);
4670          base[7]= (V495);          base[7]= (V502);
4671          base[8]= (V496);          base[8]= (V503);
4672          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
4673          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4674                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4670  T2158:; Line 4677  T2158:;
4677          return;          return;
4678          goto T2199;          goto T2199;
4679  T2199:;  T2199:;
4680          {object V511;          {object V518;
4681          V511= (base0[1]->c.c_car);          V518= (base0[1]->c.c_car);
4682          base[3]= (V511);          base[3]= (V518);
4683          base[4]= VV[10];          base[4]= VV[10];
4684          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4685          (void) (*Lnk258)();          (void) (*Lnk258)();
4686          vs_top=sup;          vs_top=sup;
4687          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4688          goto T2210;}          goto T2210;}
4689          {object V512;          {object V519;
4690          object V513;          object V520;
4691          object V514;          object V521;
4692          V512= STREF(object,(base0[1]->c.c_car),0);          V519= STREF(object,(base0[1]->c.c_car),0);
4693          V513= list(3,(V494),(V495),(V496));          V520= list(3,(V501),(V502),(V503));
4694          V514= STREF(object,(base0[1]->c.c_car),4);          V521= STREF(object,(base0[1]->c.c_car),4);
4695          if(((V514))==Cnil){          if(((V521))==Cnil){
4696          goto T2218;}          goto T2218;}
4697          if((CMPcdr((V514)))!=Cnil){          if((CMPcdr((V521)))!=Cnil){
4698          goto T2218;}          goto T2218;}
4699          base[3]= (V513);          base[3]= (V520);
4700          base[4]= CMPcar((V514));          base[4]= CMPcar((V521));
4701          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4702          {object _funobj = (V512);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V519);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4703                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4704                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4705                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4706          return;          return;
4707          goto T2218;          goto T2218;
4708  T2218:;  T2218:;
4709          base[3]= (V512);          base[3]= (V519);
4710          base[4]= (V513);          base[4]= (V520);
4711          {object V515;          {object V522;
4712          V515= (V514);          V522= (V521);
4713           vs_top=base+5;           vs_top=base+5;
4714           while(V515!=Cnil)           while(V522!=Cnil)
4715           {vs_push((V515)->c.c_car);V515=(V515)->c.c_cdr;}           {vs_push((V522)->c.c_car);V522=(V522)->c.c_cdr;}
4716          vs_base=base+4;}          vs_base=base+4;}
4717          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4718                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4714  T2218:; Line 4721  T2218:;
4721          return;}          return;}
4722          goto T2210;          goto T2210;
4723  T2210:;  T2210:;
4724          base[3]= (V511);          base[3]= (V518);
4725          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4726          Lfunctionp();          Lfunctionp();
4727          vs_top=sup;          vs_top=sup;
4728          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4729          goto T2228;}          goto T2228;}
4730          base[3]= (V494);          base[3]= (V501);
4731          base[4]= (V495);          base[4]= (V502);
4732          base[5]= (V496);          base[5]= (V503);
4733          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4734          {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4735                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4732  T2210:; Line 4739  T2210:;
4739          goto T2228;          goto T2228;
4740  T2228:;  T2228:;
4741          base[4]= VV[11];          base[4]= VV[11];
4742          base[5]= (V511);          base[5]= (V518);
4743          base[6]= VV[112];          base[6]= VV[112];
4744          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4745          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 4743  T2228:; Line 4750  T2228:;
4750          return;}}          return;}}
4751          goto T2131;          goto T2131;
4752  T2131:;  T2131:;
4753          base[3]= (V494);          base[3]= (V501);
4754          base[4]= (V495);          base[4]= (V502);
4755          base[5]= (V496);          base[5]= (V503);
4756          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4757          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4758                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4780  register object *base0; Line 4787  register object *base0;
4787  {       register object *base=vs_base;  {       register object *base=vs_base;
4788          register object *sup=base+VM106; VC106          register object *sup=base+VM106; VC106
4789          vs_check;          vs_check;
4790          {object V516;          {object V523;
4791          check_arg(1);          check_arg(1);
4792          V516=(base[0]);          V523=(base[0]);
4793          vs_top=sup;          vs_top=sup;
4794          {register object V517;          {register object V524;
4795          V517= Cnil;          V524= Cnil;
4796          {long V518;          {long V525;
4797          register object V519;          register object V526;
4798          long V520;          long V527;
4799          long V521;          long V528;
4800          object V522;          object V529;
4801          register object V523;          register object V530;
4802          V518= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V525= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
4803          V519= STREF(object,(base0[1]->c.c_car),40);          V526= STREF(object,(base0[1]->c.c_car),40);
4804          V520= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V527= (long)STREF(fixnum,(base0[1]->c.c_car),24);
4805          V521= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V528= (long)STREF(fixnum,(base0[1]->c.c_car),28);
4806          V522= STREF(object,(base0[1]->c.c_car),44);          V529= STREF(object,(base0[1]->c.c_car),44);
4807          if(type_of(V516)==t_structure){          if(type_of(V523)==t_structure){
4808          goto T2253;}          goto T2253;}
4809          goto T2251;          goto T2251;
4810          goto T2253;          goto T2253;
4811  T2253:;  T2253:;
4812          if(!(((V516)->str.str_def)==(VV[108]))){          if(!(((V523)->str.str_def)==(VV[108]))){
4813          goto T2251;}          goto T2251;}
4814          V523= STREF(object,(V516),0);          V530= STREF(object,(V523),0);
4815          goto T2249;          goto T2249;
4816          goto T2251;          goto T2251;
4817  T2251:;{object V525;  T2251:;{object V532;
4818          V525= (VV[30]->s.s_dbind);          V532= (VV[30]->s.s_dbind);
4819          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
4820          base[2]= (V516);          base[2]= (V523);
4821          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4822          (void) (*Lnk253)();          (void) (*Lnk253)();
4823          vs_top=sup;          vs_top=sup;
4824          V526= vs_base[0];          V533= vs_base[0];
4825          if(!((V525)==(CMPcar(V526)))){          if(!((V532)==(CMPcar(V533)))){
4826          goto T2256;}}          goto T2256;}}
4827          V523= CMPcar(((V516))->cc.cc_turbo[13]);          V530= CMPcar(((V523))->cc.cc_turbo[13]);
4828          goto T2249;          goto T2249;
4829          goto T2256;          goto T2256;
4830  T2256:;  T2256:;
4831          if(!(type_of((V516))==t_structure)){          if(!(type_of((V523))==t_structure)){
4832          goto T2262;}          goto T2262;}
4833          V523= (*(LnkLI256))((V516));          V530= (*(LnkLI256))((V523));
4834          goto T2249;          goto T2249;
4835          goto T2262;          goto T2262;
4836  T2262:;  T2262:;
4837          if(!(type_of((V516))==t_symbol)){          if(!(type_of((V523))==t_symbol)){
4838          goto T2265;}          goto T2265;}
4839          if(((V516))==Cnil){          if(((V523))==Cnil){
4840          goto T2268;}          goto T2268;}
4841          V523= (VV[44]->s.s_dbind);          V530= (VV[44]->s.s_dbind);
4842          goto T2249;          goto T2249;
4843          goto T2268;          goto T2268;
4844  T2268:;  T2268:;
4845          V523= (VV[45]->s.s_dbind);          V530= (VV[45]->s.s_dbind);
4846          goto T2249;          goto T2249;
4847          goto T2265;          goto T2265;
4848  T2265:;  T2265:;
4849          V523= (*(LnkLI257))((V516));          V530= (*(LnkLI257))((V523));
4850          goto T2249;          goto T2249;
4851  T2249:;  T2249:;
4852          {long V527;          {long V534;
4853          long V528;          long V535;
4854          {long V529;          {long V536;
4855          V529= fix(((V523))->v.v_self[V518]);          V536= fix(((V530))->v.v_self[V525]);
4856          if(!((V529)==0)){          if(!((V536)==0)){
4857          goto T2273;}          goto T2273;}
4858          goto T2243;          goto T2243;
4859          goto T2273;          goto T2273;
4860  T2273:;  T2273:;
4861          V527= (long)((V520) & (V529));}          V534= (long)((V527) & (V536));}
4862          {object V530;          {object V537;
4863          V530= ((V519))->v.v_self[0];          V537= ((V526))->v.v_self[0];
4864          if(type_of((V530))==t_fixnum){          if(type_of((V537))==t_fixnum){
4865          goto T2278;}          goto T2278;}
4866          base[1]= VV[46];          base[1]= VV[46];
4867          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 4862  T2273:; Line 4869  T2273:;
4869          vs_top=sup;          vs_top=sup;
4870          goto T2278;          goto T2278;
4871  T2278:;  T2278:;
4872          V528= fix((V530));}          V535= fix((V537));}
4873          {register long V531;          {register long V538;
4874          V531= V527;          V538= V534;
4875          goto T2285;          goto T2285;
4876  T2285:;  T2285:;
4877          if(!(((V523))==(((V519))->v.v_self[V531]))){          if(!(((V530))==(((V526))->v.v_self[V538]))){
4878          goto T2287;}          goto T2287;}
4879          V517= ((V519))->v.v_self[(long)(V531)+1];          V524= ((V526))->v.v_self[(long)(V538)+1];
4880          goto T2283;          goto T2283;
4881          goto T2287;          goto T2287;
4882  T2287:;  T2287:;
4883          V531= (long)(V531)+(2);          V538= (long)(V538)+(2);
4884          if(!((V531)==(V521))){          if(!((V538)==(V528))){
4885          goto T2294;}          goto T2294;}
4886          V531= 0;          V538= 0;
4887          goto T2294;          goto T2294;
4888  T2294:;  T2294:;
4889          if(!((V531)==(V527))){          if(!((V538)==(V534))){
4890          goto T2286;}          goto T2286;}
4891          {register object V532;          {register object V539;
4892          register object V533;          register object V540;
4893          V532= (V522);          V539= (V529);
4894          V533= CMPcar((V532));          V540= CMPcar((V539));
4895          goto T2304;          goto T2304;
4896  T2304:;  T2304:;
4897          if(!(((V532))==Cnil)){          if(!(((V539))==Cnil)){
4898          goto T2305;}          goto T2305;}
4899          goto T2300;          goto T2300;
4900          goto T2305;          goto T2305;
4901  T2305:;  T2305:;
4902          if(!((CMPcar((V533)))==((V523)))){          if(!((CMPcar((V540)))==((V530)))){
4903          goto T2309;}          goto T2309;}
4904          V517= CMPcdr((V533));          V524= CMPcdr((V540));
4905          goto T2283;          goto T2283;
4906          goto T2309;          goto T2309;
4907  T2309:;  T2309:;
4908          V532= CMPcdr((V532));          V539= CMPcdr((V539));
4909          V533= CMPcar((V532));          V540= CMPcar((V539));
4910          goto T2304;}          goto T2304;}
4911          goto T2300;          goto T2300;
4912  T2300:;  T2300:;
# Line 4909  T2286:; Line 4916  T2286:;
4916          goto T2285;          goto T2285;
4917          goto T2283;          goto T2283;
4918  T2283:;  T2283:;
4919          {object V535;          V541 = V535;
4920          V535= ((V519))->v.v_self[0];          {object V543;
4921          if(type_of((V535))==t_fixnum){          V543= ((V526))->v.v_self[0];
4922            if(type_of((V543))==t_fixnum){
4923          goto T2324;}          goto T2324;}
4924          base[1]= VV[46];          base[1]= VV[46];
4925          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 4919  T2283:; Line 4927  T2283:;
4927          vs_top=sup;          vs_top=sup;
4928          goto T2324;          goto T2324;
4929  T2324:;  T2324:;
4930          V534= fix((V535));}          V542= fix((V543));}
4931          if((V528)==(V534)){          if((V541)==(V542)){
4932          goto T2270;}          goto T2270;}
4933          goto T2243;}}          goto T2243;}}
4934          goto T2270;          goto T2270;
4935  T2270:;  T2270:;
4936          base[1]= (V517);          base[1]= (V524);
4937          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4938          return;}          return;}
4939          goto T2243;          goto T2243;
4940  T2243:;  T2243:;
4941          base[1]= (V516);          base[1]= (V523);
4942          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4943          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4944                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4965  register object *base0; Line 4973  register object *base0;
4973  {       register object *base=vs_base;  {       register object *base=vs_base;
4974          register object *sup=base+VM108; VC108          register object *sup=base+VM108; VC108
4975          vs_check;          vs_check;
4976          {object V536;          {object V544;
4977          object V537;          object V545;
4978          check_arg(2);          check_arg(2);
4979          V536=(base[0]);          V544=(base[0]);
4980          V537=(base[1]);          V545=(base[1]);
4981          vs_top=sup;          vs_top=sup;
4982          {register object V538;          {register object V546;
4983          V538= Cnil;          V546= Cnil;
4984          {long V539;          {long V547;
4985          register object V540;          register object V548;
4986          long V541;          long V549;
4987          long V542;          long V550;
4988          object V543;          object V551;
4989          register object V544;          register object V552;
4990          V539= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V547= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
4991          V540= STREF(object,(base0[1]->c.c_car),40);          V548= STREF(object,(base0[1]->c.c_car),40);
4992          V541= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V549= (long)STREF(fixnum,(base0[1]->c.c_car),24);
4993          V542= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V550= (long)STREF(fixnum,(base0[1]->c.c_car),28);
4994          V543= STREF(object,(base0[1]->c.c_car),44);          V551= STREF(object,(base0[1]->c.c_car),44);
4995          if(type_of(V536)==t_structure){          if(type_of(V544)==t_structure){
4996          goto T2341;}          goto T2341;}
4997          goto T2339;          goto T2339;
4998          goto T2341;          goto T2341;
4999  T2341:;  T2341:;
5000          if(!(((V536)->str.str_def)==(VV[106]))){          if(!(((V544)->str.str_def)==(VV[106]))){
5001          goto T2339;}          goto T2339;}
5002          V544= STREF(object,(V536),0);          V552= STREF(object,(V544),0);
5003          goto T2337;          goto T2337;
5004          goto T2339;          goto T2339;
5005  T2339:;{object V546;  T2339:;{object V554;
5006          V546= (VV[30]->s.s_dbind);          V554= (VV[30]->s.s_dbind);
5007          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
5008          base[3]= (V536);          base[3]= (V544);
5009          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5010          (void) (*Lnk253)();          (void) (*Lnk253)();
5011          vs_top=sup;          vs_top=sup;
5012          V547= vs_base[0];          V555= vs_base[0];
5013          if(!((V546)==(CMPcar(V547)))){          if(!((V554)==(CMPcar(V555)))){
5014          goto T2344;}}          goto T2344;}}
5015          V544= CMPcar(((V536))->cc.cc_turbo[13]);          V552= CMPcar(((V544))->cc.cc_turbo[13]);
5016          goto T2337;          goto T2337;
5017          goto T2344;          goto T2344;
5018  T2344:;  T2344:;
5019          if(!(type_of((V536))==t_structure)){          if(!(type_of((V544))==t_structure)){
5020          goto T2350;}          goto T2350;}
5021          V544= (*(LnkLI256))((V536));          V552= (*(LnkLI256))((V544));
5022          goto T2337;          goto T2337;
5023          goto T2350;          goto T2350;
5024  T2350:;  T2350:;
5025          if(!(type_of((V536))==t_symbol)){          if(!(type_of((V544))==t_symbol)){
5026          goto T2353;}          goto T2353;}
5027          if(((V536))==Cnil){          if(((V544))==Cnil){
5028          goto T2356;}          goto T2356;}
5029          V544= (VV[44]->s.s_dbind);          V552= (VV[44]->s.s_dbind);
5030          goto T2337;          goto T2337;
5031          goto T2356;          goto T2356;
5032  T2356:;  T2356:;
5033          V544= (VV[45]->s.s_dbind);          V552= (VV[45]->s.s_dbind);
5034          goto T2337;          goto T2337;
5035          goto T2353;          goto T2353;
5036  T2353:;  T2353:;
5037          V544= (*(LnkLI257))((V536));          V552= (*(LnkLI257))((V544));
5038          goto T2337;          goto T2337;
5039  T2337:;  T2337:;
5040          {long V548;          {long V556;
5041          long V549;          long V557;
5042          {long V550;          {long V558;
5043          V550= fix(((V544))->v.v_self[V539]);          V558= fix(((V552))->v.v_self[V547]);
5044          if(!((V550)==0)){          if(!((V558)==0)){
5045          goto T2361;}          goto T2361;}
5046          goto T2331;          goto T2331;
5047          goto T2361;          goto T2361;
5048  T2361:;  T2361:;
5049          V548= (long)((V541) & (V550));}          V556= (long)((V549) & (V558));}
5050          {object V551;          {object V559;
5051          V551= ((V540))->v.v_self[0];          V559= ((V548))->v.v_self[0];
5052          if(type_of((V551))==t_fixnum){          if(type_of((V559))==t_fixnum){
5053          goto T2366;}          goto T2366;}
5054          base[2]= VV[46];          base[2]= VV[46];
5055          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 5049  T2361:; Line 5057  T2361:;
5057          vs_top=sup;          vs_top=sup;
5058          goto T2366;          goto T2366;
5059  T2366:;  T2366:;
5060          V549= fix((V551));}          V557= fix((V559));}
5061          {register long V552;          {register long V560;
5062          V552= V548;          V560= V556;
5063          goto T2373;          goto T2373;
5064  T2373:;  T2373:;
5065          if(!(((V544))==(((V540))->v.v_self[V552]))){          if(!(((V552))==(((V548))->v.v_self[V560]))){
5066          goto T2375;}          goto T2375;}
5067          V538= ((V540))->v.v_self[(long)(V552)+1];          V546= ((V548))->v.v_self[(long)(V560)+1];
5068          goto T2371;          goto T2371;
5069          goto T2375;          goto T2375;
5070  T2375:;  T2375:;
5071          V552= (long)(V552)+(2);          V560= (long)(V560)+(2);
5072          if(!((V552)==(V542))){          if(!((V560)==(V550))){
5073          goto T2382;}          goto T2382;}
5074          V552= 0;          V560= 0;
5075          goto T2382;          goto T2382;
5076  T2382:;  T2382:;
5077          if(!((V552)==(V548))){          if(!((V560)==(V556))){
5078          goto T2374;}          goto T2374;}
5079          {register object V553;          {register object V561;
5080          register object V554;          register object V562;
5081          V553= (V543);          V561= (V551);
5082          V554= CMPcar((V553));          V562= CMPcar((V561));
5083          goto T2392;          goto T2392;
5084  T2392:;  T2392:;
5085          if(!(((V553))==Cnil)){          if(!(((V561))==Cnil)){
5086          goto T2393;}          goto T2393;}
5087          goto T2388;          goto T2388;
5088          goto T2393;          goto T2393;
5089  T2393:;  T2393:;
5090          if(!((CMPcar((V554)))==((V544)))){          if(!((CMPcar((V562)))==((V552)))){
5091          goto T2397;}          goto T2397;}
5092          V538= CMPcdr((V554));          V546= CMPcdr((V562));
5093          goto T2371;          goto T2371;
5094          goto T2397;          goto T2397;
5095  T2397:;  T2397:;
5096          V553= CMPcdr((V553));          V561= CMPcdr((V561));
5097          V554= CMPcar((V553));          V562= CMPcar((V561));
5098          goto T2392;}          goto T2392;}
5099          goto T2388;          goto T2388;
5100  T2388:;  T2388:;
# Line 5096  T2374:; Line 5104  T2374:;
5104          goto T2373;          goto T2373;
5105          goto T2371;          goto T2371;
5106  T2371:;  T2371:;
5107          {object V556;          V563 = V557;
5108          V556= ((V540))->v.v_self[0];          {object V565;
5109          if(type_of((V556))==t_fixnum){          V565= ((V548))->v.v_self[0];
5110            if(type_of((V565))==t_fixnum){
5111          goto T2412;}          goto T2412;}
5112          base[2]= VV[46];          base[2]= VV[46];
5113          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 5106  T2371:; Line 5115  T2371:;
5115          vs_top=sup;          vs_top=sup;
5116          goto T2412;          goto T2412;
5117  T2412:;  T2412:;
5118          V555= fix((V556));}          V564= fix((V565));}
5119          if((V549)==(V555)){          if((V563)==(V564)){
5120          goto T2358;}          goto T2358;}
5121          goto T2331;}}          goto T2331;}}
5122          goto T2358;          goto T2358;
5123  T2358:;  T2358:;
5124          base[2]= (V538);          base[2]= (V546);
5125          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5126          return;}          return;}
5127          goto T2331;          goto T2331;
5128  T2331:;  T2331:;
5129          base[2]= (V536);          base[2]= (V544);
5130          base[3]= (V537);          base[3]= (V545);
5131          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5132          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5133                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5153  register object *base0; Line 5162  register object *base0;
5162  {       register object *base=vs_base;  {       register object *base=vs_base;
5163          register object *sup=base+VM110; VC110          register object *sup=base+VM110; VC110
5164          vs_check;          vs_check;
5165          {object V557;          {object V566;
5166          object V558;          object V567;
5167          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
5168          V557=(base[0]);          V566=(base[0]);
5169          vs_base=vs_base+1;          vs_base=vs_base+1;
5170          vs_top[0]=Cnil;          vs_top[0]=Cnil;
5171          {object *p=vs_top;          {object *p=vs_top;
5172           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
5173          V558=(base[1]);          V567=(base[1]);
5174          vs_top=sup;          vs_top=sup;
5175          {register object V559;          {register object V568;
5176          V559= Cnil;          V568= Cnil;
5177          {long V560;          {long V569;
5178          register object V561;          register object V570;
5179          long V562;          long V571;
5180          long V563;          long V572;
5181          object V564;          object V573;
5182          register object V565;          register object V574;
5183          V560= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V569= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
5184          V561= STREF(object,(base0[1]->c.c_car),40);          V570= STREF(object,(base0[1]->c.c_car),40);
5185          V562= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V571= (long)STREF(fixnum,(base0[1]->c.c_car),24);
5186          V563= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V572= (long)STREF(fixnum,(base0[1]->c.c_car),28);
5187          V564= STREF(object,(base0[1]->c.c_car),44);          V573= STREF(object,(base0[1]->c.c_car),44);
5188          if(type_of(V557)==t_structure){          if(type_of(V566)==t_structure){
5189          goto T2430;}          goto T2430;}
5190          goto T2428;          goto T2428;
5191          goto T2430;          goto T2430;
5192  T2430:;  T2430:;
5193          if(!(((V557)->str.str_def)==(VV[102]))){          if(!(((V566)->str.str_def)==(VV[102]))){
5194          goto T2428;}          goto T2428;}
5195          V565= STREF(object,(V557),0);          V574= STREF(object,(V566),0);
5196          goto T2426;          goto T2426;
5197          goto T2428;          goto T2428;
5198  T2428:;{object V567;  T2428:;{object V576;
5199          V567= (VV[30]->s.s_dbind);          V576= (VV[30]->s.s_dbind);
5200          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
5201          base[3]= (V557);          base[3]= (V566);
5202          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5203          (void) (*Lnk253)();          (void) (*Lnk253)();
5204          vs_top=sup;          vs_top=sup;
5205          V568= vs_base[0];          V577= vs_base[0];
5206          if(!((V567)==(CMPcar(V568)))){          if(!((V576)==(CMPcar(V577)))){
5207          goto T2433;}}          goto T2433;}}
5208          V565= CMPcar(((V557))->cc.cc_turbo[13]);          V574= CMPcar(((V566))->cc.cc_turbo[13]);
5209          goto T2426;          goto T2426;
5210          goto T2433;          goto T2433;
5211  T2433:;  T2433:;
5212          if(!(type_of((V557))==t_structure)){          if(!(type_of((V566))==t_structure)){
5213          goto T2439;}          goto T2439;}
5214          V565= (*(LnkLI256))((V557));          V574= (*(LnkLI256))((V566));
5215          goto T2426;          goto T2426;
5216          goto T2439;          goto T2439;
5217  T2439:;  T2439:;
5218          if(!(type_of((V557))==t_symbol)){          if(!(type_of((V566))==t_symbol)){
5219          goto T2442;}          goto T2442;}
5220          if(((V557))==Cnil){          if(((V566))==Cnil){
5221          goto T2445;}          goto T2445;}
5222          V565= (VV[44]->s.s_dbind);          V574= (VV[44]->s.s_dbind);
5223          goto T2426;          goto T2426;
5224          goto T2445;          goto T2445;
5225  T2445:;  T2445:;
5226          V565= (VV[45]->s.s_dbind);          V574= (VV[45]->s.s_dbind);
5227          goto T2426;          goto T2426;
5228          goto T2442;          goto T2442;
5229  T2442:;  T2442:;
5230          V565= (*(LnkLI257))((V557));          V574= (*(LnkLI257))((V566));
5231          goto T2426;          goto T2426;
5232  T2426:;  T2426:;
5233          {long V569;          {long V578;
5234          long V570;          long V579;
5235          {long V571;          {long V580;
5236          V571= fix(((V565))->v.v_self[V560]);          V580= fix(((V574))->v.v_self[V569]);
5237          if(!((V571)==0)){          if(!((V580)==0)){
5238          goto T2450;}          goto T2450;}
5239          goto T2420;          goto T2420;
5240          goto T2450;          goto T2450;
5241  T2450:;  T2450:;
5242          V569= (long)((V562) & (V571));}          V578= (long)((V571) & (V580));}
5243          {object V572;          {object V581;
5244          V572= ((V561))->v.v_self[0];          V581= ((V570))->v.v_self[0];
5245          if(type_of((V572))==t_fixnum){          if(type_of((V581))==t_fixnum){
5246          goto T2455;}          goto T2455;}
5247          base[2]= VV[46];          base[2]= VV[46];
5248          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 5241  T2450:; Line 5250  T2450:;
5250          vs_top=sup;          vs_top=sup;
5251          goto T2455;          goto T2455;
5252  T2455:;  T2455:;
5253          V570= fix((V572));}          V579= fix((V581));}
5254          {register long V573;          {register long V582;
5255          V573= V569;          V582= V578;
5256          goto T2462;          goto T2462;
5257  T2462:;  T2462:;
5258          if(!(((V565))==(((V561))->v.v_self[V573]))){          if(!(((V574))==(((V570))->v.v_self[V582]))){
5259          goto T2464;}          goto T2464;}
5260          V559= ((V561))->v.v_self[(long)(V573)+1];          V568= ((V570))->v.v_self[(long)(V582)+1];
5261          goto T2460;          goto T2460;
5262          goto T2464;          goto T2464;
5263  T2464:;  T2464:;
5264          V573= (long)(V573)+(2);          V582= (long)(V582)+(2);
5265          if(!((V573)==(V563))){          if(!((V582)==(V572))){
5266          goto T2471;}          goto T2471;}
5267          V573= 0;          V582= 0;
5268          goto T2471;          goto T2471;
5269  T2471:;  T2471:;
5270          if(!((V573)==(V569))){          if(!((V582)==(V578))){
5271          goto T2463;}          goto T2463;}
5272          {register object V574;          {register object V583;
5273          register object V575;          register object V584;
5274          V574= (V564);          V583= (V573);
5275          V575= CMPcar((V574));          V584= CMPcar((V583));
5276          goto T2481;          goto T2481;
5277  T2481:;  T2481:;
5278          if(!(((V574))==Cnil)){          if(!(((V583))==Cnil)){
5279          goto T2482;}          goto T2482;}
5280          goto T2477;          goto T2477;
5281          goto T2482;          goto T2482;
5282  T2482:;  T2482:;
5283          if(!((CMPcar((V575)))==((V565)))){          if(!((CMPcar((V584)))==((V574)))){
5284          goto T2486;}          goto T2486;}
5285          V559= CMPcdr((V575));          V568= CMPcdr((V584));
5286          goto T2460;          goto T2460;
5287          goto T2486;          goto T2486;
5288  T2486:;  T2486:;
5289          V574= CMPcdr((V574));          V583= CMPcdr((V583));
5290          V575= CMPcar((V574));          V584= CMPcar((V583));
5291          goto T2481;}          goto T2481;}
5292          goto T2477;          goto T2477;
5293  T2477:;  T2477:;
# Line 5288  T2463:; Line 5297  T2463:;
5297          goto T2462;          goto T2462;
5298          goto T2460;          goto T2460;
5299  T2460:;  T2460:;
5300          {object V577;          V585 = V579;
5301          V577= ((V561))->v.v_self[0];          {object V587;
5302          if(type_of((V577))==t_fixnum){          V587= ((V570))->v.v_self[0];
5303            if(type_of((V587))==t_fixnum){
5304          goto T2501;}          goto T2501;}
5305          base[2]= VV[46];          base[2]= VV[46];
5306          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 5298  T2460:; Line 5308  T2460:;
5308          vs_top=sup;          vs_top=sup;
5309          goto T2501;          goto T2501;
5310  T2501:;  T2501:;
5311          V576= fix((V577));}          V586= fix((V587));}
5312          if((V570)==(V576)){          if((V585)==(V586)){
5313          goto T2447;}          goto T2447;}
5314          goto T2420;}}          goto T2420;}}
5315          goto T2447;          goto T2447;
5316  T2447:;  T2447:;
5317          base[2]= (V559);          base[2]= (V568);
5318          base[3]= VV[2];          base[3]= VV[2];
5319          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5320          (void) (*Lnk258)();          (void) (*Lnk258)();
5321          vs_top=sup;          vs_top=sup;
5322          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5323          goto T2507;}          goto T2507;}
5324          base[2]= STREF(object,(V559),0);          base[2]= STREF(object,(V568),0);
5325          base[3]= STREF(object,(V559),4);          base[3]= STREF(object,(V568),4);
5326          base[4]= STREF(object,(V559),8);          base[4]= STREF(object,(V568),8);
5327          base[5]= (V557);          base[5]= (V566);
5328          base[6]= (V558);          base[6]= (V567);
5329          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
5330          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5331                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5324  T2447:; Line 5334  T2447:;
5334          return;          return;
5335          goto T2507;          goto T2507;
5336  T2507:;  T2507:;
5337          base[2]= V559;          base[2]= V568;
5338          base[3]= VV[10];          base[3]= VV[10];
5339          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5340          (void) (*Lnk258)();          (void) (*Lnk258)();
5341          vs_top=sup;          vs_top=sup;
5342          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5343          goto T2517;}          goto T2517;}
5344          {object V579;          {object V589;
5345          object V580;          object V590;
5346          object V581;          object V591;
5347          V579= STREF(object,(V559),0);          V589= STREF(object,(V568),0);
5348          V580= make_cons((V557),(V558));          V590= make_cons((V566),(V567));
5349          V581= STREF(object,(V559),4);          V591= STREF(object,(V568),4);
5350          if(((V581))==Cnil){          if(((V591))==Cnil){
5351          goto T2525;}          goto T2525;}
5352          if((CMPcdr((V581)))!=Cnil){          if((CMPcdr((V591)))!=Cnil){
5353          goto T2525;}          goto T2525;}
5354          base[2]= (V580);          base[2]= (V590);
5355          base[3]= CMPcar((V581));          base[3]= CMPcar((V591));
5356          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5357          {object _funobj = (V579);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V589);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5358                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5359                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5360                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5361          return;          return;
5362          goto T2525;          goto T2525;
5363  T2525:;  T2525:;
5364          base[2]= (V579);          base[2]= (V589);
5365          base[3]= (V580);          base[3]= (V590);
5366          {object V582;          {object V592;
5367          V582= (V581);          V592= (V591);
5368           vs_top=base+4;           vs_top=base+4;
5369           while(V582!=Cnil)           while(V592!=Cnil)
5370           {vs_push((V582)->c.c_car);V582=(V582)->c.c_cdr;}           {vs_push((V592)->c.c_car);V592=(V592)->c.c_cdr;}
5371          vs_base=base+3;}          vs_base=base+3;}
5372          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5373                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5366  T2525:; Line 5376  T2525:;
5376          return;}          return;}
5377          goto T2517;          goto T2517;
5378  T2517:;  T2517:;
5379          base[2]= V559;          base[2]= V568;
5380          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5381          Lfunctionp();          Lfunctionp();
5382          vs_top=sup;          vs_top=sup;
5383          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5384          goto T2535;}          goto T2535;}
5385          base[2]= (V559);          base[2]= (V568);
5386          base[3]= (V557);          base[3]= (V566);
5387          {object V583;          {object V593;
5388          V583= (V558);          V593= (V567);
5389           vs_top=base+4;           vs_top=base+4;
5390           while(V583!=Cnil)           while(V593!=Cnil)
5391           {vs_push((V583)->c.c_car);V583=(V583)->c.c_cdr;}           {vs_push((V593)->c.c_car);V593=(V593)->c.c_cdr;}
5392          vs_base=base+3;}          vs_base=base+3;}
5393          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5394                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5388  T2517:; Line 5398  T2517:;
5398          goto T2535;          goto T2535;
5399  T2535:;  T2535:;
5400          base[3]= VV[11];          base[3]= VV[11];
5401          base[4]= V559;          base[4]= V568;
5402          base[5]= VV[103];          base[5]= VV[103];
5403          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
5404          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 5400  T2535:; Line 5410  T2535:;
5410          goto T2420;          goto T2420;
5411  T2420:;  T2420:;
5412          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
5413          base[3]= (V557);          base[3]= (V566);
5414          {object V584;          {object V594;
5415          V584= (V558);          V594= (V567);
5416           vs_top=base+4;           vs_top=base+4;
5417           while(V584!=Cnil)           while(V594!=Cnil)
5418           {vs_push((V584)->c.c_car);V584=(V584)->c.c_cdr;}           {vs_push((V594)->c.c_car);V594=(V594)->c.c_cdr;}
5419          vs_base=base+3;}          vs_base=base+3;}
5420          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5421                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5440  register object *base0; Line 5450  register object *base0;
5450  {       register object *base=vs_base;  {       register object *base=vs_base;
5451          register object *sup=base+VM112; VC112          register object *sup=base+VM112; VC112
5452          vs_check;          vs_check;
5453          {object V585;          {object V595;
5454          check_arg(1);          check_arg(1);
5455          V585=(base[0]);          V595=(base[0]);
5456          vs_top=sup;          vs_top=sup;
5457          {register object V586;          {register object V596;
5458          V586= Cnil;          V596= Cnil;
5459          {long V587;          {long V597;
5460          register object V588;          register object V598;
5461          long V589;          long V599;
5462          long V590;          long V600;
5463          object V591;          object V601;
5464          register object V592;          register object V602;
5465          V587= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V597= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
5466          V588= STREF(object,(base0[1]->c.c_car),40);          V598= STREF(object,(base0[1]->c.c_car),40);
5467          V589= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V599= (long)STREF(fixnum,(base0[1]->c.c_car),24);
5468          V590= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V600= (long)STREF(fixnum,(base0[1]->c.c_car),28);
5469          V591= STREF(object,(base0[1]->c.c_car),44);          V601= STREF(object,(base0[1]->c.c_car),44);
5470          if(type_of(V585)==t_structure){          if(type_of(V595)==t_structure){
5471          goto T2560;}          goto T2560;}
5472          goto T2558;          goto T2558;
5473          goto T2560;          goto T2560;
5474  T2560:;  T2560:;
5475          if(!(((V585)->str.str_def)==(VV[98]))){          if(!(((V595)->str.str_def)==(VV[98]))){
5476          goto T2558;}          goto T2558;}
5477          V592= STREF(object,(V585),0);          V602= STREF(object,(V595),0);
5478          goto T2556;          goto T2556;
5479          goto T2558;          goto T2558;
5480  T2558:;{object V594;  T2558:;{object V604;
5481          V594= (VV[30]->s.s_dbind);          V604= (VV[30]->s.s_dbind);
5482          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
5483          base[2]= (V585);          base[2]= (V595);
5484          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5485          (void) (*Lnk253)();          (void) (*Lnk253)();
5486          vs_top=sup;          vs_top=sup;
5487          V595= vs_base[0];          V605= vs_base[0];
5488          if(!((V594)==(CMPcar(V595)))){          if(!((V604)==(CMPcar(V605)))){
5489          goto T2563;}}          goto T2563;}}
5490          V592= CMPcar(((V585))->cc.cc_turbo[13]);          V602= CMPcar(((V595))->cc.cc_turbo[13]);
5491          goto T2556;          goto T2556;
5492          goto T2563;          goto T2563;
5493  T2563:;  T2563:;
5494          if(!(type_of((V585))==t_structure)){          if(!(type_of((V595))==t_structure)){
5495          goto T2569;}          goto T2569;}
5496          V592= (*(LnkLI256))((V585));          V602= (*(LnkLI256))((V595));
5497          goto T2556;          goto T2556;
5498          goto T2569;          goto T2569;
5499  T2569:;  T2569:;
5500          if(!(type_of((V585))==t_symbol)){          if(!(type_of((V595))==t_symbol)){
5501          goto T2572;}          goto T2572;}
5502          if(((V585))==Cnil){          if(((V595))==Cnil){
5503          goto T2575;}          goto T2575;}
5504          V592= (VV[44]->s.s_dbind);          V602= (VV[44]->s.s_dbind);
5505          goto T2556;          goto T2556;
5506          goto T2575;          goto T2575;
5507  T2575:;  T2575:;
5508          V592= (VV[45]->s.s_dbind);          V602= (VV[45]->s.s_dbind);
5509          goto T2556;          goto T2556;
5510          goto T2572;          goto T2572;
5511  T2572:;  T2572:;
5512          V592= (*(LnkLI257))((V585));          V602= (*(LnkLI257))((V595));
5513          goto T2556;          goto T2556;
5514  T2556:;  T2556:;
5515          {long V596;          {long V606;
5516          long V597;          long V607;
5517          {long V598;          {long V608;
5518          V598= fix(((V592))->v.v_self[V587]);          V608= fix(((V602))->v.v_self[V597]);
5519          if(!((V598)==0)){          if(!((V608)==0)){
5520          goto T2580;}          goto T2580;}
5521          goto T2550;          goto T2550;
5522          goto T2580;          goto T2580;
5523  T2580:;  T2580:;
5524          V596= (long)((V589) & (V598));}          V606= (long)((V599) & (V608));}
5525          {object V599;          {object V609;
5526          V599= ((V588))->v.v_self[0];          V609= ((V598))->v.v_self[0];
5527          if(type_of((V599))==t_fixnum){          if(type_of((V609))==t_fixnum){
5528          goto T2585;}          goto T2585;}
5529          base[1]= VV[46];          base[1]= VV[46];
5530          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 5522  T2580:; Line 5532  T2580:;
5532          vs_top=sup;          vs_top=sup;
5533          goto T2585;          goto T2585;
5534  T2585:;  T2585:;
5535          V597= fix((V599));}          V607= fix((V609));}
5536          {register long V600;          {register long V610;
5537          V600= V596;          V610= V606;
5538          goto T2592;          goto T2592;
5539  T2592:;  T2592:;
5540          if(!(((V592))==(((V588))->v.v_self[V600]))){          if(!(((V602))==(((V598))->v.v_self[V610]))){
5541          goto T2594;}          goto T2594;}
5542          V586= ((V588))->v.v_self[(long)(V600)+1];          V596= ((V598))->v.v_self[(long)(V610)+1];
5543          goto T2590;          goto T2590;
5544          goto T2594;          goto T2594;
5545  T2594:;  T2594:;
5546          V600= (long)(V600)+(2);          V610= (long)(V610)+(2);
5547          if(!((V600)==(V590))){          if(!((V610)==(V600))){
5548          goto T2601;}          goto T2601;}
5549          V600= 0;          V610= 0;
5550          goto T2601;          goto T2601;
5551  T2601:;  T2601:;
5552          if(!((V600)==(V596))){          if(!((V610)==(V606))){
5553          goto T2593;}          goto T2593;}
5554          {register object V601;          {register object V611;
5555          register object V602;          register object V612;
5556          V601= (V591);          V611= (V601);
5557          V602= CMPcar((V601));          V612= CMPcar((V611));
5558          goto T2611;          goto T2611;
5559  T2611:;  T2611:;
5560          if(!(((V601))==Cnil)){          if(!(((V611))==Cnil)){
5561          goto T2612;}          goto T2612;}
5562          goto T2607;          goto T2607;
5563          goto T2612;          goto T2612;
5564  T2612:;  T2612:;
5565          if(!((CMPcar((V602)))==((V592)))){          if(!((CMPcar((V612)))==((V602)))){
5566          goto T2616;}          goto T2616;}
5567          V586= CMPcdr((V602));          V596= CMPcdr((V612));
5568          goto T2590;          goto T2590;
5569          goto T2616;          goto T2616;
5570  T2616:;  T2616:;
5571          V601= CMPcdr((V601));          V611= CMPcdr((V611));
5572          V602= CMPcar((V601));          V612= CMPcar((V611));
5573          goto T2611;}          goto T2611;}
5574          goto T2607;          goto T2607;
5575  T2607:;  T2607:;
# Line 5569  T2593:; Line 5579  T2593:;
5579          goto T2592;          goto T2592;
5580          goto T2590;          goto T2590;
5581  T2590:;  T2590:;
5582          {object V604;          V613 = V607;
5583          V604= ((V588))->v.v_self[0];          {object V615;
5584          if(type_of((V604))==t_fixnum){          V615= ((V598))->v.v_self[0];
5585            if(type_of((V615))==t_fixnum){
5586          goto T2631;}          goto T2631;}
5587          base[1]= VV[46];          base[1]= VV[46];
5588          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 5579  T2590:; Line 5590  T2590:;
5590          vs_top=sup;          vs_top=sup;
5591          goto T2631;          goto T2631;
5592  T2631:;  T2631:;
5593          V603= fix((V604));}          V614= fix((V615));}
5594          if((V597)==(V603)){          if((V613)==(V614)){
5595          goto T2577;}          goto T2577;}
5596          goto T2550;}}          goto T2550;}}
5597          goto T2577;          goto T2577;
5598  T2577:;  T2577:;
5599          base[1]= (V586);          base[1]= (V596);
5600          base[2]= VV[2];          base[2]= VV[2];
5601          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5602          (void) (*Lnk258)();          (void) (*Lnk258)();
5603          vs_top=sup;          vs_top=sup;
5604          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5605          goto T2637;}          goto T2637;}
5606          base[1]= STREF(object,(V586),0);          base[1]= STREF(object,(V596),0);
5607          base[2]= STREF(object,(V586),4);          base[2]= STREF(object,(V596),4);
5608          base[3]= STREF(object,(V586),8);          base[3]= STREF(object,(V596),8);
5609          base[4]= (V585);          base[4]= (V595);
5610          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
5611          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5612                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5604  T2577:; Line 5615  T2577:;
5615          return;          return;
5616          goto T2637;          goto T2637;
5617  T2637:;  T2637:;
5618          if(!(type_of((V586))==t_fixnum)){          if(!(type_of((V596))==t_fixnum)){
5619          goto T2646;}          goto T2646;}
5620          {object V605;          {object V616;
5621          object V606;          object V617;
5622          if(type_of(V585)==t_structure){          if(type_of(V595)==t_structure){
5623          goto T2652;}          goto T2652;}
5624          goto T2650;          goto T2650;
5625          goto T2652;          goto T2652;
5626  T2652:;  T2652:;
5627          if(!(((V585)->str.str_def)==(VV[99]))){          if(!(((V595)->str.str_def)==(VV[99]))){
5628          goto T2650;}          goto T2650;}
5629          V605= STREF(object,(V585),4);          V616= STREF(object,(V595),4);
5630          goto T2648;          goto T2648;
5631          goto T2650;          goto T2650;
5632  T2650:;{object V608;  T2650:;{object V619;
5633          V608= (VV[30]->s.s_dbind);          V619= (VV[30]->s.s_dbind);
5634          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
5635          base[4]= (V585);          base[4]= (V595);
5636          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5637          (void) (*Lnk253)();          (void) (*Lnk253)();
5638          vs_top=sup;          vs_top=sup;
5639          V609= vs_base[0];          V620= vs_base[0];
5640          if(!((V608)==(CMPcar(V609)))){          if(!((V619)==(CMPcar(V620)))){
5641          goto T2655;}}          goto T2655;}}
5642          V605= CMPcar(((V585))->cc.cc_turbo[12]);          V616= CMPcar(((V595))->cc.cc_turbo[12]);
5643          goto T2648;          goto T2648;
5644          goto T2655;          goto T2655;
5645  T2655:;  T2655:;
5646          V605= Cnil;          V616= Cnil;
5647          goto T2648;          goto T2648;
5648  T2648:;  T2648:;
5649          if(((V605))==Cnil){          if(((V616))==Cnil){
5650          goto T2662;}          goto T2662;}
5651          V606= ((V605))->v.v_self[fix((V586))];          V617= ((V616))->v.v_self[fix((V596))];
5652          goto T2660;          goto T2660;
5653          goto T2662;          goto T2662;
5654  T2662:;  T2662:;
5655          V606= Cnil;          V617= Cnil;
5656          goto T2660;          goto T2660;
5657  T2660:;  T2660:;
5658          if(!(((V606))==(VV[31]))){          if(!(((V617))==(VV[31]))){
5659          goto T2665;}          goto T2665;}
5660          base[3]= (V585);          base[3]= (V595);
5661          base[4]= (V586);          base[4]= (V596);
5662          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5663          (void) (*Lnk259)();          (void) (*Lnk259)();
5664          return;          return;
5665          goto T2665;          goto T2665;
5666  T2665:;  T2665:;
5667          base[3]= (V606);          base[3]= (V617);
5668          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5669          return;}          return;}
5670          goto T2646;          goto T2646;
5671  T2646:;  T2646:;
5672          base[1]= V586;          base[1]= V596;
5673          base[2]= VV[10];          base[2]= VV[10];
5674          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5675          (void) (*Lnk258)();          (void) (*Lnk258)();
5676          vs_top=sup;          vs_top=sup;
5677          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5678          goto T2670;}          goto T2670;}
5679          {object V611;          {object V622;
5680          object V612;          object V623;
5681          object V613;          object V624;
5682          V611= STREF(object,(V586),0);          V622= STREF(object,(V596),0);
5683          V612= make_cons((V585),Cnil);          V623= make_cons((V595),Cnil);
5684          V613= STREF(object,(V586),4);          V624= STREF(object,(V596),4);
5685          if(((V613))==Cnil){          if(((V624))==Cnil){
5686          goto T2678;}          goto T2678;}
5687          if((CMPcdr((V613)))!=Cnil){          if((CMPcdr((V624)))!=Cnil){
5688          goto T2678;}          goto T2678;}
5689          base[1]= (V612);          base[1]= (V623);
5690          base[2]= CMPcar((V613));          base[2]= CMPcar((V624));
5691          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5692          {object _funobj = (V611);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V622);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5693                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5694                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5695                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5696          return;          return;
5697          goto T2678;          goto T2678;
5698  T2678:;  T2678:;
5699          base[1]= (V611);          base[1]= (V622);
5700          base[2]= (V612);          base[2]= (V623);
5701          {object V614;          {object V625;
5702          V614= (V613);          V625= (V624);
5703           vs_top=base+3;           vs_top=base+3;
5704           while(V614!=Cnil)           while(V625!=Cnil)
5705           {vs_push((V614)->c.c_car);V614=(V614)->c.c_cdr;}           {vs_push((V625)->c.c_car);V625=(V625)->c.c_cdr;}
5706          vs_base=base+2;}          vs_base=base+2;}
5707          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5708                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5700  T2678:; Line 5711  T2678:;
5711          return;}          return;}
5712          goto T2670;          goto T2670;
5713  T2670:;  T2670:;
5714          base[1]= V586;          base[1]= V596;
5715          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5716          Lfunctionp();          Lfunctionp();
5717          vs_top=sup;          vs_top=sup;
5718          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5719          goto T2688;}          goto T2688;}
5720          base[1]= (V585);          base[1]= (V595);
5721          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5722          {object _funobj = (V586);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V596);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5723                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5724                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5725                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 5716  T2670:; Line 5727  T2670:;
5727          goto T2688;          goto T2688;
5728  T2688:;  T2688:;
5729          base[2]= VV[11];          base[2]= VV[11];
5730          base[3]= V586;          base[3]= V596;
5731          base[4]= VV[100];          base[4]= VV[100];
5732          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
5733          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 5727  T2688:; Line 5738  T2688:;
5738          return;}          return;}
5739          goto T2550;          goto T2550;
5740  T2550:;  T2550:;
5741          base[1]= (V585);          base[1]= (V595);
5742          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5743          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5744                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5762  register object *base0; Line 5773  register object *base0;
5773  {       register object *base=vs_base;  {       register object *base=vs_base;
5774          register object *sup=base+VM114; VC114          register object *sup=base+VM114; VC114
5775          vs_check;          vs_check;
5776          {object V615;          {object V626;
5777          object V616;          object V627;
5778          object V617;          object V628;
5779          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
5780          V615=(base[0]);          V626=(base[0]);
5781          V616=(base[1]);          V627=(base[1]);
5782          vs_base=vs_base+2;          vs_base=vs_base+2;
5783          vs_top[0]=Cnil;          vs_top[0]=Cnil;
5784          {object *p=vs_top;          {object *p=vs_top;
5785           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
5786          V617=(base[2]);          V628=(base[2]);
5787          vs_top=sup;          vs_top=sup;
5788          {register object V618;          {register object V629;
5789          V618= Cnil;          V629= Cnil;
5790          {long V619;          {long V630;
5791          register object V620;          register object V631;
5792          long V621;          long V632;
5793          long V622;          long V633;
5794          object V623;          object V634;
5795          register object V624;          register object V635;
5796          V619= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V630= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
5797          V620= STREF(object,(base0[1]->c.c_car),40);          V631= STREF(object,(base0[1]->c.c_car),40);
5798          V621= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V632= (long)STREF(fixnum,(base0[1]->c.c_car),24);
5799          V622= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V633= (long)STREF(fixnum,(base0[1]->c.c_car),28);
5800          V623= STREF(object,(base0[1]->c.c_car),44);          V634= STREF(object,(base0[1]->c.c_car),44);
5801          if(type_of(V615)==t_structure){          if(type_of(V626)==t_structure){
5802          goto T2709;}          goto T2709;}
5803          goto T2707;          goto T2707;
5804          goto T2709;          goto T2709;
5805  T2709:;  T2709:;
5806          if(!(((V615)->str.str_def)==(VV[95]))){          if(!(((V626)->str.str_def)==(VV[95]))){
5807          goto T2707;}          goto T2707;}
5808          V624= STREF(object,(V615),0);          V635= STREF(object,(V626),0);
5809          goto T2705;          goto T2705;
5810          goto T2707;          goto T2707;
5811  T2707:;{object V626;  T2707:;{object V637;
5812          V626= (VV[30]->s.s_dbind);          V637= (VV[30]->s.s_dbind);
5813          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
5814          base[4]= (V615);          base[4]= (V626);
5815          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5816          (void) (*Lnk253)();          (void) (*Lnk253)();
5817          vs_top=sup;          vs_top=sup;
5818          V627= vs_base[0];          V638= vs_base[0];
5819          if(!((V626)==(CMPcar(V627)))){          if(!((V637)==(CMPcar(V638)))){
5820          goto T2712;}}          goto T2712;}}
5821          V624= CMPcar(((V615))->cc.cc_turbo[13]);          V635= CMPcar(((V626))->cc.cc_turbo[13]);
5822          goto T2705;          goto T2705;
5823          goto T2712;          goto T2712;
5824  T2712:;  T2712:;
5825          if(!(type_of((V615))==t_structure)){          if(!(type_of((V626))==t_structure)){
5826          goto T2718;}          goto T2718;}
5827          V624= (*(LnkLI256))((V615));          V635= (*(LnkLI256))((V626));
5828          goto T2705;          goto T2705;
5829          goto T2718;          goto T2718;
5830  T2718:;  T2718:;
5831          if(!(type_of((V615))==t_symbol)){          if(!(type_of((V626))==t_symbol)){
5832          goto T2721;}          goto T2721;}
5833          if(((V615))==Cnil){          if(((V626))==Cnil){
5834          goto T2724;}          goto T2724;}
5835          V624= (VV[44]->s.s_dbind);          V635= (VV[44]->s.s_dbind);
5836          goto T2705;          goto T2705;
5837          goto T2724;          goto T2724;
5838  T2724:;  T2724:;
5839          V624= (VV[45]->s.s_dbind);          V635= (VV[45]->s.s_dbind);
5840          goto T2705;          goto T2705;
5841          goto T2721;          goto T2721;
5842  T2721:;  T2721:;
5843          V624= (*(LnkLI257))((V615));          V635= (*(LnkLI257))((V626));
5844          goto T2705;          goto T2705;
5845  T2705:;  T2705:;
5846          {long V628;          {long V639;
5847          long V629;          long V640;
5848          {long V630;          {long V641;
5849          V630= fix(((V624))->v.v_self[V619]);          V641= fix(((V635))->v.v_self[V630]);
5850          if(!((V630)==0)){          if(!((V641)==0)){
5851          goto T2729;}          goto T2729;}
5852          goto T2699;          goto T2699;
5853          goto T2729;          goto T2729;
5854  T2729:;  T2729:;
5855          V628= (long)((V621) & (V630));}          V639= (long)((V632) & (V641));}
5856          {object V631;          {object V642;
5857          V631= ((V620))->v.v_self[0];          V642= ((V631))->v.v_self[0];
5858          if(type_of((V631))==t_fixnum){          if(type_of((V642))==t_fixnum){
5859          goto T2734;}          goto T2734;}
5860          base[3]= VV[46];          base[3]= VV[46];
5861          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 5852  T2729:; Line 5863  T2729:;
5863          vs_top=sup;          vs_top=sup;
5864          goto T2734;          goto T2734;
5865  T2734:;  T2734:;
5866          V629= fix((V631));}          V640= fix((V642));}
5867          {register long V632;          {register long V643;
5868          V632= V628;          V643= V639;
5869          goto T2741;          goto T2741;
5870  T2741:;  T2741:;
5871          if(!(((V624))==(((V620))->v.v_self[V632]))){          if(!(((V635))==(((V631))->v.v_self[V643]))){
5872          goto T2743;}          goto T2743;}
5873          V618= ((V620))->v.v_self[(long)(V632)+1];          V629= ((V631))->v.v_self[(long)(V643)+1];
5874          goto T2739;          goto T2739;
5875          goto T2743;          goto T2743;
5876  T2743:;  T2743:;
5877          V632= (long)(V632)+(2);          V643= (long)(V643)+(2);
5878          if(!((V632)==(V622))){          if(!((V643)==(V633))){
5879          goto T2750;}          goto T2750;}
5880          V632= 0;          V643= 0;
5881          goto T2750;          goto T2750;
5882  T2750:;  T2750:;
5883          if(!((V632)==(V628))){          if(!((V643)==(V639))){
5884          goto T2742;}          goto T2742;}
5885          {register object V633;          {register object V644;
5886          register object V634;          register object V645;
5887          V633= (V623);          V644= (V634);
5888          V634= CMPcar((V633));          V645= CMPcar((V644));
5889          goto T2760;          goto T2760;
5890  T2760:;  T2760:;
5891          if(!(((V633))==Cnil)){          if(!(((V644))==Cnil)){
5892          goto T2761;}          goto T2761;}
5893          goto T2756;          goto T2756;
5894          goto T2761;          goto T2761;
5895  T2761:;  T2761:;
5896          if(!((CMPcar((V634)))==((V624)))){          if(!((CMPcar((V645)))==((V635)))){
5897          goto T2765;}          goto T2765;}
5898          V618= CMPcdr((V634));          V629= CMPcdr((V645));
5899          goto T2739;          goto T2739;
5900          goto T2765;          goto T2765;
5901  T2765:;  T2765:;
5902          V633= CMPcdr((V633));          V644= CMPcdr((V644));
5903          V634= CMPcar((V633));          V645= CMPcar((V644));
5904          goto T2760;}          goto T2760;}
5905          goto T2756;          goto T2756;
5906  T2756:;  T2756:;
# Line 5899  T2742:; Line 5910  T2742:;
5910          goto T2741;          goto T2741;
5911          goto T2739;          goto T2739;
5912  T2739:;  T2739:;
5913          {object V636;          V646 = V640;
5914          V636= ((V620))->v.v_self[0];          {object V648;
5915          if(type_of((V636))==t_fixnum){          V648= ((V631))->v.v_self[0];
5916            if(type_of((V648))==t_fixnum){
5917          goto T2780;}          goto T2780;}
5918          base[3]= VV[46];          base[3]= VV[46];
5919          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 5909  T2739:; Line 5921  T2739:;
5921          vs_top=sup;          vs_top=sup;
5922          goto T2780;          goto T2780;
5923  T2780:;  T2780:;
5924          V635= fix((V636));}          V647= fix((V648));}
5925          if((V629)==(V635)){          if((V646)==(V647)){
5926          goto T2726;}          goto T2726;}
5927          goto T2699;}}          goto T2699;}}
5928          goto T2726;          goto T2726;
5929  T2726:;  T2726:;
5930          base[3]= (V618);          base[3]= (V629);
5931          base[4]= VV[2];          base[4]= VV[2];
5932          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5933          (void) (*Lnk258)();          (void) (*Lnk258)();
5934          vs_top=sup;          vs_top=sup;
5935          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5936          goto T2786;}          goto T2786;}
5937          base[3]= STREF(object,(V618),0);          base[3]= STREF(object,(V629),0);
5938          base[4]= STREF(object,(V618),4);          base[4]= STREF(object,(V629),4);
5939          base[5]= STREF(object,(V618),8);          base[5]= STREF(object,(V629),8);
5940          base[6]= (V615);          base[6]= (V626);
5941          base[7]= (V616);          base[7]= (V627);
5942          base[8]= (V617);          base[8]= (V628);
5943          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
5944          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5945                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5936  T2726:; Line 5948  T2726:;
5948          return;          return;
5949          goto T2786;          goto T2786;
5950  T2786:;  T2786:;
5951          base[3]= V618;          base[3]= V629;
5952          base[4]= VV[10];          base[4]= VV[10];
5953          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5954          (void) (*Lnk258)();          (void) (*Lnk258)();
5955          vs_top=sup;          vs_top=sup;
5956          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5957          goto T2797;}          goto T2797;}
5958          {object V638;          {object V650;
5959          object V639;          object V651;
5960          object V640;          object V652;
5961          V638= STREF(object,(V618),0);          V650= STREF(object,(V629),0);
5962          V639= listA(3,(V615),(V616),(V617));          V651= listA(3,(V626),(V627),(V628));
5963          V640= STREF(object,(V618),4);          V652= STREF(object,(V629),4);
5964          if(((V640))==Cnil){          if(((V652))==Cnil){
5965          goto T2805;}          goto T2805;}
5966          if((CMPcdr((V640)))!=Cnil){          if((CMPcdr((V652)))!=Cnil){
5967          goto T2805;}          goto T2805;}
5968          base[3]= (V639);          base[3]= (V651);
5969          base[4]= CMPcar((V640));          base[4]= CMPcar((V652));
5970          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5971          {object _funobj = (V638);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V650);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5972                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5973                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5974                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5975          return;          return;
5976          goto T2805;          goto T2805;
5977  T2805:;  T2805:;
5978          base[3]= (V638);          base[3]= (V650);
5979          base[4]= (V639);          base[4]= (V651);
5980          {object V641;          {object V653;
5981          V641= (V640);          V653= (V652);
5982           vs_top=base+5;           vs_top=base+5;
5983           while(V641!=Cnil)           while(V653!=Cnil)
5984           {vs_push((V641)->c.c_car);V641=(V641)->c.c_cdr;}           {vs_push((V653)->c.c_car);V653=(V653)->c.c_cdr;}
5985          vs_base=base+4;}          vs_base=base+4;}
5986          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5987                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5978  T2805:; Line 5990  T2805:;
5990          return;}          return;}
5991          goto T2797;          goto T2797;
5992  T2797:;  T2797:;
5993          base[3]= V618;          base[3]= V629;
5994          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5995          Lfunctionp();          Lfunctionp();
5996          vs_top=sup;          vs_top=sup;
5997          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5998          goto T2815;}          goto T2815;}
5999          base[3]= (V618);          base[3]= (V629);
6000          base[4]= (V615);          base[4]= (V626);
6001          base[5]= (V616);          base[5]= (V627);
6002          {object V642;          {object V654;
6003          V642= (V617);          V654= (V628);
6004           vs_top=base+6;           vs_top=base+6;
6005           while(V642!=Cnil)           while(V654!=Cnil)
6006           {vs_push((V642)->c.c_car);V642=(V642)->c.c_cdr;}           {vs_push((V654)->c.c_car);V654=(V654)->c.c_cdr;}
6007          vs_base=base+4;}          vs_base=base+4;}
6008          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6009                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6001  T2797:; Line 6013  T2797:;
6013          goto T2815;          goto T2815;
6014  T2815:;  T2815:;
6015          base[4]= VV[11];          base[4]= VV[11];
6016          base[5]= V618;          base[5]= V629;
6017          base[6]= VV[96];          base[6]= VV[96];
6018          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
6019          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 6013  T2815:; Line 6025  T2815:;
6025          goto T2699;          goto T2699;
6026  T2699:;  T2699:;
6027          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
6028          base[4]= (V615);          base[4]= (V626);
6029          base[5]= (V616);          base[5]= (V627);
6030          {object V643;          {object V655;
6031          V643= (V617);          V655= (V628);
6032           vs_top=base+6;           vs_top=base+6;
6033           while(V643!=Cnil)           while(V655!=Cnil)
6034           {vs_push((V643)->c.c_car);V643=(V643)->c.c_cdr;}           {vs_push((V655)->c.c_car);V655=(V655)->c.c_cdr;}
6035          vs_base=base+4;}          vs_base=base+4;}
6036          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6037                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6054  register object *base0; Line 6066  register object *base0;
6066  {       register object *base=vs_base;  {       register object *base=vs_base;
6067          register object *sup=base+VM116; VC116          register object *sup=base+VM116; VC116
6068          vs_check;          vs_check;
6069          {object V644;          {object V656;
6070          object V645;          object V657;
6071          check_arg(2);          check_arg(2);
6072          V644=(base[0]);          V656=(base[0]);
6073          V645=(base[1]);          V657=(base[1]);
6074          vs_top=sup;          vs_top=sup;
6075          {register object V646;          {register object V658;
6076          V646= Cnil;          V658= Cnil;
6077          {long V647;          {long V659;
6078          register object V648;          register object V660;
6079          long V649;          long V661;
6080          long V650;          long V662;
6081          object V651;          object V663;
6082          register object V652;          register object V664;
6083          V647= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V659= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
6084          V648= STREF(object,(base0[1]->c.c_car),40);          V660= STREF(object,(base0[1]->c.c_car),40);
6085          V649= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V661= (long)STREF(fixnum,(base0[1]->c.c_car),24);
6086          V650= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V662= (long)STREF(fixnum,(base0[1]->c.c_car),28);
6087          V651= STREF(object,(base0[1]->c.c_car),44);          V663= STREF(object,(base0[1]->c.c_car),44);
6088          if(type_of(V644)==t_structure){          if(type_of(V656)==t_structure){
6089          goto T2842;}          goto T2842;}
6090          goto T2840;          goto T2840;
6091          goto T2842;          goto T2842;
6092  T2842:;  T2842:;
6093          if(!(((V644)->str.str_def)==(VV[91]))){          if(!(((V656)->str.str_def)==(VV[91]))){
6094          goto T2840;}          goto T2840;}
6095          V652= STREF(object,(V644),0);          V664= STREF(object,(V656),0);
6096          goto T2838;          goto T2838;
6097          goto T2840;          goto T2840;
6098  T2840:;{object V654;  T2840:;{object V666;
6099          V654= (VV[30]->s.s_dbind);          V666= (VV[30]->s.s_dbind);
6100          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6101          base[3]= (V644);          base[3]= (V656);
6102          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6103          (void) (*Lnk253)();          (void) (*Lnk253)();
6104          vs_top=sup;          vs_top=sup;
6105          V655= vs_base[0];          V667= vs_base[0];
6106          if(!((V654)==(CMPcar(V655)))){          if(!((V666)==(CMPcar(V667)))){
6107          goto T2845;}}          goto T2845;}}
6108          V652= CMPcar(((V644))->cc.cc_turbo[13]);          V664= CMPcar(((V656))->cc.cc_turbo[13]);
6109          goto T2838;          goto T2838;
6110          goto T2845;          goto T2845;
6111  T2845:;  T2845:;
6112          if(!(type_of((V644))==t_structure)){          if(!(type_of((V656))==t_structure)){
6113          goto T2851;}          goto T2851;}
6114          V652= (*(LnkLI256))((V644));          V664= (*(LnkLI256))((V656));
6115          goto T2838;          goto T2838;
6116          goto T2851;          goto T2851;
6117  T2851:;  T2851:;
6118          if(!(type_of((V644))==t_symbol)){          if(!(type_of((V656))==t_symbol)){
6119          goto T2854;}          goto T2854;}
6120          if(((V644))==Cnil){          if(((V656))==Cnil){
6121          goto T2857;}          goto T2857;}
6122          V652= (VV[44]->s.s_dbind);          V664= (VV[44]->s.s_dbind);
6123          goto T2838;          goto T2838;
6124          goto T2857;          goto T2857;
6125  T2857:;  T2857:;
6126          V652= (VV[45]->s.s_dbind);          V664= (VV[45]->s.s_dbind);
6127          goto T2838;          goto T2838;
6128          goto T2854;          goto T2854;
6129  T2854:;  T2854:;
6130          V652= (*(LnkLI257))((V644));          V664= (*(LnkLI257))((V656));
6131          goto T2838;          goto T2838;
6132  T2838:;  T2838:;
6133          {long V656;          {long V668;
6134          long V657;          long V669;
6135          {long V658;          {long V670;
6136          V658= fix(((V652))->v.v_self[V647]);          V670= fix(((V664))->v.v_self[V659]);
6137          if(!((V658)==0)){          if(!((V670)==0)){
6138          goto T2862;}          goto T2862;}
6139          goto T2832;          goto T2832;
6140          goto T2862;          goto T2862;
6141  T2862:;  T2862:;
6142          V656= (long)((V649) & (V658));}          V668= (long)((V661) & (V670));}
6143          {object V659;          {object V671;
6144          V659= ((V648))->v.v_self[0];          V671= ((V660))->v.v_self[0];
6145          if(type_of((V659))==t_fixnum){          if(type_of((V671))==t_fixnum){
6146          goto T2867;}          goto T2867;}
6147          base[2]= VV[46];          base[2]= VV[46];
6148          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 6138  T2862:; Line 6150  T2862:;
6150          vs_top=sup;          vs_top=sup;
6151          goto T2867;          goto T2867;
6152  T2867:;  T2867:;
6153          V657= fix((V659));}          V669= fix((V671));}
6154          {register long V660;          {register long V672;
6155          V660= V656;          V672= V668;
6156          goto T2874;          goto T2874;
6157  T2874:;  T2874:;
6158          if(!(((V652))==(((V648))->v.v_self[V660]))){          if(!(((V664))==(((V660))->v.v_self[V672]))){
6159          goto T2876;}          goto T2876;}
6160          V646= ((V648))->v.v_self[(long)(V660)+1];          V658= ((V660))->v.v_self[(long)(V672)+1];
6161          goto T2872;          goto T2872;
6162          goto T2876;          goto T2876;
6163  T2876:;  T2876:;
6164          V660= (long)(V660)+(2);          V672= (long)(V672)+(2);
6165          if(!((V660)==(V650))){          if(!((V672)==(V662))){
6166          goto T2883;}          goto T2883;}
6167          V660= 0;          V672= 0;
6168          goto T2883;          goto T2883;
6169  T2883:;  T2883:;
6170          if(!((V660)==(V656))){          if(!((V672)==(V668))){
6171          goto T2875;}          goto T2875;}
6172          {register object V661;          {register object V673;
6173          register object V662;          register object V674;
6174          V661= (V651);          V673= (V663);
6175          V662= CMPcar((V661));          V674= CMPcar((V673));
6176          goto T2893;          goto T2893;
6177  T2893:;  T2893:;
6178          if(!(((V661))==Cnil)){          if(!(((V673))==Cnil)){
6179          goto T2894;}          goto T2894;}
6180          goto T2889;          goto T2889;
6181          goto T2894;          goto T2894;
6182  T2894:;  T2894:;
6183          if(!((CMPcar((V662)))==((V652)))){          if(!((CMPcar((V674)))==((V664)))){
6184          goto T2898;}          goto T2898;}
6185          V646= CMPcdr((V662));          V658= CMPcdr((V674));
6186          goto T2872;          goto T2872;
6187          goto T2898;          goto T2898;
6188  T2898:;  T2898:;
6189          V661= CMPcdr((V661));          V673= CMPcdr((V673));
6190          V662= CMPcar((V661));          V674= CMPcar((V673));
6191          goto T2893;}          goto T2893;}
6192          goto T2889;          goto T2889;
6193  T2889:;  T2889:;
# Line 6185  T2875:; Line 6197  T2875:;
6197          goto T2874;          goto T2874;
6198          goto T2872;          goto T2872;
6199  T2872:;  T2872:;
6200          {object V664;          V675 = V669;
6201          V664= ((V648))->v.v_self[0];          {object V677;
6202          if(type_of((V664))==t_fixnum){          V677= ((V660))->v.v_self[0];
6203            if(type_of((V677))==t_fixnum){
6204          goto T2913;}          goto T2913;}
6205          base[2]= VV[46];          base[2]= VV[46];
6206          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 6195  T2872:; Line 6208  T2872:;
6208          vs_top=sup;          vs_top=sup;
6209          goto T2913;          goto T2913;
6210  T2913:;  T2913:;
6211          V663= fix((V664));}          V676= fix((V677));}
6212          if((V657)==(V663)){          if((V675)==(V676)){
6213          goto T2859;}          goto T2859;}
6214          goto T2832;}}          goto T2832;}}
6215          goto T2859;          goto T2859;
6216  T2859:;  T2859:;
6217          base[2]= (V646);          base[2]= (V658);
6218          base[3]= VV[2];          base[3]= VV[2];
6219          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6220          (void) (*Lnk258)();          (void) (*Lnk258)();
6221          vs_top=sup;          vs_top=sup;
6222          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6223          goto T2919;}          goto T2919;}
6224          base[2]= STREF(object,(V646),0);          base[2]= STREF(object,(V658),0);
6225          base[3]= STREF(object,(V646),4);          base[3]= STREF(object,(V658),4);
6226          base[4]= STREF(object,(V646),8);          base[4]= STREF(object,(V658),8);
6227          base[5]= (V644);          base[5]= (V656);
6228          base[6]= (V645);          base[6]= (V657);
6229          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
6230          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6231                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6221  T2859:; Line 6234  T2859:;
6234          return;          return;
6235          goto T2919;          goto T2919;
6236  T2919:;  T2919:;
6237          if(!(type_of((V646))==t_fixnum)){          if(!(type_of((V658))==t_fixnum)){
6238          goto T2929;}          goto T2929;}
6239          {object V666;          {object V679;
6240          if(type_of(V644)==t_structure){          if(type_of(V656)==t_structure){
6241          goto T2935;}          goto T2935;}
6242          goto T2933;          goto T2933;
6243          goto T2935;          goto T2935;
6244  T2935:;  T2935:;
6245          if(!(((V644)->str.str_def)==(VV[92]))){          if(!(((V656)->str.str_def)==(VV[92]))){
6246          goto T2933;}          goto T2933;}
6247          V666= STREF(object,(V644),4);          V679= STREF(object,(V656),4);
6248          goto T2931;          goto T2931;
6249          goto T2933;          goto T2933;
6250  T2933:;{object V668;  T2933:;{object V681;
6251          V668= (VV[30]->s.s_dbind);          V681= (VV[30]->s.s_dbind);
6252          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6253          base[3]= (V644);          base[3]= (V656);
6254          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6255          (void) (*Lnk253)();          (void) (*Lnk253)();
6256          vs_top=sup;          vs_top=sup;
6257          V669= vs_base[0];          V682= vs_base[0];
6258          if(!((V668)==(CMPcar(V669)))){          if(!((V681)==(CMPcar(V682)))){
6259          goto T2938;}}          goto T2938;}}
6260          V666= CMPcar(((V644))->cc.cc_turbo[12]);          V679= CMPcar(((V656))->cc.cc_turbo[12]);
6261          goto T2931;          goto T2931;
6262          goto T2938;          goto T2938;
6263  T2938:;  T2938:;
6264          V666= Cnil;          V679= Cnil;
6265          goto T2931;          goto T2931;
6266  T2931:;  T2931:;
6267          if(((V666))==Cnil){          if(((V679))==Cnil){
6268          goto T2944;}          goto T2944;}
6269          base[2]= ((V666))->v.v_self[fix((V646))]= (V644);          base[2]= ((V679))->v.v_self[fix((V658))]= (V656);
6270          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6271          return;          return;
6272          goto T2944;          goto T2944;
# Line 6263  T2944:; Line 6276  T2944:;
6276          return;}          return;}
6277          goto T2929;          goto T2929;
6278  T2929:;  T2929:;
6279          base[2]= V646;          base[2]= V658;
6280          base[3]= VV[10];          base[3]= VV[10];
6281          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6282          (void) (*Lnk258)();          (void) (*Lnk258)();
6283          vs_top=sup;          vs_top=sup;
6284          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6285          goto T2947;}          goto T2947;}
6286          {object V671;          {object V684;
6287          object V672;          object V685;
6288          object V673;          object V686;
6289          V671= STREF(object,(V646),0);          V684= STREF(object,(V658),0);
6290          V672= list(2,(V644),(V645));          V685= list(2,(V656),(V657));
6291          V673= STREF(object,(V646),4);          V686= STREF(object,(V658),4);
6292          if(((V673))==Cnil){          if(((V686))==Cnil){
6293          goto T2955;}          goto T2955;}
6294          if((CMPcdr((V673)))!=Cnil){          if((CMPcdr((V686)))!=Cnil){
6295          goto T2955;}          goto T2955;}
6296          base[2]= (V672);          base[2]= (V685);
6297          base[3]= CMPcar((V673));          base[3]= CMPcar((V686));
6298          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6299          {object _funobj = (V671);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V684);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6300                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6301                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6302                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6303          return;          return;
6304          goto T2955;          goto T2955;
6305  T2955:;  T2955:;
6306          base[2]= (V671);          base[2]= (V684);
6307          base[3]= (V672);          base[3]= (V685);
6308          {object V674;          {object V687;
6309          V674= (V673);          V687= (V686);
6310           vs_top=base+4;           vs_top=base+4;
6311           while(V674!=Cnil)           while(V687!=Cnil)
6312           {vs_push((V674)->c.c_car);V674=(V674)->c.c_cdr;}           {vs_push((V687)->c.c_car);V687=(V687)->c.c_cdr;}
6313          vs_base=base+3;}          vs_base=base+3;}
6314          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6315                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6305  T2955:; Line 6318  T2955:;
6318          return;}          return;}
6319          goto T2947;          goto T2947;
6320  T2947:;  T2947:;
6321          base[2]= V646;          base[2]= V658;
6322          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6323          Lfunctionp();          Lfunctionp();
6324          vs_top=sup;          vs_top=sup;
6325          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6326          goto T2965;}          goto T2965;}
6327          base[2]= (V644);          base[2]= (V656);
6328          base[3]= (V645);          base[3]= (V657);
6329          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6330          {object _funobj = (V646);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V658);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6331                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6332                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6333                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 6322  T2947:; Line 6335  T2947:;
6335          goto T2965;          goto T2965;
6336  T2965:;  T2965:;
6337          base[3]= VV[11];          base[3]= VV[11];
6338          base[4]= V646;          base[4]= V658;
6339          base[5]= VV[93];          base[5]= VV[93];
6340          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
6341          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 6333  T2965:; Line 6346  T2965:;
6346          return;}          return;}
6347          goto T2832;          goto T2832;
6348  T2832:;  T2832:;
6349          base[2]= (V644);          base[2]= (V656);
6350          base[3]= (V645);          base[3]= (V657);
6351          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6352          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6353                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6369  register object *base0; Line 6382  register object *base0;
6382  {       register object *base=vs_base;  {       register object *base=vs_base;
6383          register object *sup=base+VM118; VC118          register object *sup=base+VM118; VC118
6384          vs_check;          vs_check;
6385          {object V675;          {object V688;
6386          object V676;          object V689;
6387          check_arg(2);          check_arg(2);
6388          V675=(base[0]);          V688=(base[0]);
6389          V676=(base[1]);          V689=(base[1]);
6390          vs_top=sup;          vs_top=sup;
6391          {object V677;          {object V690;
6392          V677= Cnil;          V690= Cnil;
6393          {long V678;          {long V691;
6394          object V679;          object V692;
6395          long V680;          long V693;
6396          long V681;          long V694;
6397          object V682;          object V695;
6398          object V683;          object V696;
6399          object V684;          object V697;
6400          V678= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V691= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
6401          V679= STREF(object,(base0[1]->c.c_car),40);          V692= STREF(object,(base0[1]->c.c_car),40);
6402          V680= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V693= (long)STREF(fixnum,(base0[1]->c.c_car),24);
6403          V681= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V694= (long)STREF(fixnum,(base0[1]->c.c_car),28);
6404          V682= STREF(object,(base0[1]->c.c_car),44);          V695= STREF(object,(base0[1]->c.c_car),44);
6405          if(type_of(V675)==t_structure){          if(type_of(V688)==t_structure){
6406          goto T2988;}          goto T2988;}
6407          goto T2986;          goto T2986;
6408          goto T2988;          goto T2988;
6409  T2988:;  T2988:;
6410          if(!(((V675)->str.str_def)==(VV[86]))){          if(!(((V688)->str.str_def)==(VV[86]))){
6411          goto T2986;}          goto T2986;}
6412          V683= STREF(object,(V675),0);          V696= STREF(object,(V688),0);
6413          goto T2984;          goto T2984;
6414          goto T2986;          goto T2986;
6415  T2986:;{object V686;  T2986:;{object V699;
6416          V686= (VV[30]->s.s_dbind);          V699= (VV[30]->s.s_dbind);
6417          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6418          base[3]= (V675);          base[3]= (V688);
6419          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6420          (void) (*Lnk253)();          (void) (*Lnk253)();
6421          vs_top=sup;          vs_top=sup;
6422          V687= vs_base[0];          V700= vs_base[0];
6423          if(!((V686)==(CMPcar(V687)))){          if(!((V699)==(CMPcar(V700)))){
6424          goto T2991;}}          goto T2991;}}
6425          V683= CMPcar(((V675))->cc.cc_turbo[13]);          V696= CMPcar(((V688))->cc.cc_turbo[13]);
6426          goto T2984;          goto T2984;
6427          goto T2991;          goto T2991;
6428  T2991:;  T2991:;
6429          if(!(type_of((V675))==t_structure)){          if(!(type_of((V688))==t_structure)){
6430          goto T2997;}          goto T2997;}
6431          V683= (*(LnkLI256))((V675));          V696= (*(LnkLI256))((V688));
6432          goto T2984;          goto T2984;
6433          goto T2997;          goto T2997;
6434  T2997:;  T2997:;
6435          if(!(type_of((V675))==t_symbol)){          if(!(type_of((V688))==t_symbol)){
6436          goto T3000;}          goto T3000;}
6437          if(((V675))==Cnil){          if(((V688))==Cnil){
6438          goto T3003;}          goto T3003;}
6439          V683= (VV[44]->s.s_dbind);          V696= (VV[44]->s.s_dbind);
6440          goto T2984;          goto T2984;
6441          goto T3003;          goto T3003;
6442  T3003:;  T3003:;
6443          V683= (VV[45]->s.s_dbind);          V696= (VV[45]->s.s_dbind);
6444          goto T2984;          goto T2984;
6445          goto T3000;          goto T3000;
6446  T3000:;  T3000:;
6447          V683= (*(LnkLI257))((V675));          V696= (*(LnkLI257))((V688));
6448          goto T2984;          goto T2984;
6449  T2984:;  T2984:;
6450          if(type_of(V676)==t_structure){          if(type_of(V689)==t_structure){
6451          goto T3009;}          goto T3009;}
6452          goto T3007;          goto T3007;
6453          goto T3009;          goto T3009;
6454  T3009:;  T3009:;
6455          if(!(((V676)->str.str_def)==(VV[87]))){          if(!(((V689)->str.str_def)==(VV[87]))){
6456          goto T3007;}          goto T3007;}
6457          V684= STREF(object,(V676),0);          V697= STREF(object,(V689),0);
6458          goto T3005;          goto T3005;
6459          goto T3007;          goto T3007;
6460  T3007:;{object V689;  T3007:;{object V702;
6461          V689= (VV[30]->s.s_dbind);          V702= (VV[30]->s.s_dbind);
6462          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6463          base[3]= (V676);          base[3]= (V689);
6464          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6465          (void) (*Lnk253)();          (void) (*Lnk253)();
6466          vs_top=sup;          vs_top=sup;
6467          V690= vs_base[0];          V703= vs_base[0];
6468          if(!((V689)==(CMPcar(V690)))){          if(!((V702)==(CMPcar(V703)))){
6469          goto T3012;}}          goto T3012;}}
6470          V684= CMPcar(((V676))->cc.cc_turbo[13]);          V697= CMPcar(((V689))->cc.cc_turbo[13]);
6471          goto T3005;          goto T3005;
6472          goto T3012;          goto T3012;
6473  T3012:;  T3012:;
6474          if(!(type_of((V676))==t_structure)){          if(!(type_of((V689))==t_structure)){
6475          goto T3018;}          goto T3018;}
6476          V684= (*(LnkLI256))((V676));          V697= (*(LnkLI256))((V689));
6477          goto T3005;          goto T3005;
6478          goto T3018;          goto T3018;
6479  T3018:;  T3018:;
6480          if(!(type_of((V676))==t_symbol)){          if(!(type_of((V689))==t_symbol)){
6481          goto T3021;}          goto T3021;}
6482          if(((V676))==Cnil){          if(((V689))==Cnil){
6483          goto T3024;}          goto T3024;}
6484          V684= (VV[44]->s.s_dbind);          V697= (VV[44]->s.s_dbind);
6485          goto T3005;          goto T3005;
6486          goto T3024;          goto T3024;
6487  T3024:;  T3024:;
6488          V684= (VV[45]->s.s_dbind);          V697= (VV[45]->s.s_dbind);
6489          goto T3005;          goto T3005;
6490          goto T3021;          goto T3021;
6491  T3021:;  T3021:;
6492          V684= (*(LnkLI257))((V676));          V697= (*(LnkLI257))((V689));
6493          goto T3005;          goto T3005;
6494  T3005:;  T3005:;
6495          {long V691;          {long V704;
6496          long V692;          long V705;
6497          V691= 0;          V704= 0;
6498          V692= (long)(V681)-(1);          V705= (long)(V694)-(1);
6499          {long V693;          {long V706;
6500          V693= fix(((V683))->v.v_self[V678]);          V706= fix(((V696))->v.v_self[V691]);
6501          if(!((V693)==0)){          if(!((V706)==0)){
6502          goto T3032;}          goto T3032;}
6503          goto T2978;          goto T2978;
6504          goto T3032;          goto T3032;
6505  T3032:;  T3032:;
6506          V691= (long)(V691)+(V693);}          V704= (long)(V704)+(V706);}
6507          {long V694;          {long V707;
6508          V694= fix(((V684))->v.v_self[V678]);          V707= fix(((V697))->v.v_self[V691]);
6509          if(!((V694)==0)){          if(!((V707)==0)){
6510          goto T3037;}          goto T3037;}
6511          goto T2978;          goto T2978;
6512          goto T3037;          goto T3037;
6513  T3037:;  T3037:;
6514          V691= (long)(V691)+(V694);          V704= (long)(V704)+(V707);
6515          V691= (long)((V691) & (V680));}          V704= (long)((V704) & (V693));}
6516          {long V695;          {long V708;
6517          {object V696;          {object V709;
6518          V696= ((V679))->v.v_self[0];          V709= ((V692))->v.v_self[0];
6519          if(type_of((V696))==t_fixnum){          if(type_of((V709))==t_fixnum){
6520          goto T3045;}          goto T3045;}
6521          base[2]= VV[46];          base[2]= VV[46];
6522          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 6511  T3037:; Line 6524  T3037:;
6524          vs_top=sup;          vs_top=sup;
6525          goto T3045;          goto T3045;
6526  T3045:;  T3045:;
6527          V695= fix((V696));}          V708= fix((V709));}
6528          {register long V697;          {register long V710;
6529          long V698;          long V711;
6530          V697= V691;          V710= V704;
6531          V698= 0;          V711= 0;
6532          goto T3053;          goto T3053;
6533  T3053:;  T3053:;
6534          V698= (long)(V697)+(4);          V711= (long)(V710)+(4);
6535          V697= (long)(V697)+(1);          V712 = (V692);
6536          if(!(((V683))==(((V679))->v.v_self[V697]))){          V710= (long)(V710)+(1);
6537            V713 = V710;
6538            if(!(((V696))==((V712)->v.v_self[V713]))){
6539          goto T3057;}          goto T3057;}
6540          V697= (long)(V697)+(1);          V714 = (V692);
6541          if(!(((V684))==(((V679))->v.v_self[V697]))){          V710= (long)(V710)+(1);
6542            V715 = V710;
6543            if(!(((V697))==((V714)->v.v_self[V715]))){
6544          goto T3057;}          goto T3057;}
6545          V697= (long)(V697)+(1);          V710= (long)(V710)+(1);
6546          V677= ((V679))->v.v_self[V697];          V690= ((V692))->v.v_self[V710];
6547          goto T3051;          goto T3051;
6548          goto T3057;          goto T3057;
6549  T3057:;  T3057:;
6550          V697= V698;          V710= V711;
6551          if(!((V697)==(V692))){          if(!((V710)==(V705))){
6552          goto T3070;}          goto T3070;}
6553          V697= 0;          V710= 0;
6554          goto T3070;          goto T3070;
6555  T3070:;  T3070:;
6556          if(!((V697)==(V691))){          if(!((V710)==(V704))){
6557          goto T3054;}          goto T3054;}
6558          {register object V699;          {register object V716;
6559          register object V700;          register object V717;
6560          V699= (V682);          V716= (V695);
6561          V700= CMPcar((V699));          V717= CMPcar((V716));
6562          goto T3080;          goto T3080;
6563  T3080:;  T3080:;
6564          if(!(((V699))==Cnil)){          if(!(((V716))==Cnil)){
6565          goto T3081;}          goto T3081;}
6566          goto T3076;          goto T3076;
6567          goto T3081;          goto T3081;
6568  T3081:;  T3081:;
6569          {register object V701;          {register object V718;
6570          V701= CMPcar((V700));          V718= CMPcar((V717));
6571          {register object V703;          V719 = (V696);
6572          V703= CMPcar((V701));          {register object V721;
6573          V701= CMPcdr((V701));          V721= CMPcar((V718));
6574          V702= (V703);}          V718= CMPcdr((V718));
6575          if(!(((V683))==(V702))){          V720= (V721);}
6576            if(!((V719)==(V720))){
6577          goto T3085;}          goto T3085;}
6578          {register object V705;          V722 = (V697);
6579          V705= CMPcar((V701));          {register object V724;
6580          V701= CMPcdr((V701));          V724= CMPcar((V718));
6581          V704= (V705);}          V718= CMPcdr((V718));
6582          if(!(((V684))==(V704))){          V723= (V724);}
6583            if(!((V722)==(V723))){
6584          goto T3085;}          goto T3085;}
6585          V677= CMPcdr((V700));          V690= CMPcdr((V717));
6586          goto T3051;}          goto T3051;}
6587          goto T3085;          goto T3085;
6588  T3085:;  T3085:;
6589          V699= CMPcdr((V699));          V716= CMPcdr((V716));
6590          V700= CMPcar((V699));          V717= CMPcar((V716));
6591          goto T3080;}          goto T3080;}
6592          goto T3076;          goto T3076;
6593  T3076:;  T3076:;
# Line 6578  T3054:; Line 6597  T3054:;
6597          goto T3053;          goto T3053;
6598          goto T3051;          goto T3051;
6599  T3051:;  T3051:;
6600          {object V707;          V725 = V708;
6601          V707= ((V679))->v.v_self[0];          {object V727;
6602          if(type_of((V707))==t_fixnum){          V727= ((V692))->v.v_self[0];
6603            if(type_of((V727))==t_fixnum){
6604          goto T3111;}          goto T3111;}
6605          base[2]= VV[46];          base[2]= VV[46];
6606          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 6588  T3051:; Line 6608  T3051:;
6608          vs_top=sup;          vs_top=sup;
6609          goto T3111;          goto T3111;
6610  T3111:;  T3111:;
6611          V706= fix((V707));}          V726= fix((V727));}
6612          if((V695)==(V706)){          if((V725)==(V726)){
6613          goto T3026;}          goto T3026;}
6614          goto T2978;}}}          goto T2978;}}}
6615          goto T3026;          goto T3026;
6616  T3026:;  T3026:;
6617          base[2]= (V677);          base[2]= (V690);
6618          base[3]= VV[2];          base[3]= VV[2];
6619          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6620          (void) (*Lnk258)();          (void) (*Lnk258)();
6621          vs_top=sup;          vs_top=sup;
6622          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6623          goto T3117;}          goto T3117;}
6624          base[2]= STREF(object,(V677),0);          base[2]= STREF(object,(V690),0);
6625          base[3]= STREF(object,(V677),4);          base[3]= STREF(object,(V690),4);
6626          base[4]= STREF(object,(V677),8);          base[4]= STREF(object,(V690),8);
6627          base[5]= (V675);          base[5]= (V688);
6628          base[6]= (V676);          base[6]= (V689);
6629          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
6630          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6631                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6614  T3026:; Line 6634  T3026:;
6634          return;          return;
6635          goto T3117;          goto T3117;
6636  T3117:;  T3117:;
6637          if(!(type_of((V677))==t_fixnum)){          if(!(type_of((V690))==t_fixnum)){
6638          goto T3127;}          goto T3127;}
6639          {object V709;          {object V729;
6640          if(type_of(V675)==t_structure){          if(type_of(V688)==t_structure){
6641          goto T3133;}          goto T3133;}
6642          goto T3131;          goto T3131;
6643          goto T3133;          goto T3133;
6644  T3133:;  T3133:;
6645          if(!(((V675)->str.str_def)==(VV[88]))){          if(!(((V688)->str.str_def)==(VV[88]))){
6646          goto T3131;}          goto T3131;}
6647          V709= STREF(object,(V675),4);          V729= STREF(object,(V688),4);
6648          goto T3129;          goto T3129;
6649          goto T3131;          goto T3131;
6650  T3131:;{object V711;  T3131:;{object V731;
6651          V711= (VV[30]->s.s_dbind);          V731= (VV[30]->s.s_dbind);
6652          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6653          base[3]= (V675);          base[3]= (V688);
6654          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6655          (void) (*Lnk253)();          (void) (*Lnk253)();
6656          vs_top=sup;          vs_top=sup;
6657          V712= vs_base[0];          V732= vs_base[0];
6658          if(!((V711)==(CMPcar(V712)))){          if(!((V731)==(CMPcar(V732)))){
6659          goto T3136;}}          goto T3136;}}
6660          V709= CMPcar(((V675))->cc.cc_turbo[12]);          V729= CMPcar(((V688))->cc.cc_turbo[12]);
6661          goto T3129;          goto T3129;
6662          goto T3136;          goto T3136;
6663  T3136:;  T3136:;
6664          V709= Cnil;          V729= Cnil;
6665          goto T3129;          goto T3129;
6666  T3129:;  T3129:;
6667          if(((V709))==Cnil){          if(((V729))==Cnil){
6668          goto T3142;}          goto T3142;}
6669          base[2]= ((V709))->v.v_self[fix((V677))]= (V675);          base[2]= ((V729))->v.v_self[fix((V690))]= (V688);
6670          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6671          return;          return;
6672          goto T3142;          goto T3142;
# Line 6656  T3142:; Line 6676  T3142:;
6676          return;}          return;}
6677          goto T3127;          goto T3127;
6678  T3127:;  T3127:;
6679          base[2]= V677;          base[2]= V690;
6680          base[3]= VV[10];          base[3]= VV[10];
6681          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6682          (void) (*Lnk258)();          (void) (*Lnk258)();
6683          vs_top=sup;          vs_top=sup;
6684          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6685          goto T3145;}          goto T3145;}
6686          {object V714;          {object V734;
6687          object V715;          object V735;
6688          object V716;          object V736;
6689          V714= STREF(object,(V677),0);          V734= STREF(object,(V690),0);
6690          V715= list(2,(V675),(V676));          V735= list(2,(V688),(V689));
6691          V716= STREF(object,(V677),4);          V736= STREF(object,(V690),4);
6692          if(((V716))==Cnil){          if(((V736))==Cnil){
6693          goto T3153;}          goto T3153;}
6694          if((CMPcdr((V716)))!=Cnil){          if((CMPcdr((V736)))!=Cnil){
6695          goto T3153;}          goto T3153;}
6696          base[2]= (V715);          base[2]= (V735);
6697          base[3]= CMPcar((V716));          base[3]= CMPcar((V736));
6698          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6699          {object _funobj = (V714);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V734);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6700                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6701                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6702                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6703          return;          return;
6704          goto T3153;          goto T3153;
6705  T3153:;  T3153:;
6706          base[2]= (V714);          base[2]= (V734);
6707          base[3]= (V715);          base[3]= (V735);
6708          {object V717;          {object V737;
6709          V717= (V716);          V737= (V736);
6710           vs_top=base+4;           vs_top=base+4;
6711           while(V717!=Cnil)           while(V737!=Cnil)
6712           {vs_push((V717)->c.c_car);V717=(V717)->c.c_cdr;}           {vs_push((V737)->c.c_car);V737=(V737)->c.c_cdr;}
6713          vs_base=base+3;}          vs_base=base+3;}
6714          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6715                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6698  T3153:; Line 6718  T3153:;
6718          return;}          return;}
6719          goto T3145;          goto T3145;
6720  T3145:;  T3145:;
6721          base[2]= V677;          base[2]= V690;
6722          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6723          Lfunctionp();          Lfunctionp();
6724          vs_top=sup;          vs_top=sup;
6725          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6726          goto T3163;}          goto T3163;}
6727          base[2]= (V675);          base[2]= (V688);
6728          base[3]= (V676);          base[3]= (V689);
6729          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6730          {object _funobj = (V677);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V690);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6731                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6732                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6733                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 6715  T3145:; Line 6735  T3145:;
6735          goto T3163;          goto T3163;
6736  T3163:;  T3163:;
6737          base[3]= VV[11];          base[3]= VV[11];
6738          base[4]= V677;          base[4]= V690;
6739          base[5]= VV[89];          base[5]= VV[89];
6740          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
6741          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 6726  T3163:; Line 6746  T3163:;
6746          return;}          return;}
6747          goto T2978;          goto T2978;
6748  T2978:;  T2978:;
6749          base[2]= (V675);          base[2]= (V688);
6750          base[3]= (V676);          base[3]= (V689);
6751          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6752          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6753                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6762  register object *base0; Line 6782  register object *base0;
6782  {       register object *base=vs_base;  {       register object *base=vs_base;
6783          register object *sup=base+VM120; VC120          register object *sup=base+VM120; VC120
6784          vs_check;          vs_check;
6785          {object V718;          {object V738;
6786          object V719;          object V739;
6787          object V720;          object V740;
6788          check_arg(3);          check_arg(3);
6789          V718=(base[0]);          V738=(base[0]);
6790          V719=(base[1]);          V739=(base[1]);
6791          V720=(base[2]);          V740=(base[2]);
6792          vs_top=sup;          vs_top=sup;
6793          {register object V721;          {register object V741;
6794          V721= Cnil;          V741= Cnil;
6795          {long V722;          {long V742;
6796          register object V723;          register object V743;
6797          long V724;          long V744;
6798          long V725;          long V745;
6799          object V726;          object V746;
6800          register object V727;          register object V747;
6801          V722= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V742= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
6802          V723= STREF(object,(base0[1]->c.c_car),40);          V743= STREF(object,(base0[1]->c.c_car),40);
6803          V724= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V744= (long)STREF(fixnum,(base0[1]->c.c_car),24);
6804          V725= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V745= (long)STREF(fixnum,(base0[1]->c.c_car),28);
6805          V726= STREF(object,(base0[1]->c.c_car),44);          V746= STREF(object,(base0[1]->c.c_car),44);
6806          if(type_of(V718)==t_structure){          if(type_of(V738)==t_structure){
6807          goto T3186;}          goto T3186;}
6808          goto T3184;          goto T3184;
6809          goto T3186;          goto T3186;
6810  T3186:;  T3186:;
6811          if(!(((V718)->str.str_def)==(VV[83]))){          if(!(((V738)->str.str_def)==(VV[83]))){
6812          goto T3184;}          goto T3184;}
6813          V727= STREF(object,(V718),0);          V747= STREF(object,(V738),0);
6814          goto T3182;          goto T3182;
6815          goto T3184;          goto T3184;
6816  T3184:;{object V729;  T3184:;{object V749;
6817          V729= (VV[30]->s.s_dbind);          V749= (VV[30]->s.s_dbind);
6818          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
6819          base[4]= (V718);          base[4]= (V738);
6820          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6821          (void) (*Lnk253)();          (void) (*Lnk253)();
6822          vs_top=sup;          vs_top=sup;
6823          V730= vs_base[0];          V750= vs_base[0];
6824          if(!((V729)==(CMPcar(V730)))){          if(!((V749)==(CMPcar(V750)))){
6825          goto T3189;}}          goto T3189;}}
6826          V727= CMPcar(((V718))->cc.cc_turbo[13]);          V747= CMPcar(((V738))->cc.cc_turbo[13]);
6827          goto T3182;          goto T3182;
6828          goto T3189;          goto T3189;
6829  T3189:;  T3189:;
6830          if(!(type_of((V718))==t_structure)){          if(!(type_of((V738))==t_structure)){
6831          goto T3195;}          goto T3195;}
6832          V727= (*(LnkLI256))((V718));          V747= (*(LnkLI256))((V738));
6833          goto T3182;          goto T3182;
6834          goto T3195;          goto T3195;
6835  T3195:;  T3195:;
6836          if(!(type_of((V718))==t_symbol)){          if(!(type_of((V738))==t_symbol)){
6837          goto T3198;}          goto T3198;}
6838          if(((V718))==Cnil){          if(((V738))==Cnil){
6839          goto T3201;}          goto T3201;}
6840          V727= (VV[44]->s.s_dbind);          V747= (VV[44]->s.s_dbind);
6841          goto T3182;          goto T3182;
6842          goto T3201;          goto T3201;
6843  T3201:;  T3201:;
6844          V727= (VV[45]->s.s_dbind);          V747= (VV[45]->s.s_dbind);
6845          goto T3182;          goto T3182;
6846          goto T3198;          goto T3198;
6847  T3198:;  T3198:;
6848          V727= (*(LnkLI257))((V718));          V747= (*(LnkLI257))((V738));
6849          goto T3182;          goto T3182;
6850  T3182:;  T3182:;
6851          {long V731;          {long V751;
6852          long V732;          long V752;
6853          {long V733;          {long V753;
6854          V733= fix(((V727))->v.v_self[V722]);          V753= fix(((V747))->v.v_self[V742]);
6855          if(!((V733)==0)){          if(!((V753)==0)){
6856          goto T3206;}          goto T3206;}
6857          goto T3176;          goto T3176;
6858          goto T3206;          goto T3206;
6859  T3206:;  T3206:;
6860          V731= (long)((V724) & (V733));}          V751= (long)((V744) & (V753));}
6861          {object V734;          {object V754;
6862          V734= ((V723))->v.v_self[0];          V754= ((V743))->v.v_self[0];
6863          if(type_of((V734))==t_fixnum){          if(type_of((V754))==t_fixnum){
6864          goto T3211;}          goto T3211;}
6865          base[3]= VV[46];          base[3]= VV[46];
6866          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 6848  T3206:; Line 6868  T3206:;
6868          vs_top=sup;          vs_top=sup;
6869          goto T3211;          goto T3211;
6870  T3211:;  T3211:;
6871          V732= fix((V734));}          V752= fix((V754));}
6872          {register long V735;          {register long V755;
6873          V735= V731;          V755= V751;
6874          goto T3218;          goto T3218;
6875  T3218:;  T3218:;
6876          if(!(((V727))==(((V723))->v.v_self[V735]))){          if(!(((V747))==(((V743))->v.v_self[V755]))){
6877          goto T3220;}          goto T3220;}
6878          V721= ((V723))->v.v_self[(long)(V735)+1];          V741= ((V743))->v.v_self[(long)(V755)+1];
6879          goto T3216;          goto T3216;
6880          goto T3220;          goto T3220;
6881  T3220:;  T3220:;
6882          V735= (long)(V735)+(2);          V755= (long)(V755)+(2);
6883          if(!((V735)==(V725))){          if(!((V755)==(V745))){
6884          goto T3227;}          goto T3227;}
6885          V735= 0;          V755= 0;
6886          goto T3227;          goto T3227;
6887  T3227:;  T3227:;
6888          if(!((V735)==(V731))){          if(!((V755)==(V751))){
6889          goto T3219;}          goto T3219;}
6890          {register object V736;          {register object V756;
6891          register object V737;          register object V757;
6892          V736= (V726);          V756= (V746);
6893          V737= CMPcar((V736));          V757= CMPcar((V756));
6894          goto T3237;          goto T3237;
6895  T3237:;  T3237:;
6896          if(!(((V736))==Cnil)){          if(!(((V756))==Cnil)){
6897          goto T3238;}          goto T3238;}
6898          goto T3233;          goto T3233;
6899          goto T3238;          goto T3238;
6900  T3238:;  T3238:;
6901          if(!((CMPcar((V737)))==((V727)))){          if(!((CMPcar((V757)))==((V747)))){
6902          goto T3242;}          goto T3242;}
6903          V721= CMPcdr((V737));          V741= CMPcdr((V757));
6904          goto T3216;          goto T3216;
6905          goto T3242;          goto T3242;
6906  T3242:;  T3242:;
6907          V736= CMPcdr((V736));          V756= CMPcdr((V756));
6908          V737= CMPcar((V736));          V757= CMPcar((V756));
6909          goto T3237;}          goto T3237;}
6910          goto T3233;          goto T3233;
6911  T3233:;  T3233:;
# Line 6895  T3219:; Line 6915  T3219:;
6915          goto T3218;          goto T3218;
6916          goto T3216;          goto T3216;
6917  T3216:;  T3216:;
6918          {object V739;          V758 = V752;
6919          V739= ((V723))->v.v_self[0];          {object V760;
6920          if(type_of((V739))==t_fixnum){          V760= ((V743))->v.v_self[0];
6921            if(type_of((V760))==t_fixnum){
6922          goto T3257;}          goto T3257;}
6923          base[3]= VV[46];          base[3]= VV[46];
6924          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 6905  T3216:; Line 6926  T3216:;
6926          vs_top=sup;          vs_top=sup;
6927          goto T3257;          goto T3257;
6928  T3257:;  T3257:;
6929          V738= fix((V739));}          V759= fix((V760));}
6930          if((V732)==(V738)){          if((V758)==(V759)){
6931          goto T3203;}          goto T3203;}
6932          goto T3176;}}          goto T3176;}}
6933          goto T3203;          goto T3203;
6934  T3203:;  T3203:;
6935          base[3]= (V721);          base[3]= (V741);
6936          base[4]= VV[2];          base[4]= VV[2];
6937          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6938          (void) (*Lnk258)();          (void) (*Lnk258)();
6939          vs_top=sup;          vs_top=sup;
6940          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6941          goto T3263;}          goto T3263;}
6942          base[3]= STREF(object,(V721),0);          base[3]= STREF(object,(V741),0);
6943          base[4]= STREF(object,(V721),4);          base[4]= STREF(object,(V741),4);
6944          base[5]= STREF(object,(V721),8);          base[5]= STREF(object,(V741),8);
6945          base[6]= (V718);          base[6]= (V738);
6946          base[7]= (V719);          base[7]= (V739);
6947          base[8]= (V720);          base[8]= (V740);
6948          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
6949          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6950                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6932  T3203:; Line 6953  T3203:;
6953          return;          return;
6954          goto T3263;          goto T3263;
6955  T3263:;  T3263:;
6956          base[3]= V721;          base[3]= V741;
6957          base[4]= VV[10];          base[4]= VV[10];
6958          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6959          (void) (*Lnk258)();          (void) (*Lnk258)();
6960          vs_top=sup;          vs_top=sup;
6961          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6962          goto T3274;}          goto T3274;}
6963          {object V741;          {object V762;
6964          object V742;          object V763;
6965          object V743;          object V764;
6966          V741= STREF(object,(V721),0);          V762= STREF(object,(V741),0);
6967          V742= list(3,(V718),(V719),(V720));          V763= list(3,(V738),(V739),(V740));
6968          V743= STREF(object,(V721),4);          V764= STREF(object,(V741),4);
6969          if(((V743))==Cnil){          if(((V764))==Cnil){
6970          goto T3282;}          goto T3282;}
6971          if((CMPcdr((V743)))!=Cnil){          if((CMPcdr((V764)))!=Cnil){
6972          goto T3282;}          goto T3282;}
6973          base[3]= (V742);          base[3]= (V763);
6974          base[4]= CMPcar((V743));          base[4]= CMPcar((V764));
6975          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6976          {object _funobj = (V741);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V762);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6977                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6978                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6979                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6980          return;          return;
6981          goto T3282;          goto T3282;
6982  T3282:;  T3282:;
6983          base[3]= (V741);          base[3]= (V762);
6984          base[4]= (V742);          base[4]= (V763);
6985          {object V744;          {object V765;
6986          V744= (V743);          V765= (V764);
6987           vs_top=base+5;           vs_top=base+5;
6988           while(V744!=Cnil)           while(V765!=Cnil)
6989           {vs_push((V744)->c.c_car);V744=(V744)->c.c_cdr;}           {vs_push((V765)->c.c_car);V765=(V765)->c.c_cdr;}
6990          vs_base=base+4;}          vs_base=base+4;}
6991          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6992                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6974  T3282:; Line 6995  T3282:;
6995          return;}          return;}
6996          goto T3274;          goto T3274;
6997  T3274:;  T3274:;
6998          base[3]= V721;          base[3]= V741;
6999          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7000          Lfunctionp();          Lfunctionp();
7001          vs_top=sup;          vs_top=sup;
7002          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7003          goto T3292;}          goto T3292;}
7004          base[3]= (V718);          base[3]= (V738);
7005          base[4]= (V719);          base[4]= (V739);
7006          base[5]= (V720);          base[5]= (V740);
7007          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7008          {object _funobj = (V721);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V741);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7009                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7010                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7011                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 6992  T3274:; Line 7013  T3274:;
7013          goto T3292;          goto T3292;
7014  T3292:;  T3292:;
7015          base[4]= VV[11];          base[4]= VV[11];
7016          base[5]= V721;          base[5]= V741;
7017          base[6]= VV[84];          base[6]= VV[84];
7018          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
7019          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 7003  T3292:; Line 7024  T3292:;
7024          return;}          return;}
7025          goto T3176;          goto T3176;
7026  T3176:;  T3176:;
7027          base[3]= (V718);          base[3]= (V738);
7028          base[4]= (V719);          base[4]= (V739);
7029          base[5]= (V720);          base[5]= (V740);
7030          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7031          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7032                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7040  register object *base0; Line 7061  register object *base0;
7061  {       register object *base=vs_base;  {       register object *base=vs_base;
7062          register object *sup=base+VM122; VC122          register object *sup=base+VM122; VC122
7063          vs_check;          vs_check;
7064          {object V745;          {object V766;
7065          object V746;          object V767;
7066          object V747;          object V768;
7067          check_arg(3);          check_arg(3);
7068          V745=(base[0]);          V766=(base[0]);
7069          V746=(base[1]);          V767=(base[1]);
7070          V747=(base[2]);          V768=(base[2]);
7071          vs_top=sup;          vs_top=sup;
7072          {register object V748;          {register object V769;
7073          V748= Cnil;          V769= Cnil;
7074          {long V749;          {long V770;
7075          register object V750;          register object V771;
7076          long V751;          long V772;
7077          long V752;          long V773;
7078          object V753;          object V774;
7079          register object V754;          register object V775;
7080          V749= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V770= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
7081          V750= STREF(object,(base0[1]->c.c_car),40);          V771= STREF(object,(base0[1]->c.c_car),40);
7082          V751= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V772= (long)STREF(fixnum,(base0[1]->c.c_car),24);
7083          V752= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V773= (long)STREF(fixnum,(base0[1]->c.c_car),28);
7084          V753= STREF(object,(base0[1]->c.c_car),44);          V774= STREF(object,(base0[1]->c.c_car),44);
7085          if(type_of(V746)==t_structure){          if(type_of(V767)==t_structure){
7086          goto T3317;}          goto T3317;}
7087          goto T3315;          goto T3315;
7088          goto T3317;          goto T3317;
7089  T3317:;  T3317:;
7090          if(!(((V746)->str.str_def)==(VV[80]))){          if(!(((V767)->str.str_def)==(VV[80]))){
7091          goto T3315;}          goto T3315;}
7092          V754= STREF(object,(V746),0);          V775= STREF(object,(V767),0);
7093          goto T3313;          goto T3313;
7094          goto T3315;          goto T3315;
7095  T3315:;{object V756;  T3315:;{object V777;
7096          V756= (VV[30]->s.s_dbind);          V777= (VV[30]->s.s_dbind);
7097          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
7098          base[4]= (V746);          base[4]= (V767);
7099          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7100          (void) (*Lnk253)();          (void) (*Lnk253)();
7101          vs_top=sup;          vs_top=sup;
7102          V757= vs_base[0];          V778= vs_base[0];
7103          if(!((V756)==(CMPcar(V757)))){          if(!((V777)==(CMPcar(V778)))){
7104          goto T3320;}}          goto T3320;}}
7105          V754= CMPcar(((V746))->cc.cc_turbo[13]);          V775= CMPcar(((V767))->cc.cc_turbo[13]);
7106          goto T3313;          goto T3313;
7107          goto T3320;          goto T3320;
7108  T3320:;  T3320:;
7109          if(!(type_of((V746))==t_structure)){          if(!(type_of((V767))==t_structure)){
7110          goto T3326;}          goto T3326;}
7111          V754= (*(LnkLI256))((V746));          V775= (*(LnkLI256))((V767));
7112          goto T3313;          goto T3313;
7113          goto T3326;          goto T3326;
7114  T3326:;  T3326:;
7115          if(!(type_of((V746))==t_symbol)){          if(!(type_of((V767))==t_symbol)){
7116          goto T3329;}          goto T3329;}
7117          if(((V746))==Cnil){          if(((V767))==Cnil){
7118          goto T3332;}          goto T3332;}
7119          V754= (VV[44]->s.s_dbind);          V775= (VV[44]->s.s_dbind);
7120          goto T3313;          goto T3313;
7121          goto T3332;          goto T3332;
7122  T3332:;  T3332:;
7123          V754= (VV[45]->s.s_dbind);          V775= (VV[45]->s.s_dbind);
7124          goto T3313;          goto T3313;
7125          goto T3329;          goto T3329;
7126  T3329:;  T3329:;
7127          V754= (*(LnkLI257))((V746));          V775= (*(LnkLI257))((V767));
7128          goto T3313;          goto T3313;
7129  T3313:;  T3313:;
7130          {long V758;          {long V779;
7131          long V759;          long V780;
7132          {long V760;          {long V781;
7133          V760= fix(((V754))->v.v_self[V749]);          V781= fix(((V775))->v.v_self[V770]);
7134          if(!((V760)==0)){          if(!((V781)==0)){
7135          goto T3337;}          goto T3337;}
7136          goto T3307;          goto T3307;
7137          goto T3337;          goto T3337;
7138  T3337:;  T3337:;
7139          V758= (long)((V751) & (V760));}          V779= (long)((V772) & (V781));}
7140          {object V761;          {object V782;
7141          V761= ((V750))->v.v_self[0];          V782= ((V771))->v.v_self[0];
7142          if(type_of((V761))==t_fixnum){          if(type_of((V782))==t_fixnum){
7143          goto T3342;}          goto T3342;}
7144          base[3]= VV[46];          base[3]= VV[46];
7145          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 7126  T3337:; Line 7147  T3337:;
7147          vs_top=sup;          vs_top=sup;
7148          goto T3342;          goto T3342;
7149  T3342:;  T3342:;
7150          V759= fix((V761));}          V780= fix((V782));}
7151          {register long V762;          {register long V783;
7152          V762= V758;          V783= V779;
7153          goto T3349;          goto T3349;
7154  T3349:;  T3349:;
7155          if(!(((V754))==(((V750))->v.v_self[V762]))){          if(!(((V775))==(((V771))->v.v_self[V783]))){
7156          goto T3351;}          goto T3351;}
7157          V748= ((V750))->v.v_self[(long)(V762)+1];          V769= ((V771))->v.v_self[(long)(V783)+1];
7158          goto T3347;          goto T3347;
7159          goto T3351;          goto T3351;
7160  T3351:;  T3351:;
7161          V762= (long)(V762)+(2);          V783= (long)(V783)+(2);
7162          if(!((V762)==(V752))){          if(!((V783)==(V773))){
7163          goto T3358;}          goto T3358;}
7164          V762= 0;          V783= 0;
7165          goto T3358;          goto T3358;
7166  T3358:;  T3358:;
7167          if(!((V762)==(V758))){          if(!((V783)==(V779))){
7168          goto T3350;}          goto T3350;}
7169          {register object V763;          {register object V784;
7170          register object V764;          register object V785;
7171          V763= (V753);          V784= (V774);
7172          V764= CMPcar((V763));          V785= CMPcar((V784));
7173          goto T3368;          goto T3368;
7174  T3368:;  T3368:;
7175          if(!(((V763))==Cnil)){          if(!(((V784))==Cnil)){
7176          goto T3369;}          goto T3369;}
7177          goto T3364;          goto T3364;
7178          goto T3369;          goto T3369;
7179  T3369:;  T3369:;
7180          if(!((CMPcar((V764)))==((V754)))){          if(!((CMPcar((V785)))==((V775)))){
7181          goto T3373;}          goto T3373;}
7182          V748= CMPcdr((V764));          V769= CMPcdr((V785));
7183          goto T3347;          goto T3347;
7184          goto T3373;          goto T3373;
7185  T3373:;  T3373:;
7186          V763= CMPcdr((V763));          V784= CMPcdr((V784));
7187          V764= CMPcar((V763));          V785= CMPcar((V784));
7188          goto T3368;}          goto T3368;}
7189          goto T3364;          goto T3364;
7190  T3364:;  T3364:;
# Line 7173  T3350:; Line 7194  T3350:;
7194          goto T3349;          goto T3349;
7195          goto T3347;          goto T3347;
7196  T3347:;  T3347:;
7197          {object V766;          V786 = V780;
7198          V766= ((V750))->v.v_self[0];          {object V788;
7199          if(type_of((V766))==t_fixnum){          V788= ((V771))->v.v_self[0];
7200            if(type_of((V788))==t_fixnum){
7201          goto T3388;}          goto T3388;}
7202          base[3]= VV[46];          base[3]= VV[46];
7203          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 7183  T3347:; Line 7205  T3347:;
7205          vs_top=sup;          vs_top=sup;
7206          goto T3388;          goto T3388;
7207  T3388:;  T3388:;
7208          V765= fix((V766));}          V787= fix((V788));}
7209          if((V759)==(V765)){          if((V786)==(V787)){
7210          goto T3334;}          goto T3334;}
7211          goto T3307;}}          goto T3307;}}
7212          goto T3334;          goto T3334;
7213  T3334:;  T3334:;
7214          base[3]= (V748);          base[3]= (V769);
7215          base[4]= VV[2];          base[4]= VV[2];
7216          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7217          (void) (*Lnk258)();          (void) (*Lnk258)();
7218          vs_top=sup;          vs_top=sup;
7219          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7220          goto T3394;}          goto T3394;}
7221          base[3]= STREF(object,(V748),0);          base[3]= STREF(object,(V769),0);
7222          base[4]= STREF(object,(V748),4);          base[4]= STREF(object,(V769),4);
7223          base[5]= STREF(object,(V748),8);          base[5]= STREF(object,(V769),8);
7224          base[6]= (V745);          base[6]= (V766);
7225          base[7]= (V746);          base[7]= (V767);
7226          base[8]= (V747);          base[8]= (V768);
7227          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
7228          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7229                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7210  T3334:; Line 7232  T3334:;
7232          return;          return;
7233          goto T3394;          goto T3394;
7234  T3394:;  T3394:;
7235          base[3]= V748;          base[3]= V769;
7236          base[4]= VV[10];          base[4]= VV[10];
7237          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7238          (void) (*Lnk258)();          (void) (*Lnk258)();
7239          vs_top=sup;          vs_top=sup;
7240          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7241          goto T3405;}          goto T3405;}
7242          {object V768;          {object V790;
7243          object V769;          object V791;
7244          object V770;          object V792;
7245          V768= STREF(object,(V748),0);          V790= STREF(object,(V769),0);
7246          V769= list(3,(V745),(V746),(V747));          V791= list(3,(V766),(V767),(V768));
7247          V770= STREF(object,(V748),4);          V792= STREF(object,(V769),4);
7248          if(((V770))==Cnil){          if(((V792))==Cnil){
7249          goto T3413;}          goto T3413;}
7250          if((CMPcdr((V770)))!=Cnil){          if((CMPcdr((V792)))!=Cnil){
7251          goto T3413;}          goto T3413;}
7252          base[3]= (V769);          base[3]= (V791);
7253          base[4]= CMPcar((V770));          base[4]= CMPcar((V792));
7254          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7255          {object _funobj = (V768);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V790);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7256                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7257                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7258                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7259          return;          return;
7260          goto T3413;          goto T3413;
7261  T3413:;  T3413:;
7262          base[3]= (V768);          base[3]= (V790);
7263          base[4]= (V769);          base[4]= (V791);
7264          {object V771;          {object V793;
7265          V771= (V770);          V793= (V792);
7266           vs_top=base+5;           vs_top=base+5;
7267           while(V771!=Cnil)           while(V793!=Cnil)
7268           {vs_push((V771)->c.c_car);V771=(V771)->c.c_cdr;}           {vs_push((V793)->c.c_car);V793=(V793)->c.c_cdr;}
7269          vs_base=base+4;}          vs_base=base+4;}
7270          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7271                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7252  T3413:; Line 7274  T3413:;
7274          return;}          return;}
7275          goto T3405;          goto T3405;
7276  T3405:;  T3405:;
7277          base[3]= V748;          base[3]= V769;
7278          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7279          Lfunctionp();          Lfunctionp();
7280          vs_top=sup;          vs_top=sup;
7281          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7282          goto T3423;}          goto T3423;}
7283          base[3]= (V745);          base[3]= (V766);
7284          base[4]= (V746);          base[4]= (V767);
7285          base[5]= (V747);          base[5]= (V768);
7286          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7287          {object _funobj = (V748);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V769);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7288                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7289                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7290                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 7270  T3405:; Line 7292  T3405:;
7292          goto T3423;          goto T3423;
7293  T3423:;  T3423:;
7294          base[4]= VV[11];          base[4]= VV[11];
7295          base[5]= V748;          base[5]= V769;
7296          base[6]= VV[81];          base[6]= VV[81];
7297          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
7298          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 7281  T3423:; Line 7303  T3423:;
7303          return;}          return;}
7304          goto T3307;          goto T3307;
7305  T3307:;  T3307:;
7306          base[3]= (V745);          base[3]= (V766);
7307          base[4]= (V746);          base[4]= (V767);
7308          base[5]= (V747);          base[5]= (V768);
7309          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7310          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7311                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7318  register object *base0; Line 7340  register object *base0;
7340  {       register object *base=vs_base;  {       register object *base=vs_base;
7341          register object *sup=base+VM124; VC124          register object *sup=base+VM124; VC124
7342          vs_check;          vs_check;
7343          {object V772;          {object V794;
7344          object V773;          object V795;
7345          object V774;          object V796;
7346          object V775;          object V797;
7347          object V776;          object V798;
7348          if(vs_top-vs_base<4) too_few_arguments();          if(vs_top-vs_base<4) too_few_arguments();
7349          V772=(base[0]);          V794=(base[0]);
7350          V773=(base[1]);          V795=(base[1]);
7351          V774=(base[2]);          V796=(base[2]);
7352          V775=(base[3]);          V797=(base[3]);
7353          vs_base=vs_base+4;          vs_base=vs_base+4;
7354          vs_top[0]=Cnil;          vs_top[0]=Cnil;
7355          {object *p=vs_top;          {object *p=vs_top;
7356           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
7357          V776=(base[4]);          V798=(base[4]);
7358          vs_top=sup;          vs_top=sup;
7359          {register object V777;          {register object V799;
7360          V777= Cnil;          V799= Cnil;
7361          {long V778;          {long V800;
7362          register object V779;          register object V801;
7363          long V780;          long V802;
7364          long V781;          long V803;
7365          object V782;          object V804;
7366          register object V783;          register object V805;
7367          V778= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V800= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
7368          V779= STREF(object,(base0[1]->c.c_car),40);          V801= STREF(object,(base0[1]->c.c_car),40);
7369          V780= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V802= (long)STREF(fixnum,(base0[1]->c.c_car),24);
7370          V781= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V803= (long)STREF(fixnum,(base0[1]->c.c_car),28);
7371          V782= STREF(object,(base0[1]->c.c_car),44);          V804= STREF(object,(base0[1]->c.c_car),44);
7372          if(type_of(V772)==t_structure){          if(type_of(V794)==t_structure){
7373          goto T3448;}          goto T3448;}
7374          goto T3446;          goto T3446;
7375          goto T3448;          goto T3448;
7376  T3448:;  T3448:;
7377          if(!(((V772)->str.str_def)==(VV[77]))){          if(!(((V794)->str.str_def)==(VV[77]))){
7378          goto T3446;}          goto T3446;}
7379          V783= STREF(object,(V772),0);          V805= STREF(object,(V794),0);
7380          goto T3444;          goto T3444;
7381          goto T3446;          goto T3446;
7382  T3446:;{object V785;  T3446:;{object V807;
7383          V785= (VV[30]->s.s_dbind);          V807= (VV[30]->s.s_dbind);
7384          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
7385          base[6]= (V772);          base[6]= (V794);
7386          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7387          (void) (*Lnk253)();          (void) (*Lnk253)();
7388          vs_top=sup;          vs_top=sup;
7389          V786= vs_base[0];          V808= vs_base[0];
7390          if(!((V785)==(CMPcar(V786)))){          if(!((V807)==(CMPcar(V808)))){
7391          goto T3451;}}          goto T3451;}}
7392          V783= CMPcar(((V772))->cc.cc_turbo[13]);          V805= CMPcar(((V794))->cc.cc_turbo[13]);
7393          goto T3444;          goto T3444;
7394          goto T3451;          goto T3451;
7395  T3451:;  T3451:;
7396          if(!(type_of((V772))==t_structure)){          if(!(type_of((V794))==t_structure)){
7397          goto T3457;}          goto T3457;}
7398          V783= (*(LnkLI256))((V772));          V805= (*(LnkLI256))((V794));
7399          goto T3444;          goto T3444;
7400          goto T3457;          goto T3457;
7401  T3457:;  T3457:;
7402          if(!(type_of((V772))==t_symbol)){          if(!(type_of((V794))==t_symbol)){
7403          goto T3460;}          goto T3460;}
7404          if(((V772))==Cnil){          if(((V794))==Cnil){
7405          goto T3463;}          goto T3463;}
7406          V783= (VV[44]->s.s_dbind);          V805= (VV[44]->s.s_dbind);
7407          goto T3444;          goto T3444;
7408          goto T3463;          goto T3463;
7409  T3463:;  T3463:;
7410          V783= (VV[45]->s.s_dbind);          V805= (VV[45]->s.s_dbind);
7411          goto T3444;          goto T3444;
7412          goto T3460;          goto T3460;
7413  T3460:;  T3460:;
7414          V783= (*(LnkLI257))((V772));          V805= (*(LnkLI257))((V794));
7415          goto T3444;          goto T3444;
7416  T3444:;  T3444:;
7417          {long V787;          {long V809;
7418          long V788;          long V810;
7419          {long V789;          {long V811;
7420          V789= fix(((V783))->v.v_self[V778]);          V811= fix(((V805))->v.v_self[V800]);
7421          if(!((V789)==0)){          if(!((V811)==0)){
7422          goto T3468;}          goto T3468;}
7423          goto T3438;          goto T3438;
7424          goto T3468;          goto T3468;
7425  T3468:;  T3468:;
7426          V787= (long)((V780) & (V789));}          V809= (long)((V802) & (V811));}
7427          {object V790;          {object V812;
7428          V790= ((V779))->v.v_self[0];          V812= ((V801))->v.v_self[0];
7429          if(type_of((V790))==t_fixnum){          if(type_of((V812))==t_fixnum){
7430          goto T3473;}          goto T3473;}
7431          base[5]= VV[46];          base[5]= VV[46];
7432          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 7412  T3468:; Line 7434  T3468:;
7434          vs_top=sup;          vs_top=sup;
7435          goto T3473;          goto T3473;
7436  T3473:;  T3473:;
7437          V788= fix((V790));}          V810= fix((V812));}
7438          {register long V791;          {register long V813;
7439          V791= V787;          V813= V809;
7440          goto T3480;          goto T3480;
7441  T3480:;  T3480:;
7442          if(!(((V783))==(((V779))->v.v_self[V791]))){          if(!(((V805))==(((V801))->v.v_self[V813]))){
7443          goto T3482;}          goto T3482;}
7444          V777= ((V779))->v.v_self[(long)(V791)+1];          V799= ((V801))->v.v_self[(long)(V813)+1];
7445          goto T3478;          goto T3478;
7446          goto T3482;          goto T3482;
7447  T3482:;  T3482:;
7448          V791= (long)(V791)+(2);          V813= (long)(V813)+(2);
7449          if(!((V791)==(V781))){          if(!((V813)==(V803))){
7450          goto T3489;}          goto T3489;}
7451          V791= 0;          V813= 0;
7452          goto T3489;          goto T3489;
7453  T3489:;  T3489:;
7454          if(!((V791)==(V787))){          if(!((V813)==(V809))){
7455          goto T3481;}          goto T3481;}
7456          {register object V792;          {register object V814;
7457          register object V793;          register object V815;
7458          V792= (V782);          V814= (V804);
7459          V793= CMPcar((V792));          V815= CMPcar((V814));
7460          goto T3499;          goto T3499;
7461  T3499:;  T3499:;
7462          if(!(((V792))==Cnil)){          if(!(((V814))==Cnil)){
7463          goto T3500;}          goto T3500;}
7464          goto T3495;          goto T3495;
7465          goto T3500;          goto T3500;
7466  T3500:;  T3500:;
7467          if(!((CMPcar((V793)))==((V783)))){          if(!((CMPcar((V815)))==((V805)))){
7468          goto T3504;}          goto T3504;}
7469          V777= CMPcdr((V793));          V799= CMPcdr((V815));
7470          goto T3478;          goto T3478;
7471          goto T3504;          goto T3504;
7472  T3504:;  T3504:;
7473          V792= CMPcdr((V792));          V814= CMPcdr((V814));
7474          V793= CMPcar((V792));          V815= CMPcar((V814));
7475          goto T3499;}          goto T3499;}
7476          goto T3495;          goto T3495;
7477  T3495:;  T3495:;
# Line 7459  T3481:; Line 7481  T3481:;
7481          goto T3480;          goto T3480;
7482          goto T3478;          goto T3478;
7483  T3478:;  T3478:;
7484          {object V795;          V816 = V810;
7485          V795= ((V779))->v.v_self[0];          {object V818;
7486          if(type_of((V795))==t_fixnum){          V818= ((V801))->v.v_self[0];
7487            if(type_of((V818))==t_fixnum){
7488          goto T3519;}          goto T3519;}
7489          base[5]= VV[46];          base[5]= VV[46];
7490          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 7469  T3478:; Line 7492  T3478:;
7492          vs_top=sup;          vs_top=sup;
7493          goto T3519;          goto T3519;
7494  T3519:;  T3519:;
7495          V794= fix((V795));}          V817= fix((V818));}
7496          if((V788)==(V794)){          if((V816)==(V817)){
7497          goto T3465;}          goto T3465;}
7498          goto T3438;}}          goto T3438;}}
7499          goto T3465;          goto T3465;
7500  T3465:;  T3465:;
7501          base[5]= (V777);          base[5]= (V799);
7502          base[6]= VV[2];          base[6]= VV[2];
7503          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7504          (void) (*Lnk258)();          (void) (*Lnk258)();
7505          vs_top=sup;          vs_top=sup;
7506          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7507          goto T3525;}          goto T3525;}
7508          base[5]= STREF(object,(V777),0);          base[5]= STREF(object,(V799),0);
7509          base[6]= STREF(object,(V777),4);          base[6]= STREF(object,(V799),4);
7510          base[7]= STREF(object,(V777),8);          base[7]= STREF(object,(V799),8);
7511          base[8]= (V772);          base[8]= (V794);
7512          base[9]= (V773);          base[9]= (V795);
7513          base[10]= (V774);          base[10]= (V796);
7514          base[11]= (V775);          base[11]= (V797);
7515          base[12]= (V776);          base[12]= (V798);
7516          vs_top=(vs_base=base+6)+7;          vs_top=(vs_base=base+6)+7;
7517          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7518                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7498  T3465:; Line 7521  T3465:;
7521          return;          return;
7522          goto T3525;          goto T3525;
7523  T3525:;  T3525:;
7524          base[5]= V777;          base[5]= V799;
7525          base[6]= VV[10];          base[6]= VV[10];
7526          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7527          (void) (*Lnk258)();          (void) (*Lnk258)();
7528          vs_top=sup;          vs_top=sup;
7529          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7530          goto T3538;}          goto T3538;}
7531          {object V797;          {object V820;
7532          object V798;          object V821;
7533          object V799;          object V822;
7534          V797= STREF(object,(V777),0);          V820= STREF(object,(V799),0);
7535          V798= listA(5,(V772),(V773),(V774),(V775),(V776));          V821= listA(5,(V794),(V795),(V796),(V797),(V798));
7536          V799= STREF(object,(V777),4);          V822= STREF(object,(V799),4);
7537          if(((V799))==Cnil){          if(((V822))==Cnil){
7538          goto T3546;}          goto T3546;}
7539          if((CMPcdr((V799)))!=Cnil){          if((CMPcdr((V822)))!=Cnil){
7540          goto T3546;}          goto T3546;}
7541          base[5]= (V798);          base[5]= (V821);
7542          base[6]= CMPcar((V799));          base[6]= CMPcar((V822));
7543          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7544          {object _funobj = (V797);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V820);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7545                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7546                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7547                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7548          return;          return;
7549          goto T3546;          goto T3546;
7550  T3546:;  T3546:;
7551          base[5]= (V797);          base[5]= (V820);
7552          base[6]= (V798);          base[6]= (V821);
7553          {object V800;          {object V823;
7554          V800= (V799);          V823= (V822);
7555           vs_top=base+7;           vs_top=base+7;
7556           while(V800!=Cnil)           while(V823!=Cnil)
7557           {vs_push((V800)->c.c_car);V800=(V800)->c.c_cdr;}           {vs_push((V823)->c.c_car);V823=(V823)->c.c_cdr;}
7558          vs_base=base+6;}          vs_base=base+6;}
7559          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7560                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7540  T3546:; Line 7563  T3546:;
7563          return;}          return;}
7564          goto T3538;          goto T3538;
7565  T3538:;  T3538:;
7566          base[5]= V777;          base[5]= V799;
7567          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7568          Lfunctionp();          Lfunctionp();
7569          vs_top=sup;          vs_top=sup;
7570          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7571          goto T3556;}          goto T3556;}
7572          base[5]= (V777);          base[5]= (V799);
7573          base[6]= (V772);          base[6]= (V794);
7574          base[7]= (V773);          base[7]= (V795);
7575          base[8]= (V774);          base[8]= (V796);
7576          base[9]= (V775);          base[9]= (V797);
7577          {object V801;          {object V824;
7578          V801= (V776);          V824= (V798);
7579           vs_top=base+10;           vs_top=base+10;
7580           while(V801!=Cnil)           while(V824!=Cnil)
7581           {vs_push((V801)->c.c_car);V801=(V801)->c.c_cdr;}           {vs_push((V824)->c.c_car);V824=(V824)->c.c_cdr;}
7582          vs_base=base+6;}          vs_base=base+6;}
7583          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7584                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7565  T3538:; Line 7588  T3538:;
7588          goto T3556;          goto T3556;
7589  T3556:;  T3556:;
7590          base[6]= VV[11];          base[6]= VV[11];
7591          base[7]= V777;          base[7]= V799;
7592          base[8]= VV[78];          base[8]= VV[78];
7593          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
7594          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 7577  T3556:; Line 7600  T3556:;
7600          goto T3438;          goto T3438;
7601  T3438:;  T3438:;
7602          base[5]= (base0[0]->c.c_car);          base[5]= (base0[0]->c.c_car);
7603          base[6]= (V772);          base[6]= (V794);
7604          base[7]= (V773);          base[7]= (V795);
7605          base[8]= (V774);          base[8]= (V796);
7606          base[9]= (V775);          base[9]= (V797);
7607          {object V802;          {object V825;
7608          V802= (V776);          V825= (V798);
7609           vs_top=base+10;           vs_top=base+10;
7610           while(V802!=Cnil)           while(V825!=Cnil)
7611           {vs_push((V802)->c.c_car);V802=(V802)->c.c_cdr;}           {vs_push((V825)->c.c_car);V825=(V825)->c.c_cdr;}
7612          vs_base=base+6;}          vs_base=base+6;}
7613          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7614                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7620  register object *base0; Line 7643  register object *base0;
7643  {       register object *base=vs_base;  {       register object *base=vs_base;
7644          register object *sup=base+VM126; VC126          register object *sup=base+VM126; VC126
7645          vs_check;          vs_check;
7646          {object V803;          {object V826;
7647          object V804;          object V827;
7648          object V805;          object V828;
7649          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
7650          V803=(base[0]);          V826=(base[0]);
7651          V804=(base[1]);          V827=(base[1]);
7652          vs_base=vs_base+2;          vs_base=vs_base+2;
7653          vs_top[0]=Cnil;          vs_top[0]=Cnil;
7654          {object *p=vs_top;          {object *p=vs_top;
7655           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
7656          V805=(base[2]);          V828=(base[2]);
7657          vs_top=sup;          vs_top=sup;
7658          {object V806;          {object V829;
7659          V806= Cnil;          V829= Cnil;
7660          {long V807;          {long V830;
7661          object V808;          object V831;
7662          long V809;          long V832;
7663          long V810;          long V833;
7664          object V811;          object V834;
7665          object V812;          object V835;
7666          object V813;          object V836;
7667          V807= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V830= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
7668          V808= STREF(object,(base0[1]->c.c_car),40);          V831= STREF(object,(base0[1]->c.c_car),40);
7669          V809= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V832= (long)STREF(fixnum,(base0[1]->c.c_car),24);
7670          V810= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V833= (long)STREF(fixnum,(base0[1]->c.c_car),28);
7671          V811= STREF(object,(base0[1]->c.c_car),44);          V834= STREF(object,(base0[1]->c.c_car),44);
7672          if(type_of(V803)==t_structure){          if(type_of(V826)==t_structure){
7673          goto T3587;}          goto T3587;}
7674          goto T3585;          goto T3585;
7675          goto T3587;          goto T3587;
7676  T3587:;  T3587:;
7677          if(!(((V803)->str.str_def)==(VV[73]))){          if(!(((V826)->str.str_def)==(VV[73]))){
7678          goto T3585;}          goto T3585;}
7679          V812= STREF(object,(V803),0);          V835= STREF(object,(V826),0);
7680          goto T3583;          goto T3583;
7681          goto T3585;          goto T3585;
7682  T3585:;{object V815;  T3585:;{object V838;
7683          V815= (VV[30]->s.s_dbind);          V838= (VV[30]->s.s_dbind);
7684          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
7685          base[4]= (V803);          base[4]= (V826);
7686          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7687          (void) (*Lnk253)();          (void) (*Lnk253)();
7688          vs_top=sup;          vs_top=sup;
7689          V816= vs_base[0];          V839= vs_base[0];
7690          if(!((V815)==(CMPcar(V816)))){          if(!((V838)==(CMPcar(V839)))){
7691          goto T3590;}}          goto T3590;}}
7692          V812= CMPcar(((V803))->cc.cc_turbo[13]);          V835= CMPcar(((V826))->cc.cc_turbo[13]);
7693          goto T3583;          goto T3583;
7694          goto T3590;          goto T3590;
7695  T3590:;  T3590:;
7696          if(!(type_of((V803))==t_structure)){          if(!(type_of((V826))==t_structure)){
7697          goto T3596;}          goto T3596;}
7698          V812= (*(LnkLI256))((V803));          V835= (*(LnkLI256))((V826));
7699          goto T3583;          goto T3583;
7700          goto T3596;          goto T3596;
7701  T3596:;  T3596:;
7702          if(!(type_of((V803))==t_symbol)){          if(!(type_of((V826))==t_symbol)){
7703          goto T3599;}          goto T3599;}
7704          if(((V803))==Cnil){          if(((V826))==Cnil){
7705          goto T3602;}          goto T3602;}
7706          V812= (VV[44]->s.s_dbind);          V835= (VV[44]->s.s_dbind);
7707          goto T3583;          goto T3583;
7708          goto T3602;          goto T3602;
7709  T3602:;  T3602:;
7710          V812= (VV[45]->s.s_dbind);          V835= (VV[45]->s.s_dbind);
7711          goto T3583;          goto T3583;
7712          goto T3599;          goto T3599;
7713  T3599:;  T3599:;
7714          V812= (*(LnkLI257))((V803));          V835= (*(LnkLI257))((V826));
7715          goto T3583;          goto T3583;
7716  T3583:;  T3583:;
7717          if(type_of(V804)==t_structure){          if(type_of(V827)==t_structure){
7718          goto T3608;}          goto T3608;}
7719          goto T3606;          goto T3606;
7720          goto T3608;          goto T3608;
7721  T3608:;  T3608:;
7722          if(!(((V804)->str.str_def)==(VV[74]))){          if(!(((V827)->str.str_def)==(VV[74]))){
7723          goto T3606;}          goto T3606;}
7724          V813= STREF(object,(V804),0);          V836= STREF(object,(V827),0);
7725          goto T3604;          goto T3604;
7726          goto T3606;          goto T3606;
7727  T3606:;{object V818;  T3606:;{object V841;
7728          V818= (VV[30]->s.s_dbind);          V841= (VV[30]->s.s_dbind);
7729          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
7730          base[4]= (V804);          base[4]= (V827);
7731          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7732          (void) (*Lnk253)();          (void) (*Lnk253)();
7733          vs_top=sup;          vs_top=sup;
7734          V819= vs_base[0];          V842= vs_base[0];
7735          if(!((V818)==(CMPcar(V819)))){          if(!((V841)==(CMPcar(V842)))){
7736          goto T3611;}}          goto T3611;}}
7737          V813= CMPcar(((V804))->cc.cc_turbo[13]);          V836= CMPcar(((V827))->cc.cc_turbo[13]);
7738          goto T3604;          goto T3604;
7739          goto T3611;          goto T3611;
7740  T3611:;  T3611:;
7741          if(!(type_of((V804))==t_structure)){          if(!(type_of((V827))==t_structure)){
7742          goto T3617;}          goto T3617;}
7743          V813= (*(LnkLI256))((V804));          V836= (*(LnkLI256))((V827));
7744          goto T3604;          goto T3604;
7745          goto T3617;          goto T3617;
7746  T3617:;  T3617:;
7747          if(!(type_of((V804))==t_symbol)){          if(!(type_of((V827))==t_symbol)){
7748          goto T3620;}          goto T3620;}
7749          if(((V804))==Cnil){          if(((V827))==Cnil){
7750          goto T3623;}          goto T3623;}
7751          V813= (VV[44]->s.s_dbind);          V836= (VV[44]->s.s_dbind);
7752          goto T3604;          goto T3604;
7753          goto T3623;          goto T3623;
7754  T3623:;  T3623:;
7755          V813= (VV[45]->s.s_dbind);          V836= (VV[45]->s.s_dbind);
7756          goto T3604;          goto T3604;
7757          goto T3620;          goto T3620;
7758  T3620:;  T3620:;
7759          V813= (*(LnkLI257))((V804));          V836= (*(LnkLI257))((V827));
7760          goto T3604;          goto T3604;
7761  T3604:;  T3604:;
7762          {long V820;          {long V843;
7763          long V821;          long V844;
7764          V820= 0;          V843= 0;
7765          V821= (long)(V810)-(1);          V844= (long)(V833)-(1);
7766          {long V822;          {long V845;
7767          V822= fix(((V812))->v.v_self[V807]);          V845= fix(((V835))->v.v_self[V830]);
7768          if(!((V822)==0)){          if(!((V845)==0)){
7769          goto T3631;}          goto T3631;}
7770          goto T3577;          goto T3577;
7771          goto T3631;          goto T3631;
7772  T3631:;  T3631:;
7773          V820= (long)(V820)+(V822);}          V843= (long)(V843)+(V845);}
7774          {long V823;          {long V846;
7775          V823= fix(((V813))->v.v_self[V807]);          V846= fix(((V836))->v.v_self[V830]);
7776          if(!((V823)==0)){          if(!((V846)==0)){
7777          goto T3636;}          goto T3636;}
7778          goto T3577;          goto T3577;
7779          goto T3636;          goto T3636;
7780  T3636:;  T3636:;
7781          V820= (long)(V820)+(V823);          V843= (long)(V843)+(V846);
7782          V820= (long)((V820) & (V809));}          V843= (long)((V843) & (V832));}
7783          {long V824;          {long V847;
7784          {object V825;          {object V848;
7785          V825= ((V808))->v.v_self[0];          V848= ((V831))->v.v_self[0];
7786          if(type_of((V825))==t_fixnum){          if(type_of((V848))==t_fixnum){
7787          goto T3644;}          goto T3644;}
7788          base[3]= VV[46];          base[3]= VV[46];
7789          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 7768  T3636:; Line 7791  T3636:;
7791          vs_top=sup;          vs_top=sup;
7792          goto T3644;          goto T3644;
7793  T3644:;  T3644:;
7794          V824= fix((V825));}          V847= fix((V848));}
7795          {register long V826;          {register long V849;
7796          long V827;          long V850;
7797          V826= V820;          V849= V843;
7798          V827= 0;          V850= 0;
7799          goto T3652;          goto T3652;
7800  T3652:;  T3652:;
7801          V827= (long)(V826)+(4);          V850= (long)(V849)+(4);
7802          V826= (long)(V826)+(1);          V851 = (V831);
7803          if(!(((V812))==(((V808))->v.v_self[V826]))){          V849= (long)(V849)+(1);
7804            V852 = V849;
7805            if(!(((V835))==((V851)->v.v_self[V852]))){
7806          goto T3656;}          goto T3656;}
7807          V826= (long)(V826)+(1);          V853 = (V831);
7808          if(!(((V813))==(((V808))->v.v_self[V826]))){          V849= (long)(V849)+(1);
7809            V854 = V849;
7810            if(!(((V836))==((V853)->v.v_self[V854]))){
7811          goto T3656;}          goto T3656;}
7812          V826= (long)(V826)+(1);          V849= (long)(V849)+(1);
7813          V806= ((V808))->v.v_self[V826];          V829= ((V831))->v.v_self[V849];
7814          goto T3650;          goto T3650;
7815          goto T3656;          goto T3656;
7816  T3656:;  T3656:;
7817          V826= V827;          V849= V850;
7818          if(!((V826)==(V821))){          if(!((V849)==(V844))){
7819          goto T3669;}          goto T3669;}
7820          V826= 0;          V849= 0;
7821          goto T3669;          goto T3669;
7822  T3669:;  T3669:;
7823          if(!((V826)==(V820))){          if(!((V849)==(V843))){
7824          goto T3653;}          goto T3653;}
7825          {register object V828;          {register object V855;
7826          register object V829;          register object V856;
7827          V828= (V811);          V855= (V834);
7828          V829= CMPcar((V828));          V856= CMPcar((V855));
7829          goto T3679;          goto T3679;
7830  T3679:;  T3679:;
7831          if(!(((V828))==Cnil)){          if(!(((V855))==Cnil)){
7832          goto T3680;}          goto T3680;}
7833          goto T3675;          goto T3675;
7834          goto T3680;          goto T3680;
7835  T3680:;  T3680:;
7836          {register object V830;          {register object V857;
7837          V830= CMPcar((V829));          V857= CMPcar((V856));
7838          {register object V832;          V858 = (V835);
7839          V832= CMPcar((V830));          {register object V860;
7840          V830= CMPcdr((V830));          V860= CMPcar((V857));
7841          V831= (V832);}          V857= CMPcdr((V857));
7842          if(!(((V812))==(V831))){          V859= (V860);}
7843            if(!((V858)==(V859))){
7844          goto T3684;}          goto T3684;}
7845          {register object V834;          V861 = (V836);
7846          V834= CMPcar((V830));          {register object V863;
7847          V830= CMPcdr((V830));          V863= CMPcar((V857));
7848          V833= (V834);}          V857= CMPcdr((V857));
7849          if(!(((V813))==(V833))){          V862= (V863);}
7850            if(!((V861)==(V862))){
7851          goto T3684;}          goto T3684;}
7852          V806= CMPcdr((V829));          V829= CMPcdr((V856));
7853          goto T3650;}          goto T3650;}
7854          goto T3684;          goto T3684;
7855  T3684:;  T3684:;
7856          V828= CMPcdr((V828));          V855= CMPcdr((V855));
7857          V829= CMPcar((V828));          V856= CMPcar((V855));
7858          goto T3679;}          goto T3679;}
7859          goto T3675;          goto T3675;
7860  T3675:;  T3675:;
# Line 7835  T3653:; Line 7864  T3653:;
7864          goto T3652;          goto T3652;
7865          goto T3650;          goto T3650;
7866  T3650:;  T3650:;
7867          {object V836;          V864 = V847;
7868          V836= ((V808))->v.v_self[0];          {object V866;
7869          if(type_of((V836))==t_fixnum){          V866= ((V831))->v.v_self[0];
7870            if(type_of((V866))==t_fixnum){
7871          goto T3710;}          goto T3710;}
7872          base[3]= VV[46];          base[3]= VV[46];
7873          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 7845  T3650:; Line 7875  T3650:;
7875          vs_top=sup;          vs_top=sup;
7876          goto T3710;          goto T3710;
7877  T3710:;  T3710:;
7878          V835= fix((V836));}          V865= fix((V866));}
7879          if((V824)==(V835)){          if((V864)==(V865)){
7880          goto T3625;}          goto T3625;}
7881          goto T3577;}}}          goto T3577;}}}
7882          goto T3625;          goto T3625;
7883  T3625:;  T3625:;
7884          base[3]= (V806);          base[3]= (V829);
7885          base[4]= VV[2];          base[4]= VV[2];
7886          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7887          (void) (*Lnk258)();          (void) (*Lnk258)();
7888          vs_top=sup;          vs_top=sup;
7889          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7890          goto T3716;}          goto T3716;}
7891          base[3]= STREF(object,(V806),0);          base[3]= STREF(object,(V829),0);
7892          base[4]= STREF(object,(V806),4);          base[4]= STREF(object,(V829),4);
7893          base[5]= STREF(object,(V806),8);          base[5]= STREF(object,(V829),8);
7894          base[6]= (V803);          base[6]= (V826);
7895          base[7]= (V804);          base[7]= (V827);
7896          base[8]= (V805);          base[8]= (V828);
7897          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
7898          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7899                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7872  T3625:; Line 7902  T3625:;
7902          return;          return;
7903          goto T3716;          goto T3716;
7904  T3716:;  T3716:;
7905          base[3]= V806;          base[3]= V829;
7906          base[4]= VV[10];          base[4]= VV[10];
7907          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7908          (void) (*Lnk258)();          (void) (*Lnk258)();
7909          vs_top=sup;          vs_top=sup;
7910          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7911          goto T3727;}          goto T3727;}
7912          {object V838;          {object V868;
7913          object V839;          object V869;
7914          object V840;          object V870;
7915          V838= STREF(object,(V806),0);          V868= STREF(object,(V829),0);
7916          V839= listA(3,(V803),(V804),(V805));          V869= listA(3,(V826),(V827),(V828));
7917          V840= STREF(object,(V806),4);          V870= STREF(object,(V829),4);
7918          if(((V840))==Cnil){          if(((V870))==Cnil){
7919          goto T3735;}          goto T3735;}
7920          if((CMPcdr((V840)))!=Cnil){          if((CMPcdr((V870)))!=Cnil){
7921          goto T3735;}          goto T3735;}
7922          base[3]= (V839);          base[3]= (V869);
7923          base[4]= CMPcar((V840));          base[4]= CMPcar((V870));
7924          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7925          {object _funobj = (V838);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V868);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7926                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7927                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7928                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7929          return;          return;
7930          goto T3735;          goto T3735;
7931  T3735:;  T3735:;
7932          base[3]= (V838);          base[3]= (V868);
7933          base[4]= (V839);          base[4]= (V869);
7934          {object V841;          {object V871;
7935          V841= (V840);          V871= (V870);
7936           vs_top=base+5;           vs_top=base+5;
7937           while(V841!=Cnil)           while(V871!=Cnil)
7938           {vs_push((V841)->c.c_car);V841=(V841)->c.c_cdr;}           {vs_push((V871)->c.c_car);V871=(V871)->c.c_cdr;}
7939          vs_base=base+4;}          vs_base=base+4;}
7940          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7941                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7914  T3735:; Line 7944  T3735:;
7944          return;}          return;}
7945          goto T3727;          goto T3727;
7946  T3727:;  T3727:;
7947          base[3]= V806;          base[3]= V829;
7948          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7949          Lfunctionp();          Lfunctionp();
7950          vs_top=sup;          vs_top=sup;
7951          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7952          goto T3745;}          goto T3745;}
7953          base[3]= (V806);          base[3]= (V829);
7954          base[4]= (V803);          base[4]= (V826);
7955          base[5]= (V804);          base[5]= (V827);
7956          {object V842;          {object V872;
7957          V842= (V805);          V872= (V828);
7958           vs_top=base+6;           vs_top=base+6;
7959           while(V842!=Cnil)           while(V872!=Cnil)
7960           {vs_push((V842)->c.c_car);V842=(V842)->c.c_cdr;}           {vs_push((V872)->c.c_car);V872=(V872)->c.c_cdr;}
7961          vs_base=base+4;}          vs_base=base+4;}
7962          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7963                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7937  T3727:; Line 7967  T3727:;
7967          goto T3745;          goto T3745;
7968  T3745:;  T3745:;
7969          base[4]= VV[11];          base[4]= VV[11];
7970          base[5]= V806;          base[5]= V829;
7971          base[6]= VV[75];          base[6]= VV[75];
7972          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
7973          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 7949  T3745:; Line 7979  T3745:;
7979          goto T3577;          goto T3577;
7980  T3577:;  T3577:;
7981          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
7982          base[4]= (V803);          base[4]= (V826);
7983          base[5]= (V804);          base[5]= (V827);
7984          {object V843;          {object V873;
7985          V843= (V805);          V873= (V828);
7986           vs_top=base+6;           vs_top=base+6;
7987           while(V843!=Cnil)           while(V873!=Cnil)
7988           {vs_push((V843)->c.c_car);V843=(V843)->c.c_cdr;}           {vs_push((V873)->c.c_car);V873=(V873)->c.c_cdr;}
7989          vs_base=base+4;}          vs_base=base+4;}
7990          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7991                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7990  register object *base0; Line 8020  register object *base0;
8020  {       register object *base=vs_base;  {       register object *base=vs_base;
8021          register object *sup=base+VM128; VC128          register object *sup=base+VM128; VC128
8022          vs_check;          vs_check;
8023          {object V844;          {object V874;
8024          object V845;          object V875;
8025          object V846;          object V876;
8026          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
8027          V844=(base[0]);          V874=(base[0]);
8028          V845=(base[1]);          V875=(base[1]);
8029          vs_base=vs_base+2;          vs_base=vs_base+2;
8030          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8031          {object *p=vs_top;          {object *p=vs_top;
8032           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8033          V846=(base[2]);          V876=(base[2]);
8034          vs_top=sup;          vs_top=sup;
8035          {register object V847;          {register object V877;
8036          V847= Cnil;          V877= Cnil;
8037          {long V848;          {long V878;
8038          register object V849;          register object V879;
8039          long V850;          long V880;
8040          long V851;          long V881;
8041          object V852;          object V882;
8042          register object V853;          register object V883;
8043          V848= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V878= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
8044          V849= STREF(object,(base0[1]->c.c_car),40);          V879= STREF(object,(base0[1]->c.c_car),40);
8045          V850= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V880= (long)STREF(fixnum,(base0[1]->c.c_car),24);
8046          V851= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V881= (long)STREF(fixnum,(base0[1]->c.c_car),28);
8047          V852= STREF(object,(base0[1]->c.c_car),44);          V882= STREF(object,(base0[1]->c.c_car),44);
8048          if(type_of(V845)==t_structure){          if(type_of(V875)==t_structure){
8049          goto T3772;}          goto T3772;}
8050          goto T3770;          goto T3770;
8051          goto T3772;          goto T3772;
8052  T3772:;  T3772:;
8053          if(!(((V845)->str.str_def)==(VV[70]))){          if(!(((V875)->str.str_def)==(VV[70]))){
8054          goto T3770;}          goto T3770;}
8055          V853= STREF(object,(V845),0);          V883= STREF(object,(V875),0);
8056          goto T3768;          goto T3768;
8057          goto T3770;          goto T3770;
8058  T3770:;{object V855;  T3770:;{object V885;
8059          V855= (VV[30]->s.s_dbind);          V885= (VV[30]->s.s_dbind);
8060          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
8061          base[4]= (V845);          base[4]= (V875);
8062          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8063          (void) (*Lnk253)();          (void) (*Lnk253)();
8064          vs_top=sup;          vs_top=sup;
8065          V856= vs_base[0];          V886= vs_base[0];
8066          if(!((V855)==(CMPcar(V856)))){          if(!((V885)==(CMPcar(V886)))){
8067          goto T3775;}}          goto T3775;}}
8068          V853= CMPcar(((V845))->cc.cc_turbo[13]);          V883= CMPcar(((V875))->cc.cc_turbo[13]);
8069          goto T3768;          goto T3768;
8070          goto T3775;          goto T3775;
8071  T3775:;  T3775:;
8072          if(!(type_of((V845))==t_structure)){          if(!(type_of((V875))==t_structure)){
8073          goto T3781;}          goto T3781;}
8074          V853= (*(LnkLI256))((V845));          V883= (*(LnkLI256))((V875));
8075          goto T3768;          goto T3768;
8076          goto T3781;          goto T3781;
8077  T3781:;  T3781:;
8078          if(!(type_of((V845))==t_symbol)){          if(!(type_of((V875))==t_symbol)){
8079          goto T3784;}          goto T3784;}
8080          if(((V845))==Cnil){          if(((V875))==Cnil){
8081          goto T3787;}          goto T3787;}
8082          V853= (VV[44]->s.s_dbind);          V883= (VV[44]->s.s_dbind);
8083          goto T3768;          goto T3768;
8084          goto T3787;          goto T3787;
8085  T3787:;  T3787:;
8086          V853= (VV[45]->s.s_dbind);          V883= (VV[45]->s.s_dbind);
8087          goto T3768;          goto T3768;
8088          goto T3784;          goto T3784;
8089  T3784:;  T3784:;
8090          V853= (*(LnkLI257))((V845));          V883= (*(LnkLI257))((V875));
8091          goto T3768;          goto T3768;
8092  T3768:;  T3768:;
8093          {long V857;          {long V887;
8094          long V858;          long V888;
8095          {long V859;          {long V889;
8096          V859= fix(((V853))->v.v_self[V848]);          V889= fix(((V883))->v.v_self[V878]);
8097          if(!((V859)==0)){          if(!((V889)==0)){
8098          goto T3792;}          goto T3792;}
8099          goto T3762;          goto T3762;
8100          goto T3792;          goto T3792;
8101  T3792:;  T3792:;
8102          V857= (long)((V850) & (V859));}          V887= (long)((V880) & (V889));}
8103          {object V860;          {object V890;
8104          V860= ((V849))->v.v_self[0];          V890= ((V879))->v.v_self[0];
8105          if(type_of((V860))==t_fixnum){          if(type_of((V890))==t_fixnum){
8106          goto T3797;}          goto T3797;}
8107          base[3]= VV[46];          base[3]= VV[46];
8108          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 8080  T3792:; Line 8110  T3792:;
8110          vs_top=sup;          vs_top=sup;
8111          goto T3797;          goto T3797;
8112  T3797:;  T3797:;
8113          V858= fix((V860));}          V888= fix((V890));}
8114          {register long V861;          {register long V891;
8115          V861= V857;          V891= V887;
8116          goto T3804;          goto T3804;
8117  T3804:;  T3804:;
8118          if(!(((V853))==(((V849))->v.v_self[V861]))){          if(!(((V883))==(((V879))->v.v_self[V891]))){
8119          goto T3806;}          goto T3806;}
8120          V847= ((V849))->v.v_self[(long)(V861)+1];          V877= ((V879))->v.v_self[(long)(V891)+1];
8121          goto T3802;          goto T3802;
8122          goto T3806;          goto T3806;
8123  T3806:;  T3806:;
8124          V861= (long)(V861)+(2);          V891= (long)(V891)+(2);
8125          if(!((V861)==(V851))){          if(!((V891)==(V881))){
8126          goto T3813;}          goto T3813;}
8127          V861= 0;          V891= 0;
8128          goto T3813;          goto T3813;
8129  T3813:;  T3813:;
8130          if(!((V861)==(V857))){          if(!((V891)==(V887))){
8131          goto T3805;}          goto T3805;}
8132          {register object V862;          {register object V892;
8133          register object V863;          register object V893;
8134          V862= (V852);          V892= (V882);
8135          V863= CMPcar((V862));          V893= CMPcar((V892));
8136          goto T3823;          goto T3823;
8137  T3823:;  T3823:;
8138          if(!(((V862))==Cnil)){          if(!(((V892))==Cnil)){
8139          goto T3824;}          goto T3824;}
8140          goto T3819;          goto T3819;
8141          goto T3824;          goto T3824;
8142  T3824:;  T3824:;
8143          if(!((CMPcar((V863)))==((V853)))){          if(!((CMPcar((V893)))==((V883)))){
8144          goto T3828;}          goto T3828;}
8145          V847= CMPcdr((V863));          V877= CMPcdr((V893));
8146          goto T3802;          goto T3802;
8147          goto T3828;          goto T3828;
8148  T3828:;  T3828:;
8149          V862= CMPcdr((V862));          V892= CMPcdr((V892));
8150          V863= CMPcar((V862));          V893= CMPcar((V892));
8151          goto T3823;}          goto T3823;}
8152          goto T3819;          goto T3819;
8153  T3819:;  T3819:;
# Line 8127  T3805:; Line 8157  T3805:;
8157          goto T3804;          goto T3804;
8158          goto T3802;          goto T3802;
8159  T3802:;  T3802:;
8160          {object V865;          V894 = V888;
8161          V865= ((V849))->v.v_self[0];          {object V896;
8162          if(type_of((V865))==t_fixnum){          V896= ((V879))->v.v_self[0];
8163            if(type_of((V896))==t_fixnum){
8164          goto T3843;}          goto T3843;}
8165          base[3]= VV[46];          base[3]= VV[46];
8166          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 8137  T3802:; Line 8168  T3802:;
8168          vs_top=sup;          vs_top=sup;
8169          goto T3843;          goto T3843;
8170  T3843:;  T3843:;
8171          V864= fix((V865));}          V895= fix((V896));}
8172          if((V858)==(V864)){          if((V894)==(V895)){
8173          goto T3789;}          goto T3789;}
8174          goto T3762;}}          goto T3762;}}
8175          goto T3789;          goto T3789;
8176  T3789:;  T3789:;
8177          base[3]= (V847);          base[3]= (V877);
8178          base[4]= VV[2];          base[4]= VV[2];
8179          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8180          (void) (*Lnk258)();          (void) (*Lnk258)();
8181          vs_top=sup;          vs_top=sup;
8182          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8183          goto T3849;}          goto T3849;}
8184          base[3]= STREF(object,(V847),0);          base[3]= STREF(object,(V877),0);
8185          base[4]= STREF(object,(V847),4);          base[4]= STREF(object,(V877),4);
8186          base[5]= STREF(object,(V847),8);          base[5]= STREF(object,(V877),8);
8187          base[6]= (V844);          base[6]= (V874);
8188          base[7]= (V845);          base[7]= (V875);
8189          base[8]= (V846);          base[8]= (V876);
8190          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
8191          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8192                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8164  T3789:; Line 8195  T3789:;
8195          return;          return;
8196          goto T3849;          goto T3849;
8197  T3849:;  T3849:;
8198          base[3]= V847;          base[3]= V877;
8199          base[4]= VV[10];          base[4]= VV[10];
8200          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8201          (void) (*Lnk258)();          (void) (*Lnk258)();
8202          vs_top=sup;          vs_top=sup;
8203          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8204          goto T3860;}          goto T3860;}
8205          {object V867;          {object V898;
8206          object V868;          object V899;
8207          object V869;          object V900;
8208          V867= STREF(object,(V847),0);          V898= STREF(object,(V877),0);
8209          V868= listA(3,(V844),(V845),(V846));          V899= listA(3,(V874),(V875),(V876));
8210          V869= STREF(object,(V847),4);          V900= STREF(object,(V877),4);
8211          if(((V869))==Cnil){          if(((V900))==Cnil){
8212          goto T3868;}          goto T3868;}
8213          if((CMPcdr((V869)))!=Cnil){          if((CMPcdr((V900)))!=Cnil){
8214          goto T3868;}          goto T3868;}
8215          base[3]= (V868);          base[3]= (V899);
8216          base[4]= CMPcar((V869));          base[4]= CMPcar((V900));
8217          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8218          {object _funobj = (V867);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V898);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8219                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8220                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8221                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8222          return;          return;
8223          goto T3868;          goto T3868;
8224  T3868:;  T3868:;
8225          base[3]= (V867);          base[3]= (V898);
8226          base[4]= (V868);          base[4]= (V899);
8227          {object V870;          {object V901;
8228          V870= (V869);          V901= (V900);
8229           vs_top=base+5;           vs_top=base+5;
8230           while(V870!=Cnil)           while(V901!=Cnil)
8231           {vs_push((V870)->c.c_car);V870=(V870)->c.c_cdr;}           {vs_push((V901)->c.c_car);V901=(V901)->c.c_cdr;}
8232          vs_base=base+4;}          vs_base=base+4;}
8233          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8234                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8206  T3868:; Line 8237  T3868:;
8237          return;}          return;}
8238          goto T3860;          goto T3860;
8239  T3860:;  T3860:;
8240          base[3]= V847;          base[3]= V877;
8241          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8242          Lfunctionp();          Lfunctionp();
8243          vs_top=sup;          vs_top=sup;
8244          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8245          goto T3878;}          goto T3878;}
8246          base[3]= (V847);          base[3]= (V877);
8247          base[4]= (V844);          base[4]= (V874);
8248          base[5]= (V845);          base[5]= (V875);
8249          {object V871;          {object V902;
8250          V871= (V846);          V902= (V876);
8251           vs_top=base+6;           vs_top=base+6;
8252           while(V871!=Cnil)           while(V902!=Cnil)
8253           {vs_push((V871)->c.c_car);V871=(V871)->c.c_cdr;}           {vs_push((V902)->c.c_car);V902=(V902)->c.c_cdr;}
8254          vs_base=base+4;}          vs_base=base+4;}
8255          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8256                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8229  T3860:; Line 8260  T3860:;
8260          goto T3878;          goto T3878;
8261  T3878:;  T3878:;
8262          base[4]= VV[11];          base[4]= VV[11];
8263          base[5]= V847;          base[5]= V877;
8264          base[6]= VV[71];          base[6]= VV[71];
8265          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
8266          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 8241  T3878:; Line 8272  T3878:;
8272          goto T3762;          goto T3762;
8273  T3762:;  T3762:;
8274          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
8275          base[4]= (V844);          base[4]= (V874);
8276          base[5]= (V845);          base[5]= (V875);
8277          {object V872;          {object V903;
8278          V872= (V846);          V903= (V876);
8279           vs_top=base+6;           vs_top=base+6;
8280           while(V872!=Cnil)           while(V903!=Cnil)
8281           {vs_push((V872)->c.c_car);V872=(V872)->c.c_cdr;}           {vs_push((V903)->c.c_car);V903=(V903)->c.c_cdr;}
8282          vs_base=base+4;}          vs_base=base+4;}
8283          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8284                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8282  register object *base0; Line 8313  register object *base0;
8313  {       register object *base=vs_base;  {       register object *base=vs_base;
8314          register object *sup=base+VM130; VC130          register object *sup=base+VM130; VC130
8315          vs_check;          vs_check;
8316          {object V873;          {object V904;
8317          object V874;          object V905;
8318          object V875;          object V906;
8319          check_arg(3);          check_arg(3);
8320          V873=(base[0]);          V904=(base[0]);
8321          V874=(base[1]);          V905=(base[1]);
8322          V875=(base[2]);          V906=(base[2]);
8323          vs_top=sup;          vs_top=sup;
8324          {object V876;          {object V907;
8325          V876= Cnil;          V907= Cnil;
8326          {long V877;          {long V908;
8327          register object V878;          register object V909;
8328          long V879;          long V910;
8329          long V880;          long V911;
8330          object V881;          object V912;
8331          object V882;          object V913;
8332          object V883;          object V914;
8333          object V884;          object V915;
8334          V877= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V908= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
8335          V878= STREF(object,(base0[1]->c.c_car),40);          V909= STREF(object,(base0[1]->c.c_car),40);
8336          V879= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V910= (long)STREF(fixnum,(base0[1]->c.c_car),24);
8337          V880= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V911= (long)STREF(fixnum,(base0[1]->c.c_car),28);
8338          V881= STREF(object,(base0[1]->c.c_car),44);          V912= STREF(object,(base0[1]->c.c_car),44);
8339          if(type_of(V873)==t_structure){          if(type_of(V904)==t_structure){
8340          goto T3905;}          goto T3905;}
8341          goto T3903;          goto T3903;
8342          goto T3905;          goto T3905;
8343  T3905:;  T3905:;
8344          if(!(((V873)->str.str_def)==(VV[65]))){          if(!(((V904)->str.str_def)==(VV[65]))){
8345          goto T3903;}          goto T3903;}
8346          V882= STREF(object,(V873),0);          V913= STREF(object,(V904),0);
8347          goto T3901;          goto T3901;
8348          goto T3903;          goto T3903;
8349  T3903:;{object V886;  T3903:;{object V917;
8350          V886= (VV[30]->s.s_dbind);          V917= (VV[30]->s.s_dbind);
8351          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
8352          base[4]= (V873);          base[4]= (V904);
8353          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8354          (void) (*Lnk253)();          (void) (*Lnk253)();
8355          vs_top=sup;          vs_top=sup;
8356          V887= vs_base[0];          V918= vs_base[0];
8357          if(!((V886)==(CMPcar(V887)))){          if(!((V917)==(CMPcar(V918)))){
8358          goto T3908;}}          goto T3908;}}
8359          V882= CMPcar(((V873))->cc.cc_turbo[13]);          V913= CMPcar(((V904))->cc.cc_turbo[13]);
8360          goto T3901;          goto T3901;
8361          goto T3908;          goto T3908;
8362  T3908:;  T3908:;
8363          if(!(type_of((V873))==t_structure)){          if(!(type_of((V904))==t_structure)){
8364          goto T3914;}          goto T3914;}
8365          V882= (*(LnkLI256))((V873));          V913= (*(LnkLI256))((V904));
8366          goto T3901;          goto T3901;
8367          goto T3914;          goto T3914;
8368  T3914:;  T3914:;
8369          if(!(type_of((V873))==t_symbol)){          if(!(type_of((V904))==t_symbol)){
8370          goto T3917;}          goto T3917;}
8371          if(((V873))==Cnil){          if(((V904))==Cnil){
8372          goto T3920;}          goto T3920;}
8373          V882= (VV[44]->s.s_dbind);          V913= (VV[44]->s.s_dbind);
8374          goto T3901;          goto T3901;
8375          goto T3920;          goto T3920;
8376  T3920:;  T3920:;
8377          V882= (VV[45]->s.s_dbind);          V913= (VV[45]->s.s_dbind);
8378          goto T3901;          goto T3901;
8379          goto T3917;          goto T3917;
8380  T3917:;  T3917:;
8381          V882= (*(LnkLI257))((V873));          V913= (*(LnkLI257))((V904));
8382          goto T3901;          goto T3901;
8383  T3901:;  T3901:;
8384          if(type_of(V874)==t_structure){          if(type_of(V905)==t_structure){
8385          goto T3926;}          goto T3926;}
8386          goto T3924;          goto T3924;
8387          goto T3926;          goto T3926;
8388  T3926:;  T3926:;
8389          if(!(((V874)->str.str_def)==(VV[66]))){          if(!(((V905)->str.str_def)==(VV[66]))){
8390          goto T3924;}          goto T3924;}
8391          V883= STREF(object,(V874),0);          V914= STREF(object,(V905),0);
8392          goto T3922;          goto T3922;
8393          goto T3924;          goto T3924;
8394  T3924:;{object V889;  T3924:;{object V920;
8395          V889= (VV[30]->s.s_dbind);          V920= (VV[30]->s.s_dbind);
8396          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
8397          base[4]= (V874);          base[4]= (V905);
8398          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8399          (void) (*Lnk253)();          (void) (*Lnk253)();
8400          vs_top=sup;          vs_top=sup;
8401          V890= vs_base[0];          V921= vs_base[0];
8402          if(!((V889)==(CMPcar(V890)))){          if(!((V920)==(CMPcar(V921)))){
8403          goto T3929;}}          goto T3929;}}
8404          V883= CMPcar(((V874))->cc.cc_turbo[13]);          V914= CMPcar(((V905))->cc.cc_turbo[13]);
8405          goto T3922;          goto T3922;
8406          goto T3929;          goto T3929;
8407  T3929:;  T3929:;
8408          if(!(type_of((V874))==t_structure)){          if(!(type_of((V905))==t_structure)){
8409          goto T3935;}          goto T3935;}
8410          V883= (*(LnkLI256))((V874));          V914= (*(LnkLI256))((V905));
8411          goto T3922;          goto T3922;
8412          goto T3935;          goto T3935;
8413  T3935:;  T3935:;
8414          if(!(type_of((V874))==t_symbol)){          if(!(type_of((V905))==t_symbol)){
8415          goto T3938;}          goto T3938;}
8416          if(((V874))==Cnil){          if(((V905))==Cnil){
8417          goto T3941;}          goto T3941;}
8418          V883= (VV[44]->s.s_dbind);          V914= (VV[44]->s.s_dbind);
8419          goto T3922;          goto T3922;
8420          goto T3941;          goto T3941;
8421  T3941:;  T3941:;
8422          V883= (VV[45]->s.s_dbind);          V914= (VV[45]->s.s_dbind);
8423          goto T3922;          goto T3922;
8424          goto T3938;          goto T3938;
8425  T3938:;  T3938:;
8426          V883= (*(LnkLI257))((V874));          V914= (*(LnkLI257))((V905));
8427          goto T3922;          goto T3922;
8428  T3922:;  T3922:;
8429          if(type_of(V875)==t_structure){          if(type_of(V906)==t_structure){
8430          goto T3947;}          goto T3947;}
8431          goto T3945;          goto T3945;
8432          goto T3947;          goto T3947;
8433  T3947:;  T3947:;
8434          if(!(((V875)->str.str_def)==(VV[67]))){          if(!(((V906)->str.str_def)==(VV[67]))){
8435          goto T3945;}          goto T3945;}
8436          V884= STREF(object,(V875),0);          V915= STREF(object,(V906),0);
8437          goto T3943;          goto T3943;
8438          goto T3945;          goto T3945;
8439  T3945:;{object V892;  T3945:;{object V923;
8440          V892= (VV[30]->s.s_dbind);          V923= (VV[30]->s.s_dbind);
8441          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
8442          base[4]= (V875);          base[4]= (V906);
8443          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8444          (void) (*Lnk253)();          (void) (*Lnk253)();
8445          vs_top=sup;          vs_top=sup;
8446          V893= vs_base[0];          V924= vs_base[0];
8447          if(!((V892)==(CMPcar(V893)))){          if(!((V923)==(CMPcar(V924)))){
8448          goto T3950;}}          goto T3950;}}
8449          V884= CMPcar(((V875))->cc.cc_turbo[13]);          V915= CMPcar(((V906))->cc.cc_turbo[13]);
8450          goto T3943;          goto T3943;
8451          goto T3950;          goto T3950;
8452  T3950:;  T3950:;
8453          if(!(type_of((V875))==t_structure)){          if(!(type_of((V906))==t_structure)){
8454          goto T3956;}          goto T3956;}
8455          V884= (*(LnkLI256))((V875));          V915= (*(LnkLI256))((V906));
8456          goto T3943;          goto T3943;
8457          goto T3956;          goto T3956;
8458  T3956:;  T3956:;
8459          if(!(type_of((V875))==t_symbol)){          if(!(type_of((V906))==t_symbol)){
8460          goto T3959;}          goto T3959;}
8461          if(((V875))==Cnil){          if(((V906))==Cnil){
8462          goto T3962;}          goto T3962;}
8463          V884= (VV[44]->s.s_dbind);          V915= (VV[44]->s.s_dbind);
8464          goto T3943;          goto T3943;
8465          goto T3962;          goto T3962;
8466  T3962:;  T3962:;
8467          V884= (VV[45]->s.s_dbind);          V915= (VV[45]->s.s_dbind);
8468          goto T3943;          goto T3943;
8469          goto T3959;          goto T3959;
8470  T3959:;  T3959:;
8471          V884= (*(LnkLI257))((V875));          V915= (*(LnkLI257))((V906));
8472          goto T3943;          goto T3943;
8473  T3943:;  T3943:;
8474          {long V894;          {long V925;
8475          long V895;          long V926;
8476          V894= 0;          V925= 0;
8477          V895= (long)(V880)-(1);          V926= (long)(V911)-(1);
8478          {long V896;          {long V927;
8479          V896= fix(((V882))->v.v_self[V877]);          V927= fix(((V913))->v.v_self[V908]);
8480          if(!((V896)==0)){          if(!((V927)==0)){
8481          goto T3970;}          goto T3970;}
8482          goto T3895;          goto T3895;
8483          goto T3970;          goto T3970;
8484  T3970:;  T3970:;
8485          V894= (long)(V894)+(V896);}          V925= (long)(V925)+(V927);}
8486          {long V897;          {long V928;
8487          V897= fix(((V883))->v.v_self[V877]);          V928= fix(((V914))->v.v_self[V908]);
8488          if(!((V897)==0)){          if(!((V928)==0)){
8489          goto T3976;}          goto T3976;}
8490          goto T3895;          goto T3895;
8491          goto T3976;          goto T3976;
8492  T3976:;  T3976:;
8493          V894= (long)(V894)+(V897);}          V925= (long)(V925)+(V928);}
8494          {long V898;          {long V929;
8495          V898= fix(((V884))->v.v_self[V877]);          V929= fix(((V915))->v.v_self[V908]);
8496          if(!((V898)==0)){          if(!((V929)==0)){
8497          goto T3981;}          goto T3981;}
8498          goto T3895;          goto T3895;
8499          goto T3981;          goto T3981;
8500  T3981:;  T3981:;
8501          V894= (long)(V894)+(V898);          V925= (long)(V925)+(V929);
8502          V894= (long)((V894) & (V879));}          V925= (long)((V925) & (V910));}
8503          {long V899;          {long V930;
8504          {object V900;          {object V931;
8505          V900= ((V878))->v.v_self[0];          V931= ((V909))->v.v_self[0];
8506          if(type_of((V900))==t_fixnum){          if(type_of((V931))==t_fixnum){
8507          goto T3989;}          goto T3989;}
8508          base[3]= VV[46];          base[3]= VV[46];
8509          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 8480  T3981:; Line 8511  T3981:;
8511          vs_top=sup;          vs_top=sup;
8512          goto T3989;          goto T3989;
8513  T3989:;  T3989:;
8514          V899= fix((V900));}          V930= fix((V931));}
8515          {register long V901;          {register long V932;
8516          long V902;          long V933;
8517          V901= V894;          V932= V925;
8518          V902= 0;          V933= 0;
8519          goto T3997;          goto T3997;
8520  T3997:;  T3997:;
8521          V902= (long)(V901)+(4);          V933= (long)(V932)+(4);
8522          V901= (long)(V901)+(1);          V934 = (V909);
8523          if(!(((V882))==(((V878))->v.v_self[V901]))){          V932= (long)(V932)+(1);
8524            V935 = V932;
8525            if(!(((V913))==((V934)->v.v_self[V935]))){
8526          goto T4001;}          goto T4001;}
8527          V901= (long)(V901)+(1);          V936 = (V909);
8528          if(!(((V883))==(((V878))->v.v_self[V901]))){          V932= (long)(V932)+(1);
8529            V937 = V932;
8530            if(!(((V914))==((V936)->v.v_self[V937]))){
8531          goto T4001;}          goto T4001;}
8532          V901= (long)(V901)+(1);          V938 = (V909);
8533          if(!(((V884))==(((V878))->v.v_self[V901]))){          V932= (long)(V932)+(1);
8534            V939 = V932;
8535            if(!(((V915))==((V938)->v.v_self[V939]))){
8536          goto T4001;}          goto T4001;}
8537          V901= (long)(V901)+(1);          V932= (long)(V932)+(1);
8538          V876= ((V878))->v.v_self[V901];          V907= ((V909))->v.v_self[V932];
8539          goto T3995;          goto T3995;
8540          goto T4001;          goto T4001;
8541  T4001:;  T4001:;
8542          V901= V902;          V932= V933;
8543          if(!((V901)==(V895))){          if(!((V932)==(V926))){
8544          goto T4017;}          goto T4017;}
8545          V901= 0;          V932= 0;
8546          goto T4017;          goto T4017;
8547  T4017:;  T4017:;
8548          if(!((V901)==(V894))){          if(!((V932)==(V925))){
8549          goto T3998;}          goto T3998;}
8550          {register object V903;          {register object V940;
8551          register object V904;          register object V941;
8552          V903= (V881);          V940= (V912);
8553          V904= CMPcar((V903));          V941= CMPcar((V940));
8554          goto T4027;          goto T4027;
8555  T4027:;  T4027:;
8556          if(!(((V903))==Cnil)){          if(!(((V940))==Cnil)){
8557          goto T4028;}          goto T4028;}
8558          goto T4023;          goto T4023;
8559          goto T4028;          goto T4028;
8560  T4028:;  T4028:;
8561          {register object V905;          {register object V942;
8562          V905= CMPcar((V904));          V942= CMPcar((V941));
8563          {register object V907;          V943 = (V913);
8564          V907= CMPcar((V905));          {register object V945;
8565          V905= CMPcdr((V905));          V945= CMPcar((V942));
8566          V906= (V907);}          V942= CMPcdr((V942));
8567          if(!(((V882))==(V906))){          V944= (V945);}
8568            if(!((V943)==(V944))){
8569          goto T4032;}          goto T4032;}
8570          {register object V909;          V946 = (V914);
8571          V909= CMPcar((V905));          {register object V948;
8572          V905= CMPcdr((V905));          V948= CMPcar((V942));
8573          V908= (V909);}          V942= CMPcdr((V942));
8574          if(!(((V883))==(V908))){          V947= (V948);}
8575            if(!((V946)==(V947))){
8576          goto T4032;}          goto T4032;}
8577          {register object V911;          V949 = (V915);
8578          V911= CMPcar((V905));          {register object V951;
8579          V905= CMPcdr((V905));          V951= CMPcar((V942));
8580          V910= (V911);}          V942= CMPcdr((V942));
8581          if(!(((V884))==(V910))){          V950= (V951);}
8582            if(!((V949)==(V950))){
8583          goto T4032;}          goto T4032;}
8584          V876= CMPcdr((V904));          V907= CMPcdr((V941));
8585          goto T3995;}          goto T3995;}
8586          goto T4032;          goto T4032;
8587  T4032:;  T4032:;
8588          V903= CMPcdr((V903));          V940= CMPcdr((V940));
8589          V904= CMPcar((V903));          V941= CMPcar((V940));
8590          goto T4027;}          goto T4027;}
8591          goto T4023;          goto T4023;
8592  T4023:;  T4023:;
# Line 8556  T3998:; Line 8596  T3998:;
8596          goto T3997;          goto T3997;
8597          goto T3995;          goto T3995;
8598  T3995:;  T3995:;
8599          {object V913;          V952 = V930;
8600          V913= ((V878))->v.v_self[0];          {object V954;
8601          if(type_of((V913))==t_fixnum){          V954= ((V909))->v.v_self[0];
8602            if(type_of((V954))==t_fixnum){
8603          goto T4064;}          goto T4064;}
8604          base[3]= VV[46];          base[3]= VV[46];
8605          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 8566  T3995:; Line 8607  T3995:;
8607          vs_top=sup;          vs_top=sup;
8608          goto T4064;          goto T4064;
8609  T4064:;  T4064:;
8610          V912= fix((V913));}          V953= fix((V954));}
8611          if((V899)==(V912)){          if((V952)==(V953)){
8612          goto T3964;}          goto T3964;}
8613          goto T3895;}}}          goto T3895;}}}
8614          goto T3964;          goto T3964;
8615  T3964:;  T3964:;
8616          base[3]= (V876);          base[3]= (V907);
8617          base[4]= VV[2];          base[4]= VV[2];
8618          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8619          (void) (*Lnk258)();          (void) (*Lnk258)();
8620          vs_top=sup;          vs_top=sup;
8621          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8622          goto T4070;}          goto T4070;}
8623          base[3]= STREF(object,(V876),0);          base[3]= STREF(object,(V907),0);
8624          base[4]= STREF(object,(V876),4);          base[4]= STREF(object,(V907),4);
8625          base[5]= STREF(object,(V876),8);          base[5]= STREF(object,(V907),8);
8626          base[6]= (V873);          base[6]= (V904);
8627          base[7]= (V874);          base[7]= (V905);
8628          base[8]= (V875);          base[8]= (V906);
8629          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
8630          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8631                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8593  T3964:; Line 8634  T3964:;
8634          return;          return;
8635          goto T4070;          goto T4070;
8636  T4070:;  T4070:;
8637          base[3]= V876;          base[3]= V907;
8638          base[4]= VV[10];          base[4]= VV[10];
8639          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8640          (void) (*Lnk258)();          (void) (*Lnk258)();
8641          vs_top=sup;          vs_top=sup;
8642          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8643          goto T4081;}          goto T4081;}
8644          {object V915;          {object V956;
8645          object V916;          object V957;
8646          object V917;          object V958;
8647          V915= STREF(object,(V876),0);          V956= STREF(object,(V907),0);
8648          V916= list(3,(V873),(V874),(V875));          V957= list(3,(V904),(V905),(V906));
8649          V917= STREF(object,(V876),4);          V958= STREF(object,(V907),4);
8650          if(((V917))==Cnil){          if(((V958))==Cnil){
8651          goto T4089;}          goto T4089;}
8652          if((CMPcdr((V917)))!=Cnil){          if((CMPcdr((V958)))!=Cnil){
8653          goto T4089;}          goto T4089;}
8654          base[3]= (V916);          base[3]= (V957);
8655          base[4]= CMPcar((V917));          base[4]= CMPcar((V958));
8656          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8657          {object _funobj = (V915);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V956);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8658                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8659                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8660                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8661          return;          return;
8662          goto T4089;          goto T4089;
8663  T4089:;  T4089:;
8664          base[3]= (V915);          base[3]= (V956);
8665          base[4]= (V916);          base[4]= (V957);
8666          {object V918;          {object V959;
8667          V918= (V917);          V959= (V958);
8668           vs_top=base+5;           vs_top=base+5;
8669           while(V918!=Cnil)           while(V959!=Cnil)
8670           {vs_push((V918)->c.c_car);V918=(V918)->c.c_cdr;}           {vs_push((V959)->c.c_car);V959=(V959)->c.c_cdr;}
8671          vs_base=base+4;}          vs_base=base+4;}
8672          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8673                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8635  T4089:; Line 8676  T4089:;
8676          return;}          return;}
8677          goto T4081;          goto T4081;
8678  T4081:;  T4081:;
8679          base[3]= V876;          base[3]= V907;
8680          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8681          Lfunctionp();          Lfunctionp();
8682          vs_top=sup;          vs_top=sup;
8683          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8684          goto T4099;}          goto T4099;}
8685          base[3]= (V873);          base[3]= (V904);
8686          base[4]= (V874);          base[4]= (V905);
8687          base[5]= (V875);          base[5]= (V906);
8688          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
8689          {object _funobj = (V876);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V907);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8690                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8691                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8692                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 8653  T4081:; Line 8694  T4081:;
8694          goto T4099;          goto T4099;
8695  T4099:;  T4099:;
8696          base[4]= VV[11];          base[4]= VV[11];
8697          base[5]= V876;          base[5]= V907;
8698          base[6]= VV[68];          base[6]= VV[68];
8699          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
8700          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 8664  T4099:; Line 8705  T4099:;
8705          return;}          return;}
8706          goto T3895;          goto T3895;
8707  T3895:;  T3895:;
8708          base[3]= (V873);          base[3]= (V904);
8709          base[4]= (V874);          base[4]= (V905);
8710          base[5]= (V875);          base[5]= (V906);
8711          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
8712          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8713                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8701  register object *base0; Line 8742  register object *base0;
8742  {       register object *base=vs_base;  {       register object *base=vs_base;
8743          register object *sup=base+VM132; VC132          register object *sup=base+VM132; VC132
8744          vs_check;          vs_check;
8745          {object V919;          {object V960;
8746          object V920;          object V961;
8747          object V921;          object V962;
8748          object V922;          object V963;
8749          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
8750          V919=(base[0]);          V960=(base[0]);
8751          V920=(base[1]);          V961=(base[1]);
8752          V921=(base[2]);          V962=(base[2]);
8753          vs_base=vs_base+3;          vs_base=vs_base+3;
8754          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8755          {object *p=vs_top;          {object *p=vs_top;
8756           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8757          V922=(base[3]);          V963=(base[3]);
8758          vs_top=sup;          vs_top=sup;
8759          {register object V923;          {register object V964;
8760          V923= Cnil;          V964= Cnil;
8761          {long V924;          {long V965;
8762          register object V925;          register object V966;
8763          long V926;          long V967;
8764          long V927;          long V968;
8765          object V928;          object V969;
8766          register object V929;          register object V970;
8767          V924= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V965= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
8768          V925= STREF(object,(base0[1]->c.c_car),40);          V966= STREF(object,(base0[1]->c.c_car),40);
8769          V926= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V967= (long)STREF(fixnum,(base0[1]->c.c_car),24);
8770          V927= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V968= (long)STREF(fixnum,(base0[1]->c.c_car),28);
8771          V928= STREF(object,(base0[1]->c.c_car),44);          V969= STREF(object,(base0[1]->c.c_car),44);
8772          if(type_of(V919)==t_structure){          if(type_of(V960)==t_structure){
8773          goto T4124;}          goto T4124;}
8774          goto T4122;          goto T4122;
8775          goto T4124;          goto T4124;
8776  T4124:;  T4124:;
8777          if(!(((V919)->str.str_def)==(VV[62]))){          if(!(((V960)->str.str_def)==(VV[62]))){
8778          goto T4122;}          goto T4122;}
8779          V929= STREF(object,(V919),0);          V970= STREF(object,(V960),0);
8780          goto T4120;          goto T4120;
8781          goto T4122;          goto T4122;
8782  T4122:;{object V931;  T4122:;{object V972;
8783          V931= (VV[30]->s.s_dbind);          V972= (VV[30]->s.s_dbind);
8784          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
8785          base[5]= (V919);          base[5]= (V960);
8786          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
8787          (void) (*Lnk253)();          (void) (*Lnk253)();
8788          vs_top=sup;          vs_top=sup;
8789          V932= vs_base[0];          V973= vs_base[0];
8790          if(!((V931)==(CMPcar(V932)))){          if(!((V972)==(CMPcar(V973)))){
8791          goto T4127;}}          goto T4127;}}
8792          V929= CMPcar(((V919))->cc.cc_turbo[13]);          V970= CMPcar(((V960))->cc.cc_turbo[13]);
8793          goto T4120;          goto T4120;
8794          goto T4127;          goto T4127;
8795  T4127:;  T4127:;
8796          if(!(type_of((V919))==t_structure)){          if(!(type_of((V960))==t_structure)){
8797          goto T4133;}          goto T4133;}
8798          V929= (*(LnkLI256))((V919));          V970= (*(LnkLI256))((V960));
8799          goto T4120;          goto T4120;
8800          goto T4133;          goto T4133;
8801  T4133:;  T4133:;
8802          if(!(type_of((V919))==t_symbol)){          if(!(type_of((V960))==t_symbol)){
8803          goto T4136;}          goto T4136;}
8804          if(((V919))==Cnil){          if(((V960))==Cnil){
8805          goto T4139;}          goto T4139;}
8806          V929= (VV[44]->s.s_dbind);          V970= (VV[44]->s.s_dbind);
8807          goto T4120;          goto T4120;
8808          goto T4139;          goto T4139;
8809  T4139:;  T4139:;
8810          V929= (VV[45]->s.s_dbind);          V970= (VV[45]->s.s_dbind);
8811          goto T4120;          goto T4120;
8812          goto T4136;          goto T4136;
8813  T4136:;  T4136:;
8814          V929= (*(LnkLI257))((V919));          V970= (*(LnkLI257))((V960));
8815          goto T4120;          goto T4120;
8816  T4120:;  T4120:;
8817          {long V933;          {long V974;
8818          long V934;          long V975;
8819          {long V935;          {long V976;
8820          V935= fix(((V929))->v.v_self[V924]);          V976= fix(((V970))->v.v_self[V965]);
8821          if(!((V935)==0)){          if(!((V976)==0)){
8822          goto T4144;}          goto T4144;}
8823          goto T4114;          goto T4114;
8824          goto T4144;          goto T4144;
8825  T4144:;  T4144:;
8826          V933= (long)((V926) & (V935));}          V974= (long)((V967) & (V976));}
8827          {object V936;          {object V977;
8828          V936= ((V925))->v.v_self[0];          V977= ((V966))->v.v_self[0];
8829          if(type_of((V936))==t_fixnum){          if(type_of((V977))==t_fixnum){
8830          goto T4149;}          goto T4149;}
8831          base[4]= VV[46];          base[4]= VV[46];
8832          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 8793  T4144:; Line 8834  T4144:;
8834          vs_top=sup;          vs_top=sup;
8835          goto T4149;          goto T4149;
8836  T4149:;  T4149:;
8837          V934= fix((V936));}          V975= fix((V977));}
8838          {register long V937;          {register long V978;
8839          V937= V933;          V978= V974;
8840          goto T4156;          goto T4156;
8841  T4156:;  T4156:;
8842          if(!(((V929))==(((V925))->v.v_self[V937]))){          if(!(((V970))==(((V966))->v.v_self[V978]))){
8843          goto T4158;}          goto T4158;}
8844          V923= ((V925))->v.v_self[(long)(V937)+1];          V964= ((V966))->v.v_self[(long)(V978)+1];
8845          goto T4154;          goto T4154;
8846          goto T4158;          goto T4158;
8847  T4158:;  T4158:;
8848          V937= (long)(V937)+(2);          V978= (long)(V978)+(2);
8849          if(!((V937)==(V927))){          if(!((V978)==(V968))){
8850          goto T4165;}          goto T4165;}
8851          V937= 0;          V978= 0;
8852          goto T4165;          goto T4165;
8853  T4165:;  T4165:;
8854          if(!((V937)==(V933))){          if(!((V978)==(V974))){
8855          goto T4157;}          goto T4157;}
8856          {register object V938;          {register object V979;
8857          register object V939;          register object V980;
8858          V938= (V928);          V979= (V969);
8859          V939= CMPcar((V938));          V980= CMPcar((V979));
8860          goto T4175;          goto T4175;
8861  T4175:;  T4175:;
8862          if(!(((V938))==Cnil)){          if(!(((V979))==Cnil)){
8863          goto T4176;}          goto T4176;}
8864          goto T4171;          goto T4171;
8865          goto T4176;          goto T4176;
8866  T4176:;  T4176:;
8867          if(!((CMPcar((V939)))==((V929)))){          if(!((CMPcar((V980)))==((V970)))){
8868          goto T4180;}          goto T4180;}
8869          V923= CMPcdr((V939));          V964= CMPcdr((V980));
8870          goto T4154;          goto T4154;
8871          goto T4180;          goto T4180;
8872  T4180:;  T4180:;
8873          V938= CMPcdr((V938));          V979= CMPcdr((V979));
8874          V939= CMPcar((V938));          V980= CMPcar((V979));
8875          goto T4175;}          goto T4175;}
8876          goto T4171;          goto T4171;
8877  T4171:;  T4171:;
# Line 8840  T4157:; Line 8881  T4157:;
8881          goto T4156;          goto T4156;
8882          goto T4154;          goto T4154;
8883  T4154:;  T4154:;
8884          {object V941;          V981 = V975;
8885          V941= ((V925))->v.v_self[0];          {object V983;
8886          if(type_of((V941))==t_fixnum){          V983= ((V966))->v.v_self[0];
8887            if(type_of((V983))==t_fixnum){
8888          goto T4195;}          goto T4195;}
8889          base[4]= VV[46];          base[4]= VV[46];
8890          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 8850  T4154:; Line 8892  T4154:;
8892          vs_top=sup;          vs_top=sup;
8893          goto T4195;          goto T4195;
8894  T4195:;  T4195:;
8895          V940= fix((V941));}          V982= fix((V983));}
8896          if((V934)==(V940)){          if((V981)==(V982)){
8897          goto T4141;}          goto T4141;}
8898          goto T4114;}}          goto T4114;}}
8899          goto T4141;          goto T4141;
8900  T4141:;  T4141:;
8901          base[4]= (V923);          base[4]= (V964);
8902          base[5]= VV[2];          base[5]= VV[2];
8903          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
8904          (void) (*Lnk258)();          (void) (*Lnk258)();
8905          vs_top=sup;          vs_top=sup;
8906          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8907          goto T4201;}          goto T4201;}
8908          base[4]= STREF(object,(V923),0);          base[4]= STREF(object,(V964),0);
8909          base[5]= STREF(object,(V923),4);          base[5]= STREF(object,(V964),4);
8910          base[6]= STREF(object,(V923),8);          base[6]= STREF(object,(V964),8);
8911          base[7]= (V919);          base[7]= (V960);
8912          base[8]= (V920);          base[8]= (V961);
8913          base[9]= (V921);          base[9]= (V962);
8914          base[10]= (V922);          base[10]= (V963);
8915          vs_top=(vs_base=base+5)+6;          vs_top=(vs_base=base+5)+6;
8916          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8917                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8878  T4141:; Line 8920  T4141:;
8920          return;          return;
8921          goto T4201;          goto T4201;
8922  T4201:;  T4201:;
8923          base[4]= V923;          base[4]= V964;
8924          base[5]= VV[10];          base[5]= VV[10];
8925          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
8926          (void) (*Lnk258)();          (void) (*Lnk258)();
8927          vs_top=sup;          vs_top=sup;
8928          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8929          goto T4213;}          goto T4213;}
8930          {object V943;          {object V985;
8931          object V944;          object V986;
8932          object V945;          object V987;
8933          V943= STREF(object,(V923),0);          V985= STREF(object,(V964),0);
8934          V944= listA(4,(V919),(V920),(V921),(V922));          V986= listA(4,(V960),(V961),(V962),(V963));
8935          V945= STREF(object,(V923),4);          V987= STREF(object,(V964),4);
8936          if(((V945))==Cnil){          if(((V987))==Cnil){
8937          goto T4221;}          goto T4221;}
8938          if((CMPcdr((V945)))!=Cnil){          if((CMPcdr((V987)))!=Cnil){
8939          goto T4221;}          goto T4221;}
8940          base[4]= (V944);          base[4]= (V986);
8941          base[5]= CMPcar((V945));          base[5]= CMPcar((V987));
8942          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
8943          {object _funobj = (V943);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V985);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8944                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8945                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8946                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8947          return;          return;
8948          goto T4221;          goto T4221;
8949  T4221:;  T4221:;
8950          base[4]= (V943);          base[4]= (V985);
8951          base[5]= (V944);          base[5]= (V986);
8952          {object V946;          {object V988;
8953          V946= (V945);          V988= (V987);
8954           vs_top=base+6;           vs_top=base+6;
8955           while(V946!=Cnil)           while(V988!=Cnil)
8956           {vs_push((V946)->c.c_car);V946=(V946)->c.c_cdr;}           {vs_push((V988)->c.c_car);V988=(V988)->c.c_cdr;}
8957          vs_base=base+5;}          vs_base=base+5;}
8958          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8959                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8920  T4221:; Line 8962  T4221:;
8962          return;}          return;}
8963          goto T4213;          goto T4213;
8964  T4213:;  T4213:;
8965          base[4]= V923;          base[4]= V964;
8966          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8967          Lfunctionp();          Lfunctionp();
8968          vs_top=sup;          vs_top=sup;
8969          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8970          goto T4231;}          goto T4231;}
8971          base[4]= (V923);          base[4]= (V964);
8972          base[5]= (V919);          base[5]= (V960);
8973          base[6]= (V920);          base[6]= (V961);
8974          base[7]= (V921);          base[7]= (V962);
8975          {object V947;          {object V989;
8976          V947= (V922);          V989= (V963);
8977           vs_top=base+8;           vs_top=base+8;
8978           while(V947!=Cnil)           while(V989!=Cnil)
8979           {vs_push((V947)->c.c_car);V947=(V947)->c.c_cdr;}           {vs_push((V989)->c.c_car);V989=(V989)->c.c_cdr;}
8980          vs_base=base+5;}          vs_base=base+5;}
8981          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8982                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8944  T4213:; Line 8986  T4213:;
8986          goto T4231;          goto T4231;
8987  T4231:;  T4231:;
8988          base[5]= VV[11];          base[5]= VV[11];
8989          base[6]= V923;          base[6]= V964;
8990          base[7]= VV[63];          base[7]= VV[63];
8991          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
8992          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 8956  T4231:; Line 8998  T4231:;
8998          goto T4114;          goto T4114;
8999  T4114:;  T4114:;
9000          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
9001          base[5]= (V919);          base[5]= (V960);
9002          base[6]= (V920);          base[6]= (V961);
9003          base[7]= (V921);          base[7]= (V962);
9004          {object V948;          {object V990;
9005          V948= (V922);          V990= (V963);
9006           vs_top=base+8;           vs_top=base+8;
9007           while(V948!=Cnil)           while(V990!=Cnil)
9008           {vs_push((V948)->c.c_car);V948=(V948)->c.c_cdr;}           {vs_push((V990)->c.c_car);V990=(V990)->c.c_cdr;}
9009          vs_base=base+5;}          vs_base=base+5;}
9010          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9011                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8998  register object *base0; Line 9040  register object *base0;
9040  {       register object *base=vs_base;  {       register object *base=vs_base;
9041          register object *sup=base+VM134; VC134          register object *sup=base+VM134; VC134
9042          vs_check;          vs_check;
9043          {object V949;          {object V991;
9044          object V950;          object V992;
9045          object V951;          object V993;
9046          object V952;          object V994;
9047          check_arg(4);          check_arg(4);
9048          V949=(base[0]);          V991=(base[0]);
9049          V950=(base[1]);          V992=(base[1]);
9050          V951=(base[2]);          V993=(base[2]);
9051          V952=(base[3]);          V994=(base[3]);
9052          vs_top=sup;          vs_top=sup;
9053          {object V953;          {object V995;
9054          V953= Cnil;          V995= Cnil;
9055          {long V954;          {long V996;
9056          object V955;          object V997;
9057          long V956;          long V998;
9058          long V957;          long V999;
9059          object V958;          object V1000;
9060          object V959;          object V1001;
9061          object V960;          object V1002;
9062          V954= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V996= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
9063          V955= STREF(object,(base0[1]->c.c_car),40);          V997= STREF(object,(base0[1]->c.c_car),40);
9064          V956= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V998= (long)STREF(fixnum,(base0[1]->c.c_car),24);
9065          V957= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V999= (long)STREF(fixnum,(base0[1]->c.c_car),28);
9066          V958= STREF(object,(base0[1]->c.c_car),44);          V1000= STREF(object,(base0[1]->c.c_car),44);
9067          if(type_of(V949)==t_structure){          if(type_of(V991)==t_structure){
9068          goto T4260;}          goto T4260;}
9069          goto T4258;          goto T4258;
9070          goto T4260;          goto T4260;
9071  T4260:;  T4260:;
9072          if(!(((V949)->str.str_def)==(VV[58]))){          if(!(((V991)->str.str_def)==(VV[58]))){
9073          goto T4258;}          goto T4258;}
9074          V959= STREF(object,(V949),0);          V1001= STREF(object,(V991),0);
9075          goto T4256;          goto T4256;
9076          goto T4258;          goto T4258;
9077  T4258:;{object V962;  T4258:;{object V1004;
9078          V962= (VV[30]->s.s_dbind);          V1004= (VV[30]->s.s_dbind);
9079          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
9080          base[5]= (V949);          base[5]= (V991);
9081          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
9082          (void) (*Lnk253)();          (void) (*Lnk253)();
9083          vs_top=sup;          vs_top=sup;
9084          V963= vs_base[0];          V1005= vs_base[0];
9085          if(!((V962)==(CMPcar(V963)))){          if(!((V1004)==(CMPcar(V1005)))){
9086          goto T4263;}}          goto T4263;}}
9087          V959= CMPcar(((V949))->cc.cc_turbo[13]);          V1001= CMPcar(((V991))->cc.cc_turbo[13]);
9088          goto T4256;          goto T4256;
9089          goto T4263;          goto T4263;
9090  T4263:;  T4263:;
9091          if(!(type_of((V949))==t_structure)){          if(!(type_of((V991))==t_structure)){
9092          goto T4269;}          goto T4269;}
9093          V959= (*(LnkLI256))((V949));          V1001= (*(LnkLI256))((V991));
9094          goto T4256;          goto T4256;
9095          goto T4269;          goto T4269;
9096  T4269:;  T4269:;
9097          if(!(type_of((V949))==t_symbol)){          if(!(type_of((V991))==t_symbol)){
9098          goto T4272;}          goto T4272;}
9099          if(((V949))==Cnil){          if(((V991))==Cnil){
9100          goto T4275;}          goto T4275;}
9101          V959= (VV[44]->s.s_dbind);          V1001= (VV[44]->s.s_dbind);
9102          goto T4256;          goto T4256;
9103          goto T4275;          goto T4275;
9104  T4275:;  T4275:;
9105          V959= (VV[45]->s.s_dbind);          V1001= (VV[45]->s.s_dbind);
9106          goto T4256;          goto T4256;
9107          goto T4272;          goto T4272;
9108  T4272:;  T4272:;
9109          V959= (*(LnkLI257))((V949));          V1001= (*(LnkLI257))((V991));
9110          goto T4256;          goto T4256;
9111  T4256:;  T4256:;
9112          if(type_of(V950)==t_structure){          if(type_of(V992)==t_structure){
9113          goto T4281;}          goto T4281;}
9114          goto T4279;          goto T4279;
9115          goto T4281;          goto T4281;
9116  T4281:;  T4281:;
9117          if(!(((V950)->str.str_def)==(VV[59]))){          if(!(((V992)->str.str_def)==(VV[59]))){
9118          goto T4279;}          goto T4279;}
9119          V960= STREF(object,(V950),0);          V1002= STREF(object,(V992),0);
9120          goto T4277;          goto T4277;
9121          goto T4279;          goto T4279;
9122  T4279:;{object V965;  T4279:;{object V1007;
9123          V965= (VV[30]->s.s_dbind);          V1007= (VV[30]->s.s_dbind);
9124          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
9125          base[5]= (V950);          base[5]= (V992);
9126          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
9127          (void) (*Lnk253)();          (void) (*Lnk253)();
9128          vs_top=sup;          vs_top=sup;
9129          V966= vs_base[0];          V1008= vs_base[0];
9130          if(!((V965)==(CMPcar(V966)))){          if(!((V1007)==(CMPcar(V1008)))){
9131          goto T4284;}}          goto T4284;}}
9132          V960= CMPcar(((V950))->cc.cc_turbo[13]);          V1002= CMPcar(((V992))->cc.cc_turbo[13]);
9133          goto T4277;          goto T4277;
9134          goto T4284;          goto T4284;
9135  T4284:;  T4284:;
9136          if(!(type_of((V950))==t_structure)){          if(!(type_of((V992))==t_structure)){
9137          goto T4290;}          goto T4290;}
9138          V960= (*(LnkLI256))((V950));          V1002= (*(LnkLI256))((V992));
9139          goto T4277;          goto T4277;
9140          goto T4290;          goto T4290;
9141  T4290:;  T4290:;
9142          if(!(type_of((V950))==t_symbol)){          if(!(type_of((V992))==t_symbol)){
9143          goto T4293;}          goto T4293;}
9144          if(((V950))==Cnil){          if(((V992))==Cnil){
9145          goto T4296;}          goto T4296;}
9146          V960= (VV[44]->s.s_dbind);          V1002= (VV[44]->s.s_dbind);
9147          goto T4277;          goto T4277;
9148          goto T4296;          goto T4296;
9149  T4296:;  T4296:;
9150          V960= (VV[45]->s.s_dbind);          V1002= (VV[45]->s.s_dbind);
9151          goto T4277;          goto T4277;
9152          goto T4293;          goto T4293;
9153  T4293:;  T4293:;
9154          V960= (*(LnkLI257))((V950));          V1002= (*(LnkLI257))((V992));
9155          goto T4277;          goto T4277;
9156  T4277:;  T4277:;
9157          {long V967;          {long V1009;
9158          long V968;          long V1010;
9159          V967= 0;          V1009= 0;
9160          V968= (long)(V957)-(1);          V1010= (long)(V999)-(1);
9161          {long V969;          {long V1011;
9162          V969= fix(((V959))->v.v_self[V954]);          V1011= fix(((V1001))->v.v_self[V996]);
9163          if(!((V969)==0)){          if(!((V1011)==0)){
9164          goto T4304;}          goto T4304;}
9165          goto T4250;          goto T4250;
9166          goto T4304;          goto T4304;
9167  T4304:;  T4304:;
9168          V967= (long)(V967)+(V969);}          V1009= (long)(V1009)+(V1011);}
9169          {long V970;          {long V1012;
9170          V970= fix(((V960))->v.v_self[V954]);          V1012= fix(((V1002))->v.v_self[V996]);
9171          if(!((V970)==0)){          if(!((V1012)==0)){
9172          goto T4309;}          goto T4309;}
9173          goto T4250;          goto T4250;
9174          goto T4309;          goto T4309;
9175  T4309:;  T4309:;
9176          V967= (long)(V967)+(V970);          V1009= (long)(V1009)+(V1012);
9177          V967= (long)((V967) & (V956));}          V1009= (long)((V1009) & (V998));}
9178          {long V971;          {long V1013;
9179          {object V972;          {object V1014;
9180          V972= ((V955))->v.v_self[0];          V1014= ((V997))->v.v_self[0];
9181          if(type_of((V972))==t_fixnum){          if(type_of((V1014))==t_fixnum){
9182          goto T4317;}          goto T4317;}
9183          base[4]= VV[46];          base[4]= VV[46];
9184          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 9144  T4309:; Line 9186  T4309:;
9186          vs_top=sup;          vs_top=sup;
9187          goto T4317;          goto T4317;
9188  T4317:;  T4317:;
9189          V971= fix((V972));}          V1013= fix((V1014));}
9190          {register long V973;          {register long V1015;
9191          long V974;          long V1016;
9192          V973= V967;          V1015= V1009;
9193          V974= 0;          V1016= 0;
9194          goto T4325;          goto T4325;
9195  T4325:;  T4325:;
9196          V974= (long)(V973)+(4);          V1016= (long)(V1015)+(4);
9197          V973= (long)(V973)+(1);          V1017 = (V997);
9198          if(!(((V959))==(((V955))->v.v_self[V973]))){          V1015= (long)(V1015)+(1);
9199            V1018 = V1015;
9200            if(!(((V1001))==((V1017)->v.v_self[V1018]))){
9201          goto T4329;}          goto T4329;}
9202          V973= (long)(V973)+(1);          V1019 = (V997);
9203          if(!(((V960))==(((V955))->v.v_self[V973]))){          V1015= (long)(V1015)+(1);
9204            V1020 = V1015;
9205            if(!(((V1002))==((V1019)->v.v_self[V1020]))){
9206          goto T4329;}          goto T4329;}
9207          V973= (long)(V973)+(1);          V1015= (long)(V1015)+(1);
9208          V953= ((V955))->v.v_self[V973];          V995= ((V997))->v.v_self[V1015];
9209          goto T4323;          goto T4323;
9210          goto T4329;          goto T4329;
9211  T4329:;  T4329:;
9212          V973= V974;          V1015= V1016;
9213          if(!((V973)==(V968))){          if(!((V1015)==(V1010))){
9214          goto T4342;}          goto T4342;}
9215          V973= 0;          V1015= 0;
9216          goto T4342;          goto T4342;
9217  T4342:;  T4342:;
9218          if(!((V973)==(V967))){          if(!((V1015)==(V1009))){
9219          goto T4326;}          goto T4326;}
9220          {register object V975;          {register object V1021;
9221          register object V976;          register object V1022;
9222          V975= (V958);          V1021= (V1000);
9223          V976= CMPcar((V975));          V1022= CMPcar((V1021));
9224          goto T4352;          goto T4352;
9225  T4352:;  T4352:;
9226          if(!(((V975))==Cnil)){          if(!(((V1021))==Cnil)){
9227          goto T4353;}          goto T4353;}
9228          goto T4348;          goto T4348;
9229          goto T4353;          goto T4353;
9230  T4353:;  T4353:;
9231          {register object V977;          {register object V1023;
9232          V977= CMPcar((V976));          V1023= CMPcar((V1022));
9233          {register object V979;          V1024 = (V1001);
9234          V979= CMPcar((V977));          {register object V1026;
9235          V977= CMPcdr((V977));          V1026= CMPcar((V1023));
9236          V978= (V979);}          V1023= CMPcdr((V1023));
9237          if(!(((V959))==(V978))){          V1025= (V1026);}
9238            if(!((V1024)==(V1025))){
9239          goto T4357;}          goto T4357;}
9240          {register object V981;          V1027 = (V1002);
9241          V981= CMPcar((V977));          {register object V1029;
9242          V977= CMPcdr((V977));          V1029= CMPcar((V1023));
9243          V980= (V981);}          V1023= CMPcdr((V1023));
9244          if(!(((V960))==(V980))){          V1028= (V1029);}
9245            if(!((V1027)==(V1028))){
9246          goto T4357;}          goto T4357;}
9247          V953= CMPcdr((V976));          V995= CMPcdr((V1022));
9248          goto T4323;}          goto T4323;}
9249          goto T4357;          goto T4357;
9250  T4357:;  T4357:;
9251          V975= CMPcdr((V975));          V1021= CMPcdr((V1021));
9252          V976= CMPcar((V975));          V1022= CMPcar((V1021));
9253          goto T4352;}          goto T4352;}
9254          goto T4348;          goto T4348;
9255  T4348:;  T4348:;
# Line 9211  T4326:; Line 9259  T4326:;
9259          goto T4325;          goto T4325;
9260          goto T4323;          goto T4323;
9261  T4323:;  T4323:;
9262          {object V983;          V1030 = V1013;
9263          V983= ((V955))->v.v_self[0];          {object V1032;
9264          if(type_of((V983))==t_fixnum){          V1032= ((V997))->v.v_self[0];
9265            if(type_of((V1032))==t_fixnum){
9266          goto T4383;}          goto T4383;}
9267          base[4]= VV[46];          base[4]= VV[46];
9268          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 9221  T4323:; Line 9270  T4323:;
9270          vs_top=sup;          vs_top=sup;
9271          goto T4383;          goto T4383;
9272  T4383:;  T4383:;
9273          V982= fix((V983));}          V1031= fix((V1032));}
9274          if((V971)==(V982)){          if((V1030)==(V1031)){
9275          goto T4298;}          goto T4298;}
9276          goto T4250;}}}          goto T4250;}}}
9277          goto T4298;          goto T4298;
9278  T4298:;  T4298:;
9279          base[4]= (V953);          base[4]= (V995);
9280          base[5]= VV[2];          base[5]= VV[2];
9281          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
9282          (void) (*Lnk258)();          (void) (*Lnk258)();
9283          vs_top=sup;          vs_top=sup;
9284          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9285          goto T4389;}          goto T4389;}
9286          base[4]= STREF(object,(V953),0);          base[4]= STREF(object,(V995),0);
9287          base[5]= STREF(object,(V953),4);          base[5]= STREF(object,(V995),4);
9288          base[6]= STREF(object,(V953),8);          base[6]= STREF(object,(V995),8);
9289          base[7]= (V949);          base[7]= (V991);
9290          base[8]= (V950);          base[8]= (V992);
9291          base[9]= (V951);          base[9]= (V993);
9292          base[10]= (V952);          base[10]= (V994);
9293          vs_top=(vs_base=base+5)+6;          vs_top=(vs_base=base+5)+6;
9294          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9295                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9249  T4298:; Line 9298  T4298:;
9298          return;          return;
9299          goto T4389;          goto T4389;
9300  T4389:;  T4389:;
9301          base[4]= V953;          base[4]= V995;
9302          base[5]= VV[10];          base[5]= VV[10];
9303          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
9304          (void) (*Lnk258)();          (void) (*Lnk258)();
9305          vs_top=sup;          vs_top=sup;
9306          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9307          goto T4401;}          goto T4401;}
9308          {object V985;          {object V1034;
9309          object V986;          object V1035;
9310          object V987;          object V1036;
9311          V985= STREF(object,(V953),0);          V1034= STREF(object,(V995),0);
9312          V986= list(4,(V949),(V950),(V951),(V952));          V1035= list(4,(V991),(V992),(V993),(V994));
9313          V987= STREF(object,(V953),4);          V1036= STREF(object,(V995),4);
9314          if(((V987))==Cnil){          if(((V1036))==Cnil){
9315          goto T4409;}          goto T4409;}
9316          if((CMPcdr((V987)))!=Cnil){          if((CMPcdr((V1036)))!=Cnil){
9317          goto T4409;}          goto T4409;}
9318          base[4]= (V986);          base[4]= (V1035);
9319          base[5]= CMPcar((V987));          base[5]= CMPcar((V1036));
9320          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
9321          {object _funobj = (V985);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1034);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9322                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9323                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9324                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9325          return;          return;
9326          goto T4409;          goto T4409;
9327  T4409:;  T4409:;
9328          base[4]= (V985);          base[4]= (V1034);
9329          base[5]= (V986);          base[5]= (V1035);
9330          {object V988;          {object V1037;
9331          V988= (V987);          V1037= (V1036);
9332           vs_top=base+6;           vs_top=base+6;
9333           while(V988!=Cnil)           while(V1037!=Cnil)
9334           {vs_push((V988)->c.c_car);V988=(V988)->c.c_cdr;}           {vs_push((V1037)->c.c_car);V1037=(V1037)->c.c_cdr;}
9335          vs_base=base+5;}          vs_base=base+5;}
9336          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9337                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9291  T4409:; Line 9340  T4409:;
9340          return;}          return;}
9341          goto T4401;          goto T4401;
9342  T4401:;  T4401:;
9343          base[4]= V953;          base[4]= V995;
9344          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
9345          Lfunctionp();          Lfunctionp();
9346          vs_top=sup;          vs_top=sup;
9347          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9348          goto T4419;}          goto T4419;}
9349          base[4]= (V949);          base[4]= (V991);
9350          base[5]= (V950);          base[5]= (V992);
9351          base[6]= (V951);          base[6]= (V993);
9352          base[7]= (V952);          base[7]= (V994);
9353          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
9354          {object _funobj = (V953);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V995);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9355                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9356                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9357                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 9310  T4401:; Line 9359  T4401:;
9359          goto T4419;          goto T4419;
9360  T4419:;  T4419:;
9361          base[5]= VV[11];          base[5]= VV[11];
9362          base[6]= V953;          base[6]= V995;
9363          base[7]= VV[60];          base[7]= VV[60];
9364          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
9365          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 9321  T4419:; Line 9370  T4419:;
9370          return;}          return;}
9371          goto T4250;          goto T4250;
9372  T4250:;  T4250:;
9373          base[4]= (V949);          base[4]= (V991);
9374          base[5]= (V950);          base[5]= (V992);
9375          base[6]= (V951);          base[6]= (V993);
9376          base[7]= (V952);          base[7]= (V994);
9377          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
9378          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9379                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9359  register object *base0; Line 9408  register object *base0;
9408  {       register object *base=vs_base;  {       register object *base=vs_base;
9409          register object *sup=base+VM136; VC136          register object *sup=base+VM136; VC136
9410          vs_check;          vs_check;
9411          {object V989;          {object V1038;
9412          object V990;          object V1039;
9413          object V991;          object V1040;
9414          object V992;          object V1041;
9415          object V993;          object V1042;
9416          check_arg(5);          check_arg(5);
9417          V989=(base[0]);          V1038=(base[0]);
9418          V990=(base[1]);          V1039=(base[1]);
9419          V991=(base[2]);          V1040=(base[2]);
9420          V992=(base[3]);          V1041=(base[3]);
9421          V993=(base[4]);          V1042=(base[4]);
9422          vs_top=sup;          vs_top=sup;
9423          {object V994;          {object V1043;
9424          V994= Cnil;          V1043= Cnil;
9425          {long V995;          {long V1044;
9426          object V996;          object V1045;
9427          long V997;          long V1046;
9428          long V998;          long V1047;
9429          object V999;          object V1048;
9430          object V1000;          object V1049;
9431          object V1001;          object V1050;
9432          V995= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V1044= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
9433          V996= STREF(object,(base0[1]->c.c_car),40);          V1045= STREF(object,(base0[1]->c.c_car),40);
9434          V997= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V1046= (long)STREF(fixnum,(base0[1]->c.c_car),24);
9435          V998= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V1047= (long)STREF(fixnum,(base0[1]->c.c_car),28);
9436          V999= STREF(object,(base0[1]->c.c_car),44);          V1048= STREF(object,(base0[1]->c.c_car),44);
9437          if(type_of(V989)==t_structure){          if(type_of(V1038)==t_structure){
9438          goto T4446;}          goto T4446;}
9439          goto T4444;          goto T4444;
9440          goto T4446;          goto T4446;
9441  T4446:;  T4446:;
9442          if(!(((V989)->str.str_def)==(VV[54]))){          if(!(((V1038)->str.str_def)==(VV[54]))){
9443          goto T4444;}          goto T4444;}
9444          V1000= STREF(object,(V989),0);          V1049= STREF(object,(V1038),0);
9445          goto T4442;          goto T4442;
9446          goto T4444;          goto T4444;
9447  T4444:;{object V1003;  T4444:;{object V1052;
9448          V1003= (VV[30]->s.s_dbind);          V1052= (VV[30]->s.s_dbind);
9449          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
9450          base[6]= (V989);          base[6]= (V1038);
9451          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
9452          (void) (*Lnk253)();          (void) (*Lnk253)();
9453          vs_top=sup;          vs_top=sup;
9454          V1004= vs_base[0];          V1053= vs_base[0];
9455          if(!((V1003)==(CMPcar(V1004)))){          if(!((V1052)==(CMPcar(V1053)))){
9456          goto T4449;}}          goto T4449;}}
9457          V1000= CMPcar(((V989))->cc.cc_turbo[13]);          V1049= CMPcar(((V1038))->cc.cc_turbo[13]);
9458          goto T4442;          goto T4442;
9459          goto T4449;          goto T4449;
9460  T4449:;  T4449:;
9461          if(!(type_of((V989))==t_structure)){          if(!(type_of((V1038))==t_structure)){
9462          goto T4455;}          goto T4455;}
9463          V1000= (*(LnkLI256))((V989));          V1049= (*(LnkLI256))((V1038));
9464          goto T4442;          goto T4442;
9465          goto T4455;          goto T4455;
9466  T4455:;  T4455:;
9467          if(!(type_of((V989))==t_symbol)){          if(!(type_of((V1038))==t_symbol)){
9468          goto T4458;}          goto T4458;}
9469          if(((V989))==Cnil){          if(((V1038))==Cnil){
9470          goto T4461;}          goto T4461;}
9471          V1000= (VV[44]->s.s_dbind);          V1049= (VV[44]->s.s_dbind);
9472          goto T4442;          goto T4442;
9473          goto T4461;          goto T4461;
9474  T4461:;  T4461:;
9475          V1000= (VV[45]->s.s_dbind);          V1049= (VV[45]->s.s_dbind);
9476          goto T4442;          goto T4442;
9477          goto T4458;          goto T4458;
9478  T4458:;  T4458:;
9479          V1000= (*(LnkLI257))((V989));          V1049= (*(LnkLI257))((V1038));
9480          goto T4442;          goto T4442;
9481  T4442:;  T4442:;
9482          if(type_of(V990)==t_structure){          if(type_of(V1039)==t_structure){
9483          goto T4467;}          goto T4467;}
9484          goto T4465;          goto T4465;
9485          goto T4467;          goto T4467;
9486  T4467:;  T4467:;
9487          if(!(((V990)->str.str_def)==(VV[55]))){          if(!(((V1039)->str.str_def)==(VV[55]))){
9488          goto T4465;}          goto T4465;}
9489          V1001= STREF(object,(V990),0);          V1050= STREF(object,(V1039),0);
9490          goto T4463;          goto T4463;
9491          goto T4465;          goto T4465;
9492  T4465:;{object V1006;  T4465:;{object V1055;
9493          V1006= (VV[30]->s.s_dbind);          V1055= (VV[30]->s.s_dbind);
9494          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
9495          base[6]= (V990);          base[6]= (V1039);
9496          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
9497          (void) (*Lnk253)();          (void) (*Lnk253)();
9498          vs_top=sup;          vs_top=sup;
9499          V1007= vs_base[0];          V1056= vs_base[0];
9500          if(!((V1006)==(CMPcar(V1007)))){          if(!((V1055)==(CMPcar(V1056)))){
9501          goto T4470;}}          goto T4470;}}
9502          V1001= CMPcar(((V990))->cc.cc_turbo[13]);          V1050= CMPcar(((V1039))->cc.cc_turbo[13]);
9503          goto T4463;          goto T4463;
9504          goto T4470;          goto T4470;
9505  T4470:;  T4470:;
9506          if(!(type_of((V990))==t_structure)){          if(!(type_of((V1039))==t_structure)){
9507          goto T4476;}          goto T4476;}
9508          V1001= (*(LnkLI256))((V990));          V1050= (*(LnkLI256))((V1039));
9509          goto T4463;          goto T4463;
9510          goto T4476;          goto T4476;
9511  T4476:;  T4476:;
9512          if(!(type_of((V990))==t_symbol)){          if(!(type_of((V1039))==t_symbol)){
9513          goto T4479;}          goto T4479;}
9514          if(((V990))==Cnil){          if(((V1039))==Cnil){
9515          goto T4482;}          goto T4482;}
9516          V1001= (VV[44]->s.s_dbind);          V1050= (VV[44]->s.s_dbind);
9517          goto T4463;          goto T4463;
9518          goto T4482;          goto T4482;
9519  T4482:;  T4482:;
9520          V1001= (VV[45]->s.s_dbind);          V1050= (VV[45]->s.s_dbind);
9521          goto T4463;          goto T4463;
9522          goto T4479;          goto T4479;
9523  T4479:;  T4479:;
9524          V1001= (*(LnkLI257))((V990));          V1050= (*(LnkLI257))((V1039));
9525          goto T4463;          goto T4463;
9526  T4463:;  T4463:;
9527          {long V1008;          {long V1057;
9528          long V1009;          long V1058;
9529          V1008= 0;          V1057= 0;
9530          V1009= (long)(V998)-(1);          V1058= (long)(V1047)-(1);
9531          {long V1010;          {long V1059;
9532          V1010= fix(((V1000))->v.v_self[V995]);          V1059= fix(((V1049))->v.v_self[V1044]);
9533          if(!((V1010)==0)){          if(!((V1059)==0)){
9534          goto T4490;}          goto T4490;}
9535          goto T4436;          goto T4436;
9536          goto T4490;          goto T4490;
9537  T4490:;  T4490:;
9538          V1008= (long)(V1008)+(V1010);}          V1057= (long)(V1057)+(V1059);}
9539          {long V1011;          {long V1060;
9540          V1011= fix(((V1001))->v.v_self[V995]);          V1060= fix(((V1050))->v.v_self[V1044]);
9541          if(!((V1011)==0)){          if(!((V1060)==0)){
9542          goto T4495;}          goto T4495;}
9543          goto T4436;          goto T4436;
9544          goto T4495;          goto T4495;
9545  T4495:;  T4495:;
9546          V1008= (long)(V1008)+(V1011);          V1057= (long)(V1057)+(V1060);
9547          V1008= (long)((V1008) & (V997));}          V1057= (long)((V1057) & (V1046));}
9548          {long V1012;          {long V1061;
9549          {object V1013;          {object V1062;
9550          V1013= ((V996))->v.v_self[0];          V1062= ((V1045))->v.v_self[0];
9551          if(type_of((V1013))==t_fixnum){          if(type_of((V1062))==t_fixnum){
9552          goto T4503;}          goto T4503;}
9553          base[5]= VV[46];          base[5]= VV[46];
9554          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 9507  T4495:; Line 9556  T4495:;
9556          vs_top=sup;          vs_top=sup;
9557          goto T4503;          goto T4503;
9558  T4503:;  T4503:;
9559          V1012= fix((V1013));}          V1061= fix((V1062));}
9560          {register long V1014;          {register long V1063;
9561          long V1015;          long V1064;
9562          V1014= V1008;          V1063= V1057;
9563          V1015= 0;          V1064= 0;
9564          goto T4511;          goto T4511;
9565  T4511:;  T4511:;
9566          V1015= (long)(V1014)+(4);          V1064= (long)(V1063)+(4);
9567          V1014= (long)(V1014)+(1);          V1065 = (V1045);
9568          if(!(((V1000))==(((V996))->v.v_self[V1014]))){          V1063= (long)(V1063)+(1);
9569            V1066 = V1063;
9570            if(!(((V1049))==((V1065)->v.v_self[V1066]))){
9571          goto T4515;}          goto T4515;}
9572          V1014= (long)(V1014)+(1);          V1067 = (V1045);
9573          if(!(((V1001))==(((V996))->v.v_self[V1014]))){          V1063= (long)(V1063)+(1);
9574            V1068 = V1063;
9575            if(!(((V1050))==((V1067)->v.v_self[V1068]))){
9576          goto T4515;}          goto T4515;}
9577          V1014= (long)(V1014)+(1);          V1063= (long)(V1063)+(1);
9578          V994= ((V996))->v.v_self[V1014];          V1043= ((V1045))->v.v_self[V1063];
9579          goto T4509;          goto T4509;
9580          goto T4515;          goto T4515;
9581  T4515:;  T4515:;
9582          V1014= V1015;          V1063= V1064;
9583          if(!((V1014)==(V1009))){          if(!((V1063)==(V1058))){
9584          goto T4528;}          goto T4528;}
9585          V1014= 0;          V1063= 0;
9586          goto T4528;          goto T4528;
9587  T4528:;  T4528:;
9588          if(!((V1014)==(V1008))){          if(!((V1063)==(V1057))){
9589          goto T4512;}          goto T4512;}
9590          {register object V1016;          {register object V1069;
9591          register object V1017;          register object V1070;
9592          V1016= (V999);          V1069= (V1048);
9593          V1017= CMPcar((V1016));          V1070= CMPcar((V1069));
9594          goto T4538;          goto T4538;
9595  T4538:;  T4538:;
9596          if(!(((V1016))==Cnil)){          if(!(((V1069))==Cnil)){
9597          goto T4539;}          goto T4539;}
9598          goto T4534;          goto T4534;
9599          goto T4539;          goto T4539;
9600  T4539:;  T4539:;
9601          {register object V1018;          {register object V1071;
9602          V1018= CMPcar((V1017));          V1071= CMPcar((V1070));
9603          {register object V1020;          V1072 = (V1049);
9604          V1020= CMPcar((V1018));          {register object V1074;
9605          V1018= CMPcdr((V1018));          V1074= CMPcar((V1071));
9606          V1019= (V1020);}          V1071= CMPcdr((V1071));
9607          if(!(((V1000))==(V1019))){          V1073= (V1074);}
9608            if(!((V1072)==(V1073))){
9609          goto T4543;}          goto T4543;}
9610          {register object V1022;          V1075 = (V1050);
9611          V1022= CMPcar((V1018));          {register object V1077;
9612          V1018= CMPcdr((V1018));          V1077= CMPcar((V1071));
9613          V1021= (V1022);}          V1071= CMPcdr((V1071));
9614          if(!(((V1001))==(V1021))){          V1076= (V1077);}
9615            if(!((V1075)==(V1076))){
9616          goto T4543;}          goto T4543;}
9617          V994= CMPcdr((V1017));          V1043= CMPcdr((V1070));
9618          goto T4509;}          goto T4509;}
9619          goto T4543;          goto T4543;
9620  T4543:;  T4543:;
9621          V1016= CMPcdr((V1016));          V1069= CMPcdr((V1069));
9622          V1017= CMPcar((V1016));          V1070= CMPcar((V1069));
9623          goto T4538;}          goto T4538;}
9624          goto T4534;          goto T4534;
9625  T4534:;  T4534:;
# Line 9574  T4512:; Line 9629  T4512:;
9629          goto T4511;          goto T4511;
9630          goto T4509;          goto T4509;
9631  T4509:;  T4509:;
9632          {object V1024;          V1078 = V1061;
9633          V1024= ((V996))->v.v_self[0];          {object V1080;
9634          if(type_of((V1024))==t_fixnum){          V1080= ((V1045))->v.v_self[0];
9635            if(type_of((V1080))==t_fixnum){
9636          goto T4569;}          goto T4569;}
9637          base[5]= VV[46];          base[5]= VV[46];
9638          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 9584  T4509:; Line 9640  T4509:;
9640          vs_top=sup;          vs_top=sup;
9641          goto T4569;          goto T4569;
9642  T4569:;  T4569:;
9643          V1023= fix((V1024));}          V1079= fix((V1080));}
9644          if((V1012)==(V1023)){          if((V1078)==(V1079)){
9645          goto T4484;}          goto T4484;}
9646          goto T4436;}}}          goto T4436;}}}
9647          goto T4484;          goto T4484;
9648  T4484:;  T4484:;
9649          base[5]= (V994);          base[5]= (V1043);
9650          base[6]= VV[2];          base[6]= VV[2];
9651          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
9652          (void) (*Lnk258)();          (void) (*Lnk258)();
9653          vs_top=sup;          vs_top=sup;
9654          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9655          goto T4575;}          goto T4575;}
9656          base[5]= STREF(object,(V994),0);          base[5]= STREF(object,(V1043),0);
9657          base[6]= STREF(object,(V994),4);          base[6]= STREF(object,(V1043),4);
9658          base[7]= STREF(object,(V994),8);          base[7]= STREF(object,(V1043),8);
9659          base[8]= (V989);          base[8]= (V1038);
9660          base[9]= (V990);          base[9]= (V1039);
9661          base[10]= (V991);          base[10]= (V1040);
9662          base[11]= (V992);          base[11]= (V1041);
9663          base[12]= (V993);          base[12]= (V1042);
9664          vs_top=(vs_base=base+6)+7;          vs_top=(vs_base=base+6)+7;
9665          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9666                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9613  T4484:; Line 9669  T4484:;
9669          return;          return;
9670          goto T4575;          goto T4575;
9671  T4575:;  T4575:;
9672          base[5]= V994;          base[5]= V1043;
9673          base[6]= VV[10];          base[6]= VV[10];
9674          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
9675          (void) (*Lnk258)();          (void) (*Lnk258)();
9676          vs_top=sup;          vs_top=sup;
9677          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9678          goto T4588;}          goto T4588;}
9679          {object V1026;          {object V1082;
9680          object V1027;          object V1083;
9681          object V1028;          object V1084;
9682          V1026= STREF(object,(V994),0);          V1082= STREF(object,(V1043),0);
9683          V1027= list(5,(V989),(V990),(V991),(V992),(V993));          V1083= list(5,(V1038),(V1039),(V1040),(V1041),(V1042));
9684          V1028= STREF(object,(V994),4);          V1084= STREF(object,(V1043),4);
9685          if(((V1028))==Cnil){          if(((V1084))==Cnil){
9686          goto T4596;}          goto T4596;}
9687          if((CMPcdr((V1028)))!=Cnil){          if((CMPcdr((V1084)))!=Cnil){
9688          goto T4596;}          goto T4596;}
9689          base[5]= (V1027);          base[5]= (V1083);
9690          base[6]= CMPcar((V1028));          base[6]= CMPcar((V1084));
9691          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
9692          {object _funobj = (V1026);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1082);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9693                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9694                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9695                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9696          return;          return;
9697          goto T4596;          goto T4596;
9698  T4596:;  T4596:;
9699          base[5]= (V1026);          base[5]= (V1082);
9700          base[6]= (V1027);          base[6]= (V1083);
9701          {object V1029;          {object V1085;
9702          V1029= (V1028);          V1085= (V1084);
9703           vs_top=base+7;           vs_top=base+7;
9704           while(V1029!=Cnil)           while(V1085!=Cnil)
9705           {vs_push((V1029)->c.c_car);V1029=(V1029)->c.c_cdr;}           {vs_push((V1085)->c.c_car);V1085=(V1085)->c.c_cdr;}
9706          vs_base=base+6;}          vs_base=base+6;}
9707          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9708                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9655  T4596:; Line 9711  T4596:;
9711          return;}          return;}
9712          goto T4588;          goto T4588;
9713  T4588:;  T4588:;
9714          base[5]= V994;          base[5]= V1043;
9715          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
9716          Lfunctionp();          Lfunctionp();
9717          vs_top=sup;          vs_top=sup;
9718          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9719          goto T4606;}          goto T4606;}
9720          base[5]= (V989);          base[5]= (V1038);
9721          base[6]= (V990);          base[6]= (V1039);
9722          base[7]= (V991);          base[7]= (V1040);
9723          base[8]= (V992);          base[8]= (V1041);
9724          base[9]= (V993);          base[9]= (V1042);
9725          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
9726          {object _funobj = (V994);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1043);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9727                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9728                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9729                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 9675  T4588:; Line 9731  T4588:;
9731          goto T4606;          goto T4606;
9732  T4606:;  T4606:;
9733          base[6]= VV[11];          base[6]= VV[11];
9734          base[7]= V994;          base[7]= V1043;
9735          base[8]= VV[56];          base[8]= VV[56];
9736          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
9737          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 9686  T4606:; Line 9742  T4606:;
9742          return;}          return;}
9743          goto T4436;          goto T4436;
9744  T4436:;  T4436:;
9745          base[5]= (V989);          base[5]= (V1038);
9746          base[6]= (V990);          base[6]= (V1039);
9747          base[7]= (V991);          base[7]= (V1040);
9748          base[8]= (V992);          base[8]= (V1041);
9749          base[9]= (V993);          base[9]= (V1042);
9750          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
9751          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9752                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9725  register object *base0; Line 9781  register object *base0;
9781  {       register object *base=vs_base;  {       register object *base=vs_base;
9782          register object *sup=base+VM138; VC138          register object *sup=base+VM138; VC138
9783          vs_check;          vs_check;
9784          {object V1030;          {object V1086;
9785          object V1031;          object V1087;
9786          object V1032;          object V1088;
9787          check_arg(3);          check_arg(3);
9788          V1030=(base[0]);          V1086=(base[0]);
9789          V1031=(base[1]);          V1087=(base[1]);
9790          V1032=(base[2]);          V1088=(base[2]);
9791          vs_top=sup;          vs_top=sup;
9792          {object V1033;          {object V1089;
9793          V1033= Cnil;          V1089= Cnil;
9794          {long V1034;          {long V1090;
9795          object V1035;          object V1091;
9796          long V1036;          long V1092;
9797          long V1037;          long V1093;
9798          object V1038;          object V1094;
9799          object V1039;          object V1095;
9800          object V1040;          object V1096;
9801          V1034= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V1090= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
9802          V1035= STREF(object,(base0[1]->c.c_car),40);          V1091= STREF(object,(base0[1]->c.c_car),40);
9803          V1036= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V1092= (long)STREF(fixnum,(base0[1]->c.c_car),24);
9804          V1037= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V1093= (long)STREF(fixnum,(base0[1]->c.c_car),28);
9805          V1038= STREF(object,(base0[1]->c.c_car),44);          V1094= STREF(object,(base0[1]->c.c_car),44);
9806          if(type_of(V1030)==t_structure){          if(type_of(V1086)==t_structure){
9807          goto T4635;}          goto T4635;}
9808          goto T4633;          goto T4633;
9809          goto T4635;          goto T4635;
9810  T4635:;  T4635:;
9811          if(!(((V1030)->str.str_def)==(VV[50]))){          if(!(((V1086)->str.str_def)==(VV[50]))){
9812          goto T4633;}          goto T4633;}
9813          V1039= STREF(object,(V1030),0);          V1095= STREF(object,(V1086),0);
9814          goto T4631;          goto T4631;
9815          goto T4633;          goto T4633;
9816  T4633:;{object V1042;  T4633:;{object V1098;
9817          V1042= (VV[30]->s.s_dbind);          V1098= (VV[30]->s.s_dbind);
9818          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
9819          base[4]= (V1030);          base[4]= (V1086);
9820          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
9821          (void) (*Lnk253)();          (void) (*Lnk253)();
9822          vs_top=sup;          vs_top=sup;
9823          V1043= vs_base[0];          V1099= vs_base[0];
9824          if(!((V1042)==(CMPcar(V1043)))){          if(!((V1098)==(CMPcar(V1099)))){
9825          goto T4638;}}          goto T4638;}}
9826          V1039= CMPcar(((V1030))->cc.cc_turbo[13]);          V1095= CMPcar(((V1086))->cc.cc_turbo[13]);
9827          goto T4631;          goto T4631;
9828          goto T4638;          goto T4638;
9829  T4638:;  T4638:;
9830          if(!(type_of((V1030))==t_structure)){          if(!(type_of((V1086))==t_structure)){
9831          goto T4644;}          goto T4644;}
9832          V1039= (*(LnkLI256))((V1030));          V1095= (*(LnkLI256))((V1086));
9833          goto T4631;          goto T4631;
9834          goto T4644;          goto T4644;
9835  T4644:;  T4644:;
9836          if(!(type_of((V1030))==t_symbol)){          if(!(type_of((V1086))==t_symbol)){
9837          goto T4647;}          goto T4647;}
9838          if(((V1030))==Cnil){          if(((V1086))==Cnil){
9839          goto T4650;}          goto T4650;}
9840          V1039= (VV[44]->s.s_dbind);          V1095= (VV[44]->s.s_dbind);
9841          goto T4631;          goto T4631;
9842          goto T4650;          goto T4650;
9843  T4650:;  T4650:;
9844          V1039= (VV[45]->s.s_dbind);          V1095= (VV[45]->s.s_dbind);
9845          goto T4631;          goto T4631;
9846          goto T4647;          goto T4647;
9847  T4647:;  T4647:;
9848          V1039= (*(LnkLI257))((V1030));          V1095= (*(LnkLI257))((V1086));
9849          goto T4631;          goto T4631;
9850  T4631:;  T4631:;
9851          if(type_of(V1031)==t_structure){          if(type_of(V1087)==t_structure){
9852          goto T4656;}          goto T4656;}
9853          goto T4654;          goto T4654;
9854          goto T4656;          goto T4656;
9855  T4656:;  T4656:;
9856          if(!(((V1031)->str.str_def)==(VV[51]))){          if(!(((V1087)->str.str_def)==(VV[51]))){
9857          goto T4654;}          goto T4654;}
9858          V1040= STREF(object,(V1031),0);          V1096= STREF(object,(V1087),0);
9859          goto T4652;          goto T4652;
9860          goto T4654;          goto T4654;
9861  T4654:;{object V1045;  T4654:;{object V1101;
9862          V1045= (VV[30]->s.s_dbind);          V1101= (VV[30]->s.s_dbind);
9863          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
9864          base[4]= (V1031);          base[4]= (V1087);
9865          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
9866          (void) (*Lnk253)();          (void) (*Lnk253)();
9867          vs_top=sup;          vs_top=sup;
9868          V1046= vs_base[0];          V1102= vs_base[0];
9869          if(!((V1045)==(CMPcar(V1046)))){          if(!((V1101)==(CMPcar(V1102)))){
9870          goto T4659;}}          goto T4659;}}
9871          V1040= CMPcar(((V1031))->cc.cc_turbo[13]);          V1096= CMPcar(((V1087))->cc.cc_turbo[13]);
9872          goto T4652;          goto T4652;
9873          goto T4659;          goto T4659;
9874  T4659:;  T4659:;
9875          if(!(type_of((V1031))==t_structure)){          if(!(type_of((V1087))==t_structure)){
9876          goto T4665;}          goto T4665;}
9877          V1040= (*(LnkLI256))((V1031));          V1096= (*(LnkLI256))((V1087));
9878          goto T4652;          goto T4652;
9879          goto T4665;          goto T4665;
9880  T4665:;  T4665:;
9881          if(!(type_of((V1031))==t_symbol)){          if(!(type_of((V1087))==t_symbol)){
9882          goto T4668;}          goto T4668;}
9883          if(((V1031))==Cnil){          if(((V1087))==Cnil){
9884          goto T4671;}          goto T4671;}
9885          V1040= (VV[44]->s.s_dbind);          V1096= (VV[44]->s.s_dbind);
9886          goto T4652;          goto T4652;
9887          goto T4671;          goto T4671;
9888  T4671:;  T4671:;
9889          V1040= (VV[45]->s.s_dbind);          V1096= (VV[45]->s.s_dbind);
9890          goto T4652;          goto T4652;
9891          goto T4668;          goto T4668;
9892  T4668:;  T4668:;
9893          V1040= (*(LnkLI257))((V1031));          V1096= (*(LnkLI257))((V1087));
9894          goto T4652;          goto T4652;
9895  T4652:;  T4652:;
9896          {long V1047;          {long V1103;
9897          long V1048;          long V1104;
9898          V1047= 0;          V1103= 0;
9899          V1048= (long)(V1037)-(1);          V1104= (long)(V1093)-(1);
9900          {long V1049;          {long V1105;
9901          V1049= fix(((V1039))->v.v_self[V1034]);          V1105= fix(((V1095))->v.v_self[V1090]);
9902          if(!((V1049)==0)){          if(!((V1105)==0)){
9903          goto T4679;}          goto T4679;}
9904          goto T4625;          goto T4625;
9905          goto T4679;          goto T4679;
9906  T4679:;  T4679:;
9907          V1047= (long)(V1047)+(V1049);}          V1103= (long)(V1103)+(V1105);}
9908          {long V1050;          {long V1106;
9909          V1050= fix(((V1040))->v.v_self[V1034]);          V1106= fix(((V1096))->v.v_self[V1090]);
9910          if(!((V1050)==0)){          if(!((V1106)==0)){
9911          goto T4684;}          goto T4684;}
9912          goto T4625;          goto T4625;
9913          goto T4684;          goto T4684;
9914  T4684:;  T4684:;
9915          V1047= (long)(V1047)+(V1050);          V1103= (long)(V1103)+(V1106);
9916          V1047= (long)((V1047) & (V1036));}          V1103= (long)((V1103) & (V1092));}
9917          {long V1051;          {long V1107;
9918          {object V1052;          {object V1108;
9919          V1052= ((V1035))->v.v_self[0];          V1108= ((V1091))->v.v_self[0];
9920          if(type_of((V1052))==t_fixnum){          if(type_of((V1108))==t_fixnum){
9921          goto T4692;}          goto T4692;}
9922          base[3]= VV[46];          base[3]= VV[46];
9923          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 9869  T4684:; Line 9925  T4684:;
9925          vs_top=sup;          vs_top=sup;
9926          goto T4692;          goto T4692;
9927  T4692:;  T4692:;
9928          V1051= fix((V1052));}          V1107= fix((V1108));}
9929          {register long V1053;          {register long V1109;
9930          long V1054;          long V1110;
9931          V1053= V1047;          V1109= V1103;
9932          V1054= 0;          V1110= 0;
9933          goto T4700;          goto T4700;
9934  T4700:;  T4700:;
9935          V1054= (long)(V1053)+(4);          V1110= (long)(V1109)+(4);
9936          V1053= (long)(V1053)+(1);          V1111 = (V1091);
9937          if(!(((V1039))==(((V1035))->v.v_self[V1053]))){          V1109= (long)(V1109)+(1);
9938            V1112 = V1109;
9939            if(!(((V1095))==((V1111)->v.v_self[V1112]))){
9940          goto T4704;}          goto T4704;}
9941          V1053= (long)(V1053)+(1);          V1113 = (V1091);
9942          if(!(((V1040))==(((V1035))->v.v_self[V1053]))){          V1109= (long)(V1109)+(1);
9943            V1114 = V1109;
9944            if(!(((V1096))==((V1113)->v.v_self[V1114]))){
9945          goto T4704;}          goto T4704;}
9946          V1053= (long)(V1053)+(1);          V1109= (long)(V1109)+(1);
9947          V1033= ((V1035))->v.v_self[V1053];          V1089= ((V1091))->v.v_self[V1109];
9948          goto T4698;          goto T4698;
9949          goto T4704;          goto T4704;
9950  T4704:;  T4704:;
9951          V1053= V1054;          V1109= V1110;
9952          if(!((V1053)==(V1048))){          if(!((V1109)==(V1104))){
9953          goto T4717;}          goto T4717;}
9954          V1053= 0;          V1109= 0;
9955          goto T4717;          goto T4717;
9956  T4717:;  T4717:;
9957          if(!((V1053)==(V1047))){          if(!((V1109)==(V1103))){
9958          goto T4701;}          goto T4701;}
9959          {register object V1055;          {register object V1115;
9960          register object V1056;          register object V1116;
9961          V1055= (V1038);          V1115= (V1094);
9962          V1056= CMPcar((V1055));          V1116= CMPcar((V1115));
9963          goto T4727;          goto T4727;
9964  T4727:;  T4727:;
9965          if(!(((V1055))==Cnil)){          if(!(((V1115))==Cnil)){
9966          goto T4728;}          goto T4728;}
9967          goto T4723;          goto T4723;
9968          goto T4728;          goto T4728;
9969  T4728:;  T4728:;
9970          {register object V1057;          {register object V1117;
9971          V1057= CMPcar((V1056));          V1117= CMPcar((V1116));
9972          {register object V1059;          V1118 = (V1095);
9973          V1059= CMPcar((V1057));          {register object V1120;
9974          V1057= CMPcdr((V1057));          V1120= CMPcar((V1117));
9975          V1058= (V1059);}          V1117= CMPcdr((V1117));
9976          if(!(((V1039))==(V1058))){          V1119= (V1120);}
9977            if(!((V1118)==(V1119))){
9978          goto T4732;}          goto T4732;}
9979          {register object V1061;          V1121 = (V1096);
9980          V1061= CMPcar((V1057));          {register object V1123;
9981          V1057= CMPcdr((V1057));          V1123= CMPcar((V1117));
9982          V1060= (V1061);}          V1117= CMPcdr((V1117));
9983          if(!(((V1040))==(V1060))){          V1122= (V1123);}
9984            if(!((V1121)==(V1122))){
9985          goto T4732;}          goto T4732;}
9986          V1033= CMPcdr((V1056));          V1089= CMPcdr((V1116));
9987          goto T4698;}          goto T4698;}
9988          goto T4732;          goto T4732;
9989  T4732:;  T4732:;
9990          V1055= CMPcdr((V1055));          V1115= CMPcdr((V1115));
9991          V1056= CMPcar((V1055));          V1116= CMPcar((V1115));
9992          goto T4727;}          goto T4727;}
9993          goto T4723;          goto T4723;
9994  T4723:;  T4723:;
# Line 9936  T4701:; Line 9998  T4701:;
9998          goto T4700;          goto T4700;
9999          goto T4698;          goto T4698;
10000  T4698:;  T4698:;
10001          {object V1063;          V1124 = V1107;
10002          V1063= ((V1035))->v.v_self[0];          {object V1126;
10003          if(type_of((V1063))==t_fixnum){          V1126= ((V1091))->v.v_self[0];
10004            if(type_of((V1126))==t_fixnum){
10005          goto T4758;}          goto T4758;}
10006          base[3]= VV[46];          base[3]= VV[46];
10007          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 9946  T4698:; Line 10009  T4698:;
10009          vs_top=sup;          vs_top=sup;
10010          goto T4758;          goto T4758;
10011  T4758:;  T4758:;
10012          V1062= fix((V1063));}          V1125= fix((V1126));}
10013          if((V1051)==(V1062)){          if((V1124)==(V1125)){
10014          goto T4673;}          goto T4673;}
10015          goto T4625;}}}          goto T4625;}}}
10016          goto T4673;          goto T4673;
10017  T4673:;  T4673:;
10018          base[3]= (V1033);          base[3]= (V1089);
10019          base[4]= VV[2];          base[4]= VV[2];
10020          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10021          (void) (*Lnk258)();          (void) (*Lnk258)();
10022          vs_top=sup;          vs_top=sup;
10023          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10024          goto T4764;}          goto T4764;}
10025          base[3]= STREF(object,(V1033),0);          base[3]= STREF(object,(V1089),0);
10026          base[4]= STREF(object,(V1033),4);          base[4]= STREF(object,(V1089),4);
10027          base[5]= STREF(object,(V1033),8);          base[5]= STREF(object,(V1089),8);
10028          base[6]= (V1030);          base[6]= (V1086);
10029          base[7]= (V1031);          base[7]= (V1087);
10030          base[8]= (V1032);          base[8]= (V1088);
10031          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
10032          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10033                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9973  T4673:; Line 10036  T4673:;
10036          return;          return;
10037          goto T4764;          goto T4764;
10038  T4764:;  T4764:;
10039          base[3]= V1033;          base[3]= V1089;
10040          base[4]= VV[10];          base[4]= VV[10];
10041          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10042          (void) (*Lnk258)();          (void) (*Lnk258)();
10043          vs_top=sup;          vs_top=sup;
10044          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10045          goto T4775;}          goto T4775;}
10046          {object V1065;          {object V1128;
10047          object V1066;          object V1129;
10048          object V1067;          object V1130;
10049          V1065= STREF(object,(V1033),0);          V1128= STREF(object,(V1089),0);
10050          V1066= list(3,(V1030),(V1031),(V1032));          V1129= list(3,(V1086),(V1087),(V1088));
10051          V1067= STREF(object,(V1033),4);          V1130= STREF(object,(V1089),4);
10052          if(((V1067))==Cnil){          if(((V1130))==Cnil){
10053          goto T4783;}          goto T4783;}
10054          if((CMPcdr((V1067)))!=Cnil){          if((CMPcdr((V1130)))!=Cnil){
10055          goto T4783;}          goto T4783;}
10056          base[3]= (V1066);          base[3]= (V1129);
10057          base[4]= CMPcar((V1067));          base[4]= CMPcar((V1130));
10058          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10059          {object _funobj = (V1065);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1128);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10060                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10061                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10062                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10063          return;          return;
10064          goto T4783;          goto T4783;
10065  T4783:;  T4783:;
10066          base[3]= (V1065);          base[3]= (V1128);
10067          base[4]= (V1066);          base[4]= (V1129);
10068          {object V1068;          {object V1131;
10069          V1068= (V1067);          V1131= (V1130);
10070           vs_top=base+5;           vs_top=base+5;
10071           while(V1068!=Cnil)           while(V1131!=Cnil)
10072           {vs_push((V1068)->c.c_car);V1068=(V1068)->c.c_cdr;}           {vs_push((V1131)->c.c_car);V1131=(V1131)->c.c_cdr;}
10073          vs_base=base+4;}          vs_base=base+4;}
10074          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10075                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10015  T4783:; Line 10078  T4783:;
10078          return;}          return;}
10079          goto T4775;          goto T4775;
10080  T4775:;  T4775:;
10081          base[3]= V1033;          base[3]= V1089;
10082          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
10083          Lfunctionp();          Lfunctionp();
10084          vs_top=sup;          vs_top=sup;
10085          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10086          goto T4793;}          goto T4793;}
10087          base[3]= (V1030);          base[3]= (V1086);
10088          base[4]= (V1031);          base[4]= (V1087);
10089          base[5]= (V1032);          base[5]= (V1088);
10090          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
10091          {object _funobj = (V1033);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1089);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10092                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10093                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10094                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 10033  T4775:; Line 10096  T4775:;
10096          goto T4793;          goto T4793;
10097  T4793:;  T4793:;
10098          base[4]= VV[11];          base[4]= VV[11];
10099          base[5]= V1033;          base[5]= V1089;
10100          base[6]= VV[52];          base[6]= VV[52];
10101          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
10102          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 10044  T4793:; Line 10107  T4793:;
10107          return;}          return;}
10108          goto T4625;          goto T4625;
10109  T4625:;  T4625:;
10110          base[3]= (V1030);          base[3]= (V1086);
10111          base[4]= (V1031);          base[4]= (V1087);
10112          base[5]= (V1032);          base[5]= (V1088);
10113          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
10114          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10115                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10081  register object *base0; Line 10144  register object *base0;
10144  {       register object *base=vs_base;  {       register object *base=vs_base;
10145          register object *sup=base+VM140; VC140          register object *sup=base+VM140; VC140
10146          vs_check;          vs_check;
10147          {object V1069;          {object V1132;
10148          object V1070;          object V1133;
10149          check_arg(2);          check_arg(2);
10150          V1069=(base[0]);          V1132=(base[0]);
10151          V1070=(base[1]);          V1133=(base[1]);
10152          vs_top=sup;          vs_top=sup;
10153          {register object V1071;          {register object V1134;
10154          V1071= Cnil;          V1134= Cnil;
10155          {long V1072;          {long V1135;
10156          register object V1073;          register object V1136;
10157          long V1074;          long V1137;
10158          long V1075;          long V1138;
10159          object V1076;          object V1139;
10160          register object V1077;          register object V1140;
10161          V1072= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V1135= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
10162          V1073= STREF(object,(base0[1]->c.c_car),40);          V1136= STREF(object,(base0[1]->c.c_car),40);
10163          V1074= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V1137= (long)STREF(fixnum,(base0[1]->c.c_car),24);
10164          V1075= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V1138= (long)STREF(fixnum,(base0[1]->c.c_car),28);
10165          V1076= STREF(object,(base0[1]->c.c_car),44);          V1139= STREF(object,(base0[1]->c.c_car),44);
10166          if(type_of(V1070)==t_structure){          if(type_of(V1133)==t_structure){
10167          goto T4818;}          goto T4818;}
10168          goto T4816;          goto T4816;
10169          goto T4818;          goto T4818;
10170  T4818:;  T4818:;
10171          if(!(((V1070)->str.str_def)==(VV[43]))){          if(!(((V1133)->str.str_def)==(VV[43]))){
10172          goto T4816;}          goto T4816;}
10173          V1077= STREF(object,(V1070),0);          V1140= STREF(object,(V1133),0);
10174          goto T4814;          goto T4814;
10175          goto T4816;          goto T4816;
10176  T4816:;{object V1079;  T4816:;{object V1142;
10177          V1079= (VV[30]->s.s_dbind);          V1142= (VV[30]->s.s_dbind);
10178          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
10179          base[3]= (V1070);          base[3]= (V1133);
10180          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10181          (void) (*Lnk253)();          (void) (*Lnk253)();
10182          vs_top=sup;          vs_top=sup;
10183          V1080= vs_base[0];          V1143= vs_base[0];
10184          if(!((V1079)==(CMPcar(V1080)))){          if(!((V1142)==(CMPcar(V1143)))){
10185          goto T4821;}}          goto T4821;}}
10186          V1077= CMPcar(((V1070))->cc.cc_turbo[13]);          V1140= CMPcar(((V1133))->cc.cc_turbo[13]);
10187          goto T4814;          goto T4814;
10188          goto T4821;          goto T4821;
10189  T4821:;  T4821:;
10190          if(!(type_of((V1070))==t_structure)){          if(!(type_of((V1133))==t_structure)){
10191          goto T4827;}          goto T4827;}
10192          V1077= (*(LnkLI256))((V1070));          V1140= (*(LnkLI256))((V1133));
10193          goto T4814;          goto T4814;
10194          goto T4827;          goto T4827;
10195  T4827:;  T4827:;
10196          if(!(type_of((V1070))==t_symbol)){          if(!(type_of((V1133))==t_symbol)){
10197          goto T4830;}          goto T4830;}
10198          if(((V1070))==Cnil){          if(((V1133))==Cnil){
10199          goto T4833;}          goto T4833;}
10200          V1077= (VV[44]->s.s_dbind);          V1140= (VV[44]->s.s_dbind);
10201          goto T4814;          goto T4814;
10202          goto T4833;          goto T4833;
10203  T4833:;  T4833:;
10204          V1077= (VV[45]->s.s_dbind);          V1140= (VV[45]->s.s_dbind);
10205          goto T4814;          goto T4814;
10206          goto T4830;          goto T4830;
10207  T4830:;  T4830:;
10208          V1077= (*(LnkLI257))((V1070));          V1140= (*(LnkLI257))((V1133));
10209          goto T4814;          goto T4814;
10210  T4814:;  T4814:;
10211          {long V1081;          {long V1144;
10212          long V1082;          long V1145;
10213          {long V1083;          {long V1146;
10214          V1083= fix(((V1077))->v.v_self[V1072]);          V1146= fix(((V1140))->v.v_self[V1135]);
10215          if(!((V1083)==0)){          if(!((V1146)==0)){
10216          goto T4838;}          goto T4838;}
10217          goto T4808;          goto T4808;
10218          goto T4838;          goto T4838;
10219  T4838:;  T4838:;
10220          V1081= (long)((V1074) & (V1083));}          V1144= (long)((V1137) & (V1146));}
10221          {object V1084;          {object V1147;
10222          V1084= ((V1073))->v.v_self[0];          V1147= ((V1136))->v.v_self[0];
10223          if(type_of((V1084))==t_fixnum){          if(type_of((V1147))==t_fixnum){
10224          goto T4843;}          goto T4843;}
10225          base[2]= VV[46];          base[2]= VV[46];
10226          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 10165  T4838:; Line 10228  T4838:;
10228          vs_top=sup;          vs_top=sup;
10229          goto T4843;          goto T4843;
10230  T4843:;  T4843:;
10231          V1082= fix((V1084));}          V1145= fix((V1147));}
10232          {register long V1085;          {register long V1148;
10233          V1085= V1081;          V1148= V1144;
10234          goto T4850;          goto T4850;
10235  T4850:;  T4850:;
10236          if(!(((V1077))==(((V1073))->v.v_self[V1085]))){          if(!(((V1140))==(((V1136))->v.v_self[V1148]))){
10237          goto T4852;}          goto T4852;}
10238          V1071= ((V1073))->v.v_self[(long)(V1085)+1];          V1134= ((V1136))->v.v_self[(long)(V1148)+1];
10239          goto T4848;          goto T4848;
10240          goto T4852;          goto T4852;
10241  T4852:;  T4852:;
10242          V1085= (long)(V1085)+(2);          V1148= (long)(V1148)+(2);
10243          if(!((V1085)==(V1075))){          if(!((V1148)==(V1138))){
10244          goto T4859;}          goto T4859;}
10245          V1085= 0;          V1148= 0;
10246          goto T4859;          goto T4859;
10247  T4859:;  T4859:;
10248          if(!((V1085)==(V1081))){          if(!((V1148)==(V1144))){
10249          goto T4851;}          goto T4851;}
10250          {register object V1086;          {register object V1149;
10251          register object V1087;          register object V1150;
10252          V1086= (V1076);          V1149= (V1139);
10253          V1087= CMPcar((V1086));          V1150= CMPcar((V1149));
10254          goto T4869;          goto T4869;
10255  T4869:;  T4869:;
10256          if(!(((V1086))==Cnil)){          if(!(((V1149))==Cnil)){
10257          goto T4870;}          goto T4870;}
10258          goto T4865;          goto T4865;
10259          goto T4870;          goto T4870;
10260  T4870:;  T4870:;
10261          if(!((CMPcar((V1087)))==((V1077)))){          if(!((CMPcar((V1150)))==((V1140)))){
10262          goto T4874;}          goto T4874;}
10263          V1071= CMPcdr((V1087));          V1134= CMPcdr((V1150));
10264          goto T4848;          goto T4848;
10265          goto T4874;          goto T4874;
10266  T4874:;  T4874:;
10267          V1086= CMPcdr((V1086));          V1149= CMPcdr((V1149));
10268          V1087= CMPcar((V1086));          V1150= CMPcar((V1149));
10269          goto T4869;}          goto T4869;}
10270          goto T4865;          goto T4865;
10271  T4865:;  T4865:;
# Line 10212  T4851:; Line 10275  T4851:;
10275          goto T4850;          goto T4850;
10276          goto T4848;          goto T4848;
10277  T4848:;  T4848:;
10278          {object V1089;          V1151 = V1145;
10279          V1089= ((V1073))->v.v_self[0];          {object V1153;
10280          if(type_of((V1089))==t_fixnum){          V1153= ((V1136))->v.v_self[0];
10281            if(type_of((V1153))==t_fixnum){
10282          goto T4889;}          goto T4889;}
10283          base[2]= VV[46];          base[2]= VV[46];
10284          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 10222  T4848:; Line 10286  T4848:;
10286          vs_top=sup;          vs_top=sup;
10287          goto T4889;          goto T4889;
10288  T4889:;  T4889:;
10289          V1088= fix((V1089));}          V1152= fix((V1153));}
10290          if((V1082)==(V1088)){          if((V1151)==(V1152)){
10291          goto T4835;}          goto T4835;}
10292          goto T4808;}}          goto T4808;}}
10293          goto T4835;          goto T4835;
10294  T4835:;  T4835:;
10295          base[2]= (V1071);          base[2]= (V1134);
10296          base[3]= VV[2];          base[3]= VV[2];
10297          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10298          (void) (*Lnk258)();          (void) (*Lnk258)();
10299          vs_top=sup;          vs_top=sup;
10300          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10301          goto T4895;}          goto T4895;}
10302          base[2]= STREF(object,(V1071),0);          base[2]= STREF(object,(V1134),0);
10303          base[3]= STREF(object,(V1071),4);          base[3]= STREF(object,(V1134),4);
10304          base[4]= STREF(object,(V1071),8);          base[4]= STREF(object,(V1134),8);
10305          base[5]= (V1069);          base[5]= (V1132);
10306          base[6]= (V1070);          base[6]= (V1133);
10307          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
10308          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10309                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10248  T4835:; Line 10312  T4835:;
10312          return;          return;
10313          goto T4895;          goto T4895;
10314  T4895:;  T4895:;
10315          if(!(type_of((V1071))==t_fixnum)){          if(!(type_of((V1134))==t_fixnum)){
10316          goto T4905;}          goto T4905;}
10317          {object V1091;          {object V1155;
10318          if(type_of(V1069)==t_structure){          if(type_of(V1132)==t_structure){
10319          goto T4911;}          goto T4911;}
10320          goto T4909;          goto T4909;
10321          goto T4911;          goto T4911;
10322  T4911:;  T4911:;
10323          if(!(((V1069)->str.str_def)==(VV[47]))){          if(!(((V1132)->str.str_def)==(VV[47]))){
10324          goto T4909;}          goto T4909;}
10325          V1091= STREF(object,(V1069),4);          V1155= STREF(object,(V1132),4);
10326          goto T4907;          goto T4907;
10327          goto T4909;          goto T4909;
10328  T4909:;{object V1093;  T4909:;{object V1157;
10329          V1093= (VV[30]->s.s_dbind);          V1157= (VV[30]->s.s_dbind);
10330          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
10331          base[3]= (V1069);          base[3]= (V1132);
10332          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10333          (void) (*Lnk253)();          (void) (*Lnk253)();
10334          vs_top=sup;          vs_top=sup;
10335          V1094= vs_base[0];          V1158= vs_base[0];
10336          if(!((V1093)==(CMPcar(V1094)))){          if(!((V1157)==(CMPcar(V1158)))){
10337          goto T4914;}}          goto T4914;}}
10338          V1091= CMPcar(((V1069))->cc.cc_turbo[12]);          V1155= CMPcar(((V1132))->cc.cc_turbo[12]);
10339          goto T4907;          goto T4907;
10340          goto T4914;          goto T4914;
10341  T4914:;  T4914:;
10342          V1091= Cnil;          V1155= Cnil;
10343          goto T4907;          goto T4907;
10344  T4907:;  T4907:;
10345          if(((V1091))==Cnil){          if(((V1155))==Cnil){
10346          goto T4920;}          goto T4920;}
10347          base[2]= ((V1091))->v.v_self[fix((V1071))]= (V1069);          base[2]= ((V1155))->v.v_self[fix((V1134))]= (V1132);
10348          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10349          return;          return;
10350          goto T4920;          goto T4920;
# Line 10290  T4920:; Line 10354  T4920:;
10354          return;}          return;}
10355          goto T4905;          goto T4905;
10356  T4905:;  T4905:;
10357          base[2]= V1071;          base[2]= V1134;
10358          base[3]= VV[10];          base[3]= VV[10];
10359          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10360          (void) (*Lnk258)();          (void) (*Lnk258)();
10361          vs_top=sup;          vs_top=sup;
10362          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10363          goto T4923;}          goto T4923;}
10364          {object V1096;          {object V1160;
10365          object V1097;          object V1161;
10366          object V1098;          object V1162;
10367          V1096= STREF(object,(V1071),0);          V1160= STREF(object,(V1134),0);
10368          V1097= list(2,(V1069),(V1070));          V1161= list(2,(V1132),(V1133));
10369          V1098= STREF(object,(V1071),4);          V1162= STREF(object,(V1134),4);
10370          if(((V1098))==Cnil){          if(((V1162))==Cnil){
10371          goto T4931;}          goto T4931;}
10372          if((CMPcdr((V1098)))!=Cnil){          if((CMPcdr((V1162)))!=Cnil){
10373          goto T4931;}          goto T4931;}
10374          base[2]= (V1097);          base[2]= (V1161);
10375          base[3]= CMPcar((V1098));          base[3]= CMPcar((V1162));
10376          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10377          {object _funobj = (V1096);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1160);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10378                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10379                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10380                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10381          return;          return;
10382          goto T4931;          goto T4931;
10383  T4931:;  T4931:;
10384          base[2]= (V1096);          base[2]= (V1160);
10385          base[3]= (V1097);          base[3]= (V1161);
10386          {object V1099;          {object V1163;
10387          V1099= (V1098);          V1163= (V1162);
10388           vs_top=base+4;           vs_top=base+4;
10389           while(V1099!=Cnil)           while(V1163!=Cnil)
10390           {vs_push((V1099)->c.c_car);V1099=(V1099)->c.c_cdr;}           {vs_push((V1163)->c.c_car);V1163=(V1163)->c.c_cdr;}
10391          vs_base=base+3;}          vs_base=base+3;}
10392          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10393                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10332  T4931:; Line 10396  T4931:;
10396          return;}          return;}
10397          goto T4923;          goto T4923;
10398  T4923:;  T4923:;
10399          base[2]= V1071;          base[2]= V1134;
10400          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10401          Lfunctionp();          Lfunctionp();
10402          vs_top=sup;          vs_top=sup;
10403          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10404          goto T4941;}          goto T4941;}
10405          base[2]= (V1069);          base[2]= (V1132);
10406          base[3]= (V1070);          base[3]= (V1133);
10407          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10408          {object _funobj = (V1071);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1134);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10409                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10410                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10411                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 10349  T4923:; Line 10413  T4923:;
10413          goto T4941;          goto T4941;
10414  T4941:;  T4941:;
10415          base[3]= VV[11];          base[3]= VV[11];
10416          base[4]= V1071;          base[4]= V1134;
10417          base[5]= VV[48];          base[5]= VV[48];
10418          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
10419          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 10360  T4941:; Line 10424  T4941:;
10424          return;}          return;}
10425          goto T4808;          goto T4808;
10426  T4808:;  T4808:;
10427          base[2]= (V1069);          base[2]= (V1132);
10428          base[3]= (V1070);          base[3]= (V1133);
10429          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10430          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10431                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10396  register object *base0; Line 10460  register object *base0;
10460  {       register object *base=vs_base;  {       register object *base=vs_base;
10461          register object *sup=base+VM142; VC142          register object *sup=base+VM142; VC142
10462          vs_check;          vs_check;
10463          {register object V1100;          {register object V1164;
10464          object V1101;          object V1165;
10465          check_arg(2);          check_arg(2);
10466          V1100=(base[0]);          V1164=(base[0]);
10467          V1101=(base[1]);          V1165=(base[1]);
10468          vs_top=sup;          vs_top=sup;
10469          {register object V1102;          {register object V1166;
10470          V1102= (base0[1]->c.c_car);          V1166= (base0[1]->c.c_car);
10471          base[2]= (V1102);          base[2]= (V1166);
10472          base[3]= VV[2];          base[3]= VV[2];
10473          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10474          (void) (*Lnk258)();          (void) (*Lnk258)();
10475          vs_top=sup;          vs_top=sup;
10476          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10477          goto T4955;}          goto T4955;}
10478          base[2]= STREF(object,(V1102),0);          base[2]= STREF(object,(V1166),0);
10479          base[3]= STREF(object,(V1102),4);          base[3]= STREF(object,(V1166),4);
10480          base[4]= STREF(object,(V1102),8);          base[4]= STREF(object,(V1166),8);
10481          base[5]= (V1100);          base[5]= (V1164);
10482          base[6]= (V1101);          base[6]= (V1165);
10483          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
10484          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10485                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10424  register object *base0; Line 10488  register object *base0;
10488          return;          return;
10489          goto T4955;          goto T4955;
10490  T4955:;  T4955:;
10491          if(!(type_of((V1102))==t_fixnum)){          if(!(type_of((V1166))==t_fixnum)){
10492          goto T4965;}          goto T4965;}
10493          {object V1104;          {object V1168;
10494          if(type_of(V1100)==t_structure){          if(type_of(V1164)==t_structure){
10495          goto T4971;}          goto T4971;}
10496          goto T4969;          goto T4969;
10497          goto T4971;          goto T4971;
10498  T4971:;  T4971:;
10499          if(!(((V1100)->str.str_def)==(VV[38]))){          if(!(((V1164)->str.str_def)==(VV[38]))){
10500          goto T4969;}          goto T4969;}
10501          V1104= STREF(object,(V1100),4);          V1168= STREF(object,(V1164),4);
10502          goto T4967;          goto T4967;
10503          goto T4969;          goto T4969;
10504  T4969:;{object V1106;  T4969:;{object V1170;
10505          V1106= (VV[30]->s.s_dbind);          V1170= (VV[30]->s.s_dbind);
10506          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
10507          base[3]= (V1100);          base[3]= (V1164);
10508          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10509          (void) (*Lnk253)();          (void) (*Lnk253)();
10510          vs_top=sup;          vs_top=sup;
10511          V1107= vs_base[0];          V1171= vs_base[0];
10512          if(!((V1106)==(CMPcar(V1107)))){          if(!((V1170)==(CMPcar(V1171)))){
10513          goto T4974;}}          goto T4974;}}
10514          V1104= CMPcar(((V1100))->cc.cc_turbo[12]);          V1168= CMPcar(((V1164))->cc.cc_turbo[12]);
10515          goto T4967;          goto T4967;
10516          goto T4974;          goto T4974;
10517  T4974:;  T4974:;
10518          V1104= Cnil;          V1168= Cnil;
10519          goto T4967;          goto T4967;
10520  T4967:;  T4967:;
10521          if(((V1104))==Cnil){          if(((V1168))==Cnil){
10522          goto T4980;}          goto T4980;}
10523          base[2]= ((V1104))->v.v_self[fix((V1102))]= (V1100);          base[2]= ((V1168))->v.v_self[fix((V1166))]= (V1164);
10524          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10525          return;          return;
10526          goto T4980;          goto T4980;
# Line 10466  T4980:; Line 10530  T4980:;
10530          return;}          return;}
10531          goto T4965;          goto T4965;
10532  T4965:;  T4965:;
10533          {register object V1108;          {register object V1172;
10534          V1108= (V1102);          V1172= (V1166);
10535          base[2]= (V1108);          base[2]= (V1172);
10536          base[3]= VV[10];          base[3]= VV[10];
10537          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10538          (void) (*Lnk258)();          (void) (*Lnk258)();
10539          vs_top=sup;          vs_top=sup;
10540          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10541          goto T4983;}          goto T4983;}
10542          {object V1109;          {object V1173;
10543          object V1110;          object V1174;
10544          register object V1111;          register object V1175;
10545          V1109= STREF(object,(V1102),0);          V1173= STREF(object,(V1166),0);
10546          V1110= list(2,(V1100),(V1101));          V1174= list(2,(V1164),(V1165));
10547          V1111= STREF(object,(V1102),4);          V1175= STREF(object,(V1166),4);
10548          if(((V1111))==Cnil){          if(((V1175))==Cnil){
10549          goto T4994;}          goto T4994;}
10550          if(!((CMPcdr((V1111)))==Cnil)){          if(!((CMPcdr((V1175)))==Cnil)){
10551          goto T4991;}          goto T4991;}
10552          goto T4992;          goto T4992;
10553          goto T4994;          goto T4994;
# Line 10491  T4994:; Line 10555  T4994:;
10555          goto T4991;          goto T4991;
10556          goto T4992;          goto T4992;
10557  T4992:;  T4992:;
10558          base[2]= (V1110);          base[2]= (V1174);
10559          base[3]= CMPcar((V1111));          base[3]= CMPcar((V1175));
10560          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10561          {object _funobj = (V1109);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1173);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10562                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10563                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10564                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10565          return;          return;
10566          goto T4991;          goto T4991;
10567  T4991:;  T4991:;
10568          base[2]= (V1109);          base[2]= (V1173);
10569          base[3]= (V1110);          base[3]= (V1174);
10570          {object V1112;          {object V1176;
10571          V1112= (V1111);          V1176= (V1175);
10572           vs_top=base+4;           vs_top=base+4;
10573           while(V1112!=Cnil)           while(V1176!=Cnil)
10574           {vs_push((V1112)->c.c_car);V1112=(V1112)->c.c_cdr;}           {vs_push((V1176)->c.c_car);V1176=(V1176)->c.c_cdr;}
10575          vs_base=base+3;}          vs_base=base+3;}
10576          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10577                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10516  T4991:; Line 10580  T4991:;
10580          return;}          return;}
10581          goto T4983;          goto T4983;
10582  T4983:;  T4983:;
10583          base[2]= (V1108);          base[2]= (V1172);
10584          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10585          Lfunctionp();          Lfunctionp();
10586          vs_top=sup;          vs_top=sup;
10587          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10588          goto T5002;}          goto T5002;}
10589          base[2]= (V1100);          base[2]= (V1164);
10590          base[3]= (V1101);          base[3]= (V1165);
10591          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10592          {object _funobj = (V1102);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1166);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10593                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10594                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10595                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 10533  T4983:; Line 10597  T4983:;
10597          goto T5002;          goto T5002;
10598  T5002:;  T5002:;
10599          base[3]= VV[11];          base[3]= VV[11];
10600          base[4]= (V1108);          base[4]= (V1172);
10601          base[5]= (base0[0]->c.c_car);          base[5]= (base0[0]->c.c_car);
10602          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
10603          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 10569  register object *base0; Line 10633  register object *base0;
10633  {       register object *base=vs_base;  {       register object *base=vs_base;
10634          register object *sup=base+VM144; VC144          register object *sup=base+VM144; VC144
10635          vs_check;          vs_check;
10636          {register object V1113;          {register object V1177;
10637          register object V1114;          register object V1178;
10638          object V1115;          object V1179;
10639          check_arg(3);          check_arg(3);
10640          V1113=(base[0]);          V1177=(base[0]);
10641          V1114=(base[1]);          V1178=(base[1]);
10642          V1115=(base[2]);          V1179=(base[2]);
10643          vs_top=sup;          vs_top=sup;
10644          {register object V1116;          {register object V1180;
10645          base[3]= (V1113);          base[3]= (V1177);
10646          base[4]= VV[24];          base[4]= VV[24];
10647          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10648          (void) (*Lnk261)();          (void) (*Lnk261)();
10649          vs_top=sup;          vs_top=sup;
10650          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10651          goto T5013;}          goto T5013;}
10652          {register object V1117;          {register object V1181;
10653          register object V1118;          register object V1182;
10654          V1117= (base0[3]->c.c_car);          V1181= (base0[3]->c.c_car);
10655          V1118= CMPcar((V1117));          V1182= CMPcar((V1181));
10656          goto T5020;          goto T5020;
10657  T5020:;  T5020:;
10658          if(!(((V1117))==Cnil)){          if(!(((V1181))==Cnil)){
10659          goto T5021;}          goto T5021;}
10660          V1116= (base0[2]->c.c_car);          V1180= (base0[2]->c.c_car);
10661          goto T5011;          goto T5011;
10662          goto T5021;          goto T5021;
10663  T5021:;  T5021:;
10664          if(!((CMPcar((V1118)))==((V1114)))){          if(!((CMPcar((V1182)))==((V1178)))){
10665          goto T5025;}          goto T5025;}
10666          V1116= CMPcdr((V1118));          V1180= CMPcdr((V1182));
10667          goto T5011;          goto T5011;
10668          goto T5025;          goto T5025;
10669  T5025:;  T5025:;
10670          V1117= CMPcdr((V1117));          V1181= CMPcdr((V1181));
10671          V1118= CMPcar((V1117));          V1182= CMPcar((V1181));
10672          goto T5020;}          goto T5020;}
10673          goto T5013;          goto T5013;
10674  T5013:;  T5013:;
10675          V1116= (base0[1]->c.c_car);          V1180= (base0[1]->c.c_car);
10676          goto T5011;          goto T5011;
10677  T5011:;  T5011:;
10678          base[3]= (V1116);          base[3]= (V1180);
10679          base[4]= VV[2];          base[4]= VV[2];
10680          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10681          (void) (*Lnk258)();          (void) (*Lnk258)();
10682          vs_top=sup;          vs_top=sup;
10683          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10684          goto T5035;}          goto T5035;}
10685          base[3]= STREF(object,(V1116),0);          base[3]= STREF(object,(V1180),0);
10686          base[4]= STREF(object,(V1116),4);          base[4]= STREF(object,(V1180),4);
10687          base[5]= STREF(object,(V1116),8);          base[5]= STREF(object,(V1180),8);
10688          base[6]= (V1113);          base[6]= (V1177);
10689          base[7]= (V1114);          base[7]= (V1178);
10690          base[8]= (V1115);          base[8]= (V1179);
10691          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
10692          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10693                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10632  T5011:; Line 10696  T5011:;
10696          return;          return;
10697          goto T5035;          goto T5035;
10698  T5035:;  T5035:;
10699          {register object V1119;          {register object V1183;
10700          V1119= (V1116);          V1183= (V1180);
10701          base[3]= (V1119);          base[3]= (V1183);
10702          base[4]= VV[10];          base[4]= VV[10];
10703          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10704          (void) (*Lnk258)();          (void) (*Lnk258)();
10705          vs_top=sup;          vs_top=sup;
10706          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10707          goto T5046;}          goto T5046;}
10708          {object V1120;          {object V1184;
10709          object V1121;          object V1185;
10710          object V1122;          object V1186;
10711          V1120= STREF(object,(V1116),0);          V1184= STREF(object,(V1180),0);
10712          V1121= list(3,(V1113),(V1114),(V1115));          V1185= list(3,(V1177),(V1178),(V1179));
10713          V1122= STREF(object,(V1116),4);          V1186= STREF(object,(V1180),4);
10714          if(((V1122))==Cnil){          if(((V1186))==Cnil){
10715          goto T5057;}          goto T5057;}
10716          if(!((CMPcdr((V1122)))==Cnil)){          if(!((CMPcdr((V1186)))==Cnil)){
10717          goto T5054;}          goto T5054;}
10718          goto T5055;          goto T5055;
10719          goto T5057;          goto T5057;
# Line 10657  T5057:; Line 10721  T5057:;
10721          goto T5054;          goto T5054;
10722          goto T5055;          goto T5055;
10723  T5055:;  T5055:;
10724          base[3]= (V1121);          base[3]= (V1185);
10725          base[4]= CMPcar((V1122));          base[4]= CMPcar((V1186));
10726          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10727          {object _funobj = (V1120);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1184);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10728                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10729                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10730                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10731          return;          return;
10732          goto T5054;          goto T5054;
10733  T5054:;  T5054:;
10734          base[3]= (V1120);          base[3]= (V1184);
10735          base[4]= (V1121);          base[4]= (V1185);
10736          {object V1123;          {object V1187;
10737          V1123= (V1122);          V1187= (V1186);
10738           vs_top=base+5;           vs_top=base+5;
10739           while(V1123!=Cnil)           while(V1187!=Cnil)
10740           {vs_push((V1123)->c.c_car);V1123=(V1123)->c.c_cdr;}           {vs_push((V1187)->c.c_car);V1187=(V1187)->c.c_cdr;}
10741          vs_base=base+4;}          vs_base=base+4;}
10742          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10743                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10682  T5054:; Line 10746  T5054:;
10746          return;}          return;}
10747          goto T5046;          goto T5046;
10748  T5046:;  T5046:;
10749          base[3]= (V1119);          base[3]= (V1183);
10750          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
10751          Lfunctionp();          Lfunctionp();
10752          vs_top=sup;          vs_top=sup;
10753          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10754          goto T5065;}          goto T5065;}
10755          base[3]= (V1113);          base[3]= (V1177);
10756          base[4]= (V1114);          base[4]= (V1178);
10757          base[5]= (V1115);          base[5]= (V1179);
10758          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
10759          {object _funobj = (V1116);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1180);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10760                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10761                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10762                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 10700  T5046:; Line 10764  T5046:;
10764          goto T5065;          goto T5065;
10765  T5065:;  T5065:;
10766          base[4]= VV[11];          base[4]= VV[11];
10767          base[5]= (V1119);          base[5]= (V1183);
10768          base[6]= (base0[0]->c.c_car);          base[6]= (base0[0]->c.c_car);
10769          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
10770          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 10734  register object *base0; Line 10798  register object *base0;
10798  {       register object *base=vs_base;  {       register object *base=vs_base;
10799          register object *sup=base+VM146; VC146          register object *sup=base+VM146; VC146
10800          vs_check;          vs_check;
10801          {register object V1124;          {register object V1188;
10802          check_arg(1);          check_arg(1);
10803          V1124=(base[0]);          V1188=(base[0]);
10804          vs_top=sup;          vs_top=sup;
10805          {register object V1125;          {register object V1189;
10806          V1125= (base0[1]->c.c_car);          V1189= (base0[1]->c.c_car);
10807          base[1]= (V1125);          base[1]= (V1189);
10808          base[2]= VV[2];          base[2]= VV[2];
10809          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
10810          (void) (*Lnk258)();          (void) (*Lnk258)();
10811          vs_top=sup;          vs_top=sup;
10812          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10813          goto T5077;}          goto T5077;}
10814          base[1]= STREF(object,(V1125),0);          base[1]= STREF(object,(V1189),0);
10815          base[2]= STREF(object,(V1125),4);          base[2]= STREF(object,(V1189),4);
10816          base[3]= STREF(object,(V1125),8);          base[3]= STREF(object,(V1189),8);
10817          base[4]= (V1124);          base[4]= (V1188);
10818          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
10819          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10820                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10759  register object *base0; Line 10823  register object *base0;
10823          return;          return;
10824          goto T5077;          goto T5077;
10825  T5077:;  T5077:;
10826          if(!(type_of((V1125))==t_fixnum)){          if(!(type_of((V1189))==t_fixnum)){
10827          goto T5086;}          goto T5086;}
10828          {object V1126;          {object V1190;
10829          object V1127;          object V1191;
10830          if(type_of(V1124)==t_structure){          if(type_of(V1188)==t_structure){
10831          goto T5092;}          goto T5092;}
10832          goto T5090;          goto T5090;
10833          goto T5092;          goto T5092;
10834  T5092:;  T5092:;
10835          if(!(((V1124)->str.str_def)==(VV[28]))){          if(!(((V1188)->str.str_def)==(VV[28]))){
10836          goto T5090;}          goto T5090;}
10837          V1126= STREF(object,(V1124),4);          V1190= STREF(object,(V1188),4);
10838          goto T5088;          goto T5088;
10839          goto T5090;          goto T5090;
10840  T5090:;{object V1129;  T5090:;{object V1193;
10841          V1129= (VV[30]->s.s_dbind);          V1193= (VV[30]->s.s_dbind);
10842          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
10843          base[4]= (V1124);          base[4]= (V1188);
10844          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10845          (void) (*Lnk253)();          (void) (*Lnk253)();
10846          vs_top=sup;          vs_top=sup;
10847          V1130= vs_base[0];          V1194= vs_base[0];
10848          if(!((V1129)==(CMPcar(V1130)))){          if(!((V1193)==(CMPcar(V1194)))){
10849          goto T5095;}}          goto T5095;}}
10850          V1126= CMPcar(((V1124))->cc.cc_turbo[12]);          V1190= CMPcar(((V1188))->cc.cc_turbo[12]);
10851          goto T5088;          goto T5088;
10852          goto T5095;          goto T5095;
10853  T5095:;  T5095:;
10854          V1126= Cnil;          V1190= Cnil;
10855          goto T5088;          goto T5088;
10856  T5088:;  T5088:;
10857          if(((V1126))==Cnil){          if(((V1190))==Cnil){
10858          goto T5102;}          goto T5102;}
10859          V1127= ((V1126))->v.v_self[fix((V1125))];          V1191= ((V1190))->v.v_self[fix((V1189))];
10860          goto T5100;          goto T5100;
10861          goto T5102;          goto T5102;
10862  T5102:;  T5102:;
10863          V1127= Cnil;          V1191= Cnil;
10864          goto T5100;          goto T5100;
10865  T5100:;  T5100:;
10866          if(!(((V1127))==(VV[31]))){          if(!(((V1191))==(VV[31]))){
10867          goto T5105;}          goto T5105;}
10868          base[3]= (V1124);          base[3]= (V1188);
10869          base[4]= (V1125);          base[4]= (V1189);
10870          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10871          (void) (*Lnk259)();          (void) (*Lnk259)();
10872          return;          return;
10873          goto T5105;          goto T5105;
10874  T5105:;  T5105:;
10875          base[3]= (V1127);          base[3]= (V1191);
10876          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
10877          return;}          return;}
10878          goto T5086;          goto T5086;
10879  T5086:;  T5086:;
10880          {register object V1131;          {register object V1195;
10881          V1131= (V1125);          V1195= (V1189);
10882          base[1]= (V1131);          base[1]= (V1195);
10883          base[2]= VV[10];          base[2]= VV[10];
10884          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
10885          (void) (*Lnk258)();          (void) (*Lnk258)();
10886          vs_top=sup;          vs_top=sup;
10887          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10888          goto T5110;}          goto T5110;}
10889          {object V1132;          {object V1196;
10890          object V1133;          object V1197;
10891          register object V1134;          register object V1198;
10892          V1132= STREF(object,(V1125),0);          V1196= STREF(object,(V1189),0);
10893          V1133= make_cons((V1124),Cnil);          V1197= make_cons((V1188),Cnil);
10894          V1134= STREF(object,(V1125),4);          V1198= STREF(object,(V1189),4);
10895          if(((V1134))==Cnil){          if(((V1198))==Cnil){
10896          goto T5121;}          goto T5121;}
10897          if(!((CMPcdr((V1134)))==Cnil)){          if(!((CMPcdr((V1198)))==Cnil)){
10898          goto T5118;}          goto T5118;}
10899          goto T5119;          goto T5119;
10900          goto T5121;          goto T5121;
# Line 10838  T5121:; Line 10902  T5121:;
10902          goto T5118;          goto T5118;
10903          goto T5119;          goto T5119;
10904  T5119:;  T5119:;
10905          base[1]= (V1133);          base[1]= (V1197);
10906          base[2]= CMPcar((V1134));          base[2]= CMPcar((V1198));
10907          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
10908          {object _funobj = (V1132);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1196);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10909                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10910                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10911                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10912          return;          return;
10913          goto T5118;          goto T5118;
10914  T5118:;  T5118:;
10915          base[1]= (V1132);          base[1]= (V1196);
10916          base[2]= (V1133);          base[2]= (V1197);
10917          {object V1135;          {object V1199;
10918          V1135= (V1134);          V1199= (V1198);
10919           vs_top=base+3;           vs_top=base+3;
10920           while(V1135!=Cnil)           while(V1199!=Cnil)
10921           {vs_push((V1135)->c.c_car);V1135=(V1135)->c.c_cdr;}           {vs_push((V1199)->c.c_car);V1199=(V1199)->c.c_cdr;}
10922          vs_base=base+2;}          vs_base=base+2;}
10923          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10924                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10863  T5118:; Line 10927  T5118:;
10927          return;}          return;}
10928          goto T5110;          goto T5110;
10929  T5110:;  T5110:;
10930          base[1]= (V1131);          base[1]= (V1195);
10931          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
10932          Lfunctionp();          Lfunctionp();
10933          vs_top=sup;          vs_top=sup;
10934          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10935          goto T5129;}          goto T5129;}
10936          base[1]= (V1124);          base[1]= (V1188);
10937          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
10938          {object _funobj = (V1125);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1189);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10939                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10940                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10941                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 10879  T5110:; Line 10943  T5110:;
10943          goto T5129;          goto T5129;
10944  T5129:;  T5129:;
10945          base[2]= VV[11];          base[2]= VV[11];
10946          base[3]= (V1131);          base[3]= (V1195);
10947          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
10948          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
10949          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 10915  register object *base0; Line 10979  register object *base0;
10979  {       register object *base=vs_base;  {       register object *base=vs_base;
10980          register object *sup=base+VM148; VC148          register object *sup=base+VM148; VC148
10981          vs_check;          vs_check;
10982          {register object V1136;          {register object V1200;
10983          register object V1137;          register object V1201;
10984          object V1138;          object V1202;
10985          check_arg(3);          check_arg(3);
10986          V1136=(base[0]);          V1200=(base[0]);
10987          V1137=(base[1]);          V1201=(base[1]);
10988          V1138=(base[2]);          V1202=(base[2]);
10989          vs_top=sup;          vs_top=sup;
10990          {register object V1139;          {register object V1203;
10991          base[3]= (V1136);          base[3]= (V1200);
10992          base[4]= VV[24];          base[4]= VV[24];
10993          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10994          (void) (*Lnk261)();          (void) (*Lnk261)();
10995          vs_top=sup;          vs_top=sup;
10996          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10997          goto T5139;}          goto T5139;}
10998          if(!(((V1137))==(CMPcar((base0[3]->c.c_car))))){          if(!(((V1201))==(CMPcar((base0[3]->c.c_car))))){
10999          goto T5144;}          goto T5144;}
11000          V1139= CMPcdr((base0[3]->c.c_car));          V1203= CMPcdr((base0[3]->c.c_car));
11001          goto T5137;          goto T5137;
11002          goto T5144;          goto T5144;
11003  T5144:;  T5144:;
11004          V1139= (base0[2]->c.c_car);          V1203= (base0[2]->c.c_car);
11005          goto T5137;          goto T5137;
11006          goto T5139;          goto T5139;
11007  T5139:;  T5139:;
11008          V1139= (base0[1]->c.c_car);          V1203= (base0[1]->c.c_car);
11009          goto T5137;          goto T5137;
11010  T5137:;  T5137:;
11011          base[3]= (V1139);          base[3]= (V1203);
11012          base[4]= VV[2];          base[4]= VV[2];
11013          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
11014          (void) (*Lnk258)();          (void) (*Lnk258)();
11015          vs_top=sup;          vs_top=sup;
11016          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11017          goto T5148;}          goto T5148;}
11018          base[3]= STREF(object,(V1139),0);          base[3]= STREF(object,(V1203),0);
11019          base[4]= STREF(object,(V1139),4);          base[4]= STREF(object,(V1203),4);
11020          base[5]= STREF(object,(V1139),8);          base[5]= STREF(object,(V1203),8);
11021          base[6]= (V1136);          base[6]= (V1200);
11022          base[7]= (V1137);          base[7]= (V1201);
11023          base[8]= (V1138);          base[8]= (V1202);
11024          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
11025          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11026                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10965  T5137:; Line 11029  T5137:;
11029          return;          return;
11030          goto T5148;          goto T5148;
11031  T5148:;  T5148:;
11032          {register object V1140;          {register object V1204;
11033          V1140= (V1139);          V1204= (V1203);
11034          base[3]= (V1140);          base[3]= (V1204);
11035          base[4]= VV[10];          base[4]= VV[10];
11036          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
11037          (void) (*Lnk258)();          (void) (*Lnk258)();
11038          vs_top=sup;          vs_top=sup;
11039          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11040          goto T5159;}          goto T5159;}
11041          {object V1141;          {object V1205;
11042          object V1142;          object V1206;
11043          register object V1143;          register object V1207;
11044          V1141= STREF(object,(V1139),0);          V1205= STREF(object,(V1203),0);
11045          V1142= list(3,(V1136),(V1137),(V1138));          V1206= list(3,(V1200),(V1201),(V1202));
11046          V1143= STREF(object,(V1139),4);          V1207= STREF(object,(V1203),4);
11047          if(((V1143))==Cnil){          if(((V1207))==Cnil){
11048          goto T5170;}          goto T5170;}
11049          if(!((CMPcdr((V1143)))==Cnil)){          if(!((CMPcdr((V1207)))==Cnil)){
11050          goto T5167;}          goto T5167;}
11051          goto T5168;          goto T5168;
11052          goto T5170;          goto T5170;
# Line 10990  T5170:; Line 11054  T5170:;
11054          goto T5167;          goto T5167;
11055          goto T5168;          goto T5168;
11056  T5168:;  T5168:;
11057          base[3]= (V1142);          base[3]= (V1206);
11058          base[4]= CMPcar((V1143));          base[4]= CMPcar((V1207));
11059          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
11060          {object _funobj = (V1141);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1205);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11061                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11062                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11063                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11064          return;          return;
11065          goto T5167;          goto T5167;
11066  T5167:;  T5167:;
11067          base[3]= (V1141);          base[3]= (V1205);
11068          base[4]= (V1142);          base[4]= (V1206);
11069          {object V1144;          {object V1208;
11070          V1144= (V1143);          V1208= (V1207);
11071           vs_top=base+5;           vs_top=base+5;
11072           while(V1144!=Cnil)           while(V1208!=Cnil)
11073           {vs_push((V1144)->c.c_car);V1144=(V1144)->c.c_cdr;}           {vs_push((V1208)->c.c_car);V1208=(V1208)->c.c_cdr;}
11074          vs_base=base+4;}          vs_base=base+4;}
11075          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11076                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11015  T5167:; Line 11079  T5167:;
11079          return;}          return;}
11080          goto T5159;          goto T5159;
11081  T5159:;  T5159:;
11082          base[3]= (V1140);          base[3]= (V1204);
11083          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
11084          Lfunctionp();          Lfunctionp();
11085          vs_top=sup;          vs_top=sup;
11086          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11087          goto T5178;}          goto T5178;}
11088          base[3]= (V1136);          base[3]= (V1200);
11089          base[4]= (V1137);          base[4]= (V1201);
11090          base[5]= (V1138);          base[5]= (V1202);
11091          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
11092          {object _funobj = (V1139);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1203);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11093                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11094                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11095                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 11033  T5159:; Line 11097  T5159:;
11097          goto T5178;          goto T5178;
11098  T5178:;  T5178:;
11099          base[4]= VV[11];          base[4]= VV[11];
11100          base[5]= (V1140);          base[5]= (V1204);
11101          base[6]= (base0[0]->c.c_car);          base[6]= (base0[0]->c.c_car);
11102          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
11103          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 11068  register object *base0; Line 11132  register object *base0;
11132  {       register object *base=vs_base;  {       register object *base=vs_base;
11133          register object *sup=base+VM150; VC150          register object *sup=base+VM150; VC150
11134          vs_check;          vs_check;
11135          {object V1145;          {object V1209;
11136          object V1146;          object V1210;
11137          register object V1147;          register object V1211;
11138          register object V1148;          register object V1212;
11139          check_arg(4);          check_arg(4);
11140          V1145=(base[0]);          V1209=(base[0]);
11141          V1146=(base[1]);          V1210=(base[1]);
11142          V1147=(base[2]);          V1211=(base[2]);
11143          V1148=(base[3]);          V1212=(base[3]);
11144          vs_top=sup;          vs_top=sup;
11145          {register object V1151;          {register object V1215;
11146          object V1152;          object V1216;
11147          V1151= (base0[2]->c.c_car);          V1215= (base0[2]->c.c_car);
11148          V1152= CMPcar((V1151));          V1216= CMPcar((V1215));
11149          goto T5193;          goto T5193;
11150  T5193:;  T5193:;
11151          if(!(((V1151))==Cnil)){          if(!(((V1215))==Cnil)){
11152          goto T5194;}          goto T5194;}
11153          goto T5189;          goto T5189;
11154          goto T5194;          goto T5194;
11155  T5194:;  T5194:;
11156          (void)((          (void)((
11157          V1153 = STREF(object,(V1152),0),          V1217 = STREF(object,(V1216),0),
11158          (type_of(V1153) == t_sfun ?(*((V1153)->sfn.sfn_self)):          (type_of(V1217) == t_sfun ?(*((V1217)->sfn.sfn_self)):
11159          (fcall.argd=4,type_of(V1153)==t_vfun) ?          (fcall.argd=4,type_of(V1217)==t_vfun) ?
11160          (*((V1153)->sfn.sfn_self)):          (*((V1217)->sfn.sfn_self)):
11161          (fcall.fun=(V1153),fcalln))(STREF(object,(V1152),4),STREF(object,(V1152),8),(V1147),(V1148))));          (fcall.fun=(V1217),fcalln))(STREF(object,(V1216),4),STREF(object,(V1216),8),(V1211),(V1212))));
11162          V1151= CMPcdr((V1151));          V1215= CMPcdr((V1215));
11163          V1152= CMPcar((V1151));          V1216= CMPcar((V1215));
11164          goto T5193;}          goto T5193;}
11165          goto T5189;          goto T5189;
11166  T5189:;  T5189:;
# Line 11110  T5189:; Line 11174  T5189:;
11174          base[4]= STREF(object,(base0[1]->c.c_car),0);          base[4]= STREF(object,(base0[1]->c.c_car),0);
11175          base[5]= STREF(object,(base0[1]->c.c_car),4);          base[5]= STREF(object,(base0[1]->c.c_car),4);
11176          base[6]= STREF(object,(base0[1]->c.c_car),8);          base[6]= STREF(object,(base0[1]->c.c_car),8);
11177          base[7]= (V1147);          base[7]= (V1211);
11178          base[8]= (V1148);          base[8]= (V1212);
11179          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
11180          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11181                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11120  T5189:; Line 11184  T5189:;
11184          goto T5188;          goto T5188;
11185          goto T5207;          goto T5207;
11186  T5207:;  T5207:;
11187          {object V1154;          {object V1218;
11188          V1154= (base0[1]->c.c_car);          V1218= (base0[1]->c.c_car);
11189          base[4]= (V1154);          base[4]= (V1218);
11190          base[5]= VV[10];          base[5]= VV[10];
11191          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
11192          (void) (*Lnk258)();          (void) (*Lnk258)();
11193          vs_top=sup;          vs_top=sup;
11194          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11195          goto T5217;}          goto T5217;}
11196          {object V1155;          {object V1219;
11197          object V1156;          object V1220;
11198          object V1157;          object V1221;
11199          V1155= STREF(object,(base0[1]->c.c_car),0);          V1219= STREF(object,(base0[1]->c.c_car),0);
11200          V1156= make_cons((V1147),(V1148));          V1220= make_cons((V1211),(V1212));
11201          V1157= STREF(object,(base0[1]->c.c_car),4);          V1221= STREF(object,(base0[1]->c.c_car),4);
11202          if(((V1157))==Cnil){          if(((V1221))==Cnil){
11203          goto T5225;}          goto T5225;}
11204          if((CMPcdr((V1157)))!=Cnil){          if((CMPcdr((V1221)))!=Cnil){
11205          goto T5225;}          goto T5225;}
11206          base[4]= (V1156);          base[4]= (V1220);
11207          base[5]= CMPcar((V1157));          base[5]= CMPcar((V1221));
11208          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
11209          {object _funobj = (V1155);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1219);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11210                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11211                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11212                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11213          goto T5188;          goto T5188;
11214          goto T5225;          goto T5225;
11215  T5225:;  T5225:;
11216          base[4]= (V1155);          base[4]= (V1219);
11217          base[5]= (V1156);          base[5]= (V1220);
11218          {object V1158;          {object V1222;
11219          V1158= (V1157);          V1222= (V1221);
11220           vs_top=base+6;           vs_top=base+6;
11221           while(V1158!=Cnil)           while(V1222!=Cnil)
11222           {vs_push((V1158)->c.c_car);V1158=(V1158)->c.c_cdr;}           {vs_push((V1222)->c.c_car);V1222=(V1222)->c.c_cdr;}
11223          vs_base=base+5;}          vs_base=base+5;}
11224          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11225                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11164  T5225:; Line 11228  T5225:;
11228          goto T5188;}          goto T5188;}
11229          goto T5217;          goto T5217;
11230  T5217:;  T5217:;
11231          base[4]= (V1154);          base[4]= (V1218);
11232          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
11233          Lfunctionp();          Lfunctionp();
11234          vs_top=sup;          vs_top=sup;
11235          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11236          goto T5235;}          goto T5235;}
11237          base[4]= (base0[1]->c.c_car);          base[4]= (base0[1]->c.c_car);
11238          base[5]= (V1147);          base[5]= (V1211);
11239          {object V1159;          {object V1223;
11240          V1159= (V1148);          V1223= (V1212);
11241           vs_top=base+6;           vs_top=base+6;
11242           while(V1159!=Cnil)           while(V1223!=Cnil)
11243           {vs_push((V1159)->c.c_car);V1159=(V1159)->c.c_cdr;}           {vs_push((V1223)->c.c_car);V1223=(V1223)->c.c_cdr;}
11244          vs_base=base+5;}          vs_base=base+5;}
11245          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11246                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11186  T5217:; Line 11250  T5217:;
11250          goto T5235;          goto T5235;
11251  T5235:;  T5235:;
11252          base[5]= VV[13];          base[5]= VV[13];
11253          base[6]= (V1154);          base[6]= (V1218);
11254          base[7]= VV[19];          base[7]= VV[19];
11255          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
11256          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 11196  T5235:; Line 11260  T5235:;
11260          Lerror();}          Lerror();}
11261          goto T5188;          goto T5188;
11262  T5188:;  T5188:;
11263          {object *V1150=vs_top;object *V1149=vs_base; vs_base=V1150;          {object *V1214=vs_top;object *V1213=vs_base; vs_base=V1214;
11264          {register object *base1=base;          {register object *base1=base;
11265          {register object *base=V1150;          {register object *base=V1214;
11266          register object *sup=vs_base+VM151;          register object *sup=vs_base+VM151;
11267          base1[0]=base1[0];          base1[0]=base1[0];
11268          base[0]=base[0];          base[0]=base[0];
11269          vs_check;          vs_check;
11270          vs_top=sup;          vs_top=sup;
11271          {register object V1160;          {register object V1224;
11272          register object V1161;          register object V1225;
11273          V1160= (base0[0]->c.c_car);          V1224= (base0[0]->c.c_car);
11274          V1161= CMPcar((V1160));          V1225= CMPcar((V1224));
11275          goto T5249;          goto T5249;
11276  T5249:;  T5249:;
11277          if(!(((V1160))==Cnil)){          if(!(((V1224))==Cnil)){
11278          goto T5250;}          goto T5250;}
11279          goto T5245;          goto T5245;
11280          goto T5250;          goto T5250;
11281  T5250:;  T5250:;
11282          base[1]= (V1161);          base[1]= (V1225);
11283          base[2]= VV[2];          base[2]= VV[2];
11284          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
11285          (void) (*Lnk258)();          (void) (*Lnk258)();
# Line 11223  T5250:; Line 11287  T5250:;
11287          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11288          goto T5257;}          goto T5257;}
11289          (void)((          (void)((
11290          V1162 = STREF(object,(V1161),0),          V1226 = STREF(object,(V1225),0),
11291          (type_of(V1162) == t_sfun ?(*((V1162)->sfn.sfn_self)):          (type_of(V1226) == t_sfun ?(*((V1226)->sfn.sfn_self)):
11292          (fcall.argd=4,type_of(V1162)==t_vfun) ?          (fcall.argd=4,type_of(V1226)==t_vfun) ?
11293          (*((V1162)->sfn.sfn_self)):          (*((V1226)->sfn.sfn_self)):
11294          (fcall.fun=(V1162),fcalln))(STREF(object,(V1161),4),STREF(object,(V1161),8),(V1147),(V1148))));          (fcall.fun=(V1226),fcalln))(STREF(object,(V1225),4),STREF(object,(V1225),8),(V1211),(V1212))));
11295          goto T5254;          goto T5254;
11296          goto T5257;          goto T5257;
11297  T5257:;  T5257:;
11298          {register object V1163;          {register object V1227;
11299          V1163= (V1161);          V1227= (V1225);
11300          base[1]= (V1163);          base[1]= (V1227);
11301          base[2]= VV[10];          base[2]= VV[10];
11302          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
11303          (void) (*Lnk258)();          (void) (*Lnk258)();
11304          vs_top=sup;          vs_top=sup;
11305          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11306          goto T5262;}          goto T5262;}
11307          {object V1164;          {object V1228;
11308          object V1165;          object V1229;
11309          register object V1166;          register object V1230;
11310          V1164= STREF(object,(V1161),0);          V1228= STREF(object,(V1225),0);
11311          V1165= make_cons((V1147),(V1148));          V1229= make_cons((V1211),(V1212));
11312          V1166= STREF(object,(V1161),4);          V1230= STREF(object,(V1225),4);
11313          if(((V1166))==Cnil){          if(((V1230))==Cnil){
11314          goto T5270;}          goto T5270;}
11315          if((CMPcdr((V1166)))!=Cnil){          if((CMPcdr((V1230)))!=Cnil){
11316          goto T5270;}          goto T5270;}
11317          (void)((          (void)((
11318          (type_of((V1164)) == t_sfun ?(*(((V1164))->sfn.sfn_self)):          (type_of((V1228)) == t_sfun ?(*(((V1228))->sfn.sfn_self)):
11319          (fcall.argd=2,type_of((V1164))==t_vfun) ?          (fcall.argd=2,type_of((V1228))==t_vfun) ?
11320          (*(((V1164))->sfn.sfn_self)):          (*(((V1228))->sfn.sfn_self)):
11321          (fcall.fun=((V1164)),fcalln))((V1165),CMPcar((V1166)))));          (fcall.fun=((V1228)),fcalln))((V1229),CMPcar((V1230)))));
11322          goto T5254;          goto T5254;
11323          goto T5270;          goto T5270;
11324  T5270:;  T5270:;
11325          base[1]= (V1164);          base[1]= (V1228);
11326          base[2]= (V1165);          base[2]= (V1229);
11327          {object V1167;          {object V1231;
11328          V1167= (V1166);          V1231= (V1230);
11329           vs_top=base+3;           vs_top=base+3;
11330           while(V1167!=Cnil)           while(V1231!=Cnil)
11331           {vs_push((V1167)->c.c_car);V1167=(V1167)->c.c_cdr;}           {vs_push((V1231)->c.c_car);V1231=(V1231)->c.c_cdr;}
11332          vs_base=base+2;}          vs_base=base+2;}
11333          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11334                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11274  T5270:; Line 11338  T5270:;
11338          goto T5254;}          goto T5254;}
11339          goto T5262;          goto T5262;
11340  T5262:;  T5262:;
11341          base[1]= (V1163);          base[1]= (V1227);
11342          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
11343          Lfunctionp();          Lfunctionp();
11344          vs_top=sup;          vs_top=sup;
11345          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11346          goto T5278;}          goto T5278;}
11347          base[1]= (V1161);          base[1]= (V1225);
11348          base[2]= (V1147);          base[2]= (V1211);
11349          {object V1168;          {object V1232;
11350          V1168= (V1148);          V1232= (V1212);
11351           vs_top=base+3;           vs_top=base+3;
11352           while(V1168!=Cnil)           while(V1232!=Cnil)
11353           {vs_push((V1168)->c.c_car);V1168=(V1168)->c.c_cdr;}           {vs_push((V1232)->c.c_car);V1232=(V1232)->c.c_cdr;}
11354          vs_base=base+2;}          vs_base=base+2;}
11355          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11356                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11297  T5262:; Line 11361  T5262:;
11361          goto T5278;          goto T5278;
11362  T5278:;  T5278:;
11363          base[2]= VV[11];          base[2]= VV[11];
11364          base[3]= (V1163);          base[3]= (V1227);
11365          base[4]= VV[20];          base[4]= VV[20];
11366          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
11367          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 11308  T5278:; Line 11372  T5278:;
11372          vs_top=sup;}          vs_top=sup;}
11373          goto T5254;          goto T5254;
11374  T5254:;  T5254:;
11375          V1160= CMPcdr((V1160));          V1224= CMPcdr((V1224));
11376          V1161= CMPcar((V1160));          V1225= CMPcar((V1224));
11377          goto T5249;}          goto T5249;}
11378          }}          }}
11379          goto T5245;          goto T5245;
11380  T5245:;  T5245:;
11381          vs_base=V1149;vs_top=V1150;}          vs_base=V1213;vs_top=V1214;}
11382          return;          return;
11383          }          }
11384  }  }
# Line 11342  register object *base0; Line 11406  register object *base0;
11406  {       register object *base=vs_base;  {       register object *base=vs_base;
11407          register object *sup=base+VM153; VC153          register object *sup=base+VM153; VC153
11408          vs_check;          vs_check;
11409          {object V1169;          {object V1233;
11410          object V1170;          object V1234;
11411          register object V1171;          register object V1235;
11412          register object V1172;          register object V1236;
11413          register object V1173;          register object V1237;
11414          check_arg(5);          check_arg(5);
11415          V1169=(base[0]);          V1233=(base[0]);
11416          V1170=(base[1]);          V1234=(base[1]);
11417          V1171=(base[2]);          V1235=(base[2]);
11418          V1172=(base[3]);          V1236=(base[3]);
11419          V1173=(base[4]);          V1237=(base[4]);
11420          vs_top=sup;          vs_top=sup;
11421          {object V1176;          {object V1240;
11422          register object V1177;          register object V1241;
11423          V1176= (base0[2]->c.c_car);          V1240= (base0[2]->c.c_car);
11424          V1177= CMPcar((V1176));          V1241= CMPcar((V1240));
11425          goto T5298;          goto T5298;
11426  T5298:;  T5298:;
11427          if(!(((V1176))==Cnil)){          if(!(((V1240))==Cnil)){
11428          goto T5299;}          goto T5299;}
11429          goto T5294;          goto T5294;
11430          goto T5299;          goto T5299;
11431  T5299:;  T5299:;
11432          base[6]= (V1177);          base[6]= (V1241);
11433          base[7]= VV[2];          base[7]= VV[2];
11434          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
11435          (void) (*Lnk258)();          (void) (*Lnk258)();
# Line 11373  T5299:; Line 11437  T5299:;
11437          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11438          goto T5306;}          goto T5306;}
11439          (void)((          (void)((
11440          V1178 = STREF(object,(V1177),0),          V1242 = STREF(object,(V1241),0),
11441          (type_of(V1178) == t_sfun ?(*((V1178)->sfn.sfn_self)):          (type_of(V1242) == t_sfun ?(*((V1242)->sfn.sfn_self)):
11442          (fcall.argd=5,type_of(V1178)==t_vfun) ?          (fcall.argd=5,type_of(V1242)==t_vfun) ?
11443          (*((V1178)->sfn.sfn_self)):          (*((V1242)->sfn.sfn_self)):
11444          (fcall.fun=(V1178),fcalln))(STREF(object,(V1177),4),STREF(object,(V1177),8),(V1171),(V1172),(V1173))));          (fcall.fun=(V1242),fcalln))(STREF(object,(V1241),4),STREF(object,(V1241),8),(V1235),(V1236),(V1237))));
11445          goto T5303;          goto T5303;
11446          goto T5306;          goto T5306;
11447  T5306:;  T5306:;
11448          base[6]= V1177;          base[6]= V1241;
11449          base[7]= VV[10];          base[7]= VV[10];
11450          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
11451          (void) (*Lnk258)();          (void) (*Lnk258)();
11452          vs_top=sup;          vs_top=sup;
11453          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11454          goto T5311;}          goto T5311;}
11455          {object V1180;          {object V1244;
11456          object V1181;          object V1245;
11457          register object V1182;          register object V1246;
11458          V1180= STREF(object,(V1177),0);          V1244= STREF(object,(V1241),0);
11459          V1181= listA(3,(V1171),(V1172),(V1173));          V1245= listA(3,(V1235),(V1236),(V1237));
11460          V1182= STREF(object,(V1177),4);          V1246= STREF(object,(V1241),4);
11461          if(((V1182))==Cnil){          if(((V1246))==Cnil){
11462          goto T5319;}          goto T5319;}
11463          if((CMPcdr((V1182)))!=Cnil){          if((CMPcdr((V1246)))!=Cnil){
11464          goto T5319;}          goto T5319;}
11465          (void)((          (void)((
11466          (type_of((V1180)) == t_sfun ?(*(((V1180))->sfn.sfn_self)):          (type_of((V1244)) == t_sfun ?(*(((V1244))->sfn.sfn_self)):
11467          (fcall.argd=2,type_of((V1180))==t_vfun) ?          (fcall.argd=2,type_of((V1244))==t_vfun) ?
11468          (*(((V1180))->sfn.sfn_self)):          (*(((V1244))->sfn.sfn_self)):
11469          (fcall.fun=((V1180)),fcalln))((V1181),CMPcar((V1182)))));          (fcall.fun=((V1244)),fcalln))((V1245),CMPcar((V1246)))));
11470          goto T5303;          goto T5303;
11471          goto T5319;          goto T5319;
11472  T5319:;  T5319:;
11473          base[6]= (V1180);          base[6]= (V1244);
11474          base[7]= (V1181);          base[7]= (V1245);
11475          {object V1183;          {object V1247;
11476          V1183= (V1182);          V1247= (V1246);
11477           vs_top=base+8;           vs_top=base+8;
11478           while(V1183!=Cnil)           while(V1247!=Cnil)
11479           {vs_push((V1183)->c.c_car);V1183=(V1183)->c.c_cdr;}           {vs_push((V1247)->c.c_car);V1247=(V1247)->c.c_cdr;}
11480          vs_base=base+7;}          vs_base=base+7;}
11481          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11482                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11422  T5319:; Line 11486  T5319:;
11486          goto T5303;}          goto T5303;}
11487          goto T5311;          goto T5311;
11488  T5311:;  T5311:;
11489          base[6]= V1177;          base[6]= V1241;
11490          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
11491          Lfunctionp();          Lfunctionp();
11492          vs_top=sup;          vs_top=sup;
11493          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11494          goto T5327;}          goto T5327;}
11495          base[6]= (V1177);          base[6]= (V1241);
11496          base[7]= (V1171);          base[7]= (V1235);
11497          base[8]= (V1172);          base[8]= (V1236);
11498          {object V1184;          {object V1248;
11499          V1184= (V1173);          V1248= (V1237);
11500           vs_top=base+9;           vs_top=base+9;
11501           while(V1184!=Cnil)           while(V1248!=Cnil)
11502           {vs_push((V1184)->c.c_car);V1184=(V1184)->c.c_cdr;}           {vs_push((V1248)->c.c_car);V1248=(V1248)->c.c_cdr;}
11503          vs_base=base+7;}          vs_base=base+7;}
11504          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11505                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11446  T5311:; Line 11510  T5311:;
11510          goto T5327;          goto T5327;
11511  T5327:;  T5327:;
11512          base[7]= VV[11];          base[7]= VV[11];
11513          base[8]= V1177;          base[8]= V1241;
11514          base[9]= VV[12];          base[9]= VV[12];
11515          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
11516          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 11457  T5327:; Line 11521  T5327:;
11521          vs_top=sup;          vs_top=sup;
11522          goto T5303;          goto T5303;
11523  T5303:;  T5303:;
11524          V1176= CMPcdr((V1176));          V1240= CMPcdr((V1240));
11525          V1177= CMPcar((V1176));          V1241= CMPcar((V1240));
11526          goto T5298;}          goto T5298;}
11527          goto T5294;          goto T5294;
11528  T5294:;  T5294:;
# Line 11472  T5294:; Line 11536  T5294:;
11536          base[5]= STREF(object,(base0[1]->c.c_car),0);          base[5]= STREF(object,(base0[1]->c.c_car),0);
11537          base[6]= STREF(object,(base0[1]->c.c_car),4);          base[6]= STREF(object,(base0[1]->c.c_car),4);
11538          base[7]= STREF(object,(base0[1]->c.c_car),8);          base[7]= STREF(object,(base0[1]->c.c_car),8);
11539          base[8]= (V1171);          base[8]= (V1235);
11540          base[9]= (V1172);          base[9]= (V1236);
11541          base[10]= (V1173);          base[10]= (V1237);
11542          vs_top=(vs_base=base+6)+5;          vs_top=(vs_base=base+6)+5;
11543          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11544                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11483  T5294:; Line 11547  T5294:;
11547          goto T5293;          goto T5293;
11548          goto T5345;          goto T5345;
11549  T5345:;  T5345:;
11550          {object V1185;          {object V1249;
11551          V1185= (base0[1]->c.c_car);          V1249= (base0[1]->c.c_car);
11552          base[5]= (V1185);          base[5]= (V1249);
11553          base[6]= VV[10];          base[6]= VV[10];
11554          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
11555          (void) (*Lnk258)();          (void) (*Lnk258)();
11556          vs_top=sup;          vs_top=sup;
11557          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11558          goto T5356;}          goto T5356;}
11559          {object V1186;          {object V1250;
11560          object V1187;          object V1251;
11561          object V1188;          object V1252;
11562          V1186= STREF(object,(base0[1]->c.c_car),0);          V1250= STREF(object,(base0[1]->c.c_car),0);
11563          V1187= listA(3,(V1171),(V1172),(V1173));          V1251= listA(3,(V1235),(V1236),(V1237));
11564          V1188= STREF(object,(base0[1]->c.c_car),4);          V1252= STREF(object,(base0[1]->c.c_car),4);
11565          if(((V1188))==Cnil){          if(((V1252))==Cnil){
11566          goto T5364;}          goto T5364;}
11567          if((CMPcdr((V1188)))!=Cnil){          if((CMPcdr((V1252)))!=Cnil){
11568          goto T5364;}          goto T5364;}
11569          base[5]= (V1187);          base[5]= (V1251);
11570          base[6]= CMPcar((V1188));          base[6]= CMPcar((V1252));
11571          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
11572          {object _funobj = (V1186);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1250);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11573                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11574                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11575                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11576          goto T5293;          goto T5293;
11577          goto T5364;          goto T5364;
11578  T5364:;  T5364:;
11579          base[5]= (V1186);          base[5]= (V1250);
11580          base[6]= (V1187);          base[6]= (V1251);
11581          {object V1189;          {object V1253;
11582          V1189= (V1188);          V1253= (V1252);
11583           vs_top=base+7;           vs_top=base+7;
11584           while(V1189!=Cnil)           while(V1253!=Cnil)
11585           {vs_push((V1189)->c.c_car);V1189=(V1189)->c.c_cdr;}           {vs_push((V1253)->c.c_car);V1253=(V1253)->c.c_cdr;}
11586          vs_base=base+6;}          vs_base=base+6;}
11587          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11588                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11527  T5364:; Line 11591  T5364:;
11591          goto T5293;}          goto T5293;}
11592          goto T5356;          goto T5356;
11593  T5356:;  T5356:;
11594          base[5]= (V1185);          base[5]= (V1249);
11595          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
11596          Lfunctionp();          Lfunctionp();
11597          vs_top=sup;          vs_top=sup;
11598          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11599          goto T5374;}          goto T5374;}
11600          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
11601          base[6]= (V1171);          base[6]= (V1235);
11602          base[7]= (V1172);          base[7]= (V1236);
11603          {object V1190;          {object V1254;
11604          V1190= (V1173);          V1254= (V1237);
11605           vs_top=base+8;           vs_top=base+8;
11606           while(V1190!=Cnil)           while(V1254!=Cnil)
11607           {vs_push((V1190)->c.c_car);V1190=(V1190)->c.c_cdr;}           {vs_push((V1254)->c.c_car);V1254=(V1254)->c.c_cdr;}
11608          vs_base=base+6;}          vs_base=base+6;}
11609          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11610                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11550  T5356:; Line 11614  T5356:;
11614          goto T5374;          goto T5374;
11615  T5374:;  T5374:;
11616          base[6]= VV[13];          base[6]= VV[13];
11617          base[7]= (V1185);          base[7]= (V1249);
11618          base[8]= VV[14];          base[8]= VV[14];
11619          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
11620          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 11560  T5374:; Line 11624  T5374:;
11624          Lerror();}          Lerror();}
11625          goto T5293;          goto T5293;
11626  T5293:;  T5293:;
11627          {object *V1175=vs_top;object *V1174=vs_base; vs_base=V1175;          {object *V1239=vs_top;object *V1238=vs_base; vs_base=V1239;
11628          {register object *base1=base;          {register object *base1=base;
11629          {register object *base=V1175;          {register object *base=V1239;
11630          register object *sup=vs_base+VM154;          register object *sup=vs_base+VM154;
11631          base1[0]=base1[0];          base1[0]=base1[0];
11632          base[0]=base[0];          base[0]=base[0];
11633          vs_check;          vs_check;
11634          vs_top=sup;          vs_top=sup;
11635          {object V1191;          {object V1255;
11636          register object V1192;          register object V1256;
11637          V1191= (base0[0]->c.c_car);          V1255= (base0[0]->c.c_car);
11638          V1192= CMPcar((V1191));          V1256= CMPcar((V1255));
11639          goto T5389;          goto T5389;
11640  T5389:;  T5389:;
11641          if(!(((V1191))==Cnil)){          if(!(((V1255))==Cnil)){
11642          goto T5390;}          goto T5390;}
11643          goto T5385;          goto T5385;
11644          goto T5390;          goto T5390;
11645  T5390:;  T5390:;
11646          base[1]= (V1192);          base[1]= (V1256);
11647          base[2]= VV[2];          base[2]= VV[2];
11648          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
11649          (void) (*Lnk258)();          (void) (*Lnk258)();
# Line 11587  T5390:; Line 11651  T5390:;
11651          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11652          goto T5397;}          goto T5397;}
11653          (void)((          (void)((
11654          V1193 = STREF(object,(V1192),0),          V1257 = STREF(object,(V1256),0),
11655          (type_of(V1193) == t_sfun ?(*((V1193)->sfn.sfn_self)):          (type_of(V1257) == t_sfun ?(*((V1257)->sfn.sfn_self)):
11656          (fcall.argd=5,type_of(V1193)==t_vfun) ?          (fcall.argd=5,type_of(V1257)==t_vfun) ?
11657          (*((V1193)->sfn.sfn_self)):          (*((V1257)->sfn.sfn_self)):
11658          (fcall.fun=(V1193),fcalln))(STREF(object,(V1192),4),STREF(object,(V1192),8),(V1171),(V1172),(V1173))));          (fcall.fun=(V1257),fcalln))(STREF(object,(V1256),4),STREF(object,(V1256),8),(V1235),(V1236),(V1237))));
11659          goto T5394;          goto T5394;
11660          goto T5397;          goto T5397;
11661  T5397:;  T5397:;
11662          base[1]= V1192;          base[1]= V1256;
11663          base[2]= VV[10];          base[2]= VV[10];
11664          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
11665          (void) (*Lnk258)();          (void) (*Lnk258)();
11666          vs_top=sup;          vs_top=sup;
11667          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11668          goto T5402;}          goto T5402;}
11669          {object V1195;          {object V1259;
11670          object V1196;          object V1260;
11671          register object V1197;          register object V1261;
11672          V1195= STREF(object,(V1192),0);          V1259= STREF(object,(V1256),0);
11673          V1196= listA(3,(V1171),(V1172),(V1173));          V1260= listA(3,(V1235),(V1236),(V1237));
11674          V1197= STREF(object,(V1192),4);          V1261= STREF(object,(V1256),4);
11675          if(((V1197))==Cnil){          if(((V1261))==Cnil){
11676          goto T5410;}          goto T5410;}
11677          if((CMPcdr((V1197)))!=Cnil){          if((CMPcdr((V1261)))!=Cnil){
11678          goto T5410;}          goto T5410;}
11679          (void)((          (void)((
11680          (type_of((V1195)) == t_sfun ?(*(((V1195))->sfn.sfn_self)):          (type_of((V1259)) == t_sfun ?(*(((V1259))->sfn.sfn_self)):
11681          (fcall.argd=2,type_of((V1195))==t_vfun) ?          (fcall.argd=2,type_of((V1259))==t_vfun) ?
11682          (*(((V1195))->sfn.sfn_self)):          (*(((V1259))->sfn.sfn_self)):
11683          (fcall.fun=((V1195)),fcalln))((V1196),CMPcar((V1197)))));          (fcall.fun=((V1259)),fcalln))((V1260),CMPcar((V1261)))));
11684          goto T5394;          goto T5394;
11685          goto T5410;          goto T5410;
11686  T5410:;  T5410:;
11687          base[1]= (V1195);          base[1]= (V1259);
11688          base[2]= (V1196);          base[2]= (V1260);
11689          {object V1198;          {object V1262;
11690          V1198= (V1197);          V1262= (V1261);
11691           vs_top=base+3;           vs_top=base+3;
11692           while(V1198!=Cnil)           while(V1262!=Cnil)
11693           {vs_push((V1198)->c.c_car);V1198=(V1198)->c.c_cdr;}           {vs_push((V1262)->c.c_car);V1262=(V1262)->c.c_cdr;}
11694          vs_base=base+2;}          vs_base=base+2;}
11695          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11696                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11636  T5410:; Line 11700  T5410:;
11700          goto T5394;}          goto T5394;}
11701          goto T5402;          goto T5402;
11702  T5402:;  T5402:;
11703          base[1]= V1192;          base[1]= V1256;
11704          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
11705          Lfunctionp();          Lfunctionp();
11706          vs_top=sup;          vs_top=sup;
11707          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11708          goto T5418;}          goto T5418;}
11709          base[1]= (V1192);          base[1]= (V1256);
11710          base[2]= (V1171);          base[2]= (V1235);
11711          base[3]= (V1172);          base[3]= (V1236);
11712          {object V1199;          {object V1263;
11713          V1199= (V1173);          V1263= (V1237);
11714           vs_top=base+4;           vs_top=base+4;
11715           while(V1199!=Cnil)           while(V1263!=Cnil)
11716           {vs_push((V1199)->c.c_car);V1199=(V1199)->c.c_cdr;}           {vs_push((V1263)->c.c_car);V1263=(V1263)->c.c_cdr;}
11717          vs_base=base+2;}          vs_base=base+2;}
11718          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11719                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 11660  T5402:; Line 11724  T5402:;
11724          goto T5418;          goto T5418;
11725  T5418:;  T5418:;
11726          base[2]= VV[11];          base[2]= VV[11];
11727          base[3]= V1192;          base[3]= V1256;
11728          base[4]= VV[15];          base[4]= VV[15];
11729          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
11730          (void) (*Lnk260)();          (void) (*Lnk260)();
# Line 11671  T5418:; Line 11735  T5418:;
11735          vs_top=sup;          vs_top=sup;
11736          goto T5394;          goto T5394;
11737  T5394:;  T5394:;
11738          V1191= CMPcdr((V1191));          V1255= CMPcdr((V1255));
11739          V1192= CMPcar((V1191));          V1256= CMPcar((V1255));
11740          goto T5389;}          goto T5389;}
11741          }}          }}
11742          goto T5385;          goto T5385;
11743  T5385:;  T5385:;
11744          vs_base=V1174;vs_top=V1175;}          vs_base=V1238;vs_top=V1239;}
11745          return;          return;
11746          }          }
11747  }  }
# Line 11705  register object *base0; Line 11769  register object *base0;
11769  {       register object *base=vs_base;  {       register object *base=vs_base;
11770          register object *sup=base+VM156; VC156          register object *sup=base+VM156; VC156
11771          vs_check;          vs_check;
11772          {object V1200;          {object V1264;
11773          object V1201;          object V1265;
11774          register object V1202;          register object V1266;
11775          register object V1203;          register object V1267;
11776          check_arg(4);          check_arg(4);
11777          V1200=(base[0]);          V1264=(base[0]);
11778          V1201=(base[1]);          V1265=(base[1]);
11779          V1202=(base[2]);          V1266=(base[2]);
11780          V1203=(base[3]);          V1267=(base[3]);
11781          vs_top=sup;          vs_top=sup;
11782          {register object V1206;          {register object V1270;
11783          register object V1207;          register object V1271;
11784          V1206= (base0[2]->c.c_car);          V1270= (base0[2]->c.c_car);
11785          V1207= CMPcar((V1206));          V1271= CMPcar((V1270));
11786          goto T5439;          goto T5439;
11787  T5439:;  T5439:;
11788          if(!(((V1206))==Cnil)){          if(!(((V1270))==Cnil)){
11789          goto T5440;}          goto T5440;}
11790          goto T5435;          goto T5435;
11791          goto T5440;          goto T5440;
11792  T5440:;  T5440:;
11793          (void)((          (void)((
11794          V1208 = STREF(object,(V1207),0),          V1272 = STREF(object,(V1271),0),
11795          (type_of(V1208) == t_sfun ?(*((V1208)->sfn.sfn_self)):          (type_of(V1272) == t_sfun ?(*((V1272)->sfn.sfn_self)):
11796          (fcall.argd=4,type_of(V1208)==t_vfun) ?          (fcall.argd=4,type_of(V1272)==t_vfun) ?
11797          (*((V1208)->sfn.sfn_self)):          (*((V1272)->sfn.sfn_self)):
11798          (fcall.fun=(V1208),fcalln))(STREF(object,(V1207),4),STREF(object,(V1207),8),(V1202),(V1203))));          (fcall.fun=(V1272),fcalln))(STREF(object,(V1271),4),STREF(object,(V1271),8),(V1266),(V1267))));
11799          V1206= CMPcdr((V1206));          V1270= CMPcdr((V1270));
11800          V1207= CMPcar((V1206));          V1271= CMPcar((V1270));
11801          goto T5439;}          goto T5439;}
11802          goto T5435;          goto T5435;
11803  T5435:;  T5435:;
11804          base[4]= STREF(object,(base0[1]->c.c_car),0);          base[4]= STREF(object,(base0[1]->c.c_car),0);
11805          base[5]= STREF(object,(base0[1]->c.c_car),4);          base[5]= STREF(object,(base0[1]->c.c_car),4);
11806          base[6]= STREF(object,(base0[1]->c.c_car),8);          base[6]= STREF(object,(base0[1]->c.c_car),8);
11807          base[7]= (V1202);          base[7]= (V1266);
11808          base[8]= (V1203);          base[8]= (V1267);
11809          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
11810          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11811                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11812                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11813                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11814          {object *V1205=vs_top;object *V1204=vs_base; vs_base=V1205;          {object *V1269=vs_top;object *V1268=vs_base; vs_base=V1269;
11815          {register object *base1=base;          {register object *base1=base;
11816          {register object *base=V1205;          {register object *base=V1269;
11817          register object *sup=vs_base+VM157;          register object *sup=vs_base+VM157;
11818          base1[0]=base1[0];          base1[0]=base1[0];
11819          base[0]=base[0];          base[0]=base[0];
11820          vs_check;          vs_check;
11821          vs_top=sup;          vs_top=sup;
11822          {register object V1209;          {register object V1273;
11823          register object V1210;          register object V1274;
11824          V1209= (base0[0]->c.c_car);          V1273= (base0[0]->c.c_car);
11825          V1210= CMPcar((V1209));          V1274= CMPcar((V1273));
11826          goto T5461;          goto T5461;
11827  T5461:;  T5461:;
11828          if(!(((V1209))==Cnil)){          if(!(((V1273))==Cnil)){
11829          goto T5462;}          goto T5462;}
11830          goto T5457;          goto T5457;
11831          goto T5462;          goto T5462;
11832  T5462:;  T5462:;
11833          (void)((          (void)((
11834          V1211 = STREF(object,(V1210),0),          V1275 = STREF(object,(V1274),0),
11835          (type_of(V1211) == t_sfun ?(*((V1211)->sfn.sfn_self)):          (type_of(V1275) == t_sfun ?(*((V1275)->sfn.sfn_self)):
11836          (fcall.argd=4,type_of(V1211)==t_vfun) ?          (fcall.argd=4,type_of(V1275)==t_vfun) ?
11837          (*((V1211)->sfn.sfn_self)):          (*((V1275)->sfn.sfn_self)):
11838          (fcall.fun=(V1211),fcalln))(STREF(object,(V1210),4),STREF(object,(V1210),8),(V1202),(V1203))));          (fcall.fun=(V1275),fcalln))(STREF(object,(V1274),4),STREF(object,(V1274),8),(V1266),(V1267))));
11839          V1209= CMPcdr((V1209));          V1273= CMPcdr((V1273));
11840          V1210= CMPcar((V1209));          V1274= CMPcar((V1273));
11841          goto T5461;}          goto T5461;}
11842          }}          }}
11843          goto T5457;          goto T5457;
11844  T5457:;  T5457:;
11845          vs_base=V1204;vs_top=V1205;}          vs_base=V1268;vs_top=V1269;}
11846          return;          return;
11847          }          }
11848  }  }
# Line 11806  register object *base0; Line 11870  register object *base0;
11870  {       register object *base=vs_base;  {       register object *base=vs_base;
11871          register object *sup=base+VM159; VC159          register object *sup=base+VM159; VC159
11872          vs_check;          vs_check;
11873          {object V1212;          {object V1276;
11874          object V1213;          object V1277;
11875          register object V1214;          register object V1278;
11876          register object V1215;          register object V1279;
11877          register object V1216;          register object V1280;
11878          check_arg(5);          check_arg(5);
11879          V1212=(base[0]);          V1276=(base[0]);
11880          V1213=(base[1]);          V1277=(base[1]);
11881          V1214=(base[2]);          V1278=(base[2]);
11882          V1215=(base[3]);          V1279=(base[3]);
11883          V1216=(base[4]);          V1280=(base[4]);
11884          vs_top=sup;          vs_top=sup;
11885          {register object V1219;          {register object V1283;
11886          register object V1220;          register object V1284;
11887          V1219= (base0[2]->c.c_car);          V1283= (base0[2]->c.c_car);
11888          V1220= CMPcar((V1219));          V1284= CMPcar((V1283));
11889          goto T5478;          goto T5478;
11890  T5478:;  T5478:;
11891          if(!(((V1219))==Cnil)){          if(!(((V1283))==Cnil)){
11892          goto T5479;}          goto T5479;}
11893          goto T5474;          goto T5474;
11894          goto T5479;          goto T5479;
11895  T5479:;  T5479:;
11896          (void)((          (void)((
11897          V1221 = STREF(object,(V1220),0),          V1285 = STREF(object,(V1284),0),
11898          (type_of(V1221) == t_sfun ?(*((V1221)->sfn.sfn_self)):          (type_of(V1285) == t_sfun ?(*((V1285)->sfn.sfn_self)):
11899          (fcall.argd=5,type_of(V1221)==t_vfun) ?          (fcall.argd=5,type_of(V1285)==t_vfun) ?
11900          (*((V1221)->sfn.sfn_self)):          (*((V1285)->sfn.sfn_self)):
11901          (fcall.fun=(V1221),fcalln))(STREF(object,(V1220),4),STREF(object,(V1220),8),(V1214),(V1215),(V1216))));          (fcall.fun=(V1285),fcalln))(STREF(object,(V1284),4),STREF(object,(V1284),8),(V1278),(V1279),(V1280))));
11902          V1219= CMPcdr((V1219));          V1283= CMPcdr((V1283));
11903          V1220= CMPcar((V1219));          V1284= CMPcar((V1283));
11904          goto T5478;}          goto T5478;}
11905          goto T5474;          goto T5474;
11906  T5474:;  T5474:;
11907          base[5]= STREF(object,(base0[1]->c.c_car),0);          base[5]= STREF(object,(base0[1]->c.c_car),0);
11908          base[6]= STREF(object,(base0[1]->c.c_car),4);          base[6]= STREF(object,(base0[1]->c.c_car),4);
11909          base[7]= STREF(object,(base0[1]->c.c_car),8);          base[7]= STREF(object,(base0[1]->c.c_car),8);
11910          base[8]= (V1214);          base[8]= (V1278);
11911          base[9]= (V1215);          base[9]= (V1279);
11912          base[10]= (V1216);          base[10]= (V1280);
11913          vs_top=(vs_base=base+6)+5;          vs_top=(vs_base=base+6)+5;
11914          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11915                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11916                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11917                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11918          {object *V1218=vs_top;object *V1217=vs_base; vs_base=V1218;          {object *V1282=vs_top;object *V1281=vs_base; vs_base=V1282;
11919          {register object *base1=base;          {register object *base1=base;
11920          {register object *base=V1218;          {register object *base=V1282;
11921          register object *sup=vs_base+VM160;          register object *sup=vs_base+VM160;
11922          base1[0]=base1[0];          base1[0]=base1[0];
11923          base[0]=base[0];          base[0]=base[0];
11924          vs_check;          vs_check;
11925          vs_top=sup;          vs_top=sup;
11926          {register object V1222;          {register object V1286;
11927          register object V1223;          register object V1287;
11928          V1222= (base0[0]->c.c_car);          V1286= (base0[0]->c.c_car);
11929          V1223= CMPcar((V1222));          V1287= CMPcar((V1286));
11930          goto T5501;          goto T5501;
11931  T5501:;  T5501:;
11932          if(!(((V1222))==Cnil)){          if(!(((V1286))==Cnil)){
11933          goto T5502;}          goto T5502;}
11934          goto T5497;          goto T5497;
11935          goto T5502;          goto T5502;
11936  T5502:;  T5502:;
11937          (void)((          (void)((
11938          V1224 = STREF(object,(V1223),0),          V1288 = STREF(object,(V1287),0),
11939          (type_of(V1224) == t_sfun ?(*((V1224)->sfn.sfn_self)):          (type_of(V1288) == t_sfun ?(*((V1288)->sfn.sfn_self)):
11940          (fcall.argd=5,type_of(V1224)==t_vfun) ?          (fcall.argd=5,type_of(V1288)==t_vfun) ?
11941          (*((V1224)->sfn.sfn_self)):          (*((V1288)->sfn.sfn_self)):
11942          (fcall.fun=(V1224),fcalln))(STREF(object,(V1223),4),STREF(object,(V1223),8),(V1214),(V1215),(V1216))));          (fcall.fun=(V1288),fcalln))(STREF(object,(V1287),4),STREF(object,(V1287),8),(V1278),(V1279),(V1280))));
11943          V1222= CMPcdr((V1222));          V1286= CMPcdr((V1286));
11944          V1223= CMPcar((V1222));          V1287= CMPcar((V1286));
11945          goto T5501;}          goto T5501;}
11946          }}          }}
11947          goto T5497;          goto T5497;
11948  T5497:;  T5497:;
11949          vs_base=V1217;vs_top=V1218;}          vs_base=V1281;vs_top=V1282;}
11950          return;          return;
11951          }          }
11952  }  }

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26