112 |
VMR1(V12)} |
VMR1(V12)} |
113 |
goto T33; |
goto T33; |
114 |
T33:; |
T33:; |
115 |
base[0]= Cnil; |
if((car((V3)))==(VV[10])){ |
116 |
base[1]= VV[10]; |
goto T45;} |
|
base[2]= caddr((V3)); |
|
|
vs_top=(vs_base=base+0)+3; |
|
|
Lformat(); |
|
|
vs_top=sup; |
|
117 |
if((car((V3)))==(VV[11])){ |
if((car((V3)))==(VV[11])){ |
118 |
goto T51;} |
goto T45;} |
119 |
if(!((car((V3)))==(VV[12]))){ |
base[0]= VV[12]; |
120 |
goto T50;} |
base[1]= (V3); |
121 |
goto T51; |
vs_top=(vs_base=base+0)+2; |
122 |
T51:; |
Lerror(); |
123 |
|
vs_top=sup; |
124 |
|
goto T45; |
125 |
|
T45:; |
126 |
if(!(type_of(car(caddr((V3))))==t_fixnum)){ |
if(!(type_of(car(caddr((V3))))==t_fixnum)){ |
127 |
goto T49;} |
goto T52;} |
128 |
goto T50; |
if(equal(car(caddr((V3))),(V4))){ |
129 |
T50:; |
goto T52;} |
130 |
base[0]= VV[13]; |
base[0]= VV[13]; |
131 |
base[1]= (V3); |
base[1]= (V3); |
132 |
vs_top=(vs_base=base+0)+2; |
base[2]= (V4); |
133 |
|
vs_top=(vs_base=base+0)+3; |
134 |
Lerror(); |
Lerror(); |
135 |
vs_top=sup; |
vs_top=sup; |
136 |
goto T49; |
goto T52; |
137 |
T49:;{object V13; |
T52:;{object V13; |
138 |
V13= cadr((V3)); |
V13= cadr((V3)); |
139 |
if(V13==Cnil)goto T58; |
if(V13==Cnil)goto T60; |
140 |
V7= V13; |
V7= V13; |
141 |
goto T5; |
goto T5; |
142 |
goto T58; |
goto T60; |
143 |
T58:;} |
T60:;} |
144 |
V7= Ct; |
V7= Ct; |
145 |
goto T5; |
goto T5; |
146 |
T5:; |
T5:; |
157 |
vs_top=sup; |
vs_top=sup; |
158 |
V8= vs_base[0]; |
V8= vs_base[0]; |
159 |
if(((V6))==Cnil){ |
if(((V6))==Cnil){ |
160 |
goto T71;} |
goto T73;} |
161 |
{register long V14; |
{register long V14; |
162 |
register long V15; |
register long V15; |
163 |
V14= 0; |
V14= 0; |
164 |
V15= fix((V4)); |
V15= fix((V4)); |
165 |
goto T77; |
goto T79; |
166 |
T77:; |
T79:; |
167 |
if(!((V14)>=(V15))){ |
if(!((V14)>=(V15))){ |
168 |
goto T78;} |
goto T80;} |
169 |
goto T71; |
goto T73; |
170 |
goto T78; |
goto T80; |
171 |
T78:; |
T80:; |
172 |
(void)(elt_set((V8),V14,(V5))); |
(void)(elt_set((V8),V14,(V5))); |
173 |
V14= (long)(V14)+1; |
V14= (long)(V14)+1; |
174 |
goto T77;} |
goto T79;} |
175 |
goto T71; |
goto T73; |
176 |
T71:; |
T73:; |
177 |
{object V16 = (V8); |
{object V16 = (V8); |
178 |
VMR1(V16)}} |
VMR1(V16)}} |
179 |
va_end(ap); |
va_end(ap); |
205 |
object V27= (V19); |
object V27= (V19); |
206 |
if(endp(V27)){ |
if(endp(V27)){ |
207 |
V25= Cnil; |
V25= Cnil; |
208 |
goto T88;} |
goto T90;} |
209 |
base[0]=V26=MMcons(Cnil,Cnil); |
base[0]=V26=MMcons(Cnil,Cnil); |
210 |
goto T89; |
goto T91; |
211 |
T89:; |
T91:; |
212 |
base[1]= (V27->c.c_car); |
base[1]= (V27->c.c_car); |
213 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
214 |
Llength(); |
Llength(); |
216 |
(V26->c.c_car)= vs_base[0]; |
(V26->c.c_car)= vs_base[0]; |
217 |
if(endp(V27=MMcdr(V27))){ |
if(endp(V27=MMcdr(V27))){ |
218 |
V25= base[0]; |
V25= base[0]; |
219 |
goto T88;} |
goto T90;} |
220 |
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
221 |
goto T89;} |
goto T91;} |
222 |
goto T88; |
goto T90; |
223 |
T88:; |
T90:; |
224 |
vs_top=base+0; |
vs_top=base+0; |
225 |
while(!endp(V25)) |
while(!endp(V25)) |
226 |
{vs_push(car(V25));V25=cdr(V25);} |
{vs_push(car(V25));V25=cdr(V25);} |
231 |
V21= (VFUN_NARGS=2,(*(LnkLI17))((V18),V24)); |
V21= (VFUN_NARGS=2,(*(LnkLI17))((V18),V24)); |
232 |
V23= 0; |
V23= 0; |
233 |
V22= (V19); |
V22= (V19); |
234 |
goto T94; |
goto T96; |
235 |
T94:; |
T96:; |
236 |
if(((V22))!=Cnil){ |
if(((V22))!=Cnil){ |
237 |
goto T95;} |
goto T97;} |
238 |
{object V28 = (V21); |
{object V28 = (V21); |
239 |
VMR2(V28)} |
VMR2(V28)} |
240 |
goto T95; |
goto T97; |
241 |
T95:; |
T97:; |
242 |
{register long V29; |
{register long V29; |
243 |
register long V30; |
register long V30; |
244 |
V29= 0; |
V29= 0; |
245 |
V30= (long)length(car((V22))); |
V30= (long)length(car((V22))); |
246 |
goto T103; |
goto T105; |
247 |
T103:; |
T105:; |
248 |
if(!((V29)>=(V30))){ |
if(!((V29)>=(V30))){ |
249 |
goto T104;} |
goto T106;} |
250 |
goto T99; |
goto T101; |
251 |
goto T104; |
goto T106; |
252 |
T104:; |
T106:; |
253 |
V31= elt(car((V22)),V29); |
V31= elt(car((V22)),V29); |
254 |
(void)(elt_set((V21),V23,/* INLINE-ARGS */V31)); |
(void)(elt_set((V21),V23,/* INLINE-ARGS */V31)); |
255 |
V23= (long)(V23)+(1); |
V23= (long)(V23)+(1); |
256 |
V29= (long)(V29)+1; |
V29= (long)(V29)+1; |
257 |
goto T103;} |
goto T105;} |
258 |
goto T99; |
goto T101; |
259 |
T99:; |
T101:; |
260 |
V22= cdr((V22)); |
V22= cdr((V22)); |
261 |
goto T94;} |
goto T96;} |
262 |
va_end(ap); |
va_end(ap); |
263 |
base[0]=base[0]; |
base[0]=base[0]; |
264 |
return Cnil;} |
return Cnil;} |
291 |
object V43= (V38); |
object V43= (V38); |
292 |
if(endp(V43)){ |
if(endp(V43)){ |
293 |
V41= Cnil; |
V41= Cnil; |
294 |
goto T120;} |
goto T122;} |
295 |
base[0]=V42=MMcons(Cnil,Cnil); |
base[0]=V42=MMcons(Cnil,Cnil); |
296 |
goto T121; |
goto T123; |
297 |
T121:; |
T123:; |
298 |
base[1]= (V43->c.c_car); |
base[1]= (V43->c.c_car); |
299 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
300 |
Llength(); |
Llength(); |
302 |
(V42->c.c_car)= vs_base[0]; |
(V42->c.c_car)= vs_base[0]; |
303 |
if(endp(V43=MMcdr(V43))){ |
if(endp(V43=MMcdr(V43))){ |
304 |
V41= base[0]; |
V41= base[0]; |
305 |
goto T120;} |
goto T122;} |
306 |
V42=MMcdr(V42)=MMcons(Cnil,Cnil); |
V42=MMcdr(V42)=MMcons(Cnil,Cnil); |
307 |
goto T121;} |
goto T123;} |
308 |
goto T120; |
goto T122; |
309 |
T120:; |
T122:; |
310 |
vs_top=base+0; |
vs_top=base+0; |
311 |
while(!endp(V41)) |
while(!endp(V41)) |
312 |
{vs_push(car(V41));V41=cdr(V41);} |
{vs_push(car(V41));V41=cdr(V41);} |
315 |
vs_top=sup; |
vs_top=sup; |
316 |
V40= vs_base[0]; |
V40= vs_base[0]; |
317 |
if(((V35))!=Cnil){ |
if(((V35))!=Cnil){ |
318 |
goto T125;} |
goto T127;} |
319 |
{register long V44; |
{register long V44; |
320 |
long V45; |
long V45; |
321 |
V44= 0; |
V44= 0; |
322 |
V45= fix((V40)); |
V45= fix((V40)); |
323 |
goto T130; |
goto T132; |
324 |
T130:; |
T132:; |
325 |
if(!((V44)>=(V45))){ |
if(!((V44)>=(V45))){ |
326 |
goto T131;} |
goto T133;} |
327 |
{object V46 = Cnil; |
{object V46 = Cnil; |
328 |
VMR3(V46)} |
VMR3(V46)} |
329 |
goto T131; |
goto T133; |
330 |
T131:; |
T133:; |
331 |
base[0]= (V36); |
base[0]= (V36); |
332 |
{object V47; |
{object V47; |
333 |
{object V48; |
{object V48; |
334 |
object V49= (V38); |
object V49= (V38); |
335 |
if(endp(V49)){ |
if(endp(V49)){ |
336 |
V47= Cnil; |
V47= Cnil; |
337 |
goto T137;} |
goto T139;} |
338 |
base[1]=V48=MMcons(Cnil,Cnil); |
base[1]=V48=MMcons(Cnil,Cnil); |
339 |
goto T138; |
goto T140; |
340 |
T138:; |
T140:; |
341 |
{register object V50; |
{register object V50; |
342 |
V50= (V49->c.c_car); |
V50= (V49->c.c_car); |
343 |
(V48->c.c_car)= elt((V50),V44);} |
(V48->c.c_car)= elt((V50),V44);} |
344 |
if(endp(V49=MMcdr(V49))){ |
if(endp(V49=MMcdr(V49))){ |
345 |
V47= base[1]; |
V47= base[1]; |
346 |
goto T137;} |
goto T139;} |
347 |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
348 |
goto T138;} |
goto T140;} |
349 |
goto T137; |
goto T139; |
350 |
T137:; |
T139:; |
351 |
vs_top=base+1; |
vs_top=base+1; |
352 |
while(!endp(V47)) |
while(!endp(V47)) |
353 |
{vs_push(car(V47));V47=cdr(V47);} |
{vs_push(car(V47));V47=cdr(V47);} |
355 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
356 |
vs_top=sup; |
vs_top=sup; |
357 |
V44= (long)(V44)+1; |
V44= (long)(V44)+1; |
358 |
goto T130;} |
goto T132;} |
359 |
goto T125; |
goto T127; |
360 |
T125:; |
T127:; |
361 |
{register object V51; |
{register object V51; |
362 |
V51= (VFUN_NARGS=2,(*(LnkLI17))((V35),(V40))); |
V51= (VFUN_NARGS=2,(*(LnkLI17))((V35),(V40))); |
363 |
{register long V52; |
{register long V52; |
364 |
long V53; |
long V53; |
365 |
V52= 0; |
V52= 0; |
366 |
V53= fix((V40)); |
V53= fix((V40)); |
367 |
goto T147; |
goto T149; |
368 |
T147:; |
T149:; |
369 |
if(!((V52)>=(V53))){ |
if(!((V52)>=(V53))){ |
370 |
goto T148;} |
goto T150;} |
371 |
{object V54 = (V51); |
{object V54 = (V51); |
372 |
VMR3(V54)} |
VMR3(V54)} |
373 |
goto T148; |
goto T150; |
374 |
T148:; |
T150:; |
375 |
base[0]= (V36); |
base[0]= (V36); |
376 |
{object V56; |
{object V56; |
377 |
{object V57; |
{object V57; |
378 |
object V58= (V38); |
object V58= (V38); |
379 |
if(endp(V58)){ |
if(endp(V58)){ |
380 |
V56= Cnil; |
V56= Cnil; |
381 |
goto T155;} |
goto T157;} |
382 |
base[1]=V57=MMcons(Cnil,Cnil); |
base[1]=V57=MMcons(Cnil,Cnil); |
383 |
goto T156; |
goto T158; |
384 |
T156:; |
T158:; |
385 |
{register object V59; |
{register object V59; |
386 |
V59= (V58->c.c_car); |
V59= (V58->c.c_car); |
387 |
(V57->c.c_car)= elt((V59),V52);} |
(V57->c.c_car)= elt((V59),V52);} |
388 |
if(endp(V58=MMcdr(V58))){ |
if(endp(V58=MMcdr(V58))){ |
389 |
V56= base[1]; |
V56= base[1]; |
390 |
goto T155;} |
goto T157;} |
391 |
V57=MMcdr(V57)=MMcons(Cnil,Cnil); |
V57=MMcdr(V57)=MMcons(Cnil,Cnil); |
392 |
goto T156;} |
goto T158;} |
393 |
goto T155; |
goto T157; |
394 |
T155:; |
T157:; |
395 |
vs_top=base+1; |
vs_top=base+1; |
396 |
while(!endp(V56)) |
while(!endp(V56)) |
397 |
{vs_push(car(V56));V56=cdr(V56);} |
{vs_push(car(V56));V56=cdr(V56);} |
401 |
V55= vs_base[0]; |
V55= vs_base[0]; |
402 |
(void)(elt_set((V51),V52,V55)); |
(void)(elt_set((V51),V52,V55)); |
403 |
V52= (long)(V52)+1; |
V52= (long)(V52)+1; |
404 |
goto T147;}}} |
goto T149;}}} |
405 |
va_end(ap); |
va_end(ap); |
406 |
base[0]=base[0]; |
base[0]=base[0]; |
407 |
return Cnil;} |
return Cnil;} |
434 |
object V70= (V64); |
object V70= (V64); |
435 |
if(endp(V70)){ |
if(endp(V70)){ |
436 |
V68= Cnil; |
V68= Cnil; |
437 |
goto T165;} |
goto T167;} |
438 |
base[0]=V69=MMcons(Cnil,Cnil); |
base[0]=V69=MMcons(Cnil,Cnil); |
439 |
goto T166; |
goto T168; |
440 |
T166:; |
T168:; |
441 |
base[1]= (V70->c.c_car); |
base[1]= (V70->c.c_car); |
442 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
443 |
Llength(); |
Llength(); |
445 |
(V69->c.c_car)= vs_base[0]; |
(V69->c.c_car)= vs_base[0]; |
446 |
if(endp(V70=MMcdr(V70))){ |
if(endp(V70=MMcdr(V70))){ |
447 |
V68= base[0]; |
V68= base[0]; |
448 |
goto T165;} |
goto T167;} |
449 |
V69=MMcdr(V69)=MMcons(Cnil,Cnil); |
V69=MMcdr(V69)=MMcons(Cnil,Cnil); |
450 |
goto T166;} |
goto T168;} |
451 |
goto T165; |
goto T167; |
452 |
T165:; |
T167:; |
453 |
vs_top=base+0; |
vs_top=base+0; |
454 |
while(!endp(V68)) |
while(!endp(V68)) |
455 |
{vs_push(car(V68));V68=cdr(V68);} |
{vs_push(car(V68));V68=cdr(V68);} |
457 |
Lmin(); |
Lmin(); |
458 |
vs_top=sup; |
vs_top=sup; |
459 |
V67= fix(vs_base[0]); |
V67= fix(vs_base[0]); |
460 |
goto T170; |
goto T172; |
461 |
T170:; |
T172:; |
462 |
if(!((V66)>=(V67))){ |
if(!((V66)>=(V67))){ |
463 |
goto T171;} |
goto T173;} |
464 |
{object V71 = Cnil; |
{object V71 = Cnil; |
465 |
VMR4(V71)} |
VMR4(V71)} |
466 |
goto T171; |
goto T173; |
467 |
T171:; |
T173:; |
468 |
{register object V72; |
{register object V72; |
469 |
base[0]= (V62); |
base[0]= (V62); |
470 |
{object V73; |
{object V73; |
472 |
object V75= (V64); |
object V75= (V64); |
473 |
if(endp(V75)){ |
if(endp(V75)){ |
474 |
V73= Cnil; |
V73= Cnil; |
475 |
goto T178;} |
goto T180;} |
476 |
base[1]=V74=MMcons(Cnil,Cnil); |
base[1]=V74=MMcons(Cnil,Cnil); |
477 |
goto T179; |
goto T181; |
478 |
T179:; |
T181:; |
479 |
{register object V76; |
{register object V76; |
480 |
V76= (V75->c.c_car); |
V76= (V75->c.c_car); |
481 |
(V74->c.c_car)= elt((V76),V66);} |
(V74->c.c_car)= elt((V76),V66);} |
482 |
if(endp(V75=MMcdr(V75))){ |
if(endp(V75=MMcdr(V75))){ |
483 |
V73= base[1]; |
V73= base[1]; |
484 |
goto T178;} |
goto T180;} |
485 |
V74=MMcdr(V74)=MMcons(Cnil,Cnil); |
V74=MMcdr(V74)=MMcons(Cnil,Cnil); |
486 |
goto T179;} |
goto T181;} |
487 |
goto T178; |
goto T180; |
488 |
T178:; |
T180:; |
489 |
vs_top=base+1; |
vs_top=base+1; |
490 |
while(!endp(V73)) |
while(!endp(V73)) |
491 |
{vs_push(car(V73));V73=cdr(V73);} |
{vs_push(car(V73));V73=cdr(V73);} |
494 |
vs_top=sup; |
vs_top=sup; |
495 |
V72= vs_base[0]; |
V72= vs_base[0]; |
496 |
if(((V72))==Cnil){ |
if(((V72))==Cnil){ |
497 |
goto T175;} |
goto T177;} |
498 |
{object V77 = (V72); |
{object V77 = (V72); |
499 |
VMR4(V77)}} |
VMR4(V77)}} |
500 |
goto T175; |
goto T177; |
501 |
T175:; |
T177:; |
502 |
V66= (long)(V66)+1; |
V66= (long)(V66)+1; |
503 |
goto T170;} |
goto T172;} |
504 |
va_end(ap); |
va_end(ap); |
505 |
base[0]=base[0]; |
base[0]=base[0]; |
506 |
return Cnil;} |
return Cnil;} |
533 |
object V88= (V82); |
object V88= (V82); |
534 |
if(endp(V88)){ |
if(endp(V88)){ |
535 |
V86= Cnil; |
V86= Cnil; |
536 |
goto T190;} |
goto T192;} |
537 |
base[0]=V87=MMcons(Cnil,Cnil); |
base[0]=V87=MMcons(Cnil,Cnil); |
538 |
goto T191; |
goto T193; |
539 |
T191:; |
T193:; |
540 |
base[1]= (V88->c.c_car); |
base[1]= (V88->c.c_car); |
541 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
542 |
Llength(); |
Llength(); |
544 |
(V87->c.c_car)= vs_base[0]; |
(V87->c.c_car)= vs_base[0]; |
545 |
if(endp(V88=MMcdr(V88))){ |
if(endp(V88=MMcdr(V88))){ |
546 |
V86= base[0]; |
V86= base[0]; |
547 |
goto T190;} |
goto T192;} |
548 |
V87=MMcdr(V87)=MMcons(Cnil,Cnil); |
V87=MMcdr(V87)=MMcons(Cnil,Cnil); |
549 |
goto T191;} |
goto T193;} |
550 |
goto T190; |
goto T192; |
551 |
T190:; |
T192:; |
552 |
vs_top=base+0; |
vs_top=base+0; |
553 |
while(!endp(V86)) |
while(!endp(V86)) |
554 |
{vs_push(car(V86));V86=cdr(V86);} |
{vs_push(car(V86));V86=cdr(V86);} |
556 |
Lmin(); |
Lmin(); |
557 |
vs_top=sup; |
vs_top=sup; |
558 |
V85= fix(vs_base[0]); |
V85= fix(vs_base[0]); |
559 |
goto T195; |
goto T197; |
560 |
T195:; |
T197:; |
561 |
if(!((V84)>=(V85))){ |
if(!((V84)>=(V85))){ |
562 |
goto T196;} |
goto T198;} |
563 |
{object V89 = Ct; |
{object V89 = Ct; |
564 |
VMR5(V89)} |
VMR5(V89)} |
565 |
goto T196; |
goto T198; |
566 |
T196:; |
T198:; |
567 |
base[0]= (V80); |
base[0]= (V80); |
568 |
{object V90; |
{object V90; |
569 |
{object V91; |
{object V91; |
570 |
object V92= (V82); |
object V92= (V82); |
571 |
if(endp(V92)){ |
if(endp(V92)){ |
572 |
V90= Cnil; |
V90= Cnil; |
573 |
goto T204;} |
goto T206;} |
574 |
base[1]=V91=MMcons(Cnil,Cnil); |
base[1]=V91=MMcons(Cnil,Cnil); |
575 |
goto T205; |
goto T207; |
576 |
T205:; |
T207:; |
577 |
{register object V93; |
{register object V93; |
578 |
V93= (V92->c.c_car); |
V93= (V92->c.c_car); |
579 |
(V91->c.c_car)= elt((V93),V84);} |
(V91->c.c_car)= elt((V93),V84);} |
580 |
if(endp(V92=MMcdr(V92))){ |
if(endp(V92=MMcdr(V92))){ |
581 |
V90= base[1]; |
V90= base[1]; |
582 |
goto T204;} |
goto T206;} |
583 |
V91=MMcdr(V91)=MMcons(Cnil,Cnil); |
V91=MMcdr(V91)=MMcons(Cnil,Cnil); |
584 |
goto T205;} |
goto T207;} |
585 |
goto T204; |
goto T206; |
586 |
T204:; |
T206:; |
587 |
vs_top=base+1; |
vs_top=base+1; |
588 |
while(!endp(V90)) |
while(!endp(V90)) |
589 |
{vs_push(car(V90));V90=cdr(V90);} |
{vs_push(car(V90));V90=cdr(V90);} |
591 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
592 |
vs_top=sup; |
vs_top=sup; |
593 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
594 |
goto T200;} |
goto T202;} |
595 |
{object V94 = Cnil; |
{object V94 = Cnil; |
596 |
VMR5(V94)} |
VMR5(V94)} |
597 |
goto T200; |
goto T202; |
598 |
T200:; |
T202:; |
599 |
V84= (long)(V84)+1; |
V84= (long)(V84)+1; |
600 |
goto T195;} |
goto T197;} |
601 |
va_end(ap); |
va_end(ap); |
602 |
base[0]=base[0]; |
base[0]=base[0]; |
603 |
return Cnil;} |
return Cnil;} |