72 |
{register object V8; |
{register object V8; |
73 |
V8= car((V7)); |
V8= car((V7)); |
74 |
V6= (V8);} |
V6= (V8);} |
75 |
V9= symbol_function(VV[63]); |
V9= symbol_function(VV[64]); |
76 |
V10= (VFUN_NARGS=4,(*(LnkLI62))((V6),base[3],VV[4],V9)); |
V10= (VFUN_NARGS=4,(*(LnkLI63))((V6),base[3],VV[4],V9)); |
77 |
if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){ |
if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){ |
78 |
goto T30;} |
goto T30;} |
79 |
base[5]= (V6); |
base[5]= VV[5]; |
80 |
base[6]= base[3]; |
base[6]= VV[6]; |
81 |
vs_top=(vs_base=base+5)+2; |
base[7]= (V6); |
82 |
L5(base); |
vs_top=(vs_base=base+5)+3; |
83 |
|
(void) (*Lnk65)(); |
84 |
vs_top=sup; |
vs_top=sup; |
|
V11= vs_base[0]; |
|
|
(void)((VFUN_NARGS=3,(*(LnkLI64))(VV[5],(V6),car(V11)))); |
|
85 |
goto T30; |
goto T30; |
86 |
T30:; |
T30:; |
87 |
V7= cdr((V7)); |
V7= cdr((V7)); |
93 |
goto T20; |
goto T20; |
94 |
T20:; |
T20:; |
95 |
base[2]= coerce_to_string(base[2]); |
base[2]= coerce_to_string(base[2]); |
96 |
{object V12; |
{object V11; |
97 |
|
object V12; |
98 |
object V13; |
object V13; |
99 |
object V14; |
object V14; |
100 |
object V15; |
register object V15; |
101 |
register object V16; |
object V16; |
102 |
object V17; |
object V17; |
103 |
object V18; |
object V18; |
104 |
object V19; |
object V19; |
105 |
object V20; |
base[6]= VV[7]; |
|
base[6]= VV[6]; |
|
106 |
base[7]= base[3]; |
base[7]= base[3]; |
107 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
108 |
L5(base); |
L5(base); |
109 |
vs_top=sup; |
vs_top=sup; |
110 |
V23= vs_base[0]; |
V22= vs_base[0]; |
111 |
{object V21; |
{object V20; |
112 |
object V22= V23; |
object V21= V22; |
113 |
if(endp(V22)){ |
if(endp(V21)){ |
114 |
V12= Cnil; |
V11= Cnil; |
115 |
goto T42;} |
goto T42;} |
116 |
base[5]=V21=MMcons(Cnil,Cnil); |
base[5]=V20=MMcons(Cnil,Cnil); |
117 |
goto T43; |
goto T43; |
118 |
T43:; |
T43:; |
119 |
(V21->c.c_car)= coerce_to_string((V22->c.c_car)); |
(V20->c.c_car)= coerce_to_string((V21->c.c_car)); |
120 |
V22=MMcdr(V22); |
V21=MMcdr(V21); |
121 |
if(endp(V22)){ |
if(endp(V21)){ |
122 |
V12= base[5]; |
V11= base[5]; |
123 |
goto T42;} |
goto T42;} |
124 |
V21=MMcdr(V21)=MMcons(Cnil,Cnil); |
V20=MMcdr(V20)=MMcons(Cnil,Cnil); |
125 |
goto T43;} |
goto T43;} |
126 |
goto T42; |
goto T42; |
127 |
T42:; |
T42:; |
128 |
base[5]= VV[7]; |
base[5]= VV[8]; |
129 |
base[6]= base[3]; |
base[6]= base[3]; |
130 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
131 |
L5(base); |
L5(base); |
132 |
vs_top=sup; |
vs_top=sup; |
133 |
V24= vs_base[0]; |
V23= vs_base[0]; |
134 |
V13= car(V24); |
V12= car(V23); |
135 |
base[5]= VV[8]; |
base[5]= VV[9]; |
136 |
base[6]= base[3]; |
base[6]= base[3]; |
137 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
138 |
L5(base); |
L5(base); |
139 |
vs_top=sup; |
vs_top=sup; |
140 |
V25= vs_base[0]; |
V24= vs_base[0]; |
141 |
V14= car(V25); |
V13= car(V24); |
142 |
base[6]= VV[9]; |
base[6]= VV[10]; |
143 |
base[7]= base[3]; |
base[7]= base[3]; |
144 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
145 |
L5(base); |
L5(base); |
146 |
vs_top=sup; |
vs_top=sup; |
147 |
V28= vs_base[0]; |
V27= vs_base[0]; |
148 |
{object V26; |
{object V25; |
149 |
object V27= V28; |
object V26= V27; |
150 |
if(endp(V27)){ |
if(endp(V26)){ |
151 |
V15= Cnil; |
V14= Cnil; |
152 |
goto T56;} |
goto T56;} |
153 |
base[5]=V26=MMcons(Cnil,Cnil); |
base[5]=V25=MMcons(Cnil,Cnil); |
154 |
goto T57; |
goto T57; |
155 |
T57:; |
T57:; |
156 |
(V26->c.c_car)= coerce_to_string((V27->c.c_car)); |
(V25->c.c_car)= coerce_to_string((V26->c.c_car)); |
157 |
V27=MMcdr(V27); |
V26=MMcdr(V26); |
158 |
if(endp(V27)){ |
if(endp(V26)){ |
159 |
V15= base[5]; |
V14= base[5]; |
160 |
goto T56;} |
goto T56;} |
161 |
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
V25=MMcdr(V25)=MMcons(Cnil,Cnil); |
162 |
goto T57;} |
goto T57;} |
163 |
goto T56; |
goto T56; |
164 |
T56:; |
T56:; |
165 |
base[6]= VV[10]; |
base[6]= VV[11]; |
166 |
base[7]= base[3]; |
base[7]= base[3]; |
167 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
168 |
L5(base); |
L5(base); |
169 |
vs_top=sup; |
vs_top=sup; |
170 |
V31= vs_base[0]; |
V30= vs_base[0]; |
171 |
{object V29; |
{object V28; |
172 |
object V30= V31; |
object V29= V30; |
173 |
if(endp(V30)){ |
if(endp(V29)){ |
174 |
V16= Cnil; |
V15= Cnil; |
175 |
goto T62;} |
goto T62;} |
176 |
base[5]=V29=MMcons(Cnil,Cnil); |
base[5]=V28=MMcons(Cnil,Cnil); |
177 |
goto T63; |
goto T63; |
178 |
T63:; |
T63:; |
179 |
(V29->c.c_car)= coerce_to_string((V30->c.c_car)); |
(V28->c.c_car)= coerce_to_string((V29->c.c_car)); |
180 |
V30=MMcdr(V30); |
V29=MMcdr(V29); |
181 |
if(endp(V30)){ |
if(endp(V29)){ |
182 |
V16= base[5]; |
V15= base[5]; |
183 |
goto T62;} |
goto T62;} |
184 |
V29=MMcdr(V29)=MMcons(Cnil,Cnil); |
V28=MMcdr(V28)=MMcons(Cnil,Cnil); |
185 |
goto T63;} |
goto T63;} |
186 |
goto T62; |
goto T62; |
187 |
T62:; |
T62:; |
188 |
base[6]= VV[11]; |
base[6]= VV[12]; |
189 |
base[7]= base[3]; |
base[7]= base[3]; |
190 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
191 |
L5(base); |
L5(base); |
192 |
vs_top=sup; |
vs_top=sup; |
193 |
V34= vs_base[0]; |
V33= vs_base[0]; |
194 |
{object V32; |
{object V31; |
195 |
object V33= V34; |
object V32= V33; |
196 |
if(endp(V33)){ |
if(endp(V32)){ |
197 |
V17= Cnil; |
V16= Cnil; |
198 |
goto T68;} |
goto T68;} |
199 |
base[5]=V32=MMcons(Cnil,Cnil); |
base[5]=V31=MMcons(Cnil,Cnil); |
200 |
goto T69; |
goto T69; |
201 |
T69:; |
T69:; |
202 |
(V32->c.c_car)= coerce_to_string((V33->c.c_car)); |
(V31->c.c_car)= coerce_to_string((V32->c.c_car)); |
203 |
V33=MMcdr(V33); |
V32=MMcdr(V32); |
204 |
if(endp(V33)){ |
if(endp(V32)){ |
205 |
V17= base[5]; |
V16= base[5]; |
206 |
goto T68;} |
goto T68;} |
207 |
V32=MMcdr(V32)=MMcons(Cnil,Cnil); |
V31=MMcdr(V31)=MMcons(Cnil,Cnil); |
208 |
goto T69;} |
goto T69;} |
209 |
goto T68; |
goto T68; |
210 |
T68:; |
T68:; |
211 |
{register object V35; |
{register object V34; |
212 |
register object V36; |
register object V35; |
213 |
base[5]= VV[12]; |
base[5]= VV[13]; |
214 |
base[6]= base[3]; |
base[6]= base[3]; |
215 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
216 |
L4(base); |
L4(base); |
217 |
vs_top=sup; |
vs_top=sup; |
218 |
V36= vs_base[0]; |
V35= vs_base[0]; |
219 |
V35= Cnil; |
V34= Cnil; |
220 |
{register object V37; |
{register object V36; |
221 |
|
register object V37; |
222 |
register object V38; |
register object V38; |
223 |
register object V39; |
V36= Cnil; |
224 |
V37= Cnil; |
V37= Cnil; |
225 |
V38= Cnil; |
V38= Cnil; |
|
V39= Cnil; |
|
226 |
goto T79; |
goto T79; |
227 |
T79:; |
T79:; |
228 |
if(((V36))==Cnil){ |
if(((V35))==Cnil){ |
229 |
goto T82;} |
goto T82;} |
230 |
goto T81; |
goto T81; |
231 |
goto T82; |
goto T82; |
233 |
goto T80; |
goto T80; |
234 |
goto T81; |
goto T81; |
235 |
T81:; |
T81:; |
236 |
{register object V40; |
{register object V39; |
237 |
V40= car((V36)); |
V39= car((V35)); |
238 |
V35= (V40);} |
V34= (V39);} |
239 |
V41= coerce_to_string(car((V35))); |
V40= coerce_to_string(car((V34))); |
240 |
{object V43; |
{object V42; |
241 |
object V44= cdr((V35)); |
object V43= cdr((V34)); |
242 |
if(endp(V44)){ |
if(endp(V43)){ |
243 |
V42= Cnil; |
V41= Cnil; |
244 |
goto T89;} |
goto T89;} |
245 |
base[5]=V43=MMcons(Cnil,Cnil); |
base[5]=V42=MMcons(Cnil,Cnil); |
246 |
goto T90; |
goto T90; |
247 |
T90:; |
T90:; |
248 |
(V43->c.c_car)= coerce_to_string((V44->c.c_car)); |
(V42->c.c_car)= coerce_to_string((V43->c.c_car)); |
249 |
V44=MMcdr(V44); |
V43=MMcdr(V43); |
250 |
if(endp(V44)){ |
if(endp(V43)){ |
251 |
V42= base[5]; |
V41= base[5]; |
252 |
goto T89;} |
goto T89;} |
253 |
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
V42=MMcdr(V42)=MMcons(Cnil,Cnil); |
254 |
goto T90;} |
goto T90;} |
255 |
goto T89; |
goto T89; |
256 |
T89:; |
T89:; |
257 |
V39= make_cons(/* INLINE-ARGS */V41,V42); |
V38= make_cons(/* INLINE-ARGS */V40,V41); |
258 |
if(((V38))==Cnil){ |
if(((V37))==Cnil){ |
259 |
goto T94;} |
goto T94;} |
260 |
{register object V45; |
{register object V44; |
261 |
register object V46; |
register object V45; |
262 |
V45= (V38); |
V44= (V37); |
263 |
V38= make_cons((V39),Cnil); |
V37= make_cons((V38),Cnil); |
264 |
V46= (V38); |
V45= (V37); |
265 |
if(type_of((V45))!=t_cons)FEwrong_type_argument(Scons,(V45)); |
if(type_of((V44))!=t_cons)FEwrong_type_argument(Scons,(V44)); |
266 |
((V45))->c.c_cdr = (V46); |
((V44))->c.c_cdr = (V45); |
267 |
goto T92;} |
goto T92;} |
268 |
goto T94; |
goto T94; |
269 |
T94:; |
T94:; |
270 |
V38= make_cons((V39),Cnil); |
V37= make_cons((V38),Cnil); |
271 |
V37= (V38); |
V36= (V37); |
272 |
goto T92; |
goto T92; |
273 |
T92:; |
T92:; |
274 |
V36= cdr((V36)); |
V35= cdr((V35)); |
275 |
goto T79; |
goto T79; |
276 |
goto T80; |
goto T80; |
277 |
T80:; |
T80:; |
278 |
V18= (V37); |
V17= (V36); |
279 |
goto T74; |
goto T74; |
280 |
V18= Cnil; |
V17= Cnil; |
281 |
goto T74; |
goto T74; |
282 |
V18= Cnil; |
V17= Cnil; |
283 |
goto T74;}} |
goto T74;}} |
284 |
goto T74; |
goto T74; |
285 |
T74:; |
T74:; |
286 |
{register object V47; |
{register object V46; |
287 |
register object V48; |
register object V47; |
288 |
base[5]= VV[13]; |
base[5]= VV[14]; |
289 |
base[6]= base[3]; |
base[6]= base[3]; |
290 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
291 |
L4(base); |
L4(base); |
292 |
vs_top=sup; |
vs_top=sup; |
293 |
V48= vs_base[0]; |
V47= vs_base[0]; |
294 |
V47= Cnil; |
V46= Cnil; |
295 |
{register object V49; |
{register object V48; |
296 |
|
register object V49; |
297 |
register object V50; |
register object V50; |
298 |
register object V51; |
V48= Cnil; |
299 |
V49= Cnil; |
V49= Cnil; |
300 |
V50= Cnil; |
V50= Cnil; |
|
V51= Cnil; |
|
301 |
goto T111; |
goto T111; |
302 |
T111:; |
T111:; |
303 |
if(((V48))==Cnil){ |
if(((V47))==Cnil){ |
304 |
goto T114;} |
goto T114;} |
305 |
goto T113; |
goto T113; |
306 |
goto T114; |
goto T114; |
308 |
goto T112; |
goto T112; |
309 |
goto T113; |
goto T113; |
310 |
T113:; |
T113:; |
311 |
{register object V52; |
{register object V51; |
312 |
V52= car((V48)); |
V51= car((V47)); |
313 |
V47= (V52);} |
V46= (V51);} |
314 |
V53= coerce_to_string(car((V47))); |
V52= coerce_to_string(car((V46))); |
315 |
{object V55; |
{object V54; |
316 |
object V56= cdr((V47)); |
object V55= cdr((V46)); |
317 |
if(endp(V56)){ |
if(endp(V55)){ |
318 |
V54= Cnil; |
V53= Cnil; |
319 |
goto T121;} |
goto T121;} |
320 |
base[5]=V55=MMcons(Cnil,Cnil); |
base[5]=V54=MMcons(Cnil,Cnil); |
321 |
goto T122; |
goto T122; |
322 |
T122:; |
T122:; |
323 |
(V55->c.c_car)= coerce_to_string((V56->c.c_car)); |
(V54->c.c_car)= coerce_to_string((V55->c.c_car)); |
324 |
V56=MMcdr(V56); |
V55=MMcdr(V55); |
325 |
if(endp(V56)){ |
if(endp(V55)){ |
326 |
V54= base[5]; |
V53= base[5]; |
327 |
goto T121;} |
goto T121;} |
328 |
V55=MMcdr(V55)=MMcons(Cnil,Cnil); |
V54=MMcdr(V54)=MMcons(Cnil,Cnil); |
329 |
goto T122;} |
goto T122;} |
330 |
goto T121; |
goto T121; |
331 |
T121:; |
T121:; |
332 |
V51= make_cons(/* INLINE-ARGS */V53,V54); |
V50= make_cons(/* INLINE-ARGS */V52,V53); |
333 |
if(((V50))==Cnil){ |
if(((V49))==Cnil){ |
334 |
goto T126;} |
goto T126;} |
335 |
{register object V57; |
{register object V56; |
336 |
register object V58; |
register object V57; |
337 |
V57= (V50); |
V56= (V49); |
338 |
V50= make_cons((V51),Cnil); |
V49= make_cons((V50),Cnil); |
339 |
V58= (V50); |
V57= (V49); |
340 |
if(type_of((V57))!=t_cons)FEwrong_type_argument(Scons,(V57)); |
if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56)); |
341 |
((V57))->c.c_cdr = (V58); |
((V56))->c.c_cdr = (V57); |
342 |
goto T124;} |
goto T124;} |
343 |
goto T126; |
goto T126; |
344 |
T126:; |
T126:; |
345 |
V50= make_cons((V51),Cnil); |
V49= make_cons((V50),Cnil); |
346 |
V49= (V50); |
V48= (V49); |
347 |
goto T124; |
goto T124; |
348 |
T124:; |
T124:; |
349 |
V48= cdr((V48)); |
V47= cdr((V47)); |
350 |
goto T111; |
goto T111; |
351 |
goto T112; |
goto T112; |
352 |
T112:; |
T112:; |
353 |
V19= (V49); |
V18= (V48); |
354 |
goto T106; |
goto T106; |
355 |
V19= Cnil; |
V18= Cnil; |
356 |
goto T106; |
goto T106; |
357 |
V19= Cnil; |
V18= Cnil; |
358 |
goto T106;}} |
goto T106;}} |
359 |
goto T106; |
goto T106; |
360 |
T106:; |
T106:; |
361 |
base[6]= VV[14]; |
base[6]= VV[15]; |
362 |
base[7]= base[3]; |
base[7]= base[3]; |
363 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
364 |
L5(base); |
L5(base); |
365 |
vs_top=sup; |
vs_top=sup; |
366 |
V61= vs_base[0]; |
V60= vs_base[0]; |
367 |
{object V59; |
{object V58; |
368 |
object V60= V61; |
object V59= V60; |
369 |
if(endp(V60)){ |
if(endp(V59)){ |
370 |
V20= Cnil; |
V19= Cnil; |
371 |
goto T138;} |
goto T138;} |
372 |
base[5]=V59=MMcons(Cnil,Cnil); |
base[5]=V58=MMcons(Cnil,Cnil); |
373 |
goto T139; |
goto T139; |
374 |
T139:; |
T139:; |
375 |
(V59->c.c_car)= coerce_to_string((V60->c.c_car)); |
(V58->c.c_car)= coerce_to_string((V59->c.c_car)); |
376 |
V60=MMcdr(V60); |
V59=MMcdr(V59); |
377 |
if(endp(V60)){ |
if(endp(V59)){ |
378 |
V20= base[5]; |
V19= base[5]; |
379 |
goto T138;} |
goto T138;} |
380 |
V59=MMcdr(V59)=MMcons(Cnil,Cnil); |
V58=MMcdr(V58)=MMcons(Cnil,Cnil); |
381 |
goto T139;} |
goto T139;} |
382 |
goto T138; |
goto T138; |
383 |
T138:; |
T138:; |
384 |
{register object V62; |
{register object V61; |
385 |
register object V63; |
register object V62; |
386 |
base[5]= (V15); |
base[5]= (V14); |
387 |
base[6]= (V16); |
base[6]= (V15); |
388 |
{register object V64; |
{register object V63; |
389 |
register object V65; |
register object V64; |
390 |
V64= Cnil; |
V63= Cnil; |
391 |
V65= (V18); |
V64= (V17); |
392 |
{register object V66; |
{register object V65; |
393 |
|
register object V66; |
394 |
register object V67; |
register object V67; |
395 |
register object V68; |
V65= Cnil; |
396 |
V66= Cnil; |
V66= Cnil; |
397 |
V67= Cnil; |
V67= Cnil; |
|
V68= Cnil; |
|
398 |
goto T151; |
goto T151; |
399 |
T151:; |
T151:; |
400 |
if(((V65))==Cnil){ |
if(((V64))==Cnil){ |
401 |
goto T154;} |
goto T154;} |
402 |
goto T153; |
goto T153; |
403 |
goto T154; |
goto T154; |
405 |
goto T152; |
goto T152; |
406 |
goto T153; |
goto T153; |
407 |
T153:; |
T153:; |
408 |
{register object V69; |
{register object V68; |
409 |
V69= car((V65)); |
V68= car((V64)); |
410 |
V64= (V69);} |
V63= (V68);} |
411 |
base[8]= cdr((V64)); |
base[8]= cdr((V63)); |
412 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
413 |
Lcopy_list(); |
Lcopy_list(); |
414 |
vs_top=sup; |
vs_top=sup; |
415 |
V68= vs_base[0]; |
V67= vs_base[0]; |
416 |
if(((V67))==Cnil){ |
if(((V66))==Cnil){ |
417 |
goto T164;} |
goto T164;} |
418 |
{register object V70; |
{register object V69; |
419 |
register object V71; |
register object V70; |
420 |
|
V69= (V66); |
421 |
V70= (V67); |
V70= (V67); |
422 |
V71= (V68); |
if(type_of((V69))!=t_cons)FEwrong_type_argument(Scons,(V69)); |
423 |
if(type_of((V70))!=t_cons)FEwrong_type_argument(Scons,(V70)); |
((V69))->c.c_cdr = (V70); |
424 |
((V70))->c.c_cdr = (V71); |
if(((V70))!=Cnil){ |
|
if(((V71))!=Cnil){ |
|
425 |
goto T166;}} |
goto T166;}} |
426 |
goto T162; |
goto T162; |
427 |
goto T166; |
goto T166; |
428 |
T166:; |
T166:; |
429 |
base[8]= cdr((V67)); |
base[8]= cdr((V66)); |
430 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
431 |
Llast(); |
Llast(); |
432 |
vs_top=sup; |
vs_top=sup; |
433 |
V67= vs_base[0]; |
V66= vs_base[0]; |
434 |
goto T162; |
goto T162; |
435 |
goto T164; |
goto T164; |
436 |
T164:; |
T164:; |
437 |
V66= (V68); |
V65= (V67); |
438 |
base[8]= (V66); |
base[8]= (V65); |
439 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
440 |
Llast(); |
Llast(); |
441 |
vs_top=sup; |
vs_top=sup; |
442 |
V67= vs_base[0]; |
V66= vs_base[0]; |
443 |
goto T162; |
goto T162; |
444 |
T162:; |
T162:; |
445 |
V65= cdr((V65)); |
V64= cdr((V64)); |
446 |
goto T151; |
goto T151; |
447 |
goto T152; |
goto T152; |
448 |
T152:; |
T152:; |
449 |
base[7]= (V66); |
base[7]= (V65); |
450 |
goto T149; |
goto T149; |
451 |
base[7]= Cnil; |
base[7]= Cnil; |
452 |
goto T149; |
goto T149; |
454 |
goto T149;}} |
goto T149;}} |
455 |
goto T149; |
goto T149; |
456 |
T149:; |
T149:; |
457 |
{register object V72; |
{register object V71; |
458 |
register object V73; |
register object V72; |
459 |
V72= Cnil; |
V71= Cnil; |
460 |
V73= (V19); |
V72= (V18); |
461 |
{register object V74; |
{register object V73; |
462 |
|
register object V74; |
463 |
register object V75; |
register object V75; |
464 |
register object V76; |
V73= Cnil; |
465 |
V74= Cnil; |
V74= Cnil; |
466 |
V75= Cnil; |
V75= Cnil; |
|
V76= Cnil; |
|
467 |
goto T182; |
goto T182; |
468 |
T182:; |
T182:; |
469 |
if(((V73))==Cnil){ |
if(((V72))==Cnil){ |
470 |
goto T185;} |
goto T185;} |
471 |
goto T184; |
goto T184; |
472 |
goto T185; |
goto T185; |
474 |
goto T183; |
goto T183; |
475 |
goto T184; |
goto T184; |
476 |
T184:; |
T184:; |
477 |
{register object V77; |
{register object V76; |
478 |
V77= car((V73)); |
V76= car((V72)); |
479 |
V72= (V77);} |
V71= (V76);} |
480 |
base[9]= cdr((V72)); |
base[9]= cdr((V71)); |
481 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
482 |
Lcopy_list(); |
Lcopy_list(); |
483 |
vs_top=sup; |
vs_top=sup; |
484 |
V76= vs_base[0]; |
V75= vs_base[0]; |
485 |
if(((V75))==Cnil){ |
if(((V74))==Cnil){ |
486 |
goto T195;} |
goto T195;} |
487 |
{register object V78; |
{register object V77; |
488 |
register object V79; |
register object V78; |
489 |
|
V77= (V74); |
490 |
V78= (V75); |
V78= (V75); |
491 |
V79= (V76); |
if(type_of((V77))!=t_cons)FEwrong_type_argument(Scons,(V77)); |
492 |
if(type_of((V78))!=t_cons)FEwrong_type_argument(Scons,(V78)); |
((V77))->c.c_cdr = (V78); |
493 |
((V78))->c.c_cdr = (V79); |
if(((V78))!=Cnil){ |
|
if(((V79))!=Cnil){ |
|
494 |
goto T197;}} |
goto T197;}} |
495 |
goto T193; |
goto T193; |
496 |
goto T197; |
goto T197; |
497 |
T197:; |
T197:; |
498 |
base[9]= cdr((V75)); |
base[9]= cdr((V74)); |
499 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
500 |
Llast(); |
Llast(); |
501 |
vs_top=sup; |
vs_top=sup; |
502 |
V75= vs_base[0]; |
V74= vs_base[0]; |
503 |
goto T193; |
goto T193; |
504 |
goto T195; |
goto T195; |
505 |
T195:; |
T195:; |
506 |
V74= (V76); |
V73= (V75); |
507 |
base[9]= (V74); |
base[9]= (V73); |
508 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
509 |
Llast(); |
Llast(); |
510 |
vs_top=sup; |
vs_top=sup; |
511 |
V75= vs_base[0]; |
V74= vs_base[0]; |
512 |
goto T193; |
goto T193; |
513 |
T193:; |
T193:; |
514 |
V73= cdr((V73)); |
V72= cdr((V72)); |
515 |
goto T182; |
goto T182; |
516 |
goto T183; |
goto T183; |
517 |
T183:; |
T183:; |
518 |
base[8]= (V74); |
base[8]= (V73); |
519 |
goto T180; |
goto T180; |
520 |
base[8]= Cnil; |
base[8]= Cnil; |
521 |
goto T180; |
goto T180; |
526 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
527 |
L2(base); |
L2(base); |
528 |
vs_top=sup; |
vs_top=sup; |
529 |
V63= vs_base[0]; |
V62= vs_base[0]; |
530 |
V62= Cnil; |
V61= Cnil; |
531 |
goto T212; |
goto T212; |
532 |
T212:; |
T212:; |
533 |
if(((V63))==Cnil){ |
if(((V62))==Cnil){ |
534 |
goto T215;} |
goto T215;} |
535 |
goto T214; |
goto T214; |
536 |
goto T215; |
goto T215; |
538 |
goto T213; |
goto T213; |
539 |
goto T214; |
goto T214; |
540 |
T214:; |
T214:; |
541 |
|
{register object V79; |
542 |
|
V79= car((V62)); |
543 |
|
V61= (V79);} |
544 |
|
base[5]= VV[5]; |
545 |
|
base[6]= VV[16]; |
546 |
|
base[7]= car((V61)); |
547 |
{register object V80; |
{register object V80; |
548 |
V80= car((V63)); |
register object V81; |
549 |
V62= (V80);} |
V81= cdr((V61)); |
550 |
base[5]= VV[15]; |
V80= Cnil; |
551 |
base[6]= car((V62)); |
{register object V82; |
552 |
{register object V81; |
register object V83; |
|
register object V82; |
|
|
V82= cdr((V62)); |
|
|
V81= Cnil; |
|
|
{register object V83; |
|
553 |
register object V84; |
register object V84; |
554 |
register object V85; |
V82= Cnil; |
555 |
V83= Cnil; |
V83= Cnil; |
556 |
V84= Cnil; |
V84= Cnil; |
557 |
V85= Cnil; |
goto T227; |
558 |
goto T226; |
T227:; |
559 |
T226:; |
if(((V81))==Cnil){ |
560 |
if(((V82))==Cnil){ |
goto T230;} |
561 |
goto T229;} |
goto T229; |
562 |
|
goto T230; |
563 |
|
T230:; |
564 |
goto T228; |
goto T228; |
565 |
goto T229; |
goto T229; |
566 |
T229:; |
T229:; |
567 |
goto T227; |
{register object V85; |
568 |
goto T228; |
V85= car((V81)); |
569 |
T228:; |
V80= (V85);} |
570 |
{register object V86; |
{object V86= (V80); |
571 |
V86= car((V82)); |
if(!eql(V86,VV[17]))goto T237; |
572 |
V81= (V86);} |
V84= VV[10]; |
573 |
{object V87= (V81); |
goto T236; |
|
if(!eql(V87,VV[16]))goto T236; |
|
|
V85= VV[9]; |
|
|
goto T235; |
|
|
goto T236; |
|
|
T236:; |
|
|
if(!eql(V87,VV[17]))goto T237; |
|
|
V85= VV[10]; |
|
|
goto T235; |
|
574 |
goto T237; |
goto T237; |
575 |
T237:; |
T237:; |
576 |
if(!eql(V87,VV[18]))goto T238; |
if(!eql(V86,VV[18]))goto T238; |
577 |
V85= VV[12]; |
V84= VV[11]; |
578 |
goto T235; |
goto T236; |
579 |
goto T238; |
goto T238; |
580 |
T238:; |
T238:; |
581 |
if(!eql(V87,VV[19]))goto T239; |
if(!eql(V86,VV[19]))goto T239; |
582 |
V85= VV[13]; |
V84= VV[13]; |
583 |
goto T235; |
goto T236; |
584 |
goto T239; |
goto T239; |
585 |
T239:; |
T239:; |
586 |
V85= Cnil;} |
if(!eql(V86,VV[20]))goto T240; |
587 |
goto T235; |
V84= VV[14]; |
588 |
T235:; |
goto T236; |
|
if(((V84))==Cnil){ |
|
|
goto T242;} |
|
|
{register object V88; |
|
|
register object V89; |
|
|
V88= (V84); |
|
|
V84= make_cons((V85),Cnil); |
|
|
V89= (V84); |
|
|
if(type_of((V88))!=t_cons)FEwrong_type_argument(Scons,(V88)); |
|
|
((V88))->c.c_cdr = (V89); |
|
|
goto T240;} |
|
|
goto T242; |
|
|
T242:; |
|
|
V84= make_cons((V85),Cnil); |
|
|
V83= (V84); |
|
589 |
goto T240; |
goto T240; |
590 |
T240:; |
T240:; |
591 |
V82= cdr((V82)); |
V84= Cnil;} |
592 |
goto T226; |
goto T236; |
593 |
goto T227; |
T236:; |
594 |
T227:; |
if(((V83))==Cnil){ |
595 |
base[7]= (V83); |
goto T243;} |
596 |
goto T223; |
{register object V87; |
597 |
base[7]= Cnil; |
register object V88; |
598 |
goto T223; |
V87= (V83); |
599 |
base[7]= Cnil; |
V83= make_cons((V84),Cnil); |
600 |
goto T223;}} |
V88= (V83); |
601 |
goto T223; |
if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87)); |
602 |
T223:; |
((V87))->c.c_cdr = (V88); |
603 |
vs_top=(vs_base=base+5)+3; |
goto T241;} |
604 |
Lerror(); |
goto T243; |
605 |
|
T243:; |
606 |
|
V83= make_cons((V84),Cnil); |
607 |
|
V82= (V83); |
608 |
|
goto T241; |
609 |
|
T241:; |
610 |
|
V81= cdr((V81)); |
611 |
|
goto T227; |
612 |
|
goto T228; |
613 |
|
T228:; |
614 |
|
base[8]= (V82); |
615 |
|
goto T224; |
616 |
|
base[8]= Cnil; |
617 |
|
goto T224; |
618 |
|
base[8]= Cnil; |
619 |
|
goto T224;}} |
620 |
|
goto T224; |
621 |
|
T224:; |
622 |
|
vs_top=(vs_base=base+5)+4; |
623 |
|
(void) (*Lnk65)(); |
624 |
vs_top=sup; |
vs_top=sup; |
625 |
V63= cdr((V63)); |
V62= cdr((V62)); |
626 |
goto T212; |
goto T212; |
627 |
goto T213; |
goto T213; |
628 |
T213:; |
T213:; |
630 |
goto T145;} |
goto T145;} |
631 |
goto T145; |
goto T145; |
632 |
T145:; |
T145:; |
633 |
{register object V90; |
{register object V89; |
634 |
register object V91; |
register object V90; |
635 |
base[5]= (V17); |
base[5]= (V16); |
636 |
base[6]= (V16); |
base[6]= (V15); |
637 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
638 |
L2(base); |
L2(base); |
639 |
vs_top=sup; |
vs_top=sup; |
640 |
V91= vs_base[0]; |
V90= vs_base[0]; |
641 |
V90= Cnil; |
V89= Cnil; |
642 |
goto T261; |
goto T262; |
643 |
T261:; |
T262:; |
644 |
if(((V91))==Cnil){ |
if(((V90))==Cnil){ |
645 |
goto T264;} |
goto T265;} |
646 |
|
goto T264; |
647 |
|
goto T265; |
648 |
|
T265:; |
649 |
goto T263; |
goto T263; |
650 |
goto T264; |
goto T264; |
651 |
T264:; |
T264:; |
652 |
goto T262; |
{register object V91; |
653 |
goto T263; |
V91= car((V90)); |
654 |
T263:; |
V89= (V91);} |
655 |
|
base[5]= VV[5]; |
656 |
|
base[6]= VV[21]; |
657 |
|
base[7]= car((V89)); |
658 |
{register object V92; |
{register object V92; |
659 |
V92= car((V91)); |
register object V93; |
660 |
V90= (V92);} |
V93= cdr((V89)); |
661 |
base[5]= VV[20]; |
V92= Cnil; |
662 |
base[6]= car((V90)); |
{register object V94; |
663 |
{register object V93; |
register object V95; |
|
register object V94; |
|
|
V94= cdr((V90)); |
|
|
V93= Cnil; |
|
|
{register object V95; |
|
664 |
register object V96; |
register object V96; |
665 |
register object V97; |
V94= Cnil; |
666 |
V95= Cnil; |
V95= Cnil; |
667 |
V96= Cnil; |
V96= Cnil; |
|
V97= Cnil; |
|
|
goto T275; |
|
|
T275:; |
|
|
if(((V94))==Cnil){ |
|
|
goto T278;} |
|
|
goto T277; |
|
|
goto T278; |
|
|
T278:; |
|
|
goto T276; |
|
668 |
goto T277; |
goto T277; |
669 |
T277:; |
T277:; |
670 |
{register object V98; |
if(((V93))==Cnil){ |
671 |
V98= car((V94)); |
goto T280;} |
672 |
V93= (V98);} |
goto T279; |
673 |
{object V99= (V93); |
goto T280; |
674 |
if(!eql(V99,VV[16]))goto T285; |
T280:; |
675 |
V97= VV[11]; |
goto T278; |
676 |
goto T284; |
goto T279; |
677 |
goto T285; |
T279:; |
678 |
T285:; |
{register object V97; |
679 |
if(!eql(V99,VV[17]))goto T286; |
V97= car((V93)); |
680 |
V97= VV[10]; |
V92= (V97);} |
681 |
goto T284; |
{object V98= (V92); |
682 |
|
if(!eql(V98,VV[17]))goto T287; |
683 |
|
V96= VV[12]; |
684 |
|
goto T286; |
685 |
|
goto T287; |
686 |
|
T287:; |
687 |
|
if(!eql(V98,VV[18]))goto T288; |
688 |
|
V96= VV[11]; |
689 |
|
goto T286; |
690 |
|
goto T288; |
691 |
|
T288:; |
692 |
|
V96= Cnil;} |
693 |
goto T286; |
goto T286; |
694 |
T286:; |
T286:; |
695 |
V97= Cnil;} |
if(((V95))==Cnil){ |
696 |
goto T284; |
goto T291;} |
697 |
T284:; |
{register object V99; |
698 |
if(((V96))==Cnil){ |
register object V100; |
699 |
|
V99= (V95); |
700 |
|
V95= make_cons((V96),Cnil); |
701 |
|
V100= (V95); |
702 |
|
if(type_of((V99))!=t_cons)FEwrong_type_argument(Scons,(V99)); |
703 |
|
((V99))->c.c_cdr = (V100); |
704 |
goto T289;} |
goto T289;} |
705 |
{register object V100; |
goto T291; |
706 |
register object V101; |
T291:; |
707 |
V100= (V96); |
V95= make_cons((V96),Cnil); |
708 |
V96= make_cons((V97),Cnil); |
V94= (V95); |
|
V101= (V96); |
|
|
if(type_of((V100))!=t_cons)FEwrong_type_argument(Scons,(V100)); |
|
|
((V100))->c.c_cdr = (V101); |
|
|
goto T287;} |
|
709 |
goto T289; |
goto T289; |
710 |
T289:; |
T289:; |
711 |
V96= make_cons((V97),Cnil); |
V93= cdr((V93)); |
712 |
V95= (V96); |
goto T277; |
713 |
goto T287; |
goto T278; |
714 |
T287:; |
T278:; |
715 |
V94= cdr((V94)); |
base[8]= (V94); |
716 |
goto T275; |
goto T274; |
717 |
goto T276; |
base[8]= Cnil; |
718 |
T276:; |
goto T274; |
719 |
base[7]= (V95); |
base[8]= Cnil; |
720 |
goto T272; |
goto T274;}} |
721 |
base[7]= Cnil; |
goto T274; |
722 |
goto T272; |
T274:; |
723 |
base[7]= Cnil; |
vs_top=(vs_base=base+5)+4; |
724 |
goto T272;}} |
(void) (*Lnk65)(); |
|
goto T272; |
|
|
T272:; |
|
|
vs_top=(vs_base=base+5)+3; |
|
|
Lerror(); |
|
725 |
vs_top=sup; |
vs_top=sup; |
726 |
V91= cdr((V91)); |
V90= cdr((V90)); |
727 |
goto T261; |
goto T262; |
728 |
goto T262; |
goto T263; |
729 |
T262:; |
T263:; |
730 |
goto T144; |
goto T144; |
731 |
goto T144;} |
goto T144;} |
732 |
goto T144; |
goto T144; |
733 |
T144:; |
T144:; |
734 |
V102= list(2,VV[26],base[2]); |
V101= list(2,VV[27],base[2]); |
735 |
V103= list(3,VV[28],base[2],base[2]); |
V102= list(3,VV[29],base[2],base[2]); |
736 |
if(((V12))==Cnil){ |
if(((V11))==Cnil){ |
737 |
goto T306;} |
goto T308;} |
738 |
V105= list(4,VV[28],base[2],base[2],list(2,VV[29],(V12))); |
V104= list(4,VV[29],base[2],base[2],list(2,VV[30],(V11))); |
739 |
V104= make_cons(/* INLINE-ARGS */V105,Cnil); |
V103= make_cons(/* INLINE-ARGS */V104,Cnil); |
740 |
goto T304; |
goto T306; |
741 |
|
goto T308; |
742 |
|
T308:; |
743 |
|
V103= Cnil; |
744 |
goto T306; |
goto T306; |
745 |
T306:; |
T306:; |
746 |
V104= Cnil; |
base[5]= VV[31]; |
|
goto T304; |
|
|
T304:; |
|
|
base[5]= VV[30]; |
|
747 |
base[6]= base[3]; |
base[6]= base[3]; |
748 |
base[7]= VV[4]; |
base[7]= VV[4]; |
749 |
base[8]= symbol_function(VV[63]); |
base[8]= symbol_function(VV[64]); |
750 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
751 |
Lmember(); |
Lmember(); |
752 |
vs_top=sup; |
vs_top=sup; |
753 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
754 |
goto T310;} |
goto T312;} |
755 |
V107= list(3,VV[31],list(2,VV[32],list(2,VV[26],base[2])),base[2]); |
V106= list(3,VV[32],list(2,VV[33],list(2,VV[27],base[2])),base[2]); |
756 |
V106= make_cons(/* INLINE-ARGS */V107,Cnil); |
V105= make_cons(/* INLINE-ARGS */V106,Cnil); |
757 |
goto T308; |
goto T310; |
758 |
|
goto T312; |
759 |
|
T312:; |
760 |
|
V105= Cnil; |
761 |
goto T310; |
goto T310; |
762 |
T310:; |
T310:; |
763 |
V106= Cnil; |
V107= listA(3,VV[28],/* INLINE-ARGS */V102,append(V103,V105)); |
764 |
goto T308; |
V108= list(2,VV[30],(V11)); |
765 |
T308:; |
if(((V13))==Cnil){ |
766 |
V108= listA(3,VV[27],/* INLINE-ARGS */V103,append(V104,V106)); |
goto T320;} |
767 |
V109= list(2,VV[29],(V12)); |
V109= Cnil; |
768 |
if(((V14))==Cnil){ |
goto T318; |
769 |
goto T318;} |
goto T320; |
770 |
V110= Cnil; |
T320:; |
771 |
goto T316; |
V109= Cnil; |
772 |
goto T318; |
goto T318; |
773 |
T318:; |
T318:; |
774 |
V110= Cnil; |
V110= list(4,VV[26],/* INLINE-ARGS */V101,/* INLINE-ARGS */V107,listA(7,VV[34],base[2],VV[35],VV[36],VV[37],/* INLINE-ARGS */V108,V109)); |
|
goto T316; |
|
|
T316:; |
|
|
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)); |
|
|
if(((V13))==Cnil){ |
|
|
goto T322;} |
|
775 |
base[5]= base[2]; |
base[5]= base[2]; |
776 |
base[6]= VV[39]; |
base[6]= VV[40]; |
777 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
778 |
Lintern(); |
Lintern(); |
779 |
vs_top=sup; |
vs_top=sup; |
780 |
V113= vs_base[0]; |
V111= vs_base[0]; |
781 |
V114= list(3,VV[37],list(3,VV[38],list(2,VV[29],V113),VV[40]),(V13)); |
V112= list(3,VV[38],list(3,VV[39],list(2,VV[30],V111),VV[41]),(V12)); |
782 |
V112= make_cons(/* INLINE-ARGS */V114,Cnil); |
V113= make_cons(/* INLINE-ARGS */V112,Cnil); |
783 |
goto T320; |
V114= list(2,VV[43],list(2,VV[27],base[2])); |
784 |
goto T322; |
V115= make_cons(/* INLINE-ARGS */V114,Cnil); |
785 |
T322:; |
if(((V14))==Cnil){ |
786 |
V112= Cnil; |
goto T328;} |
787 |
goto T320; |
V117= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V14)))); |
788 |
T320:; |
base[5]= make_cons(/* INLINE-ARGS */V117,Cnil); |
789 |
V115= list(2,VV[42],list(2,VV[26],base[2])); |
goto T326; |
|
V116= make_cons(/* INLINE-ARGS */V115,Cnil); |
|
|
if(((V15))==Cnil){ |
|
|
goto T330;} |
|
|
V118= list(2,VV[43],list(3,VV[44],VV[45],list(2,VV[29],(V15)))); |
|
|
base[5]= make_cons(/* INLINE-ARGS */V118,Cnil); |
|
|
goto T328; |
|
|
goto T330; |
|
|
T330:; |
|
|
base[5]= Cnil; |
|
790 |
goto T328; |
goto T328; |
791 |
T328:; |
T328:; |
792 |
if(((V18))==Cnil){ |
base[5]= Cnil; |
793 |
goto T334;} |
goto T326; |
794 |
{object V119; |
T326:; |
795 |
object V120= (V18); |
if(((V17))==Cnil){ |
|
if(endp(V120)){ |
|
|
base[6]= Cnil; |
|
|
goto T332;} |
|
|
base[7]=V119=MMcons(Cnil,Cnil); |
|
|
goto T336; |
|
|
T336:; |
|
|
V122= list(2,VV[47],list(3,VV[48],VV[49],list(3,VV[50],VV[51],car((V120->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))))); |
|
|
V120=MMcdr(V120); |
|
|
if(endp(V120)){ |
|
|
base[6]= base[7]; |
|
796 |
goto T332;} |
goto T332;} |
797 |
V119=MMcdr(V119)=MMcons(Cnil,Cnil); |
{object V118; |
798 |
goto T336;} |
object V119= (V17); |
799 |
|
if(endp(V119)){ |
800 |
|
base[6]= Cnil; |
801 |
|
goto T330;} |
802 |
|
base[7]=V118=MMcons(Cnil,Cnil); |
803 |
goto T334; |
goto T334; |
804 |
T334:; |
T334:; |
805 |
base[6]= Cnil; |
V121= list(2,VV[48],list(3,VV[49],VV[50],list(3,VV[51],VV[52],car((V119->c.c_car))))); |
806 |
|
(V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V121,list(2,VV[30],cdr((V119->c.c_car))))); |
807 |
|
V119=MMcdr(V119); |
808 |
|
if(endp(V119)){ |
809 |
|
base[6]= base[7]; |
810 |
|
goto T330;} |
811 |
|
V118=MMcdr(V118)=MMcons(Cnil,Cnil); |
812 |
|
goto T334;} |
813 |
goto T332; |
goto T332; |
814 |
T332:; |
T332:; |
815 |
base[8]= VV[30]; |
base[6]= Cnil; |
816 |
|
goto T330; |
817 |
|
T330:; |
818 |
|
base[8]= VV[31]; |
819 |
base[9]= base[3]; |
base[9]= base[3]; |
820 |
base[10]= VV[21]; |
base[10]= VV[22]; |
821 |
base[11]= (base[4]->c.c_car); |
base[11]= (base[4]->c.c_car); |
822 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
823 |
Lmember(); |
Lmember(); |
824 |
vs_top=sup; |
vs_top=sup; |
825 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
826 |
goto T341;} |
goto T339;} |
827 |
base[9]= VV[30]; |
base[9]= VV[31]; |
828 |
base[10]= base[3]; |
base[10]= base[3]; |
829 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
830 |
L5(base); |
L5(base); |
831 |
vs_top=sup; |
vs_top=sup; |
832 |
V126= vs_base[0]; |
V125= vs_base[0]; |
833 |
{object V124; |
{object V123; |
834 |
object V125= V126; |
object V124= V125; |
835 |
if(endp(V125)){ |
if(endp(V124)){ |
836 |
V123= Cnil; |
V122= Cnil; |
837 |
goto T339;} |
goto T337;} |
838 |
base[8]=V124=MMcons(Cnil,Cnil); |
base[8]=V123=MMcons(Cnil,Cnil); |
839 |
goto T347; |
goto T345; |
840 |
T347:; |
T345:; |
841 |
(V124->c.c_car)= coerce_to_string((V125->c.c_car)); |
(V123->c.c_car)= coerce_to_string((V124->c.c_car)); |
842 |
V125=MMcdr(V125); |
V124=MMcdr(V124); |
843 |
if(endp(V125)){ |
if(endp(V124)){ |
844 |
V123= base[8]; |
V122= base[8]; |
845 |
goto T339;} |
goto T337;} |
846 |
V124=MMcdr(V124)=MMcons(Cnil,Cnil); |
V123=MMcdr(V123)=MMcons(Cnil,Cnil); |
847 |
goto T347;} |
goto T345;} |
|
goto T341; |
|
|
T341:; |
|
|
V123= VV[53]; |
|
848 |
goto T339; |
goto T339; |
849 |
T339:; |
T339:; |
850 |
V127= list(2,VV[52],list(2,VV[29],V123)); |
V122= VV[54]; |
851 |
if(((V19))==Cnil){ |
goto T337; |
852 |
goto T355;} |
T337:; |
853 |
{object V129; |
V126= list(2,VV[53],list(2,VV[30],V122)); |
854 |
object V130= (V19); |
if(((V18))==Cnil){ |
|
if(endp(V130)){ |
|
|
base[8]= Cnil; |
|
|
goto T353;} |
|
|
base[9]=V129=MMcons(Cnil,Cnil); |
|
|
goto T357; |
|
|
T357:; |
|
|
V132= list(2,VV[47],list(3,VV[48],VV[55],list(3,VV[50],VV[51],car((V130->c.c_car))))); |
|
|
(V129->c.c_car)= list(2,VV[54],list(3,VV[44],/* INLINE-ARGS */V132,list(2,VV[29],cdr((V130->c.c_car))))); |
|
|
V130=MMcdr(V130); |
|
|
if(endp(V130)){ |
|
|
base[8]= base[9]; |
|
855 |
goto T353;} |
goto T353;} |
856 |
V129=MMcdr(V129)=MMcons(Cnil,Cnil); |
{object V128; |
857 |
goto T357;} |
object V129= (V18); |
858 |
|
if(endp(V129)){ |
859 |
|
base[8]= Cnil; |
860 |
|
goto T351;} |
861 |
|
base[9]=V128=MMcons(Cnil,Cnil); |
862 |
goto T355; |
goto T355; |
863 |
T355:; |
T355:; |
864 |
base[8]= Cnil; |
V131= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[51],VV[52],car((V129->c.c_car))))); |
865 |
|
(V128->c.c_car)= list(2,VV[55],list(3,VV[45],/* INLINE-ARGS */V131,list(2,VV[30],cdr((V129->c.c_car))))); |
866 |
|
V129=MMcdr(V129); |
867 |
|
if(endp(V129)){ |
868 |
|
base[8]= base[9]; |
869 |
|
goto T351;} |
870 |
|
V128=MMcdr(V128)=MMcons(Cnil,Cnil); |
871 |
|
goto T355;} |
872 |
goto T353; |
goto T353; |
873 |
T353:; |
T353:; |
874 |
if(((V16))==Cnil){ |
base[8]= Cnil; |
875 |
goto T361;} |
goto T351; |
876 |
V133= list(3,VV[44],VV[56],list(2,VV[29],(V16))); |
T351:; |
877 |
base[9]= make_cons(/* INLINE-ARGS */V133,Cnil); |
if(((V15))==Cnil){ |
878 |
goto T359; |
goto T359;} |
879 |
goto T361; |
V132= list(3,VV[45],VV[57],list(2,VV[30],(V15))); |
880 |
T361:; |
base[9]= make_cons(/* INLINE-ARGS */V132,Cnil); |
881 |
base[9]= Cnil; |
goto T357; |
882 |
goto T359; |
goto T359; |
883 |
T359:; |
T359:; |
884 |
if(((V17))==Cnil){ |
base[9]= Cnil; |
885 |
goto T365;} |
goto T357; |
886 |
V134= list(2,VV[57],list(3,VV[44],VV[58],list(2,VV[29],(V17)))); |
T357:; |
887 |
base[10]= make_cons(/* INLINE-ARGS */V134,Cnil); |
if(((V16))==Cnil){ |
888 |
goto T363; |
goto T363;} |
889 |
goto T365; |
V133= list(2,VV[58],list(3,VV[45],VV[59],list(2,VV[30],(V16)))); |
890 |
T365:; |
base[10]= make_cons(/* INLINE-ARGS */V133,Cnil); |
891 |
base[10]= Cnil; |
goto T361; |
892 |
goto T363; |
goto T363; |
893 |
T363:; |
T363:; |
894 |
if(((V20))==Cnil){ |
base[10]= Cnil; |
895 |
goto T369;} |
goto T361; |
896 |
V135= list(3,VV[59],list(2,VV[60],list(2,VV[29],(V20))),VV[61]); |
T361:; |
897 |
base[11]= make_cons(/* INLINE-ARGS */V135,Cnil); |
if(((V19))==Cnil){ |
898 |
goto T367; |
goto T367;} |
899 |
goto T369; |
V134= list(3,VV[60],list(2,VV[61],list(2,VV[30],(V19))),VV[62]); |
900 |
T369:; |
base[11]= make_cons(/* INLINE-ARGS */V134,Cnil); |
901 |
base[11]= Cnil; |
goto T365; |
902 |
goto T367; |
goto T367; |
903 |
T367:; |
T367:; |
904 |
|
base[11]= Cnil; |
905 |
|
goto T365; |
906 |
|
T365:; |
907 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
908 |
Lappend(); |
Lappend(); |
909 |
vs_top=sup; |
vs_top=sup; |
910 |
V128= vs_base[0]; |
V127= vs_base[0]; |
911 |
base[7]= make_cons(/* INLINE-ARGS */V127,V128); |
base[7]= make_cons(/* INLINE-ARGS */V126,V127); |
912 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
913 |
Lappend(); |
Lappend(); |
914 |
vs_top=sup; |
vs_top=sup; |
915 |
V117= vs_base[0]; |
V116= vs_base[0]; |
916 |
V136= listA(3,VV[41],/* INLINE-ARGS */V116,V117); |
V135= listA(3,VV[42],/* INLINE-ARGS */V115,V116); |
917 |
V137= list(2,/* INLINE-ARGS */V136,list(2,VV[26],base[2])); |
V136= list(2,/* INLINE-ARGS */V135,list(2,VV[27],base[2])); |
918 |
base[5]= listA(4,VV[23],VV[24],/* INLINE-ARGS */V111,append(V112,/* INLINE-ARGS */V137)); |
base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V136)); |
919 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
920 |
return;} |
return;} |
921 |
} |
} |
926 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
927 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
928 |
vs_reserve(VM2); |
vs_reserve(VM2); |
929 |
{object V138; |
{object V137; |
930 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
931 |
{object *p=vs_top; |
{object *p=vs_top; |
932 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
933 |
V138=(base[0]); |
V137=(base[0]); |
934 |
vs_top=sup; |
vs_top=sup; |
935 |
|
{object V138; |
936 |
|
V138= Cnil; |
937 |
{object V139; |
{object V139; |
938 |
|
object V140; |
939 |
V139= Cnil; |
V139= Cnil; |
940 |
{object V140; |
V140= (V137); |
941 |
object V141; |
{object V141; |
942 |
V140= Cnil; |
V141= cdr((V137)); |
943 |
V141= (V138); |
{register long V142; |
944 |
{object V142; |
V142= 1; |
945 |
V142= cdr((V138)); |
goto T373; |
946 |
{register long V143; |
T373:; |
947 |
V143= 1; |
if(((V141))==Cnil){ |
948 |
|
goto T376;} |
949 |
|
goto T375; |
950 |
|
goto T376; |
951 |
|
T376:; |
952 |
|
goto T374; |
953 |
goto T375; |
goto T375; |
954 |
T375:; |
T375:; |
955 |
if(((V142))==Cnil){ |
if(((V140))==Cnil){ |
956 |
goto T378;} |
goto T379;} |
957 |
goto T377; |
goto T378; |
958 |
|
goto T379; |
959 |
|
T379:; |
960 |
|
goto T374; |
961 |
goto T378; |
goto T378; |
962 |
T378:; |
T378:; |
963 |
goto T376; |
{object V143; |
964 |
goto T377; |
V143= car((V140)); |
965 |
T377:; |
V139= (V143);} |
966 |
if(((V141))==Cnil){ |
{register object V144; |
967 |
goto T381;} |
register object V145; |
968 |
goto T380; |
V144= Cnil; |
969 |
goto T381; |
V145= (V139); |
970 |
T381:; |
{register object V146; |
971 |
goto T376; |
V146= Cnil; |
972 |
goto T380; |
goto T386; |
973 |
T380:; |
T386:; |
974 |
{object V144; |
if(((V145))==Cnil){ |
975 |
V144= car((V141)); |
goto T389;} |
976 |
V140= (V144);} |
goto T388; |
977 |
{register object V145; |
goto T389; |
978 |
register object V146; |
T389:; |
979 |
V145= Cnil; |
goto T387; |
|
V146= (V140); |
|
|
{register object V147; |
|
|
V147= Cnil; |
|
980 |
goto T388; |
goto T388; |
981 |
T388:; |
T388:; |
982 |
if(((V146))==Cnil){ |
{object V147; |
983 |
goto T391;} |
V147= car((V145)); |
984 |
goto T390; |
V144= (V147);} |
|
goto T391; |
|
|
T391:; |
|
|
goto T389; |
|
|
goto T390; |
|
|
T390:; |
|
985 |
{object V148; |
{object V148; |
986 |
V148= car((V146)); |
V149= symbol_function(VV[64]); |
987 |
V145= (V148);} |
V150= symbol_function(VV[67]); |
988 |
{object V149; |
V148= (VFUN_NARGS=6,(*(LnkLI66))((V144),(V138),VV[4],V149,VV[22],V150)); |
989 |
V150= symbol_function(VV[63]); |
V146= (V148);} |
990 |
V151= symbol_function(VV[66]); |
V152 = make_fixnum(V142); |
991 |
V149= (VFUN_NARGS=6,(*(LnkLI65))((V145),(V139),VV[4],V150,VV[21],V151)); |
{register object x= V152,V151= (V146); |
992 |
V147= (V149);} |
while(!endp(V151)) |
993 |
V153 = make_fixnum(V143); |
if(eql(x,V151->c.c_car)){ |
994 |
{register object x= V153,V152= (V147); |
goto T399; |
995 |
while(!endp(V152)) |
}else V151=V151->c.c_cdr;} |
996 |
if(eql(x,V152->c.c_car)){ |
{object V153; |
997 |
goto T401; |
register object V154; |
998 |
}else V152=V152->c.c_cdr;} |
V153= Cnil; |
999 |
{object V154; |
V154= (V141); |
1000 |
register object V155; |
{register long V155; |
1001 |
V154= Cnil; |
{object V156; |
1002 |
V155= (V142); |
V157 = make_fixnum(V142); |
1003 |
{register long V156; |
V156= one_plus(V157);{object V158; |
1004 |
{object V157; |
V158= (type_of((V156))==t_fixnum?Ct:Cnil); |
1005 |
V158 = make_fixnum(V143); |
if(V158==Cnil)goto T405; |
1006 |
V157= one_plus(V158);{object V159; |
goto T404; |
1007 |
V159= (type_of((V157))==t_fixnum?Ct:Cnil); |
goto T405; |
1008 |
if(V159==Cnil)goto T407; |
T405:;} |
1009 |
goto T406; |
(void)((*(LnkLI68))()); |
1010 |
goto T407; |
goto T404; |
1011 |
T407:;} |
T404:; |
1012 |
(void)((*(LnkLI67))()); |
V155= fix((V156));} |
1013 |
goto T406; |
goto T408; |
1014 |
T406:; |
T408:; |
1015 |
V156= fix((V157));} |
if(((V154))==Cnil){ |
1016 |
|
goto T411;} |
1017 |
|
goto T410; |
1018 |
|
goto T411; |
1019 |
|
T411:; |
1020 |
|
goto T409; |
1021 |
goto T410; |
goto T410; |
1022 |
T410:; |
T410:; |
1023 |
if(((V155))==Cnil){ |
{object V159; |
1024 |
goto T413;} |
V159= car((V154)); |
1025 |
goto T412; |
V153= (V159);} |
1026 |
goto T413; |
base[1]= (V144); |
1027 |
T413:; |
base[2]= (V153); |
1028 |
goto T411; |
base[3]= VV[22]; |
1029 |
goto T412; |
base[4]= symbol_function(VV[67]); |
|
T412:; |
|
|
{object V160; |
|
|
V160= car((V155)); |
|
|
V154= (V160);} |
|
|
base[1]= (V145); |
|
|
base[2]= (V154); |
|
|
base[3]= VV[21]; |
|
|
base[4]= symbol_function(VV[66]); |
|
1030 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1031 |
Lmember(); |
Lmember(); |
1032 |
vs_top=sup; |
vs_top=sup; |
1033 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1034 |
goto T418;} |
goto T416;} |
1035 |
if(((V147))==Cnil){ |
if(((V146))==Cnil){ |
1036 |
goto T426;} |
goto T424;} |
1037 |
V161 = make_fixnum(V156); |
V160 = make_fixnum(V155); |
1038 |
V162= make_cons(V161,Cnil); |
V161= make_cons(V160,Cnil); |
1039 |
(void)(nconc((V147),/* INLINE-ARGS */V162)); |
(void)(nconc((V146),/* INLINE-ARGS */V161)); |
1040 |
goto T418; |
goto T416; |
1041 |
goto T426; |
goto T424; |
1042 |
T426:; |
T424:; |
1043 |
{object V164; |
{object V163; |
1044 |
V165 = make_fixnum(V143); |
V164 = make_fixnum(V142); |
1045 |
V166 = make_fixnum(V156); |
V165 = make_fixnum(V155); |
1046 |
V164= list(3,(V145),V165,V166); |
V163= list(3,(V144),V164,V165); |
1047 |
V139= make_cons((V164),(V139)); |
V138= make_cons((V163),(V138)); |
1048 |
V163= (V139);} |
V162= (V138);} |
1049 |
V147= car(V163); |
V146= car(V162); |
1050 |
goto T418; |
goto T416; |
1051 |
T418:; |
T416:; |
1052 |
V155= cdr((V155)); |
V154= cdr((V154)); |
1053 |
if(!((V156)<(2147483646))){ |
if(!((V155)<(2147483646))){ |
1054 |
goto T435;} |
goto T433;} |
1055 |
goto T434; |
goto T432; |
1056 |
goto T435; |
goto T433; |
1057 |
T435:; |
T433:; |
1058 |
(void)((*(LnkLI67))()); |
(void)((*(LnkLI68))()); |
1059 |
goto T434; |
goto T432; |
1060 |
T434:; |
T432:; |
1061 |
V156= (long)(V156)+(1); |
V155= (long)(V155)+(1); |
1062 |
goto T410; |
goto T408; |
1063 |
goto T411; |
goto T409; |
1064 |
T411:; |
T409:; |
1065 |
goto T401; |
goto T399; |
1066 |
goto T401;}} |
goto T399;}} |
1067 |
goto T401; |
goto T399; |
1068 |
T401:; |
T399:; |
1069 |
V146= cdr((V146)); |
V145= cdr((V145)); |
|
goto T388; |
|
|
goto T389; |
|
|
T389:; |
|
1070 |
goto T386; |
goto T386; |
1071 |
goto T386;}} |
goto T387; |
1072 |
goto T386; |
T387:; |
1073 |
T386:; |
goto T384; |
1074 |
|
goto T384;}} |
1075 |
|
goto T384; |
1076 |
|
T384:; |
1077 |
|
V140= cdr((V140)); |
1078 |
V141= cdr((V141)); |
V141= cdr((V141)); |
1079 |
V142= cdr((V142)); |
if(!((V142)<(2147483646))){ |
1080 |
if(!((V143)<(2147483646))){ |
goto T446;} |
1081 |
goto T448;} |
goto T445; |
1082 |
goto T447; |
goto T446; |
1083 |
goto T448; |
T446:; |
1084 |
T448:; |
(void)((*(LnkLI68))()); |
1085 |
(void)((*(LnkLI67))()); |
goto T445; |
1086 |
goto T447; |
T445:; |
1087 |
T447:; |
V142= (long)(V142)+(1); |
1088 |
V143= (long)(V143)+(1); |
goto T373; |
1089 |
goto T375; |
goto T374; |
1090 |
goto T376; |
T374:; |
1091 |
T376:; |
goto T369; |
1092 |
goto T371; |
goto T369;}}} |
1093 |
goto T371;}}} |
goto T369; |
1094 |
goto T371; |
T369:; |
1095 |
T371:; |
base[1]= (V138); |
|
base[1]= (V139); |
|
1096 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1097 |
return;} |
return;} |
1098 |
} |
} |
1104 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1105 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
1106 |
vs_reserve(VM3); |
vs_reserve(VM3); |
1107 |
{object V167; |
{object V166; |
1108 |
object V168; |
object V167; |
1109 |
check_arg(2); |
check_arg(2); |
1110 |
V167=(base[0]); |
V166=(base[0]); |
1111 |
V168=(base[1]); |
V167=(base[1]); |
1112 |
vs_top=sup; |
vs_top=sup; |
1113 |
if(!(type_of((V168))==t_cons)){ |
if(!(type_of((V167))==t_cons)){ |
1114 |
goto T454;} |
goto T452;} |
1115 |
base[2]= (equal(car((V168)),(V167))?Ct:Cnil); |
base[2]= (equal(car((V167)),(V166))?Ct:Cnil); |
1116 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1117 |
return; |
return; |
1118 |
goto T454; |
goto T452; |
1119 |
T454:; |
T452:; |
1120 |
base[2]= Cnil; |
base[2]= Cnil; |
1121 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1122 |
return; |
return; |
1129 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1130 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
1131 |
vs_reserve(VM4); |
vs_reserve(VM4); |
1132 |
{object V169; |
{object V168; |
1133 |
object V170; |
object V169; |
1134 |
check_arg(2); |
check_arg(2); |
1135 |
V169=(base[0]); |
V168=(base[0]); |
1136 |
V170=(base[1]); |
V169=(base[1]); |
1137 |
vs_top=sup; |
vs_top=sup; |
1138 |
goto TTL; |
goto TTL; |
1139 |
TTL:; |
TTL:; |
1140 |
{register object V171; |
{register object V170; |
1141 |
V171= Cnil; |
V170= Cnil; |
1142 |
{object V172; |
{object V171; |
1143 |
|
register object V172; |
1144 |
register object V173; |
register object V173; |
1145 |
register object V174; |
V171= Cnil; |
1146 |
V172= Cnil; |
V172= Cnil; |
1147 |
V173= Cnil; |
V173= Cnil; |
1148 |
V174= Cnil; |
{object V174; |
1149 |
{object V175; |
base[2]= (V168); |
1150 |
base[2]= (V169); |
base[3]= (V169); |
1151 |
base[3]= (V170); |
base[4]= VV[22]; |
|
base[4]= VV[21]; |
|
1152 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1153 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1154 |
Lmember(); |
Lmember(); |
1155 |
vs_top=sup; |
vs_top=sup; |
1156 |
V175= vs_base[0]; |
V174= vs_base[0]; |
1157 |
V171= (V175);} |
V170= (V174);} |
1158 |
goto T457; |
goto T455; |
1159 |
T457:; |
T455:; |
1160 |
if(((V171))==Cnil){ |
if(((V170))==Cnil){ |
1161 |
|
goto T464;} |
1162 |
|
goto T463; |
1163 |
|
goto T464; |
1164 |
|
T464:; |
1165 |
|
goto T456; |
1166 |
|
goto T463; |
1167 |
|
T463:; |
1168 |
|
if(((V170))==Cnil){ |
1169 |
goto T466;} |
goto T466;} |
1170 |
goto T465; |
base[2]= cdr(car((V170))); |
|
goto T466; |
|
|
T466:; |
|
|
goto T458; |
|
|
goto T465; |
|
|
T465:; |
|
|
if(((V171))==Cnil){ |
|
|
goto T468;} |
|
|
base[2]= cdr(car((V171))); |
|
1171 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1172 |
Lcopy_list(); |
Lcopy_list(); |
1173 |
vs_top=sup; |
vs_top=sup; |
1174 |
V174= vs_base[0]; |
V173= vs_base[0]; |
1175 |
if(((V173))==Cnil){ |
if(((V172))==Cnil){ |
1176 |
goto T475;} |
goto T473;} |
1177 |
{register object V176; |
{register object V175; |
1178 |
register object V177; |
register object V176; |
1179 |
|
V175= (V172); |
1180 |
V176= (V173); |
V176= (V173); |
1181 |
V177= (V174); |
if(type_of((V175))!=t_cons)FEwrong_type_argument(Scons,(V175)); |
1182 |
if(type_of((V176))!=t_cons)FEwrong_type_argument(Scons,(V176)); |
((V175))->c.c_cdr = (V176); |
1183 |
((V176))->c.c_cdr = (V177); |
if(((V176))!=Cnil){ |
1184 |
if(((V177))!=Cnil){ |
goto T475;}} |
1185 |
goto T477;}} |
goto T466; |
1186 |
goto T468; |
goto T475; |
1187 |
goto T477; |
T475:; |
1188 |
T477:; |
base[2]= cdr((V172)); |
|
base[2]= cdr((V173)); |
|
1189 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1190 |
Llast(); |
Llast(); |
1191 |
vs_top=sup; |
vs_top=sup; |
1192 |
V173= vs_base[0]; |
V172= vs_base[0]; |
1193 |
goto T468; |
goto T466; |
1194 |
goto T475; |
goto T473; |
1195 |
T475:; |
T473:; |
1196 |
V172= (V174); |
V171= (V173); |
1197 |
base[2]= (V172); |
base[2]= (V171); |
1198 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1199 |
Llast(); |
Llast(); |
1200 |
vs_top=sup; |
vs_top=sup; |
1201 |
V173= vs_base[0]; |
V172= vs_base[0]; |
1202 |
goto T468; |
goto T466; |
1203 |
T468:; |
T466:; |
1204 |
{register object V178; |
{register object V177; |
1205 |
base[2]= (V169); |
base[2]= (V168); |
1206 |
base[3]= cdr((V171)); |
base[3]= cdr((V170)); |
1207 |
base[4]= VV[21]; |
base[4]= VV[22]; |
1208 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1209 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1210 |
Lmember(); |
Lmember(); |
1211 |
vs_top=sup; |
vs_top=sup; |
1212 |
V178= vs_base[0]; |
V177= vs_base[0]; |
1213 |
V171= (V178);} |
V170= (V177);} |
1214 |
goto T457; |
goto T455; |
1215 |
goto T458; |
goto T456; |
1216 |
T458:; |
T456:; |
1217 |
base[2]= (V172); |
base[2]= (V171); |
1218 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1219 |
return; |
return; |
1220 |
base[2]= Cnil; |
base[2]= Cnil; |
1232 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1233 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
1234 |
vs_reserve(VM5); |
vs_reserve(VM5); |
1235 |
{object V179; |
{object V178; |
1236 |
object V180; |
object V179; |
1237 |
check_arg(2); |
check_arg(2); |
1238 |
V179=(base[0]); |
V178=(base[0]); |
1239 |
V180=(base[1]); |
V179=(base[1]); |
1240 |
vs_top=sup; |
vs_top=sup; |
1241 |
goto TTL; |
goto TTL; |
1242 |
TTL:; |
TTL:; |
1243 |
{register object V181; |
{register object V180; |
1244 |
V181= Cnil; |
V180= Cnil; |
1245 |
{object V182; |
{object V181; |
1246 |
|
register object V182; |
1247 |
register object V183; |
register object V183; |
1248 |
register object V184; |
V181= Cnil; |
1249 |
V182= Cnil; |
V182= Cnil; |
1250 |
V183= Cnil; |
V183= Cnil; |
1251 |
V184= Cnil; |
{object V184; |
1252 |
{object V185; |
base[2]= (V178); |
1253 |
base[2]= (V179); |
base[3]= (V179); |
1254 |
base[3]= (V180); |
base[4]= VV[22]; |
|
base[4]= VV[21]; |
|
1255 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1256 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1257 |
Lmember(); |
Lmember(); |
1258 |
vs_top=sup; |
vs_top=sup; |
1259 |
V185= vs_base[0]; |
V184= vs_base[0]; |
1260 |
V181= (V185);} |
V180= (V184);} |
1261 |
goto T497; |
goto T495; |
1262 |
T497:; |
T495:; |
1263 |
if(((V181))==Cnil){ |
if(((V180))==Cnil){ |
1264 |
|
goto T504;} |
1265 |
|
goto T503; |
1266 |
|
goto T504; |
1267 |
|
T504:; |
1268 |
|
goto T496; |
1269 |
|
goto T503; |
1270 |
|
T503:; |
1271 |
|
if(((V180))==Cnil){ |
1272 |
|
goto T506;} |
1273 |
|
V183= cdr(car((V180))); |
1274 |
|
if(((V182))==Cnil){ |
1275 |
|
goto T512;} |
1276 |
|
{register object V185; |
1277 |
|
register object V186; |
1278 |
|
V185= (V182); |
1279 |
|
V182= make_cons((V183),Cnil); |
1280 |
|
V186= (V182); |
1281 |
|
if(type_of((V185))!=t_cons)FEwrong_type_argument(Scons,(V185)); |
1282 |
|
((V185))->c.c_cdr = (V186); |
1283 |
goto T506;} |
goto T506;} |
1284 |
goto T505; |
goto T512; |
1285 |
|
T512:; |
1286 |
|
V182= make_cons((V183),Cnil); |
1287 |
|
V181= (V182); |
1288 |
goto T506; |
goto T506; |
1289 |
T506:; |
T506:; |
1290 |
goto T498; |
{register object V187; |
1291 |
goto T505; |
base[2]= (V178); |
1292 |
T505:; |
base[3]= cdr((V180)); |
1293 |
if(((V181))==Cnil){ |
base[4]= VV[22]; |
|
goto T508;} |
|
|
V184= cdr(car((V181))); |
|
|
if(((V183))==Cnil){ |
|
|
goto T514;} |
|
|
{register object V186; |
|
|
register object V187; |
|
|
V186= (V183); |
|
|
V183= make_cons((V184),Cnil); |
|
|
V187= (V183); |
|
|
if(type_of((V186))!=t_cons)FEwrong_type_argument(Scons,(V186)); |
|
|
((V186))->c.c_cdr = (V187); |
|
|
goto T508;} |
|
|
goto T514; |
|
|
T514:; |
|
|
V183= make_cons((V184),Cnil); |
|
|
V182= (V183); |
|
|
goto T508; |
|
|
T508:; |
|
|
{register object V188; |
|
|
base[2]= (V179); |
|
|
base[3]= cdr((V181)); |
|
|
base[4]= VV[21]; |
|
1294 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1295 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1296 |
Lmember(); |
Lmember(); |
1297 |
vs_top=sup; |
vs_top=sup; |
1298 |
V188= vs_base[0]; |
V187= vs_base[0]; |
1299 |
V181= (V188);} |
V180= (V187);} |
1300 |
goto T497; |
goto T495; |
1301 |
goto T498; |
goto T496; |
1302 |
T498:; |
T496:; |
1303 |
base[2]= (V182); |
base[2]= (V181); |
1304 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1305 |
return; |
return; |
1306 |
base[2]= Cnil; |
base[2]= Cnil; |
1311 |
return;}} |
return;}} |
1312 |
} |
} |
1313 |
} |
} |
1314 |
static object LnkTLI67(){return call_proc0(VV[67],(void **)&LnkLI67);} /* TYPE-ERROR */ |
static object LnkTLI68(){return call_proc0(VV[68],(void **)&LnkLI68);} /* TYPE-ERROR */ |
1315 |
static object LnkTLI65(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[65],(void **)&LnkLI65,ap);va_end(ap);return V1;} /* FIND */ |
static object LnkTLI66(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[66],(void **)&LnkLI66,ap);va_end(ap);return V1;} /* FIND */ |
1316 |
static object LnkTLI64(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[64],(void **)&LnkLI64,ap);va_end(ap);return V1;} /* WARN */ |
static void LnkT65(){ call_or_link(VV[65],(void **)&Lnk65);} /* SPECIFIC-ERROR */ |
1317 |
static object LnkTLI62(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[62],(void **)&LnkLI62,ap);va_end(ap);return V1;} /* COUNT */ |
static object LnkTLI63(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[63],(void **)&LnkLI63,ap);va_end(ap);return V1;} /* COUNT */ |
1318 |
|
|
1319 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1320 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |