2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_restart.h" |
#include "clcs_restart.h" |
4 |
void init_clcs_restart(){do_init(VV);} |
void init_clcs_restart(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2181 */ |
/* function definition for UNIQUE-ID */ |
6 |
|
|
7 |
static object LI1() |
static void L1() |
8 |
|
{register object *base=vs_base; |
9 |
{ VMB1 VMS1 VMV1 |
register object *sup=base+VM1; VC1 |
10 |
goto TTL; |
vs_check; |
11 |
TTL:; |
{object V1; |
12 |
base[0]= VV[0]; |
V1=(base[0]); |
|
vs_top=(vs_base=base+0)+1; |
|
|
(void) (*Lnk69)(); |
|
|
vs_top=sup; |
|
|
{object V1 = Cnil; |
|
|
VMR1(V1)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2193 */ |
|
|
|
|
|
static object LI2() |
|
|
|
|
|
{ VMB2 VMS2 VMV2 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= VV[0]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
Lboundp(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T4;} |
|
|
goto T3; |
|
|
goto T4; |
|
|
T4:; |
|
|
vs_base=vs_top; |
|
|
Lmake_hash_table(); |
|
|
vs_top=sup; |
|
|
setq(VV[0],vs_base[0]); |
|
|
goto T3; |
|
|
T3:; |
|
|
{object V2 = Cnil; |
|
|
VMR2(V2)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2206 */ |
|
|
|
|
|
static object LI3() |
|
|
|
|
|
{ VMB3 VMS3 VMV3 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{object V3 = Cnil; |
|
|
VMR3(V3)} |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2222 */ |
|
|
|
|
|
static object LI4() |
|
|
|
|
|
{ VMB4 VMS4 VMV4 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= VV[1]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
(void) (*Lnk69)(); |
|
|
vs_top=sup; |
|
|
{object V4 = Cnil; |
|
|
VMR4(V4)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2234 */ |
|
|
|
|
|
static object LI5() |
|
|
|
|
|
{ VMB5 VMS5 VMV5 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= VV[1]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
Lboundp(); |
|
13 |
vs_top=sup; |
vs_top=sup; |
|
if((vs_base[0])==Cnil){ |
|
|
goto T12;} |
|
|
goto T11; |
|
|
goto T12; |
|
|
T12:; |
|
|
setq(VV[1],small_fixnum(-1)); |
|
|
goto T11; |
|
|
T11:; |
|
|
{object V5 = Cnil; |
|
|
VMR5(V5)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2247 */ |
|
|
|
|
|
static object LI6() |
|
|
|
|
|
{ VMB6 VMS6 VMV6 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{object V6 = Cnil; |
|
|
VMR6(V6)} |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function UNIQUE-ID */ |
|
|
|
|
|
static object LI7(V8) |
|
|
|
|
|
object V8; |
|
|
{ VMB7 VMS7 VMV7 |
|
14 |
goto TTL; |
goto TTL; |
15 |
TTL:;{object V9; |
TTL:;{object V2; |
16 |
base[0]= (V8); |
base[1]= (V1); |
17 |
base[1]= symbol_value(VV[0]); |
base[2]= (VV[0]->s.s_dbind); |
18 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+1)+2; |
19 |
Lgethash(); |
Lgethash(); |
20 |
vs_top=sup; |
vs_top=sup; |
21 |
V9= vs_base[0]; |
V2= vs_base[0]; |
22 |
if(V9==Cnil)goto T17; |
if(V2==Cnil)goto T1; |
23 |
{object V10 = V9; |
base[1]= V2; |
24 |
VMR7(V10)} |
vs_top=(vs_base=base+1)+1; |
25 |
goto T17; |
return; |
26 |
T17:;} |
goto T1; |
27 |
{object V12; |
T1:;} |
28 |
object V13; |
{object V4; |
29 |
V12= symbol_value(VV[0]); |
object V5; |
30 |
setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1))); |
V4= (VV[0]->s.s_dbind); |
31 |
V13= symbol_value(VV[1]); |
(VV[1]->s.s_dbind)= number_plus((VV[1]->s.s_dbind),small_fixnum(1)); |
32 |
base[1]= V8; |
V5= (VV[1]->s.s_dbind); |
33 |
base[2]= (V12); |
base[2]= V1; |
34 |
base[3]= (V13); |
base[3]= (V4); |
35 |
vs_top=(vs_base=base+1)+3; |
base[4]= (V5); |
36 |
|
vs_top=(vs_base=base+2)+3; |
37 |
siLhash_set(); |
siLhash_set(); |
38 |
vs_top=sup; |
return;} |
39 |
{object V14 = vs_base[0]; |
} |
|
VMR7(V14)}} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
40 |
} |
} |
41 |
/* function definition for PARSE-KEYWORD-PAIRS */ |
/* function definition for PARSE-KEYWORD-PAIRS */ |
42 |
|
|
43 |
static void L8() |
static void L2() |
44 |
{register object *base=vs_base; |
{register object *base=vs_base; |
45 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM2; VC2 |
46 |
vs_reserve(VM8); |
vs_check; |
47 |
{object V15; |
{object V6; |
48 |
register object V16; |
register object V7; |
49 |
check_arg(2); |
V6=(base[0]); |
50 |
V15=(base[0]); |
V7=(base[1]); |
|
V16=(base[1]); |
|
51 |
vs_top=sup; |
vs_top=sup; |
52 |
goto TTL; |
goto TTL; |
53 |
TTL:; |
TTL:; |
54 |
{register object V17; |
{register object V8; |
55 |
register object V18; |
register object V9; |
56 |
V17= (V15); |
V8= (V6); |
57 |
V18= Cnil; |
V9= Cnil; |
58 |
goto T28; |
goto T12; |
59 |
T28:; |
T12:; |
60 |
if(((V17))==Cnil){ |
if(((V8))==Cnil){ |
61 |
goto T30;} |
goto T14;} |
62 |
{register object x= car((V17)),V19= (V16); |
{register object x= CMPcar((V8)),V10= (V7); |
63 |
while(!endp(V19)) |
while(V10!=Cnil) |
64 |
if(eql(x,V19->c.c_car)){ |
if(eql(x,V10->c.c_car)){ |
65 |
goto T29; |
goto T13; |
66 |
}else V19=V19->c.c_cdr;} |
}else V10=V10->c.c_cdr;} |
67 |
goto T30; |
goto T14; |
68 |
T30:; |
T14:; |
69 |
base[2]= nreverse((V18)); |
base[2]= nreverse((V9)); |
70 |
base[3]= (V17); |
base[3]= (V8); |
71 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
72 |
return; |
return; |
73 |
goto T29; |
goto T13; |
74 |
T29:; |
T13:; |
75 |
{object V20; |
{object V11; |
76 |
V20= cddr((V17)); |
V11= CMPcddr((V8)); |
77 |
V18= listA(3,cadr((V17)),car((V17)),(V18)); |
V9= listA(3,CMPcadr((V8)),CMPcar((V8)),(V9)); |
78 |
V17= (V20);} |
V8= (V11);} |
79 |
goto T28;} |
goto T12;} |
80 |
} |
} |
81 |
} |
} |
82 |
/* macro definition for WITH-KEYWORD-PAIRS */ |
/* macro definition for WITH-KEYWORD-PAIRS */ |
83 |
|
|
84 |
static void L9() |
static void L3() |
85 |
{register object *base=vs_base; |
{register object *base=vs_base; |
86 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM3; VC3 |
87 |
vs_reserve(VM9); |
vs_check; |
|
check_arg(2); |
|
88 |
vs_top=sup; |
vs_top=sup; |
89 |
{object V21=base[0]->c.c_cdr; |
{object V12=base[0]->c.c_cdr; |
90 |
if(endp(V21))invalid_macro_call(); |
{object V13= (V12->c.c_car); |
91 |
{object V22= (V21->c.c_car); |
base[2]= (V13->c.c_car); |
92 |
if(endp(V22))invalid_macro_call(); |
V13=V13->c.c_cdr; |
93 |
base[2]= (V22->c.c_car); |
base[3]= (V13->c.c_car); |
94 |
V22=V22->c.c_cdr; |
V13=V13->c.c_cdr; |
95 |
if(endp(V22))invalid_macro_call(); |
if(endp(V13)){ |
|
base[3]= (V22->c.c_car); |
|
|
V22=V22->c.c_cdr; |
|
|
if(endp(V22)){ |
|
96 |
base[4]= Cnil; |
base[4]= Cnil; |
97 |
} else { |
} else { |
98 |
base[4]= (V22->c.c_car); |
base[4]= (V13->c.c_car);}} |
99 |
V22=V22->c.c_cdr;} |
V12=V12->c.c_cdr; |
100 |
if(!endp(V22))invalid_macro_call();} |
base[5]= V12;} |
101 |
V21=V21->c.c_cdr; |
{register object V14; |
102 |
base[5]= V21;} |
{register object x= VV[2],V15= base[2]; |
103 |
{register object V23; |
while(V15!=Cnil) |
104 |
{register object x= VV[2],V24= base[2]; |
if(eql(x,V15->c.c_car)){ |
105 |
while(!endp(V24)) |
V14= V15; |
106 |
if(eql(x,V24->c.c_car)){ |
goto T26; |
107 |
V23= V24; |
}else V15=V15->c.c_cdr; |
108 |
goto T42; |
V14= Cnil;} |
109 |
}else V24=V24->c.c_cdr; |
goto T26; |
110 |
V23= Cnil;} |
T26:; |
111 |
goto T42; |
if(((long)length((V14)))==(2)){ |
112 |
T42:; |
goto T27;} |
|
if(((long)length((V23)))==(2)){ |
|
|
goto T43;} |
|
113 |
base[6]= VV[3]; |
base[6]= VV[3]; |
114 |
base[7]= (V23); |
base[7]= (V14); |
115 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
116 |
(void) (*Lnk70)(); |
(void) (*Lnk63)(); |
117 |
vs_top=sup; |
vs_top=sup; |
118 |
goto T43; |
goto T27; |
119 |
T43:; |
T27:; |
120 |
{object V25; |
{object V16; |
121 |
object V26; |
object V17; |
122 |
object V27; |
object V18; |
123 |
base[6]= base[2]; |
base[6]= base[2]; |
124 |
base[7]= (V23); |
base[7]= (V14); |
125 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
126 |
Lldiff(); |
Lldiff(); |
127 |
vs_top=sup; |
vs_top=sup; |
128 |
V25= vs_base[0]; |
V16= vs_base[0]; |
129 |
if(base[4]!=Cnil){ |
if(base[4]!=Cnil){ |
130 |
V26= base[4]; |
V17= base[4]; |
131 |
goto T51;} |
goto T35;} |
132 |
vs_base=vs_top; |
vs_base=vs_top; |
133 |
Lgensym(); |
Lgensym(); |
134 |
vs_top=sup; |
vs_top=sup; |
135 |
V26= vs_base[0]; |
V17= vs_base[0]; |
136 |
goto T51; |
goto T35; |
137 |
T51:; |
T35:; |
138 |
V27= cadr((V23)); |
V18= CMPcadr((V14)); |
139 |
{object V28; |
{object V19; |
140 |
{object V29; |
{object V20; |
141 |
object V30= (V25); |
object V21= (V16); |
142 |
if(endp(V30)){ |
if(V21==Cnil){ |
143 |
V28= Cnil; |
V19= Cnil; |
144 |
goto T53;} |
goto T37;} |
145 |
base[6]=V29=MMcons(Cnil,Cnil); |
base[6]=V20=MMcons(Cnil,Cnil); |
146 |
goto T54; |
goto T38; |
147 |
T54:; |
T38:; |
148 |
base[7]= coerce_to_string((V30->c.c_car)); |
base[7]= coerce_to_string((V21->c.c_car)); |
149 |
base[9]= VV[4]; |
base[9]= VV[4]; |
150 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
151 |
Lfind_package(); |
Lfind_package(); |
154 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
155 |
Lintern(); |
Lintern(); |
156 |
vs_top=sup; |
vs_top=sup; |
157 |
(V29->c.c_car)= vs_base[0]; |
(V20->c.c_car)= vs_base[0]; |
158 |
V30=MMcdr(V30); |
if((V21=MMcdr(V21))==Cnil){ |
159 |
if(endp(V30)){ |
V19= base[6]; |
160 |
V28= base[6]; |
goto T37;} |
161 |
goto T53;} |
V20=MMcdr(V20)=MMcons(Cnil,Cnil); |
162 |
V29=MMcdr(V29)=MMcons(Cnil,Cnil); |
goto T38;} |
163 |
goto T54;} |
goto T37; |
164 |
goto T53; |
T37:; |
165 |
T53:; |
V23= list(2,(V17),(V18)); |
166 |
V32= list(2,(V26),(V27)); |
V24= list(3,VV[6],base[3],list(2,VV[7],(V19))); |
167 |
V33= list(3,VV[6],base[3],list(2,VV[7],(V28))); |
{object V26; |
168 |
{object V35; |
object V27= (V16); |
169 |
object V36= (V25); |
object V28= (V19); |
170 |
object V37= (V28); |
if(V27==Cnil||V28==Cnil){ |
171 |
if(endp(V36)||endp(V37)){ |
V25= Cnil; |
172 |
V34= Cnil; |
goto T43;} |
173 |
goto T59;} |
base[6]=V26=MMcons(Cnil,Cnil); |
174 |
base[6]=V35=MMcons(Cnil,Cnil); |
goto T44; |
175 |
goto T60; |
T44:; |
176 |
T60:; |
(V26->c.c_car)= list(2,(V27->c.c_car),list(3,VV[9],(V17),(V28->c.c_car))); |
177 |
(V35->c.c_car)= list(2,(V36->c.c_car),list(3,VV[9],(V26),(V37->c.c_car))); |
if((V27=MMcdr(V27))==Cnil||(V28=MMcdr(V28))==Cnil){ |
178 |
V36=MMcdr(V36); |
V25= base[6]; |
179 |
V37=MMcdr(V37); |
goto T43;} |
180 |
if(endp(V36)||endp(V37)){ |
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
181 |
V34= base[6]; |
goto T44;} |
182 |
goto T59;} |
goto T43; |
183 |
V35=MMcdr(V35)=MMcons(Cnil,Cnil); |
T43:; |
184 |
goto T60;} |
base[6]= list(4,VV[5],/* INLINE-ARGS */V23,/* INLINE-ARGS */V24,listA(3,VV[8],V25,base[5])); |
|
goto T59; |
|
|
T59:; |
|
|
base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,base[5])); |
|
185 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
186 |
return;}}} |
return;}}} |
187 |
} |
} |
188 |
/* local entry for function progn 'compile2348 */ |
/* function definition for COMPUTE-RESTARTS */ |
189 |
|
|
190 |
static object LI10() |
static void L4() |
191 |
|
{register object *base=vs_base; |
192 |
{ VMB10 VMS10 VMV10 |
register object *sup=base+VM4; VC4 |
193 |
goto TTL; |
vs_check; |
194 |
TTL:; |
{object V31; |
195 |
base[0]= VV[10]; |
if(vs_base>=vs_top){vs_top=sup;goto T46;} |
196 |
vs_top=(vs_base=base+0)+1; |
V31=(base[0]); |
197 |
(void) (*Lnk69)(); |
vs_top=sup; |
198 |
vs_top=sup; |
goto T47; |
199 |
{object V40 = Cnil; |
goto T46; |
200 |
VMR10(V40)} |
T46:; |
201 |
base[0]=base[0]; |
V31= Cnil; |
202 |
return Cnil; |
goto T47; |
203 |
} |
T47:; |
204 |
/* local entry for function progn 'compile2360 */ |
base[2]= (VV[10]->s.s_dbind); |
205 |
|
{object V33; |
206 |
static object LI11() |
object V34= base[2]; |
207 |
|
if(V34==Cnil){ |
208 |
{ VMB11 VMS11 VMV11 |
V32= Cnil; |
209 |
goto TTL; |
goto T49;} |
210 |
TTL:; |
base[1]=V33=MMcons(Cnil,Cnil); |
211 |
base[0]= VV[10]; |
goto T50; |
212 |
vs_top=(vs_base=base+0)+1; |
T50:; |
213 |
Lboundp(); |
base[3]= (V34->c.c_car); |
214 |
vs_top=sup; |
vs_top=(vs_base=base+3)+1; |
|
if((vs_base[0])==Cnil){ |
|
|
goto T65;} |
|
|
goto T64; |
|
|
goto T65; |
|
|
T65:; |
|
|
setq(VV[10],Cnil); |
|
|
goto T64; |
|
|
T64:; |
|
|
{object V41 = Cnil; |
|
|
VMR11(V41)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2373 */ |
|
|
|
|
|
static object LI12() |
|
|
|
|
|
{ VMB12 VMS12 VMV12 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{object V42 = Cnil; |
|
|
VMR12(V42)} |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function COMPUTE-RESTARTS */ |
|
|
|
|
|
static object LI13(object first,...) |
|
|
{ |
|
|
va_list ap; |
|
|
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
|
|
{object V43; |
|
|
va_start(ap,first); |
|
|
narg = narg - 0; |
|
|
if (narg <= 0) goto T70; |
|
|
else { |
|
|
V43= first;} |
|
|
--narg; goto T71; |
|
|
goto T70; |
|
|
T70:; |
|
|
V43= Cnil; |
|
|
goto T71; |
|
|
T71:; |
|
|
base[1]= symbol_value(VV[10]); |
|
|
{object V45; |
|
|
object V46= base[1]; |
|
|
if(endp(V46)){ |
|
|
V44= Cnil; |
|
|
goto T73;} |
|
|
base[0]=V45=MMcons(Cnil,Cnil); |
|
|
goto T74; |
|
|
T74:; |
|
|
base[2]= (V46->c.c_car); |
|
|
vs_top=(vs_base=base+2)+1; |
|
215 |
Lcopy_list(); |
Lcopy_list(); |
216 |
vs_top=sup; |
vs_top=sup; |
217 |
(V45->c.c_cdr)= vs_base[0]; |
(V33->c.c_cdr)= vs_base[0]; |
218 |
{object cdr_V45=MMcdr(V45);while(!endp(cdr_V45)) {cdr_V45=MMcdr(cdr_V45);V45=MMcdr(V45);}} |
while(MMcdr(V33)!=Cnil)V33=MMcdr(V33); |
219 |
V46=MMcdr(V46); |
if((V34=MMcdr(V34))==Cnil){ |
220 |
if(endp(V46)){ |
base[1]=base[1]->c.c_cdr; |
221 |
base[0]=base[0]->c.c_cdr; |
V32= base[1]; |
222 |
V44= base[0]; |
goto T49;} |
223 |
goto T73;} |
goto T50;} |
224 |
goto T74;} |
goto T49; |
225 |
goto T73; |
T49:; |
226 |
T73:; |
vs_base=vs_top; |
227 |
V47= (*(LnkLI71))(); |
(void) (*Lnk64)(); |
228 |
{object V48 = nconc(V44,/* INLINE-ARGS */V47); |
vs_top=sup; |
229 |
VMR13(V48)} |
V35= vs_base[0]; |
230 |
va_end(ap); |
base[1]= nconc(V32,V35); |
231 |
base[0]=base[0]; |
vs_top=(vs_base=base+1)+1; |
232 |
return Cnil;} |
return; |
233 |
} |
} |
234 |
|
} |
235 |
/* function definition for RESTART-PRINT */ |
/* function definition for RESTART-PRINT */ |
236 |
|
|
237 |
static void L14() |
static void L5() |
238 |
{register object *base=vs_base; |
{register object *base=vs_base; |
239 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM5; VC5 |
240 |
vs_reserve(VM14); |
vs_check; |
241 |
{object V49; |
{object V36; |
242 |
object V50; |
object V37; |
243 |
object V51; |
object V38; |
244 |
check_arg(3); |
V36=(base[0]); |
245 |
V49=(base[0]); |
V37=(base[1]); |
246 |
V50=(base[1]); |
V38=(base[2]); |
|
V51=(base[2]); |
|
247 |
vs_top=sup; |
vs_top=sup; |
248 |
goto TTL; |
goto TTL; |
249 |
TTL:; |
TTL:; |
250 |
if((symbol_value(VV[11]))==Cnil){ |
if(((VV[11]->s.s_dbind))==Cnil){ |
251 |
goto T78;} |
goto T55;} |
252 |
base[3]= (V50); |
base[3]= (V37); |
253 |
base[4]= VV[12]; |
base[4]= VV[12]; |
254 |
base[6]= (V49); |
base[6]= (V36); |
255 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
256 |
Ltype_of(); |
Ltype_of(); |
257 |
vs_top=sup; |
vs_top=sup; |
258 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
259 |
base[6]= (*(LnkLI72))((V49)); |
base[7]= (V36); |
260 |
|
vs_top=(vs_base=base+7)+1; |
261 |
|
(void) (*Lnk65)(); |
262 |
|
vs_top=sup; |
263 |
|
base[6]= vs_base[0]; |
264 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
265 |
Lformat(); |
Lformat(); |
266 |
return; |
return; |
267 |
goto T78; |
goto T55; |
268 |
T78:; |
T55:; |
269 |
base[3]= (V49); |
base[3]= (V36); |
270 |
base[4]= (V50); |
base[4]= (V37); |
271 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
272 |
(void) (*Lnk73)(); |
(void) (*Lnk66)(); |
273 |
return; |
return; |
274 |
} |
} |
275 |
} |
} |
276 |
/* local entry for function progn 'compile2413 */ |
/* function definition for MAKE-RESTART */ |
|
|
|
|
static object LI15() |
|
277 |
|
|
278 |
{ VMB15 VMS15 VMV15 |
static void L6() |
279 |
goto TTL; |
{register object *base=vs_base; |
280 |
TTL:; |
register object *sup=base+VM6; VC6 |
281 |
base[0]= VV[13]; |
vs_check; |
282 |
base[1]= VV[14]; |
{object V39; |
283 |
base[2]= Cnil; |
object V40; |
284 |
base[3]= Cnil; |
object V41; |
285 |
base[4]= Cnil; |
object V42; |
286 |
base[5]= VV[15]; |
parse_key(vs_base,FALSE,FALSE,4,VV[14],VV[16],VV[17],VV[27]); |
287 |
base[6]= VV[16]; |
vs_top=sup; |
288 |
base[7]= Cnil; |
V39=(base[0]); |
289 |
base[8]= Cnil; |
V40=(base[1]); |
290 |
base[9]= VV[17]; |
V41=(base[2]); |
291 |
base[10]= VV[18]; |
V42=(base[3]); |
292 |
base[11]= small_fixnum(4); |
base[8]= VV[13]; |
293 |
base[12]= VV[19]; |
base[9]= (V39); |
294 |
base[13]= Cnil; |
base[10]= (V40); |
295 |
vs_top=(vs_base=base+0)+14; |
base[11]= (V41); |
296 |
(void) (*Lnk74)(); |
base[12]= (V42); |
297 |
vs_top=sup; |
vs_top=(vs_base=base+8)+5; |
|
{object V52 = Cnil; |
|
|
VMR15(V52)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function MAKE-RESTART */ |
|
|
|
|
|
static object LI16(object first,...) |
|
|
{ |
|
|
va_list ap; |
|
|
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
|
|
{object V53; |
|
|
object V54; |
|
|
object V55; |
|
|
object V56; |
|
|
va_start(ap,first); |
|
|
narg= narg - 0; |
|
|
{ |
|
|
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI16key,first,ap); |
|
|
V53=(Vcs[0]); |
|
|
V54=(Vcs[1]); |
|
|
V55=(Vcs[2]); |
|
|
V56=(Vcs[3]); |
|
|
base[0]= VV[13]; |
|
|
base[1]= (V53); |
|
|
base[2]= (V54); |
|
|
base[3]= (V55); |
|
|
base[4]= (V56); |
|
|
vs_top=(vs_base=base+0)+5; |
|
298 |
siLmake_structure(); |
siLmake_structure(); |
299 |
vs_top=sup; |
return; |
300 |
{object V57 = vs_base[0]; |
} |
|
VMR16(V57)} |
|
|
va_end(ap); |
|
|
base[0]=base[0]; |
|
|
return Cnil;} |
|
|
}} |
|
|
/* local entry for function progn 'compile2433 */ |
|
|
|
|
|
static object LI17() |
|
|
|
|
|
{ VMB17 VMS17 VMV17 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{object V58 = Cnil; |
|
|
VMR17(V58)} |
|
|
return Cnil; |
|
301 |
} |
} |
302 |
/* local entry for function progn 'compile2449 */ |
/* function definition for MAKE-KCL-TOP-RESTART */ |
|
|
|
|
static object LI18() |
|
303 |
|
|
304 |
{ VMB18 VMS18 VMV18 |
static void L7() |
305 |
goto TTL; |
{register object *base=vs_base; |
306 |
TTL:; |
register object *sup=base+VM7; VC7 |
307 |
base[0]= VV[20]; |
vs_check; |
308 |
vs_top=(vs_base=base+0)+1; |
base[0]=MMcons(base[0],Cnil); |
|
(void) (*Lnk69)(); |
|
309 |
vs_top=sup; |
vs_top=sup; |
310 |
{object V59 = Cnil; |
base[1]= VV[14]; |
311 |
VMR18(V59)} |
base[2]= VV[15]; |
312 |
base[0]=base[0]; |
base[3]= VV[16]; |
313 |
return Cnil; |
base[4]= |
314 |
|
make_cclosure_new(LC23,Cnil,base[0],Cdata); |
315 |
|
base[5]= VV[17]; |
316 |
|
base[6]= |
317 |
|
make_cclosure_new(LC24,Cnil,base[0],Cdata); |
318 |
|
base[7]= VV[27]; |
319 |
|
base[8]= Cnil; |
320 |
|
vs_top=(vs_base=base+1)+8; |
321 |
|
(void) (*Lnk33)(); |
322 |
|
return; |
323 |
} |
} |
324 |
/* local entry for function progn 'compile2461 */ |
/* function definition for FIND-KCL-TOP-RESTART */ |
325 |
|
|
326 |
static object LI19() |
static void L8() |
327 |
|
{register object *base=vs_base; |
328 |
{ VMB19 VMS19 VMV19 |
register object *sup=base+VM8; VC8 |
329 |
goto TTL; |
vs_check; |
330 |
TTL:; |
{object V43; |
331 |
base[0]= VV[20]; |
V43=(base[0]); |
|
vs_top=(vs_base=base+0)+1; |
|
|
Lboundp(); |
|
332 |
vs_top=sup; |
vs_top=sup; |
|
if((vs_base[0])==Cnil){ |
|
|
goto T111;} |
|
|
goto T110; |
|
|
goto T111; |
|
|
T111:; |
|
|
setq(VV[20],Cnil); |
|
|
goto T110; |
|
|
T110:; |
|
|
{object V60 = Cnil; |
|
|
VMR19(V60)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2474 */ |
|
|
|
|
|
static object LI20() |
|
|
|
|
|
{ VMB20 VMS20 VMV20 |
|
333 |
goto TTL; |
goto TTL; |
334 |
TTL:; |
TTL:;{object V45; |
335 |
{object V61 = Cnil; |
{register object x= (V43),V46= (VV[28]->s.s_dbind); |
336 |
VMR20(V61)} |
while(V46!=Cnil) |
337 |
return Cnil; |
if(eql(x,V46->c.c_car->c.c_car) &&V46->c.c_car != Cnil){ |
338 |
} |
V45= (V46->c.c_car); |
339 |
/* local entry for function MAKE-KCL-TOP-RESTART */ |
goto T80; |
340 |
|
}else V46=V46->c.c_cdr; |
341 |
static object LI22(V63) |
V45= Cnil;} |
342 |
|
goto T80; |
343 |
object V63; |
T80:; |
344 |
{ VMB21 VMS21 VMV21 |
if(V45==Cnil)goto T79; |
345 |
goto TTL; |
V44= V45; |
346 |
TTL:; |
goto T78; |
347 |
base[0]=MMcons((V63),Cnil); |
goto T79; |
348 |
V64= |
T79:;} |
349 |
make_cclosure_new(LC38,Cnil,base[0],Cdata); |
{object V48; |
350 |
V65= |
base[2]= (V43); |
351 |
make_cclosure_new(LC39,Cnil,base[0],Cdata); |
vs_top=(vs_base=base+2)+1; |
352 |
{object V66 = (VFUN_NARGS=8,(*(LnkLI39))(VV[21],VV[22],VV[23],V64,VV[24],V65,VV[34],Cnil)); |
(void) (*Lnk67)(); |
353 |
VMR21(V66)} |
vs_top=sup; |
354 |
base[0]=base[0]; |
V49= vs_base[0]; |
355 |
return Cnil; |
V48= make_cons((V43),V49); |
356 |
} |
(VV[28]->s.s_dbind)= make_cons((V48),(VV[28]->s.s_dbind)); |
357 |
/* local entry for function FIND-KCL-TOP-RESTART */ |
V47= (VV[28]->s.s_dbind);} |
358 |
|
V44= CMPcar(V47); |
359 |
static object LI23(V68) |
goto T78; |
360 |
|
T78:; |
361 |
object V68; |
base[1]= CMPcdr(V44); |
362 |
{ VMB22 VMS22 VMV22 |
vs_top=(vs_base=base+1)+1; |
363 |
goto TTL; |
return; |
364 |
TTL:;{object V70; |
} |
|
{register object x= (V68),V71= symbol_value(VV[20]); |
|
|
while(!endp(V71)) |
|
|
if(type_of(V71->c.c_car)==t_cons &&eql(x,V71->c.c_car->c.c_car)){ |
|
|
V70= (V71->c.c_car); |
|
|
goto T120; |
|
|
}else V71=V71->c.c_cdr; |
|
|
V70= Cnil;} |
|
|
goto T120; |
|
|
T120:; |
|
|
if(V70==Cnil)goto T119; |
|
|
V69= V70; |
|
|
goto T118; |
|
|
goto T119; |
|
|
T119:;} |
|
|
{object V73; |
|
|
V74= (*(LnkLI75))((V68)); |
|
|
V73= make_cons((V68),/* INLINE-ARGS */V74); |
|
|
setq(VV[20],make_cons((V73),symbol_value(VV[20]))); |
|
|
V72= symbol_value(VV[20]);} |
|
|
V69= car(V72); |
|
|
goto T118; |
|
|
T118:; |
|
|
{object V75 = cdr(V69); |
|
|
VMR22(V75)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
365 |
} |
} |
366 |
/* local entry for function KCL-TOP-RESTARTS */ |
/* function definition for KCL-TOP-RESTARTS */ |
|
|
|
|
static object LI24() |
|
367 |
|
|
368 |
{ VMB23 VMS23 VMV23 |
static void L9() |
369 |
|
{register object *base=vs_base; |
370 |
|
register object *sup=base+VM9; VC9 |
371 |
|
vs_check; |
372 |
|
vs_top=sup; |
373 |
goto TTL; |
goto TTL; |
374 |
TTL:; |
TTL:; |
375 |
{object V76; |
{object V50; |
376 |
object V77; |
object V51; |
377 |
object V78; |
object V52; |
378 |
base[4]= symbol_value(VV[27]); |
base[4]= (VV[20]->s.s_dbind); |
379 |
{object V79; |
{object V53; |
380 |
object V80= base[4]; |
object V54= base[4]; |
381 |
if(endp(V80)){ |
if(V54==Cnil){ |
382 |
V76= Cnil; |
V50= Cnil; |
383 |
goto T124;} |
goto T86;} |
384 |
base[3]=V79=MMcons(Cnil,Cnil); |
base[3]=V53=MMcons(Cnil,Cnil); |
385 |
goto T125; |
goto T87; |
386 |
T125:; |
T87:; |
387 |
if((cdr((V80->c.c_car)))==Cnil){ |
if((CMPcdr((V54->c.c_car)))==Cnil){ |
388 |
goto T128;} |
goto T90;} |
389 |
(V79->c.c_cdr)= make_cons(cdr((V80->c.c_car)),Cnil); |
(V53->c.c_cdr)= make_cons(CMPcdr((V54->c.c_car)),Cnil); |
390 |
goto T126; |
goto T88; |
391 |
goto T128; |
goto T90; |
392 |
T128:; |
T90:; |
393 |
(V79->c.c_cdr)= Cnil; |
(V53->c.c_cdr)= Cnil; |
394 |
goto T126; |
goto T88; |
395 |
T126:; |
T88:; |
396 |
{object cdr_V79=MMcdr(V79);while(!endp(cdr_V79)) {cdr_V79=MMcdr(cdr_V79);V79=MMcdr(V79);}} |
while(MMcdr(V53)!=Cnil)V53=MMcdr(V53); |
397 |
V80=MMcdr(V80); |
if((V54=MMcdr(V54))==Cnil){ |
|
if(endp(V80)){ |
|
398 |
base[3]=base[3]->c.c_cdr; |
base[3]=base[3]->c.c_cdr; |
399 |
V76= base[3]; |
V50= base[3]; |
400 |
goto T124;} |
goto T86;} |
401 |
goto T125;} |
goto T87;} |
402 |
goto T124; |
goto T86; |
403 |
T124:; |
T86:; |
404 |
if((symbol_value(VV[25]))==Cnil){ |
if(((VV[18]->s.s_dbind))==Cnil){ |
405 |
goto T132;} |
goto T94;} |
406 |
V77= make_cons(symbol_value(VV[25]),(V76)); |
V51= make_cons((VV[18]->s.s_dbind),(V50)); |
407 |
goto T130; |
goto T92; |
408 |
goto T132; |
goto T94; |
409 |
T132:; |
T94:; |
410 |
V77= (V76); |
V51= (V50); |
411 |
goto T130; |
goto T92; |
412 |
T130:; |
T92:; |
413 |
{object V82; |
{object V56; |
414 |
object V83= (V77); |
object V57= (V51); |
415 |
if(endp(V83)){ |
if(V57==Cnil){ |
416 |
V78= Cnil; |
V52= Cnil; |
417 |
goto T134;} |
goto T96;} |
418 |
base[3]=V82=MMcons(Cnil,Cnil); |
base[3]=V56=MMcons(Cnil,Cnil); |
419 |
goto T135; |
goto T97; |
420 |
T135:; |
T97:; |
421 |
(V82->c.c_car)= (*(LnkLI76))((V83->c.c_car)); |
base[4]= (V57->c.c_car); |
422 |
V83=MMcdr(V83); |
vs_top=(vs_base=base+4)+1; |
423 |
if(endp(V83)){ |
(void) (*Lnk68)(); |
424 |
V78= base[3]; |
vs_top=sup; |
425 |
goto T134;} |
(V56->c.c_car)= vs_base[0]; |
426 |
V82=MMcdr(V82)=MMcons(Cnil,Cnil); |
if((V57=MMcdr(V57))==Cnil){ |
427 |
goto T135;} |
V52= base[3]; |
428 |
goto T134; |
goto T96;} |
429 |
T134:; |
V56=MMcdr(V56)=MMcons(Cnil,Cnil); |
430 |
{object V84; |
goto T97;} |
431 |
object V85= (V77); |
goto T96; |
432 |
object V86= (V78); |
T96:; |
433 |
if(endp(V85)||endp(V86)){ |
{object V58; |
434 |
setq(VV[20],Cnil); |
object V59= (V51); |
435 |
goto T138;} |
object V60= (V52); |
436 |
base[3]=V84=MMcons(Cnil,Cnil); |
if(V59==Cnil||V60==Cnil){ |
437 |
goto T139; |
(VV[28]->s.s_dbind)= Cnil; |
438 |
T139:; |
goto T101;} |
439 |
(V84->c.c_car)= make_cons((V85->c.c_car),(V86->c.c_car)); |
base[3]=V58=MMcons(Cnil,Cnil); |
440 |
V85=MMcdr(V85); |
goto T102; |
441 |
V86=MMcdr(V86); |
T102:; |
442 |
if(endp(V85)||endp(V86)){ |
(V58->c.c_car)= make_cons((V59->c.c_car),(V60->c.c_car)); |
443 |
setq(VV[20],base[3]); |
if((V59=MMcdr(V59))==Cnil||(V60=MMcdr(V60))==Cnil){ |
444 |
goto T138;} |
(VV[28]->s.s_dbind)= base[3]; |
445 |
V84=MMcdr(V84)=MMcons(Cnil,Cnil); |
goto T101;} |
446 |
goto T139;} |
V58=MMcdr(V58)=MMcons(Cnil,Cnil); |
447 |
goto T138; |
goto T102;} |
448 |
T138:; |
goto T101; |
449 |
{object V87 = (V78); |
T101:; |
450 |
VMR23(V87)}} |
base[3]= (V52); |
451 |
base[0]=base[0]; |
vs_top=(vs_base=base+3)+1; |
452 |
return Cnil; |
return;} |
453 |
} |
} |
454 |
/* function definition for RESTART-REPORT */ |
/* function definition for RESTART-REPORT */ |
455 |
|
|
456 |
static void L25() |
static void L10() |
457 |
{register object *base=vs_base; |
{register object *base=vs_base; |
458 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM10; VC10 |
459 |
vs_reserve(VM24); |
vs_check; |
460 |
{object V88; |
{object V61; |
|
check_arg(2); |
|
461 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
462 |
V88=(base[1]); |
V61=(base[1]); |
463 |
vs_top=sup; |
vs_top=sup; |
464 |
{object V89; |
{object V62; |
465 |
V89= structure_ref((base[0]->c.c_car),VV[13],2); |
V62= STREF(object,(base[0]->c.c_car),8); |
466 |
if(((V89))==Cnil){ |
if(((V62))==Cnil){ |
467 |
goto T144;} |
goto T107;} |
468 |
base[2]= (V89); |
base[2]= (V62); |
469 |
goto T141; |
goto T104; |
470 |
goto T144; |
goto T107; |
471 |
T144:; |
T107:; |
472 |
base[3]= structure_ref((base[0]->c.c_car),VV[13],0); |
base[3]= STREF(object,(base[0]->c.c_car),0); |
473 |
base[3]=MMcons(base[3],base[0]); |
base[3]=MMcons(base[3],base[0]); |
474 |
base[2]= |
base[2]= |
475 |
make_cclosure_new(LC40,Cnil,base[3],Cdata);} |
make_cclosure_new(LC25,Cnil,base[3],Cdata);} |
476 |
goto T141; |
goto T104; |
477 |
T141:; |
T104:; |
478 |
base[3]= (V88); |
base[3]= (V61); |
479 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
480 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
481 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
486 |
} |
} |
487 |
/* macro definition for RESTART-BIND */ |
/* macro definition for RESTART-BIND */ |
488 |
|
|
489 |
static void L26() |
static void L11() |
490 |
{register object *base=vs_base; |
{register object *base=vs_base; |
491 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM11; VC11 |
492 |
vs_reserve(VM25); |
vs_check; |
|
check_arg(2); |
|
493 |
vs_top=sup; |
vs_top=sup; |
494 |
{object V90=base[0]->c.c_cdr; |
{object V63=base[0]->c.c_cdr; |
495 |
if(endp(V90))invalid_macro_call(); |
base[2]= (V63->c.c_car); |
496 |
base[2]= (V90->c.c_car); |
V63=V63->c.c_cdr; |
497 |
V90=V90->c.c_cdr; |
base[3]= V63;} |
498 |
base[3]= V90;} |
{object V65; |
499 |
{object V92; |
object V66= base[2]; |
500 |
object V93= base[2]; |
if(V66==Cnil){ |
501 |
if(endp(V93)){ |
V64= Cnil; |
502 |
V91= Cnil; |
goto T111;} |
503 |
goto T148;} |
base[4]=V65=MMcons(Cnil,Cnil); |
504 |
base[4]=V92=MMcons(Cnil,Cnil); |
goto T112; |
505 |
goto T149; |
T112:; |
506 |
T149:; |
(V65->c.c_car)= listA(6,VV[33],VV[14],list(2,VV[7],CMPcar((V66->c.c_car))),VV[16],CMPcadr((V66->c.c_car)),CMPcddr((V66->c.c_car))); |
507 |
(V92->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],car((V93->c.c_car))),VV[23],cadr((V93->c.c_car)),cddr((V93->c.c_car))); |
if((V66=MMcdr(V66))==Cnil){ |
508 |
V93=MMcdr(V93); |
V64= base[4]; |
509 |
if(endp(V93)){ |
goto T111;} |
510 |
V91= base[4]; |
V65=MMcdr(V65)=MMcons(Cnil,Cnil); |
511 |
goto T148;} |
goto T112;} |
512 |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
goto T111; |
513 |
goto T149;} |
T111:; |
514 |
goto T148; |
V68= list(2,VV[10],list(3,VV[31],make_cons(VV[32],V64),VV[10])); |
515 |
T148:; |
base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V68,Cnil),base[3]); |
|
V95= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V91),VV[10])); |
|
|
base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V95,Cnil),base[3]); |
|
516 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
517 |
return; |
return; |
518 |
} |
} |
519 |
/* local entry for function FIND-RESTART */ |
/* function definition for FIND-RESTART */ |
520 |
|
|
521 |
static object LI27(object V96,object first,...) |
static void L12() |
522 |
{ |
{register object *base=vs_base; |
523 |
va_list ap; |
register object *sup=base+VM12; VC12 |
524 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
vs_check; |
525 |
{register object V97; |
{register object V69; |
526 |
object V98; |
object V70; |
527 |
va_start(ap,first); |
V69=(base[0]); |
528 |
if(narg <1) too_few_arguments(); |
vs_base=vs_base+1; |
529 |
V97= V96; |
if(vs_base>=vs_top){vs_top=sup;goto T114;} |
530 |
narg = narg - 1; |
V70=(base[1]); |
531 |
if (narg <= 0) goto T151; |
vs_top=sup; |
532 |
else { |
goto T115; |
533 |
V98= first;} |
goto T114; |
534 |
--narg; goto T152; |
T114:; |
535 |
goto T151; |
V70= Cnil; |
536 |
T151:; |
goto T115; |
537 |
V98= Cnil; |
T115:; |
538 |
goto T152; |
{register object V71; |
539 |
T152:; |
object V72; |
540 |
{register object V99; |
V71= (VV[10]->s.s_dbind); |
541 |
object V100; |
V72= CMPcar((V71)); |
542 |
V99= symbol_value(VV[10]); |
goto T121; |
543 |
V100= car((V99)); |
T121:; |
544 |
goto T158; |
if(!(((V71))==Cnil)){ |
545 |
T158:; |
goto T122;} |
546 |
if(!(endp_prop((V99)))){ |
goto T117; |
547 |
goto T159;} |
goto T122; |
548 |
|
T122:; |
549 |
|
{register object V73; |
550 |
|
register object V74; |
551 |
|
V73= (V72); |
552 |
|
V74= CMPcar((V73)); |
553 |
|
goto T130; |
554 |
|
T130:; |
555 |
|
if(!(((V73))==Cnil)){ |
556 |
|
goto T131;} |
557 |
|
goto T126; |
558 |
|
goto T131; |
559 |
|
T131:; |
560 |
|
if(((V74))==((V69))){ |
561 |
|
goto T136;} |
562 |
|
if(!((STREF(object,(V74),0))==((V69)))){ |
563 |
|
goto T135;} |
564 |
|
goto T136; |
565 |
|
T136:; |
566 |
|
base[4]= (V74); |
567 |
|
vs_top=(vs_base=base+4)+1; |
568 |
|
return; |
569 |
|
goto T135; |
570 |
|
T135:; |
571 |
|
V73= CMPcdr((V73)); |
572 |
|
V74= CMPcar((V73)); |
573 |
|
goto T130;} |
574 |
|
goto T126; |
575 |
|
T126:; |
576 |
|
V71= CMPcdr((V71)); |
577 |
|
V72= CMPcar((V71)); |
578 |
|
goto T121;} |
579 |
|
goto T117; |
580 |
|
T117:; |
581 |
|
{object V75; |
582 |
|
vs_base=vs_top; |
583 |
|
(void) (*Lnk64)(); |
584 |
|
vs_top=sup; |
585 |
|
V75= vs_base[0]; |
586 |
|
{register object V76; |
587 |
|
register object V77; |
588 |
|
V76= (V75); |
589 |
|
V77= CMPcar((V76)); |
590 |
goto T154; |
goto T154; |
591 |
|
T154:; |
592 |
|
if(!(((V76))==Cnil)){ |
593 |
|
goto T155;} |
594 |
|
base[3]= Cnil; |
595 |
|
vs_top=(vs_base=base+3)+1; |
596 |
|
return; |
597 |
|
goto T155; |
598 |
|
T155:; |
599 |
|
if(((V77))==((V69))){ |
600 |
|
goto T160;} |
601 |
|
if(!((STREF(object,(V77),0))==((V69)))){ |
602 |
|
goto T159;} |
603 |
|
goto T160; |
604 |
|
T160:; |
605 |
|
base[3]= (V77); |
606 |
|
vs_top=(vs_base=base+3)+1; |
607 |
|
return; |
608 |
goto T159; |
goto T159; |
609 |
T159:; |
T159:; |
610 |
{register object V101; |
V76= CMPcdr((V76)); |
611 |
register object V102; |
V77= CMPcar((V76)); |
612 |
V101= (V100); |
goto T154;}} |
|
V102= car((V101)); |
|
|
goto T167; |
|
|
T167:; |
|
|
if(!(endp_prop((V101)))){ |
|
|
goto T168;} |
|
|
goto T163; |
|
|
goto T168; |
|
|
T168:; |
|
|
if(((V102))==((V97))){ |
|
|
goto T173;} |
|
|
V103= structure_ref((V102),VV[13],0); |
|
|
if(!((/* INLINE-ARGS */V103)==((V97)))){ |
|
|
goto T172;} |
|
|
goto T173; |
|
|
T173:; |
|
|
{object V104 = (V102); |
|
|
VMR26(V104)} |
|
|
goto T172; |
|
|
T172:; |
|
|
V101= cdr((V101)); |
|
|
V102= car((V101)); |
|
|
goto T167;} |
|
|
goto T163; |
|
|
T163:; |
|
|
V99= cdr((V99)); |
|
|
V100= car((V99)); |
|
|
goto T158;} |
|
|
goto T154; |
|
|
T154:; |
|
|
{object V105; |
|
|
V105= (*(LnkLI71))(); |
|
|
{register object V106; |
|
|
register object V107; |
|
|
V106= (V105); |
|
|
V107= car((V106)); |
|
|
goto T191; |
|
|
T191:; |
|
|
if(!(endp_prop((V106)))){ |
|
|
goto T192;} |
|
|
{object V108 = Cnil; |
|
|
VMR26(V108)} |
|
|
goto T192; |
|
|
T192:; |
|
|
if(((V107))==((V97))){ |
|
|
goto T197;} |
|
|
V109= structure_ref((V107),VV[13],0); |
|
|
if(!((/* INLINE-ARGS */V109)==((V97)))){ |
|
|
goto T196;} |
|
|
goto T197; |
|
|
T197:; |
|
|
{object V110 = (V107); |
|
|
VMR26(V110)} |
|
|
goto T196; |
|
|
T196:; |
|
|
V106= cdr((V106)); |
|
|
V107= car((V106)); |
|
|
goto T191;}} |
|
|
va_end(ap); |
|
|
base[0]=base[0]; |
|
|
return Cnil;} |
|
613 |
} |
} |
614 |
|
} |
615 |
/* function definition for INVOKE-RESTART */ |
/* function definition for INVOKE-RESTART */ |
616 |
|
|
617 |
static void L28() |
static void L13() |
618 |
{register object *base=vs_base; |
{register object *base=vs_base; |
619 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM13; VC13 |
620 |
vs_reserve(VM27); |
vs_check; |
621 |
{object V111; |
{object V78; |
622 |
object V112; |
object V79; |
623 |
if(vs_top-vs_base<1) too_few_arguments(); |
V78=(base[0]); |
|
V111=(base[0]); |
|
624 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
625 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
626 |
{object *p=vs_top; |
{object *p=vs_top; |
627 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
628 |
V112=(base[1]); |
V79=(base[1]); |
629 |
vs_top=sup; |
vs_top=sup; |
630 |
{object V113;{object V114; |
{object V80;{object V81; |
631 |
V114= (VFUN_NARGS=1,(*(LnkLI77))((V111))); |
base[2]= (V78); |
632 |
if(V114==Cnil)goto T207; |
vs_top=(vs_base=base+2)+1; |
633 |
V113= V114; |
(void) (*Lnk69)(); |
634 |
goto T206; |
vs_top=sup; |
635 |
goto T207; |
V81= vs_base[0]; |
636 |
T207:;} |
if(V81==Cnil)goto T170; |
637 |
base[2]= VV[40]; |
V80= V81; |
638 |
base[3]= (V111); |
goto T169; |
639 |
|
goto T170; |
640 |
|
T170:;} |
641 |
|
base[2]= VV[34]; |
642 |
|
base[3]= (V78); |
643 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
644 |
(void) (*Lnk70)(); |
(void) (*Lnk63)(); |
645 |
vs_top=sup; |
vs_top=sup; |
646 |
V113= vs_base[0]; |
V80= vs_base[0]; |
647 |
goto T206; |
goto T169; |
648 |
T206:; |
T169:; |
649 |
base[2]= structure_ref((V113),VV[13],1); |
base[2]= STREF(object,(V80),4); |
650 |
{object V115; |
{object V82; |
651 |
V115= (V112); |
V82= (V79); |
652 |
vs_top=base+3; |
vs_top=base+3; |
653 |
while(!endp(V115)) |
while(V82!=Cnil) |
654 |
{vs_push(car(V115));V115=cdr(V115);} |
{vs_push((V82)->c.c_car);V82=(V82)->c.c_cdr;} |
655 |
vs_base=base+3;} |
vs_base=base+3;} |
656 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
657 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
662 |
} |
} |
663 |
/* function definition for INVOKE-RESTART-INTERACTIVELY */ |
/* function definition for INVOKE-RESTART-INTERACTIVELY */ |
664 |
|
|
665 |
static void L29() |
static void L14() |
666 |
{register object *base=vs_base; |
{register object *base=vs_base; |
667 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM14; VC14 |
668 |
vs_reserve(VM28); |
vs_check; |
669 |
{object V116; |
{object V83; |
670 |
check_arg(1); |
V83=(base[0]); |
|
V116=(base[0]); |
|
671 |
vs_top=sup; |
vs_top=sup; |
672 |
goto TTL; |
goto TTL; |
673 |
TTL:; |
TTL:; |
674 |
{object V117;{object V118; |
{object V84;{object V85; |
675 |
V118= (VFUN_NARGS=1,(*(LnkLI77))((V116))); |
base[1]= (V83); |
676 |
if(V118==Cnil)goto T214; |
vs_top=(vs_base=base+1)+1; |
677 |
V117= V118; |
(void) (*Lnk69)(); |
678 |
goto T213; |
vs_top=sup; |
679 |
goto T214; |
V85= vs_base[0]; |
680 |
T214:;} |
if(V85==Cnil)goto T178; |
681 |
base[1]= VV[41]; |
V84= V85; |
682 |
base[2]= (V116); |
goto T177; |
683 |
|
goto T178; |
684 |
|
T178:;} |
685 |
|
base[1]= VV[35]; |
686 |
|
base[2]= (V83); |
687 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
688 |
(void) (*Lnk70)(); |
(void) (*Lnk63)(); |
689 |
vs_top=sup; |
vs_top=sup; |
690 |
V117= vs_base[0]; |
V84= vs_base[0]; |
691 |
goto T213; |
goto T177; |
692 |
T213:; |
T177:; |
693 |
base[1]= structure_ref((V117),VV[13],1); |
base[1]= STREF(object,(V84),4); |
694 |
{object V119; |
{object V86; |
695 |
{object V120; |
{object V87; |
696 |
V120= structure_ref((V117),VV[13],3); |
V87= STREF(object,(V84),12); |
697 |
if(((V120))==Cnil){ |
if(((V87))==Cnil){ |
698 |
goto T222;} |
goto T187;} |
699 |
vs_base=vs_top; |
vs_base=vs_top; |
700 |
{object _funobj = (V120);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V87);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
701 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
702 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
703 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
704 |
vs_top=sup; |
vs_top=sup; |
705 |
V119= vs_base[0]; |
V86= vs_base[0]; |
706 |
goto T219; |
goto T184; |
707 |
goto T222; |
goto T187; |
708 |
T222:; |
T187:; |
709 |
V119= Cnil;} |
V86= Cnil;} |
710 |
goto T219; |
goto T184; |
711 |
T219:; |
T184:; |
712 |
vs_top=base+2; |
vs_top=base+2; |
713 |
while(!endp(V119)) |
while(V86!=Cnil) |
714 |
{vs_push(car(V119));V119=cdr(V119);} |
{vs_push((V86)->c.c_car);V86=(V86)->c.c_cdr;} |
715 |
vs_base=base+2;} |
vs_base=base+2;} |
716 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
717 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
722 |
} |
} |
723 |
/* macro definition for RESTART-CASE */ |
/* macro definition for RESTART-CASE */ |
724 |
|
|
725 |
static void L30() |
static void L15() |
726 |
{register object *base=vs_base; |
{register object *base=vs_base; |
727 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM15; VC15 |
728 |
vs_reserve(VM29); |
vs_check; |
|
check_arg(2); |
|
729 |
vs_top=sup; |
vs_top=sup; |
730 |
{object V121=base[0]->c.c_cdr; |
{object V88=base[0]->c.c_cdr; |
731 |
if(endp(V121))invalid_macro_call(); |
base[2]= (V88->c.c_car); |
732 |
base[2]= (V121->c.c_car); |
V88=V88->c.c_cdr; |
733 |
V121=V121->c.c_cdr; |
base[3]= V88;} |
734 |
base[3]= V121;} |
{object V89; |
735 |
{object V122; |
object V90; |
736 |
object V123; |
object V91; |
|
object V124; |
|
737 |
vs_base=vs_top; |
vs_base=vs_top; |
738 |
Lgensym(); |
Lgensym(); |
739 |
vs_top=sup; |
vs_top=sup; |
740 |
V122= vs_base[0]; |
V89= vs_base[0]; |
741 |
vs_base=vs_top; |
vs_base=vs_top; |
742 |
Lgensym(); |
Lgensym(); |
743 |
vs_top=sup; |
vs_top=sup; |
744 |
V123= vs_base[0]; |
V90= vs_base[0]; |
745 |
{object V125; |
{object V92; |
746 |
object V126= base[3]; |
object V93= base[3]; |
747 |
if(endp(V126)){ |
if(V93==Cnil){ |
748 |
V124= Cnil; |
V91= Cnil; |
749 |
goto T226;} |
goto T191;} |
750 |
base[4]=V125=MMcons(Cnil,Cnil); |
base[4]=V92=MMcons(Cnil,Cnil); |
751 |
goto T227; |
goto T192; |
752 |
T227:; |
T192:; |
753 |
{object V128; |
{object V95; |
754 |
object V129; |
object V96; |
755 |
base[5]= cddr((V126->c.c_car)); |
base[5]= CMPcddr((V93->c.c_car)); |
756 |
base[6]= VV[42]; |
base[6]= VV[36]; |
757 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
758 |
(void) (*Lnk6)(); |
(void) (*Lnk6)(); |
759 |
if(vs_base>=vs_top){vs_top=sup;goto T232;} |
if(vs_base>=vs_top){vs_top=sup;goto T197;} |
760 |
V128= vs_base[0]; |
V95= vs_base[0]; |
761 |
vs_base++; |
vs_base++; |
762 |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
if(vs_base>=vs_top){vs_top=sup;goto T198;} |
763 |
V129= vs_base[0]; |
V96= vs_base[0]; |
764 |
vs_top=sup; |
vs_top=sup; |
765 |
goto T234; |
goto T199; |
766 |
goto T232; |
goto T197; |
767 |
T232:; |
T197:; |
768 |
V128= Cnil; |
V95= Cnil; |
769 |
goto T233; |
goto T198; |
770 |
T233:; |
T198:; |
771 |
V129= Cnil; |
V96= Cnil; |
772 |
goto T234; |
goto T199; |
773 |
T234:; |
T199:; |
774 |
{object V130; |
{object V97; |
775 |
object V131; |
object V98; |
776 |
base[5]= (V128); |
base[5]= (V95); |
777 |
base[6]= VV[43]; |
base[6]= VV[37]; |
778 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
779 |
Lgetf(); |
Lgetf(); |
780 |
vs_top=sup; |
vs_top=sup; |
781 |
V130= vs_base[0]; |
V97= vs_base[0]; |
782 |
base[5]= (V128); |
base[5]= (V95); |
783 |
base[6]= VV[44]; |
base[6]= VV[38]; |
784 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
785 |
Lgetf(); |
Lgetf(); |
786 |
vs_top=sup; |
vs_top=sup; |
787 |
V131= vs_base[0]; |
V98= vs_base[0]; |
788 |
V132= car((V126->c.c_car)); |
V99= CMPcar((V93->c.c_car)); |
789 |
vs_base=vs_top; |
vs_base=vs_top; |
790 |
Lgensym(); |
Lgensym(); |
791 |
vs_top=sup; |
vs_top=sup; |
792 |
V133= vs_base[0]; |
V100= vs_base[0]; |
793 |
base[5]= VV[43]; |
base[5]= VV[37]; |
794 |
base[6]= (V130); |
base[6]= (V97); |
795 |
base[7]= VV[44]; |
base[7]= VV[38]; |
796 |
base[8]= (V131); |
base[8]= (V98); |
797 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
798 |
L31(base); |
L16(base); |
799 |
vs_top=sup; |
vs_top=sup; |
800 |
V134= vs_base[0]; |
V101= vs_base[0]; |
801 |
(V125->c.c_car)= list(5,/* INLINE-ARGS */V132,V133,V134,cadr((V126->c.c_car)),(V129));}} |
(V92->c.c_car)= list(5,/* INLINE-ARGS */V99,V100,V101,CMPcadr((V93->c.c_car)),(V96));}} |
802 |
V126=MMcdr(V126); |
if((V93=MMcdr(V93))==Cnil){ |
803 |
if(endp(V126)){ |
V91= base[4]; |
804 |
V124= base[4]; |
goto T191;} |
805 |
goto T226;} |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
806 |
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
goto T192;} |
807 |
goto T227;} |
goto T191; |
808 |
goto T226; |
T191:; |
809 |
T226:; |
V102= list(2,(V90),Cnil); |
810 |
V135= list(2,(V123),Cnil); |
V103= make_cons(/* INLINE-ARGS */V102,Cnil); |
811 |
V136= make_cons(/* INLINE-ARGS */V135,Cnil); |
{object V105; |
812 |
{object V138; |
object V106= (V91); |
813 |
object V139= (V124); |
if(V106==Cnil){ |
814 |
if(endp(V139)){ |
V104= Cnil; |
815 |
V137= Cnil; |
goto T212;} |
816 |
goto T247;} |
base[4]=V105=MMcons(Cnil,Cnil); |
817 |
base[4]=V138=MMcons(Cnil,Cnil); |
goto T213; |
818 |
goto T248; |
T213:; |
819 |
T248:; |
{object V108; |
820 |
{object V141; |
object V109; |
821 |
object V142; |
object V110; |
822 |
object V143; |
V108= CMPcar((V106->c.c_car)); |
823 |
V141= car((V139->c.c_car)); |
V109= CMPcadr((V106->c.c_car)); |
824 |
V142= cadr((V139->c.c_car)); |
V110= CMPcaddr((V106->c.c_car)); |
825 |
V143= caddr((V139->c.c_car)); |
V111= list(3,VV[45],(V90),VV[46]); |
826 |
V144= list(3,VV[51],(V123),VV[52]); |
(V105->c.c_car)= listA(3,(V108),list(2,VV[42],list(4,VV[43],VV[44],/* INLINE-ARGS */V111,list(2,VV[47],(V109)))),(V110));} |
827 |
(V138->c.c_car)= listA(3,(V141),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V144,list(2,VV[53],(V142)))),(V143));} |
if((V106=MMcdr(V106))==Cnil){ |
828 |
V139=MMcdr(V139); |
V104= base[4]; |
829 |
if(endp(V139)){ |
goto T212;} |
830 |
V137= base[4]; |
V105=MMcdr(V105)=MMcons(Cnil,Cnil); |
831 |
goto T247;} |
goto T213;} |
832 |
V138=MMcdr(V138)=MMcons(Cnil,Cnil); |
goto T212; |
833 |
goto T248;} |
T212:; |
834 |
goto T247; |
V112= list(3,VV[41],V104,list(3,VV[48],(V89),base[2])); |
835 |
T247:; |
{object V114; |
836 |
V145= list(3,VV[47],V137,list(3,VV[54],(V122),base[2])); |
object V115= (V91); |
837 |
{object V147; |
if(V115==Cnil){ |
838 |
object V148= (V124); |
V113= Cnil; |
839 |
if(endp(V148)){ |
goto T218;} |
840 |
V146= Cnil; |
base[4]=V114=MMcons(Cnil,Cnil); |
841 |
goto T253;} |
goto T219; |
842 |
base[4]=V147=MMcons(Cnil,Cnil); |
T219:; |
843 |
goto T254; |
{object V117; |
844 |
T254:; |
object V118; |
845 |
{object V150; |
object V119; |
846 |
object V151; |
V117= CMPcadr((V115->c.c_car)); |
847 |
object V152; |
V118= CMPcadddr((V115->c.c_car)); |
848 |
V150= cadr((V148->c.c_car)); |
V119= CMPcar(CMPcddddr((V115->c.c_car))); |
849 |
V151= cadddr((V148->c.c_car)); |
(V114->c.c_cdr)= list(2,(V117),list(3,VV[48],(V89),list(3,VV[49],list(2,VV[42],listA(3,VV[43],(V118),(V119))),(V90))));} |
850 |
V152= car(cddddr((V148->c.c_car))); |
while(MMcdr(V114)!=Cnil)V114=MMcdr(V114); |
851 |
(V147->c.c_cdr)= list(2,(V150),list(3,VV[54],(V122),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V151),(V152))),(V123))));} |
if((V115=MMcdr(V115))==Cnil){ |
|
{object cdr_V147=MMcdr(V147);while(!endp(cdr_V147)) {cdr_V147=MMcdr(cdr_V147);V147=MMcdr(V147);}} |
|
|
V148=MMcdr(V148); |
|
|
if(endp(V148)){ |
|
852 |
base[4]=base[4]->c.c_cdr; |
base[4]=base[4]->c.c_cdr; |
853 |
V146= base[4]; |
V113= base[4]; |
854 |
goto T253;} |
goto T218;} |
855 |
goto T254;} |
goto T219;} |
856 |
goto T253; |
goto T218; |
857 |
T253:; |
T218:; |
858 |
base[4]= list(3,VV[45],(V122),list(3,VV[8],/* INLINE-ARGS */V136,listA(3,VV[46],/* INLINE-ARGS */V145,V146))); |
base[4]= list(3,VV[39],(V89),list(3,VV[8],/* INLINE-ARGS */V103,listA(3,VV[40],/* INLINE-ARGS */V112,V113))); |
859 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
860 |
return;} |
return;} |
861 |
} |
} |
862 |
/* macro definition for WITH-SIMPLE-RESTART */ |
/* macro definition for WITH-SIMPLE-RESTART */ |
863 |
|
|
864 |
static void L32() |
static void L17() |
865 |
{register object *base=vs_base; |
{register object *base=vs_base; |
866 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM16; VC16 |
867 |
vs_reserve(VM30); |
vs_check; |
868 |
check_arg(2); |
vs_top=sup; |
869 |
vs_top=sup; |
{object V120=base[0]->c.c_cdr; |
870 |
{object V153=base[0]->c.c_cdr; |
{object V121= (V120->c.c_car); |
871 |
if(endp(V153))invalid_macro_call(); |
base[2]= (V121->c.c_car); |
872 |
{object V154= (V153->c.c_car); |
V121=V121->c.c_cdr; |
873 |
if(endp(V154))invalid_macro_call(); |
base[3]= (V121->c.c_car); |
874 |
base[2]= (V154->c.c_car); |
V121=V121->c.c_cdr; |
875 |
V154=V154->c.c_cdr; |
base[4]= V121;} |
876 |
if(endp(V154))invalid_macro_call(); |
V120=V120->c.c_cdr; |
877 |
base[3]= (V154->c.c_car); |
base[5]= V120;} |
878 |
V154=V154->c.c_cdr; |
V122= make_cons(VV[54],base[5]); |
879 |
base[4]= V154;} |
base[6]= list(3,VV[53],/* INLINE-ARGS */V122,list(5,base[2],Cnil,VV[37],list(3,VV[43],VV[55],listA(4,VV[56],VV[52],base[3],base[4])),VV[57])); |
|
V153=V153->c.c_cdr; |
|
|
base[5]= V153;} |
|
|
V155= make_cons(VV[60],base[5]); |
|
|
base[6]= list(3,VV[59],/* INLINE-ARGS */V155,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63])); |
|
880 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
881 |
return; |
return; |
882 |
} |
} |
883 |
/* function definition for ABORT */ |
/* function definition for ABORT */ |
884 |
|
|
885 |
static void L33() |
static void L18() |
886 |
{register object *base=vs_base; |
{register object *base=vs_base; |
887 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM17; VC17 |
888 |
vs_reserve(VM31); |
vs_check; |
|
check_arg(0); |
|
889 |
vs_top=sup; |
vs_top=sup; |
890 |
goto TTL; |
goto TTL; |
891 |
TTL:; |
TTL:; |
892 |
base[0]= VV[22]; |
base[0]= VV[15]; |
893 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
894 |
(void) (*Lnk78)(); |
(void) (*Lnk70)(); |
895 |
vs_top=sup; |
vs_top=sup; |
896 |
base[0]= VV[64]; |
base[0]= VV[58]; |
897 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
898 |
(void) (*Lnk70)(); |
(void) (*Lnk63)(); |
899 |
return; |
return; |
900 |
} |
} |
901 |
/* function definition for CONTINUE */ |
/* function definition for CONTINUE */ |
902 |
|
|
903 |
static void L34() |
static void L19() |
904 |
{register object *base=vs_base; |
{register object *base=vs_base; |
905 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM18; VC18 |
906 |
vs_reserve(VM32); |
vs_check; |
|
check_arg(0); |
|
907 |
vs_top=sup; |
vs_top=sup; |
908 |
goto TTL; |
goto TTL; |
909 |
TTL:; |
TTL:; |
910 |
base[0]= VV[65]; |
base[0]= VV[59]; |
911 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
912 |
(void) (*Lnk78)(); |
(void) (*Lnk70)(); |
913 |
return; |
return; |
914 |
} |
} |
915 |
/* function definition for MUFFLE-WARNING */ |
/* function definition for MUFFLE-WARNING */ |
916 |
|
|
917 |
static void L35() |
static void L20() |
918 |
{register object *base=vs_base; |
{register object *base=vs_base; |
919 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM19; VC19 |
920 |
vs_reserve(VM33); |
vs_check; |
|
check_arg(0); |
|
921 |
vs_top=sup; |
vs_top=sup; |
922 |
goto TTL; |
goto TTL; |
923 |
TTL:; |
TTL:; |
924 |
base[0]= VV[66]; |
base[0]= VV[60]; |
925 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
926 |
(void) (*Lnk78)(); |
(void) (*Lnk70)(); |
927 |
return; |
return; |
928 |
} |
} |
929 |
/* function definition for STORE-VALUE */ |
/* function definition for STORE-VALUE */ |
930 |
|
|
931 |
static void L36() |
static void L21() |
932 |
{register object *base=vs_base; |
{register object *base=vs_base; |
933 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM20; VC20 |
934 |
vs_reserve(VM34); |
vs_check; |
935 |
{object V156; |
{object V123; |
936 |
check_arg(1); |
V123=(base[0]); |
|
V156=(base[0]); |
|
937 |
vs_top=sup; |
vs_top=sup; |
938 |
goto TTL; |
goto TTL; |
939 |
TTL:; |
TTL:; |
940 |
base[1]= VV[67]; |
base[1]= VV[61]; |
941 |
base[2]= (V156); |
base[2]= (V123); |
942 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
943 |
(void) (*Lnk78)(); |
(void) (*Lnk70)(); |
944 |
return; |
return; |
945 |
} |
} |
946 |
} |
} |
947 |
/* function definition for USE-VALUE */ |
/* function definition for USE-VALUE */ |
948 |
|
|
949 |
static void L37() |
static void L22() |
950 |
{register object *base=vs_base; |
{register object *base=vs_base; |
951 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM21; VC21 |
952 |
vs_reserve(VM35); |
vs_check; |
953 |
{object V157; |
{object V124; |
954 |
check_arg(1); |
V124=(base[0]); |
|
V157=(base[0]); |
|
955 |
vs_top=sup; |
vs_top=sup; |
956 |
goto TTL; |
goto TTL; |
957 |
TTL:; |
TTL:; |
958 |
base[1]= VV[68]; |
base[1]= VV[62]; |
959 |
base[2]= (V157); |
base[2]= (V124); |
960 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
961 |
(void) (*Lnk78)(); |
(void) (*Lnk70)(); |
962 |
return; |
return; |
963 |
} |
} |
964 |
} |
} |
965 |
/* local function TRANSFORM-KEYWORDS */ |
/* local function TRANSFORM-KEYWORDS */ |
966 |
|
|
967 |
static void L31(base0) |
static void L16(base0) |
968 |
register object *base0; |
register object *base0; |
969 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
970 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM22; VC22 |
971 |
vs_reserve(VM36); |
vs_check; |
972 |
{register object V158; |
{register object V125; |
973 |
object V159; |
object V126; |
974 |
parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]); |
parse_key(vs_base,FALSE,FALSE,2,VV[37],VV[38]); |
975 |
vs_top=sup; |
vs_top=sup; |
976 |
V158=(base[0]); |
V125=(base[0]); |
977 |
V159=(base[1]); |
V126=(base[1]); |
978 |
{register object V160; |
{register object V127; |
979 |
V160= Cnil; |
V127= Cnil; |
980 |
if(((V158))==Cnil){ |
if(((V125))==Cnil){ |
981 |
goto T268;} |
goto T233;} |
982 |
if(!(type_of((V158))==t_string)){ |
if(!(type_of((V125))==t_string)){ |
983 |
goto T274;} |
goto T239;} |
984 |
V161= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V158),VV[58]))); |
V128= list(2,VV[42],list(3,VV[43],VV[50],list(3,VV[51],(V125),VV[52]))); |
985 |
goto T272; |
goto T237; |
986 |
goto T274; |
goto T239; |
987 |
T274:; |
T239:; |
988 |
V161= list(2,VV[48],(V158)); |
V128= list(2,VV[42],(V125)); |
989 |
goto T272; |
goto T237; |
990 |
T272:; |
T237:; |
991 |
V160= listA(3,V161,VV[24],(V160)); |
V127= listA(3,V128,VV[17],(V127)); |
992 |
goto T268; |
goto T233; |
993 |
T268:; |
T233:; |
994 |
if(((V159))==Cnil){ |
if(((V126))==Cnil){ |
995 |
goto T276;} |
goto T241;} |
996 |
V160= listA(3,list(2,VV[48],(V159)),VV[34],(V160)); |
V127= listA(3,list(2,VV[42],(V126)),VV[27],(V127)); |
997 |
goto T276; |
goto T241; |
998 |
T276:; |
T241:; |
999 |
base[4]= nreverse((V160)); |
base[4]= nreverse((V127)); |
1000 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1001 |
return;} |
return;} |
1002 |
} |
} |
1003 |
} |
} |
1004 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1005 |
|
|
1006 |
static void LC40(base0) |
static void LC25(base0) |
1007 |
register object *base0; |
register object *base0; |
1008 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1009 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM23; VC23 |
1010 |
vs_reserve(VM37); |
vs_check; |
1011 |
{object V162; |
{object V129; |
1012 |
check_arg(1); |
V129=(base[0]); |
|
V162=(base[0]); |
|
1013 |
vs_top=sup; |
vs_top=sup; |
1014 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
1015 |
goto T281;} |
goto T246;} |
1016 |
base[1]= (V162); |
base[1]= (V129); |
1017 |
base[2]= VV[35]; |
base[2]= VV[29]; |
1018 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
1019 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1020 |
Lformat(); |
Lformat(); |
1021 |
return; |
return; |
1022 |
goto T281; |
goto T246; |
1023 |
T281:; |
T246:; |
1024 |
base[1]= (V162); |
base[1]= (V129); |
1025 |
base[2]= VV[36]; |
base[2]= VV[30]; |
1026 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
1027 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1028 |
Lformat(); |
Lformat(); |
1031 |
} |
} |
1032 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1033 |
|
|
1034 |
static void LC39(base0) |
static void LC24(base0) |
1035 |
register object *base0; |
register object *base0; |
1036 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1037 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM24; VC24 |
1038 |
vs_reserve(VM38); |
vs_check; |
1039 |
{object V163; |
{object V130; |
1040 |
check_arg(1); |
V130=(base[0]); |
1041 |
V163=(base[0]); |
vs_top=sup; |
1042 |
vs_top=sup; |
{object V131; |
1043 |
{object V164; |
if(!(((base0[0]->c.c_car))==((VV[18]->s.s_dbind)))){ |
1044 |
if(!(((base0[0]->c.c_car))==(symbol_value(VV[25])))){ |
goto T256;} |
1045 |
goto T291;} |
V131= (VV[19]->s.s_dbind); |
1046 |
V164= symbol_value(VV[26]); |
goto T254; |
1047 |
goto T289; |
goto T256; |
1048 |
goto T291; |
T256:;{object V133; |
|
T291:;{object V166; |
|
1049 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1050 |
base[2]= symbol_value(VV[27]); |
base[2]= (VV[20]->s.s_dbind); |
1051 |
base[3]= VV[28]; |
base[3]= VV[21]; |
1052 |
base[4]= symbol_function(VV[79]); |
base[4]= (VV[71]->s.s_gfdef); |
1053 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1054 |
(void) (*Lnk80)(); |
(void) (*Lnk72)(); |
1055 |
vs_top=sup; |
vs_top=sup; |
1056 |
V166= vs_base[0]; |
V133= vs_base[0]; |
1057 |
if(V166==Cnil)goto T294; |
if(V133==Cnil)goto T259; |
1058 |
V165= V166; |
V132= V133; |
1059 |
goto T293; |
goto T258; |
1060 |
goto T294; |
goto T259; |
1061 |
T294:;} |
T259:;} |
1062 |
V165= VV[29]; |
V132= VV[22]; |
1063 |
goto T293; |
goto T258; |
1064 |
T293:; |
T258:; |
1065 |
V164= car(V165); |
V131= CMPcar(V132); |
1066 |
goto T289; |
goto T254; |
1067 |
T289:; |
T254:; |
1068 |
if(!(((V164))==(VV[30]))){ |
if(!(((V131))==(VV[23]))){ |
1069 |
goto T301;} |
goto T266;} |
1070 |
base[1]= (V163); |
base[1]= (V130); |
1071 |
base[2]= VV[31]; |
base[2]= VV[24]; |
1072 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1073 |
Lformat(); |
Lformat(); |
1074 |
return; |
return; |
1075 |
goto T301; |
goto T266; |
1076 |
T301:; |
T266:; |
1077 |
if(((V164))!=Cnil){ |
if(((V131))!=Cnil){ |
1078 |
goto T306;} |
goto T271;} |
1079 |
base[1]= (V163); |
base[1]= (V130); |
1080 |
base[2]= VV[32]; |
base[2]= VV[25]; |
1081 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1082 |
Lformat(); |
Lformat(); |
1083 |
return; |
return; |
1084 |
goto T306; |
goto T271; |
1085 |
T306:; |
T271:; |
1086 |
base[1]= (V163); |
base[1]= (V130); |
1087 |
base[2]= VV[33]; |
base[2]= VV[26]; |
1088 |
base[3]= make_fixnum((long)length((V164))); |
base[3]= CMPmake_fixnum((long)length((V131))); |
1089 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1090 |
Lformat(); |
Lformat(); |
1091 |
return;} |
return;} |
1093 |
} |
} |
1094 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1095 |
|
|
1096 |
static void LC38(base0) |
static void LC23(base0) |
1097 |
register object *base0; |
register object *base0; |
1098 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1099 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM25; VC25 |
1100 |
vs_reserve(VM39); |
vs_check; |
|
check_arg(0); |
|
1101 |
vs_top=sup; |
vs_top=sup; |
1102 |
{frame_ptr fr; |
{frame_ptr fr; |
1103 |
V167= make_cons((base0[0]->c.c_car),Cnil); |
V134= make_cons((base0[0]->c.c_car),Cnil); |
1104 |
base[0]= car(/* INLINE-ARGS */V167); |
base[0]= CMPcar(/* INLINE-ARGS */V134); |
1105 |
fr=frs_sch_catch(base[0]); |
fr=frs_sch_catch(base[0]); |
1106 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]); |
1107 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1108 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1109 |
unwind(fr,base[0]);} |
unwind(fr,base[0]);} |
1110 |
} |
} |
1111 |
static void LnkT80(){ call_or_link(VV[80],(void **)(void *)&Lnk80);} /* FIND */ |
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* FIND */ |
1112 |
static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* INVOKE-RESTART */ |
static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* INVOKE-RESTART */ |
1113 |
static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* PARSE-KEYWORD-PAIRS */ |
static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* PARSE-KEYWORD-PAIRS */ |
1114 |
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)(void *)&LnkLI77,first,ap);va_end(ap);return V1;} /* FIND-RESTART */ |
static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* FIND-RESTART */ |
1115 |
static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* FIND-KCL-TOP-RESTART */ |
static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* FIND-KCL-TOP-RESTART */ |
1116 |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* MAKE-KCL-TOP-RESTART */ |
static void LnkT67(){ call_or_link(VV[67],(void **)(void *)&Lnk67);} /* MAKE-KCL-TOP-RESTART */ |
1117 |
static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ |
static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* MAKE-RESTART */ |
1118 |
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* DEFINE-STRUCTURE */ |
static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* RESTART-REPORT */ |
1119 |
static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* RESTART-REPORT */ |
static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* UNIQUE-ID */ |
1120 |
static object LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */ |
static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* KCL-TOP-RESTARTS */ |
1121 |
static object LnkTLI71(){return call_proc0(VV[71],(void **)(void *)&LnkLI71);} /* KCL-TOP-RESTARTS */ |
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* ERROR */ |
|
static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* ERROR */ |
|
|
static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* *MAKE-SPECIAL */ |
|
1122 |
|
|
1123 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1124 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |