2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_handler.h" |
#include "clcs_handler.h" |
4 |
void init_clcs_handler(){do_init(VV);} |
void init_clcs_handler(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2186 */ |
/* local entry for function progn 'compile2191 */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
18 |
base[0]=base[0]; |
base[0]=base[0]; |
19 |
return Cnil; |
return Cnil; |
20 |
} |
} |
21 |
/* local entry for function progn 'compile2198 */ |
/* local entry for function progn 'compile2203 */ |
22 |
|
|
23 |
static object LI2() |
static object LI2() |
24 |
|
|
37 |
VMR2(V2)} |
VMR2(V2)} |
38 |
return Cnil; |
return Cnil; |
39 |
} |
} |
40 |
/* local entry for function progn 'compile2211 */ |
/* local entry for function progn 'compile2216 */ |
41 |
|
|
42 |
static object LI3() |
static object LI3() |
43 |
|
|
93 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
94 |
return; |
return; |
95 |
} |
} |
96 |
/* local entry for function progn 'compile2249 */ |
/* local entry for function progn 'compile2254 */ |
97 |
|
|
98 |
static object LI5() |
static object LI5() |
99 |
|
|
109 |
base[0]=base[0]; |
base[0]=base[0]; |
110 |
return Cnil; |
return Cnil; |
111 |
} |
} |
112 |
/* local entry for function progn 'compile2261 */ |
/* local entry for function progn 'compile2266 */ |
113 |
|
|
114 |
static object LI6() |
static object LI6() |
115 |
|
|
128 |
VMR6(V11)} |
VMR6(V11)} |
129 |
return Cnil; |
return Cnil; |
130 |
} |
} |
131 |
/* local entry for function progn 'compile2274 */ |
/* local entry for function progn 'compile2279 */ |
132 |
|
|
133 |
static object LI7() |
static object LI7() |
134 |
|
|
667 |
Lgensym(); |
Lgensym(); |
668 |
vs_top=sup; |
vs_top=sup; |
669 |
V86= vs_base[0]; |
V86= vs_base[0]; |
670 |
(V83->c.c_car)= make_cons(V86,(V84->c.c_car)); |
V87 = (V84->c.c_car); |
671 |
|
(V83->c.c_car)= make_cons(V86,V87); |
672 |
if((V84=MMcdr(V84))==Cnil){ |
if((V84=MMcdr(V84))==Cnil){ |
673 |
V82= base[4]; |
V82= base[4]; |
674 |
goto T185;} |
goto T185;} |
676 |
goto T186;} |
goto T186;} |
677 |
goto T185; |
goto T185; |
678 |
T185:; |
T185:; |
679 |
V87= list(2,(V81),Cnil); |
V88= list(2,(V81),Cnil); |
680 |
V88= make_cons(/* INLINE-ARGS */V87,Cnil); |
V89= make_cons(/* INLINE-ARGS */V88,Cnil); |
681 |
{object V90; |
{object V91; |
682 |
object V91= (V82); |
object V92= (V82); |
683 |
if(V91==Cnil){ |
if(V92==Cnil){ |
684 |
V89= Cnil; |
V90= Cnil; |
685 |
goto T189;} |
goto T189;} |
686 |
base[4]=V90=MMcons(Cnil,Cnil); |
base[4]=V91=MMcons(Cnil,Cnil); |
687 |
goto T190; |
goto T190; |
688 |
T190:; |
T190:; |
689 |
V93= CMPcadr((V91->c.c_car)); |
V94= CMPcadr((V92->c.c_car)); |
690 |
if((CMPcaddr((V91->c.c_car)))==Cnil){ |
if((CMPcaddr((V92->c.c_car)))==Cnil){ |
691 |
goto T194;} |
goto T194;} |
692 |
V95= list(3,VV[61],(V81),VV[62]); |
V96= list(3,VV[61],(V81),VV[62]); |
693 |
V94= make_cons(/* INLINE-ARGS */V95,Cnil); |
V95= make_cons(/* INLINE-ARGS */V96,Cnil); |
694 |
goto T192; |
goto T192; |
695 |
goto T194; |
goto T194; |
696 |
T194:; |
T194:; |
697 |
V94= Cnil; |
V95= Cnil; |
698 |
goto T192; |
goto T192; |
699 |
T192:; |
T192:; |
700 |
V96= list(2,VV[63],CMPcar((V91->c.c_car))); |
V97= list(2,VV[63],CMPcar((V92->c.c_car))); |
701 |
V97= make_cons(/* INLINE-ARGS */V96,Cnil); |
V98= make_cons(/* INLINE-ARGS */V97,Cnil); |
702 |
(V90->c.c_car)= list(2,/* INLINE-ARGS */V93,list(2,VV[54],listA(3,VV[55],VV[60],append(V94,/* INLINE-ARGS */V97)))); |
(V91->c.c_car)= list(2,/* INLINE-ARGS */V94,list(2,VV[54],listA(3,VV[55],VV[60],append(V95,/* INLINE-ARGS */V98)))); |
703 |
if((V91=MMcdr(V91))==Cnil){ |
if((V92=MMcdr(V92))==Cnil){ |
704 |
V89= base[4]; |
V90= base[4]; |
705 |
goto T189;} |
goto T189;} |
706 |
V90=MMcdr(V90)=MMcons(Cnil,Cnil); |
V91=MMcdr(V91)=MMcons(Cnil,Cnil); |
707 |
goto T190;} |
goto T190;} |
708 |
goto T189; |
goto T189; |
709 |
T189:; |
T189:; |
710 |
V98= list(3,VV[59],V89,list(3,VV[56],(V80),base[2])); |
V99= list(3,VV[59],V90,list(3,VV[56],(V80),base[2])); |
711 |
{object V100; |
{object V101; |
712 |
object V101= (V82); |
object V102= (V82); |
713 |
if(V101==Cnil){ |
if(V102==Cnil){ |
714 |
V99= Cnil; |
V100= Cnil; |
715 |
goto T196;} |
goto T196;} |
716 |
base[4]=V100=MMcons(Cnil,Cnil); |
base[4]=V101=MMcons(Cnil,Cnil); |
717 |
goto T197; |
goto T197; |
718 |
T197:; |
T197:; |
719 |
{register object V102; |
{register object V103; |
720 |
V102= (V101->c.c_car); |
V103= (V102->c.c_car); |
721 |
V103= CMPcar((V102)); |
V104= CMPcar((V103)); |
722 |
{register object V105; |
{register object V106; |
723 |
V105= CMPcdddr((V102)); |
V106= CMPcdddr((V103)); |
724 |
if((CMPcaddr((V102)))==Cnil){ |
V107 = (V80); |
725 |
|
if((CMPcaddr((V103)))==Cnil){ |
726 |
goto T203;} |
goto T203;} |
727 |
V107= list(2,CMPcaaddr((V102)),(V81)); |
V109= list(2,CMPcaaddr((V103)),(V81)); |
728 |
V106= listA(3,VV[2],make_cons(/* INLINE-ARGS */V107,Cnil),(V105)); |
V108= listA(3,VV[2],make_cons(/* INLINE-ARGS */V109,Cnil),(V106)); |
729 |
goto T201; |
goto T201; |
730 |
goto T203; |
goto T203; |
731 |
T203:; |
T203:; |
732 |
if((CMPcdr((V105)))!=Cnil){ |
if((CMPcdr((V106)))!=Cnil){ |
733 |
goto T206;} |
goto T206;} |
734 |
V106= CMPcar((V105)); |
V108= CMPcar((V106)); |
735 |
goto T201; |
goto T201; |
736 |
goto T206; |
goto T206; |
737 |
T206:; |
T206:; |
738 |
V106= make_cons(VV[64],(V105)); |
V108= make_cons(VV[64],(V106)); |
739 |
goto T201; |
goto T201; |
740 |
T201:; |
T201:; |
741 |
V104= list(3,VV[56],(V80),V106);} |
V105= list(3,VV[56],V107,V108);} |
742 |
(V100->c.c_cdr)= list(2,/* INLINE-ARGS */V103,V104);} |
(V101->c.c_cdr)= list(2,/* INLINE-ARGS */V104,V105);} |
743 |
while(MMcdr(V100)!=Cnil)V100=MMcdr(V100); |
while(MMcdr(V101)!=Cnil)V101=MMcdr(V101); |
744 |
if((V101=MMcdr(V101))==Cnil){ |
if((V102=MMcdr(V102))==Cnil){ |
745 |
base[4]=base[4]->c.c_cdr; |
base[4]=base[4]->c.c_cdr; |
746 |
V99= base[4]; |
V100= base[4]; |
747 |
goto T196;} |
goto T196;} |
748 |
goto T197;} |
goto T197;} |
749 |
goto T196; |
goto T196; |
750 |
T196:; |
T196:; |
751 |
base[4]= list(3,VV[52],(V80),list(4,VV[2],/* INLINE-ARGS */V88,(V81),listA(3,VV[58],/* INLINE-ARGS */V98,V99))); |
base[4]= list(3,VV[52],(V80),list(4,VV[2],/* INLINE-ARGS */V89,(V81),listA(3,VV[58],/* INLINE-ARGS */V99,V100))); |
752 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
753 |
return;}} |
return;}} |
754 |
} |
} |
759 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
760 |
vs_check; |
vs_check; |
761 |
vs_top=sup; |
vs_top=sup; |
762 |
{object V108=base[0]->c.c_cdr; |
{object V110=base[0]->c.c_cdr; |
763 |
base[2]= V108;} |
base[2]= V110;} |
764 |
base[3]= list(3,VV[57],make_cons(VV[64],base[2]),VV[65]); |
base[3]= list(3,VV[57],make_cons(VV[64],base[2]),VV[65]); |
765 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
766 |
return; |
return; |
772 |
register object *VOL sup=base+VM16; VC16 |
register object *VOL sup=base+VM16; VC16 |
773 |
vs_check; |
vs_check; |
774 |
bds_check; |
bds_check; |
775 |
{VOL object V109; |
{VOL object V111; |
776 |
V109=(base[0]); |
V111=(base[0]); |
777 |
vs_top=sup; |
vs_top=sup; |
778 |
goto TTL; |
goto TTL; |
779 |
TTL:; |
TTL:; |
786 |
if(eql(nlj_tag,VV[66]))goto T210; |
if(eql(nlj_tag,VV[66]))goto T210; |
787 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
788 |
} |
} |
789 |
V110= |
V112= |
790 |
make_cclosure_new(LC26,Cnil,base[2],Cdata); |
make_cclosure_new(LC26,Cnil,base[2],Cdata); |
791 |
V111= make_cons(VV[21],V110); |
V113= make_cons(VV[21],V112); |
792 |
V112= make_cons(/* INLINE-ARGS */V111,Cnil); |
V114= make_cons(/* INLINE-ARGS */V113,Cnil); |
793 |
base[3]= make_cons(/* INLINE-ARGS */V112,(VV[0]->s.s_dbind)); |
base[3]= make_cons(/* INLINE-ARGS */V114,(VV[0]->s.s_dbind)); |
794 |
bds_bind(VV[0],base[3]); |
bds_bind(VV[0],base[3]); |
795 |
base[4]= (V109); |
base[4]= (V111); |
796 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
797 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
798 |
frs_pop(); |
frs_pop(); |
800 |
return; |
return; |
801 |
goto T210; |
goto T210; |
802 |
T210:; |
T210:; |
803 |
{object V113; |
{object V115; |
804 |
V113= (base[1]->c.c_car); |
V115= (base[1]->c.c_car); |
805 |
base[3]= Cnil; |
base[3]= Cnil; |
806 |
base[4]= (V113); |
base[4]= (V115); |
807 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
808 |
frs_pop(); |
frs_pop(); |
809 |
return;} |
return;} |
820 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
821 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
822 |
vs_check; |
vs_check; |
823 |
{object V114; |
{object V116; |
824 |
V114=(base[0]); |
V116=(base[0]); |
825 |
vs_top=sup; |
vs_top=sup; |
826 |
(base0[1]->c.c_car)= (V114); |
(base0[1]->c.c_car)= (V116); |
827 |
{frame_ptr fr; |
{frame_ptr fr; |
828 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
829 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[66]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[66]); |
838 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
839 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
840 |
vs_check; |
vs_check; |
841 |
{object V115; |
{object V117; |
842 |
V115=(base[0]); |
V117=(base[0]); |
843 |
vs_top=sup; |
vs_top=sup; |
844 |
base[1]= VV[45]; |
base[1]= VV[45]; |
845 |
base[2]= (V115); |
base[2]= (V117); |
846 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
847 |
Lwrite_string(); |
Lwrite_string(); |
848 |
return; |
return; |
855 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
856 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
857 |
vs_check; |
vs_check; |
858 |
{object V116; |
{object V118; |
859 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
860 |
{object *p=vs_top; |
{object *p=vs_top; |
861 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
862 |
V116=(base[0]); |
V118=(base[0]); |
863 |
vs_top=sup; |
vs_top=sup; |
864 |
(base0[1]->c.c_car)= (V116); |
(base0[1]->c.c_car)= (V118); |
865 |
{frame_ptr fr; |
{frame_ptr fr; |
866 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
867 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[46]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[46]); |
876 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
877 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
878 |
vs_check; |
vs_check; |
879 |
{register object V117; |
{register object V119; |
880 |
V117=(base[0]); |
V119=(base[0]); |
881 |
vs_top=sup; |
vs_top=sup; |
882 |
base[1]= (V117); |
base[1]= (V119); |
883 |
base[2]= VV[36]; |
base[2]= VV[36]; |
884 |
base[3]= VV[37]; |
base[3]= VV[37]; |
885 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
894 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
895 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
896 |
vs_check; |
vs_check; |
897 |
{register object V118; |
{register object V120; |
898 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
899 |
{object *p=vs_top; |
{object *p=vs_top; |
900 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
901 |
V118=(base[0]); |
V120=(base[0]); |
902 |
vs_top=sup; |
vs_top=sup; |
903 |
(base0[1]->c.c_car)= (V118); |
(base0[1]->c.c_car)= (V120); |
904 |
{frame_ptr fr; |
{frame_ptr fr; |
905 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
906 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[41]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[41]); |
915 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
916 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
917 |
vs_check; |
vs_check; |
918 |
{object V119; |
{object V121; |
919 |
V119=(base[0]); |
V121=(base[0]); |
920 |
vs_top=sup; |
vs_top=sup; |
921 |
base[1]= (V119); |
base[1]= (V121); |
922 |
base[2]= VV[30]; |
base[2]= VV[30]; |
923 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
924 |
Lformat(); |
Lformat(); |
932 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
933 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
934 |
vs_check; |
vs_check; |
935 |
{object V120; |
{object V122; |
936 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
937 |
{object *p=vs_top; |
{object *p=vs_top; |
938 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
939 |
V120=(base[0]); |
V122=(base[0]); |
940 |
vs_top=sup; |
vs_top=sup; |
941 |
(base0[1]->c.c_car)= (V120); |
(base0[1]->c.c_car)= (V122); |
942 |
{frame_ptr fr; |
{frame_ptr fr; |
943 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
944 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[31]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[31]); |
953 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
954 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
955 |
vs_check; |
vs_check; |
956 |
{object V121; |
{object V123; |
957 |
V121=(base[0]); |
V123=(base[0]); |
958 |
vs_top=sup; |
vs_top=sup; |
959 |
base[1]= (V121); |
base[1]= (V123); |
960 |
base[2]= VV[27]; |
base[2]= VV[27]; |
961 |
base[4]= Cnil; |
base[4]= Cnil; |
962 |
base[5]= (base0[3]->c.c_car); |
base[5]= (base0[3]->c.c_car); |
963 |
{object V122; |
{object V124; |
964 |
V122= (base0[2]->c.c_car); |
V124= (base0[2]->c.c_car); |
965 |
vs_top=base+6; |
vs_top=base+6; |
966 |
while(V122!=Cnil) |
while(V124!=Cnil) |
967 |
{vs_push((V122)->c.c_car);V122=(V122)->c.c_cdr;} |
{vs_push((V124)->c.c_car);V124=(V124)->c.c_cdr;} |
968 |
vs_base=base+4;} |
vs_base=base+4;} |
969 |
Lformat(); |
Lformat(); |
970 |
vs_top=sup; |
vs_top=sup; |
981 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
982 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
983 |
vs_check; |
vs_check; |
984 |
{object V123; |
{object V125; |
985 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
986 |
{object *p=vs_top; |
{object *p=vs_top; |
987 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
988 |
V123=(base[0]); |
V125=(base[0]); |
989 |
vs_top=sup; |
vs_top=sup; |
990 |
(base0[1]->c.c_car)= (V123); |
(base0[1]->c.c_car)= (V125); |
991 |
{frame_ptr fr; |
{frame_ptr fr; |
992 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
993 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[28]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[28]); |
1002 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1003 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
1004 |
vs_check; |
vs_check; |
1005 |
{object V124; |
{object V126; |
1006 |
V124=(base[0]); |
V126=(base[0]); |
1007 |
vs_top=sup; |
vs_top=sup; |
1008 |
if(type_of((V124))==t_cons||((V124))==Cnil){ |
if(type_of((V126))==t_cons||((V126))==Cnil){ |
1009 |
goto T240;} |
goto T240;} |
1010 |
base[1]= Cnil; |
base[1]= Cnil; |
1011 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1012 |
return; |
return; |
1013 |
goto T240; |
goto T240; |
1014 |
T240:; |
T240:; |
1015 |
base[1]= (((long)length((V124)))==(2)?Ct:Cnil); |
base[1]= (((long)length((V126)))==(2)?Ct:Cnil); |
1016 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1017 |
return; |
return; |
1018 |
} |
} |