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; |
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:; |
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; |
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; |
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; |
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; |
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); |
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; |
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)(); |
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:; |
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); |
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); |
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); |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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; |
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:; |
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; |
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); |
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; |
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:; |
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; |
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); |
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); |
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); |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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);} |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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); |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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; |
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); |
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);} |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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; |
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); |
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);} |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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);} |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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);} |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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); |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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); |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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); |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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);} |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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); |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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);} |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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);} |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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); |
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);} |
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)(); |
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); |
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; |
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:; |
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; |
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); |
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; |
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); |
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);} |
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)(); |
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); |
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); |
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; |
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; |
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); |
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);} |
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)(); |
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); |
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; |
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); |
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);} |
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)(); |
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); |
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; |
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); |
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);} |
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)(); |
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); |
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; |
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); |
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);} |
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)(); |
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:; |
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); |
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); |
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); |
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)(); |
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)(); |
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); |
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); |
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)(); |
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 |
} |
} |
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)(); |
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); |
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); |
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)(); |
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:; |
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); |
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); |
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); |
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)(); |
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)(); |
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); |
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); |
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)(); |
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 |
} |
} |
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 |
} |
} |
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 |
} |
} |