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

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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