/[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.12 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.13 by camm, Fri Jan 24 18:38:28 2003 UTC
# Line 96  T1:; Line 96  T1:;
96          V10= list(2,VV[6],base[2]);          V10= list(2,VV[6],base[2]);
97          V11= list(4,VV[5],/* INLINE-ARGS */V10,list(2,VV[9],listA(3,VV[10],base[3],base[4])),VV[11]);          V11= list(4,VV[5],/* INLINE-ARGS */V10,list(2,VV[9],listA(3,VV[10],base[3],base[4])),VV[11]);
98          V12= list(2,VV[6],base[2]);          V12= list(2,VV[6],base[2]);
99          V13= (*(LnkLI118))(base[4]);          V13= (*(LnkLI120))(base[4]);
100          V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]);          V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]);
101          base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2]));          base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2]));
102          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 469  goto T83; Line 469  goto T83;
469  T83:;  T83:;
470          base[0]= (V34);          base[0]= (V34);
471          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
472          (void) (*Lnk119)();          (void) (*Lnk121)();
473          vs_top=sup;          vs_top=sup;
474          V36= vs_base[0];          V36= vs_base[0];
475          if((V36)==Cnil){          if((V36)==Cnil){
# Line 488  T85:; Line 488  T85:;
488          base[0]=base[0];          base[0]=base[0];
489          return Cnil;          return Cnil;
490  }  }
491  /*      function definition for TYPEP   */  /*      function definition for CLASS-OF        */
492    
493  static void L20()  static void L20()
494  {register object *base=vs_base;  {register object *base=vs_base;
495          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
496          vs_reserve(VM20);          vs_reserve(VM20);
497          {register object V40;          {object V40;
498          register object V41;          check_arg(1);
         check_arg(2);  
499          V40=(base[0]);          V40=(base[0]);
         V41=(base[1]);  
500          vs_top=sup;          vs_top=sup;
501  goto TTL;  goto TTL;
502  TTL:;  TTL:;
503          {register object V42;          base[1]= Cnil;
504          register object V43;          vs_top=(vs_base=base+1)+1;
505            return;
506            }
507    }
508    /*      function definition for CLASSP  */
509    
510    static void L21()
511    {register object *base=vs_base;
512            register object *sup=base+VM21; VC21
513            vs_reserve(VM21);
514            {object V41;
515            check_arg(1);
516            V41=(base[0]);
517            vs_top=sup;
518    goto TTL;
519    TTL:;
520            base[1]= Cnil;
521            vs_top=(vs_base=base+1)+1;
522            return;
523            }
524    }
525    /*      function definition for CLASS-PRECEDENCE-LIST   */
526    
527    static void L22()
528    {register object *base=vs_base;
529            register object *sup=base+VM22; VC22
530            vs_reserve(VM22);
531            {object V42;
532            check_arg(1);
533            V42=(base[0]);
534            vs_top=sup;
535    goto TTL;
536    TTL:;
537            base[1]= Cnil;
538            vs_top=(vs_base=base+1)+1;
539            return;
540            }
541    }
542    /*      function definition for TYPEP   */
543    
544    static void L23()
545    {register object *base=vs_base;
546            register object *sup=base+VM23; VC23
547            vs_reserve(VM23);
548            {register object V43;
549          register object V44;          register object V44;
550          V42= Cnil;          check_arg(2);
551          V43= Cnil;          V43=(base[0]);
552          V44= Cnil;          V44=(base[1]);
553          if(!(type_of((V41))!=t_cons)){          vs_top=sup;
554          goto T96;}  goto TTL;
555          V42= (V41);  TTL:;
556          V43= Cnil;          {register object V45;
557          goto T94;          register object V46;
558  goto T96;          object V47;
559  T96:;          V45= Cnil;
560          V42= car((V41));          V46= Cnil;
561          V43= cdr((V41));          V47= Cnil;
562            base[2]= (V44);
563            vs_top=(vs_base=base+2)+1;
564            (void) (*Lnk122)();
565            vs_top=sup;
566            if((vs_base[0])==Cnil){
567            goto T94;}
568            base[2]= (V43);
569            vs_top=(vs_base=base+2)+1;
570            (void) (*Lnk123)();
571            vs_top=sup;
572            V48= vs_base[0];
573            base[2]= ((V48)==((V44))?Ct:Cnil);
574            vs_top=(vs_base=base+2)+1;
575            return;
576  goto T94;  goto T94;
577  T94:;  T94:;
578          if(!(((V42))==(VV[28]))){          if(!(type_of((V44))!=t_cons)){
579          goto T104;}          goto T102;}
580          V42= VV[29];          V45= (V44);
581  goto T104;          V46= Cnil;
582  T104:;          goto T100;
583          {object V45;  goto T102;
584          V45= get((V42),VV[30],Cnil);  T102:;
585          if(((V45))==Cnil){          V45= car((V44));
586          goto T108;}          V46= cdr((V44));
587          base[2]= (V40);  goto T100;
588    T100:;
589            if(!(((V45))==(VV[28]))){
590            goto T110;}
591            V45= VV[29];
592    goto T110;
593    T110:;
594            {object V49;
595            V49= get((V45),VV[30],Cnil);
596            if(((V49))==Cnil){
597            goto T114;}
598            base[2]= (V43);
599          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
600          super_funcall_no_event((V45));          super_funcall_no_event((V49));
601          return;}          return;}
602  goto T108;  goto T114;
603  T108:;  T114:;
604          {object V46= (V42);          {object V50= (V45);
605          if((V46!= VV[41]))goto T113;          if((V50!= VV[41]))goto T119;
606          {register object x= (V40),V47= (V43);          {register object x= (V43),V51= (V46);
607          while(!endp(V47))          while(!endp(V51))
608          if(eql(x,V47->c.c_car)){          if(eql(x,V51->c.c_car)){
609          base[2]= V47;          base[2]= V51;
610          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
611          return;          return;
612          }else V47=V47->c.c_cdr;          }else V51=V51->c.c_cdr;
613          base[2]= Cnil;          base[2]= Cnil;
614          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
615          return;}          return;}
616  goto T113;  goto T119;
617  T113:;  T119:;
618          if((V46!= VV[44]))goto T114;          if((V50!= VV[44]))goto T120;
619          base[2]= (V40);          base[2]= (V43);
620          base[3]= car((V43));          base[3]= car((V46));
621          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
622          (void) (*Lnk120)();          (void) (*Lnk124)();
623          vs_top=sup;          vs_top=sup;
624          V48= vs_base[0];          V52= vs_base[0];
625          base[2]= ((V48)==Cnil?Ct:Cnil);          base[2]= ((V52)==Cnil?Ct:Cnil);
626          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
627          return;          return;
 goto T114;  
 T114:;  
         if((V46!= VV[42]))goto T118;  
         {register object V49;  
         V49= (V43);  
628  goto T120;  goto T120;
629  T120:;  T120:;
630          if(((V49))!=Cnil){          if((V50!= VV[42]))goto T124;
631          goto T121;}          {register object V53;
632            V53= (V46);
633    goto T126;
634    T126:;
635            if(((V53))!=Cnil){
636            goto T127;}
637          base[2]= Cnil;          base[2]= Cnil;
638          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
639          return;          return;
640  goto T121;  goto T127;
641  T121:;  T127:;
642          base[2]= (V40);          base[2]= (V43);
643          base[3]= car((V49));          base[3]= car((V53));
644          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
645          (void) (*Lnk120)();          (void) (*Lnk124)();
646          vs_top=sup;          vs_top=sup;
647          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
648          goto T125;}          goto T131;}
649          base[2]= Ct;          base[2]= Ct;
650          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
651          return;          return;
652  goto T125;  goto T131;
653  T125:;  T131:;
654          V49= cdr((V49));          V53= cdr((V53));
655          goto T120;}          goto T126;}
656  goto T118;  goto T124;
657  T118:;  T124:;
658          if((V46!= VV[43]))goto T133;          if((V50!= VV[43]))goto T139;
659          {register object V50;          {register object V54;
660          V50= (V43);          V54= (V46);
661  goto T135;  goto T141;
662  T135:;  T141:;
663          if(((V50))!=Cnil){          if(((V54))!=Cnil){
664          goto T136;}          goto T142;}
665          base[2]= Ct;          base[2]= Ct;
666          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
667          return;          return;
668  goto T136;  goto T142;
669  T136:;  T142:;
670          base[2]= (V40);          base[2]= (V43);
671          base[3]= car((V50));          base[3]= car((V54));
672          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
673          (void) (*Lnk120)();          (void) (*Lnk124)();
674          vs_top=sup;          vs_top=sup;
675          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
676          goto T140;}          goto T146;}
677          base[2]= Cnil;          base[2]= Cnil;
678          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
679          return;          return;
680  goto T140;  goto T146;
681  T140:;  T146:;
682          V50= cdr((V50));          V54= cdr((V54));
683          goto T135;}          goto T141;}
684  goto T133;  goto T139;
685  T133:;  T139:;
686          if((V46!= VV[40]))goto T148;          if((V50!= VV[40]))goto T154;
687          base[2]= car((V43));          base[2]= car((V46));
688          base[3]= (V40);          base[3]= (V43);
689          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
690          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
691          return;          return;
692  goto T148;  goto T154;
693  T148:;  T154:;
694          if((V46!= Ct))goto T151;          if((V50!= Ct))goto T157;
695          base[2]= Ct;          base[2]= Ct;
696          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
697          return;          return;
698  goto T151;  goto T157;
699  T151:;  T157:;
700          if((V46!= Cnil))goto T152;          if((V50!= Cnil))goto T158;
701          base[2]= Cnil;          base[2]= Cnil;
702          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
703          return;          return;
704  goto T152;  goto T158;
705  T152:;  T158:;
706          if((V46!= VV[57]))goto T153;          if((V50!= VV[57]))goto T159;
707          if(!(((V40))==(Ct))){          if(!(((V43))==(Ct))){
708          goto T154;}          goto T160;}
709          base[2]= Ct;          base[2]= Ct;
710          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
711          return;          return;
712  goto T154;  goto T160;
713  T154:;  T160:;
714          base[2]= (((V40))==(Cnil)?Ct:Cnil);          base[2]= (((V43))==(Cnil)?Ct:Cnil);
715          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
716          return;          return;
717  goto T153;  goto T159;
718  T153:;  T159:;
719          if((V46!= VV[31]))goto T156;          if((V50!= VV[31]))goto T162;
720          base[2]= (V40);          base[2]= (V43);
721          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
722          Ltype_of();          Ltype_of();
723          vs_top=sup;          vs_top=sup;
724          V51= vs_base[0];          V55= vs_base[0];
725          base[2]= ((V51)==(VV[31])?Ct:Cnil);          base[2]= ((V55)==(VV[31])?Ct:Cnil);
726          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
727          return;          return;
728  goto T156;  goto T162;
729  T156:;  T162:;
730          if((V46!= VV[32]))goto T159;          if((V50!= VV[32]))goto T165;
731          base[2]= (V40);          base[2]= (V43);
732          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
733          Ltype_of();          Ltype_of();
734          vs_top=sup;          vs_top=sup;
735          V52= vs_base[0];          V56= vs_base[0];
736          base[2]= ((V52)==(VV[32])?Ct:Cnil);          base[2]= ((V56)==(VV[32])?Ct:Cnil);
737          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
738          return;          return;
739  goto T159;  goto T165;
740  T159:;  T165:;
741          if((V46!= VV[33]))goto T162;          if((V50!= VV[33]))goto T168;
742          base[2]= (V40);          base[2]= (V43);
743          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
744          Ltype_of();          Ltype_of();
745          vs_top=sup;          vs_top=sup;
746          V53= vs_base[0];          V57= vs_base[0];
747          base[2]= ((V53)==(VV[33])?Ct:Cnil);          base[2]= ((V57)==(VV[33])?Ct:Cnil);
748          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
749          return;          return;
750  goto T162;  goto T168;
751  T162:;  T168:;
752          if((V46!= VV[121]))goto T165;          if((V50!= VV[125]))goto T171;
753          if(type_of((V40))==t_character){          if(type_of((V43))==t_character){
754          goto T166;}          goto T172;}
755          base[2]= Cnil;          base[2]= Cnil;
756          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
757          return;          return;
758  goto T166;  goto T172;
759  T166:;  T172:;
760          base[2]= (V40);          base[2]= (V43);
761          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
762          Lstandard_char_p();          Lstandard_char_p();
763          return;          return;
764  goto T165;  goto T171;
765  T165:;  T171:;
766          if((V46!= VV[25])          if((V50!= VV[25])
767          && (V46!= VV[24]))goto T169;          && (V50!= VV[24]))goto T175;
768          if(type_of((V40))==t_character){          if(type_of((V43))==t_character){
769          goto T170;}          goto T176;}
770          base[2]= Cnil;          base[2]= Cnil;
771          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
772          return;          return;
773  goto T170;  goto T176;
774  T170:;  T176:;
775          base[2]= (V40);          base[2]= (V43);
776          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
777          Lstring_char_p();          Lstring_char_p();
778          return;          return;
779  goto T169;  goto T175;
780  T169:;  T175:;
781          if((V46!= VV[13]))goto T173;          if((V50!= VV[13]))goto T179;
782          if(type_of((V40))==t_fixnum||type_of((V40))==t_bignum){          if(type_of((V43))==t_fixnum||type_of((V43))==t_bignum){
783          goto T174;}          goto T180;}
784          base[2]= Cnil;          base[2]= Cnil;
785          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
786          return;          return;
787  goto T174;  goto T180;
788  T174:;  T180:;
789          base[2]= (*(LnkLI122))((V40),(V43));          base[2]= (*(LnkLI126))((V43),(V46));
790          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
791          return;          return;
792  goto T173;  goto T179;
793  T173:;  T179:;
794          if((V46!= VV[105]))goto T176;          if((V50!= VV[105]))goto T182;
795          base[2]= (V40);          base[2]= (V43);
796          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
797          (void) (*Lnk123)();          (void) (*Lnk127)();
798          vs_top=sup;          vs_top=sup;
799          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
800          goto T177;}          goto T183;}
801          base[2]= Cnil;          base[2]= Cnil;
802          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
803          return;          return;
804  goto T177;  goto T183;
805  T177:;  T183:;
806          base[2]= (*(LnkLI122))((V40),(V43));          base[2]= (*(LnkLI126))((V43),(V46));
807          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
808          return;          return;
809  goto T176;  goto T182;
810  T176:;  T182:;
811          if((V46!= VV[96]))goto T180;          if((V50!= VV[96]))goto T186;
812          base[2]= (V40);          base[2]= (V43);
813          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
814          (void) (*Lnk124)();          (void) (*Lnk128)();
815          vs_top=sup;          vs_top=sup;
816          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
817          goto T181;}          goto T187;}
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 T181;  goto T187;
822  T181:;  T187:;
823          base[2]= (*(LnkLI122))((V40),(V43));          base[2]= (*(LnkLI126))((V43),(V46));
824          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
825          return;          return;
826  goto T180;  goto T186;
827  T180:;  T186:;
828          if((V46!= VV[106]))goto T184;          if((V50!= VV[106]))goto T190;
829          if(type_of((V40))==t_shortfloat||type_of((V40))==t_longfloat){          if(type_of((V43))==t_shortfloat||type_of((V43))==t_longfloat){
830          goto T185;}          goto T191;}
831          base[2]= Cnil;          base[2]= Cnil;
832          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
833          return;          return;
834  goto T185;  goto T191;
835  T185:;  T191:;
836          base[2]= (*(LnkLI122))((V40),(V43));          base[2]= (*(LnkLI126))((V43),(V46));
837          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
838          return;          return;
839  goto T184;  goto T190;
840  T184:;  T190:;
841          if((V46!= VV[34]))goto T187;          if((V50!= VV[34]))goto T193;
842          base[2]= (V40);          base[2]= (V43);
843          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
844          Ltype_of();          Ltype_of();
845          vs_top=sup;          vs_top=sup;
846          V54= vs_base[0];          V58= vs_base[0];
847          if((V54)==(VV[34])){          if((V58)==(VV[34])){
848          goto T188;}          goto T194;}
849          base[2]= Cnil;          base[2]= Cnil;
850          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
851          return;          return;
852  goto T188;  goto T194;
853  T188:;  T194:;
854          base[2]= (*(LnkLI122))((V40),(V43));          base[2]= (*(LnkLI126))((V43),(V46));
855          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
856          return;          return;
857  goto T187;  goto T193;
858  T187:;  T193:;
859          if((V46!= VV[125])          if((V50!= VV[129])
860          && (V46!= VV[126])          && (V50!= VV[130])
861          && (V46!= VV[35]))goto T192;          && (V50!= VV[35]))goto T198;
862          base[2]= (V40);          base[2]= (V43);
863          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
864          Ltype_of();          Ltype_of();
865          vs_top=sup;          vs_top=sup;
866          V55= vs_base[0];          V59= vs_base[0];
867          if((V55)==(VV[35])){          if((V59)==(VV[35])){
868          goto T193;}          goto T199;}
869          base[2]= Cnil;          base[2]= Cnil;
870          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
871          return;          return;
872  goto T193;  goto T199;
873  T193:;  T199:;
874          base[2]= (*(LnkLI122))((V40),(V43));          base[2]= (*(LnkLI126))((V43),(V46));
875          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
876          return;          return;
877  goto T192;  goto T198;
878  T192:;  T198:;
879          if((V46!= VV[109]))goto T197;          if((V50!= VV[109]))goto T203;
880          base[2]= (V40);          base[2]= (V43);
881          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
882          Lcomplexp();          Lcomplexp();
883          vs_top=sup;          vs_top=sup;
884          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
885          goto T198;}          goto T204;}
886          base[2]= Cnil;          base[2]= Cnil;
887          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
888          return;          return;
889  goto T198;  goto T204;
890  T198:;  T204:;
891          if(!(((V43))==Cnil)){          if(!(((V46))==Cnil)){
892          goto T201;}          goto T207;}
893          base[2]= Ct;          base[2]= Ct;
894          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
895          return;          return;
896  goto T201;  goto T207;
897  T201:;  T207:;
898          base[3]= (V40);          base[3]= (V43);
899          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
900          Lrealpart();          Lrealpart();
901          vs_top=sup;          vs_top=sup;
902          base[2]= vs_base[0];          base[2]= vs_base[0];
903          base[3]= car((V43));          base[3]= car((V46));
904          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
905          (void) (*Lnk120)();          (void) (*Lnk124)();
906          vs_top=sup;          vs_top=sup;
907          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
908          goto T203;}          goto T209;}
909          base[2]= Cnil;          base[2]= Cnil;
910          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
911          return;          return;
912  goto T203;  goto T209;
913  T203:;  T209:;
914          base[2]= (V40);          base[2]= (V43);
915          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
916          Limagpart();          Limagpart();
917          vs_top=sup;          vs_top=sup;
918          V40= vs_base[0];          V43= vs_base[0];
919          V41= car((V43));          V44= car((V46));
920          goto TTL;          goto TTL;
921  goto T197;  goto T203;
922  T197:;  T203:;
923          if((V46!= VV[48]))goto T212;          if((V50!= VV[48]))goto T218;
924          if(!(type_of((V40))==t_cons||((V40))==Cnil)){          if(!(type_of((V43))==t_cons||((V43))==Cnil)){
925          goto T213;}          goto T219;}
926          base[2]= Ct;          base[2]= Ct;
927          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
928          return;          return;
929  goto T213;  goto T219;
930  T213:;  T219:;
931          base[2]= (type_of((V40))==t_vector||          base[2]= (type_of((V43))==t_vector||
932  type_of((V40))==t_string||  type_of((V43))==t_string||
933  type_of((V40))==t_bitvector?Ct:Cnil);  type_of((V43))==t_bitvector?Ct:Cnil);
         vs_top=(vs_base=base+2)+1;  
         return;  
 goto T212;  
 T212:;  
         if((V46!= VV[127])  
         && (V46!= VV[128]))goto T215;  
         if(type_of((V40))==t_string){  
         goto T216;}  
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
         return;  
 goto T216;  
 T216:;  
         if(!(((V43))==Cnil)){  
         goto T218;}  
         base[2]= Ct;  
934          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
935          return;          return;
936  goto T218;  goto T218;
937  T218:;  T218:;
938          V56= (*(LnkLI130))((V40));          if((V50!= VV[131])
939          base[2]= (*(LnkLI129))(/* INLINE-ARGS */V56,(V43));          && (V50!= VV[132]))goto T221;
940          vs_top=(vs_base=base+2)+1;          if(type_of((V43))==t_string){
941          return;          goto T222;}
 goto T215;  
 T215:;  
         if((V46!= VV[131]))goto T220;  
         if((type_of((V40))==t_bitvector)){  
         goto T221;}  
942          base[2]= Cnil;          base[2]= Cnil;
943          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
944          return;          return;
945  goto T221;  goto T222;
946  T221:;  T222:;
947          if(!(((V43))==Cnil)){          if(!(((V46))==Cnil)){
948          goto T223;}          goto T224;}
949          base[2]= Ct;          base[2]= Ct;
950          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
951          return;          return;
952  goto T223;  goto T224;
953  T223:;  T224:;
954          V57= (*(LnkLI130))((V40));          V60= (*(LnkLI134))((V43));
955          base[2]= (*(LnkLI129))(/* INLINE-ARGS */V57,(V43));          base[2]= (*(LnkLI133))(/* INLINE-ARGS */V60,(V46));
956          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
957          return;          return;
958  goto T220;  goto T221;
959  T220:;  T221:;
960          if((V46!= VV[132])          if((V50!= VV[135]))goto T226;
961          && (V46!= VV[133]))goto T225;          if((type_of((V43))==t_bitvector)){
962          base[2]= (V40);          goto T227;}
         vs_top=(vs_base=base+2)+1;  
         Lsimple_string_p();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T226;}  
963          base[2]= Cnil;          base[2]= Cnil;
964          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
965          return;          return;
966  goto T226;  goto T227;
967  T226:;  T227:;
968          if(!(((V43))==Cnil)){          if(!(((V46))==Cnil)){
969          goto T229;}          goto T229;}
970          base[2]= Ct;          base[2]= Ct;
971          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
972          return;          return;
973  goto T229;  goto T229;
974  T229:;  T229:;
975          V58= (*(LnkLI130))((V40));          V61= (*(LnkLI134))((V43));
976          base[2]= (*(LnkLI129))(/* INLINE-ARGS */V58,(V43));          base[2]= (*(LnkLI133))(/* INLINE-ARGS */V61,(V46));
977          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
978          return;          return;
979  goto T225;  goto T226;
980  T225:;  T226:;
981          if((V46!= VV[134]))goto T231;          if((V50!= VV[136])
982          base[2]= (V40);          && (V50!= VV[137]))goto T231;
983            base[2]= (V43);
984          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
985          Lsimple_bit_vector_p();          Lsimple_string_p();
986          vs_top=sup;          vs_top=sup;
987          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
988          goto T232;}          goto T232;}
# Line 949  T225:; Line 991  T225:;
991          return;          return;
992  goto T232;  goto T232;
993  T232:;  T232:;
994          if(!(((V43))==Cnil)){          if(!(((V46))==Cnil)){
995          goto T235;}          goto T235;}
996          base[2]= Ct;          base[2]= Ct;
997          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
998          return;          return;
999  goto T235;  goto T235;
1000  T235:;  T235:;
1001          V59= (*(LnkLI130))((V40));          V62= (*(LnkLI134))((V43));
1002          base[2]= (*(LnkLI129))(/* INLINE-ARGS */V59,(V43));          base[2]= (*(LnkLI133))(/* INLINE-ARGS */V62,(V46));
1003          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1004          return;          return;
1005  goto T231;  goto T231;
1006  T231:;  T231:;
1007          if((V46!= VV[135]))goto T237;          if((V50!= VV[138]))goto T237;
1008          base[2]= (V40);          base[2]= (V43);
1009          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1010          Lsimple_vector_p();          Lsimple_bit_vector_p();
1011          vs_top=sup;          vs_top=sup;
1012          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1013          goto T238;}          goto T238;}
# Line 974  T231:; Line 1016  T231:;
1016          return;          return;
1017  goto T238;  goto T238;
1018  T238:;  T238:;
1019          if(!(((V43))==Cnil)){          if(!(((V46))==Cnil)){
1020          goto T241;}          goto T241;}
1021          base[2]= Ct;          base[2]= Ct;
1022          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1023          return;          return;
1024  goto T241;  goto T241;
1025  T241:;  T241:;
1026          V60= (*(LnkLI130))((V40));          V63= (*(LnkLI134))((V43));
1027          base[2]= (*(LnkLI129))(/* INLINE-ARGS */V60,(V43));          base[2]= (*(LnkLI133))(/* INLINE-ARGS */V63,(V46));
1028          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1029          return;          return;
1030  goto T237;  goto T237;
1031  T237:;  T237:;
1032          if((V46!= VV[27]))goto T243;          if((V50!= VV[139]))goto T243;
1033          if(((*(LnkLI136))((V40)))!=Cnil){          base[2]= (V43);
1034            vs_top=(vs_base=base+2)+1;
1035            Lsimple_vector_p();
1036            vs_top=sup;
1037            if((vs_base[0])!=Cnil){
1038          goto T244;}          goto T244;}
1039          base[2]= Cnil;          base[2]= Cnil;
1040          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1041          return;          return;
1042  goto T244;  goto T244;
1043  T244:;  T244:;
1044          if(!(endp_prop((V43)))){          if(!(((V46))==Cnil)){
1045          goto T248;}          goto T247;}
1046          goto T246;          base[2]= Ct;
1047  goto T248;          vs_top=(vs_base=base+2)+1;
1048  T248:;          return;
1049          if(!((car((V43)))==(VV[17]))){  goto T247;
1050    T247:;
1051            V64= (*(LnkLI134))((V43));
1052            base[2]= (*(LnkLI133))(/* INLINE-ARGS */V64,(V46));
1053            vs_top=(vs_base=base+2)+1;
1054            return;
1055    goto T243;
1056    T243:;
1057            if((V50!= VV[27]))goto T249;
1058            if(((*(LnkLI140))((V43)))!=Cnil){
1059          goto T250;}          goto T250;}
1060          goto T246;          base[2]= Cnil;
1061            vs_top=(vs_base=base+2)+1;
1062            return;
1063  goto T250;  goto T250;
1064  T250:;  T250:;
1065          base[2]= (V40);          if(!(endp_prop((V46)))){
1066            goto T254;}
1067            goto T252;
1068    goto T254;
1069    T254:;
1070            if(!((car((V46)))==(VV[17]))){
1071            goto T256;}
1072            goto T252;
1073    goto T256;
1074    T256:;
1075            base[2]= (V43);
1076          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1077          Larray_element_type();          Larray_element_type();
1078          vs_top=sup;          vs_top=sup;
1079          V61= vs_base[0];          V65= vs_base[0];
1080          V62= (*(LnkLI137))(car((V43)));          V66= (*(LnkLI141))(car((V46)));
1081          if(equal(V61,/* INLINE-ARGS */V62)){          if(equal(V65,/* INLINE-ARGS */V66)){
1082          goto T246;}          goto T252;}
1083          base[2]= Cnil;          base[2]= Cnil;
1084          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1085          return;          return;
1086  goto T246;  goto T252;
1087  T246:;  T252:;
1088          if(!(endp_prop(cdr((V43))))){          if(!(endp_prop(cdr((V46))))){
1089          goto T254;}          goto T260;}
1090          base[2]= Ct;          base[2]= Ct;
1091          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1092          return;          return;
1093  goto T254;  goto T260;
1094  T254:;  T260:;
1095          if(!((cadr((V43)))==(VV[17]))){          if(!((cadr((V46)))==(VV[17]))){
1096          goto T256;}          goto T262;}
1097          base[2]= Ct;          base[2]= Ct;
1098          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1099          return;          return;
1100  goto T256;  goto T262;
1101  T256:;  T262:;
1102          V63= (*(LnkLI130))((V40));          V67= (*(LnkLI134))((V43));
1103          base[2]= (*(LnkLI129))(/* INLINE-ARGS */V63,cadr((V43)));          base[2]= (*(LnkLI133))(/* INLINE-ARGS */V67,cadr((V46)));
1104          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1105          return;          return;
1106  goto T243;  goto T249;
1107  T243:;  T249:;
1108          if((V46!= VV[22]))goto T258;          if((V50!= VV[22]))goto T264;
1109          if(type_of((V40))==t_array||          if(type_of((V43))==t_array||
1110  type_of((V40))==t_vector||  type_of((V43))==t_vector||
1111  type_of((V40))==t_string||  type_of((V43))==t_string||
1112  type_of((V40))==t_bitvector){  type_of((V43))==t_bitvector){
1113          goto T259;}          goto T265;}
1114          base[2]= Cnil;          base[2]= Cnil;
1115          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1116          return;          return;
 goto T259;  
 T259:;  
         if(!(endp_prop((V43)))){  
         goto T263;}  
         goto T261;  
 goto T263;  
 T263:;  
         if(!((car((V43)))==(VV[17]))){  
         goto T265;}  
         goto T261;  
1117  goto T265;  goto T265;
1118  T265:;  T265:;
1119          base[2]= (V40);          if(!(endp_prop((V46)))){
1120            goto T269;}
1121            goto T267;
1122    goto T269;
1123    T269:;
1124            if(!((car((V46)))==(VV[17]))){
1125            goto T271;}
1126            goto T267;
1127    goto T271;
1128    T271:;
1129            base[2]= (V43);
1130          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1131          Larray_element_type();          Larray_element_type();
1132          vs_top=sup;          vs_top=sup;
1133          V64= vs_base[0];          V68= vs_base[0];
1134          V65= (*(LnkLI137))(car((V43)));          V69= (*(LnkLI141))(car((V46)));
1135          if(equal(V64,/* INLINE-ARGS */V65)){          if(equal(V68,/* INLINE-ARGS */V69)){
1136          goto T261;}          goto T267;}
1137          base[2]= Cnil;          base[2]= Cnil;
1138          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1139          return;          return;
1140  goto T261;  goto T267;
1141  T261:;  T267:;
1142          if(!(endp_prop(cdr((V43))))){          if(!(endp_prop(cdr((V46))))){
1143          goto T269;}          goto T275;}
1144          base[2]= Ct;          base[2]= Ct;
1145          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1146          return;          return;
1147  goto T269;  goto T275;
1148  T269:;  T275:;
1149          if(!((cadr((V43)))==(VV[17]))){          if(!((cadr((V46)))==(VV[17]))){
1150          goto T271;}          goto T277;}
1151          base[2]= Ct;          base[2]= Ct;
1152          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1153          return;          return;
1154  goto T271;  goto T277;
1155  T271:;  T277:;
1156          V66= (*(LnkLI130))((V40));          V70= (*(LnkLI134))((V43));
1157          base[2]= (*(LnkLI129))(/* INLINE-ARGS */V66,cadr((V43)));          base[2]= (*(LnkLI133))(/* INLINE-ARGS */V70,cadr((V46)));
1158          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1159          return;          return;
1160  goto T258;  goto T264;
1161  T258:;  T264:;
1162          V44= get((V42),VV[36],Cnil);          V47= get((V45),VV[36],Cnil);
1163          if(((V44))==Cnil){          if(((V47))==Cnil){
         goto T274;}  
         base[2]= (V40);  
         base[3]= (V44);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk138)();  
         return;  
 goto T274;  
 T274:;  
         V44= get((V42),VV[37],Cnil);  
         if(((V44))==Cnil){  
1164          goto T280;}          goto T280;}
1165          base[2]= (V44);          base[2]= (V43);
1166          {object V67;          base[3]= (V47);
1167          V67= Cnil;          vs_top=(vs_base=base+2)+2;
1168            (void) (*Lnk142)();
1169            return;
1170    goto T280;
1171    T280:;
1172            V47= get((V45),VV[37],Cnil);
1173            if(((V47))==Cnil){
1174            goto T286;}
1175            base[2]= (V47);
1176            {object V71;
1177            V71= Cnil;
1178           vs_top=base+3;           vs_top=base+3;
1179           while(!endp(V67))           while(!endp(V71))
1180           {vs_push(car(V67));V67=cdr(V67);}           {vs_push(car(V71));V71=cdr(V71);}
1181          vs_base=base+3;}          vs_base=base+3;}
1182          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
1183          vs_top=sup;          vs_top=sup;
1184          V41= vs_base[0];          V44= vs_base[0];
1185          goto TTL;          goto TTL;
1186  goto T280;  goto T286;
1187  T280:;  T286:;
1188          base[2]= Cnil;          base[2]= Cnil;
1189          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1190          return;}}          return;}}
# Line 1125  T280:; Line 1192  T280:;
1192  }  }
1193  /*      local entry for function NORMALIZE-TYPE */  /*      local entry for function NORMALIZE-TYPE */
1194    
1195  static object LI21(V69)  static object LI24(V73)
1196    
1197  register object V69;  register object V73;
1198  {        VMB21 VMS21 VMV21  {        VMB24 VMS24 VMV24
1199  goto TTL;  goto TTL;
1200  TTL:;  TTL:;
1201          {register object V70;          {register object V74;
1202          register object V71;          register object V75;
1203          V70= Cnil;          V74= Cnil;
1204          V71= Cnil;          V75= Cnil;
1205  goto T291;  goto T297;
1206  T291:;  T297:;
1207          if(!(type_of((V69))!=t_cons)){          if(!(type_of((V73))!=t_cons)){
1208          goto T295;}          goto T301;}
1209          V70= (V69);          V74= (V73);
1210          V71= Cnil;          V75= Cnil;
1211          goto T293;          goto T299;
1212  goto T295;  goto T301;
1213  T295:;  T301:;
1214          V70= car((V69));          V74= car((V73));
1215          V71= cdr((V69));          V75= cdr((V73));
1216  goto T293;  goto T299;
1217  T293:;  T299:;
1218          if((get((V70),VV[37],Cnil))==Cnil){          if((get((V74),VV[37],Cnil))==Cnil){
1219          goto T304;}          goto T310;}
1220          base[0]= get((V70),VV[37],Cnil);          base[0]= get((V74),VV[37],Cnil);
1221          {object V72;          {object V76;
1222          V72= (V71);          V76= (V75);
1223           vs_top=base+1;           vs_top=base+1;
1224           while(!endp(V72))           while(!endp(V76))
1225           {vs_push(car(V72));V72=cdr(V72);}           {vs_push(car(V76));V76=cdr(V76);}
1226          vs_base=base+1;}          vs_base=base+1;}
1227          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
1228          vs_top=sup;          vs_top=sup;
1229          V69= vs_base[0];          V73= vs_base[0];
1230          goto T292;          goto T298;
 goto T304;  
 T304:;  
         if(!(type_of((V69))!=t_cons)){  
         goto T310;}  
         {object V73 = make_cons((V69),Cnil);  
         VMR21(V73)}  
1231  goto T310;  goto T310;
1232  T310:;  T310:;
1233          {object V74 = (V69);          if(!(type_of((V73))!=t_cons)){
1234          VMR21(V74)}          goto T316;}
1235  goto T292;          {object V77 = make_cons((V73),Cnil);
1236  T292:;          VMR24(V77)}
1237          goto T291;}  goto T316;
1238    T316:;
1239            {object V78 = (V73);
1240            VMR24(V78)}
1241    goto T298;
1242    T298:;
1243            goto T297;}
1244          base[0]=base[0];          base[0]=base[0];
1245          return Cnil;          return Cnil;
1246  }  }
1247  /*      local entry for function KNOWN-TYPE-P   */  /*      local entry for function KNOWN-TYPE-P   */
1248    
1249  static object LI22(V76)  static object LI25(V80)
1250    
1251  register object V76;  register object V80;
1252  {        VMB22 VMS22 VMV22  {        VMB25 VMS25 VMV25
1253  goto TTL;  goto TTL;
1254  TTL:;  TTL:;
1255          if(!(type_of((V76))==t_cons)){          if(!(type_of((V80))==t_cons)){
1256          goto T313;}          goto T319;}
1257          V76= car((V76));          V80= car((V80));
1258  goto T313;  goto T319;
1259  T313:;  T319:;
1260          V77= coerce_to_string((V76));          V81= coerce_to_string((V80));
1261          if(equal(/* INLINE-ARGS */V77,VV[38])){          if(equal(/* INLINE-ARGS */V81,VV[38])){
1262          goto T317;}          goto T323;}
1263          {register object x= (V76),V78= VV[39];          {register object x= (V80),V82= VV[39];
1264          while(!endp(V78))          while(!endp(V82))
1265          if(eql(x,V78->c.c_car)){          if(eql(x,V82->c.c_car)){
1266          goto T317;          goto T323;
1267          }else V78=V78->c.c_cdr;}          }else V82=V82->c.c_cdr;}
1268          if((get((V76),VV[36],Cnil))==Cnil){          if((get((V80),VV[36],Cnil))==Cnil){
1269          goto T318;}          goto T324;}
1270  goto T317;  goto T323;
1271  T317:;  T323:;
1272          {object V79 = Ct;          {object V83 = Ct;
1273          VMR22(V79)}          VMR25(V83)}
1274  goto T318;  goto T324;
1275  T318:;  T324:;
1276          {object V80 = Cnil;          {object V84 = Cnil;
1277          VMR22(V80)}          VMR25(V84)}
1278          return Cnil;          return Cnil;
1279  }  }
1280  /*      function definition for SUBTYPEP        */  /*      function definition for SUBTYPEP        */
1281    
1282  static void L23()  static void L26()
1283  {register object *base=vs_base;  {register object *base=vs_base;
1284          register object *sup=base+VM23; VC23          register object *sup=base+VM26; VC26
1285          vs_reserve(VM23);          vs_reserve(VM26);
1286          {object V81;          {object V85;
1287          object V82;          object V86;
1288          check_arg(2);          check_arg(2);
1289          V81=(base[0]);          V85=(base[0]);
1290          V82=(base[1]);          V86=(base[1]);
1291          vs_top=sup;          vs_top=sup;
1292  goto TTL;  goto TTL;
1293  TTL:;  TTL:;
1294          {object V83;          {object V87;
         object V84;  
         object V85;  
         object V86;  
         object V87;  
1295          object V88;          object V88;
1296          object V89;          object V89;
1297          V83= Cnil;          object V90;
1298          V84= Cnil;          object V91;
1299          V85= Cnil;          object V92;
1300          V86= Cnil;          object V93;
1301          V87= Cnil;          V87= Cnil;
1302          V88= Cnil;          V88= Cnil;
1303          V89= Cnil;          V89= Cnil;
1304          V83= (*(LnkLI139))((V81));          V90= Cnil;
1305          if(!((car((V83)))==(VV[40]))){          V91= Cnil;
1306          goto T336;}          V92= Cnil;
1307          V81= make_cons((V81),Cnil);          V93= Cnil;
1308          goto T334;          {object V94;
1309  goto T336;          object V95;
1310  T336:;          base[2]= (V85);
1311          V81= (V83);          vs_top=(vs_base=base+2)+1;
1312  goto T334;          (void) (*Lnk122)();
1313  T334:;          vs_top=sup;
1314          V84= (*(LnkLI139))((V82));          V94= vs_base[0];
1315          if(!((car((V84)))==(VV[40]))){          base[2]= (V86);
1316          goto T343;}          vs_top=(vs_base=base+2)+1;
1317          V82= make_cons((V82),Cnil);          (void) (*Lnk122)();
1318          goto T341;          vs_top=sup;
1319  goto T343;          V95= vs_base[0];
1320  T343:;          if(((V94))==Cnil){
1321          V82= (V84);          goto T342;}
1322  goto T341;          if(((V95))==Cnil){
1323  T341:;          goto T342;}
1324          if(!(equal((V81),(V82)))){          base[2]= (V85);
1325          goto T345;}          vs_top=(vs_base=base+2)+1;
1326            (void) (*Lnk143)();
1327            vs_top=sup;
1328            V97= vs_base[0];
1329            {register object x= (V86),V96= V97;
1330            while(!endp(V96))
1331            if(eql(x,V96->c.c_car)){
1332            goto T349;
1333            }else V96=V96->c.c_cdr;
1334            goto T348;}
1335    goto T349;
1336    T349:;
1337          base[2]= Ct;          base[2]= Ct;
1338          base[3]= Ct;          base[3]= Ct;
1339          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1340          return;          return;
1341  goto T345;  goto T348;
1342  T345:;  T348:;
1343          V83= car((V81));          base[2]= Cnil;
1344          V84= car((V82));          base[3]= Ct;
1345          V85= cdr((V81));          vs_top=(vs_base=base+2)+2;
1346          V86= cdr((V82));          return;
1347          if(!(((V83))==(VV[41]))){  goto T342;
1348          goto T360;}  T342:;
1349          {register object V90;          if(((V94))!=Cnil){
1350          object V91;          goto T356;}
1351          V90= (V85);          if(((V95))==Cnil){
1352          V91= car((V90));          goto T337;}
1353  goto T366;  goto T356;
1354  T366:;  T356:;
1355          if(!(endp_prop((V90)))){          base[2]= Cnil;
1356            base[3]= Ct;
1357            vs_top=(vs_base=base+2)+2;
1358            return;}
1359    goto T337;
1360    T337:;
1361            V87= (*(LnkLI144))((V85));
1362            if(!((car((V87)))==(VV[40]))){
1363          goto T367;}          goto T367;}
1364          goto T362;          V85= make_cons((V85),Cnil);
1365            goto T365;
1366  goto T367;  goto T367;
1367  T367:;  T367:;
1368          base[3]= (V91);          V85= (V87);
1369          base[4]= (V82);  goto T365;
1370    T365:;
1371            V88= (*(LnkLI144))((V86));
1372            if(!((car((V88)))==(VV[40]))){
1373            goto T374;}
1374            V86= make_cons((V86),Cnil);
1375            goto T372;
1376    goto T374;
1377    T374:;
1378            V86= (V88);
1379    goto T372;
1380    T372:;
1381            if(!(equal((V85),(V86)))){
1382            goto T376;}
1383            base[2]= Ct;
1384            base[3]= Ct;
1385            vs_top=(vs_base=base+2)+2;
1386            return;
1387    goto T376;
1388    T376:;
1389            V87= car((V85));
1390            V88= car((V86));
1391            V89= cdr((V85));
1392            V90= cdr((V86));
1393            if(!(((V87))==(VV[41]))){
1394            goto T391;}
1395            {register object V98;
1396            object V99;
1397            V98= (V89);
1398            V99= car((V98));
1399    goto T397;
1400    T397:;
1401            if(!(endp_prop((V98)))){
1402            goto T398;}
1403            goto T393;
1404    goto T398;
1405    T398:;
1406            base[3]= (V99);
1407            base[4]= (V86);
1408          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1409          (void) (*Lnk120)();          (void) (*Lnk124)();
1410          vs_top=sup;          vs_top=sup;
1411          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1412          goto T371;}          goto T402;}
1413          base[3]= Cnil;          base[3]= Cnil;
1414          base[4]= Ct;          base[4]= Ct;
1415          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1416          return;          return;
1417  goto T371;  goto T402;
1418  T371:;  T402:;
1419          V90= cdr((V90));          V98= cdr((V98));
1420          V91= car((V90));          V99= car((V98));
1421          goto T366;}          goto T397;}
1422  goto T362;  goto T393;
1423  T362:;  T393:;
1424          base[2]= Ct;          base[2]= Ct;
1425          base[3]= Ct;          base[3]= Ct;
1426          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1427          return;          return;
1428  goto T360;  goto T391;
1429  T360:;  T391:;
1430          if(!(((V83))==(VV[42]))){          if(!(((V87))==(VV[42]))){
1431          goto T386;}          goto T417;}
1432          {register object V92;          {register object V100;
1433          object V93;          object V101;
1434          V92= (V85);          V100= (V89);
1435          V93= car((V92));          V101= car((V100));
1436  goto T392;  goto T423;
1437  T392:;  T423:;
1438          if(!(endp_prop((V92)))){          if(!(endp_prop((V100)))){
1439          goto T393;}          goto T424;}
1440          goto T388;          goto T419;
1441  goto T393;  goto T424;
1442  T393:;  T424:;
1443          {object V94;          {object V102;
1444          object V95;          object V103;
1445          base[3]= (V93);          base[3]= (V101);
1446          base[4]= (V82);          base[4]= (V86);
1447          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1448          (void) (*Lnk140)();          (void) (*Lnk145)();
1449          if(vs_base>=vs_top){vs_top=sup;goto T401;}          if(vs_base>=vs_top){vs_top=sup;goto T432;}
1450          V94= vs_base[0];          V102= vs_base[0];
1451          vs_base++;          vs_base++;
1452          if(vs_base>=vs_top){vs_top=sup;goto T402;}          if(vs_base>=vs_top){vs_top=sup;goto T433;}
1453          V95= vs_base[0];          V103= vs_base[0];
1454          vs_top=sup;          vs_top=sup;
1455          goto T403;          goto T434;
1456  goto T401;  goto T432;
1457  T401:;  T432:;
1458          V94= Cnil;          V102= Cnil;
1459  goto T402;  goto T433;
1460  T402:;  T433:;
1461          V95= Cnil;          V103= Cnil;
1462  goto T403;  goto T434;
1463  T403:;  T434:;
1464          if(((V94))!=Cnil){          if(((V102))!=Cnil){
1465          goto T397;}          goto T428;}
1466          base[3]= (V94);          base[3]= (V102);
1467          base[4]= (V95);          base[4]= (V103);
1468          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1469          return;}          return;}
1470  goto T397;  goto T428;
1471  T397:;  T428:;
1472          V92= cdr((V92));          V100= cdr((V100));
1473          V93= car((V92));          V101= car((V100));
1474          goto T392;}          goto T423;}
1475  goto T388;  goto T419;
1476  T388:;  T419:;
1477          base[2]= Ct;          base[2]= Ct;
1478          base[3]= Ct;          base[3]= Ct;
1479          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1480          return;          return;
1481  goto T386;  goto T417;
1482  T386:;  T417:;
1483          if(!(((V83))==(VV[43]))){          if(!(((V87))==(VV[43]))){
1484          goto T416;}          goto T447;}
1485          {register object V96;          {register object V104;
1486          object V97;          object V105;
1487          V96= (V85);          V104= (V89);
1488          V97= car((V96));          V105= car((V104));
1489  goto T422;  goto T453;
1490  T422:;  T453:;
1491          if(!(endp_prop((V96)))){          if(!(endp_prop((V104)))){
1492          goto T423;}          goto T454;}
1493          goto T418;          goto T449;
1494  goto T423;  goto T454;
1495  T423:;  T454:;
1496          {object V98;          {object V106;
1497          base[3]= (V97);          base[3]= (V105);
1498          base[4]= (V82);          base[4]= (V86);
1499          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1500          (void) (*Lnk140)();          (void) (*Lnk145)();
1501          vs_top=sup;          vs_top=sup;
1502          V98= vs_base[0];          V106= vs_base[0];
1503          if(((V98))==Cnil){          if(((V106))==Cnil){
1504          goto T427;}          goto T458;}
1505          base[3]= Ct;          base[3]= Ct;
1506          base[4]= Ct;          base[4]= Ct;
1507          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1508          return;}          return;}
1509  goto T427;  goto T458;
1510  T427:;  T458:;
1511          V96= cdr((V96));          V104= cdr((V104));
1512          V97= car((V96));          V105= car((V104));
1513          goto T422;}          goto T453;}
1514  goto T418;  goto T449;
1515  T418:;  T449:;
1516          base[2]= Cnil;          base[2]= Cnil;
1517          base[3]= Cnil;          base[3]= Cnil;
1518          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1519          return;          return;
1520  goto T416;  goto T447;
1521  T416:;  T447:;
1522          if(!(((V83))==(VV[44]))){          if(!(((V87))==(VV[44]))){
1523          goto T358;}          goto T389;}
1524          if(!(((V84))==(VV[44]))){          if(!(((V88))==(VV[44]))){
1525          goto T445;}          goto T476;}
1526          V81= car((V86));          V85= car((V90));
1527          V82= car((V85));          V86= car((V89));
1528          goto TTL;          goto TTL;
1529  goto T445;  goto T476;
1530  T445:;  T476:;
1531          V81= Ct;          V85= Ct;
1532          V82= list(3,VV[42],(V82),car((V85)));          V86= list(3,VV[42],(V86),car((V89)));
1533          goto TTL;          goto TTL;
1534  goto T358;  goto T389;
1535  T358:;  T389:;
1536          if(!(((V84))==(VV[41]))){          if(!(((V88))==(VV[41]))){
1537          goto T455;}          goto T486;}
1538          base[2]= Cnil;          base[2]= Cnil;
1539          base[3]= Cnil;          base[3]= Cnil;
1540          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1541          return;          return;
1542  goto T455;  goto T486;
1543  T455:;  T486:;
1544          if(!(((V84))==(VV[42]))){          if(!(((V88))==(VV[42]))){
1545          goto T460;}          goto T491;}
1546          {register object V99;          {register object V107;
1547          object V100;          object V108;
1548          V99= (V86);          V107= (V90);
1549          V100= car((V99));          V108= car((V107));
1550  goto T466;  goto T497;
1551  T466:;  T497:;
1552          if(!(endp_prop((V99)))){          if(!(endp_prop((V107)))){
1553          goto T467;}          goto T498;}
1554          goto T462;          goto T493;
1555  goto T467;  goto T498;
1556  T467:;  T498:;
1557          {object V101;          {object V109;
1558          base[3]= (V81);          base[3]= (V85);
1559          base[4]= (V100);          base[4]= (V108);
1560          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1561          (void) (*Lnk140)();          (void) (*Lnk145)();
1562          vs_top=sup;          vs_top=sup;
1563          V101= vs_base[0];          V109= vs_base[0];
1564          if(((V101))==Cnil){          if(((V109))==Cnil){
1565          goto T471;}          goto T502;}
1566          base[3]= Ct;          base[3]= Ct;
1567          base[4]= Ct;          base[4]= Ct;
1568          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1569          return;}          return;}
1570  goto T471;  goto T502;
1571  T471:;  T502:;
1572          V99= cdr((V99));          V107= cdr((V107));
1573          V100= car((V99));          V108= car((V107));
1574          goto T466;}          goto T497;}
1575  goto T462;  goto T493;
1576  T462:;  T493:;
1577          base[2]= Cnil;          base[2]= Cnil;
1578          base[3]= Cnil;          base[3]= Cnil;
1579          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1580          return;          return;
1581  goto T460;  goto T491;
1582  T460:;  T491:;
1583          if(!(((V84))==(VV[43]))){          if(!(((V88))==(VV[43]))){
1584          goto T487;}          goto T518;}
1585          {register object V102;          {register object V110;
1586          object V103;          object V111;
1587          V102= (V86);          V110= (V90);
1588          V103= car((V102));          V111= car((V110));
1589  goto T493;  goto T524;
1590  T493:;  T524:;
1591          if(!(endp_prop((V102)))){          if(!(endp_prop((V110)))){
1592          goto T494;}          goto T525;}
1593          goto T489;          goto T520;
1594  goto T494;  goto T525;
1595  T494:;  T525:;
1596          {object V104;          {object V112;
1597          object V105;          object V113;
1598          base[3]= (V81);          base[3]= (V85);
1599          base[4]= (V103);          base[4]= (V111);
1600          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1601          (void) (*Lnk140)();          (void) (*Lnk145)();
1602          if(vs_base>=vs_top){vs_top=sup;goto T502;}          if(vs_base>=vs_top){vs_top=sup;goto T533;}
1603          V104= vs_base[0];          V112= vs_base[0];
1604          vs_base++;          vs_base++;
1605          if(vs_base>=vs_top){vs_top=sup;goto T503;}          if(vs_base>=vs_top){vs_top=sup;goto T534;}
1606          V105= vs_base[0];          V113= vs_base[0];
1607          vs_top=sup;          vs_top=sup;
1608          goto T504;          goto T535;
1609  goto T502;  goto T533;
1610  T502:;  T533:;
1611          V104= Cnil;          V112= Cnil;
1612  goto T503;  goto T534;
1613  T503:;  T534:;
1614          V105= Cnil;          V113= Cnil;
1615  goto T504;  goto T535;
1616  T504:;  T535:;
1617          if(((V104))!=Cnil){          if(((V112))!=Cnil){
1618          goto T498;}          goto T529;}
1619          base[3]= (V104);          base[3]= (V112);
1620          base[4]= (V105);          base[4]= (V113);
1621          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1622          return;}          return;}
1623  goto T498;  goto T529;
1624  T498:;  T529:;
1625          V102= cdr((V102));          V110= cdr((V110));
1626          V103= car((V102));          V111= car((V110));
1627          goto T493;}          goto T524;}
1628  goto T489;  goto T520;
1629  T489:;  T520:;
1630          base[2]= Ct;          base[2]= Ct;
1631          base[3]= Ct;          base[3]= Ct;
1632          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1633          return;          return;
1634  goto T487;  goto T518;
1635  T487:;  T518:;
1636          if(!(((V84))==(VV[44]))){          if(!(((V88))==(VV[44]))){
1637          goto T453;}          goto T484;}
1638          V81= list(3,VV[43],(V81),car((V86)));          V85= list(3,VV[43],(V85),car((V90)));
1639          V82= Cnil;          V86= Cnil;
1640          goto TTL;          goto TTL;
1641  goto T453;  goto T484;
1642  T453:;  T484:;
1643          V87= (*(LnkLI141))((V81));          V91= (*(LnkLI146))((V85));
1644          V88= (*(LnkLI141))((V82));          V92= (*(LnkLI146))((V86));
1645          if(((V83))==(Cnil)){          if(((V87))==(Cnil)){
1646          goto T525;}          goto T556;}
1647          if(((V84))==(Ct)){          if(((V88))==(Ct)){
1648          goto T525;}          goto T556;}
1649          if(!(((V84))==(VV[45]))){          if(!(((V88))==(VV[45]))){
1650          goto T526;}          goto T557;}
1651  goto T525;  goto T556;
1652  T525:;  T556:;
1653          base[2]= Ct;          base[2]= Ct;
1654          base[3]= Ct;          base[3]= Ct;
1655          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1656          return;          return;
1657  goto T526;  goto T557;
1658  T526:;  T557:;
1659          if(!(((V84))==(Cnil))){          if(!(((V88))==(Cnil))){
1660          goto T535;}          goto T566;}
1661          base[2]= Cnil;          base[2]= Cnil;
1662          base[3]= (V87);          base[3]= (V91);
1663          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1664          return;          return;
1665  goto T535;  goto T566;
1666  T535:;  T566:;
1667          if(!(((V83))==(Ct))){          if(!(((V87))==(Ct))){
1668          goto T540;}          goto T571;}
1669          base[2]= Cnil;          base[2]= Cnil;
1670          base[3]= (V88);          base[3]= (V92);
1671          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1672          return;          return;
1673  goto T540;  goto T571;
1674  T540:;  T571:;
1675          if(!(((V83))==(VV[45]))){          if(!(((V87))==(VV[45]))){
1676          goto T545;}          goto T576;}
1677          base[2]= Cnil;          base[2]= Cnil;
1678          base[3]= (V88);          base[3]= (V92);
1679          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1680          return;          return;
1681  goto T545;  goto T576;
1682  T545:;  T576:;
1683          if(!(((V84))==(VV[46]))){          if(!(((V88))==(VV[46]))){
1684          goto T550;}          goto T581;}
1685          {register object x= (V83),V106= VV[47];          {register object x= (V87),V114= VV[47];
1686          while(!endp(V106))          while(!endp(V114))
1687          if(eql(x,V106->c.c_car)){          if(eql(x,V114->c.c_car)){
1688          goto T554;          goto T585;
1689          }else V106=V106->c.c_cdr;          }else V114=V114->c.c_cdr;
1690          goto T553;}          goto T584;}
1691  goto T554;  goto T585;
1692  T554:;  T585:;
1693          base[2]= Ct;          base[2]= Ct;
1694          base[3]= Ct;          base[3]= Ct;
1695          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1696          return;          return;
1697  goto T553;  goto T584;
1698  T553:;  T584:;
1699          base[2]= Cnil;          base[2]= Cnil;
1700          base[3]= (V87);          base[3]= (V91);
1701          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1702          return;          return;
1703  goto T550;  goto T581;
1704  T550:;  T581:;
1705          if(!(((V84))==(VV[48]))){          if(!(((V88))==(VV[48]))){
1706          goto T560;}          goto T591;}
1707          {register object x= (V83),V107= VV[49];          {register object x= (V87),V115= VV[49];
1708          while(!endp(V107))          while(!endp(V115))
1709          if(eql(x,V107->c.c_car)){          if(eql(x,V115->c.c_car)){
1710          goto T564;          goto T595;
1711          }else V107=V107->c.c_cdr;          }else V115=V115->c.c_cdr;
1712          goto T563;}          goto T594;}
1713  goto T564;  goto T595;
1714  T564:;  T595:;
1715          base[2]= Ct;          base[2]= Ct;
1716          base[3]= Ct;          base[3]= Ct;
1717          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1718          return;          return;
1719  goto T563;  goto T594;
1720  T563:;  T594:;
1721          if(((V83))==(VV[27])){          if(((V87))==(VV[27])){
1722          goto T567;}          goto T598;}
1723          if(!(((V83))==(VV[22]))){          if(!(((V87))==(VV[22]))){
1724          goto T568;}          goto T599;}
1725  goto T567;  goto T598;
1726  T567:;  T598:;
1727          if((cdr((V85)))==Cnil){          if((cdr((V89)))==Cnil){
1728          goto T573;}          goto T604;}
1729          if(!(type_of(cadr((V85)))==t_cons)){          if(!(type_of(cadr((V89)))==t_cons)){
1730          goto T573;}          goto T604;}
1731          if((cdadr((V85)))!=Cnil){          if((cdadr((V89)))!=Cnil){
1732          goto T573;}          goto T604;}
1733          base[2]= Ct;          base[2]= Ct;
1734          base[3]= Ct;          base[3]= Ct;
1735          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1736          return;          return;
1737  goto T573;  goto T604;
1738  T573:;  T604:;
1739          base[2]= Cnil;          base[2]= Cnil;
1740          base[3]= Ct;          base[3]= Ct;
1741          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1742          return;          return;
1743  goto T568;  goto T599;
1744  T568:;  T599:;
1745          base[2]= Cnil;          base[2]= Cnil;
1746          base[3]= (V87);          base[3]= (V91);
1747          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1748          return;          return;
1749  goto T560;  goto T591;
1750  T560:;  T591:;
1751          if(!(((V83))==(VV[46]))){          if(!(((V87))==(VV[46]))){
1752          goto T586;}          goto T617;}
1753          base[2]= Cnil;          base[2]= Cnil;
1754          base[3]= (V88);          base[3]= (V92);
1755          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1756          return;          return;
1757  goto T586;  goto T617;
1758  T586:;  T617:;
1759          if(!(((V83))==(VV[48]))){          if(!(((V87))==(VV[48]))){
1760          goto T591;}          goto T622;}
1761          base[2]= Cnil;          base[2]= Cnil;
1762          base[3]= (V88);          base[3]= (V92);
1763          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1764          return;          return;
1765  goto T591;  goto T622;
1766  T591:;  T622:;
1767          if(!(((V84))==(VV[50]))){          if(!(((V88))==(VV[50]))){
1768          goto T596;}          goto T627;}
1769          {register object x= (V83),V108= VV[51];          {register object x= (V87),V116= VV[51];
1770          while(!endp(V108))          while(!endp(V116))
1771          if(eql(x,V108->c.c_car)){          if(eql(x,V116->c.c_car)){
1772          goto T600;          goto T631;
1773          }else V108=V108->c.c_cdr;          }else V116=V116->c.c_cdr;
1774          goto T599;}          goto T630;}
1775  goto T600;  goto T631;
1776  T600:;  T631:;
1777          base[2]= Cnil;          base[2]= Cnil;
1778          base[3]= Ct;          base[3]= Ct;
1779          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1780          return;          return;
1781  goto T599;  goto T630;
1782  T599:;  T630:;
1783          if(((V87))==Cnil){          if(((V91))==Cnil){
1784          goto T604;}          goto T635;}
1785          base[2]= Ct;          base[2]= Ct;
1786          base[3]= Ct;          base[3]= Ct;
1787          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1788          return;          return;
1789  goto T604;  goto T635;
1790  T604:;  T635:;
1791          base[2]= Cnil;          base[2]= Cnil;
1792          base[3]= Cnil;          base[3]= Cnil;
1793          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1794          return;          return;
1795  goto T596;  goto T627;
1796  T596:;  T627:;
1797          if(!(((V83))==(VV[50]))){          if(!(((V87))==(VV[50]))){
1798          goto T611;}          goto T642;}
1799          base[2]= Cnil;          base[2]= Cnil;
1800          base[3]= (V88);          base[3]= (V92);
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T611;  
 T611:;  
         if(!(((V84))==(VV[52]))){  
         goto T616;}  
         {register object x= (V83),V109= VV[53];  
         while(!endp(V109))  
         if(eql(x,V109->c.c_car)){  
         goto T620;  
         }else V109=V109->c.c_cdr;  
         goto T619;}  
 goto T620;  
 T620:;  
         base[2]= Ct;  
         base[3]= Ct;  
1801          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1802          return;          return;
1803  goto T619;  goto T642;
1804  T619:;  T642:;
1805          base[2]= Cnil;          if(!(((V88))==(VV[52]))){
1806          base[3]= (V87);          goto T647;}
1807          vs_top=(vs_base=base+2)+2;          {register object x= (V87),V117= VV[53];
1808          return;          while(!endp(V117))
1809  goto T616;          if(eql(x,V117->c.c_car)){
1810  T616:;          goto T651;
1811          if(!(((V84))==(VV[9]))){          }else V117=V117->c.c_cdr;
1812          goto T626;}          goto T650;}
1813          {register object x= (V83),V110= VV[54];  goto T651;
1814          while(!endp(V110))  T651:;
         if(eql(x,V110->c.c_car)){  
         goto T630;  
         }else V110=V110->c.c_cdr;  
         goto T629;}  
 goto T630;  
 T630:;  
1815          base[2]= Ct;          base[2]= Ct;
1816          base[3]= Ct;          base[3]= Ct;
1817          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1818          return;          return;
1819  goto T629;  goto T650;
1820  T629:;  T650:;
1821          base[2]= Cnil;          base[2]= Cnil;
1822          base[3]= (V87);          base[3]= (V91);
1823          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1824          return;          return;
1825  goto T626;  goto T647;
1826  T626:;  T647:;
1827          if(!(((V84))==(VV[55]))){          if(!(((V88))==(VV[9]))){
1828          goto T636;}          goto T657;}
1829          if(!(((V83))==(VV[56]))){          {register object x= (V87),V118= VV[54];
1830          goto T639;}          while(!endp(V118))
1831            if(eql(x,V118->c.c_car)){
1832            goto T661;
1833            }else V118=V118->c.c_cdr;
1834            goto T660;}
1835    goto T661;
1836    T661:;
1837          base[2]= Ct;          base[2]= Ct;
1838          base[3]= Ct;          base[3]= Ct;
1839          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1840          return;          return;
1841  goto T639;  goto T660;
1842  T639:;  T660:;
1843          base[2]= Cnil;          base[2]= Cnil;
1844          base[3]= (V87);          base[3]= (V91);
1845          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1846          return;          return;
1847  goto T636;  goto T657;
1848  T636:;  T657:;
1849          if(!(((V84))==(VV[57]))){          if(!(((V88))==(VV[55]))){
1850          goto T646;}          goto T667;}
1851          if(!(((V83))==(VV[58]))){          if(!(((V87))==(VV[56]))){
1852          goto T649;}          goto T670;}
1853          base[2]= Ct;          base[2]= Ct;
1854          base[3]= Ct;          base[3]= Ct;
1855          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1856          return;          return;
1857  goto T649;  goto T670;
1858  T649:;  T670:;
1859          base[2]= Cnil;          base[2]= Cnil;
1860          base[3]= (V87);          base[3]= (V91);
1861          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1862          return;          return;
1863  goto T646;  goto T667;
1864  T646:;  T667:;
1865          if(!(((V84))==(VV[59]))){          if(!(((V88))==(VV[57]))){
1866          goto T656;}          goto T677;}
1867          {register object x= (V83),V111= VV[60];          if(!(((V87))==(VV[58]))){
1868          while(!endp(V111))          goto T680;}
         if(eql(x,V111->c.c_car)){  
         goto T660;  
         }else V111=V111->c.c_cdr;  
         goto T659;}  
 goto T660;  
 T660:;  
1869          base[2]= Ct;          base[2]= Ct;
1870          base[3]= Ct;          base[3]= Ct;
1871          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1872          return;          return;
1873  goto T659;  goto T680;
1874  T659:;  T680:;
1875          base[2]= Cnil;          base[2]= Cnil;
1876          base[3]= (V87);          base[3]= (V91);
1877          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1878          return;          return;
1879  goto T656;  goto T677;
1880  T656:;  T677:;
1881          if(!(((V84))==(VV[61]))){          if(!(((V88))==(VV[59]))){
1882          goto T666;}          goto T687;}
1883          {register object x= (V83),V112= VV[62];          {register object x= (V87),V119= VV[60];
1884          while(!endp(V112))          while(!endp(V119))
1885          if(eql(x,V112->c.c_car)){          if(eql(x,V119->c.c_car)){
1886          goto T670;          goto T691;
1887          }else V112=V112->c.c_cdr;          }else V119=V119->c.c_cdr;
1888          goto T669;}          goto T690;}
1889  goto T670;  goto T691;
1890  T670:;  T691:;
1891          base[2]= Ct;          base[2]= Ct;
1892          base[3]= Ct;          base[3]= Ct;
1893          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1894          return;          return;
1895  goto T669;  goto T690;
1896  T669:;  T690:;
1897          base[2]= Cnil;          base[2]= Cnil;
1898          base[3]= (V87);          base[3]= (V91);
1899          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1900          return;          return;
1901  goto T666;  goto T687;
1902  T666:;  T687:;
1903          if(!(((V84))==(VV[63]))){          if(!(((V88))==(VV[61]))){
1904          goto T676;}          goto T697;}
1905          V113= coerce_to_string((V83));          {register object x= (V87),V120= VV[62];
1906          if(equal(/* INLINE-ARGS */V113,VV[64])){          while(!endp(V120))
1907          goto T678;}          if(eql(x,V120->c.c_car)){
1908          {register object x= (V83),V114= VV[65];          goto T701;
1909          while(!endp(V114))          }else V120=V120->c.c_cdr;
1910          if(eql(x,V114->c.c_car)){          goto T700;}
1911          goto T682;  goto T701;
1912          }else V114=V114->c.c_cdr;  T701:;
         goto T679;}  
 goto T682;  
 T682:;  
 goto T678;  
 T678:;  
1913          base[2]= Ct;          base[2]= Ct;
1914          base[3]= Ct;          base[3]= Ct;
1915          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1916          return;          return;
1917  goto T679;  goto T700;
1918  T679:;  T700:;
1919          base[2]= Cnil;          base[2]= Cnil;
1920          base[3]= (V87);          base[3]= (V91);
1921          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1922          return;          return;
1923  goto T676;  goto T697;
1924  T676:;  T697:;
1925          if(!(((V84))==(VV[66]))){          if(!(((V88))==(VV[63]))){
1926          goto T688;}          goto T707;}
1927          V115= coerce_to_string((V83));          V121= coerce_to_string((V87));
1928          if(equal(/* INLINE-ARGS */V115,VV[67])){          if(equal(/* INLINE-ARGS */V121,VV[64])){
1929          goto T690;}          goto T709;}
1930          {register object x= (V83),V116= VV[68];          {register object x= (V87),V122= VV[65];
1931          while(!endp(V116))          while(!endp(V122))
1932          if(eql(x,V116->c.c_car)){          if(eql(x,V122->c.c_car)){
1933          goto T694;          goto T713;
1934          }else V116=V116->c.c_cdr;          }else V122=V122->c.c_cdr;
1935          goto T691;}          goto T710;}
1936  goto T694;  goto T713;
1937  T694:;  T713:;
1938  goto T690;  goto T709;
1939  T690:;  T709:;
1940          base[2]= Ct;          base[2]= Ct;
1941          base[3]= Ct;          base[3]= Ct;
1942          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1943          return;          return;
1944  goto T691;  goto T710;
1945  T691:;  T710:;
1946          base[2]= Cnil;          base[2]= Cnil;
1947          base[3]= (V87);          base[3]= (V91);
1948          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1949          return;          return;
1950  goto T688;  goto T707;
1951  T688:;  T707:;
1952          if(!(((V84))==(VV[69]))){          if(!(((V88))==(VV[66]))){
1953          goto T700;}          goto T719;}
1954          if(!(((V83))==(VV[70]))){          V123= coerce_to_string((V87));
1955          goto T703;}          if(equal(/* INLINE-ARGS */V123,VV[67])){
1956            goto T721;}
1957            {register object x= (V87),V124= VV[68];
1958            while(!endp(V124))
1959            if(eql(x,V124->c.c_car)){
1960            goto T725;
1961            }else V124=V124->c.c_cdr;
1962            goto T722;}
1963    goto T725;
1964    T725:;
1965    goto T721;
1966    T721:;
1967          base[2]= Ct;          base[2]= Ct;
1968          base[3]= Ct;          base[3]= Ct;
1969          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1970          return;          return;
1971  goto T703;  goto T722;
1972  T703:;  T722:;
1973          base[2]= Cnil;          base[2]= Cnil;
1974          base[3]= (V87);          base[3]= (V91);
1975          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1976          return;          return;
1977  goto T700;  goto T719;
1978  T700:;  T719:;
1979          if(!(((V84))==(VV[71]))){          if(!(((V88))==(VV[69]))){
1980          goto T710;}          goto T731;}
1981          if(!(((V83))==(VV[72]))){          if(!(((V87))==(VV[70]))){
1982          goto T713;}          goto T734;}
1983          base[2]= Ct;          base[2]= Ct;
1984          base[3]= Ct;          base[3]= Ct;
1985          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1986          return;          return;
1987  goto T713;  goto T734;
1988  T713:;  T734:;
1989          base[2]= Cnil;          base[2]= Cnil;
1990          base[3]= (V87);          base[3]= (V91);
1991          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1992          return;          return;
1993  goto T710;  goto T731;
1994  T710:;  T731:;
1995          if(!(((V84))==(VV[73]))){          if(!(((V88))==(VV[71]))){
1996          goto T720;}          goto T741;}
1997          {register object x= (V83),V117= VV[74];          if(!(((V87))==(VV[72]))){
1998          while(!endp(V117))          goto T744;}
         if(eql(x,V117->c.c_car)){  
         goto T724;  
         }else V117=V117->c.c_cdr;  
         goto T723;}  
 goto T724;  
 T724:;  
1999          base[2]= Ct;          base[2]= Ct;
2000          base[3]= Ct;          base[3]= Ct;
2001          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2002          return;          return;
2003  goto T723;  goto T744;
2004  T723:;  T744:;
2005          base[2]= Cnil;          base[2]= Cnil;
2006          base[3]= (V87);          base[3]= (V91);
2007          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2008          return;          return;
2009  goto T720;  goto T741;
2010  T720:;  T741:;
2011          V118= coerce_to_string((V84));          if(!(((V88))==(VV[73]))){
2012          if(equal(/* INLINE-ARGS */V118,VV[75])){          goto T751;}
2013          goto T729;}          {register object x= (V87),V125= VV[74];
2014          if(!(((V84))==(VV[76]))){          while(!endp(V125))
2015          goto T730;}          if(eql(x,V125->c.c_car)){
2016  goto T729;          goto T755;
2017  T729:;          }else V125=V125->c.c_cdr;
2018          {register object x= (V83),V119= VV[77];          goto T754;}
2019          while(!endp(V119))  goto T755;
2020          if(eql(x,V119->c.c_car)){  T755:;
         goto T736;  
         }else V119=V119->c.c_cdr;  
         goto T735;}  
 goto T736;  
 T736:;  
2021          base[2]= Ct;          base[2]= Ct;
2022          base[3]= Ct;          base[3]= Ct;
2023          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2024          return;          return;
2025  goto T735;  goto T754;
2026  T735:;  T754:;
2027          base[2]= Cnil;          base[2]= Cnil;
2028          base[3]= (V87);          base[3]= (V91);
2029          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2030          return;          return;
2031  goto T730;  goto T751;
2032  T730:;  T751:;
2033          if(!(((V84))==(VV[78]))){          V126= coerce_to_string((V88));
2034          goto T742;}          if(equal(/* INLINE-ARGS */V126,VV[75])){
2035          {register object x= (V83),V120= VV[79];          goto T760;}
2036          while(!endp(V120))          if(!(((V88))==(VV[76]))){
2037          if(eql(x,V120->c.c_car)){          goto T761;}
2038          goto T746;  goto T760;
2039          }else V120=V120->c.c_cdr;  T760:;
2040          goto T745;}          {register object x= (V87),V127= VV[77];
2041  goto T746;          while(!endp(V127))
2042  T746:;          if(eql(x,V127->c.c_car)){
2043            goto T767;
2044            }else V127=V127->c.c_cdr;
2045            goto T766;}
2046    goto T767;
2047    T767:;
2048          base[2]= Ct;          base[2]= Ct;
2049          base[3]= Ct;          base[3]= Ct;
2050          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2051          return;          return;
2052  goto T745;  goto T766;
2053  T745:;  T766:;
2054          base[2]= Cnil;          base[2]= Cnil;
2055          base[3]= (V87);          base[3]= (V91);
2056          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2057          return;          return;
2058  goto T742;  goto T761;
2059  T742:;  T761:;
2060          if(!(((V84))==(VV[80]))){          if(!(((V88))==(VV[78]))){
2061          goto T752;}          goto T773;}
2062          if(!(((V83))==(VV[81]))){          {register object x= (V87),V128= VV[79];
2063          goto T755;}          while(!endp(V128))
2064            if(eql(x,V128->c.c_car)){
2065            goto T777;
2066            }else V128=V128->c.c_cdr;
2067            goto T776;}
2068    goto T777;
2069    T777:;
2070          base[2]= Ct;          base[2]= Ct;
2071          base[3]= Ct;          base[3]= Ct;
2072          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2073          return;          return;
2074  goto T755;  goto T776;
2075  T755:;  T776:;
2076          base[2]= Cnil;          base[2]= Cnil;
2077          base[3]= (V87);          base[3]= (V91);
2078          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2079          return;          return;
2080  goto T752;  goto T773;
2081  T752:;  T773:;
2082          if(!(((V84))==(VV[82]))){          if(!(((V88))==(VV[80]))){
2083          goto T762;}          goto T783;}
2084          if(!(((V83))==(VV[83]))){          if(!(((V87))==(VV[81]))){
2085          goto T765;}          goto T786;}
2086          base[2]= Ct;          base[2]= Ct;
2087          base[3]= Ct;          base[3]= Ct;
2088          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2089          return;          return;
2090  goto T765;  goto T786;
2091  T765:;  T786:;
2092          base[2]= Cnil;          base[2]= Cnil;
2093          base[3]= (V87);          base[3]= (V91);
2094          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2095          return;          return;
2096  goto T762;  goto T783;
2097  T762:;  T783:;
2098          if(!(((V84))==(VV[84]))){          if(!(((V88))==(VV[82]))){
2099          goto T772;}          goto T793;}
2100          {register object x= (V83),V121= VV[85];          if(!(((V87))==(VV[83]))){
2101          while(!endp(V121))          goto T796;}
         if(eql(x,V121->c.c_car)){  
         goto T776;  
         }else V121=V121->c.c_cdr;  
         goto T775;}  
 goto T776;  
 T776:;  
2102          base[2]= Ct;          base[2]= Ct;
2103          base[3]= Ct;          base[3]= Ct;
2104          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2105          return;          return;
2106  goto T775;  goto T796;
2107  T775:;  T796:;
2108          base[2]= Cnil;          base[2]= Cnil;
2109          base[3]= (V87);          base[3]= (V91);
2110          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2111          return;          return;
2112  goto T772;  goto T793;
2113  T772:;  T793:;
2114          if(!(((V84))==(VV[84]))){          if(!(((V88))==(VV[84]))){
2115          goto T782;}          goto T803;}
2116          {register object x= (V83),V122= VV[86];          {register object x= (V87),V129= VV[85];
2117          while(!endp(V122))          while(!endp(V129))
2118          if(eql(x,V122->c.c_car)){          if(eql(x,V129->c.c_car)){
2119          goto T786;          goto T807;
2120          }else V122=V122->c.c_cdr;          }else V129=V129->c.c_cdr;
2121          goto T785;}          goto T806;}
2122  goto T786;  goto T807;
2123  T786:;  T807:;
2124          base[2]= Ct;          base[2]= Ct;
2125          base[3]= Ct;          base[3]= Ct;
2126          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2127          return;          return;
2128  goto T785;  goto T806;
2129  T785:;  T806:;
2130          base[2]= Cnil;          base[2]= Cnil;
2131          base[3]= (V87);          base[3]= (V91);
2132          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2133          return;          return;
2134  goto T782;  goto T803;
2135  T782:;  T803:;
2136          if(!(((V84))==(VV[87]))){          if(!(((V88))==(VV[84]))){
2137          goto T792;}          goto T813;}
2138          {register object x= (V83),V123= VV[88];          {register object x= (V87),V130= VV[86];
2139          while(!endp(V123))          while(!endp(V130))
2140          if(eql(x,V123->c.c_car)){          if(eql(x,V130->c.c_car)){
2141          goto T796;          goto T817;
2142          }else V123=V123->c.c_cdr;          }else V130=V130->c.c_cdr;
2143          goto T795;}          goto T816;}
2144  goto T796;  goto T817;
2145  T796:;  T817:;
2146          base[2]= Ct;          base[2]= Ct;
2147          base[3]= Ct;          base[3]= Ct;
2148          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2149          return;          return;
2150  goto T795;  goto T816;
2151  T795:;  T816:;
2152          base[2]= Cnil;          base[2]= Cnil;
2153          base[3]= (V87);          base[3]= (V91);
2154          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2155          return;          return;
2156  goto T792;  goto T813;
2157  T792:;  T813:;
2158          if(!(((V84))==(VV[89]))){          if(!(((V88))==(VV[87]))){
2159          goto T802;}          goto T823;}
2160          {register object x= (V83),V124= VV[90];          {register object x= (V87),V131= VV[88];
2161          while(!endp(V124))          while(!endp(V131))
2162          if(eql(x,V124->c.c_car)){          if(eql(x,V131->c.c_car)){
2163          goto T806;          goto T827;
2164          }else V124=V124->c.c_cdr;          }else V131=V131->c.c_cdr;
2165          goto T805;}          goto T826;}
2166  goto T806;  goto T827;
2167  T806:;  T827:;
2168          base[2]= Ct;          base[2]= Ct;
2169          base[3]= Ct;          base[3]= Ct;
2170          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2171          return;          return;
2172  goto T805;  goto T826;
2173  T805:;  T826:;
2174          base[2]= Cnil;          base[2]= Cnil;
2175          base[3]= (V87);          base[3]= (V91);
2176          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2177          return;          return;
2178  goto T802;  goto T823;
2179  T802:;  T823:;
2180          if(!(((V84))==(VV[91]))){          if(!(((V88))==(VV[89]))){
2181          goto T812;}          goto T833;}
2182          {register object x= (V83),V125= VV[92];          {register object x= (V87),V132= VV[90];
2183          while(!endp(V125))          while(!endp(V132))
2184          if(eql(x,V125->c.c_car)){          if(eql(x,V132->c.c_car)){
2185          goto T816;          goto T837;
2186          }else V125=V125->c.c_cdr;          }else V132=V132->c.c_cdr;
2187          goto T815;}          goto T836;}
2188  goto T816;  goto T837;
2189  T816:;  T837:;
2190          base[2]= Ct;          base[2]= Ct;
2191          base[3]= Ct;          base[3]= Ct;
2192          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2193          return;          return;
2194  goto T815;  goto T836;
2195  T815:;  T836:;
2196          base[2]= Cnil;          base[2]= Cnil;
2197          base[3]= (V87);          base[3]= (V91);
2198          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2199          return;          return;
2200  goto T812;  goto T833;
2201  T812:;  T833:;
2202          if(!(((V84))==(VV[93]))){          if(!(((V88))==(VV[91]))){
2203          goto T822;}          goto T843;}
2204          if(!(((V83))==(VV[93]))){          {register object x= (V87),V133= VV[92];
2205          goto T825;}          while(!endp(V133))
2206            if(eql(x,V133->c.c_car)){
2207            goto T847;
2208            }else V133=V133->c.c_cdr;
2209            goto T846;}
2210    goto T847;
2211    T847:;
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 T825;  goto T846;
2217  T825:;  T846:;
2218          base[2]= Cnil;          base[2]= Cnil;
2219          base[3]= (V87);          base[3]= (V91);
2220          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2221          return;          return;
2222  goto T822;  goto T843;
2223  T822:;  T843:;
2224          if(!(((V84))==(VV[58]))){          if(!(((V88))==(VV[93]))){
2225          goto T832;}          goto T853;}
2226          if(!(((V83))==(VV[58]))){          if(!(((V87))==(VV[93]))){
2227          goto T835;}          goto T856;}
2228          base[2]= Ct;          base[2]= Ct;
2229          base[3]= Ct;          base[3]= Ct;
2230          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2231          return;          return;
2232  goto T835;  goto T856;
2233  T835:;  T856:;
2234          base[2]= Cnil;          base[2]= Cnil;
2235          base[3]= (V87);          base[3]= (V91);
2236          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2237          return;          return;
2238  goto T832;  goto T853;
2239  T832:;  T853:;
2240          if(!(((V84))==(VV[94]))){          if(!(((V88))==(VV[58]))){
2241          goto T842;}          goto T863;}
2242          {register object x= (V83),V126= VV[95];          if(!(((V87))==(VV[58]))){
2243          while(!endp(V126))          goto T866;}
         if(eql(x,V126->c.c_car)){  
         goto T846;  
         }else V126=V126->c.c_cdr;  
         goto T845;}  
 goto T846;  
 T846:;  
2244          base[2]= Ct;          base[2]= Ct;
2245          base[3]= Ct;          base[3]= Ct;
2246          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2247          return;          return;
2248  goto T845;  goto T866;
2249  T845:;  T866:;
2250          base[2]= Cnil;          base[2]= Cnil;
2251          base[3]= (V87);          base[3]= (V91);
2252            vs_top=(vs_base=base+2)+2;
2253            return;
2254    goto T863;
2255    T863:;
2256            if(!(((V88))==(VV[94]))){
2257            goto T873;}
2258            {register object x= (V87),V134= VV[95];
2259            while(!endp(V134))
2260            if(eql(x,V134->c.c_car)){
2261            goto T877;
2262            }else V134=V134->c.c_cdr;
2263            goto T876;}
2264    goto T877;
2265    T877:;
2266            base[2]= Ct;
2267            base[3]= Ct;
2268          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2269          return;          return;
2270  goto T842;  goto T876;
2271  T842:;  T876:;
         if(!(((V83))==(VV[94]))){  
         goto T852;}  
2272          base[2]= Cnil;          base[2]= Cnil;
2273          base[3]= (V88);          base[3]= (V91);
2274          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2275          return;          return;
2276  goto T852;  goto T873;
2277  T852:;  T873:;
2278          if(((V84))==(VV[29])){          if(!(((V87))==(VV[94]))){
2279          goto T856;}          goto T883;}
2280          if(!(((V84))==(VV[28]))){          base[2]= Cnil;
2281          goto T857;}          base[3]= (V92);
2282  goto T856;          vs_top=(vs_base=base+2)+2;
2283  T856:;          return;
2284          if(((V83))==(VV[29])){  goto T883;
2285          goto T861;}  T883:;
2286          if((get((V83),VV[36],Cnil))==Cnil){          if(((V88))==(VV[29])){
2287          goto T862;}          goto T887;}
2288  goto T861;          if(!(((V88))==(VV[28]))){
2289  T861:;          goto T888;}
2290    goto T887;
2291    T887:;
2292            if(((V87))==(VV[29])){
2293            goto T892;}
2294            if((get((V87),VV[36],Cnil))==Cnil){
2295            goto T893;}
2296    goto T892;
2297    T892:;
2298          base[2]= Ct;          base[2]= Ct;
2299          base[3]= Ct;          base[3]= Ct;
2300          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2301          return;          return;
2302  goto T862;  goto T893;
2303  T862:;  T893:;
2304          base[2]= Cnil;          base[2]= Cnil;
2305          base[3]= (V87);          base[3]= (V91);
2306          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2307          return;          return;
2308  goto T857;  goto T888;
2309  T857:;  T888:;
2310          if(!(((V83))==(VV[29]))){          if(!(((V87))==(VV[29]))){
2311          goto T871;}          goto T902;}
2312          base[2]= Cnil;          base[2]= Cnil;
2313          base[3]= (V88);          base[3]= (V92);
2314          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2315          return;          return;
2316  goto T871;  goto T902;
2317  T871:;  T902:;
2318          V89= get((V83),VV[36],Cnil);          V93= get((V87),VV[36],Cnil);
2319          if(((V89))==Cnil){          if(((V93))==Cnil){
2320          goto T876;}          goto T907;}
2321          {object V127;          {object V135;
2322          V127= get((V84),VV[36],Cnil);          V135= get((V88),VV[36],Cnil);
2323          if(((V127))==Cnil){          if(((V135))==Cnil){
2324          goto T881;}          goto T912;}
2325          {register object V128;          {register object V136;
2326          V128= (V89);          V136= (V93);
2327  goto T884;  goto T915;
2328  T884:;  T915:;
2329          if(((V128))!=Cnil){          if(((V136))!=Cnil){
2330          goto T885;}          goto T916;}
2331          base[2]= Cnil;          base[2]= Cnil;
2332          base[3]= Ct;          base[3]= Ct;
2333          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2334          return;          return;
2335  goto T885;  goto T916;
2336  T885:;  T916:;
2337          if(!(((V128))==(V127))){          if(!(((V136))==(V135))){
2338          goto T891;}          goto T922;}
2339          base[2]= Ct;          base[2]= Ct;
2340          base[3]= Ct;          base[3]= Ct;
2341          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2342          return;          return;
2343  goto T891;  goto T922;
2344  T891:;  T922:;
2345          V128= structure_ref((V128),VV[36],4);          V136= structure_ref((V136),VV[36],4);
2346          goto T884;}          goto T915;}
2347  goto T881;  goto T912;
2348  T881:;  T912:;
2349          base[2]= Cnil;          base[2]= Cnil;
2350          base[3]= (V88);          base[3]= (V92);
2351          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2352          return;}          return;}
 goto T876;  
 T876:;  
         if(!(((V84))==(VV[96]))){  
         goto T902;}  
         {register object x= (V83),V130= VV[97];  
         while(!endp(V130))  
         if(eql(x,V130->c.c_car)){  
         goto T907;  
         }else V130=V130->c.c_cdr;  
         goto T905;}  
2353  goto T907;  goto T907;
2354  T907:;  T907:;
2355          if(((*(LnkLI142))((V85),(V86)))==Cnil){          if(!(((V88))==(VV[96]))){
2356          goto T905;}          goto T933;}
2357            {register object x= (V87),V138= VV[97];
2358            while(!endp(V138))
2359            if(eql(x,V138->c.c_car)){
2360            goto T938;
2361            }else V138=V138->c.c_cdr;
2362            goto T936;}
2363    goto T938;
2364    T938:;
2365            if(((*(LnkLI147))((V89),(V90)))==Cnil){
2366            goto T936;}
2367          base[2]= Ct;          base[2]= Ct;
2368          base[3]= Ct;          base[3]= Ct;
2369          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2370          return;          return;
2371  goto T905;  goto T936;
2372  T905:;  T936:;
2373          base[2]= Cnil;          base[2]= Cnil;
2374          base[3]= (V87);          base[3]= (V91);
2375          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2376          return;          return;
2377  goto T902;  goto T933;
2378  T902:;  T933:;
2379          if((get((V84),VV[36],Cnil))==Cnil){          if((get((V88),VV[36],Cnil))==Cnil){
2380          goto T914;}          goto T945;}
2381          base[2]= Cnil;          base[2]= Cnil;
2382          base[3]= (V87);          base[3]= (V91);
2383          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2384          return;          return;
2385  goto T914;  goto T945;
2386  T914:;  T945:;
2387          {object V131= (V83);          {object V139= (V87);
2388          if((V131!= VV[32]))goto T918;          if((V139!= VV[32]))goto T949;
2389          {object V132= (V84);          {object V140= (V88);
2390          if((V132!= VV[32]))goto T919;          if((V140!= VV[32]))goto T950;
2391          base[2]= Ct;          base[2]= Ct;
2392          base[3]= Ct;          base[3]= Ct;
2393          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2394          return;          return;
2395  goto T919;  goto T950;
2396  T919:;  T950:;
2397          if((V132!= VV[13])          if((V140!= VV[13])
2398          && (V132!= VV[105]))goto T922;          && (V140!= VV[105]))goto T953;
2399          if(((*(LnkLI142))(VV[98],(V86)))==Cnil){          if(((*(LnkLI147))(VV[98],(V90)))==Cnil){
2400          goto T924;}          goto T955;}
2401          base[2]= Ct;          base[2]= Ct;
2402          base[3]= Ct;          base[3]= Ct;
2403          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2404          return;          return;
2405  goto T924;  goto T955;
2406  T924:;  T955:;
2407          base[2]= Cnil;          base[2]= Cnil;
2408          base[3]= Ct;          base[3]= Ct;
2409          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2410          return;          return;
2411  goto T922;  goto T953;
2412  T922:;  T953:;
2413          base[2]= Cnil;          base[2]= Cnil;
2414          base[3]= (V88);          base[3]= (V92);
2415          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2416          return;}          return;}
2417  goto T918;  goto T949;
2418  T918:;  T949:;
2419          if((V131!= VV[33]))goto T932;          if((V139!= VV[33]))goto T963;
2420          {object V133= (V84);          {object V141= (V88);
2421          if((V133!= VV[105]))goto T933;          if((V141!= VV[105]))goto T964;
2422          if(((*(LnkLI142))(VV[99],(V86)))==Cnil){          if(((*(LnkLI147))(VV[99],(V90)))==Cnil){
2423          goto T935;}          goto T966;}
2424          base[2]= Ct;          base[2]= Ct;
2425          base[3]= Ct;          base[3]= Ct;
2426          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2427          return;          return;
2428  goto T935;  goto T966;
2429  T935:;  T966:;
2430          base[2]= Cnil;          base[2]= Cnil;
2431          base[3]= Ct;          base[3]= Ct;
2432          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2433          return;          return;
2434  goto T933;  goto T964;
2435  T933:;  T964:;
2436          base[2]= Cnil;          base[2]= Cnil;
2437          base[3]= (V88);          base[3]= (V92);
2438          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2439          return;}          return;}
2440  goto T932;  goto T963;
2441  T932:;  T963:;
2442          if((V131!= VV[121]))goto T943;          if((V139!= VV[125]))goto T974;
2443          {register object x= (V84),V134= VV[100];          {register object x= (V88),V142= VV[100];
2444          while(!endp(V134))          while(!endp(V142))
2445          if(eql(x,V134->c.c_car)){          if(eql(x,V142->c.c_car)){
2446          goto T946;          goto T977;
2447          }else V134=V134->c.c_cdr;          }else V142=V142->c.c_cdr;
2448          goto T945;}          goto T976;}
2449  goto T946;  goto T977;
2450  T946:;  T977:;
2451          base[2]= Ct;          base[2]= Ct;
2452          base[3]= Ct;          base[3]= Ct;
2453          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2454          return;          return;
2455  goto T945;  goto T976;
2456  T945:;  T976:;
2457          base[2]= Cnil;          base[2]= Cnil;
2458          base[3]= (V88);          base[3]= (V92);
2459          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2460          return;          return;
2461  goto T943;  goto T974;
2462  T943:;  T974:;
2463          if((V131!= VV[25]))goto T951;          if((V139!= VV[25]))goto T982;
2464          {register object x= (V84),V135= VV[101];          {register object x= (V88),V143= VV[101];
2465          while(!endp(V135))          while(!endp(V143))
2466          if(eql(x,V135->c.c_car)){          if(eql(x,V143->c.c_car)){
2467          goto T954;          goto T985;
2468          }else V135=V135->c.c_cdr;          }else V143=V143->c.c_cdr;
2469          goto T953;}          goto T984;}
2470  goto T954;  goto T985;
2471  T954:;  T985:;
2472          base[2]= Ct;          base[2]= Ct;
2473          base[3]= Ct;          base[3]= Ct;
2474          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2475          return;          return;
2476  goto T953;  goto T984;
2477  T953:;  T984:;
2478          base[2]= Cnil;          base[2]= Cnil;
2479          base[3]= (V88);          base[3]= (V92);
2480          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2481          return;          return;
2482  goto T951;  goto T982;
2483  T951:;  T982:;
2484          if((V131!= VV[143]))goto T959;          if((V139!= VV[148]))goto T990;
2485          {register object x= (V84),V136= VV[102];          {register object x= (V88),V144= VV[102];
2486          while(!endp(V136))          while(!endp(V144))
2487          if(eql(x,V136->c.c_car)){          if(eql(x,V144->c.c_car)){
2488          goto T962;          goto T993;
2489          }else V136=V136->c.c_cdr;          }else V144=V144->c.c_cdr;
2490          goto T961;}          goto T992;}
2491  goto T962;  goto T993;
2492  T962:;  T993:;
2493          base[2]= Ct;          base[2]= Ct;
2494          base[3]= Ct;          base[3]= Ct;
2495          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2496          return;          return;
2497  goto T961;  goto T992;
2498  T961:;  T992:;
2499          base[2]= Cnil;          base[2]= Cnil;
2500          base[3]= (V88);          base[3]= (V92);
2501          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2502          return;          return;
2503  goto T959;  goto T990;
2504  T959:;  T990:;
2505          if((V131!= VV[24]))goto T967;          if((V139!= VV[24]))goto T998;
2506          if(!(((V84))==(VV[103]))){          if(!(((V88))==(VV[103]))){
2507          goto T969;}          goto T1000;}
2508          base[2]= Ct;          base[2]= Ct;
2509          base[3]= Ct;          base[3]= Ct;
2510          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2511          return;          return;
2512  goto T969;  goto T1000;
2513  T969:;  T1000:;
2514          base[2]= Cnil;          base[2]= Cnil;
2515          base[3]= (V88);          base[3]= (V92);
2516          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2517          return;          return;
2518  goto T967;  goto T998;
2519  T967:;  T998:;
2520          if((V131!= VV[103]))goto T975;          if((V139!= VV[103]))goto T1006;
2521          if(!(((V84))==(VV[24]))){          if(!(((V88))==(VV[24]))){
2522          goto T977;}          goto T1008;}
2523          base[2]= Ct;          base[2]= Ct;
2524          base[3]= Ct;          base[3]= Ct;
2525          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2526          return;          return;
2527  goto T977;  goto T1008;
2528  T977:;  T1008:;
2529          base[2]= Cnil;          base[2]= Cnil;
2530          base[3]= (V88);          base[3]= (V92);
2531          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2532          return;          return;
2533  goto T975;  goto T1006;
2534  T975:;  T1006:;
2535          if((V131!= VV[13]))goto T983;          if((V139!= VV[13]))goto T1014;
2536          {register object x= (V84),V137= VV[104];          {register object x= (V88),V145= VV[104];
2537          while(!endp(V137))          while(!endp(V145))
2538          if(eql(x,V137->c.c_car)){          if(eql(x,V145->c.c_car)){
2539          goto T986;          goto T1017;
2540          }else V137=V137->c.c_cdr;          }else V145=V145->c.c_cdr;
2541          goto T985;}          goto T1016;}
2542  goto T986;  goto T1017;
2543  T986:;  T1017:;
2544          base[2]= (*(LnkLI142))((V85),(V86));          base[2]= (*(LnkLI147))((V89),(V90));
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 T985;  goto T1016;
2549  T985:;  T1016:;
2550          base[2]= Cnil;          base[2]= Cnil;
2551          base[3]= (V88);          base[3]= (V92);
2552          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2553          return;          return;
2554  goto T983;  goto T1014;
2555  T983:;  T1014:;
2556          if((V131!= VV[105]))goto T991;          if((V139!= VV[105]))goto T1022;
2557          if(!(((V84))==(VV[105]))){          if(!(((V88))==(VV[105]))){
2558          goto T993;}          goto T1024;}
2559          base[2]= (*(LnkLI142))((V85),(V86));          base[2]= (*(LnkLI147))((V89),(V90));
2560          base[3]= Ct;          base[3]= Ct;
2561          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2562          return;          return;
2563  goto T993;  goto T1024;
2564  T993:;  T1024:;
2565          base[2]= Cnil;          base[2]= Cnil;
2566          base[3]= (V88);          base[3]= (V92);
2567          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2568          return;          return;
2569  goto T991;  goto T1022;
2570  T991:;  T1022:;
2571          if((V131!= VV[106]))goto T999;          if((V139!= VV[106]))goto T1030;
2572          if(!(((V84))==(VV[106]))){          if(!(((V88))==(VV[106]))){
2573          goto T1001;}          goto T1032;}
2574          base[2]= (*(LnkLI142))((V85),(V86));          base[2]= (*(LnkLI147))((V89),(V90));
2575          base[3]= Ct;          base[3]= Ct;
2576          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2577          return;          return;
2578  goto T1001;  goto T1032;
2579  T1001:;  T1032:;
2580          base[2]= Cnil;          base[2]= Cnil;
2581          base[3]= (V88);          base[3]= (V92);
2582          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2583          return;          return;
2584  goto T999;  goto T1030;
2585  T999:;  T1030:;
2586          if((V131!= VV[34]))goto T1007;          if((V139!= VV[34]))goto T1038;
2587          {register object x= (V84),V138= VV[107];          {register object x= (V88),V146= VV[107];
2588          while(!endp(V138))          while(!endp(V146))
2589          if(eql(x,V138->c.c_car)){          if(eql(x,V146->c.c_car)){
2590          goto T1010;          goto T1041;
2591          }else V138=V138->c.c_cdr;          }else V146=V146->c.c_cdr;
2592          goto T1009;}          goto T1040;}
2593  goto T1010;  goto T1041;
2594  T1010:;  T1041:;
2595          base[2]= (*(LnkLI142))((V85),(V86));          base[2]= (*(LnkLI147))((V89),(V90));
2596          base[3]= Ct;          base[3]= Ct;
2597          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2598          return;          return;
2599  goto T1009;  goto T1040;
2600  T1009:;  T1040:;
2601          base[2]= Cnil;          base[2]= Cnil;
2602          base[3]= (V88);          base[3]= (V92);
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T1007;  
 T1007:;  
         if((V131!= VV[125])  
         && (V131!= VV[126])  
         && (V131!= VV[35]))goto T1015;  
         {register object x= (V84),V139= VV[108];  
         while(!endp(V139))  
         if(eql(x,V139->c.c_car)){  
         goto T1018;  
         }else V139=V139->c.c_cdr;  
         goto T1017;}  
 goto T1018;  
 T1018:;  
         base[2]= (*(LnkLI142))((V85),(V86));  
         base[3]= Ct;  
2603          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2604          return;          return;
2605  goto T1017;  goto T1038;
2606  T1017:;  T1038:;
2607          base[2]= Cnil;          if((V139!= VV[129])
2608          base[3]= (V88);          && (V139!= VV[130])
2609            && (V139!= VV[35]))goto T1046;
2610            {register object x= (V88),V147= VV[108];
2611            while(!endp(V147))
2612            if(eql(x,V147->c.c_car)){
2613            goto T1049;
2614            }else V147=V147->c.c_cdr;
2615            goto T1048;}
2616    goto T1049;
2617    T1049:;
2618            base[2]= (*(LnkLI147))((V89),(V90));
2619            base[3]= Ct;
2620          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2621          return;          return;
2622  goto T1015;  goto T1048;
2623  T1015:;  T1048:;
2624          if((V131!= VV[109]))goto T1023;          base[2]= Cnil;
2625          if(!(((V84))==(VV[109]))){          base[3]= (V92);
2626          goto T1025;}{object V140;          vs_top=(vs_base=base+2)+2;
2627          V140= car((V85));          return;
2628          if(V140==Cnil)goto T1029;  goto T1046;
2629          V81= V140;  T1046:;
2630          goto T1028;          if((V139!= VV[109]))goto T1054;
2631  goto T1029;          if(!(((V88))==(VV[109]))){
2632  T1029:;}          goto T1056;}{object V148;
2633          V81= Ct;          V148= car((V89));
2634  goto T1028;          if(V148==Cnil)goto T1060;
2635  T1028:;{object V141;          V85= V148;
2636          V141= car((V86));          goto T1059;
2637          if(V141==Cnil)goto T1032;  goto T1060;
2638          V82= V141;  T1060:;}
2639          goto T1031;          V85= Ct;
2640  goto T1032;  goto T1059;
2641  T1032:;}  T1059:;{object V149;
2642          V82= Ct;          V149= car((V90));
2643  goto T1031;          if(V149==Cnil)goto T1063;
2644  T1031:;          V86= V149;
2645            goto T1062;
2646    goto T1063;
2647    T1063:;}
2648            V86= Ct;
2649    goto T1062;
2650    T1062:;
2651          goto TTL;          goto TTL;
2652  goto T1025;  goto T1056;
2653  T1025:;  T1056:;
2654          base[2]= Cnil;          base[2]= Cnil;
2655          base[3]= (V88);          base[3]= (V92);
2656          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2657          return;          return;
2658  goto T1023;  goto T1054;
2659  T1023:;  T1054:;
2660          if((V131!= VV[27]))goto T1036;          if((V139!= VV[27]))goto T1067;
2661          if(((V84))==(VV[27])){          if(((V88))==(VV[27])){
2662          goto T1037;}          goto T1068;}
2663          if(!(((V84))==(VV[22]))){          if(!(((V88))==(VV[22]))){
2664          goto T1038;}          goto T1069;}
2665  goto T1037;  goto T1068;
2666  T1037:;  T1068:;
2667          if(endp_prop((V85))){          if(endp_prop((V89))){
2668          goto T1043;}          goto T1074;}
2669          if(!((car((V85)))==(VV[17]))){          if(!((car((V89)))==(VV[17]))){
2670          goto T1044;}          goto T1075;}
2671  goto T1043;  goto T1074;
2672  T1043:;  T1074:;
2673          if(endp_prop((V86))){          if(endp_prop((V90))){
2674          goto T1042;}          goto T1073;}
2675          if((car((V86)))==(VV[17])){          if((car((V90)))==(VV[17])){
2676          goto T1042;}          goto T1073;}
2677          base[2]= Cnil;          base[2]= Cnil;
2678          base[3]= Ct;          base[3]= Ct;
2679          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2680          return;          return;
2681  goto T1044;  goto T1075;
2682  T1044:;  T1075:;
2683          if(endp_prop((V86))){          if(endp_prop((V90))){
2684          goto T1042;}          goto T1073;}
2685          if((car((V86)))==(VV[17])){          if((car((V90)))==(VV[17])){
2686          goto T1042;}          goto T1073;}
2687          if(equal(car((V85)),car((V86)))){          if(equal(car((V89)),car((V90)))){
2688          goto T1042;}          goto T1073;}
2689          if(!((car((V85)))==(VV[25]))){          if(!((car((V89)))==(VV[25]))){
2690          goto T1058;}          goto T1089;}
2691          if((car((V86)))==(VV[24])){          if((car((V90)))==(VV[24])){
2692          goto T1042;}          goto T1073;}
2693  goto T1058;  goto T1089;
2694  T1058:;  T1089:;
2695          base[2]= Cnil;          base[2]= Cnil;
2696          base[3]= Ct;          base[3]= Ct;
2697          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2698          return;          return;
2699  goto T1042;  goto T1073;
2700  T1042:;  T1073:;
2701          if(endp_prop(cdr((V85)))){          if(endp_prop(cdr((V89)))){
2702          goto T1067;}          goto T1098;}
2703          if(!((cadr((V85)))==(VV[17]))){          if(!((cadr((V89)))==(VV[17]))){
2704          goto T1066;}          goto T1097;}
2705  goto T1067;  goto T1098;
2706  T1067:;  T1098:;
2707          if(endp_prop(cdr((V86)))){          if(endp_prop(cdr((V90)))){
2708          goto T1071;}          goto T1102;}
2709          if(!((cadr((V86)))==(VV[17]))){          if(!((cadr((V90)))==(VV[17]))){
2710          goto T1072;}          goto T1103;}
2711  goto T1071;  goto T1102;
2712  T1071:;  T1102:;
2713          base[2]= Ct;          base[2]= Ct;
2714          base[3]= Ct;          base[3]= Ct;
2715          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2716          return;          return;
2717  goto T1072;  goto T1103;
2718  T1072:;  T1103:;
2719          base[2]= Cnil;          base[2]= Cnil;
2720          base[3]= Ct;          base[3]= Ct;
2721          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2722          return;          return;
2723  goto T1066;  goto T1097;
2724  T1066:;  T1097:;
2725          if(endp_prop(cdr((V86)))){          if(endp_prop(cdr((V90)))){
2726          goto T1081;}          goto T1112;}
2727          if(!((cadr((V86)))==(VV[17]))){          if(!((cadr((V90)))==(VV[17]))){
2728          goto T1080;}          goto T1111;}
2729  goto T1081;  goto T1112;
2730  T1081:;  T1112:;
2731          base[2]= Ct;          base[2]= Ct;
2732          base[3]= Ct;          base[3]= Ct;
2733          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2734          return;          return;
2735  goto T1080;  goto T1111;
2736  T1080:;  T1111:;
2737          base[2]= (*(LnkLI129))(cadr((V85)),cadr((V86)));          base[2]= (*(LnkLI133))(cadr((V89)),cadr((V90)));
2738          base[3]= Ct;          base[3]= Ct;
2739          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2740          return;          return;
2741  goto T1038;  goto T1069;
2742  T1038:;  T1069:;
2743          base[2]= Cnil;          base[2]= Cnil;
2744          base[3]= (V88);          base[3]= (V92);
2745          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2746          return;          return;
2747  goto T1036;  goto T1067;
2748  T1036:;  T1067:;
2749          if((V131!= VV[22]))goto T1091;          if((V139!= VV[22]))goto T1122;
2750          if(!(((V84))==(VV[22]))){          if(!(((V88))==(VV[22]))){
2751          goto T1093;}          goto T1124;}
2752          if(endp_prop((V85))){          if(endp_prop((V89))){
2753          goto T1096;}          goto T1127;}
2754          if(!((car((V85)))==(VV[17]))){          if(!((car((V89)))==(VV[17]))){
2755          goto T1097;}          goto T1128;}
2756  goto T1096;  goto T1127;
2757  T1096:;  T1127:;
2758          if(endp_prop((V86))){          if(endp_prop((V90))){
2759          goto T1095;}          goto T1126;}
2760          if((car((V86)))==(VV[17])){          if((car((V90)))==(VV[17])){
2761          goto T1095;}          goto T1126;}
2762          base[2]= Cnil;          base[2]= Cnil;
2763          base[3]= Ct;          base[3]= Ct;
2764          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2765          return;          return;
2766  goto T1097;  goto T1128;
2767  T1097:;  T1128:;
2768          if(endp_prop((V86))){          if(endp_prop((V90))){
2769          goto T1095;}          goto T1126;}
2770          if((car((V86)))==(VV[17])){          if((car((V90)))==(VV[17])){
2771          goto T1095;}          goto T1126;}
2772          if(equal(car((V85)),car((V86)))){          if(equal(car((V89)),car((V90)))){
2773          goto T1095;}          goto T1126;}
2774          if(!((car((V85)))==(VV[25]))){          if(!((car((V89)))==(VV[25]))){
2775          goto T1111;}          goto T1142;}
2776          if((car((V86)))==(VV[24])){          if((car((V90)))==(VV[24])){
2777          goto T1095;}          goto T1126;}
2778  goto T1111;  goto T1142;
2779  T1111:;  T1142:;
2780          base[2]= Cnil;          base[2]= Cnil;
2781          base[3]= Ct;          base[3]= Ct;
2782          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2783          return;          return;
2784  goto T1095;  goto T1126;
2785  T1095:;  T1126:;
2786          if(endp_prop(cdr((V85)))){          if(endp_prop(cdr((V89)))){
2787          goto T1120;}          goto T1151;}
2788          if(!((cadr((V85)))==(VV[17]))){          if(!((cadr((V89)))==(VV[17]))){
2789          goto T1119;}          goto T1150;}
2790  goto T1120;  goto T1151;
2791  T1120:;  T1151:;
2792          if(endp_prop(cdr((V86)))){          if(endp_prop(cdr((V90)))){
2793          goto T1124;}          goto T1155;}
2794          if(!((cadr((V86)))==(VV[17]))){          if(!((cadr((V90)))==(VV[17]))){
2795          goto T1125;}          goto T1156;}
2796  goto T1124;  goto T1155;
2797  T1124:;  T1155:;
2798          base[2]= Ct;          base[2]= Ct;
2799          base[3]= Ct;          base[3]= Ct;
2800          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2801          return;          return;
2802  goto T1125;  goto T1156;
2803  T1125:;  T1156:;
2804          base[2]= Cnil;          base[2]= Cnil;
2805          base[3]= Ct;          base[3]= Ct;
2806          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2807          return;          return;
2808  goto T1119;  goto T1150;
2809  T1119:;  T1150:;
2810          if(endp_prop(cdr((V86)))){          if(endp_prop(cdr((V90)))){
2811          goto T1134;}          goto T1165;}
2812          if(!((cadr((V86)))==(VV[17]))){          if(!((cadr((V90)))==(VV[17]))){
2813          goto T1133;}          goto T1164;}
2814  goto T1134;  goto T1165;
2815  T1134:;  T1165:;
2816          base[2]= Ct;          base[2]= Ct;
2817          base[3]= Ct;          base[3]= Ct;
2818          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2819          return;          return;
2820  goto T1133;  goto T1164;
2821  T1133:;  T1164:;
2822          base[2]= (*(LnkLI129))(cadr((V85)),cadr((V86)));          base[2]= (*(LnkLI133))(cadr((V89)),cadr((V90)));
2823          base[3]= Ct;          base[3]= Ct;
2824          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2825          return;          return;
2826  goto T1093;  goto T1124;
2827  T1093:;  T1124:;
2828          base[2]= Cnil;          base[2]= Cnil;
2829          base[3]= (V88);          base[3]= (V92);
2830          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2831          return;          return;
2832  goto T1091;  goto T1122;
2833  T1091:;  T1122:;
2834          if(((V87))==Cnil){          if(((V91))==Cnil){
2835          goto T1145;}          goto T1176;}
2836          base[2]= (((V83))==((V84))?Ct:Cnil);          base[2]= (((V87))==((V88))?Ct:Cnil);
2837          base[3]= Ct;          base[3]= Ct;
2838          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2839          return;          return;
2840  goto T1145;  goto T1176;
2841  T1145:;  T1176:;
2842          base[2]= Cnil;          base[2]= Cnil;
2843          base[3]= Cnil;          base[3]= Cnil;
2844          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 2727  T1145:; Line 2847  T1145:;
2847  }  }
2848  /*      local entry for function SUB-INTERVAL-P */  /*      local entry for function SUB-INTERVAL-P */
2849    
2850  static object LI24(V144,V145)  static object LI27(V152,V153)
2851    
2852  register object V144;register object V145;  register object V152;register object V153;
2853  {        VMB24 VMS24 VMV24  {        VMB27 VMS27 VMV27
2854  goto TTL;  goto TTL;
2855  TTL:;  TTL:;
2856          {register object V146;          {register object V154;
2857          register object V147;          register object V155;
2858          register object V148;          register object V156;
2859          register object V149;          register object V157;
         V146= Cnil;  
         V147= Cnil;  
         V148= Cnil;  
         V149= Cnil;  
         if(!(endp_prop((V144)))){  
         goto T1153;}  
         V146= VV[17];  
         V147= VV[17];  
         goto T1151;  
 goto T1153;  
 T1153:;  
         if(!(endp_prop(cdr((V144))))){  
         goto T1159;}  
         V146= car((V144));  
         V147= VV[17];  
         goto T1151;  
 goto T1159;  
 T1159:;  
         V146= car((V144));  
         V147= cadr((V144));  
 goto T1151;  
 T1151:;  
         if(!(endp_prop((V145)))){  
         goto T1169;}  
         V148= VV[17];  
         V149= VV[17];  
         goto T1167;  
 goto T1169;  
 T1169:;  
         if(!(endp_prop(cdr((V145))))){  
         goto T1175;}  
         V148= car((V145));  
         V149= VV[17];  
         goto T1167;  
 goto T1175;  
 T1175:;  
         V148= car((V145));  
         V149= cadr((V145));  
 goto T1167;  
 T1167:;  
         if(!(((V146))==(VV[17]))){  
         goto T1185;}  
         if(((V148))==(VV[17])){  
         goto T1183;}  
         {object V150 = Cnil;  
         VMR24(V150)}  
 goto T1185;  
 T1185:;  
         {object V151;  
         V151= (((V148))==(VV[17])?Ct:Cnil);  
         if(((V151))==Cnil){  
         goto T1191;}  
         goto T1183;  
 goto T1191;  
 T1191:;  
         if(!(type_of((V146))==t_cons)){  
         goto T1194;}  
         if(!(type_of((V148))==t_cons)){  
         goto T1197;}  
         if(!(number_compare(car((V146)),car((V148)))<0)){  
         goto T1183;}  
         {object V152 = Cnil;  
         VMR24(V152)}  
 goto T1197;  
 T1197:;  
         if(!(number_compare(car((V146)),(V148))<0)){  
         goto T1183;}  
         {object V153 = Cnil;  
         VMR24(V153)}  
 goto T1194;  
 T1194:;  
         {object V154;  
         if(!(type_of((V148))==t_cons)){  
         goto T1205;}  
         if(!(number_compare((V146),car((V148)))<=0)){  
         goto T1208;}  
         {object V155 = Cnil;  
         VMR24(V155)}  
 goto T1208;  
 T1208:;  
         V154= Cnil;  
         goto T1203;  
 goto T1205;  
 T1205:;  
         if(!(number_compare((V146),(V148))<0)){  
         goto T1211;}  
         {object V156 = Cnil;  
         VMR24(V156)}  
 goto T1211;  
 T1211:;  
2860          V154= Cnil;          V154= Cnil;
2861  goto T1203;          V155= Cnil;
2862  T1203:;          V156= Cnil;
2863          if(((V154))==Cnil){          V157= Cnil;
2864          goto T1183;}}}          if(!(endp_prop((V152)))){
2865  goto T1183;          goto T1184;}
2866  T1183:;          V154= VV[17];
2867          if(!(((V147))==(VV[17]))){          V155= VV[17];
2868          goto T1217;}          goto T1182;
2869          if(((V149))==(VV[17])){  goto T1184;
2870          goto T1215;}  T1184:;
2871          {object V157 = Cnil;          if(!(endp_prop(cdr((V152))))){
2872          VMR24(V157)}          goto T1190;}
2873  goto T1217;          V154= car((V152));
2874  T1217:;          V155= VV[17];
2875          {object V158;          goto T1182;
2876          V158= (((V149))==(VV[17])?Ct:Cnil);  goto T1190;
2877          if(((V158))==Cnil){  T1190:;
2878          goto T1223;}          V154= car((V152));
2879          goto T1215;          V155= cadr((V152));
2880  goto T1223;  goto T1182;
2881  T1223:;  T1182:;
2882          if(!(type_of((V147))==t_cons)){          if(!(endp_prop((V153)))){
2883          goto T1226;}          goto T1200;}
2884          if(!(type_of((V149))==t_cons)){          V156= VV[17];
2885          goto T1229;}          V157= VV[17];
2886          if(!(number_compare(car((V147)),car((V149)))>0)){          goto T1198;
2887          goto T1215;}  goto T1200;
2888          {object V159 = Cnil;  T1200:;
2889          VMR24(V159)}          if(!(endp_prop(cdr((V153))))){
2890  goto T1229;          goto T1206;}
2891  T1229:;          V156= car((V153));
2892          if(!(number_compare(car((V147)),(V149))>0)){          V157= VV[17];
2893          goto T1215;}          goto T1198;
2894    goto T1206;
2895    T1206:;
2896            V156= car((V153));
2897            V157= cadr((V153));
2898    goto T1198;
2899    T1198:;
2900            if(!(((V154))==(VV[17]))){
2901            goto T1216;}
2902            if(((V156))==(VV[17])){
2903            goto T1214;}
2904            {object V158 = Cnil;
2905            VMR27(V158)}
2906    goto T1216;
2907    T1216:;
2908            {object V159;
2909            V159= (((V156))==(VV[17])?Ct:Cnil);
2910            if(((V159))==Cnil){
2911            goto T1222;}
2912            goto T1214;
2913    goto T1222;
2914    T1222:;
2915            if(!(type_of((V154))==t_cons)){
2916            goto T1225;}
2917            if(!(type_of((V156))==t_cons)){
2918            goto T1228;}
2919            if(!(number_compare(car((V154)),car((V156)))<0)){
2920            goto T1214;}
2921          {object V160 = Cnil;          {object V160 = Cnil;
2922          VMR24(V160)}          VMR27(V160)}
2923  goto T1226;  goto T1228;
2924  T1226:;  T1228:;
2925          {object V161;          if(!(number_compare(car((V154)),(V156))<0)){
2926          if(!(type_of((V149))==t_cons)){          goto T1214;}
2927          goto T1237;}          {object V161 = Cnil;
2928          if(!(number_compare((V147),car((V149)))>=0)){          VMR27(V161)}
2929          goto T1240;}  goto T1225;
2930          {object V162 = Cnil;  T1225:;
2931          VMR24(V162)}          {object V162;
2932  goto T1240;          if(!(type_of((V156))==t_cons)){
2933  T1240:;          goto T1236;}
2934          V161= Cnil;          if(!(number_compare((V154),car((V156)))<=0)){
2935          goto T1235;          goto T1239;}
 goto T1237;  
 T1237:;  
         if(!(number_compare((V147),(V149))>0)){  
         goto T1243;}  
2936          {object V163 = Cnil;          {object V163 = Cnil;
2937          VMR24(V163)}          VMR27(V163)}
2938  goto T1243;  goto T1239;
2939  T1243:;  T1239:;
2940          V161= Cnil;          V162= Cnil;
2941  goto T1235;          goto T1234;
2942  T1235:;  goto T1236;
2943          if(((V161))==Cnil){  T1236:;
2944          goto T1215;}}}          if(!(number_compare((V154),(V156))<0)){
2945  goto T1215;          goto T1242;}
2946  T1215:;          {object V164 = Cnil;
2947          {object V164 = Ct;          VMR27(V164)}
2948          VMR24(V164)}}  goto T1242;
2949    T1242:;
2950            V162= Cnil;
2951    goto T1234;
2952    T1234:;
2953            if(((V162))==Cnil){
2954            goto T1214;}}}
2955    goto T1214;
2956    T1214:;
2957            if(!(((V155))==(VV[17]))){
2958            goto T1248;}
2959            if(((V157))==(VV[17])){
2960            goto T1246;}
2961            {object V165 = Cnil;
2962            VMR27(V165)}
2963    goto T1248;
2964    T1248:;
2965            {object V166;
2966            V166= (((V157))==(VV[17])?Ct:Cnil);
2967            if(((V166))==Cnil){
2968            goto T1254;}
2969            goto T1246;
2970    goto T1254;
2971    T1254:;
2972            if(!(type_of((V155))==t_cons)){
2973            goto T1257;}
2974            if(!(type_of((V157))==t_cons)){
2975            goto T1260;}
2976            if(!(number_compare(car((V155)),car((V157)))>0)){
2977            goto T1246;}
2978            {object V167 = Cnil;
2979            VMR27(V167)}
2980    goto T1260;
2981    T1260:;
2982            if(!(number_compare(car((V155)),(V157))>0)){
2983            goto T1246;}
2984            {object V168 = Cnil;
2985            VMR27(V168)}
2986    goto T1257;
2987    T1257:;
2988            {object V169;
2989            if(!(type_of((V157))==t_cons)){
2990            goto T1268;}
2991            if(!(number_compare((V155),car((V157)))>=0)){
2992            goto T1271;}
2993            {object V170 = Cnil;
2994            VMR27(V170)}
2995    goto T1271;
2996    T1271:;
2997            V169= Cnil;
2998            goto T1266;
2999    goto T1268;
3000    T1268:;
3001            if(!(number_compare((V155),(V157))>0)){
3002            goto T1274;}
3003            {object V171 = Cnil;
3004            VMR27(V171)}
3005    goto T1274;
3006    T1274:;
3007            V169= Cnil;
3008    goto T1266;
3009    T1266:;
3010            if(((V169))==Cnil){
3011            goto T1246;}}}
3012    goto T1246;
3013    T1246:;
3014            {object V172 = Ct;
3015            VMR27(V172)}}
3016          return Cnil;          return Cnil;
3017  }  }
3018  /*      local entry for function IN-INTERVAL-P  */  /*      local entry for function IN-INTERVAL-P  */
3019    
3020  static object LI25(V167,V168)  static object LI28(V175,V176)
3021    
3022  register object V167;register object V168;  register object V175;register object V176;
3023  {        VMB25 VMS25 VMV25  {        VMB28 VMS28 VMV28
3024  goto TTL;  goto TTL;
3025  TTL:;  TTL:;
3026          {register object V169;          {register object V177;
3027          register object V170;          register object V178;
         V169= Cnil;  
         V170= Cnil;  
         if(!(endp_prop((V168)))){  
         goto T1249;}  
         V169= VV[17];  
         V170= VV[17];  
         goto T1247;  
 goto T1249;  
 T1249:;  
         if(!(endp_prop(cdr((V168))))){  
         goto T1255;}  
         V169= car((V168));  
         V170= VV[17];  
         goto T1247;  
 goto T1255;  
 T1255:;  
         V169= car((V168));  
         V170= cadr((V168));  
 goto T1247;  
 T1247:;  
         {object V171;  
         V171= (((V169))==(VV[17])?Ct:Cnil);  
         if(((V171))==Cnil){  
         goto T1266;}  
         goto T1263;  
 goto T1266;  
 T1266:;  
         if(!(type_of((V169))==t_cons)){  
         goto T1269;}  
         if(!(number_compare((V167),car((V169)))<=0)){  
         goto T1263;}  
         {object V172 = Cnil;  
         VMR25(V172)}  
 goto T1269;  
 T1269:;  
         {object V173;  
         if(!(number_compare((V167),(V169))<0)){  
         goto T1275;}  
         {object V174 = Cnil;  
         VMR25(V174)}  
 goto T1275;  
 T1275:;  
         V173= Cnil;  
         if(((V173))==Cnil){  
         goto T1263;}}}  
 goto T1263;  
 T1263:;  
         {object V175;  
         V175= (((V170))==(VV[17])?Ct:Cnil);  
         if(((V175))==Cnil){  
         goto T1282;}  
         goto T1279;  
 goto T1282;  
 T1282:;  
         if(!(type_of((V170))==t_cons)){  
         goto T1285;}  
         if(!(number_compare((V167),car((V170)))>=0)){  
         goto T1279;}  
         {object V176 = Cnil;  
         VMR25(V176)}  
 goto T1285;  
 T1285:;  
         {object V177;  
         if(!(number_compare((V167),(V170))>0)){  
         goto T1291;}  
         {object V178 = Cnil;  
         VMR25(V178)}  
 goto T1291;  
 T1291:;  
3028          V177= Cnil;          V177= Cnil;
3029          if(((V177))==Cnil){          V178= Cnil;
3030          goto T1279;}}}          if(!(endp_prop((V176)))){
3031  goto T1279;          goto T1280;}
3032  T1279:;          V177= VV[17];
3033          {object V179 = Ct;          V178= VV[17];
3034          VMR25(V179)}}          goto T1278;
3035    goto T1280;
3036    T1280:;
3037            if(!(endp_prop(cdr((V176))))){
3038            goto T1286;}
3039            V177= car((V176));
3040            V178= VV[17];
3041            goto T1278;
3042    goto T1286;
3043    T1286:;
3044            V177= car((V176));
3045            V178= cadr((V176));
3046    goto T1278;
3047    T1278:;
3048            {object V179;
3049            V179= (((V177))==(VV[17])?Ct:Cnil);
3050            if(((V179))==Cnil){
3051            goto T1297;}
3052            goto T1294;
3053    goto T1297;
3054    T1297:;
3055            if(!(type_of((V177))==t_cons)){
3056            goto T1300;}
3057            if(!(number_compare((V175),car((V177)))<=0)){
3058            goto T1294;}
3059            {object V180 = Cnil;
3060            VMR28(V180)}
3061    goto T1300;
3062    T1300:;
3063            {object V181;
3064            if(!(number_compare((V175),(V177))<0)){
3065            goto T1306;}
3066            {object V182 = Cnil;
3067            VMR28(V182)}
3068    goto T1306;
3069    T1306:;
3070            V181= Cnil;
3071            if(((V181))==Cnil){
3072            goto T1294;}}}
3073    goto T1294;
3074    T1294:;
3075            {object V183;
3076            V183= (((V178))==(VV[17])?Ct:Cnil);
3077            if(((V183))==Cnil){
3078            goto T1313;}
3079            goto T1310;
3080    goto T1313;
3081    T1313:;
3082            if(!(type_of((V178))==t_cons)){
3083            goto T1316;}
3084            if(!(number_compare((V175),car((V178)))>=0)){
3085            goto T1310;}
3086            {object V184 = Cnil;
3087            VMR28(V184)}
3088    goto T1316;
3089    T1316:;
3090            {object V185;
3091            if(!(number_compare((V175),(V178))>0)){
3092            goto T1322;}
3093            {object V186 = Cnil;
3094            VMR28(V186)}
3095    goto T1322;
3096    T1322:;
3097            V185= Cnil;
3098            if(((V185))==Cnil){
3099            goto T1310;}}}
3100    goto T1310;
3101    T1310:;
3102            {object V187 = Ct;
3103            VMR28(V187)}}
3104          return Cnil;          return Cnil;
3105  }  }
3106  /*      local entry for function MATCH-DIMENSIONS       */  /*      local entry for function MATCH-DIMENSIONS       */
3107    
3108  static object LI26(V182,V183)  static object LI29(V190,V191)
3109    
3110  object V182;register object V183;  object V190;register object V191;
3111  {        VMB26 VMS26 VMV26  {        VMB29 VMS29 VMV29
3112  goto TTL;  goto TTL;
3113  TTL:;  TTL:;
3114          if(((V182))!=Cnil){          if(((V190))!=Cnil){
3115          goto T1296;}          goto T1327;}
3116          {object V184 = (((V183))==Cnil?Ct:Cnil);          {object V192 = (((V191))==Cnil?Ct:Cnil);
3117          VMR26(V184)}          VMR29(V192)}
3118  goto T1296;  goto T1327;
3119  T1296:;  T1327:;
3120          if(!((car((V183)))==(VV[17]))){          if(!((car((V191)))==(VV[17]))){
3121          goto T1300;}          goto T1331;}
3122          goto T1298;          goto T1329;
3123  goto T1300;  goto T1331;
3124  T1300:;  T1331:;
3125          if(eql(car((V182)),car((V183)))){          if(eql(car((V190)),car((V191)))){
3126          goto T1298;}          goto T1329;}
3127          {object V185 = Cnil;          {object V193 = Cnil;
3128          VMR26(V185)}          VMR29(V193)}
3129  goto T1298;  goto T1329;
3130  T1298:;  T1329:;
3131          V182= cdr((V182));          V190= cdr((V190));
3132          V183= cdr((V183));          V191= cdr((V191));
3133          goto TTL;          goto TTL;
3134          return Cnil;          return Cnil;
3135  }  }
3136  /*      local entry for function COERCE */  /*      local entry for function COERCE */
3137    
3138  static object LI27(V188,V189)  static object LI30(V196,V197)
3139    
3140  register object V188;object V189;  register object V196;object V197;
3141  {        VMB27 VMS27 VMV27  {        VMB30 VMS30 VMV30
3142  goto TTL;  goto TTL;
3143  TTL:;  TTL:;
3144          base[0]= (V188);          base[0]= (V196);
3145          base[1]= (V189);          base[1]= (V197);
3146          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3147          (void) (*Lnk120)();          (void) (*Lnk124)();
3148          vs_top=sup;          vs_top=sup;
3149          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3150          goto T1305;}          goto T1336;}
3151          {object V190 = (V188);          {object V198 = (V196);
3152          VMR27(V190)}          VMR30(V198)}
3153  goto T1305;  goto T1336;
3154  T1305:;  T1336:;
3155          V189= (*(LnkLI139))((V189));          base[0]= (V197);
3156          {object V191= car((V189));          vs_top=(vs_base=base+0)+1;
3157          if((V191!= VV[46]))goto T1312;          (void) (*Lnk122)();
3158          {register object V192;          vs_top=sup;
3159          register object V193;          if((vs_base[0])==Cnil){
3160          V194 = make_fixnum((long)length((V188)));          goto T1341;}
         V193= one_minus(V194);  
         V192= Cnil;  
 goto T1315;  
 T1315:;  
         if(!(number_compare((V193),small_fixnum(0))<0)){  
         goto T1316;}  
         {object V195 = (V192);  
         VMR27(V195)}  
 goto T1316;  
 T1316:;  
         V196= elt((V188),fixint((V193)));  
         V192= make_cons(/* INLINE-ARGS */V196,(V192));  
         V193= one_minus((V193));  
         goto T1315;}  
 goto T1312;  
 T1312:;  
         if((V191!= VV[22])  
         && (V191!= VV[27]))goto T1324;  
         if(endp_prop(cdr((V189)))){  
         goto T1325;}  
         if(endp_prop(cddr((V189)))){  
         goto T1325;}  
         if((caddr((V189)))==(VV[17])){  
         goto T1325;}  
         if(endp_prop(cdr(caddr((V189))))){  
         goto T1325;}  
3161          base[0]= VV[110];          base[0]= VV[110];
3162            base[1]= VV[111];
3163            base[2]= (V196);
3164            base[3]= (V197);
3165            vs_top=(vs_base=base+0)+4;
3166            (void) (*Lnk149)();
3167            vs_top=sup;
3168    goto T1341;
3169    T1341:;
3170            V197= (*(LnkLI144))((V197));
3171            {object V199= car((V197));
3172            if((V199!= VV[46]))goto T1351;
3173            {register object V200;
3174            register object V201;
3175            V202 = make_fixnum((long)length((V196)));
3176            V201= one_minus(V202);
3177            V200= Cnil;
3178    goto T1354;
3179    T1354:;
3180            if(!(number_compare((V201),small_fixnum(0))<0)){
3181            goto T1355;}
3182            {object V203 = (V200);
3183            VMR30(V203)}
3184    goto T1355;
3185    T1355:;
3186            V204= elt((V196),fixint((V201)));
3187            V200= make_cons(/* INLINE-ARGS */V204,(V200));
3188            V201= one_minus((V201));
3189            goto T1354;}
3190    goto T1351;
3191    T1351:;
3192            if((V199!= VV[22])
3193            && (V199!= VV[27]))goto T1363;
3194            if(endp_prop(cdr((V197)))){
3195            goto T1364;}
3196            if(endp_prop(cddr((V197)))){
3197            goto T1364;}
3198            if((caddr((V197)))==(VV[17])){
3199            goto T1364;}
3200            if(endp_prop(cdr(caddr((V197))))){
3201            goto T1364;}
3202            base[0]= VV[112];
3203          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3204          Lerror();          Lerror();
3205          vs_top=sup;          vs_top=sup;
3206  goto T1325;  goto T1364;
3207  T1325:;  T1364:;
3208          {register object V197;          {register object V205;
3209          register object V198;          register object V206;
3210          register object V199;          register object V207;
3211          V200 = make_fixnum((long)length((V188)));          V208 = make_fixnum((long)length((V196)));
3212          V197= (VFUN_NARGS=2,(*(LnkLI144))((V189),V200));          V205= (VFUN_NARGS=2,(*(LnkLI150))((V197),V208));
3213          V199= make_fixnum((long)length((V188)));          V207= make_fixnum((long)length((V196)));
3214          V198= small_fixnum(0);          V206= small_fixnum(0);
3215  goto T1338;  goto T1377;
3216  T1338:;  T1377:;
3217          if(!(number_compare((V198),(V199))>=0)){          if(!(number_compare((V206),(V207))>=0)){
3218          goto T1339;}          goto T1378;}
3219          {object V201 = (V197);          {object V209 = (V205);
3220          VMR27(V201)}          VMR30(V209)}
3221  goto T1339;  goto T1378;
3222  T1339:;  T1378:;
3223          V202= elt((V188),fixint((V198)));          V210= elt((V196),fixint((V206)));
3224          (void)(elt_set((V197),fixint((V198)),/* INLINE-ARGS */V202));          (void)(elt_set((V205),fixint((V206)),/* INLINE-ARGS */V210));
3225          V198= one_plus((V198));          V206= one_plus((V206));
3226          goto T1338;}          goto T1377;}
3227  goto T1324;  goto T1363;
3228  T1324:;  T1363:;
3229          if((V191!= VV[103]))goto T1347;          if((V199!= VV[103]))goto T1386;
3230          base[0]= (V188);          base[0]= (V196);
3231          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3232          Lcharacter();          Lcharacter();
3233          vs_top=sup;          vs_top=sup;
3234          {object V203 = vs_base[0];          {object V211 = vs_base[0];
3235          VMR27(V203)}          VMR30(V211)}
3236  goto T1347;  goto T1386;
3237  T1347:;  T1386:;
3238          if((V191!= VV[106]))goto T1349;          if((V199!= VV[106]))goto T1388;
3239          base[0]= (V188);          base[0]= (V196);
3240          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3241          Lfloat();          Lfloat();
3242          vs_top=sup;          vs_top=sup;
3243          {object V204 = vs_base[0];          {object V212 = vs_base[0];
3244          VMR27(V204)}          VMR30(V212)}
3245  goto T1349;  goto T1388;
3246  T1349:;  T1388:;
3247          if((V191!= VV[34]))goto T1351;          if((V199!= VV[34]))goto T1390;
3248          base[0]= (V188);          base[0]= (V196);
3249          base[1]= VV[111];          base[1]= VV[113];
3250          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3251          Lfloat();          Lfloat();
3252          vs_top=sup;          vs_top=sup;
3253          {object V205 = vs_base[0];          {object V213 = vs_base[0];
3254          VMR27(V205)}          VMR30(V213)}
3255  goto T1351;  goto T1390;
3256  T1351:;  T1390:;
3257          if((V191!= VV[125])          if((V199!= VV[129])
3258          && (V191!= VV[126])          && (V199!= VV[130])
3259          && (V191!= VV[35]))goto T1354;          && (V199!= VV[35]))goto T1393;
3260          base[0]= (V188);          base[0]= (V196);
3261          base[1]= VV[112];          base[1]= VV[114];
3262          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3263          Lfloat();          Lfloat();
3264          vs_top=sup;          vs_top=sup;
3265          {object V206 = vs_base[0];          {object V214 = vs_base[0];
3266          VMR27(V206)}          VMR30(V214)}
3267  goto T1354;  goto T1393;
3268  T1354:;  T1393:;
3269          if((V191!= VV[109]))goto T1357;          if((V199!= VV[109]))goto T1396;
3270          if((cdr((V189)))==Cnil){          if((cdr((V197)))==Cnil){
3271          goto T1358;}          goto T1397;}
3272          if((cadr((V189)))==Cnil){          if((cadr((V197)))==Cnil){
3273          goto T1358;}          goto T1397;}
3274          if(!((cadr((V189)))==(VV[17]))){          if(!((cadr((V197)))==(VV[17]))){
3275          goto T1359;}          goto T1398;}
3276  goto T1358;  goto T1397;
3277  T1358:;  T1397:;
3278          base[1]= (V188);          base[1]= (V196);
3279          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3280          Lrealpart();          Lrealpart();
3281          vs_top=sup;          vs_top=sup;
3282          base[0]= vs_base[0];          base[0]= vs_base[0];
3283          base[2]= (V188);          base[2]= (V196);
3284          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3285          Limagpart();          Limagpart();
3286          vs_top=sup;          vs_top=sup;
# Line 3153  T1358:; Line 3288  T1358:;
3288          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3289          Lcomplex();          Lcomplex();
3290          vs_top=sup;          vs_top=sup;
3291          {object V207 = vs_base[0];          {object V215 = vs_base[0];
3292          VMR27(V207)}          VMR30(V215)}
3293  goto T1359;  goto T1398;
3294  T1359:;  T1398:;
3295          base[1]= (V188);          base[1]= (V196);
3296          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3297          Lrealpart();          Lrealpart();
3298          vs_top=sup;          vs_top=sup;
3299          V208= vs_base[0];          V216= vs_base[0];
3300          base[0]= (*(LnkLI145))(V208,cadr((V189)));          base[0]= (*(LnkLI151))(V216,cadr((V197)));
3301          base[2]= (V188);          base[2]= (V196);
3302          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3303          Limagpart();          Limagpart();
3304          vs_top=sup;          vs_top=sup;
3305          V209= vs_base[0];          V217= vs_base[0];
3306          base[1]= (*(LnkLI145))(V209,cadr((V189)));          base[1]= (*(LnkLI151))(V217,cadr((V197)));
3307          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3308          Lcomplex();          Lcomplex();
3309          vs_top=sup;          vs_top=sup;
3310          {object V210 = vs_base[0];          {object V218 = vs_base[0];
3311          VMR27(V210)}          VMR30(V218)}
3312  goto T1357;  goto T1396;
3313  T1357:;  T1396:;
3314          base[0]= VV[113];          base[0]= VV[115];
3315          base[1]= (V188);          base[1]= (V196);
3316          base[2]= (V189);          base[2]= (V197);
3317          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3318          Lerror();          Lerror();
3319          vs_top=sup;          vs_top=sup;
3320          {object V211 = vs_base[0];          {object V219 = vs_base[0];
3321          VMR27(V211)}}          VMR30(V219)}}
3322          base[0]=base[0];          base[0]=base[0];
3323          return Cnil;          return Cnil;
3324  }  }
3325  /*      function definition for WARN-VERSION    */  /*      function definition for WARN-VERSION    */
3326    
3327  static void L28()  static void L31()
3328  {register object *base=vs_base;  {register object *base=vs_base;
3329          register object *sup=base+VM28; VC28          register object *sup=base+VM31; VC31
3330          vs_reserve(VM28);          vs_reserve(VM31);
3331          {object V212;          {object V220;
3332          object V213;          object V221;
3333          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
3334          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
3335          V212=(base[0]);          V220=(base[0]);
3336          vs_base=vs_base+1;          vs_base=vs_base+1;
3337          if(vs_base>=vs_top){vs_top=sup;goto T1378;}          if(vs_base>=vs_top){vs_top=sup;goto T1417;}
3338          V213=(base[1]);          V221=(base[1]);
3339          vs_top=sup;          vs_top=sup;
3340          goto T1379;          goto T1418;
3341  goto T1378;  goto T1417;
3342  T1378:;  T1417:;
3343          V213= Cnil;          V221= Cnil;
3344  goto T1379;  goto T1418;
3345  T1379:;  T1418:;
3346          if(symbol_value(VV[114])==Cnil){          if(symbol_value(VV[116])==Cnil){
3347          base[2]= Cnil;          base[2]= Cnil;
3348          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3349          return;}          return;}
3350          if(!(((eql((V212),symbol_value(VV[114]))?Ct:Cnil))==Cnil)){          if(!(((eql((V220),symbol_value(VV[116]))?Ct:Cnil))==Cnil)){
3351          goto T1383;}          goto T1422;}
3352          goto T1381;          goto T1420;
3353  goto T1383;  goto T1422;
3354  T1383:;  T1422:;
3355          if(((eql((V213),symbol_value(VV[115]))?Ct:Cnil))==Cnil){          if(((eql((V221),symbol_value(VV[117]))?Ct:Cnil))==Cnil){
3356          goto T1381;}          goto T1420;}
3357          base[2]= Cnil;          base[2]= Cnil;
3358          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3359          return;          return;
3360  goto T1381;  goto T1420;
3361  T1381:;  T1420:;
3362          if(symbol_value(VV[116])==Cnil){          if(symbol_value(VV[118])==Cnil){
3363          base[2]= Cnil;          base[2]= Cnil;
3364          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3365          return;}          return;}
3366          base[2]= Ct;          base[2]= Ct;
3367          base[3]= VV[117];          base[3]= VV[119];
3368          base[4]= (V213);          base[4]= (V221);
3369          base[5]= (V212);          base[5]= (V220);
3370          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
3371          Lformat();          Lformat();
3372          return;          return;
3373          }          }
3374  }  }
3375  static object  LnkTLI145(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[145],(void **)&LnkLI145,2,ap);va_end(ap);return V1;} /* COERCE */  static object  LnkTLI151(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[151],(void **)&LnkLI151,2,ap);va_end(ap);return V1;} /* COERCE */
3376  static object  LnkTLI144(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[144],(void **)&LnkLI144,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */  static object  LnkTLI150(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[150],(void **)&LnkLI150,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
3377  static object  LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* SPECIFIC-ERROR */
3378  static object  LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */  static object  LnkTLI147(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[147],(void **)&LnkLI147,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */
3379  static void LnkT140(){ call_or_link(VV[140],(void **)&Lnk140);} /* SUBTYPEP */  static object  LnkTLI146(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[146],(void **)&LnkLI146,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */
3380  static object  LnkTLI139(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[139],(void **)&LnkLI139,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */  static void LnkT145(){ call_or_link(VV[145],(void **)&Lnk145);} /* SUBTYPEP */
3381  static void LnkT138(){ call_or_link(VV[138],(void **)&Lnk138);} /* STRUCTURE-SUBTYPE-P */  static object  LnkTLI144(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[144],(void **)&LnkLI144,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
3382  static object  LnkTLI137(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[137],(void **)&LnkLI137,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */  static void LnkT143(){ call_or_link(VV[143],(void **)&Lnk143);} /* CLASS-PRECEDENCE-LIST */
3383  static object  LnkTLI136(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[136],(void **)&LnkLI136,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */  static void LnkT142(){ call_or_link(VV[142],(void **)&Lnk142);} /* STRUCTURE-SUBTYPE-P */
3384  static object  LnkTLI130(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[130],(void **)&LnkLI130,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */  static object  LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
3385  static object  LnkTLI129(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[129],(void **)&LnkLI129,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */  static object  LnkTLI140(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[140],(void **)&LnkLI140,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */
3386  static void LnkT124(){ call_or_link(VV[124],(void **)&Lnk124);} /* REALP */  static object  LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
3387  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* RATIONALP */  static object  LnkTLI133(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[133],(void **)&LnkLI133,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */
3388  static object  LnkTLI122(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[122],(void **)&LnkLI122,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */  static void LnkT128(){ call_or_link(VV[128],(void **)&Lnk128);} /* REALP */
3389  static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* TYPEP */  static void LnkT127(){ call_or_link(VV[127],(void **)&Lnk127);} /* RATIONALP */
3390  static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ARRAY-HAS-FILL-POINTER-P */  static object  LnkTLI126(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[126],(void **)&LnkLI126,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */
3391  static object  LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[118],(void **)&LnkLI118,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */  static void LnkT124(){ call_or_link(VV[124],(void **)&Lnk124);} /* TYPEP */
3392    static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* CLASS-OF */
3393    static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* CLASSP */
3394    static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ARRAY-HAS-FILL-POINTER-P */
3395    static object  LnkTLI120(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[120],(void **)&LnkLI120,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
3396    
3397  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3398  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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