96 |
V10= list(2,VV[6],base[2]); |
V10= list(2,VV[6],base[2]); |
97 |
V11= list(4,VV[5],/* INLINE-ARGS */V10,list(2,VV[9],listA(3,VV[10],base[3],base[4])),VV[11]); |
V11= list(4,VV[5],/* INLINE-ARGS */V10,list(2,VV[9],listA(3,VV[10],base[3],base[4])),VV[11]); |
98 |
V12= list(2,VV[6],base[2]); |
V12= list(2,VV[6],base[2]); |
99 |
V13= (*(LnkLI75))(base[4]); |
V13= (*(LnkLI78))(base[4]); |
100 |
V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]); |
V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]); |
101 |
base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2])); |
base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2])); |
102 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
425 |
T77:; |
T77:; |
426 |
base[0]= (V32); |
base[0]= (V32); |
427 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
428 |
(void) (*Lnk76)(); |
(void) (*Lnk79)(); |
429 |
vs_top=sup; |
vs_top=sup; |
430 |
V34= vs_base[0]; |
V34= vs_base[0]; |
431 |
if((V34)==Cnil){ |
if((V34)==Cnil){ |
503 |
base[2]= (V38); |
base[2]= (V38); |
504 |
base[3]= car((V41)); |
base[3]= car((V41)); |
505 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
506 |
(void) (*Lnk77)(); |
(void) (*Lnk80)(); |
507 |
vs_top=sup; |
vs_top=sup; |
508 |
V46= vs_base[0]; |
V46= vs_base[0]; |
509 |
base[2]= ((V46)==Cnil?Ct:Cnil); |
base[2]= ((V46)==Cnil?Ct:Cnil); |
526 |
base[2]= (V38); |
base[2]= (V38); |
527 |
base[3]= car((V47)); |
base[3]= car((V47)); |
528 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
529 |
(void) (*Lnk77)(); |
(void) (*Lnk80)(); |
530 |
vs_top=sup; |
vs_top=sup; |
531 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
532 |
goto T115;} |
goto T115;} |
554 |
base[2]= (V38); |
base[2]= (V38); |
555 |
base[3]= car((V48)); |
base[3]= car((V48)); |
556 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
557 |
(void) (*Lnk77)(); |
(void) (*Lnk80)(); |
558 |
vs_top=sup; |
vs_top=sup; |
559 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
560 |
goto T130;} |
goto T130;} |
567 |
goto T125;} |
goto T125;} |
568 |
goto T123; |
goto T123; |
569 |
T123:; |
T123:; |
570 |
if((V44!= VV[78]))goto T138; |
if((V44!= VV[81]))goto T138; |
571 |
base[2]= car((V41)); |
base[2]= car((V41)); |
572 |
base[3]= (V38); |
base[3]= (V38); |
573 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
587 |
return; |
return; |
588 |
goto T142; |
goto T142; |
589 |
T142:; |
T142:; |
590 |
if((V44!= VV[28]))goto T143; |
if((V44!= VV[82]))goto T143; |
591 |
|
if(!(((V38))==(Ct))){ |
592 |
|
goto T144;} |
593 |
|
base[2]= Ct; |
594 |
|
vs_top=(vs_base=base+2)+1; |
595 |
|
return; |
596 |
|
goto T144; |
597 |
|
T144:; |
598 |
|
base[2]= (((V38))==(Cnil)?Ct:Cnil); |
599 |
|
vs_top=(vs_base=base+2)+1; |
600 |
|
return; |
601 |
|
goto T143; |
602 |
|
T143:; |
603 |
|
if((V44!= VV[28]))goto T146; |
604 |
base[2]= (V38); |
base[2]= (V38); |
605 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
606 |
Ltype_of(); |
Ltype_of(); |
609 |
base[2]= ((V49)==(VV[28])?Ct:Cnil); |
base[2]= ((V49)==(VV[28])?Ct:Cnil); |
610 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
611 |
return; |
return; |
612 |
goto T143; |
goto T146; |
613 |
T143:; |
T146:; |
614 |
if((V44!= VV[29]))goto T146; |
if((V44!= VV[29]))goto T149; |
615 |
base[2]= (V38); |
base[2]= (V38); |
616 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
617 |
Ltype_of(); |
Ltype_of(); |
620 |
base[2]= ((V50)==(VV[29])?Ct:Cnil); |
base[2]= ((V50)==(VV[29])?Ct:Cnil); |
621 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
622 |
return; |
return; |
623 |
goto T146; |
goto T149; |
624 |
T146:; |
T149:; |
625 |
if((V44!= VV[30]))goto T149; |
if((V44!= VV[30]))goto T152; |
626 |
base[2]= (V38); |
base[2]= (V38); |
627 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
628 |
Ltype_of(); |
Ltype_of(); |
631 |
base[2]= ((V51)==(VV[30])?Ct:Cnil); |
base[2]= ((V51)==(VV[30])?Ct:Cnil); |
632 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
633 |
return; |
return; |
634 |
goto T149; |
goto T152; |
635 |
T149:; |
T152:; |
636 |
if((V44!= VV[79]))goto T152; |
if((V44!= VV[83]))goto T155; |
637 |
if(type_of((V38))==t_character){ |
if(type_of((V38))==t_character){ |
638 |
goto T153;} |
goto T156;} |
639 |
base[2]= Cnil; |
base[2]= Cnil; |
640 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
641 |
return; |
return; |
642 |
goto T153; |
goto T156; |
643 |
T153:; |
T156:; |
644 |
base[2]= (V38); |
base[2]= (V38); |
645 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
646 |
Lstandard_char_p(); |
Lstandard_char_p(); |
647 |
return; |
return; |
648 |
goto T152; |
goto T155; |
649 |
T152:; |
T155:; |
650 |
if((V44!= VV[24]))goto T156; |
if((V44!= VV[24]))goto T159; |
651 |
if(type_of((V38))==t_character){ |
if(type_of((V38))==t_character){ |
652 |
goto T157;} |
goto T160;} |
653 |
base[2]= Cnil; |
base[2]= Cnil; |
654 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
655 |
return; |
return; |
656 |
goto T157; |
goto T160; |
657 |
T157:; |
T160:; |
658 |
base[2]= (V38); |
base[2]= (V38); |
659 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
660 |
Lstring_char_p(); |
Lstring_char_p(); |
661 |
return; |
return; |
662 |
goto T156; |
goto T159; |
663 |
T156:; |
T159:; |
664 |
if((V44!= VV[13]))goto T160; |
if((V44!= VV[13]))goto T163; |
665 |
if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){ |
if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){ |
666 |
goto T161;} |
goto T164;} |
667 |
base[2]= Cnil; |
base[2]= Cnil; |
668 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
669 |
return; |
return; |
670 |
goto T161; |
goto T164; |
671 |
T161:; |
T164:; |
672 |
base[2]= (*(LnkLI80))((V38),(V41)); |
base[2]= (*(LnkLI84))((V38),(V41)); |
673 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
674 |
return; |
return; |
675 |
goto T160; |
goto T163; |
676 |
T160:; |
T163:; |
677 |
if((V44!= VV[62]))goto T163; |
if((V44!= VV[65]))goto T166; |
678 |
base[2]= (V38); |
base[2]= (V38); |
679 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
680 |
(void) (*Lnk81)(); |
(void) (*Lnk85)(); |
681 |
vs_top=sup; |
vs_top=sup; |
682 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
683 |
goto T164;} |
goto T167;} |
684 |
base[2]= Cnil; |
base[2]= Cnil; |
685 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
686 |
return; |
return; |
687 |
goto T164; |
goto T167; |
688 |
T164:; |
T167:; |
689 |
base[2]= (*(LnkLI80))((V38),(V41)); |
base[2]= (*(LnkLI84))((V38),(V41)); |
690 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
691 |
return; |
return; |
692 |
goto T163; |
goto T166; |
693 |
T163:; |
T166:; |
694 |
if((V44!= VV[54]))goto T167; |
if((V44!= VV[57]))goto T170; |
695 |
base[2]= (V38); |
base[2]= (V38); |
696 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
697 |
(void) (*Lnk82)(); |
(void) (*Lnk86)(); |
698 |
vs_top=sup; |
vs_top=sup; |
699 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
700 |
goto T168;} |
goto T171;} |
701 |
base[2]= Cnil; |
base[2]= Cnil; |
702 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
703 |
return; |
return; |
704 |
goto T168; |
goto T171; |
705 |
T168:; |
T171:; |
706 |
base[2]= (*(LnkLI80))((V38),(V41)); |
base[2]= (*(LnkLI84))((V38),(V41)); |
707 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
708 |
return; |
return; |
709 |
goto T167; |
goto T170; |
710 |
T167:; |
T170:; |
711 |
if((V44!= VV[63]))goto T171; |
if((V44!= VV[66]))goto T174; |
712 |
if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){ |
if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){ |
713 |
goto T172;} |
goto T175;} |
714 |
base[2]= Cnil; |
base[2]= Cnil; |
715 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
716 |
return; |
return; |
717 |
goto T172; |
goto T175; |
718 |
T172:; |
T175:; |
719 |
base[2]= (*(LnkLI80))((V38),(V41)); |
base[2]= (*(LnkLI84))((V38),(V41)); |
720 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
721 |
return; |
return; |
722 |
goto T171; |
goto T174; |
723 |
T171:; |
T174:; |
724 |
if((V44!= VV[31]))goto T174; |
if((V44!= VV[31]))goto T177; |
725 |
base[2]= (V38); |
base[2]= (V38); |
726 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
727 |
Ltype_of(); |
Ltype_of(); |
728 |
vs_top=sup; |
vs_top=sup; |
729 |
V52= vs_base[0]; |
V52= vs_base[0]; |
730 |
if((V52)==(VV[31])){ |
if((V52)==(VV[31])){ |
731 |
goto T175;} |
goto T178;} |
732 |
base[2]= Cnil; |
base[2]= Cnil; |
733 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
734 |
return; |
return; |
735 |
goto T175; |
goto T178; |
736 |
T175:; |
T178:; |
737 |
base[2]= (*(LnkLI80))((V38),(V41)); |
base[2]= (*(LnkLI84))((V38),(V41)); |
738 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
739 |
return; |
return; |
740 |
goto T174; |
goto T177; |
741 |
T174:; |
T177:; |
742 |
if((V44!= VV[83]) |
if((V44!= VV[87]) |
743 |
&& (V44!= VV[84]) |
&& (V44!= VV[88]) |
744 |
&& (V44!= VV[32]))goto T179; |
&& (V44!= VV[32]))goto T182; |
745 |
base[2]= (V38); |
base[2]= (V38); |
746 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
747 |
Ltype_of(); |
Ltype_of(); |
748 |
vs_top=sup; |
vs_top=sup; |
749 |
V53= vs_base[0]; |
V53= vs_base[0]; |
750 |
if((V53)==(VV[32])){ |
if((V53)==(VV[32])){ |
751 |
goto T180;} |
goto T183;} |
752 |
base[2]= Cnil; |
base[2]= Cnil; |
753 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
754 |
return; |
return; |
755 |
goto T180; |
goto T183; |
756 |
T180:; |
T183:; |
757 |
base[2]= (*(LnkLI80))((V38),(V41)); |
base[2]= (*(LnkLI84))((V38),(V41)); |
758 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
759 |
return; |
return; |
760 |
goto T179; |
goto T182; |
761 |
T179:; |
T182:; |
762 |
if((V44!= VV[66]))goto T184; |
if((V44!= VV[69]))goto T187; |
763 |
base[2]= (V38); |
base[2]= (V38); |
764 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
765 |
Lcomplexp(); |
Lcomplexp(); |
766 |
vs_top=sup; |
vs_top=sup; |
767 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
768 |
goto T185;} |
goto T188;} |
769 |
base[2]= Cnil; |
base[2]= Cnil; |
770 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
771 |
return; |
return; |
772 |
goto T185; |
goto T188; |
773 |
T185:; |
T188:; |
774 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
775 |
goto T188;} |
goto T191;} |
776 |
base[2]= Ct; |
base[2]= Ct; |
777 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
778 |
return; |
return; |
779 |
goto T188; |
goto T191; |
780 |
T188:; |
T191:; |
781 |
base[3]= (V38); |
base[3]= (V38); |
782 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
783 |
Lrealpart(); |
Lrealpart(); |
785 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
786 |
base[3]= car((V41)); |
base[3]= car((V41)); |
787 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
788 |
(void) (*Lnk77)(); |
(void) (*Lnk80)(); |
789 |
vs_top=sup; |
vs_top=sup; |
790 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
791 |
goto T190;} |
goto T193;} |
792 |
base[2]= Cnil; |
base[2]= Cnil; |
793 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
794 |
return; |
return; |
795 |
goto T190; |
goto T193; |
796 |
T190:; |
T193:; |
797 |
base[2]= (V38); |
base[2]= (V38); |
798 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
799 |
Limagpart(); |
Limagpart(); |
801 |
V38= vs_base[0]; |
V38= vs_base[0]; |
802 |
V39= car((V41)); |
V39= car((V41)); |
803 |
goto TTL; |
goto TTL; |
804 |
goto T184; |
goto T187; |
805 |
T184:; |
T187:; |
806 |
if((V44!= VV[43]))goto T199; |
if((V44!= VV[43]))goto T202; |
807 |
if(!(type_of((V38))==t_cons||((V38))==Cnil)){ |
if(!(type_of((V38))==t_cons||((V38))==Cnil)){ |
808 |
goto T200;} |
goto T203;} |
809 |
base[2]= Ct; |
base[2]= Ct; |
810 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
811 |
return; |
return; |
812 |
goto T200; |
goto T203; |
813 |
T200:; |
T203:; |
814 |
base[2]= (type_of((V38))==t_vector|| |
base[2]= (type_of((V38))==t_vector|| |
815 |
type_of((V38))==t_string|| |
type_of((V38))==t_string|| |
816 |
type_of((V38))==t_bitvector?Ct:Cnil); |
type_of((V38))==t_bitvector?Ct:Cnil); |
817 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
818 |
return; |
return; |
819 |
goto T199; |
goto T202; |
820 |
T199:; |
T202:; |
821 |
if((V44!= VV[85]))goto T202; |
if((V44!= VV[89]))goto T205; |
822 |
if(type_of((V38))==t_string){ |
if(type_of((V38))==t_string){ |
823 |
goto T203;} |
goto T206;} |
824 |
base[2]= Cnil; |
base[2]= Cnil; |
825 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
826 |
return; |
return; |
827 |
goto T203; |
goto T206; |
828 |
T203:; |
T206:; |
829 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
830 |
goto T205;} |
goto T208;} |
831 |
base[2]= Ct; |
base[2]= Ct; |
832 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
833 |
return; |
return; |
834 |
goto T205; |
goto T208; |
835 |
T205:; |
T208:; |
836 |
V54= (*(LnkLI87))((V38)); |
V54= (*(LnkLI91))((V38)); |
837 |
base[2]= (*(LnkLI86))(/* INLINE-ARGS */V54,(V41)); |
base[2]= (*(LnkLI90))(/* INLINE-ARGS */V54,(V41)); |
838 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
839 |
return; |
return; |
840 |
goto T202; |
goto T205; |
841 |
T202:; |
T205:; |
842 |
if((V44!= VV[88]))goto T207; |
if((V44!= VV[92]))goto T210; |
843 |
if((type_of((V38))==t_bitvector)){ |
if((type_of((V38))==t_bitvector)){ |
844 |
goto T208;} |
goto T211;} |
845 |
base[2]= Cnil; |
base[2]= Cnil; |
846 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
847 |
return; |
return; |
848 |
goto T208; |
goto T211; |
849 |
T208:; |
T211:; |
850 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
851 |
goto T210;} |
goto T213;} |
852 |
base[2]= Ct; |
base[2]= Ct; |
853 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
854 |
return; |
return; |
855 |
goto T210; |
goto T213; |
856 |
T210:; |
T213:; |
857 |
V55= (*(LnkLI87))((V38)); |
V55= (*(LnkLI91))((V38)); |
858 |
base[2]= (*(LnkLI86))(/* INLINE-ARGS */V55,(V41)); |
base[2]= (*(LnkLI90))(/* INLINE-ARGS */V55,(V41)); |
859 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
860 |
return; |
return; |
861 |
goto T207; |
goto T210; |
862 |
T207:; |
T210:; |
863 |
if((V44!= VV[89]))goto T212; |
if((V44!= VV[93]))goto T215; |
864 |
base[2]= (V38); |
base[2]= (V38); |
865 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
866 |
Lsimple_string_p(); |
Lsimple_string_p(); |
867 |
vs_top=sup; |
vs_top=sup; |
868 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
869 |
goto T213;} |
goto T216;} |
870 |
base[2]= Cnil; |
base[2]= Cnil; |
871 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
872 |
return; |
return; |
873 |
goto T213; |
goto T216; |
874 |
T213:; |
T216:; |
875 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
876 |
goto T216;} |
goto T219;} |
877 |
base[2]= Ct; |
base[2]= Ct; |
878 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
879 |
return; |
return; |
880 |
goto T216; |
goto T219; |
881 |
T216:; |
T219:; |
882 |
V56= (*(LnkLI87))((V38)); |
V56= (*(LnkLI91))((V38)); |
883 |
base[2]= (*(LnkLI86))(/* INLINE-ARGS */V56,(V41)); |
base[2]= (*(LnkLI90))(/* INLINE-ARGS */V56,(V41)); |
884 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
885 |
return; |
return; |
886 |
goto T212; |
goto T215; |
887 |
T212:; |
T215:; |
888 |
if((V44!= VV[90]))goto T218; |
if((V44!= VV[94]))goto T221; |
889 |
base[2]= (V38); |
base[2]= (V38); |
890 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
891 |
Lsimple_bit_vector_p(); |
Lsimple_bit_vector_p(); |
892 |
vs_top=sup; |
vs_top=sup; |
893 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
894 |
goto T219;} |
goto T222;} |
895 |
base[2]= Cnil; |
base[2]= Cnil; |
896 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
897 |
return; |
return; |
898 |
goto T219; |
goto T222; |
899 |
T219:; |
T222:; |
900 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
901 |
goto T222;} |
goto T225;} |
902 |
base[2]= Ct; |
base[2]= Ct; |
903 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
904 |
return; |
return; |
905 |
goto T222; |
goto T225; |
906 |
T222:; |
T225:; |
907 |
V57= (*(LnkLI87))((V38)); |
V57= (*(LnkLI91))((V38)); |
908 |
base[2]= (*(LnkLI86))(/* INLINE-ARGS */V57,(V41)); |
base[2]= (*(LnkLI90))(/* INLINE-ARGS */V57,(V41)); |
909 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
910 |
return; |
return; |
911 |
goto T218; |
goto T221; |
912 |
T218:; |
T221:; |
913 |
if((V44!= VV[91]))goto T224; |
if((V44!= VV[95]))goto T227; |
914 |
base[2]= (V38); |
base[2]= (V38); |
915 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
916 |
Lsimple_vector_p(); |
Lsimple_vector_p(); |
917 |
vs_top=sup; |
vs_top=sup; |
918 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
919 |
goto T225;} |
goto T228;} |
920 |
base[2]= Cnil; |
base[2]= Cnil; |
921 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
922 |
return; |
return; |
923 |
goto T225; |
goto T228; |
924 |
T225:; |
T228:; |
925 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
926 |
goto T228;} |
goto T231;} |
927 |
base[2]= Ct; |
base[2]= Ct; |
928 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
929 |
return; |
return; |
930 |
goto T228; |
goto T231; |
931 |
T228:; |
T231:; |
932 |
V58= (*(LnkLI87))((V38)); |
V58= (*(LnkLI91))((V38)); |
933 |
base[2]= (*(LnkLI86))(/* INLINE-ARGS */V58,(V41)); |
base[2]= (*(LnkLI90))(/* INLINE-ARGS */V58,(V41)); |
934 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
935 |
return; |
return; |
936 |
goto T224; |
goto T227; |
937 |
T224:; |
T227:; |
938 |
if((V44!= VV[26]))goto T230; |
if((V44!= VV[26]))goto T233; |
939 |
if(((*(LnkLI92))((V38)))!=Cnil){ |
if(((*(LnkLI96))((V38)))!=Cnil){ |
940 |
goto T231;} |
goto T234;} |
941 |
base[2]= Cnil; |
base[2]= Cnil; |
942 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
943 |
return; |
return; |
944 |
goto T231; |
goto T234; |
945 |
T231:; |
T234:; |
946 |
if(!(endp_prop((V41)))){ |
if(!(endp_prop((V41)))){ |
947 |
goto T235;} |
goto T238;} |
948 |
goto T233; |
goto T236; |
949 |
goto T235; |
goto T238; |
950 |
T235:; |
T238:; |
951 |
if(!((car((V41)))==(VV[17]))){ |
if(!((car((V41)))==(VV[17]))){ |
952 |
goto T237;} |
goto T240;} |
953 |
goto T233; |
goto T236; |
954 |
goto T237; |
goto T240; |
955 |
T237:; |
T240:; |
956 |
base[2]= (V38); |
base[2]= (V38); |
957 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
958 |
Larray_element_type(); |
Larray_element_type(); |
959 |
vs_top=sup; |
vs_top=sup; |
960 |
V59= vs_base[0]; |
V59= vs_base[0]; |
961 |
V60= (*(LnkLI93))(car((V41))); |
V60= (*(LnkLI97))(car((V41))); |
962 |
if(equal(V59,/* INLINE-ARGS */V60)){ |
if(equal(V59,/* INLINE-ARGS */V60)){ |
963 |
goto T233;} |
goto T236;} |
964 |
base[2]= Cnil; |
base[2]= Cnil; |
965 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
966 |
return; |
return; |
967 |
goto T233; |
goto T236; |
968 |
T233:; |
T236:; |
969 |
if(!(endp_prop(cdr((V41))))){ |
if(!(endp_prop(cdr((V41))))){ |
970 |
goto T241;} |
goto T244;} |
971 |
base[2]= Ct; |
base[2]= Ct; |
972 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
973 |
return; |
return; |
974 |
goto T241; |
goto T244; |
975 |
T241:; |
T244:; |
976 |
if(!((cadr((V41)))==(VV[17]))){ |
if(!((cadr((V41)))==(VV[17]))){ |
977 |
goto T243;} |
goto T246;} |
978 |
base[2]= Ct; |
base[2]= Ct; |
979 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
980 |
return; |
return; |
981 |
goto T243; |
goto T246; |
982 |
T243:; |
T246:; |
983 |
V61= (*(LnkLI87))((V38)); |
V61= (*(LnkLI91))((V38)); |
984 |
base[2]= (*(LnkLI86))(/* INLINE-ARGS */V61,cadr((V41))); |
base[2]= (*(LnkLI90))(/* INLINE-ARGS */V61,cadr((V41))); |
985 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
986 |
return; |
return; |
987 |
goto T230; |
goto T233; |
988 |
T230:; |
T233:; |
989 |
if((V44!= VV[22]))goto T245; |
if((V44!= VV[22]))goto T248; |
990 |
if(type_of((V38))==t_array|| |
if(type_of((V38))==t_array|| |
991 |
type_of((V38))==t_vector|| |
type_of((V38))==t_vector|| |
992 |
type_of((V38))==t_string|| |
type_of((V38))==t_string|| |
993 |
type_of((V38))==t_bitvector){ |
type_of((V38))==t_bitvector){ |
994 |
goto T246;} |
goto T249;} |
995 |
base[2]= Cnil; |
base[2]= Cnil; |
996 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
997 |
return; |
return; |
998 |
goto T246; |
goto T249; |
999 |
T246:; |
T249:; |
1000 |
if(!(endp_prop((V41)))){ |
if(!(endp_prop((V41)))){ |
1001 |
goto T250;} |
goto T253;} |
1002 |
goto T248; |
goto T251; |
1003 |
goto T250; |
goto T253; |
1004 |
T250:; |
T253:; |
1005 |
if(!((car((V41)))==(VV[17]))){ |
if(!((car((V41)))==(VV[17]))){ |
1006 |
goto T252;} |
goto T255;} |
1007 |
goto T248; |
goto T251; |
1008 |
goto T252; |
goto T255; |
1009 |
T252:; |
T255:; |
1010 |
base[2]= (V38); |
base[2]= (V38); |
1011 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1012 |
Larray_element_type(); |
Larray_element_type(); |
1013 |
vs_top=sup; |
vs_top=sup; |
1014 |
V62= vs_base[0]; |
V62= vs_base[0]; |
1015 |
V63= (*(LnkLI93))(car((V41))); |
V63= (*(LnkLI97))(car((V41))); |
1016 |
if(equal(V62,/* INLINE-ARGS */V63)){ |
if(equal(V62,/* INLINE-ARGS */V63)){ |
1017 |
goto T248;} |
goto T251;} |
1018 |
base[2]= Cnil; |
base[2]= Cnil; |
1019 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1020 |
return; |
return; |
1021 |
goto T248; |
goto T251; |
1022 |
T248:; |
T251:; |
1023 |
if(!(endp_prop(cdr((V41))))){ |
if(!(endp_prop(cdr((V41))))){ |
1024 |
goto T256;} |
goto T259;} |
1025 |
base[2]= Ct; |
base[2]= Ct; |
1026 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1027 |
return; |
return; |
1028 |
goto T256; |
goto T259; |
1029 |
T256:; |
T259:; |
1030 |
if(!((cadr((V41)))==(VV[17]))){ |
if(!((cadr((V41)))==(VV[17]))){ |
1031 |
goto T258;} |
goto T261;} |
1032 |
base[2]= Ct; |
base[2]= Ct; |
1033 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1034 |
return; |
return; |
1035 |
goto T258; |
goto T261; |
1036 |
T258:; |
T261:; |
1037 |
V64= (*(LnkLI87))((V38)); |
V64= (*(LnkLI91))((V38)); |
1038 |
base[2]= (*(LnkLI86))(/* INLINE-ARGS */V64,cadr((V41))); |
base[2]= (*(LnkLI90))(/* INLINE-ARGS */V64,cadr((V41))); |
1039 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1040 |
return; |
return; |
1041 |
goto T245; |
goto T248; |
1042 |
T245:; |
T248:; |
1043 |
V42= get((V40),VV[33],Cnil); |
V42= get((V40),VV[33],Cnil); |
1044 |
if(((V42))==Cnil){ |
if(((V42))==Cnil){ |
1045 |
goto T261;} |
goto T264;} |
1046 |
base[2]= (V38); |
base[2]= (V38); |
1047 |
base[3]= (V42); |
base[3]= (V42); |
1048 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1049 |
(void) (*Lnk94)(); |
(void) (*Lnk98)(); |
1050 |
return; |
return; |
1051 |
goto T261; |
goto T264; |
1052 |
T261:; |
T264:; |
1053 |
if((get((V40),VV[34],Cnil))==Cnil){ |
if((get((V40),VV[34],Cnil))==Cnil){ |
1054 |
goto T267;} |
goto T270;} |
1055 |
base[2]= get((V40),VV[34],Cnil); |
base[2]= get((V40),VV[34],Cnil); |
1056 |
{object V65; |
{object V65; |
1057 |
V65= (V41); |
V65= (V41); |
1063 |
vs_top=sup; |
vs_top=sup; |
1064 |
V39= vs_base[0]; |
V39= vs_base[0]; |
1065 |
goto TTL; |
goto TTL; |
1066 |
goto T267; |
goto T270; |
1067 |
T267:; |
T270:; |
1068 |
base[2]= Cnil; |
base[2]= Cnil; |
1069 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1070 |
return;}} |
return;}} |
1082 |
register object V69; |
register object V69; |
1083 |
V68= Cnil; |
V68= Cnil; |
1084 |
V69= Cnil; |
V69= Cnil; |
1085 |
goto T277; |
goto T280; |
1086 |
T277:; |
T280:; |
1087 |
if(!(type_of((V67))!=t_cons)){ |
if(!(type_of((V67))!=t_cons)){ |
1088 |
goto T281;} |
goto T284;} |
1089 |
V68= (V67); |
V68= (V67); |
1090 |
V69= Cnil; |
V69= Cnil; |
1091 |
goto T279; |
goto T282; |
1092 |
goto T281; |
goto T284; |
1093 |
T281:; |
T284:; |
1094 |
V68= car((V67)); |
V68= car((V67)); |
1095 |
V69= cdr((V67)); |
V69= cdr((V67)); |
1096 |
goto T279; |
goto T282; |
1097 |
T279:; |
T282:; |
1098 |
if((get((V68),VV[34],Cnil))==Cnil){ |
if((get((V68),VV[34],Cnil))==Cnil){ |
1099 |
goto T290;} |
goto T293;} |
1100 |
base[0]= get((V68),VV[34],Cnil); |
base[0]= get((V68),VV[34],Cnil); |
1101 |
{object V70; |
{object V70; |
1102 |
V70= (V69); |
V70= (V69); |
1107 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
1108 |
vs_top=sup; |
vs_top=sup; |
1109 |
V67= vs_base[0]; |
V67= vs_base[0]; |
1110 |
goto T278; |
goto T281; |
1111 |
goto T290; |
goto T293; |
1112 |
T290:; |
T293:; |
1113 |
if(!(type_of((V67))!=t_cons)){ |
if(!(type_of((V67))!=t_cons)){ |
1114 |
goto T296;} |
goto T299;} |
1115 |
{object V71 = make_cons((V67),Cnil); |
{object V71 = make_cons((V67),Cnil); |
1116 |
VMR19(V71)} |
VMR19(V71)} |
1117 |
goto T296; |
goto T299; |
1118 |
T296:; |
T299:; |
1119 |
{object V72 = (V67); |
{object V72 = (V67); |
1120 |
VMR19(V72)} |
VMR19(V72)} |
1121 |
goto T278; |
goto T281; |
1122 |
T278:; |
T281:; |
1123 |
goto T277;} |
goto T280;} |
1124 |
base[0]=base[0]; |
base[0]=base[0]; |
1125 |
return Cnil; |
return Cnil; |
1126 |
} |
} |
1133 |
goto TTL; |
goto TTL; |
1134 |
TTL:; |
TTL:; |
1135 |
if(!(type_of((V74))==t_cons)){ |
if(!(type_of((V74))==t_cons)){ |
1136 |
goto T299;} |
goto T302;} |
1137 |
V74= car((V74)); |
V74= car((V74)); |
1138 |
goto T299; |
goto T302; |
1139 |
T299:; |
T302:; |
1140 |
{register object x= (V74),V75= VV[35]; |
{register object x= (V74),V75= VV[35]; |
1141 |
while(!endp(V75)) |
while(!endp(V75)) |
1142 |
if(eql(x,V75->c.c_car)){ |
if(eql(x,V75->c.c_car)){ |
1143 |
goto T303; |
goto T306; |
1144 |
}else V75=V75->c.c_cdr;} |
}else V75=V75->c.c_cdr;} |
1145 |
if((get((V74),VV[33],Cnil))==Cnil){ |
if((get((V74),VV[33],Cnil))==Cnil){ |
1146 |
goto T304;} |
goto T307;} |
1147 |
goto T303; |
goto T306; |
1148 |
T303:; |
T306:; |
1149 |
{object V76 = Ct; |
{object V76 = Ct; |
1150 |
VMR20(V76)} |
VMR20(V76)} |
1151 |
goto T304; |
goto T307; |
1152 |
T304:; |
T307:; |
1153 |
{object V77 = Cnil; |
{object V77 = Cnil; |
1154 |
VMR20(V77)} |
VMR20(V77)} |
1155 |
return Cnil; |
return Cnil; |
1182 |
V84= Cnil; |
V84= Cnil; |
1183 |
V85= Cnil; |
V85= Cnil; |
1184 |
V86= Cnil; |
V86= Cnil; |
1185 |
V78= (*(LnkLI95))((V78)); |
V78= (*(LnkLI99))((V78)); |
1186 |
V79= (*(LnkLI95))((V79)); |
V79= (*(LnkLI99))((V79)); |
1187 |
if(!(equal((V78),(V79)))){ |
if(!(equal((V78),(V79)))){ |
1188 |
goto T319;} |
goto T322;} |
1189 |
base[2]= Ct; |
base[2]= Ct; |
1190 |
base[3]= Ct; |
base[3]= Ct; |
1191 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1192 |
return; |
return; |
1193 |
goto T319; |
goto T322; |
1194 |
T319:; |
T322:; |
1195 |
V80= car((V78)); |
V80= car((V78)); |
1196 |
V81= car((V79)); |
V81= car((V79)); |
1197 |
V82= cdr((V78)); |
V82= cdr((V78)); |
1198 |
V83= cdr((V79)); |
V83= cdr((V79)); |
1199 |
if(!(((V80))==(VV[36]))){ |
if(!(((V80))==(VV[36]))){ |
1200 |
goto T334;} |
goto T337;} |
1201 |
{register object V87; |
{register object V87; |
1202 |
object V88; |
object V88; |
1203 |
V87= (V82); |
V87= (V82); |
1204 |
V88= car((V87)); |
V88= car((V87)); |
1205 |
goto T340; |
goto T343; |
1206 |
T340:; |
T343:; |
1207 |
if(!(endp_prop((V87)))){ |
if(!(endp_prop((V87)))){ |
1208 |
goto T341;} |
goto T344;} |
1209 |
goto T336; |
goto T339; |
1210 |
goto T341; |
goto T344; |
1211 |
T341:; |
T344:; |
1212 |
base[3]= (V88); |
base[3]= (V88); |
1213 |
base[4]= (V79); |
base[4]= (V79); |
1214 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1215 |
(void) (*Lnk77)(); |
(void) (*Lnk80)(); |
1216 |
vs_top=sup; |
vs_top=sup; |
1217 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1218 |
goto T345;} |
goto T348;} |
1219 |
base[3]= Cnil; |
base[3]= Cnil; |
1220 |
base[4]= Ct; |
base[4]= Ct; |
1221 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1222 |
return; |
return; |
1223 |
goto T345; |
goto T348; |
1224 |
T345:; |
T348:; |
1225 |
V87= cdr((V87)); |
V87= cdr((V87)); |
1226 |
V88= car((V87)); |
V88= car((V87)); |
1227 |
goto T340;} |
goto T343;} |
1228 |
goto T336; |
goto T339; |
1229 |
T336:; |
T339:; |
1230 |
base[2]= Ct; |
base[2]= Ct; |
1231 |
base[3]= Ct; |
base[3]= Ct; |
1232 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1233 |
return; |
return; |
1234 |
goto T334; |
goto T337; |
1235 |
T334:; |
T337:; |
1236 |
if(!(((V80))==(VV[37]))){ |
if(!(((V80))==(VV[37]))){ |
1237 |
goto T360;} |
goto T363;} |
1238 |
{register object V89; |
{register object V89; |
1239 |
object V90; |
object V90; |
1240 |
V89= (V82); |
V89= (V82); |
1241 |
V90= car((V89)); |
V90= car((V89)); |
1242 |
goto T366; |
goto T369; |
1243 |
T366:; |
T369:; |
1244 |
if(!(endp_prop((V89)))){ |
if(!(endp_prop((V89)))){ |
1245 |
goto T367;} |
goto T370;} |
1246 |
goto T362; |
goto T365; |
1247 |
goto T367; |
goto T370; |
1248 |
T367:; |
T370:; |
1249 |
{object V91; |
{object V91; |
1250 |
object V92; |
object V92; |
1251 |
base[3]= (V90); |
base[3]= (V90); |
1252 |
base[4]= (V79); |
base[4]= (V79); |
1253 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1254 |
(void) (*Lnk96)(); |
(void) (*Lnk100)(); |
1255 |
if(vs_base>=vs_top){vs_top=sup;goto T375;} |
if(vs_base>=vs_top){vs_top=sup;goto T378;} |
1256 |
V91= vs_base[0]; |
V91= vs_base[0]; |
1257 |
vs_base++; |
vs_base++; |
1258 |
if(vs_base>=vs_top){vs_top=sup;goto T376;} |
if(vs_base>=vs_top){vs_top=sup;goto T379;} |
1259 |
V92= vs_base[0]; |
V92= vs_base[0]; |
1260 |
vs_top=sup; |
vs_top=sup; |
1261 |
goto T377; |
goto T380; |
1262 |
goto T375; |
goto T378; |
1263 |
T375:; |
T378:; |
1264 |
V91= Cnil; |
V91= Cnil; |
1265 |
goto T376; |
goto T379; |
1266 |
T376:; |
T379:; |
1267 |
V92= Cnil; |
V92= Cnil; |
1268 |
goto T377; |
goto T380; |
1269 |
T377:; |
T380:; |
1270 |
if(((V91))!=Cnil){ |
if(((V91))!=Cnil){ |
1271 |
goto T371;} |
goto T374;} |
1272 |
base[3]= (V91); |
base[3]= (V91); |
1273 |
base[4]= (V92); |
base[4]= (V92); |
1274 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1275 |
return;} |
return;} |
1276 |
goto T371; |
goto T374; |
1277 |
T371:; |
T374:; |
1278 |
V89= cdr((V89)); |
V89= cdr((V89)); |
1279 |
V90= car((V89)); |
V90= car((V89)); |
1280 |
goto T366;} |
goto T369;} |
1281 |
goto T362; |
goto T365; |
1282 |
T362:; |
T365:; |
1283 |
base[2]= Ct; |
base[2]= Ct; |
1284 |
base[3]= Ct; |
base[3]= Ct; |
1285 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1286 |
return; |
return; |
1287 |
goto T360; |
goto T363; |
1288 |
T360:; |
T363:; |
1289 |
if(!(((V80))==(VV[38]))){ |
if(!(((V80))==(VV[38]))){ |
1290 |
goto T390;} |
goto T393;} |
1291 |
{register object V93; |
{register object V93; |
1292 |
object V94; |
object V94; |
1293 |
V93= (V82); |
V93= (V82); |
1294 |
V94= car((V93)); |
V94= car((V93)); |
1295 |
goto T396; |
goto T399; |
1296 |
T396:; |
T399:; |
1297 |
if(!(endp_prop((V93)))){ |
if(!(endp_prop((V93)))){ |
1298 |
goto T397;} |
goto T400;} |
1299 |
goto T392; |
goto T395; |
1300 |
goto T397; |
goto T400; |
1301 |
T397:; |
T400:; |
1302 |
{object V95; |
{object V95; |
1303 |
base[3]= (V94); |
base[3]= (V94); |
1304 |
base[4]= (V79); |
base[4]= (V79); |
1305 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1306 |
(void) (*Lnk96)(); |
(void) (*Lnk100)(); |
1307 |
vs_top=sup; |
vs_top=sup; |
1308 |
V95= vs_base[0]; |
V95= vs_base[0]; |
1309 |
if(((V95))==Cnil){ |
if(((V95))==Cnil){ |
1310 |
goto T401;} |
goto T404;} |
1311 |
base[3]= Ct; |
base[3]= Ct; |
1312 |
base[4]= Ct; |
base[4]= Ct; |
1313 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1314 |
return;} |
return;} |
1315 |
goto T401; |
goto T404; |
1316 |
T401:; |
T404:; |
1317 |
V93= cdr((V93)); |
V93= cdr((V93)); |
1318 |
V94= car((V93)); |
V94= car((V93)); |
1319 |
goto T396;} |
goto T399;} |
1320 |
goto T392; |
goto T395; |
1321 |
T392:; |
T395:; |
1322 |
base[2]= Cnil; |
base[2]= Cnil; |
1323 |
base[3]= Cnil; |
base[3]= Cnil; |
1324 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1325 |
return; |
return; |
1326 |
goto T390; |
goto T393; |
1327 |
T390:; |
T393:; |
1328 |
if(!(((V80))==(VV[39]))){ |
if(!(((V80))==(VV[39]))){ |
1329 |
goto T332;} |
goto T335;} |
1330 |
if(!(((V81))==(VV[39]))){ |
if(!(((V81))==(VV[39]))){ |
1331 |
goto T419;} |
goto T422;} |
1332 |
V78= car((V83)); |
V78= car((V83)); |
1333 |
V79= car((V82)); |
V79= car((V82)); |
1334 |
goto TTL; |
goto TTL; |
1335 |
goto T419; |
goto T422; |
1336 |
T419:; |
T422:; |
1337 |
V78= Ct; |
V78= Ct; |
1338 |
V79= list(3,VV[37],(V79),car((V82))); |
V79= list(3,VV[37],(V79),car((V82))); |
1339 |
goto TTL; |
goto TTL; |
1340 |
goto T332; |
goto T335; |
1341 |
T332:; |
T335:; |
1342 |
if(!(((V81))==(VV[36]))){ |
if(!(((V81))==(VV[36]))){ |
1343 |
goto T429;} |
goto T432;} |
1344 |
base[2]= Cnil; |
base[2]= Cnil; |
1345 |
base[3]= Cnil; |
base[3]= Cnil; |
1346 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1347 |
return; |
return; |
1348 |
goto T429; |
goto T432; |
1349 |
T429:; |
T432:; |
1350 |
if(!(((V81))==(VV[37]))){ |
if(!(((V81))==(VV[37]))){ |
1351 |
goto T434;} |
goto T437;} |
1352 |
{register object V96; |
{register object V96; |
1353 |
object V97; |
object V97; |
1354 |
V96= (V83); |
V96= (V83); |
1355 |
V97= car((V96)); |
V97= car((V96)); |
1356 |
goto T440; |
goto T443; |
1357 |
T440:; |
T443:; |
1358 |
if(!(endp_prop((V96)))){ |
if(!(endp_prop((V96)))){ |
1359 |
goto T441;} |
goto T444;} |
1360 |
goto T436; |
goto T439; |
1361 |
goto T441; |
goto T444; |
1362 |
T441:; |
T444:; |
1363 |
{object V98; |
{object V98; |
1364 |
base[3]= (V78); |
base[3]= (V78); |
1365 |
base[4]= (V97); |
base[4]= (V97); |
1366 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1367 |
(void) (*Lnk96)(); |
(void) (*Lnk100)(); |
1368 |
vs_top=sup; |
vs_top=sup; |
1369 |
V98= vs_base[0]; |
V98= vs_base[0]; |
1370 |
if(((V98))==Cnil){ |
if(((V98))==Cnil){ |
1371 |
goto T445;} |
goto T448;} |
1372 |
base[3]= Ct; |
base[3]= Ct; |
1373 |
base[4]= Ct; |
base[4]= Ct; |
1374 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1375 |
return;} |
return;} |
1376 |
goto T445; |
goto T448; |
1377 |
T445:; |
T448:; |
1378 |
V96= cdr((V96)); |
V96= cdr((V96)); |
1379 |
V97= car((V96)); |
V97= car((V96)); |
1380 |
goto T440;} |
goto T443;} |
1381 |
goto T436; |
goto T439; |
1382 |
T436:; |
T439:; |
1383 |
base[2]= Cnil; |
base[2]= Cnil; |
1384 |
base[3]= Cnil; |
base[3]= Cnil; |
1385 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1386 |
return; |
return; |
1387 |
goto T434; |
goto T437; |
1388 |
T434:; |
T437:; |
1389 |
if(!(((V81))==(VV[38]))){ |
if(!(((V81))==(VV[38]))){ |
1390 |
goto T461;} |
goto T464;} |
1391 |
{register object V99; |
{register object V99; |
1392 |
object V100; |
object V100; |
1393 |
V99= (V83); |
V99= (V83); |
1394 |
V100= car((V99)); |
V100= car((V99)); |
1395 |
goto T467; |
goto T470; |
1396 |
T467:; |
T470:; |
1397 |
if(!(endp_prop((V99)))){ |
if(!(endp_prop((V99)))){ |
1398 |
goto T468;} |
goto T471;} |
1399 |
goto T463; |
goto T466; |
1400 |
goto T468; |
goto T471; |
1401 |
T468:; |
T471:; |
1402 |
{object V101; |
{object V101; |
1403 |
object V102; |
object V102; |
1404 |
base[3]= (V78); |
base[3]= (V78); |
1405 |
base[4]= (V100); |
base[4]= (V100); |
1406 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1407 |
(void) (*Lnk96)(); |
(void) (*Lnk100)(); |
1408 |
if(vs_base>=vs_top){vs_top=sup;goto T476;} |
if(vs_base>=vs_top){vs_top=sup;goto T479;} |
1409 |
V101= vs_base[0]; |
V101= vs_base[0]; |
1410 |
vs_base++; |
vs_base++; |
1411 |
if(vs_base>=vs_top){vs_top=sup;goto T477;} |
if(vs_base>=vs_top){vs_top=sup;goto T480;} |
1412 |
V102= vs_base[0]; |
V102= vs_base[0]; |
1413 |
vs_top=sup; |
vs_top=sup; |
1414 |
goto T478; |
goto T481; |
1415 |
goto T476; |
goto T479; |
1416 |
T476:; |
T479:; |
1417 |
V101= Cnil; |
V101= Cnil; |
1418 |
goto T477; |
goto T480; |
1419 |
T477:; |
T480:; |
1420 |
V102= Cnil; |
V102= Cnil; |
1421 |
goto T478; |
goto T481; |
1422 |
T478:; |
T481:; |
1423 |
if(((V101))!=Cnil){ |
if(((V101))!=Cnil){ |
1424 |
goto T472;} |
goto T475;} |
1425 |
base[3]= (V101); |
base[3]= (V101); |
1426 |
base[4]= (V102); |
base[4]= (V102); |
1427 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1428 |
return;} |
return;} |
1429 |
goto T472; |
goto T475; |
1430 |
T472:; |
T475:; |
1431 |
V99= cdr((V99)); |
V99= cdr((V99)); |
1432 |
V100= car((V99)); |
V100= car((V99)); |
1433 |
goto T467;} |
goto T470;} |
1434 |
goto T463; |
goto T466; |
1435 |
T463:; |
T466:; |
1436 |
base[2]= Ct; |
base[2]= Ct; |
1437 |
base[3]= Ct; |
base[3]= Ct; |
1438 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1439 |
return; |
return; |
1440 |
goto T461; |
goto T464; |
1441 |
T461:; |
T464:; |
1442 |
if(!(((V81))==(VV[39]))){ |
if(!(((V81))==(VV[39]))){ |
1443 |
goto T427;} |
goto T430;} |
1444 |
V78= list(3,VV[38],(V78),car((V83))); |
V78= list(3,VV[38],(V78),car((V83))); |
1445 |
V79= Cnil; |
V79= Cnil; |
1446 |
goto TTL; |
goto TTL; |
1447 |
goto T427; |
goto T430; |
1448 |
T427:; |
T430:; |
1449 |
V84= (*(LnkLI97))((V78)); |
V84= (*(LnkLI101))((V78)); |
1450 |
V85= (*(LnkLI97))((V79)); |
V85= (*(LnkLI101))((V79)); |
1451 |
if(((V80))==(Cnil)){ |
if(((V80))==(Cnil)){ |
1452 |
goto T499;} |
goto T502;} |
1453 |
if(((V81))==(Ct)){ |
if(((V81))==(Ct)){ |
1454 |
goto T499;} |
goto T502;} |
1455 |
if(!(((V81))==(VV[40]))){ |
if(!(((V81))==(VV[40]))){ |
1456 |
goto T500;} |
goto T503;} |
1457 |
goto T499; |
goto T502; |
1458 |
T499:; |
T502:; |
1459 |
base[2]= Ct; |
base[2]= Ct; |
1460 |
base[3]= Ct; |
base[3]= Ct; |
1461 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1462 |
return; |
return; |
1463 |
goto T500; |
goto T503; |
1464 |
T500:; |
T503:; |
1465 |
if(!(((V81))==(Cnil))){ |
if(!(((V81))==(Cnil))){ |
1466 |
goto T509;} |
goto T512;} |
1467 |
base[2]= Cnil; |
base[2]= Cnil; |
1468 |
base[3]= (V84); |
base[3]= (V84); |
1469 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1470 |
return; |
return; |
1471 |
goto T509; |
goto T512; |
1472 |
T509:; |
T512:; |
1473 |
if(!(((V80))==(Ct))){ |
if(!(((V80))==(Ct))){ |
1474 |
goto T514;} |
goto T517;} |
1475 |
base[2]= Cnil; |
base[2]= Cnil; |
1476 |
base[3]= (V85); |
base[3]= (V85); |
1477 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1478 |
return; |
return; |
1479 |
goto T514; |
goto T517; |
1480 |
T514:; |
T517:; |
1481 |
if(!(((V80))==(VV[40]))){ |
if(!(((V80))==(VV[40]))){ |
1482 |
goto T519;} |
goto T522;} |
1483 |
base[2]= Cnil; |
base[2]= Cnil; |
1484 |
base[3]= (V85); |
base[3]= (V85); |
1485 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1486 |
return; |
return; |
1487 |
goto T519; |
goto T522; |
1488 |
T519:; |
T522:; |
1489 |
if(!(((V81))==(VV[41]))){ |
if(!(((V81))==(VV[41]))){ |
1490 |
goto T524;} |
goto T527;} |
1491 |
{register object x= (V80),V103= VV[42]; |
{register object x= (V80),V103= VV[42]; |
1492 |
while(!endp(V103)) |
while(!endp(V103)) |
1493 |
if(eql(x,V103->c.c_car)){ |
if(eql(x,V103->c.c_car)){ |
1494 |
goto T528; |
goto T531; |
1495 |
}else V103=V103->c.c_cdr; |
}else V103=V103->c.c_cdr; |
1496 |
goto T527;} |
goto T530;} |
1497 |
goto T528; |
goto T531; |
1498 |
T528:; |
T531:; |
1499 |
base[2]= Ct; |
base[2]= Ct; |
1500 |
base[3]= Ct; |
base[3]= Ct; |
1501 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1502 |
return; |
return; |
1503 |
goto T527; |
goto T530; |
1504 |
T527:; |
T530:; |
1505 |
base[2]= Cnil; |
base[2]= Cnil; |
1506 |
base[3]= (V84); |
base[3]= (V84); |
1507 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1508 |
return; |
return; |
1509 |
goto T524; |
goto T527; |
1510 |
T524:; |
T527:; |
1511 |
if(!(((V81))==(VV[43]))){ |
if(!(((V81))==(VV[43]))){ |
1512 |
goto T534;} |
goto T537;} |
1513 |
{register object x= (V80),V104= VV[44]; |
{register object x= (V80),V104= VV[44]; |
1514 |
while(!endp(V104)) |
while(!endp(V104)) |
1515 |
if(eql(x,V104->c.c_car)){ |
if(eql(x,V104->c.c_car)){ |
1516 |
goto T538; |
goto T541; |
1517 |
}else V104=V104->c.c_cdr; |
}else V104=V104->c.c_cdr; |
1518 |
goto T537;} |
goto T540;} |
1519 |
goto T538; |
goto T541; |
1520 |
T538:; |
T541:; |
1521 |
base[2]= Ct; |
base[2]= Ct; |
1522 |
base[3]= Ct; |
base[3]= Ct; |
1523 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1524 |
return; |
return; |
1525 |
goto T537; |
goto T540; |
1526 |
T537:; |
T540:; |
1527 |
if(!(((V80))==(VV[22]))){ |
if(!(((V80))==(VV[22]))){ |
|
goto T542;} |
|
|
if((cdr((V82)))==Cnil){ |
|
1528 |
goto T545;} |
goto T545;} |
1529 |
|
if((cdr((V82)))==Cnil){ |
1530 |
|
goto T548;} |
1531 |
if(!(type_of(cadr((V82)))==t_cons)){ |
if(!(type_of(cadr((V82)))==t_cons)){ |
1532 |
goto T545;} |
goto T548;} |
1533 |
if((cdadr((V82)))!=Cnil){ |
if((cdadr((V82)))!=Cnil){ |
1534 |
goto T545;} |
goto T548;} |
1535 |
base[2]= Ct; |
base[2]= Ct; |
1536 |
base[3]= Ct; |
base[3]= Ct; |
1537 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1538 |
return; |
return; |
1539 |
goto T545; |
goto T548; |
1540 |
T545:; |
T548:; |
1541 |
base[2]= Cnil; |
base[2]= Cnil; |
1542 |
base[3]= Ct; |
base[3]= Ct; |
1543 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1544 |
return; |
return; |
1545 |
goto T542; |
goto T545; |
1546 |
T542:; |
T545:; |
1547 |
base[2]= Cnil; |
base[2]= Cnil; |
1548 |
base[3]= (V84); |
base[3]= (V84); |
1549 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1550 |
return; |
return; |
1551 |
goto T534; |
goto T537; |
1552 |
T534:; |
T537:; |
1553 |
if(!(((V80))==(VV[41]))){ |
if(!(((V80))==(VV[41]))){ |
1554 |
goto T558;} |
goto T561;} |
1555 |
base[2]= Cnil; |
base[2]= Cnil; |
1556 |
base[3]= (V85); |
base[3]= (V85); |
1557 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1558 |
return; |
return; |
1559 |
goto T558; |
goto T561; |
1560 |
T558:; |
T561:; |
1561 |
if(!(((V80))==(VV[43]))){ |
if(!(((V80))==(VV[43]))){ |
1562 |
goto T563;} |
goto T566;} |
1563 |
base[2]= Cnil; |
base[2]= Cnil; |
1564 |
base[3]= (V85); |
base[3]= (V85); |
1565 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1566 |
return; |
return; |
1567 |
goto T563; |
goto T566; |
1568 |
T563:; |
T566:; |
1569 |
if(!(((V81))==(VV[45]))){ |
if(!(((V81))==(VV[45]))){ |
1570 |
goto T568;} |
goto T571;} |
1571 |
{register object x= (V80),V105= VV[46]; |
{register object x= (V80),V105= VV[46]; |
1572 |
while(!endp(V105)) |
while(!endp(V105)) |
1573 |
if(eql(x,V105->c.c_car)){ |
if(eql(x,V105->c.c_car)){ |
1574 |
goto T572; |
goto T575; |
1575 |
}else V105=V105->c.c_cdr; |
}else V105=V105->c.c_cdr; |
1576 |
goto T571;} |
goto T574;} |
1577 |
goto T572; |
goto T575; |
1578 |
T572:; |
T575:; |
1579 |
base[2]= Cnil; |
base[2]= Cnil; |
1580 |
base[3]= Ct; |
base[3]= Ct; |
1581 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1582 |
return; |
return; |
1583 |
goto T571; |
goto T574; |
1584 |
T571:; |
T574:; |
1585 |
if(((V84))==Cnil){ |
if(((V84))==Cnil){ |
1586 |
goto T576;} |
goto T579;} |
1587 |
base[2]= Ct; |
base[2]= Ct; |
1588 |
base[3]= Ct; |
base[3]= Ct; |
1589 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1590 |
return; |
return; |
1591 |
goto T576; |
goto T579; |
1592 |
T576:; |
T579:; |
1593 |
base[2]= Cnil; |
base[2]= Cnil; |
1594 |
base[3]= Cnil; |
base[3]= Cnil; |
1595 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1596 |
return; |
return; |
1597 |
goto T568; |
goto T571; |
1598 |
T568:; |
T571:; |
1599 |
if(!(((V80))==(VV[45]))){ |
if(!(((V80))==(VV[45]))){ |
1600 |
goto T583;} |
goto T586;} |
1601 |
base[2]= Cnil; |
base[2]= Cnil; |
1602 |
base[3]= (V85); |
base[3]= (V85); |
1603 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1604 |
return; |
return; |
1605 |
goto T583; |
goto T586; |
1606 |
T583:; |
T586:; |
1607 |
if(!(((V81))==(VV[47]))){ |
if(!(((V81))==(VV[47]))){ |
1608 |
goto T588;} |
goto T591;} |
1609 |
{register object x= (V80),V106= VV[48]; |
{register object x= (V80),V106= VV[48]; |
1610 |
while(!endp(V106)) |
while(!endp(V106)) |
1611 |
if(eql(x,V106->c.c_car)){ |
if(eql(x,V106->c.c_car)){ |
1612 |
goto T592; |
goto T595; |
1613 |
}else V106=V106->c.c_cdr; |
}else V106=V106->c.c_cdr; |
1614 |
goto T591;} |
goto T594;} |
1615 |
goto T592; |
goto T595; |
1616 |
T592:; |
T595:; |
1617 |
base[2]= Ct; |
base[2]= Ct; |
1618 |
base[3]= Ct; |
base[3]= Ct; |
1619 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1620 |
return; |
return; |
1621 |
goto T591; |
goto T594; |
1622 |
T591:; |
T594:; |
1623 |
base[2]= Cnil; |
base[2]= Cnil; |
1624 |
base[3]= (V84); |
base[3]= (V84); |
1625 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1626 |
return; |
return; |
1627 |
goto T588; |
goto T591; |
1628 |
T588:; |
T591:; |
1629 |
if(!(((V81))==(VV[49]))){ |
if(!(((V81))==(VV[9]))){ |
|
goto T598;} |
|
|
if(!(((V80))==(VV[49]))){ |
|
1630 |
goto T601;} |
goto T601;} |
1631 |
|
{register object x= (V80),V107= VV[49]; |
1632 |
|
while(!endp(V107)) |
1633 |
|
if(eql(x,V107->c.c_car)){ |
1634 |
|
goto T605; |
1635 |
|
}else V107=V107->c.c_cdr; |
1636 |
|
goto T604;} |
1637 |
|
goto T605; |
1638 |
|
T605:; |
1639 |
base[2]= Ct; |
base[2]= Ct; |
1640 |
base[3]= Ct; |
base[3]= Ct; |
1641 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1642 |
return; |
return; |
1643 |
goto T601; |
goto T604; |
1644 |
T601:; |
T604:; |
1645 |
base[2]= Cnil; |
base[2]= Cnil; |
1646 |
base[3]= (V84); |
base[3]= (V84); |
1647 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1648 |
return; |
return; |
1649 |
goto T598; |
goto T601; |
1650 |
T598:; |
T601:; |
1651 |
if(!(((V81))==(VV[50]))){ |
if(!(((V81))==(VV[50]))){ |
|
goto T608;} |
|
|
if(!(((V80))==(VV[50]))){ |
|
1652 |
goto T611;} |
goto T611;} |
1653 |
|
if(!(((V80))==(VV[51]))){ |
1654 |
|
goto T614;} |
1655 |
base[2]= Ct; |
base[2]= Ct; |
1656 |
base[3]= Ct; |
base[3]= Ct; |
1657 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1658 |
return; |
return; |
1659 |
goto T611; |
goto T614; |
1660 |
T611:; |
T614:; |
1661 |
base[2]= Cnil; |
base[2]= Cnil; |
1662 |
base[3]= (V84); |
base[3]= (V84); |
1663 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1664 |
return; |
return; |
1665 |
goto T608; |
goto T611; |
1666 |
T608:; |
T611:; |
1667 |
if(!(((V81))==(VV[51]))){ |
if(!(((V81))==(VV[52]))){ |
|
goto T618;} |
|
|
{register object x= (V80),V107= VV[52]; |
|
|
while(!endp(V107)) |
|
|
if(eql(x,V107->c.c_car)){ |
|
|
goto T622; |
|
|
}else V107=V107->c.c_cdr; |
|
1668 |
goto T621;} |
goto T621;} |
1669 |
goto T622; |
if(!(((V80))==(VV[52]))){ |
1670 |
T622:; |
goto T624;} |
1671 |
base[2]= Ct; |
base[2]= Ct; |
1672 |
base[3]= Ct; |
base[3]= Ct; |
1673 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1674 |
return; |
return; |
1675 |
|
goto T624; |
1676 |
|
T624:; |
1677 |
|
base[2]= Cnil; |
1678 |
|
base[3]= (V84); |
1679 |
|
vs_top=(vs_base=base+2)+2; |
1680 |
|
return; |
1681 |
goto T621; |
goto T621; |
1682 |
T621:; |
T621:; |
1683 |
|
if(!(((V81))==(VV[53]))){ |
1684 |
|
goto T631;} |
1685 |
|
if(!(((V80))==(VV[53]))){ |
1686 |
|
goto T634;} |
1687 |
|
base[2]= Ct; |
1688 |
|
base[3]= Ct; |
1689 |
|
vs_top=(vs_base=base+2)+2; |
1690 |
|
return; |
1691 |
|
goto T634; |
1692 |
|
T634:; |
1693 |
base[2]= Cnil; |
base[2]= Cnil; |
1694 |
base[3]= (V84); |
base[3]= (V84); |
1695 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1696 |
return; |
return; |
1697 |
goto T618; |
goto T631; |
1698 |
T618:; |
T631:; |
1699 |
if(!(((V80))==(VV[51]))){ |
if(!(((V81))==(VV[54]))){ |
1700 |
goto T628;} |
goto T641;} |
1701 |
|
{register object x= (V80),V108= VV[55]; |
1702 |
|
while(!endp(V108)) |
1703 |
|
if(eql(x,V108->c.c_car)){ |
1704 |
|
goto T645; |
1705 |
|
}else V108=V108->c.c_cdr; |
1706 |
|
goto T644;} |
1707 |
|
goto T645; |
1708 |
|
T645:; |
1709 |
|
base[2]= Ct; |
1710 |
|
base[3]= Ct; |
1711 |
|
vs_top=(vs_base=base+2)+2; |
1712 |
|
return; |
1713 |
|
goto T644; |
1714 |
|
T644:; |
1715 |
|
base[2]= Cnil; |
1716 |
|
base[3]= (V84); |
1717 |
|
vs_top=(vs_base=base+2)+2; |
1718 |
|
return; |
1719 |
|
goto T641; |
1720 |
|
T641:; |
1721 |
|
if(!(((V80))==(VV[54]))){ |
1722 |
|
goto T651;} |
1723 |
base[2]= Cnil; |
base[2]= Cnil; |
1724 |
base[3]= (V85); |
base[3]= (V85); |
1725 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1726 |
return; |
return; |
1727 |
goto T628; |
goto T651; |
1728 |
T628:; |
T651:; |
1729 |
if(!(((V81))==(VV[53]))){ |
if(!(((V81))==(VV[56]))){ |
1730 |
goto T633;} |
goto T656;} |
1731 |
if(((V80))==(VV[53])){ |
if(((V80))==(VV[56])){ |
1732 |
goto T635;} |
goto T658;} |
1733 |
if((get((V80),VV[33],Cnil))==Cnil){ |
if((get((V80),VV[33],Cnil))==Cnil){ |
1734 |
goto T636;} |
goto T659;} |
1735 |
goto T635; |
goto T658; |
1736 |
T635:; |
T658:; |
1737 |
base[2]= Ct; |
base[2]= Ct; |
1738 |
base[3]= Ct; |
base[3]= Ct; |
1739 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1740 |
return; |
return; |
1741 |
goto T636; |
goto T659; |
1742 |
T636:; |
T659:; |
1743 |
base[2]= Cnil; |
base[2]= Cnil; |
1744 |
base[3]= (V84); |
base[3]= (V84); |
1745 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1746 |
return; |
return; |
1747 |
goto T633; |
goto T656; |
1748 |
T633:; |
T656:; |
1749 |
if(!(((V80))==(VV[53]))){ |
if(!(((V80))==(VV[56]))){ |
1750 |
goto T645;} |
goto T668;} |
1751 |
base[2]= Cnil; |
base[2]= Cnil; |
1752 |
base[3]= (V85); |
base[3]= (V85); |
1753 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1754 |
return; |
return; |
1755 |
goto T645; |
goto T668; |
1756 |
T645:; |
T668:; |
1757 |
V86= get((V80),VV[33],Cnil); |
V86= get((V80),VV[33],Cnil); |
1758 |
if(((V86))==Cnil){ |
if(((V86))==Cnil){ |
1759 |
goto T650;} |
goto T673;} |
1760 |
{object V108; |
{object V109; |
1761 |
V108= get((V81),VV[33],Cnil); |
V109= get((V81),VV[33],Cnil); |
1762 |
if(((V108))==Cnil){ |
if(((V109))==Cnil){ |
1763 |
goto T655;} |
goto T678;} |
1764 |
{register object V109; |
{register object V110; |
1765 |
V109= (V86); |
V110= (V86); |
1766 |
goto T658; |
goto T681; |
1767 |
T658:; |
T681:; |
1768 |
if(((V109))!=Cnil){ |
if(((V110))!=Cnil){ |
1769 |
goto T659;} |
goto T682;} |
1770 |
base[2]= Cnil; |
base[2]= Cnil; |
1771 |
base[3]= Ct; |
base[3]= Ct; |
1772 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1773 |
return; |
return; |
1774 |
goto T659; |
goto T682; |
1775 |
T659:; |
T682:; |
1776 |
if(!(((V109))==(V108))){ |
if(!(((V110))==(V109))){ |
1777 |
goto T665;} |
goto T688;} |
1778 |
base[2]= Ct; |
base[2]= Ct; |
1779 |
base[3]= Ct; |
base[3]= Ct; |
1780 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1781 |
return; |
return; |
1782 |
goto T665; |
goto T688; |
1783 |
T665:; |
T688:; |
1784 |
V109= structure_ref((V109),VV[33],4); |
V110= structure_ref((V110),VV[33],4); |
1785 |
goto T658;} |
goto T681;} |
1786 |
goto T655; |
goto T678; |
1787 |
T655:; |
T678:; |
1788 |
base[2]= Cnil; |
base[2]= Cnil; |
1789 |
base[3]= (V85); |
base[3]= (V85); |
1790 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1791 |
return;} |
return;} |
1792 |
goto T650; |
goto T673; |
1793 |
T650:; |
T673:; |
1794 |
if(!(((V81))==(VV[54]))){ |
if(!(((V81))==(VV[57]))){ |
1795 |
goto T676;} |
goto T699;} |
1796 |
{register object x= (V80),V111= VV[55]; |
{register object x= (V80),V112= VV[58]; |
1797 |
while(!endp(V111)) |
while(!endp(V112)) |
1798 |
if(eql(x,V111->c.c_car)){ |
if(eql(x,V112->c.c_car)){ |
1799 |
goto T681; |
goto T704; |
1800 |
}else V111=V111->c.c_cdr; |
}else V112=V112->c.c_cdr; |
1801 |
goto T679;} |
goto T702;} |
1802 |
goto T681; |
goto T704; |
1803 |
T681:; |
T704:; |
1804 |
if(((*(LnkLI98))((V82),(V83)))==Cnil){ |
if(((*(LnkLI102))((V82),(V83)))==Cnil){ |
1805 |
goto T679;} |
goto T702;} |
1806 |
base[2]= Ct; |
base[2]= Ct; |
1807 |
base[3]= Ct; |
base[3]= Ct; |
1808 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1809 |
return; |
return; |
1810 |
goto T679; |
goto T702; |
1811 |
T679:; |
T702:; |
1812 |
base[2]= Cnil; |
base[2]= Cnil; |
1813 |
base[3]= (V84); |
base[3]= (V84); |
1814 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1815 |
return; |
return; |
1816 |
goto T676; |
goto T699; |
1817 |
T676:; |
T699:; |
1818 |
if((get((V81),VV[33],Cnil))==Cnil){ |
if((get((V81),VV[33],Cnil))==Cnil){ |
1819 |
goto T688;} |
goto T711;} |
1820 |
base[2]= Cnil; |
base[2]= Cnil; |
1821 |
base[3]= (V84); |
base[3]= (V84); |
1822 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1823 |
return; |
return; |
1824 |
goto T688; |
goto T711; |
1825 |
T688:; |
T711:; |
1826 |
{object V112= (V80); |
{object V113= (V80); |
1827 |
if((V112!= VV[29]))goto T692; |
if((V113!= VV[29]))goto T715; |
1828 |
{object V113= (V81); |
{object V114= (V81); |
1829 |
if((V113!= VV[29]))goto T693; |
if((V114!= VV[29]))goto T716; |
1830 |
base[2]= Ct; |
base[2]= Ct; |
1831 |
base[3]= Ct; |
base[3]= Ct; |
1832 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1833 |
return; |
return; |
1834 |
goto T693; |
goto T716; |
1835 |
T693:; |
T716:; |
1836 |
if((V113!= VV[13]) |
if((V114!= VV[13]) |
1837 |
&& (V113!= VV[62]))goto T696; |
&& (V114!= VV[65]))goto T719; |
1838 |
if(((*(LnkLI98))(VV[56],(V83)))==Cnil){ |
if(((*(LnkLI102))(VV[59],(V83)))==Cnil){ |
1839 |
goto T698;} |
goto T721;} |
1840 |
base[2]= Ct; |
base[2]= Ct; |
1841 |
base[3]= Ct; |
base[3]= Ct; |
1842 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1843 |
return; |
return; |
1844 |
goto T698; |
goto T721; |
1845 |
T698:; |
T721:; |
1846 |
base[2]= Cnil; |
base[2]= Cnil; |
1847 |
base[3]= Ct; |
base[3]= Ct; |
1848 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1849 |
return; |
return; |
1850 |
goto T696; |
goto T719; |
1851 |
T696:; |
T719:; |
1852 |
base[2]= Cnil; |
base[2]= Cnil; |
1853 |
base[3]= (V85); |
base[3]= (V85); |
1854 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1855 |
return;} |
return;} |
1856 |
goto T692; |
goto T715; |
1857 |
T692:; |
T715:; |
1858 |
if((V112!= VV[30]))goto T706; |
if((V113!= VV[30]))goto T729; |
1859 |
{object V114= (V81); |
{object V115= (V81); |
1860 |
if((V114!= VV[30]))goto T707; |
if((V115!= VV[30]))goto T730; |
1861 |
base[2]= Ct; |
base[2]= Ct; |
1862 |
base[3]= Ct; |
base[3]= Ct; |
1863 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1864 |
return; |
return; |
1865 |
goto T707; |
goto T730; |
1866 |
T707:; |
T730:; |
1867 |
if((V114!= VV[62]))goto T710; |
if((V115!= VV[65]))goto T733; |
1868 |
if(((*(LnkLI98))(VV[57],(V83)))==Cnil){ |
if(((*(LnkLI102))(VV[60],(V83)))==Cnil){ |
1869 |
goto T712;} |
goto T735;} |
1870 |
base[2]= Ct; |
base[2]= Ct; |
1871 |
base[3]= Ct; |
base[3]= Ct; |
1872 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1873 |
return; |
return; |
1874 |
goto T712; |
goto T735; |
1875 |
T712:; |
T735:; |
1876 |
base[2]= Cnil; |
base[2]= Cnil; |
1877 |
base[3]= Ct; |
base[3]= Ct; |
1878 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1879 |
return; |
return; |
1880 |
goto T710; |
goto T733; |
1881 |
T710:; |
T733:; |
1882 |
base[2]= Cnil; |
base[2]= Cnil; |
1883 |
base[3]= (V85); |
base[3]= (V85); |
1884 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1885 |
return;} |
return;} |
1886 |
goto T706; |
goto T729; |
1887 |
T706:; |
T729:; |
1888 |
if((V112!= VV[79]))goto T720; |
if((V113!= VV[83]))goto T743; |
1889 |
{register object x= (V81),V115= VV[58]; |
{register object x= (V81),V116= VV[61]; |
|
while(!endp(V115)) |
|
|
if(eql(x,V115->c.c_car)){ |
|
|
goto T723; |
|
|
}else V115=V115->c.c_cdr; |
|
|
goto T722;} |
|
|
goto T723; |
|
|
T723:; |
|
|
base[2]= Ct; |
|
|
base[3]= Ct; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T722; |
|
|
T722:; |
|
|
base[2]= Cnil; |
|
|
base[3]= (V85); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T720; |
|
|
T720:; |
|
|
if((V112!= VV[24]))goto T728; |
|
|
{register object x= (V81),V116= VV[59]; |
|
1890 |
while(!endp(V116)) |
while(!endp(V116)) |
1891 |
if(eql(x,V116->c.c_car)){ |
if(eql(x,V116->c.c_car)){ |
1892 |
goto T731; |
goto T746; |
1893 |
}else V116=V116->c.c_cdr; |
}else V116=V116->c.c_cdr; |
1894 |
goto T730;} |
goto T745;} |
1895 |
goto T731; |
goto T746; |
1896 |
T731:; |
T746:; |
1897 |
base[2]= Ct; |
base[2]= Ct; |
1898 |
base[3]= Ct; |
base[3]= Ct; |
1899 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1900 |
return; |
return; |
1901 |
goto T730; |
goto T745; |
1902 |
T730:; |
T745:; |
1903 |
base[2]= Cnil; |
base[2]= Cnil; |
1904 |
base[3]= (V85); |
base[3]= (V85); |
1905 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1906 |
return; |
return; |
1907 |
goto T728; |
goto T743; |
1908 |
T728:; |
T743:; |
1909 |
if((V112!= VV[99]))goto T736; |
if((V113!= VV[24]))goto T751; |
1910 |
{register object x= (V81),V117= VV[60]; |
{register object x= (V81),V117= VV[62]; |
1911 |
while(!endp(V117)) |
while(!endp(V117)) |
1912 |
if(eql(x,V117->c.c_car)){ |
if(eql(x,V117->c.c_car)){ |
1913 |
goto T739; |
goto T754; |
1914 |
}else V117=V117->c.c_cdr; |
}else V117=V117->c.c_cdr; |
1915 |
goto T738;} |
goto T753;} |
1916 |
goto T739; |
goto T754; |
1917 |
T739:; |
T754:; |
1918 |
base[2]= Ct; |
base[2]= Ct; |
1919 |
base[3]= Ct; |
base[3]= Ct; |
1920 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1921 |
return; |
return; |
1922 |
goto T738; |
goto T753; |
1923 |
T738:; |
T753:; |
1924 |
base[2]= Cnil; |
base[2]= Cnil; |
1925 |
base[3]= (V85); |
base[3]= (V85); |
1926 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1927 |
return; |
return; |
1928 |
goto T736; |
goto T751; |
1929 |
T736:; |
T751:; |
1930 |
if((V112!= VV[13]))goto T744; |
if((V113!= VV[103]))goto T759; |
1931 |
{register object x= (V81),V118= VV[61]; |
{register object x= (V81),V118= VV[63]; |
1932 |
while(!endp(V118)) |
while(!endp(V118)) |
1933 |
if(eql(x,V118->c.c_car)){ |
if(eql(x,V118->c.c_car)){ |
1934 |
goto T747; |
goto T762; |
1935 |
}else V118=V118->c.c_cdr; |
}else V118=V118->c.c_cdr; |
1936 |
goto T746;} |
goto T761;} |
1937 |
goto T747; |
goto T762; |
1938 |
T747:; |
T762:; |
1939 |
base[2]= (*(LnkLI98))((V82),(V83)); |
base[2]= Ct; |
1940 |
base[3]= Ct; |
base[3]= Ct; |
1941 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1942 |
return; |
return; |
1943 |
goto T746; |
goto T761; |
1944 |
T746:; |
T761:; |
1945 |
base[2]= Cnil; |
base[2]= Cnil; |
1946 |
base[3]= (V85); |
base[3]= (V85); |
1947 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1948 |
return; |
return; |
1949 |
goto T744; |
goto T759; |
1950 |
T744:; |
T759:; |
1951 |
if((V112!= VV[62]))goto T752; |
if((V113!= VV[13]))goto T767; |
1952 |
if(!(((V81))==(VV[62]))){ |
{register object x= (V81),V119= VV[64]; |
1953 |
goto T754;} |
while(!endp(V119)) |
1954 |
base[2]= (*(LnkLI98))((V82),(V83)); |
if(eql(x,V119->c.c_car)){ |
1955 |
|
goto T770; |
1956 |
|
}else V119=V119->c.c_cdr; |
1957 |
|
goto T769;} |
1958 |
|
goto T770; |
1959 |
|
T770:; |
1960 |
|
base[2]= (*(LnkLI102))((V82),(V83)); |
1961 |
base[3]= Ct; |
base[3]= Ct; |
1962 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1963 |
return; |
return; |
1964 |
goto T754; |
goto T769; |
1965 |
T754:; |
T769:; |
1966 |
base[2]= Cnil; |
base[2]= Cnil; |
1967 |
base[3]= (V85); |
base[3]= (V85); |
1968 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1969 |
return; |
return; |
1970 |
goto T752; |
goto T767; |
1971 |
T752:; |
T767:; |
1972 |
if((V112!= VV[63]))goto T760; |
if((V113!= VV[65]))goto T775; |
1973 |
if(!(((V81))==(VV[63]))){ |
if(!(((V81))==(VV[65]))){ |
1974 |
goto T762;} |
goto T777;} |
1975 |
base[2]= (*(LnkLI98))((V82),(V83)); |
base[2]= (*(LnkLI102))((V82),(V83)); |
1976 |
base[3]= Ct; |
base[3]= Ct; |
1977 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1978 |
return; |
return; |
1979 |
goto T762; |
goto T777; |
1980 |
T762:; |
T777:; |
1981 |
base[2]= Cnil; |
base[2]= Cnil; |
1982 |
base[3]= (V85); |
base[3]= (V85); |
1983 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1984 |
return; |
return; |
1985 |
goto T760; |
goto T775; |
1986 |
T760:; |
T775:; |
1987 |
if((V112!= VV[31]))goto T768; |
if((V113!= VV[66]))goto T783; |
1988 |
{register object x= (V81),V119= VV[64]; |
if(!(((V81))==(VV[66]))){ |
1989 |
while(!endp(V119)) |
goto T785;} |
1990 |
if(eql(x,V119->c.c_car)){ |
base[2]= (*(LnkLI102))((V82),(V83)); |
|
goto T771; |
|
|
}else V119=V119->c.c_cdr; |
|
|
goto T770;} |
|
|
goto T771; |
|
|
T771:; |
|
|
base[2]= (*(LnkLI98))((V82),(V83)); |
|
1991 |
base[3]= Ct; |
base[3]= Ct; |
1992 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1993 |
return; |
return; |
1994 |
goto T770; |
goto T785; |
1995 |
T770:; |
T785:; |
1996 |
base[2]= Cnil; |
base[2]= Cnil; |
1997 |
base[3]= (V85); |
base[3]= (V85); |
1998 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1999 |
return; |
return; |
2000 |
goto T768; |
goto T783; |
2001 |
T768:; |
T783:; |
2002 |
if((V112!= VV[83]) |
if((V113!= VV[31]))goto T791; |
2003 |
&& (V112!= VV[84]) |
{register object x= (V81),V120= VV[67]; |
|
&& (V112!= VV[32]))goto T776; |
|
|
{register object x= (V81),V120= VV[65]; |
|
2004 |
while(!endp(V120)) |
while(!endp(V120)) |
2005 |
if(eql(x,V120->c.c_car)){ |
if(eql(x,V120->c.c_car)){ |
2006 |
goto T779; |
goto T794; |
2007 |
}else V120=V120->c.c_cdr; |
}else V120=V120->c.c_cdr; |
2008 |
goto T778;} |
goto T793;} |
2009 |
goto T779; |
goto T794; |
2010 |
T779:; |
T794:; |
2011 |
base[2]= (*(LnkLI98))((V82),(V83)); |
base[2]= (*(LnkLI102))((V82),(V83)); |
2012 |
base[3]= Ct; |
base[3]= Ct; |
2013 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2014 |
return; |
return; |
2015 |
goto T778; |
goto T793; |
2016 |
T778:; |
T793:; |
2017 |
base[2]= Cnil; |
base[2]= Cnil; |
2018 |
base[3]= (V85); |
base[3]= (V85); |
2019 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2020 |
return; |
return; |
2021 |
goto T776; |
goto T791; |
2022 |
T776:; |
T791:; |
2023 |
if((V112!= VV[66]))goto T784; |
if((V113!= VV[87]) |
2024 |
if(!(((V81))==(VV[66]))){ |
&& (V113!= VV[88]) |
2025 |
goto T786;}{object V121; |
&& (V113!= VV[32]))goto T799; |
2026 |
V121= car((V82)); |
{register object x= (V81),V121= VV[68]; |
2027 |
if(V121==Cnil)goto T790; |
while(!endp(V121)) |
2028 |
V78= V121; |
if(eql(x,V121->c.c_car)){ |
2029 |
goto T789; |
goto T802; |
2030 |
goto T790; |
}else V121=V121->c.c_cdr; |
2031 |
T790:;} |
goto T801;} |
2032 |
|
goto T802; |
2033 |
|
T802:; |
2034 |
|
base[2]= (*(LnkLI102))((V82),(V83)); |
2035 |
|
base[3]= Ct; |
2036 |
|
vs_top=(vs_base=base+2)+2; |
2037 |
|
return; |
2038 |
|
goto T801; |
2039 |
|
T801:; |
2040 |
|
base[2]= Cnil; |
2041 |
|
base[3]= (V85); |
2042 |
|
vs_top=(vs_base=base+2)+2; |
2043 |
|
return; |
2044 |
|
goto T799; |
2045 |
|
T799:; |
2046 |
|
if((V113!= VV[69]))goto T807; |
2047 |
|
if(!(((V81))==(VV[69]))){ |
2048 |
|
goto T809;}{object V122; |
2049 |
|
V122= car((V82)); |
2050 |
|
if(V122==Cnil)goto T813; |
2051 |
|
V78= V122; |
2052 |
|
goto T812; |
2053 |
|
goto T813; |
2054 |
|
T813:;} |
2055 |
V78= Ct; |
V78= Ct; |
2056 |
goto T789; |
goto T812; |
2057 |
T789:;{object V122; |
T812:;{object V123; |
2058 |
V122= car((V83)); |
V123= car((V83)); |
2059 |
if(V122==Cnil)goto T793; |
if(V123==Cnil)goto T816; |
2060 |
V79= V122; |
V79= V123; |
2061 |
goto T792; |
goto T815; |
2062 |
goto T793; |
goto T816; |
2063 |
T793:;} |
T816:;} |
2064 |
V79= Ct; |
V79= Ct; |
2065 |
goto T792; |
goto T815; |
2066 |
T792:; |
T815:; |
2067 |
goto TTL; |
goto TTL; |
2068 |
goto T786; |
goto T809; |
2069 |
T786:; |
T809:; |
2070 |
base[2]= Cnil; |
base[2]= Cnil; |
2071 |
base[3]= (V85); |
base[3]= (V85); |
2072 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2073 |
return; |
return; |
2074 |
goto T784; |
goto T807; |
2075 |
T784:; |
T807:; |
2076 |
if((V112!= VV[26]))goto T797; |
if((V113!= VV[26]))goto T820; |
2077 |
if(((V81))==(VV[26])){ |
if(((V81))==(VV[26])){ |
2078 |
goto T798;} |
goto T821;} |
2079 |
if(!(((V81))==(VV[22]))){ |
if(!(((V81))==(VV[22]))){ |
2080 |
goto T799;} |
goto T822;} |
2081 |
goto T798; |
goto T821; |
2082 |
T798:; |
T821:; |
2083 |
if(endp_prop((V82))){ |
if(endp_prop((V82))){ |
2084 |
goto T804;} |
goto T827;} |
2085 |
if(!((car((V82)))==(VV[17]))){ |
if(!((car((V82)))==(VV[17]))){ |
2086 |
goto T805;} |
goto T828;} |
2087 |
goto T804; |
goto T827; |
2088 |
T804:; |
T827:; |
2089 |
if(endp_prop((V83))){ |
if(endp_prop((V83))){ |
2090 |
goto T803;} |
goto T826;} |
2091 |
if((car((V83)))==(VV[17])){ |
if((car((V83)))==(VV[17])){ |
2092 |
goto T803;} |
goto T826;} |
2093 |
base[2]= Cnil; |
base[2]= Cnil; |
2094 |
base[3]= Ct; |
base[3]= Ct; |
2095 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2096 |
return; |
return; |
2097 |
goto T805; |
goto T828; |
2098 |
T805:; |
T828:; |
2099 |
if(endp_prop((V83))){ |
if(endp_prop((V83))){ |
2100 |
goto T803;} |
goto T826;} |
2101 |
if((car((V83)))==(VV[17])){ |
if((car((V83)))==(VV[17])){ |
2102 |
goto T803;} |
goto T826;} |
2103 |
if(equal(car((V82)),car((V83)))){ |
if(equal(car((V82)),car((V83)))){ |
2104 |
goto T803;} |
goto T826;} |
2105 |
base[2]= Cnil; |
base[2]= Cnil; |
2106 |
base[3]= Ct; |
base[3]= Ct; |
2107 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2108 |
return; |
return; |
2109 |
goto T803; |
goto T826; |
2110 |
T803:; |
T826:; |
2111 |
if(endp_prop(cdr((V82)))){ |
if(endp_prop(cdr((V82)))){ |
2112 |
goto T824;} |
goto T847;} |
2113 |
if(!((cadr((V82)))==(VV[17]))){ |
if(!((cadr((V82)))==(VV[17]))){ |
2114 |
goto T823;} |
goto T846;} |
2115 |
goto T824; |
goto T847; |
2116 |
T824:; |
T847:; |
2117 |
if(endp_prop(cdr((V83)))){ |
if(endp_prop(cdr((V83)))){ |
2118 |
goto T828;} |
goto T851;} |
2119 |
if(!((cadr((V83)))==(VV[17]))){ |
if(!((cadr((V83)))==(VV[17]))){ |
2120 |
goto T829;} |
goto T852;} |
2121 |
goto T828; |
goto T851; |
2122 |
T828:; |
T851:; |
2123 |
base[2]= Ct; |
base[2]= Ct; |
2124 |
base[3]= Ct; |
base[3]= Ct; |
2125 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2126 |
return; |
return; |
2127 |
goto T829; |
goto T852; |
2128 |
T829:; |
T852:; |
2129 |
base[2]= Cnil; |
base[2]= Cnil; |
2130 |
base[3]= Ct; |
base[3]= Ct; |
2131 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2132 |
return; |
return; |
2133 |
goto T823; |
goto T846; |
2134 |
T823:; |
T846:; |
2135 |
if(endp_prop(cdr((V83)))){ |
if(endp_prop(cdr((V83)))){ |
2136 |
goto T838;} |
goto T861;} |
2137 |
if(!((cadr((V83)))==(VV[17]))){ |
if(!((cadr((V83)))==(VV[17]))){ |
2138 |
goto T837;} |
goto T860;} |
2139 |
goto T838; |
goto T861; |
2140 |
T838:; |
T861:; |
2141 |
base[2]= Ct; |
base[2]= Ct; |
2142 |
base[3]= Ct; |
base[3]= Ct; |
2143 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2144 |
return; |
return; |
2145 |
goto T837; |
goto T860; |
2146 |
T837:; |
T860:; |
2147 |
base[2]= (*(LnkLI86))(cadr((V82)),cadr((V83))); |
base[2]= (*(LnkLI90))(cadr((V82)),cadr((V83))); |
2148 |
base[3]= Ct; |
base[3]= Ct; |
2149 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2150 |
return; |
return; |
2151 |
goto T799; |
goto T822; |
2152 |
T799:; |
T822:; |
2153 |
base[2]= Cnil; |
base[2]= Cnil; |
2154 |
base[3]= (V85); |
base[3]= (V85); |
2155 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2156 |
return; |
return; |
2157 |
goto T797; |
goto T820; |
2158 |
T797:; |
T820:; |
2159 |
if((V112!= VV[22]))goto T848; |
if((V113!= VV[22]))goto T871; |
2160 |
if(!(((V81))==(VV[22]))){ |
if(!(((V81))==(VV[22]))){ |
2161 |
goto T850;} |
goto T873;} |
2162 |
if(endp_prop((V82))){ |
if(endp_prop((V82))){ |
2163 |
goto T853;} |
goto T876;} |
2164 |
if(!((car((V82)))==(VV[17]))){ |
if(!((car((V82)))==(VV[17]))){ |
2165 |
goto T854;} |
goto T877;} |
2166 |
goto T853; |
goto T876; |
2167 |
T853:; |
T876:; |
2168 |
if(endp_prop((V83))){ |
if(endp_prop((V83))){ |
2169 |
goto T852;} |
goto T875;} |
2170 |
if((car((V83)))==(VV[17])){ |
if((car((V83)))==(VV[17])){ |
2171 |
goto T852;} |
goto T875;} |
2172 |
base[2]= Cnil; |
base[2]= Cnil; |
2173 |
base[3]= Ct; |
base[3]= Ct; |
2174 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2175 |
return; |
return; |
2176 |
goto T854; |
goto T877; |
2177 |
T854:; |
T877:; |
2178 |
if(endp_prop((V83))){ |
if(endp_prop((V83))){ |
2179 |
goto T852;} |
goto T875;} |
2180 |
if((car((V83)))==(VV[17])){ |
if((car((V83)))==(VV[17])){ |
2181 |
goto T852;} |
goto T875;} |
2182 |
if(equal(car((V82)),car((V83)))){ |
if(equal(car((V82)),car((V83)))){ |
2183 |
goto T852;} |
goto T875;} |
2184 |
base[2]= Cnil; |
base[2]= Cnil; |
2185 |
base[3]= Ct; |
base[3]= Ct; |
2186 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2187 |
return; |
return; |
2188 |
goto T852; |
goto T875; |
2189 |
T852:; |
T875:; |
2190 |
if(endp_prop(cdr((V82)))){ |
if(endp_prop(cdr((V82)))){ |
2191 |
goto T873;} |
goto T896;} |
2192 |
if(!((cadr((V82)))==(VV[17]))){ |
if(!((cadr((V82)))==(VV[17]))){ |
2193 |
goto T872;} |
goto T895;} |
2194 |
goto T873; |
goto T896; |
2195 |
T873:; |
T896:; |
2196 |
if(endp_prop(cdr((V83)))){ |
if(endp_prop(cdr((V83)))){ |
2197 |
goto T877;} |
goto T900;} |
2198 |
if(!((cadr((V83)))==(VV[17]))){ |
if(!((cadr((V83)))==(VV[17]))){ |
2199 |
goto T878;} |
goto T901;} |
2200 |
goto T877; |
goto T900; |
2201 |
T877:; |
T900:; |
2202 |
base[2]= Ct; |
base[2]= Ct; |
2203 |
base[3]= Ct; |
base[3]= Ct; |
2204 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2205 |
return; |
return; |
2206 |
goto T878; |
goto T901; |
2207 |
T878:; |
T901:; |
2208 |
base[2]= Cnil; |
base[2]= Cnil; |
2209 |
base[3]= Ct; |
base[3]= Ct; |
2210 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2211 |
return; |
return; |
2212 |
goto T872; |
goto T895; |
2213 |
T872:; |
T895:; |
2214 |
if(endp_prop(cdr((V83)))){ |
if(endp_prop(cdr((V83)))){ |
2215 |
goto T887;} |
goto T910;} |
2216 |
if(!((cadr((V83)))==(VV[17]))){ |
if(!((cadr((V83)))==(VV[17]))){ |
2217 |
goto T886;} |
goto T909;} |
2218 |
goto T887; |
goto T910; |
2219 |
T887:; |
T910:; |
2220 |
base[2]= Ct; |
base[2]= Ct; |
2221 |
base[3]= Ct; |
base[3]= Ct; |
2222 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2223 |
return; |
return; |
2224 |
goto T886; |
goto T909; |
2225 |
T886:; |
T909:; |
2226 |
base[2]= (*(LnkLI86))(cadr((V82)),cadr((V83))); |
base[2]= (*(LnkLI90))(cadr((V82)),cadr((V83))); |
2227 |
base[3]= Ct; |
base[3]= Ct; |
2228 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2229 |
return; |
return; |
2230 |
goto T850; |
goto T873; |
2231 |
T850:; |
T873:; |
2232 |
base[2]= Cnil; |
base[2]= Cnil; |
2233 |
base[3]= (V85); |
base[3]= (V85); |
2234 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2235 |
return; |
return; |
2236 |
goto T848; |
goto T871; |
2237 |
T848:; |
T871:; |
2238 |
if(((V84))==Cnil){ |
if(((V84))==Cnil){ |
2239 |
goto T898;} |
goto T921;} |
2240 |
base[2]= (((V80))==((V81))?Ct:Cnil); |
base[2]= (((V80))==((V81))?Ct:Cnil); |
2241 |
base[3]= Ct; |
base[3]= Ct; |
2242 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2243 |
return; |
return; |
2244 |
goto T898; |
goto T921; |
2245 |
T898:; |
T921:; |
2246 |
base[2]= Cnil; |
base[2]= Cnil; |
2247 |
base[3]= Cnil; |
base[3]= Cnil; |
2248 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2251 |
} |
} |
2252 |
/* local entry for function SUB-INTERVAL-P */ |
/* local entry for function SUB-INTERVAL-P */ |
2253 |
|
|
2254 |
static object LI22(V125,V126) |
static object LI22(V126,V127) |
2255 |
|
|
2256 |
register object V125;register object V126; |
register object V126;register object V127; |
2257 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
2258 |
goto TTL; |
goto TTL; |
2259 |
TTL:; |
TTL:; |
2260 |
{register object V127; |
{register object V128; |
|
register object V128; |
|
2261 |
register object V129; |
register object V129; |
2262 |
register object V130; |
register object V130; |
2263 |
V127= Cnil; |
register object V131; |
2264 |
V128= Cnil; |
V128= Cnil; |
2265 |
V129= Cnil; |
V129= Cnil; |
2266 |
V130= Cnil; |
V130= Cnil; |
2267 |
if(!(endp_prop((V125)))){ |
V131= Cnil; |
|
goto T906;} |
|
|
V127= VV[17]; |
|
|
V128= VV[17]; |
|
|
goto T904; |
|
|
goto T906; |
|
|
T906:; |
|
|
if(!(endp_prop(cdr((V125))))){ |
|
|
goto T912;} |
|
|
V127= car((V125)); |
|
|
V128= VV[17]; |
|
|
goto T904; |
|
|
goto T912; |
|
|
T912:; |
|
|
V127= car((V125)); |
|
|
V128= cadr((V125)); |
|
|
goto T904; |
|
|
T904:; |
|
2268 |
if(!(endp_prop((V126)))){ |
if(!(endp_prop((V126)))){ |
2269 |
goto T922;} |
goto T929;} |
2270 |
|
V128= VV[17]; |
2271 |
V129= VV[17]; |
V129= VV[17]; |
2272 |
V130= VV[17]; |
goto T927; |
2273 |
goto T920; |
goto T929; |
2274 |
goto T922; |
T929:; |
|
T922:; |
|
2275 |
if(!(endp_prop(cdr((V126))))){ |
if(!(endp_prop(cdr((V126))))){ |
2276 |
goto T928;} |
goto T935;} |
2277 |
V129= car((V126)); |
V128= car((V126)); |
2278 |
|
V129= VV[17]; |
2279 |
|
goto T927; |
2280 |
|
goto T935; |
2281 |
|
T935:; |
2282 |
|
V128= car((V126)); |
2283 |
|
V129= cadr((V126)); |
2284 |
|
goto T927; |
2285 |
|
T927:; |
2286 |
|
if(!(endp_prop((V127)))){ |
2287 |
|
goto T945;} |
2288 |
V130= VV[17]; |
V130= VV[17]; |
2289 |
goto T920; |
V131= VV[17]; |
2290 |
goto T928; |
goto T943; |
2291 |
T928:; |
goto T945; |
2292 |
V129= car((V126)); |
T945:; |
2293 |
V130= cadr((V126)); |
if(!(endp_prop(cdr((V127))))){ |
2294 |
goto T920; |
goto T951;} |
2295 |
T920:; |
V130= car((V127)); |
2296 |
if(!(((V127))==(VV[17]))){ |
V131= VV[17]; |
2297 |
goto T938;} |
goto T943; |
2298 |
if(((V129))==(VV[17])){ |
goto T951; |
2299 |
goto T936;} |
T951:; |
2300 |
{object V131 = Cnil; |
V130= car((V127)); |
2301 |
VMR22(V131)} |
V131= cadr((V127)); |
2302 |
goto T938; |
goto T943; |
2303 |
T938:; |
T943:; |
2304 |
{object V132; |
if(!(((V128))==(VV[17]))){ |
|
V132= (((V129))==(VV[17])?Ct:Cnil); |
|
|
if(((V132))==Cnil){ |
|
|
goto T944;} |
|
|
goto T936; |
|
|
goto T944; |
|
|
T944:; |
|
|
if(!(type_of((V127))==t_cons)){ |
|
|
goto T947;} |
|
|
if(!(type_of((V129))==t_cons)){ |
|
|
goto T950;} |
|
|
if(!(number_compare(car((V127)),car((V129)))<0)){ |
|
|
goto T936;} |
|
|
{object V133 = Cnil; |
|
|
VMR22(V133)} |
|
|
goto T950; |
|
|
T950:; |
|
|
if(!(number_compare(car((V127)),(V129))<0)){ |
|
|
goto T936;} |
|
|
{object V134 = Cnil; |
|
|
VMR22(V134)} |
|
|
goto T947; |
|
|
T947:; |
|
|
{object V135; |
|
|
if(!(type_of((V129))==t_cons)){ |
|
|
goto T958;} |
|
|
if(!(number_compare((V127),car((V129)))<=0)){ |
|
2305 |
goto T961;} |
goto T961;} |
2306 |
{object V136 = Cnil; |
if(((V130))==(VV[17])){ |
2307 |
VMR22(V136)} |
goto T959;} |
2308 |
|
{object V132 = Cnil; |
2309 |
|
VMR22(V132)} |
2310 |
goto T961; |
goto T961; |
2311 |
T961:; |
T961:; |
2312 |
V135= Cnil; |
{object V133; |
2313 |
goto T956; |
V133= (((V130))==(VV[17])?Ct:Cnil); |
2314 |
goto T958; |
if(((V133))==Cnil){ |
2315 |
T958:; |
goto T967;} |
2316 |
if(!(number_compare((V127),(V129))<0)){ |
goto T959; |
2317 |
goto T964;} |
goto T967; |
2318 |
{object V137 = Cnil; |
T967:; |
2319 |
VMR22(V137)} |
if(!(type_of((V128))==t_cons)){ |
|
goto T964; |
|
|
T964:; |
|
|
V135= Cnil; |
|
|
goto T956; |
|
|
T956:; |
|
|
if(((V135))==Cnil){ |
|
|
goto T936;}}} |
|
|
goto T936; |
|
|
T936:; |
|
|
if(!(((V128))==(VV[17]))){ |
|
2320 |
goto T970;} |
goto T970;} |
2321 |
if(((V130))==(VV[17])){ |
if(!(type_of((V130))==t_cons)){ |
2322 |
goto T968;} |
goto T973;} |
2323 |
{object V138 = Cnil; |
if(!(number_compare(car((V128)),car((V130)))<0)){ |
2324 |
VMR22(V138)} |
goto T959;} |
2325 |
|
{object V134 = Cnil; |
2326 |
|
VMR22(V134)} |
2327 |
|
goto T973; |
2328 |
|
T973:; |
2329 |
|
if(!(number_compare(car((V128)),(V130))<0)){ |
2330 |
|
goto T959;} |
2331 |
|
{object V135 = Cnil; |
2332 |
|
VMR22(V135)} |
2333 |
goto T970; |
goto T970; |
2334 |
T970:; |
T970:; |
2335 |
{object V139; |
{object V136; |
|
V139= (((V130))==(VV[17])?Ct:Cnil); |
|
|
if(((V139))==Cnil){ |
|
|
goto T976;} |
|
|
goto T968; |
|
|
goto T976; |
|
|
T976:; |
|
|
if(!(type_of((V128))==t_cons)){ |
|
|
goto T979;} |
|
2336 |
if(!(type_of((V130))==t_cons)){ |
if(!(type_of((V130))==t_cons)){ |
2337 |
goto T982;} |
goto T981;} |
2338 |
if(!(number_compare(car((V128)),car((V130)))>0)){ |
if(!(number_compare((V128),car((V130)))<=0)){ |
2339 |
goto T968;} |
goto T984;} |
2340 |
{object V140 = Cnil; |
{object V137 = Cnil; |
2341 |
VMR22(V140)} |
VMR22(V137)} |
2342 |
goto T982; |
goto T984; |
2343 |
T982:; |
T984:; |
2344 |
if(!(number_compare(car((V128)),(V130))>0)){ |
V136= Cnil; |
2345 |
goto T968;} |
goto T979; |
2346 |
{object V141 = Cnil; |
goto T981; |
2347 |
VMR22(V141)} |
T981:; |
2348 |
|
if(!(number_compare((V128),(V130))<0)){ |
2349 |
|
goto T987;} |
2350 |
|
{object V138 = Cnil; |
2351 |
|
VMR22(V138)} |
2352 |
|
goto T987; |
2353 |
|
T987:; |
2354 |
|
V136= Cnil; |
2355 |
goto T979; |
goto T979; |
2356 |
T979:; |
T979:; |
2357 |
{object V142; |
if(((V136))==Cnil){ |
2358 |
if(!(type_of((V130))==t_cons)){ |
goto T959;}}} |
2359 |
goto T990;} |
goto T959; |
2360 |
if(!(number_compare((V128),car((V130)))>=0)){ |
T959:; |
2361 |
|
if(!(((V129))==(VV[17]))){ |
2362 |
goto T993;} |
goto T993;} |
2363 |
{object V143 = Cnil; |
if(((V131))==(VV[17])){ |
2364 |
VMR22(V143)} |
goto T991;} |
2365 |
|
{object V139 = Cnil; |
2366 |
|
VMR22(V139)} |
2367 |
goto T993; |
goto T993; |
2368 |
T993:; |
T993:; |
2369 |
V142= Cnil; |
{object V140; |
2370 |
goto T988; |
V140= (((V131))==(VV[17])?Ct:Cnil); |
2371 |
goto T990; |
if(((V140))==Cnil){ |
2372 |
T990:; |
goto T999;} |
2373 |
if(!(number_compare((V128),(V130))>0)){ |
goto T991; |
2374 |
goto T996;} |
goto T999; |
2375 |
|
T999:; |
2376 |
|
if(!(type_of((V129))==t_cons)){ |
2377 |
|
goto T1002;} |
2378 |
|
if(!(type_of((V131))==t_cons)){ |
2379 |
|
goto T1005;} |
2380 |
|
if(!(number_compare(car((V129)),car((V131)))>0)){ |
2381 |
|
goto T991;} |
2382 |
|
{object V141 = Cnil; |
2383 |
|
VMR22(V141)} |
2384 |
|
goto T1005; |
2385 |
|
T1005:; |
2386 |
|
if(!(number_compare(car((V129)),(V131))>0)){ |
2387 |
|
goto T991;} |
2388 |
|
{object V142 = Cnil; |
2389 |
|
VMR22(V142)} |
2390 |
|
goto T1002; |
2391 |
|
T1002:; |
2392 |
|
{object V143; |
2393 |
|
if(!(type_of((V131))==t_cons)){ |
2394 |
|
goto T1013;} |
2395 |
|
if(!(number_compare((V129),car((V131)))>=0)){ |
2396 |
|
goto T1016;} |
2397 |
{object V144 = Cnil; |
{object V144 = Cnil; |
2398 |
VMR22(V144)} |
VMR22(V144)} |
2399 |
goto T996; |
goto T1016; |
2400 |
T996:; |
T1016:; |
2401 |
V142= Cnil; |
V143= Cnil; |
2402 |
goto T988; |
goto T1011; |
2403 |
T988:; |
goto T1013; |
2404 |
if(((V142))==Cnil){ |
T1013:; |
2405 |
goto T968;}}} |
if(!(number_compare((V129),(V131))>0)){ |
2406 |
goto T968; |
goto T1019;} |
2407 |
T968:; |
{object V145 = Cnil; |
2408 |
{object V145 = Ct; |
VMR22(V145)} |
2409 |
VMR22(V145)}} |
goto T1019; |
2410 |
|
T1019:; |
2411 |
|
V143= Cnil; |
2412 |
|
goto T1011; |
2413 |
|
T1011:; |
2414 |
|
if(((V143))==Cnil){ |
2415 |
|
goto T991;}}} |
2416 |
|
goto T991; |
2417 |
|
T991:; |
2418 |
|
{object V146 = Ct; |
2419 |
|
VMR22(V146)}} |
2420 |
return Cnil; |
return Cnil; |
2421 |
} |
} |
2422 |
/* local entry for function IN-INTERVAL-P */ |
/* local entry for function IN-INTERVAL-P */ |
2423 |
|
|
2424 |
static object LI23(V148,V149) |
static object LI23(V149,V150) |
2425 |
|
|
2426 |
register object V148;register object V149; |
register object V149;register object V150; |
2427 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
2428 |
goto TTL; |
goto TTL; |
2429 |
TTL:; |
TTL:; |
2430 |
{register object V150; |
{register object V151; |
2431 |
register object V151; |
register object V152; |
|
V150= Cnil; |
|
2432 |
V151= Cnil; |
V151= Cnil; |
2433 |
if(!(endp_prop((V149)))){ |
V152= Cnil; |
2434 |
goto T1002;} |
if(!(endp_prop((V150)))){ |
2435 |
V150= VV[17]; |
goto T1025;} |
|
V151= VV[17]; |
|
|
goto T1000; |
|
|
goto T1002; |
|
|
T1002:; |
|
|
if(!(endp_prop(cdr((V149))))){ |
|
|
goto T1008;} |
|
|
V150= car((V149)); |
|
2436 |
V151= VV[17]; |
V151= VV[17]; |
2437 |
goto T1000; |
V152= VV[17]; |
2438 |
goto T1008; |
goto T1023; |
2439 |
T1008:; |
goto T1025; |
2440 |
V150= car((V149)); |
T1025:; |
2441 |
V151= cadr((V149)); |
if(!(endp_prop(cdr((V150))))){ |
2442 |
goto T1000; |
goto T1031;} |
2443 |
T1000:; |
V151= car((V150)); |
2444 |
{object V152; |
V152= VV[17]; |
2445 |
V152= (((V150))==(VV[17])?Ct:Cnil); |
goto T1023; |
2446 |
if(((V152))==Cnil){ |
goto T1031; |
2447 |
goto T1019;} |
T1031:; |
2448 |
goto T1016; |
V151= car((V150)); |
2449 |
goto T1019; |
V152= cadr((V150)); |
2450 |
T1019:; |
goto T1023; |
2451 |
if(!(type_of((V150))==t_cons)){ |
T1023:; |
2452 |
goto T1022;} |
{object V153; |
2453 |
if(!(number_compare((V148),car((V150)))<=0)){ |
V153= (((V151))==(VV[17])?Ct:Cnil); |
2454 |
goto T1016;} |
if(((V153))==Cnil){ |
2455 |
{object V153 = Cnil; |
goto T1042;} |
2456 |
VMR23(V153)} |
goto T1039; |
2457 |
goto T1022; |
goto T1042; |
2458 |
T1022:; |
T1042:; |
|
{object V154; |
|
|
if(!(number_compare((V148),(V150))<0)){ |
|
|
goto T1028;} |
|
|
{object V155 = Cnil; |
|
|
VMR23(V155)} |
|
|
goto T1028; |
|
|
T1028:; |
|
|
V154= Cnil; |
|
|
if(((V154))==Cnil){ |
|
|
goto T1016;}}} |
|
|
goto T1016; |
|
|
T1016:; |
|
|
{object V156; |
|
|
V156= (((V151))==(VV[17])?Ct:Cnil); |
|
|
if(((V156))==Cnil){ |
|
|
goto T1035;} |
|
|
goto T1032; |
|
|
goto T1035; |
|
|
T1035:; |
|
2459 |
if(!(type_of((V151))==t_cons)){ |
if(!(type_of((V151))==t_cons)){ |
2460 |
goto T1038;} |
goto T1045;} |
2461 |
if(!(number_compare((V148),car((V151)))>=0)){ |
if(!(number_compare((V149),car((V151)))<=0)){ |
2462 |
goto T1032;} |
goto T1039;} |
2463 |
{object V157 = Cnil; |
{object V154 = Cnil; |
2464 |
VMR23(V157)} |
VMR23(V154)} |
2465 |
goto T1038; |
goto T1045; |
2466 |
T1038:; |
T1045:; |
2467 |
{object V158; |
{object V155; |
2468 |
if(!(number_compare((V148),(V151))>0)){ |
if(!(number_compare((V149),(V151))<0)){ |
2469 |
goto T1044;} |
goto T1051;} |
2470 |
{object V159 = Cnil; |
{object V156 = Cnil; |
2471 |
VMR23(V159)} |
VMR23(V156)} |
2472 |
goto T1044; |
goto T1051; |
2473 |
T1044:; |
T1051:; |
2474 |
V158= Cnil; |
V155= Cnil; |
2475 |
if(((V158))==Cnil){ |
if(((V155))==Cnil){ |
2476 |
goto T1032;}}} |
goto T1039;}}} |
2477 |
goto T1032; |
goto T1039; |
2478 |
T1032:; |
T1039:; |
2479 |
{object V160 = Ct; |
{object V157; |
2480 |
VMR23(V160)}} |
V157= (((V152))==(VV[17])?Ct:Cnil); |
2481 |
|
if(((V157))==Cnil){ |
2482 |
|
goto T1058;} |
2483 |
|
goto T1055; |
2484 |
|
goto T1058; |
2485 |
|
T1058:; |
2486 |
|
if(!(type_of((V152))==t_cons)){ |
2487 |
|
goto T1061;} |
2488 |
|
if(!(number_compare((V149),car((V152)))>=0)){ |
2489 |
|
goto T1055;} |
2490 |
|
{object V158 = Cnil; |
2491 |
|
VMR23(V158)} |
2492 |
|
goto T1061; |
2493 |
|
T1061:; |
2494 |
|
{object V159; |
2495 |
|
if(!(number_compare((V149),(V152))>0)){ |
2496 |
|
goto T1067;} |
2497 |
|
{object V160 = Cnil; |
2498 |
|
VMR23(V160)} |
2499 |
|
goto T1067; |
2500 |
|
T1067:; |
2501 |
|
V159= Cnil; |
2502 |
|
if(((V159))==Cnil){ |
2503 |
|
goto T1055;}}} |
2504 |
|
goto T1055; |
2505 |
|
T1055:; |
2506 |
|
{object V161 = Ct; |
2507 |
|
VMR23(V161)}} |
2508 |
return Cnil; |
return Cnil; |
2509 |
} |
} |
2510 |
/* local entry for function MATCH-DIMENSIONS */ |
/* local entry for function MATCH-DIMENSIONS */ |
2511 |
|
|
2512 |
static object LI24(V163,V164) |
static object LI24(V164,V165) |
2513 |
|
|
2514 |
object V163;register object V164; |
object V164;register object V165; |
2515 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
2516 |
goto TTL; |
goto TTL; |
2517 |
TTL:; |
TTL:; |
2518 |
if(((V163))!=Cnil){ |
if(((V164))!=Cnil){ |
2519 |
goto T1049;} |
goto T1072;} |
2520 |
{object V165 = (((V164))==Cnil?Ct:Cnil); |
{object V166 = (((V165))==Cnil?Ct:Cnil); |
|
VMR24(V165)} |
|
|
goto T1049; |
|
|
T1049:; |
|
|
if(!((car((V164)))==(VV[17]))){ |
|
|
goto T1053;} |
|
|
goto T1051; |
|
|
goto T1053; |
|
|
T1053:; |
|
|
if(eql(car((V163)),car((V164)))){ |
|
|
goto T1051;} |
|
|
{object V166 = Cnil; |
|
2521 |
VMR24(V166)} |
VMR24(V166)} |
2522 |
goto T1051; |
goto T1072; |
2523 |
T1051:; |
T1072:; |
2524 |
V163= cdr((V163)); |
if(!((car((V165)))==(VV[17]))){ |
2525 |
|
goto T1076;} |
2526 |
|
goto T1074; |
2527 |
|
goto T1076; |
2528 |
|
T1076:; |
2529 |
|
if(eql(car((V164)),car((V165)))){ |
2530 |
|
goto T1074;} |
2531 |
|
{object V167 = Cnil; |
2532 |
|
VMR24(V167)} |
2533 |
|
goto T1074; |
2534 |
|
T1074:; |
2535 |
V164= cdr((V164)); |
V164= cdr((V164)); |
2536 |
|
V165= cdr((V165)); |
2537 |
goto TTL; |
goto TTL; |
2538 |
return Cnil; |
return Cnil; |
2539 |
} |
} |
2540 |
/* local entry for function COERCE */ |
/* local entry for function COERCE */ |
2541 |
|
|
2542 |
static object LI25(V169,V170) |
static object LI25(V170,V171) |
2543 |
|
|
2544 |
register object V169;object V170; |
register object V170;object V171; |
2545 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
2546 |
goto TTL; |
goto TTL; |
2547 |
TTL:; |
TTL:; |
2548 |
base[0]= (V169); |
base[0]= (V170); |
2549 |
base[1]= (V170); |
base[1]= (V171); |
2550 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2551 |
(void) (*Lnk77)(); |
(void) (*Lnk80)(); |
2552 |
vs_top=sup; |
vs_top=sup; |
2553 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2554 |
goto T1058;} |
goto T1081;} |
2555 |
{object V171 = (V169); |
{object V172 = (V170); |
2556 |
VMR25(V171)} |
VMR25(V172)} |
2557 |
goto T1058; |
goto T1081; |
2558 |
T1058:; |
T1081:; |
2559 |
V170= (*(LnkLI95))((V170)); |
V171= (*(LnkLI99))((V171)); |
2560 |
{object V172= car((V170)); |
{object V173= car((V171)); |
2561 |
if((V172!= VV[41]))goto T1065; |
if((V173!= VV[41]))goto T1088; |
2562 |
{register object V173; |
{register object V174; |
2563 |
register object V174; |
register object V175; |
2564 |
V175 = make_fixnum((long)length((V169))); |
V176 = make_fixnum((long)length((V170))); |
2565 |
V174= one_minus(V175); |
V175= one_minus(V176); |
2566 |
V173= Cnil; |
V174= Cnil; |
|
goto T1068; |
|
|
T1068:; |
|
|
if(!(number_compare((V174),small_fixnum(0))<0)){ |
|
|
goto T1069;} |
|
|
{object V176 = (V173); |
|
|
VMR25(V176)} |
|
|
goto T1069; |
|
|
T1069:; |
|
|
V177= elt((V169),fixint((V174))); |
|
|
V173= make_cons(/* INLINE-ARGS */V177,(V173)); |
|
|
V174= one_minus((V174)); |
|
|
goto T1068;} |
|
|
goto T1065; |
|
|
T1065:; |
|
|
if((V172!= VV[22]) |
|
|
&& (V172!= VV[26]))goto T1077; |
|
|
if(endp_prop(cdr((V170)))){ |
|
|
goto T1078;} |
|
|
if(endp_prop(cddr((V170)))){ |
|
|
goto T1078;} |
|
|
if((caddr((V170)))==(VV[17])){ |
|
|
goto T1078;} |
|
|
if(endp_prop(cdr(caddr((V170))))){ |
|
|
goto T1078;} |
|
|
base[0]= VV[67]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
goto T1078; |
|
|
T1078:; |
|
|
{register object V178; |
|
|
register object V179; |
|
|
register object V180; |
|
|
V181 = make_fixnum((long)length((V169))); |
|
|
V178= (VFUN_NARGS=2,(*(LnkLI100))((V170),V181)); |
|
|
V180= make_fixnum((long)length((V169))); |
|
|
V179= small_fixnum(0); |
|
2567 |
goto T1091; |
goto T1091; |
2568 |
T1091:; |
T1091:; |
2569 |
if(!(number_compare((V179),(V180))>=0)){ |
if(!(number_compare((V175),small_fixnum(0))<0)){ |
2570 |
goto T1092;} |
goto T1092;} |
2571 |
{object V182 = (V178); |
{object V177 = (V174); |
2572 |
VMR25(V182)} |
VMR25(V177)} |
2573 |
goto T1092; |
goto T1092; |
2574 |
T1092:; |
T1092:; |
2575 |
V183= elt((V169),fixint((V179))); |
V178= elt((V170),fixint((V175))); |
2576 |
(void)(elt_set((V178),fixint((V179)),/* INLINE-ARGS */V183)); |
V174= make_cons(/* INLINE-ARGS */V178,(V174)); |
2577 |
V179= one_plus((V179)); |
V175= one_minus((V175)); |
2578 |
goto T1091;} |
goto T1091;} |
2579 |
goto T1077; |
goto T1088; |
2580 |
T1077:; |
T1088:; |
2581 |
if((V172!= VV[99]))goto T1100; |
if((V173!= VV[22]) |
2582 |
base[0]= (V169); |
&& (V173!= VV[26]))goto T1100; |
2583 |
|
if(endp_prop(cdr((V171)))){ |
2584 |
|
goto T1101;} |
2585 |
|
if(endp_prop(cddr((V171)))){ |
2586 |
|
goto T1101;} |
2587 |
|
if((caddr((V171)))==(VV[17])){ |
2588 |
|
goto T1101;} |
2589 |
|
if(endp_prop(cdr(caddr((V171))))){ |
2590 |
|
goto T1101;} |
2591 |
|
base[0]= VV[70]; |
2592 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2593 |
Lcharacter(); |
Lerror(); |
2594 |
vs_top=sup; |
vs_top=sup; |
2595 |
{object V184 = vs_base[0]; |
goto T1101; |
2596 |
VMR25(V184)} |
T1101:; |
2597 |
|
{register object V179; |
2598 |
|
register object V180; |
2599 |
|
register object V181; |
2600 |
|
V182 = make_fixnum((long)length((V170))); |
2601 |
|
V179= (VFUN_NARGS=2,(*(LnkLI104))((V171),V182)); |
2602 |
|
V181= make_fixnum((long)length((V170))); |
2603 |
|
V180= small_fixnum(0); |
2604 |
|
goto T1114; |
2605 |
|
T1114:; |
2606 |
|
if(!(number_compare((V180),(V181))>=0)){ |
2607 |
|
goto T1115;} |
2608 |
|
{object V183 = (V179); |
2609 |
|
VMR25(V183)} |
2610 |
|
goto T1115; |
2611 |
|
T1115:; |
2612 |
|
V184= elt((V170),fixint((V180))); |
2613 |
|
(void)(elt_set((V179),fixint((V180)),/* INLINE-ARGS */V184)); |
2614 |
|
V180= one_plus((V180)); |
2615 |
|
goto T1114;} |
2616 |
goto T1100; |
goto T1100; |
2617 |
T1100:; |
T1100:; |
2618 |
if((V172!= VV[63]))goto T1102; |
if((V173!= VV[103]))goto T1123; |
2619 |
base[0]= (V169); |
base[0]= (V170); |
2620 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2621 |
Lfloat(); |
Lcharacter(); |
2622 |
vs_top=sup; |
vs_top=sup; |
2623 |
{object V185 = vs_base[0]; |
{object V185 = vs_base[0]; |
2624 |
VMR25(V185)} |
VMR25(V185)} |
2625 |
goto T1102; |
goto T1123; |
2626 |
T1102:; |
T1123:; |
2627 |
if((V172!= VV[31]))goto T1104; |
if((V173!= VV[66]))goto T1125; |
2628 |
base[0]= (V169); |
base[0]= (V170); |
2629 |
base[1]= VV[68]; |
vs_top=(vs_base=base+0)+1; |
|
vs_top=(vs_base=base+0)+2; |
|
2630 |
Lfloat(); |
Lfloat(); |
2631 |
vs_top=sup; |
vs_top=sup; |
2632 |
{object V186 = vs_base[0]; |
{object V186 = vs_base[0]; |
2633 |
VMR25(V186)} |
VMR25(V186)} |
2634 |
goto T1104; |
goto T1125; |
2635 |
T1104:; |
T1125:; |
2636 |
if((V172!= VV[83]) |
if((V173!= VV[31]))goto T1127; |
2637 |
&& (V172!= VV[84]) |
base[0]= (V170); |
2638 |
&& (V172!= VV[32]))goto T1107; |
base[1]= VV[71]; |
|
base[0]= (V169); |
|
|
base[1]= VV[69]; |
|
2639 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2640 |
Lfloat(); |
Lfloat(); |
2641 |
vs_top=sup; |
vs_top=sup; |
2642 |
{object V187 = vs_base[0]; |
{object V187 = vs_base[0]; |
2643 |
VMR25(V187)} |
VMR25(V187)} |
2644 |
goto T1107; |
goto T1127; |
2645 |
T1107:; |
T1127:; |
2646 |
if((V172!= VV[66]))goto T1110; |
if((V173!= VV[87]) |
2647 |
if((cdr((V170)))==Cnil){ |
&& (V173!= VV[88]) |
2648 |
goto T1111;} |
&& (V173!= VV[32]))goto T1130; |
2649 |
if((cadr((V170)))==Cnil){ |
base[0]= (V170); |
2650 |
goto T1111;} |
base[1]= VV[72]; |
2651 |
if(!((cadr((V170)))==(VV[17]))){ |
vs_top=(vs_base=base+0)+2; |
2652 |
goto T1112;} |
Lfloat(); |
2653 |
goto T1111; |
vs_top=sup; |
2654 |
T1111:; |
{object V188 = vs_base[0]; |
2655 |
base[1]= (V169); |
VMR25(V188)} |
2656 |
|
goto T1130; |
2657 |
|
T1130:; |
2658 |
|
if((V173!= VV[69]))goto T1133; |
2659 |
|
if((cdr((V171)))==Cnil){ |
2660 |
|
goto T1134;} |
2661 |
|
if((cadr((V171)))==Cnil){ |
2662 |
|
goto T1134;} |
2663 |
|
if(!((cadr((V171)))==(VV[17]))){ |
2664 |
|
goto T1135;} |
2665 |
|
goto T1134; |
2666 |
|
T1134:; |
2667 |
|
base[1]= (V170); |
2668 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2669 |
Lrealpart(); |
Lrealpart(); |
2670 |
vs_top=sup; |
vs_top=sup; |
2671 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2672 |
base[2]= (V169); |
base[2]= (V170); |
2673 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2674 |
Limagpart(); |
Limagpart(); |
2675 |
vs_top=sup; |
vs_top=sup; |
2677 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2678 |
Lcomplex(); |
Lcomplex(); |
2679 |
vs_top=sup; |
vs_top=sup; |
2680 |
{object V188 = vs_base[0]; |
{object V189 = vs_base[0]; |
2681 |
VMR25(V188)} |
VMR25(V189)} |
2682 |
goto T1112; |
goto T1135; |
2683 |
T1112:; |
T1135:; |
2684 |
base[1]= (V169); |
base[1]= (V170); |
2685 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2686 |
Lrealpart(); |
Lrealpart(); |
2687 |
vs_top=sup; |
vs_top=sup; |
2688 |
V189= vs_base[0]; |
V190= vs_base[0]; |
2689 |
base[0]= (*(LnkLI101))(V189,cadr((V170))); |
base[0]= (*(LnkLI105))(V190,cadr((V171))); |
2690 |
base[2]= (V169); |
base[2]= (V170); |
2691 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2692 |
Limagpart(); |
Limagpart(); |
2693 |
vs_top=sup; |
vs_top=sup; |
2694 |
V190= vs_base[0]; |
V191= vs_base[0]; |
2695 |
base[1]= (*(LnkLI101))(V190,cadr((V170))); |
base[1]= (*(LnkLI105))(V191,cadr((V171))); |
2696 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2697 |
Lcomplex(); |
Lcomplex(); |
2698 |
vs_top=sup; |
vs_top=sup; |
2699 |
{object V191 = vs_base[0]; |
{object V192 = vs_base[0]; |
2700 |
VMR25(V191)} |
VMR25(V192)} |
2701 |
goto T1110; |
goto T1133; |
2702 |
T1110:; |
T1133:; |
2703 |
base[0]= VV[70]; |
base[0]= VV[73]; |
2704 |
base[1]= (V169); |
base[1]= (V170); |
2705 |
base[2]= (V170); |
base[2]= (V171); |
2706 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2707 |
Lerror(); |
Lerror(); |
2708 |
vs_top=sup; |
vs_top=sup; |
2709 |
{object V192 = vs_base[0]; |
{object V193 = vs_base[0]; |
2710 |
VMR25(V192)}} |
VMR25(V193)}} |
2711 |
base[0]=base[0]; |
base[0]=base[0]; |
2712 |
return Cnil; |
return Cnil; |
2713 |
} |
} |
2717 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2718 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
2719 |
vs_reserve(VM26); |
vs_reserve(VM26); |
2720 |
{object V193; |
{object V194; |
2721 |
object V194; |
object V195; |
2722 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
2723 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
2724 |
V193=(base[0]); |
V194=(base[0]); |
2725 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
2726 |
if(vs_base>=vs_top){vs_top=sup;goto T1131;} |
if(vs_base>=vs_top){vs_top=sup;goto T1154;} |
2727 |
V194=(base[1]); |
V195=(base[1]); |
2728 |
vs_top=sup; |
vs_top=sup; |
2729 |
goto T1132; |
goto T1155; |
2730 |
goto T1131; |
goto T1154; |
2731 |
T1131:; |
T1154:; |
2732 |
V194= Cnil; |
V195= Cnil; |
2733 |
goto T1132; |
goto T1155; |
2734 |
T1132:; |
T1155:; |
2735 |
if(symbol_value(VV[71])==Cnil){ |
if(symbol_value(VV[74])==Cnil){ |
2736 |
base[2]= Cnil; |
base[2]= Cnil; |
2737 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2738 |
return;} |
return;} |
2739 |
if(!(((eql((V193),symbol_value(VV[71]))?Ct:Cnil))==Cnil)){ |
if(!(((eql((V194),symbol_value(VV[74]))?Ct:Cnil))==Cnil)){ |
2740 |
goto T1136;} |
goto T1159;} |
2741 |
goto T1134; |
goto T1157; |
2742 |
goto T1136; |
goto T1159; |
2743 |
T1136:; |
T1159:; |
2744 |
if(((eql((V194),symbol_value(VV[72]))?Ct:Cnil))==Cnil){ |
if(((eql((V195),symbol_value(VV[75]))?Ct:Cnil))==Cnil){ |
2745 |
goto T1134;} |
goto T1157;} |
2746 |
base[2]= Cnil; |
base[2]= Cnil; |
2747 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2748 |
return; |
return; |
2749 |
goto T1134; |
goto T1157; |
2750 |
T1134:; |
T1157:; |
2751 |
if(symbol_value(VV[73])==Cnil){ |
if(symbol_value(VV[76])==Cnil){ |
2752 |
base[2]= Cnil; |
base[2]= Cnil; |
2753 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2754 |
return;} |
return;} |
2755 |
base[2]= Ct; |
base[2]= Ct; |
2756 |
base[3]= VV[74]; |
base[3]= VV[77]; |
2757 |
base[4]= (V194); |
base[4]= (V195); |
2758 |
base[5]= (V193); |
base[5]= (V194); |
2759 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
2760 |
Lformat(); |
Lformat(); |
2761 |
return; |
return; |
2762 |
} |
} |
2763 |
} |
} |
2764 |
static object LnkTLI101(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[101],(void **)&LnkLI101,2,ap);va_end(ap);return V1;} /* COERCE */ |
static object LnkTLI105(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[105],(void **)&LnkLI105,2,ap);va_end(ap);return V1;} /* COERCE */ |
2765 |
static object LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[100],(void **)&LnkLI100,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
static object LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[104],(void **)&LnkLI104,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
2766 |
static object LnkTLI98(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[98],(void **)&LnkLI98,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */ |
static object LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[102],(void **)&LnkLI102,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */ |
2767 |
static object LnkTLI97(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[97],(void **)&LnkLI97,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */ |
static object LnkTLI101(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[101],(void **)&LnkLI101,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */ |
2768 |
static void LnkT96(){ call_or_link(VV[96],(void **)&Lnk96);} /* SUBTYPEP */ |
static void LnkT100(){ call_or_link(VV[100],(void **)&Lnk100);} /* SUBTYPEP */ |
2769 |
static object LnkTLI95(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[95],(void **)&LnkLI95,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
static object LnkTLI99(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[99],(void **)&LnkLI99,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
2770 |
static void LnkT94(){ call_or_link(VV[94],(void **)&Lnk94);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* STRUCTURE-SUBTYPE-P */ |
2771 |
static object LnkTLI93(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[93],(void **)&LnkLI93,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI97(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[97],(void **)&LnkLI97,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
2772 |
static object LnkTLI92(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[92],(void **)&LnkLI92,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */ |
static object LnkTLI96(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[96],(void **)&LnkLI96,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */ |
2773 |
static object LnkTLI87(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[87],(void **)&LnkLI87,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
static object LnkTLI91(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[91],(void **)&LnkLI91,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
2774 |
static object LnkTLI86(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[86],(void **)&LnkLI86,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */ |
static object LnkTLI90(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[90],(void **)&LnkLI90,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */ |
2775 |
static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* REALP */ |
static void LnkT86(){ call_or_link(VV[86],(void **)&Lnk86);} /* REALP */ |
2776 |
static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* RATIONALP */ |
static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* RATIONALP */ |
2777 |
static object LnkTLI80(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[80],(void **)&LnkLI80,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */ |
static object LnkTLI84(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[84],(void **)&LnkLI84,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */ |
2778 |
static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* TYPEP */ |
static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* TYPEP */ |
2779 |
static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* ARRAY-HAS-FILL-POINTER-P */ |
2780 |
static object LnkTLI75(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[75],(void **)&LnkLI75,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */ |
static object LnkTLI78(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[78],(void **)&LnkLI78,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */ |
2781 |
|
|
2782 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2783 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |