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

Diff of /gcl/clcs/clcs_precom.c

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

revision 1.1 by camm, Wed Feb 26 22:21:34 2003 UTC revision 1.2 by camm, Thu Feb 27 18:32:10 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_precom.h"  #include "clcs_precom.h"
4  void init_clcs_precom(){do_init(VV);}  void init_clcs_precom(){do_init(VV);}
5  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)1788 */  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2193 */
6    
7  static void L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
# Line 13  static void L1() Line 13  static void L1()
13          goto TTL;          goto TTL;
14  TTL:;  TTL:;
15          base[0]= VV[0];          base[0]= VV[0];
16          base[1]= VV[23];          base[1]= VV[17];
17          base[2]= VV[4];          base[2]= VV[4];
18          base[3]= VV[5];          base[3]= VV[5];
19          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
20          (void) (*Lnk24)();          (void) (*Lnk18)();
21          return;          return;
22  }  }
23  /*      local entry for function progn 'compile1791     */  /*      local entry for function progn 'compile2300     */
24    
25  static object LI2()  static object LI2()
26    
# Line 28  static object LI2() Line 28  static object LI2()
28          goto TTL;          goto TTL;
29  TTL:;  TTL:;
30          vs_base=vs_top;          vs_base=vs_top;
31          (void) (*Lnk25)();          (void) (*Lnk19)();
32          vs_top=sup;          vs_top=sup;
33          {object V1 = Cnil;          {object V1 = Cnil;
34          VMR2(V1)}          VMR2(V1)}
35          base[0]=base[0];          base[0]=base[0];
36          return Cnil;          return Cnil;
37  }  }
38  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)1788 */  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2193 */
39    
40  static void L3()  static void L3()
41  {register object *base=vs_base;  {register object *base=vs_base;
# Line 46  static void L3() Line 46  static void L3()
46          goto TTL;          goto TTL;
47  TTL:;  TTL:;
48          base[0]= VV[6];          base[0]= VV[6];
49          base[1]= VV[26];          base[1]= VV[20];
50          base[2]= VV[4];          base[2]= VV[4];
51          base[3]= VV[8];          base[3]= VV[8];
52          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
53          (void) (*Lnk24)();          (void) (*Lnk18)();
54          return;          return;
55  }  }
56  /*      local entry for function progn 'compile1794     */  /*      local entry for function progn 'compile2411     */
57    
58  static object LI4()  static object LI4()
59    
# Line 61  static object LI4() Line 61  static object LI4()
61          goto TTL;          goto TTL;
62  TTL:;  TTL:;
63          vs_base=vs_top;          vs_base=vs_top;
64          (void) (*Lnk27)();          (void) (*Lnk21)();
65          vs_top=sup;          vs_top=sup;
66          {object V2 = Cnil;          {object V2 = Cnil;
67          VMR4(V2)}          VMR4(V2)}
68          base[0]=base[0];          base[0]=base[0];
69          return Cnil;          return Cnil;
70  }  }
71  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)1788 */  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2193 */
72    
73  static void L5()  static void L5()
74  {register object *base=vs_base;  {register object *base=vs_base;
# Line 79  static void L5() Line 79  static void L5()
79          goto TTL;          goto TTL;
80  TTL:;  TTL:;
81          base[0]= VV[9];          base[0]= VV[9];
82          base[1]= VV[28];          base[1]= VV[22];
83          base[2]= VV[4];          base[2]= VV[4];
84          base[3]= VV[11];          base[3]= VV[11];
85          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
86          (void) (*Lnk24)();          (void) (*Lnk18)();
87          return;          return;
88  }  }
89  /*      local entry for function progn 'compile1801     */  /*      local entry for function progn 'compile2574     */
90    
91  static object LI6()  static object LI6()
92    
# Line 94  static object LI6() Line 94  static object LI6()
94          goto TTL;          goto TTL;
95  TTL:;  TTL:;
96          vs_base=vs_top;          vs_base=vs_top;
97          (void) (*Lnk29)();          (void) (*Lnk23)();
98          vs_top=sup;          vs_top=sup;
99          {object V3 = Cnil;          {object V3 = Cnil;
100          VMR6(V3)}          VMR6(V3)}
101          base[0]=base[0];          base[0]=base[0];
102          return Cnil;          return Cnil;
103  }  }
104  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)1788 */  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2193 */
105    
106  static void L7()  static void L7()
107  {register object *base=vs_base;  {register object *base=vs_base;
# Line 112  static void L7() Line 112  static void L7()
112          goto TTL;          goto TTL;
113  TTL:;  TTL:;
114          base[0]= VV[12];          base[0]= VV[12];
115          base[1]= VV[30];          base[1]= VV[24];
116          base[2]= VV[4];          base[2]= VV[4];
117          base[3]= VV[16];          base[3]= VV[16];
118          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
119          (void) (*Lnk24)();          (void) (*Lnk18)();
120          return;          return;
121  }  }
122  /*      local entry for function progn 'compile1808     */  /*      local entry for function progn 'compile2801     */
123    
124  static object LI8()  static object LI8()
125    
# Line 127  static object LI8() Line 127  static object LI8()
127          goto TTL;          goto TTL;
128  TTL:;  TTL:;
129          vs_base=vs_top;          vs_base=vs_top;
130          (void) (*Lnk31)();          (void) (*Lnk25)();
131          vs_top=sup;          vs_top=sup;
132          {object V4 = Cnil;          {object V4 = Cnil;
133          VMR8(V4)}          VMR8(V4)}
134          base[0]=base[0];          base[0]=base[0];
135          return Cnil;          return Cnil;
136  }  }
137  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 4)1788 */  /*      local entry for function progn 'compile2805     */
   
 static void L9()  
 {register object *base=vs_base;  
         register object *sup=base+VM9; VC9  
         vs_reserve(VM9);  
         check_arg(0);  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         base[0]= VV[17];  
         base[1]= VV[32];  
         base[2]= VV[4];  
         base[3]= VV[19];  
         vs_top=(vs_base=base+0)+4;  
         (void) (*Lnk24)();  
         return;  
 }  
 /*      local entry for function progn 'compile1810     */  
   
 static object LI10()  
   
 {        VMB10 VMS10 VMV10  
         goto TTL;  
 TTL:;  
         vs_base=vs_top;  
         (void) (*Lnk33)();  
         vs_top=sup;  
         {object V5 = Cnil;  
         VMR10(V5)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 5)1788 */  
   
 static void L11()  
 {register object *base=vs_base;  
         register object *sup=base+VM11; VC11  
         vs_reserve(VM11);  
         check_arg(0);  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         base[0]= VV[20];  
         base[1]= VV[34];  
         base[2]= VV[4];  
         base[3]= VV[22];  
         vs_top=(vs_base=base+0)+4;  
         (void) (*Lnk24)();  
         return;  
 }  
 /*      local entry for function progn 'compile1812     */  
   
 static object LI12()  
   
 {        VMB12 VMS12 VMV12  
         goto TTL;  
 TTL:;  
         vs_base=vs_top;  
         (void) (*Lnk35)();  
         vs_top=sup;  
         {object V6 = Cnil;  
         VMR12(V6)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile1812     */  
138    
139  static object LI13()  static object LI9()
140    
141  {        VMB13 VMS13 VMV13  {        VMB9 VMS9 VMV9
142          goto TTL;          goto TTL;
143  TTL:;  TTL:;
144          base[0]= Ct;          base[0]= Ct;
145          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
146          (void) (*Lnk36)();          (void) (*Lnk26)();
147          vs_top=sup;          vs_top=sup;
148          {object V7 = Cnil;          {object V5 = Cnil;
149          VMR13(V7)}          VMR9(V5)}
150          base[0]=base[0];          base[0]=base[0];
151          return Cnil;          return Cnil;
152  }  }
153  /*      local function CLOSURE  */  /*      local function CLOSURE  */
154    
155  static void LC19(base0)  static void LC13(base0)
156  register object *base0;  register object *base0;
157  {       register object *base=vs_base;  {       register object *base=vs_base;
158          register object *sup=base+VM14; VC14          register object *sup=base+VM10; VC10
159          vs_reserve(VM14);          vs_reserve(VM10);
         {object V8;  
160          check_arg(2);          check_arg(2);
161          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
162          V8=(base[1]);          base[1]=MMcons(base[1],base[0]);
163          vs_top=sup;          vs_top=sup;
164          base[2]=          base[2]=
165          make_cclosure_new(LC20,Cnil,base[0],Cdata);          make_cclosure_new(LC14,Cnil,base[1],Cdata);
166          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
167          return;          return;
         }  
168  }  }
169  /*      local function CLOSURE  */  /*      local function CLOSURE  */
170    
171  static void LC20(base0)  static void LC14(base0)
172  register object *base0;  register object *base0;
173  {       register object *base=vs_base;  {       register object *base=vs_base;
174          register object *sup=base+VM15; VC15          register object *sup=base+VM11; VC11
175          vs_reserve(VM15);          vs_reserve(VM11);
176          {register object V9;          {register object V6;
177          object V10;          object V7;
178          check_arg(2);          check_arg(2);
179          V9=(base[0]);          V6=(base[0]);
180          V10=(base[1]);          V7=(base[1]);
181          vs_top=sup;          vs_top=sup;
182          {register object V11;          {register object V8;
183            object V9;
184            register object V10;
185            register object V11;
186          object V12;          object V12;
187          register object V13;          register object V13;
188          register object V14;          V9= CMPcar((base0[1]->c.c_car));
189          object V15;          V8= (V7);
190          object V16;          V10= Cnil;
191          V12= CMPcar((base0[0]->c.c_car));          V11= Cnil;
192          V11= (V10);          V12= Cnil;
193          V13= Cnil;          V13= Cnil;
194          V14= Cnil;          if(type_of(V6)==t_structure){
195          V15= Cnil;          goto T35;}
196          V16= Cnil;          goto T33;
197          if(type_of(V9)==t_structure){          goto T35;
198          goto T45;}  T35:;
199          goto T43;          if(!(((V6)->str.str_def)==(VV[13]))){
200          goto T45;          goto T33;}
201  T45:;          V10= STREF(object,(V6),4);
202          if(!(((V9)->str.str_def)==(VV[21]))){          V11= STREF(object,(V6),0);
203          goto T43;}          goto T31;
204          V13= STREF(object,(V9),4);          goto T33;
205          V14= STREF(object,(V9),0);  T33:;{object V15;
206          goto T41;          V15= (VV[3]->s.s_dbind);
         goto T43;  
 T43:;{object V18;  
         V18= (VV[3]->s.s_dbind);  
207          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
208          base[3]= (V9);          base[3]= (V6);
209          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
210          (void) (*Lnk37)();          (void) (*Lnk27)();
211          vs_top=sup;          vs_top=sup;
212          V19= vs_base[0];          V16= vs_base[0];
213          if(!((V18)==(CMPcar(V19)))){          if(!((V15)==(CMPcar(V16)))){
214          goto T51;}}          goto T41;}}
215          V13= CMPcar(((V9))->cc.cc_turbo[12]);          V10= CMPcar(((V6))->cc.cc_turbo[12]);
216          V14= CMPcar(((V9))->cc.cc_turbo[13]);          V11= CMPcar(((V6))->cc.cc_turbo[13]);
217            goto T31;
218          goto T41;          goto T41;
219          goto T51;  T41:;
220  T51:;          base[2]= (V6);
         base[2]= (V9);  
221          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
222          (void) (*Lnk38)();          (void) (*Lnk28)();
223          vs_top=sup;          vs_top=sup;
224          V14= vs_base[0];          V11= vs_base[0];
225          goto T41;          goto T31;
226  T41:;  T31:;
227          V15= ((V14))->v.v_self[11];          V12= ((V11))->v.v_self[11];
228          V11= CMPcdr(CMPcddddr((V11)));          V8= CMPcdr((V8));
229            {object V17;
230            V17= CMPcar((V8));
231            V8= CMPcdr((V8));
232            V13= (V17);}
233            (void)(((V10))->v.v_self[8]= ((V13)));
234            V8= CMPcdr((V8));
235            {object V18;
236            V18= CMPcar((V8));
237            V8= CMPcdr((V8));
238            V13= (V18);}
239            (void)(((V10))->v.v_self[0]= ((V13)));
240            V8= CMPcdr((V8));
241            {object V19;
242            V19= CMPcar((V8));
243            V8= CMPcdr((V8));
244            V13= (V19);}
245            (void)(((V10))->v.v_self[3]= ((V13)));
246            V8= CMPcdr((V8));
247          {object V20;          {object V20;
248          V20= CMPcar((V11));          V20= CMPcar((V8));
249          V11= CMPcdr((V11));          V8= CMPcdr((V8));
250          V16= (V20);}          V13= (V20);}
251          (void)(((V13))->v.v_self[1]= ((V16)));}          (void)(((V10))->v.v_self[4]= ((V13)));
252          base[2]= (V10);          V8= CMPcdr((V8));
253            {object V21;
254            V21= CMPcar((V8));
255            V8= CMPcdr((V8));
256            V13= (V21);}
257            (void)(((V10))->v.v_self[5]= ((V13)));
258            V8= CMPcdr((V8));
259            {object V22;
260            V22= CMPcar((V8));
261            V8= CMPcdr((V8));
262            V13= (V22);}
263            (void)(((V10))->v.v_self[6]= ((V13)));
264            if(!((((V10))->v.v_self[1])==(VV[14]))){
265            goto T101;}
266            V13= Cnil;
267            (void)(((V10))->v.v_self[1]= ((V13)));
268            goto T101;
269    T101:;
270            if(!((((V10))->v.v_self[2])==(VV[14]))){
271            goto T106;}
272            V13= Cnil;
273            (void)(((V10))->v.v_self[2]= ((V13)));
274            goto T106;
275    T106:;
276            if(!((((V10))->v.v_self[7])==(VV[14]))){
277            goto T111;}
278            V13= ((base0[0]->c.c_car))->v.v_self[9];
279            (void)(((V10))->v.v_self[7]= ((V13)));
280            goto T111;
281    T111:;
282            if(!((((V10))->v.v_self[9])==(VV[14]))){
283            goto T23;}
284            V13= VV[15];
285            (void)(((V10))->v.v_self[9]= ((V13)));}
286            goto T23;
287    T23:;
288            base[2]= (V7);
289          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
290          return;          return;
291          }          }
292  }  }
293  /*      local function CLOSURE  */  /*      local function CLOSURE  */
294    
295  static void LC18(base0)  static void LC12(base0)
296  register object *base0;  register object *base0;
297  {       register object *base=vs_base;  {       register object *base=vs_base;
298          register object *sup=base+VM16; VC16          register object *sup=base+VM12; VC12
299          vs_reserve(VM16);          vs_reserve(VM12);
300            {object V23;
301          check_arg(2);          check_arg(2);
302          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
303          base[1]=MMcons(base[1],base[0]);          V23=(base[1]);
304          vs_top=sup;          vs_top=sup;
305          base[2]=          base[2]=
306          make_cclosure_new(LC21,Cnil,base[1],Cdata);          make_cclosure_new(LC15,Cnil,base[0],Cdata);
307          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
308          return;          return;
309            }
310  }  }
311  /*      local function CLOSURE  */  /*      local function CLOSURE  */
312    
313  static void LC21(base0)  static void LC15(base0)
314  register object *base0;  register object *base0;
315  {       register object *base=vs_base;  {       register object *base=vs_base;
316          register object *sup=base+VM17; VC17          register object *sup=base+VM13; VC13
317          vs_reserve(VM17);          vs_reserve(VM13);
318          {register object V21;          {register object V24;
319          object V22;          object V25;
320          check_arg(2);          check_arg(2);
321          V21=(base[0]);          V24=(base[0]);
322          V22=(base[1]);          V25=(base[1]);
323          vs_top=sup;          vs_top=sup;
324          {register object V23;          {register object V26;
         object V24;  
         register object V25;  
         register object V26;  
325          object V27;          object V27;
326          register object V28;          register object V28;
327          V24= CMPcar((base0[1]->c.c_car));          register object V29;
328          V23= (V22);          object V30;
329          V25= Cnil;          register object V31;
330          V26= Cnil;          V27= CMPcar((base0[0]->c.c_car));
331          V27= Cnil;          V26= (V25);
332          V28= Cnil;          V28= Cnil;
333          if(type_of(V21)==t_structure){          V29= Cnil;
334          goto T82;}          V30= Cnil;
335          goto T80;          V31= Cnil;
336          goto T82;          if(type_of(V24)==t_structure){
337  T82:;          goto T132;}
338          if(!(((V21)->str.str_def)==(VV[18]))){          goto T130;
339          goto T80;}          goto T132;
340          V25= STREF(object,(V21),4);  T132:;
341          V26= STREF(object,(V21),0);          if(!(((V24)->str.str_def)==(VV[10]))){
342          goto T78;          goto T130;}
343          goto T80;          V28= STREF(object,(V24),4);
344  T80:;{object V30;          V29= STREF(object,(V24),0);
345          V30= (VV[3]->s.s_dbind);          goto T128;
346            goto T130;
347    T130:;{object V33;
348            V33= (VV[3]->s.s_dbind);
349          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
350          base[3]= (V21);          base[3]= (V24);
351          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
352          (void) (*Lnk37)();          (void) (*Lnk27)();
353          vs_top=sup;          vs_top=sup;
354          V31= vs_base[0];          V34= vs_base[0];
355          if(!((V30)==(CMPcar(V31)))){          if(!((V33)==(CMPcar(V34)))){
356          goto T88;}}          goto T138;}}
357          V25= CMPcar(((V21))->cc.cc_turbo[12]);          V28= CMPcar(((V24))->cc.cc_turbo[12]);
358          V26= CMPcar(((V21))->cc.cc_turbo[13]);          V29= CMPcar(((V24))->cc.cc_turbo[13]);
         goto T78;  
         goto T88;  
 T88:;  
         base[2]= (V21);  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk38)();  
         vs_top=sup;  
         V26= vs_base[0];  
         goto T78;  
 T78:;  
         V27= ((V26))->v.v_self[11];  
         V23= CMPcdr(CMPcddddr((V23)));  
         {object V32;  
         V32= CMPcar((V23));  
         V23= CMPcdr((V23));  
         V28= (V32);}  
         (void)(((V25))->v.v_self[1]= ((V28)));  
         if(!((((V25))->v.v_self[0])==(VV[14]))){  
         goto T108;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[0]= ((V28)));  
         goto T108;  
 T108:;  
         if(!((((V25))->v.v_self[2])==(VV[14]))){  
         goto T113;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[2]= ((V28)));  
         goto T113;  
 T113:;  
         if(!((((V25))->v.v_self[3])==(VV[14]))){  
         goto T118;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[3]= ((V28)));  
         goto T118;  
 T118:;  
         if(!((((V25))->v.v_self[4])==(VV[14]))){  
         goto T123;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[4]= ((V28)));  
         goto T123;  
 T123:;  
         if(!((((V25))->v.v_self[5])==(VV[14]))){  
         goto T128;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[5]= ((V28)));  
359          goto T128;          goto T128;
 T128:;  
         if(!((((V25))->v.v_self[6])==(VV[14]))){  
         goto T133;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[6]= ((V28)));  
         goto T133;  
 T133:;  
         if(!((((V25))->v.v_self[7])==(VV[14]))){  
         goto T138;}  
         V28= (  
         V33 = ((base0[0]->c.c_car))->v.v_self[8],  
         (type_of(V33) == t_sfun ?(*((V33)->sfn.sfn_self)):  
         (fcall.fun=(V33),fcall.argd=0,fcalln))());  
         (void)(((V25))->v.v_self[7]= ((V28)));  
360          goto T138;          goto T138;
361  T138:;  T138:;
362          if(!((((V25))->v.v_self[8])==(VV[14]))){          base[2]= (V24);
         goto T143;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[8]= ((V28)));  
         goto T143;  
 T143:;  
         if(!((((V25))->v.v_self[10])==(VV[14]))){  
         goto T148;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[10]= ((V28)));  
         goto T148;  
 T148:;  
         if(!((((V25))->v.v_self[11])==(VV[14]))){  
         goto T153;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[11]= ((V28)));  
         goto T153;  
 T153:;  
         if(!((((V25))->v.v_self[12])==(VV[14]))){  
         goto T158;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[12]= ((V28)));  
         goto T158;  
 T158:;  
         if(!((((V25))->v.v_self[13])==(VV[14]))){  
         goto T163;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[13]= ((V28)));  
         goto T163;  
 T163:;  
         if(!((((V25))->v.v_self[14])==(VV[14]))){  
         goto T168;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[14]= ((V28)));  
         goto T168;  
 T168:;  
         if(!((((V25))->v.v_self[15])==(VV[14]))){  
         goto T173;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[15]= ((V28)));  
         goto T173;  
 T173:;  
         if(!((((V25))->v.v_self[16])==(VV[14]))){  
         goto T70;}  
         V28= Cnil;  
         (void)(((V25))->v.v_self[16]= ((V28)));}  
         goto T70;  
 T70:;  
         base[2]= (V22);  
         vs_top=(vs_base=base+2)+1;  
         return;  
         }  
 }  
 /*      local function CLOSURE  */  
   
 static void LC17(base0)  
 register object *base0;  
 {       register object *base=vs_base;  
         register object *sup=base+VM18; VC18  
         vs_reserve(VM18);  
         check_arg(2);  
         base[0]=MMcons(base[0],Cnil);  
         base[1]=MMcons(base[1],base[0]);  
         vs_top=sup;  
         base[2]=  
         make_cclosure_new(LC22,Cnil,base[1],Cdata);  
         vs_top=(vs_base=base+2)+1;  
         return;  
 }  
 /*      local function CLOSURE  */  
   
 static void LC22(base0)  
 register object *base0;  
 {       register object *base=vs_base;  
         register object *sup=base+VM19; VC19  
         vs_reserve(VM19);  
         {register object V34;  
         object V35;  
         check_arg(2);  
         V34=(base[0]);  
         V35=(base[1]);  
         vs_top=sup;  
         {register object V36;  
         object V37;  
         register object V38;  
         register object V39;  
         object V40;  
         register object V41;  
         V37= CMPcar((base0[1]->c.c_car));  
         V36= (V35);  
         V38= Cnil;  
         V39= Cnil;  
         V40= Cnil;  
         V41= Cnil;  
         if(type_of(V34)==t_structure){  
         goto T194;}  
         goto T192;  
         goto T194;  
 T194:;  
         if(!(((V34)->str.str_def)==(VV[13]))){  
         goto T192;}  
         V38= STREF(object,(V34),4);  
         V39= STREF(object,(V34),0);  
         goto T190;  
         goto T192;  
 T192:;{object V43;  
         V43= (VV[3]->s.s_dbind);  
         base[2]= small_fixnum(14);  
         base[3]= (V34);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk37)();  
         vs_top=sup;  
         V44= vs_base[0];  
         if(!((V43)==(CMPcar(V44)))){  
         goto T200;}}  
         V38= CMPcar(((V34))->cc.cc_turbo[12]);  
         V39= CMPcar(((V34))->cc.cc_turbo[13]);  
         goto T190;  
         goto T200;  
 T200:;  
         base[2]= (V34);  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk38)();  
         vs_top=sup;  
         V39= vs_base[0];  
         goto T190;  
 T190:;  
         V40= ((V39))->v.v_self[11];  
         V36= CMPcdr((V36));  
         {object V45;  
         V45= CMPcar((V36));  
         V36= CMPcdr((V36));  
         V41= (V45);}  
         (void)(((V38))->v.v_self[8]= ((V41)));  
         V36= CMPcdr((V36));  
         {object V46;  
         V46= CMPcar((V36));  
         V36= CMPcdr((V36));  
         V41= (V46);}  
         (void)(((V38))->v.v_self[0]= ((V41)));  
         V36= CMPcdr((V36));  
         {object V47;  
         V47= CMPcar((V36));  
         V36= CMPcdr((V36));  
         V41= (V47);}  
         (void)(((V38))->v.v_self[3]= ((V41)));  
         V36= CMPcdr((V36));  
         {object V48;  
         V48= CMPcar((V36));  
         V36= CMPcdr((V36));  
         V41= (V48);}  
         (void)(((V38))->v.v_self[4]= ((V41)));  
         V36= CMPcdr((V36));  
         {object V49;  
         V49= CMPcar((V36));  
         V36= CMPcdr((V36));  
         V41= (V49);}  
         (void)(((V38))->v.v_self[5]= ((V41)));  
         V36= CMPcdr((V36));  
         {object V50;  
         V50= CMPcar((V36));  
         V36= CMPcdr((V36));  
         V41= (V50);}  
         (void)(((V38))->v.v_self[6]= ((V41)));  
         if(!((((V38))->v.v_self[1])==(VV[14]))){  
         goto T260;}  
         V41= Cnil;  
         (void)(((V38))->v.v_self[1]= ((V41)));  
         goto T260;  
 T260:;  
         if(!((((V38))->v.v_self[2])==(VV[14]))){  
         goto T265;}  
         V41= Cnil;  
         (void)(((V38))->v.v_self[2]= ((V41)));  
         goto T265;  
 T265:;  
         if(!((((V38))->v.v_self[7])==(VV[14]))){  
         goto T270;}  
         V41= ((base0[0]->c.c_car))->v.v_self[9];  
         (void)(((V38))->v.v_self[7]= ((V41)));  
         goto T270;  
 T270:;  
         if(!((((V38))->v.v_self[9])==(VV[14]))){  
         goto T182;}  
         V41= VV[15];  
         (void)(((V38))->v.v_self[9]= ((V41)));}  
         goto T182;  
 T182:;  
         base[2]= (V35);  
         vs_top=(vs_base=base+2)+1;  
         return;  
         }  
 }  
 /*      local function CLOSURE  */  
   
 static void LC16(base0)  
 register object *base0;  
 {       register object *base=vs_base;  
         register object *sup=base+VM20; VC20  
         vs_reserve(VM20);  
         {object V51;  
         check_arg(2);  
         base[0]=MMcons(base[0],Cnil);  
         V51=(base[1]);  
         vs_top=sup;  
         base[2]=  
         make_cclosure_new(LC23,Cnil,base[0],Cdata);  
363          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
364          return;          (void) (*Lnk28)();
         }  
 }  
 /*      local function CLOSURE  */  
   
 static void LC23(base0)  
 register object *base0;  
 {       register object *base=vs_base;  
         register object *sup=base+VM21; VC21  
         vs_reserve(VM21);  
         {register object V52;  
         object V53;  
         check_arg(2);  
         V52=(base[0]);  
         V53=(base[1]);  
365          vs_top=sup;          vs_top=sup;
366          {register object V54;          V29= vs_base[0];
367          object V55;          goto T128;
368          register object V56;  T128:;
369          register object V57;          V30= ((V29))->v.v_self[11];
370          object V58;          V26= (V25);
371          register object V59;          V26= CMPcdr((V26));
372          V55= CMPcar((base0[0]->c.c_car));          {object V35;
373          V54= (V53);          V35= CMPcar((V26));
374          V56= Cnil;          V26= CMPcdr((V26));
375          V57= Cnil;          V31= (V35);}
376          V58= Cnil;          (void)(((V28))->v.v_self[8]= ((V31)));
377          V59= Cnil;          V26= CMPcdr((V26));
378          if(type_of(V52)==t_structure){          {object V36;
379          goto T291;}          V36= CMPcar((V26));
380          goto T289;          V26= CMPcdr((V26));
381          goto T291;          V31= (V36);}
382  T291:;          (void)(((V28))->v.v_self[0]= ((V31)));
383          if(!(((V52)->str.str_def)==(VV[10]))){          V26= CMPcdr((V26));
384          goto T289;}          {object V37;
385          V56= STREF(object,(V52),4);          V37= CMPcar((V26));
386          V57= STREF(object,(V52),0);          V26= CMPcdr((V26));
387          goto T287;          V31= (V37);}
388          goto T289;          (void)(((V28))->v.v_self[3]= ((V31)));
389  T289:;{object V61;          V26= CMPcdr((V26));
390          V61= (VV[3]->s.s_dbind);          {object V38;
391          base[2]= small_fixnum(14);          V38= CMPcar((V26));
392          base[3]= (V52);          V26= CMPcdr((V26));
393          vs_top=(vs_base=base+2)+2;          V31= (V38);}
394          (void) (*Lnk37)();          (void)(((V28))->v.v_self[4]= ((V31)));
395          vs_top=sup;          V26= CMPcdr((V26));
396          V62= vs_base[0];          {object V39;
397          if(!((V61)==(CMPcar(V62)))){          V39= CMPcar((V26));
398          goto T297;}}          V26= CMPcdr((V26));
399          V56= CMPcar(((V52))->cc.cc_turbo[12]);          V31= (V39);}
400          V57= CMPcar(((V52))->cc.cc_turbo[13]);          (void)(((V28))->v.v_self[5]= ((V31)));
401          goto T287;          V26= CMPcdr((V26));
402          goto T297;          {object V40;
403  T297:;          V40= CMPcar((V26));
404          base[2]= (V52);          V26= CMPcdr((V26));
405          vs_top=(vs_base=base+2)+1;          V31= (V40);}
406          (void) (*Lnk38)();          (void)(((V28))->v.v_self[6]= ((V31)));}
407          vs_top=sup;          base[2]= (V25);
         V57= vs_base[0];  
         goto T287;  
 T287:;  
         V58= ((V57))->v.v_self[11];  
         V54= (V53);  
         V54= CMPcdr((V54));  
         {object V63;  
         V63= CMPcar((V54));  
         V54= CMPcdr((V54));  
         V59= (V63);}  
         (void)(((V56))->v.v_self[8]= ((V59)));  
         V54= CMPcdr((V54));  
         {object V64;  
         V64= CMPcar((V54));  
         V54= CMPcdr((V54));  
         V59= (V64);}  
         (void)(((V56))->v.v_self[0]= ((V59)));  
         V54= CMPcdr((V54));  
         {object V65;  
         V65= CMPcar((V54));  
         V54= CMPcdr((V54));  
         V59= (V65);}  
         (void)(((V56))->v.v_self[3]= ((V59)));  
         V54= CMPcdr((V54));  
         {object V66;  
         V66= CMPcar((V54));  
         V54= CMPcdr((V54));  
         V59= (V66);}  
         (void)(((V56))->v.v_self[4]= ((V59)));  
         V54= CMPcdr((V54));  
         {object V67;  
         V67= CMPcar((V54));  
         V54= CMPcdr((V54));  
         V59= (V67);}  
         (void)(((V56))->v.v_self[5]= ((V59)));  
         V54= CMPcdr((V54));  
         {object V68;  
         V68= CMPcar((V54));  
         V54= CMPcdr((V54));  
         V59= (V68);}  
         (void)(((V56))->v.v_self[6]= ((V59)));}  
         base[2]= (V53);  
408          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
409          return;          return;
410          }          }
411  }  }
412  /*      local function CLOSURE  */  /*      local function CLOSURE  */
413    
414  static void LC15(base0)  static void LC11(base0)
415  register object *base0;  register object *base0;
416  {       register object *base=vs_base;  {       register object *base=vs_base;
417          register object *sup=base+VM22; VC22          register object *sup=base+VM14; VC14
418          vs_reserve(VM22);          vs_reserve(VM14);
419          {object V69;          {object V41;
420          check_arg(2);          check_arg(2);
421          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
422          V69=(base[1]);          V41=(base[1]);
423          vs_top=sup;          vs_top=sup;
424          base[2]=          base[2]=
425          make_cclosure_new(LC24,Cnil,base[0],Cdata);          make_cclosure_new(LC16,Cnil,base[0],Cdata);
426          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
427          return;          return;
428          }          }
429  }  }
430  /*      local function CLOSURE  */  /*      local function CLOSURE  */
431    
432  static void LC24(base0)  static void LC16(base0)
433  register object *base0;  register object *base0;
434  {       register object *base=vs_base;  {       register object *base=vs_base;
435          register object *sup=base+VM23; VC23          register object *sup=base+VM15; VC15
436          vs_reserve(VM23);          vs_reserve(VM15);
437          {register object V70;          {register object V42;
438          object V71;          object V43;
439          check_arg(2);          check_arg(2);
440          V70=(base[0]);          V42=(base[0]);
441          V71=(base[1]);          V43=(base[1]);
442          vs_top=sup;          vs_top=sup;
443          {register object V72;          {register object V44;
444          object V73;          object V45;
445          register object V74;          register object V46;
446          register object V75;          register object V47;
447          object V76;          object V48;
448          register object V77;          register object V49;
449          V73= CMPcar((base0[0]->c.c_car));          V45= CMPcar((base0[0]->c.c_car));
450          V72= (V71);          V44= (V43);
451          V74= Cnil;          V46= Cnil;
452          V75= Cnil;          V47= Cnil;
453          V76= Cnil;          V48= Cnil;
454          V77= Cnil;          V49= Cnil;
455          if(type_of(V70)==t_structure){          if(type_of(V42)==t_structure){
456          goto T370;}          goto T211;}
457          goto T368;          goto T209;
458          goto T370;          goto T211;
459  T370:;  T211:;
460          if(!(((V70)->str.str_def)==(VV[7]))){          if(!(((V42)->str.str_def)==(VV[7]))){
461          goto T368;}          goto T209;}
462          V74= STREF(object,(V70),4);          V46= STREF(object,(V42),4);
463          V75= STREF(object,(V70),0);          V47= STREF(object,(V42),0);
464          goto T366;          goto T207;
465          goto T368;          goto T209;
466  T368:;{object V79;  T209:;{object V51;
467          V79= (VV[3]->s.s_dbind);          V51= (VV[3]->s.s_dbind);
468          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
469          base[3]= (V70);          base[3]= (V42);
470          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
471          (void) (*Lnk37)();          (void) (*Lnk27)();
472          vs_top=sup;          vs_top=sup;
473          V80= vs_base[0];          V52= vs_base[0];
474          if(!((V79)==(CMPcar(V80)))){          if(!((V51)==(CMPcar(V52)))){
475          goto T376;}}          goto T217;}}
476          V74= CMPcar(((V70))->cc.cc_turbo[12]);          V46= CMPcar(((V42))->cc.cc_turbo[12]);
477          V75= CMPcar(((V70))->cc.cc_turbo[13]);          V47= CMPcar(((V42))->cc.cc_turbo[13]);
478          goto T366;          goto T207;
479          goto T376;          goto T217;
480  T376:;  T217:;
481          base[2]= (V70);          base[2]= (V42);
482          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
483          (void) (*Lnk38)();          (void) (*Lnk28)();
484          vs_top=sup;          vs_top=sup;
485          V75= vs_base[0];          V47= vs_base[0];
486          goto T366;          goto T207;
487  T366:;  T207:;
488          V76= ((V75))->v.v_self[11];          V48= ((V47))->v.v_self[11];
489          V72= CMPcdr((V72));          V44= CMPcdr((V44));
490          {object V81;          {object V53;
491          V81= CMPcar((V72));          V53= CMPcar((V44));
492          V72= CMPcdr((V72));          V44= CMPcdr((V44));
493          V77= (V81);}          V49= (V53);}
494          (void)(((V74))->v.v_self[1]= ((V77)));          (void)(((V46))->v.v_self[1]= ((V49)));
495          V72= CMPcdr((V72));          V44= CMPcdr((V44));
496          {object V82;          {object V54;
497          V82= CMPcar((V72));          V54= CMPcar((V44));
498          V72= CMPcdr((V72));          V44= CMPcdr((V44));
499          V77= (V82);}          V49= (V54);}
500          (void)(((V74))->v.v_self[0]= ((V77)));}          (void)(((V46))->v.v_self[0]= ((V49)));}
501          base[2]= (V71);          base[2]= (V43);
502          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
503          return;          return;
504          }          }
505  }  }
506  /*      local function CLOSURE  */  /*      local function CLOSURE  */
507    
508  static void LC14(base0)  static void LC10(base0)
509  register object *base0;  register object *base0;
510  {       register object *base=vs_base;  {       register object *base=vs_base;
511          register object *sup=base+VM24; VC24          register object *sup=base+VM16; VC16
512          vs_reserve(VM24);          vs_reserve(VM16);
513          {object V83;          {object V55;
514          check_arg(2);          check_arg(2);
515          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
516          V83=(base[1]);          V55=(base[1]);
517          vs_top=sup;          vs_top=sup;
518          base[2]=          base[2]=
519          make_cclosure_new(LC25,Cnil,base[0],Cdata);          make_cclosure_new(LC17,Cnil,base[0],Cdata);
520          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
521          return;          return;
522          }          }
523  }  }
524  /*      local function CLOSURE  */  /*      local function CLOSURE  */
525    
526  static void LC25(base0)  static void LC17(base0)
527  register object *base0;  register object *base0;
528  {       register object *base=vs_base;  {       register object *base=vs_base;
529          register object *sup=base+VM25; VC25          register object *sup=base+VM17; VC17
530          vs_reserve(VM25);          vs_reserve(VM17);
531          {register object V84;          {register object V56;
532          object V85;          object V57;
533          check_arg(2);          check_arg(2);
534          V84=(base[0]);          V56=(base[0]);
535          V85=(base[1]);          V57=(base[1]);
536          vs_top=sup;          vs_top=sup;
537          {register object V86;          {register object V58;
538          object V87;          object V59;
539          register object V88;          register object V60;
540          register object V89;          register object V61;
541          object V90;          object V62;
542          register object V91;          register object V63;
543          V87= CMPcar((base0[0]->c.c_car));          V59= CMPcar((base0[0]->c.c_car));
544          V86= (V85);          V58= (V57);
545          V88= Cnil;          V60= Cnil;
546          V89= Cnil;          V61= Cnil;
547          V90= Cnil;          V62= Cnil;
548          V91= Cnil;          V63= Cnil;
549          if(type_of(V84)==t_structure){          if(type_of(V56)==t_structure){
550          goto T415;}          goto T256;}
551          goto T413;          goto T254;
552          goto T415;          goto T256;
553  T415:;  T256:;
554          if(!(((V84)->str.str_def)==(VV[1]))){          if(!(((V56)->str.str_def)==(VV[1]))){
555          goto T413;}          goto T254;}
556          V88= STREF(object,(V84),4);          V60= STREF(object,(V56),4);
557          V89= STREF(object,(V84),0);          V61= STREF(object,(V56),0);
558          goto T411;          goto T252;
559          goto T413;          goto T254;
560  T413:;{object V93;  T254:;{object V65;
561          V93= (VV[3]->s.s_dbind);          V65= (VV[3]->s.s_dbind);
562          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
563          base[3]= (V84);          base[3]= (V56);
564          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
565          (void) (*Lnk37)();          (void) (*Lnk27)();
566          vs_top=sup;          vs_top=sup;
567          V94= vs_base[0];          V66= vs_base[0];
568          if(!((V93)==(CMPcar(V94)))){          if(!((V65)==(CMPcar(V66)))){
569          goto T421;}}          goto T262;}}
570          V88= CMPcar(((V84))->cc.cc_turbo[12]);          V60= CMPcar(((V56))->cc.cc_turbo[12]);
571          V89= CMPcar(((V84))->cc.cc_turbo[13]);          V61= CMPcar(((V56))->cc.cc_turbo[13]);
572          goto T411;          goto T252;
573          goto T421;          goto T262;
574  T421:;  T262:;
575          base[2]= (V84);          base[2]= (V56);
576          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
577          (void) (*Lnk38)();          (void) (*Lnk28)();
578          vs_top=sup;          vs_top=sup;
579          V89= vs_base[0];          V61= vs_base[0];
580          goto T411;          goto T252;
581  T411:;  T252:;
582          V90= ((V89))->v.v_self[11];          V62= ((V61))->v.v_self[11];
583          V86= (V85);          V58= (V57);
584          V86= CMPcdr((V86));          V58= CMPcdr((V58));
585          {object V95;          {object V67;
586          V95= CMPcar((V86));          V67= CMPcar((V58));
587          V86= CMPcdr((V86));          V58= CMPcdr((V58));
588          V91= (V95);}          V63= (V67);}
589          (void)(((V88))->v.v_self[1]= ((V91)));          (void)(((V60))->v.v_self[1]= ((V63)));
590          V86= CMPcdr((V86));          V58= CMPcdr((V58));
591          {object V96;          {object V68;
592          V96= CMPcar((V86));          V68= CMPcar((V58));
593          V86= CMPcdr((V86));          V58= CMPcdr((V58));
594          V91= (V96);}          V63= (V68);}
595          (void)(((V88))->v.v_self[0]= ((V91)));}          (void)(((V60))->v.v_self[0]= ((V63)));}
596          base[2]= (V85);          base[2]= (V57);
597          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
598          return;          return;
599          }          }
600  }  }
601  static void LnkT38(){ call_or_link(VV[38],(void **)&Lnk38);} /* WRAPPER-OF */  static void LnkT28(){ call_or_link(VV[28],(void **)&Lnk28);} /* WRAPPER-OF */
602  static void LnkT37(){ call_or_link(VV[37],(void **)&Lnk37);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT27(){ call_or_link(VV[27],(void **)&Lnk27);} /* CCLOSURE-ENV-NTHCDR */
603  static void LnkT36(){ call_or_link(VV[36],(void **)&Lnk36);} /* COMPILE-IIS-FUNCTIONS */  static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* COMPILE-IIS-FUNCTIONS */
604  static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 5)1788 */  static void LnkT25(){ call_or_link(VV[25],(void **)&Lnk25);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2193 */
605  static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 4)1788 */  static void LnkT23(){ call_or_link(VV[23],(void **)&Lnk23);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2193 */
606  static void LnkT31(){ call_or_link(VV[31],(void **)&Lnk31);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)1788 */  static void LnkT21(){ call_or_link(VV[21],(void **)&Lnk21);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2193 */
607  static void LnkT29(){ call_or_link(VV[29],(void **)&Lnk29);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)1788 */  static void LnkT19(){ call_or_link(VV[19],(void **)&Lnk19);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2193 */
608  static void LnkT27(){ call_or_link(VV[27],(void **)&Lnk27);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)1788 */  static void LnkT18(){ call_or_link(VV[18],(void **)&Lnk18);} /* LOAD-PRECOMPILED-IIS-ENTRY */
 static void LnkT25(){ call_or_link(VV[25],(void **)&Lnk25);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)1788 */  
 static void LnkT24(){ call_or_link(VV[24],(void **)&Lnk24);} /* LOAD-PRECOMPILED-IIS-ENTRY */  
609    
610  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
611  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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