/[gcl]/gcl/pcl/pcl_cache.c
ViewVC logotype

Diff of /gcl/pcl/pcl_cache.c

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

revision 1.3 by camm, Tue Sep 2 20:32:43 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 660  static void L24() Line 660  static void L24()
660          base[2]= (V97->c.c_car);          base[2]= (V97->c.c_car);
661          V97=V97->c.c_cdr;          V97=V97->c.c_cdr;
662          if(!endp(V97))invalid_macro_call();}          if(!endp(V97))invalid_macro_call();}
663          base[3]= list(3,VV[37],base[2],(*(LnkLI191))(VV[38]));          V98 = base[2];
664            base[3]= list(3,VV[37],V98,(*(LnkLI191))(VV[38]));
665          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
666          return;          return;
667  }  }
# Line 672  static void L25() Line 673  static void L25()
673          vs_check;          vs_check;
674          check_arg(2);          check_arg(2);
675          vs_top=sup;          vs_top=sup;
676          {object V98=base[0]->c.c_cdr;          {object V99=base[0]->c.c_cdr;
677          if(endp(V98))invalid_macro_call();          if(endp(V99))invalid_macro_call();
678          base[2]= (V98->c.c_car);          base[2]= (V99->c.c_car);
679          V98=V98->c.c_cdr;          V99=V99->c.c_cdr;
680          if(!endp(V98))invalid_macro_call();}          if(!endp(V99))invalid_macro_call();}
681          base[3]= list(3,VV[37],base[2],(*(LnkLI191))(VV[39]));          V100 = base[2];
682            base[3]= list(3,VV[37],V100,(*(LnkLI191))(VV[39]));
683          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
684          return;          return;
685  }  }
# Line 689  static void L26() Line 691  static void L26()
691          vs_check;          vs_check;
692          check_arg(2);          check_arg(2);
693          vs_top=sup;          vs_top=sup;
694          {object V99=base[0]->c.c_cdr;          {object V101=base[0]->c.c_cdr;
695          if(endp(V99))invalid_macro_call();          if(endp(V101))invalid_macro_call();
696          base[2]= (V99->c.c_car);          base[2]= (V101->c.c_car);
697          V99=V99->c.c_cdr;          V101=V101->c.c_cdr;
698          if(!endp(V99))invalid_macro_call();}          if(!endp(V101))invalid_macro_call();}
699          base[3]= list(3,VV[37],base[2],(*(LnkLI191))(VV[40]));          V102 = base[2];
700            base[3]= list(3,VV[37],V102,(*(LnkLI191))(VV[40]));
701          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
702          return;          return;
703  }  }
# Line 706  static void L27() Line 709  static void L27()
709          vs_check;          vs_check;
710          check_arg(2);          check_arg(2);
711          vs_top=sup;          vs_top=sup;
712          {object V100=base[0]->c.c_cdr;          {object V103=base[0]->c.c_cdr;
713          if(endp(V100))invalid_macro_call();          if(endp(V103))invalid_macro_call();
714          base[2]= (V100->c.c_car);          base[2]= (V103->c.c_car);
715          V100=V100->c.c_cdr;          V103=V103->c.c_cdr;
716          if(!endp(V100))invalid_macro_call();}          if(!endp(V103))invalid_macro_call();}
717          base[3]= list(3,VV[37],base[2],(*(LnkLI191))(VV[41]));          V104 = base[2];
718            base[3]= list(3,VV[37],V104,(*(LnkLI191))(VV[41]));
719          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
720          return;          return;
721  }  }
# Line 723  static void L28() Line 727  static void L28()
727          vs_check;          vs_check;
728          check_arg(2);          check_arg(2);
729          vs_top=sup;          vs_top=sup;
730          {object V101=base[0]->c.c_cdr;          {object V105=base[0]->c.c_cdr;
731          if(endp(V101))invalid_macro_call();          if(endp(V105))invalid_macro_call();
732          base[2]= (V101->c.c_car);          base[2]= (V105->c.c_car);
733          V101=V101->c.c_cdr;          V105=V105->c.c_cdr;
734          if(!endp(V101))invalid_macro_call();}          if(!endp(V105))invalid_macro_call();}
735          base[3]= list(3,VV[37],base[2],(*(LnkLI191))(VV[42]));          V106 = base[2];
736            base[3]= list(3,VV[37],V106,(*(LnkLI191))(VV[42]));
737          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
738          return;          return;
739  }  }
# Line 741  static void L29() Line 746  static void L29()
746          bds_check;          bds_check;
747          check_arg(2);          check_arg(2);
748          vs_top=sup;          vs_top=sup;
749          {object V102=base[0]->c.c_cdr;          {object V107=base[0]->c.c_cdr;
750          if(!endp(V102))invalid_macro_call();}          if(!endp(V107))invalid_macro_call();}
751          V103 = CMPmake_fixnum((long)length(VV[32]));          V108 = CMPmake_fixnum((long)length(VV[32]));
752          V104= list(2,VV[43],listA(3,VV[44],V103,VV[45]));          V109= list(2,VV[43],listA(3,VV[44],V108,VV[45]));
753          V105= make_cons(/* INLINE-ARGS */V104,Cnil);          V110= make_cons(/* INLINE-ARGS */V109,Cnil);
754          {register object V107;          {register object V112;
755          register object V108;          register object V113;
         V107= Cnil;  
         V108= Cnil;  
         {register object V109;  
         register object V110;  
         register object V111;  
         register object V112;  
         V109= small_fixnum(0);  
         V110= Cnil;  
         V111= VV[32];  
756          V112= Cnil;          V112= Cnil;
757            V113= Cnil;
758            {register object V114;
759            register object V115;
760            register object V116;
761            register object V117;
762            V114= small_fixnum(0);
763            V115= Cnil;
764            V116= VV[32];
765            V117= Cnil;
766          goto T185;          goto T185;
767  T185:;  T185:;
768          {register object V113;          {register object V118;
769          V113= (V109);          V118= (V114);
770          V109= number_plus((V109),small_fixnum(1));          V114= number_plus((V114),small_fixnum(1));
771          V110= (V113);}          V115= (V118);}
772          {register object V114;          {register object V119;
773          if(!(((V111))==Cnil)){          if(!(((V116))==Cnil)){
774          goto T195;}          goto T195;}
775          goto T179;          goto T179;
776          goto T195;          goto T195;
777  T195:;  T195:;
778          V114= CMPcar((V111));          V119= CMPcar((V116));
779          V111= CMPcdr((V111));          V116= CMPcdr((V116));
780          V112= (V114);}          V117= (V119);}
781          {register object V115;          {register object V120;
782          V115= (V112);          V120= (V117);
783          if(!(eql((V115),VV[46]))){          if(!(eql((V120),VV[46]))){
784          goto T200;}          goto T200;}
785          {register object V116;          {register object V121;
786          V116= list(3,VV[14],list(3,VV[37],VV[43],(V110)),VV[47]);          V121= list(3,VV[14],list(3,VV[37],VV[43],(V115)),VV[47]);
787          if(((V107))!=Cnil){          if(((V112))!=Cnil){
788          goto T204;}          goto T204;}
789          V108= make_cons((V116),Cnil);          V113= make_cons((V121),Cnil);
790          V107= (V108);          V112= (V113);
791          goto T186;          goto T186;
792          goto T204;          goto T204;
793  T204:;  T204:;
794          V118= make_cons((V116),Cnil);          V123= make_cons((V121),Cnil);
795          ((V108))->c.c_cdr = /* INLINE-ARGS */V118;          ((V113))->c.c_cdr = /* INLINE-ARGS */V123;
796          V117= (V108);          V122= (V113);
797          V108= CMPcdr(V117);          V113= CMPcdr(V122);
798          goto T186;}          goto T186;}
799          goto T200;          goto T200;
800  T200:;  T200:;
801          {register object x= (V115),V119= VV[48];          {register object x= (V120),V124= VV[48];
802          while(V119!=Cnil)          while(V124!=Cnil)
803          if(eql(x,V119->c.c_car)){          if(eql(x,V124->c.c_car)){
804          goto T212;          goto T212;
805          }else V119=V119->c.c_cdr;          }else V124=V124->c.c_cdr;
806          goto T211;}          goto T211;}
807          goto T212;          goto T212;
808  T212:;  T212:;
# Line 808  T211:; Line 813  T211:;
813          bds_bind(VV[50],small_fixnum(4));          bds_bind(VV[50],small_fixnum(4));
814          base[4]= VV[51];          base[4]= VV[51];
815          base[5]= VV[52];          base[5]= VV[52];
816          base[6]= (V115);          base[6]= (V120);
817          base[7]= VV[46];          base[7]= VV[46];
818          base[8]= VV[38];          base[8]= VV[38];
819          base[9]= VV[39];          base[9]= VV[39];
# Line 825  T186:; Line 830  T186:;
830          goto T185;}          goto T185;}
831          goto T179;          goto T179;
832  T179:;  T179:;
833          V106= (V107);}          V111= (V112);}
834          base[2]= listA(3,VV[10],/* INLINE-ARGS */V105,append(V106,VV[53]));          base[2]= listA(3,VV[10],/* INLINE-ARGS */V110,append(V111,VV[53]));
835          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
836          return;          return;
837  }  }
838  /*      local entry for function MAKE-WRAPPER   */  /*      local entry for function MAKE-WRAPPER   */
839    
840  static object LI30(object V120,object first,...)  static object LI30(object V125,object first,...)
841  {        {      
842          va_list ap;          va_list ap;
843          int narg = VFUN_NARGS; VMB30 VMS30 VMV30          int narg = VFUN_NARGS; VMB30 VMS30 VMV30
844          {object V121;          {object V126;
845          object V122;          object V127;
846          va_start(ap,first);          va_start(ap,first);
847          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
848          V121= V120;          V126= V125;
849          narg = narg - 1;          narg = narg - 1;
850          if (narg <= 0) goto T223;          if (narg <= 0) goto T223;
851          else {          else {
852          V122= first;}          V127= first;}
853          --narg; goto T224;          --narg; goto T224;
854          goto T223;          goto T223;
855  T223:;  T223:;
856          V122= Cnil;          V127= Cnil;
857          goto T224;          goto T224;
858  T224:;  T224:;
859          {object V123;          {object V128;
860          {register object V124;          {register object V129;
861          base[0]= small_fixnum(13);          base[0]= small_fixnum(13);
862          base[1]= VV[5];          base[1]= VV[5];
863          base[2]= Cnil;          base[2]= Cnil;
864          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
865          (void) (*Lnk44)();          (void) (*Lnk44)();
866          vs_top=sup;          vs_top=sup;
867          V124= vs_base[0];          V129= vs_base[0];
868          V125 = CMPmake_fixnum((long)(*(LnkLI192))());          V130 = (V129);
         (void)(((V124))->v.v_self[0]= (V125));  
         V126 = CMPmake_fixnum((long)(*(LnkLI192))());  
         (void)(((V124))->v.v_self[1]= (V126));  
         V127 = CMPmake_fixnum((long)(*(LnkLI192))());  
         (void)(((V124))->v.v_self[2]= (V127));  
         V128 = CMPmake_fixnum((long)(*(LnkLI192))());  
         (void)(((V124))->v.v_self[3]= (V128));  
         V129 = CMPmake_fixnum((long)(*(LnkLI192))());  
         (void)(((V124))->v.v_self[4]= (V129));  
         V130 = CMPmake_fixnum((long)(*(LnkLI192))());  
         (void)(((V124))->v.v_self[5]= (V130));  
869          V131 = CMPmake_fixnum((long)(*(LnkLI192))());          V131 = CMPmake_fixnum((long)(*(LnkLI192))());
870          (void)(((V124))->v.v_self[6]= (V131));          (void)((V130)->v.v_self[0]= (V131));
871          V132 = CMPmake_fixnum((long)(*(LnkLI192))());          V132 = (V129);
872          (void)(((V124))->v.v_self[7]= (V132));          V133 = CMPmake_fixnum((long)(*(LnkLI192))());
873          (void)(((V124))->v.v_self[8]= (Ct));          (void)((V132)->v.v_self[1]= (V133));
874          V123= (V124);}          V134 = (V129);
875          (void)(((V123))->v.v_self[12]= ((V121)));          V135 = CMPmake_fixnum((long)(*(LnkLI192))());
876          (void)(((V123))->v.v_self[11]= ((V122)));          (void)((V134)->v.v_self[2]= (V135));
877          {object V133 = (V123);          V136 = (V129);
878          VMR30(V133)}}          V137 = CMPmake_fixnum((long)(*(LnkLI192))());
879            (void)((V136)->v.v_self[3]= (V137));
880            V138 = (V129);
881            V139 = CMPmake_fixnum((long)(*(LnkLI192))());
882            (void)((V138)->v.v_self[4]= (V139));
883            V140 = (V129);
884            V141 = CMPmake_fixnum((long)(*(LnkLI192))());
885            (void)((V140)->v.v_self[5]= (V141));
886            V142 = (V129);
887            V143 = CMPmake_fixnum((long)(*(LnkLI192))());
888            (void)((V142)->v.v_self[6]= (V143));
889            V144 = (V129);
890            V145 = CMPmake_fixnum((long)(*(LnkLI192))());
891            (void)((V144)->v.v_self[7]= (V145));
892            (void)(((V129))->v.v_self[8]= (Ct));
893            V128= (V129);}
894            (void)(((V128))->v.v_self[12]= ((V126)));
895            (void)(((V128))->v.v_self[11]= ((V127)));
896            {object V146 = (V128);
897            VMR30(V146)}}
898          va_end(ap);          va_end(ap);
899          base[0]=base[0];          base[0]=base[0];
900          return Cnil;}          return Cnil;}
# Line 894  static void L31() Line 907  static void L31()
907          vs_check;          vs_check;
908          check_arg(2);          check_arg(2);
909          vs_top=sup;          vs_top=sup;
910          {object V134=base[0]->c.c_cdr;          {object V147=base[0]->c.c_cdr;
911          if(endp(V134))invalid_macro_call();          if(endp(V147))invalid_macro_call();
912          base[2]= (V134->c.c_car);          base[2]= (V147->c.c_car);
913          V134=V134->c.c_cdr;          V147=V147->c.c_cdr;
914          if(endp(V134))invalid_macro_call();          if(endp(V147))invalid_macro_call();
915          base[3]= (V134->c.c_car);          base[3]= (V147->c.c_car);
916          V134=V134->c.c_cdr;          V147=V147->c.c_cdr;
917          if(!endp(V134))invalid_macro_call();}          if(!endp(V147))invalid_macro_call();}
918          base[4]= list(3,VV[1],VV[54],list(3,VV[0],list(2,VV[55],base[2]),base[3]));          base[4]= list(3,VV[1],VV[54],list(3,VV[0],list(2,VV[55],base[2]),base[3]));
919          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
920          return;          return;
# Line 914  static void L32() Line 927  static void L32()
927          vs_check;          vs_check;
928          check_arg(2);          check_arg(2);
929          vs_top=sup;          vs_top=sup;
930          {object V135=base[0]->c.c_cdr;          {object V148=base[0]->c.c_cdr;
931          if(endp(V135))invalid_macro_call();          if(endp(V148))invalid_macro_call();
932          base[2]= (V135->c.c_car);          base[2]= (V148->c.c_car);
933          V135=V135->c.c_cdr;          V148=V148->c.c_cdr;
934          if(!endp(V135))invalid_macro_call();}          if(!endp(V148))invalid_macro_call();}
935          base[3]= list(2,VV[56],list(2,VV[57],base[2]));          base[3]= list(2,VV[56],list(2,VV[57],base[2]));
936          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
937          return;          return;
# Line 931  static void L33() Line 944  static void L33()
944          vs_check;          vs_check;
945          check_arg(2);          check_arg(2);
946          vs_top=sup;          vs_top=sup;
947          {object V136=base[0]->c.c_cdr;          {object V149=base[0]->c.c_cdr;
948          if(endp(V136))invalid_macro_call();          if(endp(V149))invalid_macro_call();
949          base[2]= (V136->c.c_car);          base[2]= (V149->c.c_car);
950          V136=V136->c.c_cdr;          V149=V149->c.c_cdr;
951          if(!endp(V136))invalid_macro_call();}          if(!endp(V149))invalid_macro_call();}
952          base[3]= list(2,VV[58],base[2]);          base[3]= list(2,VV[58],base[2]);
953          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
954          return;          return;
# Line 948  static void L34() Line 961  static void L34()
961          vs_check;          vs_check;
962          check_arg(2);          check_arg(2);
963          vs_top=sup;          vs_top=sup;
964          {object V137=base[0]->c.c_cdr;          {object V150=base[0]->c.c_cdr;
965          if(endp(V137))invalid_macro_call();          if(endp(V150))invalid_macro_call();
966          base[2]= (V137->c.c_car);          base[2]= (V150->c.c_car);
967          V137=V137->c.c_cdr;          V150=V150->c.c_cdr;
968          if(!endp(V137))invalid_macro_call();}          if(!endp(V150))invalid_macro_call();}
969          base[3]= list(3,VV[59],list(2,VV[60],base[2]),VV[61]);          base[3]= list(3,VV[59],list(2,VV[60],base[2]),VV[61]);
970          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
971          return;          return;
972  }  }
973  /*      local entry for function INVALIDATE-WRAPPER     */  /*      local entry for function INVALIDATE-WRAPPER     */
974    
975  static object LI35(V141,V142,V143)  static object LI35(V154,V155,V156)
976    
977  object V141;object V142;object V143;  object V154;object V155;object V156;
978  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
979          goto TTL;          goto TTL;
980  TTL:;  TTL:;
981          {object V144= (V142);          {object V157= (V155);
982          if((V144!= VV[193])          if((V157!= VV[193])
983          && (V144!= VV[63]))goto T242;          && (V157!= VV[63]))goto T242;
984          {object V145;          {object V158;
985          V145= Cnil;          V158= Cnil;
986          {register object V146;          {register object V159;
987          register object V147;          register object V160;
988          base[2]= (V141);          base[2]= (V154);
989          base[3]= (VV[62]->s.s_dbind);          base[3]= (VV[62]->s.s_dbind);
990          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
991          Lgethash();          Lgethash();
992          vs_top=sup;          vs_top=sup;
993          V146= vs_base[0];          V159= vs_base[0];
994          V147= CMPcar((V146));          V160= CMPcar((V159));
995          goto T249;          goto T249;
996  T249:;  T249:;
997          if(!(((V146))==Cnil)){          if(!(((V159))==Cnil)){
998          goto T250;}          goto T250;}
999          goto T243;          goto T243;
1000          goto T250;          goto T250;
1001  T250:;  T250:;
1002          if(!(((V142))==(VV[63]))){          if(!(((V155))==(VV[63]))){
1003          goto T254;}          goto T254;}
1004          {register object V149;          {register object V162;
1005          V149= VV[63];          V162= VV[63];
1006          (V147)->c.c_car = (V149);}          (V160)->c.c_car = (V162);}
1007          goto T254;          goto T254;
1008  T254:;  T254:;
1009          {register object V151;          {register object V164;
1010          V151= (V143);          V164= (V156);
1011          (CMPcdr(V147))->c.c_car = (V151);          (CMPcdr(V160))->c.c_car = (V164);
1012          (void)(CMPcdr(V147));}          (void)(CMPcdr(V160));}
1013          V145= make_cons(V147,(V145));          V158= make_cons(V160,(V158));
1014          V146= CMPcdr((V146));          V159= CMPcdr((V159));
1015          V147= CMPcar((V146));          V160= CMPcar((V159));
1016          goto T249;}          goto T249;}
1017          goto T243;          goto T243;
1018  T243:;  T243:;
1019          {register object V154;          {register object V167;
1020          object V155;          object V168;
1021          register object V156;          register object V169;
1022          object V157;          object V170;
1023          V154= VV[32];          V167= VV[32];
1024          V155= Cnil;          V168= Cnil;
1025          V156= small_fixnum(0);          V169= small_fixnum(0);
1026          V157= Cnil;          V170= Cnil;
1027          goto T275;          goto T275;
1028  T275:;  T275:;
1029          {object V158;          {object V171;
1030          if(!(((V154))==Cnil)){          if(!(((V167))==Cnil)){
1031          goto T281;}          goto T281;}
1032          goto T269;          goto T269;
1033          goto T281;          goto T281;
1034  T281:;  T281:;
1035          V158= CMPcar((V154));          V171= CMPcar((V167));
1036          V154= CMPcdr((V154));          V167= CMPcdr((V167));
1037          V155= (V158);}          V168= (V171);}
1038          {object V159;          {object V172;
1039          V159= (V156);          V172= (V169);
1040          V156= number_plus((V156),small_fixnum(1));          V169= number_plus((V169),small_fixnum(1));
1041          V157= (V159);}          V170= (V172);}
1042          if(!(((V155))==(VV[46]))){          if(!(((V168))==(VV[46]))){
1043          goto T276;}          goto T276;}
1044          (void)(((V141)->v.v_self[fix((V157))]=(small_fixnum(0))));          (void)(((V154)->v.v_self[fix((V170))]=(small_fixnum(0))));
1045          goto T276;          goto T276;
1046  T276:;  T276:;
1047          goto T275;}          goto T275;}
1048          goto T269;          goto T269;
1049  T269:;  T269:;
1050          {object V160;          {object V173;
1051          V161= list(2,(V142),(V143));          V174= list(2,(V155),(V156));
1052          V160= ((V141))->v.v_self[8]= (/* INLINE-ARGS */V161);          V173= ((V154))->v.v_self[8]= (/* INLINE-ARGS */V174);
1053          V145= make_cons((V160),(V145));}          V158= make_cons((V173),(V158));}
1054          {object V163;          {object V176;
1055          V163= (VV[62]->s.s_dbind);          V176= (VV[62]->s.s_dbind);
1056          base[0]= V141;          base[0]= V154;
1057          base[1]= (V163);          base[1]= (V176);
1058          base[2]= Cnil;          base[2]= Cnil;
1059          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1060          siLhash_set();          siLhash_set();
1061          vs_top=sup;}          vs_top=sup;}
1062          {object V166;          {object V179;
1063          V166= (VV[62]->s.s_dbind);          V179= (VV[62]->s.s_dbind);
1064          base[0]= V143;          base[0]= V156;
1065          base[1]= (V166);          base[1]= (V179);
1066          base[2]= V145;          base[2]= V158;
1067          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1068          siLhash_set();          siLhash_set();
1069          vs_top=sup;          vs_top=sup;
1070          {object V168 = vs_base[0];          {object V181 = vs_base[0];
1071          VMR35(V168)}}}          VMR35(V181)}}}
1072          goto T242;          goto T242;
1073  T242:;  T242:;
1074          FEerror("The ECASE key value ~s is illegal.",1,V144);          FEerror("The ECASE key value ~s is illegal.",1,V157);
1075          {object V169 = Cnil;          {object V182 = Cnil;
1076          VMR35(V169)}}          VMR35(V182)}}
1077          base[0]=base[0];          base[0]=base[0];
1078          return Cnil;          return Cnil;
1079  }  }
1080  /*      local entry for function CHECK-WRAPPER-VALIDITY */  /*      local entry for function CHECK-WRAPPER-VALIDITY */
1081    
1082  static object LI36(V171)  static object LI36(V184)
1083    
1084  register object V171;  register object V184;
1085  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
1086          goto TTL;          goto TTL;
1087  TTL:;  TTL:;
1088          {register object V172;          {register object V185;
1089          register object V173;          register object V186;
1090          V172= (*(LnkLI71))((V171));          V185= (*(LnkLI71))((V184));
1091          V173= ((V172))->v.v_self[8];          V186= ((V185))->v.v_self[8];
1092          if(!(((V173))==(Ct))){          if(!(((V186))==(Ct))){
1093          goto T307;}          goto T307;}
1094          {object V174 = (V172);          {object V187 = (V185);
1095          VMR36(V174)}          VMR36(V187)}
1096          goto T307;          goto T307;
1097  T307:;  T307:;
1098          {object V175;          {object V188;
1099          {object V176= CMPcar((V173));          {object V189= CMPcar((V186));
1100          if((V176!= VV[193]))goto T310;          if((V189!= VV[193]))goto T310;
1101          V175= (*(LnkLI194))((V172),CMPcadr((V173)),(V171));          V188= (*(LnkLI194))((V185),CMPcadr((V186)),(V184));
1102          goto T309;          goto T309;
1103          goto T310;          goto T310;
1104  T310:;  T310:;
1105          if((V176!= VV[63]))goto T311;          if((V189!= VV[63]))goto T311;
1106          V175= (*(LnkLI195))((V172),CMPcadr((V173)),(V171));          V188= (*(LnkLI195))((V185),CMPcadr((V186)),(V184));
1107          goto T309;          goto T309;
1108          goto T311;          goto T311;
1109  T311:;  T311:;
1110          FEerror("The ECASE key value ~s is illegal.",1,V176);          FEerror("The ECASE key value ~s is illegal.",1,V189);
1111          V175= Cnil;          V188= Cnil;
1112          goto T309;}          goto T309;}
1113          goto T309;          goto T309;
1114  T309:;  T309:;
1115          V177= (*(LnkLI71))((V171));          V190 = (V188);
1116          if(!(((((V175))==(/* INLINE-ARGS */V177)?Ct:Cnil))==Cnil)){          V191= (*(LnkLI71))((V184));
1117            if(!((((V190)==(/* INLINE-ARGS */V191)?Ct:Cnil))==Cnil)){
1118          goto T314;}          goto T314;}
1119          base[2]= VV[64];          base[2]= VV[64];
1120          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1109  T309:; Line 1123  T309:;
1123          goto T312;          goto T312;
1124          goto T314;          goto T314;
1125  T314:;  T314:;
1126          if(!((((((V175))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((V188))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
1127          goto T312;}          goto T312;}
1128          base[2]= VV[65];          base[2]= VV[65];
1129          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1117  T314:; Line 1131  T314:;
1131          vs_top=sup;          vs_top=sup;
1132          goto T312;          goto T312;
1133  T312:;  T312:;
1134          {object V178 = (V175);          {object V192 = (V188);
1135          VMR36(V178)}}}          VMR36(V192)}}}
1136          base[0]=base[0];          base[0]=base[0];
1137          return Cnil;          return Cnil;
1138  }  }
# Line 1130  static void L37() Line 1144  static void L37()
1144          vs_check;          vs_check;
1145          check_arg(2);          check_arg(2);
1146          vs_top=sup;          vs_top=sup;
1147          {object V179=base[0]->c.c_cdr;          {object V193=base[0]->c.c_cdr;
1148          if(endp(V179))invalid_macro_call();          if(endp(V193))invalid_macro_call();
1149          base[2]= (V179->c.c_car);          base[2]= (V193->c.c_car);
1150          V179=V179->c.c_cdr;          V193=V193->c.c_cdr;
1151          if(!endp(V179))invalid_macro_call();}          if(!endp(V193))invalid_macro_call();}
1152          {object V180;          {object V194;
1153          vs_base=vs_top;          vs_base=vs_top;
1154          Lgensym();          Lgensym();
1155          vs_top=sup;          vs_top=sup;
1156          V180= vs_base[0];          V194= vs_base[0];
1157          V181= list(2,VV[67],base[2]);          V195= list(2,VV[67],base[2]);
1158          V182= list(2,/* INLINE-ARGS */V181,list(2,VV[68],base[2]));          V196= list(2,/* INLINE-ARGS */V195,list(2,VV[68],base[2]));
1159          V183= list(2,VV[69],base[2]);          V197= list(2,VV[69],base[2]);
1160          V184= list(2,/* INLINE-ARGS */V183,list(2,VV[70],base[2]));          V198= list(2,/* INLINE-ARGS */V197,list(2,VV[70],base[2]));
1161          V185= list(2,(V180),list(4,VV[66],/* INLINE-ARGS */V182,/* INLINE-ARGS */V184,list(2,Ct,list(2,VV[71],base[2]))));          V199= list(2,(V194),list(4,VV[66],/* INLINE-ARGS */V196,/* INLINE-ARGS */V198,list(2,Ct,list(2,VV[71],base[2]))));
1162          V186= make_cons(/* INLINE-ARGS */V185,Cnil);          V200= make_cons(/* INLINE-ARGS */V199,Cnil);
1163          V187= list(3,VV[73],VV[74],list(2,VV[60],(V180)));          V201= list(3,VV[73],VV[74],list(2,VV[60],(V194)));
1164          base[3]= list(3,VV[10],/* INLINE-ARGS */V186,list(4,VV[72],/* INLINE-ARGS */V187,(V180),list(2,VV[75],base[2])));          base[3]= list(3,VV[10],/* INLINE-ARGS */V200,list(4,VV[72],/* INLINE-ARGS */V201,(V194),list(2,VV[75],base[2])));
1165          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1166          return;}          return;}
1167  }  }
1168  /*      local entry for function GET-CACHE      */  /*      local entry for function GET-CACHE      */
1169    
1170  static object LI38(V192,V193,V194,V195)  static object LI38(V206,V207,V208,V209)
1171    
1172  object V192;object V193;object V194;long V195;  object V206;object V207;object V208;long V209;
1173  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
1174          goto TTL;          goto TTL;
1175  TTL:;  TTL:;
1176          {register object V196;{object V197;          {register object V210;{object V211;
1177          {object V198;          {object V212;
1178          V198= CMPcar((VV[76]->s.s_dbind));          V212= CMPcar((VV[76]->s.s_dbind));
1179          (VV[76]->s.s_dbind)= CMPcdr((VV[76]->s.s_dbind));          (VV[76]->s.s_dbind)= CMPcdr((VV[76]->s.s_dbind));
1180          V197= (V198);}          V211= (V212);}
1181          if(V197==Cnil)goto T322;          if(V211==Cnil)goto T322;
1182          V196= V197;          V210= V211;
1183          goto T321;          goto T321;
1184          goto T322;          goto T322;
1185  T322:;}  T322:;}
1186          V196= (*(LnkLI196))();          V210= (*(LnkLI196))();
1187          goto T321;          goto T321;
1188  T321:;  T321:;
1189          {long V199;          {long V213;
1190          long V200;          long V214;
1191          long V201;          long V215;
1192          long V202;          long V216;
1193          base[0]= (V192);          base[0]= (V206);
1194          base[1]= (V193);          base[1]= (V207);
1195          base[2]= CMPmake_fixnum(V195);          base[2]= CMPmake_fixnum(V209);
1196          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1197          (void) (*Lnk197)();          (void) (*Lnk197)();
1198          if(vs_base>=vs_top){vs_top=sup;goto T331;}          if(vs_base>=vs_top){vs_top=sup;goto T331;}
1199          V199= fix(vs_base[0]);          V213= fix(vs_base[0]);
1200          vs_base++;          vs_base++;
1201          if(vs_base>=vs_top){vs_top=sup;goto T332;}          if(vs_base>=vs_top){vs_top=sup;goto T332;}
1202          V200= fix(vs_base[0]);          V214= fix(vs_base[0]);
1203          vs_base++;          vs_base++;
1204          if(vs_base>=vs_top){vs_top=sup;goto T333;}          if(vs_base>=vs_top){vs_top=sup;goto T333;}
1205          V201= fix(vs_base[0]);          V215= fix(vs_base[0]);
1206          vs_base++;          vs_base++;
1207          if(vs_base>=vs_top){vs_top=sup;goto T334;}          if(vs_base>=vs_top){vs_top=sup;goto T334;}
1208          V202= fix(vs_base[0]);          V216= fix(vs_base[0]);
1209          vs_top=sup;          vs_top=sup;
1210          goto T335;          goto T335;
1211          goto T331;          goto T331;
1212  T331:;  T331:;
1213          V199= fix(Cnil);          V213= fix(Cnil);
1214          goto T332;          goto T332;
1215  T332:;  T332:;
1216          V200= fix(Cnil);          V214= fix(Cnil);
1217          goto T333;          goto T333;
1218  T333:;  T333:;
1219          V201= fix(Cnil);          V215= fix(Cnil);
1220          goto T334;          goto T334;
1221  T334:;  T334:;
1222          V202= fix(Cnil);          V216= fix(Cnil);
1223          goto T335;          goto T335;
1224  T335:;  T335:;
1225          V203= Ct;          V217 = (V210);
1226          STSET(unsigned short,(V196),4, fix((V192)));          V218 = fix((V206));
1227          (void)(fix((V192)));          V219= Ct;
1228          V204= Ct;          STSET(unsigned short,V217,4, V218);
1229          STSET(object,(V196),8, (V193));          (void)(V218);
1230          (void)((V193));          V220 = (V210);
1231          V205= Ct;          V221 = (V207);
1232          STSET(fixnum,(V196),12, V202);          V222= Ct;
1233          (void)(V202);          STSET(object,V220,8, V221);
1234          {long V206= fix((*(LnkLI191))(VV[46]));          (void)(V221);
1235          V207= Ct;          V223 = (V210);
1236          STSET(unsigned char,(V196),16, /* INLINE-ARGS */V206);          V224 = V216;
1237          (void)(/* INLINE-ARGS */V206);}          V225= Ct;
1238          V208= Ct;          STSET(fixnum,V223,12, V224);
1239          STSET(object,(V196),20, (V194));          (void)(V224);
1240          (void)((V194));          V226 = (V210);
1241          V209= Ct;          {long V227= fix((*(LnkLI191))(VV[46]));
1242          STSET(fixnum,(V196),24, V199);          V228= Ct;
1243          (void)(V199);          STSET(unsigned char,V226,16, /* INLINE-ARGS */V227);
1244          V210= Ct;          (void)(/* INLINE-ARGS */V227);}
1245          STSET(fixnum,(V196),28, V200);          V229 = (V210);
1246          (void)(V200);          V230 = (V208);
1247          V211= Ct;          V231= Ct;
1248          STSET(unsigned short,(V196),32, V201);          STSET(object,V229,20, V230);
1249          (void)(V201);          (void)(V230);
1250          {long V213;          V232 = (V210);
1251          V213= (long)(V202)-1;          V233 = V213;
1252          if(!(number_compare((V192),small_fixnum(1))==0)){          V234= Ct;
1253            STSET(fixnum,V232,24, V233);
1254            (void)(V233);
1255            V235 = (V210);
1256            V236 = V214;
1257            V237= Ct;
1258            STSET(fixnum,V235,28, V236);
1259            (void)(V236);
1260            V238 = (V210);
1261            V239 = V215;
1262            V240= Ct;
1263            STSET(unsigned short,V238,32, V239);
1264            (void)(V239);
1265            V241 = (V210);
1266            {long V243;
1267            V243= (long)(V216)-1;
1268            if(!(number_compare((V206),small_fixnum(1))==0)){
1269          goto T349;}          goto T349;}
1270          V212= (long)(V213)*(V201);          V242= (long)(V243)*(V215);
1271          goto T346;          goto T346;
1272          goto T349;          goto T349;
1273  T349:;  T349:;
1274          V212= (long)((long)(V213)*(V201))+1;}          V242= (long)((long)(V243)*(V215))+1;}
1275          goto T346;          goto T346;
1276  T346:;  T346:;
1277          V214= Ct;          V244= Ct;
1278          STSET(fixnum,(V196),36, V212);          STSET(fixnum,V241,36, V242);
1279          (void)(V212);          (void)(V242);
1280          V215 = CMPmake_fixnum(V200);          V245 = (V210);
1281          V216= (*(LnkLI198))(V215);          V246 = CMPmake_fixnum(V214);
1282          V217= Ct;          V247= (*(LnkLI198))(V246);
1283          STSET(object,(V196),40, /* INLINE-ARGS */V216);          V248= Ct;
1284          (void)(/* INLINE-ARGS */V216);          STSET(object,V245,40, /* INLINE-ARGS */V247);
1285          V218= Ct;          (void)(/* INLINE-ARGS */V247);
1286          STSET(object,(V196),44, Cnil);          V249 = (V210);
1287            V250= Ct;
1288            STSET(object,V249,44, Cnil);
1289          (void)(Cnil);          (void)(Cnil);
1290          {object V219 = (V196);          {object V251 = (V210);
1291          VMR38(V219)}}}          VMR38(V251)}}}
1292          base[0]=base[0];          base[0]=base[0];
1293          return Cnil;          return Cnil;
1294  }  }
1295  /*      local entry for function GET-CACHE-FROM-CACHE   */  /*      local entry for function GET-CACHE-FROM-CACHE   */
1296    
1297  static object LI39(object V221,object V220,object first,...)  static object LI39(object V253,object V252,object first,...)
1298  {        {      
1299          va_list ap;          va_list ap;
1300          int narg = VFUN_NARGS; VMB39 VMS39 VMV39          int narg = VFUN_NARGS; VMB39 VMS39 VMV39
1301          {register object V222;          {register object V254;
1302          long V223;          long V255;
1303          object V224;          object V256;
1304          va_start(ap,first);          va_start(ap,first);
1305          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1306          V222= V221;          V254= V253;
1307          V223= fix(V220);          V255= fix(V252);
1308          narg = narg - 2;          narg = narg - 2;
1309          if (narg <= 0) goto T352;          if (narg <= 0) goto T352;
1310          else {          else {
1311          V224= first;}          V256= first;}
1312          --narg; goto T353;          --narg; goto T353;
1313          goto T352;          goto T352;
1314  T352:;  T352:;
1315          V224= (*(LnkLI191))(VV[46]);          V256= (*(LnkLI191))(VV[46]);
1316          goto T353;          goto T353;
1317  T353:;  T353:;
1318          {object V225;          {object V257;
1319          object V226;          object V258;
1320          register object V227;          register object V259;
1321          V225= CMPmake_fixnum((long)STREF(unsigned short,(V222),4));          V257= CMPmake_fixnum((long)STREF(unsigned short,(V254),4));
1322          V226= STREF(object,(V222),8);{object V228;          V258= STREF(object,(V254),8);{object V260;
1323          {object V229;          {object V261;
1324          V229= CMPcar((VV[76]->s.s_dbind));          V261= CMPcar((VV[76]->s.s_dbind));
1325          (VV[76]->s.s_dbind)= CMPcdr((VV[76]->s.s_dbind));          (VV[76]->s.s_dbind)= CMPcdr((VV[76]->s.s_dbind));
1326          V228= (V229);}          V260= (V261);}
1327          if(V228==Cnil)goto T358;          if(V260==Cnil)goto T358;
1328          V227= V228;          V259= V260;
1329          goto T357;          goto T357;
1330          goto T358;          goto T358;
1331  T358:;}  T358:;}
1332          V227= (*(LnkLI196))();          V259= (*(LnkLI196))();
1333          goto T357;          goto T357;
1334  T357:;  T357:;
1335          {long V230;          {long V262;
1336          long V231;          long V263;
1337          long V232;          long V264;
1338          long V233;          long V265;
1339          if(!((V223)==((long)STREF(fixnum,(V222),12)))){          if(!((V255)==((long)STREF(fixnum,(V254),12)))){
1340          goto T365;}          goto T365;}
1341          base[0]= CMPmake_fixnum((long)STREF(fixnum,(V222),24));          base[0]= CMPmake_fixnum((long)STREF(fixnum,(V254),24));
1342          base[1]= CMPmake_fixnum((long)STREF(fixnum,(V222),28));          base[1]= CMPmake_fixnum((long)STREF(fixnum,(V254),28));
1343          base[2]= CMPmake_fixnum((long)STREF(unsigned short,(V222),32));          base[2]= CMPmake_fixnum((long)STREF(unsigned short,(V254),32));
1344          base[3]= CMPmake_fixnum((long)STREF(fixnum,(V222),12));          base[3]= CMPmake_fixnum((long)STREF(fixnum,(V254),12));
1345          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1346          goto T363;          goto T363;
1347          goto T365;          goto T365;
1348  T365:;  T365:;
1349          base[0]= (V225);          base[0]= (V257);
1350          base[1]= (V226);          base[1]= (V258);
1351          base[2]= CMPmake_fixnum(V223);          base[2]= CMPmake_fixnum(V255);
1352          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1353          (void) (*Lnk197)();          (void) (*Lnk197)();
1354          goto T363;          goto T363;
1355  T363:;  T363:;
1356          if(vs_base>=vs_top){vs_top=sup;goto T374;}          if(vs_base>=vs_top){vs_top=sup;goto T374;}
1357          V230= fix(vs_base[0]);          V262= fix(vs_base[0]);
1358          vs_base++;          vs_base++;
1359          if(vs_base>=vs_top){vs_top=sup;goto T375;}          if(vs_base>=vs_top){vs_top=sup;goto T375;}
1360          V231= fix(vs_base[0]);          V263= fix(vs_base[0]);
1361          vs_base++;          vs_base++;
1362          if(vs_base>=vs_top){vs_top=sup;goto T376;}          if(vs_base>=vs_top){vs_top=sup;goto T376;}
1363          V232= fix(vs_base[0]);          V264= fix(vs_base[0]);
1364          vs_base++;          vs_base++;
1365          if(vs_base>=vs_top){vs_top=sup;goto T377;}          if(vs_base>=vs_top){vs_top=sup;goto T377;}
1366          V233= fix(vs_base[0]);          V265= fix(vs_base[0]);
1367          vs_top=sup;          vs_top=sup;
1368          goto T378;          goto T378;
1369          goto T374;          goto T374;
1370  T374:;  T374:;
1371          V230= fix(Cnil);          V262= fix(Cnil);
1372          goto T375;          goto T375;
1373  T375:;  T375:;
1374          V231= fix(Cnil);          V263= fix(Cnil);
1375          goto T376;          goto T376;
1376  T376:;  T376:;
1377          V232= fix(Cnil);          V264= fix(Cnil);
1378          goto T377;          goto T377;
1379  T377:;  T377:;
1380          V233= fix(Cnil);          V265= fix(Cnil);
1381          goto T378;          goto T378;
1382  T378:;  T378:;
1383          V234= Ct;          V266 = (V259);
1384          STSET(object,(V227),0, STREF(object,(V222),0));          V267= Ct;
1385          (void)(STREF(object,(V222),0));          STSET(object,V266,0, STREF(object,(V254),0));
1386          V235= Ct;          (void)(STREF(object,(V254),0));
1387          STSET(unsigned short,(V227),4, fix((V225)));          V268 = (V259);
1388          (void)(fix((V225)));          V269 = fix((V257));
1389          V236= Ct;          V270= Ct;
1390          STSET(object,(V227),8, (V226));          STSET(unsigned short,V268,4, V269);
1391          (void)((V226));          (void)(V269);
1392          V237= Ct;          V271 = (V259);
1393          STSET(fixnum,(V227),12, V233);          V272 = (V258);
1394          (void)(V233);          V273= Ct;
1395          V238= Ct;          STSET(object,V271,8, V272);
1396          STSET(unsigned char,(V227),16, fix((V224)));          (void)(V272);
1397          (void)(fix((V224)));          V274 = (V259);
1398          V239= Ct;          V275 = V265;
1399          STSET(object,(V227),20, STREF(object,(V222),20));          V276= Ct;
1400          (void)(STREF(object,(V222),20));          STSET(fixnum,V274,12, V275);
1401          V240= Ct;          (void)(V275);
1402          STSET(fixnum,(V227),24, V230);          V277 = (V259);
1403          (void)(V230);          V278 = fix((V256));
1404          V241= Ct;          V279= Ct;
1405          STSET(fixnum,(V227),28, V231);          STSET(unsigned char,V277,16, V278);
1406          (void)(V231);          (void)(V278);
1407          V242= Ct;          V280 = (V259);
1408          STSET(unsigned short,(V227),32, V232);          V281= Ct;
1409          (void)(V232);          STSET(object,V280,20, STREF(object,(V254),20));
1410          {long V244;          (void)(STREF(object,(V254),20));
1411          V244= (long)(V233)-1;          V282 = (V259);
1412          if(!(number_compare((V225),small_fixnum(1))==0)){          V283 = V262;
1413            V284= Ct;
1414            STSET(fixnum,V282,24, V283);
1415            (void)(V283);
1416            V285 = (V259);
1417            V286 = V263;
1418            V287= Ct;
1419            STSET(fixnum,V285,28, V286);
1420            (void)(V286);
1421            V288 = (V259);
1422            V289 = V264;
1423            V290= Ct;
1424            STSET(unsigned short,V288,32, V289);
1425            (void)(V289);
1426            V291 = (V259);
1427            {long V293;
1428            V293= (long)(V265)-1;
1429            if(!(number_compare((V257),small_fixnum(1))==0)){
1430          goto T393;}          goto T393;}
1431          V243= (long)(V244)*(V232);          V292= (long)(V293)*(V264);
1432          goto T390;          goto T390;
1433          goto T393;          goto T393;
1434  T393:;  T393:;
1435          V243= (long)((long)(V244)*(V232))+1;}          V292= (long)((long)(V293)*(V264))+1;}
1436          goto T390;          goto T390;
1437  T390:;  T390:;
1438          V245= Ct;          V294= Ct;
1439          STSET(fixnum,(V227),36, V243);          STSET(fixnum,V291,36, V292);
1440          (void)(V243);          (void)(V292);
1441          V246 = CMPmake_fixnum(V231);          V295 = (V259);
1442          V247= (*(LnkLI198))(V246);          V296 = CMPmake_fixnum(V263);
1443          V248= Ct;          V297= (*(LnkLI198))(V296);
1444          STSET(object,(V227),40, /* INLINE-ARGS */V247);          V298= Ct;
1445          (void)(/* INLINE-ARGS */V247);          STSET(object,V295,40, /* INLINE-ARGS */V297);
1446          V249= Ct;          (void)(/* INLINE-ARGS */V297);
1447          STSET(object,(V227),44, Cnil);          V299 = (V259);
1448            V300= Ct;
1449            STSET(object,V299,44, Cnil);
1450          (void)(Cnil);          (void)(Cnil);
1451          {object V250 = (V227);          {object V301 = (V259);
1452          VMR39(V250)}}}          VMR39(V301)}}}
1453          va_end(ap);          va_end(ap);
1454          base[0]=base[0];          base[0]=base[0];
1455          return Cnil;}          return Cnil;}
1456          }          }
1457  /*      local entry for function COPY-CACHE     */  /*      local entry for function COPY-CACHE     */
1458    
1459  static object LI40(V252)  static object LI40(V303)
1460    
1461  object V252;  object V303;
1462  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
1463          goto TTL;          goto TTL;
1464  TTL:;  TTL:;
1465          {object V253;          {object V304;
1466          object V254;          object V305;
1467          register object V255;          register object V306;
1468          register object V256;          register object V307;
1469          base[4]= (V252);          base[4]= (V303);
1470          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1471          (void) (*Lnk199)();          (void) (*Lnk199)();
1472          vs_top=sup;          vs_top=sup;
1473          V253= vs_base[0];          V304= vs_base[0];
1474          V254= CMPmake_fixnum((long)STREF(fixnum,(V252),28));          V305= CMPmake_fixnum((long)STREF(fixnum,(V303),28));
1475          V255= STREF(object,(V252),40);          V306= STREF(object,(V303),40);
1476          V256= (*(LnkLI198))((V254));          V307= (*(LnkLI198))((V305));
1477          {register long V257;          {register long V308;
1478          register long V258;          register long V309;
1479          V257= fix((V254));          V308= fix((V305));
1480          V258= 0;          V309= 0;
1481          goto T405;          goto T405;
1482  T405:;  T405:;
1483          if(!((V258)>=(V257))){          if(!((V309)>=(V308))){
1484          goto T406;}          goto T406;}
1485          goto T401;          goto T401;
1486          goto T406;          goto T406;
1487  T406:;  T406:;
1488          (void)(((V256))->v.v_self[V258]= (((V255))->v.v_self[V258]));          (void)(((V307))->v.v_self[V309]= (((V306))->v.v_self[V309]));
1489          V258= (long)(V258)+1;          V309= (long)(V309)+1;
1490          goto T405;}          goto T405;}
1491          goto T401;          goto T401;
1492  T401:;  T401:;
1493          V259= Ct;          V310 = (V304);
1494          STSET(object,(V253),40, (V256));          V311 = (V307);
1495          (void)((V256));          V312= Ct;
1496          {object V260 = (V253);          STSET(object,V310,40, V311);
1497          VMR40(V260)}}          (void)(V311);
1498            {object V313 = (V304);
1499            VMR40(V313)}}
1500          base[0]=base[0];          base[0]=base[0];
1501          return Cnil;          return Cnil;
1502  }  }
1503  /*      local entry for function FREE-CACHE     */  /*      local entry for function FREE-CACHE     */
1504    
1505  static object LI41(V262)  static object LI41(V315)
1506    
1507  register object V262;  register object V315;
1508  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
1509          goto TTL;          goto TTL;
1510  TTL:;  TTL:;
1511          (void)((*(LnkLI200))(STREF(object,(V262),40)));          (void)((*(LnkLI200))(STREF(object,(V315),40)));
1512          V263= Ct;          V316 = (V315);
1513          STSET(object,(V262),40, VV[77]);          V317= Ct;
1514            STSET(object,V316,40, VV[77]);
1515          (void)(VV[77]);          (void)(VV[77]);
1516          V264= Ct;          V318 = (V315);
1517          STSET(object,(V262),0, Cnil);          V319= Ct;
1518            STSET(object,V318,0, Cnil);
1519          (void)(Cnil);          (void)(Cnil);
1520          (VV[76]->s.s_dbind)= make_cons(V262,(VV[76]->s.s_dbind));          (VV[76]->s.s_dbind)= make_cons(V315,(VV[76]->s.s_dbind));
1521          {object V266 = Cnil;          {object V321 = Cnil;
1522          VMR41(V266)}          VMR41(V321)}
1523          return Cnil;          return Cnil;
1524  }  }
1525  /*      local entry for function COMPUTE-LINE-SIZE      */  /*      local entry for function COMPUTE-LINE-SIZE      */
1526    
1527  static object LI42(V268)  static object LI42(V323)
1528    
1529  object V268;  object V323;
1530  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
1531          goto TTL;          goto TTL;
1532  TTL:;  TTL:;
1533          {object V269 = (*(LnkLI201))(fix((V268)));          {object V324 = (*(LnkLI201))(fix((V323)));
1534          VMR42(V269)}          VMR42(V324)}
1535          return Cnil;          return Cnil;
1536  }  }
1537  /*      function definition for COMPUTE-CACHE-PARAMETERS        */  /*      function definition for COMPUTE-CACHE-PARAMETERS        */
# Line 1485  static void L43() Line 1540  static void L43()
1540  {register object *base=vs_base;  {register object *base=vs_base;
1541          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
1542          vs_check;          vs_check;
1543          {long V270;          {long V325;
1544          object V271;          object V326;
1545          register object V272;          register object V327;
1546          check_arg(3);          check_arg(3);
1547          V270=fix(base[0]);          V325=fix(base[0]);
1548          V271=(base[1]);          V326=(base[1]);
1549          V272=(base[2]);          V327=(base[2]);
1550          vs_top=sup;          vs_top=sup;
1551          goto TTL;          goto TTL;
1552  TTL:;  TTL:;
1553          if(!((V270)==(1))){          if(!((V325)==(1))){
1554          goto T420;}          goto T420;}
1555          {register long V273;          {register long V328;
1556          long V274;          long V329;
1557          if(((V271))==Cnil){          if(((V326))==Cnil){
1558          goto T424;}          goto T424;}
1559          V273= 2;          V328= 2;
1560          goto T422;          goto T422;
1561          goto T424;          goto T424;
1562  T424:;  T424:;
1563          V273= 1;          V328= 1;
1564          goto T422;          goto T422;
1565  T422:;  T422:;
1566          if(!(type_of((V272))==t_fixnum)){          if(!(type_of((V327))==t_fixnum)){
1567          goto T428;}          goto T428;}
1568          {long V275= fix((*(LnkLI201))(fix((V272))));          V330 = V328;
1569          V274= (long)(V273)*(/* INLINE-ARGS */V275);          {long V331= fix((*(LnkLI201))(fix((V327))));
1570            V329= (long)(V330)*(/* INLINE-ARGS */V331);
1571          goto T426;}          goto T426;}
1572          goto T428;          goto T428;
1573  T428:;  T428:;
1574          base[3]= (V272);          base[3]= (V327);
1575          base[4]= small_fixnum(0);          base[4]= small_fixnum(0);
1576          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1577          Larray_dimension();          Larray_dimension();
1578          vs_top=sup;          vs_top=sup;
1579          V274= fix(vs_base[0]);          V329= fix(vs_base[0]);
1580          goto T426;          goto T426;
1581  T426:;  T426:;
1582          base[3]= CMPmake_fixnum((long)(((long)(V274)-1) ^ ((long)(V273)-1)));          base[3]= CMPmake_fixnum((long)(((long)(V329)-1) ^ ((long)(V328)-1)));
1583          base[4]= CMPmake_fixnum(V274);          base[4]= CMPmake_fixnum(V329);
1584          base[5]= CMPmake_fixnum(V273);          base[5]= CMPmake_fixnum(V328);
1585          base[6]= CMPmake_fixnum((long)(V274>=0&&(V273)>0?(V274)/(V273):ifloor(V274,V273)));          base[6]= CMPmake_fixnum((long)(V329>=0&&(V328)>0?(V329)/(V328):ifloor(V329,V328)));
1586          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1587          return;}          return;}
1588          goto T420;          goto T420;
1589  T420:;  T420:;
1590          {register long V276;          {register long V332;
1591          long V277;          long V333;
1592          if(((V271))==Cnil){          if(((V326))==Cnil){
1593          goto T439;}          goto T439;}
1594          V279 = CMPmake_fixnum(V270);          V335 = CMPmake_fixnum(V325);
1595          V278= fix(one_plus(V279));          V334= fix(one_plus(V335));
1596          goto T437;          goto T437;
1597          goto T439;          goto T439;
1598  T439:;  T439:;
1599          V278= V270;          V334= V325;
1600          goto T437;          goto T437;
1601  T437:;  T437:;
1602          V276= fix((*(LnkLI201))(V278));          V332= fix((*(LnkLI201))(V334));
1603          if(!(type_of((V272))==t_fixnum)){          if(!(type_of((V327))==t_fixnum)){
1604          goto T443;}          goto T443;}
1605          {long V280= fix((*(LnkLI201))(fix((V272))));          V336 = V332;
1606          V277= (long)(V276)*(/* INLINE-ARGS */V280);          {long V337= fix((*(LnkLI201))(fix((V327))));
1607            V333= (long)(V336)*(/* INLINE-ARGS */V337);
1608          goto T441;}          goto T441;}
1609          goto T443;          goto T443;
1610  T443:;  T443:;
1611          base[3]= (V272);          base[3]= (V327);
1612          base[4]= small_fixnum(0);          base[4]= small_fixnum(0);
1613          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1614          Larray_dimension();          Larray_dimension();
1615          vs_top=sup;          vs_top=sup;
1616          V281= vs_base[0];          V338= vs_base[0];
1617          V277= fix(one_minus(V281));          V333= fix(one_minus(V338));
1618          goto T441;          goto T441;
1619  T441:;  T441:;
1620          base[3]= CMPmake_fixnum((long)(((long)(V277)-1) ^ ((long)(V276)-1)));          base[3]= CMPmake_fixnum((long)(((long)(V333)-1) ^ ((long)(V332)-1)));
1621          base[4]= CMPmake_fixnum((long)(V277)+1);          base[4]= CMPmake_fixnum((long)(V333)+1);
1622          base[5]= CMPmake_fixnum(V276);          base[5]= CMPmake_fixnum(V332);
1623          base[6]= CMPmake_fixnum((long)(V277>=0&&(V276)>0?(V277)/(V276):ifloor(V277,V276)));          base[6]= CMPmake_fixnum((long)(V333>=0&&(V332)>0?(V333)/(V332):ifloor(V333,V332)));
1624          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1625          return;}          return;}
1626          }          }
1627  }  }
1628  /*      local entry for function COMPUTE-PRIMARY-CACHE-LOCATION */  /*      local entry for function COMPUTE-PRIMARY-CACHE-LOCATION */
1629    
1630  static object LI44(V285,V286,V287)  static object LI44(V342,V343,V344)
1631    
1632  register long V285;long V286;object V287;  register long V342;long V343;object V344;
1633  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
1634          goto TTL;          goto TTL;
1635  TTL:;  TTL:;
1636          if(type_of((V287))==t_cons||((V287))==Cnil){          if(type_of((V344))==t_cons||((V344))==Cnil){
1637          goto T453;}          goto T453;}
1638          {long V288 = (long)((V286) & (fix(((V287))->v.v_self[V285])));          {long V345 = (long)((V343) & (fix(((V344))->v.v_self[V342])));
1639          VMR44((object)V288)}          VMR44((object)V345)}
1640          goto T453;          goto T453;
1641  T453:;  T453:;
1642          {register long V289;          {register long V346;
1643          register long V290;          register long V347;
1644          V289= 0;          V346= 0;
1645          V290= 0;          V347= 0;
1646          {register object V291;          {register object V348;
1647          register object V292;          register object V349;
1648          V291= (V287);          V348= (V344);
1649          V292= CMPcar((V291));          V349= CMPcar((V348));
1650          goto T461;          goto T461;
1651  T461:;  T461:;
1652          if(!(((V291))==Cnil)){          if(!(((V348))==Cnil)){
1653          goto T462;}          goto T462;}
1654          goto T457;          goto T457;
1655          goto T462;          goto T462;
1656  T462:;  T462:;
1657          {register long V293;          {register long V350;
1658          V293= fix(((V292))->v.v_self[V285]);          V350= fix(((V349))->v.v_self[V342]);
1659          if(!((V293)==0)){          if(!((V350)==0)){
1660          goto T469;}          goto T469;}
1661          {long V294 = 0;          {long V351 = 0;
1662          VMR44((object)V294)}          VMR44((object)V351)}
1663          goto T469;          goto T469;
1664  T469:;  T469:;
1665          V289= (long)(V289)+(V293);}          V346= (long)(V346)+(V350);}
1666          if((V290)==0){          if((V347)==0){
1667          goto T472;}          goto T472;}
1668          if(!(((long)(V290>=0&&(4)>0?(V290)%(4):imod(V290,4)))==0)){          if(!(((long)(V347>=0&&(4)>0?(V347)%(4):imod(V347,4)))==0)){
1669          goto T472;}          goto T472;}
1670          V289= (long)((V289) & (134217727));          V346= (long)((V346) & (134217727));
1671          goto T472;          goto T472;
1672  T472:;  T472:;
1673          V290= (long)(V290)+(1);          V347= (long)(V347)+(1);
1674          V291= CMPcdr((V291));          V348= CMPcdr((V348));
1675          V292= CMPcar((V291));          V349= CMPcar((V348));
1676          goto T461;}          goto T461;}
1677          goto T457;          goto T457;
1678  T457:;  T457:;
1679          {long V295 = (long)((long)((V286) & (V289)))+1;          {long V352 = (long)((long)((V343) & (V346)))+1;
1680          VMR44((object)V295)}}          VMR44((object)V352)}}
1681          base[0]=base[0];          base[0]=base[0];
1682  }  }
1683  /*      local entry for function COMPUTE-PRIMARY-CACHE-LOCATION-FROM-LOCATION   */  /*      local entry for function COMPUTE-PRIMARY-CACHE-LOCATION-FROM-LOCATION   */
1684    
1685  static object LI45(object V297,object V296,object first,...)  static object LI45(object V354,object V353,object first,...)
1686  {        {      
1687          va_list ap;          va_list ap;
1688          int narg = VFUN_NARGS; VMB45 VMS45 VMV45          int narg = VFUN_NARGS; VMB45 VMS45 VMV45
1689          {object V298;          {object V355;
1690          register long V299;          register long V356;
1691          object V300;          object V357;
1692          va_start(ap,first);          va_start(ap,first);
1693          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1694          V298= V297;          V355= V354;
1695          V299= fix(V296);          V356= fix(V353);
1696          narg = narg - 2;          narg = narg - 2;
1697          if (narg <= 0) goto T485;          if (narg <= 0) goto T485;
1698          else {          else {
1699          V300= first;}          V357= first;}
1700          --narg; goto T486;          --narg; goto T486;
1701          goto T485;          goto T485;
1702  T485:;  T485:;
1703          V300= (V298);          V357= (V355);
1704          goto T486;          goto T486;
1705  T486:;  T486:;
1706          {register long V301;          {register long V358;
1707          register object V302;          register object V359;
1708          register long V303;          register long V360;
1709          long V304;          long V361;
1710          long V305;          long V362;
1711          V301= 0;          V358= 0;
1712          V302= STREF(object,(V300),40);          V359= STREF(object,(V357),40);
1713          V303= (long)STREF(unsigned char,(V298),16);          V360= (long)STREF(unsigned char,(V355),16);
1714          V304= (long)STREF(fixnum,(V298),24);          V361= (long)STREF(fixnum,(V355),24);
1715          V305= (long)STREF(unsigned short,(V298),4);          V362= (long)STREF(unsigned short,(V355),4);
1716          {register long V306;          {register long V363;
1717          register long V307;          register long V364;
1718          V306= V305;          V363= V362;
1719          V307= 0;          V364= 0;
1720          goto T497;          goto T497;
1721  T497:;  T497:;
1722          if(!((V307)>=(V306))){          if(!((V364)>=(V363))){
1723          goto T498;}          goto T498;}
1724          goto T493;          goto T493;
1725          goto T498;          goto T498;
1726  T498:;  T498:;
1727          {register object V308;          {register object V365;
1728          register long V309;          register long V366;
1729          V308= ((V302))->v.v_self[(long)(V307)+(V299)];          V365= ((V359))->v.v_self[(long)(V364)+(V356)];
1730          V309= fix(((V308))->v.v_self[V303]);          V366= fix(((V365))->v.v_self[V360]);
1731          V301= (long)(V301)+(V309);}          V358= (long)(V358)+(V366);}
1732          if((V307)==0){          if((V364)==0){
1733          goto T505;}          goto T505;}
1734          if(!(((long)(V307>=0&&(4)>0?(V307)%(4):imod(V307,4)))==0)){          if(!(((long)(V364>=0&&(4)>0?(V364)%(4):imod(V364,4)))==0)){
1735          goto T505;}          goto T505;}
1736          V301= (long)((V301) & (134217727));          V358= (long)((V358) & (134217727));
1737          goto T505;          goto T505;
1738  T505:;  T505:;
1739          V307= (long)(V307)+1;          V364= (long)(V364)+1;
1740          goto T497;}          goto T497;}
1741          goto T493;          goto T493;
1742  T493:;  T493:;
1743          if(!((V305)==(1))){          if(!((V362)==(1))){
1744          goto T515;}          goto T515;}
1745          {object V310 = CMPmake_fixnum((long)((V304) & (V301)));          {object V367 = CMPmake_fixnum((long)((V361) & (V358)));
1746          VMR45(V310)}          VMR45(V367)}
1747          goto T515;          goto T515;
1748  T515:;  T515:;
1749          {object V311 = CMPmake_fixnum((long)((long)((V304) & (V301)))+1);          {object V368 = CMPmake_fixnum((long)((long)((V361) & (V358)))+1);
1750          VMR45(V311)}}          VMR45(V368)}}
1751          va_end(ap);          va_end(ap);
1752          base[0]=base[0];          base[0]=base[0];
1753          return Cnil;}          return Cnil;}
1754          }          }
1755  /*      local entry for function RAISE-METATYPE */  /*      local entry for function RAISE-METATYPE */
1756    
1757  static object LI48(V314,V315)  static object LI48(V371,V372)
1758    
1759  object V314;object V315;  object V371;object V372;
1760  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
1761          goto TTL;          goto TTL;
1762  TTL:;  TTL:;
1763          base[0]= (V315);          base[0]= (V372);
1764          base[1]= (VFUN_NARGS=1,(*(LnkLI202))(VV[78]));          base[1]= (VFUN_NARGS=1,(*(LnkLI202))(VV[78]));
1765          base[2]= (VFUN_NARGS=1,(*(LnkLI202))(VV[79]));          base[2]= (VFUN_NARGS=1,(*(LnkLI202))(VV[79]));
1766          base[3]= (VFUN_NARGS=1,(*(LnkLI202))(VV[80]));          base[3]= (VFUN_NARGS=1,(*(LnkLI202))(VV[80]));
1767          base[4]= (VFUN_NARGS=1,(*(LnkLI202))(VV[81]));          base[4]= (VFUN_NARGS=1,(*(LnkLI202))(VV[81]));
1768          base[5]= (VFUN_NARGS=1,(*(LnkLI202))(VV[82]));          base[5]= (VFUN_NARGS=1,(*(LnkLI202))(VV[82]));
1769          {register object V316;          {register object V373;
1770          base[6]= base[0];          base[6]= base[0];
1771          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1772          L49(base);          L49(base);
1773          vs_top=sup;          vs_top=sup;
1774          V316= vs_base[0];          V373= vs_base[0];
1775          if(!(((V316))==(VV[83]))){          if(!(((V373))==(VV[83]))){
1776          goto T525;}          goto T525;}
1777          {object V317 = VV[41];          {object V374 = VV[41];
1778          VMR46(V317)}          VMR46(V374)}
1779          goto T525;          goto T525;
1780  T525:;  T525:;
1781          if(((V314))!=Cnil){          if(((V371))!=Cnil){
1782          goto T528;}          goto T528;}
1783          {object V318 = (V316);          {object V375 = (V373);
1784          VMR46(V318)}          VMR46(V375)}
1785          goto T528;          goto T528;
1786  T528:;  T528:;
1787          if(!(((V314))==((V316)))){          if(!(((V371))==((V373)))){
1788          goto T531;}          goto T531;}
1789          {object V319 = (V316);          {object V376 = (V373);
1790          VMR46(V319)}          VMR46(V376)}
1791          goto T531;          goto T531;
1792  T531:;  T531:;
1793          {object V320 = VV[41];          {object V377 = VV[41];
1794          VMR46(V320)}}          VMR46(V377)}}
1795          base[0]=base[0];          base[0]=base[0];
1796          return Cnil;          return Cnil;
1797  }  }
# Line 1746  static void L50() Line 1803  static void L50()
1803          vs_check;          vs_check;
1804          check_arg(2);          check_arg(2);
1805          vs_top=sup;          vs_top=sup;
1806          {object V321=base[0]->c.c_cdr;          {object V378=base[0]->c.c_cdr;
1807          if(endp(V321))invalid_macro_call();          if(endp(V378))invalid_macro_call();
1808          {object V322= (V321->c.c_car);          {object V379= (V378->c.c_car);
1809          if(endp(V322))invalid_macro_call();          if(endp(V379))invalid_macro_call();
1810          base[2]= (V322->c.c_car);          base[2]= (V379->c.c_car);
1811          V322=V322->c.c_cdr;          V379=V379->c.c_cdr;
1812          if(endp(V322))invalid_macro_call();          if(endp(V379))invalid_macro_call();
1813          base[3]= (V322->c.c_car);          base[3]= (V379->c.c_car);
1814          V322=V322->c.c_cdr;          V379=V379->c.c_cdr;
1815          if(!endp(V322))invalid_macro_call();}          if(!endp(V379))invalid_macro_call();}
1816          V321=V321->c.c_cdr;          V378=V378->c.c_cdr;
1817          if(endp(V321))invalid_macro_call();          if(endp(V378))invalid_macro_call();
1818          {object V323= (V321->c.c_car);          {object V380= (V378->c.c_car);
1819          if(endp(V323))invalid_macro_call();          if(endp(V380))invalid_macro_call();
1820          base[4]= (V323->c.c_car);          base[4]= (V380->c.c_car);
1821          V323=V323->c.c_cdr;          V380=V380->c.c_cdr;
1822          if(endp(V323))invalid_macro_call();          if(endp(V380))invalid_macro_call();
1823          base[5]= (V323->c.c_car);          base[5]= (V380->c.c_car);
1824          V323=V323->c.c_cdr;          V380=V380->c.c_cdr;
1825          if(endp(V323)){          if(endp(V380)){
1826          base[6]= Cnil;          base[6]= Cnil;
1827          } else {          } else {
1828          base[6]= (V323->c.c_car);          base[6]= (V380->c.c_car);
1829          V323=V323->c.c_cdr;}          V380=V380->c.c_cdr;}
1830          if(endp(V323)){          if(endp(V380)){
1831          base[7]= Cnil;          base[7]= Cnil;
1832          } else {          } else {
1833          base[7]= (V323->c.c_car);          base[7]= (V380->c.c_car);
1834          V323=V323->c.c_cdr;}          V380=V380->c.c_cdr;}
1835          if(endp(V323)){          if(endp(V380)){
1836          base[8]= Cnil;          base[8]= Cnil;
1837          } else {          } else {
1838          base[8]= (V323->c.c_car);          base[8]= (V380->c.c_car);
1839          V323=V323->c.c_cdr;}          V380=V380->c.c_cdr;}
1840          if(!endp(V323))invalid_macro_call();}          if(!endp(V380))invalid_macro_call();}
1841          V321=V321->c.c_cdr;          V378=V378->c.c_cdr;
1842          if(endp(V321))invalid_macro_call();          if(endp(V378))invalid_macro_call();
1843          base[9]= (V321->c.c_car);          base[9]= (V378->c.c_car);
1844          V321=V321->c.c_cdr;          V378=V378->c.c_cdr;
1845          base[10]= V321;}          base[10]= V378;}
1846          V324= list(2,VV[92],base[2]);          V381= list(2,VV[92],base[2]);
1847          V325= list(2,base[5],Cnil);          V382= list(2,base[5],Cnil);
1848          V326= list(2,base[4],Cnil);          V383= list(2,base[4],Cnil);
1849          if((base[6])==Cnil){          if((base[6])==Cnil){
1850          goto T538;}          goto T538;}
1851          V327= VV[95];          V384= VV[95];
1852          goto T536;          goto T536;
1853          goto T538;          goto T538;
1854  T538:;  T538:;
1855          V327= Cnil;          V384= Cnil;
1856          goto T536;          goto T536;
1857  T536:;  T536:;
1858          V328= listA(6,/* INLINE-ARGS */V324,/* INLINE-ARGS */V325,VV[93],/* INLINE-ARGS */V326,VV[94],V327);          V385= listA(6,/* INLINE-ARGS */V381,/* INLINE-ARGS */V382,VV[93],/* INLINE-ARGS */V383,VV[94],V384);
1859          V329= list(2,VV[97],base[3]);          V386= list(2,VV[97],base[3]);
1860          if((base[6])==Cnil){          if((base[6])==Cnil){
1861          goto T542;}          goto T542;}
1862          V330= VV[101];          V387= VV[101];
1863          goto T540;          goto T540;
1864          goto T542;          goto T542;
1865  T542:;  T542:;
1866          V330= Cnil;          V387= Cnil;
1867          goto T540;          goto T540;
1868  T540:;  T540:;
1869          V331= listA(3,VV[99],VV[100],V330);          V388= listA(3,VV[99],VV[100],V387);
1870          V332= list(4,VV[105],VV[106],list(3,VV[107],base[5],Ct),VV[108]);          V389= list(4,VV[105],VV[106],list(3,VV[107],base[5],Ct),VV[108]);
1871          V333= list(2,VV[109],base[4]);          V390= list(2,VV[109],base[4]);
1872          V334= list(2,/* INLINE-ARGS */V333,list(3,VV[107],base[4],VV[43]));          V391= list(2,/* INLINE-ARGS */V390,list(3,VV[107],base[4],VV[43]));
1873          V335= list(2,VV[110],list(2,VV[111],base[4]));          V392= list(2,VV[110],list(2,VV[111],base[4]));
1874          V336= list(4,VV[66],/* INLINE-ARGS */V334,list(3,/* INLINE-ARGS */V335,VV[112],list(3,VV[107],base[4],list(3,VV[113],base[4],VV[114]))),VV[115]);          V393= list(4,VV[66],/* INLINE-ARGS */V391,list(3,/* INLINE-ARGS */V392,VV[112],list(3,VV[107],base[4],list(3,VV[113],base[4],VV[114]))),VV[115]);
1875          if((base[6])==Cnil){          if((base[6])==Cnil){
1876          goto T546;}          goto T546;}
1877          V337= VV[116];          V394= VV[116];
1878          goto T544;          goto T544;
1879          goto T546;          goto T546;
1880  T546:;  T546:;
1881          V337= Cnil;          V394= Cnil;
1882          goto T544;          goto T544;
1883  T544:;  T544:;
1884          V338= listA(6,VV[102],VV[103],VV[104],/* INLINE-ARGS */V332,/* INLINE-ARGS */V336,V337);          V395= listA(6,VV[102],VV[103],VV[104],/* INLINE-ARGS */V389,/* INLINE-ARGS */V393,V394);
1885          if((base[6])==Cnil){          if((base[6])==Cnil){
1886          goto T550;}          goto T550;}
1887          V339= VV[117];          V396= VV[117];
1888          goto T548;          goto T548;
1889          goto T550;          goto T550;
1890  T550:;  T550:;
1891          V339= Cnil;          V396= Cnil;
1892          goto T548;          goto T548;
1893  T548:;  T548:;
1894          V340= list(4,VV[96],/* INLINE-ARGS */V329,VV[98],listA(4,VV[91],/* INLINE-ARGS */V331,/* INLINE-ARGS */V338,V339));          V397= list(4,VV[96],/* INLINE-ARGS */V386,VV[98],listA(4,VV[91],/* INLINE-ARGS */V388,/* INLINE-ARGS */V395,V396));
1895          if((base[6])==Cnil){          if((base[6])==Cnil){
1896          goto T554;}          goto T554;}
1897          V342= list(2,base[6],VV[119]);          V399= list(2,base[6],VV[119]);
1898          V343= list(2,base[7],VV[120]);          V400= list(2,base[7],VV[120]);
1899          V341= list(3,/* INLINE-ARGS */V342,/* INLINE-ARGS */V343,list(2,base[8],list(3,VV[121],VV[122],base[7])));          V398= list(3,/* INLINE-ARGS */V399,/* INLINE-ARGS */V400,list(2,base[8],list(3,VV[121],VV[122],base[7])));
1900          goto T552;          goto T552;
1901          goto T554;          goto T554;
1902  T554:;  T554:;
1903          V341= Cnil;          V398= Cnil;
1904          goto T552;          goto T552;
1905  T552:;  T552:;
1906          base[11]= list(4,VV[91],/* INLINE-ARGS */V328,/* INLINE-ARGS */V340,list(4,VV[72],VV[118],base[9],listA(3,VV[91],V341,base[10])));          V401 = base[10];
1907            base[11]= list(4,VV[91],/* INLINE-ARGS */V385,/* INLINE-ARGS */V397,list(4,VV[72],VV[118],base[9],listA(3,VV[91],V398,V401)));
1908          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1909          return;          return;
1910  }  }
1911  /*      local entry for function DFUN-ARG-SYMBOL        */  /*      local entry for function DFUN-ARG-SYMBOL        */
1912    
1913  static object LI51(V345)  static object LI51(V403)
1914    
1915  object V345;  object V403;
1916  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
1917          goto TTL;          goto TTL;
1918  TTL:;{object V346;  TTL:;{object V404;
1919          V346= nth(fix((V345)),(VV[123]->s.s_dbind));          V404= nth(fix((V403)),(VV[123]->s.s_dbind));
1920          if(V346==Cnil)goto T556;          if(V404==Cnil)goto T556;
1921          {object V347 = V346;          {object V405 = V404;
1922          VMR48(V347)}          VMR48(V405)}
1923          goto T556;          goto T556;
1924  T556:;}  T556:;}
1925          base[1]= Cnil;          base[1]= Cnil;
1926          base[2]= VV[124];          base[2]= VV[124];
1927          base[3]= (V345);          base[3]= (V403);
1928          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1929          Lformat();          Lformat();
1930          vs_top=sup;          vs_top=sup;
# Line 1875  T556:;} Line 1933  T556:;}
1933          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1934          Lintern();          Lintern();
1935          vs_top=sup;          vs_top=sup;
1936          {object V348 = vs_base[0];          {object V406 = vs_base[0];
1937          VMR48(V348)}          VMR48(V406)}
1938          base[0]=base[0];          base[0]=base[0];
1939          return Cnil;          return Cnil;
1940  }  }
1941  /*      local entry for function SLOT-VECTOR-SYMBOL     */  /*      local entry for function SLOT-VECTOR-SYMBOL     */
1942    
1943  static object LI52(V350)  static object LI52(V408)
1944    
1945  object V350;  object V408;
1946  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
1947          goto TTL;          goto TTL;
1948  TTL:;{object V351;  TTL:;{object V409;
1949          V351= nth(fix((V350)),(VV[126]->s.s_dbind));          V409= nth(fix((V408)),(VV[126]->s.s_dbind));
1950          if(V351==Cnil)goto T563;          if(V409==Cnil)goto T563;
1951          {object V352 = V351;          {object V410 = V409;
1952          VMR49(V352)}          VMR49(V410)}
1953          goto T563;          goto T563;
1954  T563:;}  T563:;}
1955          base[1]= Cnil;          base[1]= Cnil;
1956          base[2]= VV[127];          base[2]= VV[127];
1957          base[3]= (V350);          base[3]= (V408);
1958          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1959          Lformat();          Lformat();
1960          vs_top=sup;          vs_top=sup;
# Line 1905  T563:;} Line 1963  T563:;}
1963          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1964          Lintern();          Lintern();
1965          vs_top=sup;          vs_top=sup;
1966          {object V353 = vs_base[0];          {object V411 = vs_base[0];
1967          VMR49(V353)}          VMR49(V411)}
1968          base[0]=base[0];          base[0]=base[0];
1969          return Cnil;          return Cnil;
1970  }  }
1971  /*      local entry for function MAKE-DFUN-LAMBDA-LIST  */  /*      local entry for function MAKE-DFUN-LAMBDA-LIST  */
1972    
1973  static object LI53(V356,V357)  static object LI53(V414,V415)
1974    
1975  object V356;object V357;  object V414;object V415;
1976  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
1977          goto TTL;          goto TTL;
1978  TTL:;  TTL:;
1979          {register object V358;          {register object V416;
1980          register object V359;          register object V417;
1981          V358= Cnil;          V416= Cnil;
1982          V359= Cnil;          V417= Cnil;
1983          {register object V360;          {register object V418;
1984          register object V361;          register object V419;
1985          register object V362;          register object V420;
1986          register object V363;          register object V421;
1987          V360= small_fixnum(0);          V418= small_fixnum(0);
1988          V361= Cnil;          V419= Cnil;
1989          V362= (V356);          V420= (V414);
1990          V363= Cnil;          V421= Cnil;
1991          goto T579;          goto T579;
1992  T579:;  T579:;
1993          {object V364;          {object V422;
1994          V364= (V360);          V422= (V418);
1995          V360= number_plus((V360),small_fixnum(1));          V418= number_plus((V418),small_fixnum(1));
1996          V361= (V364);}          V419= (V422);}
1997          {object V365;          {object V423;
1998          if(!(((V362))==Cnil)){          if(!(((V420))==Cnil)){
1999          goto T589;}          goto T589;}
2000          goto T573;          goto T573;
2001          goto T589;          goto T589;
2002  T589:;  T589:;
2003          V365= CMPcar((V362));          V423= CMPcar((V420));
2004          V362= CMPcdr((V362));          V420= CMPcdr((V420));
2005          V363= (V365);}          V421= (V423);}
2006          {register object V366;          {register object V424;
2007          V366= (*(LnkLI203))((V361));          V424= (*(LnkLI203))((V419));
2008          if(((V358))!=Cnil){          if(((V416))!=Cnil){
2009          goto T596;}          goto T596;}
2010          V359= make_cons((V366),Cnil);          V417= make_cons((V424),Cnil);
2011          V358= (V359);          V416= (V417);
2012          goto T580;          goto T580;
2013          goto T596;          goto T596;
2014  T596:;  T596:;
2015          V368= make_cons((V366),Cnil);          V426= make_cons((V424),Cnil);
2016          ((V359))->c.c_cdr = /* INLINE-ARGS */V368;          ((V417))->c.c_cdr = /* INLINE-ARGS */V426;
2017          V367= (V359);          V425= (V417);
2018          V359= CMPcdr(V367);}          V417= CMPcdr(V425);}
2019          goto T580;          goto T580;
2020  T580:;  T580:;
2021          goto T579;}          goto T579;}
2022          goto T573;          goto T573;
2023  T573:;  T573:;
2024          if(((V357))==Cnil){          if(((V415))==Cnil){
2025          goto T572;}          goto T572;}
2026          if(((V358))!=Cnil){          if(((V416))!=Cnil){
2027          goto T607;}          goto T607;}
2028          V359= make_cons(VV[128],Cnil);          V417= make_cons(VV[128],Cnil);
2029          V358= (V359);          V416= (V417);
2030          goto T605;          goto T605;
2031          goto T607;          goto T607;
2032  T607:;  T607:;
2033          V371= make_cons(VV[128],Cnil);          V429= make_cons(VV[128],Cnil);
2034          ((V359))->c.c_cdr = /* INLINE-ARGS */V371;          ((V417))->c.c_cdr = /* INLINE-ARGS */V429;
2035          V370= (V359);          V428= (V417);
2036          V359= CMPcdr(V370);          V417= CMPcdr(V428);
2037          goto T605;          goto T605;
2038  T605:;  T605:;
2039          if(((V358))!=Cnil){          if(((V416))!=Cnil){
2040          goto T614;}          goto T614;}
2041          V359= make_cons(VV[129],Cnil);          V417= make_cons(VV[129],Cnil);
2042          V358= (V359);          V416= (V417);
2043          goto T572;          goto T572;
2044          goto T614;          goto T614;
2045  T614:;  T614:;
2046          V374= make_cons(VV[129],Cnil);          V432= make_cons(VV[129],Cnil);
2047          ((V359))->c.c_cdr = /* INLINE-ARGS */V374;          ((V417))->c.c_cdr = /* INLINE-ARGS */V432;
2048          V373= (V359);          V431= (V417);
2049          V359= CMPcdr(V373);          V417= CMPcdr(V431);
2050          goto T572;          goto T572;
2051  T572:;  T572:;
2052          {object V375 = (V358);          {object V433 = (V416);
2053          VMR50(V375)}}          VMR50(V433)}}
2054          return Cnil;          return Cnil;
2055  }  }
2056  /*      local entry for function MAKE-DLAP-LAMBDA-LIST  */  /*      local entry for function MAKE-DLAP-LAMBDA-LIST  */
2057    
2058  static object LI54(V378,V379)  static object LI54(V436,V437)
2059    
2060  object V378;object V379;  object V436;object V437;
2061  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
2062          goto TTL;          goto TTL;
2063  TTL:;  TTL:;
2064          {register object V380;          {register object V438;
2065          register object V381;          register object V439;
2066          V380= Cnil;          V438= Cnil;
2067          V381= Cnil;          V439= Cnil;
2068          {register object V382;          {register object V440;
2069          register object V383;          register object V441;
2070          register object V384;          register object V442;
2071          register object V385;          register object V443;
2072          V382= small_fixnum(0);          V440= small_fixnum(0);
2073          V383= Cnil;          V441= Cnil;
2074          V384= (V378);          V442= (V436);
2075          V385= Cnil;          V443= Cnil;
2076          goto T629;          goto T629;
2077  T629:;  T629:;
2078          {object V386;          {object V444;
2079          V386= (V382);          V444= (V440);
2080          V382= number_plus((V382),small_fixnum(1));          V440= number_plus((V440),small_fixnum(1));
2081          V383= (V386);}          V441= (V444);}
2082          {object V387;          {object V445;
2083          if(!(((V384))==Cnil)){          if(!(((V442))==Cnil)){
2084          goto T639;}          goto T639;}
2085          goto T623;          goto T623;
2086          goto T639;          goto T639;
2087  T639:;  T639:;
2088          V387= CMPcar((V384));          V445= CMPcar((V442));
2089          V384= CMPcdr((V384));          V442= CMPcdr((V442));
2090          V385= (V387);}          V443= (V445);}
2091          {register object V388;          {register object V446;
2092          V388= (*(LnkLI203))((V383));          V446= (*(LnkLI203))((V441));
2093          if(((V380))!=Cnil){          if(((V438))!=Cnil){
2094          goto T646;}          goto T646;}
2095          V381= make_cons((V388),Cnil);          V439= make_cons((V446),Cnil);
2096          V380= (V381);          V438= (V439);
2097          goto T630;          goto T630;
2098          goto T646;          goto T646;
2099  T646:;  T646:;
2100          V390= make_cons((V388),Cnil);          V448= make_cons((V446),Cnil);
2101          ((V381))->c.c_cdr = /* INLINE-ARGS */V390;          ((V439))->c.c_cdr = /* INLINE-ARGS */V448;
2102          V389= (V381);          V447= (V439);
2103          V381= CMPcdr(V389);}          V439= CMPcdr(V447);}
2104          goto T630;          goto T630;
2105  T630:;  T630:;
2106          goto T629;}          goto T629;}
2107          goto T623;          goto T623;
2108  T623:;  T623:;
2109          if(((V379))==Cnil){          if(((V437))==Cnil){
2110          goto T622;}          goto T622;}
2111          if(((V380))!=Cnil){          if(((V438))!=Cnil){
2112          goto T656;}          goto T656;}
2113          V381= make_cons(VV[128],Cnil);          V439= make_cons(VV[128],Cnil);
2114          V380= (V381);          V438= (V439);
2115          goto T622;          goto T622;
2116          goto T656;          goto T656;
2117  T656:;  T656:;
2118          V393= make_cons(VV[128],Cnil);          V451= make_cons(VV[128],Cnil);
2119          ((V381))->c.c_cdr = /* INLINE-ARGS */V393;          ((V439))->c.c_cdr = /* INLINE-ARGS */V451;
2120          V392= (V381);          V450= (V439);
2121          V381= CMPcdr(V392);          V439= CMPcdr(V450);
2122          goto T622;          goto T622;
2123  T622:;  T622:;
2124          {object V394 = (V380);          {object V452 = (V438);
2125          VMR51(V394)}}          VMR51(V452)}}
2126          return Cnil;          return Cnil;
2127  }  }
2128  /*      local entry for function MAKE-EMF-CALL  */  /*      local entry for function MAKE-EMF-CALL  */
2129    
2130  static object LI55(object V397,object V396,object V395,object first,...)  static object LI55(object V455,object V454,object V453,object first,...)
2131  {        {      
2132          va_list ap;          va_list ap;
2133          int narg = VFUN_NARGS; VMB52 VMS52 VMV52          int narg = VFUN_NARGS; VMB52 VMS52 VMV52
2134          {object V398;          {object V456;
2135          object V399;          object V457;
2136          object V400;          object V458;
2137          object V401;          object V459;
2138          va_start(ap,first);          va_start(ap,first);
2139          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
2140          V398= V397;          V456= V455;
2141          V399= V396;          V457= V454;
2142          V400= V395;          V458= V453;
2143          narg = narg - 3;          narg = narg - 3;
2144          if (narg <= 0) goto T662;          if (narg <= 0) goto T662;
2145          else {          else {
2146          V401= first;}          V459= first;}
2147          --narg; goto T663;          --narg; goto T663;
2148          goto T662;          goto T662;
2149  T662:;  T662:;
2150          V401= Cnil;          V459= Cnil;
2151          goto T663;          goto T663;
2152  T663:;  T663:;
2153          {object V402;          {object V460;
2154          {register object V403;          {register object V461;
2155          register object V404;          register object V462;
2156          V403= Cnil;          V461= Cnil;
2157          V404= Cnil;          V462= Cnil;
2158          {register object V405;          {register object V463;
2159          register object V406;          register object V464;
2160          register object V407;          register object V465;
2161          register object V408;          register object V466;
2162          V405= small_fixnum(0);          V463= small_fixnum(0);
2163          V406= Cnil;          V464= Cnil;
2164          V407= (V398);          V465= (V456);
2165          V408= Cnil;          V466= Cnil;
2166          goto T674;          goto T674;
2167  T674:;  T674:;
2168          {object V409;          {object V467;
2169          V409= (V405);          V467= (V463);
2170          V405= number_plus((V405),small_fixnum(1));          V463= number_plus((V463),small_fixnum(1));
2171          V406= (V409);}          V464= (V467);}
2172          {object V410;          {object V468;
2173          if(!(((V407))==Cnil)){          if(!(((V465))==Cnil)){
2174          goto T684;}          goto T684;}
2175          goto T668;          goto T668;
2176          goto T684;          goto T684;
2177  T684:;  T684:;
2178          V410= CMPcar((V407));          V468= CMPcar((V465));
2179          V407= CMPcdr((V407));          V465= CMPcdr((V465));
2180          V408= (V410);}          V466= (V468);}
2181          {register object V411;          {register object V469;
2182          V411= (*(LnkLI203))((V406));          V469= (*(LnkLI203))((V464));
2183          if(((V403))!=Cnil){          if(((V461))!=Cnil){
2184          goto T691;}          goto T691;}
2185          V404= make_cons((V411),Cnil);          V462= make_cons((V469),Cnil);
2186          V403= (V404);          V461= (V462);
2187          goto T675;          goto T675;
2188          goto T691;          goto T691;
2189  T691:;  T691:;
2190          V413= make_cons((V411),Cnil);          V471= make_cons((V469),Cnil);
2191          ((V404))->c.c_cdr = /* INLINE-ARGS */V413;          ((V462))->c.c_cdr = /* INLINE-ARGS */V471;
2192          V412= (V404);          V470= (V462);
2193          V404= CMPcdr(V412);}          V462= CMPcdr(V470);}
2194          goto T675;          goto T675;
2195  T675:;  T675:;
2196          goto T674;}          goto T674;}
2197          goto T668;          goto T668;
2198  T668:;  T668:;
2199          V402= (V403);}          V460= (V461);}
2200          if(!(((V401))==(VV[130]))){          if(!(((V459))==(VV[130]))){
2201          goto T700;}          goto T700;}
2202          V414= VV[131];          V472= VV[131];
2203          goto T698;          goto T698;
2204          goto T700;          goto T700;
2205  T700:;  T700:;
2206          V414= VV[132];          V472= VV[132];
2207          goto T698;          goto T698;
2208  T698:;  T698:;
2209          if(((V399))==Cnil){          V473 = (V458);
2210            V474 = (V457);
2211            V475 = (V460);
2212            if(((V457))==Cnil){
2213          goto T704;}          goto T704;}
2214          V415= VV[133];          V476= VV[133];
2215          goto T702;          goto T702;
2216          goto T704;          goto T704;
2217  T704:;  T704:;
2218          V415= Cnil;          V476= Cnil;
2219          goto T702;          goto T702;
2220  T702:;  T702:;
2221          {object V416 = listA(4,V414,(V400),(V399),append((V402),V415));          {object V477 = listA(4,V472,V473,V474,append(V475,V476));
2222          VMR52(V416)}}          VMR52(V477)}}
2223          va_end(ap);          va_end(ap);
2224          return Cnil;}          return Cnil;}
2225          }          }
2226  /*      local entry for function MAKE-DFUN-CALL */  /*      local entry for function MAKE-DFUN-CALL */
2227    
2228  static object LI56(V420,V421,V422)  static object LI56(V481,V482,V483)
2229    
2230  object V420;object V421;object V422;  object V481;object V482;object V483;
2231  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
2232          goto TTL;          goto TTL;
2233  TTL:;  TTL:;
2234          {object V423;          {object V484;
2235          {register object V424;          {register object V485;
2236          register object V425;          register object V486;
2237          V424= Cnil;          V485= Cnil;
2238          V425= Cnil;          V486= Cnil;
2239          {register object V426;          {register object V487;
2240          register object V427;          register object V488;
2241          register object V428;          register object V489;
2242          register object V429;          register object V490;
2243          V426= small_fixnum(0);          V487= small_fixnum(0);
2244          V427= Cnil;          V488= Cnil;
2245          V428= (V420);          V489= (V481);
2246          V429= Cnil;          V490= Cnil;
2247          goto T715;          goto T715;
2248  T715:;  T715:;
2249          {object V430;          {object V491;
2250          V430= (V426);          V491= (V487);
2251          V426= number_plus((V426),small_fixnum(1));          V487= number_plus((V487),small_fixnum(1));
2252          V427= (V430);}          V488= (V491);}
2253          {object V431;          {object V492;
2254          if(!(((V428))==Cnil)){          if(!(((V489))==Cnil)){
2255          goto T725;}          goto T725;}
2256          goto T709;          goto T709;
2257          goto T725;          goto T725;
2258  T725:;  T725:;
2259          V431= CMPcar((V428));          V492= CMPcar((V489));
2260          V428= CMPcdr((V428));          V489= CMPcdr((V489));
2261          V429= (V431);}          V490= (V492);}
2262          {register object V432;          {register object V493;
2263          V432= (*(LnkLI203))((V427));          V493= (*(LnkLI203))((V488));
2264          if(((V424))!=Cnil){          if(((V485))!=Cnil){
2265          goto T732;}          goto T732;}
2266          V425= make_cons((V432),Cnil);          V486= make_cons((V493),Cnil);
2267          V424= (V425);          V485= (V486);
2268          goto T716;          goto T716;
2269          goto T732;          goto T732;
2270  T732:;  T732:;
2271          V434= make_cons((V432),Cnil);          V495= make_cons((V493),Cnil);
2272          ((V425))->c.c_cdr = /* INLINE-ARGS */V434;          ((V486))->c.c_cdr = /* INLINE-ARGS */V495;
2273          V433= (V425);          V494= (V486);
2274          V425= CMPcdr(V433);}          V486= CMPcdr(V494);}
2275          goto T716;          goto T716;
2276  T716:;  T716:;
2277          goto T715;}          goto T715;}
2278          goto T709;          goto T709;
2279  T709:;  T709:;
2280          V423= (V424);}          V484= (V485);}
2281          if(((V421))==Cnil){          if(((V482))==Cnil){
2282          goto T740;}          goto T740;}
2283          {object V435 = listA(3,VV[134],(V422),append((V423),VV[135]));          {object V496 = listA(3,VV[134],(V483),append((V484),VV[135]));
2284          VMR53(V435)}          VMR53(V496)}
2285          goto T740;          goto T740;
2286  T740:;  T740:;
2287          {object V436 = listA(3,VV[136],(V422),(V423));          {object V497 = listA(3,VV[136],(V483),(V484));
2288          VMR53(V436)}}          VMR53(V497)}}
2289          return Cnil;          return Cnil;
2290  }  }
2291  /*      local entry for function MAKE-DFUN-ARG-LIST     */  /*      local entry for function MAKE-DFUN-ARG-LIST     */
2292    
2293  static object LI57(V439,V440)  static object LI57(V500,V501)
2294    
2295  object V439;object V440;  object V500;object V501;
2296  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
2297          goto TTL;          goto TTL;
2298  TTL:;  TTL:;
2299          {object V441;          {object V502;
2300          {register object V442;          {register object V503;
2301          register object V443;          register object V504;
2302          V442= Cnil;          V503= Cnil;
2303          V443= Cnil;          V504= Cnil;
2304          {register object V444;          {register object V505;
2305          register object V445;          register object V506;
2306          register object V446;          register object V507;
2307          register object V447;          register object V508;
2308          V444= small_fixnum(0);          V505= small_fixnum(0);
2309          V445= Cnil;          V506= Cnil;
2310          V446= (V439);          V507= (V500);
2311          V447= Cnil;          V508= Cnil;
2312          goto T751;          goto T751;
2313  T751:;  T751:;
2314          {object V448;          {object V509;
2315          V448= (V444);          V509= (V505);
2316          V444= number_plus((V444),small_fixnum(1));          V505= number_plus((V505),small_fixnum(1));
2317          V445= (V448);}          V506= (V509);}
2318          {object V449;          {object V510;
2319          if(!(((V446))==Cnil)){          if(!(((V507))==Cnil)){
2320          goto T761;}          goto T761;}
2321          goto T745;          goto T745;
2322          goto T761;          goto T761;
2323  T761:;  T761:;
2324          V449= CMPcar((V446));          V510= CMPcar((V507));
2325          V446= CMPcdr((V446));          V507= CMPcdr((V507));
2326          V447= (V449);}          V508= (V510);}
2327          {register object V450;          {register object V511;
2328          V450= (*(LnkLI203))((V445));          V511= (*(LnkLI203))((V506));
2329          if(((V442))!=Cnil){          if(((V503))!=Cnil){
2330          goto T768;}          goto T768;}
2331          V443= make_cons((V450),Cnil);          V504= make_cons((V511),Cnil);
2332          V442= (V443);          V503= (V504);
2333          goto T752;          goto T752;
2334          goto T768;          goto T768;
2335  T768:;  T768:;
2336          V452= make_cons((V450),Cnil);          V513= make_cons((V511),Cnil);
2337          ((V443))->c.c_cdr = /* INLINE-ARGS */V452;          ((V504))->c.c_cdr = /* INLINE-ARGS */V513;
2338          V451= (V443);          V512= (V504);
2339          V443= CMPcdr(V451);}          V504= CMPcdr(V512);}
2340          goto T752;          goto T752;
2341  T752:;  T752:;
2342          goto T751;}          goto T751;}
2343          goto T745;          goto T745;
2344  T745:;  T745:;
2345          V441= (V442);}          V502= (V503);}
2346          if(((V440))==Cnil){          if(((V501))==Cnil){
2347          goto T776;}          goto T776;}
2348          V453= append((V441),VV[138]);          V514= append((V502),VV[138]);
2349          {object V454 = make_cons(VV[137],/* INLINE-ARGS */V453);          {object V515 = make_cons(VV[137],/* INLINE-ARGS */V514);
2350          VMR54(V454)}          VMR54(V515)}
2351          goto T776;          goto T776;
2352  T776:;  T776:;
2353          {object V455 = make_cons(VV[139],(V441));          {object V516 = make_cons(VV[139],(V502));
2354          VMR54(V455)}}          VMR54(V516)}}
2355          return Cnil;          return Cnil;
2356  }  }
2357  /*      local entry for function MAKE-FAST-METHOD-CALL-LAMBDA-LIST      */  /*      local entry for function MAKE-FAST-METHOD-CALL-LAMBDA-LIST      */
2358    
2359  static object LI58(V458,V459)  static object LI58(V519,V520)
2360    
2361  object V458;object V459;  object V519;object V520;
2362  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
2363          goto TTL;          goto TTL;
2364  TTL:;  TTL:;
2365          {register object V460;          {register object V521;
2366          register object V461;          register object V522;
2367          V460= Cnil;          V521= Cnil;
2368          V461= Cnil;          V522= Cnil;
2369          if(((V460))!=Cnil){          if(((V521))!=Cnil){
2370          goto T783;}          goto T783;}
2371          V461= make_cons(VV[140],Cnil);          V522= make_cons(VV[140],Cnil);
2372          V460= (V461);          V521= (V522);
2373          goto T781;          goto T781;
2374          goto T783;          goto T783;
2375  T783:;  T783:;
2376          V464= make_cons(VV[140],Cnil);          V525= make_cons(VV[140],Cnil);
2377          ((V461))->c.c_cdr = /* INLINE-ARGS */V464;          ((V522))->c.c_cdr = /* INLINE-ARGS */V525;
2378          V463= (V461);          V524= (V522);
2379          V461= CMPcdr(V463);          V522= CMPcdr(V524);
2380          goto T781;          goto T781;
2381  T781:;  T781:;
2382          if(((V460))!=Cnil){          if(((V521))!=Cnil){
2383          goto T791;}          goto T791;}
2384          V461= make_cons(VV[141],Cnil);          V522= make_cons(VV[141],Cnil);
2385          V460= (V461);          V521= (V522);
2386          goto T789;          goto T789;
2387          goto T791;          goto T791;
2388  T791:;  T791:;
2389          V467= make_cons(VV[141],Cnil);          V528= make_cons(VV[141],Cnil);
2390          ((V461))->c.c_cdr = /* INLINE-ARGS */V467;          ((V522))->c.c_cdr = /* INLINE-ARGS */V528;
2391          V466= (V461);          V527= (V522);
2392          V461= CMPcdr(V466);          V522= CMPcdr(V527);
2393          goto T789;          goto T789;
2394  T789:;  T789:;
2395          {register object V468;          {register object V529;
2396          register object V469;          register object V530;
2397          register object V470;          register object V531;
2398          register object V471;          register object V532;
2399          V468= small_fixnum(0);          V529= small_fixnum(0);
2400          V469= Cnil;          V530= Cnil;
2401          V470= (V458);          V531= (V519);
2402          V471= Cnil;          V532= Cnil;
2403          goto T803;          goto T803;
2404  T803:;  T803:;
2405          {object V472;          {object V533;
2406          V472= (V468);          V533= (V529);
2407          V468= number_plus((V468),small_fixnum(1));          V529= number_plus((V529),small_fixnum(1));
2408          V469= (V472);}          V530= (V533);}
2409          {object V473;          {object V534;
2410          if(!(((V470))==Cnil)){          if(!(((V531))==Cnil)){
2411          goto T813;}          goto T813;}
2412          goto T797;          goto T797;
2413          goto T813;          goto T813;
2414  T813:;  T813:;
2415          V473= CMPcar((V470));          V534= CMPcar((V531));
2416          V470= CMPcdr((V470));          V531= CMPcdr((V531));
2417          V471= (V473);}          V532= (V534);}
2418          {register object V474;          {register object V535;
2419          V474= (*(LnkLI203))((V469));          V535= (*(LnkLI203))((V530));
2420          if(((V460))!=Cnil){          if(((V521))!=Cnil){
2421          goto T820;}          goto T820;}
2422          V461= make_cons((V474),Cnil);          V522= make_cons((V535),Cnil);
2423          V460= (V461);          V521= (V522);
2424          goto T804;          goto T804;
2425          goto T820;          goto T820;
2426  T820:;  T820:;
2427          V476= make_cons((V474),Cnil);          V537= make_cons((V535),Cnil);
2428          ((V461))->c.c_cdr = /* INLINE-ARGS */V476;          ((V522))->c.c_cdr = /* INLINE-ARGS */V537;
2429          V475= (V461);          V536= (V522);
2430          V461= CMPcdr(V475);}          V522= CMPcdr(V536);}
2431          goto T804;          goto T804;
2432  T804:;  T804:;
2433          goto T803;}          goto T803;}
2434          goto T797;          goto T797;
2435  T797:;  T797:;
2436          if(((V459))==Cnil){          if(((V520))==Cnil){
2437          goto T780;}          goto T780;}
2438          if(((V460))!=Cnil){          if(((V521))!=Cnil){
2439          goto T830;}          goto T830;}
2440          V461= make_cons(VV[129],Cnil);          V522= make_cons(VV[129],Cnil);
2441          V460= (V461);          V521= (V522);
2442          goto T780;          goto T780;
2443          goto T830;          goto T830;
2444  T830:;  T830:;
2445          V479= make_cons(VV[129],Cnil);          V540= make_cons(VV[129],Cnil);
2446          ((V461))->c.c_cdr = /* INLINE-ARGS */V479;          ((V522))->c.c_cdr = /* INLINE-ARGS */V540;
2447          V478= (V461);          V539= (V522);
2448          V461= CMPcdr(V478);          V522= CMPcdr(V539);
2449          goto T780;          goto T780;
2450  T780:;  T780:;
2451          {object V480 = (V460);          {object V541 = (V521);
2452          VMR55(V480)}}          VMR55(V541)}}
2453          return Cnil;          return Cnil;
2454  }  }
2455  /*      macro definition for FIN-LAMBDA-FN      */  /*      macro definition for FIN-LAMBDA-FN      */
# Line 2399  static void L59() Line 2460  static void L59()
2460          vs_check;          vs_check;
2461          check_arg(2);          check_arg(2);
2462          vs_top=sup;          vs_top=sup;
2463          {object V481=base[0]->c.c_cdr;          {object V542=base[0]->c.c_cdr;
2464          if(endp(V481))invalid_macro_call();          if(endp(V542))invalid_macro_call();
2465          base[2]= (V481->c.c_car);          base[2]= (V542->c.c_car);
2466          V481=V481->c.c_cdr;          V542=V542->c.c_cdr;
2467          base[3]= V481;}          base[3]= V542;}
2468          base[4]= list(2,VV[142],listA(3,VV[143],base[2],base[3]));          base[4]= list(2,VV[142],listA(3,VV[143],base[2],base[3]));
2469          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2470          return;          return;
2471  }  }
2472  /*      local entry for function MAKE-DISPATCH-LAMBDA   */  /*      local entry for function MAKE-DISPATCH-LAMBDA   */
2473    
2474  static object LI60(V486,V487,V488,V489)  static object LI60(V547,V548,V549,V550)
2475    
2476  object V486;object V487;object V488;object V489;  object V547;object V548;object V549;object V550;
2477  {        VMB57 VMS57 VMV57  {        VMB57 VMS57 VMV57
2478          goto TTL;          goto TTL;
2479  TTL:;  TTL:;
2480          if(((V486))==Cnil){          if(((V547))==Cnil){
2481          goto T838;}          goto T838;}
2482          V490= (*(LnkLI204))((V487),(V488));          V551= (*(LnkLI204))((V548),(V549));
2483          goto T836;          goto T836;
2484          goto T838;          goto T838;
2485  T838:;  T838:;
2486          V490= (*(LnkLI205))((V487),(V488));          V551= (*(LnkLI205))((V548),(V549));
2487          goto T836;          goto T836;
2488  T836:;  T836:;
2489          if(((V486))!=Cnil){          if(((V547))!=Cnil){
2490          goto T842;}          goto T842;}
2491          V491= VV[144];          V552= VV[144];
2492          goto T840;          goto T840;
2493          goto T842;          goto T842;
2494  T842:;  T842:;
2495          V491= Cnil;          V552= Cnil;
2496          goto T840;          goto T840;
2497  T840:;  T840:;
2498          {object V492 = listA(3,VV[143],V490,append(V491,(V489)));          V553 = (V550);
2499          VMR57(V492)}          {object V554 = listA(3,VV[143],V551,append(V552,V553));
2500            VMR57(V554)}
2501          return Cnil;          return Cnil;
2502  }  }
2503  /*      macro definition for WITH-LOCAL-CACHE-FUNCTIONS */  /*      macro definition for WITH-LOCAL-CACHE-FUNCTIONS */
# Line 2446  static void L61() Line 2508  static void L61()
2508          vs_check;          vs_check;
2509          check_arg(2);          check_arg(2);
2510          vs_top=sup;          vs_top=sup;
2511          {object V493=base[0]->c.c_cdr;          {object V555=base[0]->c.c_cdr;
2512          if(endp(V493))invalid_macro_call();          if(endp(V555))invalid_macro_call();
2513          {object V494= (V493->c.c_car);          {object V556= (V555->c.c_car);
2514          if(endp(V494))invalid_macro_call();          if(endp(V556))invalid_macro_call();
2515          base[2]= (V494->c.c_car);          base[2]= (V556->c.c_car);
2516          V494=V494->c.c_cdr;          V556=V556->c.c_cdr;
2517          if(!endp(V494))invalid_macro_call();}          if(!endp(V556))invalid_macro_call();}
2518          V493=V493->c.c_cdr;          V555=V555->c.c_cdr;
2519          base[3]= V493;}          base[3]= V555;}
2520          V495= list(2,VV[145],base[2]);          V557= list(2,VV[145],base[2]);
2521          V496= make_cons(/* INLINE-ARGS */V495,Cnil);          V558= make_cons(/* INLINE-ARGS */V557,Cnil);
2522          {object V498;          {object V560;
2523          object V499= VV[150];          object V561= VV[150];
2524          if(V499==Cnil){          if(V561==Cnil){
2525          V497= Cnil;          V559= Cnil;
2526          goto T844;}          goto T844;}
2527          base[4]=V498=MMcons(Cnil,Cnil);          base[4]=V560=MMcons(Cnil,Cnil);
2528          goto T845;          goto T845;
2529  T845:;  T845:;
2530          {register object V500;          {register object V562;
2531          V500= (V499->c.c_car);          V562= (V561->c.c_car);
2532          V501= CMPcar((V500));          V563= CMPcar((V562));
2533          V502= CMPcadr((V500));          V564= CMPcadr((V562));
2534          {object V504;          {object V566;
2535          object V505= CMPcadr((V500));          object V567= CMPcadr((V562));
2536          if(V505==Cnil){          if(V567==Cnil){
2537          V503= Cnil;          V565= Cnil;
2538          goto T847;}          goto T847;}
2539          base[5]=V504=MMcons(Cnil,Cnil);          base[5]=V566=MMcons(Cnil,Cnil);
2540          goto T848;          goto T848;
2541  T848:;  T848:;
2542          (V504->c.c_car)= list(3,VV[139],list(2,VV[149],(V505->c.c_car)),(V505->c.c_car));          (V566->c.c_car)= list(3,VV[139],list(2,VV[149],(V567->c.c_car)),(V567->c.c_car));
2543          if((V505=MMcdr(V505))==Cnil){          if((V567=MMcdr(V567))==Cnil){
2544          V503= base[5];          V565= base[5];
2545          goto T847;}          goto T847;}
2546          V504=MMcdr(V504)=MMcons(Cnil,Cnil);          V566=MMcdr(V566)=MMcons(Cnil,Cnil);
2547          goto T848;}          goto T848;}
2548          goto T847;          goto T847;
2549  T847:;  T847:;
2550          V507= make_cons(VV[139],V503);          V569= make_cons(VV[139],V565);
2551          (V498->c.c_car)= list(3,/* INLINE-ARGS */V501,/* INLINE-ARGS */V502,list(4,VV[137],VV[148],/* INLINE-ARGS */V507,list(2,VV[149],CMPcddr((V500)))));}          (V560->c.c_car)= list(3,/* INLINE-ARGS */V563,/* INLINE-ARGS */V564,list(4,VV[137],VV[148],/* INLINE-ARGS */V569,list(2,VV[149],CMPcddr((V562)))));}
2552          if((V499=MMcdr(V499))==Cnil){          if((V561=MMcdr(V561))==Cnil){
2553          V497= base[4];          V559= base[4];
2554          goto T844;}          goto T844;}
2555          V498=MMcdr(V498)=MMcons(Cnil,Cnil);          V560=MMcdr(V560)=MMcons(Cnil,Cnil);
2556          goto T845;}          goto T845;}
2557          goto T844;          goto T844;
2558  T844:;  T844:;
2559          base[4]= list(4,VV[10],/* INLINE-ARGS */V496,VV[146],listA(3,VV[147],V497,base[3]));          V570 = base[3];
2560            base[4]= list(4,VV[10],/* INLINE-ARGS */V558,VV[146],listA(3,VV[147],V559,V570));
2561          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2562          return;          return;
2563  }  }
2564  /*      local entry for function FILL-CACHE     */  /*      local entry for function FILL-CACHE     */
2565    
2566  static object LI62(object V510,object V509,object V508,object first,...)  static object LI62(object V573,object V572,object V571,object first,...)
2567  {        {      
2568          va_list ap;          va_list ap;
2569          int narg = VFUN_NARGS; VMB59 VMS59 VMV59          int narg = VFUN_NARGS; VMB59 VMS59 VMV59
2570          {register object V511;          {register object V574;
2571          register object V512;          register object V575;
2572          object V513;          object V576;
2573          object V514;          object V577;
2574          va_start(ap,first);          va_start(ap,first);
2575          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
2576          V511= V510;          V574= V573;
2577          V512= V509;          V575= V572;
2578          V513= V508;          V576= V571;
2579          narg = narg - 3;          narg = narg - 3;
2580          if (narg <= 0) goto T850;          if (narg <= 0) goto T850;
2581          else {          else {
2582          V514= first;}          V577= first;}
2583          --narg; goto T851;          --narg; goto T851;
2584          goto T850;          goto T850;
2585  T850:;  T850:;
2586          V514= Cnil;          V577= Cnil;
2587          goto T851;          goto T851;
2588  T851:;  T851:;
2589          if(((V512))!=Cnil){          if(((V575))!=Cnil){
2590          goto T853;}          goto T853;}
2591          base[0]= VV[151];          base[0]= VV[151];
2592          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2593          Lerror();          Lerror();
2594          vs_top=sup;          vs_top=sup;
2595          goto T853;          goto T853;
2596  T853:;{object V515;  T853:;{object V578;
2597          V515= (*(LnkLI206))(Cnil,(V511),(V512),(V513));          V578= (*(LnkLI206))(Cnil,(V574),(V575),(V576));
2598          if(V515==Cnil)goto T857;          if(V578==Cnil)goto T857;
2599          {object V516 = V515;          {object V579 = V578;
2600          VMR59(V516)}          VMR59(V579)}
2601          goto T857;          goto T857;
2602  T857:;}{object V517;  T857:;}{object V580;
2603          V519 = CMPmake_fixnum((long)(*(LnkLI207))((V511)));          V582 = CMPmake_fixnum((long)(*(LnkLI207))((V574)));
2604          base[0]= number_times(V519,VV[152]);          base[0]= number_times(V582,VV[152]);
2605          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2606          Lceiling();          Lceiling();
2607          vs_top=sup;          vs_top=sup;
2608          V518= vs_base[0];          V581= vs_base[0];
2609          if(!(((long)STREF(unsigned short,(V511),4))==(1))){          if(!(((long)STREF(unsigned short,(V574),4))==(1))){
2610          goto T867;}          goto T867;}
2611          V520= one_minus(CMPmake_fixnum((long)STREF(fixnum,(V511),12)));          V583= one_minus(CMPmake_fixnum((long)STREF(fixnum,(V574),12)));
2612          goto T865;          goto T865;
2613          goto T867;          goto T867;
2614  T867:;  T867:;
2615          V520= CMPmake_fixnum((long)STREF(fixnum,(V511),12));          V583= CMPmake_fixnum((long)STREF(fixnum,(V574),12));
2616          goto T865;          goto T865;
2617  T865:;  T865:;
2618          if(number_compare(V518,V520)<0){          if(number_compare(V581,V583)<0){
2619          goto T861;}          goto T861;}
2620          V517= Cnil;          V580= Cnil;
2621          goto T860;          goto T860;
2622          goto T861;          goto T861;
2623  T861:;  T861:;
2624          V517= (*(LnkLI208))((V511),(V512),(V513),(V514));          V580= (*(LnkLI208))((V574),(V575),(V576),(V577));
2625          goto T860;          goto T860;
2626  T860:;  T860:;
2627          if(V517==Cnil)goto T859;          if(V580==Cnil)goto T859;
2628          {object V521 = V517;          {object V584 = V580;
2629          VMR59(V521)}          VMR59(V584)}
2630          goto T859;          goto T859;
2631  T859:;}  T859:;}
2632          {object V522 = (*(LnkLI209))((V511),(V512),(V513),(V514));          {object V585 = (*(LnkLI209))((V574),(V575),(V576),(V577));
2633          VMR59(V522)}          VMR59(V585)}
2634          va_end(ap);          va_end(ap);
2635          base[0]=base[0];          base[0]=base[0];
2636          return Cnil;}          return Cnil;}
# Line 2580  static void L63() Line 2643  static void L63()
2643          vs_check;          vs_check;
2644          check_arg(2);          check_arg(2);
2645          vs_top=sup;          vs_top=sup;
2646          {object V523=base[0]->c.c_cdr;          {object V586=base[0]->c.c_cdr;
2647          if(endp(V523))invalid_macro_call();          if(endp(V586))invalid_macro_call();
2648          base[2]= (V523->c.c_car);          base[2]= (V586->c.c_car);
2649          V523=V523->c.c_cdr;          V586=V586->c.c_cdr;
2650          if(!endp(V523))invalid_macro_call();}          if(!endp(V586))invalid_macro_call();}
2651          base[3]= list(3,VV[9],list(3,VV[105],VV[153],list(2,VV[154],base[2])),base[2]);          base[3]= list(3,VV[9],list(3,VV[105],VV[153],list(2,VV[154],base[2])),base[2]);
2652          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2653          return;          return;
2654  }  }
2655  /*      local entry for function CHECK-CACHE    */  /*      local entry for function CHECK-CACHE    */
2656    
2657  static object LI64(V525)  static object LI64(V588)
2658    
2659  object V525;  object V588;
2660  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
2661          goto TTL;          goto TTL;
2662  TTL:;  TTL:;
2663          {register object V526;          {register object V589;
2664          V526= (V525);          V589= (V588);
2665          {register object V527;          {register object V590;
2666          object V528;          object V591;
2667          V529= (long)STREF(unsigned short,(V526),4);          V592= (long)STREF(unsigned short,(V589),4);
2668          if(!((V529)==(1))){          if(!((V592)==(1))){
2669          goto T871;}          goto T871;}
2670          V527= small_fixnum(0);          V590= small_fixnum(0);
2671          goto T869;          goto T869;
2672          goto T871;          goto T871;
2673  T871:;  T871:;
2674          V527= small_fixnum(1);          V590= small_fixnum(1);
2675          goto T869;          goto T869;
2676  T869:;  T869:;
2677          V530= STREF(object,(V526),20);          V593= STREF(object,(V589),20);
2678          V531= CMPmake_fixnum((long)STREF(fixnum,(V526),12));          V594= CMPmake_fixnum((long)STREF(fixnum,(V589),12));
2679          V528= (          V591= (
2680          V532 = V530,          V595 = V593,
2681          (type_of(V532) == t_sfun ?(*((V532)->sfn.sfn_self)):          (type_of(V595) == t_sfun ?(*((V595)->sfn.sfn_self)):
2682          (fcall.argd=1,type_of(V532)==t_vfun) ?          (fcall.argd=1,type_of(V595)==t_vfun) ?
2683          (*((V532)->sfn.sfn_self)):          (*((V595)->sfn.sfn_self)):
2684          (fcall.fun=(V532),fcalln))(V531));          (fcall.fun=(V595),fcalln))(V594));
2685          {long V533;          {long V596;
2686          register long V534;          register long V597;
2687          V533= (long)STREF(fixnum,(V526),12);          V596= (long)STREF(fixnum,(V589),12);
2688          V534= 0;          V597= 0;
2689          goto T880;          goto T880;
2690  T880:;  T880:;
2691          if(!((V534)>=(V533))){          if(!((V597)>=(V596))){
2692          goto T881;}          goto T881;}
2693          {object V535 = (V525);          {object V598 = (V588);
2694          VMR61(V535)}          VMR61(V598)}
2695          goto T881;          goto T881;
2696  T881:;  T881:;
2697          {long V536;          {long V599;
2698          V536= fix((V527));          V599= fix((V590));
2699          V537= (long)STREF(unsigned short,(V526),4);          V600= (long)STREF(unsigned short,(V589),4);
2700          if((V537)==(1)){          if((V600)==(1)){
2701          goto T889;}          goto T889;}
2702          goto T887;          goto T887;
2703          goto T889;          goto T889;
2704  T889:;  T889:;
2705          if((V536)==(0)){          if((V599)==(0)){
2706          goto T884;}}          goto T884;}}
2707          goto T887;          goto T887;
2708  T887:;  T887:;
2709          {object V538;          {object V601;
2710          V538= CMPmake_fixnum(V534);          V601= CMPmake_fixnum(V597);
2711          {long V539;          {long V602;
2712          V539= fix((V538));          V602= fix((V601));
2713          V540= (long)STREF(unsigned short,(V526),4);          V603= (long)STREF(unsigned short,(V589),4);
2714          if((V540)==(1)){          if((V603)==(1)){
2715          goto T897;}          goto T897;}
2716          goto T893;          goto T893;
2717          goto T897;          goto T897;
2718  T897:;  T897:;
2719          if(!((V539)==(0))){          if(!((V602)==(0))){
2720          goto T893;}}          goto T893;}}
2721          base[0]= VV[155];          base[0]= VV[155];
2722          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2661  T897:; Line 2724  T897:;
2724          vs_top=sup;          vs_top=sup;
2725          goto T893;          goto T893;
2726  T893:;  T893:;
2727          V541= STREF(object,(V526),40);          V604= STREF(object,(V589),40);
2728          {register long V543;          {register long V606;
2729          V543= fix((V538));          V606= fix((V601));
2730          {long V544;          {long V607;
2731          V544= V543;          V607= V606;
2732          V545= (long)STREF(unsigned short,(V526),4);          V608= (long)STREF(unsigned short,(V589),4);
2733          if((V545)==(1)){          if((V608)==(1)){
2734          goto T908;}          goto T908;}
2735          goto T904;          goto T904;
2736          goto T908;          goto T908;
2737  T908:;  T908:;
2738          if(!((V544)==(0))){          if(!((V607)==(0))){
2739          goto T904;}}          goto T904;}}
2740          base[0]= VV[156];          base[0]= VV[156];
2741          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2680  T908:; Line 2743  T908:;
2743          vs_top=sup;          vs_top=sup;
2744          goto T904;          goto T904;
2745  T904:;  T904:;
2746          V546= (long)STREF(unsigned short,(V526),4);          V609= (long)STREF(unsigned short,(V589),4);
2747          if(!((V546)==(1))){          if(!((V609)==(1))){
2748          goto T913;}          goto T913;}
2749          V547= (long)STREF(unsigned short,(V526),32);          V610 = V606;
2750          V542= (long)(V543)*(V547);          V611= (long)STREF(unsigned short,(V589),32);
2751            V605= (long)(V610)*(V611);
2752          goto T902;          goto T902;
2753          goto T913;          goto T913;
2754  T913:;  T913:;
2755          V548= (long)STREF(unsigned short,(V526),32);          V612 = V606;
2756          V542= (long)((long)(V543)*(V548))+1;}          V613= (long)STREF(unsigned short,(V589),32);
2757            V605= (long)((long)(V612)*(V613))+1;}
2758          goto T902;          goto T902;
2759  T902:;  T902:;
2760          if(!(((((V541)->v.v_self[V542])==Cnil?Ct:Cnil))==Cnil)){          if(!(((((V604)->v.v_self[V605])==Cnil?Ct:Cnil))==Cnil)){
2761          goto T884;}}          goto T884;}}
2762          {register object V549;          {register object V614;
2763          object V550;          object V615;
2764          register object V551;          register object V616;
2765          V549= (VFUN_NARGS=2,(*(LnkLI210))((V525),(V527)));          V614= (VFUN_NARGS=2,(*(LnkLI210))((V588),(V590)));
2766          {long V552;          {long V617;
2767          {long V553;          {long V618;
2768          V553= fix((V549));          V618= fix((V614));
2769          V554= (long)STREF(unsigned short,(V526),4);          V619= (long)STREF(unsigned short,(V589),4);
2770          if((V554)==(1)){          if((V619)==(1)){
2771          goto T925;}          goto T925;}
2772          goto T922;          goto T922;
2773          goto T925;          goto T925;
2774  T925:;  T925:;
2775          if(!((V553)==(0))){          if(!((V618)==(0))){
2776          goto T922;}}          goto T922;}}
2777          {long V555;          {long V620;
2778          V555= fix((V549));          V620= fix((V614));
2779          V556= (long)STREF(fixnum,(V526),36);          V621 = V620;
2780          if(!((V555)==(V556))){          V622= (long)STREF(fixnum,(V589),36);
2781            if(!((V621)==(V622))){
2782          goto T930;}          goto T930;}
2783          V557= (long)STREF(unsigned short,(V526),4);          V623= (long)STREF(unsigned short,(V589),4);
2784          if(!((V557)==(1))){          if(!((V623)==(1))){
2785          goto T934;}          goto T934;}
2786          V552= (long)STREF(unsigned short,(V526),32);          V617= (long)STREF(unsigned short,(V589),32);
2787          goto T920;          goto T920;
2788          goto T934;          goto T934;
2789  T934:;  T934:;
2790          V552= 1;          V617= 1;
2791          goto T920;          goto T920;
2792          goto T930;          goto T930;
2793  T930:;  T930:;
2794          V558= (long)STREF(unsigned short,(V526),32);          V624 = V620;
2795          V552= (long)(V555)+(V558);          V625= (long)STREF(unsigned short,(V589),32);
2796            V617= (long)(V624)+(V625);
2797          goto T920;}          goto T920;}
2798          goto T922;          goto T922;
2799  T922:;  T922:;
2800          V552= fix((V549));          V617= fix((V614));
2801          goto T920;          goto T920;
2802  T920:;  T920:;
2803          V559= (long)STREF(unsigned short,(V526),4);          V626= (long)STREF(unsigned short,(V589),4);
2804          if(!((V559)==(1))){          if(!((V626)==(1))){
2805          goto T939;}          goto T939;}
2806          base[3]= CMPmake_fixnum(V552);          base[3]= CMPmake_fixnum(V617);
2807          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V526),32));          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V589),32));
2808          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2809          Lfloor();          Lfloor();
2810          vs_top=sup;          vs_top=sup;
2811          V550= vs_base[0];          V615= vs_base[0];
2812          goto T919;          goto T919;
2813          goto T939;          goto T939;
2814  T939:;  T939:;
2815          base[3]= CMPmake_fixnum((long)(V552)-1);          base[3]= CMPmake_fixnum((long)(V617)-1);
2816          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V526),32));          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V589),32));
2817          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2818          Lfloor();          Lfloor();
2819          vs_top=sup;          vs_top=sup;
2820          V550= vs_base[0];}          V615= vs_base[0];}
2821          goto T919;          goto T919;
2822  T919:;  T919:;
2823          if(((V550))==Cnil){          if(((V615))==Cnil){
2824          goto T948;}          goto T948;}
2825          {long V560;          {long V627;
2826          long V561;          long V628;
2827          V560= fix((V550));          V627= fix((V615));
2828          V561= V534;          V628= V597;
2829          {register long V562;          {register long V629;
2830          V562= (long)(V561)-(V560);          V629= (long)(V628)-(V627);
2831          if(!((V562)<0)){          if(!((V629)<0)){
2832          goto T953;}          goto T953;}
2833          V563= (long)STREF(fixnum,(V526),12);          V630 = V629;
2834          V562= (long)(V562)+(V563);          V631= (long)STREF(fixnum,(V589),12);
2835          {long V564;          V629= (long)(V630)+(V631);
2836          V564= 0;          {long V632;
2837          V565= (long)STREF(unsigned short,(V526),4);          V632= 0;
2838          if((V565)==(1)){          V633= (long)STREF(unsigned short,(V589),4);
2839            if((V633)==(1)){
2840          goto T962;}          goto T962;}
2841          goto T953;          goto T953;
2842          goto T962;          goto T962;
2843  T962:;  T962:;
2844          if(!((V564)==(0))){          if(!((V632)==(0))){
2845          goto T953;}}          goto T953;}}
2846          V562= (long)(V562)-1;          V629= (long)(V629)-1;
2847          goto T953;          goto T953;
2848  T953:;  T953:;
2849          V551= CMPmake_fixnum(V562);          V616= CMPmake_fixnum(V629);
2850          goto T946;}}          goto T946;}}
2851          goto T948;          goto T948;
2852  T948:;  T948:;
2853          V551= Cnil;          V616= Cnil;
2854          goto T946;          goto T946;
2855  T946:;  T946:;
2856          if(((V551))==Cnil){          if(((V616))==Cnil){
2857          goto T884;}          goto T884;}
2858          if(!(number_compare((V551),(V528))>0)){          if(!(number_compare((V616),(V591))>0)){
2859          goto T884;}          goto T884;}
2860          base[3]= VV[157];          base[3]= VV[157];
2861          base[4]= (V525);          base[4]= (V588);
2862          base[5]= (V527);          base[5]= (V590);
2863          base[6]= (V551);          base[6]= (V616);
2864          base[7]= (V528);          base[7]= (V591);
2865          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
2866          Lerror();          Lerror();
2867          vs_top=sup;}          vs_top=sup;}
2868          goto T884;          goto T884;
2869  T884:;  T884:;
2870          {long V566;          {long V634;
2871          V566= fix((V527));          V634= fix((V590));
2872          V567= (long)STREF(fixnum,(V526),36);          V635 = V634;
2873          if(!((V566)==(V567))){          V636= (long)STREF(fixnum,(V589),36);
2874            if(!((V635)==(V636))){
2875          goto T979;}          goto T979;}
2876          V568= (long)STREF(unsigned short,(V526),4);          V637= (long)STREF(unsigned short,(V589),4);
2877          if(!((V568)==(1))){          if(!((V637)==(1))){
2878          goto T983;}          goto T983;}
2879          V527= CMPmake_fixnum((long)STREF(unsigned short,(V526),32));          V590= CMPmake_fixnum((long)STREF(unsigned short,(V589),32));
2880          goto T976;          goto T976;
2881          goto T983;          goto T983;
2882  T983:;  T983:;
2883          V527= small_fixnum(1);          V590= small_fixnum(1);
2884          goto T976;          goto T976;
2885          goto T979;          goto T979;
2886  T979:;  T979:;
2887          V569= (long)STREF(unsigned short,(V526),32);          V638 = V634;
2888          V527= CMPmake_fixnum((long)(V566)+(V569));}          V639= (long)STREF(unsigned short,(V589),32);
2889            V590= CMPmake_fixnum((long)(V638)+(V639));}
2890          goto T976;          goto T976;
2891  T976:;  T976:;
2892          V534= (long)(V534)+1;          V597= (long)(V597)+1;
2893          goto T880;}}}          goto T880;}}}
2894          base[0]=base[0];          base[0]=base[0];
2895          return Cnil;          return Cnil;
2896  }  }
2897  /*      local entry for function PROBE-CACHE    */  /*      local entry for function PROBE-CACHE    */
2898    
2899  static object LI65(object V571,object V570,object first,...)  static object LI65(object V641,object V640,object first,...)
2900  {        {      
2901          va_list ap;          va_list ap;
2902          int narg = VFUN_NARGS; VMB62 VMS62 VMV62          int narg = VFUN_NARGS; VMB62 VMS62 VMV62
2903          {object V572;          {object V642;
2904          object V573;          object V643;
2905          object V574;          object V644;
2906          object V575;          object V645;
2907          va_start(ap,first);          va_start(ap,first);
2908          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2909          V572= V571;          V642= V641;
2910          V573= V570;          V643= V640;
2911          narg = narg - 2;          narg = narg - 2;
2912          if (narg <= 0) goto T990;          if (narg <= 0) goto T990;
2913          else {          else {
2914          V574= first;}          V644= first;}
2915          if (--narg <= 0) goto T991;          if (--narg <= 0) goto T991;
2916          else {          else {
2917          V575= va_arg(ap,object);}          V645= va_arg(ap,object);}
2918          --narg; goto T992;          --narg; goto T992;
2919          goto T990;          goto T990;
2920  T990:;  T990:;
2921          V574= Cnil;          V644= Cnil;
2922          goto T991;          goto T991;
2923  T991:;  T991:;
2924          V575= Cnil;          V645= Cnil;
2925          goto T992;          goto T992;
2926  T992:;  T992:;
2927          if(((V573))!=Cnil){          if(((V643))!=Cnil){
2928          goto T995;}          goto T995;}
2929          base[0]= VV[158];          base[0]= VV[158];
2930          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2862  T992:; Line 2932  T992:;
2932          vs_top=sup;          vs_top=sup;
2933          goto T995;          goto T995;
2934  T995:;  T995:;
2935          {register object V576;          {register object V646;
2936          V576= (V572);          V646= (V642);
2937          {register long V577;          {register long V647;
2938          long V578;          long V648;
2939          V579= (long)STREF(unsigned char,(V576),16);          V649= (long)STREF(unsigned char,(V646),16);
2940          V580= (long)STREF(fixnum,(V576),24);          V650= (long)STREF(fixnum,(V646),24);
2941          V577= (long)(*(LnkLI211))(V579,V580,(V573));          V651 = (V643);
2942          if((V575)==Cnil){          V647= (long)(*(LnkLI211))(V649,V650,V651);
2943            if((V645)==Cnil){
2944          goto T1005;}          goto T1005;}
2945          V581= V575;          V652= V645;
2946          goto T1003;          goto T1003;
2947          goto T1005;          goto T1005;
2948  T1005:;  T1005:;
2949          V581= STREF(object,(V576),20);          V652= STREF(object,(V646),20);
2950          goto T1003;          goto T1003;
2951  T1003:;  T1003:;
2952          V583= CMPmake_fixnum((long)STREF(fixnum,(V576),12));          V654= CMPmake_fixnum((long)STREF(fixnum,(V646),12));
2953          V578= fix((          V648= fix((
2954          V584 = V581,          V655 = V652,
2955          (type_of(V584) == t_sfun ?(*((V584)->sfn.sfn_self)):          (type_of(V655) == t_sfun ?(*((V655)->sfn.sfn_self)):
2956          (fcall.argd=1,type_of(V584)==t_vfun) ?          (fcall.argd=1,type_of(V655)==t_vfun) ?
2957          (*((V584)->sfn.sfn_self)):          (*((V655)->sfn.sfn_self)):
2958          (fcall.fun=(V584),fcalln))(V583)));          (fcall.fun=(V655),fcalln))(V654)));
2959          {long V585;          {long V656;
2960          V585= V577;          V656= V647;
2961          V586= (long)STREF(unsigned short,(V576),4);          V657= (long)STREF(unsigned short,(V646),4);
2962          if((V586)==(1)){          if((V657)==(1)){
2963          goto T1012;}          goto T1012;}
2964          goto T1008;          goto T1008;
2965          goto T1012;          goto T1012;
2966  T1012:;  T1012:;
2967          if(!((V585)==(0))){          if(!((V656)==(0))){
2968          goto T1008;}}          goto T1008;}}
2969          {long V587;          {long V658;
2970          V587= V577;          V658= V647;
2971          V588= (long)STREF(fixnum,(V576),36);          V659 = V658;
2972          if(!((V587)==(V588))){          V660= (long)STREF(fixnum,(V646),36);
2973            if(!((V659)==(V660))){
2974          goto T1018;}          goto T1018;}
2975          V589= (long)STREF(unsigned short,(V576),4);          V661= (long)STREF(unsigned short,(V646),4);
2976          if(!((V589)==(1))){          if(!((V661)==(1))){
2977          goto T1022;}          goto T1022;}
2978          V577= (long)STREF(unsigned short,(V576),32);          V647= (long)STREF(unsigned short,(V646),32);
2979          goto T1015;          goto T1015;
2980          goto T1022;          goto T1022;
2981  T1022:;  T1022:;
2982          V577= 1;          V647= 1;
2983          goto T1015;          goto T1015;
2984          goto T1018;          goto T1018;
2985  T1018:;  T1018:;
2986          V590= (long)STREF(unsigned short,(V576),32);          V662 = V658;
2987          V577= (long)(V587)+(V590);}          V663= (long)STREF(unsigned short,(V646),32);
2988            V647= (long)(V662)+(V663);}
2989          goto T1015;          goto T1015;
2990  T1015:;  T1015:;
2991          goto T1008;          goto T1008;
2992  T1008:;  T1008:;
2993          {long V591;          {long V664;
2994          long V592;          long V665;
2995          V591= (long)(V578)+1;          V664= (long)(V648)+1;
2996          V592= 0;          V665= 0;
2997          goto T1030;          goto T1030;
2998  T1030:;  T1030:;
2999          if(!((V592)>=(V591))){          if(!((V665)>=(V664))){
3000          goto T1031;}          goto T1031;}
3001          goto T1026;          goto T1026;
3002          goto T1031;          goto T1031;
3003  T1031:;  T1031:;
3004          {register long V593;          {register long V666;
3005          register object V594;          register object V667;
3006          V593= V577;          V666= V647;
3007          V594= (V573);          V667= (V643);
3008          {register object V595;          {register object V668;
3009          V595= STREF(object,(V576),40);          V668= STREF(object,(V646),40);
3010          V596= (long)STREF(unsigned short,(V576),4);          V669= (long)STREF(unsigned short,(V646),4);
3011          if(!((V596)==(1))){          if(!((V669)==(1))){
3012          goto T1040;}          goto T1040;}
3013          if(!(((V594))==(((V595))->v.v_self[V593]))){          if(!(((V667))==(((V668))->v.v_self[V666]))){
3014          goto T1034;}          goto T1034;}
3015          goto T1036;          goto T1036;
3016          goto T1040;          goto T1040;
3017  T1040:;  T1040:;
3018          {long V597;          {long V670;
3019          register long V598;          register long V671;
3020          V597= (long)STREF(unsigned short,(V576),4);          V670= (long)STREF(unsigned short,(V646),4);
3021          V598= 0;          V671= 0;
3022          goto T1046;          goto T1046;
3023  T1046:;  T1046:;
3024          if(!((V598)>=(V597))){          if(!((V671)>=(V670))){
3025          goto T1047;}          goto T1047;}
3026          goto T1036;          goto T1036;
3027          goto T1047;          goto T1047;
3028  T1047:;  T1047:;
3029          {object V600;          {object V673;
3030          V600= CMPcar((V594));          V673= CMPcar((V667));
3031          V594= CMPcdr((V594));          V667= CMPcdr((V667));
3032          V599= (V600);}          V672= (V673);}
3033          if((V599)==(((V595))->v.v_self[(long)(V593)+(V598)])){          if((V672)==(((V668))->v.v_self[(long)(V666)+(V671)])){
3034          goto T1050;}          goto T1050;}
3035          goto T1034;          goto T1034;
3036          goto T1050;          goto T1050;
3037  T1050:;  T1050:;
3038          V598= (long)(V598)+1;          V671= (long)(V671)+1;
3039          goto T1046;}}}          goto T1046;}}}
3040          goto T1036;          goto T1036;
3041  T1036:;  T1036:;
3042          V601= STREF(object,(V576),8);          V674= STREF(object,(V646),8);
3043          if(!((V601)==Cnil)){          if(!((V674)==Cnil)){
3044          goto T1060;}          goto T1060;}
3045          {object V602 = Ct;          {object V675 = Ct;
3046          VMR62(V602)}          VMR62(V675)}
3047          goto T1060;          goto T1060;
3048  T1060:;  T1060:;
3049          {long V603;          {long V676;
3050          V603= V577;          V676= V647;
3051          if((STREF(object,(V576),8))!=Cnil){          if((STREF(object,(V646),8))!=Cnil){
3052          goto T1064;}          goto T1064;}
3053          {object V604 = Cnil;          {object V677 = Cnil;
3054          VMR62(V604)}          VMR62(V677)}
3055          goto T1064;          goto T1064;
3056  T1064:;  T1064:;
3057          V605= STREF(object,(V576),40);          V678= STREF(object,(V646),40);
3058          V606= (long)STREF(unsigned short,(V576),4);          V679 = V676;
3059          {object V607 = (V605)->v.v_self[(long)(V603)+(V606)];          V680= (long)STREF(unsigned short,(V646),4);
3060          VMR62(V607)}}          {object V681 = (V678)->v.v_self[(long)(V679)+(V680)];
3061            VMR62(V681)}}
3062          goto T1034;          goto T1034;
3063  T1034:;  T1034:;
3064          {long V608;          {long V682;
3065          V608= V577;          V682= V647;
3066          V609= (long)STREF(fixnum,(V576),36);          V683 = V682;
3067          if(!((V608)==(V609))){          V684= (long)STREF(fixnum,(V646),36);
3068            if(!((V683)==(V684))){
3069          goto T1072;}          goto T1072;}
3070          V610= (long)STREF(unsigned short,(V576),4);          V685= (long)STREF(unsigned short,(V646),4);
3071          if(!((V610)==(1))){          if(!((V685)==(1))){
3072          goto T1076;}          goto T1076;}
3073          V577= (long)STREF(unsigned short,(V576),32);          V647= (long)STREF(unsigned short,(V646),32);
3074          goto T1069;          goto T1069;
3075          goto T1076;          goto T1076;
3076  T1076:;  T1076:;
3077          V577= 1;          V647= 1;
3078          goto T1069;          goto T1069;
3079          goto T1072;          goto T1072;
3080  T1072:;  T1072:;
3081          V611= (long)STREF(unsigned short,(V576),32);          V686 = V682;
3082          V577= (long)(V608)+(V611);}          V687= (long)STREF(unsigned short,(V646),32);
3083            V647= (long)(V686)+(V687);}
3084          goto T1069;          goto T1069;
3085  T1069:;  T1069:;
3086          V592= (long)(V592)+1;          V665= (long)(V665)+1;
3087          goto T1030;}          goto T1030;}
3088          goto T1026;          goto T1026;
3089  T1026:;  T1026:;
3090          {register object V612;          {register object V688;
3091          object V613;          object V689;
3092          V612= STREF(object,(V576),44);          V688= STREF(object,(V646),44);
3093          V613= CMPcar((V612));          V689= CMPcar((V688));
3094          goto T1087;          goto T1087;
3095  T1087:;  T1087:;
3096          if(!(((V612))==Cnil)){          if(!(((V688))==Cnil)){
3097          goto T1088;}          goto T1088;}
3098          goto T1083;          goto T1083;
3099          goto T1088;          goto T1088;
3100  T1088:;  T1088:;
3101          if(!(equal(CMPcar((V613)),(V573)))){          if(!(equal(CMPcar((V689)),(V643)))){
3102          goto T1092;}          goto T1092;}
3103          V614= STREF(object,(V576),8);          V690= STREF(object,(V646),8);
3104          if(!((V614)==Cnil)){          if(!((V690)==Cnil)){
3105          goto T1095;}          goto T1095;}
3106          {object V615 = Ct;          {object V691 = Ct;
3107          VMR62(V615)}          VMR62(V691)}
3108          goto T1095;          goto T1095;
3109  T1095:;  T1095:;
3110          {object V616 = CMPcdr((V613));          {object V692 = CMPcdr((V689));
3111          VMR62(V616)}          VMR62(V692)}
3112          goto T1092;          goto T1092;
3113  T1092:;  T1092:;
3114          V612= CMPcdr((V612));          V688= CMPcdr((V688));
3115          V613= CMPcar((V612));          V689= CMPcar((V688));
3116          goto T1087;}          goto T1087;}
3117          goto T1083;          goto T1083;
3118  T1083:;  T1083:;
3119          {object V617 = (V574);          {object V693 = (V644);
3120          VMR62(V617)}}}          VMR62(V693)}}}
3121          va_end(ap);          va_end(ap);
3122          base[0]=base[0];          base[0]=base[0];
3123          return Cnil;}          return Cnil;}
3124          }          }
3125  /*      local entry for function MAP-CACHE      */  /*      local entry for function MAP-CACHE      */
3126    
3127  static object LI66(object V619,object V618,object first,...)  static object LI66(object V695,object V694,object first,...)
3128  {        {      
3129          va_list ap;          va_list ap;
3130          int narg = VFUN_NARGS; VMB63 VMS63 VMV63          int narg = VFUN_NARGS; VMB63 VMS63 VMV63
3131          {object V620;          {object V696;
3132          object V621;          object V697;
3133          object V622;          object V698;
3134          va_start(ap,first);          va_start(ap,first);
3135          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
3136          V620= V619;          V696= V695;
3137          V621= V618;          V697= V694;
3138          narg = narg - 2;          narg = narg - 2;
3139          if (narg <= 0) goto T1103;          if (narg <= 0) goto T1103;
3140          else {          else {
3141          V622= first;}          V698= first;}
3142          --narg; goto T1104;          --narg; goto T1104;
3143          goto T1103;          goto T1103;
3144  T1103:;  T1103:;
3145          V622= Cnil;          V698= Cnil;
3146          goto T1104;          goto T1104;
3147  T1104:;  T1104:;
3148          {register object V623;          {register object V699;
3149          V623= (V621);          V699= (V697);
3150          {object V624;          {object V700;
3151          if((V622)==Cnil){          if((V698)==Cnil){
3152          V624= Cnil;          V700= Cnil;
3153          goto T1107;}          goto T1107;}
3154          V624= STREF(object,(V623),8);          V700= STREF(object,(V699),8);
3155          goto T1107;          goto T1107;
3156  T1107:;  T1107:;
3157          {long V625;          {long V701;
3158          register long V626;          register long V702;
3159          V625= (long)STREF(fixnum,(V623),12);          V701= (long)STREF(fixnum,(V699),12);
3160          V626= 0;          V702= 0;
3161          goto T1112;          goto T1112;
3162  T1112:;  T1112:;
3163          if(!((V626)>=(V625))){          if(!((V702)>=(V701))){
3164          goto T1113;}          goto T1113;}
3165          goto T1108;          goto T1108;
3166          goto T1113;          goto T1113;
3167  T1113:;  T1113:;
3168          {long V627;          {long V703;
3169          V627= V626;          V703= V702;
3170          V628= (long)STREF(unsigned short,(V623),4);          V704= (long)STREF(unsigned short,(V699),4);
3171          if((V628)==(1)){          if((V704)==(1)){
3172          goto T1121;}          goto T1121;}
3173          goto T1119;          goto T1119;
3174          goto T1121;          goto T1121;
3175  T1121:;  T1121:;
3176          if((V627)==(0)){          if((V703)==(0)){
3177          goto T1116;}}          goto T1116;}}
3178          goto T1119;          goto T1119;
3179  T1119:;  T1119:;
3180          {long V629;          {long V705;
3181          V629= V626;          V705= V702;
3182          {long V631;          {long V707;
3183          V631= V629;          V707= V705;
3184          V632= (long)STREF(unsigned short,(V623),4);          V708= (long)STREF(unsigned short,(V699),4);
3185          if((V632)==(1)){          if((V708)==(1)){
3186          goto T1130;}          goto T1130;}
3187          goto T1126;          goto T1126;
3188          goto T1130;          goto T1130;
3189  T1130:;  T1130:;
3190          if(!((V631)==(0))){          if(!((V707)==(0))){
3191          goto T1126;}}          goto T1126;}}
3192          base[0]= VV[159];          base[0]= VV[159];
3193          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3119  T1130:; Line 3195  T1130:;
3195          vs_top=sup;          vs_top=sup;
3196          goto T1126;          goto T1126;
3197  T1126:;  T1126:;
3198          {long V633;          {long V709;
3199          register object V634;          register object V710;
3200          {long V635;          {long V711;
3201          V635= V629;          V711= V705;
3202          {long V636;          {long V712;
3203          V636= V635;          V712= V711;
3204          V637= (long)STREF(unsigned short,(V623),4);          V713= (long)STREF(unsigned short,(V699),4);
3205          if((V637)==(1)){          if((V713)==(1)){
3206          goto T1140;}          goto T1140;}
3207          goto T1136;          goto T1136;
3208          goto T1140;          goto T1140;
3209  T1140:;  T1140:;
3210          if(!((V636)==(0))){          if(!((V712)==(0))){
3211          goto T1136;}}          goto T1136;}}
3212          base[0]= VV[156];          base[0]= VV[156];
3213          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3139  T1140:; Line 3215  T1140:;
3215          vs_top=sup;          vs_top=sup;
3216          goto T1136;          goto T1136;
3217  T1136:;  T1136:;
3218          V638= (long)STREF(unsigned short,(V623),4);          V714= (long)STREF(unsigned short,(V699),4);
3219          if(!((V638)==(1))){          if(!((V714)==(1))){
3220          goto T1145;}          goto T1145;}
3221          V639= (long)STREF(unsigned short,(V623),32);          V715 = V711;
3222          V633= (long)(V635)*(V639);          V716= (long)STREF(unsigned short,(V699),32);
3223            V709= (long)(V715)*(V716);
3224          goto T1134;          goto T1134;
3225          goto T1145;          goto T1145;
3226  T1145:;  T1145:;
3227          V640= (long)STREF(unsigned short,(V623),32);          V717 = V711;
3228          V633= (long)((long)(V635)*(V640))+1;}          V718= (long)STREF(unsigned short,(V699),32);
3229            V709= (long)((long)(V717)*(V718))+1;}
3230          goto T1134;          goto T1134;
3231  T1134:;  T1134:;
3232          V634= Cnil;          V710= Cnil;
3233          {object V641;          {object V719;
3234          object V642;          object V720;
3235          V641= STREF(object,(V623),40);          V719= STREF(object,(V699),40);
3236          V642= (((V634))==Cnil?Ct:Cnil);          V720= (((V710))==Cnil?Ct:Cnil);
3237          {long V643;          {long V721;
3238          register long V644;          register long V722;
3239          V643= (long)STREF(unsigned short,(V623),4);          V721= (long)STREF(unsigned short,(V699),4);
3240          V644= 0;          V722= 0;
3241          goto T1155;          goto T1155;
3242  T1155:;  T1155:;
3243          if(!((V644)>=(V643))){          if(!((V722)>=(V721))){
3244          goto T1156;}          goto T1156;}
3245          if(((V642))==Cnil){          if(((V720))==Cnil){
3246          goto T1116;}          goto T1116;}
3247          goto T1124;          goto T1124;
3248          goto T1156;          goto T1156;
3249  T1156:;  T1156:;
3250          {register object V645;          {register object V723;
3251          V645= ((V641))->v.v_self[(long)(V633)+(V644)];          V723= ((V719))->v.v_self[(long)(V709)+(V722)];
3252          if(((V645))==Cnil){          if(((V723))==Cnil){
3253          goto T1162;}          goto T1162;}
3254          if(!((((((V645))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((V723))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
3255          goto T1161;}          goto T1161;}
3256          goto T1162;          goto T1162;
3257  T1162:;  T1162:;
3258          goto T1116;          goto T1116;
3259          goto T1161;          goto T1161;
3260  T1161:;  T1161:;
3261          if(((V634))==Cnil){          if(((V710))==Cnil){
3262          goto T1166;}          goto T1166;}
3263          if(!(type_of((V634))==t_cons)){          V724 = (V723);
3264            if(!(type_of((V710))==t_cons)){
3265          goto T1172;}          goto T1172;}
3266          {object V647;          {object V726;
3267          V647= CMPcar((V634));          V726= CMPcar((V710));
3268          V634= CMPcdr((V634));          V710= CMPcdr((V710));
3269          V646= (V647);          V725= (V726);
3270          goto T1170;}          goto T1170;}
3271          goto T1172;          goto T1172;
3272  T1172:;  T1172:;
3273          V646= (V634);          V725= (V710);
3274          goto T1170;          goto T1170;
3275  T1170:;  T1170:;
3276          if(((V645))==(V646)){          if((V724)==(V725)){
3277          goto T1159;}          goto T1159;}
3278          goto T1166;          goto T1166;
3279  T1166:;  T1166:;
3280          V642= Ct;}          V720= Ct;}
3281          goto T1159;          goto T1159;
3282  T1159:;  T1159:;
3283          V644= (long)(V644)+1;          V722= (long)(V722)+1;
3284          goto T1155;}}}}          goto T1155;}}}}
3285          goto T1124;          goto T1124;
3286  T1124:;  T1124:;
3287          {object V648;          {object V727;
3288          {long V650;          V728 = (V696);
3289          V650= V626;          {long V730;
3290          {long V651;          V730= V702;
3291          V651= V650;          {long V731;
3292          V652= (long)STREF(unsigned short,(V623),4);          V731= V730;
3293          if((V652)==(1)){          V732= (long)STREF(unsigned short,(V699),4);
3294            if((V732)==(1)){
3295          goto T1188;}          goto T1188;}
3296          goto T1184;          goto T1184;
3297          goto T1188;          goto T1188;
3298  T1188:;  T1188:;
3299          if(!((V651)==(0))){          if(!((V731)==(0))){
3300          goto T1184;}}          goto T1184;}}
3301          base[0]= VV[160];          base[0]= VV[160];
3302          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3224  T1188:; Line 3304  T1188:;
3304          vs_top=sup;          vs_top=sup;
3305          goto T1184;          goto T1184;
3306  T1184:;  T1184:;
3307          {long V653;          {long V733;
3308          {long V654;          {long V734;
3309          V654= V650;          V734= V730;
3310          {long V655;          {long V735;
3311          V655= V654;          V735= V734;
3312          V656= (long)STREF(unsigned short,(V623),4);          V736= (long)STREF(unsigned short,(V699),4);
3313          if((V656)==(1)){          if((V736)==(1)){
3314          goto T1198;}          goto T1198;}
3315          goto T1194;          goto T1194;
3316          goto T1198;          goto T1198;
3317  T1198:;  T1198:;
3318          if(!((V655)==(0))){          if(!((V735)==(0))){
3319          goto T1194;}}          goto T1194;}}
3320          base[0]= VV[156];          base[0]= VV[156];
3321          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3243  T1198:; Line 3323  T1198:;
3323          vs_top=sup;          vs_top=sup;
3324          goto T1194;          goto T1194;
3325  T1194:;  T1194:;
3326          V657= (long)STREF(unsigned short,(V623),4);          V737= (long)STREF(unsigned short,(V699),4);
3327          if(!((V657)==(1))){          if(!((V737)==(1))){
3328          goto T1203;}          goto T1203;}
3329          V658= (long)STREF(unsigned short,(V623),32);          V738 = V734;
3330          V653= (long)(V654)*(V658);          V739= (long)STREF(unsigned short,(V699),32);
3331            V733= (long)(V738)*(V739);
3332          goto T1192;          goto T1192;
3333          goto T1203;          goto T1203;
3334  T1203:;  T1203:;
3335          V659= (long)STREF(unsigned short,(V623),32);          V740 = V734;
3336          V653= (long)((long)(V654)*(V659))+1;}          V741= (long)STREF(unsigned short,(V699),32);
3337            V733= (long)((long)(V740)*(V741))+1;}
3338          goto T1192;          goto T1192;
3339  T1192:;  T1192:;
3340          V660= (long)STREF(unsigned short,(V623),4);          V742= (long)STREF(unsigned short,(V699),4);
3341          if(!((V660)==(1))){          if(!((V742)==(1))){
3342          goto T1209;}          goto T1209;}
3343          V661= STREF(object,(V623),40);          V743= STREF(object,(V699),40);
3344          V649= (V661)->v.v_self[V653];          V744 = V733;
3345            V729= (V743)->v.v_self[V744];
3346          goto T1182;          goto T1182;
3347          goto T1209;          goto T1209;
3348  T1209:;  T1209:;
3349          {object V662;          {object V745;
3350          object V663;          object V746;
3351          base[0]= CMPmake_fixnum((long)STREF(unsigned short,(V623),4));          base[0]= CMPmake_fixnum((long)STREF(unsigned short,(V699),4));
3352          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3353          Lmake_list();          Lmake_list();
3354          vs_top=sup;          vs_top=sup;
3355          V662= vs_base[0];          V745= vs_base[0];
3356          V663= STREF(object,(V623),40);          V746= STREF(object,(V699),40);
3357          {long V664;          {long V747;
3358          register long V665;          register long V748;
3359          V664= (long)STREF(unsigned short,(V623),4);          V747= (long)STREF(unsigned short,(V699),4);
3360          V665= 0;          V748= 0;
3361          goto T1219;          goto T1219;
3362  T1219:;  T1219:;
3363          if(!((V665)>=(V664))){          if(!((V748)>=(V747))){
3364          goto T1220;}          goto T1220;}
3365          V649= (V662);          V729= (V745);
3366          goto T1182;          goto T1182;
3367          goto T1220;          goto T1220;
3368  T1220:;  T1220:;
3369          {object V666;          {object V749;
3370          object V668;          object V751;
3371          V666= CMPmake_fixnum(V665);          V749= CMPmake_fixnum(V748);
3372          V668= ((V663))->v.v_self[(long)(V653)+(V665)];          V751= ((V746))->v.v_self[(long)(V733)+(V748)];
3373          (nthcdr(fix((V666)),V662))->c.c_car = (V668);          (nthcdr(fix((V749)),V745))->c.c_car = (V751);
3374          (void)(nthcdr(fix((V666)),V662));}          (void)(nthcdr(fix((V749)),V745));}
3375          V665= (long)(V665)+1;          V748= (long)(V748)+1;
3376          goto T1219;}}}}          goto T1219;}}}}
3377          goto T1182;          goto T1182;
3378  T1182:;  T1182:;
3379          {long V670;          {long V753;
3380          V670= V626;          V753= V702;
3381          {long V671;          {long V754;
3382          V671= V670;          V754= V753;
3383          V672= (long)STREF(unsigned short,(V623),4);          V755= (long)STREF(unsigned short,(V699),4);
3384          if((V672)==(1)){          if((V755)==(1)){
3385          goto T1236;}          goto T1236;}
3386          goto T1232;          goto T1232;
3387          goto T1236;          goto T1236;
3388  T1236:;  T1236:;
3389          if(!((V671)==(0))){          if(!((V754)==(0))){
3390          goto T1232;}}          goto T1232;}}
3391          base[0]= VV[161];          base[0]= VV[161];
3392          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3311  T1236:; Line 3394  T1236:;
3394          vs_top=sup;          vs_top=sup;
3395          goto T1232;          goto T1232;
3396  T1232:;  T1232:;
3397          {long V673;          {long V756;
3398          {long V674;          {long V757;
3399          V674= V670;          V757= V753;
3400          {long V675;          {long V758;
3401          V675= V674;          V758= V757;
3402          V676= (long)STREF(unsigned short,(V623),4);          V759= (long)STREF(unsigned short,(V699),4);
3403          if((V676)==(1)){          if((V759)==(1)){
3404          goto T1246;}          goto T1246;}
3405          goto T1242;          goto T1242;
3406          goto T1246;          goto T1246;
3407  T1246:;  T1246:;
3408          if(!((V675)==(0))){          if(!((V758)==(0))){
3409          goto T1242;}}          goto T1242;}}
3410          base[0]= VV[156];          base[0]= VV[156];
3411          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3330  T1246:; Line 3413  T1246:;
3413          vs_top=sup;          vs_top=sup;
3414          goto T1242;          goto T1242;
3415  T1242:;  T1242:;
3416          V677= (long)STREF(unsigned short,(V623),4);          V760= (long)STREF(unsigned short,(V699),4);
3417          if(!((V677)==(1))){          if(!((V760)==(1))){
3418          goto T1251;}          goto T1251;}
3419          V678= (long)STREF(unsigned short,(V623),32);          V761 = V757;
3420          V673= (long)(V674)*(V678);          V762= (long)STREF(unsigned short,(V699),32);
3421            V756= (long)(V761)*(V762);
3422          goto T1240;          goto T1240;
3423          goto T1251;          goto T1251;
3424  T1251:;  T1251:;
3425          V679= (long)STREF(unsigned short,(V623),32);          V763 = V757;
3426          V673= (long)((long)(V674)*(V679))+1;}          V764= (long)STREF(unsigned short,(V699),32);
3427            V756= (long)((long)(V763)*(V764))+1;}
3428          goto T1240;          goto T1240;
3429  T1240:;  T1240:;
3430          if((STREF(object,(V623),8))!=Cnil){          if((STREF(object,(V699),8))!=Cnil){
3431          goto T1256;}          goto T1256;}
3432          V669= Cnil;          V752= Cnil;
3433          goto T1230;          goto T1230;
3434          goto T1256;          goto T1256;
3435  T1256:;  T1256:;
3436          V680= STREF(object,(V623),40);          V765= STREF(object,(V699),40);
3437          V681= (long)STREF(unsigned short,(V623),4);          V766 = V756;
3438          V669= (V680)->v.v_self[(long)(V673)+(V681)];}}          V767= (long)STREF(unsigned short,(V699),4);
3439            V752= (V765)->v.v_self[(long)(V766)+(V767)];}}
3440          goto T1230;          goto T1230;
3441  T1230:;  T1230:;
3442          V648= (          V727= (
3443          (type_of((V620)) == t_sfun ?(*(((V620))->sfn.sfn_self)):          V768 = V728,
3444          (fcall.argd=2,type_of((V620))==t_vfun) ?          (type_of(V768) == t_sfun ?(*((V768)->sfn.sfn_self)):
3445          (*(((V620))->sfn.sfn_self)):          (fcall.argd=2,type_of(V768)==t_vfun) ?
3446          (fcall.fun=((V620)),fcalln))(V649,V669));          (*((V768)->sfn.sfn_self)):
3447          if(((V624))==Cnil){          (fcall.fun=(V768),fcalln))(V729,V752));
3448            if(((V700))==Cnil){
3449          goto T1116;}          goto T1116;}
3450          V682= STREF(object,(V623),40);          V769= STREF(object,(V699),40);
3451          {long V684;          {long V771;
3452          V684= V626;          V771= V702;
3453          {long V685;          {long V772;
3454          V685= V684;          V772= V771;
3455          V686= (long)STREF(unsigned short,(V623),4);          V773= (long)STREF(unsigned short,(V699),4);
3456          if((V686)==(1)){          if((V773)==(1)){
3457          goto T1269;}          goto T1269;}
3458          goto T1265;          goto T1265;
3459          goto T1269;          goto T1269;
3460  T1269:;  T1269:;
3461          if(!((V685)==(0))){          if(!((V772)==(0))){
3462          goto T1265;}}          goto T1265;}}
3463          base[0]= VV[156];          base[0]= VV[156];
3464          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3379  T1269:; Line 3466  T1269:;
3466          vs_top=sup;          vs_top=sup;
3467          goto T1265;          goto T1265;
3468  T1265:;  T1265:;
3469          V687= (long)STREF(unsigned short,(V623),4);          V774= (long)STREF(unsigned short,(V699),4);
3470          if(!((V687)==(1))){          if(!((V774)==(1))){
3471          goto T1274;}          goto T1274;}
3472          V688= (long)STREF(unsigned short,(V623),32);          V775 = V771;
3473          V683= CMPmake_fixnum((long)(V684)*(V688));          V776= (long)STREF(unsigned short,(V699),32);
3474            V770= CMPmake_fixnum((long)(V775)*(V776));
3475          goto T1263;          goto T1263;
3476          goto T1274;          goto T1274;
3477  T1274:;  T1274:;
3478          V689= (long)STREF(unsigned short,(V623),32);          V777 = V771;
3479          V683= CMPmake_fixnum((long)((long)(V684)*(V689))+1);}          V778= (long)STREF(unsigned short,(V699),32);
3480            V770= CMPmake_fixnum((long)((long)(V777)*(V778))+1);}
3481          goto T1263;          goto T1263;
3482  T1263:;  T1263:;
3483          V690= CMPmake_fixnum((long)STREF(unsigned short,(V623),4));          V779= CMPmake_fixnum((long)STREF(unsigned short,(V699),4));
3484          {long V691= fix(number_plus(V683,V690));          {long V780= fix(number_plus(V770,V779));
3485          (void)((V682)->v.v_self[/* INLINE-ARGS */V691]= ((V648)));}}          V781 = (V727);
3486            (void)((V769)->v.v_self[/* INLINE-ARGS */V780]= (V781));}}
3487          goto T1116;          goto T1116;
3488  T1116:;  T1116:;
3489          V626= (long)(V626)+1;          V702= (long)(V702)+1;
3490          goto T1112;}          goto T1112;}
3491          goto T1108;          goto T1108;
3492  T1108:;  T1108:;
3493          {object V692;          {object V782;
3494          object V693;          object V783;
3495          V692= STREF(object,(V623),44);          V782= STREF(object,(V699),44);
3496          V693= CMPcar((V692));          V783= CMPcar((V782));
3497          goto T1286;          goto T1286;
3498  T1286:;  T1286:;
3499          if(!(((V692))==Cnil)){          if(!(((V782))==Cnil)){
3500          goto T1287;}          goto T1287;}
3501          goto T1106;          goto T1106;
3502          goto T1287;          goto T1287;
3503  T1287:;  T1287:;
3504          {object V694;          {object V784;
3505          V694= (          V784= (
3506          (type_of((V620)) == t_sfun ?(*(((V620))->sfn.sfn_self)):          (type_of((V696)) == t_sfun ?(*(((V696))->sfn.sfn_self)):
3507          (fcall.argd=2,type_of((V620))==t_vfun) ?          (fcall.argd=2,type_of((V696))==t_vfun) ?
3508          (*(((V620))->sfn.sfn_self)):          (*(((V696))->sfn.sfn_self)):
3509          (fcall.fun=((V620)),fcalln))(CMPcar((V693)),CMPcdr((V693))));          (fcall.fun=((V696)),fcalln))(CMPcar((V783)),CMPcdr((V783))));
3510          if(((V624))==Cnil){          if(((V700))==Cnil){
3511          goto T1291;}          goto T1291;}
3512          (V693)->c.c_cdr = V694;}          (V783)->c.c_cdr = V784;}
3513          goto T1291;          goto T1291;
3514  T1291:;  T1291:;
3515          V692= CMPcdr((V692));          V782= CMPcdr((V782));
3516          V693= CMPcar((V692));          V783= CMPcar((V782));
3517          goto T1286;}}}          goto T1286;}}}
3518          goto T1106;          goto T1106;
3519  T1106:;  T1106:;
3520          {object V697 = (V621);          {object V787 = (V697);
3521          VMR63(V697)}          VMR63(V787)}
3522          va_end(ap);          va_end(ap);
3523          base[0]=base[0];          base[0]=base[0];
3524          return Cnil;}          return Cnil;}
3525          }          }
3526  /*      local entry for function CACHE-COUNT    */  /*      local entry for function CACHE-COUNT    */
3527    
3528  static object LI67(V699)  static object LI67(V789)
3529    
3530  object V699;  object V789;
3531  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
3532          goto TTL;          goto TTL;
3533  TTL:;  TTL:;
3534          {register object V700;          {register object V790;
3535          V700= (V699);          V790= (V789);
3536          {register long V701;          {register long V791;
3537          V701= 0;          V791= 0;
3538          {long V702;          {long V792;
3539          register long V703;          register long V793;
3540          V702= (long)STREF(fixnum,(V700),12);          V792= (long)STREF(fixnum,(V790),12);
3541          V703= 0;          V793= 0;
3542          goto T1305;          goto T1305;
3543  T1305:;  T1305:;
3544          if(!((V703)>=(V702))){          if(!((V793)>=(V792))){
3545          goto T1306;}          goto T1306;}
3546          {long V704 = V701;          {long V794 = V791;
3547          VMR64((object)V704)}          VMR64((object)V794)}
3548          goto T1306;          goto T1306;
3549  T1306:;  T1306:;
3550          {register long V705;          {register long V795;
3551          V705= V703;          V795= V793;
3552          V706= (long)STREF(unsigned short,(V700),4);          V796= (long)STREF(unsigned short,(V790),4);
3553          if((V706)==(1)){          if((V796)==(1)){
3554          goto T1313;}          goto T1313;}
3555          goto T1311;          goto T1311;
3556          goto T1313;          goto T1313;
3557  T1313:;  T1313:;
3558          if((V705)==(0)){          if((V795)==(0)){
3559          goto T1309;}}          goto T1309;}}
3560          goto T1311;          goto T1311;
3561  T1311:;  T1311:;
3562          {register object V707;          {register object V797;
3563          V707= CMPmake_fixnum(V703);          V797= CMPmake_fixnum(V793);
3564          {register long V708;          {register long V798;
3565          V708= fix((V707));          V798= fix((V797));
3566          V709= (long)STREF(unsigned short,(V700),4);          V799= (long)STREF(unsigned short,(V790),4);
3567          if((V709)==(1)){          if((V799)==(1)){
3568          goto T1322;}          goto T1322;}
3569          goto T1318;          goto T1318;
3570          goto T1322;          goto T1322;
3571  T1322:;  T1322:;
3572          if(!((V708)==(0))){          if(!((V798)==(0))){
3573          goto T1318;}}          goto T1318;}}
3574          base[0]= VV[155];          base[0]= VV[155];
3575          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3487  T1322:; Line 3577  T1322:;
3577          vs_top=sup;          vs_top=sup;
3578          goto T1318;          goto T1318;
3579  T1318:;  T1318:;
3580          V710= STREF(object,(V700),40);          V800= STREF(object,(V790),40);
3581          {register long V712;          {register long V802;
3582          V712= fix((V707));          V802= fix((V797));
3583          {register long V713;          {register long V803;
3584          V713= V712;          V803= V802;
3585          V714= (long)STREF(unsigned short,(V700),4);          V804= (long)STREF(unsigned short,(V790),4);
3586          if((V714)==(1)){          if((V804)==(1)){
3587          goto T1333;}          goto T1333;}
3588          goto T1329;          goto T1329;
3589          goto T1333;          goto T1333;
3590  T1333:;  T1333:;
3591          if(!((V713)==(0))){          if(!((V803)==(0))){
3592          goto T1329;}}          goto T1329;}}
3593          base[0]= VV[156];          base[0]= VV[156];
3594          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3506  T1333:; Line 3596  T1333:;
3596          vs_top=sup;          vs_top=sup;
3597          goto T1329;          goto T1329;
3598  T1329:;  T1329:;
3599          V715= (long)STREF(unsigned short,(V700),4);          V805= (long)STREF(unsigned short,(V790),4);
3600          if(!((V715)==(1))){          if(!((V805)==(1))){
3601          goto T1338;}          goto T1338;}
3602          V716= (long)STREF(unsigned short,(V700),32);          V806 = V802;
3603          V711= (long)(V712)*(V716);          V807= (long)STREF(unsigned short,(V790),32);
3604            V801= (long)(V806)*(V807);
3605          goto T1327;          goto T1327;
3606          goto T1338;          goto T1338;
3607  T1338:;  T1338:;
3608          V717= (long)STREF(unsigned short,(V700),32);          V808 = V802;
3609          V711= (long)((long)(V712)*(V717))+1;}          V809= (long)STREF(unsigned short,(V790),32);
3610            V801= (long)((long)(V808)*(V809))+1;}
3611          goto T1327;          goto T1327;
3612  T1327:;  T1327:;
3613          if(!(((((V710)->v.v_self[V711])==Cnil?Ct:Cnil))==Cnil)){          if(!(((((V800)->v.v_self[V801])==Cnil?Ct:Cnil))==Cnil)){
3614          goto T1309;}}          goto T1309;}}
3615          V701= (long)(V701)+(1);          V791= (long)(V791)+(1);
3616          goto T1309;          goto T1309;
3617  T1309:;  T1309:;
3618          V703= (long)(V703)+1;          V793= (long)(V793)+1;
3619          goto T1305;}}}          goto T1305;}}}
3620          base[0]=base[0];          base[0]=base[0];
3621  }  }
3622  /*      local entry for function ENTRY-IN-CACHE-P       */  /*      local entry for function ENTRY-IN-CACHE-P       */
3623    
3624  static object LI68(V721,V722,V723)  static object LI68(V813,V814,V815)
3625    
3626  object V721;object V722;object V723;  object V813;object V814;object V815;
3627  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
3628          goto TTL;          goto TTL;
3629  TTL:;  TTL:;
3630          {register object V724;          {register object V816;
3631          V724= (V721);          V816= (V813);
3632          {long V725;          {long V817;
3633          register long V726;          register long V818;
3634          V725= (long)STREF(fixnum,(V724),12);          V817= (long)STREF(fixnum,(V816),12);
3635          V726= 0;          V818= 0;
3636          goto T1350;          goto T1350;
3637  T1350:;  T1350:;
3638          if(!((V726)>=(V725))){          if(!((V818)>=(V817))){
3639          goto T1351;}          goto T1351;}
3640          {object V727 = Cnil;          {object V819 = Cnil;
3641          VMR65(V727)}          VMR65(V819)}
3642          goto T1351;          goto T1351;
3643  T1351:;  T1351:;
3644          {long V728;          {long V820;
3645          V728= V726;          V820= V818;
3646          V729= (long)STREF(unsigned short,(V724),4);          V821= (long)STREF(unsigned short,(V816),4);
3647          if((V729)==(1)){          if((V821)==(1)){
3648          goto T1358;}          goto T1358;}
3649          goto T1356;          goto T1356;
3650          goto T1358;          goto T1358;
3651  T1358:;  T1358:;
3652          if((V728)==(0)){          if((V820)==(0)){
3653          goto T1354;}}          goto T1354;}}
3654          goto T1356;          goto T1356;
3655  T1356:;  T1356:;
3656          {long V731;          {long V823;
3657          V731= V726;          V823= V818;
3658          {long V732;          {long V824;
3659          V732= V731;          V824= V823;
3660          V733= (long)STREF(unsigned short,(V724),4);          V825= (long)STREF(unsigned short,(V816),4);
3661          if((V733)==(1)){          if((V825)==(1)){
3662          goto T1369;}          goto T1369;}
3663          goto T1365;          goto T1365;
3664          goto T1369;          goto T1369;
3665  T1369:;  T1369:;
3666          if(!((V732)==(0))){          if(!((V824)==(0))){
3667          goto T1365;}}          goto T1365;}}
3668          base[0]= VV[160];          base[0]= VV[160];
3669          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3579  T1369:; Line 3671  T1369:;
3671          vs_top=sup;          vs_top=sup;
3672          goto T1365;          goto T1365;
3673  T1365:;  T1365:;
3674          {long V734;          {long V826;
3675          {register long V735;          {register long V827;
3676          V735= V731;          V827= V823;
3677          {long V736;          {long V828;
3678          V736= V735;          V828= V827;
3679          V737= (long)STREF(unsigned short,(V724),4);          V829= (long)STREF(unsigned short,(V816),4);
3680          if((V737)==(1)){          if((V829)==(1)){
3681          goto T1379;}          goto T1379;}
3682          goto T1375;          goto T1375;
3683          goto T1379;          goto T1379;
3684  T1379:;  T1379:;
3685          if(!((V736)==(0))){          if(!((V828)==(0))){
3686          goto T1375;}}          goto T1375;}}
3687          base[0]= VV[156];          base[0]= VV[156];
3688          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3598  T1379:; Line 3690  T1379:;
3690          vs_top=sup;          vs_top=sup;
3691          goto T1375;          goto T1375;
3692  T1375:;  T1375:;
3693          V738= (long)STREF(unsigned short,(V724),4);          V830= (long)STREF(unsigned short,(V816),4);
3694          if(!((V738)==(1))){          if(!((V830)==(1))){
3695          goto T1384;}          goto T1384;}
3696          V739= (long)STREF(unsigned short,(V724),32);          V831 = V827;
3697          V734= (long)(V735)*(V739);          V832= (long)STREF(unsigned short,(V816),32);
3698            V826= (long)(V831)*(V832);
3699          goto T1373;          goto T1373;
3700          goto T1384;          goto T1384;
3701  T1384:;  T1384:;
3702          V740= (long)STREF(unsigned short,(V724),32);          V833 = V827;
3703          V734= (long)((long)(V735)*(V740))+1;}          V834= (long)STREF(unsigned short,(V816),32);
3704            V826= (long)((long)(V833)*(V834))+1;}
3705          goto T1373;          goto T1373;
3706  T1373:;  T1373:;
3707          V741= (long)STREF(unsigned short,(V724),4);          V835= (long)STREF(unsigned short,(V816),4);
3708          if(!((V741)==(1))){          if(!((V835)==(1))){
3709          goto T1390;}          goto T1390;}
3710          V742= STREF(object,(V724),40);          V836= STREF(object,(V816),40);
3711          V730= (V742)->v.v_self[V734];          V837 = V826;
3712            V822= (V836)->v.v_self[V837];
3713          goto T1363;          goto T1363;
3714          goto T1390;          goto T1390;
3715  T1390:;  T1390:;
3716          {register object V743;          {register object V838;
3717          object V744;          object V839;
3718          base[0]= CMPmake_fixnum((long)STREF(unsigned short,(V724),4));          base[0]= CMPmake_fixnum((long)STREF(unsigned short,(V816),4));
3719          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3720          Lmake_list();          Lmake_list();
3721          vs_top=sup;          vs_top=sup;
3722          V743= vs_base[0];          V838= vs_base[0];
3723          V744= STREF(object,(V724),40);          V839= STREF(object,(V816),40);
3724          {long V745;          {long V840;
3725          register long V746;          register long V841;
3726          V745= (long)STREF(unsigned short,(V724),4);          V840= (long)STREF(unsigned short,(V816),4);
3727          V746= 0;          V841= 0;
3728          goto T1400;          goto T1400;
3729  T1400:;  T1400:;
3730          if(!((V746)>=(V745))){          if(!((V841)>=(V840))){
3731          goto T1401;}          goto T1401;}
3732          V730= (V743);          V822= (V838);
3733          goto T1363;          goto T1363;
3734          goto T1401;          goto T1401;
3735  T1401:;  T1401:;
3736          {object V747;          {object V842;
3737          register object V749;          register object V844;
3738          V747= CMPmake_fixnum(V746);          V842= CMPmake_fixnum(V841);
3739          V749= ((V744))->v.v_self[(long)(V734)+(V746)];          V844= ((V839))->v.v_self[(long)(V826)+(V841)];
3740          (nthcdr(fix((V747)),V743))->c.c_car = (V749);          (nthcdr(fix((V842)),V838))->c.c_car = (V844);
3741          (void)(nthcdr(fix((V747)),V743));}          (void)(nthcdr(fix((V842)),V838));}
3742          V746= (long)(V746)+1;          V841= (long)(V841)+1;
3743          goto T1400;}}}}          goto T1400;}}}}
3744          goto T1363;          goto T1363;
3745  T1363:;  T1363:;
3746          if(!(equal(V730,(V722)))){          V845 = (V814);
3747            if(!(equal(V822,V845))){
3748          goto T1354;}          goto T1354;}
3749          {object V750 = Ct;          {object V846 = Ct;
3750          VMR65(V750)}          VMR65(V846)}
3751          goto T1354;          goto T1354;
3752  T1354:;  T1354:;
3753          V726= (long)(V726)+1;          V818= (long)(V818)+1;
3754          goto T1350;}}          goto T1350;}}
3755          base[0]=base[0];          base[0]=base[0];
3756          return Cnil;          return Cnil;
3757  }  }
3758  /*      local entry for function FILL-CACHE-P   */  /*      local entry for function FILL-CACHE-P   */
3759    
3760  static object LI69(V755,V756,V757,V758)  static object LI69(V851,V852,V853,V854)
3761    
3762  object V755;object V756;object V757;object V758;  object V851;object V852;object V853;object V854;
3763  {        VMB66 VMS66 VMV66  {        VMB66 VMS66 VMV66
3764          goto TTL;          goto TTL;
3765  TTL:;  TTL:;
3766          {long V760;          {long V856;
3767          long V761;          long V857;
3768          V762= (long)STREF(unsigned char,V756,16);          V858= (long)STREF(unsigned char,V852,16);
3769          V763= (long)STREF(fixnum,V756,24);          V859= (long)STREF(fixnum,V852,24);
3770          V760= (long)(*(LnkLI211))(V762,V763,(V757));          V860 = (V853);
3771          {long V764;          V856= (long)(*(LnkLI211))(V858,V859,V860);
3772          V764= V760;          {long V861;
3773          V765= (long)STREF(unsigned short,V756,4);          V861= V856;
3774          if(!((V765)==(1))){          V862= (long)STREF(unsigned short,V852,4);
3775            if(!((V862)==(1))){
3776          goto T1420;}          goto T1420;}
3777          base[0]= CMPmake_fixnum(V764);          base[0]= CMPmake_fixnum(V861);
3778          base[1]= CMPmake_fixnum((long)STREF(unsigned short,V756,32));          base[1]= CMPmake_fixnum((long)STREF(unsigned short,V852,32));
3779          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3780          Lfloor();          Lfloor();
3781          vs_top=sup;          vs_top=sup;
3782          V761= fix(vs_base[0]);          V857= fix(vs_base[0]);
3783          goto T1417;          goto T1417;
3784          goto T1420;          goto T1420;
3785  T1420:;  T1420:;
3786          base[0]= CMPmake_fixnum((long)(V764)-1);          base[0]= CMPmake_fixnum((long)(V861)-1);
3787          base[1]= CMPmake_fixnum((long)STREF(unsigned short,V756,32));          base[1]= CMPmake_fixnum((long)STREF(unsigned short,V852,32));
3788          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3789          Lfloor();          Lfloor();
3790          vs_top=sup;          vs_top=sup;
3791          V761= fix(vs_base[0]);}          V857= fix(vs_base[0]);}
3792          goto T1417;          goto T1417;
3793  T1417:;  T1417:;
3794          {object V766;          {object V863;
3795          object V767;          object V864;
3796          base[0]= CMPmake_fixnum(V761);          base[0]= CMPmake_fixnum(V857);
3797          base[1]= (V756);          base[1]= (V852);
3798          base[2]= (V757);          base[2]= (V853);
3799          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3800          (void) (*Lnk212)();          (void) (*Lnk212)();
3801          if(vs_base>=vs_top){vs_top=sup;goto T1431;}          if(vs_base>=vs_top){vs_top=sup;goto T1431;}
3802          V766= vs_base[0];          V863= vs_base[0];
3803          vs_base++;          vs_base++;
3804          if(vs_base>=vs_top){vs_top=sup;goto T1432;}          if(vs_base>=vs_top){vs_top=sup;goto T1432;}
3805          V767= vs_base[0];          V864= vs_base[0];
3806          vs_top=sup;          vs_top=sup;
3807          goto T1433;          goto T1433;
3808          goto T1431;          goto T1431;
3809  T1431:;  T1431:;
3810          V766= Cnil;          V863= Cnil;
3811          goto T1432;          goto T1432;
3812  T1432:;  T1432:;
3813          V767= Cnil;          V864= Cnil;
3814          goto T1433;          goto T1433;
3815  T1433:;  T1433:;
3816          if(((V755))!=Cnil){          if(((V851))!=Cnil){
3817          goto T1434;}          goto T1434;}
3818          if(((V767))==Cnil){          if(((V864))==Cnil){
3819          goto T1435;}          goto T1435;}
3820          goto T1434;          goto T1434;
3821  T1434:;  T1434:;
3822          if(((V767))!=Cnil){          if(((V864))!=Cnil){
3823          goto T1439;}          goto T1439;}
3824          {object V768;          {object V865;
3825          object V770;          object V867;
3826          {long V772;          {long V869;
3827          V772= fix((V766));          V869= fix((V863));
3828          {long V773;          {long V870;
3829          V773= V772;          V870= V869;
3830          V774= (long)STREF(unsigned short,V756,4);          V871= (long)STREF(unsigned short,V852,4);
3831          if((V774)==(1)){          if((V871)==(1)){
3832          goto T1449;}          goto T1449;}
3833          goto T1445;          goto T1445;
3834          goto T1449;          goto T1449;
3835  T1449:;  T1449:;
3836          if(!((V773)==(0))){          if(!((V870)==(0))){
3837          goto T1445;}}          goto T1445;}}
3838          base[2]= VV[160];          base[2]= VV[160];
3839          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 3744  T1449:; Line 3841  T1449:;
3841          vs_top=sup;          vs_top=sup;
3842          goto T1445;          goto T1445;
3843  T1445:;  T1445:;
3844          {long V775;          {long V872;
3845          {long V776;          {long V873;
3846          V776= V772;          V873= V869;
3847          {long V777;          {long V874;
3848          V777= V776;          V874= V873;
3849          V778= (long)STREF(unsigned short,V756,4);          V875= (long)STREF(unsigned short,V852,4);
3850          if((V778)==(1)){          if((V875)==(1)){
3851          goto T1459;}          goto T1459;}
3852          goto T1455;          goto T1455;
3853          goto T1459;          goto T1459;
3854  T1459:;  T1459:;
3855          if(!((V777)==(0))){          if(!((V874)==(0))){
3856          goto T1455;}}          goto T1455;}}
3857          base[2]= VV[156];          base[2]= VV[156];
3858          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 3763  T1459:; Line 3860  T1459:;
3860          vs_top=sup;          vs_top=sup;
3861          goto T1455;          goto T1455;
3862  T1455:;  T1455:;
3863          V779= (long)STREF(unsigned short,V756,4);          V876= (long)STREF(unsigned short,V852,4);
3864          if(!((V779)==(1))){          if(!((V876)==(1))){
3865          goto T1464;}          goto T1464;}
3866          V780= (long)STREF(unsigned short,V756,32);          V877 = V873;
3867          V775= (long)(V776)*(V780);          V878= (long)STREF(unsigned short,V852,32);
3868            V872= (long)(V877)*(V878);
3869          goto T1453;          goto T1453;
3870          goto T1464;          goto T1464;
3871  T1464:;  T1464:;
3872          V781= (long)STREF(unsigned short,V756,32);          V879 = V873;
3873          V775= (long)((long)(V776)*(V781))+1;}          V880= (long)STREF(unsigned short,V852,32);
3874            V872= (long)((long)(V879)*(V880))+1;}
3875          goto T1453;          goto T1453;
3876  T1453:;  T1453:;
3877          V782= (long)STREF(unsigned short,V756,4);          V881= (long)STREF(unsigned short,V852,4);
3878          if(!((V782)==(1))){          if(!((V881)==(1))){
3879          goto T1470;}          goto T1470;}
3880          V783= STREF(object,V756,40);          V882= STREF(object,V852,40);
3881          V771= (V783)->v.v_self[V775];          V883 = V872;
3882            V868= (V882)->v.v_self[V883];
3883          goto T1443;          goto T1443;
3884          goto T1470;          goto T1470;
3885  T1470:;  T1470:;
3886          {register object V784;          {register object V884;
3887          object V785;          object V885;
3888          base[2]= CMPmake_fixnum((long)STREF(unsigned short,V756,4));          base[2]= CMPmake_fixnum((long)STREF(unsigned short,V852,4));
3889          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3890          Lmake_list();          Lmake_list();
3891          vs_top=sup;          vs_top=sup;
3892          V784= vs_base[0];          V884= vs_base[0];
3893          V785= STREF(object,V756,40);          V885= STREF(object,V852,40);
3894          {long V786;          {long V886;
3895          register long V787;          register long V887;
3896          V786= (long)STREF(unsigned short,V756,4);          V886= (long)STREF(unsigned short,V852,4);
3897          V787= 0;          V887= 0;
3898          goto T1480;          goto T1480;
3899  T1480:;  T1480:;
3900          if(!((V787)>=(V786))){          if(!((V887)>=(V886))){
3901          goto T1481;}          goto T1481;}
3902          V771= (V784);          V868= (V884);
3903          goto T1443;          goto T1443;
3904          goto T1481;          goto T1481;
3905  T1481:;  T1481:;
3906          {object V788;          {object V888;
3907          register object V790;          register object V890;
3908          V788= CMPmake_fixnum(V787);          V888= CMPmake_fixnum(V887);
3909          V790= ((V785))->v.v_self[(long)(V775)+(V787)];          V890= ((V885))->v.v_self[(long)(V872)+(V887)];
3910          (nthcdr(fix((V788)),V784))->c.c_car = (V790);          (nthcdr(fix((V888)),V884))->c.c_car = (V890);
3911          (void)(nthcdr(fix((V788)),V784));}          (void)(nthcdr(fix((V888)),V884));}
3912          V787= (long)(V787)+1;          V887= (long)(V887)+1;
3913          goto T1480;}}}}          goto T1480;}}}}
3914          goto T1443;          goto T1443;
3915  T1443:;  T1443:;
3916          {long V792;          {long V892;
3917          V792= fix((V766));          V892= fix((V863));
3918          {long V793;          {long V893;
3919          V793= V792;          V893= V892;
3920          V794= (long)STREF(unsigned short,V756,4);          V894= (long)STREF(unsigned short,V852,4);
3921          if((V794)==(1)){          if((V894)==(1)){
3922          goto T1497;}          goto T1497;}
3923          goto T1493;          goto T1493;
3924          goto T1497;          goto T1497;
3925  T1497:;  T1497:;
3926          if(!((V793)==(0))){          if(!((V893)==(0))){
3927          goto T1493;}}          goto T1493;}}
3928          base[2]= VV[161];          base[2]= VV[161];
3929          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 3831  T1497:; Line 3931  T1497:;
3931          vs_top=sup;          vs_top=sup;
3932          goto T1493;          goto T1493;
3933  T1493:;  T1493:;
3934          {long V795;          {long V895;
3935          {long V796;          {long V896;
3936          V796= V792;          V896= V892;
3937          {long V797;          {long V897;
3938          V797= V796;          V897= V896;
3939          V798= (long)STREF(unsigned short,V756,4);          V898= (long)STREF(unsigned short,V852,4);
3940          if((V798)==(1)){          if((V898)==(1)){
3941          goto T1507;}          goto T1507;}
3942          goto T1503;          goto T1503;
3943          goto T1507;          goto T1507;
3944  T1507:;  T1507:;
3945          if(!((V797)==(0))){          if(!((V897)==(0))){
3946          goto T1503;}}          goto T1503;}}
3947          base[2]= VV[156];          base[2]= VV[156];
3948          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 3850  T1507:; Line 3950  T1507:;
3950          vs_top=sup;          vs_top=sup;
3951          goto T1503;          goto T1503;
3952  T1503:;  T1503:;
3953          V799= (long)STREF(unsigned short,V756,4);          V899= (long)STREF(unsigned short,V852,4);
3954          if(!((V799)==(1))){          if(!((V899)==(1))){
3955          goto T1512;}          goto T1512;}
3956          V800= (long)STREF(unsigned short,V756,32);          V900 = V896;
3957          V795= (long)(V796)*(V800);          V901= (long)STREF(unsigned short,V852,32);
3958            V895= (long)(V900)*(V901);
3959          goto T1501;          goto T1501;
3960          goto T1512;          goto T1512;
3961  T1512:;  T1512:;
3962          V801= (long)STREF(unsigned short,V756,32);          V902 = V896;
3963          V795= (long)((long)(V796)*(V801))+1;}          V903= (long)STREF(unsigned short,V852,32);
3964            V895= (long)((long)(V902)*(V903))+1;}
3965          goto T1501;          goto T1501;
3966  T1501:;  T1501:;
3967          if((STREF(object,V756,8))!=Cnil){          if((STREF(object,V852,8))!=Cnil){
3968          goto T1517;}          goto T1517;}
3969          V791= Cnil;          V891= Cnil;
3970          goto T1491;          goto T1491;
3971          goto T1517;          goto T1517;
3972  T1517:;  T1517:;
3973          V802= STREF(object,V756,40);          V904= STREF(object,V852,40);
3974          V803= (long)STREF(unsigned short,V756,4);          V905 = V895;
3975          V791= (V802)->v.v_self[(long)(V795)+(V803)];}}          V906= (long)STREF(unsigned short,V852,4);
3976            V891= (V904)->v.v_self[(long)(V905)+(V906)];}}
3977          goto T1491;          goto T1491;
3978  T1491:;  T1491:;
3979          V768= make_cons(V771,V791);          V865= make_cons(V868,V891);
3980          V770= make_cons((V768),STREF(object,V756,44));          V867= make_cons((V865),STREF(object,V852,44));
3981          V804= Ct;          V907 = V852;
3982          STSET(object,V756,44, (V770));          V908 = (V867);
3983          (void)((V770));}          V909= Ct;
3984            STSET(object,V907,44, V908);
3985            (void)(V908);}
3986          goto T1439;          goto T1439;
3987  T1439:;  T1439:;
3988          {long V805;          {long V910;
3989          V805= fix((V766));          V910= fix((V863));
3990          {long V806;          {long V911;
3991          V806= V805;          V911= V910;
3992          V807= (long)STREF(unsigned short,V756,4);          V912= (long)STREF(unsigned short,V852,4);
3993          if((V807)==(1)){          if((V912)==(1)){
3994          goto T1527;}          goto T1527;}
3995          goto T1523;          goto T1523;
3996          goto T1527;          goto T1527;
3997  T1527:;  T1527:;
3998          if(!((V806)==(0))){          if(!((V911)==(0))){
3999          goto T1523;}}          goto T1523;}}
4000          base[0]= VV[162];          base[0]= VV[162];
4001          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3898  T1527:; Line 4003  T1527:;
4003          vs_top=sup;          vs_top=sup;
4004          goto T1523;          goto T1523;
4005  T1523:;  T1523:;
4006          {long V808;          {long V913;
4007          object V809;          object V914;
4008          {long V810;          {long V915;
4009          V810= V805;          V915= V910;
4010          {long V811;          {long V916;
4011          V811= V810;          V916= V915;
4012          V812= (long)STREF(unsigned short,V756,4);          V917= (long)STREF(unsigned short,V852,4);
4013          if((V812)==(1)){          if((V917)==(1)){
4014          goto T1537;}          goto T1537;}
4015          goto T1533;          goto T1533;
4016          goto T1537;          goto T1537;
4017  T1537:;  T1537:;
4018          if(!((V811)==(0))){          if(!((V916)==(0))){
4019          goto T1533;}}          goto T1533;}}
4020          base[0]= VV[156];          base[0]= VV[156];
4021          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3918  T1537:; Line 4023  T1537:;
4023          vs_top=sup;          vs_top=sup;
4024          goto T1533;          goto T1533;
4025  T1533:;  T1533:;
4026          V813= (long)STREF(unsigned short,V756,4);          V918= (long)STREF(unsigned short,V852,4);
4027          if(!((V813)==(1))){          if(!((V918)==(1))){
4028          goto T1542;}          goto T1542;}
4029          V814= (long)STREF(unsigned short,V756,32);          V919 = V915;
4030          V808= (long)(V810)*(V814);          V920= (long)STREF(unsigned short,V852,32);
4031            V913= (long)(V919)*(V920);
4032          goto T1531;          goto T1531;
4033          goto T1542;          goto T1542;
4034  T1542:;  T1542:;
4035          V815= (long)STREF(unsigned short,V756,32);          V921 = V915;
4036          V808= (long)((long)(V810)*(V815))+1;}          V922= (long)STREF(unsigned short,V852,32);
4037            V913= (long)((long)(V921)*(V922))+1;}
4038          goto T1531;          goto T1531;
4039  T1531:;  T1531:;
4040          V809= STREF(object,V756,40);          V914= STREF(object,V852,40);
4041          V816= (long)STREF(unsigned short,V756,4);          V923= (long)STREF(unsigned short,V852,4);
4042          if(!((V816)==(1))){          if(!((V923)==(1))){
4043          goto T1550;}          goto T1550;}
4044          (void)(((V809))->v.v_self[V808]= ((V757)));          (void)(((V914))->v.v_self[V913]= ((V853)));
4045          if((STREF(object,V756,8))==Cnil){          if((STREF(object,V852,8))==Cnil){
4046          goto T1548;}          goto T1548;}
4047          (void)(((V809))->v.v_self[(long)(V808)+1]= ((V758)));          (void)(((V914))->v.v_self[(long)(V913)+1]= ((V854)));
4048          goto T1548;          goto T1548;
4049          goto T1550;          goto T1550;
4050  T1550:;  T1550:;
4051          {register long V817;          {register long V924;
4052          V817= 0;          V924= 0;
4053          {register object V818;          {register object V925;
4054          register object V819;          register object V926;
4055          V818= (V757);          V925= (V853);
4056          V819= CMPcar((V818));          V926= CMPcar((V925));
4057          goto T1561;          goto T1561;
4058  T1561:;  T1561:;
4059          if(!(((V818))==Cnil)){          if(!(((V925))==Cnil)){
4060          goto T1562;}          goto T1562;}
4061          goto T1556;          goto T1556;
4062          goto T1562;          goto T1562;
4063  T1562:;  T1562:;
4064          (void)(((V809))->v.v_self[(long)(V808)+(V817)]= ((V819)));          (void)(((V914))->v.v_self[(long)(V913)+(V924)]= ((V926)));
4065          V817= (long)(V817)+1;          V924= (long)(V924)+1;
4066          V818= CMPcdr((V818));          V925= CMPcdr((V925));
4067          V819= CMPcar((V818));          V926= CMPcar((V925));
4068          goto T1561;}}          goto T1561;}}
4069          goto T1556;          goto T1556;
4070  T1556:;  T1556:;
4071          if((STREF(object,V756,8))==Cnil){          if((STREF(object,V852,8))==Cnil){
4072          goto T1548;}          goto T1548;}
4073          V820= (long)STREF(unsigned short,V756,4);          V927 = V913;
4074          (void)(((V809))->v.v_self[(long)(V808)+(V820)]= ((V758)));          V928= (long)STREF(unsigned short,V852,4);
4075            (void)(((V914))->v.v_self[(long)(V927)+(V928)]= ((V854)));
4076          goto T1548;          goto T1548;
4077  T1548:;  T1548:;
4078          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
4079          goto T1577;}          goto T1577;}
4080          (void)((*(LnkLI154))((V756)));          (void)((*(LnkLI154))((V852)));
4081          goto T1577;          goto T1577;
4082  T1577:;  T1577:;
4083          {object V821 = (V756);          {object V929 = (V852);
4084          VMR66(V821)}}}          VMR66(V929)}}}
4085          goto T1435;          goto T1435;
4086  T1435:;  T1435:;
4087          {object V822 = Cnil;          {object V930 = Cnil;
4088          VMR66(V822)}}}          VMR66(V930)}}}
4089          base[0]=base[0];          base[0]=base[0];
4090          return Cnil;          return Cnil;
4091  }  }
4092  /*      local entry for function FILL-CACHE-FROM-CACHE-P        */  /*      local entry for function FILL-CACHE-FROM-CACHE-P        */
4093    
4094  static object LI70(V827,V828,V829,V830)  static object LI70(V935,V936,V937,V938)
4095    
4096  object V827;object V828;object V829;long V830;  object V935;object V936;object V937;long V938;
4097  {        VMB67 VMS67 VMV67  {        VMB67 VMS67 VMV67
4098          goto TTL;          goto TTL;
4099  TTL:;  TTL:;
4100          {long V832;          {long V940;
4101          {long V833;          {long V941;
4102          {long V835;          V942 = (V936);
4103          V835= V830;          {long V944;
4104          {long V836;          V944= V938;
4105          V836= V835;          {long V945;
4106          V837= (long)STREF(unsigned short,V828,4);          V945= V944;
4107          if((V837)==(1)){          V946= (long)STREF(unsigned short,V936,4);
4108            if((V946)==(1)){
4109          goto T1588;}          goto T1588;}
4110          goto T1584;          goto T1584;
4111          goto T1588;          goto T1588;
4112  T1588:;  T1588:;
4113          if(!((V836)==(0))){          if(!((V945)==(0))){
4114          goto T1584;}}          goto T1584;}}
4115          base[0]= VV[156];          base[0]= VV[156];
4116          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 4009  T1588:; Line 4118  T1588:;
4118          vs_top=sup;          vs_top=sup;
4119          goto T1584;          goto T1584;
4120  T1584:;  T1584:;
4121          V838= (long)STREF(unsigned short,V828,4);          V947= (long)STREF(unsigned short,V936,4);
4122          if(!((V838)==(1))){          if(!((V947)==(1))){
4123          goto T1593;}          goto T1593;}
4124          V839= (long)STREF(unsigned short,V828,32);          V948 = V944;
4125          V834= CMPmake_fixnum((long)(V835)*(V839));          V949= (long)STREF(unsigned short,V936,32);
4126            V943= CMPmake_fixnum((long)(V948)*(V949));
4127          goto T1582;          goto T1582;
4128          goto T1593;          goto T1593;
4129  T1593:;  T1593:;
4130          V840= (long)STREF(unsigned short,V828,32);          V950 = V944;
4131          V834= CMPmake_fixnum((long)((long)(V835)*(V840))+1);}          V951= (long)STREF(unsigned short,V936,32);
4132            V943= CMPmake_fixnum((long)((long)(V950)*(V951))+1);}
4133          goto T1582;          goto T1582;
4134  T1582:;  T1582:;
4135          V833= fix((VFUN_NARGS=3,(*(LnkLI210))((V828),V834,(V829))));          V952 = (V937);
4136          V841= (long)STREF(unsigned short,V828,4);          V941= fix((VFUN_NARGS=3,(*(LnkLI210))(V942,V943,V952)));
4137          if(!((V841)==(1))){          V953= (long)STREF(unsigned short,V936,4);
4138            if(!((V953)==(1))){
4139          goto T1599;}          goto T1599;}
4140          base[0]= CMPmake_fixnum(V833);          base[0]= CMPmake_fixnum(V941);
4141          base[1]= CMPmake_fixnum((long)STREF(unsigned short,V828,32));          base[1]= CMPmake_fixnum((long)STREF(unsigned short,V936,32));
4142          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4143          Lfloor();          Lfloor();
4144          vs_top=sup;          vs_top=sup;
4145          V832= fix(vs_base[0]);          V940= fix(vs_base[0]);
4146          goto T1580;          goto T1580;
4147          goto T1599;          goto T1599;
4148  T1599:;  T1599:;
4149          base[0]= CMPmake_fixnum((long)(V833)-1);          base[0]= CMPmake_fixnum((long)(V941)-1);
4150          base[1]= CMPmake_fixnum((long)STREF(unsigned short,V828,32));          base[1]= CMPmake_fixnum((long)STREF(unsigned short,V936,32));
4151          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4152          Lfloor();          Lfloor();
4153          vs_top=sup;          vs_top=sup;
4154          V832= fix(vs_base[0]);}          V940= fix(vs_base[0]);}
4155          goto T1580;          goto T1580;
4156  T1580:;  T1580:;
4157          {object V842;          {object V954;
4158          object V843;          object V955;
4159          base[0]= CMPmake_fixnum(V832);          base[0]= CMPmake_fixnum(V940);
4160          base[1]= (V828);          base[1]= (V936);
4161          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4162          (void) (*Lnk212)();          (void) (*Lnk212)();
4163          if(vs_base>=vs_top){vs_top=sup;goto T1609;}          if(vs_base>=vs_top){vs_top=sup;goto T1609;}
4164          V842= vs_base[0];          V954= vs_base[0];
4165          vs_base++;          vs_base++;
4166          if(vs_base>=vs_top){vs_top=sup;goto T1610;}          if(vs_base>=vs_top){vs_top=sup;goto T1610;}
4167          V843= vs_base[0];          V955= vs_base[0];
4168          vs_top=sup;          vs_top=sup;
4169          goto T1611;          goto T1611;
4170          goto T1609;          goto T1609;
4171  T1609:;  T1609:;
4172          V842= Cnil;          V954= Cnil;
4173          goto T1610;          goto T1610;
4174  T1610:;  T1610:;
4175          V843= Cnil;          V955= Cnil;
4176          goto T1611;          goto T1611;
4177  T1611:;  T1611:;
4178          if(((V827))!=Cnil){          if(((V935))!=Cnil){
4179          goto T1612;}          goto T1612;}
4180          if(((V843))==Cnil){          if(((V955))==Cnil){
4181          goto T1613;}          goto T1613;}
4182          goto T1612;          goto T1612;
4183  T1612:;  T1612:;
4184          if(((V843))!=Cnil){          if(((V955))!=Cnil){
4185          goto T1617;}          goto T1617;}
4186          {object V844;          {object V956;
4187          object V846;          object V958;
4188          {long V848;          {long V960;
4189          V848= fix((V842));          V960= fix((V954));
4190          {long V849;          {long V961;
4191          V849= V848;          V961= V960;
4192          V850= (long)STREF(unsigned short,V828,4);          V962= (long)STREF(unsigned short,V936,4);
4193          if((V850)==(1)){          if((V962)==(1)){
4194          goto T1627;}          goto T1627;}
4195          goto T1623;          goto T1623;
4196          goto T1627;          goto T1627;
4197  T1627:;  T1627:;
4198          if(!((V849)==(0))){          if(!((V961)==(0))){
4199          goto T1623;}}          goto T1623;}}
4200          base[2]= VV[160];          base[2]= VV[160];
4201          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 4091  T1627:; Line 4203  T1627:;
4203          vs_top=sup;          vs_top=sup;
4204          goto T1623;          goto T1623;
4205  T1623:;  T1623:;
4206          {long V851;          {long V963;
4207          {long V852;          {long V964;
4208          V852= V848;          V964= V960;
4209          {long V853;          {long V965;
4210          V853= V852;          V965= V964;
4211          V854= (long)STREF(unsigned short,V828,4);          V966= (long)STREF(unsigned short,V936,4);
4212          if((V854)==(1)){          if((V966)==(1)){
4213          goto T1637;}          goto T1637;}
4214          goto T1633;          goto T1633;
4215          goto T1637;          goto T1637;
4216  T1637:;  T1637:;
4217          if(!((V853)==(0))){          if(!((V965)==(0))){
4218          goto T1633;}}          goto T1633;}}
4219          base[2]= VV[156];          base[2]= VV[156];
4220          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 4110  T1637:; Line 4222  T1637:;
4222          vs_top=sup;          vs_top=sup;
4223          goto T1633;          goto T1633;
4224  T1633:;  T1633:;
4225          V855= (long)STREF(unsigned short,V828,4);          V967= (long)STREF(unsigned short,V936,4);
4226          if(!((V855)==(1))){          if(!((V967)==(1))){
4227          goto T1642;}          goto T1642;}
4228          V856= (long)STREF(unsigned short,V828,32);          V968 = V964;
4229          V851= (long)(V852)*(V856);          V969= (long)STREF(unsigned short,V936,32);
4230            V963= (long)(V968)*(V969);
4231          goto T1631;          goto T1631;
4232          goto T1642;          goto T1642;
4233  T1642:;  T1642:;
4234          V857= (long)STREF(unsigned short,V828,32);          V970 = V964;
4235          V851= (long)((long)(V852)*(V857))+1;}          V971= (long)STREF(unsigned short,V936,32);
4236            V963= (long)((long)(V970)*(V971))+1;}
4237          goto T1631;          goto T1631;
4238  T1631:;  T1631:;
4239          V858= (long)STREF(unsigned short,V828,4);          V972= (long)STREF(unsigned short,V936,4);
4240          if(!((V858)==(1))){          if(!((V972)==(1))){
4241          goto T1648;}          goto T1648;}
4242          V859= STREF(object,V828,40);          V973= STREF(object,V936,40);
4243          V847= (V859)->v.v_self[V851];          V974 = V963;
4244            V959= (V973)->v.v_self[V974];
4245          goto T1621;          goto T1621;
4246          goto T1648;          goto T1648;
4247  T1648:;  T1648:;
4248          {register object V860;          {register object V975;
4249          object V861;          object V976;
4250          base[2]= CMPmake_fixnum((long)STREF(unsigned short,V828,4));          base[2]= CMPmake_fixnum((long)STREF(unsigned short,V936,4));
4251          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4252          Lmake_list();          Lmake_list();
4253          vs_top=sup;          vs_top=sup;
4254          V860= vs_base[0];          V975= vs_base[0];
4255          V861= STREF(object,V828,40);          V976= STREF(object,V936,40);
4256          {long V862;          {long V977;
4257          register long V863;          register long V978;
4258          V862= (long)STREF(unsigned short,V828,4);          V977= (long)STREF(unsigned short,V936,4);
4259          V863= 0;          V978= 0;
4260          goto T1658;          goto T1658;
4261  T1658:;  T1658:;
4262          if(!((V863)>=(V862))){          if(!((V978)>=(V977))){
4263          goto T1659;}          goto T1659;}
4264          V847= (V860);          V959= (V975);
4265          goto T1621;          goto T1621;
4266          goto T1659;          goto T1659;
4267  T1659:;  T1659:;
4268          {register object V864;          {register object V979;
4269          register object V865;          register object V980;
4270          register object V866;          register object V981;
4271          V864= CMPmake_fixnum(V863);          V979= CMPmake_fixnum(V978);
4272          V865= (V860);          V980= (V975);
4273          V866= ((V861))->v.v_self[(long)(V851)+(V863)];          V981= ((V976))->v.v_self[(long)(V963)+(V978)];
4274          (nthcdr(fix((V864)),(V865)))->c.c_car = (V866);          (nthcdr(fix((V979)),(V980)))->c.c_car = (V981);
4275          (void)(nthcdr(fix((V864)),(V865)));}          (void)(nthcdr(fix((V979)),(V980)));}
4276          V863= (long)(V863)+1;          V978= (long)(V978)+1;
4277          goto T1658;}}}}          goto T1658;}}}}
4278          goto T1621;          goto T1621;
4279  T1621:;  T1621:;
4280          {long V868;          {long V983;
4281          V868= fix((V842));          V983= fix((V954));
4282          {long V869;          {long V984;
4283          V869= V868;          V984= V983;
4284          V870= (long)STREF(unsigned short,V828,4);          V985= (long)STREF(unsigned short,V936,4);
4285          if((V870)==(1)){          if((V985)==(1)){
4286          goto T1676;}          goto T1676;}
4287          goto T1672;          goto T1672;
4288          goto T1676;          goto T1676;
4289  T1676:;  T1676:;
4290          if(!((V869)==(0))){          if(!((V984)==(0))){
4291          goto T1672;}}          goto T1672;}}
4292          base[2]= VV[161];          base[2]= VV[161];
4293          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 4180  T1676:; Line 4295  T1676:;
4295          vs_top=sup;          vs_top=sup;
4296          goto T1672;          goto T1672;
4297  T1672:;  T1672:;
4298          {long V871;          {long V986;
4299          {long V872;          {long V987;
4300          V872= V868;          V987= V983;
4301          {long V873;          {long V988;
4302          V873= V872;          V988= V987;
4303          V874= (long)STREF(unsigned short,V828,4);          V989= (long)STREF(unsigned short,V936,4);
4304          if((V874)==(1)){          if((V989)==(1)){
4305          goto T1686;}          goto T1686;}
4306          goto T1682;          goto T1682;
4307          goto T1686;          goto T1686;
4308  T1686:;  T1686:;
4309          if(!((V873)==(0))){          if(!((V988)==(0))){
4310          goto T1682;}}          goto T1682;}}
4311          base[2]= VV[156];          base[2]= VV[156];
4312          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 4199  T1686:; Line 4314  T1686:;
4314          vs_top=sup;          vs_top=sup;
4315          goto T1682;          goto T1682;
4316  T1682:;  T1682:;
4317          V875= (long)STREF(unsigned short,V828,4);          V990= (long)STREF(unsigned short,V936,4);
4318          if(!((V875)==(1))){          if(!((V990)==(1))){
4319          goto T1691;}          goto T1691;}
4320          V876= (long)STREF(unsigned short,V828,32);          V991 = V987;
4321          V871= (long)(V872)*(V876);          V992= (long)STREF(unsigned short,V936,32);
4322            V986= (long)(V991)*(V992);
4323          goto T1680;          goto T1680;
4324          goto T1691;          goto T1691;
4325  T1691:;  T1691:;
4326          V877= (long)STREF(unsigned short,V828,32);          V993 = V987;
4327          V871= (long)((long)(V872)*(V877))+1;}          V994= (long)STREF(unsigned short,V936,32);
4328            V986= (long)((long)(V993)*(V994))+1;}
4329          goto T1680;          goto T1680;
4330  T1680:;  T1680:;
4331          if((STREF(object,V828,8))!=Cnil){          if((STREF(object,V936,8))!=Cnil){
4332          goto T1696;}          goto T1696;}
4333          V867= Cnil;          V982= Cnil;
4334          goto T1670;          goto T1670;
4335          goto T1696;          goto T1696;
4336  T1696:;  T1696:;
4337          V878= STREF(object,V828,40);          V995= STREF(object,V936,40);
4338          V879= (long)STREF(unsigned short,V828,4);          V996 = V986;
4339          V867= (V878)->v.v_self[(long)(V871)+(V879)];}}          V997= (long)STREF(unsigned short,V936,4);
4340            V982= (V995)->v.v_self[(long)(V996)+(V997)];}}
4341          goto T1670;          goto T1670;
4342  T1670:;  T1670:;
4343          V844= make_cons(V847,V867);          V956= make_cons(V959,V982);
4344          V846= make_cons((V844),STREF(object,V828,44));          V958= make_cons((V956),STREF(object,V936,44));
4345          V880= Ct;          V998 = V936;
4346          STSET(object,V828,44, (V846));          V999 = (V958);
4347          (void)((V846));}          V1000= Ct;
4348            STSET(object,V998,44, V999);
4349            (void)(V999);}
4350          goto T1617;          goto T1617;
4351  T1617:;  T1617:;
4352          {object V881;          {object V1001;
4353          object V882;          object V1002;
4354          long V883;          long V1003;
4355          V881= STREF(object,(V829),40);          V1001= STREF(object,(V937),40);
4356          V882= STREF(object,V828,40);          V1002= STREF(object,V936,40);
4357          V883= fix((V842));          V1003= fix((V954));
4358          {long V884;          {long V1004;
4359          V884= V883;          V1004= V1003;
4360          V885= (long)STREF(unsigned short,V828,4);          V1005= (long)STREF(unsigned short,V936,4);
4361          if((V885)==(1)){          if((V1005)==(1)){
4362          goto T1709;}          goto T1709;}
4363          goto T1706;          goto T1706;
4364          goto T1709;          goto T1709;
4365  T1709:;  T1709:;
4366          if(!((V884)==(0))){          if(!((V1004)==(0))){
4367          goto T1706;}}          goto T1706;}}
4368          base[0]= VV[163];          base[0]= VV[163];
4369          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 4252  T1709:; Line 4372  T1709:;
4372          goto T1704;          goto T1704;
4373          goto T1706;          goto T1706;
4374  T1706:;  T1706:;
4375          {long V886;          {long V1006;
4376          long V887;          long V1007;
4377          {long V888;          {long V1008;
4378          V888= V830;          V1008= V938;
4379          {long V889;          {long V1009;
4380          V889= V888;          V1009= V1008;
4381          V890= (long)STREF(unsigned short,V828,4);          V1010= (long)STREF(unsigned short,V936,4);
4382          if((V890)==(1)){          if((V1010)==(1)){
4383          goto T1719;}          goto T1719;}
4384          goto T1715;          goto T1715;
4385          goto T1719;          goto T1719;
4386  T1719:;  T1719:;
4387          if(!((V889)==(0))){          if(!((V1009)==(0))){
4388          goto T1715;}}          goto T1715;}}
4389          base[0]= VV[156];          base[0]= VV[156];
4390          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 4272  T1719:; Line 4392  T1719:;
4392          vs_top=sup;          vs_top=sup;
4393          goto T1715;          goto T1715;
4394  T1715:;  T1715:;
4395          V891= (long)STREF(unsigned short,V828,4);          V1011= (long)STREF(unsigned short,V936,4);
4396          if(!((V891)==(1))){          if(!((V1011)==(1))){
4397          goto T1724;}          goto T1724;}
4398          V892= (long)STREF(unsigned short,V828,32);          V1012 = V1008;
4399          V886= (long)(V888)*(V892);          V1013= (long)STREF(unsigned short,V936,32);
4400            V1006= (long)(V1012)*(V1013);
4401          goto T1713;          goto T1713;
4402          goto T1724;          goto T1724;
4403  T1724:;  T1724:;
4404          V893= (long)STREF(unsigned short,V828,32);          V1014 = V1008;
4405          V886= (long)((long)(V888)*(V893))+1;}          V1015= (long)STREF(unsigned short,V936,32);
4406            V1006= (long)((long)(V1014)*(V1015))+1;}
4407          goto T1713;          goto T1713;
4408  T1713:;  T1713:;
4409          {long V894;          {long V1016;
4410          V894= V883;          V1016= V1003;
4411          {long V895;          {long V1017;
4412          V895= V894;          V1017= V1016;
4413          V896= (long)STREF(unsigned short,V828,4);          V1018= (long)STREF(unsigned short,V936,4);
4414          if((V896)==(1)){          if((V1018)==(1)){
4415          goto T1735;}          goto T1735;}
4416          goto T1731;          goto T1731;
4417          goto T1735;          goto T1735;
4418  T1735:;  T1735:;
4419          if(!((V895)==(0))){          if(!((V1017)==(0))){
4420          goto T1731;}}          goto T1731;}}
4421          base[0]= VV[156];          base[0]= VV[156];
4422          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 4302  T1735:; Line 4424  T1735:;
4424          vs_top=sup;          vs_top=sup;
4425          goto T1731;          goto T1731;
4426  T1731:;  T1731:;
4427          V897= (long)STREF(unsigned short,V828,4);          V1019= (long)STREF(unsigned short,V936,4);
4428          if(!((V897)==(1))){          if(!((V1019)==(1))){
4429          goto T1740;}          goto T1740;}
4430          V898= (long)STREF(unsigned short,V828,32);          V1020 = V1016;
4431          V887= (long)(V894)*(V898);          V1021= (long)STREF(unsigned short,V936,32);
4432            V1007= (long)(V1020)*(V1021);
4433          goto T1729;          goto T1729;
4434          goto T1740;          goto T1740;
4435  T1740:;  T1740:;
4436          V899= (long)STREF(unsigned short,V828,32);          V1022 = V1016;
4437          V887= (long)((long)(V894)*(V899))+1;}          V1023= (long)STREF(unsigned short,V936,32);
4438            V1007= (long)((long)(V1022)*(V1023))+1;}
4439          goto T1729;          goto T1729;
4440  T1729:;  T1729:;
4441          {long V902;          {long V1026;
4442          register long V903;          register long V1027;
4443          V902= (long)STREF(unsigned short,V828,32);          V1026= (long)STREF(unsigned short,V936,32);
4444          V903= 0;          V1027= 0;
4445          goto T1749;          goto T1749;
4446  T1749:;  T1749:;
4447          if(!((V903)>=(V902))){          if(!((V1027)>=(V1026))){
4448          goto T1750;}          goto T1750;}
4449          base[0]= Cnil;          base[0]= Cnil;
4450          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4451          goto T1745;          goto T1745;
4452          goto T1750;          goto T1750;
4453  T1750:;  T1750:;
4454          (void)(((V882))->v.v_self[(long)(V887)+(V903)]= (((V881))->v.v_self[(long)(V886)+(V903)]));          (void)(((V1002))->v.v_self[(long)(V1007)+(V1027)]= (((V1001))->v.v_self[(long)(V1006)+(V1027)]));
4455          V903= (long)(V903)+1;          V1027= (long)(V1027)+1;
4456          goto T1749;}          goto T1749;}
4457          goto T1745;          goto T1745;
4458  T1745:;  T1745:;
4459          {object *V901=vs_top;object *V900=vs_base; vs_base=V901;          {object *V1025=vs_top;object *V1024=vs_base; vs_base=V1025;
4460          {register object *base0=base;          {register object *base0=base;
4461          {register object *base=V901;          {register object *base=V1025;
4462          register object *sup=vs_base+VM68;          register object *sup=vs_base+VM68;
4463          base0[0]=base0[0];          base0[0]=base0[0];
4464          base[0]=base[0];          base[0]=base[0];
4465          vs_check;          vs_check;
4466          vs_top=sup;          vs_top=sup;
4467          {long V904;          {long V1028;
4468          V904= fix(((V882))->v.v_self[0]);          V1028= fix(((V1002))->v.v_self[0]);
4469          if(!((V904)==(2147483647))){          V1029 = (V1002);
4470            if(!((V1028)==(2147483647))){
4471          goto T1761;}          goto T1761;}
4472          V905= small_fixnum(1);          V1030= small_fixnum(1);
4473          goto T1759;          goto T1759;
4474          goto T1761;          goto T1761;
4475  T1761:;  T1761:;
4476          V905= CMPmake_fixnum((long)(V904)+1);          V1030= CMPmake_fixnum((long)(V1028)+1);
4477          goto T1759;          goto T1759;
4478  T1759:;  T1759:;
4479          (void)(((V882))->v.v_self[0]= (V905));}          (void)((V1029)->v.v_self[0]= (V1030));}
4480          }}          }}
4481          vs_base=V900;vs_top=V901;}          vs_base=V1024;vs_top=V1025;}
4482          vs_top=sup;}          vs_top=sup;}
4483          goto T1704;          goto T1704;
4484  T1704:;  T1704:;
4485          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
4486          goto T1763;}          goto T1763;}
4487          (void)((*(LnkLI154))((V828)));          (void)((*(LnkLI154))((V936)));
4488          goto T1763;          goto T1763;
4489  T1763:;  T1763:;
4490          {object V906 = (V828);          {object V1031 = (V936);
4491          VMR67(V906)}}          VMR67(V1031)}}
4492          goto T1613;          goto T1613;
4493  T1613:;  T1613:;
4494          {object V907 = Cnil;          {object V1032 = Cnil;
4495          VMR67(V907)}}}          VMR67(V1032)}}}
4496          base[0]=base[0];          base[0]=base[0];
4497          return Cnil;          return Cnil;
4498  }  }
4499  /*      local entry for function ADJUST-CACHE   */  /*      local entry for function ADJUST-CACHE   */
4500    
4501  static object LI74(V912,V913,V914,V915)  static object LI74(V1037,V1038,V1039,V1040)
4502    
4503  object V912;object V913;object V914;object V915;  object V1037;object V1038;object V1039;object V1040;
4504  {        VMB69 VMS69 VMV69  {        VMB69 VMS69 VMV69
4505          goto TTL;          goto TTL;
4506  TTL:;  TTL:;
4507          base[0]= (V912);          base[0]= (V1037);
4508          {register object V916;          {register object V1041;
4509          V916= base[0];          V1041= base[0];
4510          V917= CMPmake_fixnum((long)STREF(fixnum,(V916),12));          V1042 = base[0];
4511          V918= CMPmake_fixnum((long)STREF(unsigned char,(V916),16));          V1043= CMPmake_fixnum((long)STREF(fixnum,(V1041),12));
4512          base[1]= (VFUN_NARGS=3,(*(LnkLI213))(base[0],V917,V918));          V1044= CMPmake_fixnum((long)STREF(unsigned char,(V1041),16));
4513          {object V919;          base[1]= (VFUN_NARGS=3,(*(LnkLI213))(V1042,V1043,V1044));
4514          V919= CMPmake_fixnum((long)STREF(unsigned char,base[1],16));          {object V1045;
4515            V1045= CMPmake_fixnum((long)STREF(unsigned char,base[1],16));
4516          goto T1771;          goto T1771;
4517  T1771:;  T1771:;
4518          if(((V919))!=Cnil){          if(((V1045))!=Cnil){
4519          goto T1772;}          goto T1772;}
4520          (void)((*(LnkLI214))(base[1]));          (void)((*(LnkLI214))(base[1]));
4521          {object V920 = Cnil;          {object V1046 = Cnil;
4522          VMR69(V920)}          VMR69(V1046)}
4523          goto T1772;          goto T1772;
4524  T1772:;  T1772:;
4525          {long V921;          {long V1047;
4526          V921= fix((V919));          V1047= fix((V1045));
4527          V922= Ct;          V1048 = base[1];
4528          STSET(unsigned char,base[1],16, V921);          V1049 = V1047;
4529          (void)(V921);          V1050= Ct;
4530          {long V923;          STSET(unsigned char,V1048,16, V1049);
4531          register long V924;          (void)(V1049);
4532          V923= (long)STREF(fixnum,(V916),12);          {long V1051;
4533          V924= 0;          register long V1052;
4534            V1051= (long)STREF(fixnum,(V1041),12);
4535            V1052= 0;
4536          goto T1787;          goto T1787;
4537  T1787:;  T1787:;
4538          if(!((V924)>=(V923))){          if(!((V1052)>=(V1051))){
4539          goto T1788;}          goto T1788;}
4540          goto T1783;          goto T1783;
4541          goto T1788;          goto T1788;
4542  T1788:;  T1788:;
4543          {long V925;          {long V1053;
4544          V925= V924;          V1053= V1052;
4545          V926= (long)STREF(unsigned short,(V916),4);          V1054= (long)STREF(unsigned short,(V1041),4);
4546          if((V926)==(1)){          if((V1054)==(1)){
4547          goto T1796;}          goto T1796;}
4548          goto T1794;          goto T1794;
4549          goto T1796;          goto T1796;
4550  T1796:;  T1796:;
4551          if((V925)==(0)){          if((V1053)==(0)){
4552          goto T1791;}}          goto T1791;}}
4553          goto T1794;          goto T1794;
4554  T1794:;  T1794:;
4555          {long V927;          {long V1055;
4556          V927= V924;          V1055= V1052;
4557          {long V929;          {long V1057;
4558          V929= V927;          V1057= V1055;
4559          V930= (long)STREF(unsigned short,(V916),4);          V1058= (long)STREF(unsigned short,(V1041),4);
4560          if((V930)==(1)){          if((V1058)==(1)){
4561          goto T1805;}          goto T1805;}
4562          goto T1801;          goto T1801;
4563          goto T1805;          goto T1805;
4564  T1805:;  T1805:;
4565          if(!((V929)==(0))){          if(!((V1057)==(0))){
4566          goto T1801;}}          goto T1801;}}
4567          base[2]= VV[159];          base[2]= VV[159];
4568          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 4442  T1805:; Line 4570  T1805:;
4570          vs_top=sup;          vs_top=sup;
4571          goto T1801;          goto T1801;
4572  T1801:;  T1801:;
4573          {long V931;          {long V1059;
4574          register object V932;          register object V1060;
4575          {long V933;          {long V1061;
4576          V933= V927;          V1061= V1055;
4577          {long V934;          {long V1062;
4578          V934= V933;          V1062= V1061;
4579          V935= (long)STREF(unsigned short,(V916),4);          V1063= (long)STREF(unsigned short,(V1041),4);
4580          if((V935)==(1)){          if((V1063)==(1)){
4581          goto T1815;}          goto T1815;}
4582          goto T1811;          goto T1811;
4583          goto T1815;          goto T1815;
4584  T1815:;  T1815:;
4585          if(!((V934)==(0))){          if(!((V1062)==(0))){
4586          goto T1811;}}          goto T1811;}}
4587          base[2]= VV[156];          base[2]= VV[156];
4588          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 4462  T1815:; Line 4590  T1815:;
4590          vs_top=sup;          vs_top=sup;
4591          goto T1811;          goto T1811;
4592  T1811:;  T1811:;
4593          V936= (long)STREF(unsigned short,(V916),4);          V1064= (long)STREF(unsigned short,(V1041),4);
4594          if(!((V936)==(1))){          if(!((V1064)==(1))){
4595          goto T1820;}          goto T1820;}
4596          V937= (long)STREF(unsigned short,(V916),32);          V1065 = V1061;
4597          V931= (long)(V933)*(V937);          V1066= (long)STREF(unsigned short,(V1041),32);
4598            V1059= (long)(V1065)*(V1066);
4599          goto T1809;          goto T1809;
4600          goto T1820;          goto T1820;
4601  T1820:;  T1820:;
4602          V938= (long)STREF(unsigned short,(V916),32);          V1067 = V1061;
4603          V931= (long)((long)(V933)*(V938))+1;}          V1068= (long)STREF(unsigned short,(V1041),32);
4604            V1059= (long)((long)(V1067)*(V1068))+1;}
4605          goto T1809;          goto T1809;
4606  T1809:;  T1809:;
4607          V932= V913;          V1060= V1038;
4608          {object V939;          {object V1069;
4609          object V940;          object V1070;
4610          V939= STREF(object,(V916),40);          V1069= STREF(object,(V1041),40);
4611          V940= (((V932))==Cnil?Ct:Cnil);          V1070= (((V1060))==Cnil?Ct:Cnil);
4612          {long V941;          {long V1071;
4613          register long V942;          register long V1072;
4614          V941= (long)STREF(unsigned short,(V916),4);          V1071= (long)STREF(unsigned short,(V1041),4);
4615          V942= 0;          V1072= 0;
4616          goto T1830;          goto T1830;
4617  T1830:;  T1830:;
4618          if(!((V942)>=(V941))){          if(!((V1072)>=(V1071))){
4619          goto T1831;}          goto T1831;}
4620          if(((V940))==Cnil){          if(((V1070))==Cnil){
4621          goto T1791;}          goto T1791;}
4622          goto T1799;          goto T1799;
4623          goto T1831;          goto T1831;
4624  T1831:;  T1831:;
4625          {register object V943;          {register object V1073;
4626          V943= ((V939))->v.v_self[(long)(V931)+(V942)];          V1073= ((V1069))->v.v_self[(long)(V1059)+(V1072)];
4627          if(((V943))==Cnil){          if(((V1073))==Cnil){
4628          goto T1837;}          goto T1837;}
4629          if(!((((((V943))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((V1073))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
4630          goto T1836;}          goto T1836;}
4631          goto T1837;          goto T1837;
4632  T1837:;  T1837:;
4633          goto T1791;          goto T1791;
4634          goto T1836;          goto T1836;
4635  T1836:;  T1836:;
4636          if(((V932))==Cnil){          if(((V1060))==Cnil){
4637          goto T1841;}          goto T1841;}
4638          if(!(type_of((V932))==t_cons)){          V1074 = (V1073);
4639            if(!(type_of((V1060))==t_cons)){
4640          goto T1847;}          goto T1847;}
4641          {object V945;          {object V1076;
4642          V945= CMPcar((V932));          V1076= CMPcar((V1060));
4643          V932= CMPcdr((V932));          V1060= CMPcdr((V1060));
4644          V944= (V945);          V1075= (V1076);
4645          goto T1845;}          goto T1845;}
4646          goto T1847;          goto T1847;
4647  T1847:;  T1847:;
4648          V944= (V932);          V1075= (V1060);
4649          goto T1845;          goto T1845;
4650  T1845:;  T1845:;
4651          if(((V943))==(V944)){          if((V1074)==(V1075)){
4652          goto T1834;}          goto T1834;}
4653          goto T1841;          goto T1841;
4654  T1841:;  T1841:;
4655          V940= Ct;}          V1070= Ct;}
4656          goto T1834;          goto T1834;
4657  T1834:;  T1834:;
4658          V942= (long)(V942)+1;          V1072= (long)(V1072)+1;
4659          goto T1830;}}}}          goto T1830;}}}}
4660          goto T1799;          goto T1799;
4661  T1799:;  T1799:;
4662          base[2]= CMPmake_fixnum(V924);          base[2]= CMPmake_fixnum(V1052);
4663          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4664          L75(base);          L75(base);
4665          vs_top=sup;          vs_top=sup;
# Line 4537  T1799:; Line 4668  T1799:;
4668          goto T1781;          goto T1781;
4669          goto T1791;          goto T1791;
4670  T1791:;  T1791:;
4671          V924= (long)(V924)+1;          V1052= (long)(V1052)+1;
4672          goto T1787;}          goto T1787;}
4673          goto T1783;          goto T1783;
4674  T1783:;  T1783:;
4675          {register object V946;          {register object V1077;
4676          object V947;          object V1078;
4677          V946= STREF(object,base[0],44);          V1077= STREF(object,base[0],44);
4678          V947= CMPcar((V946));          V1078= CMPcar((V1077));
4679          goto T1867;          goto T1867;
4680  T1867:;  T1867:;
4681          if(!(((V946))==Cnil)){          if(!(((V1077))==Cnil)){
4682          goto T1868;}          goto T1868;}
4683          goto T1863;          goto T1863;
4684          goto T1868;          goto T1868;
4685  T1868:;  T1868:;
4686          base[4]= CMPcar((V947));          base[4]= CMPcar((V1078));
4687          base[5]= CMPcdr((V947));          base[5]= CMPcdr((V1078));
4688          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4689          L76(base);          L76(base);
4690          vs_top=sup;          vs_top=sup;
# Line 4562  T1868:; Line 4693  T1868:;
4693          goto T1781;          goto T1781;
4694          goto T1872;          goto T1872;
4695  T1872:;  T1872:;
4696          V946= CMPcdr((V946));          V1077= CMPcdr((V1077));
4697          V947= CMPcar((V946));          V1078= CMPcar((V1077));
4698          goto T1867;}          goto T1867;}
4699          goto T1863;          goto T1863;
4700  T1863:;  T1863:;
4701          base[2]= (V913);          base[2]= (V1038);
4702          base[3]= (V914);          base[3]= (V1039);
4703          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4704          L76(base);          L76(base);
4705          vs_top=sup;          vs_top=sup;
4706          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4707          goto T1781;}          goto T1781;}
4708          if(((V915))==Cnil){          if(((V1040))==Cnil){
4709          goto T1885;}          goto T1885;}
4710          (void)((*(LnkLI214))(base[0]));          (void)((*(LnkLI214))(base[0]));
4711          goto T1885;          goto T1885;
# Line 4584  T1885:; Line 4715  T1885:;
4715          (void)((*(LnkLI154))(base[1]));          (void)((*(LnkLI154))(base[1]));
4716          goto T1888;          goto T1888;
4717  T1888:;  T1888:;
4718          {object V948 = base[1];          {object V1079 = base[1];
4719          VMR69(V948)}          VMR69(V1079)}
4720          goto T1781;          goto T1781;
4721  T1781:;  T1781:;
4722          (void)((*(LnkLI185))(STREF(object,base[1],40)));}          (void)((*(LnkLI185))(STREF(object,base[1],40)));}
4723          V919= (*(LnkLI36))((V919));          V1045= (*(LnkLI36))((V1045));
4724          goto T1771;}}          goto T1771;}}
4725          base[0]=base[0];          base[0]=base[0];
4726          return Cnil;          return Cnil;
4727  }  }
4728  /*      local entry for function EXPAND-CACHE   */  /*      local entry for function EXPAND-CACHE   */
4729    
4730  static object LI81(V953,V954,V955,V956)  static object LI81(V1084,V1085,V1086,V1087)
4731    
4732  object V953;object V954;object V955;object V956;  object V1084;object V1085;object V1086;object V1087;
4733  {        VMB70 VMS70 VMV70  {        VMB70 VMS70 VMV70
4734          goto TTL;          goto TTL;
4735  TTL:;  TTL:;
4736          base[0]= (V953);          base[0]= (V1084);
4737          base[1]= base[0];          base[1]= base[0];
4738          V957= CMPmake_fixnum((long)STREF(fixnum,base[1],12));          V1088= CMPmake_fixnum((long)STREF(fixnum,base[1],12));
4739          V958= number_times(V957,small_fixnum(2));          V1089= number_times(V1088,small_fixnum(2));
4740          base[2]= (VFUN_NARGS=2,(*(LnkLI213))(base[0],/* INLINE-ARGS */V958));          base[2]= (VFUN_NARGS=2,(*(LnkLI213))(base[0],/* INLINE-ARGS */V1089));
4741          {long V959;          {long V1090;
4742          register long V960;          register long V1091;
4743          V959= (long)STREF(fixnum,base[1],12);          V1090= (long)STREF(fixnum,base[1],12);
4744          V960= 0;          V1091= 0;
4745          goto T1900;          goto T1900;
4746  T1900:;  T1900:;
4747          if(!((V960)>=(V959))){          if(!((V1091)>=(V1090))){
4748          goto T1901;}          goto T1901;}
4749          goto T1896;          goto T1896;
4750          goto T1901;          goto T1901;
4751  T1901:;  T1901:;
4752          {long V961;          {long V1092;
4753          V961= V960;          V1092= V1091;
4754          V962= (long)STREF(unsigned short,base[1],4);          V1093= (long)STREF(unsigned short,base[1],4);
4755          if((V962)==(1)){          if((V1093)==(1)){
4756          goto T1909;}          goto T1909;}
4757          goto T1907;          goto T1907;
4758          goto T1909;          goto T1909;
4759  T1909:;  T1909:;
4760          if((V961)==(0)){          if((V1092)==(0)){
4761          goto T1904;}}          goto T1904;}}
4762          goto T1907;          goto T1907;
4763  T1907:;  T1907:;
4764          {long V963;          {long V1094;
4765          V963= V960;          V1094= V1091;
4766          {long V965;          {long V1096;
4767          V965= V963;          V1096= V1094;
4768          V966= (long)STREF(unsigned short,base[1],4);          V1097= (long)STREF(unsigned short,base[1],4);
4769          if((V966)==(1)){          if((V1097)==(1)){
4770          goto T1918;}          goto T1918;}
4771          goto T1914;          goto T1914;
4772          goto T1918;          goto T1918;
4773  T1918:;  T1918:;
4774          if(!((V965)==(0))){          if(!((V1096)==(0))){
4775          goto T1914;}}          goto T1914;}}
4776          base[3]= VV[159];          base[3]= VV[159];
4777          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 4648  T1918:; Line 4779  T1918:;
4779          vs_top=sup;          vs_top=sup;
4780          goto T1914;          goto T1914;
4781  T1914:;  T1914:;
4782          {long V967;          {long V1098;
4783          register object V968;          register object V1099;
4784          {long V969;          {long V1100;
4785          V969= V963;          V1100= V1094;
4786          {long V970;          {long V1101;
4787          V970= V969;          V1101= V1100;
4788          V971= (long)STREF(unsigned short,base[1],4);          V1102= (long)STREF(unsigned short,base[1],4);
4789          if((V971)==(1)){          if((V1102)==(1)){
4790          goto T1928;}          goto T1928;}
4791          goto T1924;          goto T1924;
4792          goto T1928;          goto T1928;
4793  T1928:;  T1928:;
4794          if(!((V970)==(0))){          if(!((V1101)==(0))){
4795          goto T1924;}}          goto T1924;}}
4796          base[3]= VV[156];          base[3]= VV[156];
4797          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 4668  T1928:; Line 4799  T1928:;
4799          vs_top=sup;          vs_top=sup;
4800          goto T1924;          goto T1924;
4801  T1924:;  T1924:;
4802          V972= (long)STREF(unsigned short,base[1],4);          V1103= (long)STREF(unsigned short,base[1],4);
4803          if(!((V972)==(1))){          if(!((V1103)==(1))){
4804          goto T1933;}          goto T1933;}
4805          V973= (long)STREF(unsigned short,base[1],32);          V1104 = V1100;
4806          V967= (long)(V969)*(V973);          V1105= (long)STREF(unsigned short,base[1],32);
4807            V1098= (long)(V1104)*(V1105);
4808          goto T1922;          goto T1922;
4809          goto T1933;          goto T1933;
4810  T1933:;  T1933:;
4811          V974= (long)STREF(unsigned short,base[1],32);          V1106 = V1100;
4812          V967= (long)((long)(V969)*(V974))+1;}          V1107= (long)STREF(unsigned short,base[1],32);
4813            V1098= (long)((long)(V1106)*(V1107))+1;}
4814          goto T1922;          goto T1922;
4815  T1922:;  T1922:;
4816          V968= V954;          V1099= V1085;
4817          {object V975;          {object V1108;
4818          object V976;          object V1109;
4819          V975= STREF(object,base[1],40);          V1108= STREF(object,base[1],40);
4820          V976= (((V968))==Cnil?Ct:Cnil);          V1109= (((V1099))==Cnil?Ct:Cnil);
4821          {long V977;          {long V1110;
4822          register long V978;          register long V1111;
4823          V977= (long)STREF(unsigned short,base[1],4);          V1110= (long)STREF(unsigned short,base[1],4);
4824          V978= 0;          V1111= 0;
4825          goto T1943;          goto T1943;
4826  T1943:;  T1943:;
4827          if(!((V978)>=(V977))){          if(!((V1111)>=(V1110))){
4828          goto T1944;}          goto T1944;}
4829          if(((V976))==Cnil){          if(((V1109))==Cnil){
4830          goto T1904;}          goto T1904;}
4831          goto T1912;          goto T1912;
4832          goto T1944;          goto T1944;
4833  T1944:;  T1944:;
4834          {register object V979;          {register object V1112;
4835          V979= ((V975))->v.v_self[(long)(V967)+(V978)];          V1112= ((V1108))->v.v_self[(long)(V1098)+(V1111)];
4836          if(((V979))==Cnil){          if(((V1112))==Cnil){
4837          goto T1950;}          goto T1950;}
4838          if(!((((((V979))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((V1112))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
4839          goto T1949;}          goto T1949;}
4840          goto T1950;          goto T1950;
4841  T1950:;  T1950:;
4842          goto T1904;          goto T1904;
4843          goto T1949;          goto T1949;
4844  T1949:;  T1949:;
4845          if(((V968))==Cnil){          if(((V1099))==Cnil){
4846          goto T1954;}          goto T1954;}
4847          if(!(type_of((V968))==t_cons)){          V1113 = (V1112);
4848            if(!(type_of((V1099))==t_cons)){
4849          goto T1960;}          goto T1960;}
4850          {object V981;          {object V1115;
4851          V981= CMPcar((V968));          V1115= CMPcar((V1099));
4852          V968= CMPcdr((V968));          V1099= CMPcdr((V1099));
4853          V980= (V981);          V1114= (V1115);
4854          goto T1958;}          goto T1958;}
4855          goto T1960;          goto T1960;
4856  T1960:;  T1960:;
4857          V980= (V968);          V1114= (V1099);
4858          goto T1958;          goto T1958;
4859  T1958:;  T1958:;
4860          if(((V979))==(V980)){          if((V1113)==(V1114)){
4861          goto T1947;}          goto T1947;}
4862          goto T1954;          goto T1954;
4863  T1954:;  T1954:;
4864          V976= Ct;}          V1109= Ct;}
4865          goto T1947;          goto T1947;
4866  T1947:;  T1947:;
4867          V978= (long)(V978)+1;          V1111= (long)(V1111)+1;
4868          goto T1943;}}}}          goto T1943;}}}}
4869          goto T1912;          goto T1912;
4870  T1912:;  T1912:;
4871          base[3]= CMPmake_fixnum(V960);          base[3]= CMPmake_fixnum(V1091);
4872          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4873          L82(base);          L82(base);
4874          vs_top=sup;          vs_top=sup;
4875          goto T1904;          goto T1904;
4876  T1904:;  T1904:;
4877          V960= (long)(V960)+1;          V1091= (long)(V1091)+1;
4878          goto T1900;}          goto T1900;}
4879          goto T1896;          goto T1896;
4880  T1896:;  T1896:;
4881          {object V982;          {object V1116;
4882          register object V983;          register object V1117;
4883          V982= STREF(object,base[0],44);          V1116= STREF(object,base[0],44);
4884          V983= CMPcar((V982));          V1117= CMPcar((V1116));
4885          goto T1977;          goto T1977;
4886  T1977:;  T1977:;
4887          if(!(((V982))==Cnil)){          if(!(((V1116))==Cnil)){
4888          goto T1978;}          goto T1978;}
4889          goto T1973;          goto T1973;
4890          goto T1978;          goto T1978;
4891  T1978:;  T1978:;
4892          base[5]= CMPcar((V983));          base[5]= CMPcar((V1117));
4893          base[6]= CMPcdr((V983));          base[6]= CMPcdr((V1117));
4894          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4895          L84(base);          L84(base);
4896          vs_top=sup;          vs_top=sup;
4897          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4898          goto T1982;}          goto T1982;}
4899          base[5]= CMPcar((V983));          base[5]= CMPcar((V1117));
4900          base[6]= CMPcdr((V983));          base[6]= CMPcdr((V1117));
4901          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4902          L83(base);          L83(base);
4903          vs_top=sup;          vs_top=sup;
4904          goto T1982;          goto T1982;
4905  T1982:;  T1982:;
4906          V982= CMPcdr((V982));          V1116= CMPcdr((V1116));
4907          V983= CMPcar((V982));          V1117= CMPcar((V1116));
4908          goto T1977;}          goto T1977;}
4909          goto T1973;          goto T1973;
4910  T1973:;  T1973:;
4911          base[3]= (V954);          base[3]= (V1085);
4912          base[4]= (V955);          base[4]= (V1086);
4913          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4914          L84(base);          L84(base);
4915          vs_top=sup;          vs_top=sup;
4916          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4917          goto T1994;}          goto T1994;}
4918          base[3]= (V954);          base[3]= (V1085);
4919          base[4]= (V955);          base[4]= (V1086);
4920          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4921          L83(base);          L83(base);
4922          vs_top=sup;          vs_top=sup;
4923          goto T1994;          goto T1994;
4924  T1994:;  T1994:;
4925          if(((V956))==Cnil){          if(((V1087))==Cnil){
4926          goto T2001;}          goto T2001;}
4927          (void)((*(LnkLI214))(base[0]));          (void)((*(LnkLI214))(base[0]));
4928          goto T2001;          goto T2001;
# Line 4798  T2001:; Line 4932  T2001:;
4932          (void)((*(LnkLI154))(base[2]));          (void)((*(LnkLI154))(base[2]));
4933          goto T2004;          goto T2004;
4934  T2004:;  T2004:;
4935          {object V984 = base[2];          {object V1118 = base[2];
4936          VMR70(V984)}          VMR70(V1118)}
4937          base[0]=base[0];          base[0]=base[0];
4938          return Cnil;          return Cnil;
4939  }  }
# Line 4809  static void L85() Line 4943  static void L85()
4943  {register object *base=vs_base;  {register object *base=vs_base;
4944          register object *sup=base+VM71; VC71          register object *sup=base+VM71; VC71
4945          vs_check;          vs_check;
4946          {long V985;          {long V1119;
4947          object V986;          object V1120;
4948          object V987;          object V1121;
4949          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
4950          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
4951          V985=fix(base[0]);          V1119=fix(base[0]);
4952          V986=(base[1]);          V1120=(base[1]);
4953          vs_base=vs_base+2;          vs_base=vs_base+2;
4954          if(vs_base>=vs_top){vs_top=sup;goto T2007;}          if(vs_base>=vs_top){vs_top=sup;goto T2007;}
4955          V987=(base[2]);          V1121=(base[2]);
4956          vs_top=sup;          vs_top=sup;
4957          goto T2008;          goto T2008;
4958          goto T2007;          goto T2007;
4959  T2007:;  T2007:;
4960          V987= Cnil;          V1121= Cnil;
4961          goto T2008;          goto T2008;
4962  T2008:;  T2008:;
4963          {register object V988;          {register object V1122;
4964          V988= (V986);          V1122= (V1120);
4965          {long V989;          {long V1123;
4966          V989= V985;          V1123= V1119;
4967          V990= (long)STREF(unsigned short,(V988),4);          V1124= (long)STREF(unsigned short,(V1122),4);
4968          if((V990)==(1)){          if((V1124)==(1)){
4969          goto T2014;}          goto T2014;}
4970          goto T2010;          goto T2010;
4971          goto T2014;          goto T2014;
4972  T2014:;  T2014:;
4973          if(!((V989)==(0))){          if(!((V1123)==(0))){
4974          goto T2010;}}          goto T2010;}}
4975          {long V991;          {long V1125;
4976          V991= V985;          V1125= V1119;
4977          V992= (long)STREF(fixnum,(V988),12);          V1126= (long)STREF(fixnum,(V1122),12);
4978          if(!((V991)==((long)(V992)-1))){          if(!((V1125)==((long)(V1126)-1))){
4979          goto T2020;}          goto T2020;}
4980          {long V993;          {long V1127;
4981          V993= 0;          V1127= 0;
4982          V994= (long)STREF(unsigned short,(V988),4);          V1128= (long)STREF(unsigned short,(V1122),4);
4983          if((V994)==(1)){          if((V1128)==(1)){
4984          goto T2027;}          goto T2027;}
4985          goto T2024;          goto T2024;
4986          goto T2027;          goto T2027;
4987  T2027:;  T2027:;
4988          if(!((V993)==(0))){          if(!((V1127)==(0))){
4989          goto T2024;}}          goto T2024;}}
4990          V985= 1;          V1119= 1;
4991          goto T2017;          goto T2017;
4992          goto T2024;          goto T2024;
4993  T2024:;  T2024:;
4994          V985= 0;          V1119= 0;
4995          goto T2017;          goto T2017;
4996          goto T2020;          goto T2020;
4997  T2020:;  T2020:;
4998          V985= (long)(V991)+1;}          V1119= (long)(V1125)+1;}
4999          goto T2017;          goto T2017;
5000  T2017:;  T2017:;
5001          goto T2010;          goto T2010;
5002  T2010:;  T2010:;
5003          {long V995;          {long V1129;
5004          object V996;          object V1130;
5005          register object V997;          register object V1131;
5006          long V998;          long V1132;
5007          long V999;          long V1133;
5008          V1000= STREF(object,(V988),20);          V1134= STREF(object,(V1122),20);
5009          V1001= CMPmake_fixnum((long)STREF(fixnum,(V988),12));          V1135= CMPmake_fixnum((long)STREF(fixnum,(V1122),12));
5010          V995= fix((          V1129= fix((
5011          V1002 = V1000,          V1136 = V1134,
5012          (type_of(V1002) == t_sfun ?(*((V1002)->sfn.sfn_self)):          (type_of(V1136) == t_sfun ?(*((V1136)->sfn.sfn_self)):
5013          (fcall.argd=1,type_of(V1002)==t_vfun) ?          (fcall.argd=1,type_of(V1136)==t_vfun) ?
5014          (*((V1002)->sfn.sfn_self)):          (*((V1136)->sfn.sfn_self)):
5015          (fcall.fun=(V1002),fcalln))(V1001)));          (fcall.fun=(V1136),fcalln))(V1135)));
5016          V998= V985;          V1132= V1119;
5017          V999= V985;          V1133= V1119;
5018          V996= Cnil;          V1130= Cnil;
5019          V997= Cnil;          V1131= Cnil;
5020          goto T2037;          goto T2037;
5021  T2037:;  T2037:;
5022          {register long V1003;          {register long V1137;
5023          long V1004;          long V1138;
5024          V1003= V999;          V1137= V1133;
5025          {long V1005;          {long V1139;
5026          long V1006;          long V1140;
5027          V1005= V998;          V1139= V1132;
5028          V1006= V999;          V1140= V1133;
5029          {long V1007;          {long V1141;
5030          V1007= (long)(V1006)-(V1005);          V1141= (long)(V1140)-(V1139);
5031          if(!((V1007)<0)){          if(!((V1141)<0)){
5032          goto T2044;}          goto T2044;}
5033          V1008= (long)STREF(fixnum,(V988),12);          V1142 = V1141;
5034          V1007= (long)(V1007)+(V1008);          V1143= (long)STREF(fixnum,(V1122),12);
5035          {long V1009;          V1141= (long)(V1142)+(V1143);
5036          V1009= 0;          {long V1144;
5037          V1010= (long)STREF(unsigned short,(V988),4);          V1144= 0;
5038          if((V1010)==(1)){          V1145= (long)STREF(unsigned short,(V1122),4);
5039            if((V1145)==(1)){
5040          goto T2053;}          goto T2053;}
5041          goto T2044;          goto T2044;
5042          goto T2053;          goto T2053;
5043  T2053:;  T2053:;
5044          if(!((V1009)==(0))){          if(!((V1144)==(0))){
5045          goto T2044;}}          goto T2044;}}
5046          V1007= (long)(V1007)-1;          V1141= (long)(V1141)-1;
5047          goto T2044;          goto T2044;
5048  T2044:;  T2044:;
5049          V1004= V1007;}}          V1138= V1141;}}
5050          goto T2058;          goto T2058;
5051  T2058:;  T2058:;
5052          {long V1011;          {long V1146;
5053          V1011= V1003;          V1146= V1137;
5054          {long V1013;          {long V1148;
5055          V1013= V1011;          V1148= V1146;
5056          V1014= (long)STREF(unsigned short,(V988),4);          V1149= (long)STREF(unsigned short,(V1122),4);
5057          if((V1014)==(1)){          if((V1149)==(1)){
5058          goto T2069;}          goto T2069;}
5059          goto T2065;          goto T2065;
5060          goto T2069;          goto T2069;
5061  T2069:;  T2069:;
5062          if(!((V1013)==(0))){          if(!((V1148)==(0))){
5063          goto T2065;}}          goto T2065;}}
5064          base[3]= VV[159];          base[3]= VV[159];
5065          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 4932  T2069:; Line 5067  T2069:;
5067          vs_top=sup;          vs_top=sup;
5068          goto T2065;          goto T2065;
5069  T2065:;  T2065:;
5070          {long V1015;          {long V1150;
5071          register object V1016;          register object V1151;
5072          {long V1017;          {long V1152;
5073          V1017= V1011;          V1152= V1146;
5074          {long V1018;          {long V1153;
5075          V1018= V1017;          V1153= V1152;
5076          V1019= (long)STREF(unsigned short,(V988),4);          V1154= (long)STREF(unsigned short,(V1122),4);
5077          if((V1019)==(1)){          if((V1154)==(1)){
5078          goto T2079;}          goto T2079;}
5079          goto T2075;          goto T2075;
5080          goto T2079;          goto T2079;
5081  T2079:;  T2079:;
5082          if(!((V1018)==(0))){          if(!((V1153)==(0))){
5083          goto T2075;}}          goto T2075;}}
5084          base[3]= VV[156];          base[3]= VV[156];
5085          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 4952  T2079:; Line 5087  T2079:;
5087          vs_top=sup;          vs_top=sup;
5088          goto T2075;          goto T2075;
5089  T2075:;  T2075:;
5090          V1020= (long)STREF(unsigned short,(V988),4);          V1155= (long)STREF(unsigned short,(V1122),4);
5091          if(!((V1020)==(1))){          if(!((V1155)==(1))){
5092          goto T2084;}          goto T2084;}
5093          V1021= (long)STREF(unsigned short,(V988),32);          V1156 = V1152;
5094          V1015= (long)(V1017)*(V1021);          V1157= (long)STREF(unsigned short,(V1122),32);
5095            V1150= (long)(V1156)*(V1157);
5096          goto T2073;          goto T2073;
5097          goto T2084;          goto T2084;
5098  T2084:;  T2084:;
5099          V1022= (long)STREF(unsigned short,(V988),32);          V1158 = V1152;
5100          V1015= (long)((long)(V1017)*(V1022))+1;}          V1159= (long)STREF(unsigned short,(V1122),32);
5101            V1150= (long)((long)(V1158)*(V1159))+1;}
5102          goto T2073;          goto T2073;
5103  T2073:;  T2073:;
5104          V1016= V987;          V1151= V1121;
5105          {object V1023;          {object V1160;
5106          object V1024;          object V1161;
5107          V1023= STREF(object,(V988),40);          V1160= STREF(object,(V1122),40);
5108          V1024= (((V1016))==Cnil?Ct:Cnil);          V1161= (((V1151))==Cnil?Ct:Cnil);
5109          {long V1025;          {long V1162;
5110          register long V1026;          register long V1163;
5111          V1025= (long)STREF(unsigned short,(V988),4);          V1162= (long)STREF(unsigned short,(V1122),4);
5112          V1026= 0;          V1163= 0;
5113          goto T2094;          goto T2094;
5114  T2094:;  T2094:;
5115          if(!((V1026)>=(V1025))){          if(!((V1163)>=(V1162))){
5116          goto T2095;}          goto T2095;}
5117          if(((V1024))!=Cnil){          if(((V1161))!=Cnil){
5118          goto T2061;}          goto T2061;}
5119          goto T2063;          goto T2063;
5120          goto T2095;          goto T2095;
5121  T2095:;  T2095:;
5122          {object V1027;          {object V1164;
5123          V1027= ((V1023))->v.v_self[(long)(V1015)+(V1026)];          V1164= ((V1160))->v.v_self[(long)(V1150)+(V1163)];
5124          if(((V1027))==Cnil){          if(((V1164))==Cnil){
5125          goto T2101;}          goto T2101;}
5126          if(!((((((V1027))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((V1164))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
5127          goto T2100;}          goto T2100;}
5128          goto T2101;          goto T2101;
5129  T2101:;  T2101:;
5130          goto T2063;          goto T2063;
5131          goto T2100;          goto T2100;
5132  T2100:;  T2100:;
5133          if(((V1016))==Cnil){          if(((V1151))==Cnil){
5134          goto T2105;}          goto T2105;}
5135          if(!(type_of((V1016))==t_cons)){          V1165 = (V1164);
5136            if(!(type_of((V1151))==t_cons)){
5137          goto T2111;}          goto T2111;}
5138          {object V1029;          {object V1167;
5139          V1029= CMPcar((V1016));          V1167= CMPcar((V1151));
5140          V1016= CMPcdr((V1016));          V1151= CMPcdr((V1151));
5141          V1028= (V1029);          V1166= (V1167);
5142          goto T2109;}          goto T2109;}
5143          goto T2111;          goto T2111;
5144  T2111:;  T2111:;
5145          V1028= (V1016);          V1166= (V1151);
5146          goto T2109;          goto T2109;
5147  T2109:;  T2109:;
5148          if(((V1027))==(V1028)){          if((V1165)==(V1166)){
5149          goto T2098;}          goto T2098;}
5150          goto T2105;          goto T2105;
5151  T2105:;  T2105:;
5152          V1024= Ct;}          V1161= Ct;}
5153          goto T2098;          goto T2098;
5154  T2098:;  T2098:;
5155          V1026= (long)(V1026)+1;          V1163= (long)(V1163)+1;
5156          goto T2094;}}}}          goto T2094;}}}}
5157          goto T2063;          goto T2063;
5158  T2063:;  T2063:;
5159          {object V1030;          {object V1168;
5160          V1030= CMPmake_fixnum(V1003);          V1168= CMPmake_fixnum(V1137);
5161          V997= make_cons((V1030),(V997));}          V1131= make_cons((V1168),(V1131));}
5162          goto T2035;          goto T2035;
5163          goto T2061;          goto T2061;
5164  T2061:;  T2061:;
5165          if(((V996))==Cnil){          if(((V1130))==Cnil){
5166          goto T2123;}          goto T2123;}
5167          if(!((V1003)>=(V985))){          if(!((V1137)>=(V1119))){
5168          goto T2123;}          goto T2123;}
5169          base[3]= CMPmake_fixnum(V985);          base[3]= CMPmake_fixnum(V1119);
5170          base[4]= Cnil;          base[4]= Cnil;
5171          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5172          return;          return;
5173          goto T2123;          goto T2123;
5174  T2123:;  T2123:;
5175          {object V1031;          {object V1169;
5176          {long V1032;          {long V1170;
5177          long V1033;          long V1171;
5178          {long V1034;          {long V1172;
5179          V1034= V1003;          V1172= V1137;
5180          {long V1035;          {long V1173;
5181          {long V1036;          {long V1174;
5182          V1036= V1034;          V1174= V1172;
5183          V1037= (V988);          V1175= (V1122);
5184          {long V1039;          {long V1177;
5185          V1039= V1036;          V1177= V1174;
5186          {long V1040;          {long V1178;
5187          V1040= V1039;          V1178= V1177;
5188          V1041= (long)STREF(unsigned short,(V988),4);          V1179= (long)STREF(unsigned short,(V1122),4);
5189          if((V1041)==(1)){          if((V1179)==(1)){
5190          goto T2143;}          goto T2143;}
5191          goto T2139;          goto T2139;
5192          goto T2143;          goto T2143;
5193  T2143:;  T2143:;
5194          if(!((V1040)==(0))){          if(!((V1178)==(0))){
5195          goto T2139;}}          goto T2139;}}
5196          base[3]= VV[156];          base[3]= VV[156];
5197          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 5061  T2143:; Line 5199  T2143:;
5199          vs_top=sup;          vs_top=sup;
5200          goto T2139;          goto T2139;
5201  T2139:;  T2139:;
5202          V1042= (long)STREF(unsigned short,(V988),4);          V1180= (long)STREF(unsigned short,(V1122),4);
5203          if(!((V1042)==(1))){          if(!((V1180)==(1))){
5204          goto T2148;}          goto T2148;}
5205          V1043= (long)STREF(unsigned short,(V988),32);          V1181 = V1177;
5206          V1038= CMPmake_fixnum((long)(V1039)*(V1043));          V1182= (long)STREF(unsigned short,(V1122),32);
5207            V1176= CMPmake_fixnum((long)(V1181)*(V1182));
5208          goto T2137;          goto T2137;
5209          goto T2148;          goto T2148;
5210  T2148:;  T2148:;
5211          V1044= (long)STREF(unsigned short,(V988),32);          V1183 = V1177;
5212          V1038= CMPmake_fixnum((long)((long)(V1039)*(V1044))+1);}          V1184= (long)STREF(unsigned short,(V1122),32);
5213            V1176= CMPmake_fixnum((long)((long)(V1183)*(V1184))+1);}
5214          goto T2137;          goto T2137;
5215  T2137:;  T2137:;
5216          V1035= fix((VFUN_NARGS=2,(*(LnkLI210))(V1037,V1038)));}          V1173= fix((VFUN_NARGS=2,(*(LnkLI210))(V1175,V1176)));}
5217          V1045= (long)STREF(unsigned short,(V988),4);          V1185= (long)STREF(unsigned short,(V1122),4);
5218          if(!((V1045)==(1))){          if(!((V1185)==(1))){
5219          goto T2154;}          goto T2154;}
5220          base[3]= CMPmake_fixnum(V1035);          base[3]= CMPmake_fixnum(V1173);
5221          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V988),32));          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V1122),32));
5222          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5223          Lfloor();          Lfloor();
5224          vs_top=sup;          vs_top=sup;
5225          V1032= fix(vs_base[0]);          V1170= fix(vs_base[0]);
5226          goto T2132;          goto T2132;
5227          goto T2154;          goto T2154;
5228  T2154:;  T2154:;
5229          base[3]= CMPmake_fixnum((long)(V1035)-1);          base[3]= CMPmake_fixnum((long)(V1173)-1);
5230          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V988),32));          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V1122),32));
5231          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5232          Lfloor();          Lfloor();
5233          vs_top=sup;          vs_top=sup;
5234          V1032= fix(vs_base[0]);}}          V1170= fix(vs_base[0]);}}
5235          goto T2132;          goto T2132;
5236  T2132:;  T2132:;
5237          V1033= V1003;          V1171= V1137;
5238          {register long V1046;          {register long V1186;
5239          V1046= (long)(V1033)-(V1032);          V1186= (long)(V1171)-(V1170);
5240          if(!((V1046)<0)){          if(!((V1186)<0)){
5241          goto T2163;}          goto T2163;}
5242          V1047= (long)STREF(fixnum,(V988),12);          V1187 = V1186;
5243          V1046= (long)(V1046)+(V1047);          V1188= (long)STREF(fixnum,(V1122),12);
5244          {long V1048;          V1186= (long)(V1187)+(V1188);
5245          V1048= 0;          {long V1189;
5246          V1049= (long)STREF(unsigned short,(V988),4);          V1189= 0;
5247          if((V1049)==(1)){          V1190= (long)STREF(unsigned short,(V1122),4);
5248            if((V1190)==(1)){
5249          goto T2172;}          goto T2172;}
5250          goto T2163;          goto T2163;
5251          goto T2172;          goto T2172;
5252  T2172:;  T2172:;
5253          if(!((V1048)==(0))){          if(!((V1189)==(0))){
5254          goto T2163;}}          goto T2163;}}
5255          V1046= (long)(V1046)-1;          V1186= (long)(V1186)-1;
5256          goto T2163;          goto T2163;
5257  T2163:;  T2163:;
5258          V1031= CMPmake_fixnum(V1046);}}          V1169= CMPmake_fixnum(V1186);}}
5259          V1050 = CMPmake_fixnum(V995);          V1191 = CMPmake_fixnum(V1129);
5260          if(!(number_compare((V1031),V1050)>=0)){          if(!(number_compare((V1169),V1191)>=0)){
5261          goto T2176;}          goto T2176;}
5262          base[3]= CMPmake_fixnum(V985);          base[3]= CMPmake_fixnum(V1119);
5263          base[4]= Cnil;          base[4]= Cnil;
5264          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5265          return;          return;
5266          goto T2176;          goto T2176;
5267  T2176:;  T2176:;
5268          if(!((V1004)==(V995))){          if(!((V1138)==(V1129))){
5269          goto T2184;}          goto T2184;}
5270          goto T2182;          goto T2182;
5271          goto T2184;          goto T2184;
5272  T2184:;  T2184:;
5273          V1051 = CMPmake_fixnum(V1004);          V1192 = CMPmake_fixnum(V1138);
5274          if(!(number_compare(V1051,(V1031))==0)){          if(!(number_compare(V1192,(V1169))==0)){
5275          goto T2187;}          goto T2187;}
5276          base[3]= small_fixnum(2);          base[3]= small_fixnum(2);
5277          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5278          Lrandom();          Lrandom();
5279          vs_top=sup;          vs_top=sup;
5280          V1052= vs_base[0];          V1193= vs_base[0];
5281          if(!(number_compare(small_fixnum(0),V1052)==0)){          if(!(number_compare(small_fixnum(0),V1193)==0)){
5282          goto T2130;}          goto T2130;}
5283          goto T2182;          goto T2182;
5284          goto T2187;          goto T2187;
5285  T2187:;  T2187:;
5286          V1053 = CMPmake_fixnum(V1004);          V1194 = CMPmake_fixnum(V1138);
5287          if(!(number_compare(V1053,(V1031))>0)){          if(!(number_compare(V1194,(V1169))>0)){
5288          goto T2192;}          goto T2192;}
5289          goto T2182;          goto T2182;
5290          goto T2192;          goto T2192;
# Line 5151  T2192:; Line 5292  T2192:;
5292          goto T2130;          goto T2130;
5293          goto T2182;          goto T2182;
5294  T2182:;  T2182:;
5295          V1054= (long)STREF(fixnum,(V988),12);          V1195= (long)STREF(fixnum,(V1122),12);
5296          if(!((V1003)==((long)(V1054)-1))){          if(!((V1137)==((long)(V1195)-1))){
5297          goto T2194;}          goto T2194;}
5298          V996= Ct;          V1130= Ct;
5299          goto T2194;          goto T2194;
5300  T2194:;  T2194:;
5301          {long V1055;          {long V1196;
5302          V1055= V1003;          V1196= V1137;
5303          {long V1056;          {long V1197;
5304          {long V1057;          {long V1198;
5305          V1057= V1055;          V1198= V1196;
5306          V1058= (V988);          V1199= (V1122);
5307          {long V1060;          {long V1201;
5308          V1060= V1057;          V1201= V1198;
5309          {long V1061;          {long V1202;
5310          V1061= V1060;          V1202= V1201;
5311          V1062= (long)STREF(unsigned short,(V988),4);          V1203= (long)STREF(unsigned short,(V1122),4);
5312          if((V1062)==(1)){          if((V1203)==(1)){
5313          goto T2211;}          goto T2211;}
5314          goto T2207;          goto T2207;
5315          goto T2211;          goto T2211;
5316  T2211:;  T2211:;
5317          if(!((V1061)==(0))){          if(!((V1202)==(0))){
5318          goto T2207;}}          goto T2207;}}
5319          base[3]= VV[156];          base[3]= VV[156];
5320          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 5181  T2211:; Line 5322  T2211:;
5322          vs_top=sup;          vs_top=sup;
5323          goto T2207;          goto T2207;
5324  T2207:;  T2207:;
5325          V1063= (long)STREF(unsigned short,(V988),4);          V1204= (long)STREF(unsigned short,(V1122),4);
5326          if(!((V1063)==(1))){          if(!((V1204)==(1))){
5327          goto T2216;}          goto T2216;}
5328          V1064= (long)STREF(unsigned short,(V988),32);          V1205 = V1201;
5329          V1059= CMPmake_fixnum((long)(V1060)*(V1064));          V1206= (long)STREF(unsigned short,(V1122),32);
5330            V1200= CMPmake_fixnum((long)(V1205)*(V1206));
5331          goto T2205;          goto T2205;
5332          goto T2216;          goto T2216;
5333  T2216:;  T2216:;
5334          V1065= (long)STREF(unsigned short,(V988),32);          V1207 = V1201;
5335          V1059= CMPmake_fixnum((long)((long)(V1060)*(V1065))+1);}          V1208= (long)STREF(unsigned short,(V1122),32);
5336            V1200= CMPmake_fixnum((long)((long)(V1207)*(V1208))+1);}
5337          goto T2205;          goto T2205;
5338  T2205:;  T2205:;
5339          V1056= fix((VFUN_NARGS=2,(*(LnkLI210))(V1058,V1059)));}          V1197= fix((VFUN_NARGS=2,(*(LnkLI210))(V1199,V1200)));}
5340          V1066= (long)STREF(unsigned short,(V988),4);          V1209= (long)STREF(unsigned short,(V1122),4);
5341          if(!((V1066)==(1))){          if(!((V1209)==(1))){
5342          goto T2222;}          goto T2222;}
5343          base[3]= CMPmake_fixnum(V1056);          base[3]= CMPmake_fixnum(V1197);
5344          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V988),32));          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V1122),32));
5345          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5346          Lfloor();          Lfloor();
5347          vs_top=sup;          vs_top=sup;
5348          V998= fix(vs_base[0]);          V1132= fix(vs_base[0]);
5349          goto T2200;          goto T2200;
5350          goto T2222;          goto T2222;
5351  T2222:;  T2222:;
5352          base[3]= CMPmake_fixnum((long)(V1056)-1);          base[3]= CMPmake_fixnum((long)(V1197)-1);
5353          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V988),32));          base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V1122),32));
5354          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5355          Lfloor();          Lfloor();
5356          vs_top=sup;          vs_top=sup;
5357          V998= fix(vs_base[0]);}}          V1132= fix(vs_base[0]);}}
5358          goto T2200;          goto T2200;
5359  T2200:;  T2200:;
5360          {long V1067;          {long V1210;
5361          V1067= V1003;          V1210= V1137;
5362          V1068= (long)STREF(fixnum,(V988),12);          V1211= (long)STREF(fixnum,(V1122),12);
5363          if(!((V1067)==((long)(V1068)-1))){          if(!((V1210)==((long)(V1211)-1))){
5364          goto T2233;}          goto T2233;}
5365          {long V1069;          {long V1212;
5366          V1069= 0;          V1212= 0;
5367          V1070= (long)STREF(unsigned short,(V988),4);          V1213= (long)STREF(unsigned short,(V1122),4);
5368          if((V1070)==(1)){          if((V1213)==(1)){
5369          goto T2240;}          goto T2240;}
5370          goto T2237;          goto T2237;
5371          goto T2240;          goto T2240;
5372  T2240:;  T2240:;
5373          if(!((V1069)==(0))){          if(!((V1212)==(0))){
5374          goto T2237;}}          goto T2237;}}
5375          V999= 1;          V1133= 1;
5376          goto T2230;          goto T2230;
5377          goto T2237;          goto T2237;
5378  T2237:;  T2237:;
5379          V999= 0;          V1133= 0;
5380          goto T2230;          goto T2230;
5381          goto T2233;          goto T2233;
5382  T2233:;  T2233:;
5383          V999= (long)(V1067)+1;}          V1133= (long)(V1210)+1;}
5384          goto T2230;          goto T2230;
5385  T2230:;  T2230:;
5386          {object V1071;          {object V1214;
5387          V1071= CMPmake_fixnum(V1003);          V1214= CMPmake_fixnum(V1137);
5388          V997= make_cons((V1071),(V997));}          V1131= make_cons((V1214),(V1131));}
5389          goto T2038;}          goto T2038;}
5390          goto T2130;          goto T2130;
5391  T2130:;  T2130:;
5392          V1072= (long)STREF(fixnum,(V988),12);          V1215= (long)STREF(fixnum,(V1122),12);
5393          if(!((V1003)==((long)(V1072)-1))){          if(!((V1137)==((long)(V1215)-1))){
5394          goto T2246;}          goto T2246;}
5395          V996= Ct;          V1130= Ct;
5396          goto T2246;          goto T2246;
5397  T2246:;  T2246:;
5398          {long V1073;          {long V1216;
5399          V1073= V1003;          V1216= V1137;
5400          V1074= (long)STREF(fixnum,(V988),12);          V1217= (long)STREF(fixnum,(V1122),12);
5401          if(!((V1073)==((long)(V1074)-1))){          if(!((V1216)==((long)(V1217)-1))){
5402          goto T2256;}          goto T2256;}
5403          {long V1075;          {long V1218;
5404          V1075= 0;          V1218= 0;
5405          V1076= (long)STREF(unsigned short,(V988),4);          V1219= (long)STREF(unsigned short,(V1122),4);
5406          if((V1076)==(1)){          if((V1219)==(1)){
5407          goto T2263;}          goto T2263;}
5408          goto T2260;          goto T2260;
5409          goto T2263;          goto T2263;
5410  T2263:;  T2263:;
5411          if(!((V1075)==(0))){          if(!((V1218)==(0))){
5412          goto T2260;}}          goto T2260;}}
5413          V1003= 1;          V1137= 1;
5414          goto T2253;          goto T2253;
5415          goto T2260;          goto T2260;
5416  T2260:;  T2260:;
5417          V1003= 0;          V1137= 0;
5418          goto T2253;          goto T2253;
5419          goto T2256;          goto T2256;
5420  T2256:;  T2256:;
5421          V1003= (long)(V1073)+1;}          V1137= (long)(V1216)+1;}
5422          goto T2253;          goto T2253;
5423  T2253:;  T2253:;
5424          V1004= (long)(V1004)+1;          V1138= (long)(V1138)+1;
5425          goto T2058;}          goto T2058;}
5426          goto T2038;          goto T2038;
5427  T2038:;  T2038:;
# Line 5287  T2038:; Line 5430  T2038:;
5430  T2035:;  T2035:;
5431          goto T2271;          goto T2271;
5432  T2271:;  T2271:;
5433          if((CMPcdr((V997)))!=Cnil){          if((CMPcdr((V1131)))!=Cnil){
5434          goto T2273;}          goto T2273;}
5435          goto T2269;          goto T2269;
5436          goto T2273;          goto T2273;
5437  T2273:;  T2273:;
5438          {long V1077;          {long V1220;
5439          long V1078;          long V1221;
5440          {object V1079;          {object V1222;
5441          V1079= CMPcar((V997));          V1222= CMPcar((V1131));
5442          V997= CMPcdr((V997));          V1131= CMPcdr((V1131));
5443          V1077= fix((V1079));}          V1220= fix((V1222));}
5444          V1078= fix(CMPcar((V997)));          V1221= fix(CMPcar((V1131)));
5445          {long V1080;          {long V1223;
5446          long V1081;          long V1224;
5447          object V1082;          object V1225;
5448          {long V1083;          {long V1226;
5449          V1083= V1078;          V1226= V1221;
5450          {long V1084;          {long V1227;
5451          V1084= V1083;          V1227= V1226;
5452          V1085= (long)STREF(unsigned short,(V988),4);          V1228= (long)STREF(unsigned short,(V1122),4);
5453          if((V1085)==(1)){          if((V1228)==(1)){
5454          goto T2287;}          goto T2287;}
5455          goto T2283;          goto T2283;
5456          goto T2287;          goto T2287;
5457  T2287:;  T2287:;
5458          if(!((V1084)==(0))){          if(!((V1227)==(0))){
5459          goto T2283;}}          goto T2283;}}
5460          base[3]= VV[156];          base[3]= VV[156];
5461          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 5320  T2287:; Line 5463  T2287:;
5463          vs_top=sup;          vs_top=sup;
5464          goto T2283;          goto T2283;
5465  T2283:;  T2283:;
5466          V1086= (long)STREF(unsigned short,(V988),4);          V1229= (long)STREF(unsigned short,(V1122),4);
5467          if(!((V1086)==(1))){          if(!((V1229)==(1))){
5468          goto T2292;}          goto T2292;}
5469          V1087= (long)STREF(unsigned short,(V988),32);          V1230 = V1226;
5470          V1080= (long)(V1083)*(V1087);          V1231= (long)STREF(unsigned short,(V1122),32);
5471            V1223= (long)(V1230)*(V1231);
5472          goto T2281;          goto T2281;
5473          goto T2292;          goto T2292;
5474  T2292:;  T2292:;
5475          V1088= (long)STREF(unsigned short,(V988),32);          V1232 = V1226;
5476          V1080= (long)((long)(V1083)*(V1088))+1;}          V1233= (long)STREF(unsigned short,(V1122),32);
5477            V1223= (long)((long)(V1232)*(V1233))+1;}
5478          goto T2281;          goto T2281;
5479  T2281:;  T2281:;
5480          {long V1089;          {long V1234;
5481          V1089= V1077;          V1234= V1220;
5482          {long V1090;          {long V1235;
5483          V1090= V1089;          V1235= V1234;
5484          V1091= (long)STREF(unsigned short,(V988),4);          V1236= (long)STREF(unsigned short,(V1122),4);
5485          if((V1091)==(1)){          if((V1236)==(1)){
5486          goto T2303;}          goto T2303;}
5487          goto T2299;          goto T2299;
5488          goto T2303;          goto T2303;
5489  T2303:;  T2303:;
5490          if(!((V1090)==(0))){          if(!((V1235)==(0))){
5491          goto T2299;}}          goto T2299;}}
5492          base[3]= VV[156];          base[3]= VV[156];
5493          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 5350  T2303:; Line 5495  T2303:;
5495          vs_top=sup;          vs_top=sup;
5496          goto T2299;          goto T2299;
5497  T2299:;  T2299:;
5498          V1092= (long)STREF(unsigned short,(V988),4);          V1237= (long)STREF(unsigned short,(V1122),4);
5499          if(!((V1092)==(1))){          if(!((V1237)==(1))){
5500          goto T2308;}          goto T2308;}
5501          V1093= (long)STREF(unsigned short,(V988),32);          V1238 = V1234;
5502          V1081= (long)(V1089)*(V1093);          V1239= (long)STREF(unsigned short,(V1122),32);
5503            V1224= (long)(V1238)*(V1239);
5504          goto T2297;          goto T2297;
5505          goto T2308;          goto T2308;
5506  T2308:;  T2308:;
5507          V1094= (long)STREF(unsigned short,(V988),32);          V1240 = V1234;
5508          V1081= (long)((long)(V1089)*(V1094))+1;}          V1241= (long)STREF(unsigned short,(V1122),32);
5509            V1224= (long)((long)(V1240)*(V1241))+1;}
5510          goto T2297;          goto T2297;
5511  T2297:;  T2297:;
5512          V1082= STREF(object,(V988),40);          V1225= STREF(object,(V1122),40);
5513          {long V1097;          {long V1244;
5514          long V1098;          long V1245;
5515          V1097= (long)STREF(unsigned short,(V988),32);          V1244= (long)STREF(unsigned short,(V1122),32);
5516          V1098= 0;          V1245= 0;
5517          goto T2318;          goto T2318;
5518  T2318:;  T2318:;
5519          if(!((V1098)>=(V1097))){          if(!((V1245)>=(V1244))){
5520          goto T2319;}          goto T2319;}
5521          base[3]= Cnil;          base[3]= Cnil;
5522          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5523          goto T2314;          goto T2314;
5524          goto T2319;          goto T2319;
5525  T2319:;  T2319:;
5526          (void)(((V1082))->v.v_self[(long)(V1081)+(V1098)]= (((V1082))->v.v_self[(long)(V1080)+(V1098)]));          (void)(((V1225))->v.v_self[(long)(V1224)+(V1245)]= (((V1225))->v.v_self[(long)(V1223)+(V1245)]));
5527          (void)(((V1082))->v.v_self[(long)(V1080)+(V1098)]= (Cnil));          (void)(((V1225))->v.v_self[(long)(V1223)+(V1245)]= (Cnil));
5528          V1098= (long)(V1098)+1;          V1245= (long)(V1245)+1;
5529          goto T2318;}          goto T2318;}
5530          goto T2314;          goto T2314;
5531  T2314:;  T2314:;
5532          {object *V1096=vs_top;object *V1095=vs_base; vs_base=V1096;          {object *V1243=vs_top;object *V1242=vs_base; vs_base=V1243;
5533          {register object *base0=base;          {register object *base0=base;
5534          {register object *base=V1096;          {register object *base=V1243;
5535          register object *sup=vs_base+VM72;          register object *sup=vs_base+VM72;
5536          base0[0]=base0[0];          base0[0]=base0[0];
5537          base[0]=base[0];          base[0]=base[0];
5538          vs_check;          vs_check;
5539          vs_top=sup;          vs_top=sup;
5540          {long V1099;          {long V1246;
5541          V1099= fix(((V1082))->v.v_self[0]);          V1246= fix(((V1225))->v.v_self[0]);
5542          if(!((V1099)==(2147483647))){          V1247 = (V1225);
5543            if(!((V1246)==(2147483647))){
5544          goto T2331;}          goto T2331;}
5545          V1100= small_fixnum(1);          V1248= small_fixnum(1);
5546          goto T2329;          goto T2329;
5547          goto T2331;          goto T2331;
5548  T2331:;  T2331:;
5549          V1100= CMPmake_fixnum((long)(V1099)+1);          V1248= CMPmake_fixnum((long)(V1246)+1);
5550          goto T2329;          goto T2329;
5551  T2329:;  T2329:;
5552          (void)(((V1082))->v.v_self[0]= (V1100));}          (void)((V1247)->v.v_self[0]= (V1248));}
5553          }}          }}
5554          vs_base=V1095;vs_top=V1096;}          vs_base=V1242;vs_top=V1243;}
5555          vs_top=sup;}}          vs_top=sup;}}
5556          goto T2271;          goto T2271;
5557          goto T2269;          goto T2269;
5558  T2269:;  T2269:;
5559          base[3]= CMPcar((V997));          base[3]= CMPcar((V1131));
5560          base[4]= Ct;          base[4]= Ct;
5561          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5562          return;}}          return;}}
# Line 5416  T2269:; Line 5564  T2269:;
5564  }  }
5565  /*      local entry for function DEFAULT-LIMIT-FN       */  /*      local entry for function DEFAULT-LIMIT-FN       */
5566    
5567  static object LI86(V1102)  static object LI86(V1250)
5568    
5569  object V1102;  object V1250;
5570  {        VMB73 VMS73 VMV73  {        VMB73 VMS73 VMV73
5571          goto TTL;          goto TTL;
5572  TTL:;  TTL:;
5573          {object V1103= (V1102);          {object V1251= (V1250);
5574          if(!eql(V1103,VV[164])          if(!eql(V1251,VV[164])
5575          && !eql(V1103,VV[165])          && !eql(V1251,VV[165])
5576          && !eql(V1103,VV[166]))goto T2336;          && !eql(V1251,VV[166]))goto T2336;
5577          {long V1104 = 1;          {long V1252 = 1;
5578          VMR73((object)V1104)}          VMR73((object)V1252)}
5579          goto T2336;          goto T2336;
5580  T2336:;  T2336:;
5581          if(!eql(V1103,VV[167])          if(!eql(V1251,VV[167])
5582          && !eql(V1103,VV[168]))goto T2337;          && !eql(V1251,VV[168]))goto T2337;
5583          {long V1105 = 4;          {long V1253 = 4;
5584          VMR73((object)V1105)}          VMR73((object)V1253)}
5585          goto T2337;          goto T2337;
5586  T2337:;  T2337:;
5587          {long V1106 = 6;          {long V1254 = 6;
5588          VMR73((object)V1106)}}          VMR73((object)V1254)}}
5589  }  }
5590  /*      local entry for function CACHES-TO-ALLOCATE     */  /*      local entry for function CACHES-TO-ALLOCATE     */
5591    
# Line 5460  TTL:; Line 5608  TTL:;
5608          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
5609          (void) (*Lnk189)();          (void) (*Lnk189)();
5610          vs_top=sup;          vs_top=sup;
5611          {object V1107 = vs_base[0];          {object V1255 = vs_base[0];
5612          VMR74(V1107)}          VMR74(V1255)}
5613          base[0]=base[0];          base[0]=base[0];
5614          return Cnil;          return Cnil;
5615  }  }
# Line 5472  register object *base0; Line 5620  register object *base0;
5620  {       register object *base=vs_base;  {       register object *base=vs_base;
5621          register object *sup=base+VM75; VC75          register object *sup=base+VM75; VC75
5622          vs_check;          vs_check;
5623          {object V1108;          {object V1256;
5624          object V1109;          object V1257;
5625          check_arg(2);          check_arg(2);
5626          V1108=(base[0]);          V1256=(base[0]);
5627          V1109=(base[1]);          V1257=(base[1]);
5628          vs_top=sup;          vs_top=sup;
5629          {object V1110;          {object V1258;
5630          V1110= list(2,CMPcar((V1109)),(V1108));          V1258= list(2,CMPcar((V1257)),(V1256));
5631          (base0[0]->c.c_car)= make_cons((V1110),(base0[0]->c.c_car));          (base0[0]->c.c_car)= make_cons((V1258),(base0[0]->c.c_car));
5632          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
5633          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5634          return;}          return;}
# Line 5493  register object *base0; Line 5641  register object *base0;
5641  {       register object *base=vs_base;  {       register object *base=vs_base;
5642          register object *sup=base+VM76; VC76          register object *sup=base+VM76; VC76
5643          vs_check;          vs_check;
5644          {object V1111;          {object V1259;
5645          object V1112;          object V1260;
5646          check_arg(2);          check_arg(2);
5647          V1111=(base[0]);          V1259=(base[0]);
5648          V1112=(base[1]);          V1260=(base[1]);
5649          vs_top=sup;          vs_top=sup;
5650          goto TTL;          goto TTL;
5651  TTL:;  TTL:;
5652          base[2]= (*(LnkLI206))(Cnil,base0[2],(V1111),(V1112));          base[2]= (*(LnkLI206))(Cnil,base0[2],(V1259),(V1260));
5653          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5654          return;          return;
5655          }          }
# Line 5513  register object *base0; Line 5661  register object *base0;
5661  {       register object *base=vs_base;  {       register object *base=vs_base;
5662          register object *sup=base+VM77; VC77          register object *sup=base+VM77; VC77
5663          vs_check;          vs_check;
5664          {object V1113;          {object V1261;
5665          object V1114;          object V1262;
5666          check_arg(2);          check_arg(2);
5667          V1113=(base[0]);          V1261=(base[0]);
5668          V1114=(base[1]);          V1262=(base[1]);
5669          vs_top=sup;          vs_top=sup;
5670          goto TTL;          goto TTL;
5671  TTL:;{object V1115;  TTL:;{object V1263;
5672          V1115= (*(LnkLI208))(base0[2],(V1113),(V1114),Ct);          V1263= (*(LnkLI208))(base0[2],(V1261),(V1262),Ct);
5673          if(V1115==Cnil)goto T2348;          if(V1263==Cnil)goto T2348;
5674          base0[2]= V1115;          base0[2]= V1263;
5675          goto T2347;          goto T2347;
5676          goto T2348;          goto T2348;
5677  T2348:;}  T2348:;}
5678          base0[2]= (*(LnkLI206))(Ct,base0[2],(V1113),(V1114));          base0[2]= (*(LnkLI206))(Ct,base0[2],(V1261),(V1262));
5679          goto T2347;          goto T2347;
5680  T2347:;  T2347:;
5681          base[2]= base0[2];          base[2]= base0[2];
# Line 5542  register object *base0; Line 5690  register object *base0;
5690  {       register object *base=vs_base;  {       register object *base=vs_base;
5691          register object *sup=base+VM78; VC78          register object *sup=base+VM78; VC78
5692          vs_check;          vs_check;
5693          {object V1116;          {object V1264;
5694          check_arg(1);          check_arg(1);
5695          V1116=(base[0]);          V1264=(base[0]);
5696          vs_top=sup;          vs_top=sup;
5697          goto TTL;          goto TTL;
5698  TTL:;  TTL:;
5699          if(((*(LnkLI217))(Cnil,base0[2],base0[0],fix((V1116))))!=Cnil){          if(((*(LnkLI217))(Cnil,base0[2],base0[0],fix((V1264))))!=Cnil){
5700          goto T2351;}          goto T2351;}
5701          {long V1117;          {long V1265;
5702          V1117= fix((V1116));          V1265= fix((V1264));
5703          {long V1118;          {long V1266;
5704          V1118= V1117;          V1266= V1265;
5705          V1119= (long)STREF(unsigned short,base0[1],4);          V1267= (long)STREF(unsigned short,base0[1],4);
5706          if((V1119)==(1)){          if((V1267)==(1)){
5707          goto T2359;}          goto T2359;}
5708          goto T2355;          goto T2355;
5709          goto T2359;          goto T2359;
5710  T2359:;  T2359:;
5711          if(!((V1118)==(0))){          if(!((V1266)==(0))){
5712          goto T2355;}}          goto T2355;}}
5713          base[2]= VV[160];          base[2]= VV[160];
5714          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 5568  T2359:; Line 5716  T2359:;
5716          vs_top=sup;          vs_top=sup;
5717          goto T2355;          goto T2355;
5718  T2355:;  T2355:;
5719          {long V1120;          {long V1268;
5720          {long V1121;          {long V1269;
5721          V1121= V1117;          V1269= V1265;
5722          {long V1122;          {long V1270;
5723          V1122= V1121;          V1270= V1269;
5724          V1123= (long)STREF(unsigned short,base0[1],4);          V1271= (long)STREF(unsigned short,base0[1],4);
5725          if((V1123)==(1)){          if((V1271)==(1)){
5726          goto T2369;}          goto T2369;}
5727          goto T2365;          goto T2365;
5728          goto T2369;          goto T2369;
5729  T2369:;  T2369:;
5730          if(!((V1122)==(0))){          if(!((V1270)==(0))){
5731          goto T2365;}}          goto T2365;}}
5732          base[2]= VV[156];          base[2]= VV[156];
5733          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 5587  T2369:; Line 5735  T2369:;
5735          vs_top=sup;          vs_top=sup;
5736          goto T2365;          goto T2365;
5737  T2365:;  T2365:;
5738          V1124= (long)STREF(unsigned short,base0[1],4);          V1272= (long)STREF(unsigned short,base0[1],4);
5739          if(!((V1124)==(1))){          if(!((V1272)==(1))){
5740          goto T2374;}          goto T2374;}
5741          V1125= (long)STREF(unsigned short,base0[1],32);          V1273 = V1269;
5742          V1120= (long)(V1121)*(V1125);          V1274= (long)STREF(unsigned short,base0[1],32);
5743            V1268= (long)(V1273)*(V1274);
5744          goto T2363;          goto T2363;
5745          goto T2374;          goto T2374;
5746  T2374:;  T2374:;
5747          V1126= (long)STREF(unsigned short,base0[1],32);          V1275 = V1269;
5748          V1120= (long)((long)(V1121)*(V1126))+1;}          V1276= (long)STREF(unsigned short,base0[1],32);
5749            V1268= (long)((long)(V1275)*(V1276))+1;}
5750          goto T2363;          goto T2363;
5751  T2363:;  T2363:;
5752          V1127= (long)STREF(unsigned short,base0[1],4);          V1277= (long)STREF(unsigned short,base0[1],4);
5753          if(!((V1127)==(1))){          if(!((V1277)==(1))){
5754          goto T2380;}          goto T2380;}
5755          V1128= STREF(object,base0[1],40);          V1278= STREF(object,base0[1],40);
5756          base[1]= (V1128)->v.v_self[V1120];          V1279 = V1268;
5757            base[1]= (V1278)->v.v_self[V1279];
5758          goto T2353;          goto T2353;
5759          goto T2380;          goto T2380;
5760  T2380:;  T2380:;
5761          {object V1129;          {object V1280;
5762          object V1130;          object V1281;
5763          base[2]= CMPmake_fixnum((long)STREF(unsigned short,base0[1],4));          base[2]= CMPmake_fixnum((long)STREF(unsigned short,base0[1],4));
5764          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5765          Lmake_list();          Lmake_list();
5766          vs_top=sup;          vs_top=sup;
5767          V1129= vs_base[0];          V1280= vs_base[0];
5768          V1130= STREF(object,base0[1],40);          V1281= STREF(object,base0[1],40);
5769          {long V1131;          {long V1282;
5770          register long V1132;          register long V1283;
5771          V1131= (long)STREF(unsigned short,base0[1],4);          V1282= (long)STREF(unsigned short,base0[1],4);
5772          V1132= 0;          V1283= 0;
5773          goto T2390;          goto T2390;
5774  T2390:;  T2390:;
5775          if(!((V1132)>=(V1131))){          if(!((V1283)>=(V1282))){
5776          goto T2391;}          goto T2391;}
5777          base[1]= (V1129);          base[1]= (V1280);
5778          goto T2353;          goto T2353;
5779          goto T2391;          goto T2391;
5780  T2391:;  T2391:;
5781          {object V1133;          {object V1284;
5782          object V1135;          object V1286;
5783          V1133= CMPmake_fixnum(V1132);          V1284= CMPmake_fixnum(V1283);
5784          V1135= ((V1130))->v.v_self[(long)(V1120)+(V1132)];          V1286= ((V1281))->v.v_self[(long)(V1268)+(V1283)];
5785          (nthcdr(fix((V1133)),V1129))->c.c_car = (V1135);          (nthcdr(fix((V1284)),V1280))->c.c_car = (V1286);
5786          (void)(nthcdr(fix((V1133)),V1129));}          (void)(nthcdr(fix((V1284)),V1280));}
5787          V1132= (long)(V1132)+1;          V1283= (long)(V1283)+1;
5788          goto T2390;}}}}          goto T2390;}}}}
5789          goto T2353;          goto T2353;
5790  T2353:;  T2353:;
5791          {long V1136;          {long V1287;
5792          V1136= fix((V1116));          V1287= fix((V1264));
5793          {long V1137;          {long V1288;
5794          V1137= V1136;          V1288= V1287;
5795          V1138= (long)STREF(unsigned short,base0[1],4);          V1289= (long)STREF(unsigned short,base0[1],4);
5796          if((V1138)==(1)){          if((V1289)==(1)){
5797          goto T2407;}          goto T2407;}
5798          goto T2403;          goto T2403;
5799          goto T2407;          goto T2407;
5800  T2407:;  T2407:;
5801          if(!((V1137)==(0))){          if(!((V1288)==(0))){
5802          goto T2403;}}          goto T2403;}}
5803          base[3]= VV[161];          base[3]= VV[161];
5804          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 5655  T2407:; Line 5806  T2407:;
5806          vs_top=sup;          vs_top=sup;
5807          goto T2403;          goto T2403;
5808  T2403:;  T2403:;
5809          {long V1139;          {long V1290;
5810          {long V1140;          {long V1291;
5811          V1140= V1136;          V1291= V1287;
5812          {long V1141;          {long V1292;
5813          V1141= V1140;          V1292= V1291;
5814          V1142= (long)STREF(unsigned short,base0[1],4);          V1293= (long)STREF(unsigned short,base0[1],4);
5815          if((V1142)==(1)){          if((V1293)==(1)){
5816          goto T2417;}          goto T2417;}
5817          goto T2413;          goto T2413;
5818          goto T2417;          goto T2417;
5819  T2417:;  T2417:;
5820          if(!((V1141)==(0))){          if(!((V1292)==(0))){
5821          goto T2413;}}          goto T2413;}}
5822          base[3]= VV[156];          base[3]= VV[156];
5823          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 5674  T2417:; Line 5825  T2417:;
5825          vs_top=sup;          vs_top=sup;
5826          goto T2413;          goto T2413;
5827  T2413:;  T2413:;
5828          V1143= (long)STREF(unsigned short,base0[1],4);          V1294= (long)STREF(unsigned short,base0[1],4);
5829          if(!((V1143)==(1))){          if(!((V1294)==(1))){
5830          goto T2422;}          goto T2422;}
5831          V1144= (long)STREF(unsigned short,base0[1],32);          V1295 = V1291;
5832          V1139= (long)(V1140)*(V1144);          V1296= (long)STREF(unsigned short,base0[1],32);
5833            V1290= (long)(V1295)*(V1296);
5834          goto T2411;          goto T2411;
5835          goto T2422;          goto T2422;
5836  T2422:;  T2422:;
5837          V1145= (long)STREF(unsigned short,base0[1],32);          V1297 = V1291;
5838          V1139= (long)((long)(V1140)*(V1145))+1;}          V1298= (long)STREF(unsigned short,base0[1],32);
5839            V1290= (long)((long)(V1297)*(V1298))+1;}
5840          goto T2411;          goto T2411;
5841  T2411:;  T2411:;
5842          if((STREF(object,base0[1],8))!=Cnil){          if((STREF(object,base0[1],8))!=Cnil){
# Line 5692  T2411:; Line 5845  T2411:;
5845          goto T2401;          goto T2401;
5846          goto T2427;          goto T2427;
5847  T2427:;  T2427:;
5848          V1146= STREF(object,base0[1],40);          V1299= STREF(object,base0[1],40);
5849          V1147= (long)STREF(unsigned short,base0[1],4);          V1300 = V1290;
5850          base[2]= (V1146)->v.v_self[(long)(V1139)+(V1147)];}}          V1301= (long)STREF(unsigned short,base0[1],4);
5851            base[2]= (V1299)->v.v_self[(long)(V1300)+(V1301)];}}
5852          goto T2401;          goto T2401;
5853  T2401:;  T2401:;
5854          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
# Line 5714  register object *base0; Line 5868  register object *base0;
5868  {       register object *base=vs_base;  {       register object *base=vs_base;
5869          register object *sup=base+VM79; VC79          register object *sup=base+VM79; VC79
5870          vs_check;          vs_check;
5871          {object V1148;          {object V1302;
5872          object V1149;          object V1303;
5873          check_arg(2);          check_arg(2);
5874          V1148=(base[0]);          V1302=(base[0]);
5875          V1149=(base[1]);          V1303=(base[1]);
5876          vs_top=sup;          vs_top=sup;
5877          goto TTL;          goto TTL;
5878  TTL:;  TTL:;
5879          base[2]= (*(LnkLI206))(Cnil,base0[1],(V1148),(V1149));          base[2]= (*(LnkLI206))(Cnil,base0[1],(V1302),(V1303));
5880          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5881          return;          return;
5882          }          }
# Line 5734  register object *base0; Line 5888  register object *base0;
5888  {       register object *base=vs_base;  {       register object *base=vs_base;
5889          register object *sup=base+VM80; VC80          register object *sup=base+VM80; VC80
5890          vs_check;          vs_check;
5891          {object V1150;          {object V1304;
5892          check_arg(1);          check_arg(1);
5893          V1150=(base[0]);          V1304=(base[0]);
5894          vs_top=sup;          vs_top=sup;
5895          goto TTL;          goto TTL;
5896  TTL:;  TTL:;
5897          base[1]= (*(LnkLI217))(Cnil,base0[1],base0[0],fix((V1150)));          base[1]= (*(LnkLI217))(Cnil,base0[1],base0[0],fix((V1304)));
5898          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5899          return;          return;
5900          }          }
# Line 5752  register object *base0; Line 5906  register object *base0;
5906  {       register object *base=vs_base;  {       register object *base=vs_base;
5907          register object *sup=base+VM81; VC81          register object *sup=base+VM81; VC81
5908          vs_check;          vs_check;
5909          {object V1151;          {object V1305;
5910          check_arg(1);          check_arg(1);
5911          V1151=(base[0]);          V1305=(base[0]);
5912          vs_top=sup;          vs_top=sup;
5913          goto TTL;          goto TTL;
5914  TTL:;  TTL:;
5915          {register object V1152;          {register object V1306;
5916          if(!(((VV[84]->s.s_dbind))==(VV[85]))){          if(!(((VV[84]->s.s_dbind))==(VV[85]))){
5917          goto T2433;}          goto T2433;}
5918          base[1]= (V1151);          base[1]= (V1305);
5919          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5920          (void) (*Lnk219)(Lclptr219);          (void) (*Lnk219)(Lclptr219);
5921          vs_top=sup;          vs_top=sup;
5922          V1153= vs_base[0];          V1307= vs_base[0];
5923          V1152= (*(LnkLI218))(V1153);          V1306= (*(LnkLI218))(V1307);
5924          goto T2431;          goto T2431;
5925          goto T2433;          goto T2433;
5926  T2433:;  T2433:;
5927          V1152= (*(LnkLI218))((V1151));          V1306= (*(LnkLI218))((V1305));
5928          goto T2431;          goto T2431;
5929  T2431:;  T2431:;
5930          if(!(((V1151))==((VV[86]->s.s_dbind)))){          if(!(((V1305))==((VV[86]->s.s_dbind)))){
5931          goto T2438;}          goto T2438;}
5932          base[1]= Ct;          base[1]= Ct;
5933          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5934          return;          return;
5935          goto T2438;          goto T2438;
5936  T2438:;  T2438:;
5937          base[1]= (V1152);          base[1]= (V1306);
5938          base[2]= base0[2];          base[2]= base0[2];
5939          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5940          (void) (*Lnk220)();          (void) (*Lnk220)();
# Line 5792  T2438:; Line 5946  T2438:;
5946          return;          return;
5947          goto T2441;          goto T2441;
5948  T2441:;  T2441:;
5949          base[1]= (V1152);          base[1]= (V1306);
5950          base[2]= base0[3];          base[2]= base0[3];
5951          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5952          (void) (*Lnk220)();          (void) (*Lnk220)();
# Line 5804  T2441:; Line 5958  T2441:;
5958          return;          return;
5959          goto T2446;          goto T2446;
5960  T2446:;  T2446:;
5961          base[1]= (V1152);          base[1]= (V1306);
5962          base[2]= base0[4];          base[2]= base0[4];
5963          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5964          (void) (*Lnk220)();          (void) (*Lnk220)();
# Line 5816  T2446:; Line 5970  T2446:;
5970          return;          return;
5971          goto T2451;          goto T2451;
5972  T2451:;  T2451:;
5973          base[1]= (V1152);          base[1]= (V1306);
5974          base[2]= base0[5];          base[2]= base0[5];
5975          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5976          (void) (*Lnk220)();          (void) (*Lnk220)();
# Line 5828  T2451:; Line 5982  T2451:;
5982          return;          return;
5983          goto T2456;          goto T2456;
5984  T2456:;  T2456:;
5985          base[1]= (V1152);          base[1]= (V1306);
5986          base[2]= base0[1];          base[2]= base0[1];
5987          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5988          (void) (*Lnk220)();          (void) (*Lnk220)();
# Line 5842  T2456:; Line 5996  T2456:;
5996  T2461:;  T2461:;
5997          base[1]= VV[90];          base[1]= VV[90];
5998          base[2]= base0[0];          base[2]= base0[0];
5999          base[3]= (V1152);          base[3]= (V1306);
6000          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6001          Lerror();          Lerror();
6002          return;}          return;}
# Line 5855  register object *base0; Line 6009  register object *base0;
6009  {       register object *base=vs_base;  {       register object *base=vs_base;
6010          register object *sup=base+VM82; VC82          register object *sup=base+VM82; VC82
6011          vs_check;          vs_check;
6012          {object V1154;          {object V1308;
6013          object V1155;          object V1309;
6014          check_arg(2);          check_arg(2);
6015          V1154=(base[0]);          V1308=(base[0]);
6016          V1155=(base[1]);          V1309=(base[1]);
6017          vs_top=sup;          vs_top=sup;
6018          {object V1156;          {object V1310;
6019          V1156= list(2,(V1154),(V1155));          V1310= list(2,(V1308),(V1309));
6020          (base0[0]->c.c_car)= make_cons((V1156),(base0[0]->c.c_car));          (base0[0]->c.c_car)= make_cons((V1310),(base0[0]->c.c_car));
6021          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
6022          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6023          return;}          return;}

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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