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

Diff of /gcl/lsp/sloop.c

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

revision 1.5 by camm, Fri Aug 2 22:23:59 2002 UTC revision 1.6 by camm, Mon Aug 5 20:36:08 2002 UTC
# Line 2731  T1025:; Line 2731  T1025:;
2731  goto T1031;  goto T1031;
2732  T1031:;  T1031:;
2733          FEerror("The ECASE key value ~s is illegal.",1,V365);          FEerror("The ECASE key value ~s is illegal.",1,V365);
2734          {object V366;          V364= Cnil;
2735          V366= get((V359),VV[173],Cnil);{object V368;          goto T1024;}
         V368= cdr((V366));  
         if(V368==Cnil)goto T1034;  
         goto T1033;  
 goto T1034;  
 T1034:;}  
         base[1]= VV[174];  
         vs_top=(vs_base=base+1)+1;  
         Lerror();  
         vs_top=sup;  
 goto T1033;  
 T1033:;  
         V364= cdr((V366));}}  
2736  goto T1024;  goto T1024;
2737  T1024:;  T1024:;
2738          {object V369;          {object V368;
2739          {register object x= VV[176],V370= (V364);          {register object x= VV[176],V369= (V364);
2740          while(!endp(V370))          while(!endp(V369))
2741          if(eql(x,V370->c.c_car)){          if(eql(x,V369->c.c_car)){
2742          goto T1040;          goto T1035;
2743          }else V370=V370->c.c_cdr;          }else V369=V369->c.c_cdr;
2744          goto T1039;}          goto T1034;}
2745  goto T1040;  goto T1035;
2746  T1040:;  T1035:;
2747          {object V371;          {object V370;
2748          V371= symbol_value(VV[34]);          V370= symbol_value(VV[34]);
2749          setq(VV[34],Cnil);          setq(VV[34],Cnil);
2750          V369= (V371);          V368= (V370);
2751          goto T1037;}          goto T1032;}
2752  goto T1039;  goto T1034;
2753  T1039:;  T1034:;
2754          {register object V372;          {register object V371;
2755          register object V373;          register object V372;
2756          V372= make_fixnum((long)length((V364)));          V371= make_fixnum((long)length((V364)));
2757          V373= small_fixnum(0);          V372= small_fixnum(0);
2758  goto T1046;  goto T1041;
2759  T1046:;  T1041:;
2760          if(!(number_compare((V373),(V372))>=0)){          if(!(number_compare((V372),(V371))>=0)){
2761          goto T1047;}          goto T1042;}
2762          V369= nreverse((V362));          V368= nreverse((V362));
2763          goto T1037;          goto T1032;
2764  goto T1047;  goto T1042;
2765  T1047:;  T1042:;
2766          V362= make_cons(car(symbol_value(VV[34])),(V362));          V362= make_cons(car(symbol_value(VV[34])),(V362));
2767          setq(VV[34],cdr(symbol_value(VV[34])));          setq(VV[34],cdr(symbol_value(VV[34])));
2768          V373= one_plus((V373));          V372= one_plus((V372));
2769          goto T1046;}          goto T1041;}
2770  goto T1037;  goto T1032;
2771  T1037:;  T1032:;
2772          {object V375= (V360);          {object V374= (V360);
2773          if((V375!= VV[160]))goto T1060;          if((V374!= VV[160]))goto T1055;
2774          base[0]= (V363);          base[0]= (V363);
2775          base[1]= (V361);          base[1]= (V361);
2776          {object V376;          {object V375;
2777          V376= (V369);          V375= (V368);
2778           vs_top=base+2;           vs_top=base+2;
2779           while(!endp(V376))           while(!endp(V375))
2780           {vs_push(car(V376));V376=cdr(V376);}           {vs_push(car(V375));V375=cdr(V375);}
2781          vs_base=base+1;}          vs_base=base+1;}
2782          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
2783          vs_top=sup;          vs_top=sup;
2784          V374= vs_base[0];          V373= vs_base[0];
2785          goto T1059;          goto T1054;
2786  goto T1060;  goto T1055;
2787  T1060:;  T1055:;
2788          if((V375!= VV[92]))goto T1064;          if((V374!= VV[92]))goto T1059;
2789          base[0]= (V363);          base[0]= (V363);
2790          {object V377;          {object V376;
2791          V377= (V369);          V376= (V368);
2792           vs_top=base+1;           vs_top=base+1;
2793           while(!endp(V377))           while(!endp(V376))
2794           {vs_push(car(V377));V377=cdr(V377);}           {vs_push(car(V376));V376=cdr(V376);}
2795          vs_base=base+1;}          vs_base=base+1;}
2796          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
2797          vs_top=sup;          vs_top=sup;
2798          V374= vs_base[0];          V373= vs_base[0];
2799          goto T1059;          goto T1054;
 goto T1064;  
 T1064:;  
         V374= Cnil;}  
2800  goto T1059;  goto T1059;
2801  T1059:;  T1059:;
2802          setq(VV[34],append(V374,symbol_value(VV[34])));          V373= Cnil;}
2803          {object V378 = symbol_value(VV[34]);  goto T1054;
2804          VMR40(V378)}}}}  T1054:;
2805            setq(VV[34],append(V373,symbol_value(VV[34])));
2806            {object V377 = symbol_value(VV[34]);
2807            VMR40(V377)}}}}
2808          va_end(ap);          va_end(ap);
2809          base[0]=base[0];          base[0]=base[0];
2810          return Cnil;}          return Cnil;}
2811          }          }
2812  /*      local entry for function PARSE-LOOP-MAP */  /*      local entry for function PARSE-LOOP-MAP */
2813    
2814  static object LI41(V381,V382)  static object LI41(V380,V381)
2815    
2816  object V381;object V382;  object V380;object V381;
2817  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2818  goto TTL;  goto TTL;
2819  TTL:;  TTL:;
2820          if(symbol_value(VV[53])==Cnil){          if(symbol_value(VV[53])==Cnil){
2821          goto T1067;}          goto T1062;}
2822          base[0]= VV[177];          base[0]= VV[177];
2823          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2824          Lerror();          Lerror();
2825          vs_top=sup;          vs_top=sup;
2826  goto T1067;  goto T1062;
2827  T1067:;  T1062:;
2828          {object V383;          {object V382;
2829          object V384;          object V383;
2830          V383= get((V381),VV[161],Cnil);          V382= get((V380),VV[161],Cnil);
2831          V384= get((V381),VV[178],Cnil);          V383= get((V380),VV[178],Cnil);
2832          if((V384)!=Cnil){          if((V383)!=Cnil){
2833          goto T1071;}          goto T1066;}
2834          base[0]= VV[179];          base[0]= VV[179];
2835          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2836          Lerror();          Lerror();
2837          vs_top=sup;          vs_top=sup;
2838  goto T1071;  goto T1066;
2839  T1071:;  T1066:;
2840          {register object x= VV[176],V385= (V384);          {register object x= VV[176],V384= (V383);
2841          while(!endp(V385))          while(!endp(V384))
2842          if(eql(x,V385->c.c_car)){          if(eql(x,V384->c.c_car)){
2843          goto T1075;          goto T1070;
2844          }else V385=V385->c.c_cdr;          }else V384=V384->c.c_cdr;
2845          goto T1073;}          goto T1068;}
2846  goto T1075;  goto T1070;
2847  T1075:;  T1070:;
2848          base[0]= VV[180];          base[0]= VV[180];
2849          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2850          Lerror();          Lerror();
2851          vs_top=sup;          vs_top=sup;
2852  goto T1073;  goto T1068;
2853  T1073:;  T1068:;
2854          {register object V386;          {register object V385;
2855          object V387;          object V386;
2856          V386= Cnil;          V385= Cnil;
2857          {register object V388;          {register object V387;
2858          register object V389;          register object V388;
2859          V390 = make_fixnum((long)length((V384)));          V389 = make_fixnum((long)length((V383)));
2860          V388= one_minus(V390);          V387= one_minus(V389);
2861          V389= small_fixnum(0);          V388= small_fixnum(0);
2862  goto T1082;  goto T1077;
2863  T1082:;  T1077:;
2864          if(!(number_compare((V389),(V388))>=0)){          if(!(number_compare((V388),(V387))>=0)){
2865          goto T1083;}          goto T1078;}
2866          V387= nreverse((V386));          V386= nreverse((V385));
2867          goto T1078;          goto T1073;
 goto T1083;  
 T1083:;  
         V386= make_cons(car(symbol_value(VV[34])),(V386));  
         setq(VV[34],cdr(symbol_value(VV[34])));  
         V389= one_plus((V389));  
         goto T1082;}  
2868  goto T1078;  goto T1078;
2869  T1078:;  T1078:;
2870          {register object V391;          V385= make_cons(car(symbol_value(VV[34])),(V385));
2871          register object V392;          setq(VV[34],cdr(symbol_value(VV[34])));
2872          V391= (*(LnkLI255))();          V388= one_plus((V388));
2873          V392= Cnil;          goto T1077;}
2874  goto T1098;  goto T1073;
2875  T1098:;  T1073:;
2876          if(((*(LnkLI9))((V391),VV[77]))!=Cnil){          {register object V390;
2877          goto T1099;}          register object V391;
2878            V390= (*(LnkLI255))();
2879            V391= Cnil;
2880    goto T1093;
2881    T1093:;
2882            if(((*(LnkLI9))((V390),VV[77]))!=Cnil){
2883            goto T1094;}
2884          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
2885          if((V392)==Cnil){          if((V391)==Cnil){
2886          setq(VV[44],Cnil);          setq(VV[44],Cnil);
2887          goto T1095;}          goto T1090;}
2888          setq(VV[44],make_cons(VV[77],(V392)));          setq(VV[44],make_cons(VV[77],(V391)));
2889          goto T1095;          goto T1090;
2890  goto T1099;  goto T1094;
2891  T1099:;  T1094:;
2892          V393= (*(LnkLI255))();          V392= (*(LnkLI255))();
2893          V392= make_cons(/* INLINE-ARGS */V393,(V392));          V391= make_cons(/* INLINE-ARGS */V392,(V391));
2894          V391= (*(LnkLI255))();          V390= (*(LnkLI255))();
2895          goto T1098;}          goto T1093;}
2896  goto T1095;  goto T1090;
2897  T1095:;  T1090:;
2898          base[1]= (V383);          base[1]= (V382);
2899          base[2]= (V382);          base[2]= (V381);
2900          {object V394;          {object V393;
2901          V394= (V387);          V393= (V386);
2902           vs_top=base+3;           vs_top=base+3;
2903           while(!endp(V394))           while(!endp(V393))
2904           {vs_push(car(V394));V394=cdr(V394);}           {vs_push(car(V393));V393=cdr(V393);}
2905          vs_base=base+2;}          vs_base=base+2;}
2906          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
2907          vs_top=sup;          vs_top=sup;
2908          setq(VV[53],vs_base[0]);          setq(VV[53],vs_base[0]);
2909          {object V395 = Cnil;          {object V394 = Cnil;
2910          VMR41(V395)}}}          VMR41(V394)}}}
2911          base[0]=base[0];          base[0]=base[0];
2912          return Cnil;          return Cnil;
2913  }  }
2914  /*      local entry for function SUBSTITUTE-SLOOP-BODY  */  /*      local entry for function SUBSTITUTE-SLOOP-BODY  */
2915    
2916  static object LI42(V397)  static object LI42(V396)
2917    
2918  register object V397;  register object V396;
2919  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2920  goto TTL;  goto TTL;
2921  TTL:;  TTL:;
2922          if((symbol_value(VV[53]))==Cnil){          if((symbol_value(VV[53]))==Cnil){
2923          goto T1114;}          goto T1109;}
2924          base[0]= make_cons(VV[16],(V397));          base[0]= make_cons(VV[16],(V396));
2925          base[1]= VV[181];          base[1]= VV[181];
2926          base[2]= symbol_value(VV[53]);          base[2]= symbol_value(VV[53]);
2927          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2928          Lsubst();          Lsubst();
2929          vs_top=sup;          vs_top=sup;
2930          V398= vs_base[0];          V397= vs_base[0];
2931          V397= make_cons(V398,Cnil);          V396= make_cons(V397,Cnil);
2932          if(symbol_value(VV[44])==Cnil){          if(symbol_value(VV[44])==Cnil){
2933          goto T1114;}          goto T1109;}
2934          base[0]= symbol_value(VV[44]);          base[0]= symbol_value(VV[44]);
2935          base[1]= VV[182];          base[1]= VV[182];
2936          base[2]= (V397);          base[2]= (V396);
2937          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2938          Lsubst();          Lsubst();
2939          vs_top=sup;          vs_top=sup;
2940          V397= vs_base[0];          V396= vs_base[0];
2941  goto T1114;  goto T1109;
2942  T1114:;  T1109:;
2943          {object V399 = (V397);          {object V398 = (V396);
2944          VMR42(V399)}          VMR42(V398)}
2945          base[0]=base[0];          base[0]=base[0];
2946          return Cnil;          return Cnil;
2947  }  }
2948  /*      local entry for function DEF-LOOP-INTERNAL      */  /*      local entry for function DEF-LOOP-INTERNAL      */
2949    
2950  static object LI43(V403,V402,V401,V400,va_alist)  static object LI43(V402,V401,V400,V399,va_alist)
2951          object V403,V402,V401,V400;          object V402,V401,V400,V399;
2952          va_dcl          va_dcl
2953  {        {      
2954          va_list ap;          va_list ap;
2955          int narg = VFUN_NARGS; VMB43 VMS43 VMV43          int narg = VFUN_NARGS; VMB43 VMS43 VMV43
2956          bds_check;          bds_check;
2957          {register object V404;          {register object V403;
2958          register object V405;          register object V404;
2959            object V405;
2960          object V406;          object V406;
2961          object V407;          object V407;
2962          object V408;          object V408;
2963          object V409;          object V409;
         object V410;  
2964          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2965          va_start(ap);          va_start(ap);
2966          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
2967          V404= V403;          V403= V402;
2968          V405= V402;          V404= V401;
2969          V406= V401;          V405= V400;
2970          V407= V400;          V406= V399;
2971          narg = narg - 4;          narg = narg - 4;
2972          if (narg <= 0) goto T1127;          if (narg <= 0) goto T1122;
2973            else {
2974            V407= va_arg(ap,object);}
2975            if (--narg <= 0) goto T1123;
2976          else {          else {
2977          V408= va_arg(ap,object);}          V408= va_arg(ap,object);}
2978          if (--narg <= 0) goto T1128;          if (--narg <= 0) goto T1124;
2979          else {          else {
2980          V409= va_arg(ap,object);}          V409= va_arg(ap,object);}
2981          if (--narg <= 0) goto T1129;          --narg; goto T1125;
2982          else {  goto T1122;
2983          V410= va_arg(ap,object);}  T1122:;
2984          --narg; goto T1130;          V407= Cnil;
2985  goto T1127;  goto T1123;
2986  T1127:;  T1123:;
2987          V408= Cnil;          V408= Cnil;
2988  goto T1128;  goto T1124;
2989  T1128:;  T1124:;
2990          V409= Cnil;          V409= Cnil;
2991  goto T1129;  goto T1125;
2992  T1129:;  T1125:;
2993          V410= Cnil;          {object V410;
 goto T1130;  
 T1130:;  
         {object V411;  
2994          bds_bind(VV[184],VV[183]);          bds_bind(VV[184],VV[183]);
2995          base[3]= Cnil;          base[3]= Cnil;
2996          base[4]= VV[185];          base[4]= VV[185];
2997          base[5]= (V404);          base[5]= (V403);
2998          base[6]= (V407);          base[6]= (V406);
2999          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3000          Lformat();          Lformat();
3001          vs_top=sup;          vs_top=sup;
# Line 3015  T1130:; Line 3003  T1130:;
3003          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3004          Lintern();          Lintern();
3005          vs_top=sup;          vs_top=sup;
3006          V411= vs_base[0];          V410= vs_base[0];
3007          if((V409)==Cnil){          if((V408)==Cnil){
3008          goto T1140;}          goto T1135;}
3009          V412 = make_fixnum((long)length((V405)));          V411 = make_fixnum((long)length((V404)));
3010          if(!(number_compare(V412,(V409))>=0)){          if(!(number_compare(V411,(V408))>=0)){
3011          goto T1141;}          goto T1136;}
3012          goto T1140;          goto T1135;
3013  goto T1141;  goto T1136;
3014  T1141:;  T1136:;
3015          base[2]= VV[186];          base[2]= VV[186];
3016          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3017          Lerror();          Lerror();
3018          vs_top=sup;          vs_top=sup;
3019    goto T1135;
3020    T1135:;
3021            if((V409)==Cnil){
3022            goto T1139;}
3023            V412 = make_fixnum((long)length((V404)));
3024            if(!(number_compare(V412,(V409))<=0)){
3025            goto T1140;}
3026            goto T1139;
3027  goto T1140;  goto T1140;
3028  T1140:;  T1140:;
         if((V410)==Cnil){  
         goto T1144;}  
         V413 = make_fixnum((long)length((V405)));  
         if(!(number_compare(V413,(V410))<=0)){  
         goto T1145;}  
         goto T1144;  
 goto T1145;  
 T1145:;  
3029          base[2]= VV[187];          base[2]= VV[187];
3030          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3031          Lerror();          Lerror();
3032          vs_top=sup;          vs_top=sup;
3033  goto T1144;  goto T1139;
3034  T1144:;  T1139:;
3035          V414= listA(4,VV[190],(V411),(V405),(V406));          V413= listA(4,VV[190],(V410),(V404),(V405));
3036          if((V408)==Cnil){          if((V407)==Cnil){
3037          V415= Cnil;          V414= Cnil;
3038          goto T1148;}          goto T1143;}
3039          V416= list(3,VV[191],list(2,VV[10],(V404)),(V408));          V415= list(3,VV[191],list(2,VV[10],(V403)),(V407));
3040          V415= make_cons(/* INLINE-ARGS */V416,Cnil);          V414= make_cons(/* INLINE-ARGS */V415,Cnil);
3041  goto T1148;  goto T1143;
3042  T1148:;  T1143:;
3043          V417= list(2,VV[10],(V404));          V416= list(2,VV[10],(V403));
3044          base[3]= Cnil;          base[3]= Cnil;
3045          base[4]= VV[192];          base[4]= VV[192];
3046          base[5]= (V407);          base[5]= (V406);
3047          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3048          Lformat();          Lformat();
3049          vs_top=sup;          vs_top=sup;
# Line 3068  T1148:; Line 3056  T1148:;
3056          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3057          Lintern();          Lintern();
3058          vs_top=sup;          vs_top=sup;
3059          V418= vs_base[0];          V417= vs_base[0];
3060          V419= list(3,VV[7],/* INLINE-ARGS */V417,V418);          V418= list(3,VV[7],/* INLINE-ARGS */V416,V417);
3061          V420= list(3,VV[15],/* INLINE-ARGS */V419,list(2,VV[10],(V411)));          V419= list(3,VV[15],/* INLINE-ARGS */V418,list(2,VV[10],(V410)));
3062          V421= list(2,VV[10],(V404));          V420= list(2,VV[10],(V403));
3063          base[3]= Cnil;          base[3]= Cnil;
3064          base[4]= VV[194];          base[4]= VV[194];
3065          base[5]= (V407);          base[5]= (V406);
3066          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3067          Lformat();          Lformat();
3068          vs_top=sup;          vs_top=sup;
# Line 3087  T1148:; Line 3075  T1148:;
3075          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3076          Lintern();          Lintern();
3077          vs_top=sup;          vs_top=sup;
3078          V422= vs_base[0];          V421= vs_base[0];
3079          V423= list(3,VV[7],/* INLINE-ARGS */V421,V422);          V422= list(3,VV[7],/* INLINE-ARGS */V420,V421);
3080          V424= list(2,/* INLINE-ARGS */V420,list(3,VV[15],/* INLINE-ARGS */V423,list(2,VV[10],(V405))));          V423= list(2,/* INLINE-ARGS */V419,list(3,VV[15],/* INLINE-ARGS */V422,list(2,VV[10],(V404))));
3081          {object V425 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V414,append(V415,/* INLINE-ARGS */V424));          {object V424 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V413,append(V414,/* INLINE-ARGS */V423));
3082          bds_unwind1;          bds_unwind1;
3083          VMR43(V425)}}          VMR43(V424)}}
3084          va_end(ap);          va_end(ap);
3085          base[0]=base[0];          base[0]=base[0];
3086          return Cnil;}          return Cnil;}
3087          }          }
3088  /*      local entry for function SUM-SLOOP-COLLECT      */  /*      local entry for function SUM-SLOOP-COLLECT      */
3089    
3090  static object LI44(V428,V429)  static object LI44(V427,V428)
3091    
3092  object V428;object V429;  object V427;object V428;
3093  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
3094  goto TTL;  goto TTL;
3095  TTL:;  TTL:;
3096          V430= list(3,VV[195],(V428),small_fixnum(0));          V429= list(3,VV[195],(V427),small_fixnum(0));
3097          {object V431 = list(4,VV[97],/* INLINE-ARGS */V430,VV[56],list(3,VV[195],(V428),list(3,VV[144],(V428),(V429))));          {object V430 = list(4,VV[97],/* INLINE-ARGS */V429,VV[56],list(3,VV[195],(V427),list(3,VV[144],(V427),(V428))));
3098          VMR44(V431)}          VMR44(V430)}
3099          return Cnil;          return Cnil;
3100  }  }
3101  /*      local entry for function LOGXOR-SLOOP-COLLECT   */  /*      local entry for function LOGXOR-SLOOP-COLLECT   */
3102    
3103  static object LI45(V434,V435)  static object LI45(V433,V434)
3104    
3105  register object V434;object V435;  register object V433;object V434;
3106  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
3107  goto TTL;  goto TTL;
3108  TTL:;  TTL:;
3109          V436= list(3,VV[15],(V434),small_fixnum(0));          V435= list(3,VV[15],(V433),small_fixnum(0));
3110          V437= list(3,VV[15],(V434),list(3,VV[196],(V434),(V435)));          V436= list(3,VV[15],(V433),list(3,VV[196],(V433),(V434)));
3111          {object V438 = list(6,VV[97],/* INLINE-ARGS */V436,VV[56],/* INLINE-ARGS */V437,VV[77],list(3,VV[167],(V434),(V435)));          {object V437 = list(6,VV[97],/* INLINE-ARGS */V435,VV[56],/* INLINE-ARGS */V436,VV[77],list(3,VV[167],(V433),(V434)));
3112          VMR45(V438)}          VMR45(V437)}
3113          return Cnil;          return Cnil;
3114  }  }
3115  /*      local entry for function MAXIMIZE-SLOOP-COLLECT */  /*      local entry for function MAXIMIZE-SLOOP-COLLECT */
3116    
3117  static object LI46(V441,V442)  static object LI46(V440,V441)
3118    
3119  register object V441;object V442;  register object V440;object V441;
3120  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
3121  goto TTL;  goto TTL;
3122  TTL:;  TTL:;
3123          V443= list(3,VV[195],(V441),Cnil);          V442= list(3,VV[195],(V440),Cnil);
3124          V444= list(3,VV[15],(V441),list(3,VV[198],(V441),(V442)));          V443= list(3,VV[15],(V440),list(3,VV[198],(V440),(V441)));
3125          {object V445 = list(4,VV[97],/* INLINE-ARGS */V443,VV[56],list(4,VV[197],(V441),/* INLINE-ARGS */V444,list(3,VV[15],(V441),(V442))));          {object V444 = list(4,VV[97],/* INLINE-ARGS */V442,VV[56],list(4,VV[197],(V440),/* INLINE-ARGS */V443,list(3,VV[15],(V440),(V441))));
3126          VMR46(V445)}          VMR46(V444)}
3127          return Cnil;          return Cnil;
3128  }  }
3129  /*      local entry for function MINIMIZE-SLOOP-COLLECT */  /*      local entry for function MINIMIZE-SLOOP-COLLECT */
3130    
3131  static object LI47(V448,V449)  static object LI47(V447,V448)
3132    
3133  register object V448;object V449;  register object V447;object V448;
3134  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
3135  goto TTL;  goto TTL;
3136  TTL:;  TTL:;
3137          V450= list(3,VV[195],(V448),Cnil);          V449= list(3,VV[195],(V447),Cnil);
3138          V451= list(3,VV[15],(V448),list(3,VV[199],(V448),(V449)));          V450= list(3,VV[15],(V447),list(3,VV[199],(V447),(V448)));
3139          {object V452 = list(4,VV[97],/* INLINE-ARGS */V450,VV[56],list(4,VV[197],(V448),/* INLINE-ARGS */V451,list(3,VV[15],(V448),(V449))));          {object V451 = list(4,VV[97],/* INLINE-ARGS */V449,VV[56],list(4,VV[197],(V447),/* INLINE-ARGS */V450,list(3,VV[15],(V447),(V448))));
3140          VMR47(V452)}          VMR47(V451)}
3141          return Cnil;          return Cnil;
3142  }  }
3143  /*      local entry for function COUNT-SLOOP-COLLECT    */  /*      local entry for function COUNT-SLOOP-COLLECT    */
3144    
3145  static object LI48(V455,V456)  static object LI48(V454,V455)
3146    
3147  object V455;object V456;  object V454;object V455;
3148  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3149  goto TTL;  goto TTL;
3150  TTL:;  TTL:;
3151          V457= list(3,VV[195],(V455),small_fixnum(0));          V456= list(3,VV[195],(V454),small_fixnum(0));
3152          {object V458 = list(4,VV[97],/* INLINE-ARGS */V457,VV[56],list(3,VV[5],(V456),list(3,VV[15],(V455),list(2,VV[200],(V455)))));          {object V457 = list(4,VV[97],/* INLINE-ARGS */V456,VV[56],list(3,VV[5],(V455),list(3,VV[15],(V454),list(2,VV[200],(V454)))));
3153          VMR48(V458)}          VMR48(V457)}
3154          return Cnil;          return Cnil;
3155  }  }
3156  /*      local entry for function THEREIS-SLOOP-COLLECT  */  /*      local entry for function THEREIS-SLOOP-COLLECT  */
3157    
3158  static object LI49(V461,V462)  static object LI49(V460,V461)
3159    
3160  object V461;object V462;  object V460;object V461;
3161  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
3162  goto TTL;  goto TTL;
3163  TTL:;  TTL:;
3164          {object V463 = list(2,VV[56],list(3,VV[197],(V462),list(2,VV[59],(V462))));          {object V462 = list(2,VV[56],list(3,VV[197],(V461),list(2,VV[59],(V461))));
3165          VMR49(V463)}          VMR49(V462)}
3166          return Cnil;          return Cnil;
3167  }  }
3168  /*      local entry for function ALWAYS-SLOOP-COLLECT   */  /*      local entry for function ALWAYS-SLOOP-COLLECT   */
3169    
3170  static object LI50(V466,V467)  static object LI50(V465,V466)
3171    
3172  object V466;object V467;  object V465;object V466;
3173  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
3174  goto TTL;  goto TTL;
3175  TTL:;  TTL:;
3176          V468= list(3,VV[195],(V466),Ct);          V467= list(3,VV[195],(V465),Ct);
3177          {object V469 = list(4,VV[97],/* INLINE-ARGS */V468,VV[56],list(3,VV[5],list(2,VV[140],(V467)),VV[201]));          {object V468 = list(4,VV[97],/* INLINE-ARGS */V467,VV[56],list(3,VV[5],list(2,VV[140],(V466)),VV[201]));
3178          VMR50(V469)}          VMR50(V468)}
3179          return Cnil;          return Cnil;
3180  }  }
3181  /*      local entry for function NEVER-SLOOP-COLLECT    */  /*      local entry for function NEVER-SLOOP-COLLECT    */
3182    
3183  static object LI51(V472,V473)  static object LI51(V471,V472)
3184    
3185  object V472;object V473;  object V471;object V472;
3186  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
3187  goto TTL;  goto TTL;
3188  TTL:;  TTL:;
3189          V474= list(3,VV[195],(V472),Ct);          V473= list(3,VV[195],(V471),Ct);
3190          {object V475 = list(4,VV[97],/* INLINE-ARGS */V474,VV[56],list(3,VV[5],(V473),VV[202]));          {object V474 = list(4,VV[97],/* INLINE-ARGS */V473,VV[56],list(3,VV[5],(V472),VV[202]));
3191          VMR51(V475)}          VMR51(V474)}
3192          return Cnil;          return Cnil;
3193  }  }
3194  /*      local entry for function AVERAGING-SLOOP-MACRO  */  /*      local entry for function AVERAGING-SLOOP-MACRO  */
3195    
3196  static object LI52(V477)  static object LI52(V476)
3197    
3198  object V477;  object V476;
3199  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
3200  goto TTL;  goto TTL;
3201  TTL:;  TTL:;
# Line 3225  TTL:; Line 3213  TTL:;
3213          base[11]= VV[77];          base[11]= VV[77];
3214          base[12]= VV[207];          base[12]= VV[207];
3215          base[13]= VV[56];          base[13]= VV[56];
3216          base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V477)),VV[210]));          base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V476)),VV[210]));
3217          base[15]= VV[211];          base[15]= VV[211];
3218          vs_top=(vs_base=base+0)+16;          vs_top=(vs_base=base+0)+16;
3219          LlistA();          LlistA();
3220          vs_top=sup;          vs_top=sup;
3221          {object V478 = vs_base[0];          {object V477 = vs_base[0];
3222          VMR52(V478)}          VMR52(V477)}
3223          base[0]=base[0];          base[0]=base[0];
3224          return Cnil;          return Cnil;
3225  }  }
3226  /*      local entry for function REPEAT-SLOOP-MACRO     */  /*      local entry for function REPEAT-SLOOP-MACRO     */
3227    
3228  static object LI53(V480)  static object LI53(V479)
3229    
3230  object V480;  object V479;
3231  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3232  goto TTL;  goto TTL;
3233  TTL:;  TTL:;
3234          {object V481;          {object V480;
3235          vs_base=vs_top;          vs_base=vs_top;
3236          Lgensym();          Lgensym();
3237          vs_top=sup;          vs_top=sup;
3238          V481= vs_base[0];          V480= vs_base[0];
3239          {object V482 = list(4,VV[25],(V481),VV[157],(V480));          {object V481 = list(4,VV[25],(V480),VV[157],(V479));
3240          VMR53(V482)}}          VMR53(V481)}}
3241          base[0]=base[0];          base[0]=base[0];
3242          return Cnil;          return Cnil;
3243  }  }
3244  /*      local entry for function RETURN-SLOOP-MACRO     */  /*      local entry for function RETURN-SLOOP-MACRO     */
3245    
3246  static object LI54(V484)  static object LI54(V483)
3247    
3248  register object V484;  register object V483;
3249  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3250  goto TTL;  goto TTL;
3251  TTL:;  TTL:;
3252          if(!(type_of((V484))==t_cons)){          if(!(type_of((V483))==t_cons)){
3253          goto T1182;}          goto T1177;}
3254          if(!((car((V484)))==(VV[21]))){          if(!((car((V483)))==(VV[21]))){
3255          goto T1182;}          goto T1177;}
3256          V485= cdr((V484));          V484= cdr((V483));
3257          goto T1180;          goto T1175;
3258  goto T1182;  goto T1177;
3259  T1182:;  T1177:;
3260          V485= make_cons((V484),Cnil);          V484= make_cons((V483),Cnil);
3261  goto T1180;  goto T1175;
3262  T1180:;  T1175:;
3263          {object V486 = list(2,VV[56],make_cons(VV[59],V485));          {object V485 = list(2,VV[56],make_cons(VV[59],V484));
3264          VMR54(V486)}          VMR54(V485)}
3265          return Cnil;          return Cnil;
3266  }  }
3267  /*      local entry for function IN-TABLE-SLOOP-MAP     */  /*      local entry for function IN-TABLE-SLOOP-MAP     */
3268    
3269  static object LI55(V489,V490)  static object LI55(V488,V489)
3270    
3271  object V489;object V490;  object V488;object V489;
3272  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3273  goto TTL;  goto TTL;
3274  TTL:;  TTL:;
3275          {object V491 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V489),VV[215])),(V490));          {object V490 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V488),VV[215])),(V489));
3276          VMR55(V491)}          VMR55(V490)}
3277          return Cnil;          return Cnil;
3278  }  }
3279  /*      local entry for function IN-PACKAGE-SLOOP-MAP   */  /*      local entry for function IN-PACKAGE-SLOOP-MAP   */
3280    
3281  static object LI56(V494,V495)  static object LI56(V493,V494)
3282    
3283  object V494;object V495;  object V493;object V494;
3284  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
3285  goto TTL;  goto TTL;
3286  TTL:;  TTL:;
3287          {object V496 = list(3,VV[216],list(2,(V494),list(2,VV[217],(V495))),VV[181]);          {object V495 = list(3,VV[216],list(2,(V493),list(2,VV[217],(V494))),VV[181]);
3288          VMR56(V496)}          VMR56(V495)}
3289          return Cnil;          return Cnil;
3290  }  }
3291  /*      local entry for function IN-ARRAY-SLOOP-FOR     */  /*      local entry for function IN-ARRAY-SLOOP-FOR     */
3292    
3293  static object LI57(V498,V497,va_alist)  static object LI57(V497,V496,va_alist)
3294          object V498,V497;          object V497,V496;
3295          va_dcl          va_dcl
3296  {        {      
3297          va_list ap;          va_list ap;
3298          int narg = VFUN_NARGS; VMB57 VMS57 VMV57          int narg = VFUN_NARGS; VMB57 VMS57 VMV57
3299          {object V499;          {object V498;
3300          object V500;          object V499;
3301          register object V501;          register object V500;
3302          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
3303          va_start(ap);          va_start(ap);
3304          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
3305          V499= V498;          V498= V497;
3306          V500= V497;          V499= V496;
3307          narg= narg - 2;          narg= narg - 2;
3308          V502 = list_vector(narg,ap);          V501 = list_vector(narg,ap);
3309          V501= V502;          V500= V501;
3310          {object V503;          {object V502;
3311            object V503;
3312          object V504;          object V504;
3313          object V505;          V502= Cnil;
3314          V503= Cnil;          V503= Cnil;
3315          V504= Cnil;          V504= Cnil;
3316          V505= Cnil;          if(!(type_of((V498))==t_cons||((V498))==Cnil)){
3317          if(!(type_of((V499))==t_cons||((V499))==Cnil)){          goto T1183;}
3318          goto T1188;}          V502= car((V498));
3319          V503= car((V499));          V503= cadr((V498));
3320          V504= cadr((V499));          goto T1181;
3321          goto T1186;  goto T1183;
3322  goto T1188;  T1183:;
3323  T1188:;          V502= (V498);
         V503= (V499);  
3324          base[0]= VV[218];          base[0]= VV[218];
3325          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3326          Lgensym();          Lgensym();
3327          vs_top=sup;          vs_top=sup;
3328          V504= vs_base[0];          V503= vs_base[0];
3329  goto T1186;  goto T1181;
3330  T1186:;  T1181:;
3331          {object V506;          {object V505;
3332          {register object V507;          {register object V506;
3333          register object V508;          register object V507;
3334          V507= (V501);          V506= (V500);
3335          V508= Cnil;          V507= Cnil;
3336  goto T1199;  goto T1194;
3337  T1199:;  T1194:;
3338            {register object V508;
3339            V508= (*(LnkLI13))(car((V506)));
3340          {register object V509;          {register object V509;
3341          V509= (*(LnkLI13))(car((V507)));          V509= (*(LnkLI9))((V508),VV[219]);
3342            if(((V509))==Cnil){
3343            goto T1201;}
3344            goto T1197;
3345    goto T1201;
3346    T1201:;
3347            if(((*(LnkLI9))((V508),VV[220]))==Cnil){
3348            goto T1204;}
3349            V504= Ct;
3350            goto T1197;
3351    goto T1204;
3352    T1204:;
3353          {register object V510;          {register object V510;
3354          V510= (*(LnkLI9))((V509),VV[219]);          V510= (*(LnkLI9))((V508),VV[147]);
3355          if(((V510))==Cnil){          if(((V510))==Cnil){
         goto T1206;}  
         goto T1202;  
 goto T1206;  
 T1206:;  
         if(((*(LnkLI9))((V509),VV[220]))==Cnil){  
3356          goto T1209;}          goto T1209;}
3357          V505= Ct;          goto T1197;
         goto T1202;  
3358  goto T1209;  goto T1209;
3359  T1209:;  T1209:;
3360          {register object V511;          base[0]= (V506);
         V511= (*(LnkLI9))((V509),VV[147]);  
         if(((V511))==Cnil){  
         goto T1214;}  
         goto T1202;  
 goto T1214;  
 T1214:;  
         base[0]= (V507);  
3361          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3362          Lcopy_list();          Lcopy_list();
3363          vs_top=sup;          vs_top=sup;
3364          V501= vs_base[0];          V500= vs_base[0];
3365          V506= nreverse((V508));          V505= nreverse((V507));
3366          goto T1197;}}}          goto T1192;}}}
 goto T1202;  
 T1202:;  
         V508= make_cons(car((V507)),(V508));  
         V508= make_cons(cadr((V507)),(V508));  
         V507= cddr((V507));  
         goto T1199;}  
3367  goto T1197;  goto T1197;
3368  T1197:;  T1197:;
3369          if((V505)!=Cnil){          V507= make_cons(car((V506)),(V507));
3370          goto T1226;}          V507= make_cons(cadr((V506)),(V507));
3371          V512= list(2,VV[157],list(2,VV[221],(V500)));          V506= cddr((V506));
3372          V506= nconc(/* INLINE-ARGS */V512,(V506));          goto T1194;}
3373  goto T1226;  goto T1192;
3374  T1226:;  T1192:;
3375          V513= listA(5,VV[87],(V503),VV[56],list(3,VV[15],(V503),list(3,VV[222],(V500),(V504))),(V501));          if((V504)!=Cnil){
3376          {object V514 = listA(3,VV[25],(V504),append((V506),/* INLINE-ARGS */V513));          goto T1221;}
3377          VMR57(V514)}}}          V511= list(2,VV[157],list(2,VV[221],(V499)));
3378            V505= nconc(/* INLINE-ARGS */V511,(V505));
3379    goto T1221;
3380    T1221:;
3381            V512= listA(5,VV[87],(V502),VV[56],list(3,VV[15],(V502),list(3,VV[222],(V499),(V503))),(V500));
3382            {object V513 = listA(3,VV[25],(V503),append((V505),/* INLINE-ARGS */V512));
3383            VMR57(V513)}}}
3384          va_end(ap);          va_end(ap);
3385          base[0]=base[0];          base[0]=base[0];
3386          return Cnil;}          return Cnil;}
3387          }          }
3388  /*      local entry for function =-SLOOP-FOR    */  /*      local entry for function =-SLOOP-FOR    */
3389    
3390  static object LI58(V517,V518)  static object LI58(V516,V517)
3391    
3392  register object V517;object V518;  register object V516;object V517;
3393  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
3394  goto TTL;  goto TTL;
3395  TTL:;  TTL:;
3396          {object V519;          {object V518;
3397          V520= (*(LnkLI254))();          V519= (*(LnkLI254))();
3398          V519= (*(LnkLI13))(/* INLINE-ARGS */V520);          V518= (*(LnkLI13))(/* INLINE-ARGS */V519);
3399          if(((*(LnkLI9))((V519),VV[223]))==Cnil){          if(((*(LnkLI9))((V518),VV[223]))==Cnil){
3400          goto T1230;}          goto T1225;}
3401          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
3402          V521= list(3,VV[139],(V517),(V518));          V520= list(3,VV[139],(V516),(V517));
3403          {object V522 = list(6,VV[87],(V517),VV[97],/* INLINE-ARGS */V521,VV[89],list(3,VV[139],(V517),(*(LnkLI255))()));          {object V521 = list(6,VV[87],(V516),VV[97],/* INLINE-ARGS */V520,VV[89],list(3,VV[139],(V516),(*(LnkLI255))()));
3404          VMR58(V522)}          VMR58(V521)}
3405  goto T1230;  goto T1225;
3406  T1230:;  T1225:;
3407          {object V523 = list(4,VV[87],(V517),VV[56],list(3,VV[139],(V517),(V518)));          {object V522 = list(4,VV[87],(V516),VV[56],list(3,VV[139],(V516),(V517)));
3408          VMR58(V523)}}          VMR58(V522)}}
3409          return Cnil;          return Cnil;
3410  }  }
3411  /*      local entry for function SLOOP-SLOOP-MACRO      */  /*      local entry for function SLOOP-SLOOP-MACRO      */
3412    
3413  static object LI59(V525)  static object LI59(V524)
3414    
3415  VOL object V525;  VOL object V524;
3416  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
3417          bds_check;          bds_check;
3418  goto TTL;  goto TTL;
3419  TTL:;  TTL:;
3420            {object V525;
3421            V525= (*(LnkLI13))(car((V524)));
3422          {object V526;          {object V526;
3423          V526= (*(LnkLI13))(car((V525)));          V526= (*(LnkLI9))((V525),VV[25]);
3424          {object V527;          if(((V526))==Cnil){
3425          V527= (*(LnkLI9))((V526),VV[25]);          goto T1232;}
3426          if(((V527))==Cnil){          goto T1228;
3427          goto T1237;}  goto T1232;
3428          goto T1233;  T1232:;
 goto T1237;  
 T1237:;  
3429          base[0]= VV[85];          base[0]= VV[85];
3430          base[1]= (V526);          base[1]= (V525);
3431          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3432          Lerror();          Lerror();
3433          vs_top=sup;}}          vs_top=sup;}}
3434  goto T1233;  goto T1228;
3435  T1233:;  T1228:;
3436          {VOL object V528;          {VOL object V527;
3437            VOL object V528;
3438          VOL object V529;          VOL object V529;
3439          VOL object V530;          VOL object V530;
3440          VOL object V531;          VOL object V531;
3441          VOL object V532;          VOL object V532;
3442          VOL object V533;          VOL object V533;
         VOL object V534;  
3443          base[4]= VV[224];          base[4]= VV[224];
3444          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3445          Lgensym();          Lgensym();
3446          vs_top=sup;          vs_top=sup;
3447          V529= vs_base[0];          V528= vs_base[0];
3448          bds_bind(VV[50],Cnil);          bds_bind(VV[50],Cnil);
3449          bds_bind(VV[49],Cnil);          bds_bind(VV[49],Cnil);
3450          bds_bind(VV[53],Cnil);          bds_bind(VV[53],Cnil);
3451          V528= Cnil;          V527= Cnil;
3452            V529= Cnil;
3453          V530= Cnil;          V530= Cnil;
3454          V531= Cnil;          V531= Cnil;
3455          V532= Cnil;          V532= Cnil;
3456          V533= Cnil;          V533= Cnil;
3457          V534= Cnil;          bds_bind(VV[34],(V524));
         bds_bind(VV[34],(V525));  
3458          setq(VV[40],Ct);          setq(VV[40],Ct);
3459          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
3460          {object V535;          {object V534;
3461          object V536;          object V535;
3462          V535= symbol_value(VV[46]);          V534= symbol_value(VV[46]);
3463          V536= (V530);          V535= (V529);
3464          V530= (V535);          V529= (V534);
3465          setq(VV[46],(V536));}          setq(VV[46],(V535));}
3466          {object V537;          {object V536;
3467          object V538;          object V537;
3468          V537= symbol_value(VV[48]);          V536= symbol_value(VV[48]);
3469          V538= (V531);          V537= (V530);
3470          V531= (V537);          V530= (V536);
3471          setq(VV[48],(V538));}          setq(VV[48],(V537));}
3472          {object V539;          {object V538;
3473          object V540;          object V539;
3474          V539= symbol_value(VV[43]);          V538= symbol_value(VV[43]);
3475          V540= (V532);          V539= (V531);
3476          V532= (V539);          V531= (V538);
3477          setq(VV[43],(V540));}          setq(VV[43],(V539));}
3478          {object V541;          {object V540;
3479          object V542;          object V541;
3480          V541= symbol_value(VV[41]);          V540= symbol_value(VV[41]);
3481          V542= (V533);          V541= (V532);
3482          V533= (V541);          V532= (V540);
3483          setq(VV[41],(V542));}          setq(VV[41],(V541));}
3484          {object V543;          {object V542;
3485          object V544;          object V543;
3486          V543= symbol_value(VV[42]);          V542= symbol_value(VV[42]);
3487          V544= (V534);          V543= (V533);
3488          V534= (V543);          V533= (V542);
3489          setq(VV[42],(V544));}          setq(VV[42],(V543));}
3490          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3491          (void)((*(LnkLI257))());          (void)((*(LnkLI257))());
3492          {object V545;          {object V544;
3493          object V546;          object V545;
3494          V545= symbol_value(VV[46]);          V544= symbol_value(VV[46]);
3495          V546= (V530);          V545= (V529);
3496          V530= (V545);          V529= (V544);
3497          setq(VV[46],(V546));}          setq(VV[46],(V545));}
3498          {object V547;          {object V546;
3499          object V548;          object V547;
3500          V547= symbol_value(VV[48]);          V546= symbol_value(VV[48]);
3501          V548= (V531);          V547= (V530);
3502          V531= (V547);          V530= (V546);
3503          setq(VV[48],(V548));}          setq(VV[48],(V547));}
3504          {object V549;          {object V548;
3505          object V550;          object V549;
3506          V549= symbol_value(VV[43]);          V548= symbol_value(VV[43]);
3507          V550= (V532);          V549= (V531);
3508          V532= (V549);          V531= (V548);
3509          setq(VV[43],(V550));}          setq(VV[43],(V549));}
3510          {object V551;          {object V550;
3511          object V552;          object V551;
3512          V551= symbol_value(VV[41]);          V550= symbol_value(VV[41]);
3513          V552= (V533);          V551= (V532);
3514          V533= (V551);          V532= (V550);
3515          setq(VV[41],(V552));}          setq(VV[41],(V551));}
3516          {object V553;          {object V552;
3517          object V554;          object V553;
3518          V553= symbol_value(VV[42]);          V552= symbol_value(VV[42]);
3519          V554= (V534);          V553= (V533);
3520          V534= (V553);          V533= (V552);
3521          setq(VV[42],(V554));}          setq(VV[42],(V553));}
3522          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3523  goto T1323;  goto T1318;
3524  T1323:;  T1318:;
3525          if(((VV[34]->s.s_dbind))!=Cnil){          if(((VV[34]->s.s_dbind))!=Cnil){
3526          goto T1324;}          goto T1319;}
3527          goto T1321;          goto T1316;
3528  goto T1324;  goto T1319;
3529  T1324:;  T1319:;
3530          {VOL object V555;          {VOL object V554;
3531          frs_push(FRS_CATCH,VV[27]);          frs_push(FRS_CATCH,VV[27]);
3532          if(nlj_active)          if(nlj_active)
3533          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
3534          vs_top=sup;          vs_top=sup;
3535          V555= vs_base[0];          V554= vs_base[0];
3536          goto T1329;}          goto T1324;}
3537          else{          else{
3538          V556= (*(LnkLI251))();          V555= (*(LnkLI251))();
3539          frs_pop();          frs_pop();
3540          V555= V556;}          V554= V555;}
3541  goto T1329;  goto T1324;
3542  T1329:;  T1324:;
3543          if(((V555))==Cnil){          if(((V554))==Cnil){
3544          goto T1332;}          goto T1327;}
3545          goto T1328;          goto T1323;
3546  goto T1332;  goto T1327;
3547  T1332:;  T1327:;
3548          if(((VV[34]->s.s_dbind))!=Cnil){          if(((VV[34]->s.s_dbind))!=Cnil){
3549          goto T1335;}          goto T1330;}
3550          goto T1321;          goto T1316;
3551  goto T1335;  goto T1330;
3552  T1335:;  T1330:;
3553          (void)(print((VV[34]->s.s_dbind),Cnil));          (void)(print((VV[34]->s.s_dbind),Cnil));
3554          {object V557;          {object V556;
3555          object V558;          object V557;
3556          V557= symbol_value(VV[46]);          V556= symbol_value(VV[46]);
3557          V558= (V530);          V557= (V529);
3558          V530= (V557);          V529= (V556);
3559          setq(VV[46],(V558));}          setq(VV[46],(V557));}
3560          {object V559;          {object V558;
3561          object V560;          object V559;
3562          V559= symbol_value(VV[48]);          V558= symbol_value(VV[48]);
3563          V560= (V531);          V559= (V530);
3564          V531= (V559);          V530= (V558);
3565          setq(VV[48],(V560));}          setq(VV[48],(V559));}
3566          {object V561;          {object V560;
3567          object V562;          object V561;
3568          V561= symbol_value(VV[43]);          V560= symbol_value(VV[43]);
3569          V562= (V532);          V561= (V531);
3570          V532= (V561);          V531= (V560);
3571          setq(VV[43],(V562));}          setq(VV[43],(V561));}
3572          {object V563;          {object V562;
3573          object V564;          object V563;
3574          V563= symbol_value(VV[41]);          V562= symbol_value(VV[41]);
3575          V564= (V533);          V563= (V532);
3576          V533= (V563);          V532= (V562);
3577          setq(VV[41],(V564));}          setq(VV[41],(V563));}
3578          {object V565;          {object V564;
3579          object V566;          object V565;
3580          V565= symbol_value(VV[42]);          V564= symbol_value(VV[42]);
3581          V566= (V534);          V565= (V533);
3582          V534= (V565);          V533= (V564);
3583          setq(VV[42],(V566));}          setq(VV[42],(V565));}
3584          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3585          (void)((*(LnkLI261))());          (void)((*(LnkLI261))());
3586          {object V567;          {object V566;
3587          object V568;          object V567;
3588          V567= symbol_value(VV[46]);          V566= symbol_value(VV[46]);
3589          V568= (V530);          V567= (V529);
3590          V530= (V567);          V529= (V566);
3591          setq(VV[46],(V568));}          setq(VV[46],(V567));}
3592          {object V569;          {object V568;
3593          object V570;          object V569;
3594          V569= symbol_value(VV[48]);          V568= symbol_value(VV[48]);
3595          V570= (V531);          V569= (V530);
3596          V531= (V569);          V530= (V568);
3597          setq(VV[48],(V570));}          setq(VV[48],(V569));}
3598          {object V571;          {object V570;
3599          object V572;          object V571;
3600          V571= symbol_value(VV[43]);          V570= symbol_value(VV[43]);
3601          V572= (V532);          V571= (V531);
3602          V532= (V571);          V531= (V570);
3603          setq(VV[43],(V572));}          setq(VV[43],(V571));}
3604          {object V573;          {object V572;
3605          object V574;          object V573;
3606          V573= symbol_value(VV[41]);          V572= symbol_value(VV[41]);
3607          V574= (V533);          V573= (V532);
3608          V533= (V573);          V532= (V572);
3609          setq(VV[41],(V574));}          setq(VV[41],(V573));}
3610          {object V575;          {object V574;
3611          object V576;          object V575;
3612          V575= symbol_value(VV[42]);          V574= symbol_value(VV[42]);
3613          V576= (V534);          V575= (V533);
3614          V534= (V575);          V533= (V574);
3615          setq(VV[42],(V576));}          setq(VV[42],(V575));}
3616          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3617          (void)(print((VV[34]->s.s_dbind),Cnil));}          (void)(print((VV[34]->s.s_dbind),Cnil));}
3618  goto T1328;  goto T1323;
3619  T1328:;  T1323:;
3620          goto T1323;          goto T1318;
3621  goto T1321;  goto T1316;
3622  T1321:;  T1316:;
3623          {object V577;          {object V576;
3624          object V578;          object V577;
3625          V577= symbol_value(VV[46]);          V576= symbol_value(VV[46]);
3626          V578= (V530);          V577= (V529);
3627          V530= (V577);          V529= (V576);
3628          setq(VV[46],(V578));}          setq(VV[46],(V577));}
3629          {object V579;          {object V578;
3630          object V580;          object V579;
3631          V579= symbol_value(VV[48]);          V578= symbol_value(VV[48]);
3632          V580= (V531);          V579= (V530);
3633          V531= (V579);          V530= (V578);
3634          setq(VV[48],(V580));}          setq(VV[48],(V579));}
3635          {object V581;          {object V580;
3636          object V582;          object V581;
3637          V581= symbol_value(VV[43]);          V580= symbol_value(VV[43]);
3638          V582= (V532);          V581= (V531);
3639          V532= (V581);          V531= (V580);
3640          setq(VV[43],(V582));}          setq(VV[43],(V581));}
3641          {object V583;          {object V582;
3642          object V584;          object V583;
3643          V583= symbol_value(VV[41]);          V582= symbol_value(VV[41]);
3644          V584= (V533);          V583= (V532);
3645          V533= (V583);          V532= (V582);
3646          setq(VV[41],(V584));}          setq(VV[41],(V583));}
3647          {object V585;          {object V584;
3648          object V586;          object V585;
3649          V585= symbol_value(VV[42]);          V584= symbol_value(VV[42]);
3650          V586= (V534);          V585= (V533);
3651          V534= (V585);          V533= (V584);
3652          setq(VV[42],(V586));}          setq(VV[42],(V585));}
3653          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3654          V528= nreverse((VV[49]->s.s_dbind));          V527= nreverse((VV[49]->s.s_dbind));
3655          if((VV[53]->s.s_dbind)==Cnil){          if((VV[53]->s.s_dbind)==Cnil){
3656          goto T1454;}          goto T1449;}
3657          V528= (*(LnkLI252))((V528));          V527= (*(LnkLI252))((V527));
3658  goto T1454;  goto T1449;
3659  T1454:;  T1449:;
3660          {object V587;          {object V586;
3661          V588= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[10],(V529))));          V587= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[10],(V528))));
3662          V589= make_cons(/* INLINE-ARGS */V588,Cnil);          V588= make_cons(/* INLINE-ARGS */V587,Cnil);
3663          base[4]= nreverse(symbol_value(VV[48]));          base[4]= nreverse(symbol_value(VV[48]));
3664          if(((VV[53]->s.s_dbind))==Cnil){          if(((VV[53]->s.s_dbind))==Cnil){
3665          goto T1460;}          goto T1455;}
3666          base[5]= Cnil;          base[5]= Cnil;
3667          goto T1459;          goto T1454;
3668  goto T1460;  goto T1455;
3669  T1460:;  T1455:;
3670          base[5]= VV[226];          base[5]= VV[226];
3671  goto T1459;  goto T1454;
3672  T1459:;  T1454:;
3673          base[6]= nreverse(symbol_value(VV[41]));          base[6]= nreverse(symbol_value(VV[41]));
3674          base[7]= (V528);          base[7]= (V527);
3675          base[8]= nreverse(symbol_value(VV[42]));          base[8]= nreverse(symbol_value(VV[42]));
3676          if(((VV[53]->s.s_dbind))==Cnil){          if(((VV[53]->s.s_dbind))==Cnil){
3677          goto T1466;}          goto T1461;}
3678          base[9]= Cnil;          base[9]= Cnil;
3679          goto T1465;          goto T1460;
3680  goto T1466;  goto T1461;
3681  T1466:;  T1461:;
3682          base[9]= VV[227];          base[9]= VV[227];
3683  goto T1465;  goto T1460;
3684  T1465:;  T1460:;
3685          V591= nreverse(symbol_value(VV[43]));          V590= nreverse(symbol_value(VV[43]));
3686          base[10]= make_cons((V529),/* INLINE-ARGS */V591);          base[10]= make_cons((V528),/* INLINE-ARGS */V590);
3687          vs_top=(vs_base=base+4)+7;          vs_top=(vs_base=base+4)+7;
3688          Lappend();          Lappend();
3689          vs_top=sup;          vs_top=sup;
3690          V590= vs_base[0];          V589= vs_base[0];
3691          V587= list(3,VV[71],/* INLINE-ARGS */V589,make_cons(VV[73],V590));          V586= list(3,VV[71],/* INLINE-ARGS */V588,make_cons(VV[73],V589));
3692          {object V592;          {object V591;
3693          object V593;          object V592;
3694          V592= symbol_value(VV[46]);          V591= symbol_value(VV[46]);
3695          V593= car((V592));          V592= car((V591));
3696  goto T1473;  goto T1468;
3697  T1473:;  T1468:;
3698          if(!(endp((V592)))){          if(!(endp((V591)))){
3699          goto T1474;}          goto T1469;}
3700          goto T1469;          goto T1464;
 goto T1474;  
 T1474:;  
         V594= (*(LnkLI253))((V593));  
         if((cdr((V593)))!=Cnil){  
         goto T1481;}  
         V595= Cnil;  
         goto T1480;  
 goto T1481;  
 T1481:;  
         V596= make_cons(VV[77],cdr((V593)));  
         V595= make_cons(/* INLINE-ARGS */V596,Cnil);  
 goto T1480;  
 T1480:;  
         V597= make_cons((V587),Cnil);  
         V587= listA(3,VV[12],/* INLINE-ARGS */V594,append(V595,/* INLINE-ARGS */V597));  
         V592= cdr((V592));  
         V593= car((V592));  
         goto T1473;}  
3701  goto T1469;  goto T1469;
3702  T1469:;  T1469:;
3703          {object V598;          V593= (*(LnkLI253))((V592));
3704          object V599;          if((cdr((V592)))!=Cnil){
3705          V598= symbol_value(VV[46]);          goto T1476;}
3706          V599= (V530);          V594= Cnil;
3707          V530= (V598);          goto T1475;
3708          setq(VV[46],(V599));}  goto T1476;
3709          {object V600;  T1476:;
3710          object V601;          V595= make_cons(VV[77],cdr((V592)));
3711          V600= symbol_value(VV[48]);          V594= make_cons(/* INLINE-ARGS */V595,Cnil);
3712          V601= (V531);  goto T1475;
3713          V531= (V600);  T1475:;
3714          setq(VV[48],(V601));}          V596= make_cons((V586),Cnil);
3715          {object V602;          V586= listA(3,VV[12],/* INLINE-ARGS */V593,append(V594,/* INLINE-ARGS */V596));
3716          object V603;          V591= cdr((V591));
3717          V602= symbol_value(VV[43]);          V592= car((V591));
3718          V603= (V532);          goto T1468;}
3719          V532= (V602);  goto T1464;
3720          setq(VV[43],(V603));}  T1464:;
3721          {object V604;          {object V597;
3722          object V605;          object V598;
3723          V604= symbol_value(VV[41]);          V597= symbol_value(VV[46]);
3724          V605= (V533);          V598= (V529);
3725          V533= (V604);          V529= (V597);
3726          setq(VV[41],(V605));}          setq(VV[46],(V598));}
3727          {object V606;          {object V599;
3728          object V607;          object V600;
3729          V606= symbol_value(VV[42]);          V599= symbol_value(VV[48]);
3730          V607= (V534);          V600= (V530);
3731          V534= (V606);          V530= (V599);
3732          setq(VV[42],(V607));}          setq(VV[48],(V600));}
3733            {object V601;
3734            object V602;
3735            V601= symbol_value(VV[43]);
3736            V602= (V531);
3737            V531= (V601);
3738            setq(VV[43],(V602));}
3739            {object V603;
3740            object V604;
3741            V603= symbol_value(VV[41]);
3742            V604= (V532);
3743            V532= (V603);
3744            setq(VV[41],(V604));}
3745            {object V605;
3746            object V606;
3747            V605= symbol_value(VV[42]);
3748            V606= (V533);
3749            V533= (V605);
3750            setq(VV[42],(V606));}
3751          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3752          {object V608 = list(2,VV[56],(V587));          {object V607 = list(2,VV[56],(V586));
3753          bds_unwind1;          bds_unwind1;
3754          bds_unwind1;          bds_unwind1;
3755          bds_unwind1;          bds_unwind1;
3756          bds_unwind1;          bds_unwind1;
3757          VMR59(V608)}}}          VMR59(V607)}}}
3758          base[0]=base[0];          base[0]=base[0];
3759          return Cnil;          return Cnil;
3760  }  }
3761  /*      local entry for function IN-CAREFULLY-SLOOP-FOR */  /*      local entry for function IN-CAREFULLY-SLOOP-FOR */
3762    
3763  static object LI60(V611,V612)  static object LI60(V610,V611)
3764    
3765  object V611;object V612;  object V610;object V611;
3766  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
3767  goto TTL;  goto TTL;
3768  TTL:;  TTL:;
3769          {register object V613;          {register object V612;
3770          base[0]= VV[228];          base[0]= VV[228];
3771          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3772          Lgensym();          Lgensym();
3773          vs_top=sup;          vs_top=sup;
3774          V613= vs_base[0];          V612= vs_base[0];
3775          base[0]= VV[87];          base[0]= VV[87];
3776          base[1]= (V613);          base[1]= (V612);
3777          base[2]= VV[5];          base[2]= VV[5];
3778          base[3]= VV[87];          base[3]= VV[87];
3779          base[4]= (V611);          base[4]= (V610);
3780          base[5]= VV[97];          base[5]= VV[97];
3781          base[6]= list(3,VV[15],(V613),(V612));          base[6]= list(3,VV[15],(V612),(V611));
3782          base[7]= VV[56];          base[7]= VV[56];
3783          base[8]= list(3,VV[139],(V611),list(2,VV[17],(V613)));          base[8]= list(3,VV[139],(V610),list(2,VV[17],(V612)));
3784          base[9]= VV[90];          base[9]= VV[90];
3785          base[10]= list(3,VV[5],list(2,VV[229],(V613)),VV[230]);          base[10]= list(3,VV[5],list(2,VV[229],(V612)),VV[230]);
3786          base[11]= VV[89];          base[11]= VV[89];
3787          base[12]= list(3,VV[15],(V613),list(2,VV[18],(V613)));          base[12]= list(3,VV[15],(V612),list(2,VV[18],(V612)));
3788          vs_top=(vs_base=base+0)+13;          vs_top=(vs_base=base+0)+13;
3789          Llist();          Llist();
3790          vs_top=sup;          vs_top=sup;
3791          {object V614 = vs_base[0];          {object V613 = vs_base[0];
3792          VMR60(V614)}}          VMR60(V613)}}
3793          base[0]=base[0];          base[0]=base[0];
3794          return Cnil;          return Cnil;
3795  }  }
3796  /*      local entry for function FIRST-USE-SLOOP-FOR    */  /*      local entry for function FIRST-USE-SLOOP-FOR    */
3797    
3798  static object LI61(V619,V620,V621,V622)  static object LI61(V618,V619,V620,V621)
3799    
3800  object V619;object V620;object V621;object V622;  object V618;object V619;object V620;object V621;
3801  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
3802  goto TTL;  goto TTL;
3803  TTL:;{object V623;  TTL:;{object V622;
3804          V623= (*(LnkLI9))((V621),VV[223]);          V622= (*(LnkLI9))((V620),VV[223]);
3805          if(V623==Cnil)goto T1541;          if(V622==Cnil)goto T1536;
3806          goto T1540;          goto T1535;
3807  goto T1541;  goto T1536;
3808  T1541:;}  T1536:;}
3809          base[0]= VV[231];          base[0]= VV[231];
3810          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3811          Lerror();          Lerror();
3812          vs_top=sup;          vs_top=sup;
3813  goto T1540;  goto T1535;
3814  T1540:;  T1535:;
3815          V624= list(3,VV[139],(V619),(V620));          V623= list(3,VV[139],(V618),(V619));
3816          {object V625 = list(6,VV[87],(V619),VV[97],/* INLINE-ARGS */V624,VV[89],list(3,VV[139],(V619),(V622)));          {object V624 = list(6,VV[87],(V618),VV[97],/* INLINE-ARGS */V623,VV[89],list(3,VV[139],(V618),(V621)));
3817          VMR61(V625)}          VMR61(V624)}
3818          base[0]=base[0];          base[0]=base[0];
3819          return Cnil;          return Cnil;
3820  }  }
3821  /*      local entry for function FIRST-SLOOP-FOR        */  /*      local entry for function FIRST-SLOOP-FOR        */
3822    
3823  static object LI62(V630,V631,V632,V633)  static object LI62(V629,V630,V631,V632)
3824    
3825  register object V630;object V631;object V632;object V633;  register object V629;object V630;object V631;object V632;
3826  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
3827  goto TTL;  goto TTL;
3828  TTL:;{object V634;  TTL:;{object V633;
3829          V634= (*(LnkLI9))((V632),VV[223]);          V633= (*(LnkLI9))((V631),VV[223]);
3830          if(V634==Cnil)goto T1545;          if(V633==Cnil)goto T1540;
3831          goto T1544;          goto T1539;
3832  goto T1545;  goto T1540;
3833  T1545:;}  T1540:;}
3834          base[0]= VV[232];          base[0]= VV[232];
3835          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3836          Lerror();          Lerror();
3837          vs_top=sup;          vs_top=sup;
3838    goto T1539;
3839    T1539:;
3840            if((symbol_value(VV[42]))!=Cnil){
3841            goto T1544;}
3842            V634= list(3,VV[139],(V629),(V630));
3843            {object V635 = list(6,VV[87],(V629),VV[97],/* INLINE-ARGS */V634,VV[89],list(3,VV[139],(V629),(V632)));
3844            VMR62(V635)}
3845  goto T1544;  goto T1544;
3846  T1544:;  T1544:;
3847          if((symbol_value(VV[42]))!=Cnil){          {object V636;
         goto T1549;}  
         V635= list(3,VV[139],(V630),(V631));  
         {object V636 = list(6,VV[87],(V630),VV[97],/* INLINE-ARGS */V635,VV[89],list(3,VV[139],(V630),(V633)));  
         VMR62(V636)}  
 goto T1549;  
 T1549:;  
         {object V637;  
3848          vs_base=vs_top;          vs_base=vs_top;
3849          Lgensym();          Lgensym();
3850          vs_top=sup;          vs_top=sup;
3851          V637= vs_base[0];          V636= vs_base[0];
3852          V638= list(2,(V637),list(3,VV[139],(V630),(V633)));          V637= list(2,(V636),list(3,VV[139],(V629),(V632)));
3853          V639= list(3,VV[14],/* INLINE-ARGS */V638,list(2,Ct,list(3,VV[139],(V630),(V631))));          V638= list(3,VV[14],/* INLINE-ARGS */V637,list(2,Ct,list(3,VV[139],(V629),(V630))));
3854          {object V640 = list(8,VV[87],(V630),VV[87],(V637),VV[56],/* INLINE-ARGS */V639,VV[89],list(3,VV[139],(V637),Ct));          {object V639 = list(8,VV[87],(V629),VV[87],(V636),VV[56],/* INLINE-ARGS */V638,VV[89],list(3,VV[139],(V636),Ct));
3855          VMR62(V640)}}          VMR62(V639)}}
3856          base[0]=base[0];          base[0]=base[0];
3857          return Cnil;          return Cnil;
3858  }  }
# Line 3874  static void L63() Line 3862  static void L63()
3862  {register object *base=vs_base;  {register object *base=vs_base;
3863          register object *sup=base+VM63; VC63          register object *sup=base+VM63; VC63
3864          vs_reserve(VM63);          vs_reserve(VM63);
3865          {register object V641;          {register object V640;
3866          object V642;          object V641;
3867          register object V643;          register object V642;
3868          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3869          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
3870          V641=(base[0]);          V640=(base[0]);
3871          V642=(base[1]);          V641=(base[1]);
3872          vs_base=vs_base+2;          vs_base=vs_base+2;
3873          if(vs_base>=vs_top){vs_top=sup;goto T1552;}          if(vs_base>=vs_top){vs_top=sup;goto T1547;}
3874          V643=(base[2]);          V642=(base[2]);
3875          vs_top=sup;          vs_top=sup;
3876          goto T1553;          goto T1548;
3877    goto T1547;
3878    T1547:;
3879            V642= symbol_value(VV[233]);
3880    goto T1548;
3881    T1548:;
3882            {register object V643;
3883            V643= Cnil;
3884            {register object V644;
3885            V644= (V641);
3886  goto T1552;  goto T1552;
3887  T1552:;  T1552:;
3888          V643= symbol_value(VV[233]);          if(((V644))!=Cnil){
3889  goto T1553;          goto T1553;}
3890  T1553:;          base[3]= (V643);
         {register object V644;  
         V644= Cnil;  
         {register object V645;  
         V645= (V642);  
 goto T1557;  
 T1557:;  
         if(((V645))!=Cnil){  
         goto T1558;}  
         base[3]= (V644);  
3891          base[4]= Cnil;          base[4]= Cnil;
3892          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3893          return;          return;
3894  goto T1558;  goto T1553;
3895  T1558:;  T1553:;
3896          if(!(eql(car((V645)),(V641)))){          if(!(eql(car((V644)),(V640)))){
3897          goto T1566;}          goto T1561;}
3898          base[3]= (V645);          base[3]= (V644);
3899          base[4]= Ct;          base[4]= Ct;
3900          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3901          return;          return;
3902  goto T1566;  goto T1561;
3903  T1566:;  T1561:;
3904          base[3]= (V641);          base[3]= (V640);
3905          base[4]= car((V645));          base[4]= car((V644));
3906          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3907          super_funcall_no_event((V643));          super_funcall_no_event((V642));
3908          vs_top=sup;          vs_top=sup;
3909          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3910          goto T1564;}          goto T1559;}
3911          base[3]= (V644);          base[3]= (V643);
3912          base[4]= Cnil;          base[4]= Cnil;
3913          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3914          return;          return;
3915  goto T1564;  goto T1559;
3916  T1564:;  T1559:;
3917          V644= (V645);          V643= (V644);
3918          V645= cdr((V645));          V644= cdr((V644));
3919          goto T1557;}}          goto T1552;}}
3920          }          }
3921  }  }
3922  /*      local entry for function COLLATE-SLOOP-COLLECT  */  /*      local entry for function COLLATE-SLOOP-COLLECT  */
3923    
3924  static object LI64(V648,V649)  static object LI64(V647,V648)
3925    
3926  object V648;object V649;  object V647;object V648;
3927  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
3928  goto TTL;  goto TTL;
3929  TTL:;  TTL:;
3930          V650= list(3,VV[236],(V649),(V648));          V649= list(3,VV[236],(V648),(V647));
3931          V651= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V649),VV[240])));          V650= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V648),VV[240])));
3932          {object V652 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V650,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V651,list(2,Ct,list(3,VV[15],(V648),list(3,VV[119],(V649),(V648))))))));          {object V651 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V649,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V650,list(2,Ct,list(3,VV[15],(V647),list(3,VV[119],(V648),(V647))))))));
3933          VMR64(V652)}          VMR64(V651)}
3934          return Cnil;          return Cnil;
3935  }  }
3936  /*      local entry for function IN-FRINGE-SLOOP-MAP    */  /*      local entry for function IN-FRINGE-SLOOP-MAP    */
3937    
3938  static object LI65(V655,V656)  static object LI65(V654,V655)
3939    
3940  register object V655;object V656;  register object V654;object V655;
3941  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
3942  goto TTL;  goto TTL;
3943  TTL:;  TTL:;
3944          {register object V657;          {register object V656;
3945          vs_base=vs_top;          vs_base=vs_top;
3946          Lgensym();          Lgensym();
3947          vs_top=sup;          vs_top=sup;
3948          V657= vs_base[0];          V656= vs_base[0];
3949          V658= make_cons((V655),Cnil);          V657= make_cons((V654),Cnil);
3950          V659= list(2,(V657),VV[244]);          V658= list(2,(V656),VV[244]);
3951          V660= make_cons(/* INLINE-ARGS */V659,Cnil);          V659= make_cons(/* INLINE-ARGS */V658,Cnil);
3952          V661= list(2,VV[140],(V657));          V660= list(2,VV[140],(V656));
3953          V662= make_cons(/* INLINE-ARGS */V661,Cnil);          V661= make_cons(/* INLINE-ARGS */V660,Cnil);
3954          V663= list(2,VV[229],(V657));          V662= list(2,VV[229],(V656));
3955          V664= list(3,VV[15],(V655),(V657));          V663= list(3,VV[15],(V654),(V656));
3956          V665= list(3,/* INLINE-ARGS */V663,/* INLINE-ARGS */V664,list(3,VV[15],(V657),Cnil));          V664= list(3,/* INLINE-ARGS */V662,/* INLINE-ARGS */V663,list(3,VV[15],(V656),Cnil));
3957          V666= list(3,VV[15],(V655),list(2,VV[17],(V657)));          V665= list(3,VV[15],(V654),list(2,VV[17],(V656)));
3958          V667= list(3,VV[14],/* INLINE-ARGS */V665,list(3,Ct,/* INLINE-ARGS */V666,list(3,VV[15],(V657),list(2,VV[18],(V657)))));          V666= list(3,VV[14],/* INLINE-ARGS */V664,list(3,Ct,/* INLINE-ARGS */V665,list(3,VV[15],(V656),list(2,VV[18],(V656)))));
3959          V668= list(2,VV[140],(V655));          V667= list(2,VV[140],(V654));
3960          V669= make_cons(/* INLINE-ARGS */V668,Cnil);          V668= make_cons(/* INLINE-ARGS */V667,Cnil);
3961          V670= list(2,VV[229],(V655));          V669= list(2,VV[229],(V654));
3962          V671= make_cons(/* INLINE-ARGS */V670,VV[245]);          V670= make_cons(/* INLINE-ARGS */V669,VV[245]);
3963          V672= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V660,/* INLINE-ARGS */V662,/* INLINE-ARGS */V667,list(4,VV[14],/* INLINE-ARGS */V669,/* INLINE-ARGS */V671,list(2,Ct,list(2,VV[242],(V655))))));          V671= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V659,/* INLINE-ARGS */V661,/* INLINE-ARGS */V666,list(4,VV[14],/* INLINE-ARGS */V668,/* INLINE-ARGS */V670,list(2,Ct,list(2,VV[242],(V654))))));
3964          V673= make_cons(/* INLINE-ARGS */V672,Cnil);          V672= make_cons(/* INLINE-ARGS */V671,Cnil);
3965          {object V674 = list(3,VV[12],/* INLINE-ARGS */V658,list(3,VV[241],/* INLINE-ARGS */V673,list(2,VV[242],(V656))));          {object V673 = list(3,VV[12],/* INLINE-ARGS */V657,list(3,VV[241],/* INLINE-ARGS */V672,list(2,VV[242],(V655))));
3966          VMR65(V674)}}          VMR65(V673)}}
3967          base[0]=base[0];          base[0]=base[0];
3968          return Cnil;          return Cnil;
3969  }  }

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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