248 |
base[6]=V42=MMcons(Cnil,Cnil); |
base[6]=V42=MMcons(Cnil,Cnil); |
249 |
goto T73; |
goto T73; |
250 |
T73:; |
T73:; |
251 |
{register object V44; |
(V42->c.c_car)= list(2,VV[22],list(3,VV[23],VV[25],(V43->c.c_car))); |
|
V44= (V43->c.c_car); |
|
|
if(!(type_of((V44))==t_cons)){ |
|
|
goto T75;} |
|
|
V44= (*(LnkLI102))(CMPcadr((V44))); |
|
|
goto T75; |
|
|
T75:; |
|
|
(V42->c.c_car)= list(2,VV[22],list(3,VV[23],VV[25],(V44)));} |
|
252 |
if((V43=MMcdr(V43))==Cnil){ |
if((V43=MMcdr(V43))==Cnil){ |
253 |
base[5]= base[6]; |
base[5]= base[6]; |
254 |
goto T72;} |
goto T72;} |
261 |
object V47= base[8]; |
object V47= base[8]; |
262 |
if(V47==Cnil){ |
if(V47==Cnil){ |
263 |
V45= Cnil; |
V45= Cnil; |
264 |
goto T80;} |
goto T76;} |
265 |
base[7]=V46=MMcons(Cnil,Cnil); |
base[7]=V46=MMcons(Cnil,Cnil); |
266 |
goto T81; |
goto T77; |
267 |
T81:; |
T77:; |
268 |
(V46->c.c_car)= CMPcdr((V47->c.c_car)); |
(V46->c.c_car)= CMPcdr((V47->c.c_car)); |
269 |
if((V47=MMcdr(V47))==Cnil){ |
if((V47=MMcdr(V47))==Cnil){ |
270 |
V45= base[7]; |
V45= base[7]; |
271 |
goto T80;} |
goto T76;} |
272 |
V46=MMcdr(V46)=MMcons(Cnil,Cnil); |
V46=MMcdr(V46)=MMcons(Cnil,Cnil); |
273 |
goto T81;} |
goto T77;} |
274 |
goto T80; |
goto T76; |
275 |
T80:; |
T76:; |
276 |
V48= list(2,VV[28],(V18)); |
V48= list(2,VV[28],(V18)); |
277 |
V49= list(2,VV[28],(V22)); |
V49= list(2,VV[28],(V22)); |
278 |
V50= list(2,VV[28],(V19)); |
V50= list(2,VV[28],(V19)); |
279 |
V51= make_cons(VV[29],(V25)); |
V51= make_cons(VV[29],(V25)); |
280 |
if(((V27))==Cnil){ |
if(((V27))==Cnil){ |
281 |
goto T86;} |
goto T82;} |
282 |
base[7]= VV[30]; |
base[7]= VV[30]; |
283 |
goto T84; |
goto T80; |
284 |
goto T86; |
goto T82; |
285 |
T86:; |
T82:; |
286 |
base[7]= Cnil; |
base[7]= Cnil; |
287 |
goto T84; |
goto T80; |
288 |
T84:; |
T80:; |
289 |
{object V53; |
{object V53; |
290 |
V53= (V26); |
V53= (V26); |
291 |
vs_top=base+8; |
vs_top=base+8; |
305 |
V56= make_cons(VV[7],V38); |
V56= make_cons(VV[7],V38); |
306 |
V35= (*(LnkLI101))(/* INLINE-ARGS */V36,V37,/* INLINE-ARGS */V56); |
V35= (*(LnkLI101))(/* INLINE-ARGS */V36,V37,/* INLINE-ARGS */V56); |
307 |
if(((V27))==Cnil){ |
if(((V27))==Cnil){ |
308 |
goto T90;} |
goto T86;} |
309 |
base[4]= (V35); |
base[4]= (V35); |
310 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
311 |
Leval(); |
Leval(); |
312 |
vs_top=sup; |
vs_top=sup; |
313 |
base[4]= (VFUN_NARGS=1,(*(LnkLI98))((V18))); |
base[4]= (VFUN_NARGS=1,(*(LnkLI98))((V18))); |
314 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
315 |
(void) (*Lnk103)(Lclptr103); |
(void) (*Lnk102)(Lclptr102); |
316 |
vs_top=sup; |
vs_top=sup; |
317 |
V57= vs_base[0]; |
V57= vs_base[0]; |
318 |
V58 = (V35); |
V58 = (V35); |
322 |
bds_unwind1; |
bds_unwind1; |
323 |
bds_unwind1; |
bds_unwind1; |
324 |
VMR4(V59)} |
VMR4(V59)} |
325 |
goto T90; |
goto T86; |
326 |
T90:; |
T86:; |
327 |
if(!(((VV[9]->s.s_dbind))==(VV[19]))){ |
if(!(((VV[9]->s.s_dbind))==(VV[19]))){ |
328 |
goto T96;} |
goto T92;} |
329 |
{register object x= VV[31],V60= (VV[10]->s.s_dbind); |
{register object x= VV[31],V60= (VV[10]->s.s_dbind); |
330 |
while(V60!=Cnil) |
while(V60!=Cnil) |
331 |
if(eql(x,V60->c.c_car)){ |
if(eql(x,V60->c.c_car)){ |
332 |
goto T96; |
goto T92; |
333 |
}else V60=V60->c.c_cdr;} |
}else V60=V60->c.c_cdr;} |
334 |
(void)((*(LnkLI104))((V18))); |
(void)((*(LnkLI103))((V18))); |
335 |
goto T96; |
goto T92; |
336 |
T96:; |
T92:; |
337 |
{object V61 = (V35); |
{object V61 = (V35); |
338 |
bds_unwind1; |
bds_unwind1; |
339 |
bds_unwind1; |
bds_unwind1; |
352 |
goto TTL; |
goto TTL; |
353 |
TTL:; |
TTL:; |
354 |
if(((V63))==(Ct)){ |
if(((V63))==(Ct)){ |
355 |
goto T101;} |
goto T97;} |
356 |
if(!(equal((V63),VV[32]))){ |
if(!(equal((V63),VV[32]))){ |
357 |
goto T102;} |
goto T98;} |
358 |
goto T101; |
goto T97; |
359 |
T101:; |
T97:; |
360 |
{object V64 = VV[33]; |
{object V64 = VV[33]; |
361 |
VMR5(V64)} |
VMR5(V64)} |
362 |
goto T102; |
goto T98; |
363 |
T102:; |
T98:; |
364 |
if(((V63))==(Cnil)){ |
if(((V63))==(Cnil)){ |
365 |
goto T106;} |
goto T102;} |
366 |
if(!(equal((V63),VV[34]))){ |
if(!(equal((V63),VV[34]))){ |
367 |
goto T107;} |
goto T103;} |
368 |
goto T106; |
goto T102; |
369 |
T106:; |
T102:; |
370 |
{object V65 = VV[35]; |
{object V65 = VV[35]; |
371 |
VMR5(V65)} |
VMR5(V65)} |
372 |
goto T107; |
goto T103; |
373 |
T107:; |
T103:; |
374 |
if(eql((V63),small_fixnum(0))){ |
if(eql((V63),small_fixnum(0))){ |
375 |
goto T111;} |
goto T107;} |
376 |
if(!(equal((V63),VV[36]))){ |
if(!(equal((V63),VV[36]))){ |
377 |
goto T112;} |
goto T108;} |
378 |
goto T111; |
goto T107; |
379 |
T111:; |
T107:; |
380 |
{object V66 = VV[37]; |
{object V66 = VV[37]; |
381 |
VMR5(V66)} |
VMR5(V66)} |
382 |
goto T112; |
goto T108; |
383 |
T112:; |
T108:; |
384 |
{register object V67; |
{register object V67; |
385 |
{register object x= (V63),V68= (VV[18]->s.s_dbind); |
{register object x= (V63),V68= (VV[18]->s.s_dbind); |
386 |
while(V68!=Cnil) |
while(V68!=Cnil) |
387 |
if(equal(x,V68->c.c_car->c.c_car) &&V68->c.c_car != Cnil){ |
if(equal(x,V68->c.c_car->c.c_car) &&V68->c.c_car != Cnil){ |
388 |
V67= (V68->c.c_car); |
V67= (V68->c.c_car); |
389 |
goto T116; |
goto T112; |
390 |
}else V68=V68->c.c_cdr; |
}else V68=V68->c.c_cdr; |
391 |
V67= Cnil;} |
V67= Cnil;} |
392 |
goto T116; |
goto T112; |
393 |
T116:; |
T112:; |
394 |
if(((V67))!=Cnil){ |
if(((V67))!=Cnil){ |
395 |
goto T117;} |
goto T113;} |
396 |
V69 = (V63); |
V69 = (V63); |
397 |
vs_base=vs_top; |
vs_base=vs_top; |
398 |
Lgensym(); |
Lgensym(); |
400 |
V70= vs_base[0]; |
V70= vs_base[0]; |
401 |
V67= list(3,V69,V70,list(2,VV[38],list(3,VV[39],Cnil,(V63)))); |
V67= list(3,V69,V70,list(2,VV[38],list(3,VV[39],Cnil,(V63)))); |
402 |
(VV[18]->s.s_dbind)= make_cons(V67,(VV[18]->s.s_dbind)); |
(VV[18]->s.s_dbind)= make_cons(V67,(VV[18]->s.s_dbind)); |
403 |
goto T117; |
goto T113; |
404 |
T117:; |
T113:; |
405 |
{object V72 = CMPcadr((V67)); |
{object V72 = CMPcadr((V67)); |
406 |
VMR5(V72)}} |
VMR5(V72)}} |
407 |
base[0]=base[0]; |
base[0]=base[0]; |
416 |
goto TTL; |
goto TTL; |
417 |
TTL:; |
TTL:; |
418 |
if(!(type_of((V76))==t_symbol)){ |
if(!(type_of((V76))==t_symbol)){ |
419 |
goto T125;} |
goto T121;} |
420 |
if((type_of((V76))==t_symbol&&((V76))->s.s_hpack==keyword_package)){ |
if((type_of((V76))==t_symbol&&((V76))->s.s_hpack==keyword_package)){ |
421 |
goto T125;} |
goto T121;} |
422 |
{register object x= (V76),V77= VV[40]; |
{register object x= (V76),V77= VV[40]; |
423 |
while(V77!=Cnil) |
while(V77!=Cnil) |
424 |
if(x==(V77->c.c_car)){ |
if(x==(V77->c.c_car)){ |
425 |
goto T125; |
goto T121; |
426 |
}else V77=V77->c.c_cdr;} |
}else V77=V77->c.c_cdr;} |
427 |
{object V78 = list(2,VV[28],list(2,VV[41],(V76))); |
{object V78 = list(2,VV[28],list(2,VV[41],(V76))); |
428 |
VMR6(V78)} |
VMR6(V78)} |
429 |
goto T125; |
goto T121; |
430 |
T125:; |
T121:; |
431 |
if(type_of((V76))==t_cons){ |
if(type_of((V76))==t_cons){ |
432 |
goto T132;} |
goto T128;} |
433 |
base[0]= VV[42]; |
base[0]= VV[42]; |
434 |
base[1]= (V76); |
base[1]= (V76); |
435 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
437 |
vs_top=sup; |
vs_top=sup; |
438 |
{object V79 = vs_base[0]; |
{object V79 = vs_base[0]; |
439 |
VMR6(V79)} |
VMR6(V79)} |
440 |
goto T132; |
goto T128; |
441 |
T132:; |
T128:; |
442 |
if((CMPcdr((V76)))!=Cnil){ |
if((CMPcdr((V76)))!=Cnil){ |
443 |
goto T137;} |
goto T133;} |
444 |
{object V80 = list(2,VV[28],list(2,VV[41],CMPcar((V76)))); |
{object V80 = list(2,VV[28],list(2,VV[41],CMPcar((V76)))); |
445 |
VMR6(V80)} |
VMR6(V80)} |
446 |
goto T137; |
goto T133; |
447 |
T137:; |
T133:; |
448 |
if((CMPcddr((V76)))!=Cnil){ |
if((CMPcddr((V76)))!=Cnil){ |
449 |
goto T140;} |
goto T136;} |
450 |
base[0]= VV[43]; |
base[0]= VV[43]; |
451 |
base[1]= (V75); |
base[1]= (V75); |
452 |
base[2]= (V76); |
base[2]= (V76); |
456 |
vs_top=sup; |
vs_top=sup; |
457 |
{object V81 = vs_base[0]; |
{object V81 = vs_base[0]; |
458 |
VMR6(V81)} |
VMR6(V81)} |
459 |
goto T140; |
goto T136; |
460 |
T140:; |
T136:; |
461 |
{object V82; |
{object V82; |
462 |
register object V83; |
register object V83; |
463 |
register object V84; |
register object V84; |
485 |
V89= (V76); |
V89= (V76); |
486 |
V90= Cnil; |
V90= Cnil; |
487 |
V91= Cnil; |
V91= Cnil; |
488 |
goto T160; |
goto T156; |
489 |
T160:; |
T156:; |
490 |
if(((V89))!=Cnil){ |
if(((V89))!=Cnil){ |
491 |
goto T162;} |
goto T158;} |
492 |
|
goto T154; |
493 |
goto T158; |
goto T158; |
494 |
goto T162; |
T158:; |
|
T162:; |
|
495 |
{object V92; |
{object V92; |
496 |
V92= CMPcar((V89)); |
V92= CMPcar((V89)); |
497 |
V89= CMPcdr((V89)); |
V89= CMPcdr((V89)); |
498 |
V90= (V92);} |
V90= (V92);} |
499 |
if(((V89))!=Cnil){ |
if(((V89))!=Cnil){ |
500 |
goto T170;} |
goto T166;} |
501 |
base[3]= VV[45]; |
base[3]= VV[45]; |
502 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
503 |
Lerror(); |
Lerror(); |
504 |
vs_top=sup; |
vs_top=sup; |
505 |
goto T170; |
goto T166; |
506 |
T170:; |
T166:; |
507 |
{object V93; |
{object V93; |
508 |
V93= CMPcar((V89)); |
V93= CMPcar((V89)); |
509 |
V89= CMPcdr((V89)); |
V89= CMPcdr((V89)); |
510 |
V91= (V93);} |
V91= (V93);} |
511 |
{object V94= (V90); |
{object V94= (V90); |
512 |
if((V94!= VV[47]))goto T179; |
if((V94!= VV[47]))goto T175; |
513 |
(VV[17]->s.s_dbind)= make_cons(V91,(VV[17]->s.s_dbind)); |
(VV[17]->s.s_dbind)= make_cons(V91,(VV[17]->s.s_dbind)); |
514 |
V83= make_cons(V91,(V83)); |
V83= make_cons(V91,(V83)); |
515 |
{object V97; |
{object V97; |
516 |
V97= list(2,VV[46],(V91)); |
V97= list(2,VV[46],(V91)); |
517 |
V84= make_cons((V97),(V84)); |
V84= make_cons((V97),(V84)); |
518 |
goto T161;} |
goto T157;} |
519 |
goto T179; |
goto T175; |
520 |
T179:; |
T175:; |
521 |
if((V94!= VV[48]))goto T186; |
if((V94!= VV[48]))goto T182; |
522 |
V83= make_cons(V91,(V83)); |
V83= make_cons(V91,(V83)); |
523 |
goto T161; |
goto T157; |
524 |
goto T186; |
goto T182; |
525 |
T186:; |
T182:; |
526 |
if((V94!= VV[49]))goto T188; |
if((V94!= VV[49]))goto T184; |
527 |
V84= make_cons(V91,(V84)); |
V84= make_cons(V91,(V84)); |
528 |
goto T161; |
goto T157; |
529 |
goto T188; |
goto T184; |
530 |
T188:; |
T184:; |
531 |
if((V94!= VV[50]))goto T190; |
if((V94!= VV[50]))goto T186; |
532 |
V85= make_cons(V91,(V85)); |
V85= make_cons(V91,(V85)); |
533 |
goto T161; |
goto T157; |
534 |
goto T190; |
goto T186; |
535 |
T190:;} |
T186:;} |
536 |
goto T161; |
goto T157; |
537 |
T161:; |
T157:; |
538 |
goto T160;} |
goto T156;} |
539 |
goto T158; |
goto T154; |
540 |
T158:; |
T154:; |
541 |
goto T195; |
goto T191; |
542 |
T195:; |
T191:; |
543 |
{object V101; |
{object V101; |
544 |
object V102; |
object V102; |
545 |
base[3]= (V76); |
base[3]= (V76); |
546 |
base[4]= VV[47]; |
base[4]= VV[47]; |
547 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
548 |
siLrem_f(); |
siLrem_f(); |
549 |
if(vs_base>=vs_top){vs_top=sup;goto T202;} |
if(vs_base>=vs_top){vs_top=sup;goto T198;} |
550 |
V101= vs_base[0]; |
V101= vs_base[0]; |
551 |
vs_base++; |
vs_base++; |
552 |
if(vs_base>=vs_top){vs_top=sup;goto T203;} |
if(vs_base>=vs_top){vs_top=sup;goto T199;} |
553 |
V102= vs_base[0]; |
V102= vs_base[0]; |
554 |
vs_top=sup; |
vs_top=sup; |
555 |
goto T204; |
goto T200; |
556 |
goto T202; |
goto T198; |
557 |
T202:; |
T198:; |
558 |
V101= Cnil; |
V101= Cnil; |
559 |
goto T203; |
goto T199; |
560 |
T203:; |
T199:; |
561 |
V102= Cnil; |
V102= Cnil; |
562 |
goto T204; |
goto T200; |
563 |
T204:; |
T200:; |
564 |
V76= (V101); |
V76= (V101); |
565 |
if(((V102))!=Cnil){ |
if(((V102))!=Cnil){ |
566 |
goto T196;}} |
goto T192;}} |
567 |
goto T193; |
goto T189; |
568 |
goto T196; |
goto T192; |
569 |
T196:; |
T192:; |
570 |
goto T195; |
goto T191; |
571 |
goto T193; |
goto T189; |
572 |
T193:; |
T189:; |
573 |
goto T210; |
goto T206; |
574 |
T210:; |
T206:; |
575 |
{object V103; |
{object V103; |
576 |
object V104; |
object V104; |
577 |
base[3]= (V76); |
base[3]= (V76); |
578 |
base[4]= VV[48]; |
base[4]= VV[48]; |
579 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
580 |
siLrem_f(); |
siLrem_f(); |
581 |
if(vs_base>=vs_top){vs_top=sup;goto T217;} |
if(vs_base>=vs_top){vs_top=sup;goto T213;} |
582 |
V103= vs_base[0]; |
V103= vs_base[0]; |
583 |
vs_base++; |
vs_base++; |
584 |
if(vs_base>=vs_top){vs_top=sup;goto T218;} |
if(vs_base>=vs_top){vs_top=sup;goto T214;} |
585 |
V104= vs_base[0]; |
V104= vs_base[0]; |
586 |
vs_top=sup; |
vs_top=sup; |
587 |
goto T219; |
goto T215; |
588 |
goto T217; |
goto T213; |
589 |
T217:; |
T213:; |
590 |
V103= Cnil; |
V103= Cnil; |
591 |
goto T218; |
goto T214; |
592 |
T218:; |
T214:; |
593 |
V104= Cnil; |
V104= Cnil; |
594 |
goto T219; |
goto T215; |
595 |
T219:; |
T215:; |
596 |
V76= (V103); |
V76= (V103); |
597 |
if(((V104))!=Cnil){ |
if(((V104))!=Cnil){ |
598 |
goto T211;}} |
goto T207;}} |
599 |
goto T208; |
goto T204; |
600 |
goto T211; |
goto T207; |
601 |
T211:; |
T207:; |
602 |
goto T210; |
goto T206; |
603 |
goto T208; |
goto T204; |
604 |
T208:; |
T204:; |
605 |
goto T225; |
goto T221; |
606 |
T225:; |
T221:; |
607 |
{object V105; |
{object V105; |
608 |
object V106; |
object V106; |
609 |
base[3]= (V76); |
base[3]= (V76); |
610 |
base[4]= VV[49]; |
base[4]= VV[49]; |
611 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
612 |
siLrem_f(); |
siLrem_f(); |
613 |
if(vs_base>=vs_top){vs_top=sup;goto T232;} |
if(vs_base>=vs_top){vs_top=sup;goto T228;} |
614 |
V105= vs_base[0]; |
V105= vs_base[0]; |
615 |
vs_base++; |
vs_base++; |
616 |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
if(vs_base>=vs_top){vs_top=sup;goto T229;} |
617 |
V106= vs_base[0]; |
V106= vs_base[0]; |
618 |
vs_top=sup; |
vs_top=sup; |
619 |
goto T234; |
goto T230; |
620 |
goto T232; |
goto T228; |
621 |
T232:; |
T228:; |
622 |
V105= Cnil; |
V105= Cnil; |
623 |
goto T233; |
goto T229; |
624 |
T233:; |
T229:; |
625 |
V106= Cnil; |
V106= Cnil; |
626 |
goto T234; |
goto T230; |
627 |
T234:; |
T230:; |
628 |
V76= (V105); |
V76= (V105); |
629 |
if(((V106))!=Cnil){ |
if(((V106))!=Cnil){ |
630 |
goto T226;}} |
goto T222;}} |
631 |
goto T223; |
goto T219; |
632 |
goto T226; |
goto T222; |
633 |
T226:; |
T222:; |
634 |
goto T225; |
goto T221; |
635 |
goto T223; |
goto T219; |
636 |
T223:; |
T219:; |
637 |
goto T240; |
goto T236; |
638 |
T240:; |
T236:; |
639 |
{object V107; |
{object V107; |
640 |
object V108; |
object V108; |
641 |
base[3]= (V76); |
base[3]= (V76); |
642 |
base[4]= VV[50]; |
base[4]= VV[50]; |
643 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
644 |
siLrem_f(); |
siLrem_f(); |
645 |
if(vs_base>=vs_top){vs_top=sup;goto T247;} |
if(vs_base>=vs_top){vs_top=sup;goto T243;} |
646 |
V107= vs_base[0]; |
V107= vs_base[0]; |
647 |
vs_base++; |
vs_base++; |
648 |
if(vs_base>=vs_top){vs_top=sup;goto T248;} |
if(vs_base>=vs_top){vs_top=sup;goto T244;} |
649 |
V108= vs_base[0]; |
V108= vs_base[0]; |
650 |
vs_top=sup; |
vs_top=sup; |
651 |
goto T249; |
goto T245; |
652 |
goto T247; |
goto T243; |
653 |
T247:; |
T243:; |
654 |
V107= Cnil; |
V107= Cnil; |
655 |
goto T248; |
goto T244; |
656 |
T248:; |
T244:; |
657 |
V108= Cnil; |
V108= Cnil; |
658 |
goto T249; |
goto T245; |
659 |
T249:; |
T245:; |
660 |
V76= (V107); |
V76= (V107); |
661 |
if(((V108))!=Cnil){ |
if(((V108))!=Cnil){ |
662 |
goto T241;}} |
goto T237;}} |
663 |
goto T238; |
goto T234; |
664 |
goto T241; |
goto T237; |
665 |
T241:; |
T237:; |
666 |
goto T240; |
goto T236; |
667 |
goto T238; |
goto T234; |
668 |
T238:; |
T234:; |
669 |
(VV[15]->s.s_dbind)= append((V84),(VV[15]->s.s_dbind)); |
(VV[15]->s.s_dbind)= append((V84),(VV[15]->s.s_dbind)); |
670 |
(VV[16]->s.s_dbind)= append((V83),(VV[16]->s.s_dbind)); |
(VV[16]->s.s_dbind)= append((V83),(VV[16]->s.s_dbind)); |
671 |
V109= list(2,VV[28],(V82)); |
V109= list(2,VV[28],(V82)); |
674 |
V112= list(2,VV[28],(V85)); |
V112= list(2,VV[28],(V85)); |
675 |
V76= list(9,VV[41],/* INLINE-ARGS */V109,VV[51],/* INLINE-ARGS */V110,VV[52],/* INLINE-ARGS */V111,VV[53],/* INLINE-ARGS */V112,list(2,VV[28],(V76))); |
V76= list(9,VV[41],/* INLINE-ARGS */V109,VV[51],/* INLINE-ARGS */V110,VV[52],/* INLINE-ARGS */V111,VV[53],/* INLINE-ARGS */V112,list(2,VV[28],(V76))); |
676 |
if(!(((V87))==((V86)))){ |
if(!(((V87))==((V86)))){ |
677 |
goto T260;} |
goto T256;} |
678 |
{object V113 = make_cons(VV[54],(V76)); |
{object V113 = make_cons(VV[54],(V76)); |
679 |
VMR6(V113)} |
VMR6(V113)} |
680 |
goto T260; |
goto T256; |
681 |
T260:; |
T256:; |
682 |
V114= (*(LnkLI105))((V87)); |
V114= (*(LnkLI104))((V87)); |
683 |
V115 = (V76); |
V115 = (V76); |
684 |
{object V116 = listA(4,VV[54],VV[55],/* INLINE-ARGS */V114,V115); |
{object V116 = listA(4,VV[54],VV[55],/* INLINE-ARGS */V114,V115); |
685 |
VMR6(V116)}} |
VMR6(V116)}} |
695 |
goto TTL; |
goto TTL; |
696 |
TTL:; |
TTL:; |
697 |
{object V121= CMPcar((V120)); |
{object V121= CMPcar((V120)); |
698 |
if((V121!= VV[106]))goto T262; |
if((V121!= VV[105]))goto T258; |
699 |
{register object V122; |
{register object V122; |
700 |
V122= Cnil; |
V122= Cnil; |
701 |
{register object V123; |
{register object V123; |
704 |
V125= CMPcdr((V120)); |
V125= CMPcdr((V120)); |
705 |
V123= Cnil; |
V123= Cnil; |
706 |
V124= Cnil; |
V124= Cnil; |
707 |
goto T266; |
goto T262; |
708 |
T266:; |
T262:; |
709 |
if(((V125))!=Cnil){ |
if(((V125))!=Cnil){ |
710 |
goto T268;} |
goto T264;} |
711 |
|
goto T260; |
712 |
goto T264; |
goto T264; |
713 |
goto T268; |
T264:; |
|
T268:; |
|
714 |
{register object V126; |
{register object V126; |
715 |
V126= CMPcar((V125)); |
V126= CMPcar((V125)); |
716 |
V125= CMPcdr((V125)); |
V125= CMPcdr((V125)); |
721 |
V124= (V127);} |
V124= (V127);} |
722 |
{register object V128; |
{register object V128; |
723 |
V129= list(2,VV[28],(V123)); |
V129= list(2,VV[28],(V123)); |
724 |
V130= (*(LnkLI105))((V124)); |
V130= (*(LnkLI104))((V124)); |
725 |
V128= list(4,VV[29],/* INLINE-ARGS */V129,/* INLINE-ARGS */V130,list(2,VV[28],(V124))); |
V128= list(4,VV[29],/* INLINE-ARGS */V129,/* INLINE-ARGS */V130,list(2,VV[28],(V124))); |
726 |
V122= make_cons((V128),(V122));} |
V122= make_cons((V128),(V122));} |
727 |
goto T266; |
goto T262; |
728 |
goto T264; |
goto T260; |
729 |
T264:; |
T260:; |
730 |
V131= nreverse((V122)); |
V131= nreverse((V122)); |
731 |
{object V132 = list(2,VV[56],make_cons(VV[29],/* INLINE-ARGS */V131)); |
{object V132 = list(2,VV[56],make_cons(VV[29],/* INLINE-ARGS */V131)); |
732 |
VMR7(V132)}}} |
VMR7(V132)}}} |
733 |
goto T262; |
goto T258; |
734 |
T262:; |
T258:; |
735 |
V133= list(2,VV[28],CMPcar((V120))); |
V133= list(2,VV[28],CMPcar((V120))); |
736 |
{object V134 = list(2,/* INLINE-ARGS */V133,list(2,VV[28],CMPcdr((V120)))); |
{object V134 = list(2,/* INLINE-ARGS */V133,list(2,VV[28],CMPcdr((V120)))); |
737 |
VMR7(V134)}} |
VMR7(V134)}} |
749 |
base[0]= (V136); |
base[0]= (V136); |
750 |
base[1]= (VV[57]->s.s_dbind); |
base[1]= (VV[57]->s.s_dbind); |
751 |
base[2]= VV[58]; |
base[2]= VV[58]; |
752 |
base[3]= (VV[107]->s.s_gfdef); |
base[3]= (VV[106]->s.s_gfdef); |
753 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
754 |
(void) (*Lnk108)(); |
(void) (*Lnk107)(); |
755 |
vs_top=sup; |
vs_top=sup; |
756 |
V137= vs_base[0]; |
V137= vs_base[0]; |
757 |
if(V137==Cnil)goto T284; |
if(V137==Cnil)goto T280; |
758 |
{object V138 = V137; |
{object V138 = V137; |
759 |
VMR8(V138)} |
VMR8(V138)} |
760 |
goto T284; |
goto T280; |
761 |
T284:;} |
T280:;} |
762 |
base[0]= VV[59]; |
base[0]= VV[59]; |
763 |
base[1]= (V136); |
base[1]= (V136); |
764 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
883 |
while(V178!=Cnil) |
while(V178!=Cnil) |
884 |
if(eql(x,V178->c.c_car->c.c_car) &&V178->c.c_car != Cnil){ |
if(eql(x,V178->c.c_car->c.c_car) &&V178->c.c_car != Cnil){ |
885 |
V177= (V178->c.c_car); |
V177= (V178->c.c_car); |
886 |
goto T296; |
goto T292; |
887 |
}else V178=V178->c.c_cdr; |
}else V178=V178->c.c_cdr; |
888 |
V177= Cnil;} |
V177= Cnil;} |
889 |
goto T296; |
goto T292; |
890 |
T296:; |
T292:; |
891 |
if(V177==Cnil)goto T295; |
if(V177==Cnil)goto T291; |
892 |
V176= V177; |
V176= V177; |
893 |
goto T294; |
goto T290; |
894 |
goto T295; |
goto T291; |
895 |
T295:;} |
T291:;} |
896 |
{object V179; |
{object V179; |
897 |
V180 = (V175); |
V180 = (V175); |
898 |
base[1]= (V175); |
base[1]= (V175); |
899 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
900 |
(void) (*Lnk109)(); |
(void) (*Lnk108)(); |
901 |
vs_top=sup; |
vs_top=sup; |
902 |
V184= vs_base[0]; |
V184= vs_base[0]; |
903 |
{object V182; |
{object V182; |
904 |
object V183= V184; |
object V183= V184; |
905 |
if(V183==Cnil){ |
if(V183==Cnil){ |
906 |
V181= Cnil; |
V181= Cnil; |
907 |
goto T298;} |
goto T294;} |
908 |
base[0]=V182=MMcons(Cnil,Cnil); |
base[0]=V182=MMcons(Cnil,Cnil); |
909 |
goto T299; |
goto T295; |
910 |
T299:; |
T295:; |
911 |
(V182->c.c_car)= (*(LnkLI110))((V183->c.c_car)); |
(V182->c.c_car)= (*(LnkLI109))((V183->c.c_car)); |
912 |
if((V183=MMcdr(V183))==Cnil){ |
if((V183=MMcdr(V183))==Cnil){ |
913 |
V181= base[0]; |
V181= base[0]; |
914 |
goto T298;} |
goto T294;} |
915 |
V182=MMcdr(V182)=MMcons(Cnil,Cnil); |
V182=MMcdr(V182)=MMcons(Cnil,Cnil); |
916 |
goto T299;} |
goto T295;} |
917 |
goto T298; |
goto T294; |
918 |
T298:; |
T294:; |
919 |
V179= make_cons(V180,V181); |
V179= make_cons(V180,V181); |
920 |
(VV[61]->s.s_dbind)= make_cons(V179,(VV[61]->s.s_dbind)); |
(VV[61]->s.s_dbind)= make_cons(V179,(VV[61]->s.s_dbind)); |
921 |
V176= (V179);} |
V176= (V179);} |
922 |
goto T294; |
goto T290; |
923 |
T294:; |
T290:; |
924 |
{object V186 = CMPcdr(V176); |
{object V186 = CMPcdr(V176); |
925 |
VMR17(V186)} |
VMR17(V186)} |
926 |
base[0]=base[0]; |
base[0]=base[0]; |
934 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
935 |
goto TTL; |
goto TTL; |
936 |
TTL:; |
TTL:; |
937 |
V189= (*(LnkLI111))((V188)); |
V189= (*(LnkLI110))((V188)); |
938 |
{long V190 = (long)length(/* INLINE-ARGS */V189); |
{long V190 = (long)length(/* INLINE-ARGS */V189); |
939 |
VMR18((object)V190)} |
VMR18((object)V190)} |
940 |
} |
} |
951 |
goto TTL; |
goto TTL; |
952 |
TTL:; |
TTL:; |
953 |
{object V192; |
{object V192; |
954 |
V192= (*(LnkLI112))((V191)); |
V192= (*(LnkLI111))((V191)); |
955 |
base[1]= (*(LnkLI113))((V192)); |
base[1]= (*(LnkLI112))((V192)); |
956 |
base[2]= (V192); |
base[2]= (V192); |
957 |
base[3]= (*(LnkLI114))((V192)); |
base[3]= (*(LnkLI113))((V192)); |
958 |
{register object V193; |
{register object V193; |
959 |
register object V194; |
register object V194; |
960 |
V193= Cnil; |
V193= Cnil; |
963 |
register object V196; |
register object V196; |
964 |
V195= (VV[57]->s.s_dbind); |
V195= (VV[57]->s.s_dbind); |
965 |
V196= CMPcar((V195)); |
V196= CMPcar((V195)); |
|
goto T316; |
|
|
T316:; |
|
|
if(!(((V195))==Cnil)){ |
|
|
goto T317;} |
|
966 |
goto T312; |
goto T312; |
967 |
goto T317; |
T312:; |
968 |
T317:; |
if(!(((V195))==Cnil)){ |
969 |
|
goto T313;} |
970 |
|
goto T308; |
971 |
|
goto T313; |
972 |
|
T313:; |
973 |
V198 = (V191); |
V198 = (V191); |
974 |
V199= (*(LnkLI115))((V196)); |
V199= (*(LnkLI114))((V196)); |
975 |
{register object x= V198,V197= /* INLINE-ARGS */V199; |
{register object x= V198,V197= /* INLINE-ARGS */V199; |
976 |
while(V197!=Cnil) |
while(V197!=Cnil) |
977 |
if(x==(V197->c.c_car)){ |
if(x==(V197->c.c_car)){ |
978 |
goto T323; |
goto T319; |
979 |
}else V197=V197->c.c_cdr; |
}else V197=V197->c.c_cdr; |
980 |
goto T321;} |
goto T317;} |
981 |
goto T323; |
goto T319; |
982 |
T323:; |
T319:; |
983 |
{register object V200; |
{register object V200; |
984 |
V200= (*(LnkLI107))((V196)); |
V200= (*(LnkLI106))((V196)); |
985 |
if(((V193))!=Cnil){ |
if(((V193))!=Cnil){ |
986 |
goto T326;} |
goto T322;} |
987 |
V194= make_cons((V200),Cnil); |
V194= make_cons((V200),Cnil); |
988 |
V193= (V194); |
V193= (V194); |
989 |
goto T321; |
goto T317; |
990 |
goto T326; |
goto T322; |
991 |
T326:; |
T322:; |
992 |
V202= make_cons((V200),Cnil); |
V202= make_cons((V200),Cnil); |
993 |
((V194))->c.c_cdr = /* INLINE-ARGS */V202; |
((V194))->c.c_cdr = /* INLINE-ARGS */V202; |
994 |
V201= (V194); |
V201= (V194); |
995 |
V194= CMPcdr(V201);} |
V194= CMPcdr(V201);} |
996 |
goto T321; |
goto T317; |
997 |
T321:; |
T317:; |
998 |
V195= CMPcdr((V195)); |
V195= CMPcdr((V195)); |
999 |
V196= CMPcar((V195)); |
V196= CMPcar((V195)); |
1000 |
goto T316;} |
goto T312;} |
1001 |
goto T312; |
goto T308; |
1002 |
T312:; |
T308:; |
1003 |
base[4]= (V193);} |
base[4]= (V193);} |
1004 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1005 |
return;} |
return;} |
1020 |
object V209= (V204); |
object V209= (V204); |
1021 |
if(V209==Cnil){ |
if(V209==Cnil){ |
1022 |
V205= Cnil; |
V205= Cnil; |
1023 |
goto T337;} |
goto T333;} |
1024 |
base[3]=V208=MMcons(Cnil,Cnil); |
base[3]=V208=MMcons(Cnil,Cnil); |
1025 |
goto T338; |
goto T334; |
1026 |
T338:; |
T334:; |
1027 |
(V208->c.c_car)= (*(LnkLI60))((V209->c.c_car)); |
(V208->c.c_car)= (*(LnkLI60))((V209->c.c_car)); |
1028 |
if((V209=MMcdr(V209))==Cnil){ |
if((V209=MMcdr(V209))==Cnil){ |
1029 |
V205= base[3]; |
V205= base[3]; |
1030 |
goto T337;} |
goto T333;} |
1031 |
V208=MMcdr(V208)=MMcons(Cnil,Cnil); |
V208=MMcdr(V208)=MMcons(Cnil,Cnil); |
1032 |
goto T338;} |
goto T334;} |
1033 |
goto T337; |
goto T333; |
1034 |
T337:; |
T333:; |
1035 |
{object V210; |
{object V210; |
1036 |
object V211= (V205); |
object V211= (V205); |
1037 |
if(V211==Cnil){ |
if(V211==Cnil){ |
1038 |
V206= Cnil; |
V206= Cnil; |
1039 |
goto T340;} |
goto T336;} |
1040 |
base[3]=V210=MMcons(Cnil,Cnil); |
base[3]=V210=MMcons(Cnil,Cnil); |
1041 |
goto T341; |
goto T337; |
1042 |
T341:; |
T337:; |
1043 |
(V210->c.c_car)= (*(LnkLI116))((V211->c.c_car)); |
(V210->c.c_car)= (*(LnkLI115))((V211->c.c_car)); |
1044 |
if((V211=MMcdr(V211))==Cnil){ |
if((V211=MMcdr(V211))==Cnil){ |
1045 |
V206= base[3]; |
V206= base[3]; |
1046 |
goto T340;} |
goto T336;} |
1047 |
V210=MMcdr(V210)=MMcons(Cnil,Cnil); |
V210=MMcdr(V210)=MMcons(Cnil,Cnil); |
1048 |
goto T341;} |
goto T337;} |
1049 |
goto T340; |
goto T336; |
1050 |
T340:; |
T336:; |
1051 |
{object V212; |
{object V212; |
1052 |
V212= reverse((V206)); |
V212= reverse((V206)); |
1053 |
vs_top=base+3; |
vs_top=base+3; |
1061 |
register object V214; |
register object V214; |
1062 |
V213= (V207); |
V213= (V207); |
1063 |
V214= CMPcar((V213)); |
V214= CMPcar((V213)); |
|
goto T349; |
|
|
T349:; |
|
|
if(!(((V213))==Cnil)){ |
|
|
goto T350;} |
|
1064 |
goto T345; |
goto T345; |
1065 |
goto T350; |
T345:; |
1066 |
T350:; |
if(!(((V213))==Cnil)){ |
1067 |
|
goto T346;} |
1068 |
|
goto T341; |
1069 |
|
goto T346; |
1070 |
|
T346:; |
1071 |
{register object V215; |
{register object V215; |
1072 |
V215= (*(LnkLI110))((V214)); |
V215= (*(LnkLI109))((V214)); |
1073 |
{register object V216; |
{register object V216; |
1074 |
register object V217; |
register object V217; |
1075 |
{register object x= (V214),V219= (V207); |
{register object x= (V214),V219= (V207); |
1076 |
while(V219!=Cnil) |
while(V219!=Cnil) |
1077 |
if(x==(V219->c.c_car)){ |
if(x==(V219->c.c_car)){ |
1078 |
V218= V219; |
V218= V219; |
1079 |
goto T357; |
goto T353; |
1080 |
}else V219=V219->c.c_cdr; |
}else V219=V219->c.c_cdr; |
1081 |
V218= Cnil;} |
V218= Cnil;} |
1082 |
goto T357; |
goto T353; |
1083 |
T357:; |
T353:; |
1084 |
V216= CMPcdr(V218); |
V216= CMPcdr(V218); |
1085 |
V217= CMPcar((V216)); |
V217= CMPcar((V216)); |
1086 |
goto T360; |
goto T356; |
1087 |
T360:; |
T356:; |
1088 |
if(!(((V216))==Cnil)){ |
if(!(((V216))==Cnil)){ |
1089 |
goto T361;} |
goto T357;} |
1090 |
goto T354; |
goto T350; |
1091 |
goto T361; |
goto T357; |
1092 |
T361:; |
T357:; |
1093 |
V220 = (V215); |
V220 = (V215); |
1094 |
V221= (*(LnkLI110))((V217)); |
V221= (*(LnkLI109))((V217)); |
1095 |
if(!((V220)==(/* INLINE-ARGS */V221))){ |
if(!((V220)==(/* INLINE-ARGS */V221))){ |
1096 |
goto T365;} |
goto T361;} |
1097 |
base[6]= VV[62]; |
base[6]= VV[62]; |
1098 |
base[7]= (V215); |
base[7]= (V215); |
1099 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1100 |
Lerror(); |
Lerror(); |
1101 |
vs_top=sup; |
vs_top=sup; |
1102 |
goto T365; |
goto T361; |
1103 |
T365:; |
T361:; |
1104 |
V216= CMPcdr((V216)); |
V216= CMPcdr((V216)); |
1105 |
V217= CMPcar((V216)); |
V217= CMPcar((V216)); |
1106 |
goto T360;}} |
goto T356;}} |
1107 |
goto T354; |
goto T350; |
1108 |
T354:; |
T350:; |
1109 |
V213= CMPcdr((V213)); |
V213= CMPcdr((V213)); |
1110 |
V214= CMPcar((V213)); |
V214= CMPcar((V213)); |
1111 |
goto T349;} |
goto T345;} |
1112 |
goto T345; |
goto T341; |
1113 |
T345:; |
T341:; |
1114 |
{object V222 = (V207); |
{object V222 = (V207); |
1115 |
VMR20(V222)}} |
VMR20(V222)}} |
1116 |
base[0]=base[0]; |
base[0]=base[0]; |
1132 |
base[1]= VV[63]; |
base[1]= VV[63]; |
1133 |
base[2]= Cnil; |
base[2]= Cnil; |
1134 |
base[3]= VV[64]; |
base[3]= VV[64]; |
1135 |
base[4]= (VV[117]->s.s_gfdef); |
base[4]= (VV[116]->s.s_gfdef); |
1136 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
1137 |
(void) (*Lnk118)(); |
(void) (*Lnk117)(); |
1138 |
vs_top=sup; |
vs_top=sup; |
1139 |
{object V225 = vs_base[0]; |
{object V225 = vs_base[0]; |
1140 |
VMR21(V225)} |
VMR21(V225)} |
1155 |
object V230; |
object V230; |
1156 |
V229= (V227); |
V229= (V227); |
1157 |
V230= CMPcar((V229)); |
V230= CMPcar((V229)); |
|
goto T390; |
|
|
T390:; |
|
|
if(!(((V229))==Cnil)){ |
|
|
goto T391;} |
|
1158 |
goto T386; |
goto T386; |
1159 |
goto T391; |
T386:; |
1160 |
T391:; |
if(!(((V229))==Cnil)){ |
1161 |
|
goto T387;} |
1162 |
|
goto T382; |
1163 |
|
goto T387; |
1164 |
|
T387:; |
1165 |
{object V231; |
{object V231; |
1166 |
register object V232; |
register object V232; |
1167 |
V231= (*(LnkLI60))((V230)); |
V231= (*(LnkLI60))((V230)); |
1168 |
V232= (*(LnkLI119))((V231)); |
V232= (*(LnkLI118))((V231)); |
|
goto T399; |
|
|
T399:; |
|
|
if(((V232))!=Cnil){ |
|
|
goto T401;} |
|
1169 |
goto T395; |
goto T395; |
1170 |
goto T401; |
T395:; |
1171 |
T401:; |
if(((V232))!=Cnil){ |
1172 |
|
goto T397;} |
1173 |
|
goto T391; |
1174 |
|
goto T397; |
1175 |
|
T397:; |
1176 |
{register object V233; |
{register object V233; |
1177 |
{register object V234; |
{register object V234; |
1178 |
V234= CMPcar((V232)); |
V234= CMPcar((V232)); |
1179 |
V232= CMPcdr((V232)); |
V232= CMPcdr((V232)); |
1180 |
V233= (V234);} |
V233= (V234);} |
1181 |
if(((V233))==(VV[65])){ |
if(((V233))==(VV[65])){ |
1182 |
goto T404;} |
goto T400;} |
1183 |
base[3]= VV[66]; |
base[3]= VV[66]; |
1184 |
base[4]= (V233); |
base[4]= (V233); |
1185 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1186 |
Lerror(); |
Lerror(); |
1187 |
vs_top=sup;} |
vs_top=sup;} |
1188 |
goto T404; |
goto T400; |
1189 |
T404:; |
T400:; |
1190 |
{register object V236; |
{register object V236; |
1191 |
V236= CMPcar((V232)); |
V236= CMPcar((V232)); |
1192 |
V232= CMPcdr((V232)); |
V232= CMPcdr((V232)); |
1193 |
V235= (V236);} |
V235= (V236);} |
1194 |
V237= reverse(V235); |
V237= reverse(V235); |
1195 |
V228= nconc((V228),/* INLINE-ARGS */V237); |
V228= nconc((V228),/* INLINE-ARGS */V237); |
1196 |
goto T399;} |
goto T395;} |
1197 |
goto T395; |
goto T391; |
1198 |
T395:; |
T391:; |
1199 |
V229= CMPcdr((V229)); |
V229= CMPcdr((V229)); |
1200 |
V230= CMPcar((V229)); |
V230= CMPcar((V229)); |
1201 |
goto T390;} |
goto T386;} |
1202 |
goto T386; |
goto T382; |
1203 |
T386:; |
T382:; |
1204 |
{object V238 = reverse((V228)); |
{object V238 = reverse((V228)); |
1205 |
VMR22(V238)}} |
VMR22(V238)}} |
1206 |
base[0]=base[0]; |
base[0]=base[0]; |
1215 |
goto TTL; |
goto TTL; |
1216 |
TTL:;{object V243; |
TTL:;{object V243; |
1217 |
base[0]= (V242); |
base[0]= (V242); |
1218 |
base[1]= (*(LnkLI111))((V241)); |
base[1]= (*(LnkLI110))((V241)); |
1219 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1220 |
(void) (*Lnk120)(); |
(void) (*Lnk119)(); |
1221 |
vs_top=sup; |
vs_top=sup; |
1222 |
V243= vs_base[0]; |
V243= vs_base[0]; |
1223 |
if(V243==Cnil)goto T424; |
if(V243==Cnil)goto T420; |
1224 |
{object V244 = V243; |
{object V244 = V243; |
1225 |
VMR23(V244)} |
VMR23(V244)} |
1226 |
goto T424; |
goto T420; |
1227 |
T424:;} |
T420:;} |
1228 |
base[0]= VV[67]; |
base[0]= VV[67]; |
1229 |
base[1]= (V242); |
base[1]= (V242); |
1230 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1268 |
goto TTL; |
goto TTL; |
1269 |
TTL:; |
TTL:; |
1270 |
if(type_of(V253)==t_structure){ |
if(type_of(V253)==t_structure){ |
1271 |
goto T434;} |
goto T430;} |
1272 |
goto T432; |
goto T428; |
1273 |
goto T434; |
goto T430; |
1274 |
T434:; |
T430:; |
1275 |
if(!(((V253)->str.str_def)==(VV[71]))){ |
if(!(((V253)->str.str_def)==(VV[71]))){ |
1276 |
goto T432;} |
goto T428;} |
1277 |
V256= STREF(object,(V253),4); |
V256= STREF(object,(V253),4); |
1278 |
goto T430; |
goto T426; |
1279 |
goto T432; |
goto T428; |
1280 |
T432:;{object V258; |
T428:;{object V258; |
1281 |
V258= (VV[73]->s.s_dbind); |
V258= (VV[73]->s.s_dbind); |
1282 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1283 |
base[1]= (V253); |
base[1]= (V253); |
1284 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1285 |
(void) (*Lnk121)(); |
(void) (*Lnk120)(); |
1286 |
vs_top=sup; |
vs_top=sup; |
1287 |
V259= vs_base[0]; |
V259= vs_base[0]; |
1288 |
if(!((V258)==(CMPcar(V259)))){ |
if(!((V258)==(CMPcar(V259)))){ |
1289 |
goto T437;}} |
goto T433;}} |
1290 |
V256= CMPcar(((V253))->cc.cc_turbo[12]); |
V256= CMPcar(((V253))->cc.cc_turbo[12]); |
1291 |
goto T430; |
goto T426; |
1292 |
goto T437; |
goto T433; |
1293 |
T437:; |
T433:; |
1294 |
base[0]= VV[74]; |
base[0]= VV[74]; |
1295 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1296 |
Lerror(); |
Lerror(); |
1297 |
vs_top=sup; |
vs_top=sup; |
1298 |
V256= vs_base[0]; |
V256= vs_base[0]; |
1299 |
goto T430; |
goto T426; |
1300 |
T430:; |
T426:; |
1301 |
V260= (*(LnkLI70))((V252),(V254)); |
V260= (*(LnkLI70))((V252),(V254)); |
1302 |
V261 = (V255); |
V261 = (V255); |
1303 |
{object V262 = ((V256)->v.v_self[fix(/* INLINE-ARGS */V260)]=(V261)); |
{object V262 = ((V256)->v.v_self[fix(/* INLINE-ARGS */V260)]=(V261)); |
1314 |
goto TTL; |
goto TTL; |
1315 |
TTL:; |
TTL:; |
1316 |
if(type_of(V264)==t_structure){ |
if(type_of(V264)==t_structure){ |
1317 |
goto T447;} |
goto T443;} |
1318 |
goto T445; |
goto T441; |
1319 |
goto T447; |
goto T443; |
1320 |
T447:; |
T443:; |
1321 |
if(!(((V264)->str.str_def)==(VV[75]))){ |
if(!(((V264)->str.str_def)==(VV[75]))){ |
1322 |
goto T445;} |
goto T441;} |
1323 |
V265= STREF(object,(V264),4); |
V265= STREF(object,(V264),4); |
1324 |
goto T443; |
goto T439; |
1325 |
goto T445; |
goto T441; |
1326 |
T445:;{object V267; |
T441:;{object V267; |
1327 |
V267= (VV[73]->s.s_dbind); |
V267= (VV[73]->s.s_dbind); |
1328 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1329 |
base[1]= (V264); |
base[1]= (V264); |
1330 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1331 |
(void) (*Lnk121)(); |
(void) (*Lnk120)(); |
1332 |
vs_top=sup; |
vs_top=sup; |
1333 |
V268= vs_base[0]; |
V268= vs_base[0]; |
1334 |
if(!((V267)==(CMPcar(V268)))){ |
if(!((V267)==(CMPcar(V268)))){ |
1335 |
goto T450;}} |
goto T446;}} |
1336 |
V265= CMPcar(((V264))->cc.cc_turbo[12]); |
V265= CMPcar(((V264))->cc.cc_turbo[12]); |
1337 |
goto T443; |
goto T439; |
1338 |
goto T450; |
goto T446; |
1339 |
T450:; |
T446:; |
1340 |
base[0]= VV[74]; |
base[0]= VV[74]; |
1341 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1342 |
Lerror(); |
Lerror(); |
1343 |
vs_top=sup; |
vs_top=sup; |
1344 |
V265= vs_base[0]; |
V265= vs_base[0]; |
1345 |
goto T443; |
goto T439; |
1346 |
T443:; |
T439:; |
1347 |
V269= (*(LnkLI70))(VV[76],VV[77]); |
V269= (*(LnkLI70))(VV[76],VV[77]); |
1348 |
{object V270 = (V265)->v.v_self[fix(/* INLINE-ARGS */V269)]; |
{object V270 = (V265)->v.v_self[fix(/* INLINE-ARGS */V269)]; |
1349 |
VMR26(V270)} |
VMR26(V270)} |
1359 |
goto TTL; |
goto TTL; |
1360 |
TTL:; |
TTL:; |
1361 |
if(type_of(V272)==t_structure){ |
if(type_of(V272)==t_structure){ |
1362 |
goto T460;} |
goto T456;} |
1363 |
goto T458; |
goto T454; |
1364 |
goto T460; |
goto T456; |
1365 |
T460:; |
T456:; |
1366 |
if(!(((V272)->str.str_def)==(VV[78]))){ |
if(!(((V272)->str.str_def)==(VV[78]))){ |
1367 |
goto T458;} |
goto T454;} |
1368 |
V273= STREF(object,(V272),4); |
V273= STREF(object,(V272),4); |
1369 |
goto T456; |
goto T452; |
1370 |
goto T458; |
goto T454; |
1371 |
T458:;{object V275; |
T454:;{object V275; |
1372 |
V275= (VV[73]->s.s_dbind); |
V275= (VV[73]->s.s_dbind); |
1373 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1374 |
base[1]= (V272); |
base[1]= (V272); |
1375 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1376 |
(void) (*Lnk121)(); |
(void) (*Lnk120)(); |
1377 |
vs_top=sup; |
vs_top=sup; |
1378 |
V276= vs_base[0]; |
V276= vs_base[0]; |
1379 |
if(!((V275)==(CMPcar(V276)))){ |
if(!((V275)==(CMPcar(V276)))){ |
1380 |
goto T463;}} |
goto T459;}} |
1381 |
V273= CMPcar(((V272))->cc.cc_turbo[12]); |
V273= CMPcar(((V272))->cc.cc_turbo[12]); |
1382 |
goto T456; |
goto T452; |
1383 |
goto T463; |
goto T459; |
1384 |
T463:; |
T459:; |
1385 |
base[0]= VV[74]; |
base[0]= VV[74]; |
1386 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1387 |
Lerror(); |
Lerror(); |
1388 |
vs_top=sup; |
vs_top=sup; |
1389 |
V273= vs_base[0]; |
V273= vs_base[0]; |
1390 |
goto T456; |
goto T452; |
1391 |
T456:; |
T452:; |
1392 |
V277= (*(LnkLI70))(VV[79],VV[80]); |
V277= (*(LnkLI70))(VV[79],VV[80]); |
1393 |
{object V278 = (V273)->v.v_self[fix(/* INLINE-ARGS */V277)]; |
{object V278 = (V273)->v.v_self[fix(/* INLINE-ARGS */V277)]; |
1394 |
VMR27(V278)} |
VMR27(V278)} |
1403 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1404 |
goto TTL; |
goto TTL; |
1405 |
TTL:; |
TTL:; |
1406 |
V281= (*(LnkLI124))((V280)); |
V281= (*(LnkLI123))((V280)); |
1407 |
{object V282 = (*(LnkLI123))(/* INLINE-ARGS */V281); |
{object V282 = (*(LnkLI122))(/* INLINE-ARGS */V281); |
1408 |
VMR28(V282)} |
VMR28(V282)} |
1409 |
return Cnil; |
return Cnil; |
1410 |
} |
} |
1417 |
goto TTL; |
goto TTL; |
1418 |
TTL:; |
TTL:; |
1419 |
if(type_of(V284)==t_structure){ |
if(type_of(V284)==t_structure){ |
1420 |
goto T473;} |
goto T469;} |
1421 |
goto T471; |
goto T467; |
1422 |
goto T473; |
goto T469; |
1423 |
T473:; |
T469:; |
1424 |
if(!(((V284)->str.str_def)==(VV[81]))){ |
if(!(((V284)->str.str_def)==(VV[81]))){ |
1425 |
goto T471;} |
goto T467;} |
1426 |
V285= STREF(object,(V284),4); |
V285= STREF(object,(V284),4); |
1427 |
goto T469; |
goto T465; |
1428 |
goto T471; |
goto T467; |
1429 |
T471:;{object V287; |
T467:;{object V287; |
1430 |
V287= (VV[73]->s.s_dbind); |
V287= (VV[73]->s.s_dbind); |
1431 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1432 |
base[1]= (V284); |
base[1]= (V284); |
1433 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1434 |
(void) (*Lnk121)(); |
(void) (*Lnk120)(); |
1435 |
vs_top=sup; |
vs_top=sup; |
1436 |
V288= vs_base[0]; |
V288= vs_base[0]; |
1437 |
if(!((V287)==(CMPcar(V288)))){ |
if(!((V287)==(CMPcar(V288)))){ |
1438 |
goto T476;}} |
goto T472;}} |
1439 |
V285= CMPcar(((V284))->cc.cc_turbo[12]); |
V285= CMPcar(((V284))->cc.cc_turbo[12]); |
1440 |
goto T469; |
goto T465; |
1441 |
goto T476; |
goto T472; |
1442 |
T476:; |
T472:; |
1443 |
base[0]= VV[74]; |
base[0]= VV[74]; |
1444 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1445 |
Lerror(); |
Lerror(); |
1446 |
vs_top=sup; |
vs_top=sup; |
1447 |
V285= vs_base[0]; |
V285= vs_base[0]; |
1448 |
goto T469; |
goto T465; |
1449 |
T469:; |
T465:; |
1450 |
V289= (*(LnkLI70))(VV[82],VV[83]); |
V289= (*(LnkLI70))(VV[82],VV[83]); |
1451 |
{object V290 = (V285)->v.v_self[fix(/* INLINE-ARGS */V289)]; |
{object V290 = (V285)->v.v_self[fix(/* INLINE-ARGS */V289)]; |
1452 |
VMR29(V290)} |
VMR29(V290)} |
1462 |
goto TTL; |
goto TTL; |
1463 |
TTL:; |
TTL:; |
1464 |
if(type_of(V292)==t_structure){ |
if(type_of(V292)==t_structure){ |
1465 |
goto T486;} |
goto T482;} |
1466 |
goto T484; |
goto T480; |
1467 |
goto T486; |
goto T482; |
1468 |
T486:; |
T482:; |
1469 |
if(!(((V292)->str.str_def)==(VV[84]))){ |
if(!(((V292)->str.str_def)==(VV[84]))){ |
1470 |
goto T484;} |
goto T480;} |
1471 |
V293= STREF(object,(V292),4); |
V293= STREF(object,(V292),4); |
1472 |
goto T482; |
goto T478; |
1473 |
goto T484; |
goto T480; |
1474 |
T484:;{object V295; |
T480:;{object V295; |
1475 |
V295= (VV[73]->s.s_dbind); |
V295= (VV[73]->s.s_dbind); |
1476 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1477 |
base[1]= (V292); |
base[1]= (V292); |
1478 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1479 |
(void) (*Lnk121)(); |
(void) (*Lnk120)(); |
1480 |
vs_top=sup; |
vs_top=sup; |
1481 |
V296= vs_base[0]; |
V296= vs_base[0]; |
1482 |
if(!((V295)==(CMPcar(V296)))){ |
if(!((V295)==(CMPcar(V296)))){ |
1483 |
goto T489;}} |
goto T485;}} |
1484 |
V293= CMPcar(((V292))->cc.cc_turbo[12]); |
V293= CMPcar(((V292))->cc.cc_turbo[12]); |
1485 |
goto T482; |
goto T478; |
1486 |
goto T489; |
goto T485; |
1487 |
T489:; |
T485:; |
1488 |
base[0]= VV[74]; |
base[0]= VV[74]; |
1489 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1490 |
Lerror(); |
Lerror(); |
1491 |
vs_top=sup; |
vs_top=sup; |
1492 |
V293= vs_base[0]; |
V293= vs_base[0]; |
1493 |
goto T482; |
goto T478; |
1494 |
T482:; |
T478:; |
1495 |
V297= (*(LnkLI70))(VV[85],VV[77]); |
V297= (*(LnkLI70))(VV[85],VV[77]); |
1496 |
{object V298 = (V293)->v.v_self[fix(/* INLINE-ARGS */V297)]; |
{object V298 = (V293)->v.v_self[fix(/* INLINE-ARGS */V297)]; |
1497 |
VMR30(V298)} |
VMR30(V298)} |
1507 |
goto TTL; |
goto TTL; |
1508 |
TTL:; |
TTL:; |
1509 |
if(type_of(V300)==t_structure){ |
if(type_of(V300)==t_structure){ |
1510 |
goto T499;} |
goto T495;} |
1511 |
goto T497; |
goto T493; |
1512 |
goto T499; |
goto T495; |
1513 |
T499:; |
T495:; |
1514 |
if(!(((V300)->str.str_def)==(VV[86]))){ |
if(!(((V300)->str.str_def)==(VV[86]))){ |
1515 |
goto T497;} |
goto T493;} |
1516 |
V301= STREF(object,(V300),4); |
V301= STREF(object,(V300),4); |
1517 |
goto T495; |
goto T491; |
1518 |
goto T497; |
goto T493; |
1519 |
T497:;{object V303; |
T493:;{object V303; |
1520 |
V303= (VV[73]->s.s_dbind); |
V303= (VV[73]->s.s_dbind); |
1521 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1522 |
base[1]= (V300); |
base[1]= (V300); |
1523 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1524 |
(void) (*Lnk121)(); |
(void) (*Lnk120)(); |
1525 |
vs_top=sup; |
vs_top=sup; |
1526 |
V304= vs_base[0]; |
V304= vs_base[0]; |
1527 |
if(!((V303)==(CMPcar(V304)))){ |
if(!((V303)==(CMPcar(V304)))){ |
1528 |
goto T502;}} |
goto T498;}} |
1529 |
V301= CMPcar(((V300))->cc.cc_turbo[12]); |
V301= CMPcar(((V300))->cc.cc_turbo[12]); |
1530 |
goto T495; |
goto T491; |
1531 |
goto T502; |
goto T498; |
1532 |
T502:; |
T498:; |
1533 |
base[0]= VV[74]; |
base[0]= VV[74]; |
1534 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1535 |
Lerror(); |
Lerror(); |
1536 |
vs_top=sup; |
vs_top=sup; |
1537 |
V301= vs_base[0]; |
V301= vs_base[0]; |
1538 |
goto T495; |
goto T491; |
1539 |
T495:; |
T491:; |
1540 |
V305= (*(LnkLI70))(VV[85],VV[87]); |
V305= (*(LnkLI70))(VV[85],VV[87]); |
1541 |
{object V306 = (V301)->v.v_self[fix(/* INLINE-ARGS */V305)]; |
{object V306 = (V301)->v.v_self[fix(/* INLINE-ARGS */V305)]; |
1542 |
VMR31(V306)} |
VMR31(V306)} |
1552 |
goto TTL; |
goto TTL; |
1553 |
TTL:; |
TTL:; |
1554 |
if(type_of(V308)==t_structure){ |
if(type_of(V308)==t_structure){ |
1555 |
goto T512;} |
goto T508;} |
1556 |
goto T510; |
goto T506; |
1557 |
goto T512; |
goto T508; |
1558 |
T512:; |
T508:; |
1559 |
if(!(((V308)->str.str_def)==(VV[88]))){ |
if(!(((V308)->str.str_def)==(VV[88]))){ |
1560 |
goto T510;} |
goto T506;} |
1561 |
V309= STREF(object,(V308),4); |
V309= STREF(object,(V308),4); |
1562 |
goto T508; |
goto T504; |
1563 |
goto T510; |
goto T506; |
1564 |
T510:;{object V311; |
T506:;{object V311; |
1565 |
V311= (VV[73]->s.s_dbind); |
V311= (VV[73]->s.s_dbind); |
1566 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1567 |
base[1]= (V308); |
base[1]= (V308); |
1568 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1569 |
(void) (*Lnk121)(); |
(void) (*Lnk120)(); |
1570 |
vs_top=sup; |
vs_top=sup; |
1571 |
V312= vs_base[0]; |
V312= vs_base[0]; |
1572 |
if(!((V311)==(CMPcar(V312)))){ |
if(!((V311)==(CMPcar(V312)))){ |
1573 |
goto T515;}} |
goto T511;}} |
1574 |
V309= CMPcar(((V308))->cc.cc_turbo[12]); |
V309= CMPcar(((V308))->cc.cc_turbo[12]); |
1575 |
goto T508; |
goto T504; |
1576 |
goto T515; |
goto T511; |
1577 |
T515:; |
T511:; |
1578 |
base[0]= VV[74]; |
base[0]= VV[74]; |
1579 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1580 |
Lerror(); |
Lerror(); |
1581 |
vs_top=sup; |
vs_top=sup; |
1582 |
V309= vs_base[0]; |
V309= vs_base[0]; |
1583 |
goto T508; |
goto T504; |
1584 |
T508:; |
T504:; |
1585 |
V313= (*(LnkLI70))(VV[89],VV[90]); |
V313= (*(LnkLI70))(VV[89],VV[90]); |
1586 |
{object V314 = (V309)->v.v_self[fix(/* INLINE-ARGS */V313)]; |
{object V314 = (V309)->v.v_self[fix(/* INLINE-ARGS */V313)]; |
1587 |
VMR32(V314)} |
VMR32(V314)} |
1597 |
goto TTL; |
goto TTL; |
1598 |
TTL:; |
TTL:; |
1599 |
if(type_of(V316)==t_structure){ |
if(type_of(V316)==t_structure){ |
1600 |
goto T525;} |
goto T521;} |
1601 |
goto T523; |
goto T519; |
1602 |
goto T525; |
goto T521; |
1603 |
T525:; |
T521:; |
1604 |
if(!(((V316)->str.str_def)==(VV[91]))){ |
if(!(((V316)->str.str_def)==(VV[91]))){ |
1605 |
goto T523;} |
goto T519;} |
1606 |
V317= STREF(object,(V316),4); |
V317= STREF(object,(V316),4); |
1607 |
goto T521; |
goto T517; |
1608 |
goto T523; |
goto T519; |
1609 |
T523:;{object V319; |
T519:;{object V319; |
1610 |
V319= (VV[73]->s.s_dbind); |
V319= (VV[73]->s.s_dbind); |
1611 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1612 |
base[1]= (V316); |
base[1]= (V316); |
1613 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1614 |
(void) (*Lnk121)(); |
(void) (*Lnk120)(); |
1615 |
vs_top=sup; |
vs_top=sup; |
1616 |
V320= vs_base[0]; |
V320= vs_base[0]; |
1617 |
if(!((V319)==(CMPcar(V320)))){ |
if(!((V319)==(CMPcar(V320)))){ |
1618 |
goto T528;}} |
goto T524;}} |
1619 |
V317= CMPcar(((V316))->cc.cc_turbo[12]); |
V317= CMPcar(((V316))->cc.cc_turbo[12]); |
1620 |
goto T521; |
goto T517; |
1621 |
goto T528; |
goto T524; |
1622 |
T528:; |
T524:; |
1623 |
base[0]= VV[74]; |
base[0]= VV[74]; |
1624 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1625 |
Lerror(); |
Lerror(); |
1626 |
vs_top=sup; |
vs_top=sup; |
1627 |
V317= vs_base[0]; |
V317= vs_base[0]; |
1628 |
goto T521; |
goto T517; |
1629 |
T521:; |
T517:; |
1630 |
V321= (*(LnkLI70))(VV[76],VV[92]); |
V321= (*(LnkLI70))(VV[76],VV[92]); |
1631 |
{object V322 = (V317)->v.v_self[fix(/* INLINE-ARGS */V321)]; |
{object V322 = (V317)->v.v_self[fix(/* INLINE-ARGS */V321)]; |
1632 |
VMR33(V322)} |
VMR33(V322)} |
1658 |
V333= vs_base[0]; |
V333= vs_base[0]; |
1659 |
(void)((*(LnkLI100))((V334))); |
(void)((*(LnkLI100))((V334))); |
1660 |
if(!(((V330))==(VV[11]))){ |
if(!(((V330))==(VV[11]))){ |
1661 |
goto T544;} |
goto T540;} |
1662 |
(void)((*(LnkLI104))((V329))); |
(void)((*(LnkLI103))((V329))); |
1663 |
goto T544; |
goto T540; |
1664 |
T544:; |
T540:; |
1665 |
{object V335; |
{object V335; |
1666 |
object V336; |
object V336; |
1667 |
V337 = (V329); |
V337 = (V329); |
1668 |
vs_base=vs_top; |
vs_base=vs_top; |
1669 |
(void) (*Lnk126)(); |
(void) (*Lnk125)(); |
1670 |
vs_top=sup; |
vs_top=sup; |
1671 |
V338= vs_base[0]; |
V338= vs_base[0]; |
1672 |
V339 = (V330); |
V339 = (V330); |
1673 |
V340 = (V331); |
V340 = (V331); |
1674 |
V341 = (V332); |
V341 = (V332); |
1675 |
V342 = (V333); |
V342 = (V333); |
1676 |
V335= (*(LnkLI125))(V337,V338,V339,V340,V341,V342); |
V335= (*(LnkLI124))(V337,V338,V339,V340,V341,V342); |
1677 |
base[0]= (V329); |
base[0]= (V329); |
1678 |
base[1]= (VV[57]->s.s_dbind); |
base[1]= (VV[57]->s.s_dbind); |
1679 |
base[2]= VV[58]; |
base[2]= VV[58]; |
1680 |
base[3]= (VV[107]->s.s_gfdef); |
base[3]= (VV[106]->s.s_gfdef); |
1681 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1682 |
(void) (*Lnk108)(); |
(void) (*Lnk107)(); |
1683 |
vs_top=sup; |
vs_top=sup; |
1684 |
V336= vs_base[0]; |
V336= vs_base[0]; |
1685 |
V343 = (V335); |
V343 = (V335); |
1711 |
{object V347; |
{object V347; |
1712 |
object V348; |
object V348; |
1713 |
V347= (*(LnkLI60))((V346)); |
V347= (*(LnkLI60))((V346)); |
1714 |
V348= (*(LnkLI115))((V347)); |
V348= (*(LnkLI114))((V347)); |
1715 |
V349 = (V346); |
V349 = (V346); |
1716 |
{object V351; |
{object V351; |
1717 |
{object V352; |
{object V352; |
1718 |
object V353= (V348); |
object V353= (V348); |
1719 |
if(V353==Cnil){ |
if(V353==Cnil){ |
1720 |
V351= Cnil; |
V351= Cnil; |
1721 |
goto T562;} |
goto T558;} |
1722 |
base[3]=V352=MMcons(Cnil,Cnil); |
base[3]=V352=MMcons(Cnil,Cnil); |
1723 |
goto T563; |
goto T559; |
1724 |
T563:; |
T559:; |
1725 |
(V352->c.c_car)= (*(LnkLI112))((V353->c.c_car)); |
(V352->c.c_car)= (*(LnkLI111))((V353->c.c_car)); |
1726 |
if((V353=MMcdr(V353))==Cnil){ |
if((V353=MMcdr(V353))==Cnil){ |
1727 |
V351= base[3]; |
V351= base[3]; |
1728 |
goto T562;} |
goto T558;} |
1729 |
V352=MMcdr(V352)=MMcons(Cnil,Cnil); |
V352=MMcdr(V352)=MMcons(Cnil,Cnil); |
1730 |
goto T563;} |
goto T559;} |
1731 |
goto T562; |
goto T558; |
1732 |
T562:; |
T558:; |
1733 |
vs_top=base+3; |
vs_top=base+3; |
1734 |
while(V351!=Cnil) |
while(V351!=Cnil) |
1735 |
{vs_push((V351)->c.c_car);V351=(V351)->c.c_cdr;} |
{vs_push((V351)->c.c_car);V351=(V351)->c.c_cdr;} |
1756 |
goto TTL; |
goto TTL; |
1757 |
TTL:; |
TTL:; |
1758 |
if(((V354))==Cnil){ |
if(((V354))==Cnil){ |
1759 |
goto T566;} |
goto T562;} |
1760 |
base[1]= CMPcdr((V354)); |
base[1]= CMPcdr((V354)); |
1761 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1762 |
L6(base0); |
L6(base0); |
1763 |
vs_top=sup; |
vs_top=sup; |
1764 |
{object V355= CMPcar((V354)); |
{object V355= CMPcar((V354)); |
1765 |
if(!(type_of(V355)==t_cons||(V355)==Cnil)){ |
if(!(type_of(V355)==t_cons||(V355)==Cnil)){ |
1766 |
goto T571;}} |
goto T567;}} |
1767 |
if(!((CMPcaar((V354)))==(VV[7]))){ |
if(!((CMPcaar((V354)))==(VV[7]))){ |
1768 |
goto T571;} |
goto T567;} |
1769 |
V354= CMPcdar((V354)); |
V354= CMPcdar((V354)); |
1770 |
goto TTL; |
goto TTL; |
1771 |
return; |
return; |
1772 |
goto T571; |
goto T567; |
1773 |
T571:; |
T567:; |
1774 |
{object V356; |
{object V356; |
1775 |
V356= CMPcar((V354)); |
V356= CMPcar((V354)); |
1776 |
base0[0]= make_cons((V356),base0[0]); |
base0[0]= make_cons((V356),base0[0]); |
1777 |
base[2]= base0[0]; |
base[2]= base0[0]; |
1778 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1779 |
return;} |
return;} |
1780 |
goto T566; |
goto T562; |
1781 |
T566:; |
T562:; |
1782 |
base[1]= Cnil; |
base[1]= Cnil; |
1783 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1784 |
return; |
return; |
1796 |
goto TTL; |
goto TTL; |
1797 |
TTL:; |
TTL:; |
1798 |
if(!(type_of(base0[0])==t_cons||(base0[0])==Cnil)){ |
if(!(type_of(base0[0])==t_cons||(base0[0])==Cnil)){ |
1799 |
goto T580;} |
goto T576;} |
1800 |
{register object x= CMPcar(base0[0]),V357= VV[4]; |
{register object x= CMPcar(base0[0]),V357= VV[4]; |
1801 |
while(V357!=Cnil) |
while(V357!=Cnil) |
1802 |
if(x==(V357->c.c_car)){ |
if(x==(V357->c.c_car)){ |
1803 |
goto T583; |
goto T579; |
1804 |
}else V357=V357->c.c_cdr; |
}else V357=V357->c.c_cdr; |
1805 |
goto T580;} |
goto T576;} |
1806 |
goto T583; |
goto T579; |
1807 |
T583:; |
T579:; |
1808 |
base[0]= Cnil; |
base[0]= Cnil; |
1809 |
base[1]= VV[5]; |
base[1]= VV[5]; |
1810 |
base[2]= (VFUN_NARGS=2,(*(LnkLI127))(CMPcar(base0[0]),Cnil)); |
base[2]= (VFUN_NARGS=2,(*(LnkLI126))(CMPcar(base0[0]),Cnil)); |
1811 |
base[3]= CMPcdr(base0[0]); |
base[3]= CMPcdr(base0[0]); |
1812 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1813 |
Lformat(); |
Lformat(); |
1814 |
return; |
return; |
1815 |
goto T580; |
goto T576; |
1816 |
T580:; |
T576:; |
1817 |
base[0]= Cnil; |
base[0]= Cnil; |
1818 |
base[1]= VV[6]; |
base[1]= VV[6]; |
1819 |
base[2]= base0[0]; |
base[2]= base0[0]; |
1821 |
Lformat(); |
Lformat(); |
1822 |
return; |
return; |
1823 |
} |
} |
1824 |
static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[127],(void **)(void *)&LnkLI127,first,ap);va_end(ap);return V1;} /* CAPITALIZE-WORDS */ |
static object LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[126],(void **)(void *)&LnkLI126,first,ap);va_end(ap);return V1;} /* CAPITALIZE-WORDS */ |
1825 |
static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* LOAD-TRUENAME */ |
static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* LOAD-TRUENAME */ |
1826 |
static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,6,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-CLASS-DEFINITION */ |
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,6,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-CLASS-DEFINITION */ |
1827 |
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
1828 |
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-NAME */ |
static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)(void *)&LnkLI122,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-NAME */ |
1829 |
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */ |
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */ |
1830 |
static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)(void *)&LnkLI122,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
1831 |
static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* CCLOSURE-ENV-NTHCDR */ |
1832 |
static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* POSITION */ |
static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* POSITION */ |
1833 |
static object LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[119],(void **)(void *)&LnkLI119,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */ |
static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)(void *)&LnkLI118,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */ |
1834 |
static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* REMOVE-DUPLICATES */ |
static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* REMOVE-DUPLICATES */ |
1835 |
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */ |
static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */ |
1836 |
static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-DEFINITION */ |
static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-DEFINITION */ |
1837 |
static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */ |
static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */ |
1838 |
static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */ |
static object LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */ |
1839 |
static object LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-DEFAULT-INITARGS */ |
static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-DEFAULT-INITARGS */ |
1840 |
static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-SLOTS */ |
static object LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[112],(void **)(void *)&LnkLI112,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-SLOTS */ |
1841 |
static object LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[112],(void **)(void *)&LnkLI112,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-CPL */ |
static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-CPL */ |
1842 |
static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SLOTS */ |
static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SLOTS */ |
1843 |
static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,1,first,ap);va_end(ap);return V1;} /* CANONICAL-SLOT-NAME */ |
static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* CANONICAL-SLOT-NAME */ |
1844 |
static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* EARLY-COLLECT-INHERITANCE */ |
static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* EARLY-COLLECT-INHERITANCE */ |
1845 |
static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* FIND */ |
static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* FIND */ |
1846 |
static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* MAKE-INITFUNCTION */ |
static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,1,first,ap);va_end(ap);return V1;} /* MAKE-INITFUNCTION */ |
1847 |
static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */ |
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */ |
1848 |
static void LnkT103(ptr) object *ptr;{ call_or_link_closure(VV[103],(void **)(void *)&Lnk103,(void **)(void *)&Lclptr103);} /* CLASS-DEFSTRUCT-FORM */ |
static void LnkT102(ptr) object *ptr;{ call_or_link_closure(VV[102],(void **)(void *)&Lnk102,(void **)(void *)&Lclptr102);} /* CLASS-DEFSTRUCT-FORM */ |
|
static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */ |
|
1849 |
static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
1850 |
static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETFS-FOR-DEFCLASS */ |
static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETFS-FOR-DEFCLASS */ |
1851 |
static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* *SUBTYPEP */ |
static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* *SUBTYPEP */ |