7 |
static L1() |
static L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_check; |
vs_reserve(VM1); |
11 |
|
check_arg(2); |
12 |
vs_top=sup; |
vs_top=sup; |
13 |
{object V1=base[0]->c.c_cdr; |
{object V1=base[0]->c.c_cdr; |
14 |
|
if(endp(V1))invalid_macro_call(); |
15 |
base[2]= (V1->c.c_car); |
base[2]= (V1->c.c_car); |
16 |
V1=V1->c.c_cdr; |
V1=V1->c.c_cdr; |
17 |
base[3]= V1;} |
base[3]= V1;} |
18 |
|
{register object V2; |
19 |
|
register object V3; |
20 |
|
V2= Cnil; |
21 |
|
V3= base[3]; |
22 |
T3:; |
T3:; |
23 |
vs_base=vs_top; |
if(((V3))==Cnil){ |
24 |
(void) (*Lnk3)(); |
goto T6;} |
25 |
vs_top=sup; |
goto T5; |
26 |
{register object x= (VV[3]->s.s_dbind),V2= VV[4]; |
T6:; |
27 |
while(V2!=Cnil) |
goto T4; |
28 |
if(eql(x,V2->c.c_car)){ |
T5:; |
29 |
goto T10; |
{register object V4; |
30 |
}else V2=V2->c.c_cdr;} |
V4= car((V3)); |
31 |
T10:; |
V2= (V4);} |
32 |
base[4]= VV[6]; |
{register object x= car((V2)),V5= VV[0]; |
33 |
base[5]= VV[7]; |
while(!endp(V5)) |
34 |
base[6]= (VV[3]->s.s_dbind); |
if(eql(x,V5->c.c_car)){ |
35 |
|
goto T11; |
36 |
|
}else V5=V5->c.c_cdr;} |
37 |
|
base[4]= VV[1]; |
38 |
|
base[5]= VV[2]; |
39 |
|
base[6]= (V2); |
40 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
41 |
Lcerror(); |
Lcerror(); |
42 |
vs_top=sup; |
vs_top=sup; |
43 |
|
T11:; |
44 |
|
V3= cdr((V3)); |
45 |
goto T3; |
goto T3; |
46 |
|
T4:; |
47 |
|
goto T1; |
48 |
|
goto T1;} |
49 |
|
T1:; |
50 |
base[4]=MMcons(Cnil,Cnil); |
base[4]=MMcons(Cnil,Cnil); |
51 |
(base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata); |
(base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata); |
52 |
T18:; |
{register object V6; |
53 |
base[5]= (VV[3]->s.s_dbind); |
register object V7; |
54 |
|
V6= Cnil; |
55 |
|
V7= VV[3]; |
56 |
|
T22:; |
57 |
|
if(((V7))==Cnil){ |
58 |
|
goto T25;} |
59 |
|
goto T24; |
60 |
|
T25:; |
61 |
|
goto T23; |
62 |
|
T24:; |
63 |
|
{register object V8; |
64 |
|
V8= car((V7)); |
65 |
|
V6= (V8);} |
66 |
|
V9= symbol_function(VV[63]); |
67 |
|
V10= (VFUN_NARGS=4,(*(LnkLI62))((V6),base[3],VV[4],V9)); |
68 |
|
if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){ |
69 |
|
goto T30;} |
70 |
|
base[5]= (V6); |
71 |
base[6]= base[3]; |
base[6]= base[3]; |
72 |
base[7]= VV[10]; |
vs_top=(vs_base=base+5)+2; |
|
base[8]= (VV[85]->s.s_gfdef); |
|
|
vs_top=(vs_base=base+5)+4; |
|
|
(void) (*Lnk86)(); |
|
|
vs_top=sup; |
|
|
V3= vs_base[0]; |
|
|
(void)(number_compare(small_fixnum(2),V3)<=0); |
|
|
base[5]= VV[11]; |
|
|
base[6]= (VV[3]->s.s_dbind); |
|
|
base[8]= (VV[3]->s.s_dbind); |
|
|
base[9]= base[3]; |
|
|
vs_top=(vs_base=base+8)+2; |
|
73 |
L5(base); |
L5(base); |
74 |
vs_top=sup; |
vs_top=sup; |
75 |
V4= vs_base[0]; |
V11= vs_base[0]; |
76 |
base[7]= CMPcar(V4); |
(void)((VFUN_NARGS=3,(*(LnkLI64))(VV[5],(V6),car(V11)))); |
77 |
vs_top=(vs_base=base+5)+3; |
T30:; |
78 |
(void) (*Lnk87)(); |
V7= cdr((V7)); |
79 |
vs_top=sup; |
goto T22; |
80 |
goto T18; |
T23:; |
81 |
|
goto T20; |
82 |
|
goto T20;} |
83 |
|
T20:; |
84 |
base[2]= coerce_to_string(base[2]); |
base[2]= coerce_to_string(base[2]); |
85 |
{object V5; |
{object V12; |
|
object V6; |
|
|
object V7; |
|
|
register object V8; |
|
|
register object V9; |
|
|
register object V10; |
|
|
register object V11; |
|
|
register object V12; |
|
86 |
object V13; |
object V13; |
87 |
base[6]= VV[12]; |
object V14; |
88 |
|
object V15; |
89 |
|
register object V16; |
90 |
|
object V17; |
91 |
|
object V18; |
92 |
|
object V19; |
93 |
|
object V20; |
94 |
|
base[6]= VV[6]; |
95 |
base[7]= base[3]; |
base[7]= base[3]; |
96 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
97 |
L5(base); |
L5(base); |
98 |
vs_top=sup; |
vs_top=sup; |
99 |
V16= vs_base[0]; |
V23= vs_base[0]; |
100 |
{object V14; |
{object V21; |
101 |
object V15= V16; |
object V22= V23; |
102 |
if(V15==Cnil){ |
if(endp(V22)){ |
103 |
V5= Cnil; |
V12= Cnil; |
|
goto T41;} |
|
|
base[5]=V14=MMcons(Cnil,Cnil); |
|
|
T42:; |
|
|
(V14->c.c_car)= coerce_to_string((V15->c.c_car)); |
|
|
if((V15=MMcdr(V15))==Cnil){ |
|
|
V5= base[5]; |
|
|
goto T41;} |
|
|
V14=MMcdr(V14)=MMcons(Cnil,Cnil); |
|
104 |
goto T42;} |
goto T42;} |
105 |
T41:; |
base[5]=V21=MMcons(Cnil,Cnil); |
106 |
base[5]= VV[13]; |
T43:; |
107 |
|
(V21->c.c_car)= coerce_to_string((V22->c.c_car)); |
108 |
|
if(endp(V22=MMcdr(V22))){ |
109 |
|
V12= base[5]; |
110 |
|
goto T42;} |
111 |
|
V21=MMcdr(V21)=MMcons(Cnil,Cnil); |
112 |
|
goto T43;} |
113 |
|
T42:; |
114 |
|
base[5]= VV[7]; |
115 |
base[6]= base[3]; |
base[6]= base[3]; |
116 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
117 |
L5(base); |
L5(base); |
118 |
vs_top=sup; |
vs_top=sup; |
119 |
V17= vs_base[0]; |
V24= vs_base[0]; |
120 |
V6= CMPcar(V17); |
V13= car(V24); |
121 |
base[5]= VV[14]; |
base[5]= VV[8]; |
122 |
base[6]= base[3]; |
base[6]= base[3]; |
123 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
124 |
L5(base); |
L5(base); |
125 |
vs_top=sup; |
vs_top=sup; |
126 |
V18= vs_base[0]; |
V25= vs_base[0]; |
127 |
V7= CMPcar(V18); |
V14= car(V25); |
128 |
base[6]= VV[15]; |
base[6]= VV[9]; |
129 |
base[7]= base[3]; |
base[7]= base[3]; |
130 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
131 |
L5(base); |
L5(base); |
132 |
vs_top=sup; |
vs_top=sup; |
133 |
V21= vs_base[0]; |
V28= vs_base[0]; |
134 |
{object V19; |
{object V26; |
135 |
object V20= V21; |
object V27= V28; |
136 |
if(V20==Cnil){ |
if(endp(V27)){ |
137 |
V8= Cnil; |
V15= Cnil; |
|
goto T55;} |
|
|
base[5]=V19=MMcons(Cnil,Cnil); |
|
|
T56:; |
|
|
(V19->c.c_car)= coerce_to_string((V20->c.c_car)); |
|
|
if((V20=MMcdr(V20))==Cnil){ |
|
|
V8= base[5]; |
|
|
goto T55;} |
|
|
V19=MMcdr(V19)=MMcons(Cnil,Cnil); |
|
138 |
goto T56;} |
goto T56;} |
139 |
T55:; |
base[5]=V26=MMcons(Cnil,Cnil); |
140 |
base[6]= VV[16]; |
T57:; |
141 |
|
(V26->c.c_car)= coerce_to_string((V27->c.c_car)); |
142 |
|
if(endp(V27=MMcdr(V27))){ |
143 |
|
V15= base[5]; |
144 |
|
goto T56;} |
145 |
|
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
146 |
|
goto T57;} |
147 |
|
T56:; |
148 |
|
base[6]= VV[10]; |
149 |
base[7]= base[3]; |
base[7]= base[3]; |
150 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
151 |
L5(base); |
L5(base); |
152 |
vs_top=sup; |
vs_top=sup; |
153 |
V24= vs_base[0]; |
V31= vs_base[0]; |
154 |
{object V22; |
{object V29; |
155 |
object V23= V24; |
object V30= V31; |
156 |
if(V23==Cnil){ |
if(endp(V30)){ |
157 |
V9= Cnil; |
V16= Cnil; |
|
goto T61;} |
|
|
base[5]=V22=MMcons(Cnil,Cnil); |
|
|
T62:; |
|
|
(V22->c.c_car)= coerce_to_string((V23->c.c_car)); |
|
|
if((V23=MMcdr(V23))==Cnil){ |
|
|
V9= base[5]; |
|
|
goto T61;} |
|
|
V22=MMcdr(V22)=MMcons(Cnil,Cnil); |
|
158 |
goto T62;} |
goto T62;} |
159 |
T61:; |
base[5]=V29=MMcons(Cnil,Cnil); |
160 |
base[6]= VV[17]; |
T63:; |
161 |
|
(V29->c.c_car)= coerce_to_string((V30->c.c_car)); |
162 |
|
if(endp(V30=MMcdr(V30))){ |
163 |
|
V16= base[5]; |
164 |
|
goto T62;} |
165 |
|
V29=MMcdr(V29)=MMcons(Cnil,Cnil); |
166 |
|
goto T63;} |
167 |
|
T62:; |
168 |
|
base[6]= VV[11]; |
169 |
base[7]= base[3]; |
base[7]= base[3]; |
170 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
171 |
L5(base); |
L5(base); |
172 |
vs_top=sup; |
vs_top=sup; |
173 |
V27= vs_base[0]; |
V34= vs_base[0]; |
174 |
{object V25; |
{object V32; |
175 |
object V26= V27; |
object V33= V34; |
176 |
if(V26==Cnil){ |
if(endp(V33)){ |
177 |
V10= Cnil; |
V17= Cnil; |
178 |
goto T67;} |
goto T68;} |
179 |
base[5]=V25=MMcons(Cnil,Cnil); |
base[5]=V32=MMcons(Cnil,Cnil); |
180 |
T68:; |
T69:; |
181 |
(V25->c.c_car)= coerce_to_string((V26->c.c_car)); |
(V32->c.c_car)= coerce_to_string((V33->c.c_car)); |
182 |
if((V26=MMcdr(V26))==Cnil){ |
if(endp(V33=MMcdr(V33))){ |
183 |
V10= base[5]; |
V17= base[5]; |
|
goto T67;} |
|
|
V25=MMcdr(V25)=MMcons(Cnil,Cnil); |
|
184 |
goto T68;} |
goto T68;} |
185 |
T67:; |
V32=MMcdr(V32)=MMcons(Cnil,Cnil); |
186 |
T75:; |
goto T69;} |
187 |
base[5]= VV[19]; |
T68:; |
188 |
|
{register object V35; |
189 |
|
register object V36; |
190 |
|
base[5]= VV[12]; |
191 |
base[6]= base[3]; |
base[6]= base[3]; |
192 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
193 |
L4(base); |
L4(base); |
194 |
vs_top=sup; |
vs_top=sup; |
195 |
V28= coerce_to_string(CMPcar((VV[18]->s.s_dbind))); |
V36= vs_base[0]; |
196 |
{object V30; |
V35= Cnil; |
197 |
object V31= CMPcdr((VV[18]->s.s_dbind)); |
{register object V37; |
198 |
if(V31==Cnil){ |
register object V38; |
199 |
V29= Cnil; |
register object V39; |
200 |
goto T84;} |
V37= Cnil; |
201 |
base[5]=V30=MMcons(Cnil,Cnil); |
V38= Cnil; |
202 |
T85:; |
V39= Cnil; |
203 |
(V30->c.c_car)= coerce_to_string((V31->c.c_car)); |
T79:; |
204 |
if((V31=MMcdr(V31))==Cnil){ |
if(((V36))==Cnil){ |
205 |
V29= base[5]; |
goto T82;} |
206 |
goto T84;} |
goto T81; |
207 |
V30=MMcdr(V30)=MMcons(Cnil,Cnil); |
T82:; |
208 |
goto T85;} |
goto T80; |
209 |
T84:; |
T81:; |
210 |
(void)(make_cons(/* INLINE-ARGS */V28,V29)); |
{register object V40; |
211 |
goto T75; |
V40= car((V36)); |
212 |
|
V35= (V40);} |
213 |
|
V41= coerce_to_string(car((V35))); |
214 |
|
{object V43; |
215 |
|
object V44= cdr((V35)); |
216 |
|
if(endp(V44)){ |
217 |
|
V42= Cnil; |
218 |
|
goto T89;} |
219 |
|
base[5]=V43=MMcons(Cnil,Cnil); |
220 |
T90:; |
T90:; |
221 |
base[5]= VV[21]; |
(V43->c.c_car)= coerce_to_string((V44->c.c_car)); |
222 |
|
if(endp(V44=MMcdr(V44))){ |
223 |
|
V42= base[5]; |
224 |
|
goto T89;} |
225 |
|
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
226 |
|
goto T90;} |
227 |
|
T89:; |
228 |
|
V39= make_cons(/* INLINE-ARGS */V41,V42); |
229 |
|
if(((V38))==Cnil){ |
230 |
|
goto T94;} |
231 |
|
{register object V45; |
232 |
|
register object V46; |
233 |
|
V45= (V38); |
234 |
|
V38= make_cons((V39),Cnil); |
235 |
|
V46= (V38); |
236 |
|
if(type_of((V45))!=t_cons)FEwrong_type_argument(Scons,(V45)); |
237 |
|
((V45))->c.c_cdr = (V46); |
238 |
|
goto T92;} |
239 |
|
T94:; |
240 |
|
V38= make_cons((V39),Cnil); |
241 |
|
V37= (V38); |
242 |
|
T92:; |
243 |
|
V36= cdr((V36)); |
244 |
|
goto T79; |
245 |
|
T80:; |
246 |
|
V18= (V37); |
247 |
|
goto T74; |
248 |
|
V18= Cnil; |
249 |
|
goto T74; |
250 |
|
V18= Cnil; |
251 |
|
goto T74;}} |
252 |
|
T74:; |
253 |
|
{register object V47; |
254 |
|
register object V48; |
255 |
|
base[5]= VV[13]; |
256 |
base[6]= base[3]; |
base[6]= base[3]; |
257 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
258 |
L4(base); |
L4(base); |
259 |
vs_top=sup; |
vs_top=sup; |
260 |
V32= coerce_to_string(CMPcar((VV[18]->s.s_dbind))); |
V48= vs_base[0]; |
261 |
{object V34; |
V47= Cnil; |
262 |
object V35= CMPcdr((VV[18]->s.s_dbind)); |
{register object V49; |
263 |
if(V35==Cnil){ |
register object V50; |
264 |
V33= Cnil; |
register object V51; |
265 |
goto T99;} |
V49= Cnil; |
266 |
base[5]=V34=MMcons(Cnil,Cnil); |
V50= Cnil; |
267 |
T100:; |
V51= Cnil; |
268 |
(V34->c.c_car)= coerce_to_string((V35->c.c_car)); |
T111:; |
269 |
if((V35=MMcdr(V35))==Cnil){ |
if(((V48))==Cnil){ |
270 |
V33= base[5]; |
goto T114;} |
271 |
goto T99;} |
goto T113; |
272 |
V34=MMcdr(V34)=MMcons(Cnil,Cnil); |
T114:; |
273 |
goto T100;} |
goto T112; |
274 |
T99:; |
T113:; |
275 |
(void)(make_cons(/* INLINE-ARGS */V32,V33)); |
{register object V52; |
276 |
goto T90; |
V52= car((V48)); |
277 |
base[6]= VV[22]; |
V47= (V52);} |
278 |
|
V53= coerce_to_string(car((V47))); |
279 |
|
{object V55; |
280 |
|
object V56= cdr((V47)); |
281 |
|
if(endp(V56)){ |
282 |
|
V54= Cnil; |
283 |
|
goto T121;} |
284 |
|
base[5]=V55=MMcons(Cnil,Cnil); |
285 |
|
T122:; |
286 |
|
(V55->c.c_car)= coerce_to_string((V56->c.c_car)); |
287 |
|
if(endp(V56=MMcdr(V56))){ |
288 |
|
V54= base[5]; |
289 |
|
goto T121;} |
290 |
|
V55=MMcdr(V55)=MMcons(Cnil,Cnil); |
291 |
|
goto T122;} |
292 |
|
T121:; |
293 |
|
V51= make_cons(/* INLINE-ARGS */V53,V54); |
294 |
|
if(((V50))==Cnil){ |
295 |
|
goto T126;} |
296 |
|
{register object V57; |
297 |
|
register object V58; |
298 |
|
V57= (V50); |
299 |
|
V50= make_cons((V51),Cnil); |
300 |
|
V58= (V50); |
301 |
|
if(type_of((V57))!=t_cons)FEwrong_type_argument(Scons,(V57)); |
302 |
|
((V57))->c.c_cdr = (V58); |
303 |
|
goto T124;} |
304 |
|
T126:; |
305 |
|
V50= make_cons((V51),Cnil); |
306 |
|
V49= (V50); |
307 |
|
T124:; |
308 |
|
V48= cdr((V48)); |
309 |
|
goto T111; |
310 |
|
T112:; |
311 |
|
V19= (V49); |
312 |
|
goto T106; |
313 |
|
V19= Cnil; |
314 |
|
goto T106; |
315 |
|
V19= Cnil; |
316 |
|
goto T106;}} |
317 |
|
T106:; |
318 |
|
base[6]= VV[14]; |
319 |
base[7]= base[3]; |
base[7]= base[3]; |
320 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
321 |
L5(base); |
L5(base); |
322 |
vs_top=sup; |
vs_top=sup; |
323 |
V38= vs_base[0]; |
V61= vs_base[0]; |
324 |
{object V36; |
{object V59; |
325 |
object V37= V38; |
object V60= V61; |
326 |
if(V37==Cnil){ |
if(endp(V60)){ |
327 |
V13= Cnil; |
V20= Cnil; |
328 |
goto T103;} |
goto T138;} |
329 |
base[5]=V36=MMcons(Cnil,Cnil); |
base[5]=V59=MMcons(Cnil,Cnil); |
330 |
T104:; |
T139:; |
331 |
(V36->c.c_car)= coerce_to_string((V37->c.c_car)); |
(V59->c.c_car)= coerce_to_string((V60->c.c_car)); |
332 |
if((V37=MMcdr(V37))==Cnil){ |
if(endp(V60=MMcdr(V60))){ |
333 |
V13= base[5]; |
V20= base[5]; |
334 |
goto T103;} |
goto T138;} |
335 |
V36=MMcdr(V36)=MMcons(Cnil,Cnil); |
V59=MMcdr(V59)=MMcons(Cnil,Cnil); |
336 |
goto T104;} |
goto T139;} |
337 |
T103:; |
T138:; |
338 |
T112:; |
{register object V62; |
339 |
base[5]= (V8); |
register object V63; |
340 |
base[6]= (V9); |
base[5]= (V15); |
341 |
T122:; |
base[6]= (V16); |
342 |
(void)(CMPcdr((VV[18]->s.s_dbind))); |
{register object V64; |
343 |
goto T122; |
register object V65; |
344 |
T132:; |
V64= Cnil; |
345 |
(void)(CMPcdr((VV[18]->s.s_dbind))); |
V65= (V18); |
346 |
goto T132; |
{register object V66; |
347 |
|
register object V67; |
348 |
|
register object V68; |
349 |
|
V66= Cnil; |
350 |
|
V67= Cnil; |
351 |
|
V68= Cnil; |
352 |
|
T151:; |
353 |
|
if(((V65))==Cnil){ |
354 |
|
goto T154;} |
355 |
|
goto T153; |
356 |
|
T154:; |
357 |
|
goto T152; |
358 |
|
T153:; |
359 |
|
{register object V69; |
360 |
|
V69= car((V65)); |
361 |
|
V64= (V69);} |
362 |
|
base[8]= cdr((V64)); |
363 |
|
vs_top=(vs_base=base+8)+1; |
364 |
|
Lcopy_list(); |
365 |
|
vs_top=sup; |
366 |
|
V68= vs_base[0]; |
367 |
|
if(((V67))==Cnil){ |
368 |
|
goto T164;} |
369 |
|
{register object V70; |
370 |
|
register object V71; |
371 |
|
V70= (V67); |
372 |
|
V71= (V68); |
373 |
|
if(type_of((V70))!=t_cons)FEwrong_type_argument(Scons,(V70)); |
374 |
|
((V70))->c.c_cdr = (V71); |
375 |
|
if(((V71))!=Cnil){ |
376 |
|
goto T166;}} |
377 |
|
goto T162; |
378 |
|
T166:; |
379 |
|
base[8]= cdr((V67)); |
380 |
|
vs_top=(vs_base=base+8)+1; |
381 |
|
Llast(); |
382 |
|
vs_top=sup; |
383 |
|
V67= vs_base[0]; |
384 |
|
goto T162; |
385 |
|
T164:; |
386 |
|
V66= (V68); |
387 |
|
base[8]= (V66); |
388 |
|
vs_top=(vs_base=base+8)+1; |
389 |
|
Llast(); |
390 |
|
vs_top=sup; |
391 |
|
V67= vs_base[0]; |
392 |
|
T162:; |
393 |
|
V65= cdr((V65)); |
394 |
|
goto T151; |
395 |
|
T152:; |
396 |
|
base[7]= (V66); |
397 |
|
goto T149; |
398 |
|
base[7]= Cnil; |
399 |
|
goto T149; |
400 |
|
base[7]= Cnil; |
401 |
|
goto T149;}} |
402 |
|
T149:; |
403 |
|
{register object V72; |
404 |
|
register object V73; |
405 |
|
V72= Cnil; |
406 |
|
V73= (V19); |
407 |
|
{register object V74; |
408 |
|
register object V75; |
409 |
|
register object V76; |
410 |
|
V74= Cnil; |
411 |
|
V75= Cnil; |
412 |
|
V76= Cnil; |
413 |
|
T182:; |
414 |
|
if(((V73))==Cnil){ |
415 |
|
goto T185;} |
416 |
|
goto T184; |
417 |
|
T185:; |
418 |
|
goto T183; |
419 |
|
T184:; |
420 |
|
{register object V77; |
421 |
|
V77= car((V73)); |
422 |
|
V72= (V77);} |
423 |
|
base[9]= cdr((V72)); |
424 |
|
vs_top=(vs_base=base+9)+1; |
425 |
|
Lcopy_list(); |
426 |
|
vs_top=sup; |
427 |
|
V76= vs_base[0]; |
428 |
|
if(((V75))==Cnil){ |
429 |
|
goto T195;} |
430 |
|
{register object V78; |
431 |
|
register object V79; |
432 |
|
V78= (V75); |
433 |
|
V79= (V76); |
434 |
|
if(type_of((V78))!=t_cons)FEwrong_type_argument(Scons,(V78)); |
435 |
|
((V78))->c.c_cdr = (V79); |
436 |
|
if(((V79))!=Cnil){ |
437 |
|
goto T197;}} |
438 |
|
goto T193; |
439 |
|
T197:; |
440 |
|
base[9]= cdr((V75)); |
441 |
|
vs_top=(vs_base=base+9)+1; |
442 |
|
Llast(); |
443 |
|
vs_top=sup; |
444 |
|
V75= vs_base[0]; |
445 |
|
goto T193; |
446 |
|
T195:; |
447 |
|
V74= (V76); |
448 |
|
base[9]= (V74); |
449 |
|
vs_top=(vs_base=base+9)+1; |
450 |
|
Llast(); |
451 |
|
vs_top=sup; |
452 |
|
V75= vs_base[0]; |
453 |
|
T193:; |
454 |
|
V73= cdr((V73)); |
455 |
|
goto T182; |
456 |
|
T183:; |
457 |
|
base[8]= (V74); |
458 |
|
goto T180; |
459 |
|
base[8]= Cnil; |
460 |
|
goto T180; |
461 |
|
base[8]= Cnil; |
462 |
|
goto T180;}} |
463 |
|
T180:; |
464 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
465 |
L2(base); |
L2(base); |
466 |
vs_top=sup; |
vs_top=sup; |
467 |
base[5]= VV[25]; |
V63= vs_base[0]; |
468 |
base[6]= CMPcar((VV[23]->s.s_dbind)); |
V62= Cnil; |
469 |
T145:; |
T212:; |
470 |
(void)(CMPcdr((VV[23]->s.s_dbind))); |
if(((V63))==Cnil){ |
471 |
{object V39= (VV[26]->s.s_dbind); |
goto T215;} |
472 |
if(!eql(V39,VV[27]))goto T152; |
goto T214; |
473 |
goto T146; |
T215:; |
474 |
T152:; |
goto T213; |
475 |
if(!eql(V39,VV[28]))goto T153; |
T214:; |
476 |
goto T146; |
{register object V80; |
477 |
T153:; |
V80= car((V63)); |
478 |
if(!eql(V39,VV[29]))goto T154; |
V62= (V80);} |
479 |
goto T146; |
base[5]= VV[15]; |
480 |
T154:; |
base[6]= car((V62)); |
481 |
if(!eql(V39,VV[30]))goto T155; |
{register object V81; |
482 |
goto T146; |
register object V82; |
483 |
T155:;} |
V82= cdr((V62)); |
484 |
T146:; |
V81= Cnil; |
485 |
goto T145; |
{register object V83; |
486 |
|
register object V84; |
487 |
|
register object V85; |
488 |
|
V83= Cnil; |
489 |
|
V84= Cnil; |
490 |
|
V85= Cnil; |
491 |
|
T226:; |
492 |
|
if(((V82))==Cnil){ |
493 |
|
goto T229;} |
494 |
|
goto T228; |
495 |
|
T229:; |
496 |
|
goto T227; |
497 |
|
T228:; |
498 |
|
{register object V86; |
499 |
|
V86= car((V82)); |
500 |
|
V81= (V86);} |
501 |
|
{object V87= (V81); |
502 |
|
if(!eql(V87,VV[16]))goto T236; |
503 |
|
V85= VV[9]; |
504 |
|
goto T235; |
505 |
|
T236:; |
506 |
|
if(!eql(V87,VV[17]))goto T237; |
507 |
|
V85= VV[10]; |
508 |
|
goto T235; |
509 |
|
T237:; |
510 |
|
if(!eql(V87,VV[18]))goto T238; |
511 |
|
V85= VV[12]; |
512 |
|
goto T235; |
513 |
|
T238:; |
514 |
|
if(!eql(V87,VV[19]))goto T239; |
515 |
|
V85= VV[13]; |
516 |
|
goto T235; |
517 |
|
T239:; |
518 |
|
V85= Cnil;} |
519 |
|
T235:; |
520 |
|
if(((V84))==Cnil){ |
521 |
|
goto T242;} |
522 |
|
{register object V88; |
523 |
|
register object V89; |
524 |
|
V88= (V84); |
525 |
|
V84= make_cons((V85),Cnil); |
526 |
|
V89= (V84); |
527 |
|
if(type_of((V88))!=t_cons)FEwrong_type_argument(Scons,(V88)); |
528 |
|
((V88))->c.c_cdr = (V89); |
529 |
|
goto T240;} |
530 |
|
T242:; |
531 |
|
V84= make_cons((V85),Cnil); |
532 |
|
V83= (V84); |
533 |
|
T240:; |
534 |
|
V82= cdr((V82)); |
535 |
|
goto T226; |
536 |
|
T227:; |
537 |
|
base[7]= (V83); |
538 |
|
goto T223; |
539 |
|
base[7]= Cnil; |
540 |
|
goto T223; |
541 |
|
base[7]= Cnil; |
542 |
|
goto T223;}} |
543 |
|
T223:; |
544 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
545 |
Lerror(); |
Lerror(); |
546 |
vs_top=sup; |
vs_top=sup; |
547 |
goto T112; |
V63= cdr((V63)); |
548 |
T159:; |
goto T212; |
549 |
base[5]= (V10); |
T213:; |
550 |
base[6]= (V9); |
goto T145; |
551 |
|
goto T145;} |
552 |
|
T145:; |
553 |
|
{register object V90; |
554 |
|
register object V91; |
555 |
|
base[5]= (V17); |
556 |
|
base[6]= (V16); |
557 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
558 |
L2(base); |
L2(base); |
559 |
vs_top=sup; |
vs_top=sup; |
560 |
base[5]= VV[31]; |
V91= vs_base[0]; |
561 |
base[6]= CMPcar((VV[23]->s.s_dbind)); |
V90= Cnil; |
562 |
T172:; |
T261:; |
563 |
(void)(CMPcdr((VV[23]->s.s_dbind))); |
if(((V91))==Cnil){ |
564 |
{object V40= (VV[26]->s.s_dbind); |
goto T264;} |
565 |
if(!eql(V40,VV[27]))goto T179; |
goto T263; |
566 |
goto T173; |
T264:; |
567 |
T179:; |
goto T262; |
568 |
if(!eql(V40,VV[28]))goto T180; |
T263:; |
569 |
goto T173; |
{register object V92; |
570 |
T180:;} |
V92= car((V91)); |
571 |
T173:; |
V90= (V92);} |
572 |
goto T172; |
base[5]= VV[20]; |
573 |
|
base[6]= car((V90)); |
574 |
|
{register object V93; |
575 |
|
register object V94; |
576 |
|
V94= cdr((V90)); |
577 |
|
V93= Cnil; |
578 |
|
{register object V95; |
579 |
|
register object V96; |
580 |
|
register object V97; |
581 |
|
V95= Cnil; |
582 |
|
V96= Cnil; |
583 |
|
V97= Cnil; |
584 |
|
T275:; |
585 |
|
if(((V94))==Cnil){ |
586 |
|
goto T278;} |
587 |
|
goto T277; |
588 |
|
T278:; |
589 |
|
goto T276; |
590 |
|
T277:; |
591 |
|
{register object V98; |
592 |
|
V98= car((V94)); |
593 |
|
V93= (V98);} |
594 |
|
{object V99= (V93); |
595 |
|
if(!eql(V99,VV[16]))goto T285; |
596 |
|
V97= VV[11]; |
597 |
|
goto T284; |
598 |
|
T285:; |
599 |
|
if(!eql(V99,VV[17]))goto T286; |
600 |
|
V97= VV[10]; |
601 |
|
goto T284; |
602 |
|
T286:; |
603 |
|
V97= Cnil;} |
604 |
|
T284:; |
605 |
|
if(((V96))==Cnil){ |
606 |
|
goto T289;} |
607 |
|
{register object V100; |
608 |
|
register object V101; |
609 |
|
V100= (V96); |
610 |
|
V96= make_cons((V97),Cnil); |
611 |
|
V101= (V96); |
612 |
|
if(type_of((V100))!=t_cons)FEwrong_type_argument(Scons,(V100)); |
613 |
|
((V100))->c.c_cdr = (V101); |
614 |
|
goto T287;} |
615 |
|
T289:; |
616 |
|
V96= make_cons((V97),Cnil); |
617 |
|
V95= (V96); |
618 |
|
T287:; |
619 |
|
V94= cdr((V94)); |
620 |
|
goto T275; |
621 |
|
T276:; |
622 |
|
base[7]= (V95); |
623 |
|
goto T272; |
624 |
|
base[7]= Cnil; |
625 |
|
goto T272; |
626 |
|
base[7]= Cnil; |
627 |
|
goto T272;}} |
628 |
|
T272:; |
629 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
630 |
Lerror(); |
Lerror(); |
631 |
vs_top=sup; |
vs_top=sup; |
632 |
goto T159; |
V91= cdr((V91)); |
633 |
V41= list(2,VV[46],base[2]); |
goto T261; |
634 |
V42= list(3,VV[48],base[2],base[2]); |
T262:; |
635 |
if(((V5))==Cnil){ |
goto T144; |
636 |
goto T185;} |
goto T144;} |
637 |
V44= list(4,VV[48],base[2],base[2],list(2,VV[49],(V5))); |
T144:; |
638 |
V43= make_cons(/* INLINE-ARGS */V44,Cnil); |
V102= list(2,VV[26],base[2]); |
639 |
goto T183; |
V103= list(3,VV[28],base[2],base[2]); |
640 |
T185:; |
if(((V12))==Cnil){ |
641 |
V43= Cnil; |
goto T306;} |
642 |
T183:; |
V105= list(4,VV[28],base[2],base[2],list(2,VV[29],(V12))); |
643 |
base[5]= VV[50]; |
V104= make_cons(/* INLINE-ARGS */V105,Cnil); |
644 |
|
goto T304; |
645 |
|
T306:; |
646 |
|
V104= Cnil; |
647 |
|
T304:; |
648 |
|
base[5]= VV[30]; |
649 |
base[6]= base[3]; |
base[6]= base[3]; |
650 |
base[7]= VV[10]; |
base[7]= VV[4]; |
651 |
base[8]= (VV[85]->s.s_gfdef); |
base[8]= symbol_function(VV[63]); |
652 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
653 |
Lmember(); |
Lmember(); |
654 |
vs_top=sup; |
vs_top=sup; |
655 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
656 |
goto T189;} |
goto T310;} |
657 |
V46= list(3,VV[51],list(2,VV[52],list(2,VV[46],base[2])),base[2]); |
V107= list(3,VV[31],list(2,VV[32],list(2,VV[26],base[2])),base[2]); |
658 |
V45= make_cons(/* INLINE-ARGS */V46,Cnil); |
V106= make_cons(/* INLINE-ARGS */V107,Cnil); |
659 |
goto T187; |
goto T308; |
660 |
T189:; |
T310:; |
661 |
V45= Cnil; |
V106= Cnil; |
662 |
T187:; |
T308:; |
663 |
V47= listA(3,VV[47],/* INLINE-ARGS */V42,append(V43,V45)); |
V108= listA(3,VV[27],/* INLINE-ARGS */V103,append(V104,V106)); |
664 |
V48= list(2,VV[49],(V5)); |
V109= list(2,VV[29],(V12)); |
665 |
if(((V7))==Cnil){ |
if(((V14))==Cnil){ |
666 |
goto T197;} |
goto T318;} |
667 |
V49= Cnil; |
V110= Cnil; |
668 |
goto T195; |
goto T316; |
669 |
T197:; |
T318:; |
670 |
V49= Cnil; |
V110= Cnil; |
671 |
T195:; |
T316:; |
672 |
V50= list(4,VV[45],/* INLINE-ARGS */V41,/* INLINE-ARGS */V47,listA(7,VV[53],base[2],VV[54],VV[55],VV[56],/* INLINE-ARGS */V48,V49)); |
V111= list(4,VV[25],/* INLINE-ARGS */V102,/* INLINE-ARGS */V108,listA(7,VV[33],base[2],VV[34],VV[35],VV[36],/* INLINE-ARGS */V109,V110)); |
673 |
if(((V6))==Cnil){ |
if(((V13))==Cnil){ |
674 |
goto T201;} |
goto T322;} |
675 |
base[5]= base[2]; |
base[5]= base[2]; |
676 |
base[6]= VV[59]; |
base[6]= VV[39]; |
677 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
678 |
Lintern(); |
Lintern(); |
679 |
vs_top=sup; |
vs_top=sup; |
680 |
V52= vs_base[0]; |
V113= vs_base[0]; |
681 |
V53= list(3,VV[57],list(3,VV[58],list(2,VV[49],V52),VV[60]),(V6)); |
V114= list(3,VV[37],list(3,VV[38],list(2,VV[29],V113),VV[40]),(V13)); |
682 |
V51= make_cons(/* INLINE-ARGS */V53,Cnil); |
V112= make_cons(/* INLINE-ARGS */V114,Cnil); |
683 |
goto T199; |
goto T320; |
684 |
T201:; |
T322:; |
685 |
V51= Cnil; |
V112= Cnil; |
686 |
T199:; |
T320:; |
687 |
V54= list(2,VV[62],list(2,VV[46],base[2])); |
V115= list(2,VV[42],list(2,VV[26],base[2])); |
688 |
V55= make_cons(/* INLINE-ARGS */V54,Cnil); |
V116= make_cons(/* INLINE-ARGS */V115,Cnil); |
689 |
if(((V8))==Cnil){ |
if(((V15))==Cnil){ |
690 |
goto T209;} |
goto T330;} |
691 |
V57= list(2,VV[63],list(3,VV[64],VV[65],list(2,VV[49],(V8)))); |
V118= list(2,VV[43],list(3,VV[44],VV[45],list(2,VV[29],(V15)))); |
692 |
base[5]= make_cons(/* INLINE-ARGS */V57,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V118,Cnil); |
693 |
goto T207; |
goto T328; |
694 |
T209:; |
T330:; |
695 |
base[5]= Cnil; |
base[5]= Cnil; |
696 |
T207:; |
T328:; |
697 |
if(((V11))==Cnil){ |
if(((V18))==Cnil){ |
698 |
goto T213;} |
goto T334;} |
699 |
{object V58; |
{object V119; |
700 |
object V59= (V11); |
object V120= (V18); |
701 |
if(V59==Cnil){ |
if(endp(V120)){ |
702 |
base[6]= Cnil; |
base[6]= Cnil; |
703 |
goto T211;} |
goto T332;} |
704 |
base[7]=V58=MMcons(Cnil,Cnil); |
base[7]=V119=MMcons(Cnil,Cnil); |
705 |
T215:; |
T336:; |
706 |
V61= list(2,VV[67],list(3,VV[68],VV[69],list(3,VV[70],VV[71],CMPcar((V59->c.c_car))))); |
V122= list(2,VV[47],list(3,VV[48],VV[49],list(3,VV[50],VV[51],car((V120->c.c_car))))); |
707 |
(V58->c.c_car)= list(2,VV[66],list(3,VV[64],/* INLINE-ARGS */V61,list(2,VV[49],CMPcdr((V59->c.c_car))))); |
(V119->c.c_car)= list(2,VV[46],list(3,VV[44],/* INLINE-ARGS */V122,list(2,VV[29],cdr((V120->c.c_car))))); |
708 |
if((V59=MMcdr(V59))==Cnil){ |
if(endp(V120=MMcdr(V120))){ |
709 |
base[6]= base[7]; |
base[6]= base[7]; |
710 |
goto T211;} |
goto T332;} |
711 |
V58=MMcdr(V58)=MMcons(Cnil,Cnil); |
V119=MMcdr(V119)=MMcons(Cnil,Cnil); |
712 |
goto T215;} |
goto T336;} |
713 |
T213:; |
T334:; |
714 |
base[6]= Cnil; |
base[6]= Cnil; |
715 |
T211:;{object V63; |
T332:;{object V124; |
716 |
base[9]= VV[50]; |
base[9]= VV[30]; |
717 |
base[10]= base[3]; |
base[10]= base[3]; |
718 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
719 |
L5(base); |
L5(base); |
720 |
vs_top=sup; |
vs_top=sup; |
721 |
V66= vs_base[0]; |
V127= vs_base[0]; |
722 |
{object V64; |
{object V125; |
723 |
object V65= V66; |
object V126= V127; |
724 |
if(V65==Cnil){ |
if(endp(V126)){ |
725 |
V63= Cnil; |
V124= Cnil; |
726 |
goto T220;} |
goto T341;} |
727 |
base[8]=V64=MMcons(Cnil,Cnil); |
base[8]=V125=MMcons(Cnil,Cnil); |
728 |
T221:; |
T342:; |
729 |
(V64->c.c_car)= coerce_to_string((V65->c.c_car)); |
(V125->c.c_car)= coerce_to_string((V126->c.c_car)); |
730 |
if((V65=MMcdr(V65))==Cnil){ |
if(endp(V126=MMcdr(V126))){ |
731 |
V63= base[8]; |
V124= base[8]; |
732 |
goto T220;} |
goto T341;} |
733 |
V64=MMcdr(V64)=MMcons(Cnil,Cnil); |
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
734 |
goto T221;} |
goto T342;} |
735 |
T220:; |
T341:; |
736 |
if(V63==Cnil)goto T219; |
if(V124==Cnil)goto T340; |
737 |
V62= V63; |
V123= V124; |
738 |
goto T218; |
goto T339; |
739 |
T219:;} |
T340:;} |
740 |
V62= VV[73]; |
V123= VV[53]; |
741 |
T218:; |
T339:; |
742 |
V67= list(2,VV[72],list(2,VV[49],V62)); |
V128= list(2,VV[52],list(2,VV[29],V123)); |
743 |
if(((V12))==Cnil){ |
if(((V19))==Cnil){ |
744 |
goto T229;} |
goto T350;} |
745 |
{object V69; |
{object V130; |
746 |
object V70= (V12); |
object V131= (V19); |
747 |
if(V70==Cnil){ |
if(endp(V131)){ |
748 |
base[8]= Cnil; |
base[8]= Cnil; |
749 |
goto T227;} |
goto T348;} |
750 |
base[9]=V69=MMcons(Cnil,Cnil); |
base[9]=V130=MMcons(Cnil,Cnil); |
751 |
T231:; |
T352:; |
752 |
V72= list(2,VV[67],list(3,VV[68],VV[75],list(3,VV[70],VV[71],CMPcar((V70->c.c_car))))); |
V133= list(2,VV[47],list(3,VV[48],VV[55],list(3,VV[50],VV[51],car((V131->c.c_car))))); |
753 |
(V69->c.c_car)= list(2,VV[74],list(3,VV[64],/* INLINE-ARGS */V72,list(2,VV[49],CMPcdr((V70->c.c_car))))); |
(V130->c.c_car)= list(2,VV[54],list(3,VV[44],/* INLINE-ARGS */V133,list(2,VV[29],cdr((V131->c.c_car))))); |
754 |
if((V70=MMcdr(V70))==Cnil){ |
if(endp(V131=MMcdr(V131))){ |
755 |
base[8]= base[9]; |
base[8]= base[9]; |
756 |
goto T227;} |
goto T348;} |
757 |
V69=MMcdr(V69)=MMcons(Cnil,Cnil); |
V130=MMcdr(V130)=MMcons(Cnil,Cnil); |
758 |
goto T231;} |
goto T352;} |
759 |
T229:; |
T350:; |
760 |
base[8]= Cnil; |
base[8]= Cnil; |
761 |
T227:; |
T348:; |
762 |
if(((V9))==Cnil){ |
if(((V16))==Cnil){ |
763 |
goto T235;} |
goto T356;} |
764 |
V73= list(3,VV[64],VV[76],list(2,VV[49],(V9))); |
V134= list(3,VV[44],VV[56],list(2,VV[29],(V16))); |
765 |
base[9]= make_cons(/* INLINE-ARGS */V73,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V134,Cnil); |
766 |
goto T233; |
goto T354; |
767 |
T235:; |
T356:; |
768 |
base[9]= Cnil; |
base[9]= Cnil; |
769 |
T233:; |
T354:; |
770 |
if(((V10))==Cnil){ |
if(((V17))==Cnil){ |
771 |
goto T239;} |
goto T360;} |
772 |
V74= list(2,VV[77],list(3,VV[64],VV[78],list(2,VV[49],(V10)))); |
V135= list(2,VV[57],list(3,VV[44],VV[58],list(2,VV[29],(V17)))); |
773 |
base[10]= make_cons(/* INLINE-ARGS */V74,Cnil); |
base[10]= make_cons(/* INLINE-ARGS */V135,Cnil); |
774 |
goto T237; |
goto T358; |
775 |
T239:; |
T360:; |
776 |
base[10]= Cnil; |
base[10]= Cnil; |
777 |
T237:; |
T358:; |
778 |
if(((V13))==Cnil){ |
if(((V20))==Cnil){ |
779 |
goto T243;} |
goto T364;} |
780 |
V75= list(3,VV[79],list(2,VV[80],list(2,VV[49],(V13))),VV[81]); |
V136= list(3,VV[59],list(2,VV[60],list(2,VV[29],(V20))),VV[61]); |
781 |
base[11]= make_cons(/* INLINE-ARGS */V75,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V136,Cnil); |
782 |
goto T241; |
goto T362; |
783 |
T243:; |
T364:; |
784 |
base[11]= Cnil; |
base[11]= Cnil; |
785 |
T241:; |
T362:; |
786 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
787 |
Lappend(); |
Lappend(); |
788 |
vs_top=sup; |
vs_top=sup; |
789 |
V68= vs_base[0]; |
V129= vs_base[0]; |
790 |
base[7]= make_cons(/* INLINE-ARGS */V67,V68); |
base[7]= make_cons(/* INLINE-ARGS */V128,V129); |
791 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
792 |
Lappend(); |
Lappend(); |
793 |
vs_top=sup; |
vs_top=sup; |
794 |
V56= vs_base[0]; |
V117= vs_base[0]; |
795 |
V76= listA(3,VV[61],/* INLINE-ARGS */V55,V56); |
V137= listA(3,VV[41],/* INLINE-ARGS */V116,V117); |
796 |
V77= list(2,/* INLINE-ARGS */V76,list(2,VV[46],base[2])); |
V138= list(2,/* INLINE-ARGS */V137,list(2,VV[26],base[2])); |
797 |
base[5]= listA(4,VV[43],VV[44],/* INLINE-ARGS */V50,append(V51,/* INLINE-ARGS */V77)); |
base[5]= listA(4,VV[23],VV[24],/* INLINE-ARGS */V111,append(V112,/* INLINE-ARGS */V138)); |
798 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
799 |
return;} |
return;} |
800 |
} |
} |
804 |
register object *base0; |
register object *base0; |
805 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
806 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
807 |
vs_check; |
vs_reserve(VM2); |
808 |
{object V78; |
{object V139; |
809 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
810 |
{object *p=vs_top; |
{object *p=vs_top; |
811 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
812 |
V78=(base[0]); |
V139=(base[0]); |
813 |
vs_top=sup; |
vs_top=sup; |
814 |
{object V79; |
{object V140; |
815 |
V79= Cnil; |
V140= Cnil; |
816 |
T247:; |
{object V141; |
817 |
(void)(CMPcdr((V78))); |
object V142; |
818 |
T263:; |
V141= Cnil; |
819 |
base[1]= (VV[36]->s.s_dbind); |
V142= (V139); |
820 |
base[2]= (V79); |
{object V143; |
821 |
base[3]= VV[10]; |
V143= cdr((V139)); |
822 |
base[4]= (VV[85]->s.s_gfdef); |
{register int V144; |
823 |
base[5]= VV[40]; |
V144= 1; |
824 |
base[6]= (VV[88]->s.s_gfdef); |
T370:; |
825 |
vs_top=(vs_base=base+1)+6; |
if(((V143))==Cnil){ |
826 |
(void) (*Lnk89)(); |
goto T373;} |
827 |
vs_top=sup; |
goto T372; |
828 |
{register object x= (VV[34]->s.s_dbind),V80= (VV[38]->s.s_dbind); |
T373:; |
829 |
while(V80!=Cnil) |
goto T371; |
830 |
if(eql(x,V80->c.c_car)){ |
T372:; |
831 |
goto T280; |
if(((V142))==Cnil){ |
832 |
}else V80=V80->c.c_cdr;} |
goto T376;} |
833 |
T280:; |
goto T375; |
834 |
T283:; |
T376:; |
835 |
(void)(one_plus((VV[34]->s.s_dbind))); |
goto T371; |
836 |
base[1]= (VV[36]->s.s_dbind); |
T375:; |
837 |
base[2]= (VV[41]->s.s_dbind); |
{object V145; |
838 |
base[3]= VV[40]; |
V145= car((V142)); |
839 |
base[4]= (VV[88]->s.s_gfdef); |
V141= (V145);} |
840 |
|
{register object V146; |
841 |
|
register object V147; |
842 |
|
V146= Cnil; |
843 |
|
V147= (V141); |
844 |
|
{register object V148; |
845 |
|
V148= Cnil; |
846 |
|
T383:; |
847 |
|
if(((V147))==Cnil){ |
848 |
|
goto T386;} |
849 |
|
goto T385; |
850 |
|
T386:; |
851 |
|
goto T384; |
852 |
|
T385:; |
853 |
|
{object V149; |
854 |
|
V149= car((V147)); |
855 |
|
V146= (V149);} |
856 |
|
{object V150; |
857 |
|
V151= symbol_function(VV[63]); |
858 |
|
V152= symbol_function(VV[66]); |
859 |
|
V150= (VFUN_NARGS=6,(*(LnkLI65))((V146),(V140),VV[4],V151,VV[21],V152)); |
860 |
|
V148= (V150);} |
861 |
|
V154 = make_fixnum(V144); |
862 |
|
{register object x= V154,V153= (V148); |
863 |
|
while(!endp(V153)) |
864 |
|
if(eql(x,V153->c.c_car)){ |
865 |
|
goto T396; |
866 |
|
}else V153=V153->c.c_cdr;} |
867 |
|
{object V155; |
868 |
|
register object V156; |
869 |
|
V155= Cnil; |
870 |
|
V156= (V143); |
871 |
|
{register int V157; |
872 |
|
{object V158; |
873 |
|
V159 = make_fixnum(V144); |
874 |
|
V158= one_plus(V159);{object V160; |
875 |
|
V160= (type_of((V158))==t_fixnum?Ct:Cnil); |
876 |
|
if(V160==Cnil)goto T402; |
877 |
|
goto T401; |
878 |
|
T402:;} |
879 |
|
(void)((*(LnkLI67))()); |
880 |
|
T401:; |
881 |
|
V157= fix((V158));} |
882 |
|
T405:; |
883 |
|
if(((V156))==Cnil){ |
884 |
|
goto T408;} |
885 |
|
goto T407; |
886 |
|
T408:; |
887 |
|
goto T406; |
888 |
|
T407:; |
889 |
|
{object V161; |
890 |
|
V161= car((V156)); |
891 |
|
V155= (V161);} |
892 |
|
base[1]= (V146); |
893 |
|
base[2]= (V155); |
894 |
|
base[3]= VV[21]; |
895 |
|
base[4]= symbol_function(VV[66]); |
896 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
897 |
Lmember(); |
Lmember(); |
898 |
vs_top=sup; |
vs_top=sup; |
899 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
900 |
goto T284;} |
goto T413;} |
901 |
if(((VV[38]->s.s_dbind))==Cnil){ |
if(((V148))==Cnil){ |
902 |
goto T301;}{object V81; |
goto T421;} |
903 |
V81= (VV[38]->s.s_dbind); |
V162 = make_fixnum(V157); |
904 |
V82= make_cons((VV[42]->s.s_dbind),Cnil); |
V163= make_cons(V162,Cnil); |
905 |
(void)(nconc(V81,/* INLINE-ARGS */V82)); |
(void)(nconc((V148),/* INLINE-ARGS */V163)); |
906 |
goto T284;} |
goto T413; |
907 |
T301:; |
T421:; |
908 |
V83= list(3,(VV[36]->s.s_dbind),(VV[34]->s.s_dbind),(VV[42]->s.s_dbind)); |
V164 = make_fixnum(V144); |
909 |
V79= make_cons(/* INLINE-ARGS */V83,(V79)); |
V165 = make_fixnum(V157); |
910 |
(VV[38]->s.s_dbind)= CMPcar((V79)); |
V166= list(3,(V146),V164,V165); |
911 |
T284:; |
V140= make_cons(/* INLINE-ARGS */V166,(V140)); |
912 |
goto T283; |
V148= car((V140)); |
913 |
goto T263; |
T413:; |
914 |
goto T247; |
V156= cdr((V156)); |
915 |
base[1]= (V79); |
if(!((V157)<(2147483646))){ |
916 |
|
goto T428;} |
917 |
|
goto T427; |
918 |
|
T428:; |
919 |
|
(void)((*(LnkLI67))()); |
920 |
|
T427:; |
921 |
|
V157= (V157)+(1); |
922 |
|
goto T405; |
923 |
|
T406:; |
924 |
|
goto T396; |
925 |
|
goto T396;}} |
926 |
|
T396:; |
927 |
|
V147= cdr((V147)); |
928 |
|
goto T383; |
929 |
|
T384:; |
930 |
|
goto T381; |
931 |
|
goto T381;}} |
932 |
|
T381:; |
933 |
|
V142= cdr((V142)); |
934 |
|
V143= cdr((V143)); |
935 |
|
if(!((V144)<(2147483646))){ |
936 |
|
goto T441;} |
937 |
|
goto T440; |
938 |
|
T441:; |
939 |
|
(void)((*(LnkLI67))()); |
940 |
|
T440:; |
941 |
|
V144= (V144)+(1); |
942 |
|
goto T370; |
943 |
|
T371:; |
944 |
|
goto T366; |
945 |
|
goto T366;}}} |
946 |
|
T366:; |
947 |
|
base[1]= (V140); |
948 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
949 |
return;} |
return;} |
950 |
} |
} |
955 |
register object *base0; |
register object *base0; |
956 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
957 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
958 |
vs_check; |
vs_reserve(VM3); |
959 |
{object V84; |
{object V167; |
960 |
object V85; |
object V168; |
961 |
V84=(base[0]); |
check_arg(2); |
962 |
V85=(base[1]); |
V167=(base[0]); |
963 |
vs_top=sup; |
V168=(base[1]); |
964 |
if(!(type_of((V85))==t_cons)){ |
vs_top=sup; |
965 |
goto T309;} |
if(!(type_of((V168))==t_cons)){ |
966 |
base[2]= (equal(CMPcar((V85)),(V84))?Ct:Cnil); |
goto T447;} |
967 |
|
base[2]= (equal(car((V168)),(V167))?Ct:Cnil); |
968 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
969 |
return; |
return; |
970 |
T309:; |
T447:; |
971 |
base[2]= Cnil; |
base[2]= Cnil; |
972 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
973 |
return; |
return; |
979 |
register object *base0; |
register object *base0; |
980 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
981 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
982 |
vs_check; |
vs_reserve(VM4); |
983 |
{register object V86; |
{object V169; |
984 |
object V87; |
object V170; |
985 |
V86=(base[0]); |
check_arg(2); |
986 |
V87=(base[1]); |
V169=(base[0]); |
987 |
|
V170=(base[1]); |
988 |
vs_top=sup; |
vs_top=sup; |
989 |
TTL:; |
TTL:; |
990 |
T312:; |
{register object V171; |
991 |
base[2]= (V86); |
V171= Cnil; |
992 |
base[3]= (V87); |
{object V172; |
993 |
base[4]= VV[40]; |
register object V173; |
994 |
|
register object V174; |
995 |
|
V172= Cnil; |
996 |
|
V173= Cnil; |
997 |
|
V174= Cnil; |
998 |
|
{object V175; |
999 |
|
base[2]= (V169); |
1000 |
|
base[3]= (V170); |
1001 |
|
base[4]= VV[21]; |
1002 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1003 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1004 |
Lmember(); |
Lmember(); |
1005 |
vs_top=sup; |
vs_top=sup; |
1006 |
base[2]= (V86); |
V175= vs_base[0]; |
1007 |
base[3]= CMPcdr((VV[82]->s.s_dbind)); |
V171= (V175);} |
1008 |
base[4]= VV[40]; |
T450:; |
1009 |
|
if(((V171))==Cnil){ |
1010 |
|
goto T459;} |
1011 |
|
goto T458; |
1012 |
|
T459:; |
1013 |
|
goto T451; |
1014 |
|
T458:; |
1015 |
|
if(((V171))==Cnil){ |
1016 |
|
goto T461;} |
1017 |
|
base[2]= cdr(car((V171))); |
1018 |
|
vs_top=(vs_base=base+2)+1; |
1019 |
|
Lcopy_list(); |
1020 |
|
vs_top=sup; |
1021 |
|
V174= vs_base[0]; |
1022 |
|
if(((V173))==Cnil){ |
1023 |
|
goto T468;} |
1024 |
|
{register object V176; |
1025 |
|
register object V177; |
1026 |
|
V176= (V173); |
1027 |
|
V177= (V174); |
1028 |
|
if(type_of((V176))!=t_cons)FEwrong_type_argument(Scons,(V176)); |
1029 |
|
((V176))->c.c_cdr = (V177); |
1030 |
|
if(((V177))!=Cnil){ |
1031 |
|
goto T470;}} |
1032 |
|
goto T461; |
1033 |
|
T470:; |
1034 |
|
base[2]= cdr((V173)); |
1035 |
|
vs_top=(vs_base=base+2)+1; |
1036 |
|
Llast(); |
1037 |
|
vs_top=sup; |
1038 |
|
V173= vs_base[0]; |
1039 |
|
goto T461; |
1040 |
|
T468:; |
1041 |
|
V172= (V174); |
1042 |
|
base[2]= (V172); |
1043 |
|
vs_top=(vs_base=base+2)+1; |
1044 |
|
Llast(); |
1045 |
|
vs_top=sup; |
1046 |
|
V173= vs_base[0]; |
1047 |
|
T461:; |
1048 |
|
{register object V178; |
1049 |
|
base[2]= (V169); |
1050 |
|
base[3]= cdr((V171)); |
1051 |
|
base[4]= VV[21]; |
1052 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1053 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1054 |
Lmember(); |
Lmember(); |
1055 |
vs_top=sup; |
vs_top=sup; |
1056 |
(void)(((VV[82]->s.s_dbind))==Cnil); |
V178= vs_base[0]; |
1057 |
(void)(CMPcdr(CMPcar((VV[82]->s.s_dbind)))); |
V171= (V178);} |
1058 |
goto T312; |
goto T450; |
1059 |
|
T451:; |
1060 |
|
base[2]= (V172); |
1061 |
|
vs_top=(vs_base=base+2)+1; |
1062 |
|
return; |
1063 |
|
base[2]= Cnil; |
1064 |
|
vs_top=(vs_base=base+2)+1; |
1065 |
|
return; |
1066 |
|
base[2]= Cnil; |
1067 |
|
vs_top=(vs_base=base+2)+1; |
1068 |
|
return;}} |
1069 |
} |
} |
1070 |
} |
} |
1071 |
/* local function OPTION-VALUES-LIST */ |
/* local function OPTION-VALUES-LIST */ |
1074 |
register object *base0; |
register object *base0; |
1075 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1076 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
1077 |
vs_check; |
vs_reserve(VM5); |
1078 |
{register object V88; |
{object V179; |
1079 |
object V89; |
object V180; |
1080 |
V88=(base[0]); |
check_arg(2); |
1081 |
V89=(base[1]); |
V179=(base[0]); |
1082 |
|
V180=(base[1]); |
1083 |
vs_top=sup; |
vs_top=sup; |
1084 |
TTL:; |
TTL:; |
1085 |
T335:; |
{register object V181; |
1086 |
base[2]= (V88); |
V181= Cnil; |
1087 |
base[3]= (V89); |
{object V182; |
1088 |
base[4]= VV[40]; |
register object V183; |
1089 |
|
register object V184; |
1090 |
|
V182= Cnil; |
1091 |
|
V183= Cnil; |
1092 |
|
V184= Cnil; |
1093 |
|
{object V185; |
1094 |
|
base[2]= (V179); |
1095 |
|
base[3]= (V180); |
1096 |
|
base[4]= VV[21]; |
1097 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1098 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1099 |
Lmember(); |
Lmember(); |
1100 |
vs_top=sup; |
vs_top=sup; |
1101 |
base[2]= (V88); |
V185= vs_base[0]; |
1102 |
base[3]= CMPcdr((VV[82]->s.s_dbind)); |
V181= (V185);} |
1103 |
base[4]= VV[40]; |
T490:; |
1104 |
|
if(((V181))==Cnil){ |
1105 |
|
goto T499;} |
1106 |
|
goto T498; |
1107 |
|
T499:; |
1108 |
|
goto T491; |
1109 |
|
T498:; |
1110 |
|
if(((V181))==Cnil){ |
1111 |
|
goto T501;} |
1112 |
|
V184= cdr(car((V181))); |
1113 |
|
if(((V183))==Cnil){ |
1114 |
|
goto T507;} |
1115 |
|
{register object V186; |
1116 |
|
register object V187; |
1117 |
|
V186= (V183); |
1118 |
|
V183= make_cons((V184),Cnil); |
1119 |
|
V187= (V183); |
1120 |
|
if(type_of((V186))!=t_cons)FEwrong_type_argument(Scons,(V186)); |
1121 |
|
((V186))->c.c_cdr = (V187); |
1122 |
|
goto T501;} |
1123 |
|
T507:; |
1124 |
|
V183= make_cons((V184),Cnil); |
1125 |
|
V182= (V183); |
1126 |
|
T501:; |
1127 |
|
{register object V188; |
1128 |
|
base[2]= (V179); |
1129 |
|
base[3]= cdr((V181)); |
1130 |
|
base[4]= VV[21]; |
1131 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1132 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1133 |
Lmember(); |
Lmember(); |
1134 |
vs_top=sup; |
vs_top=sup; |
1135 |
(void)(((VV[82]->s.s_dbind))==Cnil); |
V188= vs_base[0]; |
1136 |
(void)(CMPcdr(CMPcar((VV[82]->s.s_dbind)))); |
V181= (V188);} |
1137 |
goto T335; |
goto T490; |
1138 |
|
T491:; |
1139 |
|
base[2]= (V182); |
1140 |
|
vs_top=(vs_base=base+2)+1; |
1141 |
|
return; |
1142 |
|
base[2]= Cnil; |
1143 |
|
vs_top=(vs_base=base+2)+1; |
1144 |
|
return; |
1145 |
|
base[2]= Cnil; |
1146 |
|
vs_top=(vs_base=base+2)+1; |
1147 |
|
return;}} |
1148 |
} |
} |
1149 |
} |
} |
1150 |
static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* FIND */ |
static object LnkTLI67(){return call_proc0(VV[67],&LnkLI67);} /* TYPE-ERROR */ |
1151 |
static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* WARN */ |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],&LnkLI65,ap);} /* FIND */ |
1152 |
static LnkT86(){ call_or_link(VV[86],&Lnk86);} /* COUNT */ |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],&LnkLI64,ap);} /* WARN */ |
1153 |
static LnkT3(){ call_or_link(VV[3],&Lnk3);} /* OPTION */ |
static object LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[62],&LnkLI62,ap);} /* COUNT */ |
1154 |
|
|
1155 |
|
#ifdef SYSTEM_SPECIAL_INIT |
1156 |
|
SYSTEM_SPECIAL_INIT |
1157 |
|
#endif |
1158 |
|
|