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

Diff of /gcl/clcs/clcs_macros.c

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

revision 1.2.4.1.4.1 by camm, Tue Sep 23 18:39:17 2003 UTC revision 1.2.4.1.4.2 by camm, Tue Sep 23 19:32:30 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_macros.h"  #include "clcs_macros.h"
4  void init_clcs_macros(){do_init(VV);}  void init_clcs_macros(){do_init(VV);}
5  /*      function definition for ACCUMULATE-CASES        */  /*      local entry for function ACCUMULATE-CASES       */
6    
7  static void L1()  static object LI1(V4,V5,V6)
8  {register object *base=vs_base;  
9          register object *sup=base+VM1; VC1  object V4;object V5;object V6;
10          vs_check;  {        VMB1 VMS1 VMV1
         {object V1;  
         object V2;  
         object V3;  
         V1=(base[0]);  
         V2=(base[1]);  
         V3=(base[2]);  
         vs_top=sup;  
11          goto TTL;          goto TTL;
12  TTL:;  TTL:;
13          {register object V4;          {register object V7;
14          register object V5;          register object V8;
15          V4= Cnil;          V7= Cnil;
16          V5= (V2);          V8= (V5);
17          goto T2;          goto T2;
18  T2:;  T2:;
19          if(((V5))!=Cnil){          if(((V8))!=Cnil){
20          goto T3;}          goto T3;}
21          base[3]= nreverse((V4));          {object V9 = nreverse((V7));
22          vs_top=(vs_base=base+3)+1;          VMR1(V9)}
         return;  
23          goto T3;          goto T3;
24  T3:;  T3:;
25          {register object V6;          {register object V10;
26          V6= CMPcaar((V5));          V10= CMPcaar((V8));
27          if(!(type_of((V6))!=t_cons)){          if(!(type_of((V10))!=t_cons)){
28          goto T10;}          goto T10;}
29          {object V7;          {object V11;
30          V7= (((V6))==Cnil?Ct:Cnil);          V11= (((V10))==Cnil?Ct:Cnil);
31          if(((V7))==Cnil){          if(((V11))==Cnil){
32          goto T14;}          goto T14;}
33          goto T7;          goto T7;
34          goto T14;          goto T14;
35  T14:;  T14:;
36          {register object x= (V6),V8= VV[0];          {register object x= (V10),V12= VV[0];
37          while(V8!=Cnil)          while(V12!=Cnil)
38          if(eql(x,V8->c.c_car)){          if(eql(x,V12->c.c_car)){
39          goto T18;          goto T18;
40          }else V8=V8->c.c_cdr;          }else V12=V12->c.c_cdr;
41          goto T17;}          goto T17;}
42          goto T18;          goto T18;
43  T18:;  T18:;
44          {register object x= (V1),V9= VV[1];          {register object x= (V4),V13= VV[1];
45          while(V9!=Cnil)          while(V13!=Cnil)
46          if(eql(x,V9->c.c_car)){          if(eql(x,V13->c.c_car)){
47          goto T19;          goto T19;
48          }else V9=V9->c.c_cdr;}          }else V13=V13->c.c_cdr;}
49          base[3]= VV[2];          base[0]= VV[2];
50          base[4]= (V1);          base[1]= (V4);
51          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+0)+2;
52          (void) (*Lnk8)();          (void) (*Lnk8)();
53          vs_top=sup;          vs_top=sup;
54          goto T19;          goto T19;
55  T19:;  T19:;
56          {object V10;          {object V14;
57          V10= make_cons((V6),Cnil);          V14= make_cons((V10),Cnil);
58          V4= make_cons((V10),(V4));          V7= make_cons((V14),(V7));
59          goto T7;}          goto T7;}
60          goto T17;          goto T17;
61  T17:;  T17:;
62          V4= make_cons(V6,(V4));          V7= make_cons(V10,(V7));
63          goto T7;}          goto T7;}
64          goto T10;          goto T10;
65  T10:;  T10:;
66          if(((V3))==Cnil){          if(((V6))==Cnil){
67          goto T28;}          goto T28;}
68          V4= make_cons(V6,(V4));          V7= make_cons(V10,(V7));
69          goto T7;          goto T7;
70          goto T28;          goto T28;
71  T28:;  T28:;
72          {register object V13;          {register object V17;
73          register object V14;          register object V18;
74          V13= (V6);          V17= (V10);
75          V14= CMPcar((V13));          V18= CMPcar((V17));
76          goto T34;          goto T34;
77  T34:;  T34:;
78          if(!(((V13))==Cnil)){          if(!(((V17))==Cnil)){
79          goto T35;}          goto T35;}
80          goto T7;          goto T7;
81          goto T35;          goto T35;
82  T35:;  T35:;
83          {register object V15;          {register object V19;
84          V15= (V14);          V19= (V18);
85          V4= make_cons((V15),(V4));}          V7= make_cons((V19),(V7));}
86          V13= CMPcdr((V13));          V17= CMPcdr((V17));
87          V14= CMPcar((V13));          V18= CMPcar((V17));
88          goto T34;}}          goto T34;}}
89          goto T7;          goto T7;
90  T7:;  T7:;
91          V5= CMPcdr((V5));          V8= CMPcdr((V8));
92          goto T2;}          goto T2;}
93          }          base[0]=base[0];
94            return Cnil;
95  }  }
96  /*      function definition for ESCAPE-SPECIAL-CASES-REPLACE    */  /*      local entry for function ESCAPE-SPECIAL-CASES-REPLACE   */
97    
98  static void L2()  static object LI2(V21)
99  {register object *base=vs_base;  
100          register object *sup=base+VM2; VC2  register object V21;
101          vs_check;  {        VMB2 VMS2 VMV2
         {register object V16;  
         V16=(base[0]);  
         vs_top=sup;  
102          goto TTL;          goto TTL;
103  TTL:;  TTL:;
104          {register object V17;          {register object V22;
105          V17= (V16);          V22= (V21);
106          goto T51;          goto T51;
107  T51:;  T51:;
108          if(((V17))!=Cnil){          if(((V22))!=Cnil){
109          goto T52;}          goto T52;}
110          base[1]= (V16);          {object V23 = (V21);
111          vs_top=(vs_base=base+1)+1;          VMR2(V23)}
         return;  
112          goto T52;          goto T52;
113  T52:;  T52:;
114          {register object V18;          {register object V24;
115          V18= CMPcaar((V17));          V24= CMPcaar((V22));
116          {register object x= (V18),V19= VV[3];          {register object x= (V24),V25= VV[3];
117          while(V19!=Cnil)          while(V25!=Cnil)
118          if(eql(x,V19->c.c_car)){          if(eql(x,V25->c.c_car)){
119          goto T59;          goto T59;
120          }else V19=V19->c.c_cdr;          }else V25=V25->c.c_cdr;
121          goto T56;}          goto T56;}
122          goto T59;          goto T59;
123  T59:;  T59:;
124          V20= CMPcar((V17));          V26= CMPcar((V22));
125          V21= make_cons((V18),Cnil);          V27= make_cons((V24),Cnil);
126          (/* INLINE-ARGS */V20)->c.c_car = /* INLINE-ARGS */V21;}          (/* INLINE-ARGS */V26)->c.c_car = /* INLINE-ARGS */V27;}
127          goto T56;          goto T56;
128  T56:;  T56:;
129          V17= CMPcdr((V17));          V22= CMPcdr((V22));
130          goto T51;}          goto T51;}
131          }          return Cnil;
132  }  }
133  /*      macro definition for ECASE      */  /*      macro definition for ECASE      */
134    
# Line 148  static void L3() Line 137  static void L3()
137          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
138          vs_check;          vs_check;
139          vs_top=sup;          vs_top=sup;
140          {object V22=base[0]->c.c_cdr;          {object V28=base[0]->c.c_cdr;
141          base[2]= (V22->c.c_car);          base[2]= (V28->c.c_car);
142          V22=V22->c.c_cdr;          V28=V28->c.c_cdr;
143          base[3]= V22;}          base[3]= V28;}
144          {object V23;          {object V29;
145          object V24;          object V30;
146          object V25;          object V31;
147          base[4]= VV[4];          V29= (*(LnkLI72))(VV[4],base[3],Cnil);
148          base[5]= base[3];          V30= (*(LnkLI73))(base[3]);
         base[6]= Cnil;  
         vs_top=(vs_base=base+4)+3;  
         (void) (*Lnk72)();  
         vs_top=sup;  
         V23= vs_base[0];  
         base[4]= base[3];  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk73)();  
         vs_top=sup;  
         V24= vs_base[0];  
149          vs_base=vs_top;          vs_base=vs_top;
150          Lgensym();          Lgensym();
151          vs_top=sup;          vs_top=sup;
152          V25= vs_base[0];          V31= vs_base[0];
153          V26= list(2,(V25),base[2]);          V32= list(2,(V31),base[2]);
154          V27= make_cons(/* INLINE-ARGS */V26,Cnil);          V33= make_cons(/* INLINE-ARGS */V32,Cnil);
155          V28= list(2,VV[14],make_cons(VV[15],(V23)));          V34= list(2,VV[14],make_cons(VV[15],(V29)));
156          V29= list(2,VV[7],list(10,VV[8],VV[9],VV[10],VV[11],VV[12],(V25),VV[13],/* INLINE-ARGS */V28,VV[16],list(2,VV[14],(V23))));          V35= list(2,VV[7],list(10,VV[8],VV[9],VV[10],VV[11],VV[12],(V31),VV[13],/* INLINE-ARGS */V34,VV[16],list(2,VV[14],(V29))));
157          V30= make_cons(/* INLINE-ARGS */V29,Cnil);          V36= make_cons(/* INLINE-ARGS */V35,Cnil);
158          base[4]= list(3,VV[5],/* INLINE-ARGS */V27,listA(3,VV[6],(V25),append((V24),/* INLINE-ARGS */V30)));          base[4]= list(3,VV[5],/* INLINE-ARGS */V33,listA(3,VV[6],(V31),append((V30),/* INLINE-ARGS */V36)));
159          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
160          return;}          return;}
161  }  }
# Line 187  static void L4() Line 166  static void L4()
166          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
167          vs_check;          vs_check;
168          vs_top=sup;          vs_top=sup;
169          {object V31=base[0]->c.c_cdr;          {object V37=base[0]->c.c_cdr;
170          base[2]= (V31->c.c_car);          base[2]= (V37->c.c_car);
171          V31=V31->c.c_cdr;          V37=V37->c.c_cdr;
172          base[3]= V31;}          base[3]= V37;}
173          {object V32;          {object V38;
174          object V33;          object V39;
175          object V34;          object V40;
176          object V35;          object V41;
177          base[4]= VV[17];          V38= (*(LnkLI72))(VV[17],base[3],Cnil);
178          base[5]= base[3];          V39= (*(LnkLI73))(base[3]);
         base[6]= Cnil;  
         vs_top=(vs_base=base+4)+3;  
         (void) (*Lnk72)();  
         vs_top=sup;  
         V32= vs_base[0];  
         base[4]= base[3];  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk73)();  
         vs_top=sup;  
         V33= vs_base[0];  
179          vs_base=vs_top;          vs_base=vs_top;
180          Lgensym();          Lgensym();
181          vs_top=sup;          vs_top=sup;
182          V34= vs_base[0];          V40= vs_base[0];
183          vs_base=vs_top;          vs_base=vs_top;
184          Lgensym();          Lgensym();
185          vs_top=sup;          vs_top=sup;
186          V35= vs_base[0];          V41= vs_base[0];
187          V36= list(2,VV[14],make_cons(VV[15],(V32)));          V42= list(2,VV[14],make_cons(VV[15],(V38)));
188          V37= list(10,VV[8],VV[22],VV[10],VV[23],VV[12],base[2],VV[13],/* INLINE-ARGS */V36,VV[16],list(2,VV[14],(V32)));          V43= list(10,VV[8],VV[22],VV[10],VV[23],VV[12],base[2],VV[13],/* INLINE-ARGS */V42,VV[16],list(2,VV[14],(V38)));
189          V38= list(3,VV[27],VV[28],list(4,VV[29],VV[30],VV[31],list(2,VV[14],base[2])));          V44= list(3,VV[27],VV[28],list(4,VV[29],VV[30],VV[31],list(2,VV[14],base[2])));
190          V39= list(3,VV[34],base[2],VV[35]);          V45= list(3,VV[34],base[2],VV[35]);
191          V40= list(2,VV[7],list(3,VV[21],/* INLINE-ARGS */V37,list(8,VV[24],VV[25],VV[26],/* INLINE-ARGS */V38,VV[32],VV[33],/* INLINE-ARGS */V39,list(2,VV[36],(V35)))));          V46= list(2,VV[7],list(3,VV[21],/* INLINE-ARGS */V43,list(8,VV[24],VV[25],VV[26],/* INLINE-ARGS */V44,VV[32],VV[33],/* INLINE-ARGS */V45,list(2,VV[36],(V41)))));
192          V41= make_cons(/* INLINE-ARGS */V40,Cnil);          V47= make_cons(/* INLINE-ARGS */V46,Cnil);
193          base[4]= list(3,VV[18],(V34),list(3,VV[19],(V35),list(3,VV[20],(V34),listA(3,VV[6],base[2],append((V33),/* INLINE-ARGS */V41)))));          base[4]= list(3,VV[18],(V40),list(3,VV[19],(V41),list(3,VV[20],(V40),listA(3,VV[6],base[2],append((V39),/* INLINE-ARGS */V47)))));
194          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
195          return;}          return;}
196  }  }
# Line 232  static void L5() Line 201  static void L5()
201          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
202          vs_check;          vs_check;
203          vs_top=sup;          vs_top=sup;
204          {object V42=base[0]->c.c_cdr;          {object V48=base[0]->c.c_cdr;
205          base[2]= (V42->c.c_car);          base[2]= (V48->c.c_car);
206          V42=V42->c.c_cdr;          V48=V48->c.c_cdr;
207          base[3]= V42;}          base[3]= V48;}
208          {object V43;          {object V49;
209          object V44;          object V50;
210          base[4]= VV[37];          V49= (*(LnkLI72))(VV[37],base[3],Ct);
         base[5]= base[3];  
         base[6]= Ct;  
         vs_top=(vs_base=base+4)+3;  
         (void) (*Lnk72)();  
         vs_top=sup;  
         V43= vs_base[0];  
211          vs_base=vs_top;          vs_base=vs_top;
212          Lgensym();          Lgensym();
213          vs_top=sup;          vs_top=sup;
214          V44= vs_base[0];          V50= vs_base[0];
215          V45= list(2,(V44),base[2]);          V51= list(2,(V50),base[2]);
216          V46= make_cons(/* INLINE-ARGS */V45,Cnil);          V52= make_cons(/* INLINE-ARGS */V51,Cnil);
217          V47= list(2,VV[14],make_cons(VV[41],(V43)));          V53= list(2,VV[14],make_cons(VV[41],(V49)));
218          V48= list(2,VV[7],list(10,VV[8],VV[39],VV[10],VV[40],VV[12],(V44),VV[13],/* INLINE-ARGS */V47,VV[16],list(2,VV[14],(V43))));          V54= list(2,VV[7],list(10,VV[8],VV[39],VV[10],VV[40],VV[12],(V50),VV[13],/* INLINE-ARGS */V53,VV[16],list(2,VV[14],(V49))));
219          V49= make_cons(/* INLINE-ARGS */V48,Cnil);          V55= make_cons(/* INLINE-ARGS */V54,Cnil);
220          base[4]= list(3,VV[5],/* INLINE-ARGS */V46,listA(3,VV[38],(V44),append(base[3],/* INLINE-ARGS */V49)));          base[4]= list(3,VV[5],/* INLINE-ARGS */V52,listA(3,VV[38],(V50),append(base[3],/* INLINE-ARGS */V55)));
221          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
222          return;}          return;}
223  }  }
# Line 265  static void L6() Line 228  static void L6()
228          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
229          vs_check;          vs_check;
230          vs_top=sup;          vs_top=sup;
231          {object V50=base[0]->c.c_cdr;          {object V56=base[0]->c.c_cdr;
232          base[2]= (V50->c.c_car);          base[2]= (V56->c.c_car);
233          V50=V50->c.c_cdr;          V56=V56->c.c_cdr;
234          base[3]= V50;}          base[3]= V56;}
235          {object V51;          {object V57;
236          object V52;          object V58;
237          object V53;          object V59;
238          base[4]= VV[42];          V57= (*(LnkLI72))(VV[42],base[3],Ct);
         base[5]= base[3];  
         base[6]= Ct;  
         vs_top=(vs_base=base+4)+3;  
         (void) (*Lnk72)();  
         vs_top=sup;  
         V51= vs_base[0];  
239          vs_base=vs_top;          vs_base=vs_top;
240          Lgensym();          Lgensym();
241          vs_top=sup;          vs_top=sup;
242          V52= vs_base[0];          V58= vs_base[0];
243          vs_base=vs_top;          vs_base=vs_top;
244          Lgensym();          Lgensym();
245          vs_top=sup;          vs_top=sup;
246          V53= vs_base[0];          V59= vs_base[0];
247          V54= list(2,VV[14],make_cons(VV[41],(V51)));          V60= list(2,VV[14],make_cons(VV[41],(V57)));
248          V55= list(10,VV[8],VV[43],VV[10],VV[44],VV[12],base[2],VV[13],/* INLINE-ARGS */V54,VV[16],list(2,VV[14],(V51)));          V61= list(10,VV[8],VV[43],VV[10],VV[44],VV[12],base[2],VV[13],/* INLINE-ARGS */V60,VV[16],list(2,VV[14],(V57)));
249          V56= list(3,VV[27],VV[46],list(4,VV[29],VV[30],VV[47],list(2,VV[14],base[2])));          V62= list(3,VV[27],VV[46],list(4,VV[29],VV[30],VV[47],list(2,VV[14],base[2])));
250          V57= list(3,VV[34],base[2],VV[35]);          V63= list(3,VV[34],base[2],VV[35]);
251          V58= list(2,VV[7],list(3,VV[21],/* INLINE-ARGS */V55,list(8,VV[24],VV[45],VV[26],/* INLINE-ARGS */V56,VV[32],VV[33],/* INLINE-ARGS */V57,list(2,VV[36],(V53)))));          V64= list(2,VV[7],list(3,VV[21],/* INLINE-ARGS */V61,list(8,VV[24],VV[45],VV[26],/* INLINE-ARGS */V62,VV[32],VV[33],/* INLINE-ARGS */V63,list(2,VV[36],(V59)))));
252          V59= make_cons(/* INLINE-ARGS */V58,Cnil);          V65= make_cons(/* INLINE-ARGS */V64,Cnil);
253          base[4]= list(3,VV[18],(V52),list(3,VV[19],(V53),list(3,VV[20],(V52),listA(3,VV[38],base[2],append(base[3],/* INLINE-ARGS */V59)))));          base[4]= list(3,VV[18],(V58),list(3,VV[19],(V59),list(3,VV[20],(V58),listA(3,VV[38],base[2],append(base[3],/* INLINE-ARGS */V65)))));
254          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
255          return;}          return;}
256  }  }
257  /*      function definition for ASSERT-REPORT   */  /*      local entry for function ASSERT-REPORT  */
258    
259  static void L7()  static object LI7(V68,V69)
260  {register object *base=vs_base;  
261          register object *sup=base+VM7; VC7  object V68;object V69;
262          vs_check;  {        VMB7 VMS7 VMV7
         {object V60;  
         object V61;  
         V60=(base[0]);  
         V61=(base[1]);  
         vs_top=sup;  
263          goto TTL;          goto TTL;
264  TTL:;  TTL:;
265          base[2]= (V61);          base[0]= (V69);
266          base[3]= VV[48];          base[1]= VV[48];
267          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+0)+2;
268          Lformat();          Lformat();
269          vs_top=sup;          vs_top=sup;
270          if(((V60))==Cnil){          if(((V68))==Cnil){
271          goto T93;}          goto T79;}
272          base[2]= (V61);          base[0]= (V69);
273          base[3]= VV[49];          base[1]= VV[49];
274          base[4]= CMPmake_fixnum((long)length((V60)));          base[2]= CMPmake_fixnum((long)length((V68)));
275          base[5]= (V60);          base[3]= (V68);
276          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+0)+4;
277          Lformat();          Lformat();
278          return;          vs_top=sup;
279          goto T93;          {object V70 = vs_base[0];
280  T93:;          VMR7(V70)}
281          base[2]= (V61);          goto T79;
282          base[3]= VV[50];  T79:;
283          vs_top=(vs_base=base+2)+2;          base[0]= (V69);
284            base[1]= VV[50];
285            vs_top=(vs_base=base+0)+2;
286          Lformat();          Lformat();
287          return;          vs_top=sup;
288          }          {object V71 = vs_base[0];
289            VMR7(V71)}
290            base[0]=base[0];
291            return Cnil;
292  }  }
293  /*      function definition for ASSERT-PROMPT   */  /*      function definition for ASSERT-PROMPT   */
294    
# Line 339  static void L8() Line 296  static void L8()
296  {register object *base=vs_base;  {register object *base=vs_base;
297          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
298          vs_check;          vs_check;
299          {object V62;          {object V72;
300          object V63;          object V73;
301          V62=(base[0]);          V72=(base[0]);
302          V63=(base[1]);          V73=(base[1]);
303          vs_top=sup;          vs_top=sup;
304          goto TTL;          goto TTL;
305  TTL:;  TTL:;
306          base[2]= VV[51];          base[2]= VV[51];
307          base[3]= (V62);          base[3]= (V72);
308          base[4]= (V63);          base[4]= (V73);
309          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
310          (void) (*Lnk74)();          (void) (*Lnk74)();
311          vs_top=sup;          vs_top=sup;
312          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
313          goto T102;}          goto T88;}
314          base[2]= (VV[52]->s.s_dbind);          base[2]= (VV[52]->s.s_dbind);
315          base[3]= VV[53];          base[3]= VV[53];
316          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
317          Lformat();          Lformat();
318          vs_top=sup;          vs_top=sup;
319          if(!(type_of((V62))==t_symbol)){          if(!(type_of((V72))==t_symbol)){
320          goto T111;}          goto T97;}
321          {object symbols,values;          {object symbols,values;
322          bds_ptr V64=bds_top;          bds_ptr V74=bds_top;
323          base[2]= make_cons((V62),Cnil);          base[2]= make_cons((V72),Cnil);
324          symbols= base[2];          symbols= base[2];
325          base[3]= make_cons((V63),Cnil);          base[3]= make_cons((V73),Cnil);
326          values= base[3];          values= base[3];
327          while(!endp(symbols)){          while(!endp(symbols)){
328          if(endp(values))bds_bind(MMcar(symbols),OBJNULL);          if(endp(values))bds_bind(MMcar(symbols),OBJNULL);
# Line 374  TTL:; Line 331  TTL:;
331          symbols=MMcdr(symbols);}          symbols=MMcdr(symbols);}
332          vs_base=vs_top;          vs_base=vs_top;
333          L9(base);          L9(base);
334          bds_unwind(V64);          bds_unwind(V74);
335          return;}          return;}
336          goto T111;          goto T97;
337  T111:;  T97:;
338          vs_base=vs_top;          vs_base=vs_top;
339          L9(base);          L9(base);
340          return;          return;
341          goto T102;          goto T88;
342  T102:;  T88:;
343          base[2]= (V63);          base[2]= (V73);
344          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
345          return;          return;
346          }          }
# Line 394  static void L10() Line 351  static void L10()
351  {register object *base=vs_base;  {register object *base=vs_base;
352          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
353          vs_check;          vs_check;
354          {object V65;          {object V75;
355          V65=(base[0]);          V75=(base[0]);
356          vs_top=sup;          vs_top=sup;
357          goto TTL;          goto TTL;
358  TTL:;  TTL:;
359          base[1]= VV[54];          base[1]= VV[54];
360          base[2]= VV[12];          base[2]= VV[12];
361          base[3]= (V65);          base[3]= (V75);
362          base[4]= VV[13];          base[4]= VV[13];
363          base[5]= Cnil;          base[5]= Cnil;
364          base[6]= VV[55];          base[6]= VV[55];
365          base[7]= VV[56];          base[7]= VV[56];
366          base[8]= VV[57];          base[8]= VV[57];
367          base[9]= make_cons((V65),Cnil);          base[9]= make_cons((V75),Cnil);
368          vs_top=(vs_base=base+1)+9;          vs_top=(vs_base=base+1)+9;
369          (void) (*Lnk8)();          (void) (*Lnk8)();
370          return;          return;
# Line 420  static void L11() Line 377  static void L11()
377          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
378          vs_check;          vs_check;
379          vs_top=sup;          vs_top=sup;
380          {object V66=base[0]->c.c_cdr;          {object V76=base[0]->c.c_cdr;
381          base[2]= (V66->c.c_car);          base[2]= (V76->c.c_car);
382          V66=V66->c.c_cdr;          V76=V76->c.c_cdr;
383          if(endp(V66)){          if(endp(V76)){
384          base[3]= Cnil;          base[3]= Cnil;
385          } else {          } else {
386          base[3]= (V66->c.c_car);          base[3]= (V76->c.c_car);
387          V66=V66->c.c_cdr;}          V76=V76->c.c_cdr;}
388          if(endp(V66)){          if(endp(V76)){
389          base[4]= Cnil;          base[4]= Cnil;
390          } else {          } else {
391          base[4]= (V66->c.c_car);          base[4]= (V76->c.c_car);
392          V66=V66->c.c_cdr;}          V76=V76->c.c_cdr;}
393          base[5]= V66;}          base[5]= V76;}
394          {object V67;          {object V77;
395          vs_base=vs_top;          vs_base=vs_top;
396          Lgensym();          Lgensym();
397          vs_top=sup;          vs_top=sup;
398          V67= vs_base[0];          V77= vs_base[0];
399          if((base[4])==Cnil){          if((base[4])==Cnil){
400          goto T129;}          goto T115;}
401          V68= listA(3,VV[8],base[4],base[5]);          V78= listA(3,VV[8],base[4],base[5]);
402          goto T127;          goto T113;
403          goto T129;          goto T115;
404  T129:;  T115:;
405          V68= list(2,VV[59],list(2,VV[14],base[2]));          V78= list(2,VV[59],list(2,VV[14],base[2]));
406          goto T127;          goto T113;
407  T127:;  T113:;
408          V69= list(3,VV[27],VV[61],list(3,VV[62],list(2,VV[14],base[3]),VV[30]));          V79= list(3,VV[27],VV[61],list(3,VV[62],list(2,VV[14],base[3]),VV[30]));
409          {object V71;          {object V81;
410          object V72= base[3];          object V82= base[3];
411          if(V72==Cnil){          if(V82==Cnil){
412          V70= Cnil;          V80= Cnil;
413          goto T131;}          goto T117;}
414          base[6]=V71=MMcons(Cnil,Cnil);          base[6]=V81=MMcons(Cnil,Cnil);
415          goto T132;          goto T118;
416  T132:;  T118:;
417          (V71->c.c_car)= list(3,VV[34],(V72->c.c_car),list(3,VV[63],list(2,VV[14],(V72->c.c_car)),(V72->c.c_car)));          (V81->c.c_car)= list(3,VV[34],(V82->c.c_car),list(3,VV[63],list(2,VV[14],(V82->c.c_car)),(V82->c.c_car)));
418          if((V72=MMcdr(V72))==Cnil){          if((V82=MMcdr(V82))==Cnil){
419          V70= base[6];          V80= base[6];
420          goto T131;}          goto T117;}
421          V71=MMcdr(V71)=MMcons(Cnil,Cnil);          V81=MMcdr(V81)=MMcons(Cnil,Cnil);
422          goto T132;}          goto T118;}
423          goto T131;          goto T117;
424  T131:;  T117:;
425          V74= list(2,VV[36],(V67));          V84= list(2,VV[36],(V77));
426          V75= make_cons(/* INLINE-ARGS */V74,Cnil);          V85= make_cons(/* INLINE-ARGS */V84,Cnil);
427          base[6]= list(3,VV[19],(V67),list(3,VV[58],base[2],list(3,VV[21],V68,listA(5,VV[60],Cnil,VV[26],/* INLINE-ARGS */V69,append(V70,/* INLINE-ARGS */V75)))));          base[6]= list(3,VV[19],(V77),list(3,VV[58],base[2],list(3,VV[21],V78,listA(5,VV[60],Cnil,VV[26],/* INLINE-ARGS */V79,append(V80,/* INLINE-ARGS */V85)))));
428          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
429          return;}          return;}
430  }  }
431  /*      function definition for READ-EVALUATED-FORM     */  /*      local entry for function READ-EVALUATED-FORM    */
432    
433  static void L12()  static object LI12()
434  {register object *base=vs_base;  
435          register object *sup=base+VM11; VC11  {        VMB11 VMS11 VMV11
         vs_check;  
         vs_top=sup;  
436          goto TTL;          goto TTL;
437  TTL:;  TTL:;
438          base[0]= (VV[52]->s.s_dbind);          base[0]= (VV[52]->s.s_dbind);
# Line 493  TTL:; Line 448  TTL:;
448          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
449          Leval();          Leval();
450          vs_top=sup;          vs_top=sup;
451          V76= vs_base[0];          V86= vs_base[0];
452          base[0]= make_cons(V76,Cnil);          {object V87 = make_cons(V86,Cnil);
453          vs_top=(vs_base=base+0)+1;          VMR11(V87)}
454          return;          base[0]=base[0];
455            return Cnil;
456  }  }
457  /*      macro definition for CHECK-TYPE */  /*      macro definition for CHECK-TYPE */
458    
# Line 505  static void L13() Line 461  static void L13()
461          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
462          vs_check;          vs_check;
463          vs_top=sup;          vs_top=sup;
464          {object V77=base[0]->c.c_cdr;          {object V88=base[0]->c.c_cdr;
465          base[2]= (V77->c.c_car);          base[2]= (V88->c.c_car);
466          V77=V77->c.c_cdr;          V88=V88->c.c_cdr;
467          base[3]= (V77->c.c_car);          base[3]= (V88->c.c_car);
468          V77=V77->c.c_cdr;          V88=V88->c.c_cdr;
469          if(endp(V77)){          if(endp(V88)){
470          base[4]= Cnil;          base[4]= Cnil;
471          } else {          } else {
472          base[4]= (V77->c.c_car);}}          base[4]= (V88->c.c_car);}}
473          {object V78;          {object V89;
474          object V79;          object V90;
475          vs_base=vs_top;          vs_base=vs_top;
476          Lgensym();          Lgensym();
477          vs_top=sup;          vs_top=sup;
478          V78= vs_base[0];          V89= vs_base[0];
479          vs_base=vs_top;          vs_base=vs_top;
480          Lgensym();          Lgensym();
481          vs_top=sup;          vs_top=sup;
482          V79= vs_base[0];          V90= vs_base[0];
483          V80= list(3,VV[66],base[2],list(2,VV[14],base[3]));          V91= list(3,VV[66],base[2],list(2,VV[14],base[3]));
484          V81= list(3,VV[65],/* INLINE-ARGS */V80,list(3,VV[20],(V78),Cnil));          V92= list(3,VV[65],/* INLINE-ARGS */V91,list(3,VV[20],(V89),Cnil));
485          if((base[4])==Cnil){          if((base[4])==Cnil){
486          goto T145;}          goto T131;}
487          V82= list(5,VV[8],VV[67],list(2,VV[14],base[2]),base[2],base[4]);          V93= list(5,VV[8],VV[67],list(2,VV[14],base[2]),base[2],base[4]);
488          goto T143;          goto T129;
489          goto T145;          goto T131;
490  T145:;  T131:;
491          V83= list(2,VV[14],base[2]);          V94= list(2,VV[14],base[2]);
492          V82= list(5,VV[8],VV[68],/* INLINE-ARGS */V83,base[2],list(2,VV[14],base[3]));          V93= list(5,VV[8],VV[68],/* INLINE-ARGS */V94,base[2],list(2,VV[14],base[3]));
493          goto T143;          goto T129;
494  T143:;  T129:;
495          V84= list(3,VV[27],VV[70],list(4,VV[29],VV[30],VV[71],list(2,VV[14],base[2])));          V95= list(3,VV[27],VV[70],list(4,VV[29],VV[30],VV[71],list(2,VV[14],base[2])));
496          V85= list(3,VV[34],base[2],VV[35]);          V96= list(3,VV[34],base[2],VV[35]);
497          base[5]= list(3,VV[18],(V78),list(4,VV[19],(V79),/* INLINE-ARGS */V81,list(3,VV[21],V82,list(8,VV[24],VV[69],VV[26],/* INLINE-ARGS */V84,VV[32],VV[33],/* INLINE-ARGS */V85,list(2,VV[36],(V79))))));          base[5]= list(3,VV[18],(V89),list(4,VV[19],(V90),/* INLINE-ARGS */V92,list(3,VV[21],V93,list(8,VV[24],VV[69],VV[26],/* INLINE-ARGS */V95,VV[32],VV[33],/* INLINE-ARGS */V96,list(2,VV[36],(V90))))));
498          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
499          return;}          return;}
500  }  }
# Line 562  TTL:; Line 518  TTL:;
518          return;          return;
519  }  }
520  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* Y-OR-N-P */  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* Y-OR-N-P */
521  static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* ESCAPE-SPECIAL-CASES-REPLACE */  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* ESCAPE-SPECIAL-CASES-REPLACE */
522  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* ACCUMULATE-CASES */  static object  LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,3,first,ap);va_end(ap);return V1;} /* ACCUMULATE-CASES */
523  static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* ERROR */  static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* ERROR */
524    
525  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.2.4.1.4.1  
changed lines
  Added in v.1.2.4.1.4.2

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