487 |
T108:; |
T108:; |
488 |
if(!(type_of(car((V94)))==t_symbol)){ |
if(!(type_of(car((V94)))==t_symbol)){ |
489 |
goto T114;} |
goto T114;} |
490 |
|
{register object V98; |
491 |
V98= make_cons(car((V94)),Cnil); |
V98= make_cons(car((V94)),Cnil); |
492 |
V95= make_cons(/* INLINE-ARGS */V98,(V95)); |
V95= make_cons((V98),(V95));} |
493 |
{register object V99; |
{register object V99; |
494 |
V99= car((V94)); |
V99= car((V94)); |
495 |
V94= cdr((V94)); |
V94= cdr((V94)); |
497 |
goto T114; |
goto T114; |
498 |
T114:; |
T114:; |
499 |
{object V100= caar((V94)); |
{object V100= caar((V94)); |
500 |
if((V100!= VV[54]))goto T121; |
if((V100!= VV[54]))goto T122; |
501 |
V94= append(cdar((V94)),cdr((V94))); |
V94= append(cdar((V94)),cdr((V94))); |
502 |
goto T112; |
goto T112; |
503 |
goto T121; |
goto T122; |
504 |
T121:; |
T122:; |
505 |
if((V100!= VV[25]))goto T123; |
if((V100!= VV[25]))goto T124; |
506 |
{ |
{ |
507 |
object V101= cdar((V94)); |
object V101= cdar((V94)); |
508 |
if(endp(V101)){ |
if(endp(V101)){ |
509 |
goto T124;} |
goto T125;} |
510 |
goto T125; |
goto T126; |
511 |
T125:; |
T126:; |
512 |
{register object V102; |
{register object V102; |
513 |
V102= (V101->c.c_car); |
V102= (V101->c.c_car); |
514 |
|
{register object V103; |
515 |
V103= list(2,VV[25],(V102)); |
V103= list(2,VV[25],(V102)); |
516 |
V95= make_cons(/* INLINE-ARGS */V103,(V95));} |
V95= make_cons((V103),(V95));}} |
517 |
V101=MMcdr(V101); |
V101=MMcdr(V101); |
518 |
if(endp(V101)){ |
if(endp(V101)){ |
519 |
(void)(cdar((V94))); |
(void)(cdar((V94))); |
|
goto T124;} |
|
520 |
goto T125;} |
goto T125;} |
521 |
goto T124; |
goto T126;} |
522 |
T124:; |
goto T125; |
523 |
|
T125:; |
524 |
{register object V104; |
{register object V104; |
525 |
V104= car((V94)); |
V104= car((V94)); |
526 |
V94= cdr((V94)); |
V94= cdr((V94)); |
527 |
goto T112;} |
goto T112;} |
528 |
goto T123; |
goto T124; |
529 |
T123:; |
T124:; |
530 |
if((V100!= VV[55]))goto T131; |
if((V100!= VV[55]))goto T133; |
|
V96= make_cons(cadar((V94)),(V96)); |
|
531 |
{register object V105; |
{register object V105; |
532 |
V105= car((V94)); |
V105= cadar((V94)); |
533 |
V94= cdr((V94)); |
V96= make_cons((V105),(V96));} |
|
goto T112;} |
|
|
goto T131; |
|
|
T131:; |
|
|
V95= make_cons(car((V94)),(V95)); |
|
534 |
{register object V106; |
{register object V106; |
535 |
V106= car((V94)); |
V106= car((V94)); |
536 |
|
V94= cdr((V94)); |
537 |
|
goto T112;} |
538 |
|
goto T133; |
539 |
|
T133:; |
540 |
|
{register object V107; |
541 |
|
V107= car((V94)); |
542 |
|
V95= make_cons((V107),(V95));} |
543 |
|
{register object V108; |
544 |
|
V108= car((V94)); |
545 |
V94= cdr((V94));}} |
V94= cdr((V94));}} |
546 |
goto T112; |
goto T112; |
547 |
T112:; |
T112:; |
548 |
goto T107; |
goto T107; |
549 |
goto T105; |
goto T105; |
550 |
T105:; |
T105:; |
551 |
goto T146; |
goto T150; |
552 |
T146:; |
T150:; |
553 |
if(!(endp_prop((V96)))){ |
if(!(endp_prop((V96)))){ |
554 |
goto T147;} |
goto T151;} |
555 |
goto T144; |
goto T148; |
556 |
goto T147; |
goto T151; |
557 |
T147:; |
T151:; |
558 |
if(!(type_of(car((V96)))==t_symbol)){ |
if(!(type_of(car((V96)))==t_symbol)){ |
559 |
goto T153;} |
goto T157;} |
560 |
V107= make_cons(car((V96)),Cnil); |
{register object V109; |
561 |
V97= make_cons(/* INLINE-ARGS */V107,(V97)); |
V109= make_cons(car((V96)),Cnil); |
562 |
{register object V108; |
V97= make_cons((V109),(V97));} |
563 |
V108= car((V96)); |
{register object V110; |
564 |
|
V110= car((V96)); |
565 |
V96= cdr((V96)); |
V96= cdr((V96)); |
566 |
goto T151;} |
goto T155;} |
567 |
goto T153; |
goto T157; |
568 |
T153:; |
T157:; |
569 |
if(!((caar((V96)))==(VV[38]))){ |
if(!((caar((V96)))==(VV[38]))){ |
570 |
goto T161;} |
goto T166;} |
571 |
V96= append(cdar((V96)),cdr((V96))); |
V96= append(cdar((V96)),cdr((V96))); |
572 |
goto T151; |
goto T155; |
573 |
goto T161; |
goto T166; |
574 |
T161:; |
T166:; |
575 |
V97= make_cons(car((V96)),(V97)); |
{register object V111; |
576 |
{register object V109; |
V111= car((V96)); |
577 |
V109= car((V96)); |
V97= make_cons((V111),(V97));} |
578 |
|
{register object V112; |
579 |
|
V112= car((V96)); |
580 |
V96= cdr((V96));} |
V96= cdr((V96));} |
581 |
goto T151; |
goto T155; |
582 |
T151:; |
T155:; |
583 |
goto T146; |
goto T150; |
584 |
goto T144; |
goto T148; |
585 |
T144:; |
T148:; |
586 |
base[0]= Cnil; |
base[0]= Cnil; |
587 |
base[1]= VV[39]; |
base[1]= VV[39]; |
588 |
base[2]= (V92); |
base[2]= (V92); |
589 |
base[3]= (V93); |
base[3]= (V93); |
590 |
base[4]= VV[40]; |
base[4]= VV[40]; |
591 |
{object V110; |
{object V113; |
592 |
object V111= (V97); |
object V114= (V97); |
593 |
if(endp(V111)){ |
if(endp(V114)){ |
594 |
base[5]= Cnil; |
base[5]= Cnil; |
595 |
goto T176;} |
goto T182;} |
596 |
base[6]=V110=MMcons(Cnil,Cnil); |
base[6]=V113=MMcons(Cnil,Cnil); |
597 |
goto T177; |
goto T183; |
598 |
T177:; |
T183:; |
599 |
(V110->c.c_cdr)= (*(LnkLI56))((V111->c.c_car)); |
(V113->c.c_cdr)= (*(LnkLI56))((V114->c.c_car)); |
600 |
{object cdr_V110=MMcdr(V110);while(!endp(cdr_V110)) {cdr_V110=MMcdr(cdr_V110);V110=MMcdr(V110);}} |
{object cdr_V113=MMcdr(V113);while(!endp(cdr_V113)) {cdr_V113=MMcdr(cdr_V113);V113=MMcdr(V113);}} |
601 |
V111=MMcdr(V111); |
V114=MMcdr(V114); |
602 |
if(endp(V111)){ |
if(endp(V114)){ |
603 |
base[6]=base[6]->c.c_cdr; |
base[6]=base[6]->c.c_cdr; |
604 |
base[5]= base[6]; |
base[5]= base[6]; |
605 |
goto T176;} |
goto T182;} |
606 |
goto T177;} |
goto T183;} |
|
goto T176; |
|
|
T176:; |
|
|
base[6]= VV[41]; |
|
|
V112 = make_fixnum((long)length((V95))); |
|
|
V116= reverse((V95)); |
|
|
{object V114; |
|
|
object V115= /* INLINE-ARGS */V116; |
|
|
if(endp(V115)){ |
|
|
V113= Cnil; |
|
|
goto T181;} |
|
|
base[8]=V114=MMcons(Cnil,Cnil); |
|
607 |
goto T182; |
goto T182; |
608 |
T182:; |
T182:; |
609 |
(V114->c.c_cdr)= (*(LnkLI56))((V115->c.c_car)); |
base[6]= VV[41]; |
610 |
{object cdr_V114=MMcdr(V114);while(!endp(cdr_V114)) {cdr_V114=MMcdr(cdr_V114);V114=MMcdr(V114);}} |
V115 = make_fixnum((long)length((V95))); |
611 |
V115=MMcdr(V115); |
V119= reverse((V95)); |
612 |
if(endp(V115)){ |
{object V117; |
613 |
|
object V118= /* INLINE-ARGS */V119; |
614 |
|
if(endp(V118)){ |
615 |
|
V116= Cnil; |
616 |
|
goto T187;} |
617 |
|
base[8]=V117=MMcons(Cnil,Cnil); |
618 |
|
goto T188; |
619 |
|
T188:; |
620 |
|
(V117->c.c_cdr)= (*(LnkLI56))((V118->c.c_car)); |
621 |
|
{object cdr_V117=MMcdr(V117);while(!endp(cdr_V117)) {cdr_V117=MMcdr(cdr_V117);V117=MMcdr(V117);}} |
622 |
|
V118=MMcdr(V118); |
623 |
|
if(endp(V118)){ |
624 |
base[8]=base[8]->c.c_cdr; |
base[8]=base[8]->c.c_cdr; |
625 |
V113= base[8]; |
V116= base[8]; |
626 |
goto T181;} |
goto T187;} |
627 |
goto T182;} |
goto T188;} |
628 |
goto T181; |
goto T187; |
629 |
T181:; |
T187:; |
630 |
base[7]= listA(3,(V97),V112,V113); |
base[7]= listA(3,(V97),V115,V116); |
631 |
vs_top=(vs_base=base+0)+8; |
vs_top=(vs_base=base+0)+8; |
632 |
Lformat(); |
Lformat(); |
633 |
vs_top=sup; |
vs_top=sup; |
634 |
{object V117 = vs_base[0]; |
{object V120 = vs_base[0]; |
635 |
VMR9(V117)}} |
VMR9(V120)}} |
636 |
base[0]=base[0]; |
base[0]=base[0]; |
637 |
return Cnil; |
return Cnil; |
638 |
} |
} |
639 |
/* local entry for function TYPECASE-ERROR-STRINGS */ |
/* local entry for function TYPECASE-ERROR-STRINGS */ |
640 |
|
|
641 |
static object LI10(V119) |
static object LI10(V122) |
642 |
|
|
643 |
register object V119; |
register object V122; |
644 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
645 |
goto TTL; |
goto TTL; |
646 |
TTL:; |
TTL:; |
647 |
if(!((car((V119)))==(VV[25]))){ |
if(!((car((V122)))==(VV[25]))){ |
648 |
goto T185;}switch((long)length(cdr((V119)))){ |
goto T191;}switch((long)length(cdr((V122)))){ |
649 |
case 0: |
case 0: |
650 |
goto T188; |
goto T194; |
651 |
T188:; |
T194:; |
652 |
{object V120 = VV[42]; |
{object V123 = VV[42]; |
653 |
VMR10(V120)} |
VMR10(V123)} |
654 |
case 1: |
case 1: |
655 |
goto T189; |
goto T195; |
656 |
T189:; |
T195:; |
657 |
{object V121 = list(2,VV[43],make_cons(cadr((V119)),Cnil)); |
{object V124 = list(2,VV[43],make_cons(cadr((V122)),Cnil)); |
658 |
VMR10(V121)} |
VMR10(V124)} |
659 |
case 2: |
case 2: |
660 |
goto T190; |
goto T196; |
661 |
T190:; |
T196:; |
662 |
{object V122 = list(2,VV[44],cdr((V119))); |
{object V125 = list(2,VV[44],cdr((V122))); |
663 |
VMR10(V122)} |
VMR10(V125)} |
664 |
default: |
default: |
665 |
|
goto T197; |
666 |
|
T197:; |
667 |
|
{object V126 = list(2,VV[45],make_cons(cdr((V122)),Cnil)); |
668 |
|
VMR10(V126)} |
669 |
|
{object V127 = Cnil; |
670 |
|
VMR10(V127)}} |
671 |
|
{object V128 = Cnil; |
672 |
|
VMR10(V128)} |
673 |
goto T191; |
goto T191; |
674 |
T191:; |
T191:; |
675 |
{object V123 = list(2,VV[45],make_cons(cdr((V119)),Cnil)); |
if(!((car((V122)))==(VV[46]))){ |
676 |
VMR10(V123)} |
goto T200;} |
677 |
{object V124 = Cnil; |
{object V129 = list(2,VV[47],cdr((V122))); |
|
VMR10(V124)}} |
|
|
{object V125 = Cnil; |
|
|
VMR10(V125)} |
|
|
goto T185; |
|
|
T185:; |
|
|
if(!((car((V119)))==(VV[46]))){ |
|
|
goto T194;} |
|
|
{object V126 = list(2,VV[47],cdr((V119))); |
|
|
VMR10(V126)} |
|
|
goto T194; |
|
|
T194:; |
|
|
if(endp_prop(cdr((V119)))){ |
|
|
goto T196;} |
|
|
if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V119)))))!=Cnil){ |
|
|
goto T197;} |
|
|
goto T196; |
|
|
T196:; |
|
|
{object V127; |
|
|
{register object x= car((V119)),V128= VV[49]; |
|
|
while(!endp(V128)) |
|
|
if(type_of(V128->c.c_car)==t_cons &&eql(x,V128->c.c_car->c.c_car)){ |
|
|
V127= (V128->c.c_car); |
|
|
goto T201; |
|
|
}else V128=V128->c.c_cdr; |
|
|
V127= Cnil;} |
|
|
goto T201; |
|
|
T201:; |
|
|
if(((V127))==Cnil){ |
|
|
goto T203;} |
|
|
{object V129 = list(2,cadr((V127)),Cnil); |
|
678 |
VMR10(V129)} |
VMR10(V129)} |
679 |
|
goto T200; |
680 |
|
T200:; |
681 |
|
if(endp_prop(cdr((V122)))){ |
682 |
|
goto T202;} |
683 |
|
if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V122)))))!=Cnil){ |
684 |
|
goto T203;} |
685 |
|
goto T202; |
686 |
|
T202:; |
687 |
|
{object V130; |
688 |
|
{register object x= car((V122)),V131= VV[49]; |
689 |
|
while(!endp(V131)) |
690 |
|
if(type_of(V131->c.c_car)==t_cons &&eql(x,V131->c.c_car->c.c_car)){ |
691 |
|
V130= (V131->c.c_car); |
692 |
|
goto T207; |
693 |
|
}else V131=V131->c.c_cdr; |
694 |
|
V130= Cnil;} |
695 |
|
goto T207; |
696 |
|
T207:; |
697 |
|
if(((V130))==Cnil){ |
698 |
|
goto T209;} |
699 |
|
{object V132 = list(2,cadr((V130)),Cnil); |
700 |
|
VMR10(V132)} |
701 |
|
goto T209; |
702 |
|
T209:; |
703 |
|
V133= (*(LnkLI58))(car((V122))); |
704 |
|
{object V134 = list(2,VV[50],list(2,/* INLINE-ARGS */V133,car((V122)))); |
705 |
|
VMR10(V134)}} |
706 |
goto T203; |
goto T203; |
707 |
T203:; |
T203:; |
708 |
V130= (*(LnkLI58))(car((V119))); |
V135= (*(LnkLI58))(car((V122))); |
709 |
{object V131 = list(2,VV[50],list(2,/* INLINE-ARGS */V130,car((V119)))); |
{object V136 = list(2,VV[51],list(2,/* INLINE-ARGS */V135,(V122))); |
710 |
VMR10(V131)}} |
VMR10(V136)} |
|
goto T197; |
|
|
T197:; |
|
|
V132= (*(LnkLI58))(car((V119))); |
|
|
{object V133 = list(2,VV[51],list(2,/* INLINE-ARGS */V132,(V119))); |
|
|
VMR10(V133)} |
|
711 |
return Cnil; |
return Cnil; |
712 |
} |
} |
713 |
/* local entry for function BOIN-P */ |
/* local entry for function BOIN-P */ |
714 |
|
|
715 |
static object LI11(V135) |
static object LI11(V138) |
716 |
|
|
717 |
object V135; |
object V138; |
718 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
719 |
goto TTL; |
goto TTL; |
720 |
TTL:; |
TTL:; |
721 |
V137= symbol_name((V135)); |
V140= symbol_name((V138)); |
722 |
V138= elt(/* INLINE-ARGS */V137,0); |
V141= elt(/* INLINE-ARGS */V140,0); |
723 |
{register object x= /* INLINE-ARGS */V138,V136= VV[52]; |
{register object x= /* INLINE-ARGS */V141,V139= VV[52]; |
724 |
while(!endp(V136)) |
while(!endp(V139)) |
725 |
if(eql(x,V136->c.c_car)){ |
if(eql(x,V139->c.c_car)){ |
726 |
{object V139 = V136; |
{object V142 = V139; |
727 |
VMR11(V139)} |
VMR11(V142)} |
728 |
}else V136=V136->c.c_cdr; |
}else V139=V139->c.c_cdr; |
729 |
{object V140 = Cnil; |
{object V143 = Cnil; |
730 |
VMR11(V140)}} |
VMR11(V143)}} |
731 |
return Cnil; |
return Cnil; |
732 |
} |
} |
733 |
static object LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,1,ap);va_end(ap);return V1;} /* BOIN-P */ |
static object LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,1,ap);va_end(ap);return V1;} /* BOIN-P */ |