382 |
goto T134;} |
goto T134;} |
383 |
if(!(type_of((V60))==t_symbol)){ |
if(!(type_of((V60))==t_symbol)){ |
384 |
goto T133;} |
goto T133;} |
385 |
V63= (VFUN_NARGS=2,(*(LnkLI217))((V60),Cnil)); |
V63 = (V58); |
386 |
if(!(((V58))==(/* INLINE-ARGS */V63))){ |
V64= (VFUN_NARGS=2,(*(LnkLI217))((V60),Cnil)); |
387 |
|
if(!((V63)==(/* INLINE-ARGS */V64))){ |
388 |
goto T133;} |
goto T133;} |
389 |
goto T134; |
goto T134; |
390 |
T134:; |
T134:; |
412 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
413 |
Lintern(); |
Lintern(); |
414 |
vs_top=sup; |
vs_top=sup; |
415 |
{object V64 = vs_base[0]; |
{object V65 = vs_base[0]; |
416 |
bds_unwind1; |
bds_unwind1; |
417 |
bds_unwind1; |
bds_unwind1; |
418 |
bds_unwind1; |
bds_unwind1; |
419 |
bds_unwind1; |
bds_unwind1; |
420 |
bds_unwind1; |
bds_unwind1; |
421 |
bds_unwind1; |
bds_unwind1; |
422 |
VMR8(V64)} |
VMR8(V65)} |
423 |
goto T133; |
goto T133; |
424 |
T133:; |
T133:; |
|
{object V65 = Cnil; |
|
|
VMR8(V65)}} |
|
|
goto T120; |
|
|
T120:; |
|
425 |
{object V66 = Cnil; |
{object V66 = Cnil; |
426 |
VMR8(V66)}} |
VMR8(V66)}} |
427 |
|
goto T120; |
428 |
|
T120:; |
429 |
|
{object V67 = Cnil; |
430 |
|
VMR8(V67)}} |
431 |
base[0]=base[0]; |
base[0]=base[0]; |
432 |
return Cnil; |
return Cnil; |
433 |
} |
} |
437 |
{register object *base=vs_base; |
{register object *base=vs_base; |
438 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
439 |
vs_check; |
vs_check; |
440 |
{object V67; |
{object V68; |
441 |
object V68; |
object V69; |
442 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
443 |
V67=(base[0]); |
V68=(base[0]); |
444 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
445 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
446 |
{object *p=vs_top; |
{object *p=vs_top; |
447 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
448 |
V68=(base[1]); |
V69=(base[1]); |
449 |
vs_top=sup; |
vs_top=sup; |
450 |
base[2]=VV[9]->s.s_gfdef; |
base[2]=VV[9]->s.s_gfdef; |
451 |
base[3]= (V67); |
base[3]= (V68); |
452 |
{object V69; |
{object V70; |
453 |
V69= (V68); |
V70= (V69); |
454 |
vs_top=base+4; |
vs_top=base+4; |
455 |
while(V69!=Cnil) |
while(V70!=Cnil) |
456 |
{vs_push((V69)->c.c_car);V69=(V69)->c.c_cdr;} |
{vs_push((V70)->c.c_car);V70=(V70)->c.c_cdr;} |
457 |
vs_base=base+3;} |
vs_base=base+3;} |
458 |
(void) (*Lnk9)(Lclptr9); |
(void) (*Lnk9)(Lclptr9); |
459 |
return; |
return; |
467 |
vs_check; |
vs_check; |
468 |
check_arg(2); |
check_arg(2); |
469 |
vs_top=sup; |
vs_top=sup; |
470 |
{object V70=base[0]->c.c_cdr; |
{object V71=base[0]->c.c_cdr; |
471 |
if(endp(V70))invalid_macro_call(); |
if(endp(V71))invalid_macro_call(); |
472 |
base[2]= (V70->c.c_car); |
base[2]= (V71->c.c_car); |
473 |
V70=V70->c.c_cdr; |
V71=V71->c.c_cdr; |
474 |
if(endp(V70))invalid_macro_call(); |
if(endp(V71))invalid_macro_call(); |
475 |
base[3]= (V70->c.c_car); |
base[3]= (V71->c.c_car); |
476 |
V70=V70->c.c_cdr; |
V71=V71->c.c_cdr; |
477 |
if(endp(V70))invalid_macro_call(); |
if(endp(V71))invalid_macro_call(); |
478 |
base[4]= (V70->c.c_car); |
base[4]= (V71->c.c_car); |
479 |
V70=V70->c.c_cdr; |
V71=V71->c.c_cdr; |
480 |
if(!endp(V70))invalid_macro_call();} |
if(!endp(V71))invalid_macro_call();} |
481 |
{object V71; |
{object V72; |
482 |
object V72; |
object V73; |
483 |
base[6]= Cnil; |
base[6]= Cnil; |
484 |
base[7]= VV[23]; |
base[7]= VV[23]; |
485 |
base[8]= base[2]; |
base[8]= base[2]; |
491 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
492 |
Lintern(); |
Lintern(); |
493 |
vs_top=sup; |
vs_top=sup; |
494 |
V71= vs_base[0]; |
V72= vs_base[0]; |
495 |
base[6]= Cnil; |
base[6]= Cnil; |
496 |
base[7]= VV[24]; |
base[7]= VV[24]; |
497 |
base[8]= base[2]; |
base[8]= base[2]; |
503 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
504 |
Lintern(); |
Lintern(); |
505 |
vs_top=sup; |
vs_top=sup; |
506 |
V72= vs_base[0]; |
V73= vs_base[0]; |
507 |
V73= list(2,VV[27],list(3,VV[27],VV[29],list(3,VV[27],list(2,VV[4],(V72)),VV[30]))); |
V74= list(2,VV[27],list(3,VV[27],VV[29],list(3,VV[27],list(2,VV[4],(V73)),VV[30]))); |
508 |
V74= list(2,VV[4],base[4]); |
V75= list(2,VV[4],base[4]); |
509 |
V75= list(4,VV[27],/* INLINE-ARGS */V74,VV[30],list(3,VV[27],VV[34],list(2,VV[4],base[3]))); |
V76= list(4,VV[27],/* INLINE-ARGS */V75,VV[30],list(3,VV[27],VV[34],list(2,VV[4],base[3]))); |
510 |
base[5]= list(4,VV[25],(V71),VV[26],list(4,VV[27],VV[28],/* INLINE-ARGS */V73,list(5,VV[27],VV[31],VV[32],list(4,VV[27],VV[33],/* INLINE-ARGS */V75,list(3,VV[27],list(2,VV[4],(V72)),VV[30])),VV[35]))); |
base[5]= list(4,VV[25],(V72),VV[26],list(4,VV[27],VV[28],/* INLINE-ARGS */V74,list(5,VV[27],VV[31],VV[32],list(4,VV[27],VV[33],/* INLINE-ARGS */V76,list(3,VV[27],list(2,VV[4],(V73)),VV[30])),VV[35]))); |
511 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
512 |
return;} |
return;} |
513 |
} |
} |
519 |
vs_check; |
vs_check; |
520 |
check_arg(2); |
check_arg(2); |
521 |
vs_top=sup; |
vs_top=sup; |
522 |
{object V76=base[0]->c.c_cdr; |
{object V77=base[0]->c.c_cdr; |
523 |
if(!endp(V76))invalid_macro_call();} |
if(!endp(V77))invalid_macro_call();} |
524 |
{object V77; |
{object V78; |
525 |
object V78; |
object V79; |
526 |
base[3]= (VV[37]->s.s_dbind); |
base[3]= (VV[37]->s.s_dbind); |
527 |
{object V79; |
{object V80; |
528 |
object V80= base[3]; |
object V81= base[3]; |
529 |
if(V80==Cnil){ |
if(V81==Cnil){ |
530 |
V77= Cnil; |
V78= Cnil; |
531 |
goto T162;} |
goto T162;} |
532 |
base[2]=V79=MMcons(Cnil,Cnil); |
base[2]=V80=MMcons(Cnil,Cnil); |
533 |
goto T163; |
goto T163; |
534 |
T163:; |
T163:; |
535 |
base[5]= Cnil; |
base[5]= Cnil; |
536 |
base[6]= VV[36]; |
base[6]= VV[36]; |
537 |
base[7]= (V80->c.c_car); |
base[7]= (V81->c.c_car); |
538 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
539 |
Lformat(); |
Lformat(); |
540 |
vs_top=sup; |
vs_top=sup; |
542 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
543 |
Lintern(); |
Lintern(); |
544 |
vs_top=sup; |
vs_top=sup; |
545 |
(V79->c.c_car)= vs_base[0]; |
(V80->c.c_car)= vs_base[0]; |
546 |
if((V80=MMcdr(V80))==Cnil){ |
if((V81=MMcdr(V81))==Cnil){ |
547 |
V77= base[2]; |
V78= base[2]; |
548 |
goto T162;} |
goto T162;} |
549 |
V79=MMcdr(V79)=MMcons(Cnil,Cnil); |
V80=MMcdr(V80)=MMcons(Cnil,Cnil); |
550 |
goto T163;} |
goto T163;} |
551 |
goto T162; |
goto T162; |
552 |
T162:; |
T162:; |
553 |
base[3]= (VV[37]->s.s_dbind); |
base[3]= (VV[37]->s.s_dbind); |
554 |
{object V82; |
{object V83; |
555 |
object V83= base[3]; |
object V84= base[3]; |
556 |
if(V83==Cnil){ |
if(V84==Cnil){ |
557 |
V78= Cnil; |
V79= Cnil; |
558 |
goto T169;} |
goto T169;} |
559 |
base[2]=V82=MMcons(Cnil,Cnil); |
base[2]=V83=MMcons(Cnil,Cnil); |
560 |
goto T170; |
goto T170; |
561 |
T170:; |
T170:; |
562 |
base[5]= Cnil; |
base[5]= Cnil; |
563 |
base[6]= VV[38]; |
base[6]= VV[38]; |
564 |
base[7]= VV[39]; |
base[7]= VV[39]; |
565 |
base[8]= (V83->c.c_car); |
base[8]= (V84->c.c_car); |
566 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
567 |
Lformat(); |
Lformat(); |
568 |
vs_top=sup; |
vs_top=sup; |
570 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
571 |
Lintern(); |
Lintern(); |
572 |
vs_top=sup; |
vs_top=sup; |
573 |
(V82->c.c_car)= vs_base[0]; |
(V83->c.c_car)= vs_base[0]; |
574 |
if((V83=MMcdr(V83))==Cnil){ |
if((V84=MMcdr(V84))==Cnil){ |
575 |
V78= base[2]; |
V79= base[2]; |
576 |
goto T169;} |
goto T169;} |
577 |
V82=MMcdr(V82)=MMcons(Cnil,Cnil); |
V83=MMcdr(V83)=MMcons(Cnil,Cnil); |
578 |
goto T170;} |
goto T170;} |
579 |
goto T169; |
goto T169; |
580 |
T169:; |
T169:; |
581 |
{object V86; |
{object V87; |
582 |
object V87= (V77); |
object V88= (V78); |
583 |
if(V87==Cnil){ |
if(V88==Cnil){ |
584 |
V85= Cnil; |
V86= Cnil; |
585 |
goto T177;} |
goto T177;} |
586 |
base[2]=V86=MMcons(Cnil,Cnil); |
base[2]=V87=MMcons(Cnil,Cnil); |
587 |
goto T178; |
goto T178; |
588 |
T178:; |
T178:; |
589 |
(V86->c.c_car)= list(2,(V87->c.c_car),VV[43]); |
(V87->c.c_car)= list(2,(V88->c.c_car),VV[43]); |
590 |
if((V87=MMcdr(V87))==Cnil){ |
if((V88=MMcdr(V88))==Cnil){ |
591 |
V85= base[2]; |
V86= base[2]; |
592 |
goto T177;} |
goto T177;} |
593 |
V86=MMcdr(V86)=MMcons(Cnil,Cnil); |
V87=MMcdr(V87)=MMcons(Cnil,Cnil); |
594 |
goto T178;} |
goto T178;} |
595 |
goto T177; |
goto T177; |
596 |
T177:; |
T177:; |
597 |
V89= listA(5,VV[40],VV[39],VV[41],VV[42],V85); |
V90= listA(5,VV[40],VV[39],VV[41],VV[42],V86); |
598 |
V90= list(4,VV[25],VV[44],VV[45],list(3,VV[46],VV[47],list(3,VV[48],VV[49],list(2,VV[4],(V78))))); |
V91= list(4,VV[25],VV[44],VV[45],list(3,VV[46],VV[47],list(3,VV[48],VV[49],list(2,VV[4],(V79))))); |
599 |
base[3]= (VV[37]->s.s_dbind); |
base[3]= (VV[37]->s.s_dbind); |
600 |
{object V92; |
{object V93; |
601 |
object V93= base[3]; |
object V94= base[3]; |
602 |
object V94= (V78); |
object V95= (V79); |
603 |
if(V93==Cnil||V94==Cnil){ |
if(V94==Cnil||V95==Cnil){ |
604 |
V91= Cnil; |
V92= Cnil; |
605 |
goto T180;} |
goto T180;} |
606 |
base[2]=V92=MMcons(Cnil,Cnil); |
base[2]=V93=MMcons(Cnil,Cnil); |
607 |
goto T181; |
goto T181; |
608 |
T181:; |
T181:; |
609 |
V97= list(3,VV[55],VV[56],list(2,(V94->c.c_car),VV[30])); |
V98= list(3,VV[55],VV[56],list(2,(V95->c.c_car),VV[30])); |
610 |
(V92->c.c_car)= list(3,VV[54],/* INLINE-ARGS */V97,list(3,VV[57],list(2,VV[4],(V93->c.c_car)),VV[58])); |
(V93->c.c_car)= list(3,VV[54],/* INLINE-ARGS */V98,list(3,VV[57],list(2,VV[4],(V94->c.c_car)),VV[58])); |
611 |
if((V93=MMcdr(V93))==Cnil||(V94=MMcdr(V94))==Cnil){ |
if((V94=MMcdr(V94))==Cnil||(V95=MMcdr(V95))==Cnil){ |
612 |
V91= base[2]; |
V92= base[2]; |
613 |
goto T180;} |
goto T180;} |
614 |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
V93=MMcdr(V93)=MMcons(Cnil,Cnil); |
615 |
goto T181;} |
goto T181;} |
616 |
goto T180; |
goto T180; |
617 |
T180:; |
T180:; |
618 |
V98= list(4,VV[11],VV[50],VV[51],listA(3,VV[52],VV[53],append(V91,VV[59]))); |
V99= list(4,VV[11],VV[50],VV[51],listA(3,VV[52],VV[53],append(V92,VV[59]))); |
619 |
base[3]= (VV[37]->s.s_dbind); |
base[3]= (VV[37]->s.s_dbind); |
620 |
{object V100; |
{object V101; |
621 |
object V101= base[3]; |
object V102= base[3]; |
622 |
if(V101==Cnil){ |
if(V102==Cnil){ |
623 |
V99= Cnil; |
V100= Cnil; |
624 |
goto T183;} |
goto T183;} |
625 |
base[2]=V100=MMcons(Cnil,Cnil); |
base[2]=V101=MMcons(Cnil,Cnil); |
626 |
goto T184; |
goto T184; |
627 |
T184:; |
T184:; |
628 |
(V100->c.c_car)= list(4,VV[60],VV[39],(V101->c.c_car),VV[61]); |
(V101->c.c_car)= list(4,VV[60],VV[39],(V102->c.c_car),VV[61]); |
629 |
if((V101=MMcdr(V101))==Cnil){ |
if((V102=MMcdr(V102))==Cnil){ |
630 |
V99= base[2]; |
V100= base[2]; |
631 |
goto T183;} |
goto T183;} |
632 |
V100=MMcdr(V100)=MMcons(Cnil,Cnil); |
V101=MMcdr(V101)=MMcons(Cnil,Cnil); |
633 |
goto T184;} |
goto T184;} |
634 |
goto T183; |
goto T183; |
635 |
T183:; |
T183:; |
636 |
base[2]= listA(5,VV[6],/* INLINE-ARGS */V89,/* INLINE-ARGS */V90,/* INLINE-ARGS */V98,V99); |
base[2]= listA(5,VV[6],/* INLINE-ARGS */V90,/* INLINE-ARGS */V91,/* INLINE-ARGS */V99,V100); |
637 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
638 |
return;} |
return;} |
639 |
} |
} |
643 |
{ |
{ |
644 |
va_list ap; |
va_list ap; |
645 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
646 |
{object V103; |
{object V104; |
|
object V104; |
|
647 |
object V105; |
object V105; |
648 |
object V106; |
object V106; |
649 |
object V107; |
object V107; |
656 |
object V114; |
object V114; |
657 |
object V115; |
object V115; |
658 |
object V116; |
object V116; |
659 |
|
object V117; |
660 |
va_start(ap,first); |
va_start(ap,first); |
661 |
narg= narg - 0; |
narg= narg - 0; |
662 |
{ |
{ |
663 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap); |
664 |
V103=(Vcs[0]); |
V104=(Vcs[0]); |
665 |
V104=(Vcs[1]); |
V105=(Vcs[1]); |
666 |
V105=(Vcs[2]); |
V106=(Vcs[2]); |
667 |
V106=(Vcs[3]); |
V107=(Vcs[3]); |
668 |
V107=(Vcs[4]); |
V108=(Vcs[4]); |
669 |
V108=(Vcs[5]); |
V109=(Vcs[5]); |
670 |
V109=(Vcs[6]); |
V110=(Vcs[6]); |
671 |
V110=(Vcs[7]); |
V111=(Vcs[7]); |
672 |
V111=(Vcs[8]); |
V112=(Vcs[8]); |
673 |
V112=(Vcs[9]); |
V113=(Vcs[9]); |
674 |
V113=(Vcs[10]); |
V114=(Vcs[10]); |
675 |
V114=(Vcs[11]); |
V115=(Vcs[11]); |
676 |
V115=(Vcs[12]); |
V116=(Vcs[12]); |
677 |
V116=(Vcs[13]); |
V117=(Vcs[13]); |
678 |
base[0]= VV[39]; |
base[0]= VV[39]; |
679 |
base[1]= (V103); |
base[1]= (V104); |
680 |
base[2]= (V104); |
base[2]= (V105); |
681 |
base[3]= (V105); |
base[3]= (V106); |
682 |
base[4]= (V106); |
base[4]= (V107); |
683 |
base[5]= (V107); |
base[5]= (V108); |
684 |
base[6]= (V108); |
base[6]= (V109); |
685 |
base[7]= (V109); |
base[7]= (V110); |
686 |
base[8]= (V110); |
base[8]= (V111); |
687 |
base[9]= (V111); |
base[9]= (V112); |
688 |
base[10]= (V112); |
base[10]= (V113); |
689 |
base[11]= (V113); |
base[11]= (V114); |
690 |
base[12]= (V114); |
base[12]= (V115); |
691 |
base[13]= (V115); |
base[13]= (V116); |
692 |
base[14]= (V116); |
base[14]= (V117); |
693 |
vs_top=(vs_base=base+0)+15; |
vs_top=(vs_base=base+0)+15; |
694 |
siLmake_structure(); |
siLmake_structure(); |
695 |
vs_top=sup; |
vs_top=sup; |
696 |
{object V117 = vs_base[0]; |
{object V118 = vs_base[0]; |
697 |
VMR12(V117)} |
VMR12(V118)} |
698 |
va_end(ap); |
va_end(ap); |
699 |
base[0]=base[0]; |
base[0]=base[0]; |
700 |
return Cnil;} |
return Cnil;} |
707 |
vs_check; |
vs_check; |
708 |
check_arg(2); |
check_arg(2); |
709 |
vs_top=sup; |
vs_top=sup; |
710 |
{object V118=base[0]->c.c_cdr; |
{object V119=base[0]->c.c_cdr; |
711 |
if(endp(V118))invalid_macro_call(); |
if(endp(V119))invalid_macro_call(); |
712 |
base[2]= (V118->c.c_car); |
base[2]= (V119->c.c_car); |
713 |
V118=V118->c.c_cdr; |
V119=V119->c.c_cdr; |
714 |
if(!endp(V118))invalid_macro_call();} |
if(!endp(V119))invalid_macro_call();} |
715 |
{object V120; |
{object V121; |
716 |
object V121= VV[64]; |
object V122= VV[64]; |
717 |
if(V121==Cnil){ |
if(V122==Cnil){ |
718 |
V119= Cnil; |
V120= Cnil; |
719 |
goto T201;} |
goto T201;} |
720 |
base[3]=V120=MMcons(Cnil,Cnil); |
base[3]=V121=MMcons(Cnil,Cnil); |
721 |
goto T202; |
goto T202; |
722 |
T202:; |
T202:; |
723 |
(V120->c.c_car)= list(3,VV[62],list(2,(V121->c.c_car),base[2]),VV[63]); |
(V121->c.c_car)= list(3,VV[62],list(2,(V122->c.c_car),base[2]),VV[63]); |
724 |
if((V121=MMcdr(V121))==Cnil){ |
if((V122=MMcdr(V122))==Cnil){ |
725 |
V119= base[3]; |
V120= base[3]; |
726 |
goto T201;} |
goto T201;} |
727 |
V120=MMcdr(V120)=MMcons(Cnil,Cnil); |
V121=MMcdr(V121)=MMcons(Cnil,Cnil); |
728 |
goto T202;} |
goto T202;} |
729 |
goto T201; |
goto T201; |
730 |
T201:; |
T201:; |
731 |
base[3]= make_cons(VV[6],V119); |
base[3]= make_cons(VV[6],V120); |
732 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
733 |
return; |
return; |
734 |
} |
} |
735 |
/* local entry for function INITIALIZE-INFO-BOUND-SLOTS */ |
/* local entry for function INITIALIZE-INFO-BOUND-SLOTS */ |
736 |
|
|
737 |
static object LI14(V124) |
static object LI14(V125) |
738 |
|
|
739 |
register object V124; |
register object V125; |
740 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
741 |
goto TTL; |
goto TTL; |
742 |
TTL:; |
TTL:; |
743 |
{register object V125; |
{register object V126; |
744 |
V125= Cnil; |
V126= Cnil; |
745 |
if((VV[43])==(STREF(object,(V124),8))){ |
if((VV[43])==(STREF(object,(V125),8))){ |
746 |
goto T204;} |
goto T204;} |
747 |
V125= make_cons(VV[65],(V125)); |
V126= make_cons(VV[65],(V126)); |
748 |
goto T204; |
goto T204; |
749 |
T204:; |
T204:; |
750 |
if((VV[43])==(STREF(object,(V124),12))){ |
if((VV[43])==(STREF(object,(V125),12))){ |
751 |
goto T208;} |
goto T208;} |
752 |
V125= make_cons(VV[66],(V125)); |
V126= make_cons(VV[66],(V126)); |
753 |
goto T208; |
goto T208; |
754 |
T208:; |
T208:; |
755 |
if((VV[43])==(STREF(object,(V124),16))){ |
if((VV[43])==(STREF(object,(V125),16))){ |
756 |
goto T212;} |
goto T212;} |
757 |
V125= make_cons(VV[67],(V125)); |
V126= make_cons(VV[67],(V126)); |
758 |
goto T212; |
goto T212; |
759 |
T212:; |
T212:; |
760 |
if((VV[43])==(STREF(object,(V124),20))){ |
if((VV[43])==(STREF(object,(V125),20))){ |
761 |
goto T216;} |
goto T216;} |
762 |
V125= make_cons(VV[68],(V125)); |
V126= make_cons(VV[68],(V126)); |
763 |
goto T216; |
goto T216; |
764 |
T216:; |
T216:; |
765 |
if((VV[43])==(STREF(object,(V124),24))){ |
if((VV[43])==(STREF(object,(V125),24))){ |
766 |
goto T220;} |
goto T220;} |
767 |
V125= make_cons(VV[69],(V125)); |
V126= make_cons(VV[69],(V126)); |
768 |
goto T220; |
goto T220; |
769 |
T220:; |
T220:; |
770 |
if((VV[43])==(STREF(object,(V124),28))){ |
if((VV[43])==(STREF(object,(V125),28))){ |
771 |
goto T224;} |
goto T224;} |
772 |
V125= make_cons(VV[70],(V125)); |
V126= make_cons(VV[70],(V126)); |
773 |
goto T224; |
goto T224; |
774 |
T224:; |
T224:; |
775 |
if((VV[43])==(STREF(object,(V124),32))){ |
if((VV[43])==(STREF(object,(V125),32))){ |
776 |
goto T228;} |
goto T228;} |
777 |
V125= make_cons(VV[71],(V125)); |
V126= make_cons(VV[71],(V126)); |
778 |
goto T228; |
goto T228; |
779 |
T228:; |
T228:; |
780 |
if((VV[43])==(STREF(object,(V124),36))){ |
if((VV[43])==(STREF(object,(V125),36))){ |
781 |
goto T232;} |
goto T232;} |
782 |
V125= make_cons(VV[72],(V125)); |
V126= make_cons(VV[72],(V126)); |
783 |
goto T232; |
goto T232; |
784 |
T232:; |
T232:; |
785 |
if((VV[43])==(STREF(object,(V124),40))){ |
if((VV[43])==(STREF(object,(V125),40))){ |
786 |
goto T236;} |
goto T236;} |
787 |
V125= make_cons(VV[73],(V125)); |
V126= make_cons(VV[73],(V126)); |
788 |
goto T236; |
goto T236; |
789 |
T236:; |
T236:; |
790 |
if((VV[43])==(STREF(object,(V124),44))){ |
if((VV[43])==(STREF(object,(V125),44))){ |
791 |
goto T240;} |
goto T240;} |
792 |
V125= make_cons(VV[74],(V125)); |
V126= make_cons(VV[74],(V126)); |
793 |
goto T240; |
goto T240; |
794 |
T240:; |
T240:; |
795 |
if((VV[43])==(STREF(object,(V124),48))){ |
if((VV[43])==(STREF(object,(V125),48))){ |
796 |
goto T244;} |
goto T244;} |
797 |
V125= make_cons(VV[13],(V125)); |
V126= make_cons(VV[13],(V126)); |
798 |
goto T244; |
goto T244; |
799 |
T244:; |
T244:; |
800 |
if((VV[43])==(STREF(object,(V124),52))){ |
if((VV[43])==(STREF(object,(V125),52))){ |
801 |
goto T248;} |
goto T248;} |
802 |
V125= make_cons(VV[75],(V125)); |
V126= make_cons(VV[75],(V126)); |
803 |
goto T248; |
goto T248; |
804 |
T248:; |
T248:; |
805 |
{object V138 = (V125); |
{object V139 = (V126); |
806 |
VMR14(V138)}} |
VMR14(V139)}} |
807 |
return Cnil; |
return Cnil; |
808 |
} |
} |
809 |
/* macro definition for INITIALIZE-INFO-VALID-P */ |
/* macro definition for INITIALIZE-INFO-VALID-P */ |
814 |
vs_check; |
vs_check; |
815 |
check_arg(2); |
check_arg(2); |
816 |
vs_top=sup; |
vs_top=sup; |
817 |
{object V139=base[0]->c.c_cdr; |
{object V140=base[0]->c.c_cdr; |
818 |
if(endp(V139))invalid_macro_call(); |
if(endp(V140))invalid_macro_call(); |
819 |
base[2]= (V139->c.c_car); |
base[2]= (V140->c.c_car); |
820 |
V139=V139->c.c_cdr; |
V140=V140->c.c_cdr; |
821 |
if(!endp(V139))invalid_macro_call();} |
if(!endp(V140))invalid_macro_call();} |
822 |
V140= list(2,VV[76],list(2,VV[77],base[2])); |
V141= list(2,VV[76],list(2,VV[77],base[2])); |
823 |
V141= make_cons(/* INLINE-ARGS */V140,Cnil); |
V142= make_cons(/* INLINE-ARGS */V141,Cnil); |
824 |
V142= list(3,VV[61],base[2],list(2,VV[4],VV[65])); |
V143= list(3,VV[61],base[2],list(2,VV[4],VV[65])); |
825 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V141,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V142,list(2,VV[77],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V142,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V143,list(2,VV[77],base[2])),VV[76])); |
826 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
827 |
return; |
return; |
828 |
} |
} |
834 |
vs_check; |
vs_check; |
835 |
check_arg(2); |
check_arg(2); |
836 |
vs_top=sup; |
vs_top=sup; |
837 |
{object V143=base[0]->c.c_cdr; |
{object V144=base[0]->c.c_cdr; |
838 |
if(endp(V143))invalid_macro_call(); |
if(endp(V144))invalid_macro_call(); |
839 |
base[2]= (V143->c.c_car); |
base[2]= (V144->c.c_car); |
840 |
V143=V143->c.c_cdr; |
V144=V144->c.c_cdr; |
841 |
if(!endp(V143))invalid_macro_call();} |
if(!endp(V144))invalid_macro_call();} |
842 |
V144= list(2,VV[76],list(2,VV[80],base[2])); |
V145= list(2,VV[76],list(2,VV[80],base[2])); |
843 |
V145= make_cons(/* INLINE-ARGS */V144,Cnil); |
V146= make_cons(/* INLINE-ARGS */V145,Cnil); |
844 |
V146= list(3,VV[61],base[2],list(2,VV[4],VV[66])); |
V147= list(3,VV[61],base[2],list(2,VV[4],VV[66])); |
845 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V145,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V146,list(2,VV[80],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V146,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V147,list(2,VV[80],base[2])),VV[76])); |
846 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
847 |
return; |
return; |
848 |
} |
} |
854 |
vs_check; |
vs_check; |
855 |
check_arg(2); |
check_arg(2); |
856 |
vs_top=sup; |
vs_top=sup; |
857 |
{object V147=base[0]->c.c_cdr; |
{object V148=base[0]->c.c_cdr; |
858 |
if(endp(V147))invalid_macro_call(); |
if(endp(V148))invalid_macro_call(); |
859 |
base[2]= (V147->c.c_car); |
base[2]= (V148->c.c_car); |
860 |
V147=V147->c.c_cdr; |
V148=V148->c.c_cdr; |
861 |
if(!endp(V147))invalid_macro_call();} |
if(!endp(V148))invalid_macro_call();} |
862 |
V148= list(2,VV[76],list(2,VV[81],base[2])); |
V149= list(2,VV[76],list(2,VV[81],base[2])); |
863 |
V149= make_cons(/* INLINE-ARGS */V148,Cnil); |
V150= make_cons(/* INLINE-ARGS */V149,Cnil); |
864 |
V150= list(3,VV[61],base[2],list(2,VV[4],VV[67])); |
V151= list(3,VV[61],base[2],list(2,VV[4],VV[67])); |
865 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V149,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V150,list(2,VV[81],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V150,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V151,list(2,VV[81],base[2])),VV[76])); |
866 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
867 |
return; |
return; |
868 |
} |
} |
874 |
vs_check; |
vs_check; |
875 |
check_arg(2); |
check_arg(2); |
876 |
vs_top=sup; |
vs_top=sup; |
877 |
{object V151=base[0]->c.c_cdr; |
{object V152=base[0]->c.c_cdr; |
878 |
if(endp(V151))invalid_macro_call(); |
if(endp(V152))invalid_macro_call(); |
879 |
base[2]= (V151->c.c_car); |
base[2]= (V152->c.c_car); |
880 |
V151=V151->c.c_cdr; |
V152=V152->c.c_cdr; |
881 |
if(!endp(V151))invalid_macro_call();} |
if(!endp(V152))invalid_macro_call();} |
882 |
V152= list(2,VV[76],list(2,VV[82],base[2])); |
V153= list(2,VV[76],list(2,VV[82],base[2])); |
883 |
V153= make_cons(/* INLINE-ARGS */V152,Cnil); |
V154= make_cons(/* INLINE-ARGS */V153,Cnil); |
884 |
V154= list(3,VV[61],base[2],list(2,VV[4],VV[68])); |
V155= list(3,VV[61],base[2],list(2,VV[4],VV[68])); |
885 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V153,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V154,list(2,VV[82],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V154,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V155,list(2,VV[82],base[2])),VV[76])); |
886 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
887 |
return; |
return; |
888 |
} |
} |
894 |
vs_check; |
vs_check; |
895 |
check_arg(2); |
check_arg(2); |
896 |
vs_top=sup; |
vs_top=sup; |
897 |
{object V155=base[0]->c.c_cdr; |
{object V156=base[0]->c.c_cdr; |
898 |
if(endp(V155))invalid_macro_call(); |
if(endp(V156))invalid_macro_call(); |
899 |
base[2]= (V155->c.c_car); |
base[2]= (V156->c.c_car); |
900 |
V155=V155->c.c_cdr; |
V156=V156->c.c_cdr; |
901 |
if(!endp(V155))invalid_macro_call();} |
if(!endp(V156))invalid_macro_call();} |
902 |
V156= list(2,VV[76],list(2,VV[83],base[2])); |
V157= list(2,VV[76],list(2,VV[83],base[2])); |
903 |
V157= make_cons(/* INLINE-ARGS */V156,Cnil); |
V158= make_cons(/* INLINE-ARGS */V157,Cnil); |
904 |
V158= list(3,VV[61],base[2],list(2,VV[4],VV[69])); |
V159= list(3,VV[61],base[2],list(2,VV[4],VV[69])); |
905 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V157,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V158,list(2,VV[83],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V158,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V159,list(2,VV[83],base[2])),VV[76])); |
906 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
907 |
return; |
return; |
908 |
} |
} |
914 |
vs_check; |
vs_check; |
915 |
check_arg(2); |
check_arg(2); |
916 |
vs_top=sup; |
vs_top=sup; |
917 |
{object V159=base[0]->c.c_cdr; |
{object V160=base[0]->c.c_cdr; |
918 |
if(endp(V159))invalid_macro_call(); |
if(endp(V160))invalid_macro_call(); |
919 |
base[2]= (V159->c.c_car); |
base[2]= (V160->c.c_car); |
920 |
V159=V159->c.c_cdr; |
V160=V160->c.c_cdr; |
921 |
if(!endp(V159))invalid_macro_call();} |
if(!endp(V160))invalid_macro_call();} |
922 |
V160= list(2,VV[76],list(2,VV[84],base[2])); |
V161= list(2,VV[76],list(2,VV[84],base[2])); |
923 |
V161= make_cons(/* INLINE-ARGS */V160,Cnil); |
V162= make_cons(/* INLINE-ARGS */V161,Cnil); |
924 |
V162= list(3,VV[61],base[2],list(2,VV[4],VV[70])); |
V163= list(3,VV[61],base[2],list(2,VV[4],VV[70])); |
925 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V161,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V162,list(2,VV[84],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V162,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V163,list(2,VV[84],base[2])),VV[76])); |
926 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
927 |
return; |
return; |
928 |
} |
} |
934 |
vs_check; |
vs_check; |
935 |
check_arg(2); |
check_arg(2); |
936 |
vs_top=sup; |
vs_top=sup; |
937 |
{object V163=base[0]->c.c_cdr; |
{object V164=base[0]->c.c_cdr; |
938 |
if(endp(V163))invalid_macro_call(); |
if(endp(V164))invalid_macro_call(); |
939 |
base[2]= (V163->c.c_car); |
base[2]= (V164->c.c_car); |
940 |
V163=V163->c.c_cdr; |
V164=V164->c.c_cdr; |
941 |
if(!endp(V163))invalid_macro_call();} |
if(!endp(V164))invalid_macro_call();} |
942 |
V164= list(2,VV[76],list(2,VV[85],base[2])); |
V165= list(2,VV[76],list(2,VV[85],base[2])); |
943 |
V165= make_cons(/* INLINE-ARGS */V164,Cnil); |
V166= make_cons(/* INLINE-ARGS */V165,Cnil); |
944 |
V166= list(3,VV[61],base[2],list(2,VV[4],VV[71])); |
V167= list(3,VV[61],base[2],list(2,VV[4],VV[71])); |
945 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V165,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V166,list(2,VV[85],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V166,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V167,list(2,VV[85],base[2])),VV[76])); |
946 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
947 |
return; |
return; |
948 |
} |
} |
954 |
vs_check; |
vs_check; |
955 |
check_arg(2); |
check_arg(2); |
956 |
vs_top=sup; |
vs_top=sup; |
957 |
{object V167=base[0]->c.c_cdr; |
{object V168=base[0]->c.c_cdr; |
958 |
if(endp(V167))invalid_macro_call(); |
if(endp(V168))invalid_macro_call(); |
959 |
base[2]= (V167->c.c_car); |
base[2]= (V168->c.c_car); |
960 |
V167=V167->c.c_cdr; |
V168=V168->c.c_cdr; |
961 |
if(!endp(V167))invalid_macro_call();} |
if(!endp(V168))invalid_macro_call();} |
962 |
V168= list(2,VV[76],list(2,VV[86],base[2])); |
V169= list(2,VV[76],list(2,VV[86],base[2])); |
963 |
V169= make_cons(/* INLINE-ARGS */V168,Cnil); |
V170= make_cons(/* INLINE-ARGS */V169,Cnil); |
964 |
V170= list(3,VV[61],base[2],list(2,VV[4],VV[72])); |
V171= list(3,VV[61],base[2],list(2,VV[4],VV[72])); |
965 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V169,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V170,list(2,VV[86],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V170,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V171,list(2,VV[86],base[2])),VV[76])); |
966 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
967 |
return; |
return; |
968 |
} |
} |
974 |
vs_check; |
vs_check; |
975 |
check_arg(2); |
check_arg(2); |
976 |
vs_top=sup; |
vs_top=sup; |
977 |
{object V171=base[0]->c.c_cdr; |
{object V172=base[0]->c.c_cdr; |
978 |
if(endp(V171))invalid_macro_call(); |
if(endp(V172))invalid_macro_call(); |
979 |
base[2]= (V171->c.c_car); |
base[2]= (V172->c.c_car); |
980 |
V171=V171->c.c_cdr; |
V172=V172->c.c_cdr; |
981 |
if(!endp(V171))invalid_macro_call();} |
if(!endp(V172))invalid_macro_call();} |
982 |
V172= list(2,VV[76],list(2,VV[87],base[2])); |
V173= list(2,VV[76],list(2,VV[87],base[2])); |
983 |
V173= make_cons(/* INLINE-ARGS */V172,Cnil); |
V174= make_cons(/* INLINE-ARGS */V173,Cnil); |
984 |
V174= list(3,VV[61],base[2],list(2,VV[4],VV[73])); |
V175= list(3,VV[61],base[2],list(2,VV[4],VV[73])); |
985 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V173,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V174,list(2,VV[87],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V174,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V175,list(2,VV[87],base[2])),VV[76])); |
986 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
987 |
return; |
return; |
988 |
} |
} |
994 |
vs_check; |
vs_check; |
995 |
check_arg(2); |
check_arg(2); |
996 |
vs_top=sup; |
vs_top=sup; |
997 |
{object V175=base[0]->c.c_cdr; |
{object V176=base[0]->c.c_cdr; |
998 |
if(endp(V175))invalid_macro_call(); |
if(endp(V176))invalid_macro_call(); |
999 |
base[2]= (V175->c.c_car); |
base[2]= (V176->c.c_car); |
1000 |
V175=V175->c.c_cdr; |
V176=V176->c.c_cdr; |
1001 |
if(!endp(V175))invalid_macro_call();} |
if(!endp(V176))invalid_macro_call();} |
1002 |
V176= list(2,VV[76],list(2,VV[88],base[2])); |
V177= list(2,VV[76],list(2,VV[88],base[2])); |
1003 |
V177= make_cons(/* INLINE-ARGS */V176,Cnil); |
V178= make_cons(/* INLINE-ARGS */V177,Cnil); |
1004 |
V178= list(3,VV[61],base[2],list(2,VV[4],VV[74])); |
V179= list(3,VV[61],base[2],list(2,VV[4],VV[74])); |
1005 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V177,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V178,list(2,VV[88],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V178,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V179,list(2,VV[88],base[2])),VV[76])); |
1006 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1007 |
return; |
return; |
1008 |
} |
} |
1014 |
vs_check; |
vs_check; |
1015 |
check_arg(2); |
check_arg(2); |
1016 |
vs_top=sup; |
vs_top=sup; |
1017 |
{object V179=base[0]->c.c_cdr; |
{object V180=base[0]->c.c_cdr; |
1018 |
if(endp(V179))invalid_macro_call(); |
if(endp(V180))invalid_macro_call(); |
1019 |
base[2]= (V179->c.c_car); |
base[2]= (V180->c.c_car); |
1020 |
V179=V179->c.c_cdr; |
V180=V180->c.c_cdr; |
1021 |
if(!endp(V179))invalid_macro_call();} |
if(!endp(V180))invalid_macro_call();} |
1022 |
V180= list(2,VV[76],list(2,VV[89],base[2])); |
V181= list(2,VV[76],list(2,VV[89],base[2])); |
1023 |
V181= make_cons(/* INLINE-ARGS */V180,Cnil); |
V182= make_cons(/* INLINE-ARGS */V181,Cnil); |
1024 |
V182= list(3,VV[61],base[2],list(2,VV[4],VV[13])); |
V183= list(3,VV[61],base[2],list(2,VV[4],VV[13])); |
1025 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V181,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V182,list(2,VV[89],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V182,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V183,list(2,VV[89],base[2])),VV[76])); |
1026 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1027 |
return; |
return; |
1028 |
} |
} |
1034 |
vs_check; |
vs_check; |
1035 |
check_arg(2); |
check_arg(2); |
1036 |
vs_top=sup; |
vs_top=sup; |
1037 |
{object V183=base[0]->c.c_cdr; |
{object V184=base[0]->c.c_cdr; |
1038 |
if(endp(V183))invalid_macro_call(); |
if(endp(V184))invalid_macro_call(); |
1039 |
base[2]= (V183->c.c_car); |
base[2]= (V184->c.c_car); |
1040 |
V183=V183->c.c_cdr; |
V184=V184->c.c_cdr; |
1041 |
if(!endp(V183))invalid_macro_call();} |
if(!endp(V184))invalid_macro_call();} |
1042 |
V184= list(2,VV[76],list(2,VV[90],base[2])); |
V185= list(2,VV[76],list(2,VV[90],base[2])); |
1043 |
V185= make_cons(/* INLINE-ARGS */V184,Cnil); |
V186= make_cons(/* INLINE-ARGS */V185,Cnil); |
1044 |
V186= list(3,VV[61],base[2],list(2,VV[4],VV[75])); |
V187= list(3,VV[61],base[2],list(2,VV[4],VV[75])); |
1045 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V185,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V186,list(2,VV[90],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V186,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V187,list(2,VV[90],base[2])),VV[76])); |
1046 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1047 |
return; |
return; |
1048 |
} |
} |
1049 |
/* local entry for function RESET-INITIALIZE-INFO */ |
/* local entry for function RESET-INITIALIZE-INFO */ |
1050 |
|
|
1051 |
static object LI27(V188) |
static object LI27(V189) |
1052 |
|
|
1053 |
register object V188; |
register object V189; |
1054 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1055 |
goto TTL; |
goto TTL; |
1056 |
TTL:; |
TTL:; |
1057 |
base[0]= CMPcar(STREF(object,(V188),0)); |
V190 = (V189); |
1058 |
|
base[0]= CMPcar(STREF(object,(V189),0)); |
1059 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1060 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk243)(Lclptr243); |
1061 |
vs_top=sup; |
vs_top=sup; |
1062 |
V189= vs_base[0]; |
V191= vs_base[0]; |
1063 |
V190= Ct; |
V192= Ct; |
1064 |
STSET(object,(V188),4, V189); |
STSET(object,V190,4, V191); |
1065 |
(void)(V189); |
(void)(V191); |
1066 |
{object V191; |
{object V193; |
1067 |
if(((VV[91]->s.s_dbind))==Cnil){ |
if(((VV[91]->s.s_dbind))==Cnil){ |
1068 |
goto T257;} |
goto T257;} |
1069 |
V191= (*(LnkLI50))((V188)); |
V193= (*(LnkLI50))((V189)); |
1070 |
goto T255; |
goto T255; |
1071 |
goto T257; |
goto T257; |
1072 |
T257:; |
T257:; |
1073 |
V191= VV[92]; |
V193= VV[92]; |
1074 |
goto T255; |
goto T255; |
1075 |
T255:; |
T255:; |
1076 |
V192= Ct; |
V194 = (V189); |
1077 |
STSET(object,(V188),8, VV[43]); |
V195= Ct; |
1078 |
|
STSET(object,V194,8, VV[43]); |
1079 |
(void)(VV[43]); |
(void)(VV[43]); |
1080 |
V193= Ct; |
V196 = (V189); |
1081 |
STSET(object,(V188),12, VV[43]); |
V197= Ct; |
1082 |
|
STSET(object,V196,12, VV[43]); |
1083 |
(void)(VV[43]); |
(void)(VV[43]); |
1084 |
V194= Ct; |
V198 = (V189); |
1085 |
STSET(object,(V188),16, VV[43]); |
V199= Ct; |
1086 |
|
STSET(object,V198,16, VV[43]); |
1087 |
(void)(VV[43]); |
(void)(VV[43]); |
1088 |
V195= Ct; |
V200 = (V189); |
1089 |
STSET(object,(V188),20, VV[43]); |
V201= Ct; |
1090 |
|
STSET(object,V200,20, VV[43]); |
1091 |
(void)(VV[43]); |
(void)(VV[43]); |
1092 |
V196= Ct; |
V202 = (V189); |
1093 |
STSET(object,(V188),24, VV[43]); |
V203= Ct; |
1094 |
|
STSET(object,V202,24, VV[43]); |
1095 |
(void)(VV[43]); |
(void)(VV[43]); |
1096 |
V197= Ct; |
V204 = (V189); |
1097 |
STSET(object,(V188),28, VV[43]); |
V205= Ct; |
1098 |
|
STSET(object,V204,28, VV[43]); |
1099 |
(void)(VV[43]); |
(void)(VV[43]); |
1100 |
V198= Ct; |
V206 = (V189); |
1101 |
STSET(object,(V188),32, VV[43]); |
V207= Ct; |
1102 |
|
STSET(object,V206,32, VV[43]); |
1103 |
(void)(VV[43]); |
(void)(VV[43]); |
1104 |
V199= Ct; |
V208 = (V189); |
1105 |
STSET(object,(V188),36, VV[43]); |
V209= Ct; |
1106 |
|
STSET(object,V208,36, VV[43]); |
1107 |
(void)(VV[43]); |
(void)(VV[43]); |
1108 |
V200= Ct; |
V210 = (V189); |
1109 |
STSET(object,(V188),40, VV[43]); |
V211= Ct; |
1110 |
|
STSET(object,V210,40, VV[43]); |
1111 |
(void)(VV[43]); |
(void)(VV[43]); |
1112 |
V201= Ct; |
V212 = (V189); |
1113 |
STSET(object,(V188),44, VV[43]); |
V213= Ct; |
1114 |
|
STSET(object,V212,44, VV[43]); |
1115 |
(void)(VV[43]); |
(void)(VV[43]); |
1116 |
V202= Ct; |
V214 = (V189); |
1117 |
STSET(object,(V188),48, VV[43]); |
V215= Ct; |
1118 |
|
STSET(object,V214,48, VV[43]); |
1119 |
(void)(VV[43]); |
(void)(VV[43]); |
1120 |
V203= Ct; |
V216 = (V189); |
1121 |
STSET(object,(V188),52, VV[43]); |
V217= Ct; |
1122 |
|
STSET(object,V216,52, VV[43]); |
1123 |
(void)(VV[43]); |
(void)(VV[43]); |
1124 |
{register object V204; |
{register object V218; |
1125 |
register object V205; |
register object V219; |
1126 |
V204= (V191); |
V218= (V193); |
1127 |
V205= CMPcar((V204)); |
V219= CMPcar((V218)); |
1128 |
goto T275; |
goto T275; |
1129 |
T275:; |
T275:; |
1130 |
if(!(((V204))==Cnil)){ |
if(!(((V218))==Cnil)){ |
1131 |
goto T276;} |
goto T276;} |
1132 |
goto T271; |
goto T271; |
1133 |
goto T276; |
goto T276; |
1134 |
T276:; |
T276:; |
1135 |
(void)((*(LnkLI61))((V188),(V205))); |
(void)((*(LnkLI61))((V189),(V219))); |
1136 |
V204= CMPcdr((V204)); |
V218= CMPcdr((V218)); |
1137 |
V205= CMPcar((V204)); |
V219= CMPcar((V218)); |
1138 |
goto T275;} |
goto T275;} |
1139 |
goto T271; |
goto T271; |
1140 |
T271:; |
T271:; |
1141 |
{object V206 = (V188); |
{object V220 = (V189); |
1142 |
VMR27(V206)}} |
VMR27(V220)}} |
1143 |
base[0]=base[0]; |
base[0]=base[0]; |
1144 |
return Cnil; |
return Cnil; |
1145 |
} |
} |
1146 |
/* local entry for function RESET-CLASS-INITIALIZE-INFO */ |
/* local entry for function RESET-CLASS-INITIALIZE-INFO */ |
1147 |
|
|
1148 |
static object LI28(V208) |
static object LI28(V222) |
1149 |
|
|
1150 |
object V208; |
object V222; |
1151 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1152 |
goto TTL; |
goto TTL; |
1153 |
TTL:; |
TTL:; |
1154 |
base[0]= (V208); |
base[0]= (V222); |
1155 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1156 |
(void) (*Lnk245)(Lclptr245); |
(void) (*Lnk245)(Lclptr245); |
1157 |
vs_top=sup; |
vs_top=sup; |
1158 |
V209= vs_base[0]; |
V223= vs_base[0]; |
1159 |
{object V210 = (*(LnkLI244))(V209); |
{object V224 = (*(LnkLI244))(V223); |
1160 |
VMR28(V210)} |
VMR28(V224)} |
1161 |
base[0]=base[0]; |
base[0]=base[0]; |
1162 |
return Cnil; |
return Cnil; |
1163 |
} |
} |
1164 |
/* local entry for function RESET-CLASS-INITIALIZE-INFO-1 */ |
/* local entry for function RESET-CLASS-INITIALIZE-INFO-1 */ |
1165 |
|
|
1166 |
static object LI29(V212) |
static object LI29(V226) |
1167 |
|
|
1168 |
register object V212; |
register object V226; |
1169 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1170 |
goto TTL; |
goto TTL; |
1171 |
TTL:; |
TTL:; |
1172 |
if(!(type_of((V212))==t_cons)){ |
if(!(type_of((V226))==t_cons)){ |
1173 |
goto T289;} |
goto T289;} |
1174 |
if((CMPcar((V212)))==Cnil){ |
if((CMPcar((V226)))==Cnil){ |
1175 |
goto T291;} |
goto T291;} |
1176 |
(void)((*(LnkLI246))(CMPcar((V212)))); |
(void)((*(LnkLI246))(CMPcar((V226)))); |
1177 |
goto T291; |
goto T291; |
1178 |
T291:; |
T291:; |
1179 |
{object V213; |
{object V227; |
1180 |
V213= CMPcdr((V212)); |
V227= CMPcdr((V226)); |
1181 |
{register object V214; |
{register object V228; |
1182 |
register object V215; |
register object V229; |
1183 |
V214= (V213); |
V228= (V227); |
1184 |
V215= CMPcar((V214)); |
V229= CMPcar((V228)); |
1185 |
goto T298; |
goto T298; |
1186 |
T298:; |
T298:; |
1187 |
if(!(((V214))==Cnil)){ |
if(!(((V228))==Cnil)){ |
1188 |
goto T299;} |
goto T299;} |
1189 |
{object V216 = Cnil; |
{object V230 = Cnil; |
1190 |
VMR29(V216)} |
VMR29(V230)} |
1191 |
goto T299; |
goto T299; |
1192 |
T299:; |
T299:; |
1193 |
(void)((*(LnkLI244))(CMPcdr((V215)))); |
(void)((*(LnkLI244))(CMPcdr((V229)))); |
1194 |
V214= CMPcdr((V214)); |
V228= CMPcdr((V228)); |
1195 |
V215= CMPcar((V214)); |
V229= CMPcar((V228)); |
1196 |
goto T298;}} |
goto T298;}} |
1197 |
goto T289; |
goto T289; |
1198 |
T289:; |
T289:; |
1199 |
{object V217 = Cnil; |
{object V231 = Cnil; |
1200 |
VMR29(V217)} |
VMR29(V231)} |
1201 |
base[0]=base[0]; |
base[0]=base[0]; |
1202 |
return Cnil; |
return Cnil; |
1203 |
} |
} |
1204 |
/* local entry for function INITIALIZE-INFO */ |
/* local entry for function INITIALIZE-INFO */ |
1205 |
|
|
1206 |
static object LI30(object V219,object V218,object first,...) |
static object LI30(object V233,object V232,object first,...) |
1207 |
{ |
{ |
1208 |
va_list ap; |
va_list ap; |
1209 |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
1210 |
{object V220; |
{object V234; |
1211 |
object V221; |
object V235; |
1212 |
object V222; |
object V236; |
1213 |
object V223; |
object V237; |
1214 |
va_start(ap,first); |
va_start(ap,first); |
1215 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1216 |
V220= V219; |
V234= V233; |
1217 |
V221= V218; |
V235= V232; |
1218 |
narg = narg - 2; |
narg = narg - 2; |
1219 |
if (narg <= 0) goto T309; |
if (narg <= 0) goto T309; |
1220 |
else { |
else { |
1221 |
V222= first;} |
V236= first;} |
1222 |
if (--narg <= 0) goto T310; |
if (--narg <= 0) goto T310; |
1223 |
else { |
else { |
1224 |
V223= va_arg(ap,object);} |
V237= va_arg(ap,object);} |
1225 |
--narg; goto T311; |
--narg; goto T311; |
1226 |
goto T309; |
goto T309; |
1227 |
T309:; |
T309:; |
1228 |
V222= Ct; |
V236= Ct; |
1229 |
goto T310; |
goto T310; |
1230 |
T310:; |
T310:; |
1231 |
V223= Cnil; |
V237= Cnil; |
1232 |
goto T311; |
goto T311; |
1233 |
T311:; |
T311:; |
1234 |
{object V224; |
{object V238; |
1235 |
V224= Cnil; |
V238= Cnil; |
1236 |
if(!(((VV[93]->s.s_dbind))==((V220)))){ |
if(!(((VV[93]->s.s_dbind))==((V234)))){ |
1237 |
goto T316;} |
goto T316;} |
1238 |
if(!(((VV[94]->s.s_dbind))==((V221)))){ |
if(!(((VV[94]->s.s_dbind))==((V235)))){ |
1239 |
goto T316;} |
goto T316;} |
1240 |
V224= (VV[95]->s.s_dbind); |
V238= (VV[95]->s.s_dbind); |
1241 |
goto T314; |
goto T314; |
1242 |
goto T316; |
goto T316; |
1243 |
T316:; |
T316:; |
1244 |
{register object V225; |
{register object V239; |
1245 |
register object V226;{object V227; |
register object V240;{object V241; |
1246 |
base[0]= (V220); |
base[0]= (V234); |
1247 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1248 |
(void) (*Lnk245)(Lclptr245); |
(void) (*Lnk245)(Lclptr245); |
1249 |
vs_top=sup; |
vs_top=sup; |
1250 |
V227= vs_base[0]; |
V241= vs_base[0]; |
1251 |
if(V227==Cnil)goto T322; |
if(V241==Cnil)goto T322; |
1252 |
V226= V227; |
V240= V241; |
1253 |
goto T321; |
goto T321; |
1254 |
goto T322; |
goto T322; |
1255 |
T322:;} |
T322:;} |
1256 |
base[0]= make_cons(Cnil,Cnil); |
base[0]= make_cons(Cnil,Cnil); |
1257 |
base[1]= V220; |
base[1]= V234; |
1258 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1259 |
(void) (*Lnk247)(Lclptr247); |
(void) (*Lnk247)(Lclptr247); |
1260 |
vs_top=sup; |
vs_top=sup; |
1261 |
V226= vs_base[0]; |
V240= vs_base[0]; |
1262 |
goto T321; |
goto T321; |
1263 |
T321:; |
T321:; |
1264 |
V225= (V221); |
V239= (V235); |
1265 |
goto T329; |
goto T329; |
1266 |
T329:; |
T329:; |
1267 |
if(((V225))!=Cnil){ |
if(((V239))!=Cnil){ |
1268 |
goto T331;} |
goto T331;} |
1269 |
goto T327; |
goto T327; |
1270 |
goto T331; |
goto T331; |
1271 |
T331:; |
T331:; |
1272 |
{register object V229; |
{register object V243; |
1273 |
register object V230; |
register object V244; |
1274 |
{object V231; |
{object V245; |
1275 |
V231= CMPcar((V225)); |
V245= CMPcar((V239)); |
1276 |
V225= CMPcdr((V225)); |
V239= CMPcdr((V239)); |
1277 |
V229= (V231);} |
V243= (V245);} |
1278 |
V230= (V226); |
V244= (V240); |
1279 |
if(((V222))==Cnil){ |
if(((V236))==Cnil){ |
1280 |
goto T338;} |
goto T338;} |
1281 |
if(!(((V229))==(VV[2]))){ |
if(!(((V243))==(VV[2]))){ |
1282 |
goto T342;} |
goto T342;} |
1283 |
{object V232; |
{object V246; |
1284 |
V232= CMPcar((V225)); |
V246= CMPcar((V239)); |
1285 |
V225= CMPcdr((V225)); |
V239= CMPcdr((V239)); |
1286 |
V223= (V232);} |
V237= (V246);} |
1287 |
goto T338; |
goto T338; |
1288 |
goto T342; |
goto T342; |
1289 |
T342:; |
T342:; |
1290 |
{object V233; |
{object V247; |
1291 |
V233= CMPcar((V225)); |
V247= CMPcar((V239)); |
1292 |
V225= CMPcdr((V225));} |
V239= CMPcdr((V239));} |
1293 |
goto T338; |
goto T338; |
1294 |
T338:; |
T338:; |
1295 |
goto T352; |
goto T352; |
1296 |
T352:; |
T352:; |
1297 |
{register object V234; |
{register object V248; |
1298 |
V234= CMPcdr((V230)); |
V248= CMPcdr((V244)); |
1299 |
if(((V234))!=Cnil){ |
if(((V248))!=Cnil){ |
1300 |
goto T355;} |
goto T355;} |
1301 |
V226= make_cons(Cnil,Cnil); |
V240= make_cons(Cnil,Cnil); |
1302 |
{object V236; |
{object V250; |
1303 |
V237= make_cons((V229),(V226)); |
V251= make_cons((V243),(V240)); |
1304 |
V236= make_cons(/* INLINE-ARGS */V237,Cnil); |
V250= make_cons(/* INLINE-ARGS */V251,Cnil); |
1305 |
(V230)->c.c_cdr = (V236);} |
(V244)->c.c_cdr = (V250);} |
1306 |
goto T330; |
goto T330; |
1307 |
goto T355; |
goto T355; |
1308 |
T355:; |
T355:; |
1309 |
if(!(eql((V229),CMPcaar((V234))))){ |
if(!(eql((V243),CMPcaar((V248))))){ |
1310 |
goto T363;} |
goto T363;} |
1311 |
V226= CMPcdar((V234)); |
V240= CMPcdar((V248)); |
1312 |
goto T330; |
goto T330; |
1313 |
goto T363; |
goto T363; |
1314 |
T363:; |
T363:; |
1315 |
V230= (V234);} |
V244= (V248);} |
1316 |
goto T352;} |
goto T352;} |
1317 |
goto T330; |
goto T330; |
1318 |
T330:; |
T330:; |
1319 |
goto T329; |
goto T329; |
1320 |
goto T327; |
goto T327; |
1321 |
T327:;{object V238; |
T327:;{object V252; |
1322 |
V238= CMPcar((V226)); |
V252= CMPcar((V240)); |
1323 |
if(V238==Cnil)goto T372; |
if(V252==Cnil)goto T372; |
1324 |
V224= V238; |
V238= V252; |
1325 |
goto T371; |
goto T371; |
1326 |
goto T372; |
goto T372; |
1327 |
T372:;} |
T372:;} |
1328 |
{object V240; |
{object V254; |
1329 |
V240= (VFUN_NARGS=0,(*(LnkLI248))()); |
V254= (VFUN_NARGS=0,(*(LnkLI248))()); |
1330 |
(V226)->c.c_car = (V240); |
(V240)->c.c_car = (V254); |
1331 |
V224= (V240);} |
V238= (V254);} |
1332 |
goto T371; |
goto T371; |
1333 |
T371:;} |
T371:;} |
1334 |
goto T314; |
goto T314; |
1335 |
T314:; |
T314:; |
1336 |
{object V241; |
{object V255; |
1337 |
V241= STREF(object,(V224),4); |
V255= STREF(object,(V238),4); |
1338 |
base[0]= (V220); |
V256 = (V255); |
1339 |
|
base[0]= (V234); |
1340 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1341 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk243)(Lclptr243); |
1342 |
vs_top=sup; |
vs_top=sup; |
1343 |
V242= vs_base[0]; |
V257= vs_base[0]; |
1344 |
if(((V241))==(V242)){ |
if((V256)==(V257)){ |
1345 |
goto T376;} |
goto T376;} |
1346 |
if(((V241))!=Cnil){ |
if(((V255))!=Cnil){ |
1347 |
goto T382;} |
goto T382;} |
1348 |
{register object V243; |
{register object V258; |
1349 |
object V244; |
object V259; |
1350 |
object V245; |
object V260; |
1351 |
V243= (V221); |
V258= (V235); |
1352 |
V244= make_cons(Cnil,Cnil); |
V259= make_cons(Cnil,Cnil); |
1353 |
V245= (V244); |
V260= (V259); |
1354 |
goto T390; |
goto T390; |
1355 |
T390:; |
T390:; |
1356 |
if(((V243))!=Cnil){ |
if(((V258))!=Cnil){ |
1357 |
goto T392;} |
goto T392;} |
1358 |
goto T388; |
goto T388; |
1359 |
goto T392; |
goto T392; |
1360 |
T392:; |
T392:; |
1361 |
{object V246; |
{object V261; |
1362 |
{object V247; |
{object V262; |
1363 |
V247= CMPcar((V243)); |
V262= CMPcar((V258)); |
1364 |
V243= CMPcdr((V243)); |
V258= CMPcdr((V258)); |
1365 |
V246= (V247);} |
V261= (V262);} |
1366 |
{object V249; |
{object V264; |
1367 |
V249= make_cons((V246),Cnil); |
V264= make_cons((V261),Cnil); |
1368 |
(V245)->c.c_cdr = (V249);}} |
(V260)->c.c_cdr = (V264);}} |
1369 |
V245= CMPcdr((V245)); |
V260= CMPcdr((V260)); |
1370 |
if(((V222))==Cnil){ |
if(((V236))==Cnil){ |
1371 |
goto T391;} |
goto T391;} |
1372 |
{object V250; |
{object V265; |
1373 |
V250= CMPcar((V243)); |
V265= CMPcar((V258)); |
1374 |
V243= CMPcdr((V243));} |
V258= CMPcdr((V258));} |
1375 |
goto T391; |
goto T391; |
1376 |
T391:; |
T391:; |
1377 |
goto T390; |
goto T390; |
1378 |
goto T388; |
goto T388; |
1379 |
T388:; |
T388:; |
1380 |
V251= list(3,(V220),CMPcdr((V244)),(V223)); |
V266 = (V238); |
1381 |
V252= Ct; |
V267= list(3,(V234),CMPcdr((V259)),(V237)); |
1382 |
STSET(object,(V224),0, /* INLINE-ARGS */V251); |
V268= Ct; |
1383 |
(void)(/* INLINE-ARGS */V251);} |
STSET(object,V266,0, /* INLINE-ARGS */V267); |
1384 |
|
(void)(/* INLINE-ARGS */V267);} |
1385 |
goto T382; |
goto T382; |
1386 |
T382:; |
T382:; |
1387 |
(void)((*(LnkLI246))((V224)));} |
(void)((*(LnkLI246))((V238)));} |
1388 |
goto T376; |
goto T376; |
1389 |
T376:; |
T376:; |
1390 |
(VV[93]->s.s_dbind)= (V220); |
(VV[93]->s.s_dbind)= (V234); |
1391 |
(VV[94]->s.s_dbind)= (V221); |
(VV[94]->s.s_dbind)= (V235); |
1392 |
(VV[95]->s.s_dbind)= (V224); |
(VV[95]->s.s_dbind)= (V238); |
1393 |
{object V253 = (V224); |
{object V269 = (V238); |
1394 |
VMR30(V253)}} |
VMR30(V269)}} |
1395 |
va_end(ap); |
va_end(ap); |
1396 |
base[0]=base[0]; |
base[0]=base[0]; |
1397 |
return Cnil;} |
return Cnil;} |
1398 |
} |
} |
1399 |
/* local entry for function UPDATE-INITIALIZE-INFO-INTERNAL */ |
/* local entry for function UPDATE-INITIALIZE-INFO-INTERNAL */ |
1400 |
|
|
1401 |
static object LI31(V256,V257) |
static object LI31(V272,V273) |
1402 |
|
|
1403 |
register object V256;object V257; |
register object V272;object V273; |
1404 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1405 |
goto TTL; |
goto TTL; |
1406 |
TTL:; |
TTL:; |
1407 |
{register object V258; |
{register object V274; |
1408 |
V258= STREF(object,(V256),0); |
V274= STREF(object,(V272),0); |
1409 |
base[1]= CMPcar((V258)); |
base[1]= CMPcar((V274)); |
1410 |
base[2]= CMPcadr((V258)); |
base[2]= CMPcadr((V274)); |
1411 |
base[3]= CMPcaddr((V258)); |
base[3]= CMPcaddr((V274)); |
1412 |
{object V259= (V257); |
{object V275= (V273); |
1413 |
if((V259!= VV[67]) |
if((V275!= VV[67]) |
1414 |
&& (V259!= VV[69]))goto T421; |
&& (V275!= VV[69]))goto T421; |
1415 |
{object V260; |
{object V276; |
1416 |
object V261; |
object V277; |
1417 |
base[4]= base[1]; |
base[4]= base[1]; |
1418 |
base[5]= base[2]; |
base[5]= base[2]; |
1419 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1420 |
(void) (*Lnk249)(); |
(void) (*Lnk249)(); |
1421 |
if(vs_base>=vs_top){vs_top=sup;goto T425;} |
if(vs_base>=vs_top){vs_top=sup;goto T425;} |
1422 |
V260= vs_base[0]; |
V276= vs_base[0]; |
1423 |
vs_base++; |
vs_base++; |
1424 |
if(vs_base>=vs_top){vs_top=sup;goto T426;} |
if(vs_base>=vs_top){vs_top=sup;goto T426;} |
1425 |
V261= vs_base[0]; |
V277= vs_base[0]; |
1426 |
vs_top=sup; |
vs_top=sup; |
1427 |
goto T427; |
goto T427; |
1428 |
goto T425; |
goto T425; |
1429 |
T425:; |
T425:; |
1430 |
V260= Cnil; |
V276= Cnil; |
1431 |
goto T426; |
goto T426; |
1432 |
T426:; |
T426:; |
1433 |
V261= Cnil; |
V277= Cnil; |
1434 |
goto T427; |
goto T427; |
1435 |
T427:; |
T427:; |
1436 |
V262= Ct; |
V278 = (V272); |
1437 |
STSET(object,(V256),16, (V260)); |
V279 = (V276); |
1438 |
(void)((V260)); |
V280= Ct; |
1439 |
V263= Ct; |
STSET(object,V278,16, V279); |
1440 |
STSET(object,(V256),24, (V261)); |
(void)(V279); |
1441 |
(void)((V261)); |
V281 = (V272); |
1442 |
|
V282 = (V277); |
1443 |
|
V283= Ct; |
1444 |
|
STSET(object,V281,24, V282); |
1445 |
|
(void)(V282); |
1446 |
goto T416;} |
goto T416;} |
1447 |
goto T421; |
goto T421; |
1448 |
T421:; |
T421:; |
1449 |
if((V259!= VV[68]))goto T429; |
if((V275!= VV[68]))goto T429; |
1450 |
{object V264; |
{object V284; |
1451 |
object V265; |
object V285; |
1452 |
base[4]= base[1]; |
base[4]= base[1]; |
1453 |
base[5]= base[2]; |
base[5]= base[2]; |
1454 |
base[6]= Cnil; |
base[6]= Cnil; |
1455 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1456 |
(void) (*Lnk249)(); |
(void) (*Lnk249)(); |
1457 |
if(vs_base>=vs_top){vs_top=sup;goto T434;} |
if(vs_base>=vs_top){vs_top=sup;goto T434;} |
1458 |
V264= vs_base[0]; |
V284= vs_base[0]; |
1459 |
vs_base++; |
vs_base++; |
1460 |
if(vs_base>=vs_top){vs_top=sup;goto T435;} |
if(vs_base>=vs_top){vs_top=sup;goto T435;} |
1461 |
V265= vs_base[0]; |
V285= vs_base[0]; |
1462 |
vs_top=sup; |
vs_top=sup; |
1463 |
goto T436; |
goto T436; |
1464 |
goto T434; |
goto T434; |
1465 |
T434:; |
T434:; |
1466 |
V264= Cnil; |
V284= Cnil; |
1467 |
goto T435; |
goto T435; |
1468 |
T435:; |
T435:; |
1469 |
V265= Cnil; |
V285= Cnil; |
1470 |
goto T436; |
goto T436; |
1471 |
T436:; |
T436:; |
1472 |
V266= Ct; |
V286 = (V272); |
1473 |
STSET(object,(V256),20, (V264)); |
V287 = (V284); |
1474 |
(void)((V264)); |
V288= Ct; |
1475 |
V267= Ct; |
STSET(object,V286,20, V287); |
1476 |
STSET(object,(V256),24, (V265)); |
(void)(V287); |
1477 |
(void)((V265)); |
V289 = (V272); |
1478 |
|
V290 = (V285); |
1479 |
|
V291= Ct; |
1480 |
|
STSET(object,V289,24, V290); |
1481 |
|
(void)(V290); |
1482 |
goto T416;} |
goto T416;} |
1483 |
goto T429; |
goto T429; |
1484 |
T429:; |
T429:; |
1485 |
if((V259!= VV[70]))goto T438; |
if((V275!= VV[70]))goto T438; |
1486 |
{object V268; |
{object V292; |
1487 |
{object V269; |
{object V293; |
1488 |
V269= STREF(object,(V256),16); |
V293= STREF(object,(V272),16); |
1489 |
if(!(((V269))==(VV[43]))){ |
if(!(((V293))==(VV[43]))){ |
1490 |
goto T442;} |
goto T442;} |
1491 |
(void)((*(LnkLI61))((V256),VV[67])); |
(void)((*(LnkLI61))((V272),VV[67])); |
1492 |
V268= STREF(object,(V256),16); |
V292= STREF(object,(V272),16); |
1493 |
goto T439; |
goto T439; |
1494 |
goto T442; |
goto T442; |
1495 |
T442:; |
T442:; |
1496 |
V268= (V269);} |
V292= (V293);} |
1497 |
goto T439; |
goto T439; |
1498 |
T439:; |
T439:; |
1499 |
|
V294 = (V272); |
1500 |
base[4]= VV[70]; |
base[4]= VV[70]; |
1501 |
base[5]= (V256); |
base[5]= (V272); |
1502 |
base[6]= base[1]; |
base[6]= base[1]; |
1503 |
base[7]= (V268); |
base[7]= (V292); |
1504 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1505 |
(void) (*Lnk250)(); |
(void) (*Lnk250)(); |
1506 |
vs_top=sup; |
vs_top=sup; |
1507 |
V270= vs_base[0]; |
V295= vs_base[0]; |
1508 |
V271= Ct; |
V296= Ct; |
1509 |
STSET(object,(V256),28, V270); |
STSET(object,V294,28, V295); |
1510 |
(void)(V270); |
(void)(V295); |
1511 |
goto T416;} |
goto T416;} |
1512 |
goto T438; |
goto T438; |
1513 |
T438:; |
T438:; |
1514 |
if((V259!= VV[65]) |
if((V275!= VV[65]) |
1515 |
&& (V259!= VV[66]))goto T450; |
&& (V275!= VV[66]))goto T450; |
1516 |
{object V272; |
{object V297; |
1517 |
base[4]= base[1]; |
base[4]= base[1]; |
1518 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1519 |
(void) (*Lnk251)(Lclptr251); |
(void) (*Lnk251)(Lclptr251); |
1520 |
vs_top=sup; |
vs_top=sup; |
1521 |
V272= vs_base[0]; |
V297= vs_base[0]; |
1522 |
V274= listA(3,VV[96],base[1],Cnil); |
V298 = (V272); |
1523 |
V275= listA(3,VV[97],(V272),Cnil); |
V300= listA(3,VV[96],base[1],Cnil); |
1524 |
base[4]= list(3,/* INLINE-ARGS */V274,/* INLINE-ARGS */V275,listA(4,VV[98],(V272),Ct,Cnil)); |
V301= listA(3,VV[97],(V297),Cnil); |
1525 |
|
base[4]= list(3,/* INLINE-ARGS */V300,/* INLINE-ARGS */V301,listA(4,VV[98],(V297),Ct,Cnil)); |
1526 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1527 |
L32(base); |
L32(base); |
1528 |
vs_top=sup; |
vs_top=sup; |
1529 |
V273= vs_base[0]; |
V299= vs_base[0]; |
1530 |
V276= Ct; |
V302= Ct; |
1531 |
STSET(object,(V256),8, V273); |
STSET(object,V298,8, V299); |
1532 |
(void)(V273); |
(void)(V299); |
1533 |
V278= listA(3,VV[99],(V272),Cnil); |
V303 = (V272); |
1534 |
base[4]= list(2,/* INLINE-ARGS */V278,listA(4,VV[98],(V272),Cnil,Cnil)); |
V305= listA(3,VV[99],(V297),Cnil); |
1535 |
|
base[4]= list(2,/* INLINE-ARGS */V305,listA(4,VV[98],(V297),Cnil,Cnil)); |
1536 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1537 |
L32(base); |
L32(base); |
1538 |
vs_top=sup; |
vs_top=sup; |
1539 |
V277= vs_base[0]; |
V304= vs_base[0]; |
1540 |
V279= Ct; |
V306= Ct; |
1541 |
STSET(object,(V256),12, V277); |
STSET(object,V303,12, V304); |
1542 |
(void)(V277); |
(void)(V304); |
1543 |
goto T416;} |
goto T416;} |
1544 |
goto T450; |
goto T450; |
1545 |
T450:; |
T450:; |
1546 |
if((V259!= VV[71]))goto T458; |
if((V275!= VV[71]))goto T458; |
1547 |
{object V280; |
{object V307; |
1548 |
object V281; |
object V308; |
1549 |
base[4]= base[1]; |
base[4]= base[1]; |
1550 |
base[5]= base[2]; |
base[5]= base[2]; |
1551 |
base[6]= Ct; |
base[6]= Ct; |
1553 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1554 |
(void) (*Lnk252)(); |
(void) (*Lnk252)(); |
1555 |
if(vs_base>=vs_top){vs_top=sup;goto T464;} |
if(vs_base>=vs_top){vs_top=sup;goto T464;} |
1556 |
V280= vs_base[0]; |
V307= vs_base[0]; |
1557 |
vs_base++; |
vs_base++; |
1558 |
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
1559 |
V281= vs_base[0]; |
V308= vs_base[0]; |
1560 |
vs_top=sup; |
vs_top=sup; |
1561 |
goto T466; |
goto T466; |
1562 |
goto T464; |
goto T464; |
1563 |
T464:; |
T464:; |
1564 |
V280= Cnil; |
V307= Cnil; |
1565 |
goto T465; |
goto T465; |
1566 |
T465:; |
T465:; |
1567 |
V281= Cnil; |
V308= Cnil; |
1568 |
goto T466; |
goto T466; |
1569 |
T466:; |
T466:; |
1570 |
|
V309 = (V272); |
1571 |
base[4]= VV[71]; |
base[4]= VV[71]; |
1572 |
base[5]= (V256); |
base[5]= (V272); |
1573 |
base[6]= base[1]; |
base[6]= base[1]; |
1574 |
base[7]= (V280); |
base[7]= (V307); |
1575 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1576 |
(void) (*Lnk250)(); |
(void) (*Lnk250)(); |
1577 |
vs_top=sup; |
vs_top=sup; |
1578 |
V282= vs_base[0]; |
V310= vs_base[0]; |
1579 |
V283= Ct; |
V311= Ct; |
1580 |
STSET(object,(V256),32, V282); |
STSET(object,V309,32, V310); |
1581 |
(void)(V282); |
(void)(V310); |
1582 |
goto T416;} |
goto T416;} |
1583 |
goto T458; |
goto T458; |
1584 |
T458:; |
T458:; |
1585 |
if((V259!= VV[72]))goto T472; |
if((V275!= VV[72]))goto T472; |
1586 |
{object V284; |
{object V312; |
1587 |
object V285; |
object V313; |
1588 |
base[4]= base[1]; |
base[4]= base[1]; |
1589 |
base[5]= base[2]; |
base[5]= base[2]; |
1590 |
base[6]= Cnil; |
base[6]= Cnil; |
1592 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1593 |
(void) (*Lnk252)(); |
(void) (*Lnk252)(); |
1594 |
if(vs_base>=vs_top){vs_top=sup;goto T478;} |
if(vs_base>=vs_top){vs_top=sup;goto T478;} |
1595 |
V284= vs_base[0]; |
V312= vs_base[0]; |
1596 |
vs_base++; |
vs_base++; |
1597 |
if(vs_base>=vs_top){vs_top=sup;goto T479;} |
if(vs_base>=vs_top){vs_top=sup;goto T479;} |
1598 |
V285= vs_base[0]; |
V313= vs_base[0]; |
1599 |
vs_top=sup; |
vs_top=sup; |
1600 |
goto T480; |
goto T480; |
1601 |
goto T478; |
goto T478; |
1602 |
T478:; |
T478:; |
1603 |
V284= Cnil; |
V312= Cnil; |
1604 |
goto T479; |
goto T479; |
1605 |
T479:; |
T479:; |
1606 |
V285= Cnil; |
V313= Cnil; |
1607 |
goto T480; |
goto T480; |
1608 |
T480:; |
T480:; |
1609 |
|
V314 = (V272); |
1610 |
base[4]= VV[72]; |
base[4]= VV[72]; |
1611 |
base[5]= (V256); |
base[5]= (V272); |
1612 |
base[6]= base[1]; |
base[6]= base[1]; |
1613 |
base[7]= (V284); |
base[7]= (V312); |
1614 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1615 |
(void) (*Lnk250)(); |
(void) (*Lnk250)(); |
1616 |
vs_top=sup; |
vs_top=sup; |
1617 |
V286= vs_base[0]; |
V315= vs_base[0]; |
1618 |
V287= Ct; |
V316= Ct; |
1619 |
STSET(object,(V256),36, V286); |
STSET(object,V314,36, V315); |
1620 |
(void)(V286); |
(void)(V315); |
1621 |
goto T416;} |
goto T416;} |
1622 |
goto T472; |
goto T472; |
1623 |
T472:; |
T472:; |
1624 |
if((V259!= VV[73]) |
if((V275!= VV[73]) |
1625 |
&& (V259!= VV[74]))goto T486; |
&& (V275!= VV[74]))goto T486; |
1626 |
{object V288; |
{object V317; |
1627 |
object V289; |
object V318; |
1628 |
{object V290; |
{object V319; |
1629 |
V290= STREF(object,(V256),20); |
V319= STREF(object,(V272),20); |
1630 |
if(!(((V290))==(VV[43]))){ |
if(!(((V319))==(VV[43]))){ |
1631 |
goto T490;} |
goto T490;} |
1632 |
(void)((*(LnkLI61))((V256),VV[68])); |
(void)((*(LnkLI61))((V272),VV[68])); |
1633 |
V288= STREF(object,(V256),20); |
V317= STREF(object,(V272),20); |
1634 |
goto T487; |
goto T487; |
1635 |
goto T490; |
goto T490; |
1636 |
T490:; |
T490:; |
1637 |
V288= (V290);} |
V317= (V319);} |
1638 |
goto T487; |
goto T487; |
1639 |
T487:; |
T487:; |
1640 |
{object V291; |
{object V320; |
1641 |
V291= STREF(object,(V256),24); |
V320= STREF(object,(V272),24); |
1642 |
if(!(((V291))==(VV[43]))){ |
if(!(((V320))==(VV[43]))){ |
1643 |
goto T496;} |
goto T496;} |
1644 |
(void)((*(LnkLI61))((V256),VV[69])); |
(void)((*(LnkLI61))((V272),VV[69])); |
1645 |
V289= STREF(object,(V256),24); |
V318= STREF(object,(V272),24); |
1646 |
goto T493; |
goto T493; |
1647 |
goto T496; |
goto T496; |
1648 |
T496:; |
T496:; |
1649 |
V289= (V291);} |
V318= (V320);} |
1650 |
goto T493; |
goto T493; |
1651 |
T493:; |
T493:; |
1652 |
{object V292; |
{object V321; |
1653 |
object V293; |
object V322; |
1654 |
base[4]= base[1]; |
base[4]= base[1]; |
1655 |
base[5]= (V289); |
base[5]= (V318); |
1656 |
base[6]= Ct; |
base[6]= Ct; |
1657 |
base[7]= Ct; |
base[7]= Ct; |
1658 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1659 |
(void) (*Lnk252)(); |
(void) (*Lnk252)(); |
1660 |
if(vs_base>=vs_top){vs_top=sup;goto T504;} |
if(vs_base>=vs_top){vs_top=sup;goto T504;} |
1661 |
V292= vs_base[0]; |
V321= vs_base[0]; |
1662 |
vs_base++; |
vs_base++; |
1663 |
if(vs_base>=vs_top){vs_top=sup;goto T505;} |
if(vs_base>=vs_top){vs_top=sup;goto T505;} |
1664 |
V293= vs_base[0]; |
V322= vs_base[0]; |
1665 |
vs_top=sup; |
vs_top=sup; |
1666 |
goto T506; |
goto T506; |
1667 |
goto T504; |
goto T504; |
1668 |
T504:; |
T504:; |
1669 |
V292= Cnil; |
V321= Cnil; |
1670 |
goto T505; |
goto T505; |
1671 |
T505:; |
T505:; |
1672 |
V293= Cnil; |
V322= Cnil; |
1673 |
goto T506; |
goto T506; |
1674 |
T506:; |
T506:; |
1675 |
V294= Ct; |
V323 = (V272); |
1676 |
STSET(object,(V256),40, (V293)); |
V324 = (V322); |
1677 |
(void)((V293)); |
V325= Ct; |
1678 |
|
STSET(object,V323,40, V324); |
1679 |
|
(void)(V324); |
1680 |
|
V326 = (V272); |
1681 |
base[4]= VV[74]; |
base[4]= VV[74]; |
1682 |
base[5]= (V256); |
base[5]= (V272); |
1683 |
base[6]= base[1]; |
base[6]= base[1]; |
1684 |
base[7]= append((V288),(V292)); |
base[7]= append((V317),(V321)); |
1685 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1686 |
(void) (*Lnk250)(); |
(void) (*Lnk250)(); |
1687 |
vs_top=sup; |
vs_top=sup; |
1688 |
V295= vs_base[0]; |
V327= vs_base[0]; |
1689 |
V296= Ct; |
V328= Ct; |
1690 |
STSET(object,(V256),44, V295); |
STSET(object,V326,44, V327); |
1691 |
(void)(V295); |
(void)(V327); |
1692 |
goto T416;}} |
goto T416;}} |
1693 |
goto T486; |
goto T486; |
1694 |
T486:; |
T486:; |
1695 |
if((V259!= VV[75]))goto T513; |
if((V275!= VV[75]))goto T513; |
1696 |
V297= (*(LnkLI75))((V258)); |
V329 = (V272); |
1697 |
V298= Ct; |
V330= (*(LnkLI75))((V274)); |
1698 |
STSET(object,(V256),52, /* INLINE-ARGS */V297); |
V331= Ct; |
1699 |
(void)(/* INLINE-ARGS */V297); |
STSET(object,V329,52, /* INLINE-ARGS */V330); |
1700 |
|
(void)(/* INLINE-ARGS */V330); |
1701 |
goto T416; |
goto T416; |
1702 |
goto T513; |
goto T513; |
1703 |
T513:; |
T513:; |
1704 |
if((V259!= VV[13]))goto T514; |
if((V275!= VV[13]))goto T514; |
1705 |
{object V299; |
{object V332; |
1706 |
object V300; |
object V333; |
1707 |
V299= (*(LnkLI253))((V258)); |
V332= (*(LnkLI253))((V274)); |
1708 |
{object V301; |
{object V334; |
1709 |
V301= STREF(object,(V256),52); |
V334= STREF(object,(V272),52); |
1710 |
if(!(((V301))==(VV[43]))){ |
if(!(((V334))==(VV[43]))){ |
1711 |
goto T519;} |
goto T519;} |
1712 |
(void)((*(LnkLI61))((V256),VV[75])); |
(void)((*(LnkLI61))((V272),VV[75])); |
1713 |
V300= STREF(object,(V256),52); |
V333= STREF(object,(V272),52); |
1714 |
goto T516; |
goto T516; |
1715 |
goto T519; |
goto T519; |
1716 |
T519:; |
T519:; |
1717 |
V300= (V301);} |
V333= (V334);} |
1718 |
goto T516; |
goto T516; |
1719 |
T516:; |
T516:; |
1720 |
V302= Ct; |
V335 = (V272); |
1721 |
STSET(object,(V256),48, (V299)); |
V336 = (V332); |
1722 |
(void)((V299)); |
V337= Ct; |
1723 |
if(((V300))==Cnil){ |
STSET(object,V335,48, V336); |
1724 |
|
(void)(V336); |
1725 |
|
if(((V333))==Cnil){ |
1726 |
goto T416;} |
goto T416;} |
1727 |
if((V299)!=Cnil){ |
if((V332)!=Cnil){ |
1728 |
V304= (V299); |
V339= (V332); |
1729 |
goto T525;} |
goto T525;} |
1730 |
V304= (VV[255]->s.s_gfdef); |
V339= (VV[255]->s.s_gfdef); |
1731 |
goto T525; |
goto T525; |
1732 |
T525:; |
T525:; |
1733 |
(void)((*(LnkLI254))(V304,V300)); |
V340 = V333; |
1734 |
|
(void)((*(LnkLI254))(V339,V340)); |
1735 |
goto T416;} |
goto T416;} |
1736 |
goto T514; |
goto T514; |
1737 |
T514:; |
T514:; |
1738 |
FEerror("The ECASE key value ~s is illegal.",1,V259); |
FEerror("The ECASE key value ~s is illegal.",1,V275); |
1739 |
goto T416;}} |
goto T416;}} |
1740 |
goto T416; |
goto T416; |
1741 |
T416:; |
T416:; |
1742 |
{object V305 = (V256); |
{object V341 = (V272); |
1743 |
VMR31(V305)} |
VMR31(V341)} |
1744 |
base[0]=base[0]; |
base[0]=base[0]; |
1745 |
return Cnil; |
return Cnil; |
1746 |
} |
} |
1747 |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION */ |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION */ |
1748 |
|
|
1749 |
static object LI33(V307) |
static object LI33(V343) |
1750 |
|
|
1751 |
object V307; |
object V343; |
1752 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1753 |
goto TTL; |
goto TTL; |
1754 |
TTL:; |
TTL:; |
1755 |
{register object V308; |
{register object V344; |
1756 |
object V309; |
object V345; |
1757 |
V308= CMPcar((V307)); |
V344= CMPcar((V343)); |
1758 |
V309= CMPcadr((V307)); |
V345= CMPcadr((V343)); |
1759 |
if(((VV[101]->s.s_dbind))==(VV[102])){ |
if(((VV[101]->s.s_dbind))==(VV[102])){ |
1760 |
goto T528;} |
goto T528;} |
1761 |
{object V310 = Cnil; |
{object V346 = Cnil; |
1762 |
VMR32(V310)} |
VMR32(V346)} |
1763 |
goto T528; |
goto T528; |
1764 |
T528:; |
T528:; |
1765 |
if(!(type_of((V308))==t_symbol)){ |
if(!(type_of((V344))==t_symbol)){ |
1766 |
goto T531;} |
goto T531;} |
1767 |
V308= (VFUN_NARGS=1,(*(LnkLI217))((V308))); |
V344= (VFUN_NARGS=1,(*(LnkLI217))((V344))); |
1768 |
goto T531; |
goto T531; |
1769 |
T531:; |
T531:; |
1770 |
base[2]= (V308); |
base[2]= (V344); |
1771 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1772 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
1773 |
vs_top=sup; |
vs_top=sup; |
1774 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1775 |
goto T535;} |
goto T535;} |
1776 |
base[2]= (V308); |
base[2]= (V344); |
1777 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1778 |
(void) (*Lnk256)(Lclptr256); |
(void) (*Lnk256)(Lclptr256); |
1779 |
vs_top=sup; |
vs_top=sup; |
1780 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1781 |
goto T535;} |
goto T535;} |
1782 |
base[2]= (V308); |
base[2]= (V344); |
1783 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1784 |
(void) (*Lnk257)(Lclptr257); |
(void) (*Lnk257)(Lclptr257); |
1785 |
vs_top=sup; |
vs_top=sup; |
1786 |
goto T535; |
goto T535; |
1787 |
T535:; |
T535:; |
1788 |
{register object V311; |
{register object V347; |
1789 |
object V312; |
object V348; |
1790 |
register object V313; |
register object V349; |
1791 |
object V314; |
object V350; |
1792 |
object V315; |
object V351; |
1793 |
object V316; |
object V352; |
1794 |
object V317; |
object V353; |
1795 |
register object V318; |
register object V354; |
1796 |
object V319; |
object V355; |
1797 |
object V320; |
object V356; |
1798 |
{object V321; |
{object V357; |
1799 |
object V322= (V309); |
object V358= (V345); |
1800 |
if(V322==Cnil){ |
if(V358==Cnil){ |
1801 |
V311= Cnil; |
V347= Cnil; |
1802 |
goto T543;} |
goto T543;} |
1803 |
base[13]=V321=MMcons(Cnil,Cnil); |
base[13]=V357=MMcons(Cnil,Cnil); |
1804 |
goto T544; |
goto T544; |
1805 |
T544:; |
T544:; |
1806 |
(V321->c.c_cdr)= list(2,(V322->c.c_car),Cnil); |
(V357->c.c_cdr)= list(2,(V358->c.c_car),Cnil); |
1807 |
while(MMcdr(V321)!=Cnil)V321=MMcdr(V321); |
while(MMcdr(V357)!=Cnil)V357=MMcdr(V357); |
1808 |
if((V322=MMcdr(V322))==Cnil){ |
if((V358=MMcdr(V358))==Cnil){ |
1809 |
base[13]=base[13]->c.c_cdr; |
base[13]=base[13]->c.c_cdr; |
1810 |
V311= base[13]; |
V347= base[13]; |
1811 |
goto T543;} |
goto T543;} |
1812 |
goto T544;} |
goto T544;} |
1813 |
goto T543; |
goto T543; |
1814 |
T543:; |
T543:; |
1815 |
V312= make_cons((V308),(V311)); |
V348= make_cons((V344),(V347)); |
1816 |
base[4]= (*(LnkLI258))(VV[9]); |
base[4]= (*(LnkLI258))(VV[9]); |
1817 |
base[4]=MMcons(base[4],Cnil); |
base[4]=MMcons(base[4],Cnil); |
1818 |
base[13]= (base[4]->c.c_car); |
base[13]= (base[4]->c.c_car); |
1819 |
base[14]= (V312); |
base[14]= (V348); |
1820 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1821 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk259)(Lclptr259); |
1822 |
vs_top=sup; |
vs_top=sup; |
1823 |
V313= vs_base[0]; |
V349= vs_base[0]; |
1824 |
V314= (*(LnkLI260))((V313),VV[103]); |
V350= (*(LnkLI260))((V349),VV[103]); |
1825 |
V315= list(2,(V308),(V311)); |
V351= list(2,(V344),(V347)); |
1826 |
V316= (*(LnkLI258))(VV[104]); |
V352= (*(LnkLI258))(VV[104]); |
1827 |
base[13]= (V316); |
base[13]= (V352); |
1828 |
base[14]= (V315); |
base[14]= (V351); |
1829 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1830 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk259)(Lclptr259); |
1831 |
vs_top=sup; |
vs_top=sup; |
1832 |
V317= vs_base[0]; |
V353= vs_base[0]; |
1833 |
base[13]= (V308); |
base[13]= (V344); |
1834 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1835 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
1836 |
vs_top=sup; |
vs_top=sup; |
1837 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1838 |
goto T558;} |
goto T558;} |
1839 |
V318= Cnil; |
V354= Cnil; |
1840 |
goto T557; |
goto T557; |
1841 |
goto T558; |
goto T558; |
1842 |
T558:; |
T558:; |
1843 |
base[13]= (V308); |
base[13]= (V344); |
1844 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1845 |
(void) (*Lnk251)(Lclptr251); |
(void) (*Lnk251)(Lclptr251); |
1846 |
vs_top=sup; |
vs_top=sup; |
1847 |
V318= vs_base[0]; |
V354= vs_base[0]; |
1848 |
goto T557; |
goto T557; |
1849 |
T557:; |
T557:; |
1850 |
if(((V318))==Cnil){ |
if(((V354))==Cnil){ |
1851 |
goto T564;} |
goto T564;} |
1852 |
base[13]= (*(LnkLI258))(VV[97]); |
base[13]= (*(LnkLI258))(VV[97]); |
1853 |
base[14]= make_cons((V318),(V311)); |
base[14]= make_cons((V354),(V347)); |
1854 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1855 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk259)(Lclptr259); |
1856 |
vs_top=sup; |
vs_top=sup; |
1857 |
V319= vs_base[0]; |
V355= vs_base[0]; |
1858 |
goto T562; |
goto T562; |
1859 |
goto T564; |
goto T564; |
1860 |
T564:; |
T564:; |
1861 |
V319= Cnil; |
V355= Cnil; |
1862 |
goto T562; |
goto T562; |
1863 |
T562:; |
T562:; |
1864 |
if(((V318))==Cnil){ |
if(((V354))==Cnil){ |
1865 |
goto T570;} |
goto T570;} |
1866 |
base[13]= (*(LnkLI258))(VV[98]); |
base[13]= (*(LnkLI258))(VV[98]); |
1867 |
base[14]= listA(3,(V318),Ct,(V311)); |
base[14]= listA(3,(V354),Ct,(V347)); |
1868 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1869 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk259)(Lclptr259); |
1870 |
vs_top=sup; |
vs_top=sup; |
1871 |
V320= vs_base[0]; |
V356= vs_base[0]; |
1872 |
goto T568; |
goto T568; |
1873 |
goto T570; |
goto T570; |
1874 |
T570:; |
T570:; |
1875 |
V320= Cnil; |
V356= Cnil; |
1876 |
goto T568; |
goto T568; |
1877 |
T568:; |
T568:; |
1878 |
if(((V313))!=Cnil){ |
if(((V349))!=Cnil){ |
1879 |
goto T574;} |
goto T574;} |
1880 |
{object V324 = |
{object V360 = |
1881 |
make_cclosure_new(LC66,Cnil,base[4],Cdata); |
make_cclosure_new(LC66,Cnil,base[4],Cdata); |
1882 |
VMR32(V324)} |
VMR32(V360)} |
1883 |
goto T574; |
goto T574; |
1884 |
T574:; |
T574:; |
1885 |
if((CMPcdr((V313)))!=Cnil){ |
if((CMPcdr((V349)))!=Cnil){ |
1886 |
goto T578;} |
goto T578;} |
1887 |
if(!((CMPcar((V313)))==((V314)))){ |
if(!((CMPcar((V349)))==((V350)))){ |
1888 |
goto T578;} |
goto T578;} |
1889 |
if((CMPcdr((V317)))!=Cnil){ |
if((CMPcdr((V353)))!=Cnil){ |
1890 |
goto T578;} |
goto T578;} |
1891 |
base[13]= CMPcar((V317)); |
base[13]= CMPcar((V353)); |
1892 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1893 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk261)(Lclptr261); |
1894 |
vs_top=sup; |
vs_top=sup; |
1895 |
V325= vs_base[0]; |
V361= vs_base[0]; |
1896 |
if(!((CMPcar(V325))==((VV[105]->s.s_dbind)))){ |
if(!((CMPcar(V361))==((VV[105]->s.s_dbind)))){ |
1897 |
goto T578;} |
goto T578;} |
1898 |
base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata); |
base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata); |
1899 |
base[13]=MMcons(base[13],base[4]); |
base[13]=MMcons(base[13],base[4]); |
1900 |
base[14]= (base[13]->c.c_car); |
base[14]= (base[13]->c.c_car); |
1901 |
base[15]= (V319); |
base[15]= (V355); |
1902 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1903 |
(void) (*Lnk262)(); |
(void) (*Lnk262)(); |
1904 |
vs_top=sup; |
vs_top=sup; |
1908 |
goto T590; |
goto T590; |
1909 |
T590:; |
T590:; |
1910 |
base[14]= (base[13]->c.c_car); |
base[14]= (base[13]->c.c_car); |
1911 |
base[15]= (V320); |
base[15]= (V356); |
1912 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1913 |
(void) (*Lnk262)(); |
(void) (*Lnk262)(); |
1914 |
vs_top=sup; |
vs_top=sup; |
1918 |
T589:; |
T589:; |
1919 |
goto T578; |
goto T578; |
1920 |
T578:; |
T578:; |
1921 |
{object V326 = Cnil; |
{object V362 = Cnil; |
1922 |
VMR32(V326)} |
VMR32(V362)} |
1923 |
goto T577; |
goto T577; |
1924 |
T577:; |
T577:; |
1925 |
base[13]= (V308); |
V363 = (V344); |
1926 |
base[14]= (V311); |
V364 = (V343); |
1927 |
|
base[13]= (V344); |
1928 |
|
base[14]= (V347); |
1929 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1930 |
(void) (*Lnk104)(Lclptr104); |
(void) (*Lnk104)(Lclptr104); |
1931 |
vs_top=sup; |
vs_top=sup; |
1932 |
V327= vs_base[0]; |
V365= vs_base[0]; |
1933 |
{object V328 = (*(LnkLI263))((V308),(V307),V327,(V319),(V320)); |
V366 = (V355); |
1934 |
VMR32(V328)}}} |
V367 = (V356); |
1935 |
|
{object V368 = (*(LnkLI263))(V363,V364,V365,V366,V367); |
1936 |
|
VMR32(V368)}}} |
1937 |
base[0]=base[0]; |
base[0]=base[0]; |
1938 |
return Cnil; |
return Cnil; |
1939 |
} |
} |
1940 |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL */ |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL */ |
1941 |
|
|
1942 |
static object LI35(V334,V335,V336,V337,V338) |
static object LI35(V374,V375,V376,V377,V378) |
1943 |
|
|
1944 |
register object V334;register object V335;object V336;register object V337;register object V338; |
register object V374;register object V375;object V376;register object V377;register object V378; |
1945 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1946 |
goto TTL; |
goto TTL; |
1947 |
TTL:; |
TTL:; |
1948 |
{object V339; |
{object V379; |
1949 |
object V340; |
object V380; |
1950 |
object V341; |
object V381; |
1951 |
V339= CMPcadr((V335)); |
V379= CMPcadr((V375)); |
1952 |
V340= CMPcaddr((V335)); |
V380= CMPcaddr((V375)); |
1953 |
base[3]= (*(LnkLI258))(VV[96]); |
base[3]= (*(LnkLI258))(VV[96]); |
1954 |
base[4]= make_cons((V334),(V336)); |
base[4]= make_cons((V374),(V376)); |
1955 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1956 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk259)(Lclptr259); |
1957 |
vs_top=sup; |
vs_top=sup; |
1958 |
V341= vs_base[0]; |
V381= vs_base[0]; |
1959 |
if(((V340))!=Cnil){ |
if(((V380))!=Cnil){ |
1960 |
goto T604;} |
goto T604;} |
1961 |
base[3]= (V341); |
V382 = (V374); |
1962 |
base[4]= (V337); |
V383 = (V376); |
1963 |
base[5]= (V338); |
base[3]= (V381); |
1964 |
|
base[4]= (V377); |
1965 |
|
base[5]= (V378); |
1966 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1967 |
Lappend(); |
Lappend(); |
1968 |
vs_top=sup; |
vs_top=sup; |
1969 |
V342= vs_base[0]; |
V384= vs_base[0]; |
1970 |
if(((VFUN_NARGS=5,(*(LnkLI264))((V334),(V336),V342,Ct,Cnil)))!=Cnil){ |
if(((VFUN_NARGS=5,(*(LnkLI264))(V382,V383,V384,Ct,Cnil)))!=Cnil){ |
1971 |
goto T604;} |
goto T604;} |
1972 |
{object V343 = Cnil; |
{object V385 = Cnil; |
1973 |
VMR33(V343)} |
VMR33(V385)} |
1974 |
goto T604; |
goto T604; |
1975 |
T604:; |
T604:; |
1976 |
if((CMPcdr((V341)))!=Cnil){ |
if((CMPcdr((V381)))!=Cnil){ |
1977 |
goto T613;} |
goto T613;} |
1978 |
base[3]= (VV[265]->s.s_gfdef); |
base[3]= (VV[265]->s.s_gfdef); |
1979 |
base[4]= (V337); |
base[4]= (V377); |
1980 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1981 |
(void) (*Lnk266)(); |
(void) (*Lnk266)(); |
1982 |
vs_top=sup; |
vs_top=sup; |
1983 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1984 |
goto T613;} |
goto T613;} |
1985 |
base[3]= (VV[265]->s.s_gfdef); |
base[3]= (VV[265]->s.s_gfdef); |
1986 |
base[4]= (V338); |
base[4]= (V378); |
1987 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1988 |
(void) (*Lnk266)(); |
(void) (*Lnk266)(); |
1989 |
vs_top=sup; |
vs_top=sup; |
1991 |
goto T614;} |
goto T614;} |
1992 |
goto T613; |
goto T613; |
1993 |
T613:; |
T613:; |
1994 |
{object V344 = (*(LnkLI267))((V335),(V334),(V339),(V337),(V338)); |
{object V386 = (*(LnkLI267))((V375),(V374),(V379),(V377),(V378)); |
1995 |
VMR33(V344)} |
VMR33(V386)} |
1996 |
goto T614; |
goto T614; |
1997 |
T614:; |
T614:; |
1998 |
{object V345 = (*(LnkLI268))((V335),(V334),(V339),(V337),(V338)); |
{object V387 = (*(LnkLI268))((V375),(V374),(V379),(V377),(V378)); |
1999 |
VMR33(V345)}} |
VMR33(V387)}} |
2000 |
base[0]=base[0]; |
base[0]=base[0]; |
2001 |
return Cnil; |
return Cnil; |
2002 |
} |
} |
2003 |
/* local entry for function COMPLICATED-INSTANCE-CREATION-METHOD */ |
/* local entry for function COMPLICATED-INSTANCE-CREATION-METHOD */ |
2004 |
|
|
2005 |
static object LI36(V347) |
static object LI36(V389) |
2006 |
|
|
2007 |
object V347; |
object V389; |
2008 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
2009 |
goto TTL; |
goto TTL; |
2010 |
TTL:; |
TTL:; |
2011 |
{object V348; |
{object V390; |
2012 |
base[0]= (V347); |
base[0]= (V389); |
2013 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2014 |
(void) (*Lnk269)(Lclptr269); |
(void) (*Lnk269)(Lclptr269); |
2015 |
vs_top=sup; |
vs_top=sup; |
2016 |
V348= vs_base[0]; |
V390= vs_base[0]; |
2017 |
if(((V348))==Cnil){ |
if(((V390))==Cnil){ |
2018 |
goto T627;} |
goto T627;} |
2019 |
if((CMPcdr((V348)))==Cnil){ |
if((CMPcdr((V390)))==Cnil){ |
2020 |
goto T630;} |
goto T630;} |
2021 |
V349= Cnil; |
V391= Cnil; |
2022 |
goto T629; |
goto T629; |
2023 |
goto T630; |
goto T630; |
2024 |
T630:; |
T630:; |
2025 |
V349= ((CMPcar((V348)))==(VV[107])?Ct:Cnil); |
V391= ((CMPcar((V390)))==(VV[107])?Ct:Cnil); |
2026 |
goto T629; |
goto T629; |
2027 |
T629:; |
T629:; |
2028 |
{object V350 = ((V349)==Cnil?Ct:Cnil); |
{object V392 = ((V391)==Cnil?Ct:Cnil); |
2029 |
VMR34(V350)} |
VMR34(V392)} |
2030 |
goto T627; |
goto T627; |
2031 |
T627:; |
T627:; |
2032 |
{object V351; |
{object V393; |
2033 |
base[0]= (V347); |
base[0]= (V389); |
2034 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2035 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk261)(Lclptr261); |
2036 |
vs_top=sup; |
vs_top=sup; |
2037 |
V352= vs_base[0]; |
V394= vs_base[0]; |
2038 |
V351= CMPcar(V352); |
V393= CMPcar(V394); |
2039 |
base[0]= (V351); |
base[0]= (V393); |
2040 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2041 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
2042 |
vs_top=sup; |
vs_top=sup; |
2043 |
V353= vs_base[0]; |
V395= vs_base[0]; |
2044 |
if(!((V353)==Cnil)){ |
if(!((V395)==Cnil)){ |
2045 |
goto T635;} |
goto T635;} |
2046 |
{object V354 = Ct; |
{object V396 = Ct; |
2047 |
VMR34(V354)} |
VMR34(V396)} |
2048 |
goto T635; |
goto T635; |
2049 |
T635:; |
T635:; |
2050 |
base[0]= (V351); |
base[0]= (V393); |
2051 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2052 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
2053 |
vs_top=sup; |
vs_top=sup; |
2054 |
V355= vs_base[0]; |
V397= vs_base[0]; |
2055 |
{object V356 = ((((VV[108])==(V355)?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V398 = ((((VV[108])==(V397)?Ct:Cnil))==Cnil?Ct:Cnil); |
2056 |
VMR34(V356)}}} |
VMR34(V398)}}} |
2057 |
base[0]=base[0]; |
base[0]=base[0]; |
2058 |
return Cnil; |
return Cnil; |
2059 |
} |
} |
2060 |
/* local entry for function FIND-STANDARD-II-METHOD */ |
/* local entry for function FIND-STANDARD-II-METHOD */ |
2061 |
|
|
2062 |
static object LI37(V359,V360) |
static object LI37(V401,V402) |
2063 |
|
|
2064 |
object V359;register object V360; |
object V401;register object V402; |
2065 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
2066 |
goto TTL; |
goto TTL; |
2067 |
TTL:; |
TTL:; |
2068 |
{register object V361; |
{register object V403; |
2069 |
register object V362; |
register object V404; |
2070 |
V361= (V359); |
V403= (V401); |
2071 |
V362= CMPcar((V361)); |
V404= CMPcar((V403)); |
2072 |
goto T644; |
goto T644; |
2073 |
T644:; |
T644:; |
2074 |
if(!(((V361))==Cnil)){ |
if(!(((V403))==Cnil)){ |
2075 |
goto T645;} |
goto T645;} |
2076 |
{object V363 = Cnil; |
{object V405 = Cnil; |
2077 |
VMR35(V363)} |
VMR35(V405)} |
2078 |
goto T645; |
goto T645; |
2079 |
T645:; |
T645:; |
2080 |
base[1]= (V362); |
base[1]= (V404); |
2081 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2082 |
(void) (*Lnk269)(Lclptr269); |
(void) (*Lnk269)(Lclptr269); |
2083 |
vs_top=sup; |
vs_top=sup; |
2084 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2085 |
goto T649;} |
goto T649;} |
2086 |
{register object V364; |
{register object V406; |
2087 |
base[1]= (V362); |
base[1]= (V404); |
2088 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2089 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk261)(Lclptr261); |
2090 |
vs_top=sup; |
vs_top=sup; |
2091 |
V365= vs_base[0]; |
V407= vs_base[0]; |
2092 |
V364= CMPcar(V365); |
V406= CMPcar(V407); |
2093 |
base[1]= (V364); |
base[1]= (V406); |
2094 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2095 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
2096 |
vs_top=sup; |
vs_top=sup; |
2097 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2098 |
goto T649;} |
goto T649;} |
2099 |
if(!(type_of((V360))==t_cons||((V360))==Cnil)){ |
if(!(type_of((V402))==t_cons||((V402))==Cnil)){ |
2100 |
goto T662;} |
goto T662;} |
2101 |
base[1]= (V364); |
base[1]= (V406); |
2102 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2103 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
2104 |
vs_top=sup; |
vs_top=sup; |
2105 |
V367= vs_base[0]; |
V409= vs_base[0]; |
2106 |
{register object x= V367,V366= (V360); |
V410 = (V402); |
2107 |
while(V366!=Cnil) |
{register object x= V409,V408= V410; |
2108 |
if(eql(x,V366->c.c_car)){ |
while(V408!=Cnil) |
2109 |
|
if(eql(x,V408->c.c_car)){ |
2110 |
goto T660; |
goto T660; |
2111 |
}else V366=V366->c.c_cdr; |
}else V408=V408->c.c_cdr; |
2112 |
goto T649;} |
goto T649;} |
2113 |
goto T662; |
goto T662; |
2114 |
T662:; |
T662:; |
2115 |
base[1]= (V364); |
base[1]= (V406); |
2116 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2117 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
2118 |
vs_top=sup; |
vs_top=sup; |
2119 |
V368= vs_base[0]; |
V411= vs_base[0]; |
2120 |
if(!((V368)==((V360)))){ |
V412 = (V402); |
2121 |
|
if(!((V411)==(V412))){ |
2122 |
goto T649;} |
goto T649;} |
2123 |
goto T660; |
goto T660; |
2124 |
T660:; |
T660:; |
2125 |
{object V369 = (V362); |
{object V413 = (V404); |
2126 |
VMR35(V369)}} |
VMR35(V413)}} |
2127 |
goto T649; |
goto T649; |
2128 |
T649:; |
T649:; |
2129 |
V361= CMPcdr((V361)); |
V403= CMPcdr((V403)); |
2130 |
V362= CMPcar((V361)); |
V404= CMPcar((V403)); |
2131 |
goto T644;} |
goto T644;} |
2132 |
base[0]=base[0]; |
base[0]=base[0]; |
2133 |
return Cnil; |
return Cnil; |
2140 |
vs_check; |
vs_check; |
2141 |
check_arg(2); |
check_arg(2); |
2142 |
vs_top=sup; |
vs_top=sup; |
2143 |
{object V370=base[0]->c.c_cdr; |
{object V414=base[0]->c.c_cdr; |
2144 |
if(endp(V370))invalid_macro_call(); |
if(endp(V414))invalid_macro_call(); |
2145 |
base[2]= (V370->c.c_car); |
base[2]= (V414->c.c_car); |
2146 |
V370=V370->c.c_cdr; |
V414=V414->c.c_cdr; |
2147 |
if(endp(V370))invalid_macro_call(); |
if(endp(V414))invalid_macro_call(); |
2148 |
base[3]= (V370->c.c_car); |
base[3]= (V414->c.c_car); |
2149 |
V370=V370->c.c_cdr; |
V414=V414->c.c_cdr; |
2150 |
if(endp(V370))invalid_macro_call(); |
if(endp(V414))invalid_macro_call(); |
2151 |
base[4]= (V370->c.c_car); |
base[4]= (V414->c.c_car); |
2152 |
V370=V370->c.c_cdr; |
V414=V414->c.c_cdr; |
2153 |
if(!endp(V370))invalid_macro_call();} |
if(!endp(V414))invalid_macro_call();} |
2154 |
V371= list(2,VV[109],base[2]); |
V415= list(2,VV[109],base[2]); |
2155 |
V372= make_cons(/* INLINE-ARGS */V371,Cnil); |
V416= make_cons(/* INLINE-ARGS */V415,Cnil); |
2156 |
V373= list(5,VV[111],VV[112],VV[113],base[3],base[4]); |
V417= list(5,VV[111],VV[112],VV[113],base[3],base[4]); |
2157 |
base[5]= list(3,VV[52],/* INLINE-ARGS */V372,list(4,VV[78],VV[110],/* INLINE-ARGS */V373,list(4,VV[114],VV[115],base[3],base[4]))); |
base[5]= list(3,VV[52],/* INLINE-ARGS */V416,list(4,VV[78],VV[110],/* INLINE-ARGS */V417,list(4,VV[114],VV[115],base[3],base[4]))); |
2158 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2159 |
return; |
return; |
2160 |
} |
} |
2166 |
vs_check; |
vs_check; |
2167 |
check_arg(2); |
check_arg(2); |
2168 |
vs_top=sup; |
vs_top=sup; |
2169 |
{object V374=base[0]->c.c_cdr; |
{object V418=base[0]->c.c_cdr; |
2170 |
if(endp(V374))invalid_macro_call(); |
if(endp(V418))invalid_macro_call(); |
2171 |
base[2]= (V374->c.c_car); |
base[2]= (V418->c.c_car); |
2172 |
V374=V374->c.c_cdr; |
V418=V418->c.c_cdr; |
2173 |
if(!endp(V374))invalid_macro_call();} |
if(!endp(V418))invalid_macro_call();} |
2174 |
base[3]= list(2,VV[116],base[2]); |
base[3]= list(2,VV[116],base[2]); |
2175 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2176 |
return; |
return; |
2183 |
vs_check; |
vs_check; |
2184 |
check_arg(2); |
check_arg(2); |
2185 |
vs_top=sup; |
vs_top=sup; |
2186 |
{object V375=base[0]->c.c_cdr; |
{object V419=base[0]->c.c_cdr; |
2187 |
if(endp(V375))invalid_macro_call(); |
if(endp(V419))invalid_macro_call(); |
2188 |
base[2]= (V375->c.c_car); |
base[2]= (V419->c.c_car); |
2189 |
V375=V375->c.c_cdr; |
V419=V419->c.c_cdr; |
2190 |
if(endp(V375))invalid_macro_call(); |
if(endp(V419))invalid_macro_call(); |
2191 |
base[3]= (V375->c.c_car); |
base[3]= (V419->c.c_car); |
2192 |
V375=V375->c.c_cdr; |
V419=V419->c.c_cdr; |
2193 |
if(!endp(V375))invalid_macro_call();} |
if(!endp(V419))invalid_macro_call();} |
2194 |
V376= list(3,VV[62],VV[118],base[2]); |
V420= list(3,VV[62],VV[118],base[2]); |
2195 |
base[4]= list(5,VV[52],VV[117],/* INLINE-ARGS */V376,list(3,VV[62],VV[119],list(2,VV[120],base[3])),VV[121]); |
base[4]= list(5,VV[52],VV[117],/* INLINE-ARGS */V420,list(3,VV[62],VV[119],list(2,VV[120],base[3])),VV[121]); |
2196 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2197 |
return; |
return; |
2198 |
} |
} |
2204 |
vs_check; |
vs_check; |
2205 |
check_arg(2); |
check_arg(2); |
2206 |
vs_top=sup; |
vs_top=sup; |
2207 |
{object V377=base[0]->c.c_cdr; |
{object V421=base[0]->c.c_cdr; |
2208 |
if(endp(V377))invalid_macro_call(); |
if(endp(V421))invalid_macro_call(); |
2209 |
base[2]= (V377->c.c_car); |
base[2]= (V421->c.c_car); |
2210 |
V377=V377->c.c_cdr; |
V421=V421->c.c_cdr; |
2211 |
base[3]= V377;} |
base[3]= V421;} |
2212 |
V378= list(3,VV[124],VV[125],base[2]); |
V422= list(3,VV[124],VV[125],base[2]); |
2213 |
base[4]= list(3,VV[52],VV[122],list(4,VV[78],VV[123],/* INLINE-ARGS */V378,make_cons(VV[6],base[3]))); |
base[4]= list(3,VV[52],VV[122],list(4,VV[78],VV[123],/* INLINE-ARGS */V422,make_cons(VV[6],base[3]))); |
2214 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2215 |
return; |
return; |
2216 |
} |
} |
2220 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2221 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
2222 |
vs_check; |
vs_check; |
2223 |
{object V379; |
{object V423; |
2224 |
object V380; |
object V424; |
2225 |
check_arg(2); |
check_arg(2); |
2226 |
V379=(base[0]); |
V423=(base[0]); |
2227 |
V380=(base[1]); |
V424=(base[1]); |
2228 |
vs_top=sup; |
vs_top=sup; |
2229 |
goto TTL; |
goto TTL; |
2230 |
TTL:; |
TTL:; |
2231 |
{object V381; |
{object V425; |
2232 |
object V382; |
object V426; |
2233 |
V381= (VFUN_NARGS=2,(*(LnkLI39))((V379),(V380))); |
V425= (VFUN_NARGS=2,(*(LnkLI39))((V423),(V424))); |
2234 |
{object V383; |
{object V427; |
2235 |
V383= STREF(object,(V381),48); |
V427= STREF(object,(V425),48); |
2236 |
if(!(((V383))==(VV[43]))){ |
if(!(((V427))==(VV[43]))){ |
2237 |
goto T677;} |
goto T677;} |
2238 |
(void)((*(LnkLI61))((V381),VV[13])); |
(void)((*(LnkLI61))((V425),VV[13])); |
2239 |
V382= STREF(object,(V381),48); |
V426= STREF(object,(V425),48); |
2240 |
goto T674; |
goto T674; |
2241 |
goto T677; |
goto T677; |
2242 |
T677:; |
T677:; |
2243 |
V382= (V383);} |
V426= (V427);} |
2244 |
goto T674; |
goto T674; |
2245 |
T674:; |
T674:; |
2246 |
base[4]= (V379); |
base[4]= (V423); |
2247 |
base[5]= (V380); |
base[5]= (V424); |
2248 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2249 |
{object _funobj = (V382);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V426);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2250 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2251 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2252 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2255 |
} |
} |
2256 |
/* local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE */ |
/* local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE */ |
2257 |
|
|
2258 |
static object LI43(V389,V390,V391,V392,V393) |
static object LI43(V433,V434,V435,V436,V437) |
2259 |
|
|
2260 |
object V389;object V390;object V391;object V392;object V393; |
object V433;object V434;object V435;object V436;object V437; |
2261 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
2262 |
goto TTL; |
goto TTL; |
2263 |
TTL:; |
TTL:; |
2264 |
{object V394; |
{object V438; |
2265 |
object V395; |
object V439; |
2266 |
object V396; |
object V440; |
2267 |
object V397; |
object V441; |
2268 |
base[0]= CMPcar((V389)); |
base[0]= CMPcar((V433)); |
2269 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
2270 |
if(!(type_of((base[0]->c.c_car))==t_symbol)){ |
if(!(type_of((base[0]->c.c_car))==t_symbol)){ |
2271 |
goto T685;} |
goto T685;} |
2277 |
goto T683; |
goto T683; |
2278 |
T683:; |
T683:; |
2279 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
2280 |
base[10]= (V390); |
base[10]= (V434); |
2281 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2282 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk243)(Lclptr243); |
2283 |
vs_top=sup; |
vs_top=sup; |
2284 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
2285 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
2286 |
V394= make_cons((base[2]->c.c_car),Cnil); |
V438= make_cons((base[2]->c.c_car),Cnil); |
2287 |
base[10]= (V390); |
base[10]= (V434); |
2288 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2289 |
(void) (*Lnk270)(Lclptr270); |
(void) (*Lnk270)(Lclptr270); |
2290 |
vs_top=sup; |
vs_top=sup; |
2294 |
goto T690; |
goto T690; |
2295 |
goto T692; |
goto T692; |
2296 |
T692:; |
T692:; |
2297 |
base[10]= (V390); |
base[10]= (V434); |
2298 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2299 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk272)(Lclptr272); |
2300 |
vs_top=sup; |
vs_top=sup; |
2304 |
goto T690; |
goto T690; |
2305 |
goto T696; |
goto T696; |
2306 |
T696:; |
T696:; |
2307 |
base[10]= (V390); |
base[10]= (V434); |
2308 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2309 |
(void) (*Lnk274)(Lclptr274); |
(void) (*Lnk274)(Lclptr274); |
2310 |
vs_top=sup; |
vs_top=sup; |
2322 |
goto T690; |
goto T690; |
2323 |
T690:; |
T690:; |
2324 |
base[4]=MMcons(base[4],base[2]); |
base[4]=MMcons(base[4],base[2]); |
2325 |
base[10]= (V390); |
base[10]= (V434); |
2326 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2327 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk272)(Lclptr272); |
2328 |
vs_top=sup; |
vs_top=sup; |
2329 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2330 |
goto T706;} |
goto T706;} |
2331 |
V395= VV[127]; |
V439= VV[127]; |
2332 |
goto T704; |
goto T704; |
2333 |
goto T706; |
goto T706; |
2334 |
T706:; |
T706:; |
2335 |
V395= Cnil; |
V439= Cnil; |
2336 |
goto T704; |
goto T704; |
2337 |
T704:; |
T704:; |
2338 |
V396= (*(LnkLI260))((V393),VV[108]); |
V440= (*(LnkLI260))((V437),VV[108]); |
2339 |
base[11]= (V396); |
base[11]= (V440); |
2340 |
base[12]= (V393); |
base[12]= (V437); |
2341 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
2342 |
(void) (*Lnk276)(); |
(void) (*Lnk276)(); |
2343 |
vs_top=sup; |
vs_top=sup; |
2344 |
V401= vs_base[0]; |
V445= vs_base[0]; |
2345 |
{object V399; |
{object V443; |
2346 |
object V400= V401; |
object V444= V445; |
2347 |
if(V400==Cnil){ |
if(V444==Cnil){ |
2348 |
V398= Cnil; |
V442= Cnil; |
2349 |
goto T711;} |
goto T711;} |
2350 |
base[10]=V399=MMcons(Cnil,Cnil); |
base[10]=V443=MMcons(Cnil,Cnil); |
2351 |
goto T712; |
goto T712; |
2352 |
T712:; |
T712:; |
2353 |
base[11]= (VV[98]->s.s_gfdef); |
base[11]= (VV[98]->s.s_gfdef); |
2354 |
base[12]= list(3,VV[128],(V400->c.c_car),Cnil); |
base[12]= list(3,VV[128],(V444->c.c_car),Cnil); |
2355 |
base[13]= Cnil; |
base[13]= Cnil; |
2356 |
base[14]= (V394); |
base[14]= (V438); |
2357 |
vs_top=(vs_base=base+11)+4; |
vs_top=(vs_base=base+11)+4; |
2358 |
(void) (*Lnk277)(); |
(void) (*Lnk277)(); |
2359 |
vs_top=sup; |
vs_top=sup; |
2360 |
(V399->c.c_car)= vs_base[0]; |
(V443->c.c_car)= vs_base[0]; |
2361 |
if((V400=MMcdr(V400))==Cnil){ |
if((V444=MMcdr(V444))==Cnil){ |
2362 |
V398= base[10]; |
V442= base[10]; |
2363 |
goto T711;} |
goto T711;} |
2364 |
V399=MMcdr(V399)=MMcons(Cnil,Cnil); |
V443=MMcdr(V443)=MMcons(Cnil,Cnil); |
2365 |
goto T712;} |
goto T712;} |
2366 |
goto T711; |
goto T711; |
2367 |
T711:; |
T711:; |
2368 |
base[7]= nreverse(V398); |
base[7]= nreverse(V442); |
2369 |
base[7]=MMcons(base[7],base[4]); |
base[7]=MMcons(base[7],base[4]); |
2370 |
V397= (*(LnkLI260))((V392),VV[108]); |
V441= (*(LnkLI260))((V436),VV[108]); |
2371 |
base[11]= (V397); |
base[11]= (V441); |
2372 |
base[12]= (V392); |
base[12]= (V436); |
2373 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
2374 |
(void) (*Lnk276)(); |
(void) (*Lnk276)(); |
2375 |
vs_top=sup; |
vs_top=sup; |
2376 |
V406= vs_base[0]; |
V450= vs_base[0]; |
2377 |
{object V404; |
{object V448; |
2378 |
object V405= V406; |
object V449= V450; |
2379 |
if(V405==Cnil){ |
if(V449==Cnil){ |
2380 |
V403= Cnil; |
V447= Cnil; |
2381 |
goto T723;} |
goto T723;} |
2382 |
base[10]=V404=MMcons(Cnil,Cnil); |
base[10]=V448=MMcons(Cnil,Cnil); |
2383 |
goto T724; |
goto T724; |
2384 |
T724:; |
T724:; |
2385 |
base[11]= (VV[97]->s.s_gfdef); |
base[11]= (VV[97]->s.s_gfdef); |
2386 |
base[12]= list(3,VV[128],(V405->c.c_car),Cnil); |
base[12]= list(3,VV[128],(V449->c.c_car),Cnil); |
2387 |
base[13]= Cnil; |
base[13]= Cnil; |
2388 |
base[14]= (V394); |
base[14]= (V438); |
2389 |
vs_top=(vs_base=base+11)+4; |
vs_top=(vs_base=base+11)+4; |
2390 |
(void) (*Lnk277)(); |
(void) (*Lnk277)(); |
2391 |
vs_top=sup; |
vs_top=sup; |
2392 |
(V404->c.c_car)= vs_base[0]; |
(V448->c.c_car)= vs_base[0]; |
2393 |
if((V405=MMcdr(V405))==Cnil){ |
if((V449=MMcdr(V449))==Cnil){ |
2394 |
V403= base[10]; |
V447= base[10]; |
2395 |
goto T723;} |
goto T723;} |
2396 |
V404=MMcdr(V404)=MMcons(Cnil,Cnil); |
V448=MMcdr(V448)=MMcons(Cnil,Cnil); |
2397 |
goto T724;} |
goto T724;} |
2398 |
goto T723; |
goto T723; |
2399 |
T723:; |
T723:; |
2400 |
base[9]= nreverse(V403); |
base[9]= nreverse(V447); |
2401 |
base[9]=MMcons(base[9],base[7]); |
base[9]=MMcons(base[9],base[7]); |
2402 |
base[12]= (V390); |
base[12]= (V434); |
2403 |
base[13]= (V391); |
base[13]= (V435); |
2404 |
base[14]= CMPcaddr((V389)); |
base[14]= CMPcaddr((V433)); |
2405 |
vs_top=(vs_base=base+12)+3; |
vs_top=(vs_base=base+12)+3; |
2406 |
(void) (*Lnk278)(); |
(void) (*Lnk278)(); |
2407 |
if(vs_base>=vs_top){vs_top=sup;goto T737;} |
if(vs_base>=vs_top){vs_top=sup;goto T737;} |
2419 |
base[11]=MMcons(Cnil,base[10]); |
base[11]=MMcons(Cnil,base[10]); |
2420 |
goto T739; |
goto T739; |
2421 |
T739:; |
T739:; |
2422 |
if(!(((V395))==(VV[127]))){ |
if(!(((V439))==(VV[127]))){ |
2423 |
goto T741;} |
goto T741;} |
2424 |
{object V408 = |
{object V452 = |
2425 |
make_cclosure_new(LC67,Cnil,base[11],Cdata); |
make_cclosure_new(LC67,Cnil,base[11],Cdata); |
2426 |
VMR41(V408)} |
VMR41(V452)} |
2427 |
goto T741; |
goto T741; |
2428 |
T741:; |
T741:; |
2429 |
{object V409 = |
{object V453 = |
2430 |
make_cclosure_new(LC68,Cnil,base[11],Cdata); |
make_cclosure_new(LC68,Cnil,base[11],Cdata); |
2431 |
VMR41(V409)}} |
VMR41(V453)}} |
2432 |
base[0]=base[0]; |
base[0]=base[0]; |
2433 |
return Cnil; |
return Cnil; |
2434 |
} |
} |
2435 |
/* local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */ |
/* local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */ |
2436 |
|
|
2437 |
static object LI45(V415,V416,V417,V418,V419) |
static object LI45(V459,V460,V461,V462,V463) |
2438 |
|
|
2439 |
object V415;object V416;object V417;object V418;object V419; |
object V459;object V460;object V461;object V462;object V463; |
2440 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
2441 |
goto TTL; |
goto TTL; |
2442 |
TTL:; |
TTL:; |
2443 |
base[0]=MMcons((V416),Cnil); |
base[0]=MMcons((V460),Cnil); |
2444 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
2445 |
base[4]= (V417); |
base[4]= (V461); |
2446 |
base[5]= CMPcaddr((V415)); |
base[5]= CMPcaddr((V459)); |
2447 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2448 |
(void) (*Lnk279)(); |
(void) (*Lnk279)(); |
2449 |
if(vs_base>=vs_top){vs_top=sup;goto T747;} |
if(vs_base>=vs_top){vs_top=sup;goto T747;} |
2461 |
base[2]=MMcons(Cnil,base[1]); |
base[2]=MMcons(Cnil,base[1]); |
2462 |
goto T749; |
goto T749; |
2463 |
T749:; |
T749:; |
2464 |
base[3]= CMPcar((V415)); |
base[3]= CMPcar((V459)); |
2465 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
2466 |
if(!(type_of((base[3]->c.c_car))==t_symbol)){ |
if(!(type_of((base[3]->c.c_car))==t_symbol)){ |
2467 |
goto T753;} |
goto T753;} |
2480 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
2481 |
base[5]=MMcons(base[5],base[4]); |
base[5]=MMcons(base[5],base[4]); |
2482 |
base[8]= (VV[98]->s.s_gfdef); |
base[8]= (VV[98]->s.s_gfdef); |
2483 |
base[9]= (V419); |
base[9]= (V463); |
2484 |
V420= list(2,VV[138],(base[0]->c.c_car)); |
V464= list(2,VV[138],(base[0]->c.c_car)); |
2485 |
base[10]= make_cons(/* INLINE-ARGS */V420,VV[139]); |
base[10]= make_cons(/* INLINE-ARGS */V464,VV[139]); |
2486 |
V421= (*(LnkLI260))((V419),VV[108]); |
V465= (*(LnkLI260))((V463),VV[108]); |
2487 |
V422= |
V466= |
2488 |
make_cclosure_new(LC69,Cnil,base[5],Cdata); |
make_cclosure_new(LC69,Cnil,base[5],Cdata); |
2489 |
V423= list(2,/* INLINE-ARGS */V421,V422); |
V467= list(2,/* INLINE-ARGS */V465,V466); |
2490 |
base[11]= make_cons(/* INLINE-ARGS */V423,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V467,Cnil); |
2491 |
base[12]= list(3,(base[5]->c.c_car),(VV[140]->s.s_dbind),(VV[140]->s.s_dbind)); |
base[12]= list(3,(base[5]->c.c_car),(VV[140]->s.s_dbind),(VV[140]->s.s_dbind)); |
2492 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
2493 |
(void) (*Lnk280)(); |
(void) (*Lnk280)(); |
2495 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2496 |
base[6]=MMcons(base[6],base[5]); |
base[6]=MMcons(base[6],base[5]); |
2497 |
base[8]= (VV[97]->s.s_gfdef); |
base[8]= (VV[97]->s.s_gfdef); |
2498 |
base[9]= (V418); |
base[9]= (V462); |
2499 |
base[10]= list(2,list(2,VV[138],(base[0]->c.c_car)),Ct); |
base[10]= list(2,list(2,VV[138],(base[0]->c.c_car)),Ct); |
2500 |
V424= (*(LnkLI260))((V418),VV[108]); |
V468= (*(LnkLI260))((V462),VV[108]); |
2501 |
V425= |
V469= |
2502 |
make_cclosure_new(LC70,Cnil,base[6],Cdata); |
make_cclosure_new(LC70,Cnil,base[6],Cdata); |
2503 |
V426= list(2,/* INLINE-ARGS */V424,V425); |
V470= list(2,/* INLINE-ARGS */V468,V469); |
2504 |
base[11]= make_cons(/* INLINE-ARGS */V426,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V470,Cnil); |
2505 |
base[12]= list(2,(base[5]->c.c_car),(VV[140]->s.s_dbind)); |
base[12]= list(2,(base[5]->c.c_car),(VV[140]->s.s_dbind)); |
2506 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
2507 |
(void) (*Lnk280)(); |
(void) (*Lnk280)(); |
2508 |
vs_top=sup; |
vs_top=sup; |
2509 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
2510 |
base[7]=MMcons(base[7],base[6]); |
base[7]=MMcons(base[7],base[6]); |
2511 |
{object V427 = |
{object V471 = |
2512 |
make_cclosure_new(LC71,Cnil,base[7],Cdata); |
make_cclosure_new(LC71,Cnil,base[7],Cdata); |
2513 |
VMR42(V427)} |
VMR42(V471)} |
2514 |
base[0]=base[0]; |
base[0]=base[0]; |
2515 |
return Cnil; |
return Cnil; |
2516 |
} |
} |
2520 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2521 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM43; VC43 |
2522 |
vs_check; |
vs_check; |
2523 |
{object V428; |
{object V472; |
2524 |
object V429; |
object V473; |
2525 |
object V430; |
object V474; |
2526 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
2527 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
2528 |
V428=(base[0]); |
V472=(base[0]); |
2529 |
V429=(base[1]); |
V473=(base[1]); |
2530 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
2531 |
if(vs_base>=vs_top){vs_top=sup;goto T771;} |
if(vs_base>=vs_top){vs_top=sup;goto T771;} |
2532 |
V430=(base[2]); |
V474=(base[2]); |
2533 |
vs_top=sup; |
vs_top=sup; |
2534 |
goto T772; |
goto T772; |
2535 |
goto T771; |
goto T771; |
2536 |
T771:; |
T771:; |
2537 |
V430= Cnil; |
V474= Cnil; |
2538 |
goto T772; |
goto T772; |
2539 |
T772:; |
T772:; |
2540 |
{register object V431; |
{register object V475; |
2541 |
V431= (VFUN_NARGS=4,(*(LnkLI39))((V428),(V429),Cnil,(V430))); |
V475= (VFUN_NARGS=4,(*(LnkLI39))((V472),(V473),Cnil,(V474))); |
2542 |
{object V432; |
{object V476; |
2543 |
V432= STREF(object,(V431),44); |
V476= STREF(object,(V475),44); |
2544 |
if(!(((V432))==(VV[43]))){ |
if(!(((V476))==(VV[43]))){ |
2545 |
goto T778;} |
goto T778;} |
2546 |
(void)((*(LnkLI61))((V431),VV[74])); |
(void)((*(LnkLI61))((V475),VV[74])); |
2547 |
base[3]= STREF(object,(V431),44); |
base[3]= STREF(object,(V475),44); |
2548 |
goto T775; |
goto T775; |
2549 |
goto T778; |
goto T778; |
2550 |
T778:; |
T778:; |
2551 |
base[3]= (V432);} |
base[3]= (V476);} |
2552 |
goto T775; |
goto T775; |
2553 |
T775:; |
T775:; |
2554 |
{object V433; |
{object V477; |
2555 |
V433= STREF(object,(V431),40); |
V477= STREF(object,(V475),40); |
2556 |
if(!(((V433))==(VV[43]))){ |
if(!(((V477))==(VV[43]))){ |
2557 |
goto T784;} |
goto T784;} |
2558 |
(void)((*(LnkLI61))((V431),VV[73])); |
(void)((*(LnkLI61))((V475),VV[73])); |
2559 |
base[4]= STREF(object,(V431),40); |
base[4]= STREF(object,(V475),40); |
2560 |
goto T781; |
goto T781; |
2561 |
goto T784; |
goto T784; |
2562 |
T784:; |
T784:; |
2563 |
base[4]= (V433);} |
base[4]= (V477);} |
2564 |
goto T781; |
goto T781; |
2565 |
T781:; |
T781:; |
2566 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2573 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2574 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM44; VC44 |
2575 |
vs_check; |
vs_check; |
2576 |
{register object V434; |
{register object V478; |
2577 |
object V435; |
object V479; |
2578 |
register object V436; |
register object V480; |
2579 |
object V437; |
object V481; |
2580 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
2581 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
2582 |
V434=(base[0]); |
V478=(base[0]); |
2583 |
V435=(base[1]); |
V479=(base[1]); |
2584 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
2585 |
if(vs_base>=vs_top){vs_top=sup;goto T787;} |
if(vs_base>=vs_top){vs_top=sup;goto T787;} |
2586 |
V436=(base[2]); |
V480=(base[2]); |
2587 |
vs_base++; |
vs_base++; |
2588 |
if(vs_base>=vs_top){vs_top=sup;goto T788;} |
if(vs_base>=vs_top){vs_top=sup;goto T788;} |
2589 |
V437=(base[3]); |
V481=(base[3]); |
2590 |
vs_top=sup; |
vs_top=sup; |
2591 |
goto T789; |
goto T789; |
2592 |
goto T787; |
goto T787; |
2593 |
T787:; |
T787:; |
2594 |
V436= Cnil; |
V480= Cnil; |
2595 |
goto T788; |
goto T788; |
2596 |
T788:; |
T788:; |
2597 |
V437= Cnil; |
V481= Cnil; |
2598 |
goto T789; |
goto T789; |
2599 |
T789:; |
T789:; |
2600 |
{register object V438; |
{register object V482; |
2601 |
object V439; |
object V483; |
2602 |
V438= (VFUN_NARGS=4,(*(LnkLI39))((V434),(V435),Cnil,(V436))); |
V482= (VFUN_NARGS=4,(*(LnkLI39))((V478),(V479),Cnil,(V480))); |
2603 |
{object V440; |
{object V484; |
2604 |
V440= STREF(object,(V438),28); |
V484= STREF(object,(V482),28); |
2605 |
if(!(((V440))==(VV[43]))){ |
if(!(((V484))==(VV[43]))){ |
2606 |
goto T796;} |
goto T796;} |
2607 |
(void)((*(LnkLI61))((V438),VV[70])); |
(void)((*(LnkLI61))((V482),VV[70])); |
2608 |
V439= STREF(object,(V438),28); |
V483= STREF(object,(V482),28); |
2609 |
goto T793; |
goto T793; |
2610 |
goto T796; |
goto T796; |
2611 |
T796:; |
T796:; |
2612 |
V439= (V440);} |
V483= (V484);} |
2613 |
goto T793; |
goto T793; |
2614 |
T793:; |
T793:; |
2615 |
if(((V437))==Cnil){ |
if(((V481))==Cnil){ |
2616 |
goto T800;} |
goto T800;} |
2617 |
base[6]= (V439); |
base[6]= (V483); |
2618 |
{object V441; |
{object V485; |
2619 |
V441= STREF(object,(V438),32); |
V485= STREF(object,(V482),32); |
2620 |
if(!(((V441))==(VV[43]))){ |
if(!(((V485))==(VV[43]))){ |
2621 |
goto T806;} |
goto T806;} |
2622 |
(void)((*(LnkLI61))((V438),VV[71])); |
(void)((*(LnkLI61))((V482),VV[71])); |
2623 |
base[7]= STREF(object,(V438),32); |
base[7]= STREF(object,(V482),32); |
2624 |
goto T803; |
goto T803; |
2625 |
goto T806; |
goto T806; |
2626 |
T806:; |
T806:; |
2627 |
base[7]= (V441);} |
base[7]= (V485);} |
2628 |
goto T803; |
goto T803; |
2629 |
T803:; |
T803:; |
2630 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2631 |
return; |
return; |
2632 |
goto T800; |
goto T800; |
2633 |
T800:; |
T800:; |
2634 |
base[6]= (V439); |
base[6]= (V483); |
2635 |
{object V442; |
{object V486; |
2636 |
{object V444; |
V487 = (V478); |
2637 |
V444= STREF(object,(V438),24); |
{object V489; |
2638 |
if(!(((V444))==(VV[43]))){ |
V489= STREF(object,(V482),24); |
2639 |
|
if(!(((V489))==(VV[43]))){ |
2640 |
goto T815;} |
goto T815;} |
2641 |
(void)((*(LnkLI61))((V438),VV[69])); |
(void)((*(LnkLI61))((V482),VV[69])); |
2642 |
V443= STREF(object,(V438),24); |
V488= STREF(object,(V482),24); |
2643 |
goto T812; |
goto T812; |
2644 |
goto T815; |
goto T815; |
2645 |
T815:; |
T815:; |
2646 |
V443= (V444);} |
V488= (V489);} |
2647 |
goto T812; |
goto T812; |
2648 |
T812:; |
T812:; |
2649 |
V445= (VFUN_NARGS=4,(*(LnkLI39))((V434),V443,Cnil,(V436))); |
V490 = (V480); |
2650 |
V442= STREF(object,/* INLINE-ARGS */V445,32); |
V491= (VFUN_NARGS=4,(*(LnkLI39))(V487,V488,Cnil,V490)); |
2651 |
if(!(((V442))==(VV[43]))){ |
V486= STREF(object,/* INLINE-ARGS */V491,32); |
2652 |
|
if(!(((V486))==(VV[43]))){ |
2653 |
goto T819;} |
goto T819;} |
2654 |
{object V447; |
V492 = (V478); |
2655 |
V447= STREF(object,(V438),24); |
{object V494; |
2656 |
if(!(((V447))==(VV[43]))){ |
V494= STREF(object,(V482),24); |
2657 |
|
if(!(((V494))==(VV[43]))){ |
2658 |
goto T825;} |
goto T825;} |
2659 |
(void)((*(LnkLI61))((V438),VV[69])); |
(void)((*(LnkLI61))((V482),VV[69])); |
2660 |
V446= STREF(object,(V438),24); |
V493= STREF(object,(V482),24); |
2661 |
goto T822; |
goto T822; |
2662 |
goto T825; |
goto T825; |
2663 |
T825:; |
T825:; |
2664 |
V446= (V447);} |
V493= (V494);} |
2665 |
goto T822; |
goto T822; |
2666 |
T822:; |
T822:; |
2667 |
V448= (VFUN_NARGS=4,(*(LnkLI39))((V434),V446,Cnil,(V436))); |
V495 = (V480); |
2668 |
(void)((*(LnkLI61))(/* INLINE-ARGS */V448,VV[71])); |
V496= (VFUN_NARGS=4,(*(LnkLI39))(V492,V493,Cnil,V495)); |
2669 |
{object V450; |
(void)((*(LnkLI61))(/* INLINE-ARGS */V496,VV[71])); |
2670 |
V450= STREF(object,(V438),24); |
V497 = (V478); |
2671 |
if(!(((V450))==(VV[43]))){ |
{object V499; |
2672 |
|
V499= STREF(object,(V482),24); |
2673 |
|
if(!(((V499))==(VV[43]))){ |
2674 |
goto T831;} |
goto T831;} |
2675 |
(void)((*(LnkLI61))((V438),VV[69])); |
(void)((*(LnkLI61))((V482),VV[69])); |
2676 |
V449= STREF(object,(V438),24); |
V498= STREF(object,(V482),24); |
2677 |
goto T828; |
goto T828; |
2678 |
goto T831; |
goto T831; |
2679 |
T831:; |
T831:; |
2680 |
V449= (V450);} |
V498= (V499);} |
2681 |
goto T828; |
goto T828; |
2682 |
T828:; |
T828:; |
2683 |
V451= (VFUN_NARGS=4,(*(LnkLI39))((V434),V449,Cnil,(V436))); |
V500 = (V480); |
2684 |
base[7]= STREF(object,/* INLINE-ARGS */V451,32); |
V501= (VFUN_NARGS=4,(*(LnkLI39))(V497,V498,Cnil,V500)); |
2685 |
|
base[7]= STREF(object,/* INLINE-ARGS */V501,32); |
2686 |
goto T810; |
goto T810; |
2687 |
goto T819; |
goto T819; |
2688 |
T819:; |
T819:; |
2689 |
base[7]= (V442);} |
base[7]= (V486);} |
2690 |
goto T810; |
goto T810; |
2691 |
T810:; |
T810:; |
2692 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2695 |
} |
} |
2696 |
/* local entry for function ADD-FORMS */ |
/* local entry for function ADD-FORMS */ |
2697 |
|
|
2698 |
static object LI48(V454,V455) |
static object LI48(V504,V505) |
2699 |
|
|
2700 |
register object V454;register object V455; |
register object V504;register object V505; |
2701 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
2702 |
goto TTL; |
goto TTL; |
2703 |
TTL:; |
TTL:; |
2704 |
if(((V454))==Cnil){ |
if(((V504))==Cnil){ |
2705 |
goto T834;} |
goto T834;} |
2706 |
base[0]= (V454); |
base[0]= (V504); |
2707 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2708 |
Lcopy_list(); |
Lcopy_list(); |
2709 |
vs_top=sup; |
vs_top=sup; |
2710 |
V454= vs_base[0]; |
V504= vs_base[0]; |
2711 |
if((CMPcar((V455)))!=Cnil){ |
if((CMPcar((V505)))!=Cnil){ |
2712 |
goto T842;} |
goto T842;} |
2713 |
(V455)->c.c_car = V454; |
(V505)->c.c_car = V504; |
2714 |
goto T840; |
goto T840; |
2715 |
goto T842; |
goto T842; |
2716 |
T842:; |
T842:; |
2717 |
(CMPcdr(V455))->c.c_cdr = V454; |
(CMPcdr(V505))->c.c_cdr = V504; |
2718 |
(void)(CMPcdr(V455)); |
(void)(CMPcdr(V505)); |
2719 |
goto T840; |
goto T840; |
2720 |
T840:; |
T840:; |
2721 |
{object V461; |
{object V511; |
2722 |
base[1]= (V454); |
base[1]= (V504); |
2723 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2724 |
Llast(); |
Llast(); |
2725 |
vs_top=sup; |
vs_top=sup; |
2726 |
V461= vs_base[0]; |
V511= vs_base[0]; |
2727 |
(V455)->c.c_cdr = (V461);} |
(V505)->c.c_cdr = (V511);} |
2728 |
goto T834; |
goto T834; |
2729 |
T834:; |
T834:; |
2730 |
{object V462 = CMPcar((V455)); |
{object V512 = CMPcar((V505)); |
2731 |
VMR45(V462)} |
VMR45(V512)} |
2732 |
base[0]=base[0]; |
base[0]=base[0]; |
2733 |
return Cnil; |
return Cnil; |
2734 |
} |
} |
2738 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2739 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
2740 |
vs_check; |
vs_check; |
2741 |
{object V463; |
{object V513; |
2742 |
object V464; |
object V514; |
2743 |
object V465; |
object V515; |
2744 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
2745 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
2746 |
V463=(base[0]); |
V513=(base[0]); |
2747 |
V464=(base[1]); |
V514=(base[1]); |
2748 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
2749 |
if(vs_base>=vs_top){vs_top=sup;goto T849;} |
if(vs_base>=vs_top){vs_top=sup;goto T849;} |
2750 |
V465=(base[2]); |
V515=(base[2]); |
2751 |
vs_top=sup; |
vs_top=sup; |
2752 |
goto T850; |
goto T850; |
2753 |
goto T849; |
goto T849; |
2754 |
T849:; |
T849:; |
2755 |
V465= Ct; |
V515= Ct; |
2756 |
goto T850; |
goto T850; |
2757 |
T850:; |
T850:; |
2758 |
{object V466; |
{object V516; |
2759 |
object V467; |
object V517; |
2760 |
object V468; |
object V518; |
2761 |
object V469; |
object V519; |
2762 |
register object V470; |
register object V520; |
2763 |
V466= make_cons(Cnil,Cnil); |
V516= make_cons(Cnil,Cnil); |
2764 |
base[3]= (V463); |
base[3]= (V513); |
2765 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2766 |
(void) (*Lnk281)(Lclptr281); |
(void) (*Lnk281)(Lclptr281); |
2767 |
vs_top=sup; |
vs_top=sup; |
2768 |
V467= vs_base[0]; |
V517= vs_base[0]; |
2769 |
base[4]= (V463); |
base[4]= (V513); |
2770 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2771 |
(void) (*Lnk282)(Lclptr282); |
(void) (*Lnk282)(Lclptr282); |
2772 |
vs_top=sup; |
vs_top=sup; |
2773 |
V473= vs_base[0]; |
V523= vs_base[0]; |
2774 |
{object V471; |
{object V521; |
2775 |
object V472= V473; |
object V522= V523; |
2776 |
if(V472==Cnil){ |
if(V522==Cnil){ |
2777 |
V469= Cnil; |
V519= Cnil; |
2778 |
goto T855;} |
goto T855;} |
2779 |
base[3]=V471=MMcons(Cnil,Cnil); |
base[3]=V521=MMcons(Cnil,Cnil); |
2780 |
goto T856; |
goto T856; |
2781 |
T856:; |
T856:; |
2782 |
base[5]= (V472->c.c_car); |
base[5]= (V522->c.c_car); |
2783 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2784 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk283)(Lclptr283); |
2785 |
vs_top=sup; |
vs_top=sup; |
2786 |
V477= vs_base[0]; |
V527= vs_base[0]; |
2787 |
{object V475; |
{object V525; |
2788 |
object V476= V477; |
object V526= V527; |
2789 |
if(V476==Cnil){ |
if(V526==Cnil){ |
2790 |
(V471->c.c_cdr)= Cnil; |
(V521->c.c_cdr)= Cnil; |
2791 |
goto T859;} |
goto T859;} |
2792 |
base[4]=V475=MMcons(Cnil,Cnil); |
base[4]=V525=MMcons(Cnil,Cnil); |
2793 |
goto T860; |
goto T860; |
2794 |
T860:; |
T860:; |
2795 |
(V475->c.c_car)= make_cons((V476->c.c_car),(V472->c.c_car)); |
(V525->c.c_car)= make_cons((V526->c.c_car),(V522->c.c_car)); |
2796 |
if((V476=MMcdr(V476))==Cnil){ |
if((V526=MMcdr(V526))==Cnil){ |
2797 |
(V471->c.c_cdr)= base[4]; |
(V521->c.c_cdr)= base[4]; |
2798 |
goto T859;} |
goto T859;} |
2799 |
V475=MMcdr(V475)=MMcons(Cnil,Cnil); |
V525=MMcdr(V525)=MMcons(Cnil,Cnil); |
2800 |
goto T860;} |
goto T860;} |
2801 |
goto T859; |
goto T859; |
2802 |
T859:; |
T859:; |
2803 |
while(MMcdr(V471)!=Cnil)V471=MMcdr(V471); |
while(MMcdr(V521)!=Cnil)V521=MMcdr(V521); |
2804 |
if((V472=MMcdr(V472))==Cnil){ |
if((V522=MMcdr(V522))==Cnil){ |
2805 |
base[3]=base[3]->c.c_cdr; |
base[3]=base[3]->c.c_cdr; |
2806 |
V469= base[3]; |
V519= base[3]; |
2807 |
goto T855;} |
goto T855;} |
2808 |
goto T856;} |
goto T856;} |
2809 |
goto T855; |
goto T855; |
2810 |
T855:; |
T855:; |
2811 |
V468= (V464); |
V518= (V514); |
2812 |
V470= Cnil; |
V520= Cnil; |
2813 |
{register object V479; |
{register object V529; |
2814 |
object V480; |
object V530; |
2815 |
V479= (V468); |
V529= (V518); |
2816 |
V480= CMPcar((V479)); |
V530= CMPcar((V529)); |
2817 |
goto T868; |
goto T868; |
2818 |
T868:; |
T868:; |
2819 |
if(!(((V479))==Cnil)){ |
if(!(((V529))==Cnil)){ |
2820 |
goto T869;} |
goto T869;} |
2821 |
goto T864; |
goto T864; |
2822 |
goto T869; |
goto T869; |
2823 |
T869:; |
T869:; |
2824 |
{object V481; |
{object V531; |
2825 |
{register object x= (V480),V483= (V469); |
{register object x= (V530),V533= (V519); |
2826 |
while(V483!=Cnil) |
while(V533!=Cnil) |
2827 |
if(eql(x,V483->c.c_car->c.c_car) &&V483->c.c_car != Cnil){ |
if(eql(x,V533->c.c_car->c.c_car) &&V533->c.c_car != Cnil){ |
2828 |
V482= (V483->c.c_car); |
V532= (V533->c.c_car); |
2829 |
goto T875; |
goto T875; |
2830 |
}else V483=V483->c.c_cdr; |
}else V533=V533->c.c_cdr; |
2831 |
V482= Cnil;} |
V532= Cnil;} |
2832 |
goto T875; |
goto T875; |
2833 |
T875:; |
T875:; |
2834 |
V481= CMPcdr(V482); |
V531= CMPcdr(V532); |
2835 |
base[5]= (V481); |
base[5]= (V531); |
2836 |
base[6]= (V470); |
base[6]= (V520); |
2837 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2838 |
Ladjoin(); |
Ladjoin(); |
2839 |
vs_top=sup; |
vs_top=sup; |
2840 |
V470= vs_base[0];} |
V520= vs_base[0];} |
2841 |
V479= CMPcdr((V479)); |
V529= CMPcdr((V529)); |
2842 |
V480= CMPcar((V479)); |
V530= CMPcar((V529)); |
2843 |
goto T868;} |
goto T868;} |
2844 |
goto T864; |
goto T864; |
2845 |
T864:; |
T864:; |
2846 |
{register object V484; |
{register object V534; |
2847 |
register object V485; |
register object V535; |
2848 |
V484= (V467); |
V534= (V517); |
2849 |
V485= CMPcar((V484)); |
V535= CMPcar((V534)); |
2850 |
goto T888; |
goto T888; |
2851 |
T888:; |
T888:; |
2852 |
if(!(((V484))==Cnil)){ |
if(!(((V534))==Cnil)){ |
2853 |
goto T889;} |
goto T889;} |
2854 |
goto T884; |
goto T884; |
2855 |
goto T889; |
goto T889; |
2856 |
T889:; |
T889:; |
2857 |
{register object V486; |
{register object V536; |
2858 |
register object V487; |
register object V537; |
2859 |
object V488; |
object V538; |
2860 |
V486= CMPcar((V485)); |
V536= CMPcar((V535)); |
2861 |
{register object x= (V486),V490= (V469); |
{register object x= (V536),V540= (V519); |
2862 |
while(V490!=Cnil) |
while(V540!=Cnil) |
2863 |
if(eql(x,V490->c.c_car->c.c_car) &&V490->c.c_car != Cnil){ |
if(eql(x,V540->c.c_car->c.c_car) &&V540->c.c_car != Cnil){ |
2864 |
V489= (V490->c.c_car); |
V539= (V540->c.c_car); |
2865 |
goto T896; |
goto T896; |
2866 |
}else V490=V490->c.c_cdr; |
}else V540=V540->c.c_cdr; |
2867 |
V489= Cnil;} |
V539= Cnil;} |
2868 |
goto T896; |
goto T896; |
2869 |
T896:; |
T896:; |
2870 |
V487= CMPcdr(V489); |
V537= CMPcdr(V539); |
2871 |
V488= CMPcadr((V485)); |
V538= CMPcadr((V535)); |
2872 |
{register object x= (V487),V491= (V470); |
{register object x= (V537),V541= (V520); |
2873 |
while(V491!=Cnil) |
while(V541!=Cnil) |
2874 |
if(eql(x,V491->c.c_car)){ |
if(eql(x,V541->c.c_car)){ |
2875 |
goto T893; |
goto T893; |
2876 |
}else V491=V491->c.c_cdr;} |
}else V541=V541->c.c_cdr;} |
2877 |
V492= list(2,VV[114],(V488)); |
V542= list(2,VV[114],(V538)); |
2878 |
V493= list(2,/* INLINE-ARGS */V492,list(2,VV[145],(V486))); |
V543= list(2,/* INLINE-ARGS */V542,list(2,VV[145],(V536))); |
2879 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V493,(V466))); |
(void)((*(LnkLI284))(/* INLINE-ARGS */V543,(V516))); |
2880 |
V468= make_cons(V486,(V468)); |
V518= make_cons(V536,(V518)); |
2881 |
V470= make_cons(V487,(V470));} |
V520= make_cons(V537,(V520));} |
2882 |
goto T893; |
goto T893; |
2883 |
T893:; |
T893:; |
2884 |
V484= CMPcdr((V484)); |
V534= CMPcdr((V534)); |
2885 |
V485= CMPcar((V484)); |
V535= CMPcar((V534)); |
2886 |
goto T888;} |
goto T888;} |
2887 |
goto T884; |
goto T884; |
2888 |
T884:; |
T884:; |
2889 |
if(((V465))==Cnil){ |
if(((V515))==Cnil){ |
2890 |
goto T909;} |
goto T909;} |
2891 |
V496= list(3,VV[146],(V463),(VFUN_NARGS=3,(*(LnkLI39))((V463),(V468),Cnil))); |
V546 = (V513); |
2892 |
V497= make_cons(/* INLINE-ARGS */V496,Cnil); |
V547= list(3,VV[146],V546,(VFUN_NARGS=3,(*(LnkLI39))((V513),(V518),Cnil))); |
2893 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V497,(V466))); |
V548= make_cons(/* INLINE-ARGS */V547,Cnil); |
2894 |
|
(void)((*(LnkLI284))(/* INLINE-ARGS */V548,(V516))); |
2895 |
goto T909; |
goto T909; |
2896 |
T909:; |
T909:; |
2897 |
(void)((*(LnkLI284))(VV[147],(V466))); |
(void)((*(LnkLI284))(VV[147],(V516))); |
2898 |
base[3]= CMPcar((V466)); |
base[3]= CMPcar((V516)); |
2899 |
base[4]= (V468); |
base[4]= (V518); |
2900 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2901 |
return;} |
return;} |
2902 |
} |
} |
2907 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2908 |
register object *sup=base+VM47; VC47 |
register object *sup=base+VM47; VC47 |
2909 |
vs_check; |
vs_check; |
2910 |
{object V498; |
{object V549; |
2911 |
object V499; |
object V550; |
2912 |
object V500; |
object V551; |
2913 |
object V501; |
object V552; |
2914 |
check_arg(4); |
check_arg(4); |
2915 |
V498=(base[0]); |
V549=(base[0]); |
2916 |
V499=(base[1]); |
V550=(base[1]); |
2917 |
V500=(base[2]); |
V551=(base[2]); |
2918 |
V501=(base[3]); |
V552=(base[3]); |
2919 |
vs_top=sup; |
vs_top=sup; |
2920 |
goto TTL; |
goto TTL; |
2921 |
TTL:; |
TTL:; |
2922 |
{object V502; |
{object V553; |
2923 |
object V503; |
object V554; |
2924 |
object V504; |
object V555; |
2925 |
object V505; |
object V556; |
2926 |
object V506; |
object V557; |
2927 |
object V507; |
object V558; |
2928 |
object V508; |
object V559; |
2929 |
object V509; |
object V560; |
2930 |
V502= make_cons(Cnil,Cnil); |
V553= make_cons(Cnil,Cnil); |
2931 |
base[12]= (V498); |
base[12]= (V549); |
2932 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2933 |
(void) (*Lnk270)(Lclptr270); |
(void) (*Lnk270)(Lclptr270); |
2934 |
vs_top=sup; |
vs_top=sup; |
2935 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2936 |
goto T918;} |
goto T918;} |
2937 |
V503= VV[148]; |
V554= VV[148]; |
2938 |
goto T916; |
goto T916; |
2939 |
goto T918; |
goto T918; |
2940 |
T918:; |
T918:; |
2941 |
base[12]= (V498); |
base[12]= (V549); |
2942 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2943 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk272)(Lclptr272); |
2944 |
vs_top=sup; |
vs_top=sup; |
2945 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2946 |
goto T922;} |
goto T922;} |
2947 |
V503= VV[149]; |
V554= VV[149]; |
2948 |
goto T916; |
goto T916; |
2949 |
goto T922; |
goto T922; |
2950 |
T922:; |
T922:; |
2951 |
base[12]= (V498); |
base[12]= (V549); |
2952 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2953 |
(void) (*Lnk274)(Lclptr274); |
(void) (*Lnk274)(Lclptr274); |
2954 |
vs_top=sup; |
vs_top=sup; |
2955 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2956 |
goto T926;} |
goto T926;} |
2957 |
V503= VV[150]; |
V554= VV[150]; |
2958 |
goto T916; |
goto T916; |
2959 |
goto T926; |
goto T926; |
2960 |
T926:; |
T926:; |
2962 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2963 |
Lerror(); |
Lerror(); |
2964 |
vs_top=sup; |
vs_top=sup; |
2965 |
V503= vs_base[0]; |
V554= vs_base[0]; |
2966 |
goto T916; |
goto T916; |
2967 |
T916:; |
T916:; |
2968 |
base[12]= (V498); |
base[12]= (V549); |
2969 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2970 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk243)(Lclptr243); |
2971 |
vs_top=sup; |
vs_top=sup; |
2972 |
V504= vs_base[0]; |
V555= vs_base[0]; |
2973 |
if(((V501))==Cnil){ |
if(((V552))==Cnil){ |
2974 |
goto T934;} |
goto T934;} |
2975 |
base[12]= ((V504))->v.v_self[12]; |
base[12]= ((V555))->v.v_self[12]; |
2976 |
base[13]= VV[152]; |
base[13]= VV[152]; |
2977 |
base[14]= (VV[153]->s.s_dbind); |
base[14]= (VV[153]->s.s_dbind); |
2978 |
vs_top=(vs_base=base+12)+3; |
vs_top=(vs_base=base+12)+3; |
2979 |
(void) (*Lnk285)(); |
(void) (*Lnk285)(); |
2980 |
vs_top=sup; |
vs_top=sup; |
2981 |
V505= vs_base[0]; |
V556= vs_base[0]; |
2982 |
goto T932; |
goto T932; |
2983 |
goto T934; |
goto T934; |
2984 |
T934:; |
T934:; |
2985 |
V505= Cnil; |
V556= Cnil; |
2986 |
goto T932; |
goto T932; |
2987 |
T932:; |
T932:; |
2988 |
base[12]= (V498); |
base[12]= (V549); |
2989 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2990 |
(void) (*Lnk282)(Lclptr282); |
(void) (*Lnk282)(Lclptr282); |
2991 |
vs_top=sup; |
vs_top=sup; |
2992 |
V506= vs_base[0]; |
V557= vs_base[0]; |
2993 |
base[13]=VV[286]->s.s_gfdef; |
base[13]=VV[286]->s.s_gfdef; |
2994 |
{object V510; |
{object V561; |
2995 |
object V511= (V506); |
object V562= (V557); |
2996 |
if(V511==Cnil){ |
if(V562==Cnil){ |
2997 |
V507= Cnil; |
V558= Cnil; |
2998 |
goto T941;} |
goto T941;} |
2999 |
base[12]=V510=MMcons(Cnil,Cnil); |
base[12]=V561=MMcons(Cnil,Cnil); |
3000 |
goto T942; |
goto T942; |
3001 |
T942:; |
T942:; |
3002 |
base[14]= (V511->c.c_car); |
base[14]= (V562->c.c_car); |
3003 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
3004 |
(void) (*Lnk286)(Lclptr286); |
(void) (*Lnk286)(Lclptr286); |
3005 |
vs_top=sup; |
vs_top=sup; |
3006 |
(V510->c.c_car)= vs_base[0]; |
(V561->c.c_car)= vs_base[0]; |
3007 |
if((V511=MMcdr(V511))==Cnil){ |
if((V562=MMcdr(V562))==Cnil){ |
3008 |
V507= base[12]; |
V558= base[12]; |
3009 |
goto T941;} |
goto T941;} |
3010 |
V510=MMcdr(V510)=MMcons(Cnil,Cnil); |
V561=MMcdr(V561)=MMcons(Cnil,Cnil); |
3011 |
goto T942;} |
goto T942;} |
3012 |
goto T941; |
goto T941; |
3013 |
T941:; |
T941:; |
3014 |
{object V512; |
{object V563; |
3015 |
object V513= (V506); |
object V564= (V557); |
3016 |
if(V513==Cnil){ |
if(V564==Cnil){ |
3017 |
V508= Cnil; |
V559= Cnil; |
3018 |
goto T945;} |
goto T945;} |
3019 |
base[12]=V512=MMcons(Cnil,Cnil); |
base[12]=V563=MMcons(Cnil,Cnil); |
3020 |
goto T946; |
goto T946; |
3021 |
T946:; |
T946:; |
3022 |
{object V515; |
{object V566; |
3023 |
V515= VV[154]; |
V566= VV[154]; |
3024 |
{register object V516; |
{register object V567; |
3025 |
object V517; |
object V568; |
3026 |
base[15]= (V513->c.c_car); |
base[15]= (V564->c.c_car); |
3027 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
3028 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk283)(Lclptr283); |
3029 |
vs_top=sup; |
vs_top=sup; |
3030 |
V516= vs_base[0]; |
V567= vs_base[0]; |
3031 |
V517= CMPcar((V516)); |
V568= CMPcar((V567)); |
3032 |
goto T953; |
goto T953; |
3033 |
T953:; |
T953:; |
3034 |
if(!(((V516))==Cnil)){ |
if(!(((V567))==Cnil)){ |
3035 |
goto T954;} |
goto T954;} |
3036 |
goto T948; |
goto T948; |
3037 |
goto T954; |
goto T954; |
3038 |
T954:; |
T954:; |
3039 |
{object V518; |
{object V569; |
3040 |
base[15]= (V517); |
base[15]= (V568); |
3041 |
base[16]= (V499); |
base[16]= (V550); |
3042 |
vs_top=(vs_base=base+15)+2; |
vs_top=(vs_base=base+15)+2; |
3043 |
(void) (*Lnk287)(); |
(void) (*Lnk287)(); |
3044 |
vs_top=sup; |
vs_top=sup; |
3045 |
V518= vs_base[0]; |
V569= vs_base[0]; |
3046 |
if(((V518))==Cnil){ |
if(((V569))==Cnil){ |
3047 |
goto T958;} |
goto T958;} |
3048 |
V515= (number_compare((V515),(V518))<=0?((V515)):(V518));} |
V566= (number_compare((V566),(V569))<=0?((V566)):(V569));} |
3049 |
goto T958; |
goto T958; |
3050 |
T958:; |
T958:; |
3051 |
V516= CMPcdr((V516)); |
V567= CMPcdr((V567)); |
3052 |
V517= CMPcar((V516)); |
V568= CMPcar((V567)); |
3053 |
goto T953;} |
goto T953;} |
3054 |
goto T948; |
goto T948; |
3055 |
T948:; |
T948:; |
3056 |
(V512->c.c_car)= make_cons((V513->c.c_car),(V515));} |
(V563->c.c_car)= make_cons((V564->c.c_car),(V566));} |
3057 |
if((V513=MMcdr(V513))==Cnil){ |
if((V564=MMcdr(V564))==Cnil){ |
3058 |
V508= base[12]; |
V559= base[12]; |
3059 |
goto T945;} |
goto T945;} |
3060 |
V512=MMcdr(V512)=MMcons(Cnil,Cnil); |
V563=MMcdr(V563)=MMcons(Cnil,Cnil); |
3061 |
goto T946;} |
goto T946;} |
3062 |
goto T945; |
goto T945; |
3063 |
T945:; |
T945:; |
3064 |
base[12]= (V508); |
base[12]= (V559); |
3065 |
base[13]= (VV[288]->s.s_gfdef); |
base[13]= (VV[288]->s.s_gfdef); |
3066 |
base[14]= VV[155]; |
base[14]= VV[155]; |
3067 |
base[15]= (VV[189]->s.s_gfdef); |
base[15]= (VV[189]->s.s_gfdef); |
3068 |
vs_top=(vs_base=base+12)+4; |
vs_top=(vs_base=base+12)+4; |
3069 |
(void) (*Lnk289)(); |
(void) (*Lnk289)(); |
3070 |
vs_top=sup; |
vs_top=sup; |
3071 |
V509= vs_base[0]; |
V560= vs_base[0]; |
3072 |
{long V519; |
{long V570; |
3073 |
V519= 0; |
V570= 0; |
3074 |
{register object V520; |
{register object V571; |
3075 |
register object V521; |
register object V572; |
3076 |
V520= (V509); |
V571= (V560); |
3077 |
V521= CMPcar((V520)); |
V572= CMPcar((V571)); |
3078 |
goto T980; |
goto T980; |
3079 |
T980:; |
T980:; |
3080 |
if(!(((V520))==Cnil)){ |
if(!(((V571))==Cnil)){ |
3081 |
goto T981;} |
goto T981;} |
3082 |
goto T975; |
goto T975; |
3083 |
goto T981; |
goto T981; |
3084 |
T981:; |
T981:; |
3085 |
{object V522; |
{object V573; |
3086 |
object V523; |
object V574; |
3087 |
register long V524; |
register long V575; |
3088 |
V522= CMPcar((V521)); |
V573= CMPcar((V572)); |
3089 |
base[15]= (V522); |
base[15]= (V573); |
3090 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
3091 |
(void) (*Lnk286)(Lclptr286); |
(void) (*Lnk286)(Lclptr286); |
3092 |
vs_top=sup; |
vs_top=sup; |
3093 |
V523= vs_base[0]; |
V574= vs_base[0]; |
3094 |
V525= CMPcdr((V521)); |
V576= CMPcdr((V572)); |
3095 |
V526 = CMPmake_fixnum(V519); |
V577 = CMPmake_fixnum(V570); |
3096 |
V527= number_minus(/* INLINE-ARGS */V525,V526); |
V578= number_minus(/* INLINE-ARGS */V576,V577); |
3097 |
V524= fix(one_plus(/* INLINE-ARGS */V527)); |
V575= fix(one_plus(/* INLINE-ARGS */V578)); |
3098 |
if(eql(CMPcdr((V521)),VV[154])){ |
if(eql(CMPcdr((V572)),VV[154])){ |
3099 |
goto T985;} |
goto T985;} |
3100 |
{object V528; |
{object V579; |
3101 |
base[16]= (V523); |
base[16]= (V574); |
3102 |
base[17]= (V507); |
base[17]= (V558); |
3103 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
3104 |
(void) (*Lnk287)(); |
(void) (*Lnk287)(); |
3105 |
vs_top=sup; |
vs_top=sup; |
3106 |
V529= vs_base[0]; |
V580= vs_base[0]; |
3107 |
V528= one_plus(V529); |
V579= one_plus(V580); |
3108 |
if(!((V524)>0)){ |
if(!((V575)>0)){ |
3109 |
goto T999;} |
goto T999;} |
3110 |
V531 = CMPmake_fixnum((long)(2)*(V524)); |
V582 = CMPmake_fixnum((long)(2)*(V575)); |
3111 |
V532= list(2,VV[156],V531); |
V583= list(2,VV[156],V582); |
3112 |
V530= make_cons(/* INLINE-ARGS */V532,Cnil); |
V581= make_cons(/* INLINE-ARGS */V583,Cnil); |
3113 |
goto T997; |
goto T997; |
3114 |
goto T999; |
goto T999; |
3115 |
T999:; |
T999:; |
3116 |
V530= Cnil; |
V581= Cnil; |
3117 |
goto T997; |
goto T997; |
3118 |
T997:; |
T997:; |
3119 |
V533= list(3,VV[157],(V528),(V522)); |
V584= list(3,VV[157],(V579),(V573)); |
3120 |
V534= make_cons(/* INLINE-ARGS */V533,Cnil); |
V585= make_cons(/* INLINE-ARGS */V584,Cnil); |
3121 |
V535= append(V530,/* INLINE-ARGS */V534); |
V586= append(V581,/* INLINE-ARGS */V585); |
3122 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V535,(V502)));} |
(void)((*(LnkLI284))(/* INLINE-ARGS */V586,(V553)));} |
3123 |
V519= (long)(V519)+(V524);} |
V570= (long)(V570)+(V575);} |
3124 |
goto T985; |
goto T985; |
3125 |
T985:; |
T985:; |
3126 |
V520= CMPcdr((V520)); |
V571= CMPcdr((V571)); |
3127 |
V521= CMPcar((V520)); |
V572= CMPcar((V571)); |
3128 |
goto T980;}} |
goto T980;}} |
3129 |
goto T975; |
goto T975; |
3130 |
T975:; |
T975:; |
3131 |
{register object V536; |
{register object V587; |
3132 |
object V537; |
object V588; |
3133 |
V536= (V509); |
V587= (V560); |
3134 |
V537= CMPcar((V536)); |
V588= CMPcar((V587)); |
3135 |
goto T1011; |
goto T1011; |
3136 |
T1011:; |
T1011:; |
3137 |
if(!(((V536))==Cnil)){ |
if(!(((V587))==Cnil)){ |
3138 |
goto T1012;} |
goto T1012;} |
3139 |
goto T1007; |
goto T1007; |
3140 |
goto T1012; |
goto T1012; |
3141 |
T1012:; |
T1012:; |
3142 |
{register object V538; |
{register object V589; |
3143 |
object V539; |
object V590; |
3144 |
V538= CMPcar((V537)); |
V589= CMPcar((V588)); |
3145 |
base[15]= (V538); |
base[15]= (V589); |
3146 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
3147 |
(void) (*Lnk286)(Lclptr286); |
(void) (*Lnk286)(Lclptr286); |
3148 |
vs_top=sup; |
vs_top=sup; |
3149 |
V539= vs_base[0]; |
V590= vs_base[0]; |
3150 |
if(!(eql(CMPcdr((V537)),VV[154]))){ |
if(!(eql(CMPcdr((V588)),VV[154]))){ |
3151 |
goto T1016;} |
goto T1016;} |
3152 |
if(((V500))==(Ct)){ |
if(((V551))==(Ct)){ |
3153 |
goto T1020;} |
goto T1020;} |
3154 |
{register object x= (V539),V540= (V500); |
{register object x= (V590),V591= (V551); |
3155 |
while(V540!=Cnil) |
while(V591!=Cnil) |
3156 |
if(eql(x,V540->c.c_car)){ |
if(eql(x,V591->c.c_car)){ |
3157 |
goto T1025; |
goto T1025; |
3158 |
}else V540=V540->c.c_cdr; |
}else V591=V591->c.c_cdr; |
3159 |
goto T1016;} |
goto T1016;} |
3160 |
goto T1025; |
goto T1025; |
3161 |
T1025:; |
T1025:; |
3162 |
goto T1020; |
goto T1020; |
3163 |
T1020:; |
T1020:; |
3164 |
{object V541; |
{object V592; |
3165 |
object V542; |
object V593; |
3166 |
object V543; |
object V594; |
3167 |
register object V544; |
register object V595; |
3168 |
register object V545; |
register object V596; |
3169 |
base[20]= (V538); |
base[20]= (V589); |
3170 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3171 |
(void) (*Lnk290)(Lclptr290); |
(void) (*Lnk290)(Lclptr290); |
3172 |
vs_top=sup; |
vs_top=sup; |
3173 |
V541= vs_base[0]; |
V592= vs_base[0]; |
3174 |
base[20]= (V538); |
base[20]= (V589); |
3175 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3176 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk291)(Lclptr291); |
3177 |
vs_top=sup; |
vs_top=sup; |
3178 |
V542= vs_base[0]; |
V593= vs_base[0]; |
3179 |
if(((V503))==(VV[148])){ |
if(((V554))==(VV[148])){ |
3180 |
goto T1032;} |
goto T1032;} |
3181 |
base[20]= (V538); |
base[20]= (V589); |
3182 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3183 |
(void) (*Lnk292)(Lclptr292); |
(void) (*Lnk292)(Lclptr292); |
3184 |
vs_top=sup; |
vs_top=sup; |
3185 |
V543= vs_base[0]; |
V594= vs_base[0]; |
3186 |
goto T1030; |
goto T1030; |
3187 |
goto T1032; |
goto T1032; |
3188 |
T1032:; |
T1032:; |
3189 |
V543= Cnil; |
V594= Cnil; |
3190 |
goto T1030; |
goto T1030; |
3191 |
T1030:; |
T1030:; |
3192 |
base[20]= (V539); |
base[20]= (V590); |
3193 |
base[21]= (V507); |
base[21]= (V558); |
3194 |
vs_top=(vs_base=base+20)+2; |
vs_top=(vs_base=base+20)+2; |
3195 |
(void) (*Lnk287)(); |
(void) (*Lnk287)(); |
3196 |
vs_top=sup; |
vs_top=sup; |
3197 |
V546= vs_base[0]; |
V597= vs_base[0]; |
3198 |
V544= one_plus(V546); |
V595= one_plus(V597); |
3199 |
if(((V542))!=Cnil){ |
if(((V593))!=Cnil){ |
3200 |
goto T1041;} |
goto T1041;} |
3201 |
V545= Cnil; |
V596= Cnil; |
3202 |
goto T1039; |
goto T1039; |
3203 |
goto T1041; |
goto T1041; |
3204 |
T1041:; |
T1041:; |
3205 |
base[20]= (V541); |
base[20]= (V592); |
3206 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3207 |
Lconstantp(); |
Lconstantp(); |
3208 |
vs_top=sup; |
vs_top=sup; |
3209 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3210 |
goto T1044;} |
goto T1044;} |
3211 |
{object V547; |
{object V598; |
3212 |
V547= ( |
V598= ( |
3213 |
(type_of((V542)) == t_sfun ?(*(((V542))->sfn.sfn_self)): |
(type_of((V593)) == t_sfun ?(*(((V593))->sfn.sfn_self)): |
3214 |
(fcall.argd=0,type_of((V542))==t_vfun) ? |
(fcall.argd=0,type_of((V593))==t_vfun) ? |
3215 |
(*(((V542))->sfn.sfn_self)): |
(*(((V593))->sfn.sfn_self)): |
3216 |
(fcall.fun=((V542)),fcalln))()); |
(fcall.fun=((V593)),fcalln))()); |
3217 |
if(((V501))==Cnil){ |
if(((V552))==Cnil){ |
3218 |
goto T1049;} |
goto T1049;} |
3219 |
if(!(type_of((V543))==t_fixnum||type_of((V543))==t_bignum)){ |
if(!(type_of((V594))==t_fixnum||type_of((V594))==t_bignum)){ |
3220 |
goto T1049;} |
goto T1049;} |
3221 |
(void)((((V505))->v.v_self[fix((V543))]=((V547)))); |
(void)((((V556))->v.v_self[fix((V594))]=((V598)))); |
3222 |
V545= Cnil; |
V596= Cnil; |
3223 |
goto T1039; |
goto T1039; |
3224 |
goto T1049; |
goto T1049; |
3225 |
T1049:; |
T1049:; |
3226 |
V548= list(2,VV[158],(V547)); |
V599= list(2,VV[158],(V598)); |
3227 |
V545= list(2,/* INLINE-ARGS */V548,list(3,VV[157],(V544),(V538))); |
V596= list(2,/* INLINE-ARGS */V599,list(3,VV[157],(V595),(V589))); |
3228 |
goto T1039;} |
goto T1039;} |
3229 |
goto T1044; |
goto T1044; |
3230 |
T1044:; |
T1044:; |
3231 |
base[20]= (V538); |
base[20]= (V589); |
3232 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3233 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk291)(Lclptr291); |
3234 |
vs_top=sup; |
vs_top=sup; |
3235 |
V549= vs_base[0]; |
V600= vs_base[0]; |
3236 |
V550= list(2,VV[114],V549); |
V601= list(2,VV[114],V600); |
3237 |
V545= list(2,/* INLINE-ARGS */V550,list(3,VV[157],(V544),(V538))); |
V596= list(2,/* INLINE-ARGS */V601,list(3,VV[157],(V595),(V589))); |
3238 |
goto T1039; |
goto T1039; |
3239 |
T1039:; |
T1039:; |
3240 |
if(((V501))!=Cnil){ |
if(((V552))!=Cnil){ |
3241 |
goto T1058;} |
goto T1058;} |
3242 |
if(((V545))==Cnil){ |
if(((V596))==Cnil){ |
3243 |
goto T1058;} |
goto T1058;} |
3244 |
V552 = CMPmake_fixnum((long)length((V545))); |
V603 = CMPmake_fixnum((long)length((V596))); |
3245 |
V553= list(4,VV[159],(V544),(V538),V552); |
V604= list(4,VV[159],(V595),(V589),V603); |
3246 |
V551= make_cons(/* INLINE-ARGS */V553,Cnil); |
V602= make_cons(/* INLINE-ARGS */V604,Cnil); |
3247 |
goto T1056; |
goto T1056; |
3248 |
goto T1058; |
goto T1058; |
3249 |
T1058:; |
T1058:; |
3250 |
V551= Cnil; |
V602= Cnil; |
3251 |
goto T1056; |
goto T1056; |
3252 |
T1056:; |
T1056:; |
3253 |
V554= append(V551,(V545)); |
V605 = (V596); |
3254 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V554,(V502)));}} |
V606= append(V602,V605); |
3255 |
|
(void)((*(LnkLI284))(/* INLINE-ARGS */V606,(V553)));}} |
3256 |
goto T1016; |
goto T1016; |
3257 |
T1016:; |
T1016:; |
3258 |
V536= CMPcdr((V536)); |
V587= CMPcdr((V587)); |
3259 |
V537= CMPcar((V536)); |
V588= CMPcar((V587)); |
3260 |
goto T1011;} |
goto T1011;} |
3261 |
goto T1007; |
goto T1007; |
3262 |
T1007:; |
T1007:; |
3263 |
base[12]= CMPcar((V502)); |
base[12]= CMPcar((V553)); |
3264 |
base[13]= (V505); |
base[13]= (V556); |
3265 |
vs_top=(vs_base=base+12)+2; |
vs_top=(vs_base=base+12)+2; |
3266 |
return;} |
return;} |
3267 |
} |
} |
3268 |
} |
} |
3269 |
/* local entry for function GET-PV-CELL-FOR-CLASS */ |
/* local entry for function GET-PV-CELL-FOR-CLASS */ |
3270 |
|
|
3271 |
static object LI51(V556) |
static object LI51(V608) |
3272 |
|
|
3273 |
register object V556; |
register object V608; |
3274 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
3275 |
goto TTL; |
goto TTL; |
3276 |
TTL:; |
TTL:; |
3277 |
{object V557; |
{object V609; |
3278 |
object V558; |
object V610; |
3279 |
register object V559; |
register object V611; |
3280 |
base[4]=VV[286]->s.s_gfdef; |
base[4]=VV[286]->s.s_gfdef; |
3281 |
base[5]= (V556); |
base[5]= (V608); |
3282 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3283 |
(void) (*Lnk282)(Lclptr282); |
(void) (*Lnk282)(Lclptr282); |
3284 |
vs_top=sup; |
vs_top=sup; |
3285 |
V562= vs_base[0]; |
V614= vs_base[0]; |
3286 |
{object V560; |
{object V612; |
3287 |
object V561= V562; |
object V613= V614; |
3288 |
if(V561==Cnil){ |
if(V613==Cnil){ |
3289 |
V557= Cnil; |
V609= Cnil; |
3290 |
goto T1069;} |
goto T1069;} |
3291 |
base[3]=V560=MMcons(Cnil,Cnil); |
base[3]=V612=MMcons(Cnil,Cnil); |
3292 |
goto T1070; |
goto T1070; |
3293 |
T1070:; |
T1070:; |
3294 |
base[5]= (V561->c.c_car); |
base[5]= (V613->c.c_car); |
3295 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3296 |
(void) (*Lnk286)(Lclptr286); |
(void) (*Lnk286)(Lclptr286); |
3297 |
vs_top=sup; |
vs_top=sup; |
3298 |
(V560->c.c_car)= vs_base[0]; |
(V612->c.c_car)= vs_base[0]; |
3299 |
if((V561=MMcdr(V561))==Cnil){ |
if((V613=MMcdr(V613))==Cnil){ |
3300 |
V557= base[3]; |
V609= base[3]; |
3301 |
goto T1069;} |
goto T1069;} |
3302 |
V560=MMcdr(V560)=MMcons(Cnil,Cnil); |
V612=MMcdr(V612)=MMcons(Cnil,Cnil); |
3303 |
goto T1070;} |
goto T1070;} |
3304 |
goto T1069; |
goto T1069; |
3305 |
T1069:; |
T1069:; |
3306 |
V563= make_cons(Cnil,(V557)); |
V615= make_cons(Cnil,(V609)); |
3307 |
V558= make_cons(/* INLINE-ARGS */V563,Cnil); |
V610= make_cons(/* INLINE-ARGS */V615,Cnil); |
3308 |
base[3]= (V556); |
base[3]= (V608); |
3309 |
base[4]= (VV[160]->s.s_dbind); |
base[4]= (VV[160]->s.s_dbind); |
3310 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3311 |
Lgethash(); |
Lgethash(); |
3312 |
vs_top=sup; |
vs_top=sup; |
3313 |
V559= vs_base[0]; |
V611= vs_base[0]; |
3314 |
if(((V559))==Cnil){ |
if(((V611))==Cnil){ |
3315 |
goto T1080;} |
goto T1080;} |
3316 |
if(equal((V558),STREF(object,(V559),8))){ |
if(equal((V610),STREF(object,(V611),8))){ |
3317 |
goto T1079;} |
goto T1079;} |
3318 |
goto T1080; |
goto T1080; |
3319 |
T1080:; |
T1080:; |
3320 |
V559= (VFUN_NARGS=2,(*(LnkLI293))(VV[162],(V558))); |
V611= (VFUN_NARGS=2,(*(LnkLI293))(VV[162],(V610))); |
3321 |
{object V565; |
{object V617; |
3322 |
V565= (VV[160]->s.s_dbind); |
V617= (VV[160]->s.s_dbind); |
3323 |
base[3]= V556; |
base[3]= V608; |
3324 |
base[4]= (V565); |
base[4]= (V617); |
3325 |
base[5]= V559; |
base[5]= V611; |
3326 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3327 |
siLhash_set(); |
siLhash_set(); |
3328 |
vs_top=sup;} |
vs_top=sup;} |
3329 |
goto T1079; |
goto T1079; |
3330 |
T1079:; |
T1079:; |
3331 |
base[3]= (V556); |
V619 = (V611); |
3332 |
|
base[3]= (V608); |
3333 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3334 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk243)(Lclptr243); |
3335 |
vs_top=sup; |
vs_top=sup; |
3336 |
V567= vs_base[0]; |
V620= vs_base[0]; |
3337 |
{object V568 = (*(LnkLI294))((V559),V567); |
{object V621 = (*(LnkLI294))(V619,V620); |
3338 |
VMR48(V568)}} |
VMR48(V621)}} |
3339 |
base[0]=base[0]; |
base[0]=base[0]; |
3340 |
return Cnil; |
return Cnil; |
3341 |
} |
} |
3345 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3346 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM49; VC49 |
3347 |
vs_check; |
vs_check; |
3348 |
{object V569; |
{object V622; |
3349 |
object V570; |
object V623; |
3350 |
object V571; |
object V624; |
3351 |
object V572; |
object V625; |
3352 |
check_arg(4); |
check_arg(4); |
3353 |
V569=(base[0]); |
V622=(base[0]); |
3354 |
V570=(base[1]); |
V623=(base[1]); |
3355 |
V571=(base[2]); |
V624=(base[2]); |
3356 |
V572=(base[3]); |
V625=(base[3]); |
3357 |
vs_top=sup; |
vs_top=sup; |
3358 |
goto TTL; |
goto TTL; |
3359 |
TTL:; |
TTL:; |
3360 |
{object V573; |
{object V626; |
3361 |
object V574; |
object V627; |
3362 |
register object V575; |
register object V628; |
3363 |
V573= (*(LnkLI295))((V571)); |
V626= (*(LnkLI295))((V624)); |
3364 |
V574= STREF(object,(V570),0); |
V627= STREF(object,(V623),0); |
3365 |
base[7]= CMPcar((V574)); |
V629 = (V622); |
3366 |
|
base[7]= CMPcar((V627)); |
3367 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3368 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
3369 |
vs_top=sup; |
vs_top=sup; |
3370 |
V576= vs_base[0]; |
V630= vs_base[0]; |
3371 |
V575= listA(3,(V569),V576,CMPcdr((V574))); |
V628= listA(3,V629,V630,CMPcdr((V627))); |
3372 |
if(((VV[163]->s.s_dbind))!=Cnil){ |
if(((VV[163]->s.s_dbind))!=Cnil){ |
3373 |
goto T1097;} |
goto T1097;} |
3374 |
base[7]= (V575); |
base[7]= (V628); |
3375 |
base[8]= (VV[164]->s.s_dbind); |
base[8]= (VV[164]->s.s_dbind); |
3376 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
3377 |
Lgethash(); |
Lgethash(); |
3380 |
goto T1098;} |
goto T1098;} |
3381 |
goto T1097; |
goto T1097; |
3382 |
T1097:; |
T1097:; |
3383 |
{object V577; |
{object V631; |
3384 |
object V578; |
object V632; |
3385 |
base[7]= (V573); |
base[7]= (V626); |
3386 |
base[8]= (V572); |
base[8]= (V625); |
3387 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
3388 |
(void) (*Lnk296)(); |
(void) (*Lnk296)(); |
3389 |
if(vs_base>=vs_top){vs_top=sup;goto T1107;} |
if(vs_base>=vs_top){vs_top=sup;goto T1107;} |
3390 |
V577= vs_base[0]; |
V631= vs_base[0]; |
3391 |
vs_base++; |
vs_base++; |
3392 |
if(vs_base>=vs_top){vs_top=sup;goto T1108;} |
if(vs_base>=vs_top){vs_top=sup;goto T1108;} |
3393 |
V578= vs_base[0]; |
V632= vs_base[0]; |
3394 |
vs_top=sup; |
vs_top=sup; |
3395 |
goto T1109; |
goto T1109; |
3396 |
goto T1107; |
goto T1107; |
3397 |
T1107:; |
T1107:; |
3398 |
V577= Cnil; |
V631= Cnil; |
3399 |
goto T1108; |
goto T1108; |
3400 |
T1108:; |
T1108:; |
3401 |
V578= Cnil; |
V632= Cnil; |
3402 |
goto T1109; |
goto T1109; |
3403 |
T1109:; |
T1109:; |
3404 |
{register object V579; |
{register object V633; |
3405 |
{register object x= (V577),V580= (VV[165]->s.s_dbind); |
{register object x= (V631),V634= (VV[165]->s.s_dbind); |
3406 |
while(V580!=Cnil) |
while(V634!=Cnil) |
3407 |
if(equal(x,V580->c.c_car->c.c_car) &&V580->c.c_car != Cnil){ |
if(equal(x,V634->c.c_car->c.c_car) &&V634->c.c_car != Cnil){ |
3408 |
V579= (V580->c.c_car); |
V633= (V634->c.c_car); |
3409 |
goto T1110; |
goto T1110; |
3410 |
}else V580=V580->c.c_cdr; |
}else V634=V634->c.c_cdr; |
3411 |
V579= Cnil;} |
V633= Cnil;} |
3412 |
goto T1110; |
goto T1110; |
3413 |
T1110:; |
T1110:; |
3414 |
{object V582; |
{object V636; |
3415 |
V582= (VV[164]->s.s_dbind); |
V636= (VV[164]->s.s_dbind); |
3416 |
base[7]= V575; |
base[7]= V628; |
3417 |
base[8]= (V582); |
base[8]= (V636); |
3418 |
base[9]= Ct; |
base[9]= Ct; |
3419 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
3420 |
siLhash_set(); |
siLhash_set(); |
3421 |
vs_top=sup;} |
vs_top=sup;} |
3422 |
if(((V579))==Cnil){ |
if(((V633))==Cnil){ |
3423 |
goto T1118;} |
goto T1118;} |
3424 |
{object V585; |
{object V639; |
3425 |
base[8]= make_cons((V575),Cnil); |
base[8]= make_cons((V628),Cnil); |
3426 |
base[9]= CMPcdddr((V579)); |
base[9]= CMPcdddr((V633)); |
3427 |
base[10]= VV[12]; |
base[10]= VV[12]; |
3428 |
base[11]= (VV[225]->s.s_gfdef); |
base[11]= (VV[225]->s.s_gfdef); |
3429 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
3430 |
(void) (*Lnk297)(); |
(void) (*Lnk297)(); |
3431 |
vs_top=sup; |
vs_top=sup; |
3432 |
V585= vs_base[0]; |
V639= vs_base[0]; |
3433 |
(CMPcddr(V579))->c.c_cdr = (V585); |
(CMPcddr(V633))->c.c_cdr = (V639); |
3434 |
(void)(CMPcddr(V579)); |
(void)(CMPcddr(V633)); |
3435 |
goto T1116;} |
goto T1116;} |
3436 |
goto T1118; |
goto T1118; |
3437 |
T1118:; |
T1118:; |
3438 |
V579= listA(4,(V577),Cnil,Cnil,make_cons((V575),Cnil));{object V586; |
V633= listA(4,(V631),Cnil,Cnil,make_cons((V628),Cnil));{object V640; |
3439 |
V586= (VV[165]->s.s_dbind); |
V640= (VV[165]->s.s_dbind); |
3440 |
V587= make_cons((V579),Cnil); |
V641= make_cons((V633),Cnil); |
3441 |
(VV[165]->s.s_dbind)= nconc(V586,/* INLINE-ARGS */V587);} |
(VV[165]->s.s_dbind)= nconc(V640,/* INLINE-ARGS */V641);} |
3442 |
goto T1116; |
goto T1116; |
3443 |
T1116:; |
T1116:; |
3444 |
if(((VV[166]->s.s_dbind))!=Cnil){ |
if(((VV[166]->s.s_dbind))!=Cnil){ |
3445 |
goto T1129;} |
goto T1129;} |
3446 |
if((CMPcadr((V579)))!=Cnil){ |
if((CMPcadr((V633)))!=Cnil){ |
3447 |
goto T1129;} |
goto T1129;} |
3448 |
{object V589; |
{object V643; |
3449 |
base[8]= CMPcar((V579)); |
base[8]= CMPcar((V633)); |
3450 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
3451 |
(void) (*Lnk298)(); |
(void) (*Lnk298)(); |
3452 |
vs_top=sup; |
vs_top=sup; |
3453 |
V589= vs_base[0]; |
V643= vs_base[0]; |
3454 |
(CMPcdr(V579))->c.c_car = (V589); |
(CMPcdr(V633))->c.c_car = (V643); |
3455 |
(void)(CMPcdr(V579));} |
(void)(CMPcdr(V633));} |
3456 |
goto T1129; |
goto T1129; |
3457 |
T1129:; |
T1129:; |
3458 |
if((CMPcadr((V579)))==Cnil){ |
if((CMPcadr((V633)))==Cnil){ |
3459 |
goto T1138;} |
goto T1138;} |
3460 |
base[7]= CMPcadr((V579)); |
base[7]= CMPcadr((V633)); |
3461 |
{object V590; |
{object V644; |
3462 |
V590= (V578); |
V644= (V632); |
3463 |
vs_top=base+8; |
vs_top=base+8; |
3464 |
while(V590!=Cnil) |
while(V644!=Cnil) |
3465 |
{vs_push((V590)->c.c_car);V590=(V590)->c.c_cdr;} |
{vs_push((V644)->c.c_car);V644=(V644)->c.c_cdr;} |
3466 |
vs_base=base+8;} |
vs_base=base+8;} |
3467 |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3468 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3471 |
return; |
return; |
3472 |
goto T1138; |
goto T1138; |
3473 |
T1138:; |
T1138:; |
3474 |
base[7]= list(3,VV[130],(V573),(V572)); |
base[7]= list(3,VV[130],(V626),(V625)); |
3475 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3476 |
return;}} |
return;}} |
3477 |
goto T1098; |
goto T1098; |
3478 |
T1098:; |
T1098:; |
3479 |
base[7]= list(3,VV[130],(V573),(V572)); |
base[7]= list(3,VV[130],(V626),(V625)); |
3480 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3481 |
return;} |
return;} |
3482 |
} |
} |
3483 |
} |
} |
3484 |
/* local entry for function LOAD-PRECOMPILED-IIS-ENTRY */ |
/* local entry for function LOAD-PRECOMPILED-IIS-ENTRY */ |
3485 |
|
|
3486 |
static object LI53(V595,V596,V597,V598) |
static object LI53(V649,V650,V651,V652) |
3487 |
|
|
3488 |
object V595;object V596;object V597;object V598; |
object V649;object V650;object V651;object V652; |
3489 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
3490 |
goto TTL; |
goto TTL; |
3491 |
TTL:; |
TTL:; |
3492 |
{object V599; |
{object V653; |
3493 |
{register object x= (V595),V600= (VV[165]->s.s_dbind); |
{register object x= (V649),V654= (VV[165]->s.s_dbind); |
3494 |
while(V600!=Cnil) |
while(V654!=Cnil) |
3495 |
if(equal(x,V600->c.c_car->c.c_car) &&V600->c.c_car != Cnil){ |
if(equal(x,V654->c.c_car->c.c_car) &&V654->c.c_car != Cnil){ |
3496 |
V599= (V600->c.c_car); |
V653= (V654->c.c_car); |
3497 |
goto T1142; |
goto T1142; |
3498 |
}else V600=V600->c.c_cdr; |
}else V654=V654->c.c_cdr; |
3499 |
V599= Cnil;} |
V653= Cnil;} |
3500 |
goto T1142; |
goto T1142; |
3501 |
T1142:; |
T1142:; |
3502 |
if(((V599))!=Cnil){ |
if(((V653))!=Cnil){ |
3503 |
goto T1143;} |
goto T1143;} |
3504 |
V599= listA(4,(V595),Cnil,Cnil,Cnil);{object V601; |
V653= listA(4,(V649),Cnil,Cnil,Cnil);{object V655; |
3505 |
V601= (VV[165]->s.s_dbind); |
V655= (VV[165]->s.s_dbind); |
3506 |
V602= make_cons((V599),Cnil); |
V656= make_cons((V653),Cnil); |
3507 |
(VV[165]->s.s_dbind)= nconc(V601,/* INLINE-ARGS */V602);} |
(VV[165]->s.s_dbind)= nconc(V655,/* INLINE-ARGS */V656);} |
3508 |
goto T1143; |
goto T1143; |
3509 |
T1143:; |
T1143:; |
3510 |
(CMPcdr(V599))->c.c_car = V596; |
(CMPcdr(V653))->c.c_car = V650; |
3511 |
(void)(CMPcdr(V599)); |
(void)(CMPcdr(V653)); |
3512 |
(CMPcddr(V599))->c.c_car = V597; |
(CMPcddr(V653))->c.c_car = V651; |
3513 |
(void)(CMPcddr(V599)); |
(void)(CMPcddr(V653)); |
3514 |
{register object V607; |
{register object V661; |
3515 |
register object V608; |
register object V662; |
3516 |
V607= (V598); |
V661= (V652); |
3517 |
V608= CMPcar((V607)); |
V662= CMPcar((V661)); |
3518 |
goto T1157; |
goto T1157; |
3519 |
T1157:; |
T1157:; |
3520 |
if(!(((V607))==Cnil)){ |
if(!(((V661))==Cnil)){ |
3521 |
goto T1158;} |
goto T1158;} |
3522 |
goto T1153; |
goto T1153; |
3523 |
goto T1158; |
goto T1158; |
3524 |
T1158:; |
T1158:; |
3525 |
{register object V609; |
{register object V663; |
3526 |
register object V610; |
register object V664; |
3527 |
register object V611; |
register object V665; |
3528 |
V609= (V608); |
V663= (V662); |
3529 |
V610= (VV[164]->s.s_dbind); |
V664= (VV[164]->s.s_dbind); |
3530 |
V611= Ct; |
V665= Ct; |
3531 |
base[1]= (V609); |
base[1]= (V663); |
3532 |
base[2]= (V610); |
base[2]= (V664); |
3533 |
base[3]= (V611); |
base[3]= (V665); |
3534 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3535 |
siLhash_set(); |
siLhash_set(); |
3536 |
vs_top=sup;} |
vs_top=sup;} |
3537 |
V607= CMPcdr((V607)); |
V661= CMPcdr((V661)); |
3538 |
V608= CMPcar((V607)); |
V662= CMPcar((V661)); |
3539 |
goto T1157;} |
goto T1157;} |
3540 |
goto T1153; |
goto T1153; |
3541 |
T1153:; |
T1153:; |
3542 |
{object V613; |
{object V667; |
3543 |
base[1]= (V598); |
base[1]= (V652); |
3544 |
base[2]= CMPcdddr((V599)); |
base[2]= CMPcdddr((V653)); |
3545 |
base[3]= VV[12]; |
base[3]= VV[12]; |
3546 |
base[4]= (VV[225]->s.s_gfdef); |
base[4]= (VV[225]->s.s_gfdef); |
3547 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3548 |
(void) (*Lnk297)(); |
(void) (*Lnk297)(); |
3549 |
vs_top=sup; |
vs_top=sup; |
3550 |
V613= vs_base[0]; |
V667= vs_base[0]; |
3551 |
(CMPcddr(V599))->c.c_cdr = (V613); |
(CMPcddr(V653))->c.c_cdr = (V667); |
3552 |
(void)(CMPcddr(V599)); |
(void)(CMPcddr(V653)); |
3553 |
{object V614 = (V613); |
{object V668 = (V667); |
3554 |
VMR50(V614)}}} |
VMR50(V668)}}} |
3555 |
base[0]=base[0]; |
base[0]=base[0]; |
3556 |
return Cnil; |
return Cnil; |
3557 |
} |
} |
3563 |
vs_check; |
vs_check; |
3564 |
check_arg(2); |
check_arg(2); |
3565 |
vs_top=sup; |
vs_top=sup; |
3566 |
{object V615=base[0]->c.c_cdr; |
{object V669=base[0]->c.c_cdr; |
3567 |
if(endp(V615)){ |
if(endp(V669)){ |
3568 |
base[2]= Cnil; |
base[2]= Cnil; |
3569 |
} else { |
} else { |
3570 |
base[2]= (V615->c.c_car); |
base[2]= (V669->c.c_car); |
3571 |
V615=V615->c.c_cdr;} |
V669=V669->c.c_cdr;} |
3572 |
if(!endp(V615))invalid_macro_call();} |
if(!endp(V669))invalid_macro_call();} |
3573 |
{register object V616; |
{register object V670; |
3574 |
V616= small_fixnum(-1); |
V670= small_fixnum(-1); |
3575 |
{register object V618; |
{register object V672; |
3576 |
register object V619; |
register object V673; |
3577 |
V618= Cnil; |
V672= Cnil; |
3578 |
V619= Cnil; |
V673= Cnil; |
3579 |
{register object V620; |
{register object V674; |
3580 |
register object V621; |
register object V675; |
3581 |
V620= (VV[165]->s.s_dbind); |
V674= (VV[165]->s.s_dbind); |
3582 |
V621= CMPcar((V620)); |
V675= CMPcar((V674)); |
3583 |
goto T1188; |
goto T1188; |
3584 |
T1188:; |
T1188:; |
3585 |
if(!(((V620))==Cnil)){ |
if(!(((V674))==Cnil)){ |
3586 |
goto T1189;} |
goto T1189;} |
3587 |
goto T1184; |
goto T1184; |
3588 |
goto T1189; |
goto T1189; |
3589 |
T1189:; |
T1189:; |
3590 |
if((CMPcaddr((V621)))==Cnil){ |
if((CMPcaddr((V675)))==Cnil){ |
3591 |
goto T1194;} |
goto T1194;} |
3592 |
if(!((CMPcaddr((V621)))==(base[2]))){ |
if(!((CMPcaddr((V675)))==(base[2]))){ |
3593 |
goto T1193;} |
goto T1193;} |
3594 |
goto T1194; |
goto T1194; |
3595 |
T1194:; |
T1194:; |
3596 |
if((base[2])==Cnil){ |
if((base[2])==Cnil){ |
3597 |
goto T1198;} |
goto T1198;} |
3598 |
{register object V622; |
{register object V676; |
3599 |
register object V623; |
register object V677; |
3600 |
V622= (V621); |
V676= (V675); |
3601 |
V623= base[2]; |
V677= base[2]; |
3602 |
(CMPcddr((V622)))->c.c_car = (V623); |
(CMPcddr((V676)))->c.c_car = (V677); |
3603 |
(void)(CMPcddr((V622)));} |
(void)(CMPcddr((V676)));} |
3604 |
goto T1198; |
goto T1198; |
3605 |
T1198:; |
T1198:; |
3606 |
{register object V624; |
{register object V678; |
3607 |
V616= number_plus((V616),small_fixnum(1)); |
V679 = base[2]; |
3608 |
V625= list(3,VV[167],base[2],(V616)); |
V670= number_plus((V670),small_fixnum(1)); |
3609 |
V626= list(2,VV[4],CMPcar((V621))); |
V680 = (V670); |
3610 |
V627= list(2,VV[170],CMPcar((V621))); |
V681= list(3,VV[167],V679,V680); |
3611 |
V628= list(2,VV[4],base[2]); |
V682= list(2,VV[4],CMPcar((V675))); |
3612 |
V629= list(5,VV[169],/* INLINE-ARGS */V626,/* INLINE-ARGS */V627,/* INLINE-ARGS */V628,list(2,VV[4],CMPcdddr((V621)))); |
V683= list(2,VV[170],CMPcar((V675))); |
3613 |
V624= (*(LnkLI299))(/* INLINE-ARGS */V625,VV[168],/* INLINE-ARGS */V629); |
V684= list(2,VV[4],base[2]); |
3614 |
if(((V618))!=Cnil){ |
V685= list(5,VV[169],/* INLINE-ARGS */V682,/* INLINE-ARGS */V683,/* INLINE-ARGS */V684,list(2,VV[4],CMPcdddr((V675)))); |
3615 |
|
V678= (*(LnkLI299))(/* INLINE-ARGS */V681,VV[168],/* INLINE-ARGS */V685); |
3616 |
|
if(((V672))!=Cnil){ |
3617 |
goto T1207;} |
goto T1207;} |
3618 |
V619= make_cons((V624),Cnil); |
V673= make_cons((V678),Cnil); |
3619 |
V618= (V619); |
V672= (V673); |
3620 |
goto T1193; |
goto T1193; |
3621 |
goto T1207; |
goto T1207; |
3622 |
T1207:; |
T1207:; |
3623 |
V631= make_cons((V624),Cnil); |
V687= make_cons((V678),Cnil); |
3624 |
((V619))->c.c_cdr = /* INLINE-ARGS */V631; |
((V673))->c.c_cdr = /* INLINE-ARGS */V687; |
3625 |
V630= (V619); |
V686= (V673); |
3626 |
V619= CMPcdr(V630);} |
V673= CMPcdr(V686);} |
3627 |
goto T1193; |
goto T1193; |
3628 |
T1193:; |
T1193:; |
3629 |
V620= CMPcdr((V620)); |
V674= CMPcdr((V674)); |
3630 |
V621= CMPcar((V620)); |
V675= CMPcar((V674)); |
3631 |
goto T1188;} |
goto T1188;} |
3632 |
goto T1184; |
goto T1184; |
3633 |
T1184:; |
T1184:; |
3634 |
V617= (V618);} |
V671= (V672);} |
3635 |
base[3]= make_cons(VV[6],V617); |
base[3]= make_cons(VV[6],V671); |
3636 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3637 |
return;} |
return;} |
3638 |
} |
} |
3643 |
register object *sup=base+VM52; VC52 |
register object *sup=base+VM52; VC52 |
3644 |
vs_check; |
vs_check; |
3645 |
bds_check; |
bds_check; |
3646 |
{object V632; |
{object V688; |
3647 |
check_arg(1); |
check_arg(1); |
3648 |
V632=(base[0]); |
V688=(base[0]); |
3649 |
vs_top=sup; |
vs_top=sup; |
3650 |
goto TTL; |
goto TTL; |
3651 |
TTL:; |
TTL:; |
3652 |
base[3]= (((V632))==Cnil?Ct:Cnil); |
base[3]= (((V688))==Cnil?Ct:Cnil); |
3653 |
bds_bind(VV[163],Ct); |
bds_bind(VV[163],Ct); |
3654 |
bds_bind(VV[91],Ct); |
bds_bind(VV[91],Ct); |
3655 |
bds_bind(VV[166],base[3]); |
bds_bind(VV[166],base[3]); |
3673 |
} |
} |
3674 |
/* local entry for function INITIALIZE-INSTANCE-SIMPLE */ |
/* local entry for function INITIALIZE-INSTANCE-SIMPLE */ |
3675 |
|
|
3676 |
static object LI56(V637,V638,V639,V640) |
static object LI56(V693,V694,V695,V696) |
3677 |
|
|
3678 |
object V637;register object V638;object V639;register object V640; |
object V693;register object V694;object V695;register object V696; |
3679 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
3680 |
goto TTL; |
goto TTL; |
3681 |
TTL:; |
TTL:; |
3682 |
{object V641; |
{object V697; |
3683 |
register object V642; |
register object V698; |
3684 |
object V643; |
object V699; |
3685 |
object V644; |
object V700; |
3686 |
register object V645; |
register object V701; |
3687 |
V641= CMPcar((V637)); |
V697= CMPcar((V693)); |
3688 |
if(type_of(V639)==t_structure){ |
if(type_of(V695)==t_structure){ |
3689 |
goto T1227;} |
goto T1227;} |
3690 |
goto T1225; |
goto T1225; |
3691 |
goto T1227; |
goto T1227; |
3692 |
T1227:; |
T1227:; |
3693 |
if(!(((V639)->str.str_def)==(VV[171]))){ |
if(!(((V695)->str.str_def)==(VV[171]))){ |
3694 |
goto T1225;} |
goto T1225;} |
3695 |
V643= STREF(object,(V639),4); |
V699= STREF(object,(V695),4); |
3696 |
goto T1223; |
goto T1223; |
3697 |
goto T1225; |
goto T1225; |
3698 |
T1225:;{object V647; |
T1225:;{object V703; |
3699 |
V647= (VV[172]->s.s_dbind); |
V703= (VV[172]->s.s_dbind); |
3700 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3701 |
base[1]= (V639); |
base[1]= (V695); |
3702 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3703 |
(void) (*Lnk301)(); |
(void) (*Lnk301)(); |
3704 |
vs_top=sup; |
vs_top=sup; |
3705 |
V648= vs_base[0]; |
V704= vs_base[0]; |
3706 |
if(!((V647)==(CMPcar(V648)))){ |
if(!((V703)==(CMPcar(V704)))){ |
3707 |
goto T1230;}} |
goto T1230;}} |
3708 |
V643= CMPcar(((V639))->cc.cc_turbo[12]); |
V699= CMPcar(((V695))->cc.cc_turbo[12]); |
3709 |
goto T1223; |
goto T1223; |
3710 |
goto T1230; |
goto T1230; |
3711 |
T1230:; |
T1230:; |
3712 |
V643= Cnil; |
V699= Cnil; |
3713 |
goto T1223; |
goto T1223; |
3714 |
T1223:; |
T1223:; |
3715 |
V644= (*(LnkLI303))((V639)); |
V700= (*(LnkLI303))((V695)); |
3716 |
V642= (V640); |
V698= (V696); |
3717 |
V645= Cnil; |
V701= Cnil; |
3718 |
goto T1238; |
goto T1238; |
3719 |
T1238:; |
T1238:; |
3720 |
if(((V638))!=Cnil){ |
if(((V694))!=Cnil){ |
3721 |
goto T1240;} |
goto T1240;} |
3722 |
goto T1236; |
goto T1236; |
3723 |
goto T1240; |
goto T1240; |
3724 |
T1240:; |
T1240:; |
3725 |
{register object V649; |
{register object V705; |
3726 |
{object V650; |
{object V706; |
3727 |
V650= CMPcar((V638)); |
V706= CMPcar((V694)); |
3728 |
V638= CMPcdr((V638)); |
V694= CMPcdr((V694)); |
3729 |
V649= (V650);} |
V705= (V706);} |
3730 |
{object V651= CMPcar((V649)); |
{object V707= CMPcar((V705)); |
3731 |
if((V651!= VV[145]))goto T1247; |
if((V707!= VV[145]))goto T1247; |
3732 |
V640= make_cons(V645,(V640)); |
V696= make_cons(V701,(V696)); |
3733 |
{object V653; |
{object V709; |
3734 |
V653= CMPcadr((V649)); |
V709= CMPcadr((V705)); |
3735 |
V640= make_cons((V653),(V640)); |
V696= make_cons((V709),(V696)); |
3736 |
goto T1239;} |
goto T1239;} |
3737 |
goto T1247; |
goto T1247; |
3738 |
T1247:; |
T1247:; |
3739 |
if((V651!= VV[158]))goto T1252; |
if((V707!= VV[158]))goto T1252; |
3740 |
V645= CMPcadr((V649)); |
V701= CMPcadr((V705)); |
3741 |
goto T1239; |
goto T1239; |
3742 |
goto T1252; |
goto T1252; |
3743 |
T1252:; |
T1252:; |
3744 |
if((V651!= VV[114]))goto T1254; |
if((V707!= VV[114]))goto T1254; |
3745 |
V645= ( |
V701= ( |
3746 |
V654 = CMPcadr((V649)), |
V710 = CMPcadr((V705)), |
3747 |
(type_of(V654) == t_sfun ?(*((V654)->sfn.sfn_self)): |
(type_of(V710) == t_sfun ?(*((V710)->sfn.sfn_self)): |
3748 |
(fcall.argd=0,type_of(V654)==t_vfun) ? |
(fcall.argd=0,type_of(V710)==t_vfun) ? |
3749 |
(*((V654)->sfn.sfn_self)): |
(*((V710)->sfn.sfn_self)): |
3750 |
(fcall.fun=(V654),fcalln))()); |
(fcall.fun=(V710),fcalln))()); |
3751 |
goto T1239; |
goto T1239; |
3752 |
goto T1254; |
goto T1254; |
3753 |
T1254:; |
T1254:; |
3754 |
if((V651!= VV[156]))goto T1256; |
if((V707!= VV[156]))goto T1256; |
3755 |
V655= one_minus(CMPcadr((V649))); |
V711= one_minus(CMPcadr((V705))); |
3756 |
V642= nthcdr(fix(/* INLINE-ARGS */V655),(V642)); |
V698= nthcdr(fix(/* INLINE-ARGS */V711),(V698)); |
3757 |
{object V656; |
{object V712; |
3758 |
V656= CMPcar((V642)); |
V712= CMPcar((V698)); |
3759 |
V642= CMPcdr((V642)); |
V698= CMPcdr((V698)); |
3760 |
V645= (V656);} |
V701= (V712);} |
3761 |
goto T1239; |
goto T1239; |
3762 |
goto T1256; |
goto T1256; |
3763 |
T1256:; |
T1256:; |
3764 |
if((V651!= VV[157]))goto T1263; |
if((V707!= VV[157]))goto T1263; |
3765 |
{object V657; |
{object V713; |
3766 |
V657= ((V641))->v.v_self[fix(CMPcadr((V649)))]; |
V713= ((V697))->v.v_self[fix(CMPcadr((V705)))]; |
3767 |
if(!(type_of(V657)==t_fixnum)){ |
if(!(type_of(V713)==t_fixnum)){ |
3768 |
goto T1266;} |
goto T1266;} |
3769 |
(void)(((V643))->v.v_self[fix((V657))]= ((V645))); |
(void)(((V699))->v.v_self[fix((V713))]= ((V701))); |
3770 |
goto T1239; |
goto T1239; |
3771 |
goto T1266; |
goto T1266; |
3772 |
T1266:; |
T1266:; |
3773 |
if(!(type_of(V657)==t_cons)){ |
if(!(type_of(V713)==t_cons)){ |
3774 |
goto T1269;} |
goto T1269;} |
3775 |
(V657)->c.c_cdr = V645; |
(V713)->c.c_cdr = V701; |
3776 |
goto T1239; |
goto T1239; |
3777 |
goto T1269; |
goto T1269; |
3778 |
T1269:; |
T1269:; |
3779 |
{object V663; |
{object V719; |
3780 |
V663= CMPcaddr((V649)); |
V719= CMPcaddr((V705)); |
3781 |
base[0]= (V645); |
base[0]= (V701); |
3782 |
base[1]= V644; |
base[1]= V700; |
3783 |
base[2]= V639; |
base[2]= V695; |
3784 |
base[3]= (V663); |
base[3]= (V719); |
3785 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
3786 |
(void) (*Lnk304)(Lclptr304); |
(void) (*Lnk304)(Lclptr304); |
3787 |
vs_top=sup; |
vs_top=sup; |
3788 |
goto T1239;}} |
goto T1239;}} |
3789 |
goto T1263; |
goto T1263; |
3790 |
T1263:; |
T1263:; |
3791 |
if((V651!= VV[159]))goto T1277; |
if((V707!= VV[159]))goto T1277; |
3792 |
{object V664; |
{object V720; |
3793 |
V664= ((V641))->v.v_self[fix(CMPcadr((V649)))]; |
V720= ((V697))->v.v_self[fix(CMPcadr((V705)))]; |
3794 |
if(!(type_of(V664)==t_fixnum)){ |
if(!(type_of(V720)==t_fixnum)){ |
3795 |
goto T1282;} |
goto T1282;} |
3796 |
if(!((((((V643))->v.v_self[fix((V664))])==(VV[173])?Ct:Cnil))==Cnil)){ |
if(!((((((V699))->v.v_self[fix((V720))])==(VV[173])?Ct:Cnil))==Cnil)){ |
3797 |
goto T1239;} |
goto T1239;} |
3798 |
goto T1279; |
goto T1279; |
3799 |
goto T1282; |
goto T1282; |
3800 |
T1282:; |
T1282:; |
3801 |
if(!(type_of(V664)==t_cons)){ |
if(!(type_of(V720)==t_cons)){ |
3802 |
goto T1285;} |
goto T1285;} |
3803 |
if(!((((CMPcdr((V664)))==(VV[173])?Ct:Cnil))==Cnil)){ |
if(!((((CMPcdr((V720)))==(VV[173])?Ct:Cnil))==Cnil)){ |
3804 |
goto T1239;} |
goto T1239;} |
3805 |
goto T1279; |
goto T1279; |
3806 |
goto T1285; |
goto T1285; |
3807 |
T1285:; |
T1285:; |
3808 |
base[0]= (V644); |
base[0]= (V700); |
3809 |
base[1]= (V639); |
base[1]= (V695); |
3810 |
base[2]= CMPcaddr((V649)); |
base[2]= CMPcaddr((V705)); |
3811 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3812 |
(void) (*Lnk195)(Lclptr195); |
(void) (*Lnk195)(Lclptr195); |
3813 |
vs_top=sup; |
vs_top=sup; |
3815 |
goto T1239;}} |
goto T1239;}} |
3816 |
goto T1279; |
goto T1279; |
3817 |
T1279:; |
T1279:; |
3818 |
{long V666; |
{long V722; |
3819 |
register long V667; |
register long V723; |
3820 |
V666= fix(CMPcadddr((V649))); |
V722= fix(CMPcadddr((V705))); |
3821 |
V667= 0; |
V723= 0; |
3822 |
goto T1293; |
goto T1293; |
3823 |
T1293:; |
T1293:; |
3824 |
if(!((V667)>=(V666))){ |
if(!((V723)>=(V722))){ |
3825 |
goto T1294;} |
goto T1294;} |
3826 |
goto T1239; |
goto T1239; |
3827 |
goto T1294; |
goto T1294; |
3828 |
T1294:; |
T1294:; |
3829 |
{object V668; |
{object V724; |
3830 |
V668= CMPcar((V638)); |
V724= CMPcar((V694)); |
3831 |
V638= CMPcdr((V638));} |
V694= CMPcdr((V694));} |
3832 |
V667= (long)(V667)+1; |
V723= (long)(V723)+1; |
3833 |
goto T1293;} |
goto T1293;} |
3834 |
goto T1277; |
goto T1277; |
3835 |
T1277:; |
T1277:; |
3836 |
if((V651!= VV[146]))goto T1304; |
if((V707!= VV[146]))goto T1304; |
3837 |
if(!(type_of((V640))==t_cons)){ |
if(!(type_of((V696))==t_cons)){ |
3838 |
goto T1305;} |
goto T1305;} |
3839 |
V640= make_cons(CMPcar((V640)),CMPcdr((V640))); |
V696= make_cons(CMPcar((V696)),CMPcdr((V696))); |
3840 |
goto T1305; |
goto T1305; |
3841 |
T1305:; |
T1305:; |
3842 |
(VV[93]->s.s_dbind)= CMPcadr((V649)); |
(VV[93]->s.s_dbind)= CMPcadr((V705)); |
3843 |
(VV[94]->s.s_dbind)= (V640); |
(VV[94]->s.s_dbind)= (V696); |
3844 |
(VV[95]->s.s_dbind)= CMPcaddr((V649)); |
(VV[95]->s.s_dbind)= CMPcaddr((V705)); |
3845 |
goto T1239; |
goto T1239; |
3846 |
goto T1304; |
goto T1304; |
3847 |
T1304:; |
T1304:; |
3848 |
if((V651!= VV[305]))goto T1314; |
if((V707!= VV[305]))goto T1314; |
3849 |
V642= (V640); |
V698= (V696); |
3850 |
goto T1239; |
goto T1239; |
3851 |
goto T1314; |
goto T1314; |
3852 |
T1314:; |
T1314:; |
3853 |
FEerror("The ECASE key value ~s is illegal.",1,V651); |
FEerror("The ECASE key value ~s is illegal.",1,V707); |
3854 |
goto T1239;}} |
goto T1239;}} |
3855 |
goto T1239; |
goto T1239; |
3856 |
T1239:; |
T1239:; |
3857 |
goto T1238; |
goto T1238; |
3858 |
goto T1236; |
goto T1236; |
3859 |
T1236:; |
T1236:; |
3860 |
{object V669 = (V640); |
{object V725 = (V696); |
3861 |
VMR53(V669)}} |
VMR53(V725)}} |
3862 |
base[0]=base[0]; |
base[0]=base[0]; |
3863 |
return Cnil; |
return Cnil; |
3864 |
} |
} |
3865 |
/* local entry for function ADD-TO-CVECTOR */ |
/* local entry for function ADD-TO-CVECTOR */ |
3866 |
|
|
3867 |
static object LI57(V672,V673) |
static object LI57(V728,V729) |
3868 |
|
|
3869 |
register object V672;object V673; |
register object V728;object V729; |
3870 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
3871 |
goto TTL; |
goto TTL; |
3872 |
TTL:;{object V674; |
TTL:;{object V730; |
3873 |
base[0]= (V673); |
base[0]= (V729); |
3874 |
base[1]= (V672); |
base[1]= (V728); |
3875 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3876 |
(void) (*Lnk287)(); |
(void) (*Lnk287)(); |
3877 |
vs_top=sup; |
vs_top=sup; |
3878 |
V674= vs_base[0]; |
V730= vs_base[0]; |
3879 |
if(V674==Cnil)goto T1317; |
if(V730==Cnil)goto T1317; |
3880 |
{object V675 = V674; |
{object V731 = V730; |
3881 |
VMR54(V675)} |
VMR54(V731)} |
3882 |
goto T1317; |
goto T1317; |
3883 |
T1317:;} |
T1317:;} |
3884 |
{object V676; |
{object V732; |
3885 |
V676= CMPmake_fixnum((long)(((V672))->st.st_fillp)); |
V732= CMPmake_fixnum((long)(((V728))->st.st_fillp)); |
3886 |
{register object V678; |
{register object V734; |
3887 |
register long V679; |
register long V735; |
3888 |
long V680; |
long V736; |
3889 |
V678= (V672); |
V734= (V728); |
3890 |
V679= (long)(((V678))->st.st_fillp); |
V735= (long)(((V734))->st.st_fillp); |
3891 |
V680= (long)(((V678))->st.st_dim); |
V736= (long)(((V734))->st.st_dim); |
3892 |
if(!((V679)<(V680))){ |
if(!((V735)<(V736))){ |
3893 |
goto T1327;} |
goto T1327;} |
3894 |
(void)((((V678))->st.st_fillp)=((long)(1)+(V679))); |
(void)((((V734))->st.st_fillp)=((long)(1)+(V735))); |
3895 |
V681 = CMPmake_fixnum(V679); |
V737 = CMPmake_fixnum(V735); |
3896 |
(void)(aset1((V678),fix(V681),V673)); |
(void)(aset1((V734),fix(V737),V729)); |
3897 |
goto T1322; |
goto T1322; |
3898 |
goto T1327; |
goto T1327; |
3899 |
T1327:; |
T1327:; |
3900 |
base[0]= V673; |
base[0]= V729; |
3901 |
base[1]= (V678); |
base[1]= (V734); |
3902 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3903 |
(void) (*Lnk306)(); |
(void) (*Lnk306)(); |
3904 |
vs_top=sup;} |
vs_top=sup;} |
3905 |
goto T1322; |
goto T1322; |
3906 |
T1322:; |
T1322:; |
3907 |
{object V682 = (V676); |
{object V738 = (V732); |
3908 |
VMR54(V682)}} |
VMR54(V738)}} |
3909 |
base[0]=base[0]; |
base[0]=base[0]; |
3910 |
return Cnil; |
return Cnil; |
3911 |
} |
} |
3912 |
/* local entry for function FIRST-FORM-TO-LISP */ |
/* local entry for function FIRST-FORM-TO-LISP */ |
3913 |
|
|
3914 |
static object LI60(V686,V687,V688) |
static object LI60(V742,V743,V744) |
3915 |
|
|
3916 |
register object V686;object V687;register object V688; |
register object V742;object V743;register object V744; |
3917 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
3918 |
goto TTL; |
goto TTL; |
3919 |
TTL:; |
TTL:; |
3920 |
base[0]= (V687); |
base[0]= (V743); |
3921 |
{object V689; |
{object V745; |
3922 |
{object V691; |
{object V747; |
3923 |
V691= CMPcdr(CMPcar(V686)); |
V747= CMPcdr(CMPcar(V742)); |
3924 |
{object V692; |
{object V748; |
3925 |
V692= CMPcar(CMPcar(V686)); |
V748= CMPcar(CMPcar(V742)); |
3926 |
(V686)->c.c_car = (V691); |
(V742)->c.c_car = (V747); |
3927 |
V689= (V692);}} |
V745= (V748);}} |
3928 |
{object V693= CMPcar((V689)); |
{object V749= CMPcar((V745)); |
3929 |
if((V693!= VV[145]))goto T1338; |
if((V749!= VV[145]))goto T1338; |
3930 |
base[1]= CMPcadr((V689)); |
base[1]= CMPcadr((V745)); |
3931 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3932 |
L61(base); |
L61(base); |
3933 |
vs_top=sup; |
vs_top=sup; |
3934 |
V694= vs_base[0]; |
V750= vs_base[0]; |
3935 |
{object V695 = list(2,VV[174],list(3,VV[57],V694,VV[175])); |
{object V751 = list(2,VV[174],list(3,VV[57],V750,VV[175])); |
3936 |
VMR55(V695)} |
VMR55(V751)} |
3937 |
goto T1338; |
goto T1338; |
3938 |
T1338:; |
T1338:; |
3939 |
if((V693!= VV[158]))goto T1341; |
if((V749!= VV[158]))goto T1341; |
3940 |
base[1]= CMPcadr((V689)); |
base[1]= CMPcadr((V745)); |
3941 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3942 |
L61(base); |
L61(base); |
3943 |
vs_top=sup; |
vs_top=sup; |
3944 |
V696= vs_base[0]; |
V752= vs_base[0]; |
3945 |
V697= list(3,VV[176],VV[76],V696); |
V753= list(3,VV[176],VV[76],V752); |
3946 |
{object V698 = make_cons(/* INLINE-ARGS */V697,Cnil); |
{object V754 = make_cons(/* INLINE-ARGS */V753,Cnil); |
3947 |
VMR55(V698)} |
VMR55(V754)} |
3948 |
goto T1341; |
goto T1341; |
3949 |
T1341:; |
T1341:; |
3950 |
if((V693!= VV[114]))goto T1344; |
if((V749!= VV[114]))goto T1344; |
3951 |
base[1]= CMPcadr((V689)); |
base[1]= CMPcadr((V745)); |
3952 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3953 |
L61(base); |
L61(base); |
3954 |
vs_top=sup; |
vs_top=sup; |
3955 |
V699= vs_base[0]; |
V755= vs_base[0]; |
3956 |
V700= list(3,VV[176],VV[76],list(2,VV[114],list(3,VV[177],VV[170],V699))); |
V756= list(3,VV[176],VV[76],list(2,VV[114],list(3,VV[177],VV[170],V755))); |
3957 |
{object V701 = make_cons(/* INLINE-ARGS */V700,Cnil); |
{object V757 = make_cons(/* INLINE-ARGS */V756,Cnil); |
3958 |
VMR55(V701)} |
VMR55(V757)} |
3959 |
goto T1344; |
goto T1344; |
3960 |
T1344:; |
T1344:; |
3961 |
if((V693!= VV[156]))goto T1347; |
if((V749!= VV[156]))goto T1347; |
3962 |
{object V703; |
{object V759; |
3963 |
V703= one_minus(CMPcadr((V689))); |
V759= one_minus(CMPcadr((V745))); |
3964 |
{object V704= (V703); |
{object V760= (V759); |
3965 |
if(!eql(V704,VV[179]))goto T1350; |
if(!eql(V760,VV[179]))goto T1350; |
3966 |
V702= VV[180]; |
V758= VV[180]; |
3967 |
goto T1348; |
goto T1348; |
3968 |
goto T1350; |
goto T1350; |
3969 |
T1350:; |
T1350:; |
3970 |
if(!eql(V704,VV[181]))goto T1351; |
if(!eql(V760,VV[181]))goto T1351; |
3971 |
V702= VV[182]; |
V758= VV[182]; |
3972 |
goto T1348; |
goto T1348; |
3973 |
goto T1351; |
goto T1351; |
3974 |
T1351:; |
T1351:; |
3975 |
V702= list(2,VV[183],(V703));}} |
V758= list(2,VV[183],(V759));}} |
3976 |
goto T1348; |
goto T1348; |
3977 |
T1348:; |
T1348:; |
3978 |
{object V705 = list(2,list(3,VV[176],VV[178],append(V702,VV[184])),VV[185]); |
{object V761 = list(2,list(3,VV[176],VV[178],append(V758,VV[184])),VV[185]); |
3979 |
VMR55(V705)} |
VMR55(V761)} |
3980 |
goto T1347; |
goto T1347; |
3981 |
T1347:; |
T1347:; |
3982 |
if((V693!= VV[157]))goto T1352; |
if((V749!= VV[157]))goto T1352; |
3983 |
{object V706; |
{object V762; |
3984 |
object V707; |
object V763; |
3985 |
object V708; |
object V764; |
3986 |
V706= CMPcadr((V689)); |
V762= CMPcadr((V745)); |
3987 |
V707= ((V688))->v.v_self[fix((V706))]; |
V763= ((V744))->v.v_self[fix((V762))]; |
3988 |
base[4]= CMPcaddr((V689)); |
base[4]= CMPcaddr((V745)); |
3989 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3990 |
L61(base); |
L61(base); |
3991 |
vs_top=sup; |
vs_top=sup; |
3992 |
V709= vs_base[0]; |
V765= vs_base[0]; |
3993 |
V708= list(3,VV[62],list(4,VV[186],VV[103],VV[121],V709),VV[76]); |
V764= list(3,VV[62],list(4,VV[186],VV[103],VV[121],V765),VV[76]); |
3994 |
if(((VV[187]->s.s_dbind))==Cnil){ |
if(((VV[187]->s.s_dbind))==Cnil){ |
3995 |
goto T1359;} |
goto T1359;} |
3996 |
if(!(type_of(V707)==t_fixnum)){ |
if(!(type_of(V763)==t_fixnum)){ |
3997 |
goto T1362;} |
goto T1362;} |
3998 |
base[4]= (V707); |
base[4]= (V763); |
3999 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4000 |
L61(base); |
L61(base); |
4001 |
vs_top=sup; |
vs_top=sup; |
4002 |
V711= vs_base[0]; |
V767= vs_base[0]; |
4003 |
V712= list(3,VV[62],list(3,VV[188],VV[58],V711),VV[76]); |
V768= list(3,VV[62],list(3,VV[188],VV[58],V767),VV[76]); |
4004 |
{object V713 = make_cons(/* INLINE-ARGS */V712,Cnil); |
{object V769 = make_cons(/* INLINE-ARGS */V768,Cnil); |
4005 |
VMR55(V713)} |
VMR55(V769)} |
4006 |
goto T1362; |
goto T1362; |
4007 |
T1362:; |
T1362:; |
4008 |
if(!(type_of(V707)==t_cons)){ |
if(!(type_of(V763)==t_cons)){ |
4009 |
goto T1367;} |
goto T1367;} |
4010 |
base[4]= (V707); |
base[4]= (V763); |
4011 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4012 |
L61(base); |
L61(base); |
4013 |
vs_top=sup; |
vs_top=sup; |
4014 |
V714= vs_base[0]; |
V770= vs_base[0]; |
4015 |
V715= list(3,VV[62],list(2,VV[189],V714),VV[76]); |
V771= list(3,VV[62],list(2,VV[189],V770),VV[76]); |
4016 |
{object V716 = make_cons(/* INLINE-ARGS */V715,Cnil); |
{object V772 = make_cons(/* INLINE-ARGS */V771,Cnil); |
4017 |
VMR55(V716)} |
VMR55(V772)} |
4018 |
goto T1367; |
goto T1367; |
4019 |
T1367:; |
T1367:; |
4020 |
{object V717 = make_cons((V708),Cnil); |
{object V773 = make_cons((V764),Cnil); |
4021 |
VMR55(V717)} |
VMR55(V773)} |
4022 |
goto T1359; |
goto T1359; |
4023 |
T1359:; |
T1359:; |
4024 |
base[4]= (V706); |
base[4]= (V762); |
4025 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4026 |
L61(base); |
L61(base); |
4027 |
vs_top=sup; |
vs_top=sup; |
4028 |
V718= vs_base[0]; |
V774= vs_base[0]; |
4029 |
if(!(type_of(V707)==t_fixnum)){ |
V775 = (V764); |
4030 |
|
if(!(type_of(V763)==t_fixnum)){ |
4031 |
goto T1375;} |
goto T1375;} |
4032 |
V719= VV[192]; |
V776= VV[192]; |
4033 |
goto T1373; |
goto T1373; |
4034 |
goto T1375; |
goto T1375; |
4035 |
T1375:; |
T1375:; |
4036 |
if(!(type_of(V707)==t_cons)){ |
if(!(type_of(V763)==t_cons)){ |
4037 |
goto T1378;} |
goto T1378;} |
4038 |
V719= VV[193]; |
V776= VV[193]; |
4039 |
goto T1373; |
goto T1373; |
4040 |
goto T1378; |
goto T1378; |
4041 |
T1378:; |
T1378:; |
4042 |
V719= VV[194]; |
V776= VV[194]; |
4043 |
goto T1373; |
goto T1373; |
4044 |
T1373:; |
T1373:; |
4045 |
V721= list(7,VV[190],VV[191],VV[58],V718,VV[76],(V708),V719); |
V778= list(7,VV[190],VV[191],VV[58],V774,VV[76],V775,V776); |
4046 |
{object V722 = make_cons(/* INLINE-ARGS */V721,Cnil); |
{object V779 = make_cons(/* INLINE-ARGS */V778,Cnil); |
4047 |
VMR55(V722)}} |
VMR55(V779)}} |
4048 |
goto T1352; |
goto T1352; |
4049 |
T1352:; |
T1352:; |
4050 |
if((V693!= VV[159]))goto T1380; |
if((V749!= VV[159]))goto T1380; |
4051 |
{object V723; |
{object V780; |
4052 |
object V724; |
object V781; |
4053 |
object V725; |
object V782; |
4054 |
V723= CMPcadr((V689)); |
V780= CMPcadr((V745)); |
4055 |
V724= ((V688))->v.v_self[fix((V723))]; |
V781= ((V744))->v.v_self[fix((V780))]; |
4056 |
base[4]= CMPcaddr((V689)); |
base[4]= CMPcaddr((V745)); |
4057 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4058 |
L61(base); |
L61(base); |
4059 |
vs_top=sup; |
vs_top=sup; |
4060 |
V726= vs_base[0]; |
V783= vs_base[0]; |
4061 |
V725= list(4,VV[195],VV[103],VV[121],V726); |
V782= list(4,VV[195],VV[103],VV[121],V783); |
4062 |
if(((VV[187]->s.s_dbind))==Cnil){ |
if(((VV[187]->s.s_dbind))==Cnil){ |
4063 |
goto T1388;} |
goto T1388;} |
4064 |
if(!(type_of(V724)==t_fixnum)){ |
if(!(type_of(V781)==t_fixnum)){ |
4065 |
goto T1391;} |
goto T1391;} |
4066 |
base[4]= (V724); |
base[4]= (V781); |
4067 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4068 |
L61(base); |
L61(base); |
4069 |
vs_top=sup; |
vs_top=sup; |
4070 |
V729= vs_base[0]; |
V786= vs_base[0]; |
4071 |
V730= list(3,VV[188],VV[58],V729); |
V787= list(3,VV[188],VV[58],V786); |
4072 |
V727= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V730,list(2,VV[4],(VV[153]->s.s_dbind)))); |
V784= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V787,list(2,VV[4],(VV[153]->s.s_dbind)))); |
4073 |
goto T1386; |
goto T1386; |
4074 |
goto T1391; |
goto T1391; |
4075 |
T1391:; |
T1391:; |
4076 |
if(!(type_of(V724)==t_cons)){ |
if(!(type_of(V781)==t_cons)){ |
4077 |
goto T1396;} |
goto T1396;} |
4078 |
base[4]= (V724); |
base[4]= (V781); |
4079 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4080 |
L61(base); |
L61(base); |
4081 |
vs_top=sup; |
vs_top=sup; |
4082 |
V731= vs_base[0]; |
V788= vs_base[0]; |
4083 |
V732= list(2,VV[189],V731); |
V789= list(2,VV[189],V788); |
4084 |
V727= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V732,list(2,VV[4],(VV[153]->s.s_dbind)))); |
V784= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V789,list(2,VV[4],(VV[153]->s.s_dbind)))); |
4085 |
goto T1386; |
goto T1386; |
4086 |
goto T1396; |
goto T1396; |
4087 |
T1396:; |
T1396:; |
4088 |
V727= (V725); |
V784= (V782); |
4089 |
goto T1386; |
goto T1386; |
4090 |
goto T1388; |
goto T1388; |
4091 |
T1388:; |
T1388:; |
4092 |
base[4]= (V723); |
base[4]= (V780); |
4093 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4094 |
L61(base); |
L61(base); |
4095 |
vs_top=sup; |
vs_top=sup; |
4096 |
V733= vs_base[0]; |
V790= vs_base[0]; |
4097 |
{object V735; |
V791 = (V782); |
4098 |
V735= ((V688))->v.v_self[fix((V723))]; |
{object V793; |
4099 |
if(!(type_of((V735))==t_fixnum)){ |
V793= ((V744))->v.v_self[fix((V780))]; |
4100 |
|
if(!(type_of((V793))==t_fixnum)){ |
4101 |
goto T1405;} |
goto T1405;} |
4102 |
V734= VV[192]; |
V792= VV[192]; |
4103 |
goto T1402; |
goto T1402; |
4104 |
goto T1405; |
goto T1405; |
4105 |
T1405:; |
T1405:; |
4106 |
if(!(type_of((V735))==t_cons)){ |
if(!(type_of((V793))==t_cons)){ |
4107 |
goto T1408;} |
goto T1408;} |
4108 |
V734= VV[193]; |
V792= VV[193]; |
4109 |
goto T1402; |
goto T1402; |
4110 |
goto T1408; |
goto T1408; |
4111 |
T1408:; |
T1408:; |
4112 |
V734= VV[194];} |
V792= VV[194];} |
4113 |
goto T1402; |
goto T1402; |
4114 |
T1402:; |
T1402:; |
4115 |
V727= list(6,VV[197],VV[191],VV[58],V733,(V725),V734); |
V784= list(6,VV[197],VV[191],VV[58],V790,V791,V792); |
4116 |
goto T1386; |
goto T1386; |
4117 |
T1386:; |
T1386:; |
4118 |
{register object V737; |
{register object V795; |
4119 |
V737= make_cons(Cnil,Cnil); |
V795= make_cons(Cnil,Cnil); |
4120 |
{register long V738; |
{register long V796; |
4121 |
register long V739; |
register long V797; |
4122 |
V738= fix(CMPcadddr((V689))); |
V796= fix(CMPcadddr((V745))); |
4123 |
V739= 0; |
V797= 0; |
4124 |
goto T1415; |
goto T1415; |
4125 |
T1415:; |
T1415:; |
4126 |
if(!((V739)>=(V738))){ |
if(!((V797)>=(V796))){ |
4127 |
goto T1416;} |
goto T1416;} |
4128 |
V736= CMPcar((V737)); |
V794= CMPcar((V795)); |
4129 |
goto T1410; |
goto T1410; |
4130 |
goto T1416; |
goto T1416; |
4131 |
T1416:; |
T1416:; |
4132 |
V740= (*(LnkLI307))((V686),base[0],(V688)); |
V798= (*(LnkLI307))((V742),base[0],(V744)); |
4133 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V740,(V737))); |
V799 = (V795); |
4134 |
V739= (long)(V739)+1; |
(void)((*(LnkLI284))(/* INLINE-ARGS */V798,V799)); |
4135 |
|
V797= (long)(V797)+1; |
4136 |
goto T1415;}} |
goto T1415;}} |
4137 |
goto T1410; |
goto T1410; |
4138 |
T1410:; |
T1410:; |
4139 |
V741= listA(3,VV[54],V727,V736); |
V800= listA(3,VV[54],V784,V794); |
4140 |
{object V742 = make_cons(/* INLINE-ARGS */V741,Cnil); |
{object V801 = make_cons(/* INLINE-ARGS */V800,Cnil); |
4141 |
VMR55(V742)}} |
VMR55(V801)}} |
4142 |
goto T1380; |
goto T1380; |
4143 |
T1380:; |
T1380:; |
4144 |
if((V693!= VV[146]))goto T1423; |
if((V749!= VV[146]))goto T1423; |
4145 |
base[1]= CMPcadr((V689)); |
base[1]= CMPcadr((V745)); |
4146 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4147 |
L61(base); |
L61(base); |
4148 |
vs_top=sup; |
vs_top=sup; |
4149 |
V743= vs_base[0]; |
V802= vs_base[0]; |
4150 |
V744= list(3,VV[176],VV[93],V743); |
V803= list(3,VV[176],VV[93],V802); |
4151 |
base[1]= CMPcaddr((V689)); |
base[1]= CMPcaddr((V745)); |
4152 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4153 |
L61(base); |
L61(base); |
4154 |
vs_top=sup; |
vs_top=sup; |
4155 |
V745= vs_base[0]; |
V804= vs_base[0]; |
4156 |
{object V746 = list(4,VV[198],/* INLINE-ARGS */V744,VV[199],list(3,VV[176],VV[95],V745)); |
{object V805 = list(4,VV[198],/* INLINE-ARGS */V803,VV[199],list(3,VV[176],VV[95],V804)); |
4157 |
VMR55(V746)} |
VMR55(V805)} |
4158 |
goto T1423; |
goto T1423; |
4159 |
T1423:; |
T1423:; |
4160 |
if((V693!= VV[305]))goto T1428; |
if((V749!= VV[305]))goto T1428; |
4161 |
{object V747 = VV[200]; |
{object V806 = VV[200]; |
4162 |
VMR55(V747)} |
VMR55(V806)} |
4163 |
goto T1428; |
goto T1428; |
4164 |
T1428:; |
T1428:; |
4165 |
FEerror("The ECASE key value ~s is illegal.",1,V693); |
FEerror("The ECASE key value ~s is illegal.",1,V749); |
4166 |
{object V748 = Cnil; |
{object V807 = Cnil; |
4167 |
VMR55(V748)}}} |
VMR55(V807)}}} |
4168 |
base[0]=base[0]; |
base[0]=base[0]; |
4169 |
return Cnil; |
return Cnil; |
4170 |
} |
} |
4176 |
vs_check; |
vs_check; |
4177 |
check_arg(2); |
check_arg(2); |
4178 |
vs_top=sup; |
vs_top=sup; |
4179 |
{object V749=base[0]->c.c_cdr; |
{object V808=base[0]->c.c_cdr; |
4180 |
base[2]= V749;} |
base[2]= V808;} |
4181 |
V751= listA(3,VV[205],VV[206],base[2]); |
V810= listA(3,VV[205],VV[206],base[2]); |
4182 |
base[3]= listA(3,VV[52],VV[204],append(VV[203],/* INLINE-ARGS */V751)); |
base[3]= listA(3,VV[52],VV[204],append(VV[203],/* INLINE-ARGS */V810)); |
4183 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4184 |
return; |
return; |
4185 |
} |
} |
4189 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4190 |
register object *sup=base+VM57; VC57 |
register object *sup=base+VM57; VC57 |
4191 |
vs_check; |
vs_check; |
4192 |
{object V752; |
{object V811; |
4193 |
object V753; |
object V812; |
4194 |
check_arg(2); |
check_arg(2); |
4195 |
V752=(base[0]); |
V811=(base[0]); |
4196 |
V753=(base[1]); |
V812=(base[1]); |
4197 |
vs_top=sup; |
vs_top=sup; |
4198 |
goto TTL; |
goto TTL; |
4199 |
TTL:; |
TTL:; |
4200 |
{register object V754; |
{register object V813; |
4201 |
register object V755; |
register object V814; |
4202 |
register object V756; |
register object V815; |
4203 |
object V757; |
object V816; |
4204 |
object V758; |
object V817; |
4205 |
V754= make_cons((V753),Cnil); |
V813= make_cons((V812),Cnil); |
4206 |
base[8]= CMPmake_fixnum((long)length((V753))); |
base[8]= CMPmake_fixnum((long)length((V812))); |
4207 |
base[9]= small_fixnum(2); |
base[9]= small_fixnum(2); |
4208 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
4209 |
Lfloor(); |
Lfloor(); |
4216 |
vs_top=(vs_base=base+7)+5; |
vs_top=(vs_base=base+7)+5; |
4217 |
(void) (*Lnk285)(); |
(void) (*Lnk285)(); |
4218 |
vs_top=sup; |
vs_top=sup; |
4219 |
V755= vs_base[0]; |
V814= vs_base[0]; |
4220 |
V756= CMPcar((V752)); |
V815= CMPcar((V811)); |
4221 |
{register object V759; |
{register object V818; |
4222 |
V759= make_cons(Cnil,Cnil); |
V818= make_cons(Cnil,Cnil); |
4223 |
goto T1442; |
goto T1442; |
4224 |
T1442:; |
T1442:; |
4225 |
if((CMPcar((V754)))!=Cnil){ |
if((CMPcar((V813)))!=Cnil){ |
4226 |
goto T1444;} |
goto T1444;} |
4227 |
V757= CMPcar((V759)); |
V816= CMPcar((V818)); |
4228 |
goto T1439; |
goto T1439; |
4229 |
goto T1444; |
goto T1444; |
4230 |
T1444:; |
T1444:; |
4231 |
V760= (*(LnkLI307))((V754),(V755),(V756)); |
V819= (*(LnkLI307))((V813),(V814),(V815)); |
4232 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V760,(V759))); |
V820 = (V818); |
4233 |
|
(void)((*(LnkLI284))(/* INLINE-ARGS */V819,V820)); |
4234 |
goto T1442;} |
goto T1442;} |
4235 |
goto T1439; |
goto T1439; |
4236 |
T1439:; |
T1439:; |
4237 |
V761 = CMPmake_fixnum((long)length((V755))); |
V821 = CMPmake_fixnum((long)length((V814))); |
4238 |
V758= list(2,VV[209],V761); |
V817= list(2,VV[209],V821); |
4239 |
V762= list(2,VV[212],list(3,VV[213],(V758),VV[202])); |
V822= list(2,VV[212],list(3,VV[213],(V817),VV[202])); |
4240 |
base[7]= list(4,VV[210],VV[211],/* INLINE-ARGS */V762,list(2,VV[170],list(5,VV[210],VV[214],VV[215],make_cons(VV[216],(V757)),VV[175]))); |
base[7]= list(4,VV[210],VV[211],/* INLINE-ARGS */V822,list(2,VV[170],list(5,VV[210],VV[214],VV[215],make_cons(VV[216],(V816)),VV[175]))); |
4241 |
base[9]= (V755); |
V823 = (V811); |
4242 |
base[10]= (V758); |
base[9]= (V814); |
4243 |
|
base[10]= (V817); |
4244 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
4245 |
(void) (*Lnk308)(); |
(void) (*Lnk308)(); |
4246 |
vs_top=sup; |
vs_top=sup; |
4247 |
V763= vs_base[0]; |
V824= vs_base[0]; |
4248 |
base[8]= list(2,(V752),V763); |
base[8]= list(2,V823,V824); |
4249 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
4250 |
return;} |
return;} |
4251 |
} |
} |
4252 |
} |
} |
4253 |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL */ |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL */ |
4254 |
|
|
4255 |
static object LI64(V765) |
static object LI64(V826) |
4256 |
|
|
4257 |
object V765; |
object V826; |
4258 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
4259 |
goto TTL; |
goto TTL; |
4260 |
TTL:; |
TTL:; |
4261 |
V766= make_cons((V765),Cnil); |
V827= make_cons((V826),Cnil); |
4262 |
(void)((*(LnkLI7))(/* INLINE-ARGS */V766)); |
(void)((*(LnkLI7))(/* INLINE-ARGS */V827)); |
4263 |
{object V767 = (*(LnkLI75))((V765)); |
{object V828 = (*(LnkLI75))((V826)); |
4264 |
VMR58(V767)} |
VMR58(V828)} |
4265 |
return Cnil; |
return Cnil; |
4266 |
} |
} |
4267 |
/* local function CONST */ |
/* local function CONST */ |
4271 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4272 |
register object *sup=base+VM59; VC59 |
register object *sup=base+VM59; VC59 |
4273 |
vs_check; |
vs_check; |
4274 |
{object V768; |
{object V829; |
4275 |
check_arg(1); |
check_arg(1); |
4276 |
V768=(base[0]); |
V829=(base[0]); |
4277 |
vs_top=sup; |
vs_top=sup; |
4278 |
goto TTL; |
goto TTL; |
4279 |
TTL:; |
TTL:; |
4280 |
if(type_of((V768))==t_fixnum|| |
if(type_of((V829))==t_fixnum|| |
4281 |
type_of((V768))==t_bignum|| |
type_of((V829))==t_bignum|| |
4282 |
type_of((V768))==t_ratio|| |
type_of((V829))==t_ratio|| |
4283 |
type_of((V768))==t_shortfloat|| |
type_of((V829))==t_shortfloat|| |
4284 |
type_of((V768))==t_longfloat|| |
type_of((V829))==t_longfloat|| |
4285 |
type_of((V768))==t_complex){ |
type_of((V829))==t_complex){ |
4286 |
goto T1455;} |
goto T1455;} |
4287 |
if(!(type_of((V768))==t_character)){ |
if(!(type_of((V829))==t_character)){ |
4288 |
goto T1456;} |
goto T1456;} |
4289 |
goto T1455; |
goto T1455; |
4290 |
T1455:; |
T1455:; |
4291 |
base[1]= (V768); |
base[1]= (V829); |
4292 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4293 |
return; |
return; |
4294 |
goto T1456; |
goto T1456; |
4295 |
T1456:; |
T1456:; |
4296 |
if(!(type_of((V768))==t_symbol)){ |
if(!(type_of((V829))==t_symbol)){ |
4297 |
goto T1461;} |
goto T1461;} |
4298 |
base[1]= (V768); |
base[1]= (V829); |
4299 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4300 |
Lsymbol_package(); |
Lsymbol_package(); |
4301 |
vs_top=sup; |
vs_top=sup; |
4302 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4303 |
goto T1461;} |
goto T1461;} |
4304 |
base[1]= list(2,VV[4],(V768)); |
base[1]= list(2,VV[4],(V829)); |
4305 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4306 |
return; |
return; |
4307 |
goto T1461; |
goto T1461; |
4308 |
T1461:; |
T1461:; |
4309 |
base[1]= list(3,VV[201],VV[202],(*(LnkLI309))(base0[0],(V768))); |
base[1]= list(3,VV[201],VV[202],(*(LnkLI309))(base0[0],(V829))); |
4310 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4311 |
return; |
return; |
4312 |
} |
} |
4318 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4319 |
register object *sup=base+VM60; VC60 |
register object *sup=base+VM60; VC60 |
4320 |
vs_check; |
vs_check; |
4321 |
{object V769; |
{object V830; |
4322 |
object V770; |
object V831; |
4323 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4324 |
V769=(base[0]); |
V830=(base[0]); |
4325 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4326 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4327 |
{object *p=vs_top; |
{object *p=vs_top; |
4328 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4329 |
V770=(base[1]); |
V831=(base[1]); |
4330 |
vs_top=sup; |
vs_top=sup; |
4331 |
{object V771; |
{object V832; |
4332 |
if(((base0[3]->c.c_car))==Cnil){ |
if(((base0[3]->c.c_car))==Cnil){ |
4333 |
goto T1468;} |
goto T1468;} |
4334 |
V771= (VFUN_NARGS=2,(*(LnkLI310))((base0[4]->c.c_car),(base0[3]->c.c_car))); |
V832= (VFUN_NARGS=2,(*(LnkLI310))((base0[4]->c.c_car),(base0[3]->c.c_car))); |
4335 |
goto T1466; |
goto T1466; |
4336 |
goto T1468; |
goto T1468; |
4337 |
T1468:; |
T1468:; |
4338 |
V771= (V769); |
V832= (V830); |
4339 |
goto T1466; |
goto T1466; |
4340 |
T1466:; |
T1466:; |
4341 |
if(!(((V771))==((V769)))){ |
if(!(((V832))==((V830)))){ |
4342 |
goto T1470;} |
goto T1470;} |
4343 |
if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4344 |
goto T1471;} |
goto T1471;} |
4345 |
goto T1470; |
goto T1470; |
4346 |
T1470:; |
T1470:; |
4347 |
base[2]= (V771); |
base[2]= (V832); |
4348 |
base[3]= (V770); |
base[3]= (V831); |
4349 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4350 |
(void) (*Lnk124)(); |
(void) (*Lnk124)(); |
4351 |
return; |
return; |
4352 |
goto T1471; |
goto T1471; |
4353 |
T1471:; |
T1471:; |
4354 |
{register object V772; |
{register object V833; |
4355 |
register object V773; |
register object V834; |
4356 |
{register object V774; |
{register object V835; |
4357 |
V774= (base0[6]->c.c_car); |
V835= (base0[6]->c.c_car); |
4358 |
if(!(type_of((V774))==t_cons)){ |
if(!(type_of((V835))==t_cons)){ |
4359 |
goto T1479;} |
goto T1479;} |
4360 |
if(!((CMPcar((V774)))==(VV[130]))){ |
if(!((CMPcar((V835)))==(VV[130]))){ |
4361 |
goto T1479;} |
goto T1479;} |
4362 |
V772= (*(LnkLI111))(CMPcadr((V774)),CMPcaddr((V774)),Cnil,(V770)); |
V833= (*(LnkLI111))(CMPcadr((V835)),CMPcaddr((V835)),Cnil,(V831)); |
4363 |
goto T1477; |
goto T1477; |
4364 |
goto T1479; |
goto T1479; |
4365 |
T1479:; |
T1479:; |
4366 |
V772= ( |
V833= ( |
4367 |
(type_of((V774)) == t_sfun ?(*(((V774))->sfn.sfn_self)): |
(type_of((V835)) == t_sfun ?(*(((V835))->sfn.sfn_self)): |
4368 |
(fcall.argd=2,type_of((V774))==t_vfun) ? |
(fcall.argd=2,type_of((V835))==t_vfun) ? |
4369 |
(*(((V774))->sfn.sfn_self)): |
(*(((V835))->sfn.sfn_self)): |
4370 |
(fcall.fun=((V774)),fcalln))(Cnil,(V770)));} |
(fcall.fun=((V835)),fcalln))(Cnil,(V831)));} |
4371 |
goto T1477; |
goto T1477; |
4372 |
T1477:; |
T1477:; |
4373 |
base[4]=VV[96]->s.s_gfdef; |
base[4]=VV[96]->s.s_gfdef; |
4374 |
base[5]= (base0[7]->c.c_car); |
base[5]= (base0[7]->c.c_car); |
4375 |
{object V775; |
{object V836; |
4376 |
V775= (V772); |
V836= (V833); |
4377 |
vs_top=base+6; |
vs_top=base+6; |
4378 |
while(V775!=Cnil) |
while(V836!=Cnil) |
4379 |
{vs_push((V775)->c.c_car);V775=(V775)->c.c_cdr;} |
{vs_push((V836)->c.c_car);V836=(V836)->c.c_cdr;} |
4380 |
vs_base=base+5;} |
vs_base=base+5;} |
4381 |
(void) (*Lnk96)(Lclptr96); |
(void) (*Lnk96)(Lclptr96); |
4382 |
vs_top=sup; |
vs_top=sup; |
4383 |
V773= vs_base[0]; |
V834= vs_base[0]; |
4384 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
4385 |
base[5]= VV[131]; |
base[5]= VV[131]; |
4386 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4389 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4390 |
goto T1489;} |
goto T1489;} |
4391 |
(void)(( |
(void)(( |
4392 |
V776 = STREF(object,(base0[0]->c.c_car),0), |
V837 = STREF(object,(base0[0]->c.c_car),0), |
4393 |
(type_of(V776) == t_sfun ?(*((V776)->sfn.sfn_self)): |
(type_of(V837) == t_sfun ?(*((V837)->sfn.sfn_self)): |
4394 |
(fcall.argd=4,type_of(V776)==t_vfun) ? |
(fcall.argd=4,type_of(V837)==t_vfun) ? |
4395 |
(*((V776)->sfn.sfn_self)): |
(*((V837)->sfn.sfn_self)): |
4396 |
(fcall.fun=(V776),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V773),(V772)))); |
(fcall.fun=(V837),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V834),(V833)))); |
4397 |
goto T1486; |
goto T1486; |
4398 |
goto T1489; |
goto T1489; |
4399 |
T1489:; |
T1489:; |
4400 |
{register object V777; |
{register object V838; |
4401 |
V777= (base0[0]->c.c_car); |
V838= (base0[0]->c.c_car); |
4402 |
base[4]= (V777); |
base[4]= (V838); |
4403 |
base[5]= VV[132]; |
base[5]= VV[132]; |
4404 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4405 |
(void) (*Lnk311)(); |
(void) (*Lnk311)(); |
4406 |
vs_top=sup; |
vs_top=sup; |
4407 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4408 |
goto T1494;} |
goto T1494;} |
4409 |
{object V778; |
{object V839; |
4410 |
object V779; |
object V840; |
4411 |
register object V780; |
register object V841; |
4412 |
V778= STREF(object,(base0[0]->c.c_car),0); |
V839= STREF(object,(base0[0]->c.c_car),0); |
4413 |
V779= make_cons((V773),(V772)); |
V840= make_cons((V834),(V833)); |
4414 |
V780= STREF(object,(base0[0]->c.c_car),4); |
V841= STREF(object,(base0[0]->c.c_car),4); |
4415 |
if(((V780))==Cnil){ |
if(((V841))==Cnil){ |
4416 |
goto T1502;} |
goto T1502;} |
4417 |
if((CMPcdr((V780)))!=Cnil){ |
if((CMPcdr((V841)))!=Cnil){ |
4418 |
goto T1502;} |
goto T1502;} |
4419 |
(void)(( |
(void)(( |
4420 |
(type_of((V778)) == t_sfun ?(*(((V778))->sfn.sfn_self)): |
(type_of((V839)) == t_sfun ?(*(((V839))->sfn.sfn_self)): |
4421 |
(fcall.argd=2,type_of((V778))==t_vfun) ? |
(fcall.argd=2,type_of((V839))==t_vfun) ? |
4422 |
(*(((V778))->sfn.sfn_self)): |
(*(((V839))->sfn.sfn_self)): |
4423 |
(fcall.fun=((V778)),fcalln))((V779),CMPcar((V780))))); |
(fcall.fun=((V839)),fcalln))((V840),CMPcar((V841))))); |
4424 |
goto T1486; |
goto T1486; |
4425 |
goto T1502; |
goto T1502; |
4426 |
T1502:; |
T1502:; |
4427 |
base[4]= (V778); |
base[4]= (V839); |
4428 |
base[5]= (V779); |
base[5]= (V840); |
4429 |
{object V781; |
{object V842; |
4430 |
V781= (V780); |
V842= (V841); |
4431 |
vs_top=base+6; |
vs_top=base+6; |
4432 |
while(V781!=Cnil) |
while(V842!=Cnil) |
4433 |
{vs_push((V781)->c.c_car);V781=(V781)->c.c_cdr;} |
{vs_push((V842)->c.c_car);V842=(V842)->c.c_cdr;} |
4434 |
vs_base=base+5;} |
vs_base=base+5;} |
4435 |
{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)) |
4436 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4440 |
goto T1486;} |
goto T1486;} |
4441 |
goto T1494; |
goto T1494; |
4442 |
T1494:; |
T1494:; |
4443 |
base[4]= (V777); |
base[4]= (V838); |
4444 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4445 |
Lfunctionp(); |
Lfunctionp(); |
4446 |
vs_top=sup; |
vs_top=sup; |
4447 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4448 |
goto T1510;} |
goto T1510;} |
4449 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
4450 |
base[5]= (V773); |
base[5]= (V834); |
4451 |
{object V782; |
{object V843; |
4452 |
V782= (V772); |
V843= (V833); |
4453 |
vs_top=base+6; |
vs_top=base+6; |
4454 |
while(V782!=Cnil) |
while(V843!=Cnil) |
4455 |
{vs_push((V782)->c.c_car);V782=(V782)->c.c_cdr;} |
{vs_push((V843)->c.c_car);V843=(V843)->c.c_cdr;} |
4456 |
vs_base=base+5;} |
vs_base=base+5;} |
4457 |
{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)) |
4458 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4463 |
goto T1510; |
goto T1510; |
4464 |
T1510:; |
T1510:; |
4465 |
base[5]= VV[97]; |
base[5]= VV[97]; |
4466 |
base[6]= (V777); |
base[6]= (V838); |
4467 |
base[7]= VV[144]; |
base[7]= VV[144]; |
4468 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
4469 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
4474 |
vs_top=sup;} |
vs_top=sup;} |
4475 |
goto T1486; |
goto T1486; |
4476 |
T1486:; |
T1486:; |
4477 |
base[4]= (V773); |
base[4]= (V834); |
4478 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4479 |
return;}} |
return;}} |
4480 |
} |
} |
4486 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4487 |
register object *sup=base+VM61; VC61 |
register object *sup=base+VM61; VC61 |
4488 |
vs_check; |
vs_check; |
4489 |
{object V783; |
{object V844; |
4490 |
object V784; |
object V845; |
4491 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4492 |
V783=(base[0]); |
V844=(base[0]); |
4493 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4494 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4495 |
{object *p=vs_top; |
{object *p=vs_top; |
4496 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4497 |
V784=(base[1]); |
V845=(base[1]); |
4498 |
vs_top=sup; |
vs_top=sup; |
4499 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
4500 |
base[3]= VV[131]; |
base[3]= VV[131]; |
4506 |
base[2]= STREF(object,(base0[0]->c.c_car),0); |
base[2]= STREF(object,(base0[0]->c.c_car),0); |
4507 |
base[3]= STREF(object,(base0[0]->c.c_car),4); |
base[3]= STREF(object,(base0[0]->c.c_car),4); |
4508 |
base[4]= STREF(object,(base0[0]->c.c_car),8); |
base[4]= STREF(object,(base0[0]->c.c_car),8); |
4509 |
base[5]= (V783); |
base[5]= (V844); |
4510 |
base[6]= Ct; |
base[6]= Ct; |
4511 |
base[7]= (V784); |
base[7]= (V845); |
4512 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
4513 |
{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)) |
4514 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4517 |
return; |
return; |
4518 |
goto T1522; |
goto T1522; |
4519 |
T1522:; |
T1522:; |
4520 |
{register object V785; |
{register object V846; |
4521 |
V785= (base0[0]->c.c_car); |
V846= (base0[0]->c.c_car); |
4522 |
base[2]= (V785); |
base[2]= (V846); |
4523 |
base[3]= VV[132]; |
base[3]= VV[132]; |
4524 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4525 |
(void) (*Lnk311)(); |
(void) (*Lnk311)(); |
4526 |
vs_top=sup; |
vs_top=sup; |
4527 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4528 |
goto T1533;} |
goto T1533;} |
4529 |
{object V786; |
{object V847; |
4530 |
object V787; |
object V848; |
4531 |
register object V788; |
register object V849; |
4532 |
V786= STREF(object,(base0[0]->c.c_car),0); |
V847= STREF(object,(base0[0]->c.c_car),0); |
4533 |
V787= listA(3,(V783),Ct,(V784)); |
V848= listA(3,(V844),Ct,(V845)); |
4534 |
V788= STREF(object,(base0[0]->c.c_car),4); |
V849= STREF(object,(base0[0]->c.c_car),4); |
4535 |
if(((V788))==Cnil){ |
if(((V849))==Cnil){ |
4536 |
goto T1541;} |
goto T1541;} |
4537 |
if((CMPcdr((V788)))!=Cnil){ |
if((CMPcdr((V849)))!=Cnil){ |
4538 |
goto T1541;} |
goto T1541;} |
4539 |
base[2]= (V787); |
base[2]= (V848); |
4540 |
base[3]= CMPcar((V788)); |
base[3]= CMPcar((V849)); |
4541 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4542 |
{object _funobj = (V786);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V847);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4543 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4544 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4545 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4546 |
return; |
return; |
4547 |
goto T1541; |
goto T1541; |
4548 |
T1541:; |
T1541:; |
4549 |
base[2]= (V786); |
base[2]= (V847); |
4550 |
base[3]= (V787); |
base[3]= (V848); |
4551 |
{object V789; |
{object V850; |
4552 |
V789= (V788); |
V850= (V849); |
4553 |
vs_top=base+4; |
vs_top=base+4; |
4554 |
while(V789!=Cnil) |
while(V850!=Cnil) |
4555 |
{vs_push((V789)->c.c_car);V789=(V789)->c.c_cdr;} |
{vs_push((V850)->c.c_car);V850=(V850)->c.c_cdr;} |
4556 |
vs_base=base+3;} |
vs_base=base+3;} |
4557 |
{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)) |
4558 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4561 |
return;} |
return;} |
4562 |
goto T1533; |
goto T1533; |
4563 |
T1533:; |
T1533:; |
4564 |
base[2]= (V785); |
base[2]= (V846); |
4565 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4566 |
Lfunctionp(); |
Lfunctionp(); |
4567 |
vs_top=sup; |
vs_top=sup; |
4568 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4569 |
goto T1551;} |
goto T1551;} |
4570 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
4571 |
base[3]= (V783); |
base[3]= (V844); |
4572 |
base[4]= Ct; |
base[4]= Ct; |
4573 |
{object V790; |
{object V851; |
4574 |
V790= (V784); |
V851= (V845); |
4575 |
vs_top=base+5; |
vs_top=base+5; |
4576 |
while(V790!=Cnil) |
while(V851!=Cnil) |
4577 |
{vs_push((V790)->c.c_car);V790=(V790)->c.c_cdr;} |
{vs_push((V851)->c.c_car);V851=(V851)->c.c_cdr;} |
4578 |
vs_base=base+3;} |
vs_base=base+3;} |
4579 |
{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)) |
4580 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4584 |
goto T1551; |
goto T1551; |
4585 |
T1551:; |
T1551:; |
4586 |
base[3]= VV[98]; |
base[3]= VV[98]; |
4587 |
base[4]= (V785); |
base[4]= (V846); |
4588 |
base[5]= VV[143]; |
base[5]= VV[143]; |
4589 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4590 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
4602 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4603 |
register object *sup=base+VM62; VC62 |
register object *sup=base+VM62; VC62 |
4604 |
vs_check; |
vs_check; |
4605 |
{object V791; |
{object V852; |
4606 |
object V792; |
object V853; |
4607 |
object V793; |
object V854; |
4608 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
4609 |
V791=(base[0]); |
V852=(base[0]); |
4610 |
V792=(base[1]); |
V853=(base[1]); |
4611 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
4612 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4613 |
{object *p=vs_top; |
{object *p=vs_top; |
4614 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4615 |
V793=(base[2]); |
V854=(base[2]); |
4616 |
vs_top=sup; |
vs_top=sup; |
4617 |
{register object V794; |
{register object V855; |
4618 |
V794= (base0[3]->c.c_car); |
V855= (base0[3]->c.c_car); |
4619 |
if(!(type_of((V794))==t_cons)){ |
if(!(type_of((V855))==t_cons)){ |
4620 |
goto T1564;} |
goto T1564;} |
4621 |
if(!((CMPcar((V794)))==(VV[130]))){ |
if(!((CMPcar((V855)))==(VV[130]))){ |
4622 |
goto T1564;} |
goto T1564;} |
4623 |
(void)((*(LnkLI111))(CMPcadr((V794)),CMPcaddr((V794)),(V791),(V793))); |
(void)((*(LnkLI111))(CMPcadr((V855)),CMPcaddr((V855)),(V852),(V854))); |
4624 |
goto T1562; |
goto T1562; |
4625 |
goto T1564; |
goto T1564; |
4626 |
T1564:; |
T1564:; |
4627 |
(void)(( |
(void)(( |
4628 |
(type_of((V794)) == t_sfun ?(*(((V794))->sfn.sfn_self)): |
(type_of((V855)) == t_sfun ?(*(((V855))->sfn.sfn_self)): |
4629 |
(fcall.argd=2,type_of((V794))==t_vfun) ? |
(fcall.argd=2,type_of((V855))==t_vfun) ? |
4630 |
(*(((V794))->sfn.sfn_self)): |
(*(((V855))->sfn.sfn_self)): |
4631 |
(fcall.fun=((V794)),fcalln))((V791),(V793))));} |
(fcall.fun=((V855)),fcalln))((V852),(V854))));} |
4632 |
goto T1562; |
goto T1562; |
4633 |
T1562:; |
T1562:; |
4634 |
base[3]= (V791); |
base[3]= (V852); |
4635 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4636 |
return; |
return; |
4637 |
} |
} |
4643 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4644 |
register object *sup=base+VM63; VC63 |
register object *sup=base+VM63; VC63 |
4645 |
vs_check; |
vs_check; |
4646 |
{object V795; |
{object V856; |
4647 |
object V796; |
object V857; |
4648 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4649 |
V795=(base[0]); |
V856=(base[0]); |
4650 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4651 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4652 |
{object *p=vs_top; |
{object *p=vs_top; |
4653 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4654 |
V796=(base[1]); |
V857=(base[1]); |
4655 |
vs_top=sup; |
vs_top=sup; |
4656 |
{object V797; |
{object V858; |
4657 |
if(((base0[6]->c.c_car))==Cnil){ |
if(((base0[6]->c.c_car))==Cnil){ |
4658 |
goto T1570;} |
goto T1570;} |
4659 |
V797= (VFUN_NARGS=2,(*(LnkLI310))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
V858= (VFUN_NARGS=2,(*(LnkLI310))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
4660 |
goto T1568; |
goto T1568; |
4661 |
goto T1570; |
goto T1570; |
4662 |
T1570:; |
T1570:; |
4663 |
V797= (V795); |
V858= (V856); |
4664 |
goto T1568; |
goto T1568; |
4665 |
T1568:; |
T1568:; |
4666 |
if(!(((V797))==((V795)))){ |
if(!(((V858))==((V856)))){ |
4667 |
goto T1572;} |
goto T1572;} |
4668 |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4669 |
goto T1573;} |
goto T1573;} |
4670 |
goto T1572; |
goto T1572; |
4671 |
T1572:; |
T1572:; |
4672 |
base[2]= (V797); |
base[2]= (V858); |
4673 |
base[3]= (V796); |
base[3]= (V857); |
4674 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4675 |
(void) (*Lnk124)(); |
(void) (*Lnk124)(); |
4676 |
return; |
return; |
4677 |
goto T1573; |
goto T1573; |
4678 |
T1573:; |
T1573:; |
4679 |
{register object V798; |
{register object V859; |
4680 |
object V799; |
object V860; |
4681 |
V798= ( |
V859= ( |
4682 |
(type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
(type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
4683 |
(fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ? |
(fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ? |
4684 |
(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
4685 |
(fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car))); |
(fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car))); |
4686 |
{object V800; |
{object V861; |
4687 |
V800= (base0[1]->c.c_car); |
V861= (base0[1]->c.c_car); |
4688 |
if(!(type_of((V800))==t_cons)){ |
if(!(type_of((V861))==t_cons)){ |
4689 |
goto T1582;} |
goto T1582;} |
4690 |
if(!((CMPcar((V800)))==(VV[130]))){ |
if(!((CMPcar((V861)))==(VV[130]))){ |
4691 |
goto T1582;} |
goto T1582;} |
4692 |
V799= (*(LnkLI111))(CMPcadr((V800)),CMPcaddr((V800)),(V798),(V796)); |
V860= (*(LnkLI111))(CMPcadr((V861)),CMPcaddr((V861)),(V859),(V857)); |
4693 |
goto T1580; |
goto T1580; |
4694 |
goto T1582; |
goto T1582; |
4695 |
T1582:; |
T1582:; |
4696 |
V799= ( |
V860= ( |
4697 |
(type_of((V800)) == t_sfun ?(*(((V800))->sfn.sfn_self)): |
(type_of((V861)) == t_sfun ?(*(((V861))->sfn.sfn_self)): |
4698 |
(fcall.argd=2,type_of((V800))==t_vfun) ? |
(fcall.argd=2,type_of((V861))==t_vfun) ? |
4699 |
(*(((V800))->sfn.sfn_self)): |
(*(((V861))->sfn.sfn_self)): |
4700 |
(fcall.fun=((V800)),fcalln))((V798),(V796)));} |
(fcall.fun=((V861)),fcalln))((V859),(V857)));} |
4701 |
goto T1580; |
goto T1580; |
4702 |
T1580:; |
T1580:; |
4703 |
{object V801; |
{object V862; |
4704 |
register object V802; |
register object V863; |
4705 |
V801= (base0[3]->c.c_car); |
V862= (base0[3]->c.c_car); |
4706 |
V802= CMPcar((V801)); |
V863= CMPcar((V862)); |
4707 |
goto T1590; |
goto T1590; |
4708 |
T1590:; |
T1590:; |
4709 |
if(!(((V801))==Cnil)){ |
if(!(((V862))==Cnil)){ |
4710 |
goto T1591;} |
goto T1591;} |
4711 |
goto T1586; |
goto T1586; |
4712 |
goto T1591; |
goto T1591; |
4713 |
T1591:; |
T1591:; |
4714 |
base[5]= (V802); |
base[5]= (V863); |
4715 |
base[6]= VV[131]; |
base[6]= VV[131]; |
4716 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4717 |
(void) (*Lnk311)(); |
(void) (*Lnk311)(); |
4719 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4720 |
goto T1598;} |
goto T1598;} |
4721 |
(void)(( |
(void)(( |
4722 |
V803 = STREF(object,(V802),0), |
V864 = STREF(object,(V863),0), |
4723 |
(type_of(V803) == t_sfun ?(*((V803)->sfn.sfn_self)): |
(type_of(V864) == t_sfun ?(*((V864)->sfn.sfn_self)): |
4724 |
(fcall.argd=5,type_of(V803)==t_vfun) ? |
(fcall.argd=5,type_of(V864)==t_vfun) ? |
4725 |
(*((V803)->sfn.sfn_self)): |
(*((V864)->sfn.sfn_self)): |
4726 |
(fcall.fun=(V803),fcalln))(STREF(object,(V802),4),STREF(object,(V802),8),(V798),Ct,(V799)))); |
(fcall.fun=(V864),fcalln))(STREF(object,(V863),4),STREF(object,(V863),8),(V859),Ct,(V860)))); |
4727 |
goto T1595; |
goto T1595; |
4728 |
goto T1598; |
goto T1598; |
4729 |
T1598:; |
T1598:; |
4730 |
base[5]= V802; |
base[5]= V863; |
4731 |
base[6]= VV[132]; |
base[6]= VV[132]; |
4732 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4733 |
(void) (*Lnk311)(); |
(void) (*Lnk311)(); |
4734 |
vs_top=sup; |
vs_top=sup; |
4735 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4736 |
goto T1603;} |
goto T1603;} |
4737 |
{object V805; |
{object V866; |
4738 |
object V806; |
object V867; |
4739 |
object V807; |
object V868; |
4740 |
V805= STREF(object,(V802),0); |
V866= STREF(object,(V863),0); |
4741 |
V806= listA(3,(V798),Ct,(V799)); |
V867= listA(3,(V859),Ct,(V860)); |
4742 |
V807= STREF(object,(V802),4); |
V868= STREF(object,(V863),4); |
4743 |
if(((V807))==Cnil){ |
if(((V868))==Cnil){ |
4744 |
goto T1611;} |
goto T1611;} |
4745 |
if((CMPcdr((V807)))!=Cnil){ |
if((CMPcdr((V868)))!=Cnil){ |
4746 |
goto T1611;} |
goto T1611;} |
4747 |
(void)(( |
(void)(( |
4748 |
(type_of((V805)) == t_sfun ?(*(((V805))->sfn.sfn_self)): |
(type_of((V866)) == t_sfun ?(*(((V866))->sfn.sfn_self)): |
4749 |
(fcall.argd=2,type_of((V805))==t_vfun) ? |
(fcall.argd=2,type_of((V866))==t_vfun) ? |
4750 |
(*(((V805))->sfn.sfn_self)): |
(*(((V866))->sfn.sfn_self)): |
4751 |
(fcall.fun=((V805)),fcalln))((V806),CMPcar((V807))))); |
(fcall.fun=((V866)),fcalln))((V867),CMPcar((V868))))); |
4752 |
goto T1595; |
goto T1595; |
4753 |
goto T1611; |
goto T1611; |
4754 |
T1611:; |
T1611:; |
4755 |
base[5]= (V805); |
base[5]= (V866); |
4756 |
base[6]= (V806); |
base[6]= (V867); |
4757 |
{object V808; |
{object V869; |
4758 |
V808= (V807); |
V869= (V868); |
4759 |
vs_top=base+7; |
vs_top=base+7; |
4760 |
while(V808!=Cnil) |
while(V869!=Cnil) |
4761 |
{vs_push((V808)->c.c_car);V808=(V808)->c.c_cdr;} |
{vs_push((V869)->c.c_car);V869=(V869)->c.c_cdr;} |
4762 |
vs_base=base+6;} |
vs_base=base+6;} |
4763 |
{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)) |
4764 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4768 |
goto T1595;} |
goto T1595;} |
4769 |
goto T1603; |
goto T1603; |
4770 |
T1603:; |
T1603:; |
4771 |
base[5]= V802; |
base[5]= V863; |
4772 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4773 |
Lfunctionp(); |
Lfunctionp(); |
4774 |
vs_top=sup; |
vs_top=sup; |
4775 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4776 |
goto T1619;} |
goto T1619;} |
4777 |
base[5]= (V802); |
base[5]= (V863); |
4778 |
base[6]= (V798); |
base[6]= (V859); |
4779 |
base[7]= Ct; |
base[7]= Ct; |
4780 |
{object V809; |
{object V870; |
4781 |
V809= (V799); |
V870= (V860); |
4782 |
vs_top=base+8; |
vs_top=base+8; |
4783 |
while(V809!=Cnil) |
while(V870!=Cnil) |
4784 |
{vs_push((V809)->c.c_car);V809=(V809)->c.c_cdr;} |
{vs_push((V870)->c.c_car);V870=(V870)->c.c_cdr;} |
4785 |
vs_base=base+6;} |
vs_base=base+6;} |
4786 |
{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)) |
4787 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4792 |
goto T1619; |
goto T1619; |
4793 |
T1619:; |
T1619:; |
4794 |
base[6]= VV[133]; |
base[6]= VV[133]; |
4795 |
base[7]= V802; |
base[7]= V863; |
4796 |
base[8]= VV[136]; |
base[8]= VV[136]; |
4797 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
4798 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
4803 |
vs_top=sup; |
vs_top=sup; |
4804 |
goto T1595; |
goto T1595; |
4805 |
T1595:; |
T1595:; |
4806 |
V801= CMPcdr((V801)); |
V862= CMPcdr((V862)); |
4807 |
V802= CMPcar((V801)); |
V863= CMPcar((V862)); |
4808 |
goto T1590;} |
goto T1590;} |
4809 |
goto T1586; |
goto T1586; |
4810 |
T1586:; |
T1586:; |
4811 |
{object V810; |
{object V871; |
4812 |
register object V811; |
register object V872; |
4813 |
V810= (base0[2]->c.c_car); |
V871= (base0[2]->c.c_car); |
4814 |
V811= CMPcar((V810)); |
V872= CMPcar((V871)); |
4815 |
goto T1639; |
goto T1639; |
4816 |
T1639:; |
T1639:; |
4817 |
if(!(((V810))==Cnil)){ |
if(!(((V871))==Cnil)){ |
4818 |
goto T1640;} |
goto T1640;} |
4819 |
goto T1635; |
goto T1635; |
4820 |
goto T1640; |
goto T1640; |
4821 |
T1640:; |
T1640:; |
4822 |
base[5]= (V811); |
base[5]= (V872); |
4823 |
base[6]= VV[131]; |
base[6]= VV[131]; |
4824 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4825 |
(void) (*Lnk311)(); |
(void) (*Lnk311)(); |
4827 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4828 |
goto T1647;} |
goto T1647;} |
4829 |
(void)(( |
(void)(( |
4830 |
V812 = STREF(object,(V811),0), |
V873 = STREF(object,(V872),0), |
4831 |
(type_of(V812) == t_sfun ?(*((V812)->sfn.sfn_self)): |
(type_of(V873) == t_sfun ?(*((V873)->sfn.sfn_self)): |
4832 |
(fcall.argd=4,type_of(V812)==t_vfun) ? |
(fcall.argd=4,type_of(V873)==t_vfun) ? |
4833 |
(*((V812)->sfn.sfn_self)): |
(*((V873)->sfn.sfn_self)): |
4834 |
(fcall.fun=(V812),fcalln))(STREF(object,(V811),4),STREF(object,(V811),8),(V798),(V799)))); |
(fcall.fun=(V873),fcalln))(STREF(object,(V872),4),STREF(object,(V872),8),(V859),(V860)))); |
4835 |
goto T1644; |
goto T1644; |
4836 |
goto T1647; |
goto T1647; |
4837 |
T1647:; |
T1647:; |
4838 |
base[5]= V811; |
base[5]= V872; |
4839 |
base[6]= VV[132]; |
base[6]= VV[132]; |
4840 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4841 |
(void) (*Lnk311)(); |
(void) (*Lnk311)(); |
4842 |
vs_top=sup; |
vs_top=sup; |
4843 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4844 |
goto T1652;} |
goto T1652;} |
4845 |
{object V814; |
{object V875; |
4846 |
object V815; |
object V876; |
4847 |
object V816; |
object V877; |
4848 |
V814= STREF(object,(V811),0); |
V875= STREF(object,(V872),0); |
4849 |
V815= make_cons((V798),(V799)); |
V876= make_cons((V859),(V860)); |
4850 |
V816= STREF(object,(V811),4); |
V877= STREF(object,(V872),4); |
4851 |
if(((V816))==Cnil){ |
if(((V877))==Cnil){ |
4852 |
goto T1660;} |
goto T1660;} |
4853 |
if((CMPcdr((V816)))!=Cnil){ |
if((CMPcdr((V877)))!=Cnil){ |
4854 |
goto T1660;} |
goto T1660;} |
4855 |
(void)(( |
(void)(( |
4856 |
(type_of((V814)) == t_sfun ?(*(((V814))->sfn.sfn_self)): |
(type_of((V875)) == t_sfun ?(*(((V875))->sfn.sfn_self)): |
4857 |
(fcall.argd=2,type_of((V814))==t_vfun) ? |
(fcall.argd=2,type_of((V875))==t_vfun) ? |
4858 |
(*(((V814))->sfn.sfn_self)): |
(*(((V875))->sfn.sfn_self)): |
4859 |
(fcall.fun=((V814)),fcalln))((V815),CMPcar((V816))))); |
(fcall.fun=((V875)),fcalln))((V876),CMPcar((V877))))); |
4860 |
goto T1644; |
goto T1644; |
4861 |
goto T1660; |
goto T1660; |
4862 |
T1660:; |
T1660:; |
4863 |
base[5]= (V814); |
base[5]= (V875); |
4864 |
base[6]= (V815); |
base[6]= (V876); |
4865 |
{object V817; |
{object V878; |
4866 |
V817= (V816); |
V878= (V877); |
4867 |
vs_top=base+7; |
vs_top=base+7; |
4868 |
while(V817!=Cnil) |
while(V878!=Cnil) |
4869 |
{vs_push((V817)->c.c_car);V817=(V817)->c.c_cdr;} |
{vs_push((V878)->c.c_car);V878=(V878)->c.c_cdr;} |
4870 |
vs_base=base+6;} |
vs_base=base+6;} |
4871 |
{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)) |
4872 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4876 |
goto T1644;} |
goto T1644;} |
4877 |
goto T1652; |
goto T1652; |
4878 |
T1652:; |
T1652:; |
4879 |
base[5]= V811; |
base[5]= V872; |
4880 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4881 |
Lfunctionp(); |
Lfunctionp(); |
4882 |
vs_top=sup; |
vs_top=sup; |
4883 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4884 |
goto T1668;} |
goto T1668;} |
4885 |
base[5]= (V811); |
base[5]= (V872); |
4886 |
base[6]= (V798); |
base[6]= (V859); |
4887 |
{object V818; |
{object V879; |
4888 |
V818= (V799); |
V879= (V860); |
4889 |
vs_top=base+7; |
vs_top=base+7; |
4890 |
while(V818!=Cnil) |
while(V879!=Cnil) |
4891 |
{vs_push((V818)->c.c_car);V818=(V818)->c.c_cdr;} |
{vs_push((V879)->c.c_car);V879=(V879)->c.c_cdr;} |
4892 |
vs_base=base+6;} |
vs_base=base+6;} |
4893 |
{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)) |
4894 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4899 |
goto T1668; |
goto T1668; |
4900 |
T1668:; |
T1668:; |
4901 |
base[6]= VV[133]; |
base[6]= VV[133]; |
4902 |
base[7]= V811; |
base[7]= V872; |
4903 |
base[8]= VV[137]; |
base[8]= VV[137]; |
4904 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
4905 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
4910 |
vs_top=sup; |
vs_top=sup; |
4911 |
goto T1644; |
goto T1644; |
4912 |
T1644:; |
T1644:; |
4913 |
V810= CMPcdr((V810)); |
V871= CMPcdr((V871)); |
4914 |
V811= CMPcar((V810)); |
V872= CMPcar((V871)); |
4915 |
goto T1639;} |
goto T1639;} |
4916 |
goto T1635; |
goto T1635; |
4917 |
T1635:; |
T1635:; |
4918 |
base[4]= (V798); |
base[4]= (V859); |
4919 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4920 |
return;}} |
return;}} |
4921 |
} |
} |
4927 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4928 |
register object *sup=base+VM64; VC64 |
register object *sup=base+VM64; VC64 |
4929 |
vs_check; |
vs_check; |
4930 |
{object V819; |
{object V880; |
4931 |
register object V820; |
register object V881; |
4932 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4933 |
V819=(base[0]); |
V880=(base[0]); |
4934 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4935 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4936 |
{object *p=vs_top; |
{object *p=vs_top; |
4937 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4938 |
V820=(base[1]); |
V881=(base[1]); |
4939 |
vs_top=sup; |
vs_top=sup; |
4940 |
{object V821; |
{object V882; |
4941 |
if(((base0[6]->c.c_car))==Cnil){ |
if(((base0[6]->c.c_car))==Cnil){ |
4942 |
goto T1685;} |
goto T1685;} |
4943 |
V821= (VFUN_NARGS=2,(*(LnkLI310))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
V882= (VFUN_NARGS=2,(*(LnkLI310))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
4944 |
goto T1683; |
goto T1683; |
4945 |
goto T1685; |
goto T1685; |
4946 |
T1685:; |
T1685:; |
4947 |
V821= (V819); |
V882= (V880); |
4948 |
goto T1683; |
goto T1683; |
4949 |
T1683:; |
T1683:; |
4950 |
if(!(((V821))==((V819)))){ |
if(!(((V882))==((V880)))){ |
4951 |
goto T1687;} |
goto T1687;} |
4952 |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4953 |
goto T1688;} |
goto T1688;} |
4954 |
goto T1687; |
goto T1687; |
4955 |
T1687:; |
T1687:; |
4956 |
base[2]= (V821); |
base[2]= (V882); |
4957 |
base[3]= (V820); |
base[3]= (V881); |
4958 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4959 |
(void) (*Lnk124)(); |
(void) (*Lnk124)(); |
4960 |
return; |
return; |
4961 |
goto T1688; |
goto T1688; |
4962 |
T1688:; |
T1688:; |
4963 |
{register object V822; |
{register object V883; |
4964 |
{object V823; |
{object V884; |
4965 |
V823= (*(LnkLI313))(); |
V884= (*(LnkLI313))(); |
4966 |
V824= Ct; |
V885 = (V884); |
4967 |
STSET(object,(V823),0, (base0[5]->c.c_car)); |
V886 = (base0[5]->c.c_car); |
4968 |
(void)((base0[5]->c.c_car)); |
V887= Ct; |
4969 |
|
STSET(object,V885,0, V886); |
4970 |
|
(void)(V886); |
4971 |
|
V888 = (V884); |
4972 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
4973 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4974 |
Lcopy_seq(); |
Lcopy_seq(); |
4975 |
vs_top=sup; |
vs_top=sup; |
4976 |
V825= vs_base[0]; |
V889= vs_base[0]; |
4977 |
V826= Ct; |
V890= Ct; |
4978 |
STSET(object,(V823),4, V825); |
STSET(object,V888,4, V889); |
4979 |
(void)(V825); |
(void)(V889); |
4980 |
V822= (V823);} |
V883= (V884);} |
4981 |
{object V827; |
{object V891; |
4982 |
V827= (base0[1]->c.c_car); |
V891= (base0[1]->c.c_car); |
4983 |
if(!(type_of((V827))==t_cons)){ |
if(!(type_of((V891))==t_cons)){ |
4984 |
goto T1702;} |
goto T1702;} |
4985 |
if(!((CMPcar((V827)))==(VV[130]))){ |
if(!((CMPcar((V891)))==(VV[130]))){ |
4986 |
goto T1702;} |
goto T1702;} |
4987 |
(void)((*(LnkLI111))(CMPcadr((V827)),CMPcaddr((V827)),(V822),(V820))); |
(void)((*(LnkLI111))(CMPcadr((V891)),CMPcaddr((V891)),(V883),(V881))); |
4988 |
goto T1700; |
goto T1700; |
4989 |
goto T1702; |
goto T1702; |
4990 |
T1702:; |
T1702:; |
4991 |
(void)(( |
(void)(( |
4992 |
(type_of((V827)) == t_sfun ?(*(((V827))->sfn.sfn_self)): |
(type_of((V891)) == t_sfun ?(*(((V891))->sfn.sfn_self)): |
4993 |
(fcall.argd=2,type_of((V827))==t_vfun) ? |
(fcall.argd=2,type_of((V891))==t_vfun) ? |
4994 |
(*(((V827))->sfn.sfn_self)): |
(*(((V891))->sfn.sfn_self)): |
4995 |
(fcall.fun=((V827)),fcalln))((V822),(V820))));} |
(fcall.fun=((V891)),fcalln))((V883),(V881))));} |
4996 |
goto T1700; |
goto T1700; |
4997 |
T1700:; |
T1700:; |
4998 |
{object V828; |
{object V892; |
4999 |
register object V829; |
register object V893; |
5000 |
V828= (base0[3]->c.c_car); |
V892= (base0[3]->c.c_car); |
5001 |
V829= CMPcar((V828)); |
V893= CMPcar((V892)); |
5002 |
goto T1710; |
goto T1710; |
5003 |
T1710:; |
T1710:; |
5004 |
if(!(((V828))==Cnil)){ |
if(!(((V892))==Cnil)){ |
5005 |
goto T1711;} |
goto T1711;} |
5006 |
goto T1706; |
goto T1706; |
5007 |
goto T1711; |
goto T1711; |
5008 |
T1711:; |
T1711:; |
5009 |
base[3]= (V829); |
base[3]= (V893); |
5010 |
base[4]= VV[131]; |
base[4]= VV[131]; |
5011 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5012 |
(void) (*Lnk311)(); |
(void) (*Lnk311)(); |
5014 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5015 |
goto T1718;} |
goto T1718;} |
5016 |
(void)(( |
(void)(( |
5017 |
V830 = STREF(object,(V829),0), |
V894 = STREF(object,(V893),0), |
5018 |
(type_of(V830) == t_sfun ?(*((V830)->sfn.sfn_self)): |
(type_of(V894) == t_sfun ?(*((V894)->sfn.sfn_self)): |
5019 |
(fcall.argd=5,type_of(V830)==t_vfun) ? |
(fcall.argd=5,type_of(V894)==t_vfun) ? |
5020 |
(*((V830)->sfn.sfn_self)): |
(*((V894)->sfn.sfn_self)): |
5021 |
(fcall.fun=(V830),fcalln))(STREF(object,(V829),4),STREF(object,(V829),8),(V822),Ct,(V820)))); |
(fcall.fun=(V894),fcalln))(STREF(object,(V893),4),STREF(object,(V893),8),(V883),Ct,(V881)))); |
5022 |
goto T1715; |
goto T1715; |
5023 |
goto T1718; |
goto T1718; |
5024 |
T1718:; |
T1718:; |
5025 |
base[3]= V829; |
base[3]= V893; |
5026 |
base[4]= VV[132]; |
base[4]= VV[132]; |
5027 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5028 |
(void) (*Lnk311)(); |
(void) (*Lnk311)(); |
5029 |
vs_top=sup; |
vs_top=sup; |
5030 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5031 |
goto T1723;} |
goto T1723;} |
5032 |
{object V832; |
{object V896; |
5033 |
object V833; |
object V897; |
5034 |
object V834; |
object V898; |
5035 |
V832= STREF(object,(V829),0); |
V896= STREF(object,(V893),0); |
5036 |
V833= listA(3,(V822),Ct,(V820)); |
V897= listA(3,(V883),Ct,(V881)); |
5037 |
V834= STREF(object,(V829),4); |
V898= STREF(object,(V893),4); |
5038 |
if(((V834))==Cnil){ |
if(((V898))==Cnil){ |
5039 |
goto T1731;} |
goto T1731;} |
5040 |
if((CMPcdr((V834)))!=Cnil){ |
if((CMPcdr((V898)))!=Cnil){ |
5041 |
goto T1731;} |
goto T1731;} |
5042 |
(void)(( |
(void)(( |
5043 |
(type_of((V832)) == t_sfun ?(*(((V832))->sfn.sfn_self)): |
(type_of((V896)) == t_sfun ?(*(((V896))->sfn.sfn_self)): |
5044 |
(fcall.argd=2,type_of((V832))==t_vfun) ? |
(fcall.argd=2,type_of((V896))==t_vfun) ? |
5045 |
(*(((V832))->sfn.sfn_self)): |
(*(((V896))->sfn.sfn_self)): |
5046 |
(fcall.fun=((V832)),fcalln))((V833),CMPcar((V834))))); |
(fcall.fun=((V896)),fcalln))((V897),CMPcar((V898))))); |
5047 |
goto T1715; |
goto T1715; |
5048 |
goto T1731; |
goto T1731; |
5049 |
T1731:; |
T1731:; |
5050 |
base[3]= (V832); |
base[3]= (V896); |
5051 |
base[4]= (V833); |
base[4]= (V897); |
5052 |
{object V835; |
{object V899; |
5053 |
V835= (V834); |
V899= (V898); |
5054 |
vs_top=base+5; |
vs_top=base+5; |
5055 |
while(V835!=Cnil) |
while(V899!=Cnil) |
5056 |
{vs_push((V835)->c.c_car);V835=(V835)->c.c_cdr;} |
{vs_push((V899)->c.c_car);V899=(V899)->c.c_cdr;} |
5057 |
vs_base=base+4;} |
vs_base=base+4;} |
5058 |
{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)) |
5059 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5063 |
goto T1715;} |
goto T1715;} |
5064 |
goto T1723; |
goto T1723; |
5065 |
T1723:; |
T1723:; |
5066 |
base[3]= V829; |
base[3]= V893; |
5067 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5068 |
Lfunctionp(); |
Lfunctionp(); |
5069 |
vs_top=sup; |
vs_top=sup; |
5070 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5071 |
goto T1739;} |
goto T1739;} |
5072 |
base[3]= (V829); |
base[3]= (V893); |
5073 |
base[4]= (V822); |
base[4]= (V883); |
5074 |
base[5]= Ct; |
base[5]= Ct; |
5075 |
{object V836; |
{object V900; |
5076 |
V836= (V820); |
V900= (V881); |
5077 |
vs_top=base+6; |
vs_top=base+6; |
5078 |
while(V836!=Cnil) |
while(V900!=Cnil) |
5079 |
{vs_push((V836)->c.c_car);V836=(V836)->c.c_cdr;} |
{vs_push((V900)->c.c_car);V900=(V900)->c.c_cdr;} |
5080 |
vs_base=base+4;} |
vs_base=base+4;} |
5081 |
{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)) |
5082 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5087 |
goto T1739; |
goto T1739; |
5088 |
T1739:; |
T1739:; |
5089 |
base[4]= VV[133]; |
base[4]= VV[133]; |
5090 |
base[5]= V829; |
base[5]= V893; |
5091 |
base[6]= VV[134]; |
base[6]= VV[134]; |
5092 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
5093 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
5098 |
vs_top=sup; |
vs_top=sup; |
5099 |
goto T1715; |
goto T1715; |
5100 |
T1715:; |
T1715:; |
5101 |
V828= CMPcdr((V828)); |
V892= CMPcdr((V892)); |
5102 |
V829= CMPcar((V828)); |
V893= CMPcar((V892)); |
5103 |
goto T1710;} |
goto T1710;} |
5104 |
goto T1706; |
goto T1706; |
5105 |
T1706:; |
T1706:; |
5106 |
{object V837; |
{object V901; |
5107 |
register object V838; |
register object V902; |
5108 |
V837= (base0[2]->c.c_car); |
V901= (base0[2]->c.c_car); |
5109 |
V838= CMPcar((V837)); |
V902= CMPcar((V901)); |
5110 |
goto T1759; |
goto T1759; |
5111 |
T1759:; |
T1759:; |
5112 |
if(!(((V837))==Cnil)){ |
if(!(((V901))==Cnil)){ |
5113 |
goto T1760;} |
goto T1760;} |
5114 |
goto T1755; |
goto T1755; |
5115 |
goto T1760; |
goto T1760; |
5116 |
T1760:; |
T1760:; |
5117 |
base[3]= (V838); |
base[3]= (V902); |
5118 |
base[4]= VV[131]; |
base[4]= VV[131]; |
5119 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5120 |
(void) (*Lnk311)(); |
(void) (*Lnk311)(); |
5122 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5123 |
goto T1767;} |
goto T1767;} |
5124 |
(void)(( |
(void)(( |
5125 |
V839 = STREF(object,(V838),0), |
V903 = STREF(object,(V902),0), |
5126 |
(type_of(V839) == t_sfun ?(*((V839)->sfn.sfn_self)): |
(type_of(V903) == t_sfun ?(*((V903)->sfn.sfn_self)): |
5127 |
(fcall.argd=4,type_of(V839)==t_vfun) ? |
(fcall.argd=4,type_of(V903)==t_vfun) ? |
5128 |
(*((V839)->sfn.sfn_self)): |
(*((V903)->sfn.sfn_self)): |
5129 |
(fcall.fun=(V839),fcalln))(STREF(object,(V838),4),STREF(object,(V838),8),(V822),(V820)))); |
(fcall.fun=(V903),fcalln))(STREF(object,(V902),4),STREF(object,(V902),8),(V883),(V881)))); |
5130 |
goto T1764; |
goto T1764; |
5131 |
goto T1767; |
goto T1767; |
5132 |
T1767:; |
T1767:; |
5133 |
base[3]= V838; |
base[3]= V902; |
5134 |
base[4]= VV[132]; |
base[4]= VV[132]; |
5135 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5136 |
(void) (*Lnk311)(); |
(void) (*Lnk311)(); |
5137 |
vs_top=sup; |
vs_top=sup; |
5138 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5139 |
goto T1772;} |
goto T1772;} |
5140 |
{object V841; |
{object V905; |
5141 |
object V842; |
object V906; |
5142 |
object V843; |
object V907; |
5143 |
V841= STREF(object,(V838),0); |
V905= STREF(object,(V902),0); |
5144 |
V842= make_cons((V822),(V820)); |
V906= make_cons((V883),(V881)); |
5145 |
V843= STREF(object,(V838),4); |
V907= STREF(object,(V902),4); |
5146 |
if(((V843))==Cnil){ |
if(((V907))==Cnil){ |
5147 |
goto T1780;} |
goto T1780;} |
5148 |
if((CMPcdr((V843)))!=Cnil){ |
if((CMPcdr((V907)))!=Cnil){ |
5149 |
goto T1780;} |
goto T1780;} |
5150 |
(void)(( |
(void)(( |
5151 |
(type_of((V841)) == t_sfun ?(*(((V841))->sfn.sfn_self)): |
(type_of((V905)) == t_sfun ?(*(((V905))->sfn.sfn_self)): |
5152 |
(fcall.argd=2,type_of((V841))==t_vfun) ? |
(fcall.argd=2,type_of((V905))==t_vfun) ? |
5153 |
(*(((V841))->sfn.sfn_self)): |
(*(((V905))->sfn.sfn_self)): |
5154 |
(fcall.fun=((V841)),fcalln))((V842),CMPcar((V843))))); |
(fcall.fun=((V905)),fcalln))((V906),CMPcar((V907))))); |
5155 |
goto T1764; |
goto T1764; |
5156 |
goto T1780; |
goto T1780; |
5157 |
T1780:; |
T1780:; |
5158 |
base[3]= (V841); |
base[3]= (V905); |
5159 |
base[4]= (V842); |
base[4]= (V906); |
5160 |
{object V844; |
{object V908; |
5161 |
V844= (V843); |
V908= (V907); |
5162 |
vs_top=base+5; |
vs_top=base+5; |
5163 |
while(V844!=Cnil) |
while(V908!=Cnil) |
5164 |
{vs_push((V844)->c.c_car);V844=(V844)->c.c_cdr;} |
{vs_push((V908)->c.c_car);V908=(V908)->c.c_cdr;} |
5165 |
vs_base=base+4;} |
vs_base=base+4;} |
5166 |
{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)) |
5167 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5171 |
goto T1764;} |
goto T1764;} |
5172 |
goto T1772; |
goto T1772; |
5173 |
T1772:; |
T1772:; |
5174 |
base[3]= V838; |
base[3]= V902; |
5175 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5176 |
Lfunctionp(); |
Lfunctionp(); |
5177 |
vs_top=sup; |
vs_top=sup; |
5178 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5179 |
goto T1788;} |
goto T1788;} |
5180 |
base[3]= (V838); |
base[3]= (V902); |
5181 |
base[4]= (V822); |
base[4]= (V883); |
5182 |
{object V845; |
{object V909; |
5183 |
V845= (V820); |
V909= (V881); |
5184 |
vs_top=base+5; |
vs_top=base+5; |
5185 |
while(V845!=Cnil) |
while(V909!=Cnil) |
5186 |
{vs_push((V845)->c.c_car);V845=(V845)->c.c_cdr;} |
{vs_push((V909)->c.c_car);V909=(V909)->c.c_cdr;} |
5187 |
vs_base=base+4;} |
vs_base=base+4;} |
5188 |
{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)) |
5189 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5194 |
goto T1788; |
goto T1788; |
5195 |
T1788:; |
T1788:; |
5196 |
base[4]= VV[133]; |
base[4]= VV[133]; |
5197 |
base[5]= V838; |
base[5]= V902; |
5198 |
base[6]= VV[135]; |
base[6]= VV[135]; |
5199 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
5200 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
5205 |
vs_top=sup; |
vs_top=sup; |
5206 |
goto T1764; |
goto T1764; |
5207 |
T1764:; |
T1764:; |
5208 |
V837= CMPcdr((V837)); |
V901= CMPcdr((V901)); |
5209 |
V838= CMPcar((V837)); |
V902= CMPcar((V901)); |
5210 |
goto T1759;} |
goto T1759;} |
5211 |
goto T1755; |
goto T1755; |
5212 |
T1755:; |
T1755:; |
5213 |
base[2]= (V822); |
base[2]= (V883); |
5214 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5215 |
return;}} |
return;}} |
5216 |
} |
} |
5222 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5223 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM65; VC65 |
5224 |
vs_check; |
vs_check; |
5225 |
{object V846; |
{object V910; |
5226 |
check_arg(1); |
check_arg(1); |
5227 |
V846=(base[0]); |
V910=(base[0]); |
5228 |
vs_top=sup; |
vs_top=sup; |
5229 |
{register object V847; |
{register object V911; |
5230 |
base[1]= (V846); |
base[1]= (V910); |
5231 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5232 |
(void) (*Lnk269)(Lclptr269); |
(void) (*Lnk269)(Lclptr269); |
5233 |
vs_top=sup; |
vs_top=sup; |
5234 |
V847= vs_base[0]; |
V911= vs_base[0]; |
5235 |
if(((V847))!=Cnil){ |
if(((V911))!=Cnil){ |
5236 |
goto T1806;} |
goto T1806;} |
5237 |
base[1]= (V846); |
base[1]= (V910); |
5238 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5239 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk261)(Lclptr261); |
5240 |
vs_top=sup; |
vs_top=sup; |
5241 |
V848= vs_base[0]; |
V912= vs_base[0]; |
5242 |
base[1]= ((CMPcar(V848))==((VV[1]->s.s_dbind))?Ct:Cnil); |
base[1]= ((CMPcar(V912))==((VV[1]->s.s_dbind))?Ct:Cnil); |
5243 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5244 |
return; |
return; |
5245 |
goto T1806; |
goto T1806; |
5246 |
T1806:; |
T1806:; |
5247 |
if((CMPcdr((V847)))==Cnil){ |
if((CMPcdr((V911)))==Cnil){ |
5248 |
goto T1810;} |
goto T1810;} |
5249 |
base[1]= Cnil; |
base[1]= Cnil; |
5250 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5251 |
return; |
return; |
5252 |
goto T1810; |
goto T1810; |
5253 |
T1810:; |
T1810:; |
5254 |
if(!((CMPcar((V847)))==(VV[106]))){ |
if(!((CMPcar((V911)))==(VV[106]))){ |
5255 |
goto T1812;} |
goto T1812;} |
5256 |
base[1]= Ct; |
base[1]= Ct; |
5257 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5258 |
return; |
return; |
5259 |
goto T1812; |
goto T1812; |
5260 |
T1812:; |
T1812:; |
5261 |
base[1]= ((CMPcar((V847)))==(VV[107])?Ct:Cnil); |
base[1]= ((CMPcar((V911)))==(VV[107])?Ct:Cnil); |
5262 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5263 |
return;} |
return;} |
5264 |
} |
} |
5270 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5271 |
register object *sup=base+VM66; VC66 |
register object *sup=base+VM66; VC66 |
5272 |
vs_check; |
vs_check; |
5273 |
{object V849; |
{object V913; |
5274 |
object V850; |
object V914; |
5275 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
5276 |
V849=(base[0]); |
V913=(base[0]); |
5277 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
5278 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
5279 |
{object *p=vs_top; |
{object *p=vs_top; |
5280 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
5281 |
V850=(base[1]); |
V914=(base[1]); |
5282 |
vs_top=sup; |
vs_top=sup; |
5283 |
base[2]=VV[314]->s.s_gfdef; |
base[2]=VV[314]->s.s_gfdef; |
5284 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
5285 |
base[4]= (V849); |
base[4]= (V913); |
5286 |
{object V851; |
{object V915; |
5287 |
V851= (V850); |
V915= (V914); |
5288 |
vs_top=base+5; |
vs_top=base+5; |
5289 |
while(V851!=Cnil) |
while(V915!=Cnil) |
5290 |
{vs_push((V851)->c.c_car);V851=(V851)->c.c_cdr;} |
{vs_push((V915)->c.c_car);V915=(V915)->c.c_cdr;} |
5291 |
vs_base=base+3;} |
vs_base=base+3;} |
5292 |
(void) (*Lnk314)(Lclptr314); |
(void) (*Lnk314)(Lclptr314); |
5293 |
return; |
return; |
5300 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5301 |
register object *sup=base+VM67; VC67 |
register object *sup=base+VM67; VC67 |
5302 |
vs_check; |
vs_check; |
5303 |
{object V852; |
{object V916; |
5304 |
check_arg(1); |
check_arg(1); |
5305 |
V852=(base[0]); |
V916=(base[0]); |
5306 |
vs_top=sup; |
vs_top=sup; |
5307 |
goto TTL; |
goto TTL; |
5308 |
TTL:; |
TTL:; |
5313 |
return; |
return; |
5314 |
goto T1817; |
goto T1817; |
5315 |
T1817:; |
T1817:; |
5316 |
{register object V853; |
{register object V917; |
5317 |
object V854; |
object V918; |
5318 |
base[1]= base0[1]; |
base[1]= base0[1]; |
5319 |
base[2]= (V852); |
base[2]= (V916); |
5320 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5321 |
(void) (*Lnk315)(); |
(void) (*Lnk315)(); |
5322 |
if(vs_base>=vs_top){vs_top=sup;goto T1822;} |
if(vs_base>=vs_top){vs_top=sup;goto T1822;} |
5323 |
V853= vs_base[0]; |
V917= vs_base[0]; |
5324 |
vs_base++; |
vs_base++; |
5325 |
if(vs_base>=vs_top){vs_top=sup;goto T1823;} |
if(vs_base>=vs_top){vs_top=sup;goto T1823;} |
5326 |
V854= vs_base[0]; |
V918= vs_base[0]; |
5327 |
vs_top=sup; |
vs_top=sup; |
5328 |
goto T1824; |
goto T1824; |
5329 |
goto T1822; |
goto T1822; |
5330 |
T1822:; |
T1822:; |
5331 |
V853= Cnil; |
V917= Cnil; |
5332 |
goto T1823; |
goto T1823; |
5333 |
T1823:; |
T1823:; |
5334 |
V854= Cnil; |
V918= Cnil; |
5335 |
goto T1824; |
goto T1824; |
5336 |
T1824:; |
T1824:; |
5337 |
if(!(((((V854))==Cnil?Ct:Cnil))==Cnil)){ |
if(!(((((V918))==Cnil?Ct:Cnil))==Cnil)){ |
5338 |
goto T1825;} |
goto T1825;} |
5339 |
base[1]= Ct; |
base[1]= Ct; |
5340 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5341 |
return; |
return; |
5342 |
goto T1825; |
goto T1825; |
5343 |
T1825:; |
T1825:; |
5344 |
{register object V855; |
{register object V919; |
5345 |
register object V856; |
register object V920; |
5346 |
V855= base0[2]; |
V919= base0[2]; |
5347 |
V856= CMPcar((V855)); |
V920= CMPcar((V919)); |
5348 |
goto T1830; |
goto T1830; |
5349 |
T1830:; |
T1830:; |
5350 |
if(!(((V855))==Cnil)){ |
if(!(((V919))==Cnil)){ |
5351 |
goto T1831;} |
goto T1831;} |
5352 |
base[2]= Ct; |
base[2]= Ct; |
5353 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5354 |
return; |
return; |
5355 |
goto T1831; |
goto T1831; |
5356 |
T1831:; |
T1831:; |
5357 |
{register object x= (V856),V857= (V853); |
{register object x= (V920),V921= (V917); |
5358 |
while(V857!=Cnil) |
while(V921!=Cnil) |
5359 |
if(eql(x,V857->c.c_car)){ |
if(eql(x,V921->c.c_car)){ |
5360 |
goto T1835; |
goto T1835; |
5361 |
}else V857=V857->c.c_cdr;} |
}else V921=V921->c.c_cdr;} |
5362 |
base[2]= make_cons(VV[100],(V856)); |
base[2]= make_cons(VV[100],(V920)); |
5363 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5364 |
return; |
return; |
5365 |
goto T1835; |
goto T1835; |
5366 |
T1835:; |
T1835:; |
5367 |
V855= CMPcdr((V855)); |
V919= CMPcdr((V919)); |
5368 |
V856= CMPcar((V855)); |
V920= CMPcar((V919)); |
5369 |
goto T1830;}} |
goto T1830;}} |
5370 |
} |
} |
5371 |
} |
} |
5376 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5377 |
register object *sup=base+VM68; VC68 |
register object *sup=base+VM68; VC68 |
5378 |
vs_check; |
vs_check; |
5379 |
{register object V858; |
{register object V922; |
5380 |
object V859; |
object V923; |
5381 |
object V860; |
object V924; |
5382 |
check_arg(3); |
check_arg(3); |
5383 |
V858=(base[0]); |
V922=(base[0]); |
5384 |
V859=(base[1]); |
V923=(base[1]); |
5385 |
V860=(base[2]); |
V924=(base[2]); |
5386 |
vs_top=sup;{object V861; |
vs_top=sup;{object V925; |
5387 |
if(((V859))==(VV[8])){ |
if(((V923))==(VV[8])){ |
5388 |
goto T1845;} |
goto T1845;} |
5389 |
V861= Cnil; |
V925= Cnil; |
5390 |
goto T1844; |
goto T1844; |
5391 |
goto T1845; |
goto T1845; |
5392 |
T1845:; |
T1845:; |
5393 |
if(type_of((V858))==t_cons){ |
if(type_of((V922))==t_cons){ |
5394 |
goto T1847;} |
goto T1847;} |
5395 |
V861= Cnil; |
V925= Cnil; |
5396 |
goto T1844; |
goto T1844; |
5397 |
goto T1847; |
goto T1847; |
5398 |
T1847:; |
T1847:; |
5399 |
if((CMPcar((V858)))==(VV[9])){ |
if((CMPcar((V922)))==(VV[9])){ |
5400 |
goto T1849;} |
goto T1849;} |
5401 |
V861= Cnil; |
V925= Cnil; |
5402 |
goto T1844; |
goto T1844; |
5403 |
goto T1849; |
goto T1849; |
5404 |
T1849:; |
T1849:; |
5405 |
V861= (*(LnkLI316))((V858)); |
V925= (*(LnkLI316))((V922)); |
5406 |
goto T1844; |
goto T1844; |
5407 |
T1844:; |
T1844:; |
5408 |
if(V861==Cnil)goto T1843; |
if(V925==Cnil)goto T1843; |
5409 |
base[3]= V861; |
base[3]= V925; |
5410 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5411 |
return; |
return; |
5412 |
goto T1843; |
goto T1843; |
5413 |
T1843:;} |
T1843:;} |
5414 |
base[3]= (V858); |
base[3]= (V922); |
5415 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5416 |
return; |
return; |
5417 |
} |
} |