470 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
471 |
goto TTL; |
goto TTL; |
472 |
TTL:; |
TTL:; |
473 |
{object V60; |
{object V61; |
474 |
object V61; |
object V62; |
475 |
V60= symbol_value(VV[6]); |
V61= symbol_value(VV[6]); |
476 |
V61= make_cons((V59),caddr((V60))); |
V62= make_cons(V59,caddr((V61))); |
477 |
if(type_of(cddr((V60)))!=t_cons)FEwrong_type_argument(Scons,cddr((V60))); |
if(type_of(cddr((V61)))!=t_cons)FEwrong_type_argument(Scons,cddr((V61))); |
478 |
(cddr((V60)))->c.c_car = (V61); |
(cddr((V61)))->c.c_car = (V62); |
479 |
(void)(cddr((V60))); |
(void)(cddr((V61))); |
480 |
{object V62 = (V61); |
{object V63 = (V62); |
481 |
VMR12(V62)}} |
VMR12(V63)}} |
482 |
base[0]=base[0]; |
base[0]=base[0]; |
483 |
return Cnil; |
return Cnil; |
484 |
} |
} |
490 |
vs_reserve(VM13); |
vs_reserve(VM13); |
491 |
check_arg(2); |
check_arg(2); |
492 |
vs_top=sup; |
vs_top=sup; |
493 |
{object V63=base[0]->c.c_cdr; |
{object V64=base[0]->c.c_cdr; |
494 |
base[2]= V63; |
base[2]= V64; |
495 |
base[3]= Cnil;} |
base[3]= Cnil;} |
496 |
{register object V64; |
{register object V65; |
497 |
register object V65; |
register object V66; |
498 |
V64= base[2]; |
V65= base[2]; |
499 |
V65= car((V64)); |
V66= car((V65)); |
500 |
goto T173; |
goto T173; |
501 |
T173:; |
T173:; |
502 |
if(!(endp_prop((V64)))){ |
if(!(endp_prop((V65)))){ |
503 |
goto T174;} |
goto T174;} |
504 |
V66= make_cons(Cnil,base[3]); |
V67= make_cons(Cnil,base[3]); |
505 |
V67= reverse(/* INLINE-ARGS */V66); |
V68= reverse(/* INLINE-ARGS */V67); |
506 |
base[5]= make_cons(VV[29],/* INLINE-ARGS */V67); |
base[5]= make_cons(VV[29],/* INLINE-ARGS */V68); |
507 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
508 |
return; |
return; |
509 |
goto T174; |
goto T174; |
510 |
T174:; |
T174:; |
511 |
if(!(type_of((V65))==t_string)){ |
if(!(type_of((V66))==t_string)){ |
512 |
goto T180;} |
goto T180;} |
513 |
V68= list(3,VV[30],(V65),VV[0]); |
{register object V69; |
514 |
base[3]= make_cons(/* INLINE-ARGS */V68,base[3]); |
V69= list(3,VV[30],(V66),VV[0]); |
515 |
goto T178; |
base[3]= make_cons((V69),base[3]); |
516 |
|
goto T178;} |
517 |
goto T180; |
goto T180; |
518 |
T180:; |
T180:; |
519 |
V69= list(2,VV[31],(V65)); |
{register object V70; |
520 |
base[3]= make_cons(/* INLINE-ARGS */V69,base[3]); |
V70= list(2,VV[31],(V66)); |
521 |
|
base[3]= make_cons((V70),base[3]);} |
522 |
goto T178; |
goto T178; |
523 |
T178:; |
T178:; |
524 |
V64= cdr((V64)); |
V65= cdr((V65)); |
525 |
V65= car((V64)); |
V66= car((V65)); |
526 |
goto T173;} |
goto T173;} |
527 |
} |
} |
528 |
/* macro definition for WT-H */ |
/* macro definition for WT-H */ |
533 |
vs_reserve(VM14); |
vs_reserve(VM14); |
534 |
check_arg(2); |
check_arg(2); |
535 |
vs_top=sup; |
vs_top=sup; |
536 |
{object V70=base[0]->c.c_cdr; |
{object V71=base[0]->c.c_cdr; |
537 |
base[2]= V70; |
base[2]= V71; |
538 |
base[3]= Cnil;} |
base[3]= Cnil;} |
539 |
if(!(endp_prop(base[2]))){ |
if(!(endp_prop(base[2]))){ |
540 |
goto T191;} |
goto T193;} |
541 |
base[4]= VV[32]; |
base[4]= VV[32]; |
542 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
543 |
return; |
return; |
544 |
goto T191; |
goto T193; |
545 |
T191:; |
T193:; |
546 |
if(!(type_of(car(base[2]))==t_string)){ |
if(!(type_of(car(base[2]))==t_string)){ |
547 |
goto T194;} |
goto T196;} |
548 |
{register object V71; |
{register object V72; |
549 |
register object V72; |
register object V73; |
550 |
V71= cdr(base[2]); |
V72= cdr(base[2]); |
551 |
V72= car((V71)); |
V73= car((V72)); |
552 |
goto T199; |
goto T201; |
553 |
T199:; |
T201:; |
554 |
if(!(endp_prop((V71)))){ |
if(!(endp_prop((V72)))){ |
555 |
goto T200;} |
goto T202;} |
556 |
V73= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[34],car(base[2]))); |
V74= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[34],car(base[2]))); |
557 |
V74= list(3,VV[30],/* INLINE-ARGS */V73,VV[5]); |
V75= list(3,VV[30],/* INLINE-ARGS */V74,VV[5]); |
558 |
V75= make_cons(Cnil,base[3]); |
V76= make_cons(Cnil,base[3]); |
559 |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V74,reverse(/* INLINE-ARGS */V75)); |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V75,reverse(/* INLINE-ARGS */V76)); |
560 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
561 |
return; |
return; |
562 |
goto T200; |
goto T202; |
563 |
T200:; |
T202:; |
564 |
if(!(type_of((V72))==t_string)){ |
if(!(type_of((V73))==t_string)){ |
565 |
|
goto T208;} |
566 |
|
{register object V77; |
567 |
|
V77= list(3,VV[30],(V73),VV[5]); |
568 |
|
base[3]= make_cons((V77),base[3]); |
569 |
goto T206;} |
goto T206;} |
570 |
V76= list(3,VV[30],(V72),VV[5]); |
goto T208; |
571 |
base[3]= make_cons(/* INLINE-ARGS */V76,base[3]); |
T208:; |
572 |
goto T204; |
{register object V78; |
573 |
|
V78= list(2,VV[35],(V73)); |
574 |
|
base[3]= make_cons((V78),base[3]);} |
575 |
goto T206; |
goto T206; |
576 |
T206:; |
T206:; |
577 |
V77= list(2,VV[35],(V72)); |
V72= cdr((V72)); |
578 |
base[3]= make_cons(/* INLINE-ARGS */V77,base[3]); |
V73= car((V72)); |
579 |
goto T204; |
goto T201;} |
580 |
T204:; |
goto T196; |
581 |
V71= cdr((V71)); |
T196:; |
582 |
V72= car((V71)); |
{register object V79; |
583 |
goto T199;} |
register object V80; |
584 |
goto T194; |
V79= base[2]; |
585 |
T194:; |
V80= car((V79)); |
586 |
{register object V78; |
goto T222; |
587 |
register object V79; |
T222:; |
588 |
V78= base[2]; |
if(!(endp_prop((V79)))){ |
589 |
V79= car((V78)); |
goto T223;} |
590 |
goto T218; |
V81= make_cons(Cnil,base[3]); |
591 |
T218:; |
base[5]= listA(3,VV[29],VV[36],reverse(/* INLINE-ARGS */V81)); |
|
if(!(endp_prop((V78)))){ |
|
|
goto T219;} |
|
|
V80= make_cons(Cnil,base[3]); |
|
|
base[5]= listA(3,VV[29],VV[36],reverse(/* INLINE-ARGS */V80)); |
|
592 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
593 |
return; |
return; |
|
goto T219; |
|
|
T219:; |
|
|
if(!(type_of((V79))==t_string)){ |
|
|
goto T225;} |
|
|
V81= list(3,VV[30],(V79),VV[5]); |
|
|
base[3]= make_cons(/* INLINE-ARGS */V81,base[3]); |
|
|
goto T223; |
|
|
goto T225; |
|
|
T225:; |
|
|
V82= list(2,VV[35],(V79)); |
|
|
base[3]= make_cons(/* INLINE-ARGS */V82,base[3]); |
|
594 |
goto T223; |
goto T223; |
595 |
T223:; |
T223:; |
596 |
V78= cdr((V78)); |
if(!(type_of((V80))==t_string)){ |
597 |
V79= car((V78)); |
goto T229;} |
598 |
goto T218;} |
{register object V82; |
599 |
|
V82= list(3,VV[30],(V80),VV[5]); |
600 |
|
base[3]= make_cons((V82),base[3]); |
601 |
|
goto T227;} |
602 |
|
goto T229; |
603 |
|
T229:; |
604 |
|
{register object V83; |
605 |
|
V83= list(2,VV[35],(V80)); |
606 |
|
base[3]= make_cons((V83),base[3]);} |
607 |
|
goto T227; |
608 |
|
T227:; |
609 |
|
V79= cdr((V79)); |
610 |
|
V80= car((V79)); |
611 |
|
goto T222;} |
612 |
} |
} |
613 |
/* macro definition for WT-NL */ |
/* macro definition for WT-NL */ |
614 |
|
|
618 |
vs_reserve(VM15); |
vs_reserve(VM15); |
619 |
check_arg(2); |
check_arg(2); |
620 |
vs_top=sup; |
vs_top=sup; |
621 |
{object V83=base[0]->c.c_cdr; |
{object V84=base[0]->c.c_cdr; |
622 |
base[2]= V83; |
base[2]= V84; |
623 |
base[3]= Cnil;} |
base[3]= Cnil;} |
624 |
if(!(endp_prop(base[2]))){ |
if(!(endp_prop(base[2]))){ |
625 |
goto T236;} |
goto T242;} |
626 |
base[4]= VV[37]; |
base[4]= VV[37]; |
627 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
628 |
return; |
return; |
629 |
goto T236; |
goto T242; |
630 |
T236:; |
T242:; |
631 |
if(!(type_of(car(base[2]))==t_string)){ |
if(!(type_of(car(base[2]))==t_string)){ |
|
goto T239;} |
|
|
{register object V84; |
|
|
register object V85; |
|
|
V84= cdr(base[2]); |
|
|
V85= car((V84)); |
|
|
goto T244; |
|
|
T244:; |
|
|
if(!(endp_prop((V84)))){ |
|
632 |
goto T245;} |
goto T245;} |
633 |
V86= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[38],car(base[2]))); |
{register object V85; |
634 |
V87= list(3,VV[30],/* INLINE-ARGS */V86,VV[0]); |
register object V86; |
635 |
V88= make_cons(Cnil,base[3]); |
V85= cdr(base[2]); |
636 |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V87,reverse(/* INLINE-ARGS */V88)); |
V86= car((V85)); |
637 |
|
goto T250; |
638 |
|
T250:; |
639 |
|
if(!(endp_prop((V85)))){ |
640 |
|
goto T251;} |
641 |
|
V87= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[38],car(base[2]))); |
642 |
|
V88= list(3,VV[30],/* INLINE-ARGS */V87,VV[0]); |
643 |
|
V89= make_cons(Cnil,base[3]); |
644 |
|
base[6]= listA(3,VV[29],/* INLINE-ARGS */V88,reverse(/* INLINE-ARGS */V89)); |
645 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
646 |
return; |
return; |
|
goto T245; |
|
|
T245:; |
|
|
if(!(type_of((V85))==t_string)){ |
|
|
goto T251;} |
|
|
V89= list(3,VV[30],(V85),VV[0]); |
|
|
base[3]= make_cons(/* INLINE-ARGS */V89,base[3]); |
|
|
goto T249; |
|
647 |
goto T251; |
goto T251; |
648 |
T251:; |
T251:; |
649 |
V90= list(2,VV[31],(V85)); |
if(!(type_of((V86))==t_string)){ |
650 |
base[3]= make_cons(/* INLINE-ARGS */V90,base[3]); |
goto T257;} |
651 |
goto T249; |
{register object V90; |
652 |
T249:; |
V90= list(3,VV[30],(V86),VV[0]); |
653 |
V84= cdr((V84)); |
base[3]= make_cons((V90),base[3]); |
654 |
V85= car((V84)); |
goto T255;} |
655 |
goto T244;} |
goto T257; |
656 |
goto T239; |
T257:; |
|
T239:; |
|
657 |
{register object V91; |
{register object V91; |
658 |
register object V92; |
V91= list(2,VV[31],(V86)); |
659 |
V91= base[2]; |
base[3]= make_cons((V91),base[3]);} |
660 |
V92= car((V91)); |
goto T255; |
661 |
goto T263; |
T255:; |
662 |
T263:; |
V85= cdr((V85)); |
663 |
if(!(endp_prop((V91)))){ |
V86= car((V85)); |
664 |
goto T264;} |
goto T250;} |
665 |
V93= make_cons(Cnil,base[3]); |
goto T245; |
666 |
base[5]= listA(3,VV[29],VV[39],reverse(/* INLINE-ARGS */V93)); |
T245:; |
667 |
|
{register object V92; |
668 |
|
register object V93; |
669 |
|
V92= base[2]; |
670 |
|
V93= car((V92)); |
671 |
|
goto T271; |
672 |
|
T271:; |
673 |
|
if(!(endp_prop((V92)))){ |
674 |
|
goto T272;} |
675 |
|
V94= make_cons(Cnil,base[3]); |
676 |
|
base[5]= listA(3,VV[29],VV[39],reverse(/* INLINE-ARGS */V94)); |
677 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
678 |
return; |
return; |
679 |
goto T264; |
goto T272; |
680 |
T264:; |
T272:; |
681 |
if(!(type_of((V92))==t_string)){ |
if(!(type_of((V93))==t_string)){ |
682 |
goto T270;} |
goto T278;} |
683 |
V94= list(3,VV[30],(V92),VV[0]); |
{register object V95; |
684 |
base[3]= make_cons(/* INLINE-ARGS */V94,base[3]); |
V95= list(3,VV[30],(V93),VV[0]); |
685 |
goto T268; |
base[3]= make_cons((V95),base[3]); |
686 |
goto T270; |
goto T276;} |
687 |
T270:; |
goto T278; |
688 |
V95= list(2,VV[31],(V92)); |
T278:; |
689 |
base[3]= make_cons(/* INLINE-ARGS */V95,base[3]); |
{register object V96; |
690 |
goto T268; |
V96= list(2,VV[31],(V93)); |
691 |
T268:; |
base[3]= make_cons((V96),base[3]);} |
692 |
V91= cdr((V91)); |
goto T276; |
693 |
V92= car((V91)); |
T276:; |
694 |
goto T263;} |
V92= cdr((V92)); |
695 |
|
V93= car((V92)); |
696 |
|
goto T271;} |
697 |
} |
} |
698 |
/* macro definition for WT-NL1 */ |
/* macro definition for WT-NL1 */ |
699 |
|
|
703 |
vs_reserve(VM16); |
vs_reserve(VM16); |
704 |
check_arg(2); |
check_arg(2); |
705 |
vs_top=sup; |
vs_top=sup; |
706 |
{object V96=base[0]->c.c_cdr; |
{object V97=base[0]->c.c_cdr; |
707 |
base[2]= V96; |
base[2]= V97; |
708 |
base[3]= Cnil;} |
base[3]= Cnil;} |
709 |
if(!(endp_prop(base[2]))){ |
if(!(endp_prop(base[2]))){ |
710 |
goto T281;} |
goto T291;} |
711 |
base[4]= VV[40]; |
base[4]= VV[40]; |
712 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
713 |
return; |
return; |
714 |
goto T281; |
goto T291; |
715 |
T281:; |
T291:; |
716 |
if(!(type_of(car(base[2]))==t_string)){ |
if(!(type_of(car(base[2]))==t_string)){ |
717 |
goto T284;} |
goto T294;} |
718 |
{register object V97; |
{register object V98; |
719 |
register object V98; |
register object V99; |
720 |
V97= cdr(base[2]); |
V98= cdr(base[2]); |
721 |
V98= car((V97)); |
V99= car((V98)); |
722 |
goto T289; |
goto T299; |
723 |
T289:; |
T299:; |
724 |
if(!(endp_prop((V97)))){ |
if(!(endp_prop((V98)))){ |
725 |
goto T290;} |
goto T300;} |
726 |
V99= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[41],car(base[2]))); |
V100= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[41],car(base[2]))); |
727 |
V100= list(3,VV[30],/* INLINE-ARGS */V99,VV[0]); |
V101= list(3,VV[30],/* INLINE-ARGS */V100,VV[0]); |
728 |
V101= make_cons(Cnil,base[3]); |
V102= make_cons(Cnil,base[3]); |
729 |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V100,reverse(/* INLINE-ARGS */V101)); |
base[6]= listA(3,VV[29],/* INLINE-ARGS */V101,reverse(/* INLINE-ARGS */V102)); |
730 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
731 |
return; |
return; |
732 |
goto T290; |
goto T300; |
733 |
T290:; |
T300:; |
734 |
if(!(type_of((V98))==t_string)){ |
if(!(type_of((V99))==t_string)){ |
735 |
goto T296;} |
goto T306;} |
736 |
V102= list(3,VV[30],(V98),VV[0]); |
{register object V103; |
737 |
base[3]= make_cons(/* INLINE-ARGS */V102,base[3]); |
V103= list(3,VV[30],(V99),VV[0]); |
738 |
goto T294; |
base[3]= make_cons((V103),base[3]); |
739 |
goto T296; |
goto T304;} |
740 |
T296:; |
goto T306; |
741 |
V103= list(2,VV[31],(V98)); |
T306:; |
742 |
base[3]= make_cons(/* INLINE-ARGS */V103,base[3]); |
{register object V104; |
743 |
|
V104= list(2,VV[31],(V99)); |
744 |
|
base[3]= make_cons((V104),base[3]);} |
745 |
|
goto T304; |
746 |
|
T304:; |
747 |
|
V98= cdr((V98)); |
748 |
|
V99= car((V98)); |
749 |
|
goto T299;} |
750 |
goto T294; |
goto T294; |
751 |
T294:; |
T294:; |
752 |
V97= cdr((V97)); |
{register object V105; |
753 |
V98= car((V97)); |
register object V106; |
754 |
goto T289;} |
V105= base[2]; |
755 |
goto T284; |
V106= car((V105)); |
756 |
T284:; |
goto T320; |
757 |
{register object V104; |
T320:; |
758 |
register object V105; |
if(!(endp_prop((V105)))){ |
759 |
V104= base[2]; |
goto T321;} |
760 |
V105= car((V104)); |
V107= make_cons(Cnil,base[3]); |
761 |
goto T308; |
base[5]= listA(3,VV[29],VV[42],reverse(/* INLINE-ARGS */V107)); |
|
T308:; |
|
|
if(!(endp_prop((V104)))){ |
|
|
goto T309;} |
|
|
V106= make_cons(Cnil,base[3]); |
|
|
base[5]= listA(3,VV[29],VV[42],reverse(/* INLINE-ARGS */V106)); |
|
762 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
763 |
return; |
return; |
764 |
goto T309; |
goto T321; |
765 |
T309:; |
T321:; |
766 |
if(!(type_of((V105))==t_string)){ |
if(!(type_of((V106))==t_string)){ |
767 |
goto T315;} |
goto T327;} |
768 |
V107= list(3,VV[30],(V105),VV[0]); |
{register object V108; |
769 |
base[3]= make_cons(/* INLINE-ARGS */V107,base[3]); |
V108= list(3,VV[30],(V106),VV[0]); |
770 |
goto T313; |
base[3]= make_cons((V108),base[3]); |
771 |
goto T315; |
goto T325;} |
772 |
T315:; |
goto T327; |
773 |
V108= list(2,VV[31],(V105)); |
T327:; |
774 |
base[3]= make_cons(/* INLINE-ARGS */V108,base[3]); |
{register object V109; |
775 |
goto T313; |
V109= list(2,VV[31],(V106)); |
776 |
T313:; |
base[3]= make_cons((V109),base[3]);} |
777 |
V104= cdr((V104)); |
goto T325; |
778 |
V105= car((V104)); |
T325:; |
779 |
goto T308;} |
V105= cdr((V105)); |
780 |
|
V106= car((V105)); |
781 |
|
goto T320;} |
782 |
} |
} |
783 |
static object LnkTLI55(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[55],(void **)&LnkLI55,ap);va_end(ap);return V1;} /* CONCATENATE */ |
static object LnkTLI55(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[55],(void **)&LnkLI55,ap);va_end(ap);return V1;} /* CONCATENATE */ |
784 |
static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */ |
static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */ |