618 |
goto T201;} |
goto T201;} |
619 |
goto T220; |
goto T220; |
620 |
T220:; |
T220:; |
621 |
base[9]= (V139); |
V147= ({object _tmp=get(VV[38],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[38])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[38])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
622 |
base[10]= V126; |
V148 = V139; |
623 |
base[11]= V99; |
V149 = V126; |
624 |
base[12]= V134; |
V150 = V99; |
625 |
vs_top=(vs_base=base+9)+4; |
V151 = V134; |
626 |
(void) (*Lnk38)(Lclptr38); |
(void)(( |
627 |
vs_top=sup; |
V152 = V147, |
628 |
|
(type_of(V152) == t_sfun ?(*((V152)->sfn.sfn_self)): |
629 |
|
(fcall.argd=4,type_of(V152)==t_vfun) ? |
630 |
|
(*((V152)->sfn.sfn_self)): |
631 |
|
(fcall.fun=(V152),fcalln))(V148,V149,V150,V151))); |
632 |
goto T192; |
goto T192; |
633 |
goto T201; |
goto T201; |
634 |
T201:; |
T201:; |
638 |
if(((V100))==Cnil){ |
if(((V100))==Cnil){ |
639 |
goto T192;} |
goto T192;} |
640 |
if(((V100))==(Ct)){ |
if(((V100))==(Ct)){ |
641 |
goto T230;} |
goto T227;} |
642 |
{register object x= (V135),V146= (V100); |
{register object x= (V135),V153= (V100); |
643 |
while(V146!=Cnil) |
while(V153!=Cnil) |
644 |
if(x==(V146->c.c_car)){ |
if(x==(V153->c.c_car)){ |
645 |
goto T233; |
goto T230; |
646 |
}else V146=V146->c.c_cdr; |
}else V153=V153->c.c_cdr; |
647 |
goto T192;} |
goto T192;} |
|
goto T233; |
|
|
T233:; |
|
648 |
goto T230; |
goto T230; |
649 |
T230:; |
T230:; |
650 |
|
goto T227; |
651 |
|
T227:; |
652 |
if(((V128))!=Cnil){ |
if(((V128))!=Cnil){ |
653 |
goto T234;} |
goto T231;} |
654 |
if(((V100))==(Ct)){ |
if(((V100))==(Ct)){ |
655 |
goto T227;} |
goto T224;} |
656 |
goto T234; |
goto T231; |
657 |
T234:; |
T231:; |
658 |
base[9]= (V126); |
base[9]= (V126); |
659 |
base[10]= (V99); |
base[10]= (V99); |
660 |
base[11]= (V134); |
base[11]= (V134); |
663 |
vs_top=sup; |
vs_top=sup; |
664 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
665 |
goto T192;} |
goto T192;} |
666 |
goto T227; |
goto T224; |
667 |
T227:; |
T224:; |
668 |
{object V147; |
{object V154; |
669 |
base[9]= (V134); |
base[9]= (V134); |
670 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
671 |
(void) (*Lnk40)(Lclptr40); |
(void) (*Lnk40)(Lclptr40); |
672 |
vs_top=sup; |
vs_top=sup; |
673 |
V147= vs_base[0]; |
V154= vs_base[0]; |
674 |
if(((V147))==Cnil){ |
if(((V154))==Cnil){ |
675 |
goto T192;} |
goto T192;} |
676 |
vs_base=vs_top; |
{object V158; |
677 |
{object _funobj = (V147);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
V158= ( |
678 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(type_of((V154)) == t_sfun ?(*(((V154))->sfn.sfn_self)): |
679 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
(fcall.argd=0,type_of((V154))==t_vfun) ? |
680 |
else super_funcall_no_event(_funobj);} |
(*(((V154))->sfn.sfn_self)): |
681 |
vs_top=sup; |
(fcall.fun=((V154)),fcalln))()); |
682 |
base[9]= vs_base[0]; |
V159= ({object _tmp=get(VV[38],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[38])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[38])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
683 |
base[10]= V126; |
V160 = (V158); |
684 |
base[11]= V99; |
V161 = V126; |
685 |
base[12]= V134; |
V162 = V99; |
686 |
vs_top=(vs_base=base+9)+4; |
V163 = V134; |
687 |
(void) (*Lnk38)(Lclptr38); |
(void)(( |
688 |
vs_top=sup;}} |
V164 = V159, |
689 |
|
(type_of(V164) == t_sfun ?(*((V164)->sfn.sfn_self)): |
690 |
|
(fcall.argd=4,type_of(V164)==t_vfun) ? |
691 |
|
(*((V164)->sfn.sfn_self)): |
692 |
|
(fcall.fun=(V164),fcalln))(V160,V161,V162,V163)));}}} |
693 |
goto T192; |
goto T192; |
694 |
T192:; |
T192:; |
695 |
V133= CMPcdr((V133)); |
V133= CMPcdr((V133)); |
704 |
} |
} |
705 |
/* local entry for function CHECK-INITARGS-1 */ |
/* local entry for function CHECK-INITARGS-1 */ |
706 |
|
|
707 |
static object LI9(object V153,object V152,object V151,object first,...) |
static object LI9(object V167,object V166,object V165,object first,...) |
708 |
{ |
{ |
709 |
va_list ap; |
va_list ap; |
710 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
711 |
{object V154; |
{object V168; |
712 |
object V155; |
object V169; |
713 |
object V156; |
object V170; |
714 |
object V157; |
object V171; |
715 |
object V158; |
object V172; |
716 |
va_start(ap,first); |
va_start(ap,first); |
717 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
718 |
V154= V153; |
V168= V167; |
719 |
V155= V152; |
V169= V166; |
720 |
V156= V151; |
V170= V165; |
721 |
narg = narg - 3; |
narg = narg - 3; |
722 |
if (narg <= 0) goto T255; |
if (narg <= 0) goto T250; |
723 |
else { |
else { |
724 |
V157= first;} |
V171= first;} |
725 |
if (--narg <= 0) goto T256; |
if (--narg <= 0) goto T251; |
726 |
else { |
else { |
727 |
V158= va_arg(ap,object);} |
V172= va_arg(ap,object);} |
728 |
--narg; goto T257; |
--narg; goto T252; |
729 |
goto T255; |
goto T250; |
730 |
T255:; |
T250:; |
731 |
V157= Ct; |
V171= Ct; |
732 |
goto T256; |
goto T251; |
733 |
T256:; |
T251:; |
734 |
V158= Ct; |
V172= Ct; |
735 |
goto T257; |
goto T252; |
736 |
T257:; |
T252:; |
737 |
{object V159; |
{object V173; |
738 |
object V160; |
object V174; |
739 |
base[0]= (V154); |
base[0]= (V168); |
740 |
base[1]= (V156); |
base[1]= (V170); |
741 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
742 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
743 |
if(vs_base>=vs_top){vs_top=sup;goto T263;} |
if(vs_base>=vs_top){vs_top=sup;goto T258;} |
744 |
V159= vs_base[0]; |
V173= vs_base[0]; |
745 |
vs_base++; |
vs_base++; |
746 |
if(vs_base>=vs_top){vs_top=sup;goto T264;} |
if(vs_base>=vs_top){vs_top=sup;goto T259;} |
747 |
V160= vs_base[0]; |
V174= vs_base[0]; |
748 |
vs_top=sup; |
vs_top=sup; |
749 |
goto T265; |
goto T260; |
750 |
goto T263; |
goto T258; |
751 |
T263:; |
T258:; |
752 |
V159= Cnil; |
V173= Cnil; |
753 |
goto T264; |
goto T259; |
754 |
T264:; |
T259:; |
755 |
V160= Cnil; |
V174= Cnil; |
756 |
|
goto T260; |
757 |
|
T260:; |
758 |
|
if(((V174))!=Cnil){ |
759 |
|
goto T262;} |
760 |
|
if(((V171))==Cnil){ |
761 |
|
goto T265;} |
762 |
|
{object V175 = (VFUN_NARGS=4,(*(LnkLI42))((V169),(V168),(V173),(V172))); |
763 |
|
VMR9(V175)} |
764 |
goto T265; |
goto T265; |
765 |
T265:; |
T265:; |
766 |
if(((V160))!=Cnil){ |
{object V176 = (VFUN_NARGS=4,(*(LnkLI43))((V169),(V168),(V173),(V172))); |
767 |
goto T267;} |
VMR9(V176)} |
768 |
if(((V157))==Cnil){ |
goto T262; |
769 |
goto T270;} |
T262:; |
770 |
{object V161 = (VFUN_NARGS=4,(*(LnkLI42))((V155),(V154),(V159),(V158))); |
{object V177 = Cnil; |
771 |
VMR9(V161)} |
VMR9(V177)}} |
|
goto T270; |
|
|
T270:; |
|
|
{object V162 = (VFUN_NARGS=4,(*(LnkLI43))((V155),(V154),(V159),(V158))); |
|
|
VMR9(V162)} |
|
|
goto T267; |
|
|
T267:; |
|
|
{object V163 = Cnil; |
|
|
VMR9(V163)}} |
|
772 |
va_end(ap); |
va_end(ap); |
773 |
base[0]=base[0]; |
base[0]=base[0]; |
774 |
return Cnil;} |
return Cnil;} |
779 |
{register object *base=vs_base; |
{register object *base=vs_base; |
780 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
781 |
vs_check; |
vs_check; |
782 |
{object V164; |
{object V178; |
783 |
object V165; |
object V179; |
784 |
check_arg(2); |
check_arg(2); |
785 |
V164=(base[0]); |
V178=(base[0]); |
786 |
V165=(base[1]); |
V179=(base[1]); |
787 |
vs_top=sup; |
vs_top=sup; |
788 |
goto TTL; |
goto TTL; |
789 |
TTL:; |
TTL:; |
790 |
{object V166; |
{object V180; |
791 |
register object V167; |
register object V181; |
792 |
{object V168; |
{object V182; |
793 |
object V169= (V165); |
object V183= (V179); |
794 |
if(V169==Cnil){ |
if(V183==Cnil){ |
795 |
V166= Cnil; |
V180= Cnil; |
796 |
goto T272;} |
goto T267;} |
797 |
base[2]=V168=MMcons(Cnil,Cnil); |
base[2]=V182=MMcons(Cnil,Cnil); |
798 |
goto T273; |
goto T268; |
799 |
T273:; |
T268:; |
800 |
{register object V170; |
{register object V184; |
801 |
V170= (V169->c.c_car); |
V184= (V183->c.c_car); |
802 |
if(!(type_of((V170))==t_cons)){ |
if(!(type_of((V184))==t_cons)){ |
803 |
goto T276;} |
goto T271;} |
804 |
base[4]= (*(LnkLI44))(CMPcar((V170))); |
base[4]= (*(LnkLI44))(CMPcar((V184))); |
805 |
base[5]= CMPcdr((V170)); |
base[5]= CMPcdr((V184)); |
806 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
807 |
(void) (*Lnk45)(Lclptr45); |
(void) (*Lnk45)(Lclptr45); |
808 |
vs_top=sup; |
vs_top=sup; |
810 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
811 |
Lcopy_list(); |
Lcopy_list(); |
812 |
vs_top=sup; |
vs_top=sup; |
813 |
(V168->c.c_cdr)= vs_base[0]; |
(V182->c.c_cdr)= vs_base[0]; |
814 |
goto T274; |
goto T269; |
815 |
goto T276; |
goto T271; |
816 |
T276:; |
T271:; |
817 |
(V168->c.c_cdr)= make_cons((V170),Cnil);} |
(V182->c.c_cdr)= make_cons((V184),Cnil);} |
818 |
goto T274; |
goto T269; |
819 |
T274:; |
T269:; |
820 |
while(MMcdr(V168)!=Cnil)V168=MMcdr(V168); |
while(MMcdr(V182)!=Cnil)V182=MMcdr(V182); |
821 |
if((V169=MMcdr(V169))==Cnil){ |
if((V183=MMcdr(V183))==Cnil){ |
822 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
823 |
V166= base[2]; |
V180= base[2]; |
824 |
goto T272;} |
goto T267;} |
825 |
goto T273;} |
goto T268;} |
826 |
goto T272; |
goto T267; |
827 |
T272:; |
T267:; |
828 |
{object V171; |
{object V185; |
829 |
base[3]=VV[37]->s.s_gfdef; |
base[3]=VV[37]->s.s_gfdef; |
830 |
base[4]= (V164); |
base[4]= (V178); |
831 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
832 |
(void) (*Lnk32)(Lclptr32); |
(void) (*Lnk32)(Lclptr32); |
833 |
vs_top=sup; |
vs_top=sup; |
834 |
V174= vs_base[0]; |
V188= vs_base[0]; |
835 |
{object V172; |
{object V186; |
836 |
object V173= V174; |
object V187= V188; |
837 |
if(V173==Cnil){ |
if(V187==Cnil){ |
838 |
V171= Cnil; |
V185= Cnil; |
839 |
goto T282;} |
goto T277;} |
840 |
base[2]=V172=MMcons(Cnil,Cnil); |
base[2]=V186=MMcons(Cnil,Cnil); |
841 |
goto T283; |
goto T278; |
842 |
T283:; |
T278:; |
843 |
base[4]= (V173->c.c_car); |
base[4]= (V187->c.c_car); |
844 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
845 |
(void) (*Lnk37)(Lclptr37); |
(void) (*Lnk37)(Lclptr37); |
846 |
vs_top=sup; |
vs_top=sup; |
847 |
(V172->c.c_car)= vs_base[0]; |
(V186->c.c_car)= vs_base[0]; |
848 |
if((V173=MMcdr(V173))==Cnil){ |
if((V187=MMcdr(V187))==Cnil){ |
849 |
V171= base[2]; |
V185= base[2]; |
850 |
goto T282;} |
goto T277;} |
851 |
V172=MMcdr(V172)=MMcons(Cnil,Cnil); |
V186=MMcdr(V186)=MMcons(Cnil,Cnil); |
852 |
goto T283;} |
goto T278;} |
853 |
goto T282; |
goto T277; |
854 |
T282:; |
T277:; |
855 |
vs_top=base+2; |
vs_top=base+2; |
856 |
while(V171!=Cnil) |
while(V185!=Cnil) |
857 |
{vs_push((V171)->c.c_car);V171=(V171)->c.c_cdr;} |
{vs_push((V185)->c.c_car);V185=(V185)->c.c_cdr;} |
858 |
vs_base=base+2;} |
vs_base=base+2;} |
859 |
Lappend(); |
Lappend(); |
860 |
vs_top=sup; |
vs_top=sup; |
861 |
V167= vs_base[0]; |
V181= vs_base[0]; |
862 |
{register object V175; |
{register object V189; |
863 |
register object V176; |
register object V190; |
864 |
V175= (V166); |
V189= (V180); |
865 |
V176= CMPcar((V175)); |
V190= CMPcar((V189)); |
866 |
goto T292; |
goto T287; |
867 |
T292:; |
T287:; |
868 |
if(!(((V175))==Cnil)){ |
if(!(((V189))==Cnil)){ |
869 |
goto T293;} |
goto T288;} |
870 |
|
goto T283; |
871 |
goto T288; |
goto T288; |
872 |
goto T293; |
T288:; |
873 |
T293:; |
{register object V191; |
874 |
{register object V177; |
register object V192; |
875 |
register object V178; |
register object V193; |
876 |
register object V179; |
register object V194; |
877 |
register object V180; |
register object V195; |
878 |
register object V181; |
register object V196; |
879 |
register object V182; |
if(!(type_of((V190))==t_cons)){ |
880 |
if(!(type_of((V176))==t_cons)){ |
goto T296;} |
881 |
goto T301;} |
base[3]= (*(LnkLI46))((V190)); |
882 |
base[3]= (*(LnkLI46))((V176)); |
goto T294; |
883 |
goto T299; |
goto T296; |
884 |
goto T301; |
T296:; |
885 |
T301:; |
base[4]= (V190); |
|
base[4]= (V176); |
|
886 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
887 |
(void) (*Lnk47)(Lclptr47); |
(void) (*Lnk47)(Lclptr47); |
888 |
vs_top=sup; |
vs_top=sup; |
889 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
890 |
goto T299; |
goto T294; |
891 |
T299:; |
T294:; |
892 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
893 |
(void) (*Lnk48)(); |
(void) (*Lnk48)(); |
894 |
if(vs_base>=vs_top){vs_top=sup;goto T304;} |
if(vs_base>=vs_top){vs_top=sup;goto T299;} |
895 |
V177= vs_base[0]; |
V191= vs_base[0]; |
896 |
vs_base++; |
vs_base++; |
897 |
if(vs_base>=vs_top){vs_top=sup;goto T305;} |
if(vs_base>=vs_top){vs_top=sup;goto T300;} |
898 |
V178= vs_base[0]; |
V192= vs_base[0]; |
899 |
vs_base++; |
vs_base++; |
900 |
if(vs_base>=vs_top){vs_top=sup;goto T306;} |
if(vs_base>=vs_top){vs_top=sup;goto T301;} |
901 |
V179= vs_base[0]; |
V193= vs_base[0]; |
902 |
vs_base++; |
vs_base++; |
903 |
if(vs_base>=vs_top){vs_top=sup;goto T307;} |
if(vs_base>=vs_top){vs_top=sup;goto T302;} |
904 |
V180= vs_base[0]; |
V194= vs_base[0]; |
905 |
vs_base++; |
vs_base++; |
906 |
if(vs_base>=vs_top){vs_top=sup;goto T308;} |
if(vs_base>=vs_top){vs_top=sup;goto T303;} |
907 |
V181= vs_base[0]; |
V195= vs_base[0]; |
908 |
vs_base++; |
vs_base++; |
909 |
if(vs_base>=vs_top){vs_top=sup;goto T309;} |
if(vs_base>=vs_top){vs_top=sup;goto T304;} |
910 |
V182= vs_base[0]; |
V196= vs_base[0]; |
911 |
vs_top=sup; |
vs_top=sup; |
912 |
goto T310; |
goto T305; |
913 |
|
goto T299; |
914 |
|
T299:; |
915 |
|
V191= Cnil; |
916 |
|
goto T300; |
917 |
|
T300:; |
918 |
|
V192= Cnil; |
919 |
|
goto T301; |
920 |
|
T301:; |
921 |
|
V193= Cnil; |
922 |
|
goto T302; |
923 |
|
T302:; |
924 |
|
V194= Cnil; |
925 |
|
goto T303; |
926 |
|
T303:; |
927 |
|
V195= Cnil; |
928 |
goto T304; |
goto T304; |
929 |
T304:; |
T304:; |
930 |
V177= Cnil; |
V196= Cnil; |
931 |
goto T305; |
goto T305; |
932 |
T305:; |
T305:; |
933 |
V178= Cnil; |
if(((V195))==Cnil){ |
934 |
goto T306; |
goto T306;} |
|
T306:; |
|
|
V179= Cnil; |
|
|
goto T307; |
|
|
T307:; |
|
|
V180= Cnil; |
|
|
goto T308; |
|
|
T308:; |
|
|
V181= Cnil; |
|
|
goto T309; |
|
|
T309:; |
|
|
V182= Cnil; |
|
|
goto T310; |
|
|
T310:; |
|
|
if(((V181))==Cnil){ |
|
|
goto T311;} |
|
935 |
base[3]= Cnil; |
base[3]= Cnil; |
936 |
base[4]= Ct; |
base[4]= Ct; |
937 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
938 |
return; |
return; |
939 |
goto T311; |
goto T306; |
940 |
T311:; |
T306:; |
941 |
V167= append((V182),(V167));} |
V181= append((V196),(V181));} |
942 |
V175= CMPcdr((V175)); |
V189= CMPcdr((V189)); |
943 |
V176= CMPcar((V175)); |
V190= CMPcar((V189)); |
944 |
goto T292;} |
goto T287;} |
945 |
goto T288; |
goto T283; |
946 |
T288:; |
T283:; |
947 |
base[2]= (V167); |
base[2]= (V181); |
948 |
base[3]= Cnil; |
base[3]= Cnil; |
949 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
950 |
return;} |
return;} |
952 |
} |
} |
953 |
/* local entry for function CHECK-INITARGS-2-PLIST */ |
/* local entry for function CHECK-INITARGS-2-PLIST */ |
954 |
|
|
955 |
static object LI11(object V185,object V184,object V183,object first,...) |
static object LI11(object V199,object V198,object V197,object first,...) |
956 |
{ |
{ |
957 |
va_list ap; |
va_list ap; |
958 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
959 |
{object V186; |
{object V200; |
960 |
register object V187; |
register object V201; |
961 |
register object V188; |
register object V202; |
962 |
register object V189; |
register object V203; |
963 |
va_start(ap,first); |
va_start(ap,first); |
964 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
965 |
V186= V185; |
V200= V199; |
966 |
V187= V184; |
V201= V198; |
967 |
V188= V183; |
V202= V197; |
968 |
narg = narg - 3; |
narg = narg - 3; |
969 |
if (narg <= 0) goto T324; |
if (narg <= 0) goto T319; |
970 |
else { |
else { |
971 |
V189= first;} |
V203= first;} |
972 |
--narg; goto T325; |
--narg; goto T320; |
973 |
goto T324; |
goto T319; |
974 |
T324:; |
T319:; |
975 |
V189= Ct; |
V203= Ct; |
976 |
goto T325; |
goto T320; |
977 |
T325:; |
T320:; |
978 |
base[0]= (V186); |
base[0]= (V200); |
979 |
base[1]= VV[18]; |
base[1]= VV[18]; |
980 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
981 |
Lgetf(); |
Lgetf(); |
982 |
vs_top=sup; |
vs_top=sup; |
983 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
984 |
goto T327;} |
goto T322;} |
985 |
{register object V190; |
{register object V204; |
986 |
register object V191; |
register object V205; |
987 |
register object V192; |
register object V206; |
988 |
V190= (V186); |
V204= (V200); |
989 |
V191= Cnil; |
V205= Cnil; |
990 |
V192= Cnil; |
V206= Cnil; |
991 |
goto T333; |
goto T328; |
992 |
T333:; |
T328:; |
993 |
if(((V190))!=Cnil){ |
if(((V204))!=Cnil){ |
994 |
goto T335;} |
goto T330;} |
995 |
goto T327; |
goto T322; |
996 |
goto T335; |
goto T330; |
997 |
T335:; |
T330:; |
998 |
{register object V193; |
{register object V207; |
999 |
V193= CMPcar((V190)); |
V207= CMPcar((V204)); |
1000 |
V190= CMPcdr((V190)); |
V204= CMPcdr((V204)); |
1001 |
V191= (V193);} |
V205= (V207);} |
1002 |
if(((V190))!=Cnil){ |
if(((V204))!=Cnil){ |
1003 |
goto T343;} |
goto T338;} |
1004 |
base[0]= VV[17]; |
base[0]= VV[17]; |
1005 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1006 |
Lerror(); |
Lerror(); |
1007 |
vs_top=sup; |
vs_top=sup; |
1008 |
goto T343; |
goto T338; |
1009 |
T343:; |
T338:; |
1010 |
{register object V194; |
{register object V208; |
1011 |
V194= CMPcar((V190)); |
V208= CMPcar((V204)); |
1012 |
V190= CMPcdr((V190)); |
V204= CMPcdr((V204)); |
1013 |
V192= (V194);} |
V206= (V208);} |
1014 |
{register object x= (V191),V195= (V188); |
{register object x= (V205),V209= (V202); |
1015 |
while(V195!=Cnil) |
while(V209!=Cnil) |
1016 |
if(x==(V195->c.c_car)){ |
if(x==(V209->c.c_car)){ |
1017 |
goto T334; |
goto T329; |
1018 |
}else V195=V195->c.c_cdr;} |
}else V209=V209->c.c_cdr;} |
1019 |
if(((V189))==Cnil){ |
if(((V203))==Cnil){ |
1020 |
goto T355;} |
goto T350;} |
1021 |
base[0]= VV[19]; |
base[0]= VV[19]; |
1022 |
base[1]= (V191); |
base[1]= (V205); |
1023 |
base[3]= (V187); |
base[3]= (V201); |
1024 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1025 |
(void) (*Lnk27)(Lclptr27); |
(void) (*Lnk27)(Lclptr27); |
1026 |
vs_top=sup; |
vs_top=sup; |
1028 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1029 |
Lerror(); |
Lerror(); |
1030 |
vs_top=sup; |
vs_top=sup; |
1031 |
goto T334; |
goto T329; |
1032 |
goto T355; |
goto T350; |
1033 |
T355:; |
T350:; |
1034 |
{object V196 = Cnil; |
{object V210 = Cnil; |
1035 |
VMR11(V196)} |
VMR11(V210)} |
1036 |
goto T334; |
goto T329; |
1037 |
T334:; |
T329:; |
1038 |
goto T333;} |
goto T328;} |
1039 |
goto T327; |
goto T322; |
1040 |
T327:; |
T322:; |
1041 |
{object V197 = Ct; |
{object V211 = Ct; |
1042 |
VMR11(V197)} |
VMR11(V211)} |
1043 |
va_end(ap); |
va_end(ap); |
1044 |
base[0]=base[0]; |
base[0]=base[0]; |
1045 |
return Cnil;} |
return Cnil;} |
1046 |
} |
} |
1047 |
/* local entry for function CHECK-INITARGS-2-LIST */ |
/* local entry for function CHECK-INITARGS-2-LIST */ |
1048 |
|
|
1049 |
static object LI12(object V200,object V199,object V198,object first,...) |
static object LI12(object V214,object V213,object V212,object first,...) |
1050 |
{ |
{ |
1051 |
va_list ap; |
va_list ap; |
1052 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
1053 |
{object V201; |
{object V215; |
1054 |
register object V202; |
register object V216; |
1055 |
register object V203; |
register object V217; |
1056 |
register object V204; |
register object V218; |
1057 |
va_start(ap,first); |
va_start(ap,first); |
1058 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1059 |
V201= V200; |
V215= V214; |
1060 |
V202= V199; |
V216= V213; |
1061 |
V203= V198; |
V217= V212; |
1062 |
narg = narg - 3; |
narg = narg - 3; |
1063 |
if (narg <= 0) goto T362; |
if (narg <= 0) goto T357; |
1064 |
else { |
else { |
1065 |
V204= first;} |
V218= first;} |
1066 |
--narg; goto T363; |
--narg; goto T358; |
1067 |
goto T362; |
goto T357; |
1068 |
T362:; |
T357:; |
1069 |
V204= Ct; |
V218= Ct; |
1070 |
goto T363; |
goto T358; |
1071 |
T363:; |
T358:; |
1072 |
{register object x= VV[18],V205= (V201); |
{register object x= VV[18],V219= (V215); |
1073 |
while(V205!=Cnil) |
while(V219!=Cnil) |
1074 |
if(x==(V205->c.c_car)){ |
if(x==(V219->c.c_car)){ |
1075 |
goto T365; |
goto T360; |
1076 |
}else V205=V205->c.c_cdr;} |
}else V219=V219->c.c_cdr;} |
1077 |
{register object V206; |
{register object V220; |
1078 |
register object V207; |
register object V221; |
1079 |
V206= (V201); |
V220= (V215); |
1080 |
V207= CMPcar((V206)); |
V221= CMPcar((V220)); |
1081 |
|
goto T366; |
1082 |
|
T366:; |
1083 |
|
if(!(((V220))==Cnil)){ |
1084 |
|
goto T367;} |
1085 |
|
goto T360; |
1086 |
|
goto T367; |
1087 |
|
T367:; |
1088 |
|
{register object x= (V221),V222= (V217); |
1089 |
|
while(V222!=Cnil) |
1090 |
|
if(x==(V222->c.c_car)){ |
1091 |
goto T371; |
goto T371; |
1092 |
T371:; |
}else V222=V222->c.c_cdr;} |
1093 |
if(!(((V206))==Cnil)){ |
if(((V218))==Cnil){ |
1094 |
goto T372;} |
goto T375;} |
|
goto T365; |
|
|
goto T372; |
|
|
T372:; |
|
|
{register object x= (V207),V208= (V203); |
|
|
while(V208!=Cnil) |
|
|
if(x==(V208->c.c_car)){ |
|
|
goto T376; |
|
|
}else V208=V208->c.c_cdr;} |
|
|
if(((V204))==Cnil){ |
|
|
goto T380;} |
|
1095 |
base[1]= VV[20]; |
base[1]= VV[20]; |
1096 |
base[2]= (V207); |
base[2]= (V221); |
1097 |
base[4]= (V202); |
base[4]= (V216); |
1098 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1099 |
(void) (*Lnk27)(Lclptr27); |
(void) (*Lnk27)(Lclptr27); |
1100 |
vs_top=sup; |
vs_top=sup; |
1102 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1103 |
Lerror(); |
Lerror(); |
1104 |
vs_top=sup; |
vs_top=sup; |
1105 |
goto T376; |
goto T371; |
1106 |
goto T380; |
goto T375; |
1107 |
T380:; |
T375:; |
1108 |
{object V209 = Cnil; |
{object V223 = Cnil; |
1109 |
VMR12(V209)} |
VMR12(V223)} |
1110 |
goto T376; |
goto T371; |
1111 |
T376:; |
T371:; |
1112 |
V206= CMPcdr((V206)); |
V220= CMPcdr((V220)); |
1113 |
V207= CMPcar((V206)); |
V221= CMPcar((V220)); |
1114 |
goto T371;} |
goto T366;} |
1115 |
goto T365; |
goto T360; |
1116 |
T365:; |
T360:; |
1117 |
{object V210 = Ct; |
{object V224 = Ct; |
1118 |
VMR12(V210)} |
VMR12(V224)} |
1119 |
va_end(ap); |
va_end(ap); |
1120 |
base[0]=base[0]; |
base[0]=base[0]; |
1121 |
return Cnil;} |
return Cnil;} |
1130 |
static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* CHECK-INITARGS-VALUES */ |
static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* CHECK-INITARGS-VALUES */ |
1131 |
static void LnkT40(ptr) object *ptr;{ call_or_link_closure(VV[40],(void **)(void *)&Lnk40,(void **)(void *)&Lclptr40);} /* SLOT-DEFINITION-INITFUNCTION */ |
static void LnkT40(ptr) object *ptr;{ call_or_link_closure(VV[40],(void **)(void *)&Lnk40,(void **)(void *)&Lclptr40);} /* SLOT-DEFINITION-INITFUNCTION */ |
1132 |
static void LnkT39(ptr) object *ptr;{ call_or_link_closure(VV[39],(void **)(void *)&Lnk39,(void **)(void *)&Lclptr39);} /* SLOT-BOUNDP-USING-CLASS */ |
static void LnkT39(ptr) object *ptr;{ call_or_link_closure(VV[39],(void **)(void *)&Lnk39,(void **)(void *)&Lclptr39);} /* SLOT-BOUNDP-USING-CLASS */ |
|
static void LnkT38(ptr) object *ptr;{ call_or_link_closure(VV[38],(void **)(void *)&Lnk38,(void **)(void *)&Lclptr38);} /* SETF PCL SLOT-VALUE-USING-CLASS */ |
|
1133 |
static void LnkT37(ptr) object *ptr;{ call_or_link_closure(VV[37],(void **)(void *)&Lnk37,(void **)(void *)&Lclptr37);} /* SLOT-DEFINITION-INITARGS */ |
static void LnkT37(ptr) object *ptr;{ call_or_link_closure(VV[37],(void **)(void *)&Lnk37,(void **)(void *)&Lclptr37);} /* SLOT-DEFINITION-INITARGS */ |
1134 |
static void LnkT36(){ call_or_link(VV[36],(void **)(void *)&Lnk36);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT36(){ call_or_link(VV[36],(void **)(void *)&Lnk36);} /* CCLOSURE-ENV-NTHCDR */ |
1135 |
static object LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[35],(void **)(void *)&LnkLI35,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */ |
static object LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[35],(void **)(void *)&LnkLI35,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */ |