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

Diff of /gcl/lsp/predlib.c

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

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

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

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