/[gcl]/gcl/lsp/predlib.c
ViewVC logotype

Diff of /gcl/lsp/predlib.c

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

revision 1.20 by camm, Thu Feb 27 00:07:48 2003 UTC revision 1.20.4.1 by camm, Wed Jul 16 02:02:50 2003 UTC
# Line 564  static void L24() Line 564  static void L24()
564          vs_reserve(VM24);          vs_reserve(VM24);
565          {register object V44;          {register object V44;
566          register object V45;          register object V45;
567          check_arg(2);          object V46;
568            if(vs_top-vs_base<2) too_few_arguments();
569            if(vs_top-vs_base>3) too_many_arguments();
570          V44=(base[0]);          V44=(base[0]);
571          V45=(base[1]);          V45=(base[1]);
572          vs_top=sup;          vs_base=vs_base+2;
573          goto TTL;          if(vs_base>=vs_top){vs_top=sup;goto T91;}
574  TTL:;          V46=(base[2]);
575          {register object V46;          vs_top=sup;
576          register object V47;          goto T92;
577          object V48;          goto T91;
578    T91:;
579          V46= Cnil;          V46= Cnil;
580            goto T92;
581    T92:;
582            {register object V47;
583            register object V48;
584            object V49;
585          V47= Cnil;          V47= Cnil;
586          V48= Cnil;          V48= Cnil;
587          base[2]= (V45);          V49= Cnil;
588          vs_top=(vs_base=base+2)+1;          base[3]= (V45);
589            vs_top=(vs_base=base+3)+1;
590          (void) (*Lnk122)();          (void) (*Lnk122)();
591          vs_top=sup;          vs_top=sup;
592          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
593          goto T94;}          goto T97;}
594          base[3]= (V44);          base[4]= (V44);
595          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+4)+1;
596          (void) (*Lnk123)();          (void) (*Lnk123)();
597          vs_top=sup;          vs_top=sup;
598          base[2]= vs_base[0];          base[3]= vs_base[0];
599          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
600          (void) (*Lnk124)();          (void) (*Lnk124)();
601          vs_top=sup;          vs_top=sup;
602          V50= vs_base[0];          V51= vs_base[0];
603          {register object x= (V45),V49= V50;          {register object x= (V45),V50= V51;
604          while(!endp(V49))          while(!endp(V50))
605          if(eql(x,V49->c.c_car)){          if(eql(x,V50->c.c_car)){
606          goto T100;          goto T103;
607          }else V49=V49->c.c_cdr;          }else V50=V50->c.c_cdr;
608          goto T99;}          goto T102;}
609          goto T100;          goto T103;
610  T100:;  T103:;
611          base[2]= Ct;          base[3]= Ct;
612          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
613          return;          return;
614          goto T99;          goto T102;
615  T99:;  T102:;
616          base[2]= Cnil;          base[3]= Cnil;
617          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
618          return;          return;
619          goto T94;          goto T97;
620  T94:;  T97:;
621          if(!(type_of((V45))!=t_cons)){          if(!(type_of((V45))!=t_cons)){
622          goto T106;}          goto T109;}
623          V46= (V45);          V47= (V45);
624          V47= Cnil;          V48= Cnil;
625          goto T104;          goto T107;
626          goto T106;          goto T109;
627  T106:;  T109:;
628          V46= car((V45));          V47= car((V45));
629          V47= cdr((V45));          V48= cdr((V45));
630          goto T104;          goto T107;
631  T104:;  T107:;
632          if(!(((V46))==(VV[28]))){          if(!(((V47))==(VV[28]))){
633          goto T114;}          goto T117;}
634          V46= VV[29];          V47= VV[29];
635          goto T114;          goto T117;
636  T114:;  T117:;
637          {object V51;          {object V52;
638          V51= get((V46),VV[30],Cnil);          V52= get((V47),VV[30],Cnil);
639          if(((V51))==Cnil){          if(((V52))==Cnil){
640          goto T118;}          goto T121;}
641          base[2]= (V44);          base[3]= (V44);
642          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
643          super_funcall_no_event((V51));          super_funcall_no_event((V52));
644          return;}          return;}
645          goto T118;          goto T121;
646  T118:;  T121:;
647          {object V52= (V46);          {object V53= (V47);
648          if((V52!= VV[42]))goto T123;          if((V53!= VV[42]))goto T126;
649          {register object x= (V44),V53= (V47);          {register object x= (V44),V54= (V48);
650          while(!endp(V53))          while(!endp(V54))
651          if(eql(x,V53->c.c_car)){          if(eql(x,V54->c.c_car)){
652          base[2]= V53;          base[3]= V54;
653          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
654          return;          return;
655          }else V53=V53->c.c_cdr;          }else V54=V54->c.c_cdr;
656          base[2]= Cnil;          base[3]= Cnil;
657          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
658          return;}          return;}
659          goto T123;          goto T126;
660  T123:;  T126:;
661          if((V52!= VV[45]))goto T124;          if((V53!= VV[45]))goto T127;
662          base[2]= (V44);          base[3]= (V44);
663          base[3]= car((V47));          base[4]= car((V48));
664          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
665          (void) (*Lnk125)();          (void) (*Lnk125)();
666          vs_top=sup;          vs_top=sup;
667          V54= vs_base[0];          V55= vs_base[0];
668          base[2]= ((V54)==Cnil?Ct:Cnil);          base[3]= ((V55)==Cnil?Ct:Cnil);
669          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
670          return;          return;
671          goto T124;          goto T127;
672  T124:;  T127:;
673          if((V52!= VV[43]))goto T128;          if((V53!= VV[43]))goto T131;
674          {register object V55;          {register object V56;
675          V55= (V47);          V56= (V48);
676          goto T130;          goto T133;
677  T130:;  T133:;
678          if(((V55))!=Cnil){          if(((V56))!=Cnil){
679          goto T131;}          goto T134;}
680          base[2]= Cnil;          base[3]= Cnil;
681          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
682          return;          return;
683          goto T131;          goto T134;
684  T131:;  T134:;
685          base[2]= (V44);          base[3]= (V44);
686          base[3]= car((V55));          base[4]= car((V56));
687          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
688          (void) (*Lnk125)();          (void) (*Lnk125)();
689          vs_top=sup;          vs_top=sup;
690          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
691          goto T135;}          goto T138;}
692          base[2]= Ct;          base[3]= Ct;
693          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
694          return;          return;
695          goto T135;          goto T138;
696  T135:;  T138:;
697          V55= cdr((V55));          V56= cdr((V56));
698          goto T130;}          goto T133;}
699          goto T128;          goto T131;
700  T128:;  T131:;
701          if((V52!= VV[44]))goto T143;          if((V53!= VV[44]))goto T146;
702          {register object V56;          {register object V57;
703          V56= (V47);          V57= (V48);
704          goto T145;          goto T148;
705  T145:;  T148:;
706          if(((V56))!=Cnil){          if(((V57))!=Cnil){
707          goto T146;}          goto T149;}
708          base[2]= Ct;          base[3]= Ct;
709          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
710          return;          return;
711          goto T146;          goto T149;
712  T146:;  T149:;
713          base[2]= (V44);          base[3]= (V44);
714          base[3]= car((V56));          base[4]= car((V57));
715          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
716          (void) (*Lnk125)();          (void) (*Lnk125)();
717          vs_top=sup;          vs_top=sup;
718          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
719          goto T150;}          goto T153;}
720          base[2]= Cnil;          base[3]= Cnil;
         vs_top=(vs_base=base+2)+1;  
         return;  
         goto T150;  
 T150:;  
         V56= cdr((V56));  
         goto T145;}  
         goto T143;  
 T143:;  
         if((V52!= VV[41]))goto T158;  
         base[2]= car((V47));  
         base[3]= (V44);  
721          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
722          super_funcall_no_event(base[2]);          return;
723          return;          goto T153;
724          goto T158;  T153:;
725  T158:;          V57= cdr((V57));
726          if((V52!= Ct))goto T161;          goto T148;}
727          base[2]= Ct;          goto T146;
728          vs_top=(vs_base=base+2)+1;  T146:;
729            if((V53!= VV[41]))goto T161;
730            base[3]= car((V48));
731            base[4]= (V44);
732            vs_top=(vs_base=base+4)+1;
733            super_funcall_no_event(base[3]);
734          return;          return;
735          goto T161;          goto T161;
736  T161:;  T161:;
737          if((V52!= Cnil))goto T162;          if((V53!= Ct))goto T164;
738          base[2]= Cnil;          base[3]= Ct;
739          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
         return;  
         goto T162;  
 T162:;  
         if((V52!= VV[58]))goto T163;  
         if(!(((V44))==(Ct))){  
         goto T164;}  
         base[2]= Ct;  
         vs_top=(vs_base=base+2)+1;  
740          return;          return;
741          goto T164;          goto T164;
742  T164:;  T164:;
743          base[2]= (((V44))==(Cnil)?Ct:Cnil);          if((V53!= Cnil))goto T165;
744          vs_top=(vs_base=base+2)+1;          base[3]= Cnil;
745            vs_top=(vs_base=base+3)+1;
746          return;          return;
747          goto T163;          goto T165;
748  T163:;  T165:;
749          if((V52!= VV[31]))goto T166;          if((V53!= VV[58]))goto T166;
750          base[2]= (V44);          if(!(((V44))==(Ct))){
751          vs_top=(vs_base=base+2)+1;          goto T167;}
752          Ltype_of();          base[3]= Ct;
753          vs_top=sup;          vs_top=(vs_base=base+3)+1;
754          V57= vs_base[0];          return;
755          base[2]= ((V57)==(VV[31])?Ct:Cnil);          goto T167;
756          vs_top=(vs_base=base+2)+1;  T167:;
757            base[3]= (((V44))==(Cnil)?Ct:Cnil);
758            vs_top=(vs_base=base+3)+1;
759          return;          return;
760          goto T166;          goto T166;
761  T166:;  T166:;
762          if((V52!= VV[32]))goto T169;          if((V53!= VV[31]))goto T169;
763          base[2]= (V44);          base[3]= (V44);
764          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
765          Ltype_of();          Ltype_of();
766          vs_top=sup;          vs_top=sup;
767          V58= vs_base[0];          V58= vs_base[0];
768          base[2]= ((V58)==(VV[32])?Ct:Cnil);          base[3]= ((V58)==(VV[31])?Ct:Cnil);
769          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
770          return;          return;
771          goto T169;          goto T169;
772  T169:;  T169:;
773          if((V52!= VV[33]))goto T172;          if((V53!= VV[32]))goto T172;
774          base[2]= (V44);          base[3]= (V44);
775          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
776          Ltype_of();          Ltype_of();
777          vs_top=sup;          vs_top=sup;
778          V59= vs_base[0];          V59= vs_base[0];
779          base[2]= ((V59)==(VV[33])?Ct:Cnil);          base[3]= ((V59)==(VV[32])?Ct:Cnil);
780          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
781          return;          return;
782          goto T172;          goto T172;
783  T172:;  T172:;
784          if((V52!= VV[126]))goto T175;          if((V53!= VV[33]))goto T175;
785          if(type_of((V44))==t_character){          base[3]= (V44);
786          goto T176;}          vs_top=(vs_base=base+3)+1;
787          base[2]= Cnil;          Ltype_of();
788          vs_top=(vs_base=base+2)+1;          vs_top=sup;
789          return;          V60= vs_base[0];
790          goto T176;          base[3]= ((V60)==(VV[33])?Ct:Cnil);
791  T176:;          vs_top=(vs_base=base+3)+1;
         base[2]= (V44);  
         vs_top=(vs_base=base+2)+1;  
         Lstandard_char_p();  
792          return;          return;
793          goto T175;          goto T175;
794  T175:;  T175:;
795          if((V52!= VV[25])          if((V53!= VV[126]))goto T178;
         && (V52!= VV[24]))goto T179;  
796          if(type_of((V44))==t_character){          if(type_of((V44))==t_character){
797          goto T180;}          goto T179;}
798          base[2]= Cnil;          base[3]= Cnil;
799          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
         return;  
         goto T180;  
 T180:;  
         base[2]= (V44);  
         vs_top=(vs_base=base+2)+1;  
         Lstring_char_p();  
800          return;          return;
801          goto T179;          goto T179;
802  T179:;  T179:;
803          if((V52!= VV[13]))goto T183;          base[3]= (V44);
804          if(type_of((V44))==t_fixnum||type_of((V44))==t_bignum){          vs_top=(vs_base=base+3)+1;
805          goto T184;}          Lstandard_char_p();
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
806          return;          return;
807          goto T184;          goto T178;
808  T184:;  T178:;
809          base[2]= (*(LnkLI127))((V44),(V47));          if((V53!= VV[25])
810          vs_top=(vs_base=base+2)+1;          && (V53!= VV[24]))goto T182;
811            if(type_of((V44))==t_character){
812            goto T183;}
813            base[3]= Cnil;
814            vs_top=(vs_base=base+3)+1;
815          return;          return;
816          goto T183;          goto T183;
817  T183:;  T183:;
818          if((V52!= VV[105]))goto T186;          base[3]= (V44);
819          base[2]= (V44);          vs_top=(vs_base=base+3)+1;
820          vs_top=(vs_base=base+2)+1;          Lstring_char_p();
821          (void) (*Lnk128)();          return;
822          vs_top=sup;          goto T182;
823          if((vs_base[0])!=Cnil){  T182:;
824            if((V53!= VV[13]))goto T186;
825            if(type_of((V44))==t_fixnum||type_of((V44))==t_bignum){
826          goto T187;}          goto T187;}
827          base[2]= Cnil;          base[3]= Cnil;
828          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
829          return;          return;
830          goto T187;          goto T187;
831  T187:;  T187:;
832          base[2]= (*(LnkLI127))((V44),(V47));          base[3]= (*(LnkLI127))((V44),(V48));
833          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
834          return;          return;
835          goto T186;          goto T186;
836  T186:;  T186:;
837          if((V52!= VV[96]))goto T190;          if((V53!= VV[105]))goto T189;
838          base[2]= (V44);          base[3]= (V44);
839          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
840          (void) (*Lnk129)();          (void) (*Lnk128)();
841          vs_top=sup;          vs_top=sup;
842          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
843          goto T191;}          goto T190;}
844          base[2]= Cnil;          base[3]= Cnil;
845          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
         return;  
         goto T191;  
 T191:;  
         base[2]= (*(LnkLI127))((V44),(V47));  
         vs_top=(vs_base=base+2)+1;  
846          return;          return;
847          goto T190;          goto T190;
848  T190:;  T190:;
849          if((V52!= VV[106]))goto T194;          base[3]= (*(LnkLI127))((V44),(V48));
850          if(type_of((V44))==t_shortfloat||type_of((V44))==t_longfloat){          vs_top=(vs_base=base+3)+1;
         goto T195;}  
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
851          return;          return;
852          goto T195;          goto T189;
853  T195:;  T189:;
854          base[2]= (*(LnkLI127))((V44),(V47));          if((V53!= VV[96]))goto T193;
855          vs_top=(vs_base=base+2)+1;          base[3]= (V44);
856            vs_top=(vs_base=base+3)+1;
857            (void) (*Lnk129)();
858            vs_top=sup;
859            if((vs_base[0])!=Cnil){
860            goto T194;}
861            base[3]= Cnil;
862            vs_top=(vs_base=base+3)+1;
863          return;          return;
864          goto T194;          goto T194;
865  T194:;  T194:;
866          if((V52!= VV[34]))goto T197;          base[3]= (*(LnkLI127))((V44),(V48));
867          base[2]= (V44);          vs_top=(vs_base=base+3)+1;
868          vs_top=(vs_base=base+2)+1;          return;
869          Ltype_of();          goto T193;
870          vs_top=sup;  T193:;
871          V60= vs_base[0];          if((V53!= VV[106]))goto T197;
872          if((V60)==(VV[34])){          if(type_of((V44))==t_shortfloat||type_of((V44))==t_longfloat){
873          goto T198;}          goto T198;}
874          base[2]= Cnil;          base[3]= Cnil;
875          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
876          return;          return;
877          goto T198;          goto T198;
878  T198:;  T198:;
879          base[2]= (*(LnkLI127))((V44),(V47));          base[3]= (*(LnkLI127))((V44),(V48));
880          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
881          return;          return;
882          goto T197;          goto T197;
883  T197:;  T197:;
884          if((V52!= VV[130])          if((V53!= VV[34]))goto T200;
885          && (V52!= VV[131])          base[3]= (V44);
886          && (V52!= VV[35]))goto T202;          vs_top=(vs_base=base+3)+1;
         base[2]= (V44);  
         vs_top=(vs_base=base+2)+1;  
887          Ltype_of();          Ltype_of();
888          vs_top=sup;          vs_top=sup;
889          V61= vs_base[0];          V61= vs_base[0];
890          if((V61)==(VV[35])){          if((V61)==(VV[34])){
891          goto T203;}          goto T201;}
892          base[2]= Cnil;          base[3]= Cnil;
893          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
894          return;          return;
895          goto T203;          goto T201;
896  T203:;  T201:;
897          base[2]= (*(LnkLI127))((V44),(V47));          base[3]= (*(LnkLI127))((V44),(V48));
898          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
899          return;          return;
900          goto T202;          goto T200;
901  T202:;  T200:;
902          if((V52!= VV[109]))goto T207;          if((V53!= VV[130])
903          base[2]= (V44);          && (V53!= VV[131])
904          vs_top=(vs_base=base+2)+1;          && (V53!= VV[35]))goto T205;
905            base[3]= (V44);
906            vs_top=(vs_base=base+3)+1;
907            Ltype_of();
908            vs_top=sup;
909            V62= vs_base[0];
910            if((V62)==(VV[35])){
911            goto T206;}
912            base[3]= Cnil;
913            vs_top=(vs_base=base+3)+1;
914            return;
915            goto T206;
916    T206:;
917            base[3]= (*(LnkLI127))((V44),(V48));
918            vs_top=(vs_base=base+3)+1;
919            return;
920            goto T205;
921    T205:;
922            if((V53!= VV[109]))goto T210;
923            base[3]= (V44);
924            vs_top=(vs_base=base+3)+1;
925          Lcomplexp();          Lcomplexp();
926          vs_top=sup;          vs_top=sup;
927          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
         goto T208;}  
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
         return;  
         goto T208;  
 T208:;  
         if(!(((V47))==Cnil)){  
928          goto T211;}          goto T211;}
929          base[2]= Ct;          base[3]= Cnil;
930          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
931          return;          return;
932          goto T211;          goto T211;
933  T211:;  T211:;
934          base[3]= (V44);          if(!(((V48))==Cnil)){
935            goto T214;}
936            base[3]= Ct;
937          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
938            return;
939            goto T214;
940    T214:;
941            base[4]= (V44);
942            vs_top=(vs_base=base+4)+1;
943          Lrealpart();          Lrealpart();
944          vs_top=sup;          vs_top=sup;
945          base[2]= vs_base[0];          base[3]= vs_base[0];
946          base[3]= car((V47));          base[4]= car((V48));
947          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
948          (void) (*Lnk125)();          (void) (*Lnk125)();
949          vs_top=sup;          vs_top=sup;
950          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
951          goto T213;}          goto T216;}
952          base[2]= Cnil;          base[3]= Cnil;
953          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
954          return;          return;
955          goto T213;          goto T216;
956  T213:;  T216:;
957          base[2]= (V44);          base[4]= (V44);
958          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+4)+1;
959          Limagpart();          Limagpart();
960          vs_top=sup;          vs_top=sup;
961          V44= vs_base[0];          base[3]= vs_base[0];
962          V45= car((V47));          base[4]= car((V48));
963          goto TTL;          vs_top=(vs_base=base+3)+2;
964          goto T207;          (void) (*Lnk125)();
965  T207:;          return;
966          if((V52!= VV[49]))goto T222;          goto T210;
967    T210:;
968            if((V53!= VV[49]))goto T224;
969          if(!(type_of((V44))==t_cons||((V44))==Cnil)){          if(!(type_of((V44))==t_cons||((V44))==Cnil)){
970          goto T223;}          goto T225;}
971          base[2]= Ct;          base[3]= Ct;
972          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
973          return;          return;
974          goto T223;          goto T225;
975  T223:;  T225:;
976          base[2]= (type_of((V44))==t_vector||          base[3]= (type_of((V44))==t_vector||
977  type_of((V44))==t_string||  type_of((V44))==t_string||
978  type_of((V44))==t_bitvector?Ct:Cnil);  type_of((V44))==t_bitvector?Ct:Cnil);
979          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
980          return;          return;
981          goto T222;          goto T224;
982  T222:;  T224:;
983          if((V52!= VV[132])          if((V53!= VV[132])
984          && (V52!= VV[133]))goto T225;          && (V53!= VV[133]))goto T227;
985          if(type_of((V44))==t_string){          if(type_of((V44))==t_string){
         goto T226;}  
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
         return;  
         goto T226;  
 T226:;  
         if(!(endp_prop((V47)))){  
986          goto T228;}          goto T228;}
987          base[2]= Ct;          base[3]= Cnil;
988          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
989          return;          return;
990          goto T228;          goto T228;
991  T228:;  T228:;
992          V62= (*(LnkLI135))((V44));          if(!(endp_prop((V48)))){
993          base[2]= (*(LnkLI134))(/* INLINE-ARGS */V62,(V47));          goto T230;}
994          vs_top=(vs_base=base+2)+1;          base[3]= Ct;
995            vs_top=(vs_base=base+3)+1;
996          return;          return;
997          goto T225;          goto T230;
998  T225:;  T230:;
999          if((V52!= VV[136]))goto T230;          V63= (*(LnkLI135))((V44));
1000          if((type_of((V44))==t_bitvector)){          base[3]= (*(LnkLI134))(/* INLINE-ARGS */V63,(V48));
1001          goto T231;}          vs_top=(vs_base=base+3)+1;
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
1002          return;          return;
1003          goto T231;          goto T227;
1004  T231:;  T227:;
1005          if(!(endp_prop((V47)))){          if((V53!= VV[136]))goto T232;
1006            if((type_of((V44))==t_bitvector)){
1007          goto T233;}          goto T233;}
1008          base[2]= Ct;          base[3]= Cnil;
1009          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1010          return;          return;
1011          goto T233;          goto T233;
1012  T233:;  T233:;
1013          V63= (*(LnkLI135))((V44));          if(!(endp_prop((V48)))){
1014          base[2]= (*(LnkLI134))(/* INLINE-ARGS */V63,(V47));          goto T235;}
1015          vs_top=(vs_base=base+2)+1;          base[3]= Ct;
1016            vs_top=(vs_base=base+3)+1;
1017          return;          return;
1018          goto T230;          goto T235;
1019  T230:;  T235:;
1020          if((V52!= VV[137])          V64= (*(LnkLI135))((V44));
1021          && (V52!= VV[138]))goto T235;          base[3]= (*(LnkLI134))(/* INLINE-ARGS */V64,(V48));
1022          base[2]= (V44);          vs_top=(vs_base=base+3)+1;
1023          vs_top=(vs_base=base+2)+1;          return;
1024            goto T232;
1025    T232:;
1026            if((V53!= VV[137])
1027            && (V53!= VV[138]))goto T237;
1028            base[3]= (V44);
1029            vs_top=(vs_base=base+3)+1;
1030          Lsimple_string_p();          Lsimple_string_p();
1031          vs_top=sup;          vs_top=sup;
1032          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1033          goto T236;}          goto T238;}
1034          base[2]= Cnil;          base[3]= Cnil;
1035          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1036          return;          return;
1037          goto T236;          goto T238;
1038  T236:;  T238:;
1039          if(!(endp_prop((V47)))){          if(!(endp_prop((V48)))){
1040          goto T239;}          goto T241;}
1041          base[2]= Ct;          base[3]= Ct;
1042          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1043          return;          return;
1044          goto T239;          goto T241;
1045  T239:;  T241:;
1046          V64= (*(LnkLI135))((V44));          V65= (*(LnkLI135))((V44));
1047          base[2]= (*(LnkLI134))(/* INLINE-ARGS */V64,(V47));          base[3]= (*(LnkLI134))(/* INLINE-ARGS */V65,(V48));
1048          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1049          return;          return;
1050          goto T235;          goto T237;
1051  T235:;  T237:;
1052          if((V52!= VV[139]))goto T241;          if((V53!= VV[139]))goto T243;
1053          base[2]= (V44);          base[3]= (V44);
1054          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1055          Lsimple_bit_vector_p();          Lsimple_bit_vector_p();
1056          vs_top=sup;          vs_top=sup;
1057          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1058          goto T242;}          goto T244;}
1059          base[2]= Cnil;          base[3]= Cnil;
1060          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1061          return;          return;
1062          goto T242;          goto T244;
1063  T242:;  T244:;
1064          if(!(endp_prop((V47)))){          if(!(endp_prop((V48)))){
1065          goto T245;}          goto T247;}
1066          base[2]= Ct;          base[3]= Ct;
1067          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1068          return;          return;
1069          goto T245;          goto T247;
1070  T245:;  T247:;
1071          V65= (*(LnkLI135))((V44));          V66= (*(LnkLI135))((V44));
1072          base[2]= (*(LnkLI134))(/* INLINE-ARGS */V65,(V47));          base[3]= (*(LnkLI134))(/* INLINE-ARGS */V66,(V48));
1073          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1074          return;          return;
1075          goto T241;          goto T243;
1076  T241:;  T243:;
1077          if((V52!= VV[140]))goto T247;          if((V53!= VV[140]))goto T249;
1078          base[2]= (V44);          base[3]= (V44);
1079          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1080          Lsimple_vector_p();          Lsimple_vector_p();
1081          vs_top=sup;          vs_top=sup;
1082          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1083          goto T248;}          goto T250;}
1084          base[2]= Cnil;          base[3]= Cnil;
1085          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1086          return;          return;
1087          goto T248;          goto T250;
1088  T248:;  T250:;
1089          if(!(endp_prop((V47)))){          if(!(endp_prop((V48)))){
         goto T253;}  
         goto T251;  
         goto T253;  
 T253:;  
         if(!((car((V47)))==(VV[17]))){  
1090          goto T255;}          goto T255;}
1091          goto T251;          goto T253;
1092          goto T255;          goto T255;
1093  T255:;{object V66;  T255:;
1094          if((car((V47)))==(Ct)){          if(!((car((V48)))==(VV[17]))){
1095          goto T259;}          goto T257;}
1096          V66= Cnil;          goto T253;
1097          goto T258;          goto T257;
1098          goto T259;  T257:;{object V67;
1099  T259:;          if((car((V48)))==(Ct)){
         if(((type_of((V44))==t_string?Ct:Cnil))==Cnil){  
1100          goto T261;}          goto T261;}
1101          V66= Cnil;          V67= Cnil;
1102          goto T258;          goto T260;
1103          goto T261;          goto T261;
1104  T261:;  T261:;
1105          V66= ((((type_of((V44))==t_bitvector)?Ct:Cnil))==Cnil?Ct:Cnil);          if(((type_of((V44))==t_string?Ct:Cnil))==Cnil){
1106          goto T258;          goto T263;}
1107  T258:;          V67= Cnil;
1108          if(V66==Cnil)goto T257;          goto T260;
1109          if((V66)!=Cnil){          goto T263;
1110          goto T251;}  T263:;
1111          goto T252;          V67= ((((type_of((V44))==t_bitvector)?Ct:Cnil))==Cnil?Ct:Cnil);
1112          goto T257;          goto T260;
1113  T257:;}  T260:;
1114          base[2]= (V44);          if(V67==Cnil)goto T259;
1115          vs_top=(vs_base=base+2)+1;          if((V67)!=Cnil){
1116            goto T253;}
1117            goto T254;
1118            goto T259;
1119    T259:;}
1120            base[3]= (V44);
1121            vs_top=(vs_base=base+3)+1;
1122          Larray_element_type();          Larray_element_type();
1123          vs_top=sup;          vs_top=sup;
1124          V67= vs_base[0];          V68= vs_base[0];
1125          V68= (*(LnkLI141))(car((V47)));          V69= (*(LnkLI141))(car((V48)));
1126          if(equal(V67,/* INLINE-ARGS */V68)){          if(equal(V68,/* INLINE-ARGS */V69)){
1127          goto T251;}          goto T253;}
1128          goto T252;          goto T254;
1129  T252:;  T254:;
1130          base[2]= Cnil;          base[3]= Cnil;
1131          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1132          return;          return;
1133          goto T251;          goto T253;
1134  T251:;  T253:;
1135          if(!(endp_prop(cdr((V47))))){          if(!(endp_prop(cdr((V48))))){
1136          goto T265;}          goto T267;}
1137          base[2]= Ct;          base[3]= Ct;
1138          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1139          return;          return;
1140          goto T265;          goto T267;
1141  T265:;  T267:;
1142          V69= (*(LnkLI135))((V44));          V70= (*(LnkLI135))((V44));
1143          base[2]= (*(LnkLI134))(/* INLINE-ARGS */V69,cdr((V47)));          base[3]= (*(LnkLI134))(/* INLINE-ARGS */V70,cdr((V48)));
1144          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1145          return;          return;
1146          goto T247;          goto T249;
1147  T247:;  T249:;
1148          if((V52!= VV[23]))goto T267;          if((V53!= VV[23]))goto T269;
1149          if(type_of((V44))==t_vector||          if(type_of((V44))==t_vector||
1150  type_of((V44))==t_string||  type_of((V44))==t_string||
1151  type_of((V44))==t_bitvector){  type_of((V44))==t_bitvector){
1152          goto T268;}          goto T270;}
1153          base[2]= Cnil;          base[3]= Cnil;
1154          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1155          return;          return;
         goto T268;  
 T268:;  
         if(!(endp_prop((V47)))){  
         goto T272;}  
1156          goto T270;          goto T270;
1157          goto T272;  T270:;
1158  T272:;          if(!(endp_prop((V48)))){
         if(!((car((V47)))==(VV[17]))){  
1159          goto T274;}          goto T274;}
1160          goto T270;          goto T272;
1161          goto T274;          goto T274;
1162  T274:;{object V70;  T274:;
1163          if((car((V47)))==(Ct)){          if(!((car((V48)))==(VV[17]))){
1164          goto T278;}          goto T276;}
1165          V70= Cnil;          goto T272;
1166          goto T277;          goto T276;
1167          goto T278;  T276:;{object V71;
1168  T278:;          if((car((V48)))==(Ct)){
         if(((type_of((V44))==t_string?Ct:Cnil))==Cnil){  
1169          goto T280;}          goto T280;}
1170          V70= Cnil;          V71= Cnil;
1171          goto T277;          goto T279;
1172          goto T280;          goto T280;
1173  T280:;  T280:;
1174          V70= ((((type_of((V44))==t_bitvector)?Ct:Cnil))==Cnil?Ct:Cnil);          if(((type_of((V44))==t_string?Ct:Cnil))==Cnil){
1175          goto T277;          goto T282;}
1176  T277:;          V71= Cnil;
1177          if(V70==Cnil)goto T276;          goto T279;
1178          if((V70)!=Cnil){          goto T282;
1179          goto T270;}  T282:;
1180          goto T271;          V71= ((((type_of((V44))==t_bitvector)?Ct:Cnil))==Cnil?Ct:Cnil);
1181          goto T276;          goto T279;
1182  T276:;}  T279:;
1183          base[2]= (V44);          if(V71==Cnil)goto T278;
1184          vs_top=(vs_base=base+2)+1;          if((V71)!=Cnil){
1185            goto T272;}
1186            goto T273;
1187            goto T278;
1188    T278:;}
1189            base[3]= (V44);
1190            vs_top=(vs_base=base+3)+1;
1191          Larray_element_type();          Larray_element_type();
1192          vs_top=sup;          vs_top=sup;
1193          V71= vs_base[0];          V72= vs_base[0];
1194          V72= (*(LnkLI141))(car((V47)));          V73= (*(LnkLI141))(car((V48)));
1195          if(equal(V71,/* INLINE-ARGS */V72)){          if(equal(V72,/* INLINE-ARGS */V73)){
1196          goto T270;}          goto T272;}
1197          goto T271;          goto T273;
1198  T271:;  T273:;
1199          base[2]= Cnil;          base[3]= Cnil;
1200          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1201          return;          return;
1202          goto T270;          goto T272;
1203  T270:;  T272:;
1204          if(!(endp_prop(cdr((V47))))){          if(!(endp_prop(cdr((V48))))){
1205          goto T284;}          goto T286;}
1206          base[2]= Ct;          base[3]= Ct;
1207          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1208          return;          return;
1209          goto T284;          goto T286;
1210  T284:;  T286:;
1211          V73= (*(LnkLI135))((V44));          V74= (*(LnkLI135))((V44));
1212          base[2]= (*(LnkLI134))(/* INLINE-ARGS */V73,cdr((V47)));          base[3]= (*(LnkLI134))(/* INLINE-ARGS */V74,cdr((V48)));
1213          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1214          return;          return;
1215          goto T267;          goto T269;
1216  T267:;  T269:;
1217          if((V52!= VV[27]))goto T286;          if((V53!= VV[27]))goto T288;
1218          if(((*(LnkLI142))((V44)))!=Cnil){          if(((*(LnkLI142))((V44)))!=Cnil){
1219          goto T287;}          goto T289;}
1220          base[2]= Cnil;          base[3]= Cnil;
1221          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1222          return;          return;
         goto T287;  
 T287:;  
         if(!(endp_prop((V47)))){  
         goto T291;}  
1223          goto T289;          goto T289;
1224          goto T291;  T289:;
1225  T291:;          if(!(endp_prop((V48)))){
         if(!((car((V47)))==(VV[17]))){  
1226          goto T293;}          goto T293;}
1227          goto T289;          goto T291;
1228          goto T293;          goto T293;
1229  T293:;  T293:;
1230          base[2]= (V44);          if(!((car((V48)))==(VV[17]))){
1231          vs_top=(vs_base=base+2)+1;          goto T295;}
1232            goto T291;
1233            goto T295;
1234    T295:;
1235            base[3]= (V44);
1236            vs_top=(vs_base=base+3)+1;
1237          Larray_element_type();          Larray_element_type();
1238          vs_top=sup;          vs_top=sup;
1239          V74= vs_base[0];          V75= vs_base[0];
1240          V75= (*(LnkLI141))(car((V47)));          V76= (*(LnkLI141))(car((V48)));
1241          if(equal(V74,/* INLINE-ARGS */V75)){          if(equal(V75,/* INLINE-ARGS */V76)){
1242          goto T289;}          goto T291;}
1243          base[2]= Cnil;          base[3]= Cnil;
1244          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
         return;  
         goto T289;  
 T289:;  
         if(!(endp_prop(cdr((V47))))){  
         goto T297;}  
         base[2]= Ct;  
         vs_top=(vs_base=base+2)+1;  
1245          return;          return;
1246          goto T297;          goto T291;
1247  T297:;  T291:;
1248          if(!((cadr((V47)))==(VV[17]))){          if(!(endp_prop(cdr((V48))))){
1249          goto T299;}          goto T299;}
1250          base[2]= Ct;          base[3]= Ct;
1251          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1252          return;          return;
1253          goto T299;          goto T299;
1254  T299:;  T299:;
1255          {object V76= cadr((V47));          if(!((cadr((V48)))==(VV[17]))){
1256          if(!(type_of(V76)==t_cons||(V76)==Cnil)){          goto T301;}
1257          goto T302;}}          base[3]= Ct;
1258          V77= (*(LnkLI135))((V44));          vs_top=(vs_base=base+3)+1;
         base[2]= (*(LnkLI134))(/* INLINE-ARGS */V77,cadr((V47)));  
         vs_top=(vs_base=base+2)+1;  
1259          return;          return;
1260          goto T302;          goto T301;
1261  T302:;  T301:;
1262          base[2]= (V44);          {object V77= cadr((V48));
1263          vs_top=(vs_base=base+2)+1;          if(!(type_of(V77)==t_cons||(V77)==Cnil)){
1264            goto T304;}}
1265            V78= (*(LnkLI135))((V44));
1266            base[3]= (*(LnkLI134))(/* INLINE-ARGS */V78,cadr((V48)));
1267            vs_top=(vs_base=base+3)+1;
1268            return;
1269            goto T304;
1270    T304:;
1271            base[3]= (V44);
1272            vs_top=(vs_base=base+3)+1;
1273          Larray_rank();          Larray_rank();
1274          vs_top=sup;          vs_top=sup;
1275          V78= vs_base[0];          V79= vs_base[0];
1276          base[2]= (eql(V78,cadr((V47)))?Ct:Cnil);          base[3]= (eql(V79,cadr((V48)))?Ct:Cnil);
1277          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1278          return;          return;
1279          goto T286;          goto T288;
1280  T286:;  T288:;
1281          if((V52!= VV[22]))goto T306;          if((V53!= VV[22]))goto T308;
1282          if(type_of((V44))==t_array||          if(type_of((V44))==t_array||
1283  type_of((V44))==t_vector||  type_of((V44))==t_vector||
1284  type_of((V44))==t_string||  type_of((V44))==t_string||
1285  type_of((V44))==t_bitvector){  type_of((V44))==t_bitvector){
1286          goto T307;}          goto T309;}
1287          base[2]= Cnil;          base[3]= Cnil;
1288          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1289          return;          return;
         goto T307;  
 T307:;  
         if(!(endp_prop((V47)))){  
         goto T311;}  
1290          goto T309;          goto T309;
1291          goto T311;  T309:;
1292  T311:;          if(!(endp_prop((V48)))){
         if(!((car((V47)))==(VV[17]))){  
1293          goto T313;}          goto T313;}
1294          goto T309;          goto T311;
1295          goto T313;          goto T313;
1296  T313:;  T313:;
1297          base[2]= (V44);          if(!((car((V48)))==(VV[17]))){
1298          vs_top=(vs_base=base+2)+1;          goto T315;}
1299            goto T311;
1300            goto T315;
1301    T315:;
1302            base[3]= (V44);
1303            vs_top=(vs_base=base+3)+1;
1304          Larray_element_type();          Larray_element_type();
1305          vs_top=sup;          vs_top=sup;
1306          V79= vs_base[0];          V80= vs_base[0];
1307          V80= (*(LnkLI141))(car((V47)));          V81= (*(LnkLI141))(car((V48)));
1308          if(equal(V79,/* INLINE-ARGS */V80)){          if(equal(V80,/* INLINE-ARGS */V81)){
1309          goto T309;}          goto T311;}
1310          base[2]= Cnil;          base[3]= Cnil;
1311          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
         return;  
         goto T309;  
 T309:;  
         if(!(endp_prop(cdr((V47))))){  
         goto T317;}  
         base[2]= Ct;  
         vs_top=(vs_base=base+2)+1;  
1312          return;          return;
1313          goto T317;          goto T311;
1314  T317:;  T311:;
1315          if(!((cadr((V47)))==(VV[17]))){          if(!(endp_prop(cdr((V48))))){
1316          goto T319;}          goto T319;}
1317          base[2]= Ct;          base[3]= Ct;
1318          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1319          return;          return;
1320          goto T319;          goto T319;
1321  T319:;  T319:;
1322          {object V81= cadr((V47));          if(!((cadr((V48)))==(VV[17]))){
1323          if(!(type_of(V81)==t_cons||(V81)==Cnil)){          goto T321;}
1324          goto T322;}}          base[3]= Ct;
1325          V82= (*(LnkLI135))((V44));          vs_top=(vs_base=base+3)+1;
         base[2]= (*(LnkLI134))(/* INLINE-ARGS */V82,cadr((V47)));  
         vs_top=(vs_base=base+2)+1;  
1326          return;          return;
1327          goto T322;          goto T321;
1328  T322:;  T321:;
1329          base[2]= (V44);          {object V82= cadr((V48));
1330          vs_top=(vs_base=base+2)+1;          if(!(type_of(V82)==t_cons||(V82)==Cnil)){
1331            goto T324;}}
1332            V83= (*(LnkLI135))((V44));
1333            base[3]= (*(LnkLI134))(/* INLINE-ARGS */V83,cadr((V48)));
1334            vs_top=(vs_base=base+3)+1;
1335            return;
1336            goto T324;
1337    T324:;
1338            base[3]= (V44);
1339            vs_top=(vs_base=base+3)+1;
1340          Larray_rank();          Larray_rank();
1341          vs_top=sup;          vs_top=sup;
1342          V83= vs_base[0];          V84= vs_base[0];
1343          base[2]= (eql(V83,cadr((V47)))?Ct:Cnil);          base[3]= (eql(V84,cadr((V48)))?Ct:Cnil);
1344          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1345          return;          return;
1346          goto T306;          goto T308;
1347  T306:;  T308:;
1348          V48= get((V46),VV[36],Cnil);          V49= get((V47),VV[36],Cnil);
1349          if(((V48))==Cnil){          if(((V49))==Cnil){
1350          goto T327;}          goto T329;}
1351          base[2]= (V44);          base[3]= (V44);
1352          base[3]= (V48);          base[4]= (V49);
1353          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
1354          (void) (*Lnk143)();          (void) (*Lnk143)();
1355          return;          return;
1356          goto T327;          goto T329;
1357  T327:;  T329:;
1358          V48= get((V46),VV[37],Cnil);          V49= get((V47),VV[37],Cnil);
1359          if(((V48))==Cnil){          if(((V49))==Cnil){
1360          goto T333;}          goto T335;}
1361          base[2]= (V48);          base[3]= (V44);
1362          {object V84;          base[5]= (V49);
1363          V84= (V47);          {object V85;
1364           vs_top=base+3;          V85= (V48);
1365           while(!endp(V84))           vs_top=base+6;
1366           {vs_push(car(V84));V84=cdr(V84);}           while(!endp(V85))
1367          vs_base=base+3;}           {vs_push(car(V85));V85=cdr(V85);}
1368          super_funcall_no_event(base[2]);          vs_base=base+6;}
1369            super_funcall_no_event(base[5]);
1370          vs_top=sup;          vs_top=sup;
1371          V45= vs_base[0];          base[4]= vs_base[0];
1372          goto TTL;          vs_top=(vs_base=base+3)+2;
1373          goto T333;          (void) (*Lnk125)();
1374  T333:;          return;
1375          base[2]= Cnil;          goto T335;
1376          vs_top=(vs_base=base+2)+1;  T335:;
1377            base[3]= Cnil;
1378            vs_top=(vs_base=base+3)+1;
1379          return;}}          return;}}
1380          }          }
1381  }  }
1382  /*      local entry for function NORMALIZE-TYPE */  /*      local entry for function NORMALIZE-TYPE */
1383    
1384  static object LI25(V86)  static object LI25(V87)
1385    
1386  register object V86;  register object V87;
1387  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1388          goto TTL;          goto TTL;
1389  TTL:;  TTL:;
1390          {register object V87;          {register object V88;
1391          register object V88;          register object V89;
         V87= Cnil;  
         V88= Cnil;  
         goto T344;  
 T344:;  
         if(!(type_of((V86))!=t_cons)){  
         goto T348;}  
         V87= (V86);  
1392          V88= Cnil;          V88= Cnil;
1393          goto T346;          V89= Cnil;
1394          goto T348;          goto T345;
1395  T348:;  T345:;
1396          V87= car((V86));          if(!(type_of((V87))!=t_cons)){
1397          V88= cdr((V86));          goto T349;}
1398          goto T346;          V88= (V87);
1399  T346:;          V89= Cnil;
1400          if((get((V87),VV[37],Cnil))==Cnil){          goto T347;
1401          goto T357;}          goto T349;
1402          base[0]= get((V87),VV[37],Cnil);  T349:;
1403          {object V89;          V88= car((V87));
1404          V89= (V88);          V89= cdr((V87));
1405            goto T347;
1406    T347:;
1407            if((get((V88),VV[37],Cnil))==Cnil){
1408            goto T358;}
1409            base[0]= get((V88),VV[37],Cnil);
1410            {object V90;
1411            V90= (V89);
1412           vs_top=base+1;           vs_top=base+1;
1413           while(!endp(V89))           while(!endp(V90))
1414           {vs_push(car(V89));V89=cdr(V89);}           {vs_push(car(V90));V90=cdr(V90);}
1415          vs_base=base+1;}          vs_base=base+1;}
1416          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
1417          vs_top=sup;          vs_top=sup;
1418          V86= vs_base[0];          V87= vs_base[0];
1419          goto T345;          goto T346;
1420          goto T357;          goto T358;
1421  T357:;  T358:;
1422          if(!(type_of((V86))!=t_cons)){          if(!(type_of((V87))!=t_cons)){
1423          goto T363;}          goto T364;}
1424          {object V90 = make_cons((V86),Cnil);          {object V91 = make_cons((V87),Cnil);
         VMR25(V90)}  
         goto T363;  
 T363:;  
         {object V91 = (V86);  
1425          VMR25(V91)}          VMR25(V91)}
1426          goto T345;          goto T364;
1427  T345:;  T364:;
1428          goto T344;}          {object V92 = (V87);
1429            VMR25(V92)}
1430            goto T346;
1431    T346:;
1432            goto T345;}
1433          base[0]=base[0];          base[0]=base[0];
1434          return Cnil;          return Cnil;
1435  }  }
1436  /*      local entry for function KNOWN-TYPE-P   */  /*      local entry for function KNOWN-TYPE-P   */
1437    
1438  static object LI26(V93)  static object LI26(V94)
1439    
1440  register object V93;  register object V94;
1441  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1442          goto TTL;          goto TTL;
1443  TTL:;  TTL:;
1444          if(!(type_of((V93))==t_cons)){          if(!(type_of((V94))==t_cons)){
1445          goto T366;}          goto T367;}
1446          V93= car((V93));          V94= car((V94));
1447          goto T366;          goto T367;
1448  T366:;  T367:;
1449          V94= coerce_to_string((V93));          V95= coerce_to_string((V94));
1450          if(equal(/* INLINE-ARGS */V94,VV[38])){          if(equal(/* INLINE-ARGS */V95,VV[38])){
         goto T370;}  
         {register object x= (V93),V95= VV[39];  
         while(!endp(V95))  
         if(eql(x,V95->c.c_car)){  
         goto T370;  
         }else V95=V95->c.c_cdr;}  
         if((get((V93),VV[36],Cnil))==Cnil){  
1451          goto T371;}          goto T371;}
1452          goto T370;          {register object x= (V94),V96= VV[39];
1453  T370:;          while(!endp(V96))
1454          {object V96 = Ct;          if(eql(x,V96->c.c_car)){
1455          VMR26(V96)}          goto T371;
1456            }else V96=V96->c.c_cdr;}
1457            if((get((V94),VV[36],Cnil))==Cnil){
1458            goto T372;}
1459          goto T371;          goto T371;
1460  T371:;  T371:;
1461          {object V97 = Cnil;          {object V97 = Ct;
1462          VMR26(V97)}          VMR26(V97)}
1463            goto T372;
1464    T372:;
1465            {object V98 = Cnil;
1466            VMR26(V98)}
1467          return Cnil;          return Cnil;
1468  }  }
1469  /*      function definition for SUBTYPEP        */  /*      function definition for SUBTYPEP        */
# Line 1458  static void L27() Line 1472  static void L27()
1472  {register object *base=vs_base;  {register object *base=vs_base;
1473          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
1474          vs_reserve(VM27);          vs_reserve(VM27);
1475          {object V98;          {object V99;
1476          object V99;          object V100;
         check_arg(2);  
         V98=(base[0]);  
         V99=(base[1]);  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         {object V100;  
1477          object V101;          object V101;
1478          object V102;          if(vs_top-vs_base<2) too_few_arguments();
1479            if(vs_top-vs_base>3) too_many_arguments();
1480            V99=(base[0]);
1481            V100=(base[1]);
1482            vs_base=vs_base+2;
1483            if(vs_base>=vs_top){vs_top=sup;goto T378;}
1484            V101=(base[2]);
1485            vs_top=sup;
1486            goto T379;
1487            goto T378;
1488    T378:;
1489            V101= Cnil;
1490            goto T379;
1491    T379:;
1492            {object V102;
1493          object V103;          object V103;
1494          object V104;          object V104;
1495          object V105;          object V105;
1496          object V106;          object V106;
1497          V100= Cnil;          object V107;
1498          V101= Cnil;          object V108;
1499          V102= Cnil;          V102= Cnil;
1500          V103= Cnil;          V103= Cnil;
1501          V104= Cnil;          V104= Cnil;
1502          V105= Cnil;          V105= Cnil;
1503          V106= Cnil;          V106= Cnil;
1504          {object V107;          V107= Cnil;
1505          object V108;          V108= Cnil;
1506          base[2]= (V98);          {object V109;
1507          vs_top=(vs_base=base+2)+1;          object V110;
1508            base[3]= (V99);
1509            vs_top=(vs_base=base+3)+1;
1510          (void) (*Lnk122)();          (void) (*Lnk122)();
1511          vs_top=sup;          vs_top=sup;
1512          V107= vs_base[0];          V109= vs_base[0];
1513          base[2]= (V99);          base[3]= (V100);
1514          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1515          (void) (*Lnk122)();          (void) (*Lnk122)();
1516          vs_top=sup;          vs_top=sup;
1517          V108= vs_base[0];          V110= vs_base[0];
1518          if(((V107))==Cnil){          if(((V109))==Cnil){
1519          goto T389;}          goto T393;}
1520          if(((V108))==Cnil){          if(((V110))==Cnil){
1521          goto T389;}          goto T393;}
1522          base[2]= (V98);          base[3]= (V99);
1523          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1524          (void) (*Lnk124)();          (void) (*Lnk124)();
1525          vs_top=sup;          vs_top=sup;
1526          V110= vs_base[0];          V112= vs_base[0];
1527          {register object x= (V99),V109= V110;          {register object x= (V100),V111= V112;
1528          while(!endp(V109))          while(!endp(V111))
1529          if(eql(x,V109->c.c_car)){          if(eql(x,V111->c.c_car)){
1530          goto T396;          goto T400;
1531          }else V109=V109->c.c_cdr;          }else V111=V111->c.c_cdr;
1532          goto T395;}          goto T399;}
1533          goto T396;          goto T400;
1534  T396:;  T400:;
         base[2]= Ct;  
1535          base[3]= Ct;          base[3]= Ct;
1536          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
1537            vs_top=(vs_base=base+3)+2;
1538          return;          return;
1539          goto T395;          goto T399;
1540  T395:;  T399:;
1541          base[2]= Cnil;          base[3]= Cnil;
1542          base[3]= Ct;          base[4]= Ct;
1543          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
1544          return;          return;
1545          goto T389;          goto T393;
1546  T389:;  T393:;
1547          if(((V107))==Cnil){          if(((V109))==Cnil){
1548          goto T403;}          goto T407;}
1549          if(((V99))==(VV[28])){          if(((V100))==(VV[28])){
1550          goto T404;}          goto T408;}
1551          if(!(((V99))==(VV[40]))){          if(!(((V100))==(VV[40]))){
1552          goto T403;}          goto T407;}
1553          goto T404;          goto T408;
1554  T404:;  T408:;
1555          base[2]= (V99);          base[3]= (V100);
1556          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1557          (void) (*Lnk144)();          (void) (*Lnk144)();
1558          vs_top=sup;          vs_top=sup;
1559          V112= vs_base[0];          V114= vs_base[0];
1560          base[2]= (V98);          base[3]= (V99);
1561          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
1562          (void) (*Lnk124)();          (void) (*Lnk124)();
1563          vs_top=sup;          vs_top=sup;
1564          V113= vs_base[0];          V115= vs_base[0];
1565          {register object x= V112,V111= V113;          {register object x= V114,V113= V115;
1566          while(!endp(V111))          while(!endp(V113))
1567          if(eql(x,V111->c.c_car)){          if(eql(x,V113->c.c_car)){
1568          goto T412;          goto T416;
1569          }else V111=V111->c.c_cdr;          }else V113=V113->c.c_cdr;
1570          goto T411;}          goto T415;}
1571          goto T412;          goto T416;
1572  T412:;  T416:;
         base[2]= Ct;  
1573          base[3]= Ct;          base[3]= Ct;
1574          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
1575            vs_top=(vs_base=base+3)+2;
1576          return;          return;
1577          goto T411;          goto T415;
1578  T411:;  T415:;
1579          base[2]= Cnil;          base[3]= Cnil;
1580          base[3]= Ct;          base[4]= Ct;
1581          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
1582          return;          return;
1583          goto T403;          goto T407;
1584  T403:;  T407:;
1585          if(((V107))!=Cnil){          if(((V109))!=Cnil){
1586          goto T421;}          goto T425;}
1587          if(((V108))==Cnil){          if(((V110))==Cnil){
1588          goto T384;}          goto T388;}
1589          goto T421;          goto T425;
1590  T421:;  T425:;
1591          base[2]= Cnil;          base[3]= Cnil;
1592          base[3]= Ct;          base[4]= Ct;
1593          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
1594          return;}          return;}
1595          goto T384;          goto T388;
1596  T384:;  T388:;
1597          V100= (*(LnkLI145))((V98));          V102= (*(LnkLI145))((V99));
1598          if(!((car((V100)))==(VV[41]))){          if(!((car((V102)))==(VV[41]))){
1599          goto T432;}          goto T436;}
         V98= make_cons((V98),Cnil);  
         goto T430;  
         goto T432;  
 T432:;  
         V98= (V100);  
         goto T430;  
 T430:;  
         V101= (*(LnkLI145))((V99));  
         if(!((car((V101)))==(VV[41]))){  
         goto T439;}  
1600          V99= make_cons((V99),Cnil);          V99= make_cons((V99),Cnil);
1601          goto T437;          goto T434;
1602          goto T439;          goto T436;
1603  T439:;  T436:;
1604          V99= (V101);          V99= (V102);
1605          goto T437;          goto T434;
1606  T437:;  T434:;
1607          if(!(equal((V98),(V99)))){          V103= (*(LnkLI145))((V100));
1608          goto T441;}          if(!((car((V103)))==(VV[41]))){
1609          base[2]= Ct;          goto T443;}
1610          base[3]= Ct;          V100= make_cons((V100),Cnil);
1611          vs_top=(vs_base=base+2)+2;          goto T441;
1612          return;          goto T443;
1613    T443:;
1614            V100= (V103);
1615          goto T441;          goto T441;
1616  T441:;  T441:;
1617          V100= car((V98));          if(!(equal((V99),(V100)))){
1618          V101= car((V99));          goto T445;}
1619          V102= cdr((V98));          base[3]= Ct;
         V103= cdr((V99));  
         if(!(((V100))==(VV[42]))){  
         goto T456;}  
         {register object V114;  
         object V115;  
         V114= (V102);  
         V115= car((V114));  
         goto T462;  
 T462:;  
         if(!(endp_prop((V114)))){  
         goto T463;}  
         goto T458;  
         goto T463;  
 T463:;  
         base[3]= (V115);  
         base[4]= (V99);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk125)();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T467;}  
         base[3]= Cnil;  
1620          base[4]= Ct;          base[4]= Ct;
1621          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1622          return;          return;
1623          goto T467;          goto T445;
1624  T467:;  T445:;
1625          V114= cdr((V114));          V102= car((V99));
1626          V115= car((V114));          V103= car((V100));
1627          goto T462;}          V104= cdr((V99));
1628          goto T458;          V105= cdr((V100));
1629  T458:;          if(!(((V102))==(VV[42]))){
1630          base[2]= Ct;          goto T460;}
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T456;  
 T456:;  
         if(!(((V100))==(VV[43]))){  
         goto T482;}  
1631          {register object V116;          {register object V116;
1632          object V117;          object V117;
1633          V116= (V102);          V116= (V104);
1634          V117= car((V116));          V117= car((V116));
1635          goto T488;          goto T466;
1636  T488:;  T466:;
1637          if(!(endp_prop((V116)))){          if(!(endp_prop((V116)))){
1638          goto T489;}          goto T467;}
1639          goto T484;          goto T462;
1640          goto T489;          goto T467;
1641  T489:;  T467:;
1642          {object V118;          base[4]= (V117);
1643          object V119;          base[5]= (V100);
1644          base[3]= (V117);          vs_top=(vs_base=base+4)+2;
1645          base[4]= (V99);          (void) (*Lnk125)();
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk146)();  
         if(vs_base>=vs_top){vs_top=sup;goto T497;}  
         V118= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T498;}  
         V119= vs_base[0];  
1646          vs_top=sup;          vs_top=sup;
1647          goto T499;          if((vs_base[0])!=Cnil){
1648          goto T497;          goto T471;}
1649  T497:;          base[4]= Cnil;
1650          V118= Cnil;          base[5]= Ct;
1651          goto T498;          vs_top=(vs_base=base+4)+2;
1652  T498:;          return;
1653          V119= Cnil;          goto T471;
1654          goto T499;  T471:;
 T499:;  
         if(((V118))!=Cnil){  
         goto T493;}  
         base[3]= (V118);  
         base[4]= (V119);  
         vs_top=(vs_base=base+3)+2;  
         return;}  
         goto T493;  
 T493:;  
1655          V116= cdr((V116));          V116= cdr((V116));
1656          V117= car((V116));          V117= car((V116));
1657          goto T488;}          goto T466;}
1658          goto T484;          goto T462;
1659  T484:;  T462:;
         base[2]= Ct;  
1660          base[3]= Ct;          base[3]= Ct;
1661          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
1662            vs_top=(vs_base=base+3)+2;
1663          return;          return;
1664          goto T482;          goto T460;
1665  T482:;  T460:;
1666          if(!(((V100))==(VV[44]))){          if(!(((V102))==(VV[43]))){
1667          goto T512;}          goto T486;}
1668          {register object V120;          {register object V118;
1669            object V119;
1670            V118= (V104);
1671            V119= car((V118));
1672            goto T492;
1673    T492:;
1674            if(!(endp_prop((V118)))){
1675            goto T493;}
1676            goto T488;
1677            goto T493;
1678    T493:;
1679            {object V120;
1680          object V121;          object V121;
1681          V120= (V102);          base[4]= (V119);
1682          V121= car((V120));          base[5]= (V100);
1683          goto T518;          vs_top=(vs_base=base+4)+2;
 T518:;  
         if(!(endp_prop((V120)))){  
         goto T519;}  
         goto T514;  
         goto T519;  
 T519:;  
         {object V122;  
         base[3]= (V121);  
         base[4]= (V99);  
         vs_top=(vs_base=base+3)+2;  
1684          (void) (*Lnk146)();          (void) (*Lnk146)();
1685            if(vs_base>=vs_top){vs_top=sup;goto T501;}
1686            V120= vs_base[0];
1687            vs_base++;
1688            if(vs_base>=vs_top){vs_top=sup;goto T502;}
1689            V121= vs_base[0];
1690          vs_top=sup;          vs_top=sup;
1691          V122= vs_base[0];          goto T503;
1692          if(((V122))==Cnil){          goto T501;
1693          goto T523;}  T501:;
1694            V120= Cnil;
1695            goto T502;
1696    T502:;
1697            V121= Cnil;
1698            goto T503;
1699    T503:;
1700            if(((V120))!=Cnil){
1701            goto T497;}
1702            base[4]= (V120);
1703            base[5]= (V121);
1704            vs_top=(vs_base=base+4)+2;
1705            return;}
1706            goto T497;
1707    T497:;
1708            V118= cdr((V118));
1709            V119= car((V118));
1710            goto T492;}
1711            goto T488;
1712    T488:;
1713          base[3]= Ct;          base[3]= Ct;
1714          base[4]= Ct;          base[4]= Ct;
1715          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1716          return;}          return;
1717            goto T486;
1718    T486:;
1719            if(!(((V102))==(VV[44]))){
1720            goto T516;}
1721            {register object V122;
1722            object V123;
1723            V122= (V104);
1724            V123= car((V122));
1725            goto T522;
1726    T522:;
1727            if(!(endp_prop((V122)))){
1728            goto T523;}
1729            goto T518;
1730          goto T523;          goto T523;
1731  T523:;  T523:;
1732          V120= cdr((V120));          {object V124;
1733          V121= car((V120));          base[4]= (V123);
1734          goto T518;}          base[5]= (V100);
1735          goto T514;          vs_top=(vs_base=base+4)+2;
1736  T514:;          (void) (*Lnk146)();
1737          base[2]= Cnil;          vs_top=sup;
1738            V124= vs_base[0];
1739            if(((V124))==Cnil){
1740            goto T527;}
1741            base[4]= Ct;
1742            base[5]= Ct;
1743            vs_top=(vs_base=base+4)+2;
1744            return;}
1745            goto T527;
1746    T527:;
1747            V122= cdr((V122));
1748            V123= car((V122));
1749            goto T522;}
1750            goto T518;
1751    T518:;
1752          base[3]= Cnil;          base[3]= Cnil;
1753          vs_top=(vs_base=base+2)+2;          base[4]= Cnil;
1754            vs_top=(vs_base=base+3)+2;
1755          return;          return;
1756          goto T512;          goto T516;
1757  T512:;  T516:;
1758          if(!(((V100))==(VV[45]))){          if(!(((V102))==(VV[45]))){
1759          goto T454;}          goto T458;}
1760          if(!(((V101))==(VV[45]))){          if(!(((V103))==(VV[45]))){
1761          goto T541;}          goto T545;}
1762          V98= car((V103));          base[3]= car((V105));
1763          V99= car((V102));          base[4]= car((V104));
1764          goto TTL;          vs_top=(vs_base=base+3)+2;
1765          goto T541;          (void) (*Lnk146)();
 T541:;  
         V98= Ct;  
         V99= list(3,VV[43],(V99),car((V102)));  
         goto TTL;  
         goto T454;  
 T454:;  
         if(!(((V101))==(VV[42]))){  
         goto T551;}  
         base[2]= Cnil;  
         base[3]= Cnil;  
         vs_top=(vs_base=base+2)+2;  
1766          return;          return;
1767          goto T551;          goto T545;
1768  T551:;  T545:;
1769          if(!(((V101))==(VV[43]))){          base[3]= Ct;
1770          goto T556;}          base[4]= list(3,VV[43],(V100),car((V104)));
         {register object V123;  
         object V124;  
         V123= (V103);  
         V124= car((V123));  
         goto T562;  
 T562:;  
         if(!(endp_prop((V123)))){  
         goto T563;}  
         goto T558;  
         goto T563;  
 T563:;  
         {object V125;  
         base[3]= (V98);  
         base[4]= (V124);  
1771          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1772          (void) (*Lnk146)();          (void) (*Lnk146)();
1773            return;
1774            goto T458;
1775    T458:;
1776            if(!(((V103))==(VV[42]))){
1777            goto T553;}
1778            base[3]= Cnil;
1779            base[4]= Cnil;
1780            vs_top=(vs_base=base+3)+2;
1781            return;
1782            goto T553;
1783    T553:;
1784            if(!(((V103))==(VV[43]))){
1785            goto T558;}
1786            {register object V125;
1787            object V126;
1788            V125= (V105);
1789            V126= car((V125));
1790            goto T564;
1791    T564:;
1792            if(!(endp_prop((V125)))){
1793            goto T565;}
1794            goto T560;
1795            goto T565;
1796    T565:;
1797            {object V127;
1798            base[4]= (V99);
1799            base[5]= (V126);
1800            vs_top=(vs_base=base+4)+2;
1801            (void) (*Lnk146)();
1802          vs_top=sup;          vs_top=sup;
1803          V125= vs_base[0];          V127= vs_base[0];
1804          if(((V125))==Cnil){          if(((V127))==Cnil){
1805          goto T567;}          goto T569;}
         base[3]= Ct;  
1806          base[4]= Ct;          base[4]= Ct;
1807          vs_top=(vs_base=base+3)+2;          base[5]= Ct;
1808            vs_top=(vs_base=base+4)+2;
1809          return;}          return;}
1810          goto T567;          goto T569;
1811  T567:;  T569:;
1812          V123= cdr((V123));          V125= cdr((V125));
1813          V124= car((V123));          V126= car((V125));
1814          goto T562;}          goto T564;}
1815          goto T558;          goto T560;
1816  T558:;  T560:;
         base[2]= Cnil;  
1817          base[3]= Cnil;          base[3]= Cnil;
1818          vs_top=(vs_base=base+2)+2;          base[4]= Cnil;
1819            vs_top=(vs_base=base+3)+2;
1820          return;          return;
1821          goto T556;          goto T558;
1822  T556:;  T558:;
1823          if(!(((V101))==(VV[44]))){          if(!(((V103))==(VV[44]))){
1824          goto T583;}          goto T585;}
1825          {register object V126;          {register object V128;
         object V127;  
         V126= (V103);  
         V127= car((V126));  
         goto T589;  
 T589:;  
         if(!(endp_prop((V126)))){  
         goto T590;}  
         goto T585;  
         goto T590;  
 T590:;  
         {object V128;  
1826          object V129;          object V129;
1827          base[3]= (V98);          V128= (V105);
1828          base[4]= (V127);          V129= car((V128));
1829          vs_top=(vs_base=base+3)+2;          goto T591;
1830    T591:;
1831            if(!(endp_prop((V128)))){
1832            goto T592;}
1833            goto T587;
1834            goto T592;
1835    T592:;
1836            {object V130;
1837            object V131;
1838            base[4]= (V99);
1839            base[5]= (V129);
1840            vs_top=(vs_base=base+4)+2;
1841          (void) (*Lnk146)();          (void) (*Lnk146)();
1842          if(vs_base>=vs_top){vs_top=sup;goto T598;}          if(vs_base>=vs_top){vs_top=sup;goto T600;}
1843          V128= vs_base[0];          V130= vs_base[0];
1844          vs_base++;          vs_base++;
1845          if(vs_base>=vs_top){vs_top=sup;goto T599;}          if(vs_base>=vs_top){vs_top=sup;goto T601;}
1846          V129= vs_base[0];          V131= vs_base[0];
1847          vs_top=sup;          vs_top=sup;
1848          goto T600;          goto T602;
         goto T598;  
 T598:;  
         V128= Cnil;  
         goto T599;  
 T599:;  
         V129= Cnil;  
1849          goto T600;          goto T600;
1850  T600:;  T600:;
1851          if(((V128))!=Cnil){          V130= Cnil;
1852          goto T594;}          goto T601;
1853          base[3]= (V128);  T601:;
1854          base[4]= (V129);          V131= Cnil;
1855          vs_top=(vs_base=base+3)+2;          goto T602;
1856    T602:;
1857            if(((V130))!=Cnil){
1858            goto T596;}
1859            base[4]= (V130);
1860            base[5]= (V131);
1861            vs_top=(vs_base=base+4)+2;
1862          return;}          return;}
1863          goto T594;          goto T596;
1864  T594:;  T596:;
1865          V126= cdr((V126));          V128= cdr((V128));
1866          V127= car((V126));          V129= car((V128));
1867          goto T589;}          goto T591;}
1868            goto T587;
1869    T587:;
1870            base[3]= Ct;
1871            base[4]= Ct;
1872            vs_top=(vs_base=base+3)+2;
1873            return;
1874          goto T585;          goto T585;
1875  T585:;  T585:;
1876          base[2]= Ct;          if(!(((V103))==(VV[45]))){
1877          base[3]= Ct;          goto T551;}
1878          vs_top=(vs_base=base+2)+2;          base[3]= list(3,VV[44],(V99),car((V105)));
1879            base[4]= Cnil;
1880            vs_top=(vs_base=base+3)+2;
1881            (void) (*Lnk146)();
1882          return;          return;
1883          goto T583;          goto T551;
1884  T583:;  T551:;
1885          if(!(((V101))==(VV[45]))){          V106= (*(LnkLI147))((V99));
1886          goto T549;}          V107= (*(LnkLI147))((V100));
1887          V98= list(3,VV[44],(V98),car((V103)));          if(((V102))==(Cnil)){
         V99= Cnil;  
         goto TTL;  
         goto T549;  
 T549:;  
         V104= (*(LnkLI147))((V98));  
         V105= (*(LnkLI147))((V99));  
         if(((V100))==(Cnil)){  
         goto T621;}  
         if(((V101))==(Ct)){  
         goto T621;}  
         if(!(((V101))==(VV[46]))){  
1888          goto T622;}          goto T622;}
1889          goto T621;          if(((V103))==(Ct)){
1890  T621:;          goto T622;}
1891          base[2]= Ct;          if(!(((V103))==(VV[46]))){
1892          base[3]= Ct;          goto T623;}
         vs_top=(vs_base=base+2)+2;  
         return;  
1893          goto T622;          goto T622;
1894  T622:;  T622:;
1895          if(!(((V101))==(Cnil))){          base[3]= Ct;
1896          goto T631;}          base[4]= Ct;
1897          base[2]= Cnil;          vs_top=(vs_base=base+3)+2;
         base[3]= (V104);  
         vs_top=(vs_base=base+2)+2;  
1898          return;          return;
1899          goto T631;          goto T623;
1900  T631:;  T623:;
1901          if(!(((V100))==(Ct))){          if(!(((V103))==(Cnil))){
1902          goto T636;}          goto T632;}
1903          base[2]= Cnil;          base[3]= Cnil;
1904          base[3]= (V105);          base[4]= (V106);
1905          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
1906          return;          return;
1907          goto T636;          goto T632;
1908  T636:;  T632:;
1909          if(!(((V100))==(VV[46]))){          if(!(((V102))==(Ct))){
1910          goto T641;}          goto T637;}
1911          base[2]= Cnil;          base[3]= Cnil;
1912          base[3]= (V105);          base[4]= (V107);
1913          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
1914            return;
1915            goto T637;
1916    T637:;
1917            if(!(((V102))==(VV[46]))){
1918            goto T642;}
1919            base[3]= Cnil;
1920            base[4]= (V107);
1921            vs_top=(vs_base=base+3)+2;
1922            return;
1923            goto T642;
1924    T642:;
1925            if(!(((V103))==(VV[47]))){
1926            goto T647;}
1927            {register object x= (V102),V132= VV[48];
1928            while(!endp(V132))
1929            if(eql(x,V132->c.c_car)){
1930            goto T651;
1931            }else V132=V132->c.c_cdr;
1932            goto T650;}
1933            goto T651;
1934    T651:;
1935            base[3]= Ct;
1936            base[4]= Ct;
1937            vs_top=(vs_base=base+3)+2;
1938          return;          return;
         goto T641;  
 T641:;  
         if(!(((V101))==(VV[47]))){  
         goto T646;}  
         {register object x= (V100),V130= VV[48];  
         while(!endp(V130))  
         if(eql(x,V130->c.c_car)){  
         goto T650;  
         }else V130=V130->c.c_cdr;  
         goto T649;}  
1939          goto T650;          goto T650;
1940  T650:;  T650:;
1941          base[2]= Ct;          base[3]= Cnil;
1942          base[3]= Ct;          base[4]= (V106);
1943          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
1944          return;          return;
1945          goto T649;          goto T647;
1946  T649:;  T647:;
1947          base[2]= Cnil;          if(!(((V103))==(VV[49]))){
1948          base[3]= (V104);          goto T657;}
1949          vs_top=(vs_base=base+2)+2;          {register object x= (V102),V133= VV[50];
1950            while(!endp(V133))
1951            if(eql(x,V133->c.c_car)){
1952            goto T661;
1953            }else V133=V133->c.c_cdr;
1954            goto T660;}
1955            goto T661;
1956    T661:;
1957            base[3]= Ct;
1958            base[4]= Ct;
1959            vs_top=(vs_base=base+3)+2;
1960          return;          return;
         goto T646;  
 T646:;  
         if(!(((V101))==(VV[49]))){  
         goto T656;}  
         {register object x= (V100),V131= VV[50];  
         while(!endp(V131))  
         if(eql(x,V131->c.c_car)){  
         goto T660;  
         }else V131=V131->c.c_cdr;  
         goto T659;}  
1961          goto T660;          goto T660;
1962  T660:;  T660:;
1963          base[2]= Ct;          if(((V102))==(VV[27])){
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T659;  
 T659:;  
         if(((V100))==(VV[27])){  
         goto T663;}  
         if(!(((V100))==(VV[22]))){  
1964          goto T664;}          goto T664;}
1965          goto T663;          if(!(((V102))==(VV[22]))){
1966  T663:;          goto T665;}
1967          if((cdr((V102)))==Cnil){          goto T664;
1968          goto T669;}  T664:;
1969          if(!(type_of(cadr((V102)))==t_cons)){          if((cdr((V104)))==Cnil){
1970          goto T669;}          goto T670;}
1971          if((cdadr((V102)))!=Cnil){          if(!(type_of(cadr((V104)))==t_cons)){
1972          goto T669;}          goto T670;}
1973          base[2]= Ct;          if((cdadr((V104)))!=Cnil){
1974            goto T670;}
1975          base[3]= Ct;          base[3]= Ct;
1976          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
1977            vs_top=(vs_base=base+3)+2;
1978          return;          return;
1979          goto T669;          goto T670;
1980  T669:;  T670:;
1981          base[2]= Cnil;          base[3]= Cnil;
1982          base[3]= Ct;          base[4]= Ct;
1983          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
1984          return;          return;
1985          goto T664;          goto T665;
1986  T664:;  T665:;
1987          base[2]= Cnil;          base[3]= Cnil;
1988          base[3]= (V104);          base[4]= (V106);
1989          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
1990          return;          return;
1991          goto T656;          goto T657;
1992  T656:;  T657:;
1993          if(!(((V100))==(VV[47]))){          if(!(((V102))==(VV[47]))){
1994          goto T682;}          goto T683;}
1995          base[2]= Cnil;          base[3]= Cnil;
1996          base[3]= (V105);          base[4]= (V107);
1997          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
1998          return;          return;
1999          goto T682;          goto T683;
2000  T682:;  T683:;
2001          if(!(((V100))==(VV[49]))){          if(!(((V102))==(VV[49]))){
2002          goto T687;}          goto T688;}
2003          base[2]= Cnil;          base[3]= Cnil;
2004          base[3]= (V105);          base[4]= (V107);
2005          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2006            return;
2007            goto T688;
2008    T688:;
2009            if(!(((V103))==(VV[51]))){
2010            goto T693;}
2011            {register object x= (V102),V134= VV[52];
2012            while(!endp(V134))
2013            if(eql(x,V134->c.c_car)){
2014            goto T697;
2015            }else V134=V134->c.c_cdr;
2016            goto T696;}
2017            goto T697;
2018    T697:;
2019            base[3]= Cnil;
2020            base[4]= Ct;
2021            vs_top=(vs_base=base+3)+2;
2022          return;          return;
         goto T687;  
 T687:;  
         if(!(((V101))==(VV[51]))){  
         goto T692;}  
         {register object x= (V100),V132= VV[52];  
         while(!endp(V132))  
         if(eql(x,V132->c.c_car)){  
         goto T696;  
         }else V132=V132->c.c_cdr;  
         goto T695;}  
2023          goto T696;          goto T696;
2024  T696:;  T696:;
2025          base[2]= Cnil;          if(((V106))==Cnil){
2026            goto T701;}
2027          base[3]= Ct;          base[3]= Ct;
2028          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2029            vs_top=(vs_base=base+3)+2;
2030          return;          return;
2031          goto T695;          goto T701;
2032  T695:;  T701:;
2033          if(((V104))==Cnil){          base[3]= Cnil;
2034          goto T700;}          base[4]= Cnil;
2035          base[2]= Ct;          vs_top=(vs_base=base+3)+2;
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
2036          return;          return;
2037          goto T700;          goto T693;
2038  T700:;  T693:;
2039          base[2]= Cnil;          if(!(((V102))==(VV[51]))){
2040            goto T708;}
2041          base[3]= Cnil;          base[3]= Cnil;
2042          vs_top=(vs_base=base+2)+2;          base[4]= (V107);
2043            vs_top=(vs_base=base+3)+2;
2044          return;          return;
2045          goto T692;          goto T708;
2046  T692:;  T708:;
2047          if(!(((V100))==(VV[51]))){          if(!(((V103))==(VV[53]))){
2048          goto T707;}          goto T713;}
2049          base[2]= Cnil;          {register object x= (V102),V135= VV[54];
2050          base[3]= (V105);          while(!endp(V135))
2051          vs_top=(vs_base=base+2)+2;          if(eql(x,V135->c.c_car)){
2052            goto T717;
2053            }else V135=V135->c.c_cdr;
2054            goto T716;}
2055            goto T717;
2056    T717:;
2057            base[3]= Ct;
2058            base[4]= Ct;
2059            vs_top=(vs_base=base+3)+2;
2060          return;          return;
         goto T707;  
 T707:;  
         if(!(((V101))==(VV[53]))){  
         goto T712;}  
         {register object x= (V100),V133= VV[54];  
         while(!endp(V133))  
         if(eql(x,V133->c.c_car)){  
         goto T716;  
         }else V133=V133->c.c_cdr;  
         goto T715;}  
2061          goto T716;          goto T716;
2062  T716:;  T716:;
2063          base[2]= Ct;          base[3]= Cnil;
2064          base[3]= Ct;          base[4]= (V106);
2065          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2066          return;          return;
2067          goto T715;          goto T713;
2068  T715:;  T713:;
2069          base[2]= Cnil;          if(!(((V103))==(VV[9]))){
2070          base[3]= (V104);          goto T723;}
2071          vs_top=(vs_base=base+2)+2;          {register object x= (V102),V136= VV[55];
2072            while(!endp(V136))
2073            if(eql(x,V136->c.c_car)){
2074            goto T727;
2075            }else V136=V136->c.c_cdr;
2076            goto T726;}
2077            goto T727;
2078    T727:;
2079            base[3]= Ct;
2080            base[4]= Ct;
2081            vs_top=(vs_base=base+3)+2;
2082          return;          return;
         goto T712;  
 T712:;  
         if(!(((V101))==(VV[9]))){  
         goto T722;}  
         {register object x= (V100),V134= VV[55];  
         while(!endp(V134))  
         if(eql(x,V134->c.c_car)){  
         goto T726;  
         }else V134=V134->c.c_cdr;  
         goto T725;}  
2083          goto T726;          goto T726;
2084  T726:;  T726:;
2085          base[2]= Ct;          base[3]= Cnil;
2086            base[4]= (V106);
2087            vs_top=(vs_base=base+3)+2;
2088            return;
2089            goto T723;
2090    T723:;
2091            if(!(((V103))==(VV[56]))){
2092            goto T733;}
2093            if(!(((V102))==(VV[57]))){
2094            goto T736;}
2095          base[3]= Ct;          base[3]= Ct;
2096          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2097            vs_top=(vs_base=base+3)+2;
2098          return;          return;
2099          goto T725;          goto T736;
2100  T725:;  T736:;
2101          base[2]= Cnil;          base[3]= Cnil;
2102          base[3]= (V104);          base[4]= (V106);
2103          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2104          return;          return;
2105          goto T722;          goto T733;
2106  T722:;  T733:;
2107          if(!(((V101))==(VV[56]))){          if(!(((V103))==(VV[58]))){
2108          goto T732;}          goto T743;}
2109          if(!(((V100))==(VV[57]))){          if(!(((V102))==(VV[59]))){
2110          goto T735;}          goto T746;}
         base[2]= Ct;  
2111          base[3]= Ct;          base[3]= Ct;
2112          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2113            vs_top=(vs_base=base+3)+2;
2114          return;          return;
2115          goto T735;          goto T746;
2116  T735:;  T746:;
2117          base[2]= Cnil;          base[3]= Cnil;
2118          base[3]= (V104);          base[4]= (V106);
2119          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2120          return;          return;
2121          goto T732;          goto T743;
2122  T732:;  T743:;
2123          if(!(((V101))==(VV[58]))){          if(!(((V103))==(VV[40]))){
2124          goto T742;}          goto T753;}
2125          if(!(((V100))==(VV[59]))){          {register object x= (V102),V137= VV[60];
2126          goto T745;}          while(!endp(V137))
2127          base[2]= Ct;          if(eql(x,V137->c.c_car)){
2128            goto T757;
2129            }else V137=V137->c.c_cdr;
2130            goto T756;}
2131            goto T757;
2132    T757:;
2133          base[3]= Ct;          base[3]= Ct;
2134          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2135          return;          vs_top=(vs_base=base+3)+2;
         goto T745;  
 T745:;  
         base[2]= Cnil;  
         base[3]= (V104);  
         vs_top=(vs_base=base+2)+2;  
2136          return;          return;
         goto T742;  
 T742:;  
         if(!(((V101))==(VV[40]))){  
         goto T752;}  
         {register object x= (V100),V135= VV[60];  
         while(!endp(V135))  
         if(eql(x,V135->c.c_car)){  
         goto T756;  
         }else V135=V135->c.c_cdr;  
         goto T755;}  
2137          goto T756;          goto T756;
2138  T756:;  T756:;
2139          base[2]= Ct;          base[3]= Cnil;
2140          base[3]= Ct;          base[4]= (V106);
2141          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
         return;  
         goto T755;  
 T755:;  
         base[2]= Cnil;  
         base[3]= (V104);  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T752;  
 T752:;  
         if(!(((V101))==(VV[61]))){  
         goto T762;}  
         {register object x= (V100),V136= VV[62];  
         while(!endp(V136))  
         if(eql(x,V136->c.c_car)){  
         goto T766;  
         }else V136=V136->c.c_cdr;  
         goto T765;}  
         goto T766;  
 T766:;  
         base[2]= Ct;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T765;  
 T765:;  
         base[2]= Cnil;  
         base[3]= (V104);  
         vs_top=(vs_base=base+2)+2;  
2142          return;          return;
2143          goto T762;          goto T753;
2144  T762:;  T753:;
2145          if(!(((V101))==(VV[63]))){          if(!(((V103))==(VV[61]))){
2146          goto T772;}          goto T763;}
2147          V137= coerce_to_string((V100));          {register object x= (V102),V138= VV[62];
         if(equal(/* INLINE-ARGS */V137,VV[64])){  
         goto T774;}  
         {register object x= (V100),V138= VV[65];  
2148          while(!endp(V138))          while(!endp(V138))
2149          if(eql(x,V138->c.c_car)){          if(eql(x,V138->c.c_car)){
2150          goto T778;          goto T767;
2151          }else V138=V138->c.c_cdr;          }else V138=V138->c.c_cdr;
2152          goto T775;}          goto T766;}
2153          goto T778;          goto T767;
2154  T778:;  T767:;
         goto T774;  
 T774:;  
         base[2]= Ct;  
2155          base[3]= Ct;          base[3]= Ct;
2156          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2157            vs_top=(vs_base=base+3)+2;
2158          return;          return;
2159          goto T775;          goto T766;
2160  T775:;  T766:;
2161          base[2]= Cnil;          base[3]= Cnil;
2162          base[3]= (V104);          base[4]= (V106);
2163          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2164          return;          return;
2165          goto T772;          goto T763;
2166  T772:;  T763:;
2167          if(!(((V101))==(VV[66]))){          if(!(((V103))==(VV[63]))){
2168          goto T784;}          goto T773;}
2169          V139= coerce_to_string((V100));          V139= coerce_to_string((V102));
2170          if(equal(/* INLINE-ARGS */V139,VV[67])){          if(equal(/* INLINE-ARGS */V139,VV[64])){
2171          goto T786;}          goto T775;}
2172          {register object x= (V100),V140= VV[68];          {register object x= (V102),V140= VV[65];
2173          while(!endp(V140))          while(!endp(V140))
2174          if(eql(x,V140->c.c_car)){          if(eql(x,V140->c.c_car)){
2175          goto T790;          goto T779;
2176          }else V140=V140->c.c_cdr;          }else V140=V140->c.c_cdr;
2177          goto T787;}          goto T776;}
2178          goto T790;          goto T779;
2179  T790:;  T779:;
2180          goto T786;          goto T775;
2181  T786:;  T775:;
         base[2]= Ct;  
2182          base[3]= Ct;          base[3]= Ct;
2183          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2184            vs_top=(vs_base=base+3)+2;
2185          return;          return;
2186            goto T776;
2187    T776:;
2188            base[3]= Cnil;
2189            base[4]= (V106);
2190            vs_top=(vs_base=base+3)+2;
2191            return;
2192            goto T773;
2193    T773:;
2194            if(!(((V103))==(VV[66]))){
2195            goto T785;}
2196            V141= coerce_to_string((V102));
2197            if(equal(/* INLINE-ARGS */V141,VV[67])){
2198            goto T787;}
2199            {register object x= (V102),V142= VV[68];
2200            while(!endp(V142))
2201            if(eql(x,V142->c.c_car)){
2202            goto T791;
2203            }else V142=V142->c.c_cdr;
2204            goto T788;}
2205            goto T791;
2206    T791:;
2207          goto T787;          goto T787;
2208  T787:;  T787:;
         base[2]= Cnil;  
         base[3]= (V104);  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T784;  
 T784:;  
         if(!(((V101))==(VV[69]))){  
         goto T796;}  
         if(!(((V100))==(VV[70]))){  
         goto T799;}  
         base[2]= Ct;  
2209          base[3]= Ct;          base[3]= Ct;
2210          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2211            vs_top=(vs_base=base+3)+2;
2212          return;          return;
2213          goto T799;          goto T788;
2214  T799:;  T788:;
2215          base[2]= Cnil;          base[3]= Cnil;
2216          base[3]= (V104);          base[4]= (V106);
2217          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2218          return;          return;
2219          goto T796;          goto T785;
2220  T796:;  T785:;
2221          if(!(((V101))==(VV[71]))){          if(!(((V103))==(VV[69]))){
2222          goto T806;}          goto T797;}
2223          if(!(((V100))==(VV[72]))){          if(!(((V102))==(VV[70]))){
2224          goto T809;}          goto T800;}
         base[2]= Ct;  
2225          base[3]= Ct;          base[3]= Ct;
2226          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2227            vs_top=(vs_base=base+3)+2;
2228          return;          return;
2229          goto T809;          goto T800;
2230  T809:;  T800:;
2231          base[2]= Cnil;          base[3]= Cnil;
2232          base[3]= (V104);          base[4]= (V106);
2233          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2234          return;          return;
2235          goto T806;          goto T797;
2236  T806:;  T797:;
2237          if(!(((V101))==(VV[73]))){          if(!(((V103))==(VV[71]))){
2238          goto T816;}          goto T807;}
2239          {register object x= (V100),V141= VV[74];          if(!(((V102))==(VV[72]))){
2240          while(!endp(V141))          goto T810;}
         if(eql(x,V141->c.c_car)){  
         goto T820;  
         }else V141=V141->c.c_cdr;  
         goto T819;}  
         goto T820;  
 T820:;  
         base[2]= Ct;  
2241          base[3]= Ct;          base[3]= Ct;
2242          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2243            vs_top=(vs_base=base+3)+2;
2244          return;          return;
2245          goto T819;          goto T810;
2246  T819:;  T810:;
2247          base[2]= Cnil;          base[3]= Cnil;
2248          base[3]= (V104);          base[4]= (V106);
2249          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2250          return;          return;
2251          goto T816;          goto T807;
2252  T816:;  T807:;
2253          V142= coerce_to_string((V101));          if(!(((V103))==(VV[73]))){
2254          if(equal(/* INLINE-ARGS */V142,VV[75])){          goto T817;}
2255          goto T825;}          {register object x= (V102),V143= VV[74];
         if(!(((V101))==(VV[76]))){  
         goto T826;}  
         goto T825;  
 T825:;  
         {register object x= (V100),V143= VV[77];  
2256          while(!endp(V143))          while(!endp(V143))
2257          if(eql(x,V143->c.c_car)){          if(eql(x,V143->c.c_car)){
2258          goto T832;          goto T821;
2259          }else V143=V143->c.c_cdr;          }else V143=V143->c.c_cdr;
2260          goto T831;}          goto T820;}
2261          goto T832;          goto T821;
2262  T832:;  T821:;
         base[2]= Ct;  
2263          base[3]= Ct;          base[3]= Ct;
2264          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2265            vs_top=(vs_base=base+3)+2;
2266          return;          return;
2267          goto T831;          goto T820;
2268  T831:;  T820:;
2269          base[2]= Cnil;          base[3]= Cnil;
2270          base[3]= (V104);          base[4]= (V106);
2271          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2272          return;          return;
2273            goto T817;
2274    T817:;
2275            V144= coerce_to_string((V103));
2276            if(equal(/* INLINE-ARGS */V144,VV[75])){
2277            goto T826;}
2278            if(!(((V103))==(VV[76]))){
2279            goto T827;}
2280          goto T826;          goto T826;
2281  T826:;  T826:;
2282          if(!(((V101))==(VV[78]))){          {register object x= (V102),V145= VV[77];
         goto T838;}  
         {register object x= (V100),V144= VV[79];  
         while(!endp(V144))  
         if(eql(x,V144->c.c_car)){  
         goto T842;  
         }else V144=V144->c.c_cdr;  
         goto T841;}  
         goto T842;  
 T842:;  
         base[2]= Ct;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T841;  
 T841:;  
         base[2]= Cnil;  
         base[3]= (V104);  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T838;  
 T838:;  
         if(!(((V101))==(VV[80]))){  
         goto T848;}  
         if(!(((V100))==(VV[81]))){  
         goto T851;}  
         base[2]= Ct;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T851;  
 T851:;  
         base[2]= Cnil;  
         base[3]= (V104);  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T848;  
 T848:;  
         if(!(((V101))==(VV[82]))){  
         goto T858;}  
         if(!(((V100))==(VV[83]))){  
         goto T861;}  
         base[2]= Ct;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T861;  
 T861:;  
         base[2]= Cnil;  
         base[3]= (V104);  
         vs_top=(vs_base=base+2)+2;  
         return;  
         goto T858;  
 T858:;  
         if(!(((V101))==(VV[84]))){  
         goto T868;}  
         {register object x= (V100),V145= VV[85];  
2283          while(!endp(V145))          while(!endp(V145))
2284          if(eql(x,V145->c.c_car)){          if(eql(x,V145->c.c_car)){
2285          goto T872;          goto T833;
2286          }else V145=V145->c.c_cdr;          }else V145=V145->c.c_cdr;
2287          goto T871;}          goto T832;}
2288          goto T872;          goto T833;
2289  T872:;  T833:;
         base[2]= Ct;  
2290          base[3]= Ct;          base[3]= Ct;
2291          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2292            vs_top=(vs_base=base+3)+2;
2293          return;          return;
2294          goto T871;          goto T832;
2295  T871:;  T832:;
2296          base[2]= Cnil;          base[3]= Cnil;
2297          base[3]= (V104);          base[4]= (V106);
2298          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2299          return;          return;
2300          goto T868;          goto T827;
2301  T868:;  T827:;
2302          if(!(((V101))==(VV[84]))){          if(!(((V103))==(VV[78]))){
2303          goto T878;}          goto T839;}
2304          {register object x= (V100),V146= VV[86];          {register object x= (V102),V146= VV[79];
2305          while(!endp(V146))          while(!endp(V146))
2306          if(eql(x,V146->c.c_car)){          if(eql(x,V146->c.c_car)){
2307          goto T882;          goto T843;
2308          }else V146=V146->c.c_cdr;          }else V146=V146->c.c_cdr;
2309          goto T881;}          goto T842;}
2310          goto T882;          goto T843;
2311  T882:;  T843:;
         base[2]= Ct;  
2312          base[3]= Ct;          base[3]= Ct;
2313          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2314            vs_top=(vs_base=base+3)+2;
2315          return;          return;
2316          goto T881;          goto T842;
2317  T881:;  T842:;
2318          base[2]= Cnil;          base[3]= Cnil;
2319          base[3]= (V104);          base[4]= (V106);
2320          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2321          return;          return;
2322          goto T878;          goto T839;
2323  T878:;  T839:;
2324          if(!(((V101))==(VV[87]))){          if(!(((V103))==(VV[80]))){
2325          goto T888;}          goto T849;}
2326          {register object x= (V100),V147= VV[88];          if(!(((V102))==(VV[81]))){
2327            goto T852;}
2328            base[3]= Ct;
2329            base[4]= Ct;
2330            vs_top=(vs_base=base+3)+2;
2331            return;
2332            goto T852;
2333    T852:;
2334            base[3]= Cnil;
2335            base[4]= (V106);
2336            vs_top=(vs_base=base+3)+2;
2337            return;
2338            goto T849;
2339    T849:;
2340            if(!(((V103))==(VV[82]))){
2341            goto T859;}
2342            if(!(((V102))==(VV[83]))){
2343            goto T862;}
2344            base[3]= Ct;
2345            base[4]= Ct;
2346            vs_top=(vs_base=base+3)+2;
2347            return;
2348            goto T862;
2349    T862:;
2350            base[3]= Cnil;
2351            base[4]= (V106);
2352            vs_top=(vs_base=base+3)+2;
2353            return;
2354            goto T859;
2355    T859:;
2356            if(!(((V103))==(VV[84]))){
2357            goto T869;}
2358            {register object x= (V102),V147= VV[85];
2359          while(!endp(V147))          while(!endp(V147))
2360          if(eql(x,V147->c.c_car)){          if(eql(x,V147->c.c_car)){
2361          goto T892;          goto T873;
2362          }else V147=V147->c.c_cdr;          }else V147=V147->c.c_cdr;
2363          goto T891;}          goto T872;}
2364          goto T892;          goto T873;
2365  T892:;  T873:;
         base[2]= Ct;  
2366          base[3]= Ct;          base[3]= Ct;
2367          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2368            vs_top=(vs_base=base+3)+2;
2369          return;          return;
2370          goto T891;          goto T872;
2371  T891:;  T872:;
2372          base[2]= Cnil;          base[3]= Cnil;
2373          base[3]= (V104);          base[4]= (V106);
2374          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2375          return;          return;
2376          goto T888;          goto T869;
2377  T888:;  T869:;
2378          if(!(((V101))==(VV[89]))){          if(!(((V103))==(VV[84]))){
2379          goto T898;}          goto T879;}
2380          {register object x= (V100),V148= VV[90];          {register object x= (V102),V148= VV[86];
2381          while(!endp(V148))          while(!endp(V148))
2382          if(eql(x,V148->c.c_car)){          if(eql(x,V148->c.c_car)){
2383          goto T902;          goto T883;
2384          }else V148=V148->c.c_cdr;          }else V148=V148->c.c_cdr;
2385          goto T901;}          goto T882;}
2386          goto T902;          goto T883;
2387  T902:;  T883:;
         base[2]= Ct;  
2388          base[3]= Ct;          base[3]= Ct;
2389          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2390            vs_top=(vs_base=base+3)+2;
2391          return;          return;
2392          goto T901;          goto T882;
2393  T901:;  T882:;
2394          base[2]= Cnil;          base[3]= Cnil;
2395          base[3]= (V104);          base[4]= (V106);
2396          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2397          return;          return;
2398          goto T898;          goto T879;
2399  T898:;  T879:;
2400          if(!(((V101))==(VV[91]))){          if(!(((V103))==(VV[87]))){
2401          goto T908;}          goto T889;}
2402          {register object x= (V100),V149= VV[92];          {register object x= (V102),V149= VV[88];
2403          while(!endp(V149))          while(!endp(V149))
2404          if(eql(x,V149->c.c_car)){          if(eql(x,V149->c.c_car)){
2405          goto T912;          goto T893;
2406          }else V149=V149->c.c_cdr;          }else V149=V149->c.c_cdr;
2407          goto T911;}          goto T892;}
2408            goto T893;
2409    T893:;
2410            base[3]= Ct;
2411            base[4]= Ct;
2412            vs_top=(vs_base=base+3)+2;
2413            return;
2414            goto T892;
2415    T892:;
2416            base[3]= Cnil;
2417            base[4]= (V106);
2418            vs_top=(vs_base=base+3)+2;
2419            return;
2420            goto T889;
2421    T889:;
2422            if(!(((V103))==(VV[89]))){
2423            goto T899;}
2424            {register object x= (V102),V150= VV[90];
2425            while(!endp(V150))
2426            if(eql(x,V150->c.c_car)){
2427            goto T903;
2428            }else V150=V150->c.c_cdr;
2429            goto T902;}
2430            goto T903;
2431    T903:;
2432            base[3]= Ct;
2433            base[4]= Ct;
2434            vs_top=(vs_base=base+3)+2;
2435            return;
2436            goto T902;
2437    T902:;
2438            base[3]= Cnil;
2439            base[4]= (V106);
2440            vs_top=(vs_base=base+3)+2;
2441            return;
2442            goto T899;
2443    T899:;
2444            if(!(((V103))==(VV[91]))){
2445            goto T909;}
2446            {register object x= (V102),V151= VV[92];
2447            while(!endp(V151))
2448            if(eql(x,V151->c.c_car)){
2449            goto T913;
2450            }else V151=V151->c.c_cdr;
2451            goto T912;}
2452            goto T913;
2453    T913:;
2454            base[3]= Ct;
2455            base[4]= Ct;
2456            vs_top=(vs_base=base+3)+2;
2457            return;
2458          goto T912;          goto T912;
2459  T912:;  T912:;
2460          base[2]= Ct;          base[3]= Cnil;
2461            base[4]= (V106);
2462            vs_top=(vs_base=base+3)+2;
2463            return;
2464            goto T909;
2465    T909:;
2466            if(!(((V103))==(VV[93]))){
2467            goto T919;}
2468            if(!(((V102))==(VV[93]))){
2469            goto T922;}
2470          base[3]= Ct;          base[3]= Ct;
2471          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2472            vs_top=(vs_base=base+3)+2;
2473          return;          return;
2474          goto T911;          goto T922;
2475  T911:;  T922:;
2476          base[2]= Cnil;          base[3]= Cnil;
2477          base[3]= (V104);          base[4]= (V106);
2478          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2479          return;          return;
2480          goto T908;          goto T919;
2481  T908:;  T919:;
2482          if(!(((V101))==(VV[93]))){          if(!(((V103))==(VV[59]))){
2483          goto T918;}          goto T929;}
2484          if(!(((V100))==(VV[93]))){          if(!(((V102))==(VV[59]))){
2485          goto T921;}          goto T932;}
         base[2]= Ct;  
2486          base[3]= Ct;          base[3]= Ct;
2487          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2488            vs_top=(vs_base=base+3)+2;
2489          return;          return;
2490          goto T921;          goto T932;
2491  T921:;  T932:;
2492          base[2]= Cnil;          base[3]= Cnil;
2493          base[3]= (V104);          base[4]= (V106);
2494          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2495          return;          return;
2496          goto T918;          goto T929;
2497  T918:;  T929:;
2498          if(!(((V101))==(VV[59]))){          if(!(((V103))==(VV[94]))){
2499          goto T928;}          goto T939;}
2500          if(!(((V100))==(VV[59]))){          {register object x= (V102),V152= VV[95];
2501          goto T931;}          while(!endp(V152))
2502          base[2]= Ct;          if(eql(x,V152->c.c_car)){
2503            goto T943;
2504            }else V152=V152->c.c_cdr;
2505            goto T942;}
2506            goto T943;
2507    T943:;
2508          base[3]= Ct;          base[3]= Ct;
2509          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2510          return;          vs_top=(vs_base=base+3)+2;
         goto T931;  
 T931:;  
         base[2]= Cnil;  
         base[3]= (V104);  
         vs_top=(vs_base=base+2)+2;  
2511          return;          return;
         goto T928;  
 T928:;  
         if(!(((V101))==(VV[94]))){  
         goto T938;}  
         {register object x= (V100),V150= VV[95];  
         while(!endp(V150))  
         if(eql(x,V150->c.c_car)){  
         goto T942;  
         }else V150=V150->c.c_cdr;  
         goto T941;}  
2512          goto T942;          goto T942;
2513  T942:;  T942:;
2514          base[2]= Ct;          base[3]= Cnil;
2515          base[3]= Ct;          base[4]= (V106);
2516          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
         return;  
         goto T941;  
 T941:;  
         base[2]= Cnil;  
         base[3]= (V104);  
         vs_top=(vs_base=base+2)+2;  
2517          return;          return;
2518          goto T938;          goto T939;
2519  T938:;  T939:;
2520          if(!(((V100))==(VV[94]))){          if(!(((V102))==(VV[94]))){
2521          goto T948;}          goto T949;}
2522          base[2]= Cnil;          base[3]= Cnil;
2523          base[3]= (V105);          base[4]= (V107);
2524          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2525          return;          return;
2526          goto T948;          goto T949;
2527  T948:;  T949:;
2528          if(((V101))==(VV[29])){          if(((V103))==(VV[29])){
         goto T952;}  
         if(!(((V101))==(VV[28]))){  
2529          goto T953;}          goto T953;}
2530          goto T952;          if(!(((V103))==(VV[28]))){
2531  T952:;          goto T954;}
2532          if(((V100))==(VV[29])){          goto T953;
2533          goto T957;}  T953:;
2534          if((get((V100),VV[36],Cnil))==Cnil){          if(((V102))==(VV[29])){
2535          goto T958;}          goto T958;}
2536          goto T957;          if((get((V102),VV[36],Cnil))==Cnil){
2537  T957:;          goto T959;}
         base[2]= Ct;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
2538          goto T958;          goto T958;
2539  T958:;  T958:;
2540          base[2]= Cnil;          base[3]= Ct;
2541          base[3]= (V104);          base[4]= Ct;
2542          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2543          return;          return;
2544          goto T953;          goto T959;
2545  T953:;  T959:;
2546          if(!(((V100))==(VV[29]))){          base[3]= Cnil;
2547          goto T967;}          base[4]= (V106);
2548          base[2]= Cnil;          vs_top=(vs_base=base+3)+2;
         base[3]= (V105);  
         vs_top=(vs_base=base+2)+2;  
2549          return;          return;
2550          goto T967;          goto T954;
2551  T967:;  T954:;
2552          V106= get((V100),VV[36],Cnil);          if(!(((V102))==(VV[29]))){
2553          if(((V106))==Cnil){          goto T968;}
2554          goto T972;}          base[3]= Cnil;
2555          {object V151;          base[4]= (V107);
2556          V151= get((V101),VV[36],Cnil);          vs_top=(vs_base=base+3)+2;
         if(((V151))==Cnil){  
         goto T977;}  
         {register object V152;  
         V152= (V106);  
         goto T980;  
 T980:;  
         if(((V152))!=Cnil){  
         goto T981;}  
         base[2]= Cnil;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
2557          return;          return;
2558            goto T968;
2559    T968:;
2560            V108= get((V102),VV[36],Cnil);
2561            if(((V108))==Cnil){
2562            goto T973;}
2563            {object V153;
2564            V153= get((V103),VV[36],Cnil);
2565            if(((V153))==Cnil){
2566            goto T978;}
2567            {register object V154;
2568            V154= (V108);
2569          goto T981;          goto T981;
2570  T981:;  T981:;
2571          if(!(((V152))==(V151))){          if(((V154))!=Cnil){
2572          goto T987;}          goto T982;}
2573          base[2]= Ct;          base[3]= Cnil;
2574            base[4]= Ct;
2575            vs_top=(vs_base=base+3)+2;
2576            return;
2577            goto T982;
2578    T982:;
2579            if(!(((V154))==(V153))){
2580            goto T988;}
2581          base[3]= Ct;          base[3]= Ct;
2582          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2583            vs_top=(vs_base=base+3)+2;
2584          return;          return;
2585          goto T987;          goto T988;
2586  T987:;  T988:;
2587          V152= structure_ref((V152),VV[36],4);          V154= structure_ref((V154),VV[36],4);
2588          goto T980;}          goto T981;}
2589          goto T977;          goto T978;
2590  T977:;  T978:;
2591          base[2]= Cnil;          base[3]= Cnil;
2592          base[3]= (V105);          base[4]= (V107);
2593          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2594          return;}          return;}
2595          goto T972;          goto T973;
2596  T972:;  T973:;
2597          if(!(((V101))==(VV[96]))){          if(!(((V103))==(VV[96]))){
2598          goto T998;}          goto T999;}
2599          {register object x= (V100),V154= VV[97];          {register object x= (V102),V156= VV[97];
2600          while(!endp(V154))          while(!endp(V156))
2601          if(eql(x,V154->c.c_car)){          if(eql(x,V156->c.c_car)){
2602          goto T1003;          goto T1004;
2603          }else V154=V154->c.c_cdr;          }else V156=V156->c.c_cdr;
2604          goto T1001;}          goto T1002;}
2605          goto T1003;          goto T1004;
2606  T1003:;  T1004:;
2607          if(((*(LnkLI148))((V102),(V103)))==Cnil){          if(((*(LnkLI148))((V104),(V105)))==Cnil){
2608          goto T1001;}          goto T1002;}
         base[2]= Ct;  
2609          base[3]= Ct;          base[3]= Ct;
2610          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2611            vs_top=(vs_base=base+3)+2;
2612          return;          return;
2613          goto T1001;          goto T1002;
2614  T1001:;  T1002:;
2615          base[2]= Cnil;          base[3]= Cnil;
2616          base[3]= (V104);          base[4]= (V106);
2617          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2618          return;          return;
2619          goto T998;          goto T999;
2620  T998:;  T999:;
2621          if((get((V101),VV[36],Cnil))==Cnil){          if((get((V103),VV[36],Cnil))==Cnil){
2622          goto T1010;}          goto T1011;}
2623          base[2]= Cnil;          base[3]= Cnil;
2624          base[3]= (V104);          base[4]= (V106);
2625          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2626          return;          return;
2627          goto T1010;          goto T1011;
2628  T1010:;  T1011:;
2629          {object V155= (V100);          {object V157= (V102);
2630          if((V155!= VV[32]))goto T1014;          if((V157!= VV[32]))goto T1015;
2631          {object V156= (V101);          {object V158= (V103);
2632          if((V156!= VV[32]))goto T1015;          if((V158!= VV[32]))goto T1016;
         base[2]= Ct;  
2633          base[3]= Ct;          base[3]= Ct;
2634          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2635            vs_top=(vs_base=base+3)+2;
2636          return;          return;
2637          goto T1015;          goto T1016;
2638  T1015:;  T1016:;
2639          if((V156!= VV[13])          if((V158!= VV[13])
2640          && (V156!= VV[105]))goto T1018;          && (V158!= VV[105]))goto T1019;
2641          if(((*(LnkLI148))(VV[98],(V103)))==Cnil){          if(((*(LnkLI148))(VV[98],(V105)))==Cnil){
2642          goto T1020;}          goto T1021;}
         base[2]= Ct;  
2643          base[3]= Ct;          base[3]= Ct;
2644          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2645            vs_top=(vs_base=base+3)+2;
2646          return;          return;
2647          goto T1020;          goto T1021;
2648  T1020:;  T1021:;
2649          base[2]= Cnil;          base[3]= Cnil;
2650          base[3]= Ct;          base[4]= Ct;
2651          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2652          return;          return;
2653          goto T1018;          goto T1019;
2654  T1018:;  T1019:;
2655          base[2]= Cnil;          base[3]= Cnil;
2656          base[3]= (V105);          base[4]= (V107);
2657          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2658          return;}          return;}
2659          goto T1014;          goto T1015;
2660  T1014:;  T1015:;
2661          if((V155!= VV[33]))goto T1028;          if((V157!= VV[33]))goto T1029;
2662          {object V157= (V101);          {object V159= (V103);
2663          if((V157!= VV[105]))goto T1029;          if((V159!= VV[105]))goto T1030;
2664          if(((*(LnkLI148))(VV[99],(V103)))==Cnil){          if(((*(LnkLI148))(VV[99],(V105)))==Cnil){
2665          goto T1031;}          goto T1032;}
         base[2]= Ct;  
2666          base[3]= Ct;          base[3]= Ct;
2667          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2668            vs_top=(vs_base=base+3)+2;
2669          return;          return;
2670          goto T1031;          goto T1032;
2671  T1031:;  T1032:;
2672          base[2]= Cnil;          base[3]= Cnil;
2673          base[3]= Ct;          base[4]= Ct;
2674          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2675          return;          return;
2676            goto T1030;
2677    T1030:;
2678            base[3]= Cnil;
2679            base[4]= (V107);
2680            vs_top=(vs_base=base+3)+2;
2681            return;}
2682          goto T1029;          goto T1029;
2683  T1029:;  T1029:;
2684          base[2]= Cnil;          if((V157!= VV[126]))goto T1040;
2685          base[3]= (V105);          {register object x= (V103),V160= VV[100];
2686          vs_top=(vs_base=base+2)+2;          while(!endp(V160))
2687          return;}          if(eql(x,V160->c.c_car)){
2688          goto T1028;          goto T1043;
2689  T1028:;          }else V160=V160->c.c_cdr;
2690          if((V155!= VV[126]))goto T1039;          goto T1042;}
2691          {register object x= (V101),V158= VV[100];          goto T1043;
2692          while(!endp(V158))  T1043:;
2693          if(eql(x,V158->c.c_car)){          base[3]= Ct;
2694          goto T1042;          base[4]= Ct;
2695          }else V158=V158->c.c_cdr;          vs_top=(vs_base=base+3)+2;
2696          goto T1041;}          return;
2697          goto T1042;          goto T1042;
2698  T1042:;  T1042:;
2699          base[2]= Ct;          base[3]= Cnil;
2700          base[3]= Ct;          base[4]= (V107);
2701          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2702          return;          return;
2703          goto T1041;          goto T1040;
2704  T1041:;  T1040:;
2705          base[2]= Cnil;          if((V157!= VV[25]))goto T1048;
2706          base[3]= (V105);          {register object x= (V103),V161= VV[101];
2707          vs_top=(vs_base=base+2)+2;          while(!endp(V161))
2708            if(eql(x,V161->c.c_car)){
2709            goto T1051;
2710            }else V161=V161->c.c_cdr;
2711            goto T1050;}
2712            goto T1051;
2713    T1051:;
2714            base[3]= Ct;
2715            base[4]= Ct;
2716            vs_top=(vs_base=base+3)+2;
2717          return;          return;
         goto T1039;  
 T1039:;  
         if((V155!= VV[25]))goto T1047;  
         {register object x= (V101),V159= VV[101];  
         while(!endp(V159))  
         if(eql(x,V159->c.c_car)){  
         goto T1050;  
         }else V159=V159->c.c_cdr;  
         goto T1049;}  
2718          goto T1050;          goto T1050;
2719  T1050:;  T1050:;
2720          base[2]= Ct;          base[3]= Cnil;
2721          base[3]= Ct;          base[4]= (V107);
2722          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2723          return;          return;
2724          goto T1049;          goto T1048;
2725  T1049:;  T1048:;
2726          base[2]= Cnil;          if((V157!= VV[149]))goto T1056;
2727          base[3]= (V105);          {register object x= (V103),V162= VV[102];
2728          vs_top=(vs_base=base+2)+2;          while(!endp(V162))
2729            if(eql(x,V162->c.c_car)){
2730            goto T1059;
2731            }else V162=V162->c.c_cdr;
2732            goto T1058;}
2733            goto T1059;
2734    T1059:;
2735            base[3]= Ct;
2736            base[4]= Ct;
2737            vs_top=(vs_base=base+3)+2;
2738          return;          return;
         goto T1047;  
 T1047:;  
         if((V155!= VV[149]))goto T1055;  
         {register object x= (V101),V160= VV[102];  
         while(!endp(V160))  
         if(eql(x,V160->c.c_car)){  
         goto T1058;  
         }else V160=V160->c.c_cdr;  
         goto T1057;}  
2739          goto T1058;          goto T1058;
2740  T1058:;  T1058:;
2741          base[2]= Ct;          base[3]= Cnil;
2742          base[3]= Ct;          base[4]= (V107);
2743          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
         return;  
         goto T1057;  
 T1057:;  
         base[2]= Cnil;  
         base[3]= (V105);  
         vs_top=(vs_base=base+2)+2;  
2744          return;          return;
2745          goto T1055;          goto T1056;
2746  T1055:;  T1056:;
2747          if((V155!= VV[24]))goto T1063;          if((V157!= VV[24]))goto T1064;
2748          if(!(((V101))==(VV[103]))){          if(!(((V103))==(VV[103]))){
2749          goto T1065;}          goto T1066;}
         base[2]= Ct;  
2750          base[3]= Ct;          base[3]= Ct;
2751          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2752            vs_top=(vs_base=base+3)+2;
2753          return;          return;
2754          goto T1065;          goto T1066;
2755  T1065:;  T1066:;
2756          base[2]= Cnil;          base[3]= Cnil;
2757          base[3]= (V105);          base[4]= (V107);
2758          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2759          return;          return;
2760          goto T1063;          goto T1064;
2761  T1063:;  T1064:;
2762          if((V155!= VV[103]))goto T1071;          if((V157!= VV[103]))goto T1072;
2763          if(!(((V101))==(VV[24]))){          if(!(((V103))==(VV[24]))){
2764          goto T1073;}          goto T1074;}
         base[2]= Ct;  
2765          base[3]= Ct;          base[3]= Ct;
2766          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2767            vs_top=(vs_base=base+3)+2;
2768          return;          return;
2769          goto T1073;          goto T1074;
2770  T1073:;  T1074:;
2771          base[2]= Cnil;          base[3]= Cnil;
2772          base[3]= (V105);          base[4]= (V107);
2773          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2774            return;
2775            goto T1072;
2776    T1072:;
2777            if((V157!= VV[13]))goto T1080;
2778            {register object x= (V103),V163= VV[104];
2779            while(!endp(V163))
2780            if(eql(x,V163->c.c_car)){
2781            goto T1083;
2782            }else V163=V163->c.c_cdr;
2783            goto T1082;}
2784            goto T1083;
2785    T1083:;
2786            base[3]= (*(LnkLI148))((V104),(V105));
2787            base[4]= Ct;
2788            vs_top=(vs_base=base+3)+2;
2789          return;          return;
         goto T1071;  
 T1071:;  
         if((V155!= VV[13]))goto T1079;  
         {register object x= (V101),V161= VV[104];  
         while(!endp(V161))  
         if(eql(x,V161->c.c_car)){  
         goto T1082;  
         }else V161=V161->c.c_cdr;  
         goto T1081;}  
2790          goto T1082;          goto T1082;
2791  T1082:;  T1082:;
2792          base[2]= (*(LnkLI148))((V102),(V103));          base[3]= Cnil;
2793          base[3]= Ct;          base[4]= (V107);
2794          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2795          return;          return;
2796          goto T1081;          goto T1080;
2797  T1081:;  T1080:;
2798          base[2]= Cnil;          if((V157!= VV[105]))goto T1088;
2799          base[3]= (V105);          if(!(((V103))==(VV[105]))){
2800          vs_top=(vs_base=base+2)+2;          goto T1090;}
2801            base[3]= (*(LnkLI148))((V104),(V105));
2802            base[4]= Ct;
2803            vs_top=(vs_base=base+3)+2;
2804          return;          return;
2805          goto T1079;          goto T1090;
2806  T1079:;  T1090:;
2807          if((V155!= VV[105]))goto T1087;          base[3]= Cnil;
2808          if(!(((V101))==(VV[105]))){          base[4]= (V107);
2809          goto T1089;}          vs_top=(vs_base=base+3)+2;
         base[2]= (*(LnkLI148))((V102),(V103));  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
2810          return;          return;
2811          goto T1089;          goto T1088;
2812  T1089:;  T1088:;
2813          base[2]= Cnil;          if((V157!= VV[106]))goto T1096;
2814          base[3]= (V105);          if(!(((V103))==(VV[106]))){
2815          vs_top=(vs_base=base+2)+2;          goto T1098;}
2816            base[3]= (*(LnkLI148))((V104),(V105));
2817            base[4]= Ct;
2818            vs_top=(vs_base=base+3)+2;
2819          return;          return;
2820          goto T1087;          goto T1098;
2821  T1087:;  T1098:;
2822          if((V155!= VV[106]))goto T1095;          base[3]= Cnil;
2823          if(!(((V101))==(VV[106]))){          base[4]= (V107);
2824          goto T1097;}          vs_top=(vs_base=base+3)+2;
         base[2]= (*(LnkLI148))((V102),(V103));  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
2825          return;          return;
2826          goto T1097;          goto T1096;
2827  T1097:;  T1096:;
2828          base[2]= Cnil;          if((V157!= VV[34]))goto T1104;
2829          base[3]= (V105);          {register object x= (V103),V164= VV[107];
2830          vs_top=(vs_base=base+2)+2;          while(!endp(V164))
2831            if(eql(x,V164->c.c_car)){
2832            goto T1107;
2833            }else V164=V164->c.c_cdr;
2834            goto T1106;}
2835            goto T1107;
2836    T1107:;
2837            base[3]= (*(LnkLI148))((V104),(V105));
2838            base[4]= Ct;
2839            vs_top=(vs_base=base+3)+2;
2840          return;          return;
         goto T1095;  
 T1095:;  
         if((V155!= VV[34]))goto T1103;  
         {register object x= (V101),V162= VV[107];  
         while(!endp(V162))  
         if(eql(x,V162->c.c_car)){  
         goto T1106;  
         }else V162=V162->c.c_cdr;  
         goto T1105;}  
2841          goto T1106;          goto T1106;
2842  T1106:;  T1106:;
2843          base[2]= (*(LnkLI148))((V102),(V103));          base[3]= Cnil;
2844          base[3]= Ct;          base[4]= (V107);
2845          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2846          return;          return;
2847          goto T1105;          goto T1104;
2848  T1105:;  T1104:;
2849          base[2]= Cnil;          if((V157!= VV[130])
2850          base[3]= (V105);          && (V157!= VV[131])
2851          vs_top=(vs_base=base+2)+2;          && (V157!= VV[35]))goto T1112;
2852            {register object x= (V103),V165= VV[108];
2853            while(!endp(V165))
2854            if(eql(x,V165->c.c_car)){
2855            goto T1115;
2856            }else V165=V165->c.c_cdr;
2857            goto T1114;}
2858            goto T1115;
2859    T1115:;
2860            base[3]= (*(LnkLI148))((V104),(V105));
2861            base[4]= Ct;
2862            vs_top=(vs_base=base+3)+2;
2863          return;          return;
         goto T1103;  
 T1103:;  
         if((V155!= VV[130])  
         && (V155!= VV[131])  
         && (V155!= VV[35]))goto T1111;  
         {register object x= (V101),V163= VV[108];  
         while(!endp(V163))  
         if(eql(x,V163->c.c_car)){  
         goto T1114;  
         }else V163=V163->c.c_cdr;  
         goto T1113;}  
2864          goto T1114;          goto T1114;
2865  T1114:;  T1114:;
2866          base[2]= (*(LnkLI148))((V102),(V103));          base[3]= Cnil;
2867          base[3]= Ct;          base[4]= (V107);
2868          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
         return;  
         goto T1113;  
 T1113:;  
         base[2]= Cnil;  
         base[3]= (V105);  
         vs_top=(vs_base=base+2)+2;  
2869          return;          return;
2870          goto T1111;          goto T1112;
2871  T1111:;  T1112:;
2872          if((V155!= VV[109]))goto T1119;          if((V157!= VV[109]))goto T1120;
2873          if(!(((V101))==(VV[109]))){          if(!(((V103))==(VV[109]))){
2874          goto T1121;}{object V164;          goto T1122;}{object V166;
2875          V164= car((V102));          V166= car((V104));
2876          if(V164==Cnil)goto T1125;          if(V166==Cnil)goto T1125;
2877          V98= V164;          base[3]= V166;
2878          goto T1124;          goto T1124;
2879          goto T1125;          goto T1125;
2880  T1125:;}  T1125:;}
2881          V98= Ct;          base[3]= Ct;
2882          goto T1124;          goto T1124;
2883  T1124:;{object V165;  T1124:;{object V167;
2884          V165= car((V103));          V167= car((V105));
2885          if(V165==Cnil)goto T1128;          if(V167==Cnil)goto T1128;
2886          V99= V165;          base[4]= V167;
2887          goto T1127;          goto T1127;
2888          goto T1128;          goto T1128;
2889  T1128:;}  T1128:;}
2890          V99= Ct;          base[4]= Ct;
2891          goto T1127;          goto T1127;
2892  T1127:;  T1127:;
2893          goto TTL;          vs_top=(vs_base=base+3)+2;
2894          goto T1121;          (void) (*Lnk146)();
 T1121:;  
         base[2]= Cnil;  
         base[3]= (V105);  
         vs_top=(vs_base=base+2)+2;  
2895          return;          return;
2896          goto T1119;          goto T1122;
2897  T1119:;  T1122:;
2898          if((V155!= VV[27]))goto T1132;          base[3]= Cnil;
2899          if(((V101))==(VV[27])){          base[4]= (V107);
2900            vs_top=(vs_base=base+3)+2;
2901            return;
2902            goto T1120;
2903    T1120:;
2904            if((V157!= VV[27]))goto T1132;
2905            if(((V103))==(VV[27])){
2906          goto T1133;}          goto T1133;}
2907          if(!(((V101))==(VV[22]))){          if(!(((V103))==(VV[22]))){
2908          goto T1134;}          goto T1134;}
2909          goto T1133;          goto T1133;
2910  T1133:;  T1133:;
2911          if(endp_prop((V102))){          if(endp_prop((V104))){
2912          goto T1139;}          goto T1139;}
2913          if(!((car((V102)))==(VV[17]))){          if(!((car((V104)))==(VV[17]))){
2914          goto T1140;}          goto T1140;}
2915          goto T1139;          goto T1139;
2916  T1139:;  T1139:;
2917          if(endp_prop((V103))){          if(endp_prop((V105))){
2918          goto T1138;}          goto T1138;}
2919          if((car((V103)))==(VV[17])){          if((car((V105)))==(VV[17])){
2920          goto T1138;}          goto T1138;}
2921          base[2]= Cnil;          base[3]= Cnil;
2922          base[3]= Ct;          base[4]= Ct;
2923          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2924          return;          return;
2925          goto T1140;          goto T1140;
2926  T1140:;  T1140:;
2927          if(endp_prop((V103))){          if(endp_prop((V105))){
2928          goto T1138;}          goto T1138;}
2929          if((car((V103)))==(VV[17])){          if((car((V105)))==(VV[17])){
2930          goto T1138;}          goto T1138;}
2931          if(equal(car((V102)),car((V103)))){          if(equal(car((V104)),car((V105)))){
2932          goto T1138;}          goto T1138;}
2933          if(!((car((V102)))==(VV[25]))){          if(!((car((V104)))==(VV[25]))){
2934          goto T1154;}          goto T1154;}
2935          if((car((V103)))==(VV[24])){          if((car((V105)))==(VV[24])){
2936          goto T1138;}          goto T1138;}
2937          goto T1154;          goto T1154;
2938  T1154:;  T1154:;
2939          base[2]= Cnil;          base[3]= Cnil;
2940          base[3]= Ct;          base[4]= Ct;
2941          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2942          return;          return;
2943          goto T1138;          goto T1138;
2944  T1138:;  T1138:;
2945          if(endp_prop(cdr((V102)))){          if(endp_prop(cdr((V104)))){
2946          goto T1163;}          goto T1163;}
2947          if(!((cadr((V102)))==(VV[17]))){          if(!((cadr((V104)))==(VV[17]))){
2948          goto T1162;}          goto T1162;}
2949          goto T1163;          goto T1163;
2950  T1163:;  T1163:;
2951          if(endp_prop(cdr((V103)))){          if(endp_prop(cdr((V105)))){
2952          goto T1167;}          goto T1167;}
2953          if(!((cadr((V103)))==(VV[17]))){          if(!((cadr((V105)))==(VV[17]))){
2954          goto T1168;}          goto T1168;}
2955          goto T1167;          goto T1167;
2956  T1167:;  T1167:;
         base[2]= Ct;  
2957          base[3]= Ct;          base[3]= Ct;
2958          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2959            vs_top=(vs_base=base+3)+2;
2960          return;          return;
2961          goto T1168;          goto T1168;
2962  T1168:;  T1168:;
2963          base[2]= Cnil;          base[3]= Cnil;
2964          base[3]= Ct;          base[4]= Ct;
2965          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2966          return;          return;
2967          goto T1162;          goto T1162;
2968  T1162:;  T1162:;
2969          if(endp_prop(cdr((V103)))){          if(endp_prop(cdr((V105)))){
2970          goto T1177;}          goto T1177;}
2971          if(!((cadr((V103)))==(VV[17]))){          if(!((cadr((V105)))==(VV[17]))){
2972          goto T1176;}          goto T1176;}
2973          goto T1177;          goto T1177;
2974  T1177:;  T1177:;
         base[2]= Ct;  
2975          base[3]= Ct;          base[3]= Ct;
2976          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
2977            vs_top=(vs_base=base+3)+2;
2978          return;          return;
2979          goto T1176;          goto T1176;
2980  T1176:;  T1176:;
2981          base[2]= (*(LnkLI134))(cadr((V102)),cadr((V103)));          base[3]= (*(LnkLI134))(cadr((V104)),cadr((V105)));
2982          base[3]= Ct;          base[4]= Ct;
2983          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2984          return;          return;
2985          goto T1134;          goto T1134;
2986  T1134:;  T1134:;
2987          base[2]= Cnil;          base[3]= Cnil;
2988          base[3]= (V105);          base[4]= (V107);
2989          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
2990          return;          return;
2991          goto T1132;          goto T1132;
2992  T1132:;  T1132:;
2993          if((V155!= VV[22]))goto T1187;          if((V157!= VV[22]))goto T1187;
2994          if(!(((V101))==(VV[22]))){          if(!(((V103))==(VV[22]))){
2995          goto T1189;}          goto T1189;}
2996          if(endp_prop((V102))){          if(endp_prop((V104))){
2997          goto T1192;}          goto T1192;}
2998          if(!((car((V102)))==(VV[17]))){          if(!((car((V104)))==(VV[17]))){
2999          goto T1193;}          goto T1193;}
3000          goto T1192;          goto T1192;
3001  T1192:;  T1192:;
3002          if(endp_prop((V103))){          if(endp_prop((V105))){
3003          goto T1191;}          goto T1191;}
3004          if((car((V103)))==(VV[17])){          if((car((V105)))==(VV[17])){
3005          goto T1191;}          goto T1191;}
3006          base[2]= Cnil;          base[3]= Cnil;
3007          base[3]= Ct;          base[4]= Ct;
3008          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
3009          return;          return;
3010          goto T1193;          goto T1193;
3011  T1193:;  T1193:;
3012          if(endp_prop((V103))){          if(endp_prop((V105))){
3013          goto T1191;}          goto T1191;}
3014          if((car((V103)))==(VV[17])){          if((car((V105)))==(VV[17])){
3015          goto T1191;}          goto T1191;}
3016          if(equal(car((V102)),car((V103)))){          if(equal(car((V104)),car((V105)))){
3017          goto T1191;}          goto T1191;}
3018          if(!((car((V102)))==(VV[25]))){          if(!((car((V104)))==(VV[25]))){
3019          goto T1207;}          goto T1207;}
3020          if((car((V103)))==(VV[24])){          if((car((V105)))==(VV[24])){
3021          goto T1191;}          goto T1191;}
3022          goto T1207;          goto T1207;
3023  T1207:;  T1207:;
3024          base[2]= Cnil;          base[3]= Cnil;
3025          base[3]= Ct;          base[4]= Ct;
3026          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
3027          return;          return;
3028          goto T1191;          goto T1191;
3029  T1191:;  T1191:;
3030          if(endp_prop(cdr((V102)))){          if(endp_prop(cdr((V104)))){
3031          goto T1216;}          goto T1216;}
3032          if(!((cadr((V102)))==(VV[17]))){          if(!((cadr((V104)))==(VV[17]))){
3033          goto T1215;}          goto T1215;}
3034          goto T1216;          goto T1216;
3035  T1216:;  T1216:;
3036          if(endp_prop(cdr((V103)))){          if(endp_prop(cdr((V105)))){
3037          goto T1220;}          goto T1220;}
3038          if(!((cadr((V103)))==(VV[17]))){          if(!((cadr((V105)))==(VV[17]))){
3039          goto T1221;}          goto T1221;}
3040          goto T1220;          goto T1220;
3041  T1220:;  T1220:;
         base[2]= Ct;  
3042          base[3]= Ct;          base[3]= Ct;
3043          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
3044            vs_top=(vs_base=base+3)+2;
3045          return;          return;
3046          goto T1221;          goto T1221;
3047  T1221:;  T1221:;
3048          base[2]= Cnil;          base[3]= Cnil;
3049          base[3]= Ct;          base[4]= Ct;
3050          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
3051          return;          return;
3052          goto T1215;          goto T1215;
3053  T1215:;  T1215:;
3054          if(endp_prop(cdr((V103)))){          if(endp_prop(cdr((V105)))){
3055          goto T1230;}          goto T1230;}
3056          if(!((cadr((V103)))==(VV[17]))){          if(!((cadr((V105)))==(VV[17]))){
3057          goto T1229;}          goto T1229;}
3058          goto T1230;          goto T1230;
3059  T1230:;  T1230:;
         base[2]= Ct;  
3060          base[3]= Ct;          base[3]= Ct;
3061          vs_top=(vs_base=base+2)+2;          base[4]= Ct;
3062            vs_top=(vs_base=base+3)+2;
3063          return;          return;
3064          goto T1229;          goto T1229;
3065  T1229:;  T1229:;
3066          base[2]= (*(LnkLI134))(cadr((V102)),cadr((V103)));          base[3]= (*(LnkLI134))(cadr((V104)),cadr((V105)));
3067          base[3]= Ct;          base[4]= Ct;
3068          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
3069          return;          return;
3070          goto T1189;          goto T1189;
3071  T1189:;  T1189:;
3072          base[2]= Cnil;          base[3]= Cnil;
3073          base[3]= (V105);          base[4]= (V107);
3074          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
3075          return;          return;
3076          goto T1187;          goto T1187;
3077  T1187:;  T1187:;
3078          if(((V104))==Cnil){          if(((V106))==Cnil){
3079          goto T1241;}          goto T1241;}
3080          base[2]= (((V100))==((V101))?Ct:Cnil);          base[3]= (((V102))==((V103))?Ct:Cnil);
3081          base[3]= Ct;          base[4]= Ct;
3082          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
3083          return;          return;
3084          goto T1241;          goto T1241;
3085  T1241:;  T1241:;
         base[2]= Cnil;  
3086          base[3]= Cnil;          base[3]= Cnil;
3087          vs_top=(vs_base=base+2)+2;          base[4]= Cnil;
3088            vs_top=(vs_base=base+3)+2;
3089          return;}}          return;}}
3090          }          }
3091  }  }
3092  /*      local entry for function SUB-INTERVAL-P */  /*      local entry for function SUB-INTERVAL-P */
3093    
3094  static object LI28(V168,V169)  static object LI28(V170,V171)
3095    
3096  register object V168;register object V169;  register object V170;register object V171;
3097  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
3098          goto TTL;          goto TTL;
3099  TTL:;  TTL:;
3100          {register object V170;          {register object V172;
         register object V171;  
         register object V172;  
3101          register object V173;          register object V173;
3102          V170= Cnil;          register object V174;
3103          V171= Cnil;          register object V175;
3104          V172= Cnil;          V172= Cnil;
3105          V173= Cnil;          V173= Cnil;
3106          if(!(endp_prop((V168)))){          V174= Cnil;
3107            V175= Cnil;
3108            if(!(endp_prop((V170)))){
3109          goto T1249;}          goto T1249;}
3110          V170= VV[17];          V172= VV[17];
3111          V171= VV[17];          V173= VV[17];
3112          goto T1247;          goto T1247;
3113          goto T1249;          goto T1249;
3114  T1249:;  T1249:;
3115          if(!(endp_prop(cdr((V168))))){          if(!(endp_prop(cdr((V170))))){
3116          goto T1255;}          goto T1255;}
3117          V170= car((V168));          V172= car((V170));
3118          V171= VV[17];          V173= VV[17];
3119          goto T1247;          goto T1247;
3120          goto T1255;          goto T1255;
3121  T1255:;  T1255:;
3122          V170= car((V168));          V172= car((V170));
3123          V171= cadr((V168));          V173= cadr((V170));
3124          goto T1247;          goto T1247;
3125  T1247:;  T1247:;
3126          if(!(endp_prop((V169)))){          if(!(endp_prop((V171)))){
3127          goto T1265;}          goto T1265;}
3128          V172= VV[17];          V174= VV[17];
3129          V173= VV[17];          V175= VV[17];
3130          goto T1263;          goto T1263;
3131          goto T1265;          goto T1265;
3132  T1265:;  T1265:;
3133          if(!(endp_prop(cdr((V169))))){          if(!(endp_prop(cdr((V171))))){
3134          goto T1271;}          goto T1271;}
3135          V172= car((V169));          V174= car((V171));
3136          V173= VV[17];          V175= VV[17];
3137          goto T1263;          goto T1263;
3138          goto T1271;          goto T1271;
3139  T1271:;  T1271:;
3140          V172= car((V169));          V174= car((V171));
3141          V173= cadr((V169));          V175= cadr((V171));
3142          goto T1263;          goto T1263;
3143  T1263:;  T1263:;
3144          if(!(((V170))==(VV[17]))){          if(!(((V172))==(VV[17]))){
3145          goto T1281;}          goto T1281;}
3146          if(((V172))==(VV[17])){          if(((V174))==(VV[17])){
3147          goto T1279;}          goto T1279;}
3148          {object V174 = Cnil;          {object V176 = Cnil;
3149          VMR28(V174)}          VMR28(V176)}
3150          goto T1281;          goto T1281;
3151  T1281:;  T1281:;
3152          {object V175;          {object V177;
3153          V175= (((V172))==(VV[17])?Ct:Cnil);          V177= (((V174))==(VV[17])?Ct:Cnil);
3154          if(((V175))==Cnil){          if(((V177))==Cnil){
3155          goto T1287;}          goto T1287;}
3156          goto T1279;          goto T1279;
3157          goto T1287;          goto T1287;
3158  T1287:;  T1287:;
         if(!(type_of((V170))==t_cons)){  
         goto T1290;}  
3159          if(!(type_of((V172))==t_cons)){          if(!(type_of((V172))==t_cons)){
3160            goto T1290;}
3161            if(!(type_of((V174))==t_cons)){
3162          goto T1293;}          goto T1293;}
3163          if(!(number_compare(car((V170)),car((V172)))<0)){          if(!(number_compare(car((V172)),car((V174)))<0)){
3164          goto T1279;}          goto T1279;}
3165          {object V176 = Cnil;          {object V178 = Cnil;
3166          VMR28(V176)}          VMR28(V178)}
3167          goto T1293;          goto T1293;
3168  T1293:;  T1293:;
3169          if(!(number_compare(car((V170)),(V172))<0)){          if(!(number_compare(car((V172)),(V174))<0)){
3170          goto T1279;}          goto T1279;}
3171          {object V177 = Cnil;          {object V179 = Cnil;
3172          VMR28(V177)}          VMR28(V179)}
3173          goto T1290;          goto T1290;
3174  T1290:;  T1290:;
3175          {object V178;          {object V180;
3176          if(!(type_of((V172))==t_cons)){          if(!(type_of((V174))==t_cons)){
3177          goto T1301;}          goto T1301;}
3178          if(!(number_compare((V170),car((V172)))<=0)){          if(!(number_compare((V172),car((V174)))<=0)){
3179          goto T1304;}          goto T1304;}
3180          {object V179 = Cnil;          {object V181 = Cnil;
3181          VMR28(V179)}          VMR28(V181)}
3182          goto T1304;          goto T1304;
3183  T1304:;  T1304:;
3184          V178= Cnil;          V180= Cnil;
3185          goto T1299;          goto T1299;
3186          goto T1301;          goto T1301;
3187  T1301:;  T1301:;
3188          if(!(number_compare((V170),(V172))<0)){          if(!(number_compare((V172),(V174))<0)){
3189          goto T1307;}          goto T1307;}
3190          {object V180 = Cnil;          {object V182 = Cnil;
3191          VMR28(V180)}          VMR28(V182)}
3192          goto T1307;          goto T1307;
3193  T1307:;  T1307:;
3194          V178= Cnil;          V180= Cnil;
3195          goto T1299;          goto T1299;
3196  T1299:;  T1299:;
3197          if(((V178))==Cnil){          if(((V180))==Cnil){
3198          goto T1279;}}}          goto T1279;}}}
3199          goto T1279;          goto T1279;
3200  T1279:;  T1279:;
3201          if(!(((V171))==(VV[17]))){          if(!(((V173))==(VV[17]))){
3202          goto T1313;}          goto T1313;}
3203          if(((V173))==(VV[17])){          if(((V175))==(VV[17])){
3204          goto T1311;}          goto T1311;}
3205          {object V181 = Cnil;          {object V183 = Cnil;
3206          VMR28(V181)}          VMR28(V183)}
3207          goto T1313;          goto T1313;
3208  T1313:;  T1313:;
3209          {object V182;          {object V184;
3210          V182= (((V173))==(VV[17])?Ct:Cnil);          V184= (((V175))==(VV[17])?Ct:Cnil);
3211          if(((V182))==Cnil){          if(((V184))==Cnil){
3212          goto T1319;}          goto T1319;}
3213          goto T1311;          goto T1311;
3214          goto T1319;          goto T1319;
3215  T1319:;  T1319:;
         if(!(type_of((V171))==t_cons)){  
         goto T1322;}  
3216          if(!(type_of((V173))==t_cons)){          if(!(type_of((V173))==t_cons)){
3217            goto T1322;}
3218            if(!(type_of((V175))==t_cons)){
3219          goto T1325;}          goto T1325;}
3220          if(!(number_compare(car((V171)),car((V173)))>0)){          if(!(number_compare(car((V173)),car((V175)))>0)){
3221          goto T1311;}          goto T1311;}
3222          {object V183 = Cnil;          {object V185 = Cnil;
3223          VMR28(V183)}          VMR28(V185)}
3224          goto T1325;          goto T1325;
3225  T1325:;  T1325:;
3226          if(!(number_compare(car((V171)),(V173))>0)){          if(!(number_compare(car((V173)),(V175))>0)){
3227          goto T1311;}          goto T1311;}
3228          {object V184 = Cnil;          {object V186 = Cnil;
3229          VMR28(V184)}          VMR28(V186)}
3230          goto T1322;          goto T1322;
3231  T1322:;  T1322:;
3232          {object V185;          {object V187;
3233          if(!(type_of((V173))==t_cons)){          if(!(type_of((V175))==t_cons)){
3234          goto T1333;}          goto T1333;}
3235          if(!(number_compare((V171),car((V173)))>=0)){          if(!(number_compare((V173),car((V175)))>=0)){
3236          goto T1336;}          goto T1336;}
3237          {object V186 = Cnil;          {object V188 = Cnil;
3238          VMR28(V186)}          VMR28(V188)}
3239          goto T1336;          goto T1336;
3240  T1336:;  T1336:;
3241          V185= Cnil;          V187= Cnil;
3242          goto T1331;          goto T1331;
3243          goto T1333;          goto T1333;
3244  T1333:;  T1333:;
3245          if(!(number_compare((V171),(V173))>0)){          if(!(number_compare((V173),(V175))>0)){
3246          goto T1339;}          goto T1339;}
3247          {object V187 = Cnil;          {object V189 = Cnil;
3248          VMR28(V187)}          VMR28(V189)}
3249          goto T1339;          goto T1339;
3250  T1339:;  T1339:;
3251          V185= Cnil;          V187= Cnil;
3252          goto T1331;          goto T1331;
3253  T1331:;  T1331:;
3254          if(((V185))==Cnil){          if(((V187))==Cnil){
3255          goto T1311;}}}          goto T1311;}}}
3256          goto T1311;          goto T1311;
3257  T1311:;  T1311:;
3258          {object V188 = Ct;          {object V190 = Ct;
3259          VMR28(V188)}}          VMR28(V190)}}
3260          return Cnil;          return Cnil;
3261  }  }
3262  /*      local entry for function IN-INTERVAL-P  */  /*      local entry for function IN-INTERVAL-P  */
3263    
3264  static object LI29(V191,V192)  static object LI29(V193,V194)
3265    
3266  register object V191;register object V192;  register object V193;register object V194;
3267  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
3268          goto TTL;          goto TTL;
3269  TTL:;  TTL:;
3270          {register object V193;          {register object V195;
3271          register object V194;          register object V196;
3272          V193= Cnil;          V195= Cnil;
3273          V194= Cnil;          V196= Cnil;
3274          if(!(endp_prop((V192)))){          if(!(endp_prop((V194)))){
3275          goto T1345;}          goto T1345;}
3276          V193= VV[17];          V195= VV[17];
3277          V194= VV[17];          V196= VV[17];
3278          goto T1343;          goto T1343;
3279          goto T1345;          goto T1345;
3280  T1345:;  T1345:;
3281          if(!(endp_prop(cdr((V192))))){          if(!(endp_prop(cdr((V194))))){
3282          goto T1351;}          goto T1351;}
3283          V193= car((V192));          V195= car((V194));
3284          V194= VV[17];          V196= VV[17];
3285          goto T1343;          goto T1343;
3286          goto T1351;          goto T1351;
3287  T1351:;  T1351:;
3288          V193= car((V192));          V195= car((V194));
3289          V194= cadr((V192));          V196= cadr((V194));
3290          goto T1343;          goto T1343;
3291  T1343:;  T1343:;
3292          {object V195;          {object V197;
3293          V195= (((V193))==(VV[17])?Ct:Cnil);          V197= (((V195))==(VV[17])?Ct:Cnil);
3294          if(((V195))==Cnil){          if(((V197))==Cnil){
3295          goto T1362;}          goto T1362;}
3296          goto T1359;          goto T1359;
3297          goto T1362;          goto T1362;
3298  T1362:;  T1362:;
3299          if(!(type_of((V193))==t_cons)){          if(!(type_of((V195))==t_cons)){
3300          goto T1365;}          goto T1365;}
3301          if(!(number_compare((V191),car((V193)))<=0)){          if(!(number_compare((V193),car((V195)))<=0)){
3302          goto T1359;}          goto T1359;}
3303          {object V196 = Cnil;          {object V198 = Cnil;
3304          VMR29(V196)}          VMR29(V198)}
3305          goto T1365;          goto T1365;
3306  T1365:;  T1365:;
3307          {object V197;          {object V199;
3308          if(!(number_compare((V191),(V193))<0)){          if(!(number_compare((V193),(V195))<0)){
3309          goto T1371;}          goto T1371;}
3310          {object V198 = Cnil;          {object V200 = Cnil;
3311          VMR29(V198)}          VMR29(V200)}
3312          goto T1371;          goto T1371;
3313  T1371:;  T1371:;
3314          V197= Cnil;          V199= Cnil;
3315          if(((V197))==Cnil){          if(((V199))==Cnil){
3316          goto T1359;}}}          goto T1359;}}}
3317          goto T1359;          goto T1359;
3318  T1359:;  T1359:;
3319          {object V199;          {object V201;
3320          V199= (((V194))==(VV[17])?Ct:Cnil);          V201= (((V196))==(VV[17])?Ct:Cnil);
3321          if(((V199))==Cnil){          if(((V201))==Cnil){
3322          goto T1378;}          goto T1378;}
3323          goto T1375;          goto T1375;
3324          goto T1378;          goto T1378;
3325  T1378:;  T1378:;
3326          if(!(type_of((V194))==t_cons)){          if(!(type_of((V196))==t_cons)){
3327          goto T1381;}          goto T1381;}
3328          if(!(number_compare((V191),car((V194)))>=0)){          if(!(number_compare((V193),car((V196)))>=0)){
3329          goto T1375;}          goto T1375;}
3330          {object V200 = Cnil;          {object V202 = Cnil;
3331          VMR29(V200)}          VMR29(V202)}
3332          goto T1381;          goto T1381;
3333  T1381:;  T1381:;
3334          {object V201;          {object V203;
3335          if(!(number_compare((V191),(V194))>0)){          if(!(number_compare((V193),(V196))>0)){
3336          goto T1387;}          goto T1387;}
3337          {object V202 = Cnil;          {object V204 = Cnil;
3338          VMR29(V202)}          VMR29(V204)}
3339          goto T1387;          goto T1387;
3340  T1387:;  T1387:;
3341          V201= Cnil;          V203= Cnil;
3342          if(((V201))==Cnil){          if(((V203))==Cnil){
3343          goto T1375;}}}          goto T1375;}}}
3344          goto T1375;          goto T1375;
3345  T1375:;  T1375:;
3346          {object V203 = Ct;          {object V205 = Ct;
3347          VMR29(V203)}}          VMR29(V205)}}
3348          return Cnil;          return Cnil;
3349  }  }
3350  /*      local entry for function MATCH-DIMENSIONS       */  /*      local entry for function MATCH-DIMENSIONS       */
3351    
3352  static object LI30(V206,V207)  static object LI30(V208,V209)
3353    
3354  object V206;register object V207;  object V208;register object V209;
3355  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
3356          goto TTL;          goto TTL;
3357  TTL:;  TTL:;
3358          if(((V206))!=Cnil){          if(((V208))!=Cnil){
3359          goto T1392;}          goto T1392;}
3360          {object V208 = (((V207))==Cnil?Ct:Cnil);          {object V210 = (((V209))==Cnil?Ct:Cnil);
3361          VMR30(V208)}          VMR30(V210)}
3362          goto T1392;          goto T1392;
3363  T1392:;  T1392:;
3364          if(!((car((V207)))==(VV[17]))){          if(!((car((V209)))==(VV[17]))){
3365          goto T1396;}          goto T1396;}
3366          goto T1394;          goto T1394;
3367          goto T1396;          goto T1396;
3368  T1396:;  T1396:;
3369          if(eql(car((V206)),car((V207)))){          if(eql(car((V208)),car((V209)))){
3370          goto T1394;}          goto T1394;}
3371          {object V209 = Cnil;          {object V211 = Cnil;
3372          VMR30(V209)}          VMR30(V211)}
3373          goto T1394;          goto T1394;
3374  T1394:;  T1394:;
3375          V206= cdr((V206));          V208= cdr((V208));
3376          V207= cdr((V207));          V209= cdr((V209));
3377          goto TTL;          goto TTL;
3378          return Cnil;          return Cnil;
3379  }  }
3380  /*      local entry for function COERCE */  /*      local entry for function COERCE */
3381    
3382  static object LI31(V212,V213)  static object LI31(V214,V215)
3383    
3384  register object V212;object V213;  register object V214;object V215;
3385  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
3386          goto TTL;          goto TTL;
3387  TTL:;  TTL:;
3388          base[0]= (V212);          base[0]= (V214);
3389          base[1]= (V213);          base[1]= (V215);
3390          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3391          (void) (*Lnk125)();          (void) (*Lnk125)();
3392          vs_top=sup;          vs_top=sup;
3393          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3394          goto T1401;}          goto T1401;}
3395          {object V214 = (V212);          {object V216 = (V214);
3396          VMR31(V214)}          VMR31(V216)}
3397          goto T1401;          goto T1401;
3398  T1401:;  T1401:;
3399          base[0]= (V213);          base[0]= (V215);
3400          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3401          (void) (*Lnk122)();          (void) (*Lnk122)();
3402          vs_top=sup;          vs_top=sup;
# Line 3373  T1401:; Line 3404  T1401:;
3404          goto T1406;}          goto T1406;}
3405          base[0]= VV[110];          base[0]= VV[110];
3406          base[1]= VV[111];          base[1]= VV[111];
3407          base[2]= (V212);          base[2]= (V214);
3408          base[3]= (V213);          base[3]= (V215);
3409          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
3410          (void) (*Lnk150)();          (void) (*Lnk150)();
3411          vs_top=sup;          vs_top=sup;
3412          goto T1406;          goto T1406;
3413  T1406:;  T1406:;
3414          V213= (*(LnkLI145))((V213));          V215= (*(LnkLI145))((V215));
3415          {object V215= car((V213));          {object V217= car((V215));
3416          if((V215!= VV[47]))goto T1416;          if((V217!= VV[47]))goto T1416;
3417          {register object V216;          {register object V218;
3418          register object V217;          register object V219;
3419          V218 = make_fixnum((long)length((V212)));          V220 = make_fixnum((long)length((V214)));
3420          V217= one_minus(V218);          V219= one_minus(V220);
3421          V216= Cnil;          V218= Cnil;
3422          goto T1419;          goto T1419;
3423  T1419:;  T1419:;
3424          if(!(number_compare((V217),small_fixnum(0))<0)){          if(!(number_compare((V219),small_fixnum(0))<0)){
3425          goto T1420;}          goto T1420;}
3426          {object V219 = (V216);          {object V221 = (V218);
3427          VMR31(V219)}          VMR31(V221)}
3428          goto T1420;          goto T1420;
3429  T1420:;  T1420:;
3430          V220= elt((V212),fixint((V217)));          V222= elt((V214),fixint((V219)));
3431          V216= make_cons(/* INLINE-ARGS */V220,(V216));          V218= make_cons(/* INLINE-ARGS */V222,(V218));
3432          V217= one_minus((V217));          V219= one_minus((V219));
3433          goto T1419;}          goto T1419;}
3434          goto T1416;          goto T1416;
3435  T1416:;  T1416:;
3436          if((V215!= VV[22])          if((V217!= VV[22])
3437          && (V215!= VV[27]))goto T1428;          && (V217!= VV[27]))goto T1428;
3438          if(endp_prop(cdr((V213)))){          if(endp_prop(cdr((V215)))){
3439          goto T1429;}          goto T1429;}
3440          if(endp_prop(cddr((V213)))){          if(endp_prop(cddr((V215)))){
3441          goto T1429;}          goto T1429;}
3442          if((caddr((V213)))==(VV[17])){          if((caddr((V215)))==(VV[17])){
3443          goto T1429;}          goto T1429;}
3444          if(endp_prop(cdr(caddr((V213))))){          if(endp_prop(cdr(caddr((V215))))){
3445          goto T1429;}          goto T1429;}
3446          base[0]= VV[112];          base[0]= VV[112];
3447          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3418  T1416:; Line 3449  T1416:;
3449          vs_top=sup;          vs_top=sup;
3450          goto T1429;          goto T1429;
3451  T1429:;  T1429:;
3452          {register object V221;          {register object V223;
3453          register object V222;          register object V224;
3454          register object V223;          register object V225;
3455          V224 = make_fixnum((long)length((V212)));          V226 = make_fixnum((long)length((V214)));
3456          V221= (VFUN_NARGS=2,(*(LnkLI151))((V213),V224));          V223= (VFUN_NARGS=2,(*(LnkLI151))((V215),V226));
3457          V223= make_fixnum((long)length((V212)));          V225= make_fixnum((long)length((V214)));
3458          V222= small_fixnum(0);          V224= small_fixnum(0);
3459          goto T1442;          goto T1442;
3460  T1442:;  T1442:;
3461          if(!(number_compare((V222),(V223))>=0)){          if(!(number_compare((V224),(V225))>=0)){
3462          goto T1443;}          goto T1443;}
3463          {object V225 = (V221);          {object V227 = (V223);
3464          VMR31(V225)}          VMR31(V227)}
3465          goto T1443;          goto T1443;
3466  T1443:;  T1443:;
3467          V226= elt((V212),fixint((V222)));          V228= elt((V214),fixint((V224)));
3468          (void)(elt_set((V221),fixint((V222)),/* INLINE-ARGS */V226));          (void)(elt_set((V223),fixint((V224)),/* INLINE-ARGS */V228));
3469          V222= one_plus((V222));          V224= one_plus((V224));
3470          goto T1442;}          goto T1442;}
3471          goto T1428;          goto T1428;
3472  T1428:;  T1428:;
3473          if((V215!= VV[103]))goto T1451;          if((V217!= VV[103]))goto T1451;
3474          base[0]= (V212);          base[0]= (V214);
3475          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3476          Lcharacter();          Lcharacter();
3477          vs_top=sup;          vs_top=sup;
3478          {object V227 = vs_base[0];          {object V229 = vs_base[0];
3479          VMR31(V227)}          VMR31(V229)}
3480          goto T1451;          goto T1451;
3481  T1451:;  T1451:;
3482          if((V215!= VV[106]))goto T1453;          if((V217!= VV[106]))goto T1453;
3483          base[0]= (V212);          base[0]= (V214);
3484          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3485          Lfloat();          Lfloat();
3486          vs_top=sup;          vs_top=sup;
3487          {object V228 = vs_base[0];          {object V230 = vs_base[0];
3488          VMR31(V228)}          VMR31(V230)}
3489          goto T1453;          goto T1453;
3490  T1453:;  T1453:;
3491          if((V215!= VV[34]))goto T1455;          if((V217!= VV[34]))goto T1455;
3492          base[0]= (V212);          base[0]= (V214);
3493          base[1]= VV[113];          base[1]= VV[113];
3494          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3495          Lfloat();          Lfloat();
3496          vs_top=sup;          vs_top=sup;
3497          {object V229 = vs_base[0];          {object V231 = vs_base[0];
3498          VMR31(V229)}          VMR31(V231)}
3499          goto T1455;          goto T1455;
3500  T1455:;  T1455:;
3501          if((V215!= VV[130])          if((V217!= VV[130])
3502          && (V215!= VV[131])          && (V217!= VV[131])
3503          && (V215!= VV[35]))goto T1458;          && (V217!= VV[35]))goto T1458;
3504          base[0]= (V212);          base[0]= (V214);
3505          base[1]= VV[114];          base[1]= VV[114];
3506          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3507          Lfloat();          Lfloat();
3508          vs_top=sup;          vs_top=sup;
3509          {object V230 = vs_base[0];          {object V232 = vs_base[0];
3510          VMR31(V230)}          VMR31(V232)}
3511          goto T1458;          goto T1458;
3512  T1458:;  T1458:;
3513          if((V215!= VV[109]))goto T1461;          if((V217!= VV[109]))goto T1461;
3514          if((cdr((V213)))==Cnil){          if((cdr((V215)))==Cnil){
3515          goto T1462;}          goto T1462;}
3516          if((cadr((V213)))==Cnil){          if((cadr((V215)))==Cnil){
3517          goto T1462;}          goto T1462;}
3518          if(!((cadr((V213)))==(VV[17]))){          if(!((cadr((V215)))==(VV[17]))){
3519          goto T1463;}          goto T1463;}
3520          goto T1462;          goto T1462;
3521  T1462:;  T1462:;
3522          base[1]= (V212);          base[1]= (V214);
3523          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3524          Lrealpart();          Lrealpart();
3525          vs_top=sup;          vs_top=sup;
3526          base[0]= vs_base[0];          base[0]= vs_base[0];
3527          base[2]= (V212);          base[2]= (V214);
3528          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3529          Limagpart();          Limagpart();
3530          vs_top=sup;          vs_top=sup;
# Line 3501  T1462:; Line 3532  T1462:;
3532          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3533          Lcomplex();          Lcomplex();
3534          vs_top=sup;          vs_top=sup;
3535          {object V231 = vs_base[0];          {object V233 = vs_base[0];
3536          VMR31(V231)}          VMR31(V233)}
3537          goto T1463;          goto T1463;
3538  T1463:;  T1463:;
3539          base[1]= (V212);          base[1]= (V214);
3540          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3541          Lrealpart();          Lrealpart();
3542          vs_top=sup;          vs_top=sup;
3543          V232= vs_base[0];          V234= vs_base[0];
3544          base[0]= (*(LnkLI152))(V232,cadr((V213)));          base[0]= (*(LnkLI152))(V234,cadr((V215)));
3545          base[2]= (V212);          base[2]= (V214);
3546          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3547          Limagpart();          Limagpart();
3548          vs_top=sup;          vs_top=sup;
3549          V233= vs_base[0];          V235= vs_base[0];
3550          base[1]= (*(LnkLI152))(V233,cadr((V213)));          base[1]= (*(LnkLI152))(V235,cadr((V215)));
3551          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3552          Lcomplex();          Lcomplex();
3553          vs_top=sup;          vs_top=sup;
3554          {object V234 = vs_base[0];          {object V236 = vs_base[0];
3555          VMR31(V234)}          VMR31(V236)}
3556          goto T1461;          goto T1461;
3557  T1461:;  T1461:;
3558          base[0]= VV[115];          base[0]= VV[115];
3559          base[1]= (V212);          base[1]= (V214);
3560          base[2]= (V213);          base[2]= (V215);
3561          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3562          Lerror();          Lerror();
3563          vs_top=sup;          vs_top=sup;
3564          {object V235 = vs_base[0];          {object V237 = vs_base[0];
3565          VMR31(V235)}}          VMR31(V237)}}
3566          base[0]=base[0];          base[0]=base[0];
3567          return Cnil;          return Cnil;
3568  }  }
# Line 3541  static void L32() Line 3572  static void L32()
3572  {register object *base=vs_base;  {register object *base=vs_base;
3573          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
3574          vs_reserve(VM32);          vs_reserve(VM32);
3575          {object V236;          {object V238;
3576          object V237;          object V239;
3577          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
3578          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
3579          V236=(base[0]);          V238=(base[0]);
3580          vs_base=vs_base+1;          vs_base=vs_base+1;
3581          if(vs_base>=vs_top){vs_top=sup;goto T1482;}          if(vs_base>=vs_top){vs_top=sup;goto T1482;}
3582          V237=(base[1]);          V239=(base[1]);
3583          vs_top=sup;          vs_top=sup;
3584          goto T1483;          goto T1483;
3585          goto T1482;          goto T1482;
3586  T1482:;  T1482:;
3587          V237= Cnil;          V239= Cnil;
3588          goto T1483;          goto T1483;
3589  T1483:;  T1483:;
3590          if(symbol_value(VV[116])==Cnil){          if(symbol_value(VV[116])==Cnil){
3591          base[2]= Cnil;          base[2]= Cnil;
3592          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3593          return;}          return;}
3594          if(!(((eql((V236),symbol_value(VV[116]))?Ct:Cnil))==Cnil)){          if(!(((eql((V238),symbol_value(VV[116]))?Ct:Cnil))==Cnil)){
3595          goto T1487;}          goto T1487;}
3596          goto T1485;          goto T1485;
3597          goto T1487;          goto T1487;
3598  T1487:;  T1487:;
3599          if(((eql((V237),symbol_value(VV[117]))?Ct:Cnil))==Cnil){          if(((eql((V239),symbol_value(VV[117]))?Ct:Cnil))==Cnil){
3600          goto T1485;}          goto T1485;}
3601          base[2]= Cnil;          base[2]= Cnil;
3602          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 3578  T1485:; Line 3609  T1485:;
3609          return;}          return;}
3610          base[2]= Ct;          base[2]= Ct;
3611          base[3]= VV[119];          base[3]= VV[119];
3612          base[4]= (V237);          base[4]= (V239);
3613          base[5]= (V236);          base[5]= (V238);
3614          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
3615          Lformat();          Lformat();
3616          return;          return;
3617          }          }
3618  }  }
3619  static object  LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)&LnkLI152,2,first,ap);va_end(ap);return V1;} /* COERCE */  static object  LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,2,first,ap);va_end(ap);return V1;} /* COERCE */
3620  static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[151],(void **)&LnkLI151,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */  static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[151],(void **)(void *)&LnkLI151,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
3621  static void LnkT150(){ call_or_link(VV[150],(void **)&Lnk150);} /* SPECIFIC-ERROR */  static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* SPECIFIC-ERROR */
3622  static object  LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)&LnkLI148,2,first,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */  static object  LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)(void *)&LnkLI148,2,first,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */
3623  static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */  static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)(void *)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */
3624  static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* SUBTYPEP */  static void LnkT146(){ call_or_link(VV[146],(void **)(void *)&Lnk146);} /* SUBTYPEP */
3625  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
3626  static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* FIND-CLASS */  static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* FIND-CLASS */
3627  static void LnkT143(){ call_or_link(VV[143],(void **)&Lnk143);} /* STRUCTURE-SUBTYPE-P */  static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* STRUCTURE-SUBTYPE-P */
3628  static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)&LnkLI142,1,first,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */  static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,1,first,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */
3629  static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
3630  static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)&LnkLI135,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */  static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
3631  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */
3632  static void LnkT129(){ call_or_link(VV[129],(void **)&Lnk129);} /* REALP */  static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* REALP */
3633  static void LnkT128(){ call_or_link(VV[128],(void **)&Lnk128);} /* RATIONALP */  static void LnkT128(){ call_or_link(VV[128],(void **)(void *)&Lnk128);} /* RATIONALP */
3634  static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */  static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */
3635  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* TYPEP */  static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* TYPEP */
3636  static void LnkT124(){ call_or_link(VV[124],(void **)&Lnk124);} /* CLASS-PRECEDENCE-LIST */  static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* CLASS-PRECEDENCE-LIST */
3637  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* CLASS-OF */  static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* CLASS-OF */
3638  static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* CLASSP */  static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* CLASSP */
3639  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* ARRAY-HAS-FILL-POINTER-P */
3640  static object  LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */  static object  LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)(void *)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
3641    
3642  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3643  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.20.4.1

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