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

Diff of /gcl/lsp/seqlib.c

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

revision 1.9 by camm, Tue Oct 1 04:37:33 2002 UTC revision 1.10 by camm, Mon Oct 14 05:24:43 2002 UTC
# Line 670  T230:; Line 670  T230:;
670          goto T227;          goto T227;
671  goto T231;  goto T231;
672  T231:;  T231:;
         V120= make_cons(car((V119)),(V120));  
673          {register object V122;          {register object V122;
674          V122= car((V119));          V122= car((V119));
675            V120= make_cons((V122),(V120));}
676            {register object V123;
677            V123= car((V119));
678          V119= cdr((V119));}          V119= cdr((V119));}
679          V121= (long)(1)+(V121);          V121= (long)(1)+(V121);
680          goto T230;}          goto T230;}
681  goto T227;  goto T227;
682  T227:;  T227:;
683          {register long V123;          {register long V124;
684          register long V124;          register long V125;
685          V123= V114;          V124= V114;
686          V124= 0;          V125= 0;
687  goto T247;  goto T248;
688  T247:;  T248:;
689          if((V123)>=(V115)){          if((V124)>=(V115)){
690          goto T249;}          goto T250;}
691          if((V124)>=(V118)){          if((V125)>=(V118)){
692          goto T249;}          goto T250;}
693          if(!(endp_prop((V119)))){          if(!(endp_prop((V119)))){
694          goto T248;}          goto T249;}
695  goto T249;  goto T250;
696  T249:;  T250:;
697          base[0]= (V120);          base[0]= (V120);
698          base[1]= (V119);          base[1]= (V119);
699          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
700          Lreconc();          Lreconc();
701          vs_top=sup;          vs_top=sup;
702          {object V125 = vs_base[0];          {object V126 = vs_base[0];
703          VMR11(V125)}          VMR11(V126)}
704  goto T248;  goto T249;
705  T248:;  T249:;
706          base[0]= car((V119));          base[0]= car((V119));
707          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
708          super_funcall_no_event((V113));          super_funcall_no_event((V113));
709          vs_top=sup;          vs_top=sup;
710          V126= vs_base[0];          V127= vs_base[0];
711          if(((*(LnkLI41))((V108),(V109),(V105),V126))==Cnil){          if(((*(LnkLI41))((V108),(V109),(V105),V127))==Cnil){
712          goto T260;}          goto T261;}
713          V124= (long)(1)+(V124);          V125= (long)(1)+(V125);
         {register object V127;  
         V127= car((V119));  
         V119= cdr((V119));  
         goto T258;}  
 goto T260;  
 T260:;  
         V120= make_cons(car((V119)),(V120));  
714          {register object V128;          {register object V128;
715          V128= car((V119));          V128= car((V119));
716            V119= cdr((V119));
717            goto T259;}
718    goto T261;
719    T261:;
720            {register object V129;
721            V129= car((V119));
722            V120= make_cons((V129),(V120));}
723            {register object V130;
724            V130= car((V119));
725          V119= cdr((V119));}          V119= cdr((V119));}
726  goto T258;  goto T259;
727  T258:;  T259:;
728          V123= (long)(1)+(V123);          V124= (long)(1)+(V124);
729          goto T247;}}          goto T248;}}
730  goto T225;  goto T225;
731  T225:;  T225:;
732          V129 = make_fixnum(V114);          V131 = make_fixnum(V114);
733          V130 = make_fixnum(V115);          V132 = make_fixnum(V115);
734          V131 = make_fixnum(V118);          V133 = make_fixnum(V118);
735          {object V132 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V129,VV[14],V130,VV[15],V131,VV[16],(V113)));          {object V134 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V131,VV[14],V132,VV[15],V133,VV[16],(V113)));
736          VMR11(V132)}          VMR11(V134)}
737  goto T222;  goto T222;
738  T222:;  T222:;
739          V133 = make_fixnum(V114);          V135 = make_fixnum(V114);
740          V134 = make_fixnum(V115);          V136 = make_fixnum(V115);
741          V135 = make_fixnum(V118);          V137 = make_fixnum(V118);
742          {object V136 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V133,VV[14],V134,VV[15],V135,VV[16],(V113)));          {object V138 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V135,VV[14],V136,VV[15],V137,VV[16],(V113)));
743          VMR11(V136)}}}}          VMR11(V138)}}}}
744          va_end(ap);          va_end(ap);
745          base[0]=base[0];          base[0]=base[0];
746          return Cnil;}          return Cnil;}
747          }}          }}
748  /*      local entry for function REMOVE-IF      */  /*      local entry for function REMOVE-IF      */
749    
750  static object LI12(V138,V137,va_alist)  static object LI12(V140,V139,va_alist)
751          object V138,V137;          object V140,V139;
752          va_dcl          va_dcl
753  {        {      
754          va_list ap;          va_list ap;
755          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
756          {object V139;          {object V141;
         object V140;  
         object V141;  
757          object V142;          object V142;
758          object V143;          object V143;
759          object V144;          object V144;
760          object V145;          object V145;
761            object V146;
762            object V147;
763          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
764          va_start(ap);          va_start(ap);
765          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
766          V139= V138;          V141= V140;
767          V140= V137;          V142= V139;
768          narg= narg - 2;          narg= narg - 2;
769          {          {
770          parse_key_new(narg,Vcs +2,(struct key *)&LI12key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI12key,ap);
771          V141=(Vcs[2]);          V143=(Vcs[2]);
772          V142=(Vcs[3]);          V144=(Vcs[3]);
773          V143=(Vcs[4]);          V145=(Vcs[4]);
774          V144=(Vcs[5]);          V146=(Vcs[5]);
775          if(Vcs[6]==0){          if(Vcs[6]==0){
776          V145= symbol_function(VV[33]);          V147= symbol_function(VV[33]);
777          }else{          }else{
778          V145=(Vcs[6]);}          V147=(Vcs[6]);}
779          if(!(((V145))==(Cnil))){          if(!(((V147))==(Cnil))){
780          goto T278;}          goto T280;}
781          V145= symbol_function(VV[33]);          V147= symbol_function(VV[33]);
782  goto T278;  goto T280;
783  T278:;  T280:;
784          V146= symbol_function(VV[44]);          V148= symbol_function(VV[44]);
785          {object V147 = (VFUN_NARGS=14,(*(LnkLI43))((V139),(V140),VV[10],(V141),VV[11],V146,VV[13],(V142),VV[14],(V143),VV[15],(V144),VV[16],(V145)));          {object V149 = (VFUN_NARGS=14,(*(LnkLI43))((V141),(V142),VV[10],(V143),VV[11],V148,VV[13],(V144),VV[14],(V145),VV[15],(V146),VV[16],(V147)));
786          VMR12(V147)}          VMR12(V149)}
787          va_end(ap);          va_end(ap);
788          return Cnil;}          return Cnil;}
789          }}          }}
790  /*      local entry for function REMOVE-IF-NOT  */  /*      local entry for function REMOVE-IF-NOT  */
791    
792  static object LI13(V149,V148,va_alist)  static object LI13(V151,V150,va_alist)
793          object V149,V148;          object V151,V150;
794          va_dcl          va_dcl
795  {        {      
796          va_list ap;          va_list ap;
797          int narg = VFUN_NARGS; VMB13 VMS13 VMV13          int narg = VFUN_NARGS; VMB13 VMS13 VMV13
798          {object V150;          {object V152;
         object V151;  
         object V152;  
799          object V153;          object V153;
800          object V154;          object V154;
801          object V155;          object V155;
802          object V156;          object V156;
803            object V157;
804            object V158;
805          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
806          va_start(ap);          va_start(ap);
807          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
808          V150= V149;          V152= V151;
809          V151= V148;          V153= V150;
810          narg= narg - 2;          narg= narg - 2;
811          {          {
812          parse_key_new(narg,Vcs +2,(struct key *)&LI13key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI13key,ap);
813          V152=(Vcs[2]);          V154=(Vcs[2]);
814          V153=(Vcs[3]);          V155=(Vcs[3]);
815          V154=(Vcs[4]);          V156=(Vcs[4]);
816          V155=(Vcs[5]);          V157=(Vcs[5]);
817          if(Vcs[6]==0){          if(Vcs[6]==0){
818          V156= symbol_function(VV[33]);          V158= symbol_function(VV[33]);
819          }else{          }else{
820          V156=(Vcs[6]);}          V158=(Vcs[6]);}
821          if(!(((V156))==(Cnil))){          if(!(((V158))==(Cnil))){
822          goto T284;}          goto T286;}
823          V156= symbol_function(VV[33]);          V158= symbol_function(VV[33]);
824  goto T284;  goto T286;
825  T284:;  T286:;
826          V157= symbol_function(VV[44]);          V159= symbol_function(VV[44]);
827          {object V158 = (VFUN_NARGS=14,(*(LnkLI43))((V150),(V151),VV[10],(V152),VV[12],V157,VV[13],(V153),VV[14],(V154),VV[15],(V155),VV[16],(V156)));          {object V160 = (VFUN_NARGS=14,(*(LnkLI43))((V152),(V153),VV[10],(V154),VV[12],V159,VV[13],(V155),VV[14],(V156),VV[15],(V157),VV[16],(V158)));
828          VMR13(V158)}          VMR13(V160)}
829          va_end(ap);          va_end(ap);
830          return Cnil;}          return Cnil;}
831          }}          }}
832  /*      local entry for function DELETE */  /*      local entry for function DELETE */
833    
834  static object LI14(V160,V159,va_alist)  static object LI14(V162,V161,va_alist)
835          object V160,V159;          object V162,V161;
836          va_dcl          va_dcl
837  {        {      
838          va_list ap;          va_list ap;
839          int narg = VFUN_NARGS; VMB14 VMS14 VMV14          int narg = VFUN_NARGS; VMB14 VMS14 VMV14
840          {object V161;          {object V163;
841          register object V162;          register object V164;
         object V163;  
         object V164;  
842          object V165;          object V165;
843          object V166;          object V166;
844          object V167;          object V167;
845          object V168;          object V168;
846          object V169;          object V169;
847            object V170;
848            object V171;
849          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
850          va_start(ap);          va_start(ap);
851          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
852          V161= V160;          V163= V162;
853          V162= V159;          V164= V161;
854          narg= narg - 2;          narg= narg - 2;
855          {          {
856          parse_key_new(narg,Vcs +2,(struct key *)&LI14key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI14key,ap);
857          V163=(Vcs[2]);          V165=(Vcs[2]);
858          V164=(Vcs[3]);          V166=(Vcs[3]);
859          V165=(Vcs[4]);          V167=(Vcs[4]);
860          V166=(Vcs[5]);          V168=(Vcs[5]);
861          V167=(Vcs[6]);          V169=(Vcs[6]);
862          V168=(Vcs[7]);          V170=(Vcs[7]);
863          if(Vcs[8]==0){          if(Vcs[8]==0){
864          V169= symbol_function(VV[33]);          V171= symbol_function(VV[33]);
865          }else{          }else{
866          V169=(Vcs[8]);}          V171=(Vcs[8]);}
867          {long V170;          {long V172;
868          V170= (long)length((V162));          V172= (long)length((V164));
869          if(!(((V169))==(Cnil))){          if(!(((V171))==(Cnil))){
870          goto T291;}          goto T293;}
871          V169= symbol_function(VV[33]);          V171= symbol_function(VV[33]);
872  goto T291;  goto T293;
873  T291:;  T293:;
874          {register long V171;          {register long V173;
875          if(((V166))==Cnil){          if(((V168))==Cnil){
876          goto T297;}          goto T299;}
877          V171= (long)(*(LnkLI34))((V166));          V173= (long)(*(LnkLI34))((V168));
878          goto T295;          goto T297;
879    goto T299;
880    T299:;
881            V173= 0;
882  goto T297;  goto T297;
883  T297:;  T297:;
884          V171= 0;          {long V174;
885  goto T295;          V174= (long)(*(LnkLI35))((V169),(V164));
886  T295:;          if(!((V173)<=(V174))){
887          {long V172;          goto T303;}
888          V172= (long)(*(LnkLI35))((V167),(V162));          goto T302;
         if(!((V171)<=(V172))){  
         goto T301;}  
         goto T300;  
 goto T301;  
 T301:;  
         V173 = make_fixnum(V171);  
         V174 = make_fixnum(V172);  
         (void)((VFUN_NARGS=2,(*(LnkLI31))(V173,V174)));  
 goto T300;  
 T300:;  
         {register long V175;  
         if(((V168))!=Cnil){  
         goto T305;}  
         V175= 2147483647;  
         goto T303;  
 goto T305;  
 T305:;  
         V175= fix((V168));  
889  goto T303;  goto T303;
890  T303:;  T303:;
891          if((V164)==Cnil){          V175 = make_fixnum(V173);
892          goto T308;}          V176 = make_fixnum(V174);
893          if((V165)==Cnil){          (void)((VFUN_NARGS=2,(*(LnkLI31))(V175,V176)));
894          goto T308;}  goto T302;
895          (void)((*(LnkLI40))());  T302:;
896  goto T308;          {register long V177;
897  T308:;          if(((V170))!=Cnil){
898          if(((V163))!=Cnil){          goto T307;}
899            V177= 2147483647;
900            goto T305;
901    goto T307;
902    T307:;
903            V177= fix((V170));
904    goto T305;
905    T305:;
906            if((V166)==Cnil){
907            goto T310;}
908            if((V167)==Cnil){
909          goto T310;}          goto T310;}
910          if(!(type_of((V162))==t_cons||((V162))==Cnil)){          (void)((*(LnkLI40))());
911          goto T313;}  goto T310;
912          {object V176;  T310:;
913          register object V177;          if(((V165))!=Cnil){
914          V176= make_cons(Cnil,(V162));          goto T312;}
915          V177= (V176);          if(!(type_of((V164))==t_cons||((V164))==Cnil)){
916          {long V178;          goto T315;}
917          V178= 0;          {object V178;
918  goto T320;          register object V179;
919  T320:;          V178= make_cons(Cnil,(V164));
920          if(!((V178)>=(V171))){          V179= (V178);
         goto T321;}  
         goto T317;  
 goto T321;  
 T321:;  
         {object V179;  
         V179= car((V177));  
         V177= cdr((V177));}  
         V178= (long)(1)+(V178);  
         goto T320;}  
 goto T317;  
 T317:;  
921          {long V180;          {long V180;
922          long V181;          V180= 0;
923          V180= V171;  goto T322;
924          V181= 0;  T322:;
925  goto T335;          if(!((V180)>=(V173))){
926  T335:;          goto T323;}
927          if((V180)>=(V172)){          goto T319;
928          goto T337;}  goto T323;
929          if((V181)>=(V175)){  T323:;
930          goto T337;}          {object V181;
931          if(!(endp_prop(cdr((V177))))){          V181= car((V179));
932          goto T336;}          V179= cdr((V179));}
933            V180= (long)(1)+(V180);
934            goto T322;}
935    goto T319;
936    T319:;
937            {long V182;
938            long V183;
939            V182= V173;
940            V183= 0;
941  goto T337;  goto T337;
942  T337:;  T337:;
943          {object V182 = cdr((V176));          if((V182)>=(V174)){
944          VMR14(V182)}          goto T339;}
945  goto T336;          if((V183)>=(V177)){
946  T336:;          goto T339;}
947          base[1]= cadr((V177));          if(!(endp_prop(cdr((V179))))){
948            goto T338;}
949    goto T339;
950    T339:;
951            {object V184 = cdr((V178));
952            VMR14(V184)}
953    goto T338;
954    T338:;
955            base[1]= cadr((V179));
956          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
957          super_funcall_no_event((V169));          super_funcall_no_event((V171));
958          vs_top=sup;          vs_top=sup;
959          V183= vs_base[0];          V185= vs_base[0];
960          if(((*(LnkLI41))((V164),(V165),(V161),V183))==Cnil){          if(((*(LnkLI41))((V166),(V167),(V163),V185))==Cnil){
961          goto T346;}          goto T348;}
962          V181= (long)(1)+(V181);          V183= (long)(1)+(V183);
963          if(type_of((V177))!=t_cons)FEwrong_type_argument(Scons,(V177));          if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179));
964          ((V177))->c.c_cdr = cddr((V177));          ((V179))->c.c_cdr = cddr((V179));
965          goto T344;          goto T346;
966    goto T348;
967    T348:;
968            V179= cdr((V179));
969  goto T346;  goto T346;
970  T346:;  T346:;
971          V177= cdr((V177));          V182= (long)(1)+(V182);
972  goto T344;          goto T337;}}
973  T344:;  goto T315;
974          V180= (long)(1)+(V180);  T315:;
975          goto T335;}}          {long V186;
976  goto T313;          V187 = make_fixnum(V173);
977  T313:;          V188 = make_fixnum(V174);
978          {long V184;          V189 = make_fixnum(V177);
979          V185 = make_fixnum(V171);          V186= fix((VFUN_NARGS=16,(*(LnkLI45))((V163),(V164),VV[10],(V165),VV[11],(V166),VV[12],(V167),VV[13],V187,VV[14],V188,VV[15],V189,VV[16],(V171))));
980          V186 = make_fixnum(V172);          if(!((V186)<(V177))){
981          V187 = make_fixnum(V175);          goto T359;}
982          V184= fix((VFUN_NARGS=16,(*(LnkLI45))((V161),(V162),VV[10],(V163),VV[11],(V164),VV[12],(V165),VV[13],V185,VV[14],V186,VV[15],V187,VV[16],(V169))));          V177= V186;
983          if(!((V184)<(V175))){  goto T359;
984          goto T357;}  T359:;
985          V175= V184;          {object V190;
986  goto T357;          register long V191;
987  T357:;          long V192;
988          {object V188;          long V193;
989          register long V189;          V194= (*(LnkLI47))((V164));
990          long V190;          V195 = make_fixnum((long)(V172)-(V177));
991          long V191;          V190= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V194,V195));
         V192= (*(LnkLI47))((V162));  
         V193 = make_fixnum((long)(V170)-(V175));  
         V188= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V192,V193));  
         V189= 0;  
         V190= 0;  
992          V191= 0;          V191= 0;
993  goto T366;          V192= 0;
994  T366:;          V193= 0;
995          if(!((V189)>=(V170))){  goto T368;
996          goto T367;}  T368:;
997          {object V194 = (V188);          if(!((V191)>=(V172))){
998          VMR14(V194)}          goto T369;}
999  goto T367;          {object V196 = (V190);
1000  T367:;          VMR14(V196)}
1001          if(!((V171)<=(V189))){  goto T369;
1002          goto T373;}  T369:;
1003          if(!((V189)<(V172))){          if(!((V173)<=(V191))){
1004          goto T373;}          goto T375;}
1005          if(!((V191)<(V175))){          if(!((V191)<(V174))){
1006          goto T373;}          goto T375;}
1007          base[0]= elt((V162),V189);          if(!((V193)<(V177))){
1008          vs_top=(vs_base=base+0)+1;          goto T375;}
1009          super_funcall_no_event((V169));          base[0]= elt((V164),V191);
1010          vs_top=sup;          vs_top=(vs_base=base+0)+1;
1011          V195= vs_base[0];          super_funcall_no_event((V171));
1012          if(((*(LnkLI41))((V164),(V165),(V161),V195))==Cnil){          vs_top=sup;
1013          goto T373;}          V197= vs_base[0];
1014          V191= (long)(1)+(V191);          if(((*(LnkLI41))((V166),(V167),(V163),V197))==Cnil){
1015          goto T371;          goto T375;}
1016            V193= (long)(1)+(V193);
1017            goto T373;
1018    goto T375;
1019    T375:;
1020            V198= elt((V164),V191);
1021            (void)(elt_set((V190),V192,/* INLINE-ARGS */V198));
1022            V192= (long)(1)+(V192);
1023  goto T373;  goto T373;
1024  T373:;  T373:;
1025          V196= elt((V162),V189);          V191= (long)(1)+(V191);
1026          (void)(elt_set((V188),V190,/* INLINE-ARGS */V196));          goto T368;}}
1027          V190= (long)(1)+(V190);  goto T312;
1028  goto T371;  T312:;
1029  T371:;          {long V199;
1030          V189= (long)(1)+(V189);          V200 = make_fixnum(V173);
1031          goto T366;}}          V201 = make_fixnum(V174);
1032  goto T310;          V202 = make_fixnum(V177);
1033  T310:;          V199= fix((VFUN_NARGS=16,(*(LnkLI45))((V163),(V164),VV[10],(V165),VV[11],(V166),VV[12],(V167),VV[13],V200,VV[14],V201,VV[15],V202,VV[16],(V171))));
1034          {long V197;          if(!((V199)<(V177))){
1035          V198 = make_fixnum(V171);          goto T392;}
1036          V199 = make_fixnum(V172);          V177= V199;
1037          V200 = make_fixnum(V175);  goto T392;
1038          V197= fix((VFUN_NARGS=16,(*(LnkLI45))((V161),(V162),VV[10],(V163),VV[11],(V164),VV[12],(V165),VV[13],V198,VV[14],V199,VV[15],V200,VV[16],(V169))));  T392:;
1039          if(!((V197)<(V175))){          {object V203;
1040          goto T390;}          register long V204;
1041          V175= V197;          long V205;
1042  goto T390;          long V206;
1043  T390:;          V207= (*(LnkLI47))((V164));
1044          {object V201;          V208 = make_fixnum((long)(V172)-(V177));
1045          register long V202;          V203= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V207,V208));
1046          long V203;          V204= (long)(-1)+(V172);
1047          long V204;          V205= (long)(-1)+((long)(V172)-(V177));
1048          V205= (*(LnkLI47))((V162));          V206= 0;
1049          V206 = make_fixnum((long)(V170)-(V175));  goto T401;
1050          V201= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V205,V206));  T401:;
1051          V202= (long)(-1)+(V170);          if(!((V204)<(0))){
1052          V203= (long)(-1)+((long)(V170)-(V175));          goto T402;}
1053          V204= 0;          {object V209 = (V203);
1054  goto T399;          VMR14(V209)}
1055  T399:;  goto T402;
1056          if(!((V202)<(0))){  T402:;
1057          goto T400;}          if(!((V173)<=(V204))){
1058          {object V207 = (V201);          goto T408;}
1059          VMR14(V207)}          if(!((V204)<(V174))){
1060  goto T400;          goto T408;}
1061  T400:;          if(!((V206)<(V177))){
1062          if(!((V171)<=(V202))){          goto T408;}
1063          goto T406;}          base[0]= elt((V164),V204);
1064          if(!((V202)<(V172))){          vs_top=(vs_base=base+0)+1;
1065          goto T406;}          super_funcall_no_event((V171));
1066          if(!((V204)<(V175))){          vs_top=sup;
1067          goto T406;}          V210= vs_base[0];
1068          base[0]= elt((V162),V202);          if(((*(LnkLI41))((V166),(V167),(V163),V210))==Cnil){
1069          vs_top=(vs_base=base+0)+1;          goto T408;}
1070          super_funcall_no_event((V169));          V206= (long)(1)+(V206);
1071          vs_top=sup;          goto T406;
1072          V208= vs_base[0];  goto T408;
1073          if(((*(LnkLI41))((V164),(V165),(V161),V208))==Cnil){  T408:;
1074          goto T406;}          V211= elt((V164),V204);
1075          V204= (long)(1)+(V204);          (void)(elt_set((V203),V205,/* INLINE-ARGS */V211));
1076          goto T404;          V205= (long)(-1)+(V205);
1077  goto T406;  goto T406;
1078  T406:;  T406:;
1079          V209= elt((V162),V202);          V204= (long)(-1)+(V204);
1080          (void)(elt_set((V201),V203,/* INLINE-ARGS */V209));          goto T401;}}}}}}
         V203= (long)(-1)+(V203);  
 goto T404;  
 T404:;  
         V202= (long)(-1)+(V202);  
         goto T399;}}}}}}  
1081          va_end(ap);          va_end(ap);
1082          base[0]=base[0];          base[0]=base[0];
1083          return Cnil;}          return Cnil;}
1084          }}          }}
1085  /*      local entry for function DELETE-IF      */  /*      local entry for function DELETE-IF      */
1086    
1087  static object LI15(V211,V210,va_alist)  static object LI15(V213,V212,va_alist)
1088          object V211,V210;          object V213,V212;
1089          va_dcl          va_dcl
1090  {        {      
1091          va_list ap;          va_list ap;
1092          int narg = VFUN_NARGS; VMB15 VMS15 VMV15          int narg = VFUN_NARGS; VMB15 VMS15 VMV15
1093          {object V212;          {object V214;
         object V213;  
         object V214;  
1094          object V215;          object V215;
1095          object V216;          object V216;
1096          object V217;          object V217;
1097          object V218;          object V218;
1098            object V219;
1099            object V220;
1100          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1101          va_start(ap);          va_start(ap);
1102          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1103          V212= V211;          V214= V213;
1104          V213= V210;          V215= V212;
1105          narg= narg - 2;          narg= narg - 2;
1106          {          {
1107          parse_key_new(narg,Vcs +2,(struct key *)&LI15key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI15key,ap);
1108          V214=(Vcs[2]);          V216=(Vcs[2]);
1109          V215=(Vcs[3]);          V217=(Vcs[3]);
1110          V216=(Vcs[4]);          V218=(Vcs[4]);
1111          V217=(Vcs[5]);          V219=(Vcs[5]);
1112          if(Vcs[6]==0){          if(Vcs[6]==0){
1113          V218= symbol_function(VV[33]);          V220= symbol_function(VV[33]);
1114          }else{          }else{
1115          V218=(Vcs[6]);}          V220=(Vcs[6]);}
1116          if(!(((V218))==(Cnil))){          if(!(((V220))==(Cnil))){
1117          goto T423;}          goto T425;}
1118          V218= symbol_function(VV[33]);          V220= symbol_function(VV[33]);
1119  goto T423;  goto T425;
1120  T423:;  T425:;
1121          V219= symbol_function(VV[44]);          V221= symbol_function(VV[44]);
1122          {object V220 = (VFUN_NARGS=14,(*(LnkLI42))((V212),(V213),VV[10],(V214),VV[11],V219,VV[13],(V215),VV[14],(V216),VV[15],(V217),VV[16],(V218)));          {object V222 = (VFUN_NARGS=14,(*(LnkLI42))((V214),(V215),VV[10],(V216),VV[11],V221,VV[13],(V217),VV[14],(V218),VV[15],(V219),VV[16],(V220)));
1123          VMR15(V220)}          VMR15(V222)}
1124          va_end(ap);          va_end(ap);
1125          return Cnil;}          return Cnil;}
1126          }}          }}
1127  /*      local entry for function DELETE-IF-NOT  */  /*      local entry for function DELETE-IF-NOT  */
1128    
1129  static object LI16(V222,V221,va_alist)  static object LI16(V224,V223,va_alist)
1130          object V222,V221;          object V224,V223;
1131          va_dcl          va_dcl
1132  {        {      
1133          va_list ap;          va_list ap;
1134          int narg = VFUN_NARGS; VMB16 VMS16 VMV16          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
1135          {object V223;          {object V225;
         object V224;  
         object V225;  
1136          object V226;          object V226;
1137          object V227;          object V227;
1138          object V228;          object V228;
1139          object V229;          object V229;
1140            object V230;
1141            object V231;
1142          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1143          va_start(ap);          va_start(ap);
1144          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1145          V223= V222;          V225= V224;
1146          V224= V221;          V226= V223;
1147          narg= narg - 2;          narg= narg - 2;
1148          {          {
1149          parse_key_new(narg,Vcs +2,(struct key *)&LI16key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI16key,ap);
1150          V225=(Vcs[2]);          V227=(Vcs[2]);
1151          V226=(Vcs[3]);          V228=(Vcs[3]);
1152          V227=(Vcs[4]);          V229=(Vcs[4]);
1153          V228=(Vcs[5]);          V230=(Vcs[5]);
1154          if(Vcs[6]==0){          if(Vcs[6]==0){
1155          V229= symbol_function(VV[33]);          V231= symbol_function(VV[33]);
1156          }else{          }else{
1157          V229=(Vcs[6]);}          V231=(Vcs[6]);}
1158          if(!(((V229))==(Cnil))){          if(!(((V231))==(Cnil))){
1159          goto T429;}          goto T431;}
1160          V229= symbol_function(VV[33]);          V231= symbol_function(VV[33]);
1161  goto T429;  goto T431;
1162  T429:;  T431:;
1163          V230= symbol_function(VV[44]);          V232= symbol_function(VV[44]);
1164          {object V231 = (VFUN_NARGS=14,(*(LnkLI42))((V223),(V224),VV[10],(V225),VV[12],V230,VV[13],(V226),VV[14],(V227),VV[15],(V228),VV[16],(V229)));          {object V233 = (VFUN_NARGS=14,(*(LnkLI42))((V225),(V226),VV[10],(V227),VV[12],V232,VV[13],(V228),VV[14],(V229),VV[15],(V230),VV[16],(V231)));
1165          VMR16(V231)}          VMR16(V233)}
1166          va_end(ap);          va_end(ap);
1167          return Cnil;}          return Cnil;}
1168          }}          }}
1169  /*      local entry for function COUNT  */  /*      local entry for function COUNT  */
1170    
1171  static object LI17(V233,V232,va_alist)  static object LI17(V235,V234,va_alist)
1172          object V233,V232;          object V235,V234;
1173          va_dcl          va_dcl
1174  {        {      
1175          va_list ap;          va_list ap;
1176          int narg = VFUN_NARGS; VMB17 VMS17 VMV17          int narg = VFUN_NARGS; VMB17 VMS17 VMV17
1177          {object V234;          {object V236;
         register object V235;  
         object V236;  
1178          register object V237;          register object V237;
1179          register object V238;          object V238;
1180          object V239;          register object V239;
1181          object V240;          register object V240;
1182          register object V241;          object V241;
1183            object V242;
1184            register object V243;
1185          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1186          va_start(ap);          va_start(ap);
1187          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1188          V234= V233;          V236= V235;
1189          V235= V232;          V237= V234;
1190          narg= narg - 2;          narg= narg - 2;
1191          {          {
1192          parse_key_new(narg,Vcs +2,(struct key *)&LI17key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI17key,ap);
1193          V236=(Vcs[2]);          V238=(Vcs[2]);
1194          V237=(Vcs[3]);          V239=(Vcs[3]);
1195          V238=(Vcs[4]);          V240=(Vcs[4]);
1196          V239=(Vcs[5]);          V241=(Vcs[5]);
1197          V240=(Vcs[6]);          V242=(Vcs[6]);
1198          if(Vcs[7]==0){          if(Vcs[7]==0){
1199          V241= symbol_function(VV[33]);          V243= symbol_function(VV[33]);
1200          }else{          }else{
1201          V241=(Vcs[7]);}          V243=(Vcs[7]);}
1202          if(!(((V241))==(Cnil))){          if(!(((V243))==(Cnil))){
1203          goto T435;}          goto T437;}
1204          V241= symbol_function(VV[33]);          V243= symbol_function(VV[33]);
1205  goto T435;  goto T437;
1206  T435:;  T437:;
1207          {long V242;          {long V244;
1208          if(((V239))==Cnil){          if(((V241))==Cnil){
1209          goto T441;}          goto T443;}
1210          V242= (long)(*(LnkLI34))((V239));          V244= (long)(*(LnkLI34))((V241));
1211          goto T439;          goto T441;
1212    goto T443;
1213    T443:;
1214            V244= 0;
1215  goto T441;  goto T441;
1216  T441:;  T441:;
1217          V242= 0;          {long V245;
1218  goto T439;          V245= (long)(*(LnkLI35))((V242),(V237));
1219  T439:;          if(!((V244)<=(V245))){
         {long V243;  
         V243= (long)(*(LnkLI35))((V240),(V235));  
         if(!((V242)<=(V243))){  
         goto T445;}  
         goto T444;  
 goto T445;  
 T445:;  
         V244 = make_fixnum(V242);  
         V245 = make_fixnum(V243);  
         (void)((VFUN_NARGS=2,(*(LnkLI31))(V244,V245)));  
 goto T444;  
 T444:;  
         if((V237)==Cnil){  
         goto T447;}  
         if((V238)==Cnil){  
1220          goto T447;}          goto T447;}
1221          (void)((*(LnkLI40))());          goto T446;
1222  goto T447;  goto T447;
1223  T447:;  T447:;
1224          if(((V236))!=Cnil){          V246 = make_fixnum(V244);
1225            V247 = make_fixnum(V245);
1226            (void)((VFUN_NARGS=2,(*(LnkLI31))(V246,V247)));
1227    goto T446;
1228    T446:;
1229            if((V239)==Cnil){
1230            goto T449;}
1231            if((V240)==Cnil){
1232          goto T449;}          goto T449;}
1233          {register long V246;          (void)((*(LnkLI40))());
         register long V247;  
         V246= V242;  
         V247= 0;  
 goto T454;  
 T454:;  
         if(!((V246)>=(V243))){  
         goto T455;}  
         {object V248 = make_fixnum(V247);  
         VMR17(V248)}  
 goto T455;  
 T455:;  
         base[0]= elt((V235),V246);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V241));  
         vs_top=sup;  
         V249= vs_base[0];  
         if(((*(LnkLI41))((V237),(V238),(V234),V249))==Cnil){  
         goto T459;}  
         V247= (long)(1)+(V247);  
 goto T459;  
 T459:;  
         V246= (long)(1)+(V246);  
         goto T454;}  
1234  goto T449;  goto T449;
1235  T449:;  T449:;
1236          {register long V250;          if(((V238))!=Cnil){
1237          register long V251;          goto T451;}
1238          V250= (long)(-1)+(V243);          {register long V248;
1239          V251= 0;          register long V249;
1240  goto T471;          V248= V244;
1241  T471:;          V249= 0;
1242          if(!((V250)<(V242))){  goto T456;
1243          goto T472;}  T456:;
1244          {object V252 = make_fixnum(V251);          if(!((V248)>=(V245))){
1245          VMR17(V252)}          goto T457;}
1246  goto T472;          {object V250 = make_fixnum(V249);
1247  T472:;          VMR17(V250)}
1248          base[0]= elt((V235),V250);  goto T457;
1249          vs_top=(vs_base=base+0)+1;  T457:;
1250          super_funcall_no_event((V241));          base[0]= elt((V237),V248);
1251          vs_top=sup;          vs_top=(vs_base=base+0)+1;
1252          V253= vs_base[0];          super_funcall_no_event((V243));
1253          if(((*(LnkLI41))((V237),(V238),(V234),V253))==Cnil){          vs_top=sup;
1254          goto T476;}          V251= vs_base[0];
1255          V251= (long)(1)+(V251);          if(((*(LnkLI41))((V239),(V240),(V236),V251))==Cnil){
1256  goto T476;          goto T461;}
1257  T476:;          V249= (long)(1)+(V249);
1258          V250= (long)(-1)+(V250);  goto T461;
1259          goto T471;}}}  T461:;
1260            V248= (long)(1)+(V248);
1261            goto T456;}
1262    goto T451;
1263    T451:;
1264            {register long V252;
1265            register long V253;
1266            V252= (long)(-1)+(V245);
1267            V253= 0;
1268    goto T473;
1269    T473:;
1270            if(!((V252)<(V244))){
1271            goto T474;}
1272            {object V254 = make_fixnum(V253);
1273            VMR17(V254)}
1274    goto T474;
1275    T474:;
1276            base[0]= elt((V237),V252);
1277            vs_top=(vs_base=base+0)+1;
1278            super_funcall_no_event((V243));
1279            vs_top=sup;
1280            V255= vs_base[0];
1281            if(((*(LnkLI41))((V239),(V240),(V236),V255))==Cnil){
1282            goto T478;}
1283            V253= (long)(1)+(V253);
1284    goto T478;
1285    T478:;
1286            V252= (long)(-1)+(V252);
1287            goto T473;}}}
1288          va_end(ap);          va_end(ap);
1289          base[0]=base[0];          base[0]=base[0];
1290          return Cnil;}          return Cnil;}
1291          }}          }}
1292  /*      local entry for function COUNT-IF       */  /*      local entry for function COUNT-IF       */
1293    
1294  static object LI18(V255,V254,va_alist)  static object LI18(V257,V256,va_alist)
1295          object V255,V254;          object V257,V256;
1296          va_dcl          va_dcl
1297  {        {      
1298          va_list ap;          va_list ap;
1299          int narg = VFUN_NARGS; VMB18 VMS18 VMV18          int narg = VFUN_NARGS; VMB18 VMS18 VMV18
1300          {object V256;          {object V258;
         object V257;  
         object V258;  
1301          object V259;          object V259;
1302          object V260;          object V260;
1303          object V261;          object V261;
1304            object V262;
1305            object V263;
1306          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1307          va_start(ap);          va_start(ap);
1308          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1309          V256= V255;          V258= V257;
1310          V257= V254;          V259= V256;
1311          narg= narg - 2;          narg= narg - 2;
1312          {          {
1313          parse_key_new(narg,Vcs +2,(struct key *)&LI18key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI18key,ap);
1314          V258=(Vcs[2]);          V260=(Vcs[2]);
1315          V259=(Vcs[3]);          V261=(Vcs[3]);
1316          V260=(Vcs[4]);          V262=(Vcs[4]);
1317          if(Vcs[5]==0){          if(Vcs[5]==0){
1318          V261= symbol_function(VV[33]);          V263= symbol_function(VV[33]);
1319          }else{          }else{
1320          V261=(Vcs[5]);}          V263=(Vcs[5]);}
1321          if(!(((V261))==(Cnil))){          if(!(((V263))==(Cnil))){
1322          goto T486;}          goto T488;}
1323          V261= symbol_function(VV[33]);          V263= symbol_function(VV[33]);
1324  goto T486;  goto T488;
1325  T486:;  T488:;
1326          V262= symbol_function(VV[44]);          V264= symbol_function(VV[44]);
1327          {object V263 = (VFUN_NARGS=12,(*(LnkLI48))((V256),(V257),VV[10],(V258),VV[11],V262,VV[13],(V259),VV[14],(V260),VV[16],(V261)));          {object V265 = (VFUN_NARGS=12,(*(LnkLI48))((V258),(V259),VV[10],(V260),VV[11],V264,VV[13],(V261),VV[14],(V262),VV[16],(V263)));
1328          VMR18(V263)}          VMR18(V265)}
1329          va_end(ap);          va_end(ap);
1330          return Cnil;}          return Cnil;}
1331          }}          }}
1332  /*      local entry for function COUNT-IF-NOT   */  /*      local entry for function COUNT-IF-NOT   */
1333    
1334  static object LI19(V265,V264,va_alist)  static object LI19(V267,V266,va_alist)
1335          object V265,V264;          object V267,V266;
1336          va_dcl          va_dcl
1337  {        {      
1338          va_list ap;          va_list ap;
1339          int narg = VFUN_NARGS; VMB19 VMS19 VMV19          int narg = VFUN_NARGS; VMB19 VMS19 VMV19
1340          {object V266;          {object V268;
         object V267;  
         object V268;  
1341          object V269;          object V269;
1342          object V270;          object V270;
1343          object V271;          object V271;
1344            object V272;
1345            object V273;
1346          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1347          va_start(ap);          va_start(ap);
1348          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1349          V266= V265;          V268= V267;
1350          V267= V264;          V269= V266;
1351          narg= narg - 2;          narg= narg - 2;
1352          {          {
1353          parse_key_new(narg,Vcs +2,(struct key *)&LI19key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI19key,ap);
1354          V268=(Vcs[2]);          V270=(Vcs[2]);
1355          V269=(Vcs[3]);          V271=(Vcs[3]);
1356          V270=(Vcs[4]);          V272=(Vcs[4]);
1357          if(Vcs[5]==0){          if(Vcs[5]==0){
1358          V271= symbol_function(VV[33]);          V273= symbol_function(VV[33]);
1359          }else{          }else{
1360          V271=(Vcs[5]);}          V273=(Vcs[5]);}
1361          if(!(((V271))==(Cnil))){          if(!(((V273))==(Cnil))){
1362          goto T492;}          goto T494;}
1363          V271= symbol_function(VV[33]);          V273= symbol_function(VV[33]);
1364  goto T492;  goto T494;
1365  T492:;  T494:;
1366          V272= symbol_function(VV[44]);          V274= symbol_function(VV[44]);
1367          {object V273 = (VFUN_NARGS=12,(*(LnkLI48))((V266),(V267),VV[10],(V268),VV[12],V272,VV[13],(V269),VV[14],(V270),VV[16],(V271)));          {object V275 = (VFUN_NARGS=12,(*(LnkLI48))((V268),(V269),VV[10],(V270),VV[12],V274,VV[13],(V271),VV[14],(V272),VV[16],(V273)));
1368          VMR19(V273)}          VMR19(V275)}
1369          va_end(ap);          va_end(ap);
1370          return Cnil;}          return Cnil;}
1371          }}          }}
1372  /*      local entry for function INTERNAL-COUNT */  /*      local entry for function INTERNAL-COUNT */
1373    
1374  static object LI20(V275,V274,va_alist)  static object LI20(V277,V276,va_alist)
1375          object V275,V274;          object V277,V276;
1376          va_dcl          va_dcl
1377  {        {      
1378          va_list ap;          va_list ap;
1379          int narg = VFUN_NARGS; VMB20 VMS20 VMV20          int narg = VFUN_NARGS; VMB20 VMS20 VMV20
1380          {object V276;          {object V278;
         register object V277;  
         object V278;  
1381          register object V279;          register object V279;
1382          register object V280;          object V280;
1383          object V281;          register object V281;
1384          object V282;          register object V282;
1385          object V283;          object V283;
1386          register object V284;          object V284;
1387            object V285;
1388            register object V286;
1389          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1390          va_start(ap);          va_start(ap);
1391          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1392          V276= V275;          V278= V277;
1393          V277= V274;          V279= V276;
1394          narg= narg - 2;          narg= narg - 2;
1395          {          {
1396          parse_key_new(narg,Vcs +2,(struct key *)&LI20key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI20key,ap);
1397          V278=(Vcs[2]);          V280=(Vcs[2]);
1398          V279=(Vcs[3]);          V281=(Vcs[3]);
1399          V280=(Vcs[4]);          V282=(Vcs[4]);
1400          V281=(Vcs[5]);          V283=(Vcs[5]);
1401          V282=(Vcs[6]);          V284=(Vcs[6]);
1402          V283=(Vcs[7]);          V285=(Vcs[7]);
1403          if(Vcs[8]==0){          if(Vcs[8]==0){
1404          V284= symbol_function(VV[33]);          V286= symbol_function(VV[33]);
1405          }else{          }else{
1406          V284=(Vcs[8]);}          V286=(Vcs[8]);}
1407          if(!(((V284))==(Cnil))){          if(!(((V286))==(Cnil))){
1408          goto T498;}          goto T500;}
1409          V284= symbol_function(VV[33]);          V286= symbol_function(VV[33]);
1410  goto T498;  goto T500;
1411  T498:;  T500:;
1412          {long V285;          {long V287;
1413          if(((V281))==Cnil){          if(((V283))==Cnil){
1414          goto T504;}          goto T506;}
1415          V285= (long)(*(LnkLI34))((V281));          V287= (long)(*(LnkLI34))((V283));
1416          goto T502;          goto T504;
1417    goto T506;
1418    T506:;
1419            V287= 0;
1420  goto T504;  goto T504;
1421  T504:;  T504:;
1422          V285= 0;          {long V288;
1423  goto T502;          V288= (long)(*(LnkLI35))((V284),(V279));
1424  T502:;          if(!((V287)<=(V288))){
1425          {long V286;          goto T510;}
1426          V286= (long)(*(LnkLI35))((V282),(V277));          goto T509;
         if(!((V285)<=(V286))){  
         goto T508;}  
         goto T507;  
 goto T508;  
 T508:;  
         V287 = make_fixnum(V285);  
         V288 = make_fixnum(V286);  
         (void)((VFUN_NARGS=2,(*(LnkLI31))(V287,V288)));  
 goto T507;  
 T507:;  
         {long V289;  
         if(((V283))!=Cnil){  
         goto T512;}  
         V289= 2147483647;  
         goto T510;  
 goto T512;  
 T512:;  
         V289= fix((V283));  
1427  goto T510;  goto T510;
1428  T510:;  T510:;
1429          if((V279)==Cnil){          V289 = make_fixnum(V287);
1430          goto T515;}          V290 = make_fixnum(V288);
1431          if((V280)==Cnil){          (void)((VFUN_NARGS=2,(*(LnkLI31))(V289,V290)));
1432          goto T515;}  goto T509;
1433          (void)((*(LnkLI40))());  T509:;
1434  goto T515;          {long V291;
1435  T515:;          if(((V285))!=Cnil){
1436          if(((V278))!=Cnil){          goto T514;}
1437            V291= 2147483647;
1438            goto T512;
1439    goto T514;
1440    T514:;
1441            V291= fix((V285));
1442    goto T512;
1443    T512:;
1444            if((V281)==Cnil){
1445            goto T517;}
1446            if((V282)==Cnil){
1447          goto T517;}          goto T517;}
1448          {register long V290;          (void)((*(LnkLI40))());
         register long V291;  
         V290= V285;  
         V291= 0;  
 goto T522;  
 T522:;  
         if(!((V290)>=(V286))){  
         goto T523;}  
         {object V292 = make_fixnum(V291);  
         VMR20(V292)}  
 goto T523;  
 T523:;  
         if(!((V291)<(V289))){  
         goto T527;}  
         base[0]= elt((V277),V290);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V284));  
         vs_top=sup;  
         V293= vs_base[0];  
         if(((*(LnkLI41))((V279),(V280),(V276),V293))==Cnil){  
         goto T527;}  
         V291= (long)(1)+(V291);  
 goto T527;  
 T527:;  
         V290= (long)(1)+(V290);  
         goto T522;}  
1449  goto T517;  goto T517;
1450  T517:;  T517:;
1451          {register long V294;          if(((V280))!=Cnil){
1452          register long V295;          goto T519;}
1453          V294= (long)(-1)+(V286);          {register long V292;
1454          V295= 0;          register long V293;
1455  goto T541;          V292= V287;
1456  T541:;          V293= 0;
1457          if(!((V294)<(V285))){  goto T524;
1458          goto T542;}  T524:;
1459          {object V296 = make_fixnum(V295);          if(!((V292)>=(V288))){
1460          VMR20(V296)}          goto T525;}
1461  goto T542;          {object V294 = make_fixnum(V293);
1462  T542:;          VMR20(V294)}
1463          if(!((V295)<(V289))){  goto T525;
1464          goto T546;}  T525:;
1465          base[0]= elt((V277),V294);          if(!((V293)<(V291))){
1466          vs_top=(vs_base=base+0)+1;          goto T529;}
1467          super_funcall_no_event((V284));          base[0]= elt((V279),V292);
1468          vs_top=sup;          vs_top=(vs_base=base+0)+1;
1469          V297= vs_base[0];          super_funcall_no_event((V286));
1470          if(((*(LnkLI41))((V279),(V280),(V276),V297))==Cnil){          vs_top=sup;
1471          goto T546;}          V295= vs_base[0];
1472          V295= (long)(1)+(V295);          if(((*(LnkLI41))((V281),(V282),(V278),V295))==Cnil){
1473  goto T546;          goto T529;}
1474  T546:;          V293= (long)(1)+(V293);
1475          V294= (long)(-1)+(V294);  goto T529;
1476          goto T541;}}}}  T529:;
1477            V292= (long)(1)+(V292);
1478            goto T524;}
1479    goto T519;
1480    T519:;
1481            {register long V296;
1482            register long V297;
1483            V296= (long)(-1)+(V288);
1484            V297= 0;
1485    goto T543;
1486    T543:;
1487            if(!((V296)<(V287))){
1488            goto T544;}
1489            {object V298 = make_fixnum(V297);
1490            VMR20(V298)}
1491    goto T544;
1492    T544:;
1493            if(!((V297)<(V291))){
1494            goto T548;}
1495            base[0]= elt((V279),V296);
1496            vs_top=(vs_base=base+0)+1;
1497            super_funcall_no_event((V286));
1498            vs_top=sup;
1499            V299= vs_base[0];
1500            if(((*(LnkLI41))((V281),(V282),(V278),V299))==Cnil){
1501            goto T548;}
1502            V297= (long)(1)+(V297);
1503    goto T548;
1504    T548:;
1505            V296= (long)(-1)+(V296);
1506            goto T543;}}}}
1507          va_end(ap);          va_end(ap);
1508          base[0]=base[0];          base[0]=base[0];
1509          return Cnil;}          return Cnil;}
1510          }}          }}
1511  /*      local entry for function INTERNAL-COUNT-IF      */  /*      local entry for function INTERNAL-COUNT-IF      */
1512    
1513  static object LI21(V299,V298,va_alist)  static object LI21(V301,V300,va_alist)
1514          object V299,V298;          object V301,V300;
1515          va_dcl          va_dcl
1516  {        {      
1517          va_list ap;          va_list ap;
1518          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB21 VMS21 VMV21
1519          {object V300;          {object V302;
         object V301;  
         object V302;  
1520          object V303;          object V303;
1521          object V304;          object V304;
1522          object V305;          object V305;
1523          object V306;          object V306;
1524            object V307;
1525            object V308;
1526          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1527          va_start(ap);          va_start(ap);
1528          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1529          V300= V299;          V302= V301;
1530          V301= V298;          V303= V300;
1531          narg= narg - 2;          narg= narg - 2;
1532          {          {
1533          parse_key_new(narg,Vcs +2,(struct key *)&LI21key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI21key,ap);
1534          V302=(Vcs[2]);          V304=(Vcs[2]);
1535          V303=(Vcs[3]);          V305=(Vcs[3]);
1536          V304=(Vcs[4]);          V306=(Vcs[4]);
1537          V305=(Vcs[5]);          V307=(Vcs[5]);
1538          if(Vcs[6]==0){          if(Vcs[6]==0){
1539          V306= symbol_function(VV[33]);          V308= symbol_function(VV[33]);
1540          }else{          }else{
1541          V306=(Vcs[6]);}          V308=(Vcs[6]);}
1542          if(!(((V306))==(Cnil))){          if(!(((V308))==(Cnil))){
1543          goto T558;}          goto T560;}
1544          V306= symbol_function(VV[33]);          V308= symbol_function(VV[33]);
1545  goto T558;  goto T560;
1546  T558:;  T560:;
1547          V307= symbol_function(VV[44]);          V309= symbol_function(VV[44]);
1548          {object V308 = (VFUN_NARGS=14,(*(LnkLI45))((V300),(V301),VV[10],(V302),VV[11],V307,VV[13],(V303),VV[14],(V304),VV[15],(V305),VV[16],(V306)));          {object V310 = (VFUN_NARGS=14,(*(LnkLI45))((V302),(V303),VV[10],(V304),VV[11],V309,VV[13],(V305),VV[14],(V306),VV[15],(V307),VV[16],(V308)));
1549          VMR21(V308)}          VMR21(V310)}
1550          va_end(ap);          va_end(ap);
1551          return Cnil;}          return Cnil;}
1552          }}          }}
1553  /*      local entry for function INTERNAL-COUNT-IF-NOT  */  /*      local entry for function INTERNAL-COUNT-IF-NOT  */
1554    
1555  static object LI22(V310,V309,va_alist)  static object LI22(V312,V311,va_alist)
1556          object V310,V309;          object V312,V311;
1557          va_dcl          va_dcl
1558  {        {      
1559          va_list ap;          va_list ap;
1560          int narg = VFUN_NARGS; VMB22 VMS22 VMV22          int narg = VFUN_NARGS; VMB22 VMS22 VMV22
1561          {object V311;          {object V313;
         object V312;  
         object V313;  
1562          object V314;          object V314;
1563          object V315;          object V315;
1564          object V316;          object V316;
1565          object V317;          object V317;
1566            object V318;
1567            object V319;
1568          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1569          va_start(ap);          va_start(ap);
1570          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1571          V311= V310;          V313= V312;
1572          V312= V309;          V314= V311;
1573          narg= narg - 2;          narg= narg - 2;
1574          {          {
1575          parse_key_new(narg,Vcs +2,(struct key *)&LI22key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI22key,ap);
1576          V313=(Vcs[2]);          V315=(Vcs[2]);
1577          V314=(Vcs[3]);          V316=(Vcs[3]);
1578          V315=(Vcs[4]);          V317=(Vcs[4]);
1579          V316=(Vcs[5]);          V318=(Vcs[5]);
1580          if(Vcs[6]==0){          if(Vcs[6]==0){
1581          V317= symbol_function(VV[33]);          V319= symbol_function(VV[33]);
1582          }else{          }else{
1583          V317=(Vcs[6]);}          V319=(Vcs[6]);}
1584          if(!(((V317))==(Cnil))){          if(!(((V319))==(Cnil))){
1585          goto T564;}          goto T566;}
1586          V317= symbol_function(VV[33]);          V319= symbol_function(VV[33]);
1587  goto T564;  goto T566;
1588  T564:;  T566:;
1589          V318= symbol_function(VV[44]);          V320= symbol_function(VV[44]);
1590          {object V319 = (VFUN_NARGS=14,(*(LnkLI45))((V311),(V312),VV[10],(V313),VV[12],V318,VV[13],(V314),VV[14],(V315),VV[15],(V316),VV[16],(V317)));          {object V321 = (VFUN_NARGS=14,(*(LnkLI45))((V313),(V314),VV[10],(V315),VV[12],V320,VV[13],(V316),VV[14],(V317),VV[15],(V318),VV[16],(V319)));
1591          VMR22(V319)}          VMR22(V321)}
1592          va_end(ap);          va_end(ap);
1593          return Cnil;}          return Cnil;}
1594          }}          }}
1595  /*      local entry for function SUBSTITUTE     */  /*      local entry for function SUBSTITUTE     */
1596    
1597  static object LI23(V322,V321,V320,va_alist)  static object LI23(V324,V323,V322,va_alist)
1598          object V322,V321,V320;          object V324,V323,V322;
1599          va_dcl          va_dcl
1600  {        {      
1601          va_list ap;          va_list ap;
1602          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
1603          {object V323;          {object V325;
         object V324;  
         register object V325;  
1604          object V326;          object V326;
1605          object V327;          register object V327;
1606          object V328;          object V328;
1607          object V329;          object V329;
1608          object V330;          object V330;
1609          object V331;          object V331;
1610          object V332;          object V332;
1611            object V333;
1612            object V334;
1613          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1614          va_start(ap);          va_start(ap);
1615          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1616          V323= V322;          V325= V324;
1617          V324= V321;          V326= V323;
1618          V325= V320;          V327= V322;
1619          narg= narg - 3;          narg= narg - 3;
1620          {          {
1621          parse_key_new(narg,Vcs +3,(struct key *)&LI23key,ap);          parse_key_new(narg,Vcs +3,(struct key *)&LI23key,ap);
1622          V326=(Vcs[3]);          V328=(Vcs[3]);
1623          V327=(Vcs[4]);          V329=(Vcs[4]);
1624          V328=(Vcs[5]);          V330=(Vcs[5]);
1625          V329=(Vcs[6]);          V331=(Vcs[6]);
1626          V330=(Vcs[7]);          V332=(Vcs[7]);
1627          V331=(Vcs[8]);          V333=(Vcs[8]);
1628          if(Vcs[9]==0){          if(Vcs[9]==0){
1629          V332= symbol_function(VV[33]);          V334= symbol_function(VV[33]);
1630          }else{          }else{
1631          V332=(Vcs[9]);}          V334=(Vcs[9]);}
1632          {long V333;          {long V335;
1633          V333= (long)length((V325));          V335= (long)length((V327));
1634          if(!(((V332))==(Cnil))){          if(!(((V334))==(Cnil))){
1635          goto T571;}          goto T573;}
1636          V332= symbol_function(VV[33]);          V334= symbol_function(VV[33]);
1637  goto T571;  goto T573;
1638  T571:;  T573:;
1639          {long V334;          {long V336;
1640          if(((V329))==Cnil){          if(((V331))==Cnil){
1641          goto T577;}          goto T579;}
1642          V334= (long)(*(LnkLI34))((V329));          V336= (long)(*(LnkLI34))((V331));
1643          goto T575;          goto T577;
1644    goto T579;
1645    T579:;
1646            V336= 0;
1647  goto T577;  goto T577;
1648  T577:;  T577:;
1649          V334= 0;          {long V337;
1650  goto T575;          V337= (long)(*(LnkLI35))((V332),(V327));
1651  T575:;          if(!((V336)<=(V337))){
1652          {long V335;          goto T583;}
1653          V335= (long)(*(LnkLI35))((V330),(V325));          goto T582;
         if(!((V334)<=(V335))){  
         goto T581;}  
         goto T580;  
 goto T581;  
 T581:;  
         V336 = make_fixnum(V334);  
         V337 = make_fixnum(V335);  
         (void)((VFUN_NARGS=2,(*(LnkLI31))(V336,V337)));  
 goto T580;  
 T580:;  
         {long V338;  
         if(((V331))!=Cnil){  
         goto T585;}  
         V338= 2147483647;  
         goto T583;  
 goto T585;  
 T585:;  
         V338= fix((V331));  
1654  goto T583;  goto T583;
1655  T583:;  T583:;
1656          if((V327)==Cnil){          V338 = make_fixnum(V336);
1657          goto T588;}          V339 = make_fixnum(V337);
1658          if((V328)==Cnil){          (void)((VFUN_NARGS=2,(*(LnkLI31))(V338,V339)));
1659          goto T588;}  goto T582;
1660          (void)((*(LnkLI40))());  T582:;
1661  goto T588;          {long V340;
1662  T588:;          if(((V333))!=Cnil){
1663          if(((V326))!=Cnil){          goto T587;}
1664            V340= 2147483647;
1665            goto T585;
1666    goto T587;
1667    T587:;
1668            V340= fix((V333));
1669    goto T585;
1670    T585:;
1671            if((V329)==Cnil){
1672          goto T590;}          goto T590;}
1673          {register object V339;          if((V330)==Cnil){
1674          register long V340;          goto T590;}
1675          register long V341;          (void)((*(LnkLI40))());
         V342= (*(LnkLI47))((V325));  
         V343 = make_fixnum(V333);  
         V339= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V342,V343));  
         V340= 0;  
         V341= 0;  
 goto T596;  
 T596:;  
         if(!((V340)>=(V333))){  
         goto T597;}  
         {object V344 = (V339);  
         VMR23(V344)}  
 goto T597;  
 T597:;  
         if(!((V334)<=(V340))){  
         goto T603;}  
         if(!((V340)<(V335))){  
         goto T603;}  
         if(!((V341)<(V338))){  
         goto T603;}  
         base[0]= elt((V325),V340);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V332));  
         vs_top=sup;  
         V345= vs_base[0];  
         if(((*(LnkLI41))((V327),(V328),(V324),V345))==Cnil){  
         goto T603;}  
         (void)(elt_set((V339),V340,(V323)));  
         V341= (long)(1)+(V341);  
         goto T601;  
 goto T603;  
 T603:;  
         V346= elt((V325),V340);  
         (void)(elt_set((V339),V340,/* INLINE-ARGS */V346));  
 goto T601;  
 T601:;  
         V340= (long)(1)+(V340);  
         goto T596;}  
1676  goto T590;  goto T590;
1677  T590:;  T590:;
1678          {register object V347;          if(((V328))!=Cnil){
1679          register long V348;          goto T592;}
1680          register long V349;          {register object V341;
1681          V350= (*(LnkLI47))((V325));          register long V342;
1682          V351 = make_fixnum(V333);          register long V343;
1683          V347= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V350,V351));          V344= (*(LnkLI47))((V327));
1684          V348= (long)(-1)+(V333);          V345 = make_fixnum(V335);
1685          V349= 0;          V341= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V344,V345));
1686  goto T622;          V342= 0;
1687  T622:;          V343= 0;
1688          if(!((V348)<(0))){  goto T598;
1689          goto T623;}  T598:;
1690          {object V352 = (V347);          if(!((V342)>=(V335))){
1691          VMR23(V352)}          goto T599;}
1692  goto T623;          {object V346 = (V341);
1693  T623:;          VMR23(V346)}
1694          if(!((V334)<=(V348))){  goto T599;
1695          goto T629;}  T599:;
1696          if(!((V348)<(V335))){          if(!((V336)<=(V342))){
1697          goto T629;}          goto T605;}
1698          if(!((V349)<(V338))){          if(!((V342)<(V337))){
1699          goto T629;}          goto T605;}
1700          base[0]= elt((V325),V348);          if(!((V343)<(V340))){
1701          vs_top=(vs_base=base+0)+1;          goto T605;}
1702          super_funcall_no_event((V332));          base[0]= elt((V327),V342);
1703          vs_top=sup;          vs_top=(vs_base=base+0)+1;
1704          V353= vs_base[0];          super_funcall_no_event((V334));
1705          if(((*(LnkLI41))((V327),(V328),(V324),V353))==Cnil){          vs_top=sup;
1706          goto T629;}          V347= vs_base[0];
1707          (void)(elt_set((V347),V348,(V323)));          if(((*(LnkLI41))((V329),(V330),(V326),V347))==Cnil){
1708          V349= (long)(1)+(V349);          goto T605;}
1709          goto T627;          (void)(elt_set((V341),V342,(V325)));
1710            V343= (long)(1)+(V343);
1711            goto T603;
1712    goto T605;
1713    T605:;
1714            V348= elt((V327),V342);
1715            (void)(elt_set((V341),V342,/* INLINE-ARGS */V348));
1716    goto T603;
1717    T603:;
1718            V342= (long)(1)+(V342);
1719            goto T598;}
1720    goto T592;
1721    T592:;
1722            {register object V349;
1723            register long V350;
1724            register long V351;
1725            V352= (*(LnkLI47))((V327));
1726            V353 = make_fixnum(V335);
1727            V349= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V352,V353));
1728            V350= (long)(-1)+(V335);
1729            V351= 0;
1730    goto T624;
1731    T624:;
1732            if(!((V350)<(0))){
1733            goto T625;}
1734            {object V354 = (V349);
1735            VMR23(V354)}
1736    goto T625;
1737    T625:;
1738            if(!((V336)<=(V350))){
1739            goto T631;}
1740            if(!((V350)<(V337))){
1741            goto T631;}
1742            if(!((V351)<(V340))){
1743            goto T631;}
1744            base[0]= elt((V327),V350);
1745            vs_top=(vs_base=base+0)+1;
1746            super_funcall_no_event((V334));
1747            vs_top=sup;
1748            V355= vs_base[0];
1749            if(((*(LnkLI41))((V329),(V330),(V326),V355))==Cnil){
1750            goto T631;}
1751            (void)(elt_set((V349),V350,(V325)));
1752            V351= (long)(1)+(V351);
1753            goto T629;
1754    goto T631;
1755    T631:;
1756            V356= elt((V327),V350);
1757            (void)(elt_set((V349),V350,/* INLINE-ARGS */V356));
1758  goto T629;  goto T629;
1759  T629:;  T629:;
1760          V354= elt((V325),V348);          V350= (long)(-1)+(V350);
1761          (void)(elt_set((V347),V348,/* INLINE-ARGS */V354));          goto T624;}}}}}
 goto T627;  
 T627:;  
         V348= (long)(-1)+(V348);  
         goto T622;}}}}}  
1762          va_end(ap);          va_end(ap);
1763          base[0]=base[0];          base[0]=base[0];
1764          return Cnil;}          return Cnil;}
1765          }}          }}
1766  /*      local entry for function SUBSTITUTE-IF  */  /*      local entry for function SUBSTITUTE-IF  */
1767    
1768  static object LI24(V357,V356,V355,va_alist)  static object LI24(V359,V358,V357,va_alist)
1769          object V357,V356,V355;          object V359,V358,V357;
1770          va_dcl          va_dcl
1771  {        {      
1772          va_list ap;          va_list ap;
1773          int narg = VFUN_NARGS; VMB24 VMS24 VMV24          int narg = VFUN_NARGS; VMB24 VMS24 VMV24
1774          {object V358;          {object V360;
         object V359;  
         object V360;  
1775          object V361;          object V361;
1776          object V362;          object V362;
1777          object V363;          object V363;
1778          object V364;          object V364;
1779          object V365;          object V365;
1780            object V366;
1781            object V367;
1782          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1783          va_start(ap);          va_start(ap);
1784          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1785          V358= V357;          V360= V359;
1786          V359= V356;          V361= V358;
1787          V360= V355;          V362= V357;
1788          narg= narg - 3;          narg= narg - 3;
1789          {          {
1790          parse_key_new(narg,Vcs +3,(struct key *)&LI24key,ap);          parse_key_new(narg,Vcs +3,(struct key *)&LI24key,ap);
1791          V361=(Vcs[3]);          V363=(Vcs[3]);
1792          V362=(Vcs[4]);          V364=(Vcs[4]);
1793          V363=(Vcs[5]);          V365=(Vcs[5]);
1794          V364=(Vcs[6]);          V366=(Vcs[6]);
1795          if(Vcs[7]==0){          if(Vcs[7]==0){
1796          V365= symbol_function(VV[33]);          V367= symbol_function(VV[33]);
1797          }else{          }else{
1798          V365=(Vcs[7]);}          V367=(Vcs[7]);}
1799          if(!(((V365))==(Cnil))){          if(!(((V367))==(Cnil))){
1800          goto T645;}          goto T647;}
1801          V365= symbol_function(VV[33]);          V367= symbol_function(VV[33]);
1802  goto T645;  goto T647;
1803  T645:;  T647:;
1804          V366= symbol_function(VV[44]);          V368= symbol_function(VV[44]);
1805          {object V367 = (VFUN_NARGS=15,(*(LnkLI49))((V358),(V359),(V360),VV[10],(V361),VV[11],V366,VV[13],(V362),VV[14],(V363),VV[15],(V364),VV[16],(V365)));          {object V369 = (VFUN_NARGS=15,(*(LnkLI49))((V360),(V361),(V362),VV[10],(V363),VV[11],V368,VV[13],(V364),VV[14],(V365),VV[15],(V366),VV[16],(V367)));
1806          VMR24(V367)}          VMR24(V369)}
1807          va_end(ap);          va_end(ap);
1808          return Cnil;}          return Cnil;}
1809          }}          }}
1810  /*      local entry for function SUBSTITUTE-IF-NOT      */  /*      local entry for function SUBSTITUTE-IF-NOT      */
1811    
1812  static object LI25(V370,V369,V368,va_alist)  static object LI25(V372,V371,V370,va_alist)
1813          object V370,V369,V368;          object V372,V371,V370;
1814          va_dcl          va_dcl
1815  {        {      
1816          va_list ap;          va_list ap;
1817          int narg = VFUN_NARGS; VMB25 VMS25 VMV25          int narg = VFUN_NARGS; VMB25 VMS25 VMV25
1818          {object V371;          {object V373;
         object V372;  
         object V373;  
1819          object V374;          object V374;
1820          object V375;          object V375;
1821          object V376;          object V376;
1822          object V377;          object V377;
1823          object V378;          object V378;
1824            object V379;
1825            object V380;
1826          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1827          va_start(ap);          va_start(ap);
1828          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1829          V371= V370;          V373= V372;
1830          V372= V369;          V374= V371;
1831          V373= V368;          V375= V370;
1832          narg= narg - 3;          narg= narg - 3;
1833          {          {
1834          parse_key_new(narg,Vcs +3,(struct key *)&LI25key,ap);          parse_key_new(narg,Vcs +3,(struct key *)&LI25key,ap);
1835          V374=(Vcs[3]);          V376=(Vcs[3]);
1836          V375=(Vcs[4]);          V377=(Vcs[4]);
1837          V376=(Vcs[5]);          V378=(Vcs[5]);
1838          V377=(Vcs[6]);          V379=(Vcs[6]);
1839          if(Vcs[7]==0){          if(Vcs[7]==0){
1840          V378= symbol_function(VV[33]);          V380= symbol_function(VV[33]);
1841          }else{          }else{
1842          V378=(Vcs[7]);}          V380=(Vcs[7]);}
1843          if(!(((V378))==(Cnil))){          if(!(((V380))==(Cnil))){
1844          goto T651;}          goto T653;}
1845          V378= symbol_function(VV[33]);          V380= symbol_function(VV[33]);
1846  goto T651;  goto T653;
1847  T651:;  T653:;
1848          V379= symbol_function(VV[44]);          V381= symbol_function(VV[44]);
1849          {object V380 = (VFUN_NARGS=15,(*(LnkLI49))((V371),(V372),(V373),VV[10],(V374),VV[12],V379,VV[13],(V375),VV[14],(V376),VV[15],(V377),VV[16],(V378)));          {object V382 = (VFUN_NARGS=15,(*(LnkLI49))((V373),(V374),(V375),VV[10],(V376),VV[12],V381,VV[13],(V377),VV[14],(V378),VV[15],(V379),VV[16],(V380)));
1850          VMR25(V380)}          VMR25(V382)}
1851          va_end(ap);          va_end(ap);
1852          return Cnil;}          return Cnil;}
1853          }}          }}
1854  /*      local entry for function NSUBSTITUTE    */  /*      local entry for function NSUBSTITUTE    */
1855    
1856  static object LI26(V383,V382,V381,va_alist)  static object LI26(V385,V384,V383,va_alist)
1857          object V383,V382,V381;          object V385,V384,V383;
1858          va_dcl          va_dcl
1859  {        {      
1860          va_list ap;          va_list ap;
1861          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
1862          {object V384;          {object V386;
         object V385;  
         register object V386;  
1863          object V387;          object V387;
1864          object V388;          register object V388;
1865          object V389;          object V389;
1866          object V390;          object V390;
1867          object V391;          object V391;
1868          object V392;          object V392;
1869          register object V393;          object V393;
1870            object V394;
1871            register object V395;
1872          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1873          va_start(ap);          va_start(ap);
1874          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1875          V384= V383;          V386= V385;
1876          V385= V382;          V387= V384;
1877          V386= V381;          V388= V383;
1878          narg= narg - 3;          narg= narg - 3;
1879          {          {
1880          parse_key_new(narg,Vcs +3,(struct key *)&LI26key,ap);          parse_key_new(narg,Vcs +3,(struct key *)&LI26key,ap);
1881          V387=(Vcs[3]);          V389=(Vcs[3]);
1882          V388=(Vcs[4]);          V390=(Vcs[4]);
1883          V389=(Vcs[5]);          V391=(Vcs[5]);
1884          V390=(Vcs[6]);          V392=(Vcs[6]);
1885          V391=(Vcs[7]);          V393=(Vcs[7]);
1886          V392=(Vcs[8]);          V394=(Vcs[8]);
1887          if(Vcs[9]==0){          if(Vcs[9]==0){
1888          V393= symbol_function(VV[33]);          V395= symbol_function(VV[33]);
1889          }else{          }else{
1890          V393=(Vcs[9]);}          V395=(Vcs[9]);}
1891          if(!(((V393))==(Cnil))){          if(!(((V395))==(Cnil))){
1892          goto T657;}          goto T659;}
1893          V393= symbol_function(VV[33]);          V395= symbol_function(VV[33]);
1894  goto T657;  goto T659;
1895  T657:;  T659:;
1896          {long V394;          {long V396;
1897          if(((V390))==Cnil){          if(((V392))==Cnil){
1898          goto T663;}          goto T665;}
1899          V394= (long)(*(LnkLI34))((V390));          V396= (long)(*(LnkLI34))((V392));
1900          goto T661;          goto T663;
1901    goto T665;
1902    T665:;
1903            V396= 0;
1904  goto T663;  goto T663;
1905  T663:;  T663:;
1906          V394= 0;          {long V397;
1907  goto T661;          V397= (long)(*(LnkLI35))((V393),(V388));
1908  T661:;          if(!((V396)<=(V397))){
1909          {long V395;          goto T669;}
1910          V395= (long)(*(LnkLI35))((V391),(V386));          goto T668;
         if(!((V394)<=(V395))){  
         goto T667;}  
         goto T666;  
 goto T667;  
 T667:;  
         V396 = make_fixnum(V394);  
         V397 = make_fixnum(V395);  
         (void)((VFUN_NARGS=2,(*(LnkLI31))(V396,V397)));  
 goto T666;  
 T666:;  
         {long V398;  
         if(((V392))!=Cnil){  
         goto T671;}  
         V398= 2147483647;  
         goto T669;  
 goto T671;  
 T671:;  
         V398= fix((V392));  
1911  goto T669;  goto T669;
1912  T669:;  T669:;
1913          if((V388)==Cnil){          V398 = make_fixnum(V396);
1914          goto T674;}          V399 = make_fixnum(V397);
1915          if((V389)==Cnil){          (void)((VFUN_NARGS=2,(*(LnkLI31))(V398,V399)));
1916          goto T674;}  goto T668;
1917          (void)((*(LnkLI40))());  T668:;
1918  goto T674;          {long V400;
1919  T674:;          if(((V394))!=Cnil){
1920          if(((V387))!=Cnil){          goto T673;}
1921            V400= 2147483647;
1922            goto T671;
1923    goto T673;
1924    T673:;
1925            V400= fix((V394));
1926    goto T671;
1927    T671:;
1928            if((V390)==Cnil){
1929          goto T676;}          goto T676;}
1930          {register long V399;          if((V391)==Cnil){
1931          register long V400;          goto T676;}
1932          V399= V394;          (void)((*(LnkLI40))());
         V400= 0;  
 goto T681;  
 T681:;  
         if(!((V399)>=(V395))){  
         goto T682;}  
         {object V401 = (V386);  
         VMR26(V401)}  
 goto T682;  
 T682:;  
         if(!((V400)<(V398))){  
         goto T686;}  
         base[0]= elt((V386),V399);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V393));  
         vs_top=sup;  
         V402= vs_base[0];  
         if(((*(LnkLI41))((V388),(V389),(V385),V402))==Cnil){  
         goto T686;}  
         (void)(elt_set((V386),V399,(V384)));  
         V400= (long)(1)+(V400);  
 goto T686;  
 T686:;  
         V399= (long)(1)+(V399);  
         goto T681;}  
1933  goto T676;  goto T676;
1934  T676:;  T676:;
1935          {register long V403;          if(((V389))!=Cnil){
1936          register long V404;          goto T678;}
1937          V403= (long)(-1)+(V395);          {register long V401;
1938          V404= 0;          register long V402;
1939  goto T701;          V401= V396;
1940  T701:;          V402= 0;
1941          if(!((V403)<(V394))){  goto T683;
1942          goto T702;}  T683:;
1943          {object V405 = (V386);          if(!((V401)>=(V397))){
1944          VMR26(V405)}          goto T684;}
1945  goto T702;          {object V403 = (V388);
1946  T702:;          VMR26(V403)}
1947          if(!((V404)<(V398))){  goto T684;
1948          goto T706;}  T684:;
1949          base[0]= elt((V386),V403);          if(!((V402)<(V400))){
1950          vs_top=(vs_base=base+0)+1;          goto T688;}
1951          super_funcall_no_event((V393));          base[0]= elt((V388),V401);
1952          vs_top=sup;          vs_top=(vs_base=base+0)+1;
1953          V406= vs_base[0];          super_funcall_no_event((V395));
1954          if(((*(LnkLI41))((V388),(V389),(V385),V406))==Cnil){          vs_top=sup;
1955          goto T706;}          V404= vs_base[0];
1956          (void)(elt_set((V386),V403,(V384)));          if(((*(LnkLI41))((V390),(V391),(V387),V404))==Cnil){
1957          V404= (long)(1)+(V404);          goto T688;}
1958  goto T706;          (void)(elt_set((V388),V401,(V386)));
1959  T706:;          V402= (long)(1)+(V402);
1960          V403= (long)(-1)+(V403);  goto T688;
1961          goto T701;}}}}  T688:;
1962            V401= (long)(1)+(V401);
1963            goto T683;}
1964    goto T678;
1965    T678:;
1966            {register long V405;
1967            register long V406;
1968            V405= (long)(-1)+(V397);
1969            V406= 0;
1970    goto T703;
1971    T703:;
1972            if(!((V405)<(V396))){
1973            goto T704;}
1974            {object V407 = (V388);
1975            VMR26(V407)}
1976    goto T704;
1977    T704:;
1978            if(!((V406)<(V400))){
1979            goto T708;}
1980            base[0]= elt((V388),V405);
1981            vs_top=(vs_base=base+0)+1;
1982            super_funcall_no_event((V395));
1983            vs_top=sup;
1984            V408= vs_base[0];
1985            if(((*(LnkLI41))((V390),(V391),(V387),V408))==Cnil){
1986            goto T708;}
1987            (void)(elt_set((V388),V405,(V386)));
1988            V406= (long)(1)+(V406);
1989    goto T708;
1990    T708:;
1991            V405= (long)(-1)+(V405);
1992            goto T703;}}}}
1993          va_end(ap);          va_end(ap);
1994          base[0]=base[0];          base[0]=base[0];
1995          return Cnil;}          return Cnil;}
1996          }}          }}
1997  /*      local entry for function NSUBSTITUTE-IF */  /*      local entry for function NSUBSTITUTE-IF */
1998    
1999  static object LI27(V409,V408,V407,va_alist)  static object LI27(V411,V410,V409,va_alist)
2000          object V409,V408,V407;          object V411,V410,V409;
2001          va_dcl          va_dcl
2002  {        {      
2003          va_list ap;          va_list ap;
2004          int narg = VFUN_NARGS; VMB27 VMS27 VMV27          int narg = VFUN_NARGS; VMB27 VMS27 VMV27
2005          {object V410;          {object V412;
         object V411;  
         object V412;  
2006          object V413;          object V413;
2007          object V414;          object V414;
2008          object V415;          object V415;
2009          object V416;          object V416;
2010          object V417;          object V417;
2011            object V418;
2012            object V419;
2013          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2014          va_start(ap);          va_start(ap);
2015          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
2016          V410= V409;          V412= V411;
2017          V411= V408;          V413= V410;
2018          V412= V407;          V414= V409;
2019          narg= narg - 3;          narg= narg - 3;
2020          {          {
2021          parse_key_new(narg,Vcs +3,(struct key *)&LI27key,ap);          parse_key_new(narg,Vcs +3,(struct key *)&LI27key,ap);
2022          V413=(Vcs[3]);          V415=(Vcs[3]);
2023          V414=(Vcs[4]);          V416=(Vcs[4]);
2024          V415=(Vcs[5]);          V417=(Vcs[5]);
2025          V416=(Vcs[6]);          V418=(Vcs[6]);
2026          if(Vcs[7]==0){          if(Vcs[7]==0){
2027          V417= symbol_function(VV[33]);          V419= symbol_function(VV[33]);
2028          }else{          }else{
2029          V417=(Vcs[7]);}          V419=(Vcs[7]);}
2030          if(!(((V417))==(Cnil))){          if(!(((V419))==(Cnil))){
2031          goto T719;}          goto T721;}
2032          V417= symbol_function(VV[33]);          V419= symbol_function(VV[33]);
2033  goto T719;  goto T721;
2034  T719:;  T721:;
2035          V418= symbol_function(VV[44]);          V420= symbol_function(VV[44]);
2036          {object V419 = (VFUN_NARGS=15,(*(LnkLI50))((V410),(V411),(V412),VV[10],(V413),VV[11],V418,VV[13],(V414),VV[14],(V415),VV[15],(V416),VV[16],(V417)));          {object V421 = (VFUN_NARGS=15,(*(LnkLI50))((V412),(V413),(V414),VV[10],(V415),VV[11],V420,VV[13],(V416),VV[14],(V417),VV[15],(V418),VV[16],(V419)));
2037          VMR27(V419)}          VMR27(V421)}
2038          va_end(ap);          va_end(ap);
2039          return Cnil;}          return Cnil;}
2040          }}          }}
2041  /*      local entry for function NSUBSTITUTE-IF-NOT     */  /*      local entry for function NSUBSTITUTE-IF-NOT     */
2042    
2043  static object LI28(V422,V421,V420,va_alist)  static object LI28(V424,V423,V422,va_alist)
2044          object V422,V421,V420;          object V424,V423,V422;
2045          va_dcl          va_dcl
2046  {        {      
2047          va_list ap;          va_list ap;
2048          int narg = VFUN_NARGS; VMB28 VMS28 VMV28          int narg = VFUN_NARGS; VMB28 VMS28 VMV28
2049          {object V423;          {object V425;
         object V424;  
         object V425;  
2050          object V426;          object V426;
2051          object V427;          object V427;
2052          object V428;          object V428;
2053          object V429;          object V429;
2054          object V430;          object V430;
2055            object V431;
2056            object V432;
2057          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2058          va_start(ap);          va_start(ap);
2059          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
2060          V423= V422;          V425= V424;
2061          V424= V421;          V426= V423;
2062          V425= V420;          V427= V422;
2063          narg= narg - 3;          narg= narg - 3;
2064          {          {
2065          parse_key_new(narg,Vcs +3,(struct key *)&LI28key,ap);          parse_key_new(narg,Vcs +3,(struct key *)&LI28key,ap);
2066          V426=(Vcs[3]);          V428=(Vcs[3]);
2067          V427=(Vcs[4]);          V429=(Vcs[4]);
2068          V428=(Vcs[5]);          V430=(Vcs[5]);
2069          V429=(Vcs[6]);          V431=(Vcs[6]);
2070          if(Vcs[7]==0){          if(Vcs[7]==0){
2071          V430= symbol_function(VV[33]);          V432= symbol_function(VV[33]);
2072          }else{          }else{
2073          V430=(Vcs[7]);}          V432=(Vcs[7]);}
2074          if(!(((V430))==(Cnil))){          if(!(((V432))==(Cnil))){
2075          goto T725;}          goto T727;}
2076          V430= symbol_function(VV[33]);          V432= symbol_function(VV[33]);
2077  goto T725;  goto T727;
2078  T725:;  T727:;
2079          V431= symbol_function(VV[44]);          V433= symbol_function(VV[44]);
2080          {object V432 = (VFUN_NARGS=15,(*(LnkLI50))((V423),(V424),(V425),VV[10],(V426),VV[12],V431,VV[13],(V427),VV[14],(V428),VV[15],(V429),VV[16],(V430)));          {object V434 = (VFUN_NARGS=15,(*(LnkLI50))((V425),(V426),(V427),VV[10],(V428),VV[12],V433,VV[13],(V429),VV[14],(V430),VV[15],(V431),VV[16],(V432)));
2081          VMR28(V432)}          VMR28(V434)}
2082          va_end(ap);          va_end(ap);
2083          return Cnil;}          return Cnil;}
2084          }}          }}
2085  /*      local entry for function FIND   */  /*      local entry for function FIND   */
2086    
2087  static object LI29(V434,V433,va_alist)  static object LI29(V436,V435,va_alist)
2088          object V434,V433;          object V436,V435;
2089          va_dcl          va_dcl
2090  {        {      
2091          va_list ap;          va_list ap;
2092          int narg = VFUN_NARGS; VMB29 VMS29 VMV29          int narg = VFUN_NARGS; VMB29 VMS29 VMV29
2093          {object V435;          {object V437;
         register object V436;  
         object V437;  
2094          register object V438;          register object V438;
2095          register object V439;          object V439;
2096          object V440;          register object V440;
2097          object V441;          register object V441;
2098          register object V442;          object V442;
2099            object V443;
2100            register object V444;
2101          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2102          va_start(ap);          va_start(ap);
2103          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2104          V435= V434;          V437= V436;
2105          V436= V433;          V438= V435;
2106          narg= narg - 2;          narg= narg - 2;
2107          {          {
2108          parse_key_new(narg,Vcs +2,(struct key *)&LI29key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI29key,ap);
2109          V437=(Vcs[2]);          V439=(Vcs[2]);
2110          V438=(Vcs[3]);          V440=(Vcs[3]);
2111          V439=(Vcs[4]);          V441=(Vcs[4]);
2112          V440=(Vcs[5]);          V442=(Vcs[5]);
2113          V441=(Vcs[6]);          V443=(Vcs[6]);
2114          if(Vcs[7]==0){          if(Vcs[7]==0){
2115          V442= symbol_function(VV[33]);          V444= symbol_function(VV[33]);
2116          }else{          }else{
2117          V442=(Vcs[7]);}          V444=(Vcs[7]);}
2118          if(!(((V442))==(Cnil))){          if(!(((V444))==(Cnil))){
2119          goto T731;}          goto T733;}
2120          V442= symbol_function(VV[33]);          V444= symbol_function(VV[33]);
2121  goto T731;  goto T733;
2122  T731:;  T733:;
2123          {long V443;          {long V445;
2124          if(((V440))==Cnil){          if(((V442))==Cnil){
2125          goto T737;}          goto T739;}
2126          V443= (long)(*(LnkLI34))((V440));          V445= (long)(*(LnkLI34))((V442));
2127          goto T735;          goto T737;
2128    goto T739;
2129    T739:;
2130            V445= 0;
2131  goto T737;  goto T737;
2132  T737:;  T737:;
2133          V443= 0;          {long V446;
2134  goto T735;          V446= (long)(*(LnkLI35))((V443),(V438));
2135  T735:;          if(!((V445)<=(V446))){
         {long V444;  
         V444= (long)(*(LnkLI35))((V441),(V436));  
         if(!((V443)<=(V444))){  
         goto T741;}  
         goto T740;  
 goto T741;  
 T741:;  
         V445 = make_fixnum(V443);  
         V446 = make_fixnum(V444);  
         (void)((VFUN_NARGS=2,(*(LnkLI31))(V445,V446)));  
 goto T740;  
 T740:;  
         if((V438)==Cnil){  
2136          goto T743;}          goto T743;}
2137          if((V439)==Cnil){          goto T742;
         goto T743;}  
         (void)((*(LnkLI40))());  
2138  goto T743;  goto T743;
2139  T743:;  T743:;
2140          if(((V437))!=Cnil){          V447 = make_fixnum(V445);
2141            V448 = make_fixnum(V446);
2142            (void)((VFUN_NARGS=2,(*(LnkLI31))(V447,V448)));
2143    goto T742;
2144    T742:;
2145            if((V440)==Cnil){
2146          goto T745;}          goto T745;}
2147          {register long V447;          if((V441)==Cnil){
2148          V447= V443;          goto T745;}
2149  goto T749;          (void)((*(LnkLI40))());
 T749:;  
         if(!((V447)>=(V444))){  
         goto T750;}  
         {object V448 = Cnil;  
         VMR29(V448)}  
 goto T750;  
 T750:;  
         base[0]= elt((V436),V447);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V442));  
         vs_top=sup;  
         V449= vs_base[0];  
         if(((*(LnkLI41))((V438),(V439),(V435),V449))==Cnil){  
         goto T754;}  
         {object V450 = elt((V436),V447);  
         VMR29(V450)}  
 goto T754;  
 T754:;  
         V447= (long)(1)+(V447);  
         goto T749;}  
2150  goto T745;  goto T745;
2151  T745:;  T745:;
2152          {register long V451;          if(((V439))!=Cnil){
2153          V451= (long)(-1)+(V444);          goto T747;}
2154  goto T764;          {register long V449;
2155  T764:;          V449= V445;
2156          if(!((V451)<(V443))){  goto T751;
2157          goto T765;}  T751:;
2158          {object V452 = Cnil;          if(!((V449)>=(V446))){
2159            goto T752;}
2160            {object V450 = Cnil;
2161            VMR29(V450)}
2162    goto T752;
2163    T752:;
2164            base[0]= elt((V438),V449);
2165            vs_top=(vs_base=base+0)+1;
2166            super_funcall_no_event((V444));
2167            vs_top=sup;
2168            V451= vs_base[0];
2169            if(((*(LnkLI41))((V440),(V441),(V437),V451))==Cnil){
2170            goto T756;}
2171            {object V452 = elt((V438),V449);
2172          VMR29(V452)}          VMR29(V452)}
2173  goto T765;  goto T756;
2174  T765:;  T756:;
2175          base[0]= elt((V436),V451);          V449= (long)(1)+(V449);
2176          vs_top=(vs_base=base+0)+1;          goto T751;}
2177          super_funcall_no_event((V442));  goto T747;
2178          vs_top=sup;  T747:;
2179          V453= vs_base[0];          {register long V453;
2180          if(((*(LnkLI41))((V438),(V439),(V435),V453))==Cnil){          V453= (long)(-1)+(V446);
2181          goto T769;}  goto T766;
2182          {object V454 = elt((V436),V451);  T766:;
2183            if(!((V453)<(V445))){
2184            goto T767;}
2185            {object V454 = Cnil;
2186          VMR29(V454)}          VMR29(V454)}
2187  goto T769;  goto T767;
2188  T769:;  T767:;
2189          V451= (long)(-1)+(V451);          base[0]= elt((V438),V453);
2190          goto T764;}}}          vs_top=(vs_base=base+0)+1;
2191            super_funcall_no_event((V444));
2192            vs_top=sup;
2193            V455= vs_base[0];
2194            if(((*(LnkLI41))((V440),(V441),(V437),V455))==Cnil){
2195            goto T771;}
2196            {object V456 = elt((V438),V453);
2197            VMR29(V456)}
2198    goto T771;
2199    T771:;
2200            V453= (long)(-1)+(V453);
2201            goto T766;}}}
2202          va_end(ap);          va_end(ap);
2203          base[0]=base[0];          base[0]=base[0];
2204          return Cnil;}          return Cnil;}
2205          }}          }}
2206  /*      local entry for function FIND-IF        */  /*      local entry for function FIND-IF        */
2207    
2208  static object LI30(V456,V455,va_alist)  static object LI30(V458,V457,va_alist)
2209          object V456,V455;          object V458,V457;
2210          va_dcl          va_dcl
2211  {        {      
2212          va_list ap;          va_list ap;
2213          int narg = VFUN_NARGS; VMB30 VMS30 VMV30          int narg = VFUN_NARGS; VMB30 VMS30 VMV30
2214          {object V457;          {object V459;
         object V458;  
         object V459;  
2215          object V460;          object V460;
2216          object V461;          object V461;
2217          object V462;          object V462;
2218            object V463;
2219            object V464;
2220          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2221          va_start(ap);          va_start(ap);
2222          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2223          V457= V456;          V459= V458;
2224          V458= V455;          V460= V457;
2225          narg= narg - 2;          narg= narg - 2;
2226          {          {
2227          parse_key_new(narg,Vcs +2,(struct key *)&LI30key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI30key,ap);
2228          V459=(Vcs[2]);          V461=(Vcs[2]);
2229          V460=(Vcs[3]);          V462=(Vcs[3]);
2230          V461=(Vcs[4]);          V463=(Vcs[4]);
2231          if(Vcs[5]==0){          if(Vcs[5]==0){
2232          V462= symbol_function(VV[33]);          V464= symbol_function(VV[33]);
2233          }else{          }else{
2234          V462=(Vcs[5]);}          V464=(Vcs[5]);}
2235          if(!(((V462))==(Cnil))){          if(!(((V464))==(Cnil))){
2236          goto T778;}          goto T780;}
2237          V462= symbol_function(VV[33]);          V464= symbol_function(VV[33]);
2238  goto T778;  goto T780;
2239  T778:;  T780:;
2240          V463= symbol_function(VV[44]);          V465= symbol_function(VV[44]);
2241          {object V464 = (VFUN_NARGS=12,(*(LnkLI51))((V457),(V458),VV[10],(V459),VV[11],V463,VV[13],(V460),VV[14],(V461),VV[16],(V462)));          {object V466 = (VFUN_NARGS=12,(*(LnkLI51))((V459),(V460),VV[10],(V461),VV[11],V465,VV[13],(V462),VV[14],(V463),VV[16],(V464)));
2242          VMR30(V464)}          VMR30(V466)}
2243          va_end(ap);          va_end(ap);
2244          return Cnil;}          return Cnil;}
2245          }}          }}
2246  /*      local entry for function FIND-IF-NOT    */  /*      local entry for function FIND-IF-NOT    */
2247    
2248  static object LI31(V466,V465,va_alist)  static object LI31(V468,V467,va_alist)
2249          object V466,V465;          object V468,V467;
2250          va_dcl          va_dcl
2251  {        {      
2252          va_list ap;          va_list ap;
2253          int narg = VFUN_NARGS; VMB31 VMS31 VMV31          int narg = VFUN_NARGS; VMB31 VMS31 VMV31
2254          {object V467;          {object V469;
         object V468;  
         object V469;  
2255          object V470;          object V470;
2256          object V471;          object V471;
2257          object V472;          object V472;
2258            object V473;
2259            object V474;
2260          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2261          va_start(ap);          va_start(ap);
2262          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2263          V467= V466;          V469= V468;
2264          V468= V465;          V470= V467;
2265          narg= narg - 2;          narg= narg - 2;
2266          {          {
2267          parse_key_new(narg,Vcs +2,(struct key *)&LI31key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI31key,ap);
2268          V469=(Vcs[2]);          V471=(Vcs[2]);
2269          V470=(Vcs[3]);          V472=(Vcs[3]);
2270          V471=(Vcs[4]);          V473=(Vcs[4]);
2271          if(Vcs[5]==0){          if(Vcs[5]==0){
2272          V472= symbol_function(VV[33]);          V474= symbol_function(VV[33]);
2273          }else{          }else{
2274          V472=(Vcs[5]);}          V474=(Vcs[5]);}
2275          if(!(((V472))==(Cnil))){          if(!(((V474))==(Cnil))){
2276          goto T784;}          goto T786;}
2277          V472= symbol_function(VV[33]);          V474= symbol_function(VV[33]);
2278  goto T784;  goto T786;
2279  T784:;  T786:;
2280          V473= symbol_function(VV[44]);          V475= symbol_function(VV[44]);
2281          {object V474 = (VFUN_NARGS=12,(*(LnkLI51))((V467),(V468),VV[10],(V469),VV[12],V473,VV[13],(V470),VV[14],(V471),VV[16],(V472)));          {object V476 = (VFUN_NARGS=12,(*(LnkLI51))((V469),(V470),VV[10],(V471),VV[12],V475,VV[13],(V472),VV[14],(V473),VV[16],(V474)));
2282          VMR31(V474)}          VMR31(V476)}
2283          va_end(ap);          va_end(ap);
2284          return Cnil;}          return Cnil;}
2285          }}          }}
2286  /*      local entry for function POSITION       */  /*      local entry for function POSITION       */
2287    
2288  static object LI32(V476,V475,va_alist)  static object LI32(V478,V477,va_alist)
2289          object V476,V475;          object V478,V477;
2290          va_dcl          va_dcl
2291  {        {      
2292          va_list ap;          va_list ap;
2293          int narg = VFUN_NARGS; VMB32 VMS32 VMV32          int narg = VFUN_NARGS; VMB32 VMS32 VMV32
2294          {object V477;          {object V479;
         register object V478;  
         object V479;  
2295          register object V480;          register object V480;
2296          register object V481;          object V481;
2297          object V482;          register object V482;
2298          object V483;          register object V483;
2299          register object V484;          object V484;
2300            object V485;
2301            register object V486;
2302          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2303          va_start(ap);          va_start(ap);
2304          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2305          V477= V476;          V479= V478;
2306          V478= V475;          V480= V477;
2307          narg= narg - 2;          narg= narg - 2;
2308          {          {
2309          parse_key_new(narg,Vcs +2,(struct key *)&LI32key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI32key,ap);
2310          V479=(Vcs[2]);          V481=(Vcs[2]);
2311          V480=(Vcs[3]);          V482=(Vcs[3]);
2312          V481=(Vcs[4]);          V483=(Vcs[4]);
2313          V482=(Vcs[5]);          V484=(Vcs[5]);
2314          V483=(Vcs[6]);          V485=(Vcs[6]);
2315          if(Vcs[7]==0){          if(Vcs[7]==0){
2316          V484= symbol_function(VV[33]);          V486= symbol_function(VV[33]);
2317          }else{          }else{
2318          V484=(Vcs[7]);}          V486=(Vcs[7]);}
2319          if(!(((V484))==(Cnil))){          if(!(((V486))==(Cnil))){
2320          goto T790;}          goto T792;}
2321          V484= symbol_function(VV[33]);          V486= symbol_function(VV[33]);
2322  goto T790;  goto T792;
2323  T790:;  T792:;
2324          {long V485;          {long V487;
2325          if(((V482))==Cnil){          if(((V484))==Cnil){
2326          goto T796;}          goto T798;}
2327          V485= (long)(*(LnkLI34))((V482));          V487= (long)(*(LnkLI34))((V484));
2328          goto T794;          goto T796;
2329    goto T798;
2330    T798:;
2331            V487= 0;
2332  goto T796;  goto T796;
2333  T796:;  T796:;
2334          V485= 0;          {long V488;
2335  goto T794;          V488= (long)(*(LnkLI35))((V485),(V480));
2336  T794:;          if(!((V487)<=(V488))){
         {long V486;  
         V486= (long)(*(LnkLI35))((V483),(V478));  
         if(!((V485)<=(V486))){  
         goto T800;}  
         goto T799;  
 goto T800;  
 T800:;  
         V487 = make_fixnum(V485);  
         V488 = make_fixnum(V486);  
         (void)((VFUN_NARGS=2,(*(LnkLI31))(V487,V488)));  
 goto T799;  
 T799:;  
         if((V480)==Cnil){  
         goto T802;}  
         if((V481)==Cnil){  
2337          goto T802;}          goto T802;}
2338          (void)((*(LnkLI40))());          goto T801;
2339  goto T802;  goto T802;
2340  T802:;  T802:;
2341          if(((V479))!=Cnil){          V489 = make_fixnum(V487);
2342            V490 = make_fixnum(V488);
2343            (void)((VFUN_NARGS=2,(*(LnkLI31))(V489,V490)));
2344    goto T801;
2345    T801:;
2346            if((V482)==Cnil){
2347          goto T804;}          goto T804;}
2348          {register long V489;          if((V483)==Cnil){
2349          V489= V485;          goto T804;}
2350  goto T808;          (void)((*(LnkLI40))());
 T808:;  
         if(!((V489)>=(V486))){  
         goto T809;}  
         {object V490 = Cnil;  
         VMR32(V490)}  
 goto T809;  
 T809:;  
         base[0]= elt((V478),V489);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V484));  
         vs_top=sup;  
         V491= vs_base[0];  
         if(((*(LnkLI41))((V480),(V481),(V477),V491))==Cnil){  
         goto T813;}  
         {object V492 = make_fixnum(V489);  
         VMR32(V492)}  
 goto T813;  
 T813:;  
         V489= (long)(1)+(V489);  
         goto T808;}  
2351  goto T804;  goto T804;
2352  T804:;  T804:;
2353          {register long V493;          if(((V481))!=Cnil){
2354          V493= (long)(-1)+(V486);          goto T806;}
2355  goto T823;          {register long V491;
2356  T823:;          V491= V487;
2357          if(!((V493)<(V485))){  goto T810;
2358          goto T824;}  T810:;
2359          {object V494 = Cnil;          if(!((V491)>=(V488))){
2360            goto T811;}
2361            {object V492 = Cnil;
2362            VMR32(V492)}
2363    goto T811;
2364    T811:;
2365            base[0]= elt((V480),V491);
2366            vs_top=(vs_base=base+0)+1;
2367            super_funcall_no_event((V486));
2368            vs_top=sup;
2369            V493= vs_base[0];
2370            if(((*(LnkLI41))((V482),(V483),(V479),V493))==Cnil){
2371            goto T815;}
2372            {object V494 = make_fixnum(V491);
2373          VMR32(V494)}          VMR32(V494)}
2374  goto T824;  goto T815;
2375  T824:;  T815:;
2376          base[0]= elt((V478),V493);          V491= (long)(1)+(V491);
2377          vs_top=(vs_base=base+0)+1;          goto T810;}
2378          super_funcall_no_event((V484));  goto T806;
2379          vs_top=sup;  T806:;
2380          V495= vs_base[0];          {register long V495;
2381          if(((*(LnkLI41))((V480),(V481),(V477),V495))==Cnil){          V495= (long)(-1)+(V488);
2382          goto T828;}  goto T825;
2383          {object V496 = make_fixnum(V493);  T825:;
2384            if(!((V495)<(V487))){
2385            goto T826;}
2386            {object V496 = Cnil;
2387          VMR32(V496)}          VMR32(V496)}
2388  goto T828;  goto T826;
2389  T828:;  T826:;
2390          V493= (long)(-1)+(V493);          base[0]= elt((V480),V495);
2391          goto T823;}}}          vs_top=(vs_base=base+0)+1;
2392            super_funcall_no_event((V486));
2393            vs_top=sup;
2394            V497= vs_base[0];
2395            if(((*(LnkLI41))((V482),(V483),(V479),V497))==Cnil){
2396            goto T830;}
2397            {object V498 = make_fixnum(V495);
2398            VMR32(V498)}
2399    goto T830;
2400    T830:;
2401            V495= (long)(-1)+(V495);
2402            goto T825;}}}
2403          va_end(ap);          va_end(ap);
2404          base[0]=base[0];          base[0]=base[0];
2405          return Cnil;}          return Cnil;}
2406          }}          }}
2407  /*      local entry for function POSITION-IF    */  /*      local entry for function POSITION-IF    */
2408    
2409  static object LI33(V498,V497,va_alist)  static object LI33(V500,V499,va_alist)
2410          object V498,V497;          object V500,V499;
2411          va_dcl          va_dcl
2412  {        {      
2413          va_list ap;          va_list ap;
2414          int narg = VFUN_NARGS; VMB33 VMS33 VMV33          int narg = VFUN_NARGS; VMB33 VMS33 VMV33
2415          {object V499;          {object V501;
         object V500;  
         object V501;  
2416          object V502;          object V502;
2417          object V503;          object V503;
2418          object V504;          object V504;
2419            object V505;
2420            object V506;
2421          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2422          va_start(ap);          va_start(ap);
2423          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2424          V499= V498;          V501= V500;
2425          V500= V497;          V502= V499;
2426          narg= narg - 2;          narg= narg - 2;
2427          {          {
2428          parse_key_new(narg,Vcs +2,(struct key *)&LI33key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI33key,ap);
2429          V501=(Vcs[2]);          V503=(Vcs[2]);
2430          V502=(Vcs[3]);          V504=(Vcs[3]);
2431          V503=(Vcs[4]);          V505=(Vcs[4]);
2432          if(Vcs[5]==0){          if(Vcs[5]==0){
2433          V504= symbol_function(VV[33]);          V506= symbol_function(VV[33]);
2434          }else{          }else{
2435          V504=(Vcs[5]);}          V506=(Vcs[5]);}
2436          if(!(((V504))==(Cnil))){          if(!(((V506))==(Cnil))){
2437          goto T837;}          goto T839;}
2438          V504= symbol_function(VV[33]);          V506= symbol_function(VV[33]);
2439  goto T837;  goto T839;
2440  T837:;  T839:;
2441          V505= symbol_function(VV[44]);          V507= symbol_function(VV[44]);
2442          {object V506 = (VFUN_NARGS=12,(*(LnkLI52))((V499),(V500),VV[10],(V501),VV[11],V505,VV[13],(V502),VV[14],(V503),VV[16],(V504)));          {object V508 = (VFUN_NARGS=12,(*(LnkLI52))((V501),(V502),VV[10],(V503),VV[11],V507,VV[13],(V504),VV[14],(V505),VV[16],(V506)));
2443          VMR33(V506)}          VMR33(V508)}
2444          va_end(ap);          va_end(ap);
2445          return Cnil;}          return Cnil;}
2446          }}          }}
2447  /*      local entry for function POSITION-IF-NOT        */  /*      local entry for function POSITION-IF-NOT        */
2448    
2449  static object LI34(V508,V507,va_alist)  static object LI34(V510,V509,va_alist)
2450          object V508,V507;          object V510,V509;
2451          va_dcl          va_dcl
2452  {        {      
2453          va_list ap;          va_list ap;
2454          int narg = VFUN_NARGS; VMB34 VMS34 VMV34          int narg = VFUN_NARGS; VMB34 VMS34 VMV34
2455          {object V509;          {object V511;
         object V510;  
         object V511;  
2456          object V512;          object V512;
2457          object V513;          object V513;
2458          object V514;          object V514;
2459            object V515;
2460            object V516;
2461          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2462          va_start(ap);          va_start(ap);
2463          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2464          V509= V508;          V511= V510;
2465          V510= V507;          V512= V509;
2466          narg= narg - 2;          narg= narg - 2;
2467          {          {
2468          parse_key_new(narg,Vcs +2,(struct key *)&LI34key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI34key,ap);
2469          V511=(Vcs[2]);          V513=(Vcs[2]);
2470          V512=(Vcs[3]);          V514=(Vcs[3]);
2471          V513=(Vcs[4]);          V515=(Vcs[4]);
2472          if(Vcs[5]==0){          if(Vcs[5]==0){
2473          V514= symbol_function(VV[33]);          V516= symbol_function(VV[33]);
2474          }else{          }else{
2475          V514=(Vcs[5]);}          V516=(Vcs[5]);}
2476          if(!(((V514))==(Cnil))){          if(!(((V516))==(Cnil))){
2477          goto T843;}          goto T845;}
2478          V514= symbol_function(VV[33]);          V516= symbol_function(VV[33]);
2479  goto T843;  goto T845;
2480  T843:;  T845:;
2481          V515= symbol_function(VV[44]);          V517= symbol_function(VV[44]);
2482          {object V516 = (VFUN_NARGS=12,(*(LnkLI52))((V509),(V510),VV[10],(V511),VV[12],V515,VV[13],(V512),VV[14],(V513),VV[16],(V514)));          {object V518 = (VFUN_NARGS=12,(*(LnkLI52))((V511),(V512),VV[10],(V513),VV[12],V517,VV[13],(V514),VV[14],(V515),VV[16],(V516)));
2483          VMR34(V516)}          VMR34(V518)}
2484          va_end(ap);          va_end(ap);
2485          return Cnil;}          return Cnil;}
2486          }}          }}
2487  /*      local entry for function REMOVE-DUPLICATES      */  /*      local entry for function REMOVE-DUPLICATES      */
2488    
2489  static object LI35(V517,va_alist)  static object LI35(V519,va_alist)
2490          object V517;          object V519;
2491          va_dcl          va_dcl
2492  {        {      
2493          va_list ap;          va_list ap;
2494          int narg = VFUN_NARGS; VMB35 VMS35 VMV35          int narg = VFUN_NARGS; VMB35 VMS35 VMV35
2495          {register object V518;          {register object V520;
2496          object V519;          object V521;
2497          register object V520;          register object V522;
2498          register object V521;          register object V523;
2499          object V522;          object V524;
2500          object V523;          object V525;
2501          register object V524;          register object V526;
2502          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2503          va_start(ap);          va_start(ap);
2504          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2505          V518= V517;          V520= V519;
2506          narg= narg - 1;          narg= narg - 1;
2507          {          {
2508          parse_key_new(narg,Vcs +1,(struct key *)&LI35key,ap);          parse_key_new(narg,Vcs +1,(struct key *)&LI35key,ap);
2509          V519=(Vcs[1]);          V521=(Vcs[1]);
2510          V520=(Vcs[2]);          V522=(Vcs[2]);
2511          V521=(Vcs[3]);          V523=(Vcs[3]);
2512          V522=(Vcs[4]);          V524=(Vcs[4]);
2513          V523=(Vcs[5]);          V525=(Vcs[5]);
2514          if(Vcs[6]==0){          if(Vcs[6]==0){
2515          V524= symbol_function(VV[33]);          V526= symbol_function(VV[33]);
2516          }else{          }else{
2517          V524=(Vcs[6]);}          V526=(Vcs[6]);}
2518          if((V520)==Cnil){          if((V522)==Cnil){
2519          goto T849;}          goto T851;}
2520          if((V521)==Cnil){          if((V523)==Cnil){
2521          goto T849;}          goto T851;}
2522          (void)((*(LnkLI40))());          (void)((*(LnkLI40))());
2523  goto T849;  goto T851;
2524  T849:;  T851:;
2525          if(!(type_of((V518))==t_cons||((V518))==Cnil)){          if(!(type_of((V520))==t_cons||((V520))==Cnil)){
2526          goto T850;}          goto T852;}
2527          if(((V519))!=Cnil){          if(((V521))!=Cnil){
2528          goto T850;}          goto T852;}
2529          if(((V522))!=Cnil){          if(((V524))!=Cnil){
2530          goto T850;}          goto T852;}
2531          if(((V523))!=Cnil){          if(((V525))!=Cnil){
2532          goto T850;}          goto T852;}
2533          if(!(endp_prop((V518)))){          if(!(endp_prop((V520)))){
2534          goto T859;}          goto T861;}
2535          {object V525 = Cnil;          {object V527 = Cnil;
2536          VMR35(V525)}          VMR35(V527)}
2537  goto T859;  goto T861;
2538  T859:;  T861:;
2539          {register object V526;          {register object V528;
2540          register object V527;          register object V529;
2541          V526= (V518);          V528= (V520);
2542          V527= Cnil;          V529= Cnil;
2543  goto T863;  goto T865;
2544  T863:;  T865:;
2545          if(!(endp_prop(cdr((V526))))){          if(!(endp_prop(cdr((V528))))){
2546          goto T864;}          goto T866;}
2547          base[0]= (V527);          base[0]= (V529);
2548          base[1]= (V526);          base[1]= (V528);
2549          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2550          Lreconc();          Lreconc();
2551          vs_top=sup;          vs_top=sup;
2552          {object V528 = vs_base[0];          {object V530 = vs_base[0];
2553          VMR35(V528)}          VMR35(V530)}
2554  goto T864;  goto T866;
2555  T864:;  T866:;
2556          base[0]= car((V526));          base[0]= car((V528));
2557          base[1]= cdr((V526));          base[1]= cdr((V528));
2558          base[2]= VV[11];          base[2]= VV[11];
2559          base[3]= (V520);          base[3]= (V522);
2560          base[4]= VV[12];          base[4]= VV[12];
2561          base[5]= (V521);          base[5]= (V523);
2562          base[6]= VV[16];          base[6]= VV[16];
2563          base[7]= (V524);          base[7]= (V526);
2564          vs_top=(vs_base=base+0)+8;          vs_top=(vs_base=base+0)+8;
2565          (void) (*Lnk53)();          (void) (*Lnk53)();
2566          vs_top=sup;          vs_top=sup;
2567          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2568          goto T870;}          goto T872;}
2569          V527= make_cons(car((V526)),(V527));          V529= make_cons(car((V528)),(V529));
2570  goto T870;  goto T872;
2571  T870:;  T872:;
2572          V526= cdr((V526));          V528= cdr((V528));
2573          goto T863;}          goto T865;}
2574  goto T850;  goto T852;
2575  T850:;  T852:;
2576          {object V529 = (VFUN_NARGS=13,(*(LnkLI54))((V518),VV[10],(V519),VV[11],(V520),VV[12],(V521),VV[13],(V522),VV[14],(V523),VV[16],(V524)));          {object V531 = (VFUN_NARGS=13,(*(LnkLI54))((V520),VV[10],(V521),VV[11],(V522),VV[12],(V523),VV[13],(V524),VV[14],(V525),VV[16],(V526)));
2577          VMR35(V529)}          VMR35(V531)}
2578          va_end(ap);          va_end(ap);
2579          base[0]=base[0];          base[0]=base[0];
2580          return Cnil;}          return Cnil;}
2581          }}          }}
2582  /*      local entry for function DELETE-DUPLICATES      */  /*      local entry for function DELETE-DUPLICATES      */
2583    
2584  static object LI36(V530,va_alist)  static object LI36(V532,va_alist)
2585          object V530;          object V532;
2586          va_dcl          va_dcl
2587  {        {      
2588          va_list ap;          va_list ap;
2589          int narg = VFUN_NARGS; VMB36 VMS36 VMV36          int narg = VFUN_NARGS; VMB36 VMS36 VMV36
2590          {register object V531;          {register object V533;
         object V532;  
         object V533;  
2591          object V534;          object V534;
2592          object V535;          object V535;
2593          object V536;          object V536;
2594          register object V537;          object V537;
2595            object V538;
2596            register object V539;
2597          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2598          va_start(ap);          va_start(ap);
2599          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2600          V531= V530;          V533= V532;
2601          narg= narg - 1;          narg= narg - 1;
2602          {          {
2603          parse_key_new(narg,Vcs +1,(struct key *)&LI36key,ap);          parse_key_new(narg,Vcs +1,(struct key *)&LI36key,ap);
2604          V532=(Vcs[1]);          V534=(Vcs[1]);
2605          V533=(Vcs[2]);          V535=(Vcs[2]);
2606          V534=(Vcs[3]);          V536=(Vcs[3]);
2607          V535=(Vcs[4]);          V537=(Vcs[4]);
2608          V536=(Vcs[5]);          V538=(Vcs[5]);
2609          if(Vcs[6]==0){          if(Vcs[6]==0){
2610          V537= symbol_function(VV[33]);          V539= symbol_function(VV[33]);
2611          }else{          }else{
2612          V537=(Vcs[6]);}          V539=(Vcs[6]);}
2613          {long V538;          {long V540;
2614          V538= (long)length((V531));          V540= (long)length((V533));
2615          if((V533)==Cnil){          if((V535)==Cnil){
2616          goto T887;}          goto T889;}
2617          if((V534)==Cnil){          if((V536)==Cnil){
2618          goto T887;}          goto T889;}
2619          (void)((*(LnkLI40))());          (void)((*(LnkLI40))());
2620  goto T887;  goto T889;
2621  T887:;  T889:;
2622          if(!(type_of((V531))==t_cons||((V531))==Cnil)){          if(!(type_of((V533))==t_cons||((V533))==Cnil)){
2623          goto T888;}          goto T890;}
2624          if(((V532))!=Cnil){          if(((V534))!=Cnil){
2625          goto T888;}          goto T890;}
2626          if(((V535))!=Cnil){          if(((V537))!=Cnil){
2627          goto T888;}          goto T890;}
2628          if(((V536))!=Cnil){          if(((V538))!=Cnil){
2629          goto T888;}          goto T890;}
2630          if(!(endp_prop((V531)))){          if(!(endp_prop((V533)))){
2631          goto T897;}          goto T899;}
2632          {object V539 = Cnil;          {object V541 = Cnil;
         VMR36(V539)}  
 goto T897;  
 T897:;  
         {register object V540;  
         V540= (V531);  
 goto T901;  
 T901:;  
         if(!(endp_prop(cdr((V540))))){  
         goto T902;}  
         {object V541 = (V531);  
2633          VMR36(V541)}          VMR36(V541)}
2634  goto T902;  goto T899;
2635  T902:;  T899:;
2636          base[0]= car((V540));          {register object V542;
2637          base[1]= cdr((V540));          V542= (V533);
2638    goto T903;
2639    T903:;
2640            if(!(endp_prop(cdr((V542))))){
2641            goto T904;}
2642            {object V543 = (V533);
2643            VMR36(V543)}
2644    goto T904;
2645    T904:;
2646            base[0]= car((V542));
2647            base[1]= cdr((V542));
2648          base[2]= VV[11];          base[2]= VV[11];
2649          base[3]= (V533);          base[3]= (V535);
2650          base[4]= VV[12];          base[4]= VV[12];
2651          base[5]= (V534);          base[5]= (V536);
2652          base[6]= VV[16];          base[6]= VV[16];
2653          base[7]= (V537);          base[7]= (V539);
2654          vs_top=(vs_base=base+0)+8;          vs_top=(vs_base=base+0)+8;
2655          (void) (*Lnk53)();          (void) (*Lnk53)();
2656          vs_top=sup;          vs_top=sup;
2657          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2658          goto T908;}          goto T910;}
2659          if(type_of((V540))!=t_cons)FEwrong_type_argument(Scons,(V540));          if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542));
2660          ((V540))->c.c_car = cadr((V540));          ((V542))->c.c_car = cadr((V542));
2661          if(type_of((V540))!=t_cons)FEwrong_type_argument(Scons,(V540));          if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542));
2662          ((V540))->c.c_cdr = cddr((V540));          ((V542))->c.c_cdr = cddr((V542));
2663          goto T906;          goto T908;
2664    goto T910;
2665    T910:;
2666            V542= cdr((V542));
2667  goto T908;  goto T908;
2668  T908:;  T908:;
2669          V540= cdr((V540));          goto T903;}
2670  goto T906;  goto T890;
2671  T906:;  T890:;
2672          goto T901;}          {register long V544;
2673  goto T888;          if(((V537))==Cnil){
2674  T888:;          goto T926;}
2675          {register long V542;          V544= (long)(*(LnkLI34))((V537));
2676          if(((V535))==Cnil){          goto T924;
2677          goto T924;}  goto T926;
2678          V542= (long)(*(LnkLI34))((V535));  T926:;
2679          goto T922;          V544= 0;
2680  goto T924;  goto T924;
2681  T924:;  T924:;
2682          V542= 0;          {register long V545;
2683  goto T922;          V545= (long)(*(LnkLI35))((V538),(V533));
2684  T922:;          if(!((V544)<=(V545))){
2685          {register long V543;          goto T930;}
2686          V543= (long)(*(LnkLI35))((V536),(V531));          goto T929;
2687          if(!((V542)<=(V543))){  goto T930;
2688          goto T928;}  T930:;
2689          goto T927;          V546 = make_fixnum(V544);
2690  goto T928;          V547 = make_fixnum(V545);
2691  T928:;          (void)((VFUN_NARGS=2,(*(LnkLI31))(V546,V547)));
2692          V544 = make_fixnum(V542);  goto T929;
2693          V545 = make_fixnum(V543);  T929:;
2694          (void)((VFUN_NARGS=2,(*(LnkLI31))(V544,V545)));          if(((V534))!=Cnil){
2695  goto T927;          goto T933;}
2696  T927:;          {long V548;
2697          if(((V532))!=Cnil){          long V549;
2698          goto T931;}          V548= 0;
2699          {long V546;          V549= V544;
2700          long V547;  goto T938;
2701          V546= 0;  T938:;
2702          V547= V542;          if(!((V549)>=(V545))){
2703  goto T936;          goto T939;}
2704  T936:;          {object V550;
2705          if(!((V547)>=(V543))){          register long V551;
2706          goto T937;}          long V552;
2707          {object V548;          V553= (*(LnkLI47))((V533));
2708          register long V549;          V554 = make_fixnum((long)(V540)-(V548));
2709          long V550;          V550= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V553,V554));
2710          V551= (*(LnkLI47))((V531));          V551= 0;
2711          V552 = make_fixnum((long)(V538)-(V546));          V552= 0;
2712          V548= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V551,V552));  goto T946;
2713          V549= 0;  T946:;
2714          V550= 0;          if(!((V551)>=(V540))){
2715  goto T944;          goto T947;}
2716  T944:;          {object V555 = (V550);
2717          if(!((V549)>=(V538))){          VMR36(V555)}
2718          goto T945;}  goto T947;
2719          {object V553 = (V548);  T947:;
2720          VMR36(V553)}          {object V556;
2721  goto T945;          if((V544)<=(V551)){
 T945:;  
         {object V554;  
         if((V542)<=(V549)){  
         goto T951;}  
         V554= Cnil;  
         goto T950;  
 goto T951;  
 T951:;  
         if((V549)<(V543)){  
2722          goto T953;}          goto T953;}
2723          V554= Cnil;          V556= Cnil;
2724          goto T950;          goto T952;
2725  goto T953;  goto T953;
2726  T953:;  T953:;
2727          base[0]= elt((V531),V549);          if((V551)<(V545)){
2728          vs_top=(vs_base=base+0)+1;          goto T955;}
2729          super_funcall_no_event((V537));          V556= Cnil;
2730          vs_top=sup;          goto T952;
2731          V555= vs_base[0];  goto T955;
2732          V556 = make_fixnum((long)(1)+(V549));  T955:;
2733          V557 = make_fixnum(V543);          base[0]= elt((V533),V551);
2734          V554= (VFUN_NARGS=12,(*(LnkLI52))(V555,(V531),VV[11],(V533),VV[12],(V534),VV[13],V556,VV[14],V557,VV[16],(V537)));          vs_top=(vs_base=base+0)+1;
2735  goto T950;          super_funcall_no_event((V539));
2736  T950:;          vs_top=sup;
2737          if(((V554))==Cnil){          V557= vs_base[0];
2738          goto T958;}          V558 = make_fixnum((long)(1)+(V551));
2739          goto T949;          V559 = make_fixnum(V545);
2740  goto T958;          V556= (VFUN_NARGS=12,(*(LnkLI52))(V557,(V533),VV[11],(V535),VV[12],(V536),VV[13],V558,VV[14],V559,VV[16],(V539)));
2741  T958:;  goto T952;
2742          V558= elt((V531),V549);  T952:;
2743          (void)(elt_set((V548),V550,/* INLINE-ARGS */V558));          if(((V556))==Cnil){
2744          V550= (long)(1)+(V550);}          goto T960;}
2745  goto T949;          goto T951;
2746  T949:;  goto T960;
2747    T960:;
2748            V560= elt((V533),V551);
2749            (void)(elt_set((V550),V552,/* INLINE-ARGS */V560));
2750            V552= (long)(1)+(V552);}
2751    goto T951;
2752    T951:;
2753            V551= (long)(1)+(V551);
2754            goto T946;}
2755    goto T939;
2756    T939:;
2757            base[0]= elt((V533),V549);
2758            vs_top=(vs_base=base+0)+1;
2759            super_funcall_no_event((V539));
2760            vs_top=sup;
2761            V561= vs_base[0];
2762            V562 = make_fixnum((long)(1)+(V549));
2763            V563 = make_fixnum(V545);
2764            if(((VFUN_NARGS=12,(*(LnkLI52))(V561,(V533),VV[11],(V535),VV[12],(V536),VV[13],V562,VV[14],V563,VV[16],(V539))))==Cnil){
2765            goto T968;}
2766            V548= (long)(1)+(V548);
2767    goto T968;
2768    T968:;
2769          V549= (long)(1)+(V549);          V549= (long)(1)+(V549);
2770          goto T944;}          goto T938;}
2771  goto T937;  goto T933;
2772  T937:;  T933:;
2773          base[0]= elt((V531),V547);          {long V564;
2774          vs_top=(vs_base=base+0)+1;          long V565;
2775          super_funcall_no_event((V537));          V564= 0;
2776          vs_top=sup;          V565= (long)(-1)+(V545);
2777          V559= vs_base[0];  goto T980;
2778          V560 = make_fixnum((long)(1)+(V547));  T980:;
2779          V561 = make_fixnum(V543);          if(!((V565)<(V544))){
2780          if(((VFUN_NARGS=12,(*(LnkLI52))(V559,(V531),VV[11],(V533),VV[12],(V534),VV[13],V560,VV[14],V561,VV[16],(V537))))==Cnil){          goto T981;}
2781          goto T966;}          {object V566;
2782          V546= (long)(1)+(V546);          register long V567;
2783  goto T966;          long V568;
2784  T966:;          V569= (*(LnkLI47))((V533));
2785          V547= (long)(1)+(V547);          V570 = make_fixnum((long)(V540)-(V564));
2786          goto T936;}          V566= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V569,V570));
2787  goto T931;          V567= (long)(-1)+(V540);
2788  T931:;          V568= (long)((long)(-1)+(V540))-(V564);
2789          {long V562;  goto T988;
2790          long V563;  T988:;
2791          V562= 0;          if(!((V567)<(0))){
2792          V563= (long)(-1)+(V543);          goto T989;}
2793  goto T978;          {object V571 = (V566);
2794  T978:;          VMR36(V571)}
2795          if(!((V563)<(V542))){  goto T989;
2796          goto T979;}  T989:;
2797          {object V564;          {object V572;
2798          register long V565;          if((V544)<=(V567)){
         long V566;  
         V567= (*(LnkLI47))((V531));  
         V568 = make_fixnum((long)(V538)-(V562));  
         V564= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V567,V568));  
         V565= (long)(-1)+(V538);  
         V566= (long)((long)(-1)+(V538))-(V562);  
 goto T986;  
 T986:;  
         if(!((V565)<(0))){  
         goto T987;}  
         {object V569 = (V564);  
         VMR36(V569)}  
 goto T987;  
 T987:;  
         {object V570;  
         if((V542)<=(V565)){  
         goto T993;}  
         V570= Cnil;  
         goto T992;  
 goto T993;  
 T993:;  
         if((V565)<(V543)){  
2799          goto T995;}          goto T995;}
2800          V570= Cnil;          V572= Cnil;
2801          goto T992;          goto T994;
2802  goto T995;  goto T995;
2803  T995:;  T995:;
2804          base[0]= elt((V531),V565);          if((V567)<(V545)){
2805          vs_top=(vs_base=base+0)+1;          goto T997;}
2806          super_funcall_no_event((V537));          V572= Cnil;
2807          vs_top=sup;          goto T994;
2808          V571= vs_base[0];  goto T997;
2809          V572 = make_fixnum(V542);  T997:;
2810          V573 = make_fixnum(V565);          base[0]= elt((V533),V567);
2811          V570= (VFUN_NARGS=14,(*(LnkLI52))(V571,(V531),VV[10],Ct,VV[11],(V533),VV[12],(V534),VV[13],V572,VV[14],V573,VV[16],(V537)));          vs_top=(vs_base=base+0)+1;
2812  goto T992;          super_funcall_no_event((V539));
2813  T992:;          vs_top=sup;
2814          if(((V570))==Cnil){          V573= vs_base[0];
2815          goto T1000;}          V574 = make_fixnum(V544);
2816          goto T991;          V575 = make_fixnum(V567);
2817  goto T1000;          V572= (VFUN_NARGS=14,(*(LnkLI52))(V573,(V533),VV[10],Ct,VV[11],(V535),VV[12],(V536),VV[13],V574,VV[14],V575,VV[16],(V539)));
2818  T1000:;  goto T994;
2819          V574= elt((V531),V565);  T994:;
2820          (void)(elt_set((V564),V566,/* INLINE-ARGS */V574));          if(((V572))==Cnil){
2821          V566= (long)(-1)+(V566);}          goto T1002;}
2822  goto T991;          goto T993;
2823  T991:;  goto T1002;
2824    T1002:;
2825            V576= elt((V533),V567);
2826            (void)(elt_set((V566),V568,/* INLINE-ARGS */V576));
2827            V568= (long)(-1)+(V568);}
2828    goto T993;
2829    T993:;
2830            V567= (long)(-1)+(V567);
2831            goto T988;}
2832    goto T981;
2833    T981:;
2834            base[0]= elt((V533),V565);
2835            vs_top=(vs_base=base+0)+1;
2836            super_funcall_no_event((V539));
2837            vs_top=sup;
2838            V577= vs_base[0];
2839            V578 = make_fixnum(V544);
2840            V579 = make_fixnum(V565);
2841            if(((VFUN_NARGS=14,(*(LnkLI52))(V577,(V533),VV[10],Ct,VV[11],(V535),VV[12],(V536),VV[13],V578,VV[14],V579,VV[16],(V539))))==Cnil){
2842            goto T1010;}
2843            V564= (long)(1)+(V564);
2844    goto T1010;
2845    T1010:;
2846          V565= (long)(-1)+(V565);          V565= (long)(-1)+(V565);
2847          goto T986;}          goto T980;}}}}
 goto T979;  
 T979:;  
         base[0]= elt((V531),V563);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V537));  
         vs_top=sup;  
         V575= vs_base[0];  
         V576 = make_fixnum(V542);  
         V577 = make_fixnum(V563);  
         if(((VFUN_NARGS=14,(*(LnkLI52))(V575,(V531),VV[10],Ct,VV[11],(V533),VV[12],(V534),VV[13],V576,VV[14],V577,VV[16],(V537))))==Cnil){  
         goto T1008;}  
         V562= (long)(1)+(V562);  
 goto T1008;  
 T1008:;  
         V563= (long)(-1)+(V563);  
         goto T978;}}}}  
2848          va_end(ap);          va_end(ap);
2849          base[0]=base[0];          base[0]=base[0];
2850          return Cnil;}          return Cnil;}
2851          }}          }}
2852  /*      local entry for function MISMATCH       */  /*      local entry for function MISMATCH       */
2853    
2854  static object LI37(V579,V578,va_alist)  static object LI37(V581,V580,va_alist)
2855          object V579,V578;          object V581,V580;
2856          va_dcl          va_dcl
2857  {        {      
2858          va_list ap;          va_list ap;
2859          int narg = VFUN_NARGS; VMB37 VMS37 VMV37          int narg = VFUN_NARGS; VMB37 VMS37 VMV37
2860          {object V580;          {object V582;
         object V581;  
         object V582;  
2861          object V583;          object V583;
2862          object V584;          object V584;
2863          register object V585;          object V585;
2864          object V586;          object V586;
2865          object V587;          register object V587;
2866          object V588;          object V588;
2867          object V589;          object V589;
2868            object V590;
2869            object V591;
2870          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2871          va_start(ap);          va_start(ap);
2872          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2873          V580= V579;          V582= V581;
2874          V581= V578;          V583= V580;
2875          narg= narg - 2;          narg= narg - 2;
2876          {          {
2877          parse_key_new(narg,Vcs +2,(struct key *)&LI37key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI37key,ap);
2878          V582=(Vcs[2]);          V584=(Vcs[2]);
2879          V583=(Vcs[3]);          V585=(Vcs[3]);
2880          V584=(Vcs[4]);          V586=(Vcs[4]);
2881          if(Vcs[5]==0){          if(Vcs[5]==0){
2882          V585= symbol_function(VV[33]);          V587= symbol_function(VV[33]);
2883          }else{          }else{
2884          V585=(Vcs[5]);}          V587=(Vcs[5]);}
2885          V586=(Vcs[6]);          V588=(Vcs[6]);
2886          V587=(Vcs[7]);          V589=(Vcs[7]);
2887          V588=(Vcs[8]);          V590=(Vcs[8]);
2888          V589=(Vcs[9]);          V591=(Vcs[9]);
2889          if((V583)==Cnil){          if((V585)==Cnil){
2890          goto T1018;}          goto T1020;}
2891          if((V584)==Cnil){          if((V586)==Cnil){
2892          goto T1018;}          goto T1020;}
2893          (void)((*(LnkLI40))());          (void)((*(LnkLI40))());
2894  goto T1018;  goto T1020;
2895  T1018:;  T1020:;
2896          {register long V590;          {register long V592;
2897          if(((V586))==Cnil){          if(((V588))==Cnil){
2898          goto T1021;}          goto T1023;}
2899          V590= (long)(*(LnkLI34))((V586));          V592= (long)(*(LnkLI34))((V588));
2900          goto T1019;          goto T1021;
2901    goto T1023;
2902    T1023:;
2903            V592= 0;
2904  goto T1021;  goto T1021;
2905  T1021:;  T1021:;
2906          V590= 0;          {register long V593;
2907  goto T1019;          V593= (long)(*(LnkLI35))((V590),(V582));
2908  T1019:;          if(!((V592)<=(V593))){
2909          {register long V591;          goto T1027;}
2910          V591= (long)(*(LnkLI35))((V588),(V580));          goto T1026;
         if(!((V590)<=(V591))){  
         goto T1025;}  
         goto T1024;  
 goto T1025;  
 T1025:;  
         V592 = make_fixnum(V590);  
         V593 = make_fixnum(V591);  
         (void)((VFUN_NARGS=2,(*(LnkLI31))(V592,V593)));  
 goto T1024;  
 T1024:;  
         {register long V594;  
         if(((V587))==Cnil){  
         goto T1029;}  
         V594= (long)(*(LnkLI34))((V587));  
         goto T1027;  
 goto T1029;  
 T1029:;  
         V594= 0;  
2911  goto T1027;  goto T1027;
2912  T1027:;  T1027:;
2913          {register long V595;          V594 = make_fixnum(V592);
2914          V595= (long)(*(LnkLI35))((V589),(V581));          V595 = make_fixnum(V593);
2915          if(!((V594)<=(V595))){          (void)((VFUN_NARGS=2,(*(LnkLI31))(V594,V595)));
2916          goto T1033;}  goto T1026;
2917          goto T1032;  T1026:;
2918  goto T1033;          {register long V596;
2919  T1033:;          if(((V589))==Cnil){
2920          V596 = make_fixnum(V594);          goto T1031;}
2921          V597 = make_fixnum(V595);          V596= (long)(*(LnkLI34))((V589));
2922          (void)((VFUN_NARGS=2,(*(LnkLI31))(V596,V597)));          goto T1029;
2923  goto T1032;  goto T1031;
2924  T1032:;  T1031:;
2925          if(((V582))!=Cnil){          V596= 0;
2926          goto T1036;}  goto T1029;
2927          {register long V598;  T1029:;
2928          register long V599;          {register long V597;
2929          V598= V590;          V597= (long)(*(LnkLI35))((V591),(V583));
2930          V599= V594;          if(!((V596)<=(V597))){
2931  goto T1041;          goto T1035;}
2932  T1041:;          goto T1034;
2933          if((V598)>=(V591)){  goto T1035;
2934          goto T1043;}  T1035:;
2935          if(!((V599)>=(V595))){          V598 = make_fixnum(V596);
2936          goto T1042;}          V599 = make_fixnum(V597);
2937            (void)((VFUN_NARGS=2,(*(LnkLI31))(V598,V599)));
2938    goto T1034;
2939    T1034:;
2940            if(((V584))!=Cnil){
2941            goto T1038;}
2942            {register long V600;
2943            register long V601;
2944            V600= V592;
2945            V601= V596;
2946  goto T1043;  goto T1043;
2947  T1043:;  T1043:;
2948          if(!((V598)>=(V591))){          if((V600)>=(V593)){
2949          goto T1048;}          goto T1045;}
2950          if(!((V599)>=(V595))){          if(!((V601)>=(V597))){
2951          goto T1048;}          goto T1044;}
2952          {object V600 = Cnil;  goto T1045;
2953          VMR37(V600)}  T1045:;
2954  goto T1048;          if(!((V600)>=(V593))){
2955  T1048:;          goto T1050;}
2956          {object V601 = make_fixnum(V598);          if(!((V601)>=(V597))){
2957          VMR37(V601)}          goto T1050;}
2958  goto T1042;          {object V602 = Cnil;
2959  T1042:;          VMR37(V602)}
2960          base[0]= elt((V580),V598);  goto T1050;
2961          vs_top=(vs_base=base+0)+1;  T1050:;
2962          super_funcall_no_event((V585));          {object V603 = make_fixnum(V600);
2963          vs_top=sup;          VMR37(V603)}
2964          V602= vs_base[0];  goto T1044;
2965          base[0]= elt((V581),V599);  T1044:;
2966          vs_top=(vs_base=base+0)+1;          base[0]= elt((V582),V600);
2967          super_funcall_no_event((V585));          vs_top=(vs_base=base+0)+1;
2968          vs_top=sup;          super_funcall_no_event((V587));
2969          V603= vs_base[0];          vs_top=sup;
2970          if(((*(LnkLI41))((V583),(V584),V602,V603))!=Cnil){          V604= vs_base[0];
2971          goto T1053;}          base[0]= elt((V583),V601);
2972          {object V604 = make_fixnum(V598);          vs_top=(vs_base=base+0)+1;
2973          VMR37(V604)}          super_funcall_no_event((V587));
2974  goto T1053;          vs_top=sup;
2975  T1053:;          V605= vs_base[0];
2976          V598= (long)(1)+(V598);          if(((*(LnkLI41))((V585),(V586),V604,V605))!=Cnil){
2977          V599= (long)(1)+(V599);          goto T1055;}
2978          goto T1041;}          {object V606 = make_fixnum(V600);
2979  goto T1036;          VMR37(V606)}
2980  T1036:;  goto T1055;
2981          {register long V605;  T1055:;
2982          register long V606;          V600= (long)(1)+(V600);
2983          V605= (long)(-1)+(V591);          V601= (long)(1)+(V601);
2984          V606= (long)(-1)+(V595);          goto T1043;}
2985  goto T1067;  goto T1038;
2986  T1067:;  T1038:;
2987          if((V605)<(V590)){          {register long V607;
2988          goto T1069;}          register long V608;
2989          if(!((V606)<(V594))){          V607= (long)(-1)+(V593);
2990          goto T1068;}          V608= (long)(-1)+(V597);
2991  goto T1069;  goto T1069;
2992  T1069:;  T1069:;
2993          if(!((V605)<(V590))){          if((V607)<(V592)){
2994          goto T1074;}          goto T1071;}
2995          if(!((V606)<(V594))){          if(!((V608)<(V596))){
2996          goto T1074;}          goto T1070;}
2997          {object V607 = Cnil;  goto T1071;
2998          VMR37(V607)}  T1071:;
2999  goto T1074;          if(!((V607)<(V592))){
3000  T1074:;          goto T1076;}
3001          {object V608 = make_fixnum((long)(1)+(V605));          if(!((V608)<(V596))){
3002          VMR37(V608)}          goto T1076;}
3003  goto T1068;          {object V609 = Cnil;
3004  T1068:;          VMR37(V609)}
3005          base[0]= elt((V580),V605);  goto T1076;
3006          vs_top=(vs_base=base+0)+1;  T1076:;
3007          super_funcall_no_event((V585));          {object V610 = make_fixnum((long)(1)+(V607));
3008          vs_top=sup;          VMR37(V610)}
3009          V609= vs_base[0];  goto T1070;
3010          base[0]= elt((V581),V606);  T1070:;
3011          vs_top=(vs_base=base+0)+1;          base[0]= elt((V582),V607);
3012          super_funcall_no_event((V585));          vs_top=(vs_base=base+0)+1;
3013          vs_top=sup;          super_funcall_no_event((V587));
3014          V610= vs_base[0];          vs_top=sup;
3015          if(((*(LnkLI41))((V583),(V584),V609,V610))!=Cnil){          V611= vs_base[0];
3016          goto T1079;}          base[0]= elt((V583),V608);
3017          {object V611 = make_fixnum((long)(1)+(V605));          vs_top=(vs_base=base+0)+1;
3018          VMR37(V611)}          super_funcall_no_event((V587));
3019  goto T1079;          vs_top=sup;
3020  T1079:;          V612= vs_base[0];
3021          V605= (long)(-1)+(V605);          if(((*(LnkLI41))((V585),(V586),V611,V612))!=Cnil){
3022          V606= (long)(-1)+(V606);          goto T1081;}
3023          goto T1067;}}}}}          {object V613 = make_fixnum((long)(1)+(V607));
3024            VMR37(V613)}
3025    goto T1081;
3026    T1081:;
3027            V607= (long)(-1)+(V607);
3028            V608= (long)(-1)+(V608);
3029            goto T1069;}}}}}
3030          va_end(ap);          va_end(ap);
3031          base[0]=base[0];          base[0]=base[0];
3032          return Cnil;}          return Cnil;}
3033          }}          }}
3034  /*      local entry for function SEARCH */  /*      local entry for function SEARCH */
3035    
3036  static object LI38(V613,V612,va_alist)  static object LI38(V615,V614,va_alist)
3037          object V613,V612;          object V615,V614;
3038          va_dcl          va_dcl
3039  {        {      
3040          va_list ap;          va_list ap;
3041          int narg = VFUN_NARGS; VMB38 VMS38 VMV38          int narg = VFUN_NARGS; VMB38 VMS38 VMV38
3042          {object V614;          {object V616;
         object V615;  
         object V616;  
3043          object V617;          object V617;
3044          object V618;          object V618;
3045          register object V619;          object V619;
3046          object V620;          object V620;
3047          object V621;          register object V621;
3048          object V622;          object V622;
3049          object V623;          object V623;
3050            object V624;
3051            object V625;
3052          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
3053          va_start(ap);          va_start(ap);
3054          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
3055          V614= V613;          V616= V615;
3056          V615= V612;          V617= V614;
3057          narg= narg - 2;          narg= narg - 2;
3058          {          {
3059          parse_key_new(narg,Vcs +2,(struct key *)&LI38key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI38key,ap);
3060          V616=(Vcs[2]);          V618=(Vcs[2]);
3061          V617=(Vcs[3]);          V619=(Vcs[3]);
3062          V618=(Vcs[4]);          V620=(Vcs[4]);
3063          if(Vcs[5]==0){          if(Vcs[5]==0){
3064          V619= symbol_function(VV[33]);          V621= symbol_function(VV[33]);
3065          }else{          }else{
3066          V619=(Vcs[5]);}          V621=(Vcs[5]);}
3067          V620=(Vcs[6]);          V622=(Vcs[6]);
3068          V621=(Vcs[7]);          V623=(Vcs[7]);
3069          V622=(Vcs[8]);          V624=(Vcs[8]);
3070          V623=(Vcs[9]);          V625=(Vcs[9]);
3071          if((V617)==Cnil){          if((V619)==Cnil){
3072          goto T1091;}          goto T1093;}
3073          if((V618)==Cnil){          if((V620)==Cnil){
3074          goto T1091;}          goto T1093;}
3075          (void)((*(LnkLI40))());          (void)((*(LnkLI40))());
3076  goto T1091;  goto T1093;
3077  T1091:;  T1093:;
3078          {long V624;          {long V626;
3079          if(((V620))==Cnil){          if(((V622))==Cnil){
3080          goto T1094;}          goto T1096;}
3081          V624= (long)(*(LnkLI34))((V620));          V626= (long)(*(LnkLI34))((V622));
3082          goto T1092;          goto T1094;
3083    goto T1096;
3084    T1096:;
3085            V626= 0;
3086  goto T1094;  goto T1094;
3087  T1094:;  T1094:;
3088          V624= 0;          {long V627;
3089  goto T1092;          V627= (long)(*(LnkLI35))((V624),(V616));
3090  T1092:;          if(!((V626)<=(V627))){
3091          {long V625;          goto T1100;}
3092          V625= (long)(*(LnkLI35))((V622),(V614));          goto T1099;
         if(!((V624)<=(V625))){  
         goto T1098;}  
         goto T1097;  
 goto T1098;  
 T1098:;  
         V626 = make_fixnum(V624);  
         V627 = make_fixnum(V625);  
         (void)((VFUN_NARGS=2,(*(LnkLI31))(V626,V627)));  
 goto T1097;  
 T1097:;  
         {register long V628;  
         if(((V621))==Cnil){  
         goto T1102;}  
         V628= (long)(*(LnkLI34))((V621));  
         goto T1100;  
 goto T1102;  
 T1102:;  
         V628= 0;  
3093  goto T1100;  goto T1100;
3094  T1100:;  T1100:;
3095          {long V629;          V628 = make_fixnum(V626);
3096          V629= (long)(*(LnkLI35))((V623),(V615));          V629 = make_fixnum(V627);
3097          if(!((V628)<=(V629))){          (void)((VFUN_NARGS=2,(*(LnkLI31))(V628,V629)));
3098          goto T1106;}  goto T1099;
3099          goto T1105;  T1099:;
3100  goto T1106;          {register long V630;
3101  T1106:;          if(((V623))==Cnil){
3102          V630 = make_fixnum(V628);          goto T1104;}
3103          V631 = make_fixnum(V629);          V630= (long)(*(LnkLI34))((V623));
3104          (void)((VFUN_NARGS=2,(*(LnkLI31))(V630,V631)));          goto T1102;
3105  goto T1105;  goto T1104;
3106  T1105:;  T1104:;
3107          if(((V616))!=Cnil){          V630= 0;
3108          goto T1109;}  goto T1102;
3109  goto T1112;  T1102:;
3110  T1112:;          {long V631;
3111          {register long V632;          V631= (long)(*(LnkLI35))((V625),(V617));
3112          register long V633;          if(!((V630)<=(V631))){
3113          V632= V624;          goto T1108;}
3114          V633= V628;          goto T1107;
3115  goto T1118;  goto T1108;
3116  T1118:;  T1108:;
3117          if(!((V632)>=(V625))){          V632 = make_fixnum(V630);
3118          goto T1119;}          V633 = make_fixnum(V631);
3119          {object V634 = make_fixnum(V628);          (void)((VFUN_NARGS=2,(*(LnkLI31))(V632,V633)));
3120          VMR38(V634)}  goto T1107;
3121  goto T1119;  T1107:;
3122  T1119:;          if(((V618))!=Cnil){
3123          if(!((V633)>=(V629))){          goto T1111;}
         goto T1123;}  
         {object V635 = Cnil;  
         VMR38(V635)}  
 goto T1123;  
 T1123:;  
         base[0]= elt((V614),V632);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V619));  
         vs_top=sup;  
         V636= vs_base[0];  
         base[0]= elt((V615),V633);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V619));  
         vs_top=sup;  
         V637= vs_base[0];  
         if(((*(LnkLI41))((V617),(V618),V636,V637))!=Cnil){  
         goto T1126;}  
         goto T1114;  
 goto T1126;  
 T1126:;  
         V632= (long)(1)+(V632);  
         V633= (long)(1)+(V633);  
         goto T1118;}  
3124  goto T1114;  goto T1114;
3125  T1114:;  T1114:;
3126          V628= (long)(1)+(V628);          {register long V634;
3127          goto T1112;          register long V635;
3128  goto T1109;          V634= V626;
3129  T1109:;          V635= V630;
3130  goto T1140;  goto T1120;
3131  T1140:;  T1120:;
3132          {register long V638;          if(!((V634)>=(V627))){
3133          register long V639;          goto T1121;}
3134          V638= (long)(-1)+(V625);          {object V636 = make_fixnum(V630);
3135          V639= (long)(-1)+(V629);          VMR38(V636)}
3136  goto T1146;  goto T1121;
3137  T1146:;  T1121:;
3138          if(!((V638)<(V624))){          if(!((V635)>=(V631))){
3139          goto T1147;}          goto T1125;}
3140          {object V640 = make_fixnum((long)(1)+(V639));          {object V637 = Cnil;
3141          VMR38(V640)}          VMR38(V637)}
3142  goto T1147;  goto T1125;
3143  T1147:;  T1125:;
3144          if(!((V639)<(V628))){          base[0]= elt((V616),V634);
3145          goto T1151;}          vs_top=(vs_base=base+0)+1;
3146          {object V641 = Cnil;          super_funcall_no_event((V621));
3147          VMR38(V641)}          vs_top=sup;
3148  goto T1151;          V638= vs_base[0];
3149  T1151:;          base[0]= elt((V617),V635);
3150          base[0]= elt((V614),V638);          vs_top=(vs_base=base+0)+1;
3151          vs_top=(vs_base=base+0)+1;          super_funcall_no_event((V621));
3152          super_funcall_no_event((V619));          vs_top=sup;
3153          vs_top=sup;          V639= vs_base[0];
3154          V642= vs_base[0];          if(((*(LnkLI41))((V619),(V620),V638,V639))!=Cnil){
3155          base[0]= elt((V615),V639);          goto T1128;}
3156          vs_top=(vs_base=base+0)+1;          goto T1116;
3157          super_funcall_no_event((V619));  goto T1128;
3158          vs_top=sup;  T1128:;
3159          V643= vs_base[0];          V634= (long)(1)+(V634);
3160          if(((*(LnkLI41))((V617),(V618),V642,V643))!=Cnil){          V635= (long)(1)+(V635);
3161          goto T1154;}          goto T1120;}
3162          goto T1142;  goto T1116;
3163  goto T1154;  T1116:;
3164  T1154:;          V630= (long)(1)+(V630);
3165          V638= (long)(-1)+(V638);          goto T1114;
3166          V639= (long)(-1)+(V639);  goto T1111;
3167          goto T1146;}  T1111:;
3168  goto T1142;  goto T1142;
3169  T1142:;  T1142:;
3170          V629= (long)(-1)+(V629);          {register long V640;
3171          goto T1140;}}}}          register long V641;
3172            V640= (long)(-1)+(V627);
3173            V641= (long)(-1)+(V631);
3174    goto T1148;
3175    T1148:;
3176            if(!((V640)<(V626))){
3177            goto T1149;}
3178            {object V642 = make_fixnum((long)(1)+(V641));
3179            VMR38(V642)}
3180    goto T1149;
3181    T1149:;
3182            if(!((V641)<(V630))){
3183            goto T1153;}
3184            {object V643 = Cnil;
3185            VMR38(V643)}
3186    goto T1153;
3187    T1153:;
3188            base[0]= elt((V616),V640);
3189            vs_top=(vs_base=base+0)+1;
3190            super_funcall_no_event((V621));
3191            vs_top=sup;
3192            V644= vs_base[0];
3193            base[0]= elt((V617),V641);
3194            vs_top=(vs_base=base+0)+1;
3195            super_funcall_no_event((V621));
3196            vs_top=sup;
3197            V645= vs_base[0];
3198            if(((*(LnkLI41))((V619),(V620),V644,V645))!=Cnil){
3199            goto T1156;}
3200            goto T1144;
3201    goto T1156;
3202    T1156:;
3203            V640= (long)(-1)+(V640);
3204            V641= (long)(-1)+(V641);
3205            goto T1148;}
3206    goto T1144;
3207    T1144:;
3208            V631= (long)(-1)+(V631);
3209            goto T1142;}}}}
3210          va_end(ap);          va_end(ap);
3211          base[0]=base[0];          base[0]=base[0];
3212          return Cnil;}          return Cnil;}
# Line 3213  static void L39() Line 3217  static void L39()
3217  {register object *base=vs_base;  {register object *base=vs_base;
3218          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
3219          vs_reserve(VM39);          vs_reserve(VM39);
3220          {register object V644;          {register object V646;
3221          object V645;          object V647;
3222          object V646;          object V648;
3223          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3224          parse_key(vs_base+2,FALSE,FALSE,1,VV[16]);          parse_key(vs_base+2,FALSE,FALSE,1,VV[16]);
3225          V644=(base[0]);          V646=(base[0]);
3226          V645=(base[1]);          V647=(base[1]);
3227          vs_top=sup;          vs_top=sup;
3228          if(base[3]==Cnil){          if(base[3]==Cnil){
3229          V646= symbol_function(VV[33]);          V648= symbol_function(VV[33]);
3230          }else{          }else{
3231          V646=(base[2]);}          V648=(base[2]);}
3232          if(!(type_of((V644))==t_cons||((V644))==Cnil)){          if(!(type_of((V646))==t_cons||((V646))==Cnil)){
3233          goto T1169;}          goto T1171;}
3234          base[4]= (V644);          base[4]= (V646);
3235          base[5]= (V645);          base[5]= (V647);
3236          base[6]= (V646);          base[6]= (V648);
3237          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3238          (void) (*Lnk55)();          (void) (*Lnk55)();
3239          return;          return;
3240  goto T1169;  goto T1171;
3241  T1169:;  T1171:;
3242          base[4]= (*(LnkLI56))((V644),0,(long)length((V644)),(V645),(V646));          base[4]= (*(LnkLI56))((V646),0,(long)length((V646)),(V647),(V648));
3243          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3244          return;          return;
3245          }          }
# Line 3246  static void L40() Line 3250  static void L40()
3250  {register object *base=vs_base;  {register object *base=vs_base;
3251          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
3252          vs_reserve(VM40);          vs_reserve(VM40);
3253          {object V647;          {object V649;
3254          check_arg(3);          check_arg(3);
3255          V647=(base[0]);          V649=(base[0]);
3256          vs_top=sup;          vs_top=sup;
3257  goto TTL;  goto TTL;
3258  TTL:;  TTL:;
3259          base[3]= (V647);          base[3]= (V649);
3260          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3261          L41(base);          L41(base);
3262          return;          return;
# Line 3260  TTL:; Line 3264  TTL:;
3264  }  }
3265  /*      local entry for function QUICK-SORT     */  /*      local entry for function QUICK-SORT     */
3266    
3267  static object LI42(V653,V654,V655,V656,V657)  static object LI42(V655,V656,V657,V658,V659)
3268    
3269  register object V653;long V654;long V655;register object V656;register object V657;  register object V655;long V656;long V657;register object V658;register object V659;
3270  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
3271  goto TTL;  goto TTL;
3272  TTL:;  TTL:;
3273          if(!((V655)<=((long)(1)+(V654)))){          if(!((V657)<=((long)(1)+(V656)))){
3274          goto T1176;}          goto T1178;}
3275          {object V658 = (V653);          {object V660 = (V655);
3276          VMR41(V658)}          VMR41(V660)}
3277  goto T1176;  goto T1178;
3278  T1176:;  T1178:;
3279          {register long V659;          {register long V661;
3280          register long V660;          register long V662;
3281          object V661;          object V663;
3282          register object V662;          register object V664;
3283          V659= V654;          V661= V656;
3284          V660= V655;          V662= V657;
3285          V661= elt((V653),V654);          V663= elt((V655),V656);
3286          V662= (          V664= (
3287          (type_of((V657)) == t_sfun ?(*(((V657))->sfn.sfn_self)):          (type_of((V659)) == t_sfun ?(*(((V659))->sfn.sfn_self)):
3288          (fcall.fun=((V657)),fcall.argd=1,fcalln))((V661)));          (fcall.fun=((V659)),fcall.argd=1,fcalln))((V663)));
3289  goto T1184;  goto T1186;
3290  T1184:;  T1186:;
3291  goto T1188;  goto T1190;
3292  T1188:;  T1190:;
3293          V660= (long)(-1)+(V660);          V662= (long)(-1)+(V662);
3294          if((V659)<(V660)){          if((V661)<(V662)){
3295          goto T1192;}          goto T1194;}
3296          goto T1182;          goto T1184;
3297  goto T1192;  goto T1194;
3298  T1192:;  T1194:;
3299          base[3]= elt((V653),V660);          base[3]= elt((V655),V662);
3300          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3301          super_funcall_no_event((V657));          super_funcall_no_event((V659));
3302          vs_top=sup;          vs_top=sup;
3303          base[2]= vs_base[0];          base[2]= vs_base[0];
3304          base[3]= (V662);          base[3]= (V664);
3305          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3306          super_funcall_no_event((V656));          super_funcall_no_event((V658));
3307          vs_top=sup;          vs_top=sup;
3308          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3309          goto T1189;}          goto T1191;}
         goto T1186;  
 goto T1189;  
 T1189:;  
3310          goto T1188;          goto T1188;
3311  goto T1186;  goto T1191;
3312  T1186:;  T1191:;
3313  goto T1203;          goto T1190;
3314  T1203:;  goto T1188;
3315          V659= (long)(1)+(V659);  T1188:;
3316          if((V659)<(V660)){  goto T1205;
3317          goto T1207;}  T1205:;
3318          goto T1182;          V661= (long)(1)+(V661);
3319  goto T1207;          if((V661)<(V662)){
3320  T1207:;          goto T1209;}
3321          base[3]= elt((V653),V659);          goto T1184;
3322    goto T1209;
3323    T1209:;
3324            base[3]= elt((V655),V661);
3325          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3326          super_funcall_no_event((V657));          super_funcall_no_event((V659));
3327          vs_top=sup;          vs_top=sup;
3328          base[2]= vs_base[0];          base[2]= vs_base[0];
3329          base[3]= (V662);          base[3]= (V664);
3330          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3331          super_funcall_no_event((V656));          super_funcall_no_event((V658));
3332          vs_top=sup;          vs_top=sup;
3333          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3334          goto T1204;}          goto T1206;}
         goto T1201;  
 goto T1204;  
 T1204:;  
3335          goto T1203;          goto T1203;
3336  goto T1201;  goto T1206;
3337  T1201:;  T1206:;
3338          {object V663;          goto T1205;
3339          V663= elt((V653),V659);  goto T1203;
3340          V664= elt((V653),V660);  T1203:;
3341          (void)(elt_set((V653),V659,/* INLINE-ARGS */V664));          {object V665;
3342          (void)(elt_set((V653),V660,(V663)));}          V665= elt((V655),V661);
3343          goto T1184;          V666= elt((V655),V662);
3344  goto T1182;          (void)(elt_set((V655),V661,/* INLINE-ARGS */V666));
3345  T1182:;          (void)(elt_set((V655),V662,(V665)));}
3346          V665= elt((V653),V659);          goto T1186;
3347          (void)(elt_set((V653),V654,/* INLINE-ARGS */V665));  goto T1184;
3348          (void)(elt_set((V653),V659,(V661)));  T1184:;
3349          (void)((*(LnkLI56))((V653),V654,V659,(V656),(V657)));          V667= elt((V655),V661);
3350          V654= (long)(1)+(V659);          (void)(elt_set((V655),V656,/* INLINE-ARGS */V667));
3351            (void)(elt_set((V655),V661,(V663)));
3352            (void)((*(LnkLI56))((V655),V656,V661,(V658),(V659)));
3353            V656= (long)(1)+(V661);
3354          goto TTL;}          goto TTL;}
3355          base[0]=base[0];          base[0]=base[0];
3356          return Cnil;          return Cnil;
# Line 3357  static void L43() Line 3361  static void L43()
3361  {register object *base=vs_base;  {register object *base=vs_base;
3362          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
3363          vs_reserve(VM42);          vs_reserve(VM42);
3364          {register object V666;          {register object V668;
3365          object V667;          object V669;
3366          object V668;          object V670;
3367          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3368          parse_key(vs_base+2,FALSE,FALSE,1,VV[16]);          parse_key(vs_base+2,FALSE,FALSE,1,VV[16]);
3369          V666=(base[0]);          V668=(base[0]);
3370          V667=(base[1]);          V669=(base[1]);
3371          vs_top=sup;          vs_top=sup;
3372          if(base[3]==Cnil){          if(base[3]==Cnil){
3373          V668= symbol_function(VV[33]);          V670= symbol_function(VV[33]);
3374          }else{          }else{
3375          V668=(base[2]);}          V670=(base[2]);}
3376          if(!(type_of((V666))==t_cons||((V666))==Cnil)){          if(!(type_of((V668))==t_cons||((V668))==Cnil)){
3377          goto T1230;}          goto T1232;}
3378          base[4]= (V666);          base[4]= (V668);
3379          base[5]= (V667);          base[5]= (V669);
3380          base[6]= (V668);          base[6]= (V670);
3381          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3382          (void) (*Lnk55)();          (void) (*Lnk55)();
3383          return;          return;
3384  goto T1230;  goto T1232;
3385  T1230:;  T1232:;
3386          if(type_of((V666))==t_string){          if(type_of((V668))==t_string){
3387          goto T1235;}          goto T1237;}
3388          if(!((type_of((V666))==t_bitvector))){          if(!((type_of((V668))==t_bitvector))){
3389          goto T1236;}          goto T1238;}
3390  goto T1235;  goto T1237;
3391  T1235:;  T1237:;
3392          base[4]= (V666);          base[4]= (V668);
3393          base[5]= (V667);          base[5]= (V669);
3394          base[6]= VV[16];          base[6]= VV[16];
3395          base[7]= (V668);          base[7]= (V670);
3396          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
3397          (void) (*Lnk57)();          (void) (*Lnk57)();
3398          return;          return;
3399  goto T1236;  goto T1238;
3400  T1236:;  T1238:;
3401          base[4]= (*(LnkLI58))((V666),VV[0]);          base[4]= (*(LnkLI58))((V668),VV[0]);
3402          base[5]= (V667);          base[5]= (V669);
3403          base[6]= (V668);          base[6]= (V670);
3404          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3405          (void) (*Lnk55)();          (void) (*Lnk55)();
3406          vs_top=sup;          vs_top=sup;
3407          V669= vs_base[0];          V671= vs_base[0];
3408          V670= (*(LnkLI47))((V666));          V672= (*(LnkLI47))((V668));
3409          base[4]= (*(LnkLI58))(V669,/* INLINE-ARGS */V670);          base[4]= (*(LnkLI58))(V671,/* INLINE-ARGS */V672);
3410          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3411          return;          return;
3412          }          }
3413  }  }
3414  /*      local entry for function MERGE  */  /*      local entry for function MERGE  */
3415    
3416  static object LI44(V674,V673,V672,V671,va_alist)  static object LI44(V676,V675,V674,V673,va_alist)
3417          object V674,V673,V672,V671;          object V676,V675,V674,V673;
3418          va_dcl          va_dcl
3419  {        {      
3420          va_list ap;          va_list ap;
3421          int narg = VFUN_NARGS; VMB43 VMS43 VMV43          int narg = VFUN_NARGS; VMB43 VMS43 VMV43
3422          {object V675;          {object V677;
3423          register object V676;          register object V678;
3424          object V677;          object V679;
3425          object V678;          object V680;
3426          register object V679;          register object V681;
3427          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
3428          va_start(ap);          va_start(ap);
3429          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
3430          V675= V674;          V677= V676;
3431          V676= V673;          V678= V675;
3432          V677= V672;          V679= V674;
3433          V678= V671;          V680= V673;
3434          narg= narg - 4;          narg= narg - 4;
3435          {          {
3436          parse_key_new(narg,Vcs +4,(struct key *)&LI44key,ap);          parse_key_new(narg,Vcs +4,(struct key *)&LI44key,ap);
3437          if(Vcs[4]==0){          if(Vcs[4]==0){
3438          V679= symbol_function(VV[33]);          V681= symbol_function(VV[33]);
3439          }else{          }else{
3440          V679=(Vcs[4]);}          V681=(Vcs[4]);}
3441          {long V680;          {long V682;
3442          long V681;          long V683;
3443          V680= (long)length((V676));          V682= (long)length((V678));
3444          V681= (long)length((V677));          V683= (long)length((V679));
3445          if(!(equal((V679),Cnil))){          if(!(equal((V681),Cnil))){
3446          goto T1251;}          goto T1253;}
3447          V679= symbol_function(VV[33]);          V681= symbol_function(VV[33]);
3448  goto T1251;  goto T1253;
3449  T1251:;  T1253:;
3450          {register object V682;          {register object V684;
         register long V683;  
         register long V684;  
3451          register long V685;          register long V685;
3452          V686 = make_fixnum((long)(V680)+(V681));          register long V686;
3453          V682= (VFUN_NARGS=2,(*(LnkLI46))((V675),V686));          register long V687;
3454          V683= 0;          V688 = make_fixnum((long)(V682)+(V683));
3455          V684= 0;          V684= (VFUN_NARGS=2,(*(LnkLI46))((V677),V688));
3456          V685= 0;          V685= 0;
3457  goto T1260;          V686= 0;
3458  T1260:;          V687= 0;
3459          if(!((V684)==(V680))){  goto T1262;
3460          goto T1261;}  T1262:;
3461          if(!((V685)==(V681))){          if(!((V686)==(V682))){
3462          goto T1261;}          goto T1263;}
3463          {object V687 = (V682);          if(!((V687)==(V683))){
3464          VMR43(V687)}          goto T1263;}
3465  goto T1261;          {object V689 = (V684);
3466  T1261:;          VMR43(V689)}
3467          if(!((V684)<(V680))){  goto T1263;
3468          goto T1269;}  T1263:;
3469          if(!((V685)<(V681))){          if(!((V686)<(V682))){
3470          goto T1269;}          goto T1271;}
3471          base[1]= elt((V676),V684);          if(!((V687)<(V683))){
3472            goto T1271;}
3473            base[1]= elt((V678),V686);
3474          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3475          super_funcall_no_event((V679));          super_funcall_no_event((V681));
3476          vs_top=sup;          vs_top=sup;
3477          base[0]= vs_base[0];          base[0]= vs_base[0];
3478          base[2]= elt((V677),V685);          base[2]= elt((V679),V687);
3479          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3480          super_funcall_no_event((V679));          super_funcall_no_event((V681));
3481          vs_top=sup;          vs_top=sup;
3482          base[1]= vs_base[0];          base[1]= vs_base[0];
3483          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3484          super_funcall_no_event((V678));          super_funcall_no_event((V680));
3485          vs_top=sup;          vs_top=sup;
3486          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3487          goto T1274;}          goto T1276;}
3488          V688= elt((V676),V684);          V690= elt((V678),V686);
3489          (void)(elt_set((V682),V683,/* INLINE-ARGS */V688));          (void)(elt_set((V684),V685,/* INLINE-ARGS */V690));
3490          V684= (long)(1)+(V684);          V686= (long)(1)+(V686);
3491          goto T1267;          goto T1269;
3492  goto T1274;  goto T1276;
3493  T1274:;  T1276:;
3494          base[1]= elt((V677),V685);          base[1]= elt((V679),V687);
3495          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3496          super_funcall_no_event((V679));          super_funcall_no_event((V681));
3497          vs_top=sup;          vs_top=sup;
3498          base[0]= vs_base[0];          base[0]= vs_base[0];
3499          base[2]= elt((V676),V684);          base[2]= elt((V678),V686);
3500          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3501          super_funcall_no_event((V679));          super_funcall_no_event((V681));
3502          vs_top=sup;          vs_top=sup;
3503          base[1]= vs_base[0];          base[1]= vs_base[0];
3504          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3505          super_funcall_no_event((V678));          super_funcall_no_event((V680));
3506          vs_top=sup;          vs_top=sup;
3507          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3508          goto T1283;}          goto T1285;}
3509          V689= elt((V677),V685);          V691= elt((V679),V687);
3510          (void)(elt_set((V682),V683,/* INLINE-ARGS */V689));          (void)(elt_set((V684),V685,/* INLINE-ARGS */V691));
3511          V685= (long)(1)+(V685);          V687= (long)(1)+(V687);
3512          goto T1267;          goto T1269;
3513  goto T1283;  goto T1285;
3514  T1283:;  T1285:;
3515          V690= elt((V676),V684);          V692= elt((V678),V686);
3516          (void)(elt_set((V682),V683,/* INLINE-ARGS */V690));          (void)(elt_set((V684),V685,/* INLINE-ARGS */V692));
3517          V684= (long)(1)+(V684);          V686= (long)(1)+(V686);
3518          goto T1267;          goto T1269;
3519    goto T1271;
3520    T1271:;
3521            if(!((V686)<(V682))){
3522            goto T1296;}
3523            V693= elt((V678),V686);
3524            (void)(elt_set((V684),V685,/* INLINE-ARGS */V693));
3525            V686= (long)(1)+(V686);
3526            goto T1269;
3527    goto T1296;
3528    T1296:;
3529            V694= elt((V679),V687);
3530            (void)(elt_set((V684),V685,/* INLINE-ARGS */V694));
3531            V687= (long)(1)+(V687);
3532  goto T1269;  goto T1269;
3533  T1269:;  T1269:;
         if(!((V684)<(V680))){  
         goto T1294;}  
         V691= elt((V676),V684);  
         (void)(elt_set((V682),V683,/* INLINE-ARGS */V691));  
         V684= (long)(1)+(V684);  
         goto T1267;  
 goto T1294;  
 T1294:;  
         V692= elt((V677),V685);  
         (void)(elt_set((V682),V683,/* INLINE-ARGS */V692));  
3534          V685= (long)(1)+(V685);          V685= (long)(1)+(V685);
3535  goto T1267;          goto T1262;}}
 T1267:;  
         V683= (long)(1)+(V683);  
         goto T1260;}}  
3536          va_end(ap);          va_end(ap);
3537          base[0]=base[0];          base[0]=base[0];
3538          return Cnil;}          return Cnil;}
# Line 3539  static void L45() Line 3543  static void L45()
3543  {register object *base=vs_base;  {register object *base=vs_base;
3544          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
3545          vs_reserve(VM44);          vs_reserve(VM44);
3546          {register object V693;          {register object V695;
3547          register object V694;          register object V696;
3548          register object V695;          register object V697;
3549          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3550          V693=(base[0]);          V695=(base[0]);
3551          V694=(base[1]);          V696=(base[1]);
3552          vs_base=vs_base+2;          vs_base=vs_base+2;
3553          vs_top[0]=Cnil;          vs_top[0]=Cnil;
3554          {object *p=vs_top;          {object *p=vs_top;
3555           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
3556          V695=(base[2]);          V697=(base[2]);
3557          vs_top=sup;          vs_top=sup;
3558          {object V696;          {object V698;
3559          base[4]= (V693);          base[4]= (V695);
3560          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3561          Ltype_of();          Ltype_of();
3562          vs_top=sup;          vs_top=sup;
3563          V698= vs_base[0];          V700= vs_base[0];
3564          if(!((VV[17])==(V698))){          if(!((VV[17])==(V700))){
3565          goto T1306;}          goto T1308;}
3566          base[4]= (V693);          base[4]= (V695);
3567          base[5]= small_fixnum(0);          base[5]= small_fixnum(0);
3568          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3569          Larray_dimension();          Larray_dimension();
3570          vs_top=sup;          vs_top=sup;
3571          base[3]= vs_base[0];          base[3]= vs_base[0];
3572          goto T1304;          goto T1306;
3573    goto T1308;
3574    T1308:;
3575            base[3]= make_fixnum((long)length((V695)));
3576  goto T1306;  goto T1306;
3577  T1306:;  T1306:;
         base[3]= make_fixnum((long)length((V693)));  
 goto T1304;  
 T1304:;  
         {object V697;  
3578          {object V699;          {object V699;
3579          object V700= (V695);          {object V701;
3580          if(endp(V700)){          object V702= (V697);
3581          V697= Cnil;          if(endp(V702)){
3582          goto T1312;}          V699= Cnil;
3583          base[4]=V699=MMcons(Cnil,Cnil);          goto T1314;}
3584  goto T1313;          base[4]=V701=MMcons(Cnil,Cnil);
3585  T1313:;  goto T1315;
3586          base[5]= (V700->c.c_car);  T1315:;
3587            base[5]= (V702->c.c_car);
3588          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3589          Llength();          Llength();
3590          vs_top=sup;          vs_top=sup;
3591          (V699->c.c_car)= vs_base[0];          (V701->c.c_car)= vs_base[0];
3592          V700=MMcdr(V700);          V702=MMcdr(V702);
3593          if(endp(V700)){          if(endp(V702)){
3594          V697= base[4];          V699= base[4];
3595          goto T1312;}          goto T1314;}
3596          V699=MMcdr(V699)=MMcons(Cnil,Cnil);          V701=MMcdr(V701)=MMcons(Cnil,Cnil);
3597          goto T1313;}          goto T1315;}
3598  goto T1312;  goto T1314;
3599  T1312:;  T1314:;
3600           vs_top=base+4;           vs_top=base+4;
3601           while(!endp(V697))           while(!endp(V699))
3602           {vs_push(car(V697));V697=cdr(V697);}           {vs_push(car(V699));V699=cdr(V699);}
3603          vs_base=base+3;}          vs_base=base+3;}
3604          Lmin();          Lmin();
3605          vs_top=sup;          vs_top=sup;
3606          V696= vs_base[0];          V698= vs_base[0];
3607          base[3]= (V693);          base[3]= (V695);
3608          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3609          Ltype_of();          Ltype_of();
3610          vs_top=sup;          vs_top=sup;
3611          V701= vs_base[0];          V703= vs_base[0];
3612          if(!((VV[17])==(V701))){          if(!((VV[17])==(V703))){
3613          goto T1316;}          goto T1318;}
3614          base[3]= (V693);          base[3]= (V695);
3615          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3616          (void) (*Lnk59)();          (void) (*Lnk59)();
3617          vs_top=sup;          vs_top=sup;
3618          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3619          goto T1316;}          goto T1318;}
3620          base[3]= (V693);          base[3]= (V695);
3621          base[4]= (V696);          base[4]= (V698);
3622          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3623          siLfill_pointer_set();          siLfill_pointer_set();
3624          vs_top=sup;          vs_top=sup;
3625  goto T1316;  goto T1318;
3626  T1316:;  T1318:;
3627          {register object V702;          {register object V704;
3628          register object V703;          register object V705;
3629          V702= (V696);          V704= (V698);
3630          V703= small_fixnum(0);          V705= small_fixnum(0);
3631  goto T1329;  goto T1331;
3632  T1329:;  T1331:;
3633          if(!(number_compare((V703),(V702))>=0)){          if(!(number_compare((V705),(V704))>=0)){
3634          goto T1330;}          goto T1332;}
3635          base[3]= (V693);          base[3]= (V695);
3636          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3637          return;          return;
3638  goto T1330;  goto T1332;
3639  T1330:;  T1332:;
3640          base[3]= (V694);          base[3]= (V696);
3641          {object V705;          {object V707;
3642          {object V706;          {object V708;
3643          object V707= (V695);          object V709= (V697);
3644          if(endp(V707)){          if(endp(V709)){
3645          V705= Cnil;          V707= Cnil;
3646          goto T1337;}          goto T1339;}
3647          base[4]=V706=MMcons(Cnil,Cnil);          base[4]=V708=MMcons(Cnil,Cnil);
3648  goto T1338;  goto T1340;
3649  T1338:;  T1340:;
3650          {register object V708;          {register object V710;
3651          V708= (V707->c.c_car);          V710= (V709->c.c_car);
3652          (V706->c.c_car)= elt((V708),fixint((V703)));}          (V708->c.c_car)= elt((V710),fixint((V705)));}
3653          V707=MMcdr(V707);          V709=MMcdr(V709);
3654          if(endp(V707)){          if(endp(V709)){
3655          V705= base[4];          V707= base[4];
3656          goto T1337;}          goto T1339;}
3657          V706=MMcdr(V706)=MMcons(Cnil,Cnil);          V708=MMcdr(V708)=MMcons(Cnil,Cnil);
3658          goto T1338;}          goto T1340;}
3659  goto T1337;  goto T1339;
3660  T1337:;  T1339:;
3661           vs_top=base+4;           vs_top=base+4;
3662           while(!endp(V705))           while(!endp(V707))
3663           {vs_push(car(V705));V705=cdr(V705);}           {vs_push(car(V707));V707=cdr(V707);}
3664          vs_base=base+4;}          vs_base=base+4;}
3665          super_funcall_no_event(base[3]);          super_funcall_no_event(base[3]);
3666          vs_top=sup;          vs_top=sup;
3667          V704= vs_base[0];          V706= vs_base[0];
3668          (void)(elt_set((V693),fixint((V703)),V704));          (void)(elt_set((V695),fixint((V705)),V706));
3669          V703= one_plus((V703));          V705= one_plus((V705));
3670          goto T1329;}}          goto T1331;}}
3671          }          }
3672  }  }
3673  /*      macro definition for WITH-HASH-TABLE-ITERATOR   */  /*      macro definition for WITH-HASH-TABLE-ITERATOR   */
# Line 3674  static void L46() Line 3678  static void L46()
3678          vs_reserve(VM45);          vs_reserve(VM45);
3679          check_arg(2);          check_arg(2);
3680          vs_top=sup;          vs_top=sup;
3681          {object V709=base[0]->c.c_cdr;          {object V711=base[0]->c.c_cdr;
3682          if(endp(V709))invalid_macro_call();          if(endp(V711))invalid_macro_call();
3683          {object V710= (V709->c.c_car);          {object V712= (V711->c.c_car);
3684          if(endp(V710))invalid_macro_call();          if(endp(V712))invalid_macro_call();
3685          base[2]= (V710->c.c_car);          base[2]= (V712->c.c_car);
3686          V710=V710->c.c_cdr;          V712=V712->c.c_cdr;
3687          if(endp(V710))invalid_macro_call();          if(endp(V712))invalid_macro_call();
3688          base[3]= (V710->c.c_car);          base[3]= (V712->c.c_car);
3689          V710=V710->c.c_cdr;          V712=V712->c.c_cdr;
3690          if(!endp(V710))invalid_macro_call();}          if(!endp(V712))invalid_macro_call();}
3691          V709=V709->c.c_cdr;          V711=V711->c.c_cdr;
3692          base[4]= V709;}          base[4]= V711;}
3693          {object V711;          {object V713;
3694          object V712;          object V714;
3695          vs_base=vs_top;          vs_base=vs_top;
3696          Lgensym();          Lgensym();
3697          vs_top=sup;          vs_top=sup;
3698          V711= vs_base[0];          V713= vs_base[0];
3699          base[5]= VV[18];          base[5]= VV[18];
3700          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3701          Lgensym();          Lgensym();
3702          vs_top=sup;          vs_top=sup;
3703          V712= vs_base[0];          V714= vs_base[0];
3704          V713= list(2,(V711),base[3]);          V715= list(2,(V713),base[3]);
3705          V714= list(2,/* INLINE-ARGS */V713,list(2,(V712),small_fixnum(0)));          V716= list(2,/* INLINE-ARGS */V715,list(2,(V714),small_fixnum(0)));
3706          V715= list(2,VV[24],(V711));          V717= list(2,VV[24],(V713));
3707          V716= list(4,VV[0],VV[23],/* INLINE-ARGS */V715,list(2,VV[24],(V712)));          V718= list(4,VV[0],VV[23],/* INLINE-ARGS */V717,list(2,VV[24],(V714)));
3708          V717= list(3,base[2],Cnil,list(5,VV[0],VV[21],VV[22],/* INLINE-ARGS */V716,list(4,VV[0],VV[25],list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(2,VV[24],(V712)),VV[28]),VV[29]),VV[30])));          V719= list(3,base[2],Cnil,list(5,VV[0],VV[21],VV[22],/* INLINE-ARGS */V718,list(4,VV[0],VV[25],list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(2,VV[24],(V714)),VV[28]),VV[29]),VV[30])));
3709          base[5]= list(3,VV[19],/* INLINE-ARGS */V714,listA(3,VV[20],make_cons(/* INLINE-ARGS */V717,Cnil),base[4]));          base[5]= list(3,VV[19],/* INLINE-ARGS */V716,listA(3,VV[20],make_cons(/* INLINE-ARGS */V719,Cnil),base[4]));
3710          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3711          return;}          return;}
3712  }  }
# Line 3713  register object *base0; Line 3717  register object *base0;
3717  {       register object *base=vs_base;  {       register object *base=vs_base;
3718          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
3719          vs_reserve(VM46);          vs_reserve(VM46);
3720          {object V718;          {object V720;
3721          check_arg(1);          check_arg(1);
3722          V718=(base[0]);          V720=(base[0]);
3723          vs_top=sup;          vs_top=sup;
3724  goto TTL;  goto TTL;
3725  TTL:;  TTL:;
3726          {long V719;          {long V721;
3727          register object V720;          register object V722;
         register object V721;  
         object V722;  
3728          register object V723;          register object V723;
3729          register object V724;          object V724;
3730          register object V725;          register object V725;
3731          V719= 0;          register object V726;
3732          V720= Cnil;          register object V727;
3733          V721= Cnil;          V721= 0;
3734          V722= Cnil;          V722= Cnil;
3735          V723= Cnil;          V723= Cnil;
3736          V724= Cnil;          V724= Cnil;
3737          V725= Cnil;          V725= Cnil;
3738          V719= (long)length((V718));          V726= Cnil;
3739          if(!((V719)<(2))){          V727= Cnil;
3740          goto T1355;}          V721= (long)length((V720));
3741          base[1]= (V718);          if(!((V721)<(2))){
3742            goto T1357;}
3743            base[1]= (V720);
3744          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3745          return;          return;
3746  goto T1355;  goto T1357;
3747  T1355:;  T1357:;
3748          if(!((V719)==(2))){          if(!((V721)==(2))){
3749          goto T1353;}          goto T1355;}
3750          V724= (          V726= (
3751          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3752          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V718))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720))));
3753          V725= (          V727= (
3754          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3755          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V718))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V720))));
3756          base[1]= (V724);          base[1]= (V726);
3757          base[2]= (V725);          base[2]= (V727);
3758          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3759          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3760          vs_top=sup;          vs_top=sup;
3761          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3762          goto T1364;}          goto T1366;}
3763          base[1]= (V718);          base[1]= (V720);
3764          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3765          return;          return;
3766  goto T1364;  goto T1366;
3767  T1364:;  T1366:;
3768          base[1]= (V725);          base[1]= (V727);
3769          base[2]= (V724);          base[2]= (V726);
3770          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3771          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3772          vs_top=sup;          vs_top=sup;
3773          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3774          goto T1369;}          goto T1371;}
3775          base[1]= nreverse((V718));          base[1]= nreverse((V720));
3776          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3777          return;          return;
3778  goto T1369;  goto T1371;
3779  T1369:;  T1371:;
3780          base[1]= (V718);          base[1]= (V720);
3781          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3782          return;          return;
3783  goto T1353;  goto T1355;
3784  T1353:;  T1355:;
3785          V719= (long)(V719>=0&&(2)>0?(V719)/(2):ifloor(V719,2));          V721= (long)(V721>=0&&(2)>0?(V721)/(2):ifloor(V721,2));
3786          {long V726;          {long V728;
3787          register object V727;          register object V729;
3788          V726= 1;          V728= 1;
3789          V727= (V718);          V729= (V720);
3790  goto T1378;  goto T1380;
3791  T1378:;  T1380:;
3792          if(!((V726)>=(V719))){          if(!((V728)>=(V721))){
3793          goto T1379;}          goto T1381;}
3794          V720= (V718);          V722= (V720);
3795          V721= cdr((V727));          V723= cdr((V729));
3796          if(type_of((V727))!=t_cons)FEwrong_type_argument(Scons,(V727));          if(type_of((V729))!=t_cons)FEwrong_type_argument(Scons,(V729));
3797          ((V727))->c.c_cdr = Cnil;          ((V729))->c.c_cdr = Cnil;
3798          goto T1375;          goto T1377;
3799  goto T1379;  goto T1381;
3800  T1379:;  T1381:;
3801          V726= (long)(1)+(V726);          V728= (long)(1)+(V728);
3802          V727= cdr((V727));          V729= cdr((V729));
3803          goto T1378;}          goto T1380;}
3804  goto T1375;  goto T1377;
3805  T1375:;  T1377:;
3806          base[1]= (V720);          base[1]= (V722);
3807          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3808          L41(base0);          L41(base0);
3809          vs_top=sup;          vs_top=sup;
3810          V720= vs_base[0];          V722= vs_base[0];
3811          base[1]= (V721);          base[1]= (V723);
3812          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3813          L41(base0);          L41(base0);
3814          vs_top=sup;          vs_top=sup;
3815          V721= vs_base[0];          V723= vs_base[0];
3816          if(!(endp_prop((V720)))){          if(!(endp_prop((V722)))){
3817            goto T1401;}
3818            base[1]= (V723);
3819            vs_top=(vs_base=base+1)+1;
3820            return;
3821    goto T1401;
3822    T1401:;
3823            if(!(endp_prop((V723)))){
3824          goto T1399;}          goto T1399;}
3825          base[1]= (V721);          base[1]= (V722);
3826          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3827          return;          return;
3828  goto T1399;  goto T1399;
3829  T1399:;  T1399:;
3830          if(!(endp_prop((V721)))){          V724= make_cons(Cnil,Cnil);
3831          goto T1397;}          V725= (V724);
3832          base[1]= (V720);          V726= (
         vs_top=(vs_base=base+1)+1;  
         return;  
 goto T1397;  
 T1397:;  
         V722= make_cons(Cnil,Cnil);  
         V723= (V722);  
         V724= (  
3833          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3834          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V722))));
3835          V725= (          V727= (
3836          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3837          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V721))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723))));
3838  goto T1348;  goto T1350;
3839  T1348:;  T1350:;
3840          base[1]= (V724);          base[1]= (V726);
3841          base[2]= (V725);          base[2]= (V727);
3842          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3843          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3844          vs_top=sup;          vs_top=sup;
3845          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3846          goto T1411;}          goto T1413;}
3847          goto T1349;          goto T1351;
3848  goto T1411;  goto T1413;
3849  T1411:;  T1413:;
3850          base[1]= (V725);          base[1]= (V727);
3851          base[2]= (V724);          base[2]= (V726);
3852          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3853          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3854          vs_top=sup;          vs_top=sup;
3855          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3856          goto T1416;}          goto T1418;}
3857          goto T1350;          goto T1352;
3858  goto T1416;  goto T1418;
3859  T1416:;  T1418:;
3860          goto T1349;          goto T1351;
3861  goto T1349;  goto T1351;
3862  T1349:;  T1351:;
3863          if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723));          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));
3864          ((V723))->c.c_cdr = (V720);          ((V725))->c.c_cdr = (V722);
3865          V723= cdr((V723));          V725= cdr((V725));
3866          V720= cdr((V720));          V722= cdr((V722));
3867          if(!(endp_prop((V720)))){          if(!(endp_prop((V722)))){
3868          goto T1425;}          goto T1427;}
3869          if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723));          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));
3870          ((V723))->c.c_cdr = (V721);          ((V725))->c.c_cdr = (V723);
3871          base[1]= cdr((V722));          base[1]= cdr((V724));
3872          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3873          return;          return;
3874  goto T1425;  goto T1427;
3875  T1425:;  T1427:;
3876          V724= (          V726= (
3877          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3878          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V722))));
3879          goto T1348;          goto T1350;
3880  goto T1350;  goto T1352;
3881  T1350:;  T1352:;
3882          if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723));          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));
3883          ((V723))->c.c_cdr = (V721);          ((V725))->c.c_cdr = (V723);
3884            V725= cdr((V725));
3885          V723= cdr((V723));          V723= cdr((V723));
3886          V721= cdr((V721));          if(!(endp_prop((V723)))){
3887          if(!(endp_prop((V721)))){          goto T1438;}
3888          goto T1436;}          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));
3889          if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723));          ((V725))->c.c_cdr = (V722);
3890          ((V723))->c.c_cdr = (V720);          base[1]= cdr((V724));
         base[1]= cdr((V722));  
3891          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3892          return;          return;
3893  goto T1436;  goto T1438;
3894  T1436:;  T1438:;
3895          V725= (          V727= (
3896          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3897          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V721))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723))));
3898          goto T1348;}          goto T1350;}
3899          }          }
3900  }  }
3901  static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* ARRAY-HAS-FILL-POINTER-P */

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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