/[gcl]/gcl/clcs/clcs_handler.c
ViewVC logotype

Diff of /gcl/clcs/clcs_handler.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Tue Sep 23 21:48:26 2003 UTC revision 1.8 by camm, Fri Oct 3 16:03:15 2003 UTC
# Line 2  Line 2 
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    
# Line 18  TTL:; Line 18  TTL:;
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    
# Line 37  T3:; Line 37  T3:;
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    
# Line 93  T14:; Line 93  T14:;
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    
# Line 109  TTL:; Line 109  TTL:;
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    
# Line 128  T19:; Line 128  T19:;
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    
# Line 667  T186:; Line 667  T186:;
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;}
# Line 675  T186:; Line 676  T186:;
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  }  }
# Line 757  static void L15() Line 759  static void L15()
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;
# Line 770  static void L16() Line 772  static void L16()
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:;
# Line 784  TTL:; Line 786  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();
# Line 798  TTL:; Line 800  TTL:;
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;}
# Line 818  register object *base0; Line 820  register object *base0;
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]);
# Line 836  register object *base0; Line 838  register object *base0;
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;
# Line 853  register object *base0; Line 855  register object *base0;
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]);
# Line 874  register object *base0; Line 876  register object *base0;
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;
# Line 892  register object *base0; Line 894  register object *base0;
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]);
# Line 913  register object *base0; Line 915  register object *base0;
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();
# Line 930  register object *base0; Line 932  register object *base0;
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]);
# Line 951  register object *base0; Line 953  register object *base0;
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;
# Line 979  register object *base0; Line 981  register object *base0;
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]);
# Line 1000  register object *base0; Line 1002  register object *base0;
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          }          }

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26