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; |
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; |
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; |
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:; |
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 |
} |
} |
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 |
} |
} |