96 |
V10= list(2,VV[6],base[2]); |
V10= list(2,VV[6],base[2]); |
97 |
V11= list(4,VV[5],/* INLINE-ARGS */V10,list(2,VV[9],listA(3,VV[10],base[3],base[4])),VV[11]); |
V11= list(4,VV[5],/* INLINE-ARGS */V10,list(2,VV[9],listA(3,VV[10],base[3],base[4])),VV[11]); |
98 |
V12= list(2,VV[6],base[2]); |
V12= list(2,VV[6],base[2]); |
99 |
V13= (*(LnkLI81))(base[4]); |
V13= (*(LnkLI119))(base[4]); |
100 |
V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]); |
V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]); |
101 |
base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2])); |
base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2])); |
102 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
425 |
T77:; |
T77:; |
426 |
base[0]= (V32); |
base[0]= (V32); |
427 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
428 |
(void) (*Lnk82)(); |
(void) (*Lnk120)(); |
429 |
vs_top=sup; |
vs_top=sup; |
430 |
V34= vs_base[0]; |
V34= vs_base[0]; |
431 |
if((V34)==Cnil){ |
if((V34)==Cnil){ |
460 |
TTL:; |
TTL:; |
461 |
{register object V40; |
{register object V40; |
462 |
register object V41; |
register object V41; |
463 |
object V42; |
register object V42; |
464 |
V40= Cnil; |
V40= Cnil; |
465 |
V41= Cnil; |
V41= Cnil; |
466 |
V42= Cnil; |
V42= Cnil; |
475 |
V41= cdr((V39)); |
V41= cdr((V39)); |
476 |
goto T88; |
goto T88; |
477 |
T88:; |
T88:; |
478 |
|
if(!(((V40))==(VV[27]))){ |
479 |
|
goto T98;} |
480 |
|
V40= VV[28]; |
481 |
|
goto T98; |
482 |
|
T98:; |
483 |
{object V43; |
{object V43; |
484 |
V43= get((V40),VV[27],Cnil); |
V43= get((V40),VV[29],Cnil); |
485 |
if(((V43))==Cnil){ |
if(((V43))==Cnil){ |
486 |
goto T98;} |
goto T102;} |
487 |
base[2]= (V38); |
base[2]= (V38); |
488 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
489 |
super_funcall_no_event((V43)); |
super_funcall_no_event((V43)); |
490 |
return;} |
return;} |
491 |
goto T98; |
goto T102; |
492 |
T98:; |
T102:; |
493 |
{object V44= (V40); |
{object V44= (V40); |
494 |
if((V44!= VV[36]))goto T103; |
if((V44!= VV[40]))goto T107; |
495 |
{register object x= (V38),V45= (V41); |
{register object x= (V38),V45= (V41); |
496 |
while(!endp(V45)) |
while(!endp(V45)) |
497 |
if(eql(x,V45->c.c_car)){ |
if(eql(x,V45->c.c_car)){ |
502 |
base[2]= Cnil; |
base[2]= Cnil; |
503 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
504 |
return;} |
return;} |
505 |
goto T103; |
goto T107; |
506 |
T103:; |
T107:; |
507 |
if((V44!= VV[39]))goto T104; |
if((V44!= VV[43]))goto T108; |
508 |
base[2]= (V38); |
base[2]= (V38); |
509 |
base[3]= car((V41)); |
base[3]= car((V41)); |
510 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
511 |
(void) (*Lnk83)(); |
(void) (*Lnk121)(); |
512 |
vs_top=sup; |
vs_top=sup; |
513 |
V46= vs_base[0]; |
V46= vs_base[0]; |
514 |
base[2]= ((V46)==Cnil?Ct:Cnil); |
base[2]= ((V46)==Cnil?Ct:Cnil); |
515 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
516 |
return; |
return; |
517 |
goto T104; |
goto T108; |
518 |
T104:; |
T108:; |
519 |
if((V44!= VV[37]))goto T108; |
if((V44!= VV[41]))goto T112; |
520 |
{register object V47; |
{register object V47; |
521 |
V47= (V41); |
V47= (V41); |
522 |
goto T110; |
goto T114; |
523 |
T110:; |
T114:; |
524 |
if(((V47))!=Cnil){ |
if(((V47))!=Cnil){ |
525 |
goto T111;} |
goto T115;} |
526 |
base[2]= Cnil; |
base[2]= Cnil; |
527 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
528 |
return; |
return; |
529 |
goto T111; |
goto T115; |
530 |
T111:; |
T115:; |
531 |
base[2]= (V38); |
base[2]= (V38); |
532 |
base[3]= car((V47)); |
base[3]= car((V47)); |
533 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
534 |
(void) (*Lnk83)(); |
(void) (*Lnk121)(); |
535 |
vs_top=sup; |
vs_top=sup; |
536 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
537 |
goto T115;} |
goto T119;} |
538 |
base[2]= Ct; |
base[2]= Ct; |
539 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
540 |
return; |
return; |
541 |
goto T115; |
goto T119; |
542 |
T115:; |
T119:; |
543 |
V47= cdr((V47)); |
V47= cdr((V47)); |
544 |
goto T110;} |
goto T114;} |
545 |
goto T108; |
goto T112; |
546 |
T108:; |
T112:; |
547 |
if((V44!= VV[38]))goto T123; |
if((V44!= VV[42]))goto T127; |
548 |
{register object V48; |
{register object V48; |
549 |
V48= (V41); |
V48= (V41); |
550 |
goto T125; |
goto T129; |
551 |
T125:; |
T129:; |
552 |
if(((V48))!=Cnil){ |
if(((V48))!=Cnil){ |
553 |
goto T126;} |
goto T130;} |
554 |
base[2]= Ct; |
base[2]= Ct; |
555 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
556 |
return; |
return; |
557 |
goto T126; |
goto T130; |
558 |
T126:; |
T130:; |
559 |
base[2]= (V38); |
base[2]= (V38); |
560 |
base[3]= car((V48)); |
base[3]= car((V48)); |
561 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
562 |
(void) (*Lnk83)(); |
(void) (*Lnk121)(); |
563 |
vs_top=sup; |
vs_top=sup; |
564 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
565 |
goto T130;} |
goto T134;} |
566 |
base[2]= Cnil; |
base[2]= Cnil; |
567 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
568 |
return; |
return; |
569 |
goto T130; |
goto T134; |
570 |
T130:; |
T134:; |
571 |
V48= cdr((V48)); |
V48= cdr((V48)); |
572 |
goto T125;} |
goto T129;} |
573 |
goto T123; |
goto T127; |
574 |
T123:; |
T127:; |
575 |
if((V44!= VV[84]))goto T138; |
if((V44!= VV[39]))goto T142; |
576 |
base[2]= car((V41)); |
base[2]= car((V41)); |
577 |
base[3]= (V38); |
base[3]= (V38); |
578 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
579 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
580 |
return; |
return; |
581 |
goto T138; |
goto T142; |
582 |
T138:; |
T142:; |
583 |
if((V44!= Ct))goto T141; |
if((V44!= Ct))goto T145; |
584 |
base[2]= Ct; |
base[2]= Ct; |
585 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
586 |
return; |
return; |
587 |
goto T141; |
goto T145; |
588 |
T141:; |
T145:; |
589 |
if((V44!= Cnil))goto T142; |
if((V44!= Cnil))goto T146; |
590 |
base[2]= Cnil; |
base[2]= Cnil; |
591 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
592 |
return; |
return; |
593 |
goto T142; |
goto T146; |
594 |
T142:; |
T146:; |
595 |
if((V44!= VV[85]))goto T143; |
if((V44!= VV[56]))goto T147; |
596 |
if(!(((V38))==(Ct))){ |
if(!(((V38))==(Ct))){ |
597 |
goto T144;} |
goto T148;} |
598 |
base[2]= Ct; |
base[2]= Ct; |
599 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
600 |
return; |
return; |
601 |
goto T144; |
goto T148; |
602 |
T144:; |
T148:; |
603 |
base[2]= (((V38))==(Cnil)?Ct:Cnil); |
base[2]= (((V38))==(Cnil)?Ct:Cnil); |
604 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
605 |
return; |
return; |
606 |
goto T143; |
goto T147; |
607 |
T143:; |
T147:; |
608 |
if((V44!= VV[28]))goto T146; |
if((V44!= VV[30]))goto T150; |
609 |
base[2]= (V38); |
base[2]= (V38); |
610 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
611 |
Ltype_of(); |
Ltype_of(); |
612 |
vs_top=sup; |
vs_top=sup; |
613 |
V49= vs_base[0]; |
V49= vs_base[0]; |
614 |
base[2]= ((V49)==(VV[28])?Ct:Cnil); |
base[2]= ((V49)==(VV[30])?Ct:Cnil); |
615 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
616 |
return; |
return; |
617 |
goto T146; |
goto T150; |
618 |
T146:; |
T150:; |
619 |
if((V44!= VV[29]))goto T149; |
if((V44!= VV[31]))goto T153; |
620 |
base[2]= (V38); |
base[2]= (V38); |
621 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
622 |
Ltype_of(); |
Ltype_of(); |
623 |
vs_top=sup; |
vs_top=sup; |
624 |
V50= vs_base[0]; |
V50= vs_base[0]; |
625 |
base[2]= ((V50)==(VV[29])?Ct:Cnil); |
base[2]= ((V50)==(VV[31])?Ct:Cnil); |
626 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
627 |
return; |
return; |
628 |
goto T149; |
goto T153; |
629 |
T149:; |
T153:; |
630 |
if((V44!= VV[30]))goto T152; |
if((V44!= VV[32]))goto T156; |
631 |
base[2]= (V38); |
base[2]= (V38); |
632 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
633 |
Ltype_of(); |
Ltype_of(); |
634 |
vs_top=sup; |
vs_top=sup; |
635 |
V51= vs_base[0]; |
V51= vs_base[0]; |
636 |
base[2]= ((V51)==(VV[30])?Ct:Cnil); |
base[2]= ((V51)==(VV[32])?Ct:Cnil); |
|
vs_top=(vs_base=base+2)+1; |
|
|
return; |
|
|
goto T152; |
|
|
T152:; |
|
|
if((V44!= VV[86]))goto T155; |
|
|
if(type_of((V38))==t_character){ |
|
|
goto T156;} |
|
|
base[2]= Cnil; |
|
637 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
638 |
return; |
return; |
639 |
goto T156; |
goto T156; |
640 |
T156:; |
T156:; |
641 |
base[2]= (V38); |
if((V44!= VV[122]))goto T159; |
|
vs_top=(vs_base=base+2)+1; |
|
|
Lstandard_char_p(); |
|
|
return; |
|
|
goto T155; |
|
|
T155:; |
|
|
if((V44!= VV[24]))goto T159; |
|
642 |
if(type_of((V38))==t_character){ |
if(type_of((V38))==t_character){ |
643 |
goto T160;} |
goto T160;} |
644 |
base[2]= Cnil; |
base[2]= Cnil; |
648 |
T160:; |
T160:; |
649 |
base[2]= (V38); |
base[2]= (V38); |
650 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
651 |
Lstring_char_p(); |
Lstandard_char_p(); |
652 |
return; |
return; |
653 |
goto T159; |
goto T159; |
654 |
T159:; |
T159:; |
655 |
if((V44!= VV[13]))goto T163; |
if((V44!= VV[123]) |
656 |
if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){ |
&& (V44!= VV[24]))goto T163; |
657 |
|
if(type_of((V38))==t_character){ |
658 |
goto T164;} |
goto T164;} |
659 |
base[2]= Cnil; |
base[2]= Cnil; |
660 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
661 |
return; |
return; |
662 |
goto T164; |
goto T164; |
663 |
T164:; |
T164:; |
664 |
base[2]= (*(LnkLI87))((V38),(V41)); |
base[2]= (V38); |
665 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
666 |
|
Lstring_char_p(); |
667 |
return; |
return; |
668 |
goto T163; |
goto T163; |
669 |
T163:; |
T163:; |
670 |
if((V44!= VV[68]))goto T166; |
if((V44!= VV[13]))goto T167; |
671 |
base[2]= (V38); |
if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){ |
672 |
vs_top=(vs_base=base+2)+1; |
goto T168;} |
|
(void) (*Lnk88)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T167;} |
|
673 |
base[2]= Cnil; |
base[2]= Cnil; |
674 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
675 |
return; |
return; |
676 |
goto T167; |
goto T168; |
677 |
T167:; |
T168:; |
678 |
base[2]= (*(LnkLI87))((V38),(V41)); |
base[2]= (*(LnkLI124))((V38),(V41)); |
679 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
680 |
return; |
return; |
681 |
goto T166; |
goto T167; |
682 |
T166:; |
T167:; |
683 |
if((V44!= VV[57]))goto T170; |
if((V44!= VV[106]))goto T170; |
684 |
base[2]= (V38); |
base[2]= (V38); |
685 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
686 |
(void) (*Lnk89)(); |
(void) (*Lnk125)(); |
687 |
vs_top=sup; |
vs_top=sup; |
688 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
689 |
goto T171;} |
goto T171;} |
692 |
return; |
return; |
693 |
goto T171; |
goto T171; |
694 |
T171:; |
T171:; |
695 |
base[2]= (*(LnkLI87))((V38),(V41)); |
base[2]= (*(LnkLI124))((V38),(V41)); |
696 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
697 |
return; |
return; |
698 |
goto T170; |
goto T170; |
699 |
T170:; |
T170:; |
700 |
if((V44!= VV[69]))goto T174; |
if((V44!= VV[95]))goto T174; |
701 |
if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){ |
base[2]= (V38); |
702 |
|
vs_top=(vs_base=base+2)+1; |
703 |
|
(void) (*Lnk126)(); |
704 |
|
vs_top=sup; |
705 |
|
if((vs_base[0])!=Cnil){ |
706 |
goto T175;} |
goto T175;} |
707 |
base[2]= Cnil; |
base[2]= Cnil; |
708 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
709 |
return; |
return; |
710 |
goto T175; |
goto T175; |
711 |
T175:; |
T175:; |
712 |
base[2]= (*(LnkLI87))((V38),(V41)); |
base[2]= (*(LnkLI124))((V38),(V41)); |
713 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
714 |
return; |
return; |
715 |
goto T174; |
goto T174; |
716 |
T174:; |
T174:; |
717 |
if((V44!= VV[31]))goto T177; |
if((V44!= VV[107]))goto T178; |
718 |
|
if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){ |
719 |
|
goto T179;} |
720 |
|
base[2]= Cnil; |
721 |
|
vs_top=(vs_base=base+2)+1; |
722 |
|
return; |
723 |
|
goto T179; |
724 |
|
T179:; |
725 |
|
base[2]= (*(LnkLI124))((V38),(V41)); |
726 |
|
vs_top=(vs_base=base+2)+1; |
727 |
|
return; |
728 |
|
goto T178; |
729 |
|
T178:; |
730 |
|
if((V44!= VV[33]))goto T181; |
731 |
base[2]= (V38); |
base[2]= (V38); |
732 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
733 |
Ltype_of(); |
Ltype_of(); |
734 |
vs_top=sup; |
vs_top=sup; |
735 |
V52= vs_base[0]; |
V52= vs_base[0]; |
736 |
if((V52)==(VV[31])){ |
if((V52)==(VV[33])){ |
737 |
goto T178;} |
goto T182;} |
738 |
base[2]= Cnil; |
base[2]= Cnil; |
739 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
740 |
return; |
return; |
741 |
goto T178; |
goto T182; |
742 |
T178:; |
T182:; |
743 |
base[2]= (*(LnkLI87))((V38),(V41)); |
base[2]= (*(LnkLI124))((V38),(V41)); |
744 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
745 |
return; |
return; |
746 |
goto T177; |
goto T181; |
747 |
T177:; |
T181:; |
748 |
if((V44!= VV[90]) |
if((V44!= VV[127]) |
749 |
&& (V44!= VV[91]) |
&& (V44!= VV[128]) |
750 |
&& (V44!= VV[32]))goto T182; |
&& (V44!= VV[34]))goto T186; |
751 |
base[2]= (V38); |
base[2]= (V38); |
752 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
753 |
Ltype_of(); |
Ltype_of(); |
754 |
vs_top=sup; |
vs_top=sup; |
755 |
V53= vs_base[0]; |
V53= vs_base[0]; |
756 |
if((V53)==(VV[32])){ |
if((V53)==(VV[34])){ |
757 |
goto T183;} |
goto T187;} |
758 |
base[2]= Cnil; |
base[2]= Cnil; |
759 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
760 |
return; |
return; |
761 |
goto T183; |
goto T187; |
762 |
T183:; |
T187:; |
763 |
base[2]= (*(LnkLI87))((V38),(V41)); |
base[2]= (*(LnkLI124))((V38),(V41)); |
764 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
765 |
return; |
return; |
766 |
goto T182; |
goto T186; |
767 |
T182:; |
T186:; |
768 |
if((V44!= VV[72]))goto T187; |
if((V44!= VV[110]))goto T191; |
769 |
base[2]= (V38); |
base[2]= (V38); |
770 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
771 |
Lcomplexp(); |
Lcomplexp(); |
772 |
vs_top=sup; |
vs_top=sup; |
773 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
774 |
goto T188;} |
goto T192;} |
775 |
base[2]= Cnil; |
base[2]= Cnil; |
776 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
777 |
return; |
return; |
778 |
goto T188; |
goto T192; |
779 |
T188:; |
T192:; |
780 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
781 |
goto T191;} |
goto T195;} |
782 |
base[2]= Ct; |
base[2]= Ct; |
783 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
784 |
return; |
return; |
785 |
goto T191; |
goto T195; |
786 |
T191:; |
T195:; |
787 |
base[3]= (V38); |
base[3]= (V38); |
788 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
789 |
Lrealpart(); |
Lrealpart(); |
791 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
792 |
base[3]= car((V41)); |
base[3]= car((V41)); |
793 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
794 |
(void) (*Lnk83)(); |
(void) (*Lnk121)(); |
795 |
vs_top=sup; |
vs_top=sup; |
796 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
797 |
goto T193;} |
goto T197;} |
798 |
base[2]= Cnil; |
base[2]= Cnil; |
799 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
800 |
return; |
return; |
801 |
goto T193; |
goto T197; |
802 |
T193:; |
T197:; |
803 |
base[2]= (V38); |
base[2]= (V38); |
804 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
805 |
Limagpart(); |
Limagpart(); |
807 |
V38= vs_base[0]; |
V38= vs_base[0]; |
808 |
V39= car((V41)); |
V39= car((V41)); |
809 |
goto TTL; |
goto TTL; |
810 |
goto T187; |
goto T191; |
811 |
T187:; |
T191:; |
812 |
if((V44!= VV[43]))goto T202; |
if((V44!= VV[47]))goto T206; |
813 |
if(!(type_of((V38))==t_cons||((V38))==Cnil)){ |
if(!(type_of((V38))==t_cons||((V38))==Cnil)){ |
814 |
goto T203;} |
goto T207;} |
815 |
base[2]= Ct; |
base[2]= Ct; |
816 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
817 |
return; |
return; |
818 |
goto T203; |
goto T207; |
819 |
T203:; |
T207:; |
820 |
base[2]= (type_of((V38))==t_vector|| |
base[2]= (type_of((V38))==t_vector|| |
821 |
type_of((V38))==t_string|| |
type_of((V38))==t_string|| |
822 |
type_of((V38))==t_bitvector?Ct:Cnil); |
type_of((V38))==t_bitvector?Ct:Cnil); |
823 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
824 |
return; |
return; |
825 |
goto T202; |
goto T206; |
826 |
T202:; |
T206:; |
827 |
if((V44!= VV[92]))goto T205; |
if((V44!= VV[129]))goto T209; |
828 |
if(type_of((V38))==t_string){ |
if(type_of((V38))==t_string){ |
829 |
goto T206;} |
goto T210;} |
830 |
base[2]= Cnil; |
base[2]= Cnil; |
831 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
832 |
return; |
return; |
833 |
goto T206; |
goto T210; |
834 |
T206:; |
T210:; |
835 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
836 |
goto T208;} |
goto T212;} |
837 |
base[2]= Ct; |
base[2]= Ct; |
838 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
839 |
return; |
return; |
840 |
goto T208; |
goto T212; |
841 |
T208:; |
T212:; |
842 |
V54= (*(LnkLI94))((V38)); |
V54= (*(LnkLI131))((V38)); |
843 |
base[2]= (*(LnkLI93))(/* INLINE-ARGS */V54,(V41)); |
base[2]= (*(LnkLI130))(/* INLINE-ARGS */V54,(V41)); |
844 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
845 |
return; |
return; |
846 |
goto T205; |
goto T209; |
847 |
T205:; |
T209:; |
848 |
if((V44!= VV[95]))goto T210; |
if((V44!= VV[132]))goto T214; |
849 |
if((type_of((V38))==t_bitvector)){ |
if((type_of((V38))==t_bitvector)){ |
850 |
goto T211;} |
goto T215;} |
851 |
base[2]= Cnil; |
base[2]= Cnil; |
852 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
853 |
return; |
return; |
854 |
goto T211; |
goto T215; |
855 |
T211:; |
T215:; |
856 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
857 |
goto T213;} |
goto T217;} |
858 |
base[2]= Ct; |
base[2]= Ct; |
859 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
860 |
return; |
return; |
861 |
goto T213; |
goto T217; |
862 |
T213:; |
T217:; |
863 |
V55= (*(LnkLI94))((V38)); |
V55= (*(LnkLI131))((V38)); |
864 |
base[2]= (*(LnkLI93))(/* INLINE-ARGS */V55,(V41)); |
base[2]= (*(LnkLI130))(/* INLINE-ARGS */V55,(V41)); |
865 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
866 |
return; |
return; |
867 |
goto T210; |
goto T214; |
868 |
T210:; |
T214:; |
869 |
if((V44!= VV[96]))goto T215; |
if((V44!= VV[133]))goto T219; |
870 |
base[2]= (V38); |
base[2]= (V38); |
871 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
872 |
Lsimple_string_p(); |
Lsimple_string_p(); |
873 |
vs_top=sup; |
vs_top=sup; |
874 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
875 |
goto T216;} |
goto T220;} |
876 |
base[2]= Cnil; |
base[2]= Cnil; |
877 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
878 |
return; |
return; |
879 |
goto T216; |
goto T220; |
880 |
T216:; |
T220:; |
881 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
882 |
goto T219;} |
goto T223;} |
883 |
base[2]= Ct; |
base[2]= Ct; |
884 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
885 |
return; |
return; |
886 |
goto T219; |
goto T223; |
887 |
T219:; |
T223:; |
888 |
V56= (*(LnkLI94))((V38)); |
V56= (*(LnkLI131))((V38)); |
889 |
base[2]= (*(LnkLI93))(/* INLINE-ARGS */V56,(V41)); |
base[2]= (*(LnkLI130))(/* INLINE-ARGS */V56,(V41)); |
890 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
891 |
return; |
return; |
892 |
goto T215; |
goto T219; |
893 |
T215:; |
T219:; |
894 |
if((V44!= VV[97]))goto T221; |
if((V44!= VV[134]))goto T225; |
895 |
base[2]= (V38); |
base[2]= (V38); |
896 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
897 |
Lsimple_bit_vector_p(); |
Lsimple_bit_vector_p(); |
898 |
vs_top=sup; |
vs_top=sup; |
899 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
900 |
goto T222;} |
goto T226;} |
901 |
base[2]= Cnil; |
base[2]= Cnil; |
902 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
903 |
return; |
return; |
904 |
goto T222; |
goto T226; |
905 |
T222:; |
T226:; |
906 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
907 |
goto T225;} |
goto T229;} |
908 |
base[2]= Ct; |
base[2]= Ct; |
909 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
910 |
return; |
return; |
911 |
goto T225; |
goto T229; |
912 |
T225:; |
T229:; |
913 |
V57= (*(LnkLI94))((V38)); |
V57= (*(LnkLI131))((V38)); |
914 |
base[2]= (*(LnkLI93))(/* INLINE-ARGS */V57,(V41)); |
base[2]= (*(LnkLI130))(/* INLINE-ARGS */V57,(V41)); |
915 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
916 |
return; |
return; |
917 |
goto T221; |
goto T225; |
918 |
T221:; |
T225:; |
919 |
if((V44!= VV[98]))goto T227; |
if((V44!= VV[135]))goto T231; |
920 |
base[2]= (V38); |
base[2]= (V38); |
921 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
922 |
Lsimple_vector_p(); |
Lsimple_vector_p(); |
923 |
vs_top=sup; |
vs_top=sup; |
924 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
925 |
goto T228;} |
goto T232;} |
926 |
base[2]= Cnil; |
base[2]= Cnil; |
927 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
928 |
return; |
return; |
929 |
goto T228; |
goto T232; |
930 |
T228:; |
T232:; |
931 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
932 |
goto T231;} |
goto T235;} |
933 |
base[2]= Ct; |
base[2]= Ct; |
934 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
935 |
return; |
return; |
936 |
goto T231; |
goto T235; |
937 |
T231:; |
T235:; |
938 |
V58= (*(LnkLI94))((V38)); |
V58= (*(LnkLI131))((V38)); |
939 |
base[2]= (*(LnkLI93))(/* INLINE-ARGS */V58,(V41)); |
base[2]= (*(LnkLI130))(/* INLINE-ARGS */V58,(V41)); |
940 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
941 |
return; |
return; |
942 |
goto T227; |
goto T231; |
943 |
T227:; |
T231:; |
944 |
if((V44!= VV[26]))goto T233; |
if((V44!= VV[26]))goto T237; |
945 |
if(((*(LnkLI99))((V38)))!=Cnil){ |
if(((*(LnkLI136))((V38)))!=Cnil){ |
946 |
goto T234;} |
goto T238;} |
947 |
base[2]= Cnil; |
base[2]= Cnil; |
948 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
949 |
return; |
return; |
|
goto T234; |
|
|
T234:; |
|
|
if(!(endp_prop((V41)))){ |
|
|
goto T238;} |
|
|
goto T236; |
|
950 |
goto T238; |
goto T238; |
951 |
T238:; |
T238:; |
952 |
|
if(!(endp_prop((V41)))){ |
953 |
|
goto T242;} |
954 |
|
goto T240; |
955 |
|
goto T242; |
956 |
|
T242:; |
957 |
if(!((car((V41)))==(VV[17]))){ |
if(!((car((V41)))==(VV[17]))){ |
958 |
goto T240;} |
goto T244;} |
959 |
goto T236; |
goto T240; |
960 |
goto T240; |
goto T244; |
961 |
T240:; |
T244:; |
962 |
base[2]= (V38); |
base[2]= (V38); |
963 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
964 |
Larray_element_type(); |
Larray_element_type(); |
965 |
vs_top=sup; |
vs_top=sup; |
966 |
V59= vs_base[0]; |
V59= vs_base[0]; |
967 |
V60= (*(LnkLI100))(car((V41))); |
V60= (*(LnkLI137))(car((V41))); |
968 |
if(equal(V59,/* INLINE-ARGS */V60)){ |
if(equal(V59,/* INLINE-ARGS */V60)){ |
969 |
goto T236;} |
goto T240;} |
970 |
base[2]= Cnil; |
base[2]= Cnil; |
971 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
972 |
return; |
return; |
973 |
goto T236; |
goto T240; |
974 |
T236:; |
T240:; |
975 |
if(!(endp_prop(cdr((V41))))){ |
if(!(endp_prop(cdr((V41))))){ |
976 |
goto T244;} |
goto T248;} |
977 |
base[2]= Ct; |
base[2]= Ct; |
978 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
979 |
return; |
return; |
980 |
goto T244; |
goto T248; |
981 |
T244:; |
T248:; |
982 |
if(!((cadr((V41)))==(VV[17]))){ |
if(!((cadr((V41)))==(VV[17]))){ |
983 |
goto T246;} |
goto T250;} |
984 |
base[2]= Ct; |
base[2]= Ct; |
985 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
986 |
return; |
return; |
987 |
goto T246; |
goto T250; |
988 |
T246:; |
T250:; |
989 |
V61= (*(LnkLI94))((V38)); |
V61= (*(LnkLI131))((V38)); |
990 |
base[2]= (*(LnkLI93))(/* INLINE-ARGS */V61,cadr((V41))); |
base[2]= (*(LnkLI130))(/* INLINE-ARGS */V61,cadr((V41))); |
991 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
992 |
return; |
return; |
993 |
goto T233; |
goto T237; |
994 |
T233:; |
T237:; |
995 |
if((V44!= VV[22]))goto T248; |
if((V44!= VV[22]))goto T252; |
996 |
if(type_of((V38))==t_array|| |
if(type_of((V38))==t_array|| |
997 |
type_of((V38))==t_vector|| |
type_of((V38))==t_vector|| |
998 |
type_of((V38))==t_string|| |
type_of((V38))==t_string|| |
999 |
type_of((V38))==t_bitvector){ |
type_of((V38))==t_bitvector){ |
1000 |
goto T249;} |
goto T253;} |
1001 |
base[2]= Cnil; |
base[2]= Cnil; |
1002 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1003 |
return; |
return; |
|
goto T249; |
|
|
T249:; |
|
|
if(!(endp_prop((V41)))){ |
|
|
goto T253;} |
|
|
goto T251; |
|
1004 |
goto T253; |
goto T253; |
1005 |
T253:; |
T253:; |
1006 |
|
if(!(endp_prop((V41)))){ |
1007 |
|
goto T257;} |
1008 |
|
goto T255; |
1009 |
|
goto T257; |
1010 |
|
T257:; |
1011 |
if(!((car((V41)))==(VV[17]))){ |
if(!((car((V41)))==(VV[17]))){ |
1012 |
goto T255;} |
goto T259;} |
1013 |
goto T251; |
goto T255; |
1014 |
goto T255; |
goto T259; |
1015 |
T255:; |
T259:; |
1016 |
base[2]= (V38); |
base[2]= (V38); |
1017 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1018 |
Larray_element_type(); |
Larray_element_type(); |
1019 |
vs_top=sup; |
vs_top=sup; |
1020 |
V62= vs_base[0]; |
V62= vs_base[0]; |
1021 |
V63= (*(LnkLI100))(car((V41))); |
V63= (*(LnkLI137))(car((V41))); |
1022 |
if(equal(V62,/* INLINE-ARGS */V63)){ |
if(equal(V62,/* INLINE-ARGS */V63)){ |
1023 |
goto T251;} |
goto T255;} |
1024 |
base[2]= Cnil; |
base[2]= Cnil; |
1025 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1026 |
return; |
return; |
1027 |
goto T251; |
goto T255; |
1028 |
T251:; |
T255:; |
1029 |
if(!(endp_prop(cdr((V41))))){ |
if(!(endp_prop(cdr((V41))))){ |
1030 |
goto T259;} |
goto T263;} |
1031 |
base[2]= Ct; |
base[2]= Ct; |
1032 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1033 |
return; |
return; |
1034 |
goto T259; |
goto T263; |
1035 |
T259:; |
T263:; |
1036 |
if(!((cadr((V41)))==(VV[17]))){ |
if(!((cadr((V41)))==(VV[17]))){ |
1037 |
goto T261;} |
goto T265;} |
1038 |
base[2]= Ct; |
base[2]= Ct; |
1039 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1040 |
return; |
return; |
1041 |
goto T261; |
goto T265; |
1042 |
T261:; |
T265:; |
1043 |
V64= (*(LnkLI94))((V38)); |
V64= (*(LnkLI131))((V38)); |
1044 |
base[2]= (*(LnkLI93))(/* INLINE-ARGS */V64,cadr((V41))); |
base[2]= (*(LnkLI130))(/* INLINE-ARGS */V64,cadr((V41))); |
1045 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1046 |
return; |
return; |
1047 |
goto T248; |
goto T252; |
1048 |
T248:; |
T252:; |
1049 |
V42= get((V40),VV[33],Cnil); |
V42= get((V40),VV[35],Cnil); |
1050 |
if(((V42))==Cnil){ |
if(((V42))==Cnil){ |
1051 |
goto T264;} |
goto T268;} |
1052 |
base[2]= (V38); |
base[2]= (V38); |
1053 |
base[3]= (V42); |
base[3]= (V42); |
1054 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1055 |
(void) (*Lnk101)(); |
(void) (*Lnk138)(); |
1056 |
return; |
return; |
1057 |
goto T264; |
goto T268; |
1058 |
T264:; |
T268:; |
1059 |
if((get((V40),VV[34],Cnil))==Cnil){ |
V42= get((V40),VV[36],Cnil); |
1060 |
goto T270;} |
if(((V42))==Cnil){ |
1061 |
base[2]= get((V40),VV[34],Cnil); |
goto T274;} |
1062 |
|
base[2]= (V42); |
1063 |
{object V65; |
{object V65; |
1064 |
V65= (V41); |
V65= Cnil; |
1065 |
vs_top=base+3; |
vs_top=base+3; |
1066 |
while(!endp(V65)) |
while(!endp(V65)) |
1067 |
{vs_push(car(V65));V65=cdr(V65);} |
{vs_push(car(V65));V65=cdr(V65);} |
1070 |
vs_top=sup; |
vs_top=sup; |
1071 |
V39= vs_base[0]; |
V39= vs_base[0]; |
1072 |
goto TTL; |
goto TTL; |
1073 |
goto T270; |
goto T274; |
1074 |
T270:; |
T274:; |
1075 |
base[2]= Cnil; |
base[2]= Cnil; |
1076 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1077 |
return;}} |
return;}} |
1089 |
register object V69; |
register object V69; |
1090 |
V68= Cnil; |
V68= Cnil; |
1091 |
V69= Cnil; |
V69= Cnil; |
1092 |
goto T280; |
goto T285; |
1093 |
T280:; |
T285:; |
1094 |
if(!(type_of((V67))!=t_cons)){ |
if(!(type_of((V67))!=t_cons)){ |
1095 |
goto T284;} |
goto T289;} |
1096 |
V68= (V67); |
V68= (V67); |
1097 |
V69= Cnil; |
V69= Cnil; |
1098 |
goto T282; |
goto T287; |
1099 |
goto T284; |
goto T289; |
1100 |
T284:; |
T289:; |
1101 |
V68= car((V67)); |
V68= car((V67)); |
1102 |
V69= cdr((V67)); |
V69= cdr((V67)); |
1103 |
goto T282; |
goto T287; |
1104 |
T282:; |
T287:; |
1105 |
if((get((V68),VV[34],Cnil))==Cnil){ |
if((get((V68),VV[36],Cnil))==Cnil){ |
1106 |
goto T293;} |
goto T298;} |
1107 |
base[0]= get((V68),VV[34],Cnil); |
base[0]= get((V68),VV[36],Cnil); |
1108 |
{object V70; |
{object V70; |
1109 |
V70= (V69); |
V70= (V69); |
1110 |
vs_top=base+1; |
vs_top=base+1; |
1114 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
1115 |
vs_top=sup; |
vs_top=sup; |
1116 |
V67= vs_base[0]; |
V67= vs_base[0]; |
1117 |
goto T281; |
goto T286; |
1118 |
goto T293; |
goto T298; |
1119 |
T293:; |
T298:; |
1120 |
if(!(type_of((V67))!=t_cons)){ |
if(!(type_of((V67))!=t_cons)){ |
1121 |
goto T299;} |
goto T304;} |
1122 |
{object V71 = make_cons((V67),Cnil); |
{object V71 = make_cons((V67),Cnil); |
1123 |
VMR19(V71)} |
VMR19(V71)} |
1124 |
goto T299; |
goto T304; |
1125 |
T299:; |
T304:; |
1126 |
{object V72 = (V67); |
{object V72 = (V67); |
1127 |
VMR19(V72)} |
VMR19(V72)} |
1128 |
goto T281; |
goto T286; |
1129 |
T281:; |
T286:; |
1130 |
goto T280;} |
goto T285;} |
1131 |
base[0]=base[0]; |
base[0]=base[0]; |
1132 |
return Cnil; |
return Cnil; |
1133 |
} |
} |
1140 |
goto TTL; |
goto TTL; |
1141 |
TTL:; |
TTL:; |
1142 |
if(!(type_of((V74))==t_cons)){ |
if(!(type_of((V74))==t_cons)){ |
|
goto T302;} |
|
|
V74= car((V74)); |
|
|
goto T302; |
|
|
T302:; |
|
|
{register object x= (V74),V75= VV[35]; |
|
|
while(!endp(V75)) |
|
|
if(eql(x,V75->c.c_car)){ |
|
|
goto T306; |
|
|
}else V75=V75->c.c_cdr;} |
|
|
if((get((V74),VV[33],Cnil))==Cnil){ |
|
1143 |
goto T307;} |
goto T307;} |
1144 |
goto T306; |
V74= car((V74)); |
|
T306:; |
|
|
{object V76 = Ct; |
|
|
VMR20(V76)} |
|
1145 |
goto T307; |
goto T307; |
1146 |
T307:; |
T307:; |
1147 |
{object V77 = Cnil; |
V75= coerce_to_string((V74)); |
1148 |
|
if(equal(/* INLINE-ARGS */V75,VV[37])){ |
1149 |
|
goto T311;} |
1150 |
|
{register object x= (V74),V76= VV[38]; |
1151 |
|
while(!endp(V76)) |
1152 |
|
if(eql(x,V76->c.c_car)){ |
1153 |
|
goto T311; |
1154 |
|
}else V76=V76->c.c_cdr;} |
1155 |
|
if((get((V74),VV[35],Cnil))==Cnil){ |
1156 |
|
goto T312;} |
1157 |
|
goto T311; |
1158 |
|
T311:; |
1159 |
|
{object V77 = Ct; |
1160 |
VMR20(V77)} |
VMR20(V77)} |
1161 |
|
goto T312; |
1162 |
|
T312:; |
1163 |
|
{object V78 = Cnil; |
1164 |
|
VMR20(V78)} |
1165 |
return Cnil; |
return Cnil; |
1166 |
} |
} |
1167 |
/* function definition for SUBTYPEP */ |
/* function definition for SUBTYPEP */ |
1170 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1171 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1172 |
vs_reserve(VM21); |
vs_reserve(VM21); |
1173 |
{object V78; |
{object V79; |
1174 |
object V79; |
object V80; |
1175 |
check_arg(2); |
check_arg(2); |
1176 |
V78=(base[0]); |
V79=(base[0]); |
1177 |
V79=(base[1]); |
V80=(base[1]); |
1178 |
vs_top=sup; |
vs_top=sup; |
1179 |
goto TTL; |
goto TTL; |
1180 |
TTL:; |
TTL:; |
1181 |
{object V80; |
{object V81; |
|
object V81; |
|
1182 |
object V82; |
object V82; |
1183 |
object V83; |
object V83; |
1184 |
object V84; |
object V84; |
1185 |
object V85; |
object V85; |
1186 |
object V86; |
object V86; |
1187 |
V80= Cnil; |
object V87; |
1188 |
V81= Cnil; |
V81= Cnil; |
1189 |
V82= Cnil; |
V82= Cnil; |
1190 |
V83= Cnil; |
V83= Cnil; |
1191 |
V84= Cnil; |
V84= Cnil; |
1192 |
V85= Cnil; |
V85= Cnil; |
1193 |
V86= Cnil; |
V86= Cnil; |
1194 |
V78= (*(LnkLI102))((V78)); |
V87= Cnil; |
1195 |
V79= (*(LnkLI102))((V79)); |
V81= (*(LnkLI139))((V79)); |
1196 |
if(!(equal((V78),(V79)))){ |
if(!((car((V81)))==(VV[39]))){ |
1197 |
goto T322;} |
goto T330;} |
1198 |
|
V79= make_cons((V79),Cnil); |
1199 |
|
goto T328; |
1200 |
|
goto T330; |
1201 |
|
T330:; |
1202 |
|
V79= (V81); |
1203 |
|
goto T328; |
1204 |
|
T328:; |
1205 |
|
V82= (*(LnkLI139))((V80)); |
1206 |
|
if(!((car((V82)))==(VV[39]))){ |
1207 |
|
goto T337;} |
1208 |
|
V80= make_cons((V80),Cnil); |
1209 |
|
goto T335; |
1210 |
|
goto T337; |
1211 |
|
T337:; |
1212 |
|
V80= (V82); |
1213 |
|
goto T335; |
1214 |
|
T335:; |
1215 |
|
if(!(equal((V79),(V80)))){ |
1216 |
|
goto T339;} |
1217 |
base[2]= Ct; |
base[2]= Ct; |
1218 |
base[3]= Ct; |
base[3]= Ct; |
1219 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1220 |
return; |
return; |
1221 |
goto T322; |
goto T339; |
1222 |
T322:; |
T339:; |
|
V80= car((V78)); |
|
1223 |
V81= car((V79)); |
V81= car((V79)); |
1224 |
V82= cdr((V78)); |
V82= car((V80)); |
1225 |
V83= cdr((V79)); |
V83= cdr((V79)); |
1226 |
if(!(((V80))==(VV[36]))){ |
V84= cdr((V80)); |
1227 |
goto T337;} |
if(!(((V81))==(VV[40]))){ |
1228 |
{register object V87; |
goto T354;} |
1229 |
object V88; |
{register object V88; |
1230 |
V87= (V82); |
object V89; |
1231 |
V88= car((V87)); |
V88= (V83); |
1232 |
goto T343; |
V89= car((V88)); |
1233 |
T343:; |
goto T360; |
1234 |
if(!(endp_prop((V87)))){ |
T360:; |
1235 |
goto T344;} |
if(!(endp_prop((V88)))){ |
1236 |
goto T339; |
goto T361;} |
1237 |
goto T344; |
goto T356; |
1238 |
T344:; |
goto T361; |
1239 |
base[3]= (V88); |
T361:; |
1240 |
base[4]= (V79); |
base[3]= (V89); |
1241 |
|
base[4]= (V80); |
1242 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1243 |
(void) (*Lnk83)(); |
(void) (*Lnk121)(); |
1244 |
vs_top=sup; |
vs_top=sup; |
1245 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1246 |
goto T348;} |
goto T365;} |
1247 |
base[3]= Cnil; |
base[3]= Cnil; |
1248 |
base[4]= Ct; |
base[4]= Ct; |
1249 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1250 |
return; |
return; |
1251 |
goto T348; |
goto T365; |
1252 |
T348:; |
T365:; |
1253 |
V87= cdr((V87)); |
V88= cdr((V88)); |
1254 |
V88= car((V87)); |
V89= car((V88)); |
1255 |
goto T343;} |
goto T360;} |
1256 |
goto T339; |
goto T356; |
1257 |
T339:; |
T356:; |
1258 |
base[2]= Ct; |
base[2]= Ct; |
1259 |
base[3]= Ct; |
base[3]= Ct; |
1260 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1261 |
return; |
return; |
1262 |
goto T337; |
goto T354; |
1263 |
T337:; |
T354:; |
1264 |
if(!(((V80))==(VV[37]))){ |
if(!(((V81))==(VV[41]))){ |
1265 |
goto T363;} |
goto T380;} |
1266 |
{register object V89; |
{register object V90; |
1267 |
object V90; |
object V91; |
1268 |
V89= (V82); |
V90= (V83); |
1269 |
V90= car((V89)); |
V91= car((V90)); |
1270 |
goto T369; |
goto T386; |
1271 |
T369:; |
T386:; |
1272 |
if(!(endp_prop((V89)))){ |
if(!(endp_prop((V90)))){ |
1273 |
goto T370;} |
goto T387;} |
1274 |
goto T365; |
goto T382; |
1275 |
goto T370; |
goto T387; |
1276 |
T370:; |
T387:; |
1277 |
{object V91; |
{object V92; |
1278 |
object V92; |
object V93; |
1279 |
base[3]= (V90); |
base[3]= (V91); |
1280 |
base[4]= (V79); |
base[4]= (V80); |
1281 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1282 |
(void) (*Lnk103)(); |
(void) (*Lnk140)(); |
1283 |
if(vs_base>=vs_top){vs_top=sup;goto T378;} |
if(vs_base>=vs_top){vs_top=sup;goto T395;} |
|
V91= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T379;} |
|
1284 |
V92= vs_base[0]; |
V92= vs_base[0]; |
1285 |
|
vs_base++; |
1286 |
|
if(vs_base>=vs_top){vs_top=sup;goto T396;} |
1287 |
|
V93= vs_base[0]; |
1288 |
vs_top=sup; |
vs_top=sup; |
1289 |
goto T380; |
goto T397; |
1290 |
goto T378; |
goto T395; |
1291 |
T378:; |
T395:; |
|
V91= Cnil; |
|
|
goto T379; |
|
|
T379:; |
|
1292 |
V92= Cnil; |
V92= Cnil; |
1293 |
goto T380; |
goto T396; |
1294 |
T380:; |
T396:; |
1295 |
if(((V91))!=Cnil){ |
V93= Cnil; |
1296 |
goto T374;} |
goto T397; |
1297 |
base[3]= (V91); |
T397:; |
1298 |
base[4]= (V92); |
if(((V92))!=Cnil){ |
1299 |
|
goto T391;} |
1300 |
|
base[3]= (V92); |
1301 |
|
base[4]= (V93); |
1302 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1303 |
return;} |
return;} |
1304 |
goto T374; |
goto T391; |
1305 |
T374:; |
T391:; |
1306 |
V89= cdr((V89)); |
V90= cdr((V90)); |
1307 |
V90= car((V89)); |
V91= car((V90)); |
1308 |
goto T369;} |
goto T386;} |
1309 |
goto T365; |
goto T382; |
1310 |
T365:; |
T382:; |
1311 |
base[2]= Ct; |
base[2]= Ct; |
1312 |
base[3]= Ct; |
base[3]= Ct; |
1313 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1314 |
return; |
return; |
1315 |
goto T363; |
goto T380; |
1316 |
T363:; |
T380:; |
1317 |
if(!(((V80))==(VV[38]))){ |
if(!(((V81))==(VV[42]))){ |
1318 |
goto T393;} |
goto T410;} |
1319 |
{register object V93; |
{register object V94; |
1320 |
object V94; |
object V95; |
1321 |
V93= (V82); |
V94= (V83); |
1322 |
V94= car((V93)); |
V95= car((V94)); |
1323 |
goto T399; |
goto T416; |
1324 |
T399:; |
T416:; |
1325 |
if(!(endp_prop((V93)))){ |
if(!(endp_prop((V94)))){ |
1326 |
goto T400;} |
goto T417;} |
1327 |
goto T395; |
goto T412; |
1328 |
goto T400; |
goto T417; |
1329 |
T400:; |
T417:; |
1330 |
{object V95; |
{object V96; |
1331 |
base[3]= (V94); |
base[3]= (V95); |
1332 |
base[4]= (V79); |
base[4]= (V80); |
1333 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1334 |
(void) (*Lnk103)(); |
(void) (*Lnk140)(); |
1335 |
vs_top=sup; |
vs_top=sup; |
1336 |
V95= vs_base[0]; |
V96= vs_base[0]; |
1337 |
if(((V95))==Cnil){ |
if(((V96))==Cnil){ |
1338 |
goto T404;} |
goto T421;} |
1339 |
base[3]= Ct; |
base[3]= Ct; |
1340 |
base[4]= Ct; |
base[4]= Ct; |
1341 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1342 |
return;} |
return;} |
1343 |
goto T404; |
goto T421; |
1344 |
T404:; |
T421:; |
1345 |
V93= cdr((V93)); |
V94= cdr((V94)); |
1346 |
V94= car((V93)); |
V95= car((V94)); |
1347 |
goto T399;} |
goto T416;} |
1348 |
goto T395; |
goto T412; |
1349 |
T395:; |
T412:; |
1350 |
base[2]= Cnil; |
base[2]= Cnil; |
1351 |
base[3]= Cnil; |
base[3]= Cnil; |
1352 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1353 |
return; |
return; |
1354 |
goto T393; |
goto T410; |
1355 |
T393:; |
T410:; |
1356 |
if(!(((V80))==(VV[39]))){ |
if(!(((V81))==(VV[43]))){ |
1357 |
goto T335;} |
goto T352;} |
1358 |
if(!(((V81))==(VV[39]))){ |
if(!(((V82))==(VV[43]))){ |
1359 |
goto T422;} |
goto T439;} |
1360 |
V78= car((V83)); |
V79= car((V84)); |
1361 |
V79= car((V82)); |
V80= car((V83)); |
1362 |
goto TTL; |
goto TTL; |
1363 |
goto T422; |
goto T439; |
1364 |
T422:; |
T439:; |
1365 |
V78= Ct; |
V79= Ct; |
1366 |
V79= list(3,VV[37],(V79),car((V82))); |
V80= list(3,VV[41],(V80),car((V83))); |
1367 |
goto TTL; |
goto TTL; |
1368 |
goto T335; |
goto T352; |
1369 |
T335:; |
T352:; |
1370 |
if(!(((V81))==(VV[36]))){ |
if(!(((V82))==(VV[40]))){ |
1371 |
goto T432;} |
goto T449;} |
1372 |
base[2]= Cnil; |
base[2]= Cnil; |
1373 |
base[3]= Cnil; |
base[3]= Cnil; |
1374 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1375 |
return; |
return; |
1376 |
goto T432; |
goto T449; |
1377 |
T432:; |
T449:; |
1378 |
if(!(((V81))==(VV[37]))){ |
if(!(((V82))==(VV[41]))){ |
1379 |
goto T437;} |
goto T454;} |
1380 |
{register object V96; |
{register object V97; |
1381 |
object V97; |
object V98; |
1382 |
V96= (V83); |
V97= (V84); |
1383 |
V97= car((V96)); |
V98= car((V97)); |
1384 |
goto T443; |
goto T460; |
1385 |
T443:; |
T460:; |
1386 |
if(!(endp_prop((V96)))){ |
if(!(endp_prop((V97)))){ |
1387 |
goto T444;} |
goto T461;} |
1388 |
goto T439; |
goto T456; |
1389 |
goto T444; |
goto T461; |
1390 |
T444:; |
T461:; |
1391 |
{object V98; |
{object V99; |
1392 |
base[3]= (V78); |
base[3]= (V79); |
1393 |
base[4]= (V97); |
base[4]= (V98); |
1394 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1395 |
(void) (*Lnk103)(); |
(void) (*Lnk140)(); |
1396 |
vs_top=sup; |
vs_top=sup; |
1397 |
V98= vs_base[0]; |
V99= vs_base[0]; |
1398 |
if(((V98))==Cnil){ |
if(((V99))==Cnil){ |
1399 |
goto T448;} |
goto T465;} |
1400 |
base[3]= Ct; |
base[3]= Ct; |
1401 |
base[4]= Ct; |
base[4]= Ct; |
1402 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1403 |
return;} |
return;} |
1404 |
goto T448; |
goto T465; |
1405 |
T448:; |
T465:; |
1406 |
V96= cdr((V96)); |
V97= cdr((V97)); |
1407 |
V97= car((V96)); |
V98= car((V97)); |
1408 |
goto T443;} |
goto T460;} |
1409 |
goto T439; |
goto T456; |
1410 |
T439:; |
T456:; |
1411 |
base[2]= Cnil; |
base[2]= Cnil; |
1412 |
base[3]= Cnil; |
base[3]= Cnil; |
1413 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1414 |
return; |
return; |
1415 |
goto T437; |
goto T454; |
1416 |
T437:; |
T454:; |
1417 |
if(!(((V81))==(VV[38]))){ |
if(!(((V82))==(VV[42]))){ |
1418 |
goto T464;} |
goto T481;} |
1419 |
{register object V99; |
{register object V100; |
1420 |
object V100; |
object V101; |
1421 |
V99= (V83); |
V100= (V84); |
1422 |
V100= car((V99)); |
V101= car((V100)); |
1423 |
goto T470; |
goto T487; |
1424 |
T470:; |
T487:; |
1425 |
if(!(endp_prop((V99)))){ |
if(!(endp_prop((V100)))){ |
1426 |
goto T471;} |
goto T488;} |
1427 |
goto T466; |
goto T483; |
1428 |
goto T471; |
goto T488; |
1429 |
T471:; |
T488:; |
1430 |
{object V101; |
{object V102; |
1431 |
object V102; |
object V103; |
1432 |
base[3]= (V78); |
base[3]= (V79); |
1433 |
base[4]= (V100); |
base[4]= (V101); |
1434 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1435 |
(void) (*Lnk103)(); |
(void) (*Lnk140)(); |
1436 |
if(vs_base>=vs_top){vs_top=sup;goto T479;} |
if(vs_base>=vs_top){vs_top=sup;goto T496;} |
|
V101= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T480;} |
|
1437 |
V102= vs_base[0]; |
V102= vs_base[0]; |
1438 |
|
vs_base++; |
1439 |
|
if(vs_base>=vs_top){vs_top=sup;goto T497;} |
1440 |
|
V103= vs_base[0]; |
1441 |
vs_top=sup; |
vs_top=sup; |
1442 |
goto T481; |
goto T498; |
1443 |
goto T479; |
goto T496; |
1444 |
T479:; |
T496:; |
|
V101= Cnil; |
|
|
goto T480; |
|
|
T480:; |
|
1445 |
V102= Cnil; |
V102= Cnil; |
1446 |
goto T481; |
goto T497; |
1447 |
T481:; |
T497:; |
1448 |
if(((V101))!=Cnil){ |
V103= Cnil; |
1449 |
goto T475;} |
goto T498; |
1450 |
base[3]= (V101); |
T498:; |
1451 |
base[4]= (V102); |
if(((V102))!=Cnil){ |
1452 |
|
goto T492;} |
1453 |
|
base[3]= (V102); |
1454 |
|
base[4]= (V103); |
1455 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1456 |
return;} |
return;} |
1457 |
goto T475; |
goto T492; |
1458 |
T475:; |
T492:; |
1459 |
V99= cdr((V99)); |
V100= cdr((V100)); |
1460 |
V100= car((V99)); |
V101= car((V100)); |
1461 |
goto T470;} |
goto T487;} |
1462 |
goto T466; |
goto T483; |
1463 |
T466:; |
T483:; |
1464 |
base[2]= Ct; |
base[2]= Ct; |
1465 |
base[3]= Ct; |
base[3]= Ct; |
1466 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1467 |
return; |
return; |
1468 |
goto T464; |
goto T481; |
1469 |
T464:; |
T481:; |
1470 |
if(!(((V81))==(VV[39]))){ |
if(!(((V82))==(VV[43]))){ |
1471 |
goto T430;} |
goto T447;} |
1472 |
V78= list(3,VV[38],(V78),car((V83))); |
V79= list(3,VV[42],(V79),car((V84))); |
1473 |
V79= Cnil; |
V80= Cnil; |
1474 |
goto TTL; |
goto TTL; |
1475 |
goto T430; |
goto T447; |
1476 |
T430:; |
T447:; |
1477 |
V84= (*(LnkLI104))((V78)); |
V85= (*(LnkLI141))((V79)); |
1478 |
V85= (*(LnkLI104))((V79)); |
V86= (*(LnkLI141))((V80)); |
1479 |
if(((V80))==(Cnil)){ |
if(((V81))==(Cnil)){ |
1480 |
goto T502;} |
goto T519;} |
1481 |
if(((V81))==(Ct)){ |
if(((V82))==(Ct)){ |
1482 |
goto T502;} |
goto T519;} |
1483 |
if(!(((V81))==(VV[40]))){ |
if(!(((V82))==(VV[44]))){ |
1484 |
goto T503;} |
goto T520;} |
1485 |
goto T502; |
goto T519; |
1486 |
T502:; |
T519:; |
1487 |
base[2]= Ct; |
base[2]= Ct; |
1488 |
base[3]= Ct; |
base[3]= Ct; |
1489 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1490 |
return; |
return; |
1491 |
goto T503; |
goto T520; |
1492 |
T503:; |
T520:; |
1493 |
if(!(((V81))==(Cnil))){ |
if(!(((V82))==(Cnil))){ |
1494 |
goto T512;} |
goto T529;} |
|
base[2]= Cnil; |
|
|
base[3]= (V84); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T512; |
|
|
T512:; |
|
|
if(!(((V80))==(Ct))){ |
|
|
goto T517;} |
|
1495 |
base[2]= Cnil; |
base[2]= Cnil; |
1496 |
base[3]= (V85); |
base[3]= (V85); |
1497 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1498 |
return; |
return; |
1499 |
goto T517; |
goto T529; |
1500 |
T517:; |
T529:; |
1501 |
if(!(((V80))==(VV[40]))){ |
if(!(((V81))==(Ct))){ |
1502 |
goto T522;} |
goto T534;} |
1503 |
base[2]= Cnil; |
base[2]= Cnil; |
1504 |
base[3]= (V85); |
base[3]= (V86); |
1505 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1506 |
return; |
return; |
1507 |
goto T522; |
goto T534; |
1508 |
T522:; |
T534:; |
1509 |
if(!(((V81))==(VV[41]))){ |
if(!(((V81))==(VV[44]))){ |
1510 |
goto T527;} |
goto T539;} |
|
{register object x= (V80),V103= VV[42]; |
|
|
while(!endp(V103)) |
|
|
if(eql(x,V103->c.c_car)){ |
|
|
goto T531; |
|
|
}else V103=V103->c.c_cdr; |
|
|
goto T530;} |
|
|
goto T531; |
|
|
T531:; |
|
|
base[2]= Ct; |
|
|
base[3]= Ct; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T530; |
|
|
T530:; |
|
1511 |
base[2]= Cnil; |
base[2]= Cnil; |
1512 |
base[3]= (V84); |
base[3]= (V86); |
1513 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1514 |
return; |
return; |
1515 |
goto T527; |
goto T539; |
1516 |
T527:; |
T539:; |
1517 |
if(!(((V81))==(VV[43]))){ |
if(!(((V82))==(VV[45]))){ |
1518 |
goto T537;} |
goto T544;} |
1519 |
{register object x= (V80),V104= VV[44]; |
{register object x= (V81),V104= VV[46]; |
1520 |
while(!endp(V104)) |
while(!endp(V104)) |
1521 |
if(eql(x,V104->c.c_car)){ |
if(eql(x,V104->c.c_car)){ |
1522 |
goto T541; |
goto T548; |
1523 |
}else V104=V104->c.c_cdr; |
}else V104=V104->c.c_cdr; |
1524 |
goto T540;} |
goto T547;} |
1525 |
goto T541; |
goto T548; |
1526 |
T541:; |
T548:; |
1527 |
base[2]= Ct; |
base[2]= Ct; |
1528 |
base[3]= Ct; |
base[3]= Ct; |
1529 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1530 |
return; |
return; |
1531 |
goto T540; |
goto T547; |
1532 |
T540:; |
T547:; |
1533 |
if(((V80))==(VV[26])){ |
base[2]= Cnil; |
1534 |
goto T544;} |
base[3]= (V85); |
1535 |
if(!(((V80))==(VV[22]))){ |
vs_top=(vs_base=base+2)+2; |
1536 |
goto T545;} |
return; |
1537 |
goto T544; |
goto T544; |
1538 |
T544:; |
T544:; |
1539 |
if((cdr((V82)))==Cnil){ |
if(!(((V82))==(VV[47]))){ |
1540 |
goto T550;} |
goto T554;} |
1541 |
if(!(type_of(cadr((V82)))==t_cons)){ |
{register object x= (V81),V105= VV[48]; |
1542 |
goto T550;} |
while(!endp(V105)) |
1543 |
if((cdadr((V82)))!=Cnil){ |
if(eql(x,V105->c.c_car)){ |
1544 |
goto T550;} |
goto T558; |
1545 |
|
}else V105=V105->c.c_cdr; |
1546 |
|
goto T557;} |
1547 |
|
goto T558; |
1548 |
|
T558:; |
1549 |
base[2]= Ct; |
base[2]= Ct; |
1550 |
base[3]= Ct; |
base[3]= Ct; |
1551 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1552 |
return; |
return; |
1553 |
goto T550; |
goto T557; |
1554 |
T550:; |
T557:; |
1555 |
base[2]= Cnil; |
if(((V81))==(VV[26])){ |
1556 |
|
goto T561;} |
1557 |
|
if(!(((V81))==(VV[22]))){ |
1558 |
|
goto T562;} |
1559 |
|
goto T561; |
1560 |
|
T561:; |
1561 |
|
if((cdr((V83)))==Cnil){ |
1562 |
|
goto T567;} |
1563 |
|
if(!(type_of(cadr((V83)))==t_cons)){ |
1564 |
|
goto T567;} |
1565 |
|
if((cdadr((V83)))!=Cnil){ |
1566 |
|
goto T567;} |
1567 |
|
base[2]= Ct; |
1568 |
base[3]= Ct; |
base[3]= Ct; |
1569 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1570 |
return; |
return; |
1571 |
goto T545; |
goto T567; |
1572 |
T545:; |
T567:; |
1573 |
base[2]= Cnil; |
base[2]= Cnil; |
1574 |
base[3]= (V84); |
base[3]= Ct; |
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T537; |
|
|
T537:; |
|
|
if(!(((V80))==(VV[41]))){ |
|
|
goto T563;} |
|
|
base[2]= Cnil; |
|
|
base[3]= (V85); |
|
1575 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1576 |
return; |
return; |
1577 |
goto T563; |
goto T562; |
1578 |
T563:; |
T562:; |
|
if(!(((V80))==(VV[43]))){ |
|
|
goto T568;} |
|
1579 |
base[2]= Cnil; |
base[2]= Cnil; |
1580 |
base[3]= (V85); |
base[3]= (V85); |
1581 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1582 |
return; |
return; |
1583 |
goto T568; |
goto T554; |
1584 |
T568:; |
T554:; |
1585 |
if(!(((V81))==(VV[45]))){ |
if(!(((V81))==(VV[45]))){ |
1586 |
goto T573;} |
goto T580;} |
|
{register object x= (V80),V105= VV[46]; |
|
|
while(!endp(V105)) |
|
|
if(eql(x,V105->c.c_car)){ |
|
|
goto T577; |
|
|
}else V105=V105->c.c_cdr; |
|
|
goto T576;} |
|
|
goto T577; |
|
|
T577:; |
|
1587 |
base[2]= Cnil; |
base[2]= Cnil; |
1588 |
base[3]= Ct; |
base[3]= (V86); |
1589 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1590 |
return; |
return; |
1591 |
goto T576; |
goto T580; |
1592 |
T576:; |
T580:; |
1593 |
if(((V84))==Cnil){ |
if(!(((V81))==(VV[47]))){ |
1594 |
goto T581;} |
goto T585;} |
|
base[2]= Ct; |
|
|
base[3]= Ct; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T581; |
|
|
T581:; |
|
|
base[2]= Cnil; |
|
|
base[3]= Cnil; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T573; |
|
|
T573:; |
|
|
if(!(((V80))==(VV[45]))){ |
|
|
goto T588;} |
|
1595 |
base[2]= Cnil; |
base[2]= Cnil; |
1596 |
base[3]= (V85); |
base[3]= (V86); |
1597 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1598 |
return; |
return; |
1599 |
goto T588; |
goto T585; |
1600 |
T588:; |
T585:; |
1601 |
if(!(((V81))==(VV[47]))){ |
if(!(((V82))==(VV[49]))){ |
1602 |
goto T593;} |
goto T590;} |
1603 |
{register object x= (V80),V106= VV[48]; |
{register object x= (V81),V106= VV[50]; |
1604 |
while(!endp(V106)) |
while(!endp(V106)) |
1605 |
if(eql(x,V106->c.c_car)){ |
if(eql(x,V106->c.c_car)){ |
1606 |
goto T597; |
goto T594; |
1607 |
}else V106=V106->c.c_cdr; |
}else V106=V106->c.c_cdr; |
1608 |
goto T596;} |
goto T593;} |
1609 |
goto T597; |
goto T594; |
1610 |
T597:; |
T594:; |
|
base[2]= Ct; |
|
|
base[3]= Ct; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T596; |
|
|
T596:; |
|
1611 |
base[2]= Cnil; |
base[2]= Cnil; |
1612 |
base[3]= (V84); |
base[3]= Ct; |
1613 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1614 |
return; |
return; |
1615 |
goto T593; |
goto T593; |
1616 |
T593:; |
T593:; |
1617 |
if(!(((V81))==(VV[9]))){ |
if(((V85))==Cnil){ |
1618 |
goto T603;} |
goto T598;} |
|
{register object x= (V80),V107= VV[49]; |
|
|
while(!endp(V107)) |
|
|
if(eql(x,V107->c.c_car)){ |
|
|
goto T607; |
|
|
}else V107=V107->c.c_cdr; |
|
|
goto T606;} |
|
|
goto T607; |
|
|
T607:; |
|
1619 |
base[2]= Ct; |
base[2]= Ct; |
1620 |
base[3]= Ct; |
base[3]= Ct; |
1621 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1622 |
return; |
return; |
1623 |
goto T606; |
goto T598; |
1624 |
T606:; |
T598:; |
1625 |
base[2]= Cnil; |
base[2]= Cnil; |
1626 |
base[3]= (V84); |
base[3]= Cnil; |
1627 |
|
vs_top=(vs_base=base+2)+2; |
1628 |
|
return; |
1629 |
|
goto T590; |
1630 |
|
T590:; |
1631 |
|
if(!(((V81))==(VV[49]))){ |
1632 |
|
goto T605;} |
1633 |
|
base[2]= Cnil; |
1634 |
|
base[3]= (V86); |
1635 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1636 |
return; |
return; |
1637 |
goto T603; |
goto T605; |
1638 |
T603:; |
T605:; |
1639 |
if(!(((V81))==(VV[50]))){ |
if(!(((V82))==(VV[51]))){ |
1640 |
|
goto T610;} |
1641 |
|
{register object x= (V81),V107= VV[52]; |
1642 |
|
while(!endp(V107)) |
1643 |
|
if(eql(x,V107->c.c_car)){ |
1644 |
|
goto T614; |
1645 |
|
}else V107=V107->c.c_cdr; |
1646 |
goto T613;} |
goto T613;} |
1647 |
if(!(((V80))==(VV[51]))){ |
goto T614; |
1648 |
goto T616;} |
T614:; |
1649 |
base[2]= Ct; |
base[2]= Ct; |
1650 |
base[3]= Ct; |
base[3]= Ct; |
1651 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1652 |
return; |
return; |
1653 |
goto T616; |
goto T613; |
1654 |
T616:; |
T613:; |
1655 |
base[2]= Cnil; |
base[2]= Cnil; |
1656 |
base[3]= (V84); |
base[3]= (V85); |
1657 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1658 |
return; |
return; |
1659 |
goto T613; |
goto T610; |
1660 |
T613:; |
T610:; |
1661 |
if(!(((V81))==(VV[52]))){ |
if(!(((V82))==(VV[9]))){ |
1662 |
|
goto T620;} |
1663 |
|
{register object x= (V81),V108= VV[53]; |
1664 |
|
while(!endp(V108)) |
1665 |
|
if(eql(x,V108->c.c_car)){ |
1666 |
|
goto T624; |
1667 |
|
}else V108=V108->c.c_cdr; |
1668 |
goto T623;} |
goto T623;} |
1669 |
if(!(((V80))==(VV[52]))){ |
goto T624; |
1670 |
goto T626;} |
T624:; |
1671 |
base[2]= Ct; |
base[2]= Ct; |
1672 |
base[3]= Ct; |
base[3]= Ct; |
1673 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1674 |
return; |
return; |
1675 |
goto T626; |
goto T623; |
1676 |
T626:; |
T623:; |
1677 |
base[2]= Cnil; |
base[2]= Cnil; |
1678 |
base[3]= (V84); |
base[3]= (V85); |
1679 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1680 |
return; |
return; |
1681 |
goto T623; |
goto T620; |
1682 |
T623:; |
T620:; |
1683 |
if(!(((V81))==(VV[53]))){ |
if(!(((V82))==(VV[54]))){ |
1684 |
|
goto T630;} |
1685 |
|
if(!(((V81))==(VV[55]))){ |
1686 |
goto T633;} |
goto T633;} |
|
if(!(((V80))==(VV[53]))){ |
|
|
goto T636;} |
|
1687 |
base[2]= Ct; |
base[2]= Ct; |
1688 |
base[3]= Ct; |
base[3]= Ct; |
1689 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1690 |
return; |
return; |
1691 |
goto T636; |
goto T633; |
1692 |
T636:; |
T633:; |
1693 |
base[2]= Cnil; |
base[2]= Cnil; |
1694 |
base[3]= (V84); |
base[3]= (V85); |
1695 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1696 |
return; |
return; |
1697 |
goto T633; |
goto T630; |
1698 |
T633:; |
T630:; |
1699 |
if(!(((V81))==(VV[54]))){ |
if(!(((V82))==(VV[56]))){ |
1700 |
|
goto T640;} |
1701 |
|
if(!(((V81))==(VV[57]))){ |
1702 |
goto T643;} |
goto T643;} |
|
{register object x= (V80),V108= VV[55]; |
|
|
while(!endp(V108)) |
|
|
if(eql(x,V108->c.c_car)){ |
|
|
goto T647; |
|
|
}else V108=V108->c.c_cdr; |
|
|
goto T646;} |
|
|
goto T647; |
|
|
T647:; |
|
1703 |
base[2]= Ct; |
base[2]= Ct; |
1704 |
base[3]= Ct; |
base[3]= Ct; |
1705 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1706 |
return; |
return; |
|
goto T646; |
|
|
T646:; |
|
|
base[2]= Cnil; |
|
|
base[3]= (V84); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
1707 |
goto T643; |
goto T643; |
1708 |
T643:; |
T643:; |
|
if(!(((V80))==(VV[54]))){ |
|
|
goto T653;} |
|
1709 |
base[2]= Cnil; |
base[2]= Cnil; |
1710 |
base[3]= (V85); |
base[3]= (V85); |
1711 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1712 |
return; |
return; |
1713 |
|
goto T640; |
1714 |
|
T640:; |
1715 |
|
if(!(((V82))==(VV[58]))){ |
1716 |
|
goto T650;} |
1717 |
|
{register object x= (V81),V109= VV[59]; |
1718 |
|
while(!endp(V109)) |
1719 |
|
if(eql(x,V109->c.c_car)){ |
1720 |
|
goto T654; |
1721 |
|
}else V109=V109->c.c_cdr; |
1722 |
|
goto T653;} |
1723 |
|
goto T654; |
1724 |
|
T654:; |
1725 |
|
base[2]= Ct; |
1726 |
|
base[3]= Ct; |
1727 |
|
vs_top=(vs_base=base+2)+2; |
1728 |
|
return; |
1729 |
goto T653; |
goto T653; |
1730 |
T653:; |
T653:; |
1731 |
if(!(((V81))==(VV[56]))){ |
base[2]= Cnil; |
1732 |
goto T658;} |
base[3]= (V85); |
1733 |
if(((V80))==(VV[56])){ |
vs_top=(vs_base=base+2)+2; |
1734 |
|
return; |
1735 |
|
goto T650; |
1736 |
|
T650:; |
1737 |
|
if(!(((V82))==(VV[60]))){ |
1738 |
goto T660;} |
goto T660;} |
1739 |
if((get((V80),VV[33],Cnil))==Cnil){ |
{register object x= (V81),V110= VV[61]; |
1740 |
goto T661;} |
while(!endp(V110)) |
1741 |
goto T660; |
if(eql(x,V110->c.c_car)){ |
1742 |
T660:; |
goto T664; |
1743 |
|
}else V110=V110->c.c_cdr; |
1744 |
|
goto T663;} |
1745 |
|
goto T664; |
1746 |
|
T664:; |
1747 |
base[2]= Ct; |
base[2]= Ct; |
1748 |
base[3]= Ct; |
base[3]= Ct; |
1749 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1750 |
return; |
return; |
1751 |
goto T661; |
goto T663; |
1752 |
T661:; |
T663:; |
1753 |
base[2]= Cnil; |
base[2]= Cnil; |
1754 |
base[3]= (V84); |
base[3]= (V85); |
1755 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1756 |
return; |
return; |
1757 |
goto T658; |
goto T660; |
1758 |
T658:; |
T660:; |
1759 |
if(!(((V80))==(VV[56]))){ |
if(!(((V82))==(VV[62]))){ |
1760 |
goto T670;} |
goto T670;} |
1761 |
|
V111= coerce_to_string((V81)); |
1762 |
|
if(equal(/* INLINE-ARGS */V111,VV[63])){ |
1763 |
|
goto T672;} |
1764 |
|
{register object x= (V81),V112= VV[64]; |
1765 |
|
while(!endp(V112)) |
1766 |
|
if(eql(x,V112->c.c_car)){ |
1767 |
|
goto T676; |
1768 |
|
}else V112=V112->c.c_cdr; |
1769 |
|
goto T673;} |
1770 |
|
goto T676; |
1771 |
|
T676:; |
1772 |
|
goto T672; |
1773 |
|
T672:; |
1774 |
|
base[2]= Ct; |
1775 |
|
base[3]= Ct; |
1776 |
|
vs_top=(vs_base=base+2)+2; |
1777 |
|
return; |
1778 |
|
goto T673; |
1779 |
|
T673:; |
1780 |
base[2]= Cnil; |
base[2]= Cnil; |
1781 |
base[3]= (V85); |
base[3]= (V85); |
1782 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1783 |
return; |
return; |
1784 |
goto T670; |
goto T670; |
1785 |
T670:; |
T670:; |
1786 |
V86= get((V80),VV[33],Cnil); |
if(!(((V82))==(VV[65]))){ |
1787 |
if(((V86))==Cnil){ |
goto T682;} |
1788 |
goto T675;} |
V113= coerce_to_string((V81)); |
1789 |
{object V109; |
if(equal(/* INLINE-ARGS */V113,VV[66])){ |
|
V109= get((V81),VV[33],Cnil); |
|
|
if(((V109))==Cnil){ |
|
|
goto T680;} |
|
|
{register object V110; |
|
|
V110= (V86); |
|
|
goto T683; |
|
|
T683:; |
|
|
if(((V110))!=Cnil){ |
|
1790 |
goto T684;} |
goto T684;} |
1791 |
base[2]= Cnil; |
{register object x= (V81),V114= VV[67]; |
1792 |
base[3]= Ct; |
while(!endp(V114)) |
1793 |
vs_top=(vs_base=base+2)+2; |
if(eql(x,V114->c.c_car)){ |
1794 |
return; |
goto T688; |
1795 |
|
}else V114=V114->c.c_cdr; |
1796 |
|
goto T685;} |
1797 |
|
goto T688; |
1798 |
|
T688:; |
1799 |
goto T684; |
goto T684; |
1800 |
T684:; |
T684:; |
|
if(!(((V110))==(V109))){ |
|
|
goto T690;} |
|
1801 |
base[2]= Ct; |
base[2]= Ct; |
1802 |
base[3]= Ct; |
base[3]= Ct; |
1803 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1804 |
return; |
return; |
1805 |
goto T690; |
goto T685; |
1806 |
T690:; |
T685:; |
|
V110= structure_ref((V110),VV[33],4); |
|
|
goto T683;} |
|
|
goto T680; |
|
|
T680:; |
|
1807 |
base[2]= Cnil; |
base[2]= Cnil; |
1808 |
base[3]= (V85); |
base[3]= (V85); |
1809 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1810 |
return;} |
return; |
1811 |
goto T675; |
goto T682; |
1812 |
T675:; |
T682:; |
1813 |
if(!(((V81))==(VV[57]))){ |
if(!(((V82))==(VV[68]))){ |
1814 |
goto T701;} |
goto T694;} |
1815 |
{register object x= (V80),V112= VV[58]; |
if(!(((V81))==(VV[69]))){ |
1816 |
while(!endp(V112)) |
goto T697;} |
|
if(eql(x,V112->c.c_car)){ |
|
|
goto T706; |
|
|
}else V112=V112->c.c_cdr; |
|
|
goto T704;} |
|
|
goto T706; |
|
|
T706:; |
|
|
if(((*(LnkLI105))((V82),(V83)))==Cnil){ |
|
|
goto T704;} |
|
1817 |
base[2]= Ct; |
base[2]= Ct; |
1818 |
base[3]= Ct; |
base[3]= Ct; |
1819 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1820 |
return; |
return; |
1821 |
goto T704; |
goto T697; |
1822 |
T704:; |
T697:; |
1823 |
base[2]= Cnil; |
base[2]= Cnil; |
1824 |
base[3]= (V84); |
base[3]= (V85); |
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T701; |
|
|
T701:; |
|
|
if((get((V81),VV[33],Cnil))==Cnil){ |
|
|
goto T713;} |
|
|
base[2]= Cnil; |
|
|
base[3]= (V84); |
|
1825 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1826 |
return; |
return; |
1827 |
goto T713; |
goto T694; |
1828 |
T713:; |
T694:; |
1829 |
{object V113= (V80); |
if(!(((V82))==(VV[70]))){ |
1830 |
if((V113!= VV[29]))goto T717; |
goto T704;} |
1831 |
{object V114= (V81); |
if(!(((V81))==(VV[71]))){ |
1832 |
if((V114!= VV[29]))goto T718; |
goto T707;} |
1833 |
base[2]= Ct; |
base[2]= Ct; |
1834 |
base[3]= Ct; |
base[3]= Ct; |
1835 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1836 |
return; |
return; |
1837 |
|
goto T707; |
1838 |
|
T707:; |
1839 |
|
base[2]= Cnil; |
1840 |
|
base[3]= (V85); |
1841 |
|
vs_top=(vs_base=base+2)+2; |
1842 |
|
return; |
1843 |
|
goto T704; |
1844 |
|
T704:; |
1845 |
|
if(!(((V82))==(VV[72]))){ |
1846 |
|
goto T714;} |
1847 |
|
{register object x= (V81),V115= VV[73]; |
1848 |
|
while(!endp(V115)) |
1849 |
|
if(eql(x,V115->c.c_car)){ |
1850 |
|
goto T718; |
1851 |
|
}else V115=V115->c.c_cdr; |
1852 |
|
goto T717;} |
1853 |
goto T718; |
goto T718; |
1854 |
T718:; |
T718:; |
|
if((V114!= VV[13]) |
|
|
&& (V114!= VV[68]))goto T721; |
|
|
if(((*(LnkLI105))(VV[59],(V83)))==Cnil){ |
|
|
goto T723;} |
|
1855 |
base[2]= Ct; |
base[2]= Ct; |
1856 |
base[3]= Ct; |
base[3]= Ct; |
1857 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1858 |
return; |
return; |
|
goto T723; |
|
|
T723:; |
|
|
base[2]= Cnil; |
|
|
base[3]= Ct; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T721; |
|
|
T721:; |
|
|
base[2]= Cnil; |
|
|
base[3]= (V85); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return;} |
|
1859 |
goto T717; |
goto T717; |
1860 |
T717:; |
T717:; |
1861 |
if((V113!= VV[30]))goto T731; |
base[2]= Cnil; |
1862 |
{object V115= (V81); |
base[3]= (V85); |
|
if((V115!= VV[30]))goto T732; |
|
|
base[2]= Ct; |
|
|
base[3]= Ct; |
|
1863 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1864 |
return; |
return; |
1865 |
goto T732; |
goto T714; |
1866 |
T732:; |
T714:; |
1867 |
if((V115!= VV[68]))goto T735; |
V116= coerce_to_string((V82)); |
1868 |
if(((*(LnkLI105))(VV[60],(V83)))==Cnil){ |
if(equal(/* INLINE-ARGS */V116,VV[74])){ |
1869 |
goto T737;} |
goto T723;} |
1870 |
|
if(!(((V82))==(VV[75]))){ |
1871 |
|
goto T724;} |
1872 |
|
goto T723; |
1873 |
|
T723:; |
1874 |
|
{register object x= (V81),V117= VV[76]; |
1875 |
|
while(!endp(V117)) |
1876 |
|
if(eql(x,V117->c.c_car)){ |
1877 |
|
goto T730; |
1878 |
|
}else V117=V117->c.c_cdr; |
1879 |
|
goto T729;} |
1880 |
|
goto T730; |
1881 |
|
T730:; |
1882 |
base[2]= Ct; |
base[2]= Ct; |
1883 |
base[3]= Ct; |
base[3]= Ct; |
1884 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1885 |
return; |
return; |
1886 |
goto T737; |
goto T729; |
1887 |
T737:; |
T729:; |
|
base[2]= Cnil; |
|
|
base[3]= Ct; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
return; |
|
|
goto T735; |
|
|
T735:; |
|
1888 |
base[2]= Cnil; |
base[2]= Cnil; |
1889 |
base[3]= (V85); |
base[3]= (V85); |
1890 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1891 |
return;} |
return; |
1892 |
goto T731; |
goto T724; |
1893 |
T731:; |
T724:; |
1894 |
if((V113!= VV[86]))goto T745; |
if(!(((V82))==(VV[77]))){ |
1895 |
{register object x= (V81),V116= VV[61]; |
goto T736;} |
1896 |
while(!endp(V116)) |
{register object x= (V81),V118= VV[78]; |
1897 |
if(eql(x,V116->c.c_car)){ |
while(!endp(V118)) |
1898 |
goto T748; |
if(eql(x,V118->c.c_car)){ |
1899 |
}else V116=V116->c.c_cdr; |
goto T740; |
1900 |
goto T747;} |
}else V118=V118->c.c_cdr; |
1901 |
goto T748; |
goto T739;} |
1902 |
T748:; |
goto T740; |
1903 |
|
T740:; |
1904 |
base[2]= Ct; |
base[2]= Ct; |
1905 |
base[3]= Ct; |
base[3]= Ct; |
1906 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1907 |
return; |
return; |
1908 |
goto T747; |
goto T739; |
1909 |
T747:; |
T739:; |
1910 |
base[2]= Cnil; |
base[2]= Cnil; |
1911 |
base[3]= (V85); |
base[3]= (V85); |
1912 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1913 |
return; |
return; |
1914 |
goto T745; |
goto T736; |
1915 |
T745:; |
T736:; |
1916 |
if((V113!= VV[106]))goto T753; |
if(!(((V82))==(VV[79]))){ |
1917 |
{register object x= (V81),V117= VV[62]; |
goto T746;} |
1918 |
while(!endp(V117)) |
if(!(((V81))==(VV[80]))){ |
1919 |
if(eql(x,V117->c.c_car)){ |
goto T749;} |
|
goto T756; |
|
|
}else V117=V117->c.c_cdr; |
|
|
goto T755;} |
|
|
goto T756; |
|
|
T756:; |
|
1920 |
base[2]= Ct; |
base[2]= Ct; |
1921 |
base[3]= Ct; |
base[3]= Ct; |
1922 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1923 |
return; |
return; |
1924 |
goto T755; |
goto T749; |
1925 |
T755:; |
T749:; |
1926 |
base[2]= Cnil; |
base[2]= Cnil; |
1927 |
base[3]= (V85); |
base[3]= (V85); |
1928 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1929 |
return; |
return; |
1930 |
goto T753; |
goto T746; |
1931 |
T753:; |
T746:; |
1932 |
if((V113!= VV[107]))goto T761; |
if(!(((V82))==(VV[81]))){ |
1933 |
{register object x= (V81),V118= VV[63]; |
goto T756;} |
1934 |
while(!endp(V118)) |
if(!(((V81))==(VV[82]))){ |
1935 |
if(eql(x,V118->c.c_car)){ |
goto T759;} |
|
goto T764; |
|
|
}else V118=V118->c.c_cdr; |
|
|
goto T763;} |
|
|
goto T764; |
|
|
T764:; |
|
1936 |
base[2]= Ct; |
base[2]= Ct; |
1937 |
base[3]= Ct; |
base[3]= Ct; |
1938 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1939 |
return; |
return; |
1940 |
goto T763; |
goto T759; |
1941 |
T763:; |
T759:; |
1942 |
base[2]= Cnil; |
base[2]= Cnil; |
1943 |
base[3]= (V85); |
base[3]= (V85); |
1944 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1945 |
return; |
return; |
1946 |
goto T761; |
goto T756; |
1947 |
T761:; |
T756:; |
1948 |
if((V113!= VV[108]))goto T769; |
if(!(((V82))==(VV[83]))){ |
1949 |
{register object x= (V81),V119= VV[64]; |
goto T766;} |
1950 |
|
{register object x= (V81),V119= VV[84]; |
1951 |
while(!endp(V119)) |
while(!endp(V119)) |
1952 |
if(eql(x,V119->c.c_car)){ |
if(eql(x,V119->c.c_car)){ |
1953 |
goto T772; |
goto T770; |
1954 |
}else V119=V119->c.c_cdr; |
}else V119=V119->c.c_cdr; |
1955 |
goto T771;} |
goto T769;} |
1956 |
goto T772; |
goto T770; |
1957 |
T772:; |
T770:; |
1958 |
base[2]= Ct; |
base[2]= Ct; |
1959 |
base[3]= Ct; |
base[3]= Ct; |
1960 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1961 |
return; |
return; |
1962 |
goto T771; |
goto T769; |
1963 |
T771:; |
T769:; |
1964 |
base[2]= Cnil; |
base[2]= Cnil; |
1965 |
base[3]= (V85); |
base[3]= (V85); |
1966 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1967 |
return; |
return; |
1968 |
goto T769; |
goto T766; |
1969 |
T769:; |
T766:; |
1970 |
if((V113!= VV[24]))goto T777; |
if(!(((V82))==(VV[83]))){ |
1971 |
{register object x= (V81),V120= VV[65]; |
goto T776;} |
1972 |
|
{register object x= (V81),V120= VV[85]; |
1973 |
while(!endp(V120)) |
while(!endp(V120)) |
1974 |
if(eql(x,V120->c.c_car)){ |
if(eql(x,V120->c.c_car)){ |
1975 |
goto T780; |
goto T780; |
1987 |
base[3]= (V85); |
base[3]= (V85); |
1988 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1989 |
return; |
return; |
1990 |
goto T777; |
goto T776; |
1991 |
T777:; |
T776:; |
1992 |
if((V113!= VV[109]))goto T785; |
if(!(((V82))==(VV[86]))){ |
1993 |
{register object x= (V81),V121= VV[66]; |
goto T786;} |
1994 |
|
{register object x= (V81),V121= VV[87]; |
1995 |
while(!endp(V121)) |
while(!endp(V121)) |
1996 |
if(eql(x,V121->c.c_car)){ |
if(eql(x,V121->c.c_car)){ |
1997 |
goto T788; |
goto T790; |
1998 |
}else V121=V121->c.c_cdr; |
}else V121=V121->c.c_cdr; |
1999 |
goto T787;} |
goto T789;} |
2000 |
goto T788; |
goto T790; |
2001 |
T788:; |
T790:; |
2002 |
base[2]= Ct; |
base[2]= Ct; |
2003 |
base[3]= Ct; |
base[3]= Ct; |
2004 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2005 |
return; |
return; |
2006 |
goto T787; |
goto T789; |
2007 |
T787:; |
T789:; |
2008 |
base[2]= Cnil; |
base[2]= Cnil; |
2009 |
base[3]= (V85); |
base[3]= (V85); |
2010 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2011 |
return; |
return; |
2012 |
goto T785; |
goto T786; |
2013 |
T785:; |
T786:; |
2014 |
if((V113!= VV[13]))goto T793; |
if(!(((V82))==(VV[88]))){ |
2015 |
{register object x= (V81),V122= VV[67]; |
goto T796;} |
2016 |
|
{register object x= (V81),V122= VV[89]; |
2017 |
while(!endp(V122)) |
while(!endp(V122)) |
2018 |
if(eql(x,V122->c.c_car)){ |
if(eql(x,V122->c.c_car)){ |
2019 |
goto T796; |
goto T800; |
2020 |
}else V122=V122->c.c_cdr; |
}else V122=V122->c.c_cdr; |
2021 |
goto T795;} |
goto T799;} |
2022 |
goto T796; |
goto T800; |
2023 |
T796:; |
T800:; |
2024 |
base[2]= (*(LnkLI105))((V82),(V83)); |
base[2]= Ct; |
2025 |
base[3]= Ct; |
base[3]= Ct; |
2026 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2027 |
return; |
return; |
2028 |
goto T795; |
goto T799; |
2029 |
T795:; |
T799:; |
2030 |
base[2]= Cnil; |
base[2]= Cnil; |
2031 |
base[3]= (V85); |
base[3]= (V85); |
2032 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2033 |
return; |
return; |
2034 |
goto T793; |
goto T796; |
2035 |
T793:; |
T796:; |
2036 |
if((V113!= VV[68]))goto T801; |
if(!(((V82))==(VV[90]))){ |
2037 |
if(!(((V81))==(VV[68]))){ |
goto T806;} |
2038 |
goto T803;} |
{register object x= (V81),V123= VV[91]; |
2039 |
base[2]= (*(LnkLI105))((V82),(V83)); |
while(!endp(V123)) |
2040 |
|
if(eql(x,V123->c.c_car)){ |
2041 |
|
goto T810; |
2042 |
|
}else V123=V123->c.c_cdr; |
2043 |
|
goto T809;} |
2044 |
|
goto T810; |
2045 |
|
T810:; |
2046 |
|
base[2]= Ct; |
2047 |
base[3]= Ct; |
base[3]= Ct; |
2048 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2049 |
return; |
return; |
2050 |
goto T803; |
goto T809; |
2051 |
T803:; |
T809:; |
2052 |
base[2]= Cnil; |
base[2]= Cnil; |
2053 |
base[3]= (V85); |
base[3]= (V85); |
2054 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2055 |
return; |
return; |
2056 |
goto T801; |
goto T806; |
2057 |
T801:; |
T806:; |
2058 |
if((V113!= VV[69]))goto T809; |
if(!(((V82))==(VV[92]))){ |
2059 |
if(!(((V81))==(VV[69]))){ |
goto T816;} |
2060 |
goto T811;} |
if(!(((V81))==(VV[92]))){ |
2061 |
base[2]= (*(LnkLI105))((V82),(V83)); |
goto T819;} |
2062 |
|
base[2]= Ct; |
2063 |
base[3]= Ct; |
base[3]= Ct; |
2064 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2065 |
return; |
return; |
2066 |
goto T811; |
goto T819; |
2067 |
T811:; |
T819:; |
2068 |
base[2]= Cnil; |
base[2]= Cnil; |
2069 |
base[3]= (V85); |
base[3]= (V85); |
2070 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2071 |
return; |
return; |
2072 |
goto T809; |
goto T816; |
2073 |
T809:; |
T816:; |
2074 |
if((V113!= VV[31]))goto T817; |
if(!(((V82))==(VV[57]))){ |
2075 |
{register object x= (V81),V123= VV[70]; |
goto T826;} |
2076 |
while(!endp(V123)) |
if(!(((V81))==(VV[57]))){ |
2077 |
if(eql(x,V123->c.c_car)){ |
goto T829;} |
2078 |
goto T820; |
base[2]= Ct; |
|
}else V123=V123->c.c_cdr; |
|
|
goto T819;} |
|
|
goto T820; |
|
|
T820:; |
|
|
base[2]= (*(LnkLI105))((V82),(V83)); |
|
2079 |
base[3]= Ct; |
base[3]= Ct; |
2080 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2081 |
return; |
return; |
2082 |
goto T819; |
goto T829; |
2083 |
T819:; |
T829:; |
2084 |
base[2]= Cnil; |
base[2]= Cnil; |
2085 |
base[3]= (V85); |
base[3]= (V85); |
2086 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2087 |
return; |
return; |
2088 |
goto T817; |
goto T826; |
2089 |
T817:; |
T826:; |
2090 |
if((V113!= VV[90]) |
if(!(((V82))==(VV[93]))){ |
2091 |
&& (V113!= VV[91]) |
goto T836;} |
2092 |
&& (V113!= VV[32]))goto T825; |
{register object x= (V81),V124= VV[94]; |
|
{register object x= (V81),V124= VV[71]; |
|
2093 |
while(!endp(V124)) |
while(!endp(V124)) |
2094 |
if(eql(x,V124->c.c_car)){ |
if(eql(x,V124->c.c_car)){ |
2095 |
goto T828; |
goto T840; |
2096 |
}else V124=V124->c.c_cdr; |
}else V124=V124->c.c_cdr; |
2097 |
goto T827;} |
goto T839;} |
2098 |
goto T828; |
goto T840; |
2099 |
T828:; |
T840:; |
2100 |
base[2]= (*(LnkLI105))((V82),(V83)); |
base[2]= Ct; |
2101 |
base[3]= Ct; |
base[3]= Ct; |
2102 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2103 |
return; |
return; |
2104 |
goto T827; |
goto T839; |
2105 |
T827:; |
T839:; |
2106 |
base[2]= Cnil; |
base[2]= Cnil; |
2107 |
base[3]= (V85); |
base[3]= (V85); |
2108 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2109 |
return; |
return; |
2110 |
goto T825; |
goto T836; |
2111 |
T825:; |
T836:; |
2112 |
if((V113!= VV[72]))goto T833; |
if(!(((V81))==(VV[93]))){ |
2113 |
if(!(((V81))==(VV[72]))){ |
goto T846;} |
|
goto T835;}{object V125; |
|
|
V125= car((V82)); |
|
|
if(V125==Cnil)goto T839; |
|
|
V78= V125; |
|
|
goto T838; |
|
|
goto T839; |
|
|
T839:;} |
|
|
V78= Ct; |
|
|
goto T838; |
|
|
T838:;{object V126; |
|
|
V126= car((V83)); |
|
|
if(V126==Cnil)goto T842; |
|
|
V79= V126; |
|
|
goto T841; |
|
|
goto T842; |
|
|
T842:;} |
|
|
V79= Ct; |
|
|
goto T841; |
|
|
T841:; |
|
|
goto TTL; |
|
|
goto T835; |
|
|
T835:; |
|
2114 |
base[2]= Cnil; |
base[2]= Cnil; |
2115 |
base[3]= (V85); |
base[3]= (V86); |
2116 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2117 |
return; |
return; |
2118 |
goto T833; |
goto T846; |
2119 |
T833:; |
T846:; |
2120 |
if((V113!= VV[26]))goto T846; |
if(((V82))==(VV[28])){ |
2121 |
if(((V81))==(VV[26])){ |
goto T850;} |
2122 |
goto T847;} |
if(!(((V82))==(VV[27]))){ |
2123 |
if(!(((V81))==(VV[22]))){ |
goto T851;} |
2124 |
goto T848;} |
goto T850; |
2125 |
goto T847; |
T850:; |
2126 |
T847:; |
if(((V81))==(VV[28])){ |
2127 |
if(endp_prop((V82))){ |
goto T855;} |
2128 |
goto T853;} |
if((get((V81),VV[35],Cnil))==Cnil){ |
2129 |
if(!((car((V82)))==(VV[17]))){ |
goto T856;} |
2130 |
goto T854;} |
goto T855; |
2131 |
goto T853; |
T855:; |
2132 |
T853:; |
base[2]= Ct; |
|
if(endp_prop((V83))){ |
|
|
goto T852;} |
|
|
if((car((V83)))==(VV[17])){ |
|
|
goto T852;} |
|
|
base[2]= Cnil; |
|
2133 |
base[3]= Ct; |
base[3]= Ct; |
2134 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2135 |
return; |
return; |
2136 |
goto T854; |
goto T856; |
2137 |
T854:; |
T856:; |
|
if(endp_prop((V83))){ |
|
|
goto T852;} |
|
|
if((car((V83)))==(VV[17])){ |
|
|
goto T852;} |
|
|
if(equal(car((V82)),car((V83)))){ |
|
|
goto T852;} |
|
2138 |
base[2]= Cnil; |
base[2]= Cnil; |
2139 |
base[3]= Ct; |
base[3]= (V85); |
2140 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2141 |
return; |
return; |
2142 |
goto T852; |
goto T851; |
2143 |
T852:; |
T851:; |
2144 |
if(endp_prop(cdr((V82)))){ |
if(!(((V81))==(VV[28]))){ |
2145 |
goto T873;} |
goto T865;} |
2146 |
if(!((cadr((V82)))==(VV[17]))){ |
base[2]= Cnil; |
2147 |
goto T872;} |
base[3]= (V86); |
|
goto T873; |
|
|
T873:; |
|
|
if(endp_prop(cdr((V83)))){ |
|
|
goto T877;} |
|
|
if(!((cadr((V83)))==(VV[17]))){ |
|
|
goto T878;} |
|
|
goto T877; |
|
|
T877:; |
|
|
base[2]= Ct; |
|
|
base[3]= Ct; |
|
2148 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2149 |
return; |
return; |
2150 |
|
goto T865; |
2151 |
|
T865:; |
2152 |
|
V87= get((V81),VV[35],Cnil); |
2153 |
|
if(((V87))==Cnil){ |
2154 |
|
goto T870;} |
2155 |
|
{object V125; |
2156 |
|
V125= get((V82),VV[35],Cnil); |
2157 |
|
if(((V125))==Cnil){ |
2158 |
|
goto T875;} |
2159 |
|
{register object V126; |
2160 |
|
V126= (V87); |
2161 |
goto T878; |
goto T878; |
2162 |
T878:; |
T878:; |
2163 |
|
if(((V126))!=Cnil){ |
2164 |
|
goto T879;} |
2165 |
base[2]= Cnil; |
base[2]= Cnil; |
2166 |
base[3]= Ct; |
base[3]= Ct; |
2167 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2168 |
return; |
return; |
2169 |
goto T872; |
goto T879; |
2170 |
T872:; |
T879:; |
2171 |
if(endp_prop(cdr((V83)))){ |
if(!(((V126))==(V125))){ |
2172 |
goto T887;} |
goto T885;} |
|
if(!((cadr((V83)))==(VV[17]))){ |
|
|
goto T886;} |
|
|
goto T887; |
|
|
T887:; |
|
2173 |
base[2]= Ct; |
base[2]= Ct; |
2174 |
base[3]= Ct; |
base[3]= Ct; |
2175 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2176 |
return; |
return; |
2177 |
goto T886; |
goto T885; |
2178 |
T886:; |
T885:; |
2179 |
base[2]= (*(LnkLI93))(cadr((V82)),cadr((V83))); |
V126= structure_ref((V126),VV[35],4); |
2180 |
|
goto T878;} |
2181 |
|
goto T875; |
2182 |
|
T875:; |
2183 |
|
base[2]= Cnil; |
2184 |
|
base[3]= (V86); |
2185 |
|
vs_top=(vs_base=base+2)+2; |
2186 |
|
return;} |
2187 |
|
goto T870; |
2188 |
|
T870:; |
2189 |
|
if(!(((V82))==(VV[95]))){ |
2190 |
|
goto T896;} |
2191 |
|
{register object x= (V81),V128= VV[96]; |
2192 |
|
while(!endp(V128)) |
2193 |
|
if(eql(x,V128->c.c_car)){ |
2194 |
|
goto T901; |
2195 |
|
}else V128=V128->c.c_cdr; |
2196 |
|
goto T899;} |
2197 |
|
goto T901; |
2198 |
|
T901:; |
2199 |
|
if(((*(LnkLI142))((V83),(V84)))==Cnil){ |
2200 |
|
goto T899;} |
2201 |
|
base[2]= Ct; |
2202 |
base[3]= Ct; |
base[3]= Ct; |
2203 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2204 |
return; |
return; |
2205 |
goto T848; |
goto T899; |
2206 |
T848:; |
T899:; |
2207 |
base[2]= Cnil; |
base[2]= Cnil; |
2208 |
base[3]= (V85); |
base[3]= (V85); |
2209 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2210 |
return; |
return; |
2211 |
goto T846; |
goto T896; |
2212 |
T846:; |
T896:; |
2213 |
if((V113!= VV[22]))goto T897; |
if((get((V82),VV[35],Cnil))==Cnil){ |
2214 |
if(!(((V81))==(VV[22]))){ |
goto T908;} |
|
goto T899;} |
|
|
if(endp_prop((V82))){ |
|
|
goto T902;} |
|
|
if(!((car((V82)))==(VV[17]))){ |
|
|
goto T903;} |
|
|
goto T902; |
|
|
T902:; |
|
|
if(endp_prop((V83))){ |
|
|
goto T901;} |
|
|
if((car((V83)))==(VV[17])){ |
|
|
goto T901;} |
|
2215 |
base[2]= Cnil; |
base[2]= Cnil; |
2216 |
base[3]= Ct; |
base[3]= (V85); |
2217 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2218 |
return; |
return; |
2219 |
goto T903; |
goto T908; |
2220 |
T903:; |
T908:; |
2221 |
if(endp_prop((V83))){ |
{object V129= (V81); |
2222 |
goto T901;} |
if((V129!= VV[31]))goto T912; |
2223 |
if((car((V83)))==(VV[17])){ |
{object V130= (V82); |
2224 |
goto T901;} |
if((V130!= VV[31]))goto T913; |
2225 |
if(equal(car((V82)),car((V83)))){ |
base[2]= Ct; |
|
goto T901;} |
|
|
base[2]= Cnil; |
|
2226 |
base[3]= Ct; |
base[3]= Ct; |
2227 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2228 |
return; |
return; |
2229 |
goto T901; |
goto T913; |
2230 |
T901:; |
T913:; |
2231 |
if(endp_prop(cdr((V82)))){ |
if((V130!= VV[13]) |
2232 |
goto T922;} |
&& (V130!= VV[106]))goto T916; |
2233 |
if(!((cadr((V82)))==(VV[17]))){ |
if(((*(LnkLI142))(VV[97],(V84)))==Cnil){ |
2234 |
goto T921;} |
goto T918;} |
|
goto T922; |
|
|
T922:; |
|
|
if(endp_prop(cdr((V83)))){ |
|
|
goto T926;} |
|
|
if(!((cadr((V83)))==(VV[17]))){ |
|
|
goto T927;} |
|
|
goto T926; |
|
|
T926:; |
|
2235 |
base[2]= Ct; |
base[2]= Ct; |
2236 |
base[3]= Ct; |
base[3]= Ct; |
2237 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2238 |
return; |
return; |
2239 |
goto T927; |
goto T918; |
2240 |
T927:; |
T918:; |
2241 |
base[2]= Cnil; |
base[2]= Cnil; |
2242 |
base[3]= Ct; |
base[3]= Ct; |
2243 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2244 |
return; |
return; |
2245 |
goto T921; |
goto T916; |
2246 |
T921:; |
T916:; |
2247 |
if(endp_prop(cdr((V83)))){ |
base[2]= Cnil; |
2248 |
goto T936;} |
base[3]= (V86); |
2249 |
if(!((cadr((V83)))==(VV[17]))){ |
vs_top=(vs_base=base+2)+2; |
2250 |
goto T935;} |
return;} |
2251 |
goto T936; |
goto T912; |
2252 |
T936:; |
T912:; |
2253 |
|
if((V129!= VV[32]))goto T926; |
2254 |
|
{object V131= (V82); |
2255 |
|
if((V131!= VV[106]))goto T927; |
2256 |
|
if(((*(LnkLI142))(VV[98],(V84)))==Cnil){ |
2257 |
|
goto T929;} |
2258 |
base[2]= Ct; |
base[2]= Ct; |
2259 |
base[3]= Ct; |
base[3]= Ct; |
2260 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2261 |
return; |
return; |
2262 |
goto T935; |
goto T929; |
2263 |
T935:; |
T929:; |
2264 |
base[2]= (*(LnkLI93))(cadr((V82)),cadr((V83))); |
base[2]= Cnil; |
2265 |
base[3]= Ct; |
base[3]= Ct; |
2266 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2267 |
return; |
return; |
2268 |
goto T899; |
goto T927; |
2269 |
T899:; |
T927:; |
2270 |
base[2]= Cnil; |
base[2]= Cnil; |
2271 |
base[3]= (V85); |
base[3]= (V86); |
2272 |
|
vs_top=(vs_base=base+2)+2; |
2273 |
|
return;} |
2274 |
|
goto T926; |
2275 |
|
T926:; |
2276 |
|
if((V129!= VV[122]))goto T937; |
2277 |
|
{register object x= (V82),V132= VV[99]; |
2278 |
|
while(!endp(V132)) |
2279 |
|
if(eql(x,V132->c.c_car)){ |
2280 |
|
goto T940; |
2281 |
|
}else V132=V132->c.c_cdr; |
2282 |
|
goto T939;} |
2283 |
|
goto T940; |
2284 |
|
T940:; |
2285 |
|
base[2]= Ct; |
2286 |
|
base[3]= Ct; |
2287 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2288 |
return; |
return; |
2289 |
goto T897; |
goto T939; |
2290 |
T897:; |
T939:; |
2291 |
if(((V84))==Cnil){ |
base[2]= Cnil; |
2292 |
|
base[3]= (V86); |
2293 |
|
vs_top=(vs_base=base+2)+2; |
2294 |
|
return; |
2295 |
|
goto T937; |
2296 |
|
T937:; |
2297 |
|
if((V129!= VV[143]))goto T945; |
2298 |
|
{register object x= (V82),V133= VV[100]; |
2299 |
|
while(!endp(V133)) |
2300 |
|
if(eql(x,V133->c.c_car)){ |
2301 |
|
goto T948; |
2302 |
|
}else V133=V133->c.c_cdr; |
2303 |
goto T947;} |
goto T947;} |
2304 |
base[2]= (((V80))==((V81))?Ct:Cnil); |
goto T948; |
2305 |
|
T948:; |
2306 |
|
base[2]= Ct; |
2307 |
base[3]= Ct; |
base[3]= Ct; |
2308 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2309 |
return; |
return; |
2310 |
goto T947; |
goto T947; |
2311 |
T947:; |
T947:; |
2312 |
base[2]= Cnil; |
base[2]= Cnil; |
2313 |
base[3]= Cnil; |
base[3]= (V86); |
2314 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2315 |
return;}} |
return; |
2316 |
} |
goto T945; |
2317 |
} |
T945:; |
2318 |
/* local entry for function SUB-INTERVAL-P */ |
if((V129!= VV[123]))goto T953; |
2319 |
|
{register object x= (V82),V134= VV[101]; |
2320 |
static object LI22(V129,V130) |
while(!endp(V134)) |
2321 |
|
if(eql(x,V134->c.c_car)){ |
2322 |
register object V129;register object V130; |
goto T956; |
2323 |
{ VMB22 VMS22 VMV22 |
}else V134=V134->c.c_cdr; |
|
goto TTL; |
|
|
TTL:; |
|
|
{register object V131; |
|
|
register object V132; |
|
|
register object V133; |
|
|
register object V134; |
|
|
V131= Cnil; |
|
|
V132= Cnil; |
|
|
V133= Cnil; |
|
|
V134= Cnil; |
|
|
if(!(endp_prop((V129)))){ |
|
2324 |
goto T955;} |
goto T955;} |
2325 |
V131= VV[17]; |
goto T956; |
2326 |
V132= VV[17]; |
T956:; |
2327 |
goto T953; |
base[2]= Ct; |
2328 |
|
base[3]= Ct; |
2329 |
|
vs_top=(vs_base=base+2)+2; |
2330 |
|
return; |
2331 |
goto T955; |
goto T955; |
2332 |
T955:; |
T955:; |
2333 |
if(!(endp_prop(cdr((V129))))){ |
base[2]= Cnil; |
2334 |
goto T961;} |
base[3]= (V86); |
2335 |
V131= car((V129)); |
vs_top=(vs_base=base+2)+2; |
2336 |
V132= VV[17]; |
return; |
|
goto T953; |
|
|
goto T961; |
|
|
T961:; |
|
|
V131= car((V129)); |
|
|
V132= cadr((V129)); |
|
2337 |
goto T953; |
goto T953; |
2338 |
T953:; |
T953:; |
2339 |
if(!(endp_prop((V130)))){ |
if((V129!= VV[144]))goto T961; |
2340 |
|
{register object x= (V82),V135= VV[102]; |
2341 |
|
while(!endp(V135)) |
2342 |
|
if(eql(x,V135->c.c_car)){ |
2343 |
|
goto T964; |
2344 |
|
}else V135=V135->c.c_cdr; |
2345 |
|
goto T963;} |
2346 |
|
goto T964; |
2347 |
|
T964:; |
2348 |
|
base[2]= Ct; |
2349 |
|
base[3]= Ct; |
2350 |
|
vs_top=(vs_base=base+2)+2; |
2351 |
|
return; |
2352 |
|
goto T963; |
2353 |
|
T963:; |
2354 |
|
base[2]= Cnil; |
2355 |
|
base[3]= (V86); |
2356 |
|
vs_top=(vs_base=base+2)+2; |
2357 |
|
return; |
2358 |
|
goto T961; |
2359 |
|
T961:; |
2360 |
|
if((V129!= VV[145]))goto T969; |
2361 |
|
{register object x= (V82),V136= VV[103]; |
2362 |
|
while(!endp(V136)) |
2363 |
|
if(eql(x,V136->c.c_car)){ |
2364 |
|
goto T972; |
2365 |
|
}else V136=V136->c.c_cdr; |
2366 |
goto T971;} |
goto T971;} |
2367 |
V133= VV[17]; |
goto T972; |
2368 |
V134= VV[17]; |
T972:; |
2369 |
goto T969; |
base[2]= Ct; |
2370 |
|
base[3]= Ct; |
2371 |
|
vs_top=(vs_base=base+2)+2; |
2372 |
|
return; |
2373 |
goto T971; |
goto T971; |
2374 |
T971:; |
T971:; |
2375 |
if(!(endp_prop(cdr((V130))))){ |
base[2]= Cnil; |
2376 |
goto T977;} |
base[3]= (V86); |
2377 |
V133= car((V130)); |
vs_top=(vs_base=base+2)+2; |
2378 |
V134= VV[17]; |
return; |
|
goto T969; |
|
|
goto T977; |
|
|
T977:; |
|
|
V133= car((V130)); |
|
|
V134= cadr((V130)); |
|
2379 |
goto T969; |
goto T969; |
2380 |
T969:; |
T969:; |
2381 |
if(!(((V131))==(VV[17]))){ |
if((V129!= VV[24]))goto T977; |
2382 |
|
if(!(((V82))==(VV[104]))){ |
2383 |
|
goto T979;} |
2384 |
|
base[2]= Ct; |
2385 |
|
base[3]= Ct; |
2386 |
|
vs_top=(vs_base=base+2)+2; |
2387 |
|
return; |
2388 |
|
goto T979; |
2389 |
|
T979:; |
2390 |
|
base[2]= Cnil; |
2391 |
|
base[3]= (V86); |
2392 |
|
vs_top=(vs_base=base+2)+2; |
2393 |
|
return; |
2394 |
|
goto T977; |
2395 |
|
T977:; |
2396 |
|
if((V129!= VV[104]))goto T985; |
2397 |
|
if(!(((V82))==(VV[24]))){ |
2398 |
goto T987;} |
goto T987;} |
2399 |
if(((V133))==(VV[17])){ |
base[2]= Ct; |
2400 |
goto T985;} |
base[3]= Ct; |
2401 |
{object V135 = Cnil; |
vs_top=(vs_base=base+2)+2; |
2402 |
VMR22(V135)} |
return; |
2403 |
goto T987; |
goto T987; |
2404 |
T987:; |
T987:; |
2405 |
{object V136; |
base[2]= Cnil; |
2406 |
V136= (((V133))==(VV[17])?Ct:Cnil); |
base[3]= (V86); |
2407 |
if(((V136))==Cnil){ |
vs_top=(vs_base=base+2)+2; |
2408 |
goto T993;} |
return; |
|
goto T985; |
|
|
goto T993; |
|
|
T993:; |
|
|
if(!(type_of((V131))==t_cons)){ |
|
|
goto T996;} |
|
|
if(!(type_of((V133))==t_cons)){ |
|
|
goto T999;} |
|
|
if(!(number_compare(car((V131)),car((V133)))<0)){ |
|
|
goto T985;} |
|
|
{object V137 = Cnil; |
|
|
VMR22(V137)} |
|
|
goto T999; |
|
|
T999:; |
|
|
if(!(number_compare(car((V131)),(V133))<0)){ |
|
|
goto T985;} |
|
|
{object V138 = Cnil; |
|
|
VMR22(V138)} |
|
|
goto T996; |
|
|
T996:; |
|
|
{object V139; |
|
|
if(!(type_of((V133))==t_cons)){ |
|
|
goto T1007;} |
|
|
if(!(number_compare((V131),car((V133)))<=0)){ |
|
|
goto T1010;} |
|
|
{object V140 = Cnil; |
|
|
VMR22(V140)} |
|
|
goto T1010; |
|
|
T1010:; |
|
|
V139= Cnil; |
|
|
goto T1005; |
|
|
goto T1007; |
|
|
T1007:; |
|
|
if(!(number_compare((V131),(V133))<0)){ |
|
|
goto T1013;} |
|
|
{object V141 = Cnil; |
|
|
VMR22(V141)} |
|
|
goto T1013; |
|
|
T1013:; |
|
|
V139= Cnil; |
|
|
goto T1005; |
|
|
T1005:; |
|
|
if(((V139))==Cnil){ |
|
|
goto T985;}}} |
|
2409 |
goto T985; |
goto T985; |
2410 |
T985:; |
T985:; |
2411 |
if(!(((V132))==(VV[17]))){ |
if((V129!= VV[13]))goto T993; |
2412 |
|
{register object x= (V82),V137= VV[105]; |
2413 |
|
while(!endp(V137)) |
2414 |
|
if(eql(x,V137->c.c_car)){ |
2415 |
|
goto T996; |
2416 |
|
}else V137=V137->c.c_cdr; |
2417 |
|
goto T995;} |
2418 |
|
goto T996; |
2419 |
|
T996:; |
2420 |
|
base[2]= (*(LnkLI142))((V83),(V84)); |
2421 |
|
base[3]= Ct; |
2422 |
|
vs_top=(vs_base=base+2)+2; |
2423 |
|
return; |
2424 |
|
goto T995; |
2425 |
|
T995:; |
2426 |
|
base[2]= Cnil; |
2427 |
|
base[3]= (V86); |
2428 |
|
vs_top=(vs_base=base+2)+2; |
2429 |
|
return; |
2430 |
|
goto T993; |
2431 |
|
T993:; |
2432 |
|
if((V129!= VV[106]))goto T1001; |
2433 |
|
if(!(((V82))==(VV[106]))){ |
2434 |
|
goto T1003;} |
2435 |
|
base[2]= (*(LnkLI142))((V83),(V84)); |
2436 |
|
base[3]= Ct; |
2437 |
|
vs_top=(vs_base=base+2)+2; |
2438 |
|
return; |
2439 |
|
goto T1003; |
2440 |
|
T1003:; |
2441 |
|
base[2]= Cnil; |
2442 |
|
base[3]= (V86); |
2443 |
|
vs_top=(vs_base=base+2)+2; |
2444 |
|
return; |
2445 |
|
goto T1001; |
2446 |
|
T1001:; |
2447 |
|
if((V129!= VV[107]))goto T1009; |
2448 |
|
if(!(((V82))==(VV[107]))){ |
2449 |
|
goto T1011;} |
2450 |
|
base[2]= (*(LnkLI142))((V83),(V84)); |
2451 |
|
base[3]= Ct; |
2452 |
|
vs_top=(vs_base=base+2)+2; |
2453 |
|
return; |
2454 |
|
goto T1011; |
2455 |
|
T1011:; |
2456 |
|
base[2]= Cnil; |
2457 |
|
base[3]= (V86); |
2458 |
|
vs_top=(vs_base=base+2)+2; |
2459 |
|
return; |
2460 |
|
goto T1009; |
2461 |
|
T1009:; |
2462 |
|
if((V129!= VV[33]))goto T1017; |
2463 |
|
{register object x= (V82),V138= VV[108]; |
2464 |
|
while(!endp(V138)) |
2465 |
|
if(eql(x,V138->c.c_car)){ |
2466 |
|
goto T1020; |
2467 |
|
}else V138=V138->c.c_cdr; |
2468 |
goto T1019;} |
goto T1019;} |
2469 |
if(((V134))==(VV[17])){ |
goto T1020; |
2470 |
goto T1017;} |
T1020:; |
2471 |
{object V142 = Cnil; |
base[2]= (*(LnkLI142))((V83),(V84)); |
2472 |
VMR22(V142)} |
base[3]= Ct; |
2473 |
|
vs_top=(vs_base=base+2)+2; |
2474 |
|
return; |
2475 |
goto T1019; |
goto T1019; |
2476 |
T1019:; |
T1019:; |
2477 |
{object V143; |
base[2]= Cnil; |
2478 |
V143= (((V134))==(VV[17])?Ct:Cnil); |
base[3]= (V86); |
2479 |
if(((V143))==Cnil){ |
vs_top=(vs_base=base+2)+2; |
2480 |
goto T1025;} |
return; |
2481 |
goto T1017; |
goto T1017; |
2482 |
goto T1025; |
T1017:; |
2483 |
T1025:; |
if((V129!= VV[127]) |
2484 |
if(!(type_of((V132))==t_cons)){ |
&& (V129!= VV[128]) |
2485 |
goto T1028;} |
&& (V129!= VV[34]))goto T1025; |
2486 |
if(!(type_of((V134))==t_cons)){ |
{register object x= (V82),V139= VV[109]; |
2487 |
goto T1031;} |
while(!endp(V139)) |
2488 |
if(!(number_compare(car((V132)),car((V134)))>0)){ |
if(eql(x,V139->c.c_car)){ |
2489 |
goto T1017;} |
goto T1028; |
2490 |
{object V144 = Cnil; |
}else V139=V139->c.c_cdr; |
2491 |
VMR22(V144)} |
goto T1027;} |
|
goto T1031; |
|
|
T1031:; |
|
|
if(!(number_compare(car((V132)),(V134))>0)){ |
|
|
goto T1017;} |
|
|
{object V145 = Cnil; |
|
|
VMR22(V145)} |
|
2492 |
goto T1028; |
goto T1028; |
2493 |
T1028:; |
T1028:; |
2494 |
{object V146; |
base[2]= (*(LnkLI142))((V83),(V84)); |
2495 |
if(!(type_of((V134))==t_cons)){ |
base[3]= Ct; |
2496 |
goto T1039;} |
vs_top=(vs_base=base+2)+2; |
2497 |
if(!(number_compare((V132),car((V134)))>=0)){ |
return; |
2498 |
goto T1042;} |
goto T1027; |
2499 |
{object V147 = Cnil; |
T1027:; |
2500 |
VMR22(V147)} |
base[2]= Cnil; |
2501 |
goto T1042; |
base[3]= (V86); |
2502 |
T1042:; |
vs_top=(vs_base=base+2)+2; |
2503 |
V146= Cnil; |
return; |
2504 |
goto T1037; |
goto T1025; |
2505 |
|
T1025:; |
2506 |
|
if((V129!= VV[110]))goto T1033; |
2507 |
|
if(!(((V82))==(VV[110]))){ |
2508 |
|
goto T1035;}{object V140; |
2509 |
|
V140= car((V83)); |
2510 |
|
if(V140==Cnil)goto T1039; |
2511 |
|
V79= V140; |
2512 |
|
goto T1038; |
2513 |
goto T1039; |
goto T1039; |
2514 |
T1039:; |
T1039:;} |
2515 |
if(!(number_compare((V132),(V134))>0)){ |
V79= Ct; |
2516 |
goto T1045;} |
goto T1038; |
2517 |
{object V148 = Cnil; |
T1038:;{object V141; |
2518 |
VMR22(V148)} |
V141= car((V84)); |
2519 |
goto T1045; |
if(V141==Cnil)goto T1042; |
2520 |
T1045:; |
V80= V141; |
2521 |
V146= Cnil; |
goto T1041; |
2522 |
goto T1037; |
goto T1042; |
2523 |
T1037:; |
T1042:;} |
2524 |
if(((V146))==Cnil){ |
V80= Ct; |
2525 |
goto T1017;}}} |
goto T1041; |
2526 |
goto T1017; |
T1041:; |
2527 |
T1017:; |
goto TTL; |
2528 |
{object V149 = Ct; |
goto T1035; |
2529 |
VMR22(V149)}} |
T1035:; |
2530 |
return Cnil; |
base[2]= Cnil; |
2531 |
|
base[3]= (V86); |
2532 |
|
vs_top=(vs_base=base+2)+2; |
2533 |
|
return; |
2534 |
|
goto T1033; |
2535 |
|
T1033:; |
2536 |
|
if((V129!= VV[26]))goto T1046; |
2537 |
|
if(((V82))==(VV[26])){ |
2538 |
|
goto T1047;} |
2539 |
|
if(!(((V82))==(VV[22]))){ |
2540 |
|
goto T1048;} |
2541 |
|
goto T1047; |
2542 |
|
T1047:; |
2543 |
|
if(endp_prop((V83))){ |
2544 |
|
goto T1053;} |
2545 |
|
if(!((car((V83)))==(VV[17]))){ |
2546 |
|
goto T1054;} |
2547 |
|
goto T1053; |
2548 |
|
T1053:; |
2549 |
|
if(endp_prop((V84))){ |
2550 |
|
goto T1052;} |
2551 |
|
if((car((V84)))==(VV[17])){ |
2552 |
|
goto T1052;} |
2553 |
|
base[2]= Cnil; |
2554 |
|
base[3]= Ct; |
2555 |
|
vs_top=(vs_base=base+2)+2; |
2556 |
|
return; |
2557 |
|
goto T1054; |
2558 |
|
T1054:; |
2559 |
|
if(endp_prop((V84))){ |
2560 |
|
goto T1052;} |
2561 |
|
if((car((V84)))==(VV[17])){ |
2562 |
|
goto T1052;} |
2563 |
|
if(equal(car((V83)),car((V84)))){ |
2564 |
|
goto T1052;} |
2565 |
|
base[2]= Cnil; |
2566 |
|
base[3]= Ct; |
2567 |
|
vs_top=(vs_base=base+2)+2; |
2568 |
|
return; |
2569 |
|
goto T1052; |
2570 |
|
T1052:; |
2571 |
|
if(endp_prop(cdr((V83)))){ |
2572 |
|
goto T1073;} |
2573 |
|
if(!((cadr((V83)))==(VV[17]))){ |
2574 |
|
goto T1072;} |
2575 |
|
goto T1073; |
2576 |
|
T1073:; |
2577 |
|
if(endp_prop(cdr((V84)))){ |
2578 |
|
goto T1077;} |
2579 |
|
if(!((cadr((V84)))==(VV[17]))){ |
2580 |
|
goto T1078;} |
2581 |
|
goto T1077; |
2582 |
|
T1077:; |
2583 |
|
base[2]= Ct; |
2584 |
|
base[3]= Ct; |
2585 |
|
vs_top=(vs_base=base+2)+2; |
2586 |
|
return; |
2587 |
|
goto T1078; |
2588 |
|
T1078:; |
2589 |
|
base[2]= Cnil; |
2590 |
|
base[3]= Ct; |
2591 |
|
vs_top=(vs_base=base+2)+2; |
2592 |
|
return; |
2593 |
|
goto T1072; |
2594 |
|
T1072:; |
2595 |
|
if(endp_prop(cdr((V84)))){ |
2596 |
|
goto T1087;} |
2597 |
|
if(!((cadr((V84)))==(VV[17]))){ |
2598 |
|
goto T1086;} |
2599 |
|
goto T1087; |
2600 |
|
T1087:; |
2601 |
|
base[2]= Ct; |
2602 |
|
base[3]= Ct; |
2603 |
|
vs_top=(vs_base=base+2)+2; |
2604 |
|
return; |
2605 |
|
goto T1086; |
2606 |
|
T1086:; |
2607 |
|
base[2]= (*(LnkLI130))(cadr((V83)),cadr((V84))); |
2608 |
|
base[3]= Ct; |
2609 |
|
vs_top=(vs_base=base+2)+2; |
2610 |
|
return; |
2611 |
|
goto T1048; |
2612 |
|
T1048:; |
2613 |
|
base[2]= Cnil; |
2614 |
|
base[3]= (V86); |
2615 |
|
vs_top=(vs_base=base+2)+2; |
2616 |
|
return; |
2617 |
|
goto T1046; |
2618 |
|
T1046:; |
2619 |
|
if((V129!= VV[22]))goto T1097; |
2620 |
|
if(!(((V82))==(VV[22]))){ |
2621 |
|
goto T1099;} |
2622 |
|
if(endp_prop((V83))){ |
2623 |
|
goto T1102;} |
2624 |
|
if(!((car((V83)))==(VV[17]))){ |
2625 |
|
goto T1103;} |
2626 |
|
goto T1102; |
2627 |
|
T1102:; |
2628 |
|
if(endp_prop((V84))){ |
2629 |
|
goto T1101;} |
2630 |
|
if((car((V84)))==(VV[17])){ |
2631 |
|
goto T1101;} |
2632 |
|
base[2]= Cnil; |
2633 |
|
base[3]= Ct; |
2634 |
|
vs_top=(vs_base=base+2)+2; |
2635 |
|
return; |
2636 |
|
goto T1103; |
2637 |
|
T1103:; |
2638 |
|
if(endp_prop((V84))){ |
2639 |
|
goto T1101;} |
2640 |
|
if((car((V84)))==(VV[17])){ |
2641 |
|
goto T1101;} |
2642 |
|
if(equal(car((V83)),car((V84)))){ |
2643 |
|
goto T1101;} |
2644 |
|
base[2]= Cnil; |
2645 |
|
base[3]= Ct; |
2646 |
|
vs_top=(vs_base=base+2)+2; |
2647 |
|
return; |
2648 |
|
goto T1101; |
2649 |
|
T1101:; |
2650 |
|
if(endp_prop(cdr((V83)))){ |
2651 |
|
goto T1122;} |
2652 |
|
if(!((cadr((V83)))==(VV[17]))){ |
2653 |
|
goto T1121;} |
2654 |
|
goto T1122; |
2655 |
|
T1122:; |
2656 |
|
if(endp_prop(cdr((V84)))){ |
2657 |
|
goto T1126;} |
2658 |
|
if(!((cadr((V84)))==(VV[17]))){ |
2659 |
|
goto T1127;} |
2660 |
|
goto T1126; |
2661 |
|
T1126:; |
2662 |
|
base[2]= Ct; |
2663 |
|
base[3]= Ct; |
2664 |
|
vs_top=(vs_base=base+2)+2; |
2665 |
|
return; |
2666 |
|
goto T1127; |
2667 |
|
T1127:; |
2668 |
|
base[2]= Cnil; |
2669 |
|
base[3]= Ct; |
2670 |
|
vs_top=(vs_base=base+2)+2; |
2671 |
|
return; |
2672 |
|
goto T1121; |
2673 |
|
T1121:; |
2674 |
|
if(endp_prop(cdr((V84)))){ |
2675 |
|
goto T1136;} |
2676 |
|
if(!((cadr((V84)))==(VV[17]))){ |
2677 |
|
goto T1135;} |
2678 |
|
goto T1136; |
2679 |
|
T1136:; |
2680 |
|
base[2]= Ct; |
2681 |
|
base[3]= Ct; |
2682 |
|
vs_top=(vs_base=base+2)+2; |
2683 |
|
return; |
2684 |
|
goto T1135; |
2685 |
|
T1135:; |
2686 |
|
base[2]= (*(LnkLI130))(cadr((V83)),cadr((V84))); |
2687 |
|
base[3]= Ct; |
2688 |
|
vs_top=(vs_base=base+2)+2; |
2689 |
|
return; |
2690 |
|
goto T1099; |
2691 |
|
T1099:; |
2692 |
|
base[2]= Cnil; |
2693 |
|
base[3]= (V86); |
2694 |
|
vs_top=(vs_base=base+2)+2; |
2695 |
|
return; |
2696 |
|
goto T1097; |
2697 |
|
T1097:; |
2698 |
|
if(((V85))==Cnil){ |
2699 |
|
goto T1147;} |
2700 |
|
base[2]= (((V81))==((V82))?Ct:Cnil); |
2701 |
|
base[3]= Ct; |
2702 |
|
vs_top=(vs_base=base+2)+2; |
2703 |
|
return; |
2704 |
|
goto T1147; |
2705 |
|
T1147:; |
2706 |
|
base[2]= Cnil; |
2707 |
|
base[3]= Cnil; |
2708 |
|
vs_top=(vs_base=base+2)+2; |
2709 |
|
return;}} |
2710 |
|
} |
2711 |
} |
} |
2712 |
/* local entry for function IN-INTERVAL-P */ |
/* local entry for function SUB-INTERVAL-P */ |
2713 |
|
|
2714 |
static object LI23(V152,V153) |
static object LI22(V144,V145) |
2715 |
|
|
2716 |
register object V152;register object V153; |
register object V144;register object V145; |
2717 |
{ VMB23 VMS23 VMV23 |
{ VMB22 VMS22 VMV22 |
2718 |
goto TTL; |
goto TTL; |
2719 |
TTL:; |
TTL:; |
2720 |
{register object V154; |
{register object V146; |
2721 |
register object V155; |
register object V147; |
2722 |
|
register object V148; |
2723 |
|
register object V149; |
2724 |
|
V146= Cnil; |
2725 |
|
V147= Cnil; |
2726 |
|
V148= Cnil; |
2727 |
|
V149= Cnil; |
2728 |
|
if(!(endp_prop((V144)))){ |
2729 |
|
goto T1155;} |
2730 |
|
V146= VV[17]; |
2731 |
|
V147= VV[17]; |
2732 |
|
goto T1153; |
2733 |
|
goto T1155; |
2734 |
|
T1155:; |
2735 |
|
if(!(endp_prop(cdr((V144))))){ |
2736 |
|
goto T1161;} |
2737 |
|
V146= car((V144)); |
2738 |
|
V147= VV[17]; |
2739 |
|
goto T1153; |
2740 |
|
goto T1161; |
2741 |
|
T1161:; |
2742 |
|
V146= car((V144)); |
2743 |
|
V147= cadr((V144)); |
2744 |
|
goto T1153; |
2745 |
|
T1153:; |
2746 |
|
if(!(endp_prop((V145)))){ |
2747 |
|
goto T1171;} |
2748 |
|
V148= VV[17]; |
2749 |
|
V149= VV[17]; |
2750 |
|
goto T1169; |
2751 |
|
goto T1171; |
2752 |
|
T1171:; |
2753 |
|
if(!(endp_prop(cdr((V145))))){ |
2754 |
|
goto T1177;} |
2755 |
|
V148= car((V145)); |
2756 |
|
V149= VV[17]; |
2757 |
|
goto T1169; |
2758 |
|
goto T1177; |
2759 |
|
T1177:; |
2760 |
|
V148= car((V145)); |
2761 |
|
V149= cadr((V145)); |
2762 |
|
goto T1169; |
2763 |
|
T1169:; |
2764 |
|
if(!(((V146))==(VV[17]))){ |
2765 |
|
goto T1187;} |
2766 |
|
if(((V148))==(VV[17])){ |
2767 |
|
goto T1185;} |
2768 |
|
{object V150 = Cnil; |
2769 |
|
VMR22(V150)} |
2770 |
|
goto T1187; |
2771 |
|
T1187:; |
2772 |
|
{object V151; |
2773 |
|
V151= (((V148))==(VV[17])?Ct:Cnil); |
2774 |
|
if(((V151))==Cnil){ |
2775 |
|
goto T1193;} |
2776 |
|
goto T1185; |
2777 |
|
goto T1193; |
2778 |
|
T1193:; |
2779 |
|
if(!(type_of((V146))==t_cons)){ |
2780 |
|
goto T1196;} |
2781 |
|
if(!(type_of((V148))==t_cons)){ |
2782 |
|
goto T1199;} |
2783 |
|
if(!(number_compare(car((V146)),car((V148)))<0)){ |
2784 |
|
goto T1185;} |
2785 |
|
{object V152 = Cnil; |
2786 |
|
VMR22(V152)} |
2787 |
|
goto T1199; |
2788 |
|
T1199:; |
2789 |
|
if(!(number_compare(car((V146)),(V148))<0)){ |
2790 |
|
goto T1185;} |
2791 |
|
{object V153 = Cnil; |
2792 |
|
VMR22(V153)} |
2793 |
|
goto T1196; |
2794 |
|
T1196:; |
2795 |
|
{object V154; |
2796 |
|
if(!(type_of((V148))==t_cons)){ |
2797 |
|
goto T1207;} |
2798 |
|
if(!(number_compare((V146),car((V148)))<=0)){ |
2799 |
|
goto T1210;} |
2800 |
|
{object V155 = Cnil; |
2801 |
|
VMR22(V155)} |
2802 |
|
goto T1210; |
2803 |
|
T1210:; |
2804 |
V154= Cnil; |
V154= Cnil; |
2805 |
V155= Cnil; |
goto T1205; |
2806 |
if(!(endp_prop((V153)))){ |
goto T1207; |
2807 |
goto T1051;} |
T1207:; |
2808 |
V154= VV[17]; |
if(!(number_compare((V146),(V148))<0)){ |
2809 |
V155= VV[17]; |
goto T1213;} |
2810 |
goto T1049; |
{object V156 = Cnil; |
2811 |
goto T1051; |
VMR22(V156)} |
2812 |
T1051:; |
goto T1213; |
2813 |
if(!(endp_prop(cdr((V153))))){ |
T1213:; |
2814 |
goto T1057;} |
V154= Cnil; |
2815 |
V154= car((V153)); |
goto T1205; |
2816 |
V155= VV[17]; |
T1205:; |
2817 |
goto T1049; |
if(((V154))==Cnil){ |
2818 |
goto T1057; |
goto T1185;}}} |
2819 |
T1057:; |
goto T1185; |
2820 |
V154= car((V153)); |
T1185:; |
2821 |
V155= cadr((V153)); |
if(!(((V147))==(VV[17]))){ |
2822 |
goto T1049; |
goto T1219;} |
2823 |
T1049:; |
if(((V149))==(VV[17])){ |
2824 |
{object V156; |
goto T1217;} |
|
V156= (((V154))==(VV[17])?Ct:Cnil); |
|
|
if(((V156))==Cnil){ |
|
|
goto T1068;} |
|
|
goto T1065; |
|
|
goto T1068; |
|
|
T1068:; |
|
|
if(!(type_of((V154))==t_cons)){ |
|
|
goto T1071;} |
|
|
if(!(number_compare((V152),car((V154)))<=0)){ |
|
|
goto T1065;} |
|
2825 |
{object V157 = Cnil; |
{object V157 = Cnil; |
2826 |
VMR23(V157)} |
VMR22(V157)} |
2827 |
goto T1071; |
goto T1219; |
2828 |
T1071:; |
T1219:; |
2829 |
{object V158; |
{object V158; |
2830 |
if(!(number_compare((V152),(V154))<0)){ |
V158= (((V149))==(VV[17])?Ct:Cnil); |
|
goto T1077;} |
|
|
{object V159 = Cnil; |
|
|
VMR23(V159)} |
|
|
goto T1077; |
|
|
T1077:; |
|
|
V158= Cnil; |
|
2831 |
if(((V158))==Cnil){ |
if(((V158))==Cnil){ |
2832 |
goto T1065;}}} |
goto T1225;} |
2833 |
goto T1065; |
goto T1217; |
2834 |
T1065:; |
goto T1225; |
2835 |
{object V160; |
T1225:; |
2836 |
V160= (((V155))==(VV[17])?Ct:Cnil); |
if(!(type_of((V147))==t_cons)){ |
2837 |
if(((V160))==Cnil){ |
goto T1228;} |
2838 |
goto T1084;} |
if(!(type_of((V149))==t_cons)){ |
2839 |
goto T1081; |
goto T1231;} |
2840 |
goto T1084; |
if(!(number_compare(car((V147)),car((V149)))>0)){ |
2841 |
T1084:; |
goto T1217;} |
2842 |
if(!(type_of((V155))==t_cons)){ |
{object V159 = Cnil; |
2843 |
goto T1087;} |
VMR22(V159)} |
2844 |
if(!(number_compare((V152),car((V155)))>=0)){ |
goto T1231; |
2845 |
goto T1081;} |
T1231:; |
2846 |
{object V161 = Cnil; |
if(!(number_compare(car((V147)),(V149))>0)){ |
2847 |
VMR23(V161)} |
goto T1217;} |
2848 |
goto T1087; |
{object V160 = Cnil; |
2849 |
T1087:; |
VMR22(V160)} |
2850 |
{object V162; |
goto T1228; |
2851 |
if(!(number_compare((V152),(V155))>0)){ |
T1228:; |
2852 |
goto T1093;} |
{object V161; |
2853 |
|
if(!(type_of((V149))==t_cons)){ |
2854 |
|
goto T1239;} |
2855 |
|
if(!(number_compare((V147),car((V149)))>=0)){ |
2856 |
|
goto T1242;} |
2857 |
|
{object V162 = Cnil; |
2858 |
|
VMR22(V162)} |
2859 |
|
goto T1242; |
2860 |
|
T1242:; |
2861 |
|
V161= Cnil; |
2862 |
|
goto T1237; |
2863 |
|
goto T1239; |
2864 |
|
T1239:; |
2865 |
|
if(!(number_compare((V147),(V149))>0)){ |
2866 |
|
goto T1245;} |
2867 |
{object V163 = Cnil; |
{object V163 = Cnil; |
2868 |
VMR23(V163)} |
VMR22(V163)} |
2869 |
goto T1093; |
goto T1245; |
2870 |
T1093:; |
T1245:; |
2871 |
V162= Cnil; |
V161= Cnil; |
2872 |
if(((V162))==Cnil){ |
goto T1237; |
2873 |
goto T1081;}}} |
T1237:; |
2874 |
goto T1081; |
if(((V161))==Cnil){ |
2875 |
T1081:; |
goto T1217;}}} |
2876 |
|
goto T1217; |
2877 |
|
T1217:; |
2878 |
{object V164 = Ct; |
{object V164 = Ct; |
2879 |
VMR23(V164)}} |
VMR22(V164)}} |
2880 |
|
return Cnil; |
2881 |
|
} |
2882 |
|
/* local entry for function IN-INTERVAL-P */ |
2883 |
|
|
2884 |
|
static object LI23(V167,V168) |
2885 |
|
|
2886 |
|
register object V167;register object V168; |
2887 |
|
{ VMB23 VMS23 VMV23 |
2888 |
|
goto TTL; |
2889 |
|
TTL:; |
2890 |
|
{register object V169; |
2891 |
|
register object V170; |
2892 |
|
V169= Cnil; |
2893 |
|
V170= Cnil; |
2894 |
|
if(!(endp_prop((V168)))){ |
2895 |
|
goto T1251;} |
2896 |
|
V169= VV[17]; |
2897 |
|
V170= VV[17]; |
2898 |
|
goto T1249; |
2899 |
|
goto T1251; |
2900 |
|
T1251:; |
2901 |
|
if(!(endp_prop(cdr((V168))))){ |
2902 |
|
goto T1257;} |
2903 |
|
V169= car((V168)); |
2904 |
|
V170= VV[17]; |
2905 |
|
goto T1249; |
2906 |
|
goto T1257; |
2907 |
|
T1257:; |
2908 |
|
V169= car((V168)); |
2909 |
|
V170= cadr((V168)); |
2910 |
|
goto T1249; |
2911 |
|
T1249:; |
2912 |
|
{object V171; |
2913 |
|
V171= (((V169))==(VV[17])?Ct:Cnil); |
2914 |
|
if(((V171))==Cnil){ |
2915 |
|
goto T1268;} |
2916 |
|
goto T1265; |
2917 |
|
goto T1268; |
2918 |
|
T1268:; |
2919 |
|
if(!(type_of((V169))==t_cons)){ |
2920 |
|
goto T1271;} |
2921 |
|
if(!(number_compare((V167),car((V169)))<=0)){ |
2922 |
|
goto T1265;} |
2923 |
|
{object V172 = Cnil; |
2924 |
|
VMR23(V172)} |
2925 |
|
goto T1271; |
2926 |
|
T1271:; |
2927 |
|
{object V173; |
2928 |
|
if(!(number_compare((V167),(V169))<0)){ |
2929 |
|
goto T1277;} |
2930 |
|
{object V174 = Cnil; |
2931 |
|
VMR23(V174)} |
2932 |
|
goto T1277; |
2933 |
|
T1277:; |
2934 |
|
V173= Cnil; |
2935 |
|
if(((V173))==Cnil){ |
2936 |
|
goto T1265;}}} |
2937 |
|
goto T1265; |
2938 |
|
T1265:; |
2939 |
|
{object V175; |
2940 |
|
V175= (((V170))==(VV[17])?Ct:Cnil); |
2941 |
|
if(((V175))==Cnil){ |
2942 |
|
goto T1284;} |
2943 |
|
goto T1281; |
2944 |
|
goto T1284; |
2945 |
|
T1284:; |
2946 |
|
if(!(type_of((V170))==t_cons)){ |
2947 |
|
goto T1287;} |
2948 |
|
if(!(number_compare((V167),car((V170)))>=0)){ |
2949 |
|
goto T1281;} |
2950 |
|
{object V176 = Cnil; |
2951 |
|
VMR23(V176)} |
2952 |
|
goto T1287; |
2953 |
|
T1287:; |
2954 |
|
{object V177; |
2955 |
|
if(!(number_compare((V167),(V170))>0)){ |
2956 |
|
goto T1293;} |
2957 |
|
{object V178 = Cnil; |
2958 |
|
VMR23(V178)} |
2959 |
|
goto T1293; |
2960 |
|
T1293:; |
2961 |
|
V177= Cnil; |
2962 |
|
if(((V177))==Cnil){ |
2963 |
|
goto T1281;}}} |
2964 |
|
goto T1281; |
2965 |
|
T1281:; |
2966 |
|
{object V179 = Ct; |
2967 |
|
VMR23(V179)}} |
2968 |
return Cnil; |
return Cnil; |
2969 |
} |
} |
2970 |
/* local entry for function MATCH-DIMENSIONS */ |
/* local entry for function MATCH-DIMENSIONS */ |
2971 |
|
|
2972 |
static object LI24(V167,V168) |
static object LI24(V182,V183) |
2973 |
|
|
2974 |
object V167;register object V168; |
object V182;register object V183; |
2975 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
2976 |
goto TTL; |
goto TTL; |
2977 |
TTL:; |
TTL:; |
2978 |
if(((V167))!=Cnil){ |
if(((V182))!=Cnil){ |
2979 |
goto T1098;} |
goto T1298;} |
2980 |
{object V169 = (((V168))==Cnil?Ct:Cnil); |
{object V184 = (((V183))==Cnil?Ct:Cnil); |
2981 |
VMR24(V169)} |
VMR24(V184)} |
2982 |
goto T1098; |
goto T1298; |
2983 |
T1098:; |
T1298:; |
2984 |
if(!((car((V168)))==(VV[17]))){ |
if(!((car((V183)))==(VV[17]))){ |
2985 |
goto T1102;} |
goto T1302;} |
2986 |
goto T1100; |
goto T1300; |
2987 |
goto T1102; |
goto T1302; |
2988 |
T1102:; |
T1302:; |
2989 |
if(eql(car((V167)),car((V168)))){ |
if(eql(car((V182)),car((V183)))){ |
2990 |
goto T1100;} |
goto T1300;} |
2991 |
{object V170 = Cnil; |
{object V185 = Cnil; |
2992 |
VMR24(V170)} |
VMR24(V185)} |
2993 |
goto T1100; |
goto T1300; |
2994 |
T1100:; |
T1300:; |
2995 |
V167= cdr((V167)); |
V182= cdr((V182)); |
2996 |
V168= cdr((V168)); |
V183= cdr((V183)); |
2997 |
goto TTL; |
goto TTL; |
2998 |
return Cnil; |
return Cnil; |
2999 |
} |
} |
3000 |
/* local entry for function COERCE */ |
/* local entry for function COERCE */ |
3001 |
|
|
3002 |
static object LI25(V173,V174) |
static object LI25(V188,V189) |
3003 |
|
|
3004 |
register object V173;object V174; |
register object V188;object V189; |
3005 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
3006 |
goto TTL; |
goto TTL; |
3007 |
TTL:; |
TTL:; |
3008 |
base[0]= (V173); |
base[0]= (V188); |
3009 |
base[1]= (V174); |
base[1]= (V189); |
3010 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3011 |
(void) (*Lnk83)(); |
(void) (*Lnk121)(); |
3012 |
vs_top=sup; |
vs_top=sup; |
3013 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3014 |
goto T1107;} |
goto T1307;} |
3015 |
{object V175 = (V173); |
{object V190 = (V188); |
3016 |
VMR25(V175)} |
VMR25(V190)} |
3017 |
goto T1107; |
goto T1307; |
3018 |
T1107:; |
T1307:; |
3019 |
V174= (*(LnkLI102))((V174)); |
V189= (*(LnkLI139))((V189)); |
3020 |
{object V176= car((V174)); |
{object V191= car((V189)); |
3021 |
if((V176!= VV[41]))goto T1114; |
if((V191!= VV[45]))goto T1314; |
3022 |
{register object V177; |
{register object V192; |
3023 |
register object V178; |
register object V193; |
3024 |
V179 = make_fixnum((long)length((V173))); |
V194 = make_fixnum((long)length((V188))); |
3025 |
V178= one_minus(V179); |
V193= one_minus(V194); |
3026 |
V177= Cnil; |
V192= Cnil; |
3027 |
goto T1117; |
goto T1317; |
3028 |
T1117:; |
T1317:; |
3029 |
if(!(number_compare((V178),small_fixnum(0))<0)){ |
if(!(number_compare((V193),small_fixnum(0))<0)){ |
3030 |
goto T1118;} |
goto T1318;} |
3031 |
{object V180 = (V177); |
{object V195 = (V192); |
3032 |
VMR25(V180)} |
VMR25(V195)} |
3033 |
goto T1118; |
goto T1318; |
3034 |
T1118:; |
T1318:; |
3035 |
V181= elt((V173),fixint((V178))); |
V196= elt((V188),fixint((V193))); |
3036 |
V177= make_cons(/* INLINE-ARGS */V181,(V177)); |
V192= make_cons(/* INLINE-ARGS */V196,(V192)); |
3037 |
V178= one_minus((V178)); |
V193= one_minus((V193)); |
3038 |
goto T1117;} |
goto T1317;} |
3039 |
goto T1114; |
goto T1314; |
3040 |
T1114:; |
T1314:; |
3041 |
if((V176!= VV[22]) |
if((V191!= VV[22]) |
3042 |
&& (V176!= VV[26]))goto T1126; |
&& (V191!= VV[26]))goto T1326; |
3043 |
if(endp_prop(cdr((V174)))){ |
if(endp_prop(cdr((V189)))){ |
3044 |
goto T1127;} |
goto T1327;} |
3045 |
if(endp_prop(cddr((V174)))){ |
if(endp_prop(cddr((V189)))){ |
3046 |
goto T1127;} |
goto T1327;} |
3047 |
if((caddr((V174)))==(VV[17])){ |
if((caddr((V189)))==(VV[17])){ |
3048 |
goto T1127;} |
goto T1327;} |
3049 |
if(endp_prop(cdr(caddr((V174))))){ |
if(endp_prop(cdr(caddr((V189))))){ |
3050 |
goto T1127;} |
goto T1327;} |
3051 |
base[0]= VV[73]; |
base[0]= VV[111]; |
3052 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3053 |
Lerror(); |
Lerror(); |
3054 |
vs_top=sup; |
vs_top=sup; |
3055 |
goto T1127; |
goto T1327; |
3056 |
T1127:; |
T1327:; |
3057 |
{register object V182; |
{register object V197; |
3058 |
register object V183; |
register object V198; |
3059 |
register object V184; |
register object V199; |
3060 |
V185 = make_fixnum((long)length((V173))); |
V200 = make_fixnum((long)length((V188))); |
3061 |
V182= (VFUN_NARGS=2,(*(LnkLI110))((V174),V185)); |
V197= (VFUN_NARGS=2,(*(LnkLI146))((V189),V200)); |
3062 |
V184= make_fixnum((long)length((V173))); |
V199= make_fixnum((long)length((V188))); |
3063 |
V183= small_fixnum(0); |
V198= small_fixnum(0); |
3064 |
goto T1140; |
goto T1340; |
3065 |
T1140:; |
T1340:; |
3066 |
if(!(number_compare((V183),(V184))>=0)){ |
if(!(number_compare((V198),(V199))>=0)){ |
3067 |
goto T1141;} |
goto T1341;} |
3068 |
{object V186 = (V182); |
{object V201 = (V197); |
3069 |
VMR25(V186)} |
VMR25(V201)} |
3070 |
goto T1141; |
goto T1341; |
3071 |
T1141:; |
T1341:; |
3072 |
V187= elt((V173),fixint((V183))); |
V202= elt((V188),fixint((V198))); |
3073 |
(void)(elt_set((V182),fixint((V183)),/* INLINE-ARGS */V187)); |
(void)(elt_set((V197),fixint((V198)),/* INLINE-ARGS */V202)); |
3074 |
V183= one_plus((V183)); |
V198= one_plus((V198)); |
3075 |
goto T1140;} |
goto T1340;} |
3076 |
goto T1126; |
goto T1326; |
3077 |
T1126:; |
T1326:; |
3078 |
if((V176!= VV[109]))goto T1149; |
if((V191!= VV[104]))goto T1349; |
3079 |
base[0]= (V173); |
base[0]= (V188); |
3080 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3081 |
Lcharacter(); |
Lcharacter(); |
3082 |
vs_top=sup; |
vs_top=sup; |
3083 |
{object V188 = vs_base[0]; |
{object V203 = vs_base[0]; |
3084 |
VMR25(V188)} |
VMR25(V203)} |
3085 |
goto T1149; |
goto T1349; |
3086 |
T1149:; |
T1349:; |
3087 |
if((V176!= VV[69]))goto T1151; |
if((V191!= VV[107]))goto T1351; |
3088 |
base[0]= (V173); |
base[0]= (V188); |
3089 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3090 |
Lfloat(); |
Lfloat(); |
3091 |
vs_top=sup; |
vs_top=sup; |
3092 |
{object V189 = vs_base[0]; |
{object V204 = vs_base[0]; |
3093 |
VMR25(V189)} |
VMR25(V204)} |
3094 |
goto T1151; |
goto T1351; |
3095 |
T1151:; |
T1351:; |
3096 |
if((V176!= VV[31]))goto T1153; |
if((V191!= VV[33]))goto T1353; |
3097 |
base[0]= (V173); |
base[0]= (V188); |
3098 |
base[1]= VV[74]; |
base[1]= VV[112]; |
3099 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3100 |
Lfloat(); |
Lfloat(); |
3101 |
vs_top=sup; |
vs_top=sup; |
3102 |
{object V190 = vs_base[0]; |
{object V205 = vs_base[0]; |
3103 |
VMR25(V190)} |
VMR25(V205)} |
3104 |
goto T1153; |
goto T1353; |
3105 |
T1153:; |
T1353:; |
3106 |
if((V176!= VV[90]) |
if((V191!= VV[127]) |
3107 |
&& (V176!= VV[91]) |
&& (V191!= VV[128]) |
3108 |
&& (V176!= VV[32]))goto T1156; |
&& (V191!= VV[34]))goto T1356; |
3109 |
base[0]= (V173); |
base[0]= (V188); |
3110 |
base[1]= VV[75]; |
base[1]= VV[113]; |
3111 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3112 |
Lfloat(); |
Lfloat(); |
3113 |
vs_top=sup; |
vs_top=sup; |
3114 |
{object V191 = vs_base[0]; |
{object V206 = vs_base[0]; |
3115 |
VMR25(V191)} |
VMR25(V206)} |
3116 |
goto T1156; |
goto T1356; |
3117 |
T1156:; |
T1356:; |
3118 |
if((V176!= VV[72]))goto T1159; |
if((V191!= VV[110]))goto T1359; |
3119 |
if((cdr((V174)))==Cnil){ |
if((cdr((V189)))==Cnil){ |
3120 |
goto T1160;} |
goto T1360;} |
3121 |
if((cadr((V174)))==Cnil){ |
if((cadr((V189)))==Cnil){ |
3122 |
goto T1160;} |
goto T1360;} |
3123 |
if(!((cadr((V174)))==(VV[17]))){ |
if(!((cadr((V189)))==(VV[17]))){ |
3124 |
goto T1161;} |
goto T1361;} |
3125 |
goto T1160; |
goto T1360; |
3126 |
T1160:; |
T1360:; |
3127 |
base[1]= (V173); |
base[1]= (V188); |
3128 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3129 |
Lrealpart(); |
Lrealpart(); |
3130 |
vs_top=sup; |
vs_top=sup; |
3131 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3132 |
base[2]= (V173); |
base[2]= (V188); |
3133 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3134 |
Limagpart(); |
Limagpart(); |
3135 |
vs_top=sup; |
vs_top=sup; |
3137 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3138 |
Lcomplex(); |
Lcomplex(); |
3139 |
vs_top=sup; |
vs_top=sup; |
3140 |
{object V192 = vs_base[0]; |
{object V207 = vs_base[0]; |
3141 |
VMR25(V192)} |
VMR25(V207)} |
3142 |
goto T1161; |
goto T1361; |
3143 |
T1161:; |
T1361:; |
3144 |
base[1]= (V173); |
base[1]= (V188); |
3145 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3146 |
Lrealpart(); |
Lrealpart(); |
3147 |
vs_top=sup; |
vs_top=sup; |
3148 |
V193= vs_base[0]; |
V208= vs_base[0]; |
3149 |
base[0]= (*(LnkLI111))(V193,cadr((V174))); |
base[0]= (*(LnkLI147))(V208,cadr((V189))); |
3150 |
base[2]= (V173); |
base[2]= (V188); |
3151 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3152 |
Limagpart(); |
Limagpart(); |
3153 |
vs_top=sup; |
vs_top=sup; |
3154 |
V194= vs_base[0]; |
V209= vs_base[0]; |
3155 |
base[1]= (*(LnkLI111))(V194,cadr((V174))); |
base[1]= (*(LnkLI147))(V209,cadr((V189))); |
3156 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3157 |
Lcomplex(); |
Lcomplex(); |
3158 |
vs_top=sup; |
vs_top=sup; |
3159 |
{object V195 = vs_base[0]; |
{object V210 = vs_base[0]; |
3160 |
VMR25(V195)} |
VMR25(V210)} |
3161 |
goto T1159; |
goto T1359; |
3162 |
T1159:; |
T1359:; |
3163 |
base[0]= VV[76]; |
base[0]= VV[114]; |
3164 |
base[1]= (V173); |
base[1]= (V188); |
3165 |
base[2]= (V174); |
base[2]= (V189); |
3166 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3167 |
Lerror(); |
Lerror(); |
3168 |
vs_top=sup; |
vs_top=sup; |
3169 |
{object V196 = vs_base[0]; |
{object V211 = vs_base[0]; |
3170 |
VMR25(V196)}} |
VMR25(V211)}} |
3171 |
base[0]=base[0]; |
base[0]=base[0]; |
3172 |
return Cnil; |
return Cnil; |
3173 |
} |
} |
3177 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3178 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
3179 |
vs_reserve(VM26); |
vs_reserve(VM26); |
3180 |
{object V197; |
{object V212; |
3181 |
object V198; |
object V213; |
3182 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
3183 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
3184 |
V197=(base[0]); |
V212=(base[0]); |
3185 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
3186 |
if(vs_base>=vs_top){vs_top=sup;goto T1180;} |
if(vs_base>=vs_top){vs_top=sup;goto T1380;} |
3187 |
V198=(base[1]); |
V213=(base[1]); |
3188 |
vs_top=sup; |
vs_top=sup; |
3189 |
goto T1181; |
goto T1381; |
3190 |
goto T1180; |
goto T1380; |
3191 |
T1180:; |
T1380:; |
3192 |
V198= Cnil; |
V213= Cnil; |
3193 |
goto T1181; |
goto T1381; |
3194 |
T1181:; |
T1381:; |
3195 |
if(symbol_value(VV[77])==Cnil){ |
if(symbol_value(VV[115])==Cnil){ |
3196 |
base[2]= Cnil; |
base[2]= Cnil; |
3197 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3198 |
return;} |
return;} |
3199 |
if(!(((eql((V197),symbol_value(VV[77]))?Ct:Cnil))==Cnil)){ |
if(!(((eql((V212),symbol_value(VV[115]))?Ct:Cnil))==Cnil)){ |
3200 |
goto T1185;} |
goto T1385;} |
3201 |
goto T1183; |
goto T1383; |
3202 |
goto T1185; |
goto T1385; |
3203 |
T1185:; |
T1385:; |
3204 |
if(((eql((V198),symbol_value(VV[78]))?Ct:Cnil))==Cnil){ |
if(((eql((V213),symbol_value(VV[116]))?Ct:Cnil))==Cnil){ |
3205 |
goto T1183;} |
goto T1383;} |
3206 |
base[2]= Cnil; |
base[2]= Cnil; |
3207 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3208 |
return; |
return; |
3209 |
goto T1183; |
goto T1383; |
3210 |
T1183:; |
T1383:; |
3211 |
if(symbol_value(VV[79])==Cnil){ |
if(symbol_value(VV[117])==Cnil){ |
3212 |
base[2]= Cnil; |
base[2]= Cnil; |
3213 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3214 |
return;} |
return;} |
3215 |
base[2]= Ct; |
base[2]= Ct; |
3216 |
base[3]= VV[80]; |
base[3]= VV[118]; |
3217 |
base[4]= (V198); |
base[4]= (V213); |
3218 |
base[5]= (V197); |
base[5]= (V212); |
3219 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
3220 |
Lformat(); |
Lformat(); |
3221 |
return; |
return; |
3222 |
} |
} |
3223 |
} |
} |
3224 |
static object LnkTLI111(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[111],(void **)&LnkLI111,2,ap);va_end(ap);return V1;} /* COERCE */ |
static object LnkTLI147(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[147],(void **)&LnkLI147,2,ap);va_end(ap);return V1;} /* COERCE */ |
3225 |
static object LnkTLI110(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[110],(void **)&LnkLI110,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
static object LnkTLI146(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[146],(void **)&LnkLI146,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
3226 |
static object LnkTLI105(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[105],(void **)&LnkLI105,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */ |
static object LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */ |
3227 |
static object LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[104],(void **)&LnkLI104,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */ |
static object LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */ |
3228 |
static void LnkT103(){ call_or_link(VV[103],(void **)&Lnk103);} /* SUBTYPEP */ |
static void LnkT140(){ call_or_link(VV[140],(void **)&Lnk140);} /* SUBTYPEP */ |
3229 |
static object LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[102],(void **)&LnkLI102,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
static object LnkTLI139(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[139],(void **)&LnkLI139,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
3230 |
static void LnkT101(){ call_or_link(VV[101],(void **)&Lnk101);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT138(){ call_or_link(VV[138],(void **)&Lnk138);} /* STRUCTURE-SUBTYPE-P */ |
3231 |
static object LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[100],(void **)&LnkLI100,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI137(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[137],(void **)&LnkLI137,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
3232 |
static object LnkTLI99(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[99],(void **)&LnkLI99,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */ |
static object LnkTLI136(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[136],(void **)&LnkLI136,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */ |
3233 |
static object LnkTLI94(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[94],(void **)&LnkLI94,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
static object LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[131],(void **)&LnkLI131,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
3234 |
static object LnkTLI93(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[93],(void **)&LnkLI93,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */ |
static object LnkTLI130(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[130],(void **)&LnkLI130,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */ |
3235 |
static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* REALP */ |
static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* REALP */ |
3236 |
static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* RATIONALP */ |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* RATIONALP */ |
3237 |
static object LnkTLI87(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[87],(void **)&LnkLI87,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */ |
static object LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */ |
3238 |
static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* TYPEP */ |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* TYPEP */ |
3239 |
static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* ARRAY-HAS-FILL-POINTER-P */ |
3240 |
static object LnkTLI81(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[81],(void **)&LnkLI81,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */ |
static object LnkTLI119(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[119],(void **)&LnkLI119,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */ |
3241 |
|
|
3242 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3243 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |