461 |
if((V40!= VV[1]))goto T97; |
if((V40!= VV[1]))goto T97; |
462 |
V34= (*(LnkLI166))(small_fixnum(1)); |
V34= (*(LnkLI166))(small_fixnum(1)); |
463 |
V41= (*(LnkLI166))(small_fixnum(0)); |
V41= (*(LnkLI166))(small_fixnum(0)); |
464 |
V35= list(2,/* INLINE-ARGS */V41,(V34)); |
V42 = (V34); |
465 |
|
V35= list(2,/* INLINE-ARGS */V41,V42); |
466 |
goto T92; |
goto T92; |
467 |
goto T97; |
goto T97; |
468 |
T97:; |
T97:; |
470 |
goto T92;} |
goto T92;} |
471 |
goto T92; |
goto T92; |
472 |
T92:; |
T92:; |
473 |
{object V42= (V32); |
{object V43= (V32); |
474 |
if(!eql(V42,VV[20]))goto T102; |
if(!eql(V43,VV[20]))goto T102; |
475 |
V36= VV[21]; |
V36= VV[21]; |
476 |
goto T101; |
goto T101; |
477 |
goto T102; |
goto T102; |
478 |
T102:; |
T102:; |
479 |
if(!eql(V42,VV[22]))goto T104; |
if(!eql(V43,VV[22]))goto T104; |
480 |
V36= VV[23]; |
V36= VV[23]; |
481 |
goto T101; |
goto T101; |
482 |
goto T104; |
goto T104; |
483 |
T104:; |
T104:; |
484 |
FEerror("The ECASE key value ~s is illegal.",1,V42); |
FEerror("The ECASE key value ~s is illegal.",1,V43); |
485 |
goto T101;} |
goto T101;} |
486 |
goto T101; |
goto T101; |
487 |
T101:; |
T101:; |
489 |
base[4]= (V35); |
base[4]= (V35); |
490 |
if(((V33))!=Cnil){ |
if(((V33))!=Cnil){ |
491 |
goto T111;} |
goto T111;} |
492 |
V43= VV[25]; |
V44= VV[25]; |
493 |
goto T109; |
goto T109; |
494 |
goto T111; |
goto T111; |
495 |
T111:; |
T111:; |
496 |
V43= Cnil; |
V44= Cnil; |
497 |
goto T109; |
goto T109; |
498 |
T109:; |
T109:; |
499 |
V44= list(2,VV[28],(V34)); |
V45= list(2,VV[28],(V34)); |
500 |
if(((V33))!=Cnil){ |
if(((V33))!=Cnil){ |
501 |
goto T115;} |
goto T115;} |
502 |
V46= list(3,VV[29],VV[19],list(2,VV[30],(V34))); |
V47= list(3,VV[29],VV[19],list(2,VV[30],(V34))); |
503 |
V45= make_cons(/* INLINE-ARGS */V46,Cnil); |
V46= make_cons(/* INLINE-ARGS */V47,Cnil); |
504 |
goto T113; |
goto T113; |
505 |
goto T115; |
goto T115; |
506 |
T115:; |
T115:; |
507 |
V45= Cnil; |
V46= Cnil; |
508 |
goto T113; |
goto T113; |
509 |
T113:; |
T113:; |
510 |
V47= list(2,VV[31],(V34)); |
V48= list(2,VV[31],(V34)); |
511 |
V48= make_cons(/* INLINE-ARGS */V47,Cnil); |
V49= make_cons(/* INLINE-ARGS */V48,Cnil); |
512 |
V49= append(V45,/* INLINE-ARGS */V48); |
V50= append(V46,/* INLINE-ARGS */V49); |
513 |
V50= make_cons(/* INLINE-ARGS */V44,/* INLINE-ARGS */V49); |
V51= make_cons(/* INLINE-ARGS */V45,/* INLINE-ARGS */V50); |
514 |
V51= list(2,VV[32],(V34)); |
V52= list(2,VV[32],(V34)); |
515 |
if(((V33))!=Cnil){ |
if(((V33))!=Cnil){ |
516 |
goto T119;} |
goto T119;} |
517 |
V53= list(3,VV[29],VV[19],list(2,VV[33],(V34))); |
V54= list(3,VV[29],VV[19],list(2,VV[33],(V34))); |
518 |
V52= make_cons(/* INLINE-ARGS */V53,Cnil); |
V53= make_cons(/* INLINE-ARGS */V54,Cnil); |
519 |
goto T117; |
goto T117; |
520 |
goto T119; |
goto T119; |
521 |
T119:; |
T119:; |
522 |
V52= Cnil; |
V53= Cnil; |
523 |
goto T117; |
goto T117; |
524 |
T117:; |
T117:; |
525 |
V54= list(2,VV[34],(V34)); |
V55= list(2,VV[34],(V34)); |
526 |
V55= make_cons(/* INLINE-ARGS */V54,Cnil); |
V56= make_cons(/* INLINE-ARGS */V55,Cnil); |
527 |
V56= append(V52,/* INLINE-ARGS */V55); |
V57= append(V53,/* INLINE-ARGS */V56); |
528 |
V57= list(2,VV[26],list(3,VV[27],/* INLINE-ARGS */V50,make_cons(/* INLINE-ARGS */V51,/* INLINE-ARGS */V56))); |
V58= list(2,VV[26],list(3,VV[27],/* INLINE-ARGS */V51,make_cons(/* INLINE-ARGS */V52,/* INLINE-ARGS */V57))); |
529 |
if(((V38))==Cnil){ |
if(((V38))==Cnil){ |
530 |
goto T123;} |
goto T123;} |
531 |
V58= VV[35]; |
V59= VV[35]; |
532 |
goto T121; |
goto T121; |
533 |
goto T123; |
goto T123; |
534 |
T123:; |
T123:; |
535 |
V58= Cnil; |
V59= Cnil; |
536 |
goto T121; |
goto T121; |
537 |
T121:; |
T121:; |
538 |
V59= make_cons(/* INLINE-ARGS */V57,V58); |
V60= make_cons(/* INLINE-ARGS */V58,V59); |
539 |
V60= append(V43,/* INLINE-ARGS */V59); |
V61= append(V44,/* INLINE-ARGS */V60); |
540 |
V61= list(2,VV[39],list(3,VV[40],VV[26],(V37))); |
V62= list(2,VV[39],list(3,VV[40],VV[26],(V37))); |
541 |
if(!(eql(small_fixnum(2),(V32)))){ |
if(!(eql(small_fixnum(2),(V32)))){ |
542 |
goto T127;} |
goto T127;} |
543 |
V62= VV[43]; |
V63= VV[43]; |
544 |
goto T125; |
goto T125; |
545 |
goto T127; |
goto T127; |
546 |
T127:; |
T127:; |
547 |
V62= Cnil; |
V63= Cnil; |
548 |
goto T125; |
goto T125; |
549 |
T125:; |
T125:; |
550 |
V63= list(2,VV[41],listA(3,VV[37],VV[42],V62)); |
V64= list(2,VV[41],listA(3,VV[37],VV[42],V63)); |
551 |
if(((V38))==Cnil){ |
if(((V38))==Cnil){ |
552 |
goto T131;} |
goto T131;} |
553 |
V65= list(3,VV[44],VV[45],list(3,VV[29],VV[46],(V39))); |
V66= list(3,VV[44],VV[45],list(3,VV[29],VV[46],(V39))); |
554 |
V64= make_cons(/* INLINE-ARGS */V65,Cnil); |
V65= make_cons(/* INLINE-ARGS */V66,Cnil); |
555 |
goto T129; |
goto T129; |
556 |
goto T131; |
goto T131; |
557 |
T131:; |
T131:; |
558 |
V64= Cnil; |
V65= Cnil; |
559 |
goto T129; |
goto T129; |
560 |
T129:; |
T129:; |
561 |
V66= listA(5,VV[37],VV[38],/* INLINE-ARGS */V61,/* INLINE-ARGS */V63,V64); |
V67= listA(5,VV[37],VV[38],/* INLINE-ARGS */V62,/* INLINE-ARGS */V64,V65); |
562 |
V67= listA(3,VV[47],VV[11],(V35)); |
V68= listA(3,VV[47],VV[11],(V35)); |
563 |
if(((V38))==Cnil){ |
if(((V38))==Cnil){ |
564 |
goto T135;} |
goto T135;} |
565 |
V68= VV[46]; |
V69= VV[46]; |
566 |
goto T133; |
goto T133; |
567 |
goto T135; |
goto T135; |
568 |
T135:; |
T135:; |
569 |
V68= list(3,VV[48],(V39),CMPcar((V35))); |
V69= list(3,VV[48],(V39),CMPcar((V35))); |
570 |
goto T133; |
goto T133; |
571 |
T133:; |
T133:; |
572 |
base[5]= list(3,VV[24],/* INLINE-ARGS */V60,list(4,VV[36],/* INLINE-ARGS */V66,/* INLINE-ARGS */V67,V68)); |
base[5]= list(3,VV[24],/* INLINE-ARGS */V61,list(4,VV[36],/* INLINE-ARGS */V67,/* INLINE-ARGS */V68,V69)); |
573 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
574 |
(void) (*Lnk160)(); |
(void) (*Lnk160)(); |
575 |
return;} |
return;} |
577 |
} |
} |
578 |
/* local entry for function EMIT-SLOT-READ-FORM */ |
/* local entry for function EMIT-SLOT-READ-FORM */ |
579 |
|
|
580 |
static object LI17(V72,V73,V74) |
static object LI17(V73,V74,V75) |
581 |
|
|
582 |
object V72;object V73;object V74; |
object V73;object V74;object V75; |
583 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
584 |
goto TTL; |
goto TTL; |
585 |
TTL:; |
TTL:; |
586 |
if(((V72))==Cnil){ |
if(((V73))==Cnil){ |
587 |
goto T138;} |
goto T138;} |
588 |
{object V75 = list(2,VV[49],(V73)); |
{object V76 = list(2,VV[49],(V74)); |
589 |
VMR17(V75)} |
VMR17(V76)} |
590 |
goto T138; |
goto T138; |
591 |
T138:; |
T138:; |
592 |
{object V76 = list(3,VV[50],(V74),(V73)); |
{object V77 = list(3,VV[50],(V75),(V74)); |
593 |
VMR17(V76)} |
VMR17(V77)} |
594 |
return Cnil; |
return Cnil; |
595 |
} |
} |
596 |
/* local entry for function EMIT-BOUNDP-CHECK */ |
/* local entry for function EMIT-BOUNDP-CHECK */ |
597 |
|
|
598 |
static object LI18(V80,V81,V82) |
static object LI18(V81,V82,V83) |
599 |
|
|
600 |
object V80;object V81;object V82; |
object V81;object V82;object V83; |
601 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
602 |
goto TTL; |
goto TTL; |
603 |
TTL:; |
TTL:; |
604 |
V83= list(2,VV[46],(V80)); |
V84= list(2,VV[46],(V81)); |
605 |
V84= make_cons(/* INLINE-ARGS */V83,Cnil); |
V85= make_cons(/* INLINE-ARGS */V84,Cnil); |
606 |
{object V85 = list(3,VV[14],/* INLINE-ARGS */V84,list(4,VV[36],VV[51],listA(3,VV[47],(V81),(V82)),VV[46])); |
{object V86 = list(3,VV[14],/* INLINE-ARGS */V85,list(4,VV[36],VV[51],listA(3,VV[47],(V82),(V83)),VV[46])); |
607 |
VMR18(V85)} |
VMR18(V86)} |
608 |
return Cnil; |
return Cnil; |
609 |
} |
} |
610 |
/* local entry for function EMIT-SLOT-ACCESS */ |
/* local entry for function EMIT-SLOT-ACCESS */ |
611 |
|
|
612 |
static object LI19(V92,V93,V94,V95,V96,V97) |
static object LI19(V93,V94,V95,V96,V97,V98) |
613 |
|
|
614 |
object V92;object V93;object V94;object V95;object V96;object V97; |
object V93;object V94;object V95;object V96;object V97;object V98; |
615 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
616 |
goto TTL; |
goto TTL; |
617 |
TTL:; |
TTL:; |
618 |
{object V98; |
{object V99; |
619 |
V98= (*(LnkLI165))((V93),(V95),(V94)); |
V99= (*(LnkLI165))((V94),(V96),(V95)); |
620 |
{object V99= (V92); |
{object V100= (V93); |
621 |
if((V99!= VV[0]))goto T141; |
if((V100!= VV[0]))goto T141; |
622 |
{object V100 = (*(LnkLI167))((V98),(V96),(V97)); |
{object V101 = (*(LnkLI167))((V99),(V97),(V98)); |
623 |
VMR19(V100)} |
VMR19(V101)} |
624 |
goto T141; |
goto T141; |
625 |
T141:; |
T141:; |
626 |
if((V99!= VV[1]))goto T142; |
if((V100!= VV[1]))goto T142; |
627 |
{object V101 = list(3,VV[48],(V98),CMPcar((V97))); |
{object V102 = list(3,VV[48],(V99),CMPcar((V98))); |
628 |
VMR19(V101)} |
VMR19(V102)} |
629 |
goto T142; |
goto T142; |
630 |
T142:; |
T142:; |
631 |
FEerror("The ECASE key value ~s is illegal.",1,V99); |
FEerror("The ECASE key value ~s is illegal.",1,V100); |
632 |
{object V102 = Cnil; |
{object V103 = Cnil; |
633 |
VMR19(V102)}}} |
VMR19(V103)}}} |
634 |
return Cnil; |
return Cnil; |
635 |
} |
} |
636 |
/* macro definition for EMIT-READERWRITER-MACRO */ |
/* macro definition for EMIT-READERWRITER-MACRO */ |
642 |
bds_check; |
bds_check; |
643 |
check_arg(2); |
check_arg(2); |
644 |
vs_top=sup; |
vs_top=sup; |
645 |
{object V103=base[0]->c.c_cdr; |
{object V104=base[0]->c.c_cdr; |
646 |
if(endp(V103))invalid_macro_call(); |
if(endp(V104))invalid_macro_call(); |
647 |
base[2]= (V103->c.c_car); |
base[2]= (V104->c.c_car); |
648 |
V103=V103->c.c_cdr; |
V104=V104->c.c_cdr; |
649 |
if(endp(V103))invalid_macro_call(); |
if(endp(V104))invalid_macro_call(); |
650 |
base[3]= (V103->c.c_car); |
base[3]= (V104->c.c_car); |
651 |
V103=V103->c.c_cdr; |
V104=V104->c.c_cdr; |
652 |
if(endp(V103))invalid_macro_call(); |
if(endp(V104))invalid_macro_call(); |
653 |
base[4]= (V103->c.c_car); |
base[4]= (V104->c.c_car); |
654 |
V103=V103->c.c_cdr; |
V104=V104->c.c_cdr; |
655 |
if(!endp(V103))invalid_macro_call();} |
if(!endp(V104))invalid_macro_call();} |
656 |
bds_bind(VV[3],Cnil); |
bds_bind(VV[3],Cnil); |
657 |
bds_bind(VV[2],Ct); |
bds_bind(VV[2],Ct); |
658 |
base[8]= base[2]; |
base[8]= base[2]; |
673 |
{register object *base=vs_base; |
{register object *base=vs_base; |
674 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
675 |
vs_check; |
vs_check; |
676 |
{object V104; |
{object V105; |
|
register object V105; |
|
677 |
register object V106; |
register object V106; |
678 |
|
register object V107; |
679 |
check_arg(3); |
check_arg(3); |
680 |
V104=(base[0]); |
V105=(base[0]); |
681 |
V105=(base[1]); |
V106=(base[1]); |
682 |
V106=(base[2]); |
V107=(base[2]); |
683 |
vs_top=sup; |
vs_top=sup; |
684 |
goto TTL; |
goto TTL; |
685 |
TTL:; |
TTL:; |
687 |
goto T147;} |
goto T147;} |
688 |
if(((VV[3]->s.s_dbind))==Cnil){ |
if(((VV[3]->s.s_dbind))==Cnil){ |
689 |
goto T147;} |
goto T147;} |
690 |
base[3]= (V104); |
base[3]= (V105); |
691 |
base[4]= (V105); |
base[4]= (V106); |
692 |
base[5]= (V106); |
base[5]= (V107); |
693 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
694 |
(void) (*Lnk168)(); |
(void) (*Lnk168)(); |
695 |
return; |
return; |
696 |
goto T147; |
goto T147; |
697 |
T147:; |
T147:; |
698 |
{register object V107; |
{register object V108; |
699 |
object V108; |
object V109; |
700 |
{object V109= (V104); |
{object V110= (V105); |
701 |
if((V109!= VV[0]))goto T156; |
if((V110!= VV[0]))goto T156; |
702 |
V110= (*(LnkLI166))(small_fixnum(0)); |
V111= (*(LnkLI166))(small_fixnum(0)); |
703 |
base[3]= make_cons(/* INLINE-ARGS */V110,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V111,Cnil); |
704 |
base[4]= VV[52]; |
base[4]= VV[52]; |
705 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
706 |
goto T155; |
goto T155; |
707 |
goto T156; |
goto T156; |
708 |
T156:; |
T156:; |
709 |
if((V109!= VV[1]))goto T159; |
if((V110!= VV[1]))goto T159; |
710 |
V111= (*(LnkLI166))(small_fixnum(0)); |
V112= (*(LnkLI166))(small_fixnum(0)); |
711 |
base[3]= list(2,/* INLINE-ARGS */V111,(*(LnkLI166))(small_fixnum(1))); |
base[3]= list(2,/* INLINE-ARGS */V112,(*(LnkLI166))(small_fixnum(1))); |
712 |
base[4]= VV[53]; |
base[4]= VV[53]; |
713 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
714 |
goto T155; |
goto T155; |
715 |
goto T159; |
goto T159; |
716 |
T159:; |
T159:; |
717 |
FEerror("The ECASE key value ~s is illegal.",1,V109); |
FEerror("The ECASE key value ~s is illegal.",1,V110); |
718 |
base[3]= Cnil; |
base[3]= Cnil; |
719 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
720 |
goto T155;} |
goto T155;} |
721 |
goto T155; |
goto T155; |
722 |
T155:; |
T155:; |
723 |
if(vs_base>=vs_top){vs_top=sup;goto T162;} |
if(vs_base>=vs_top){vs_top=sup;goto T162;} |
724 |
V107= vs_base[0]; |
V108= vs_base[0]; |
725 |
vs_base++; |
vs_base++; |
726 |
if(vs_base>=vs_top){vs_top=sup;goto T163;} |
if(vs_base>=vs_top){vs_top=sup;goto T163;} |
727 |
V108= vs_base[0]; |
V109= vs_base[0]; |
728 |
vs_top=sup; |
vs_top=sup; |
729 |
goto T164; |
goto T164; |
730 |
goto T162; |
goto T162; |
731 |
T162:; |
T162:; |
732 |
V107= Cnil; |
V108= Cnil; |
733 |
goto T163; |
goto T163; |
734 |
T163:; |
T163:; |
735 |
V108= Cnil; |
V109= Cnil; |
736 |
goto T164; |
goto T164; |
737 |
T164:; |
T164:; |
738 |
if(((V105))!=Cnil){ |
if(((V106))!=Cnil){ |
739 |
goto T168;} |
goto T168;} |
740 |
V112= VV[55]; |
V113= VV[55]; |
741 |
goto T166; |
goto T166; |
742 |
goto T168; |
goto T168; |
743 |
T168:; |
T168:; |
744 |
V112= Cnil; |
V113= Cnil; |
745 |
goto T166; |
goto T166; |
746 |
T166:; |
T166:; |
747 |
V113= append(V112,VV[56]); |
V114= append(V113,VV[56]); |
748 |
base[3]= make_cons(VV[54],/* INLINE-ARGS */V113); |
base[3]= make_cons(VV[54],/* INLINE-ARGS */V114); |
749 |
base[4]= (V107); |
base[4]= (V108); |
750 |
if(((V106))!=Cnil){ |
if(((V107))!=Cnil){ |
751 |
goto T174;} |
goto T174;} |
752 |
V114= VV[57]; |
V115= VV[57]; |
753 |
goto T172; |
goto T172; |
754 |
goto T174; |
goto T174; |
755 |
T174:; |
T174:; |
756 |
V114= Cnil; |
V115= Cnil; |
757 |
goto T172; |
goto T172; |
758 |
T172:; |
T172:; |
759 |
if(((V105))==Cnil){ |
if(((V106))==Cnil){ |
760 |
goto T178;} |
goto T178;} |
761 |
V115= VV[58]; |
V116= VV[58]; |
762 |
goto T176; |
goto T176; |
763 |
goto T178; |
goto T178; |
764 |
T178:; |
T178:; |
765 |
V115= Cnil; |
V116= Cnil; |
766 |
goto T176; |
goto T176; |
767 |
T176:; |
T176:; |
768 |
V116= append(V114,V115); |
V117= append(V115,V116); |
769 |
V117= (*(LnkLI170))((V104),(V106),VV[19],VV[18],VV[11],(V107)); |
V118 = (V108); |
770 |
V118= listA(3,VV[47],VV[11],(V107)); |
V119 = (V109); |
771 |
if(((V105))==Cnil){ |
V120= (*(LnkLI170))((V105),(V107),VV[19],VV[18],VV[11],(V108)); |
772 |
|
V121= listA(3,VV[47],VV[11],(V108)); |
773 |
|
if(((V106))==Cnil){ |
774 |
goto T182;} |
goto T182;} |
775 |
V119= VV[18]; |
V122= VV[18]; |
776 |
goto T180; |
goto T180; |
777 |
goto T182; |
goto T182; |
778 |
T182:; |
T182:; |
779 |
V119= Cnil; |
V122= Cnil; |
780 |
goto T180; |
goto T180; |
781 |
T180:; |
T180:; |
782 |
if(((V106))!=Cnil){ |
if(((V107))!=Cnil){ |
783 |
goto T186;} |
goto T186;} |
784 |
V120= VV[59]; |
V123= VV[59]; |
785 |
goto T184; |
goto T184; |
786 |
goto T186; |
goto T186; |
787 |
T186:; |
T186:; |
788 |
V120= Cnil; |
V123= Cnil; |
789 |
goto T184; |
goto T184; |
790 |
T184:; |
T184:; |
791 |
base[5]= list(3,VV[14],/* INLINE-ARGS */V116,(VFUN_NARGS=6,(*(LnkLI169))((V107),(V108),/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119,V120))); |
base[5]= list(3,VV[14],/* INLINE-ARGS */V117,(VFUN_NARGS=6,(*(LnkLI169))(V118,V119,/* INLINE-ARGS */V120,/* INLINE-ARGS */V121,V122,V123))); |
792 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
793 |
(void) (*Lnk160)(); |
(void) (*Lnk160)(); |
794 |
return;} |
return;} |
803 |
bds_check; |
bds_check; |
804 |
check_arg(2); |
check_arg(2); |
805 |
vs_top=sup; |
vs_top=sup; |
806 |
{object V121=base[0]->c.c_cdr; |
{object V124=base[0]->c.c_cdr; |
807 |
if(endp(V121))invalid_macro_call(); |
if(endp(V124))invalid_macro_call(); |
808 |
base[2]= (V121->c.c_car); |
base[2]= (V124->c.c_car); |
809 |
V121=V121->c.c_cdr; |
V124=V124->c.c_cdr; |
810 |
if(endp(V121))invalid_macro_call(); |
if(endp(V124))invalid_macro_call(); |
811 |
base[3]= (V121->c.c_car); |
base[3]= (V124->c.c_car); |
812 |
V121=V121->c.c_cdr; |
V124=V124->c.c_cdr; |
813 |
if(endp(V121))invalid_macro_call(); |
if(endp(V124))invalid_macro_call(); |
814 |
base[4]= (V121->c.c_car); |
base[4]= (V124->c.c_car); |
815 |
V121=V121->c.c_cdr; |
V124=V124->c.c_cdr; |
816 |
if(!endp(V121))invalid_macro_call();} |
if(!endp(V124))invalid_macro_call();} |
817 |
bds_bind(VV[3],Cnil); |
bds_bind(VV[3],Cnil); |
818 |
bds_bind(VV[2],Ct); |
bds_bind(VV[2],Ct); |
819 |
base[8]= base[2]; |
base[8]= base[2]; |
830 |
} |
} |
831 |
/* local entry for function EMIT-MISS */ |
/* local entry for function EMIT-MISS */ |
832 |
|
|
833 |
static object LI23(object V123,object V122,object first,...) |
static object LI23(object V126,object V125,object first,...) |
834 |
{ |
{ |
835 |
va_list ap; |
va_list ap; |
836 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
837 |
{object V124; |
{object V127; |
838 |
object V125; |
object V128; |
839 |
object V126; |
object V129; |
840 |
va_start(ap,first); |
va_start(ap,first); |
841 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
842 |
V124= V123; |
V127= V126; |
843 |
V125= V122; |
V128= V125; |
844 |
narg = narg - 2; |
narg = narg - 2; |
845 |
if (narg <= 0) goto T192; |
if (narg <= 0) goto T192; |
846 |
else { |
else { |
847 |
V126= first;} |
V129= first;} |
848 |
--narg; goto T193; |
--narg; goto T193; |
849 |
goto T192; |
goto T192; |
850 |
T192:; |
T192:; |
851 |
V126= Cnil; |
V129= Cnil; |
852 |
goto T193; |
goto T193; |
853 |
T193:; |
T193:; |
854 |
{object V127; |
{object V130; |
855 |
if(((V126))==Cnil){ |
if(((V129))==Cnil){ |
856 |
goto T197;} |
goto T197;} |
857 |
V127= VV[60]; |
V130= VV[60]; |
858 |
goto T195; |
goto T195; |
859 |
goto T197; |
goto T197; |
860 |
T197:; |
T197:; |
861 |
V127= Cnil; |
V130= Cnil; |
862 |
goto T195; |
goto T195; |
863 |
T195:; |
T195:; |
864 |
if(((V127))==Cnil){ |
if(((V130))==Cnil){ |
865 |
goto T200;} |
goto T200;} |
866 |
{object V128 = listA(3,VV[61],(V124),append((V125),(V127))); |
{object V131 = listA(3,VV[61],(V127),append((V128),(V130))); |
867 |
VMR23(V128)} |
VMR23(V131)} |
868 |
goto T200; |
goto T200; |
869 |
T200:; |
T200:; |
870 |
{object V129 = listA(3,VV[47],(V124),append((V125),(V127))); |
{object V132 = listA(3,VV[47],(V127),append((V128),(V130))); |
871 |
VMR23(V129)}} |
VMR23(V132)}} |
872 |
va_end(ap); |
va_end(ap); |
873 |
return Cnil;} |
return Cnil;} |
874 |
} |
} |
878 |
{register object *base=vs_base; |
{register object *base=vs_base; |
879 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
880 |
vs_check; |
vs_check; |
881 |
{register object V130; |
{register object V133; |
882 |
object V131; |
object V134; |
883 |
object V132; |
object V135; |
884 |
register object V133; |
register object V136; |
885 |
check_arg(4); |
check_arg(4); |
886 |
V130=(base[0]); |
V133=(base[0]); |
887 |
V131=(base[1]); |
V134=(base[1]); |
888 |
V132=(base[2]); |
V135=(base[2]); |
889 |
V133=(base[3]); |
V136=(base[3]); |
890 |
vs_top=sup; |
vs_top=sup; |
891 |
goto TTL; |
goto TTL; |
892 |
TTL:; |
TTL:; |
894 |
goto T202;} |
goto T202;} |
895 |
if(((VV[3]->s.s_dbind))==Cnil){ |
if(((VV[3]->s.s_dbind))==Cnil){ |
896 |
goto T202;} |
goto T202;} |
897 |
base[4]= (V130); |
base[4]= (V133); |
898 |
base[5]= (V131); |
base[5]= (V134); |
899 |
base[6]= (V132); |
base[6]= (V135); |
900 |
base[7]= (V133); |
base[7]= (V136); |
901 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
902 |
(void) (*Lnk171)(); |
(void) (*Lnk171)(); |
903 |
return; |
return; |
904 |
goto T202; |
goto T202; |
905 |
T202:; |
T202:; |
906 |
{object V134; |
{object V137; |
907 |
object V135; |
object V138; |
908 |
object V136; |
object V139; |
909 |
V134= (*(LnkLI158))((V132),(V133)); |
V137= (*(LnkLI158))((V135),(V136)); |
910 |
base[7]= VV[4]; |
base[7]= VV[4]; |
911 |
base[8]= (V134); |
base[8]= (V137); |
912 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
913 |
(void) (*Lnk159)(); |
(void) (*Lnk159)(); |
914 |
vs_top=sup; |
vs_top=sup; |
915 |
V135= vs_base[0]; |
V138= vs_base[0]; |
916 |
if(((V133))==Cnil){ |
if(((V136))==Cnil){ |
917 |
goto T217;} |
goto T217;} |
918 |
V136= VV[62]; |
V139= VV[62]; |
919 |
goto T215; |
goto T215; |
920 |
goto T217; |
goto T217; |
921 |
T217:; |
T217:; |
922 |
V136= Cnil; |
V139= Cnil; |
923 |
goto T215; |
goto T215; |
924 |
T215:; |
T215:; |
925 |
if(((V130))!=Cnil){ |
if(((V133))!=Cnil){ |
926 |
goto T222;} |
goto T222;} |
927 |
V137= VV[63]; |
V140= VV[63]; |
928 |
goto T220; |
goto T220; |
929 |
goto T222; |
goto T222; |
930 |
T222:; |
T222:; |
931 |
V137= Cnil; |
V140= Cnil; |
932 |
goto T220; |
goto T220; |
933 |
T220:; |
T220:; |
934 |
V138= append(V137,VV[64]); |
V141= append(V140,VV[64]); |
935 |
base[7]= make_cons(VV[54],/* INLINE-ARGS */V138); |
base[7]= make_cons(VV[54],/* INLINE-ARGS */V141); |
936 |
base[8]= (V134); |
base[8]= (V137); |
937 |
if(((V130))==Cnil){ |
if(((V133))==Cnil){ |
938 |
goto T228;} |
goto T228;} |
939 |
V139= VV[65]; |
V142= VV[65]; |
940 |
goto T226; |
goto T226; |
941 |
goto T228; |
goto T228; |
942 |
T228:; |
T228:; |
943 |
V139= Cnil; |
V142= Cnil; |
944 |
goto T226; |
goto T226; |
945 |
T226:; |
T226:; |
946 |
if(((V131))==Cnil){ |
V143 = (V138); |
947 |
|
V144 = (V135); |
948 |
|
if(((V134))==Cnil){ |
949 |
goto T232;} |
goto T232;} |
950 |
if(((V130))==Cnil){ |
if(((V133))==Cnil){ |
951 |
goto T235;} |
goto T235;} |
952 |
V140= VV[8]; |
V145= VV[8]; |
953 |
goto T230; |
goto T230; |
954 |
goto T235; |
goto T235; |
955 |
T235:; |
T235:; |
956 |
V140= Ct; |
V145= Ct; |
957 |
goto T230; |
goto T230; |
958 |
goto T232; |
goto T232; |
959 |
T232:; |
T232:; |
960 |
V140= listA(4,VV[7],VV[8],(V133),append((V135),(V136))); |
V145= listA(4,VV[7],VV[8],(V136),append((V138),(V139))); |
961 |
goto T230; |
goto T230; |
962 |
T230:; |
T230:; |
963 |
V141= (VFUN_NARGS=3,(*(LnkLI172))(VV[11],(V135),(V133))); |
V146= (VFUN_NARGS=3,(*(LnkLI172))(VV[11],(V138),(V136))); |
964 |
if(((V130))==Cnil){ |
if(((V133))==Cnil){ |
965 |
goto T239;} |
goto T239;} |
966 |
V142= VV[8]; |
V147= VV[8]; |
967 |
goto T237; |
goto T237; |
968 |
goto T239; |
goto T239; |
969 |
T239:; |
T239:; |
970 |
V142= Cnil; |
V147= Cnil; |
971 |
goto T237; |
goto T237; |
972 |
T237:; |
T237:; |
973 |
base[9]= list(3,VV[14],V139,(VFUN_NARGS=5,(*(LnkLI169))((V135),(V132),V140,/* INLINE-ARGS */V141,V142))); |
base[9]= list(3,VV[14],V142,(VFUN_NARGS=5,(*(LnkLI169))(V143,V144,V145,/* INLINE-ARGS */V146,V147))); |
974 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
975 |
(void) (*Lnk160)(); |
(void) (*Lnk160)(); |
976 |
return;} |
return;} |
985 |
bds_check; |
bds_check; |
986 |
check_arg(2); |
check_arg(2); |
987 |
vs_top=sup; |
vs_top=sup; |
988 |
{object V143=base[0]->c.c_cdr; |
{object V148=base[0]->c.c_cdr; |
989 |
if(endp(V143))invalid_macro_call(); |
if(endp(V148))invalid_macro_call(); |
990 |
base[2]= (V143->c.c_car); |
base[2]= (V148->c.c_car); |
991 |
V143=V143->c.c_cdr; |
V148=V148->c.c_cdr; |
992 |
if(endp(V143))invalid_macro_call(); |
if(endp(V148))invalid_macro_call(); |
993 |
base[3]= (V143->c.c_car); |
base[3]= (V148->c.c_car); |
994 |
V143=V143->c.c_cdr; |
V148=V148->c.c_cdr; |
995 |
if(endp(V143))invalid_macro_call(); |
if(endp(V148))invalid_macro_call(); |
996 |
base[4]= (V143->c.c_car); |
base[4]= (V148->c.c_car); |
997 |
V143=V143->c.c_cdr; |
V148=V148->c.c_cdr; |
998 |
if(endp(V143))invalid_macro_call(); |
if(endp(V148))invalid_macro_call(); |
999 |
base[5]= (V143->c.c_car); |
base[5]= (V148->c.c_car); |
1000 |
V143=V143->c.c_cdr; |
V148=V148->c.c_cdr; |
1001 |
if(!endp(V143))invalid_macro_call();} |
if(!endp(V148))invalid_macro_call();} |
1002 |
bds_bind(VV[3],Cnil); |
bds_bind(VV[3],Cnil); |
1003 |
bds_bind(VV[2],Ct); |
bds_bind(VV[2],Ct); |
1004 |
base[9]= base[2]; |
base[9]= base[2]; |
1016 |
} |
} |
1017 |
/* local entry for function EMIT-DLAP */ |
/* local entry for function EMIT-DLAP */ |
1018 |
|
|
1019 |
static object LI26(object V148,object V147,object V146,object V145,object V144,object first,...) |
static object LI26(object V153,object V152,object V151,object V150,object V149,object first,...) |
1020 |
{ |
{ |
1021 |
va_list ap; |
va_list ap; |
1022 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
1023 |
{object V149; |
{object V154; |
1024 |
object V150; |
object V155; |
1025 |
object V151; |
object V156; |
1026 |
object V152; |
object V157; |
1027 |
object V153; |
object V158; |
1028 |
object V154; |
object V159; |
1029 |
va_start(ap,first); |
va_start(ap,first); |
1030 |
if(narg <5) too_few_arguments(); |
if(narg <5) too_few_arguments(); |
1031 |
V149= V148; |
V154= V153; |
1032 |
V150= V147; |
V155= V152; |
1033 |
V151= V146; |
V156= V151; |
1034 |
V152= V145; |
V157= V150; |
1035 |
V153= V144; |
V158= V149; |
1036 |
narg = narg - 5; |
narg = narg - 5; |
1037 |
if (narg <= 0) goto T246; |
if (narg <= 0) goto T246; |
1038 |
else { |
else { |
1039 |
V154= first;} |
V159= first;} |
1040 |
--narg; goto T247; |
--narg; goto T247; |
1041 |
goto T246; |
goto T246; |
1042 |
T246:; |
T246:; |
1043 |
V154= Cnil; |
V159= Cnil; |
1044 |
goto T247; |
goto T247; |
1045 |
T247:; |
T247:; |
1046 |
{long V155; |
{long V160; |
1047 |
object V156; |
object V161; |
1048 |
register object V157; |
register object V162; |
1049 |
V155= -1; |
V160= -1; |
1050 |
{object V158; |
{object V163; |
1051 |
object V159= (V149); |
object V164= (V154); |
1052 |
object V160= (V150); |
object V165= (V155); |
1053 |
if(V159==Cnil||V160==Cnil){ |
if(V164==Cnil||V165==Cnil){ |
1054 |
V156= Cnil; |
V161= Cnil; |
1055 |
goto T250;} |
goto T250;} |
1056 |
base[2]=V158=MMcons(Cnil,Cnil); |
base[2]=V163=MMcons(Cnil,Cnil); |
1057 |
goto T251; |
goto T251; |
1058 |
T251:; |
T251:; |
1059 |
if(((V160->c.c_car))==(Ct)){ |
if(((V165->c.c_car))==(Ct)){ |
1060 |
goto T254;} |
goto T254;} |
1061 |
V155= (long)(V155)+(1); |
V160= (long)(V160)+(1); |
1062 |
base[4]= Cnil; |
base[4]= Cnil; |
1063 |
base[5]= VV[66]; |
base[5]= VV[66]; |
1064 |
base[6]= CMPmake_fixnum(V155); |
base[6]= CMPmake_fixnum(V160); |
1065 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1066 |
Lformat(); |
Lformat(); |
1067 |
vs_top=sup; |
vs_top=sup; |
1070 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1071 |
Lintern(); |
Lintern(); |
1072 |
vs_top=sup; |
vs_top=sup; |
1073 |
V163= vs_base[0]; |
V168= vs_base[0]; |
1074 |
{object V165; |
V169 = (V165->c.c_car); |
1075 |
V165= CMPcar((V154)); |
V170 = (V164->c.c_car); |
1076 |
V154= CMPcdr((V154)); |
{object V172; |
1077 |
V164= (V165);} |
V172= CMPcar((V159)); |
1078 |
V166= list(2,V163,(VFUN_NARGS=4,(*(LnkLI173))((V160->c.c_car),(V159->c.c_car),VV[68],V164))); |
V159= CMPcdr((V159)); |
1079 |
(V158->c.c_cdr)= make_cons(/* INLINE-ARGS */V166,Cnil); |
V171= (V172);} |
1080 |
|
V173= list(2,V168,(VFUN_NARGS=4,(*(LnkLI173))(V169,V170,VV[68],V171))); |
1081 |
|
(V163->c.c_cdr)= make_cons(/* INLINE-ARGS */V173,Cnil); |
1082 |
goto T252; |
goto T252; |
1083 |
goto T254; |
goto T254; |
1084 |
T254:; |
T254:; |
1085 |
(V158->c.c_cdr)= Cnil; |
(V163->c.c_cdr)= Cnil; |
1086 |
goto T252; |
goto T252; |
1087 |
T252:; |
T252:; |
1088 |
while(MMcdr(V158)!=Cnil)V158=MMcdr(V158); |
while(MMcdr(V163)!=Cnil)V163=MMcdr(V163); |
1089 |
if((V159=MMcdr(V159))==Cnil||(V160=MMcdr(V160))==Cnil){ |
if((V164=MMcdr(V164))==Cnil||(V165=MMcdr(V165))==Cnil){ |
1090 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
1091 |
V156= base[2]; |
V161= base[2]; |
1092 |
goto T250;} |
goto T250;} |
1093 |
goto T251;} |
goto T251;} |
1094 |
goto T250; |
goto T250; |
1095 |
T250:; |
T250:; |
1096 |
{object V167; |
{object V174; |
1097 |
object V168= (V156); |
object V175= (V161); |
1098 |
if(V168==Cnil){ |
if(V175==Cnil){ |
1099 |
V157= Cnil; |
V162= Cnil; |
1100 |
goto T268;} |
goto T268;} |
1101 |
base[2]=V167=MMcons(Cnil,Cnil); |
base[2]=V174=MMcons(Cnil,Cnil); |
1102 |
goto T269; |
goto T269; |
1103 |
T269:; |
T269:; |
1104 |
(V167->c.c_car)= CMPcar((V168->c.c_car)); |
(V174->c.c_car)= CMPcar((V175->c.c_car)); |
1105 |
if((V168=MMcdr(V168))==Cnil){ |
if((V175=MMcdr(V175))==Cnil){ |
1106 |
V157= base[2]; |
V162= base[2]; |
1107 |
goto T268;} |
goto T268;} |
1108 |
V167=MMcdr(V167)=MMcons(Cnil,Cnil); |
V174=MMcdr(V174)=MMcons(Cnil,Cnil); |
1109 |
goto T269;} |
goto T269;} |
1110 |
goto T268; |
goto T268; |
1111 |
T268:; |
T268:; |
1112 |
if(((V157))!=Cnil){ |
if(((V162))!=Cnil){ |
1113 |
goto T271;} |
goto T271;} |
1114 |
base[2]= VV[69]; |
base[2]= VV[69]; |
1115 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1117 |
vs_top=sup; |
vs_top=sup; |
1118 |
goto T271; |
goto T271; |
1119 |
T271:; |
T271:; |
1120 |
V169= listA(6,VV[73],VV[74],VV[75],VV[76],VV[77],(V156)); |
V176= listA(6,VV[73],VV[74],VV[75],VV[76],VV[77],(V161)); |
1121 |
if((CMPcdr((V157)))==Cnil){ |
if((CMPcdr((V162)))==Cnil){ |
1122 |
goto T277;} |
goto T277;} |
1123 |
V170= (*(LnkLI174))((V157),VV[68],(V153)); |
V177= (*(LnkLI174))((V162),VV[68],(V158)); |
1124 |
goto T275; |
goto T275; |
1125 |
goto T277; |
goto T277; |
1126 |
T277:; |
T277:; |
1127 |
if(((V153))==Cnil){ |
if(((V158))==Cnil){ |
1128 |
goto T280;} |
goto T280;} |
1129 |
V170= (*(LnkLI175))(CMPcar((V157)),VV[68],(V153)); |
V177= (*(LnkLI175))(CMPcar((V162)),VV[68],(V158)); |
1130 |
goto T275; |
goto T275; |
1131 |
goto T280; |
goto T280; |
1132 |
T280:; |
T280:; |
1133 |
V170= (*(LnkLI176))(CMPcar((V157)),VV[68]); |
V177= (*(LnkLI176))(CMPcar((V162)),VV[68]); |
1134 |
goto T275; |
goto T275; |
1135 |
T275:; |
T275:; |
1136 |
V171= list(5,VV[14],/* INLINE-ARGS */V169,VV[78],V170,list(3,VV[79],VV[71],(V151))); |
V178= list(5,VV[14],/* INLINE-ARGS */V176,VV[78],V177,list(3,VV[79],VV[71],(V156))); |
1137 |
{object V172 = list(3,VV[70],VV[71],list(4,VV[72],/* INLINE-ARGS */V171,VV[68],list(3,VV[79],VV[71],(V152)))); |
{object V179 = list(3,VV[70],VV[71],list(4,VV[72],/* INLINE-ARGS */V178,VV[68],list(3,VV[79],VV[71],(V157)))); |
1138 |
VMR26(V172)}} |
VMR26(V179)}} |
1139 |
va_end(ap); |
va_end(ap); |
1140 |
base[0]=base[0]; |
base[0]=base[0]; |
1141 |
return Cnil;} |
return Cnil;} |
1142 |
} |
} |
1143 |
/* local entry for function EMIT-1-NIL-DLAP */ |
/* local entry for function EMIT-1-NIL-DLAP */ |
1144 |
|
|
1145 |
static object LI27(V175,V176) |
static object LI27(V182,V183) |
1146 |
|
|
1147 |
object V175;object V176; |
object V182;object V183; |
1148 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1149 |
goto TTL; |
goto TTL; |
1150 |
TTL:; |
TTL:; |
1151 |
V177= list(2,list(2,VV[80],(*(LnkLI177))((V175),(V176))),VV[81]); |
V184= list(2,list(2,VV[80],(*(LnkLI177))((V182),(V183))),VV[81]); |
1152 |
V178= list(3,VV[85],list(3,VV[44],(V175),VV[86]),VV[87]); |
V185= list(3,VV[85],list(3,VV[44],(V182),VV[86]),VV[87]); |
1153 |
V179= list(3,VV[91],VV[92],list(3,VV[85],list(3,VV[44],VV[93],(V175)),VV[94])); |
V186= list(3,VV[91],VV[92],list(3,VV[85],list(3,VV[44],VV[93],(V182)),VV[94])); |
1154 |
{object V180 = list(4,VV[24],/* INLINE-ARGS */V177,VV[82],list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V178,VV[88],VV[89],list(4,VV[85],VV[90],/* INLINE-ARGS */V179,list(2,VV[95],(V176)))))); |
{object V187 = list(4,VV[24],/* INLINE-ARGS */V184,VV[82],list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V185,VV[88],VV[89],list(4,VV[85],VV[90],/* INLINE-ARGS */V186,list(2,VV[95],(V183)))))); |
1155 |
VMR27(V180)} |
VMR27(V187)} |
1156 |
return Cnil; |
return Cnil; |
1157 |
} |
} |
1158 |
/* macro definition for GET-CACHE-VECTOR-LOCK-COUNT */ |
/* macro definition for GET-CACHE-VECTOR-LOCK-COUNT */ |
1163 |
vs_check; |
vs_check; |
1164 |
check_arg(2); |
check_arg(2); |
1165 |
vs_top=sup; |
vs_top=sup; |
1166 |
{object V181=base[0]->c.c_cdr; |
{object V188=base[0]->c.c_cdr; |
1167 |
if(endp(V181))invalid_macro_call(); |
if(endp(V188))invalid_macro_call(); |
1168 |
base[2]= (V181->c.c_car); |
base[2]= (V188->c.c_car); |
1169 |
V181=V181->c.c_cdr; |
V188=V188->c.c_cdr; |
1170 |
if(!endp(V181))invalid_macro_call();} |
if(!endp(V188))invalid_macro_call();} |
1171 |
V182= list(2,VV[96],list(2,VV[97],base[2])); |
V189= list(2,VV[96],list(2,VV[97],base[2])); |
1172 |
base[3]= listA(3,VV[14],make_cons(/* INLINE-ARGS */V182,Cnil),VV[98]); |
base[3]= listA(3,VV[14],make_cons(/* INLINE-ARGS */V189,Cnil),VV[98]); |
1173 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1174 |
return; |
return; |
1175 |
} |
} |
1176 |
/* local entry for function EMIT-1-T-DLAP */ |
/* local entry for function EMIT-1-T-DLAP */ |
1177 |
|
|
1178 |
static object LI29(V186,V187,V188) |
static object LI29(V193,V194,V195) |
1179 |
|
|
1180 |
object V186;object V187;object V188; |
object V193;object V194;object V195; |
1181 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1182 |
goto TTL; |
goto TTL; |
1183 |
TTL:; |
TTL:; |
1184 |
V189= list(2,list(2,VV[80],(*(LnkLI177))((V186),(V187))),VV[99]); |
V196= list(2,list(2,VV[80],(*(LnkLI177))((V193),(V194))),VV[99]); |
1185 |
V190= list(3,VV[44],(V186),VV[103]); |
V197= list(3,VV[44],(V193),VV[103]); |
1186 |
V191= list(4,VV[85],/* INLINE-ARGS */V190,list(3,VV[29],(V188),VV[104]),VV[105]); |
V198= list(4,VV[85],/* INLINE-ARGS */V197,list(3,VV[29],(V195),VV[104]),VV[105]); |
1187 |
V192= list(3,VV[44],VV[110],(V186)); |
V199= list(3,VV[44],VV[110],(V193)); |
1188 |
V193= list(3,VV[91],VV[109],list(4,VV[85],/* INLINE-ARGS */V192,list(3,VV[29],(V188),VV[111]),VV[112])); |
V200= list(3,VV[91],VV[109],list(4,VV[85],/* INLINE-ARGS */V199,list(3,VV[29],(V195),VV[111]),VV[112])); |
1189 |
V194= list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V191,VV[106],VV[107],list(4,VV[85],VV[108],/* INLINE-ARGS */V193,list(2,VV[95],(V187))))); |
V201= list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V198,VV[106],VV[107],list(4,VV[85],VV[108],/* INLINE-ARGS */V200,list(2,VV[95],(V194))))); |
1190 |
{object V195 = list(4,VV[14],/* INLINE-ARGS */V189,VV[100],list(5,VV[14],VV[101],VV[102],/* INLINE-ARGS */V194,list(3,VV[113],VV[114],list(2,VV[95],(V187))))); |
{object V202 = list(4,VV[14],/* INLINE-ARGS */V196,VV[100],list(5,VV[14],VV[101],VV[102],/* INLINE-ARGS */V201,list(3,VV[113],VV[114],list(2,VV[95],(V194))))); |
1191 |
VMR29(V195)} |
VMR29(V202)} |
1192 |
return Cnil; |
return Cnil; |
1193 |
} |
} |
1194 |
/* local entry for function EMIT-GREATER-THAN-1-DLAP */ |
/* local entry for function EMIT-GREATER-THAN-1-DLAP */ |
1195 |
|
|
1196 |
static object LI30(V199,V200,V201) |
static object LI30(V206,V207,V208) |
1197 |
|
|
1198 |
register object V199;object V200;register object V201; |
register object V206;object V207;register object V208; |
1199 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1200 |
goto TTL; |
goto TTL; |
1201 |
TTL:; |
TTL:; |
1202 |
{object V202; |
{object V209; |
1203 |
V203 = CMPmake_fixnum((long)length((V199))); |
V210 = CMPmake_fixnum((long)length((V206))); |
1204 |
if(((V201))==Cnil){ |
if(((V208))==Cnil){ |
1205 |
goto T285;} |
goto T285;} |
1206 |
V204= small_fixnum(1); |
V211= small_fixnum(1); |
1207 |
goto T283; |
goto T283; |
1208 |
goto T285; |
goto T285; |
1209 |
T285:; |
T285:; |
1210 |
V204= small_fixnum(0); |
V211= small_fixnum(0); |
1211 |
goto T283; |
goto T283; |
1212 |
T283:; |
T283:; |
1213 |
V205= number_plus(V203,V204); |
V212= number_plus(V210,V211); |
1214 |
V202= (*(LnkLI178))(/* INLINE-ARGS */V205); |
V209= (*(LnkLI178))(/* INLINE-ARGS */V212); |
1215 |
V206= (*(LnkLI179))((V199),(V200)); |
V213= (*(LnkLI179))((V206),(V207)); |
1216 |
V207= list(3,VV[29],VV[121],list(3,VV[122],VV[123],list(3,VV[124],VV[125],(V202)))); |
V214= list(3,VV[29],VV[121],list(3,VV[122],VV[123],list(3,VV[124],VV[125],(V209)))); |
1217 |
{object V209; |
{object V216; |
1218 |
object V210= (V199); |
object V217= (V206); |
1219 |
if(V210==Cnil){ |
if(V217==Cnil){ |
1220 |
V208= Cnil; |
V215= Cnil; |
1221 |
goto T287;} |
goto T287;} |
1222 |
base[0]=V209=MMcons(Cnil,Cnil); |
base[0]=V216=MMcons(Cnil,Cnil); |
1223 |
goto T288; |
goto T288; |
1224 |
T288:; |
T288:; |
1225 |
(V209->c.c_car)= list(3,VV[44],(V210->c.c_car),VV[127]); |
(V216->c.c_car)= list(3,VV[44],(V217->c.c_car),VV[127]); |
1226 |
if((V210=MMcdr(V210))==Cnil){ |
if((V217=MMcdr(V217))==Cnil){ |
1227 |
V208= base[0]; |
V215= base[0]; |
1228 |
goto T287;} |
goto T287;} |
1229 |
V209=MMcdr(V209)=MMcons(Cnil,Cnil); |
V216=MMcdr(V216)=MMcons(Cnil,Cnil); |
1230 |
goto T288;} |
goto T288;} |
1231 |
goto T287; |
goto T287; |
1232 |
T287:; |
T287:; |
1233 |
V212= make_cons(VV[126],V208); |
V219= make_cons(VV[126],V215); |
1234 |
if(((V201))==Cnil){ |
if(((V208))==Cnil){ |
1235 |
goto T292;} |
goto T292;} |
1236 |
V213= list(2,VV[128],list(3,VV[29],(V201),VV[129])); |
V220= list(2,VV[128],list(3,VV[29],(V208),VV[129])); |
1237 |
goto T290; |
goto T290; |
1238 |
goto T292; |
goto T292; |
1239 |
T292:; |
T292:; |
1240 |
V213= Cnil; |
V220= Cnil; |
1241 |
goto T290; |
goto T290; |
1242 |
T290:; |
T290:; |
1243 |
V214= listA(3,VV[85],/* INLINE-ARGS */V212,append(V213,VV[130])); |
V221= listA(3,VV[85],/* INLINE-ARGS */V219,append(V220,VV[130])); |
1244 |
{object V216; |
{object V223; |
1245 |
object V217= (V199); |
object V224= (V206); |
1246 |
if(V217==Cnil){ |
if(V224==Cnil){ |
1247 |
V215= Cnil; |
V222= Cnil; |
1248 |
goto T294;} |
goto T294;} |
1249 |
base[0]=V216=MMcons(Cnil,Cnil); |
base[0]=V223=MMcons(Cnil,Cnil); |
1250 |
goto T295; |
goto T295; |
1251 |
T295:; |
T295:; |
1252 |
(V216->c.c_car)= list(3,VV[44],(V217->c.c_car),VV[136]); |
(V223->c.c_car)= list(3,VV[44],(V224->c.c_car),VV[136]); |
1253 |
if((V217=MMcdr(V217))==Cnil){ |
if((V224=MMcdr(V224))==Cnil){ |
1254 |
V215= base[0]; |
V222= base[0]; |
1255 |
goto T294;} |
goto T294;} |
1256 |
V216=MMcdr(V216)=MMcons(Cnil,Cnil); |
V223=MMcdr(V223)=MMcons(Cnil,Cnil); |
1257 |
goto T295;} |
goto T295;} |
1258 |
goto T294; |
goto T294; |
1259 |
T294:; |
T294:; |
1260 |
V219= make_cons(VV[126],V215); |
V226= make_cons(VV[126],V222); |
1261 |
if(((V201))==Cnil){ |
if(((V208))==Cnil){ |
1262 |
goto T299;} |
goto T299;} |
1263 |
V221= list(3,VV[29],(V201),VV[137]); |
V228= list(3,VV[29],(V208),VV[137]); |
1264 |
V220= make_cons(/* INLINE-ARGS */V221,Cnil); |
V227= make_cons(/* INLINE-ARGS */V228,Cnil); |
1265 |
goto T297; |
goto T297; |
1266 |
goto T299; |
goto T299; |
1267 |
T299:; |
T299:; |
1268 |
V220= Cnil; |
V227= Cnil; |
1269 |
goto T297; |
goto T297; |
1270 |
T297:; |
T297:; |
1271 |
V222= list(3,VV[91],VV[134],list(3,VV[14],VV[135],listA(3,VV[85],/* INLINE-ARGS */V219,append(V220,VV[138])))); |
V229= list(3,VV[91],VV[134],list(3,VV[14],VV[135],listA(3,VV[85],/* INLINE-ARGS */V226,append(V227,VV[138])))); |
1272 |
V223= list(3,VV[70],VV[83],list(6,VV[84],/* INLINE-ARGS */V207,/* INLINE-ARGS */V214,VV[131],VV[132],list(4,VV[85],VV[133],/* INLINE-ARGS */V222,list(2,VV[95],(V200))))); |
V230= list(3,VV[70],VV[83],list(6,VV[84],/* INLINE-ARGS */V214,/* INLINE-ARGS */V221,VV[131],VV[132],list(4,VV[85],VV[133],/* INLINE-ARGS */V229,list(2,VV[95],(V207))))); |
1273 |
{object V224 = list(5,VV[14],VV[115],VV[116],/* INLINE-ARGS */V206,list(4,VV[14],VV[117],VV[118],list(5,VV[14],VV[119],VV[120],/* INLINE-ARGS */V223,list(3,VV[113],VV[139],list(2,VV[95],(V200)))))); |
{object V231 = list(5,VV[14],VV[115],VV[116],/* INLINE-ARGS */V213,list(4,VV[14],VV[117],VV[118],list(5,VV[14],VV[119],VV[120],/* INLINE-ARGS */V230,list(3,VV[113],VV[139],list(2,VV[95],(V207)))))); |
1274 |
VMR30(V224)}} |
VMR30(V231)}} |
1275 |
base[0]=base[0]; |
base[0]=base[0]; |
1276 |
return Cnil; |
return Cnil; |
1277 |
} |
} |
1278 |
/* local entry for function EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
/* local entry for function EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
1279 |
|
|
1280 |
static object LI31(V227,V228) |
static object LI31(V234,V235) |
1281 |
|
|
1282 |
object V227;object V228; |
object V234;object V235; |
1283 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1284 |
goto TTL; |
goto TTL; |
1285 |
TTL:; |
TTL:; |
1286 |
V229= list(2,VV[140],list(3,VV[40],(V227),VV[141])); |
V236= list(2,VV[140],list(3,VV[40],(V234),VV[141])); |
1287 |
V230= make_cons(/* INLINE-ARGS */V229,Cnil); |
V237= make_cons(/* INLINE-ARGS */V236,Cnil); |
1288 |
V231= list(3,VV[85],VV[143],list(2,VV[95],(V228))); |
V238= list(3,VV[85],VV[143],list(2,VV[95],(V235))); |
1289 |
V232= list(3,VV[122],VV[123],VV[144]); |
V239= list(3,VV[122],VV[123],VV[144]); |
1290 |
{object V234 = list(5,VV[14],/* INLINE-ARGS */V230,VV[142],/* INLINE-ARGS */V231,V232); |
{object V241 = list(5,VV[14],/* INLINE-ARGS */V237,VV[142],/* INLINE-ARGS */V238,V239); |
1291 |
VMR31(V234)} |
VMR31(V241)} |
1292 |
return Cnil; |
return Cnil; |
1293 |
} |
} |
1294 |
/* local entry for function EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
/* local entry for function EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
1295 |
|
|
1296 |
static object LI32(V237,V238) |
static object LI32(V244,V245) |
1297 |
|
|
1298 |
object V237;object V238; |
object V244;object V245; |
1299 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1300 |
goto TTL; |
goto TTL; |
1301 |
TTL:; |
TTL:; |
1302 |
{register long V240; |
{register long V247; |
1303 |
long V241; |
long V248; |
1304 |
V240= 0; |
V247= 0; |
1305 |
V241= (long)length((V237)); |
V248= (long)length((V244)); |
1306 |
{object V242; |
{object V249; |
1307 |
object V243= (V237); |
object V250= (V244); |
1308 |
if(V243==Cnil){ |
if(V250==Cnil){ |
1309 |
V239= Cnil; |
V246= Cnil; |
1310 |
goto T302;} |
goto T302;} |
1311 |
base[0]=V242=MMcons(Cnil,Cnil); |
base[0]=V249=MMcons(Cnil,Cnil); |
1312 |
goto T305; |
goto T305; |
1313 |
T305:; |
T305:; |
1314 |
V245= list(2,VV[140],list(3,VV[40],(V243->c.c_car),VV[141])); |
V252= list(2,VV[140],list(3,VV[40],(V250->c.c_car),VV[141])); |
1315 |
V246= make_cons(/* INLINE-ARGS */V245,Cnil); |
V253= make_cons(/* INLINE-ARGS */V252,Cnil); |
1316 |
V247= list(3,VV[85],VV[147],list(2,VV[95],(V238))); |
V254= list(3,VV[85],VV[147],list(2,VV[95],(V245))); |
1317 |
V240= (long)(V240)+(1); |
V247= (long)(V247)+(1); |
1318 |
if(((long)(V240>=0&&(4)>0?(V240)%(4):imod(V240,4)))==0){ |
if(((long)(V247>=0&&(4)>0?(V247)%(4):imod(V247,4)))==0){ |
1319 |
goto T310;} |
goto T310;} |
1320 |
if(!((V240)==(V241))){ |
if(!((V247)==(V248))){ |
1321 |
goto T311;} |
goto T311;} |
1322 |
goto T310; |
goto T310; |
1323 |
T310:; |
T310:; |
1324 |
V249= list(3,VV[122],VV[123],VV[149]); |
V256= list(3,VV[122],VV[123],VV[149]); |
1325 |
V251= list(3,VV[29],VV[80],V249); |
V258= list(3,VV[29],VV[80],V256); |
1326 |
V248= make_cons(/* INLINE-ARGS */V251,Cnil); |
V255= make_cons(/* INLINE-ARGS */V258,Cnil); |
1327 |
goto T307; |
goto T307; |
1328 |
goto T311; |
goto T311; |
1329 |
T311:; |
T311:; |
1330 |
V248= Cnil; |
V255= Cnil; |
1331 |
goto T307; |
goto T307; |
1332 |
T307:; |
T307:; |
1333 |
(V242->c.c_car)= listA(6,VV[14],/* INLINE-ARGS */V246,VV[146],/* INLINE-ARGS */V247,VV[148],V248); |
(V249->c.c_car)= listA(6,VV[14],/* INLINE-ARGS */V253,VV[146],/* INLINE-ARGS */V254,VV[148],V255); |
1334 |
if((V243=MMcdr(V243))==Cnil){ |
if((V250=MMcdr(V250))==Cnil){ |
1335 |
V239= base[0]; |
V246= base[0]; |
1336 |
goto T302;} |
goto T302;} |
1337 |
V242=MMcdr(V242)=MMcons(Cnil,Cnil); |
V249=MMcdr(V249)=MMcons(Cnil,Cnil); |
1338 |
goto T305;}} |
goto T305;}} |
1339 |
goto T302; |
goto T302; |
1340 |
T302:; |
T302:; |
1341 |
{object V252 = make_cons(VV[145],V239); |
{object V259 = make_cons(VV[145],V246); |
1342 |
VMR32(V252)} |
VMR32(V259)} |
1343 |
base[0]=base[0]; |
base[0]=base[0]; |
1344 |
return Cnil; |
return Cnil; |
1345 |
} |
} |
1346 |
/* local entry for function EMIT-FETCH-WRAPPER */ |
/* local entry for function EMIT-FETCH-WRAPPER */ |
1347 |
|
|
1348 |
static object LI33(object V255,object V254,object V253,object first,...) |
static object LI33(object V262,object V261,object V260,object first,...) |
1349 |
{ |
{ |
1350 |
va_list ap; |
va_list ap; |
1351 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
1352 |
{object V256; |
{object V263; |
1353 |
register object V257; |
register object V264; |
1354 |
object V258; |
object V265; |
1355 |
register object V259; |
register object V266; |
1356 |
va_start(ap,first); |
va_start(ap,first); |
1357 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1358 |
V256= V255; |
V263= V262; |
1359 |
V257= V254; |
V264= V261; |
1360 |
V258= V253; |
V265= V260; |
1361 |
narg = narg - 3; |
narg = narg - 3; |
1362 |
if (narg <= 0) goto T316; |
if (narg <= 0) goto T316; |
1363 |
else { |
else { |
1364 |
V259= first;} |
V266= first;} |
1365 |
--narg; goto T317; |
--narg; goto T317; |
1366 |
goto T316; |
goto T316; |
1367 |
T316:; |
T316:; |
1368 |
V259= Cnil; |
V266= Cnil; |
1369 |
goto T317; |
goto T317; |
1370 |
T317:; |
T317:; |
1371 |
{object V260= (V256); |
{object V267= (V263); |
1372 |
if((V260!= VV[180]))goto T319; |
if((V267!= VV[180]))goto T319; |
1373 |
V261= list(2,VV[28],(V257)); |
V268= list(2,VV[28],(V264)); |
1374 |
if(((V259))==Cnil){ |
if(((V266))==Cnil){ |
1375 |
goto T322;} |
goto T322;} |
1376 |
V263= list(3,VV[29],(V259),list(2,VV[30],(V257))); |
V270= list(3,VV[29],(V266),list(2,VV[30],(V264))); |
1377 |
V262= make_cons(/* INLINE-ARGS */V263,Cnil); |
V269= make_cons(/* INLINE-ARGS */V270,Cnil); |
1378 |
goto T320; |
goto T320; |
1379 |
goto T322; |
goto T322; |
1380 |
T322:; |
T322:; |
1381 |
V262= Cnil; |
V269= Cnil; |
1382 |
goto T320; |
goto T320; |
1383 |
T320:; |
T320:; |
1384 |
V264= list(2,VV[31],(V257)); |
V271= list(2,VV[31],(V264)); |
1385 |
V265= make_cons(/* INLINE-ARGS */V264,Cnil); |
V272= make_cons(/* INLINE-ARGS */V271,Cnil); |
1386 |
V266= append(V262,/* INLINE-ARGS */V265); |
V273= append(V269,/* INLINE-ARGS */V272); |
1387 |
V267= make_cons(/* INLINE-ARGS */V261,/* INLINE-ARGS */V266); |
V274= make_cons(/* INLINE-ARGS */V268,/* INLINE-ARGS */V273); |
1388 |
V268= list(2,VV[32],(V257)); |
V275= list(2,VV[32],(V264)); |
1389 |
if(((V259))==Cnil){ |
if(((V266))==Cnil){ |
1390 |
goto T326;} |
goto T326;} |
1391 |
V270= list(3,VV[29],(V259),list(2,VV[33],(V257))); |
V277= list(3,VV[29],(V266),list(2,VV[33],(V264))); |
1392 |
V269= make_cons(/* INLINE-ARGS */V270,Cnil); |
V276= make_cons(/* INLINE-ARGS */V277,Cnil); |
1393 |
goto T324; |
goto T324; |
1394 |
goto T326; |
goto T326; |
1395 |
T326:; |
T326:; |
1396 |
V269= Cnil; |
V276= Cnil; |
1397 |
goto T324; |
goto T324; |
1398 |
T324:; |
T324:; |
1399 |
V271= list(2,VV[34],(V257)); |
V278= list(2,VV[34],(V264)); |
1400 |
V272= make_cons(/* INLINE-ARGS */V271,Cnil); |
V279= make_cons(/* INLINE-ARGS */V278,Cnil); |
1401 |
V273= append(V269,/* INLINE-ARGS */V272); |
V280= append(V276,/* INLINE-ARGS */V279); |
1402 |
V274= make_cons(/* INLINE-ARGS */V268,/* INLINE-ARGS */V273); |
V281= make_cons(/* INLINE-ARGS */V275,/* INLINE-ARGS */V280); |
1403 |
{object V275 = list(4,VV[27],/* INLINE-ARGS */V267,/* INLINE-ARGS */V274,list(2,Ct,list(2,VV[95],(V258)))); |
{object V282 = list(4,VV[27],/* INLINE-ARGS */V274,/* INLINE-ARGS */V281,list(2,Ct,list(2,VV[95],(V265)))); |
1404 |
VMR33(V275)} |
VMR33(V282)} |
1405 |
goto T319; |
goto T319; |
1406 |
T319:; |
T319:; |
1407 |
if((V260!= VV[181]))goto T328; |
if((V267!= VV[181]))goto T328; |
1408 |
if(((V259))==Cnil){ |
if(((V266))==Cnil){ |
1409 |
goto T329;} |
goto T329;} |
1410 |
base[0]= VV[150]; |
base[0]= VV[150]; |
1411 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1413 |
vs_top=sup; |
vs_top=sup; |
1414 |
goto T329; |
goto T329; |
1415 |
T329:; |
T329:; |
1416 |
{object V276 = list(2,VV[151],(V257)); |
{object V283 = list(2,VV[151],(V264)); |
1417 |
VMR33(V276)} |
VMR33(V283)} |
1418 |
goto T328; |
goto T328; |
1419 |
T328:; |
T328:; |
1420 |
if((V260!= VV[182]) |
if((V267!= VV[182]) |
1421 |
&& (V260!= VV[183]))goto T333; |
&& (V267!= VV[183]))goto T333; |
1422 |
if(((V259))==Cnil){ |
if(((V266))==Cnil){ |
1423 |
goto T334;} |
goto T334;} |
1424 |
base[0]= VV[152]; |
base[0]= VV[152]; |
1425 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1427 |
vs_top=sup; |
vs_top=sup; |
1428 |
goto T334; |
goto T334; |
1429 |
T334:; |
T334:; |
1430 |
{object V277 = list(2,VV[153],(V257)); |
{object V284 = list(2,VV[153],(V264)); |
1431 |
VMR33(V277)} |
VMR33(V284)} |
1432 |
goto T333; |
goto T333; |
1433 |
T333:; |
T333:; |
1434 |
FEerror("The ECASE key value ~s is illegal.",1,V260); |
FEerror("The ECASE key value ~s is illegal.",1,V267); |
1435 |
{object V278 = Cnil; |
{object V285 = Cnil; |
1436 |
VMR33(V278)}} |
VMR33(V285)}} |
1437 |
va_end(ap); |
va_end(ap); |
1438 |
base[0]=base[0]; |
base[0]=base[0]; |
1439 |
return Cnil;} |
return Cnil;} |