/[gcl]/gcl/pcl/pcl_precom2.c
ViewVC logotype

Diff of /gcl/pcl/pcl_precom2.c

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

revision 1.5 by camm, Tue Oct 7 21:07:37 2003 UTC revision 1.6 by camm, Thu Oct 23 15:30:22 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "pcl_precom2.h"  #include "pcl_precom2.h"
4  void init_pcl_precom2(){do_init(VV);}  void init_pcl_precom2(){do_init(VV);}
5  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 0)9431      */  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 0)10614     */
6    
7  static void L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
# Line 12  static void L1() Line 12  static void L1()
12          vs_top=sup;          vs_top=sup;
13          goto TTL;          goto TTL;
14  TTL:;  TTL:;
15          V1= VV[202];          V1= VV[232];
16          base[0]= (*(LnkLI201))(VV[0],VV[1],V1,VV[3],VV[4]);          base[0]= (*(LnkLI231))(VV[0],VV[1],V1,VV[3],VV[4]);
17          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
18          return;          return;
19  }  }
20  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 1)9431      */  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 1)10614     */
21    
22  static void L2()  static void L2()
23  {register object *base=vs_base;  {register object *base=vs_base;
# Line 27  static void L2() Line 27  static void L2()
27          vs_top=sup;          vs_top=sup;
28          goto TTL;          goto TTL;
29  TTL:;  TTL:;
30          V2= VV[203];          V2= VV[233];
31          base[0]= (*(LnkLI201))(VV[5],VV[6],V2,VV[7],VV[4]);          base[0]= (*(LnkLI231))(VV[5],VV[6],V2,VV[7],VV[4]);
32          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
33          return;          return;
34  }  }
35  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 2)9431      */  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 2)10614     */
36    
37  static void L3()  static void L3()
38  {register object *base=vs_base;  {register object *base=vs_base;
# Line 42  static void L3() Line 42  static void L3()
42          vs_top=sup;          vs_top=sup;
43          goto TTL;          goto TTL;
44  TTL:;  TTL:;
45          V3= VV[204];          V3= VV[234];
46          base[0]= (*(LnkLI201))(VV[8],VV[9],V3,VV[16],VV[4]);          base[0]= (*(LnkLI231))(VV[8],VV[9],V3,VV[23],VV[4]);
47          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
48          return;          return;
49  }  }
50  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 3)9431      */  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 3)10614     */
51    
52  static void L4()  static void L4()
53  {register object *base=vs_base;  {register object *base=vs_base;
# Line 57  static void L4() Line 57  static void L4()
57          vs_top=sup;          vs_top=sup;
58          goto TTL;          goto TTL;
59  TTL:;  TTL:;
60          V4= VV[205];          V4= VV[235];
61          base[0]= (*(LnkLI201))(VV[17],VV[18],V4,VV[21],VV[4]);          base[0]= (*(LnkLI231))(VV[24],VV[25],V4,VV[30],VV[4]);
62          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
63          return;          return;
64  }  }
65  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 4)9431      */  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 4)10614     */
66    
67  static void L5()  static void L5()
68  {register object *base=vs_base;  {register object *base=vs_base;
# Line 72  static void L5() Line 72  static void L5()
72          vs_top=sup;          vs_top=sup;
73          goto TTL;          goto TTL;
74  TTL:;  TTL:;
75          V5= VV[206];          V5= VV[236];
76          base[0]= (*(LnkLI201))(VV[22],VV[23],V5,VV[24],VV[4]);          base[0]= (*(LnkLI231))(VV[31],VV[32],V5,VV[33],VV[4]);
77          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
78          return;          return;
79  }  }
80  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 5)9431      */  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 5)10614     */
81    
82  static void L6()  static void L6()
83  {register object *base=vs_base;  {register object *base=vs_base;
# Line 87  static void L6() Line 87  static void L6()
87          vs_top=sup;          vs_top=sup;
88          goto TTL;          goto TTL;
89  TTL:;  TTL:;
90          V6= VV[207];          V6= VV[237];
91          base[0]= (*(LnkLI201))(VV[25],VV[26],V6,VV[28],VV[4]);          base[0]= (*(LnkLI231))(VV[34],VV[35],V6,VV[37],VV[4]);
92          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
93          return;          return;
94  }  }
95  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 6)9431      */  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 6)10614     */
96    
97  static void L7()  static void L7()
98  {register object *base=vs_base;  {register object *base=vs_base;
# Line 102  static void L7() Line 102  static void L7()
102          vs_top=sup;          vs_top=sup;
103          goto TTL;          goto TTL;
104  TTL:;  TTL:;
105          V7= VV[208];          V7= VV[238];
106          base[0]= (*(LnkLI201))(VV[29],VV[30],V7,VV[35],VV[4]);          base[0]= (*(LnkLI231))(VV[38],VV[39],V7,VV[44],VV[4]);
107          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
108          return;          return;
109  }  }
110  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 7)9431      */  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 7)10614     */
111    
112  static void L8()  static void L8()
113  {register object *base=vs_base;  {register object *base=vs_base;
# Line 117  static void L8() Line 117  static void L8()
117          vs_top=sup;          vs_top=sup;
118          goto TTL;          goto TTL;
119  TTL:;  TTL:;
120          V8= VV[209];          V8= VV[239];
121          base[0]= (*(LnkLI201))(VV[36],VV[37],V8,VV[38],VV[4]);          base[0]= (*(LnkLI231))(VV[45],VV[46],V8,VV[47],VV[4]);
122          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
123          return;          return;
124  }  }
125  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 8)9431      */  /*      function definition for (PRECOMPILE-FUNCTION-GENERATORS PCL 8)10614     */
126    
127  static void L9()  static void L9()
128  {register object *base=vs_base;  {register object *base=vs_base;
# Line 132  static void L9() Line 132  static void L9()
132          vs_top=sup;          vs_top=sup;
133          goto TTL;          goto TTL;
134  TTL:;  TTL:;
135          V9= VV[210];          V9= VV[240];
136          base[0]= (*(LnkLI201))(VV[39],VV[40],V9,VV[42],VV[4]);          base[0]= (*(LnkLI231))(VV[48],VV[49],V9,VV[51],VV[4]);
137          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
138          return;          return;
139  }  }
140  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
141    
142  static void L10()  static void L10()
143  {register object *base=vs_base;  {register object *base=vs_base;
# Line 147  static void L10() Line 147  static void L10()
147          vs_top=sup;          vs_top=sup;
148          goto TTL;          goto TTL;
149  TTL:;  TTL:;
150          V10= VV[212];          V10= VV[242];
151          base[0]= (*(LnkLI211))(VV[43],VV[44],VV[4],V10);          base[0]= (*(LnkLI241))(VV[52],VV[53],VV[4],V10);
152          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
153          return;          return;
154  }  }
155  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
156    
157  static void L11()  static void L11()
158  {register object *base=vs_base;  {register object *base=vs_base;
# Line 162  static void L11() Line 162  static void L11()
162          vs_top=sup;          vs_top=sup;
163          goto TTL;          goto TTL;
164  TTL:;  TTL:;
165          V11= VV[213];          V11= VV[243];
166          base[0]= (*(LnkLI211))(VV[43],VV[52],VV[4],V11);          base[0]= (*(LnkLI241))(VV[52],VV[62],VV[4],V11);
167          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
168          return;          return;
169  }  }
170  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
171    
172  static void L12()  static void L12()
173  {register object *base=vs_base;  {register object *base=vs_base;
# Line 177  static void L12() Line 177  static void L12()
177          vs_top=sup;          vs_top=sup;
178          goto TTL;          goto TTL;
179  TTL:;  TTL:;
180          V12= VV[214];          V12= VV[244];
181          base[0]= (*(LnkLI211))(VV[43],VV[56],VV[4],V12);          base[0]= (*(LnkLI241))(VV[52],VV[67],VV[4],V12);
182          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
183          return;          return;
184  }  }
185  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
186    
187  static void L13()  static void L13()
188  {register object *base=vs_base;  {register object *base=vs_base;
# Line 192  static void L13() Line 192  static void L13()
192          vs_top=sup;          vs_top=sup;
193          goto TTL;          goto TTL;
194  TTL:;  TTL:;
195          V13= VV[215];          V13= VV[245];
196          base[0]= (*(LnkLI211))(VV[43],VV[60],VV[4],V13);          base[0]= (*(LnkLI241))(VV[52],VV[72],VV[4],V13);
197          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
198          return;          return;
199  }  }
200  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
201    
202  static void L14()  static void L14()
203  {register object *base=vs_base;  {register object *base=vs_base;
# Line 207  static void L14() Line 207  static void L14()
207          vs_top=sup;          vs_top=sup;
208          goto TTL;          goto TTL;
209  TTL:;  TTL:;
210          V14= VV[216];          V14= VV[246];
211          base[0]= (*(LnkLI211))(VV[43],VV[64],VV[4],V14);          base[0]= (*(LnkLI241))(VV[52],VV[77],VV[4],V14);
212          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
213          return;          return;
214  }  }
215  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
216    
217  static void L15()  static void L15()
218  {register object *base=vs_base;  {register object *base=vs_base;
# Line 222  static void L15() Line 222  static void L15()
222          vs_top=sup;          vs_top=sup;
223          goto TTL;          goto TTL;
224  TTL:;  TTL:;
225          V15= VV[217];          V15= VV[247];
226          base[0]= (*(LnkLI211))(VV[43],VV[67],VV[4],V15);          base[0]= (*(LnkLI241))(VV[52],VV[83],VV[4],V15);
227          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
228          return;          return;
229  }  }
230  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
231    
232  static void L16()  static void L16()
233  {register object *base=vs_base;  {register object *base=vs_base;
# Line 237  static void L16() Line 237  static void L16()
237          vs_top=sup;          vs_top=sup;
238          goto TTL;          goto TTL;
239  TTL:;  TTL:;
240          V16= VV[218];          V16= VV[248];
241          base[0]= (*(LnkLI211))(VV[43],VV[72],VV[4],V16);          base[0]= (*(LnkLI241))(VV[52],VV[87],VV[4],V16);
242          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
243          return;          return;
244  }  }
245  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
246    
247  static void L17()  static void L17()
248  {register object *base=vs_base;  {register object *base=vs_base;
# Line 252  static void L17() Line 252  static void L17()
252          vs_top=sup;          vs_top=sup;
253          goto TTL;          goto TTL;
254  TTL:;  TTL:;
255          V17= VV[219];          V17= VV[249];
256          base[0]= (*(LnkLI211))(VV[43],VV[75],VV[4],V17);          base[0]= (*(LnkLI241))(VV[52],VV[91],VV[4],V17);
257          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
258          return;          return;
259  }  }
260  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
261    
262  static void L18()  static void L18()
263  {register object *base=vs_base;  {register object *base=vs_base;
# Line 267  static void L18() Line 267  static void L18()
267          vs_top=sup;          vs_top=sup;
268          goto TTL;          goto TTL;
269  TTL:;  TTL:;
270          V18= VV[220];          V18= VV[250];
271          base[0]= (*(LnkLI211))(VV[43],VV[79],VV[4],V18);          base[0]= (*(LnkLI241))(VV[52],VV[96],VV[4],V18);
272          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
273          return;          return;
274  }  }
275  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
276    
277  static void L19()  static void L19()
278  {register object *base=vs_base;  {register object *base=vs_base;
# Line 282  static void L19() Line 282  static void L19()
282          vs_top=sup;          vs_top=sup;
283          goto TTL;          goto TTL;
284  TTL:;  TTL:;
285          V19= VV[221];          V19= VV[251];
286          base[0]= (*(LnkLI211))(VV[43],VV[82],VV[4],V19);          base[0]= (*(LnkLI241))(VV[52],VV[100],VV[4],V19);
287          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
288          return;          return;
289  }  }
290  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
291    
292  static void L20()  static void L20()
293  {register object *base=vs_base;  {register object *base=vs_base;
# Line 297  static void L20() Line 297  static void L20()
297          vs_top=sup;          vs_top=sup;
298          goto TTL;          goto TTL;
299  TTL:;  TTL:;
300          V20= VV[222];          V20= VV[252];
301          base[0]= (*(LnkLI211))(VV[43],VV[85],VV[4],V20);          base[0]= (*(LnkLI241))(VV[52],VV[104],VV[4],V20);
302          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
303          return;          return;
304  }  }
305  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
306    
307  static void L21()  static void L21()
308  {register object *base=vs_base;  {register object *base=vs_base;
# Line 312  static void L21() Line 312  static void L21()
312          vs_top=sup;          vs_top=sup;
313          goto TTL;          goto TTL;
314  TTL:;  TTL:;
315          V21= VV[223];          V21= VV[253];
316          base[0]= (*(LnkLI211))(VV[43],VV[88],VV[4],V21);          base[0]= (*(LnkLI241))(VV[52],VV[108],VV[4],V21);
317          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
318          return;          return;
319  }  }
320  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
321    
322  static void L22()  static void L22()
323  {register object *base=vs_base;  {register object *base=vs_base;
# Line 327  static void L22() Line 327  static void L22()
327          vs_top=sup;          vs_top=sup;
328          goto TTL;          goto TTL;
329  TTL:;  TTL:;
330          V22= VV[224];          V22= VV[254];
331          base[0]= (*(LnkLI211))(VV[43],VV[93],VV[4],V22);          base[0]= (*(LnkLI241))(VV[52],VV[114],VV[4],V22);
332          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
333          return;          return;
334  }  }
335  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
336    
337  static void L23()  static void L23()
338  {register object *base=vs_base;  {register object *base=vs_base;
# Line 342  static void L23() Line 342  static void L23()
342          vs_top=sup;          vs_top=sup;
343          goto TTL;          goto TTL;
344  TTL:;  TTL:;
345          V23= VV[225];          V23= VV[255];
346          base[0]= (*(LnkLI211))(VV[43],VV[97],VV[4],V23);          base[0]= (*(LnkLI241))(VV[52],VV[119],VV[4],V23);
347          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
348          return;          return;
349  }  }
350  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
351    
352  static void L24()  static void L24()
353  {register object *base=vs_base;  {register object *base=vs_base;
# Line 357  static void L24() Line 357  static void L24()
357          vs_top=sup;          vs_top=sup;
358          goto TTL;          goto TTL;
359  TTL:;  TTL:;
360          V24= VV[226];          V24= VV[256];
361          base[0]= (*(LnkLI211))(VV[43],VV[100],VV[4],V24);          base[0]= (*(LnkLI241))(VV[52],VV[123],VV[4],V24);
362          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
363          return;          return;
364  }  }
365  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)9456  */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CACHING)10649 */
366    
367  static void L25()  static void L25()
368  {register object *base=vs_base;  {register object *base=vs_base;
# Line 372  static void L25() Line 372  static void L25()
372          vs_top=sup;          vs_top=sup;
373          goto TTL;          goto TTL;
374  TTL:;  TTL:;
375          V25= VV[227];          V25= VV[257];
376          base[0]= (*(LnkLI211))(VV[43],VV[104],VV[4],V25);          base[0]= (*(LnkLI241))(VV[52],VV[128],VV[4],V25);
377          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
378          return;          return;
379  }  }
380  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CONSTANT-VALUE)9456   */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CONSTANT-VALUE)10649  */
381    
382  static void L26()  static void L26()
383  {register object *base=vs_base;  {register object *base=vs_base;
# Line 387  static void L26() Line 387  static void L26()
387          vs_top=sup;          vs_top=sup;
388          goto TTL;          goto TTL;
389  TTL:;  TTL:;
390          V26= VV[228];          V26= VV[258];
391          base[0]= (*(LnkLI211))(VV[107],VV[108],VV[4],V26);          base[0]= (*(LnkLI241))(VV[132],VV[133],VV[4],V26);
392          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
393          return;          return;
394  }  }
395  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CONSTANT-VALUE)9456   */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CONSTANT-VALUE)10649  */
396    
397  static void L27()  static void L27()
398  {register object *base=vs_base;  {register object *base=vs_base;
# Line 402  static void L27() Line 402  static void L27()
402          vs_top=sup;          vs_top=sup;
403          goto TTL;          goto TTL;
404  TTL:;  TTL:;
405          V27= VV[229];          V27= VV[259];
406          base[0]= (*(LnkLI211))(VV[107],VV[110],VV[4],V27);          base[0]= (*(LnkLI241))(VV[132],VV[135],VV[4],V27);
407          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
408          return;          return;
409  }  }
410  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)9456 */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)10649        */
411    
412  static void L28()  static void L28()
413  {register object *base=vs_base;  {register object *base=vs_base;
# Line 417  static void L28() Line 417  static void L28()
417          vs_top=sup;          vs_top=sup;
418          goto TTL;          goto TTL;
419  TTL:;  TTL:;
420          V28= VV[230];          V28= VV[260];
421          base[0]= (*(LnkLI211))(VV[112],VV[113],VV[4],V28);          base[0]= (*(LnkLI241))(VV[137],VV[138],VV[4],V28);
422          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
423          return;          return;
424  }  }
425  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)9456 */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)10649        */
426    
427  static void L29()  static void L29()
428  {register object *base=vs_base;  {register object *base=vs_base;
# Line 432  static void L29() Line 432  static void L29()
432          vs_top=sup;          vs_top=sup;
433          goto TTL;          goto TTL;
434  TTL:;  TTL:;
435          V29= VV[231];          V29= VV[261];
436          base[0]= (*(LnkLI211))(VV[112],VV[116],VV[4],V29);          base[0]= (*(LnkLI241))(VV[137],VV[142],VV[4],V29);
437          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
438          return;          return;
439  }  }
440  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)9456 */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)10649        */
441    
442  static void L30()  static void L30()
443  {register object *base=vs_base;  {register object *base=vs_base;
# Line 447  static void L30() Line 447  static void L30()
447          vs_top=sup;          vs_top=sup;
448          goto TTL;          goto TTL;
449  TTL:;  TTL:;
450          V30= VV[232];          V30= VV[262];
451          base[0]= (*(LnkLI211))(VV[112],VV[121],VV[4],V30);          base[0]= (*(LnkLI241))(VV[137],VV[148],VV[4],V30);
452          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
453          return;          return;
454  }  }
455  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)9456 */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)10649        */
456    
457  static void L31()  static void L31()
458  {register object *base=vs_base;  {register object *base=vs_base;
# Line 462  static void L31() Line 462  static void L31()
462          vs_top=sup;          vs_top=sup;
463          goto TTL;          goto TTL;
464  TTL:;  TTL:;
465          V31= VV[233];          V31= VV[263];
466          base[0]= (*(LnkLI211))(VV[112],VV[125],VV[4],V31);          base[0]= (*(LnkLI241))(VV[137],VV[153],VV[4],V31);
467          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
468          return;          return;
469  }  }
470  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)9456 */  /*      function definition for (PRECOMPILE-DFUN-CONSTRUCTOR EMIT-CHECKING)10649        */
471    
472  static void L32()  static void L32()
473  {register object *base=vs_base;  {register object *base=vs_base;
# Line 477  static void L32() Line 477  static void L32()
477          vs_top=sup;          vs_top=sup;
478          goto TTL;          goto TTL;
479  TTL:;  TTL:;
480          V32= VV[234];          V32= VV[264];
481          base[0]= (*(LnkLI211))(VV[112],VV[128],VV[4],V32);          base[0]= (*(LnkLI241))(VV[137],VV[157],VV[4],V32);
482          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
483          return;          return;
484  }  }
485  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 0)9599       */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 0)10834      */
486    
487  static void L33()  static void L33()
488  {register object *base=vs_base;  {register object *base=vs_base;
# Line 492  static void L33() Line 492  static void L33()
492          vs_top=sup;          vs_top=sup;
493          goto TTL;          goto TTL;
494  TTL:;  TTL:;
495          V33= VV[236];          V33= VV[266];
496          base[0]= (*(LnkLI235))(VV[132],V33,VV[4],VV[137]);          base[0]= (*(LnkLI265))(VV[162],V33,VV[4],VV[167]);
497          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
498          return;          return;
499  }  }
500  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 1)9599       */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 1)10834      */
501    
502  static void L34()  static void L34()
503  {register object *base=vs_base;  {register object *base=vs_base;
# Line 507  static void L34() Line 507  static void L34()
507          vs_top=sup;          vs_top=sup;
508          goto TTL;          goto TTL;
509  TTL:;  TTL:;
510          V34= VV[237];          V34= VV[267];
511          base[0]= (*(LnkLI235))(VV[138],V34,VV[4],VV[140]);          base[0]= (*(LnkLI265))(VV[168],V34,VV[4],VV[170]);
512          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
513          return;          return;
514  }  }
515  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 2)9599       */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 2)10834      */
516    
517  static void L35()  static void L35()
518  {register object *base=vs_base;  {register object *base=vs_base;
# Line 522  static void L35() Line 522  static void L35()
522          vs_top=sup;          vs_top=sup;
523          goto TTL;          goto TTL;
524  TTL:;  TTL:;
525          V35= VV[238];          V35= VV[268];
526          base[0]= (*(LnkLI235))(VV[141],V35,VV[4],VV[143]);          base[0]= (*(LnkLI265))(VV[171],V35,VV[4],VV[173]);
527          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
528          return;          return;
529  }  }
530  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 3)9599       */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 3)10834      */
531    
532  static void L36()  static void L36()
533  {register object *base=vs_base;  {register object *base=vs_base;
# Line 537  static void L36() Line 537  static void L36()
537          vs_top=sup;          vs_top=sup;
538          goto TTL;          goto TTL;
539  TTL:;  TTL:;
540          V36= VV[239];          V36= VV[269];
541          base[0]= (*(LnkLI235))(VV[144],V36,VV[4],VV[146]);          base[0]= (*(LnkLI265))(VV[174],V36,VV[4],VV[176]);
542          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
543          return;          return;
544  }  }
545  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 4)9599       */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 4)10834      */
546    
547  static void L37()  static void L37()
548  {register object *base=vs_base;  {register object *base=vs_base;
# Line 552  static void L37() Line 552  static void L37()
552          vs_top=sup;          vs_top=sup;
553          goto TTL;          goto TTL;
554  TTL:;  TTL:;
555          V37= VV[240];          V37= VV[270];
556          base[0]= (*(LnkLI235))(VV[147],V37,VV[4],VV[149]);          base[0]= (*(LnkLI265))(VV[177],V37,VV[4],VV[179]);
557          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
558          return;          return;
559  }  }
560  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 5)9599       */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 5)10834      */
561    
562  static void L38()  static void L38()
563  {register object *base=vs_base;  {register object *base=vs_base;
# Line 567  static void L38() Line 567  static void L38()
567          vs_top=sup;          vs_top=sup;
568          goto TTL;          goto TTL;
569  TTL:;  TTL:;
570          V38= VV[241];          V38= VV[271];
571          base[0]= (*(LnkLI235))(VV[150],V38,VV[4],VV[152]);          base[0]= (*(LnkLI265))(VV[180],V38,VV[4],VV[182]);
572          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
573          return;          return;
574  }  }
575  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 6)9599       */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 6)10834      */
576    
577  static void L39()  static void L39()
578  {register object *base=vs_base;  {register object *base=vs_base;
# Line 582  static void L39() Line 582  static void L39()
582          vs_top=sup;          vs_top=sup;
583          goto TTL;          goto TTL;
584  TTL:;  TTL:;
585          V39= VV[242];          V39= VV[272];
586          base[0]= (*(LnkLI235))(VV[153],V39,VV[4],VV[157]);          base[0]= (*(LnkLI265))(VV[183],V39,VV[4],VV[187]);
587          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
588          return;          return;
589  }  }
590  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 7)9599       */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 7)10834      */
591    
592  static void L40()  static void L40()
593  {register object *base=vs_base;  {register object *base=vs_base;
# Line 597  static void L40() Line 597  static void L40()
597          vs_top=sup;          vs_top=sup;
598          goto TTL;          goto TTL;
599  TTL:;  TTL:;
600          V40= VV[243];          V40= VV[273];
601          base[0]= (*(LnkLI235))(VV[158],V40,VV[4],VV[160]);          base[0]= (*(LnkLI265))(VV[188],V40,VV[4],VV[190]);
602          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
603          return;          return;
604  }  }
605  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 8)9599       */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 8)10834      */
606    
607  static void L41()  static void L41()
608  {register object *base=vs_base;  {register object *base=vs_base;
# Line 612  static void L41() Line 612  static void L41()
612          vs_top=sup;          vs_top=sup;
613          goto TTL;          goto TTL;
614  TTL:;  TTL:;
615          V41= VV[244];          V41= VV[274];
616          base[0]= (*(LnkLI235))(VV[161],V41,VV[4],VV[163]);          base[0]= (*(LnkLI265))(VV[191],V41,VV[4],VV[193]);
617          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
618          return;          return;
619  }  }
620  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 9)9599       */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 9)10834      */
621    
622  static void L42()  static void L42()
623  {register object *base=vs_base;  {register object *base=vs_base;
# Line 627  static void L42() Line 627  static void L42()
627          vs_top=sup;          vs_top=sup;
628          goto TTL;          goto TTL;
629  TTL:;  TTL:;
630          V42= VV[245];          V42= VV[275];
631          base[0]= (*(LnkLI235))(VV[164],V42,VV[4],VV[166]);          base[0]= (*(LnkLI265))(VV[194],V42,VV[4],VV[196]);
632          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
633          return;          return;
634  }  }
635  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 10)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 10)10834     */
636    
637  static void L43()  static void L43()
638  {register object *base=vs_base;  {register object *base=vs_base;
# Line 642  static void L43() Line 642  static void L43()
642          vs_top=sup;          vs_top=sup;
643          goto TTL;          goto TTL;
644  TTL:;  TTL:;
645          V43= VV[246];          V43= VV[276];
646          base[0]= (*(LnkLI235))(VV[167],V43,VV[4],VV[169]);          base[0]= (*(LnkLI265))(VV[197],V43,VV[4],VV[199]);
647          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
648          return;          return;
649  }  }
650  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 11)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 11)10834     */
651    
652  static void L44()  static void L44()
653  {register object *base=vs_base;  {register object *base=vs_base;
# Line 657  static void L44() Line 657  static void L44()
657          vs_top=sup;          vs_top=sup;
658          goto TTL;          goto TTL;
659  TTL:;  TTL:;
660          V44= VV[247];          V44= VV[277];
661          base[0]= (*(LnkLI235))(VV[170],V44,VV[4],VV[172]);          base[0]= (*(LnkLI265))(VV[200],V44,VV[4],VV[202]);
662          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
663          return;          return;
664  }  }
665  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 12)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 12)10834     */
666    
667  static void L45()  static void L45()
668  {register object *base=vs_base;  {register object *base=vs_base;
# Line 672  static void L45() Line 672  static void L45()
672          vs_top=sup;          vs_top=sup;
673          goto TTL;          goto TTL;
674  TTL:;  TTL:;
675          V45= VV[248];          V45= VV[278];
676          base[0]= (*(LnkLI235))(VV[173],V45,VV[4],VV[175]);          base[0]= (*(LnkLI265))(VV[203],V45,VV[4],VV[205]);
677          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
678          return;          return;
679  }  }
680  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 13)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 13)10834     */
681    
682  static void L46()  static void L46()
683  {register object *base=vs_base;  {register object *base=vs_base;
# Line 687  static void L46() Line 687  static void L46()
687          vs_top=sup;          vs_top=sup;
688          goto TTL;          goto TTL;
689  TTL:;  TTL:;
690          V46= VV[249];          V46= VV[279];
691          base[0]= (*(LnkLI235))(VV[176],V46,VV[4],VV[178]);          base[0]= (*(LnkLI265))(VV[206],V46,VV[4],VV[208]);
692          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
693          return;          return;
694  }  }
695  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 14)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 14)10834     */
696    
697  static void L47()  static void L47()
698  {register object *base=vs_base;  {register object *base=vs_base;
# Line 702  static void L47() Line 702  static void L47()
702          vs_top=sup;          vs_top=sup;
703          goto TTL;          goto TTL;
704  TTL:;  TTL:;
705          V47= VV[250];          V47= VV[280];
706          base[0]= (*(LnkLI235))(VV[179],V47,VV[4],VV[181]);          base[0]= (*(LnkLI265))(VV[209],V47,VV[4],VV[211]);
707          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
708          return;          return;
709  }  }
710  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 15)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 15)10834     */
711    
712  static void L48()  static void L48()
713  {register object *base=vs_base;  {register object *base=vs_base;
# Line 717  static void L48() Line 717  static void L48()
717          vs_top=sup;          vs_top=sup;
718          goto TTL;          goto TTL;
719  TTL:;  TTL:;
720          V48= VV[251];          V48= VV[281];
721          base[0]= (*(LnkLI235))(VV[182],V48,VV[4],VV[184]);          base[0]= (*(LnkLI265))(VV[212],V48,VV[4],VV[214]);
722          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
723          return;          return;
724  }  }
725  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 16)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 16)10834     */
726    
727  static void L49()  static void L49()
728  {register object *base=vs_base;  {register object *base=vs_base;
# Line 732  static void L49() Line 732  static void L49()
732          vs_top=sup;          vs_top=sup;
733          goto TTL;          goto TTL;
734  TTL:;  TTL:;
735          V49= VV[252];          V49= VV[282];
736          base[0]= (*(LnkLI235))(VV[185],V49,VV[4],VV[188]);          base[0]= (*(LnkLI265))(VV[215],V49,VV[4],VV[218]);
737          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
738          return;          return;
739  }  }
740  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 17)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 17)10834     */
741    
742  static void L50()  static void L50()
743  {register object *base=vs_base;  {register object *base=vs_base;
# Line 747  static void L50() Line 747  static void L50()
747          vs_top=sup;          vs_top=sup;
748          goto TTL;          goto TTL;
749  TTL:;  TTL:;
750          V50= VV[253];          V50= VV[283];
751          base[0]= (*(LnkLI235))(VV[189],V50,VV[4],VV[191]);          base[0]= (*(LnkLI265))(VV[219],V50,VV[4],VV[221]);
752          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
753          return;          return;
754  }  }
755  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 18)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 18)10834     */
756    
757  static void L51()  static void L51()
758  {register object *base=vs_base;  {register object *base=vs_base;
# Line 762  static void L51() Line 762  static void L51()
762          vs_top=sup;          vs_top=sup;
763          goto TTL;          goto TTL;
764  TTL:;  TTL:;
765          V51= VV[254];          V51= VV[284];
766          base[0]= (*(LnkLI235))(VV[192],V51,VV[4],VV[194]);          base[0]= (*(LnkLI265))(VV[222],V51,VV[4],VV[224]);
767          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
768          return;          return;
769  }  }
770  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 19)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 19)10834     */
771    
772  static void L52()  static void L52()
773  {register object *base=vs_base;  {register object *base=vs_base;
# Line 777  static void L52() Line 777  static void L52()
777          vs_top=sup;          vs_top=sup;
778          goto TTL;          goto TTL;
779  TTL:;  TTL:;
780          V52= VV[255];          V52= VV[285];
781          base[0]= (*(LnkLI235))(VV[195],V52,VV[4],VV[197]);          base[0]= (*(LnkLI265))(VV[225],V52,VV[4],VV[227]);
782          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
783          return;          return;
784  }  }
785  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 20)9599      */  /*      function definition for (PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE PCL 20)10834     */
786    
787  static void L53()  static void L53()
788  {register object *base=vs_base;  {register object *base=vs_base;
# Line 792  static void L53() Line 792  static void L53()
792          vs_top=sup;          vs_top=sup;
793          goto TTL;          goto TTL;
794  TTL:;  TTL:;
795          V53= VV[256];          V53= VV[286];
796          base[0]= (*(LnkLI235))(VV[198],V53,VV[4],VV[200]);          base[0]= (*(LnkLI265))(VV[228],V53,VV[4],VV[230]);
797          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
798          return;          return;
799  }  }
# Line 845  register object *base0; Line 845  register object *base0;
845          goto T64;          goto T64;
846          goto T66;          goto T66;
847  T66:;  T66:;
848          if(!(((V55)->str.str_def)==(VV[199]))){          if(!(((V55)->str.str_def)==(VV[229]))){
849          goto T64;}          goto T64;}
850          V59= STREF(object,(V55),4);          V59= STREF(object,(V55),4);
851          V60= STREF(object,(V55),0);          V60= STREF(object,(V55),0);
852          goto T62;          goto T62;
853          goto T64;          goto T64;
854  T64:;{object V64;  T64:;{object V64;
855          V64= (VV[33]->s.s_dbind);          V64= (VV[42]->s.s_dbind);
856          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
857          base[3]= (V55);          base[3]= (V55);
858          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
859          (void) (*Lnk257)();          (void) (*Lnk287)();
860          vs_top=sup;          vs_top=sup;
861          V65= vs_base[0];          V65= vs_base[0];
862          if(!((V64)==(CMPcar(V65)))){          if(!((V64)==(CMPcar(V65)))){
# Line 866  T64:;{object V64; Line 866  T64:;{object V64;
866          goto T62;          goto T62;
867          goto T72;          goto T72;
868  T72:;  T72:;
869          V60= (*(LnkLI259))((V55));          V60= (*(LnkLI289))((V55));
870          goto T62;          goto T62;
871  T62:;  T62:;
872          V61= ((V60))->v.v_self[11];          V61= ((V60))->v.v_self[11];
# Line 876  T62:; Line 876  T62:;
876          V57= CMPcdr((V57));          V57= CMPcdr((V57));
877          V62= (V66);}          V62= (V66);}
878          (void)(((V59))->v.v_self[1]= ((V62)));          (void)(((V59))->v.v_self[1]= ((V62)));
879          if(!((((V59))->v.v_self[0])==(VV[34]))){          if(!((((V59))->v.v_self[0])==(VV[43]))){
880          goto T54;}          goto T54;}
881          V62= Cnil;          V62= Cnil;
882          (void)(((V59))->v.v_self[0]= ((V62)));}          (void)(((V59))->v.v_self[0]= ((V62)));}
# Line 935  register object *base0; Line 935  register object *base0;
935          goto T105;          goto T105;
936          goto T107;          goto T107;
937  T107:;  T107:;
938          if(!(((V68)->str.str_def)==(VV[196]))){          if(!(((V68)->str.str_def)==(VV[226]))){
939          goto T105;}          goto T105;}
940          V72= STREF(object,(V68),4);          V72= STREF(object,(V68),4);
941          V73= STREF(object,(V68),0);          V73= STREF(object,(V68),0);
942          goto T103;          goto T103;
943          goto T105;          goto T105;
944  T105:;{object V77;  T105:;{object V77;
945          V77= (VV[33]->s.s_dbind);          V77= (VV[42]->s.s_dbind);
946          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
947          base[3]= (V68);          base[3]= (V68);
948          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
949          (void) (*Lnk257)();          (void) (*Lnk287)();
950          vs_top=sup;          vs_top=sup;
951          V78= vs_base[0];          V78= vs_base[0];
952          if(!((V77)==(CMPcar(V78)))){          if(!((V77)==(CMPcar(V78)))){
# Line 956  T105:;{object V77; Line 956  T105:;{object V77;
956          goto T103;          goto T103;
957          goto T113;          goto T113;
958  T113:;  T113:;
959          V73= (*(LnkLI259))((V68));          V73= (*(LnkLI289))((V68));
960          goto T103;          goto T103;
961  T103:;  T103:;
962          V74= ((V73))->v.v_self[11];          V74= ((V73))->v.v_self[11];
# Line 1018  register object *base0; Line 1018  register object *base0;
1018          goto T143;          goto T143;
1019          goto T145;          goto T145;
1020  T145:;  T145:;
1021          if(!(((V80)->str.str_def)==(VV[193]))){          if(!(((V80)->str.str_def)==(VV[223]))){
1022          goto T143;}          goto T143;}
1023          V84= STREF(object,(V80),4);          V84= STREF(object,(V80),4);
1024          V85= STREF(object,(V80),0);          V85= STREF(object,(V80),0);
1025          goto T141;          goto T141;
1026          goto T143;          goto T143;
1027  T143:;{object V89;  T143:;{object V89;
1028          V89= (VV[33]->s.s_dbind);          V89= (VV[42]->s.s_dbind);
1029          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1030          base[3]= (V80);          base[3]= (V80);
1031          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1032          (void) (*Lnk257)();          (void) (*Lnk287)();
1033          vs_top=sup;          vs_top=sup;
1034          V90= vs_base[0];          V90= vs_base[0];
1035          if(!((V89)==(CMPcar(V90)))){          if(!((V89)==(CMPcar(V90)))){
# Line 1039  T143:;{object V89; Line 1039  T143:;{object V89;
1039          goto T141;          goto T141;
1040          goto T151;          goto T151;
1041  T151:;  T151:;
1042          V85= (*(LnkLI259))((V80));          V85= (*(LnkLI289))((V80));
1043          goto T141;          goto T141;
1044  T141:;  T141:;
1045          V86= ((V85))->v.v_self[11];          V86= ((V85))->v.v_self[11];
# Line 1085  T141:; Line 1085  T141:;
1085          V82= CMPcdr((V82));          V82= CMPcdr((V82));
1086          V87= (V97);}          V87= (V97);}
1087          (void)(((V84))->v.v_self[1]= ((V87)));          (void)(((V84))->v.v_self[1]= ((V87)));
1088          if(!((((V84))->v.v_self[6])==(VV[34]))){          if(!((((V84))->v.v_self[6])==(VV[43]))){
1089          goto T218;}          goto T218;}
1090          V87= Ct;          V87= Ct;
1091          (void)(((V84))->v.v_self[6]= ((V87)));          (void)(((V84))->v.v_self[6]= ((V87)));
1092          goto T218;          goto T218;
1093  T218:;  T218:;
1094          if(!((((V84))->v.v_self[7])==(VV[34]))){          if(!((((V84))->v.v_self[7])==(VV[43]))){
1095          goto T223;}          goto T223;}
1096          V87= ((base0[0]->c.c_car))->v.v_self[9];          V87= ((base0[0]->c.c_car))->v.v_self[9];
1097          (void)(((V84))->v.v_self[7]= ((V87)));          (void)(((V84))->v.v_self[7]= ((V87)));
1098          goto T223;          goto T223;
1099  T223:;  T223:;
1100          if(!((((V84))->v.v_self[9])==(VV[34]))){          if(!((((V84))->v.v_self[9])==(VV[43]))){
1101          goto T133;}          goto T133;}
1102          V87= VV[187];          V87= VV[217];
1103          (void)(((V84))->v.v_self[9]= ((V87)));}          (void)(((V84))->v.v_self[9]= ((V87)));}
1104          goto T133;          goto T133;
1105  T133:;  T133:;
# Line 1156  register object *base0; Line 1156  register object *base0;
1156          goto T242;          goto T242;
1157          goto T244;          goto T244;
1158  T244:;  T244:;
1159          if(!(((V99)->str.str_def)==(VV[190]))){          if(!(((V99)->str.str_def)==(VV[220]))){
1160          goto T242;}          goto T242;}
1161          V103= STREF(object,(V99),4);          V103= STREF(object,(V99),4);
1162          V104= STREF(object,(V99),0);          V104= STREF(object,(V99),0);
1163          goto T240;          goto T240;
1164          goto T242;          goto T242;
1165  T242:;{object V108;  T242:;{object V108;
1166          V108= (VV[33]->s.s_dbind);          V108= (VV[42]->s.s_dbind);
1167          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1168          base[3]= (V99);          base[3]= (V99);
1169          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1170          (void) (*Lnk257)();          (void) (*Lnk287)();
1171          vs_top=sup;          vs_top=sup;
1172          V109= vs_base[0];          V109= vs_base[0];
1173          if(!((V108)==(CMPcar(V109)))){          if(!((V108)==(CMPcar(V109)))){
# Line 1177  T242:;{object V108; Line 1177  T242:;{object V108;
1177          goto T240;          goto T240;
1178          goto T250;          goto T250;
1179  T250:;  T250:;
1180          V104= (*(LnkLI259))((V99));          V104= (*(LnkLI289))((V99));
1181          goto T240;          goto T240;
1182  T240:;  T240:;
1183          V105= ((V104))->v.v_self[11];          V105= ((V104))->v.v_self[11];
# Line 1275  register object *base0; Line 1275  register object *base0;
1275          goto T328;          goto T328;
1276          goto T330;          goto T330;
1277  T330:;  T330:;
1278          if(!(((V117)->str.str_def)==(VV[186]))){          if(!(((V117)->str.str_def)==(VV[216]))){
1279          goto T328;}          goto T328;}
1280          V121= STREF(object,(V117),4);          V121= STREF(object,(V117),4);
1281          V122= STREF(object,(V117),0);          V122= STREF(object,(V117),0);
1282          goto T326;          goto T326;
1283          goto T328;          goto T328;
1284  T328:;{object V126;  T328:;{object V126;
1285          V126= (VV[33]->s.s_dbind);          V126= (VV[42]->s.s_dbind);
1286          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1287          base[3]= (V117);          base[3]= (V117);
1288          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1289          (void) (*Lnk257)();          (void) (*Lnk287)();
1290          vs_top=sup;          vs_top=sup;
1291          V127= vs_base[0];          V127= vs_base[0];
1292          if(!((V126)==(CMPcar(V127)))){          if(!((V126)==(CMPcar(V127)))){
# Line 1296  T328:;{object V126; Line 1296  T328:;{object V126;
1296          goto T326;          goto T326;
1297          goto T336;          goto T336;
1298  T336:;  T336:;
1299          V122= (*(LnkLI259))((V117));          V122= (*(LnkLI289))((V117));
1300          goto T326;          goto T326;
1301  T326:;  T326:;
1302          V123= ((V122))->v.v_self[11];          V123= ((V122))->v.v_self[11];
# Line 1330  T326:; Line 1330  T326:;
1330          V119= CMPcdr((V119));          V119= CMPcdr((V119));
1331          V124= (V132);}          V124= (V132);}
1332          (void)(((V121))->v.v_self[5]= ((V124)));          (void)(((V121))->v.v_self[5]= ((V124)));
1333          if(!((((V121))->v.v_self[1])==(VV[34]))){          if(!((((V121))->v.v_self[1])==(VV[43]))){
1334          goto T387;}          goto T387;}
1335          V124= Cnil;          V124= Cnil;
1336          (void)(((V121))->v.v_self[1]= ((V124)));          (void)(((V121))->v.v_self[1]= ((V124)));
1337          goto T387;          goto T387;
1338  T387:;  T387:;
1339          if(!((((V121))->v.v_self[2])==(VV[34]))){          if(!((((V121))->v.v_self[2])==(VV[43]))){
1340          goto T392;}          goto T392;}
1341          V124= Cnil;          V124= Cnil;
1342          (void)(((V121))->v.v_self[2]= ((V124)));          (void)(((V121))->v.v_self[2]= ((V124)));
1343          goto T392;          goto T392;
1344  T392:;  T392:;
1345          if(!((((V121))->v.v_self[6])==(VV[34]))){          if(!((((V121))->v.v_self[6])==(VV[43]))){
1346          goto T397;}          goto T397;}
1347          V124= Ct;          V124= Ct;
1348          (void)(((V121))->v.v_self[6]= ((V124)));          (void)(((V121))->v.v_self[6]= ((V124)));
1349          goto T397;          goto T397;
1350  T397:;  T397:;
1351          if(!((((V121))->v.v_self[7])==(VV[34]))){          if(!((((V121))->v.v_self[7])==(VV[43]))){
1352          goto T402;}          goto T402;}
1353          V124= ((base0[0]->c.c_car))->v.v_self[9];          V124= ((base0[0]->c.c_car))->v.v_self[9];
1354          (void)(((V121))->v.v_self[7]= ((V124)));          (void)(((V121))->v.v_self[7]= ((V124)));
1355          goto T402;          goto T402;
1356  T402:;  T402:;
1357          if(!((((V121))->v.v_self[9])==(VV[34]))){          if(!((((V121))->v.v_self[9])==(VV[43]))){
1358          goto T318;}          goto T318;}
1359          V124= VV[187];          V124= VV[217];
1360          (void)(((V121))->v.v_self[9]= ((V124)));}          (void)(((V121))->v.v_self[9]= ((V124)));}
1361          goto T318;          goto T318;
1362  T318:;  T318:;
# Line 1413  register object *base0; Line 1413  register object *base0;
1413          goto T421;          goto T421;
1414          goto T423;          goto T423;
1415  T423:;  T423:;
1416          if(!(((V134)->str.str_def)==(VV[183]))){          if(!(((V134)->str.str_def)==(VV[213]))){
1417          goto T421;}          goto T421;}
1418          V138= STREF(object,(V134),4);          V138= STREF(object,(V134),4);
1419          V139= STREF(object,(V134),0);          V139= STREF(object,(V134),0);
1420          goto T419;          goto T419;
1421          goto T421;          goto T421;
1422  T421:;{object V143;  T421:;{object V143;
1423          V143= (VV[33]->s.s_dbind);          V143= (VV[42]->s.s_dbind);
1424          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1425          base[3]= (V134);          base[3]= (V134);
1426          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1427          (void) (*Lnk257)();          (void) (*Lnk287)();
1428          vs_top=sup;          vs_top=sup;
1429          V144= vs_base[0];          V144= vs_base[0];
1430          if(!((V143)==(CMPcar(V144)))){          if(!((V143)==(CMPcar(V144)))){
# Line 1434  T421:;{object V143; Line 1434  T421:;{object V143;
1434          goto T419;          goto T419;
1435          goto T429;          goto T429;
1436  T429:;  T429:;
1437          V139= (*(LnkLI259))((V134));          V139= (*(LnkLI289))((V134));
1438          goto T419;          goto T419;
1439  T419:;  T419:;
1440          V140= ((V139))->v.v_self[11];          V140= ((V139))->v.v_self[11];
# Line 1520  register object *base0; Line 1520  register object *base0;
1520          goto T491;          goto T491;
1521          goto T493;          goto T493;
1522  T493:;  T493:;
1523          if(!(((V150)->str.str_def)==(VV[180]))){          if(!(((V150)->str.str_def)==(VV[210]))){
1524          goto T491;}          goto T491;}
1525          V154= STREF(object,(V150),4);          V154= STREF(object,(V150),4);
1526          V155= STREF(object,(V150),0);          V155= STREF(object,(V150),0);
1527          goto T489;          goto T489;
1528          goto T491;          goto T491;
1529  T491:;{object V159;  T491:;{object V159;
1530          V159= (VV[33]->s.s_dbind);          V159= (VV[42]->s.s_dbind);
1531          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1532          base[3]= (V150);          base[3]= (V150);
1533          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1534          (void) (*Lnk257)();          (void) (*Lnk287)();
1535          vs_top=sup;          vs_top=sup;
1536          V160= vs_base[0];          V160= vs_base[0];
1537          if(!((V159)==(CMPcar(V160)))){          if(!((V159)==(CMPcar(V160)))){
# Line 1541  T491:;{object V159; Line 1541  T491:;{object V159;
1541          goto T489;          goto T489;
1542          goto T499;          goto T499;
1543  T499:;  T499:;
1544          V155= (*(LnkLI259))((V150));          V155= (*(LnkLI289))((V150));
1545          goto T489;          goto T489;
1546  T489:;  T489:;
1547          V156= ((V155))->v.v_self[11];          V156= ((V155))->v.v_self[11];
# Line 1587  T489:; Line 1587  T489:;
1587          V152= CMPcdr((V152));          V152= CMPcdr((V152));
1588          V157= (V167);}          V157= (V167);}
1589          (void)(((V154))->v.v_self[8]= ((V157)));          (void)(((V154))->v.v_self[8]= ((V157)));
1590          if(!((((V154))->v.v_self[3])==(VV[34]))){          if(!((((V154))->v.v_self[3])==(VV[43]))){
1591          goto T566;}          goto T566;}
1592          V157= Cnil;          V157= Cnil;
1593          (void)(((V154))->v.v_self[3]= ((V157)));          (void)(((V154))->v.v_self[3]= ((V157)));
1594          goto T566;          goto T566;
1595  T566:;  T566:;
1596          if(!((((V154))->v.v_self[4])==(VV[34]))){          if(!((((V154))->v.v_self[4])==(VV[43]))){
1597          goto T571;}          goto T571;}
1598          V157= Cnil;          V157= Cnil;
1599          (void)(((V154))->v.v_self[4]= ((V157)));          (void)(((V154))->v.v_self[4]= ((V157)));
1600          goto T571;          goto T571;
1601  T571:;  T571:;
1602          if(!((((V154))->v.v_self[7])==(VV[34]))){          if(!((((V154))->v.v_self[7])==(VV[43]))){
1603          goto T576;}          goto T576;}
1604          V157= ((base0[0]->c.c_car))->v.v_self[10];          V157= ((base0[0]->c.c_car))->v.v_self[10];
1605          (void)(((V154))->v.v_self[7]= ((V157)));          (void)(((V154))->v.v_self[7]= ((V157)));
1606          goto T576;          goto T576;
1607  T576:;  T576:;
1608          if(!((((V154))->v.v_self[12])==(VV[34]))){          if(!((((V154))->v.v_self[12])==(VV[43]))){
1609          goto T581;}          goto T581;}
1610          V157= small_fixnum(0);          V157= small_fixnum(0);
1611          (void)(((V154))->v.v_self[12]= ((V157)));          (void)(((V154))->v.v_self[12]= ((V157)));
1612          goto T581;          goto T581;
1613  T581:;  T581:;
1614          if(!((((V154))->v.v_self[14])==(VV[34]))){          if(!((((V154))->v.v_self[14])==(VV[43]))){
1615          goto T481;}          goto T481;}
1616          V157= Cnil;          V157= Cnil;
1617          (void)(((V154))->v.v_self[14]= ((V157)));}          (void)(((V154))->v.v_self[14]= ((V157)));}
# Line 1670  register object *base0; Line 1670  register object *base0;
1670          goto T600;          goto T600;
1671          goto T602;          goto T602;
1672  T602:;  T602:;
1673          if(!(((V169)->str.str_def)==(VV[177]))){          if(!(((V169)->str.str_def)==(VV[207]))){
1674          goto T600;}          goto T600;}
1675          V173= STREF(object,(V169),4);          V173= STREF(object,(V169),4);
1676          V174= STREF(object,(V169),0);          V174= STREF(object,(V169),0);
1677          goto T598;          goto T598;
1678          goto T600;          goto T600;
1679  T600:;{object V178;  T600:;{object V178;
1680          V178= (VV[33]->s.s_dbind);          V178= (VV[42]->s.s_dbind);
1681          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1682          base[3]= (V169);          base[3]= (V169);
1683          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1684          (void) (*Lnk257)();          (void) (*Lnk287)();
1685          vs_top=sup;          vs_top=sup;
1686          V179= vs_base[0];          V179= vs_base[0];
1687          if(!((V178)==(CMPcar(V179)))){          if(!((V178)==(CMPcar(V179)))){
# Line 1691  T600:;{object V178; Line 1691  T600:;{object V178;
1691          goto T598;          goto T598;
1692          goto T608;          goto T608;
1693  T608:;  T608:;
1694          V174= (*(LnkLI259))((V169));          V174= (*(LnkLI289))((V169));
1695          goto T598;          goto T598;
1696  T598:;  T598:;
1697          V175= ((V174))->v.v_self[11];          V175= ((V174))->v.v_self[11];
# Line 1789  register object *base0; Line 1789  register object *base0;
1789          goto T686;          goto T686;
1790          goto T688;          goto T688;
1791  T688:;  T688:;
1792          if(!(((V187)->str.str_def)==(VV[174]))){          if(!(((V187)->str.str_def)==(VV[204]))){
1793          goto T686;}          goto T686;}
1794          V191= STREF(object,(V187),4);          V191= STREF(object,(V187),4);
1795          V192= STREF(object,(V187),0);          V192= STREF(object,(V187),0);
1796          goto T684;          goto T684;
1797          goto T686;          goto T686;
1798  T686:;{object V196;  T686:;{object V196;
1799          V196= (VV[33]->s.s_dbind);          V196= (VV[42]->s.s_dbind);
1800          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1801          base[3]= (V187);          base[3]= (V187);
1802          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1803          (void) (*Lnk257)();          (void) (*Lnk287)();
1804          vs_top=sup;          vs_top=sup;
1805          V197= vs_base[0];          V197= vs_base[0];
1806          if(!((V196)==(CMPcar(V197)))){          if(!((V196)==(CMPcar(V197)))){
# Line 1810  T686:;{object V196; Line 1810  T686:;{object V196;
1810          goto T684;          goto T684;
1811          goto T694;          goto T694;
1812  T694:;  T694:;
1813          V192= (*(LnkLI259))((V187));          V192= (*(LnkLI289))((V187));
1814          goto T684;          goto T684;
1815  T684:;  T684:;
1816          V193= ((V192))->v.v_self[11];          V193= ((V192))->v.v_self[11];
# Line 1826  T684:; Line 1826  T684:;
1826          V189= CMPcdr((V189));          V189= CMPcdr((V189));
1827          V194= (V199);}          V194= (V199);}
1828          (void)(((V191))->v.v_self[1]= ((V194)));          (void)(((V191))->v.v_self[1]= ((V194)));
1829          if(!((((V191))->v.v_self[0])==(VV[34]))){          if(!((((V191))->v.v_self[0])==(VV[43]))){
1830          goto T721;}          goto T721;}
1831          V194= Cnil;          V194= Cnil;
1832          (void)(((V191))->v.v_self[0]= ((V194)));          (void)(((V191))->v.v_self[0]= ((V194)));
1833          goto T721;          goto T721;
1834  T721:;  T721:;
1835          if(!((((V191))->v.v_self[2])==(VV[34]))){          if(!((((V191))->v.v_self[2])==(VV[43]))){
1836          goto T726;}          goto T726;}
1837          V194= Cnil;          V194= Cnil;
1838          (void)(((V191))->v.v_self[2]= ((V194)));          (void)(((V191))->v.v_self[2]= ((V194)));
1839          goto T726;          goto T726;
1840  T726:;  T726:;
1841          if(!((((V191))->v.v_self[4])==(VV[34]))){          if(!((((V191))->v.v_self[4])==(VV[43]))){
1842          goto T731;}          goto T731;}
1843          V194= Cnil;          V194= Cnil;
1844          (void)(((V191))->v.v_self[4]= ((V194)));          (void)(((V191))->v.v_self[4]= ((V194)));
1845          goto T731;          goto T731;
1846  T731:;  T731:;
1847          if(!((((V191))->v.v_self[5])==(VV[34]))){          if(!((((V191))->v.v_self[5])==(VV[43]))){
1848          goto T736;}          goto T736;}
1849          V194= Cnil;          V194= Cnil;
1850          (void)(((V191))->v.v_self[5]= ((V194)));          (void)(((V191))->v.v_self[5]= ((V194)));
1851          goto T736;          goto T736;
1852  T736:;  T736:;
1853          if(!((((V191))->v.v_self[6])==(VV[34]))){          if(!((((V191))->v.v_self[6])==(VV[43]))){
1854          goto T741;}          goto T741;}
1855          V194= Cnil;          V194= Cnil;
1856          (void)(((V191))->v.v_self[6]= ((V194)));          (void)(((V191))->v.v_self[6]= ((V194)));
1857          goto T741;          goto T741;
1858  T741:;  T741:;
1859          if(!((((V191))->v.v_self[7])==(VV[34]))){          if(!((((V191))->v.v_self[7])==(VV[43]))){
1860          goto T746;}          goto T746;}
1861          V194= (          V194= (
1862          V200 = ((base0[0]->c.c_car))->v.v_self[8],          V200 = ((base0[0]->c.c_car))->v.v_self[8],
# Line 1867  T741:; Line 1867  T741:;
1867          (void)(((V191))->v.v_self[7]= ((V194)));          (void)(((V191))->v.v_self[7]= ((V194)));
1868          goto T746;          goto T746;
1869  T746:;  T746:;
1870          if(!((((V191))->v.v_self[8])==(VV[34]))){          if(!((((V191))->v.v_self[8])==(VV[43]))){
1871          goto T751;}          goto T751;}
1872          V194= Cnil;          V194= Cnil;
1873          (void)(((V191))->v.v_self[8]= ((V194)));          (void)(((V191))->v.v_self[8]= ((V194)));
1874          goto T751;          goto T751;
1875  T751:;  T751:;
1876          if(!((((V191))->v.v_self[10])==(VV[34]))){          if(!((((V191))->v.v_self[10])==(VV[43]))){
1877          goto T756;}          goto T756;}
1878          V194= Cnil;          V194= Cnil;
1879          (void)(((V191))->v.v_self[10]= ((V194)));          (void)(((V191))->v.v_self[10]= ((V194)));
1880          goto T756;          goto T756;
1881  T756:;  T756:;
1882          if(!((((V191))->v.v_self[11])==(VV[34]))){          if(!((((V191))->v.v_self[11])==(VV[43]))){
1883          goto T761;}          goto T761;}
1884          V194= Cnil;          V194= Cnil;
1885          (void)(((V191))->v.v_self[11]= ((V194)));          (void)(((V191))->v.v_self[11]= ((V194)));
1886          goto T761;          goto T761;
1887  T761:;  T761:;
1888          if(!((((V191))->v.v_self[12])==(VV[34]))){          if(!((((V191))->v.v_self[12])==(VV[43]))){
1889          goto T766;}          goto T766;}
1890          V194= Cnil;          V194= Cnil;
1891          (void)(((V191))->v.v_self[12]= ((V194)));          (void)(((V191))->v.v_self[12]= ((V194)));
1892          goto T766;          goto T766;
1893  T766:;  T766:;
1894          if(!((((V191))->v.v_self[13])==(VV[34]))){          if(!((((V191))->v.v_self[13])==(VV[43]))){
1895          goto T771;}          goto T771;}
1896          V194= Cnil;          V194= Cnil;
1897          (void)(((V191))->v.v_self[13]= ((V194)));          (void)(((V191))->v.v_self[13]= ((V194)));
1898          goto T771;          goto T771;
1899  T771:;  T771:;
1900          if(!((((V191))->v.v_self[14])==(VV[34]))){          if(!((((V191))->v.v_self[14])==(VV[43]))){
1901          goto T776;}          goto T776;}
1902          V194= Cnil;          V194= Cnil;
1903          (void)(((V191))->v.v_self[14]= ((V194)));          (void)(((V191))->v.v_self[14]= ((V194)));
1904          goto T776;          goto T776;
1905  T776:;  T776:;
1906          if(!((((V191))->v.v_self[15])==(VV[34]))){          if(!((((V191))->v.v_self[15])==(VV[43]))){
1907          goto T781;}          goto T781;}
1908          V194= Cnil;          V194= Cnil;
1909          (void)(((V191))->v.v_self[15]= ((V194)));          (void)(((V191))->v.v_self[15]= ((V194)));
1910          goto T781;          goto T781;
1911  T781:;  T781:;
1912          if(!((((V191))->v.v_self[16])==(VV[34]))){          if(!((((V191))->v.v_self[16])==(VV[43]))){
1913          goto T676;}          goto T676;}
1914          V194= Cnil;          V194= Cnil;
1915          (void)(((V191))->v.v_self[16]= ((V194)));}          (void)(((V191))->v.v_self[16]= ((V194)));}
# Line 1968  register object *base0; Line 1968  register object *base0;
1968          goto T800;          goto T800;
1969          goto T802;          goto T802;
1970  T802:;  T802:;
1971          if(!(((V202)->str.str_def)==(VV[171]))){          if(!(((V202)->str.str_def)==(VV[201]))){
1972          goto T800;}          goto T800;}
1973          V206= STREF(object,(V202),4);          V206= STREF(object,(V202),4);
1974          V207= STREF(object,(V202),0);          V207= STREF(object,(V202),0);
1975          goto T798;          goto T798;
1976          goto T800;          goto T800;
1977  T800:;{object V211;  T800:;{object V211;
1978          V211= (VV[33]->s.s_dbind);          V211= (VV[42]->s.s_dbind);
1979          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1980          base[3]= (V202);          base[3]= (V202);
1981          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1982          (void) (*Lnk257)();          (void) (*Lnk287)();
1983          vs_top=sup;          vs_top=sup;
1984          V212= vs_base[0];          V212= vs_base[0];
1985          if(!((V211)==(CMPcar(V212)))){          if(!((V211)==(CMPcar(V212)))){
# Line 1989  T800:;{object V211; Line 1989  T800:;{object V211;
1989          goto T798;          goto T798;
1990          goto T808;          goto T808;
1991  T808:;  T808:;
1992          V207= (*(LnkLI259))((V202));          V207= (*(LnkLI289))((V202));
1993          goto T798;          goto T798;
1994  T798:;  T798:;
1995          V208= ((V207))->v.v_self[11];          V208= ((V207))->v.v_self[11];
# Line 2050  register object *base0; Line 2050  register object *base0;
2050          goto T836;          goto T836;
2051          goto T838;          goto T838;
2052  T838:;  T838:;
2053          if(!(((V214)->str.str_def)==(VV[168]))){          if(!(((V214)->str.str_def)==(VV[198]))){
2054          goto T836;}          goto T836;}
2055          V218= STREF(object,(V214),4);          V218= STREF(object,(V214),4);
2056          V219= STREF(object,(V214),0);          V219= STREF(object,(V214),0);
2057          goto T834;          goto T834;
2058          goto T836;          goto T836;
2059  T836:;{object V223;  T836:;{object V223;
2060          V223= (VV[33]->s.s_dbind);          V223= (VV[42]->s.s_dbind);
2061          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2062          base[3]= (V214);          base[3]= (V214);
2063          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2064          (void) (*Lnk257)();          (void) (*Lnk287)();
2065          vs_top=sup;          vs_top=sup;
2066          V224= vs_base[0];          V224= vs_base[0];
2067          if(!((V223)==(CMPcar(V224)))){          if(!((V223)==(CMPcar(V224)))){
# Line 2071  T836:;{object V223; Line 2071  T836:;{object V223;
2071          goto T834;          goto T834;
2072          goto T844;          goto T844;
2073  T844:;  T844:;
2074          V219= (*(LnkLI259))((V214));          V219= (*(LnkLI289))((V214));
2075          goto T834;          goto T834;
2076  T834:;  T834:;
2077          V220= ((V219))->v.v_self[11];          V220= ((V219))->v.v_self[11];
# Line 2093  T834:; Line 2093  T834:;
2093          V216= CMPcdr((V216));          V216= CMPcdr((V216));
2094          V221= (V227);}          V221= (V227);}
2095          (void)(((V218))->v.v_self[1]= ((V221)));          (void)(((V218))->v.v_self[1]= ((V221)));
2096          if(!((((V218))->v.v_self[0])==(VV[34]))){          if(!((((V218))->v.v_self[0])==(VV[43]))){
2097          goto T879;}          goto T879;}
2098          V221= Cnil;          V221= Cnil;
2099          (void)(((V218))->v.v_self[0]= ((V221)));          (void)(((V218))->v.v_self[0]= ((V221)));
2100          goto T879;          goto T879;
2101  T879:;  T879:;
2102          if(!((((V218))->v.v_self[2])==(VV[34]))){          if(!((((V218))->v.v_self[2])==(VV[43]))){
2103          goto T884;}          goto T884;}
2104          V221= Cnil;          V221= Cnil;
2105          (void)(((V218))->v.v_self[2]= ((V221)));          (void)(((V218))->v.v_self[2]= ((V221)));
2106          goto T884;          goto T884;
2107  T884:;  T884:;
2108          if(!((((V218))->v.v_self[3])==(VV[34]))){          if(!((((V218))->v.v_self[3])==(VV[43]))){
2109          goto T889;}          goto T889;}
2110          V221= Cnil;          V221= Cnil;
2111          (void)(((V218))->v.v_self[3]= ((V221)));          (void)(((V218))->v.v_self[3]= ((V221)));
2112          goto T889;          goto T889;
2113  T889:;  T889:;
2114          if(!((((V218))->v.v_self[6])==(VV[34]))){          if(!((((V218))->v.v_self[6])==(VV[43]))){
2115          goto T894;}          goto T894;}
2116          V221= (          V221= (
2117          V228 = ((base0[0]->c.c_car))->v.v_self[7],          V228 = ((base0[0]->c.c_car))->v.v_self[7],
# Line 2122  T889:; Line 2122  T889:;
2122          (void)(((V218))->v.v_self[6]= ((V221)));          (void)(((V218))->v.v_self[6]= ((V221)));
2123          goto T894;          goto T894;
2124  T894:;  T894:;
2125          if(!((((V218))->v.v_self[7])==(VV[34]))){          if(!((((V218))->v.v_self[7])==(VV[43]))){
2126          goto T899;}          goto T899;}
2127          V221= Cnil;          V221= Cnil;
2128          (void)(((V218))->v.v_self[7]= ((V221)));          (void)(((V218))->v.v_self[7]= ((V221)));
2129          goto T899;          goto T899;
2130  T899:;  T899:;
2131          if(!((((V218))->v.v_self[8])==(VV[34]))){          if(!((((V218))->v.v_self[8])==(VV[43]))){
2132          goto T826;}          goto T826;}
2133          V221= Cnil;          V221= Cnil;
2134          (void)(((V218))->v.v_self[8]= ((V221)));}          (void)(((V218))->v.v_self[8]= ((V221)));}
# Line 2185  register object *base0; Line 2185  register object *base0;
2185          goto T918;          goto T918;
2186          goto T920;          goto T920;
2187  T920:;  T920:;
2188          if(!(((V229)->str.str_def)==(VV[165]))){          if(!(((V229)->str.str_def)==(VV[195]))){
2189          goto T918;}          goto T918;}
2190          V233= STREF(object,(V229),4);          V233= STREF(object,(V229),4);
2191          V234= STREF(object,(V229),0);          V234= STREF(object,(V229),0);
2192          goto T916;          goto T916;
2193          goto T918;          goto T918;
2194  T918:;{object V238;  T918:;{object V238;
2195          V238= (VV[33]->s.s_dbind);          V238= (VV[42]->s.s_dbind);
2196          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2197          base[3]= (V229);          base[3]= (V229);
2198          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2199          (void) (*Lnk257)();          (void) (*Lnk287)();
2200          vs_top=sup;          vs_top=sup;
2201          V239= vs_base[0];          V239= vs_base[0];
2202          if(!((V238)==(CMPcar(V239)))){          if(!((V238)==(CMPcar(V239)))){
# Line 2206  T918:;{object V238; Line 2206  T918:;{object V238;
2206          goto T916;          goto T916;
2207          goto T926;          goto T926;
2208  T926:;  T926:;
2209          V234= (*(LnkLI259))((V229));          V234= (*(LnkLI289))((V229));
2210          goto T916;          goto T916;
2211  T916:;  T916:;
2212          V235= ((V234))->v.v_self[11];          V235= ((V234))->v.v_self[11];
# Line 2228  T916:; Line 2228  T916:;
2228          V231= CMPcdr((V231));          V231= CMPcdr((V231));
2229          V236= (V242);}          V236= (V242);}
2230          (void)(((V233))->v.v_self[2]= ((V236)));          (void)(((V233))->v.v_self[2]= ((V236)));
2231          if(!((((V233))->v.v_self[0])==(VV[34]))){          if(!((((V233))->v.v_self[0])==(VV[43]))){
2232          goto T961;}          goto T961;}
2233          V236= Cnil;          V236= Cnil;
2234          (void)(((V233))->v.v_self[0]= ((V236)));          (void)(((V233))->v.v_self[0]= ((V236)));
2235          goto T961;          goto T961;
2236  T961:;  T961:;
2237          if(!((((V233))->v.v_self[1])==(VV[34]))){          if(!((((V233))->v.v_self[1])==(VV[43]))){
2238          goto T966;}          goto T966;}
2239          V236= (          V236= (
2240          V243 = ((base0[0]->c.c_car))->v.v_self[5],          V243 = ((base0[0]->c.c_car))->v.v_self[5],
# Line 2245  T961:; Line 2245  T961:;
2245          (void)(((V233))->v.v_self[1]= ((V236)));          (void)(((V233))->v.v_self[1]= ((V236)));
2246          goto T966;          goto T966;
2247  T966:;  T966:;
2248          if(!((((V233))->v.v_self[3])==(VV[34]))){          if(!((((V233))->v.v_self[3])==(VV[43]))){
2249          goto T971;}          goto T971;}
2250          V236= Cnil;          V236= Cnil;
2251          (void)(((V233))->v.v_self[3]= ((V236)));          (void)(((V233))->v.v_self[3]= ((V236)));
2252          goto T971;          goto T971;
2253  T971:;  T971:;
2254          if(!((((V233))->v.v_self[6])==(VV[34]))){          if(!((((V233))->v.v_self[6])==(VV[43]))){
2255          goto T976;}          goto T976;}
2256          V236= (          V236= (
2257          V244 = ((base0[0]->c.c_car))->v.v_self[8],          V244 = ((base0[0]->c.c_car))->v.v_self[8],
# Line 2262  T971:; Line 2262  T971:;
2262          (void)(((V233))->v.v_self[6]= ((V236)));          (void)(((V233))->v.v_self[6]= ((V236)));
2263          goto T976;          goto T976;
2264  T976:;  T976:;
2265          if(!((((V233))->v.v_self[7])==(VV[34]))){          if(!((((V233))->v.v_self[7])==(VV[43]))){
2266          goto T981;}          goto T981;}
2267          V236= Cnil;          V236= Cnil;
2268          (void)(((V233))->v.v_self[7]= ((V236)));          (void)(((V233))->v.v_self[7]= ((V236)));
2269          goto T981;          goto T981;
2270  T981:;  T981:;
2271          if(!((((V233))->v.v_self[8])==(VV[34]))){          if(!((((V233))->v.v_self[8])==(VV[43]))){
2272          goto T908;}          goto T908;}
2273          V236= Cnil;          V236= Cnil;
2274          (void)(((V233))->v.v_self[8]= ((V236)));}          (void)(((V233))->v.v_self[8]= ((V236)));}
# Line 2325  register object *base0; Line 2325  register object *base0;
2325          goto T1000;          goto T1000;
2326          goto T1002;          goto T1002;
2327  T1002:;  T1002:;
2328          if(!(((V245)->str.str_def)==(VV[162]))){          if(!(((V245)->str.str_def)==(VV[192]))){
2329          goto T1000;}          goto T1000;}
2330          V249= STREF(object,(V245),4);          V249= STREF(object,(V245),4);
2331          V250= STREF(object,(V245),0);          V250= STREF(object,(V245),0);
2332          goto T998;          goto T998;
2333          goto T1000;          goto T1000;
2334  T1000:;{object V254;  T1000:;{object V254;
2335          V254= (VV[33]->s.s_dbind);          V254= (VV[42]->s.s_dbind);
2336          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2337          base[3]= (V245);          base[3]= (V245);
2338          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2339          (void) (*Lnk257)();          (void) (*Lnk287)();
2340          vs_top=sup;          vs_top=sup;
2341          V255= vs_base[0];          V255= vs_base[0];
2342          if(!((V254)==(CMPcar(V255)))){          if(!((V254)==(CMPcar(V255)))){
# Line 2346  T1000:;{object V254; Line 2346  T1000:;{object V254;
2346          goto T998;          goto T998;
2347          goto T1008;          goto T1008;
2348  T1008:;  T1008:;
2349          V250= (*(LnkLI259))((V245));          V250= (*(LnkLI289))((V245));
2350          goto T998;          goto T998;
2351  T998:;  T998:;
2352          V251= ((V250))->v.v_self[11];          V251= ((V250))->v.v_self[11];
# Line 2362  T998:; Line 2362  T998:;
2362          V247= CMPcdr((V247));          V247= CMPcdr((V247));
2363          V252= (V257);}          V252= (V257);}
2364          (void)(((V249))->v.v_self[4]= ((V252)));          (void)(((V249))->v.v_self[4]= ((V252)));
2365          if(!((((V249))->v.v_self[0])==(VV[34]))){          if(!((((V249))->v.v_self[0])==(VV[43]))){
2366          goto T1035;}          goto T1035;}
2367          V252= Cnil;          V252= Cnil;
2368          (void)(((V249))->v.v_self[0]= ((V252)));          (void)(((V249))->v.v_self[0]= ((V252)));
2369          goto T1035;          goto T1035;
2370  T1035:;  T1035:;
2371          if(!((((V249))->v.v_self[1])==(VV[34]))){          if(!((((V249))->v.v_self[1])==(VV[43]))){
2372          goto T1040;}          goto T1040;}
2373          V252= (          V252= (
2374          V258 = ((base0[0]->c.c_car))->v.v_self[4],          V258 = ((base0[0]->c.c_car))->v.v_self[4],
# Line 2379  T1035:; Line 2379  T1035:;
2379          (void)(((V249))->v.v_self[1]= ((V252)));          (void)(((V249))->v.v_self[1]= ((V252)));
2380          goto T1040;          goto T1040;
2381  T1040:;  T1040:;
2382          if(!((((V249))->v.v_self[2])==(VV[34]))){          if(!((((V249))->v.v_self[2])==(VV[43]))){
2383          goto T1045;}          goto T1045;}
2384          V252= Cnil;          V252= Cnil;
2385          (void)(((V249))->v.v_self[2]= ((V252)));          (void)(((V249))->v.v_self[2]= ((V252)));
2386          goto T1045;          goto T1045;
2387  T1045:;  T1045:;
2388          if(!((((V249))->v.v_self[3])==(VV[34]))){          if(!((((V249))->v.v_self[3])==(VV[43]))){
2389          goto T1050;}          goto T1050;}
2390          V252= Cnil;          V252= Cnil;
2391          (void)(((V249))->v.v_self[3]= ((V252)));          (void)(((V249))->v.v_self[3]= ((V252)));
2392          goto T1050;          goto T1050;
2393  T1050:;  T1050:;
2394          if(!((((V249))->v.v_self[6])==(VV[34]))){          if(!((((V249))->v.v_self[6])==(VV[43]))){
2395          goto T1055;}          goto T1055;}
2396          V252= (          V252= (
2397          V259 = ((base0[0]->c.c_car))->v.v_self[8],          V259 = ((base0[0]->c.c_car))->v.v_self[8],
# Line 2402  T1050:; Line 2402  T1050:;
2402          (void)(((V249))->v.v_self[6]= ((V252)));          (void)(((V249))->v.v_self[6]= ((V252)));
2403          goto T1055;          goto T1055;
2404  T1055:;  T1055:;
2405          if(!((((V249))->v.v_self[7])==(VV[34]))){          if(!((((V249))->v.v_self[7])==(VV[43]))){
2406          goto T1060;}          goto T1060;}
2407          V252= Cnil;          V252= Cnil;
2408          (void)(((V249))->v.v_self[7]= ((V252)));          (void)(((V249))->v.v_self[7]= ((V252)));
2409          goto T1060;          goto T1060;
2410  T1060:;  T1060:;
2411          if(!((((V249))->v.v_self[8])==(VV[34]))){          if(!((((V249))->v.v_self[8])==(VV[43]))){
2412          goto T990;}          goto T990;}
2413          V252= Cnil;          V252= Cnil;
2414          (void)(((V249))->v.v_self[8]= ((V252)));}          (void)(((V249))->v.v_self[8]= ((V252)));}
# Line 2463  register object *base0; Line 2463  register object *base0;
2463          goto T1079;          goto T1079;
2464          goto T1081;          goto T1081;
2465  T1081:;  T1081:;
2466          if(!(((V261)->str.str_def)==(VV[159]))){          if(!(((V261)->str.str_def)==(VV[189]))){
2467          goto T1079;}          goto T1079;}
2468          V265= STREF(object,(V261),4);          V265= STREF(object,(V261),4);
2469          V266= STREF(object,(V261),0);          V266= STREF(object,(V261),0);
2470          goto T1077;          goto T1077;
2471          goto T1079;          goto T1079;
2472  T1079:;{object V270;  T1079:;{object V270;
2473          V270= (VV[33]->s.s_dbind);          V270= (VV[42]->s.s_dbind);
2474          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2475          base[3]= (V261);          base[3]= (V261);
2476          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2477          (void) (*Lnk257)();          (void) (*Lnk287)();
2478          vs_top=sup;          vs_top=sup;
2479          V271= vs_base[0];          V271= vs_base[0];
2480          if(!((V270)==(CMPcar(V271)))){          if(!((V270)==(CMPcar(V271)))){
# Line 2484  T1079:;{object V270; Line 2484  T1079:;{object V270;
2484          goto T1077;          goto T1077;
2485          goto T1087;          goto T1087;
2486  T1087:;  T1087:;
2487          V266= (*(LnkLI259))((V261));          V266= (*(LnkLI289))((V261));
2488          goto T1077;          goto T1077;
2489  T1077:;  T1077:;
2490          V267= ((V266))->v.v_self[11];}          V267= ((V266))->v.v_self[11];}
# Line 2539  register object *base0; Line 2539  register object *base0;
2539          goto T1107;          goto T1107;
2540          goto T1109;          goto T1109;
2541  T1109:;  T1109:;
2542          if(!(((V272)->str.str_def)==(VV[154]))){          if(!(((V272)->str.str_def)==(VV[184]))){
2543          goto T1107;}          goto T1107;}
2544          V276= STREF(object,(V272),4);          V276= STREF(object,(V272),4);
2545          V277= STREF(object,(V272),0);          V277= STREF(object,(V272),0);
2546          goto T1105;          goto T1105;
2547          goto T1107;          goto T1107;
2548  T1107:;{object V281;  T1107:;{object V281;
2549          V281= (VV[33]->s.s_dbind);          V281= (VV[42]->s.s_dbind);
2550          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2551          base[3]= (V272);          base[3]= (V272);
2552          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2553          (void) (*Lnk257)();          (void) (*Lnk287)();
2554          vs_top=sup;          vs_top=sup;
2555          V282= vs_base[0];          V282= vs_base[0];
2556          if(!((V281)==(CMPcar(V282)))){          if(!((V281)==(CMPcar(V282)))){
# Line 2560  T1107:;{object V281; Line 2560  T1107:;{object V281;
2560          goto T1105;          goto T1105;
2561          goto T1115;          goto T1115;
2562  T1115:;  T1115:;
2563          V277= (*(LnkLI259))((V272));          V277= (*(LnkLI289))((V272));
2564          goto T1105;          goto T1105;
2565  T1105:;  T1105:;
2566          V278= ((V277))->v.v_self[11];          V278= ((V277))->v.v_self[11];
# Line 2571  T1105:; Line 2571  T1105:;
2571          (*((V283)->sfn.sfn_self)):          (*((V283)->sfn.sfn_self)):
2572          (fcall.fun=(V283),fcalln))());          (fcall.fun=(V283),fcalln))());
2573          V273= make_cons(V279,(V273));          V273= make_cons(V279,(V273));
2574          V273= make_cons(VV[155],(V273));          V273= make_cons(VV[185],(V273));
2575          V279= (          V279= (
2576          V286 = ((base0[0]->c.c_car))->v.v_self[1],          V286 = ((base0[0]->c.c_car))->v.v_self[1],
2577          (type_of(V286) == t_sfun ?(*((V286)->sfn.sfn_self)):          (type_of(V286) == t_sfun ?(*((V286)->sfn.sfn_self)):
# Line 2579  T1105:; Line 2579  T1105:;
2579          (*((V286)->sfn.sfn_self)):          (*((V286)->sfn.sfn_self)):
2580          (fcall.fun=(V286),fcalln))());          (fcall.fun=(V286),fcalln))());
2581          V273= make_cons(V279,(V273));          V273= make_cons(V279,(V273));
2582          V273= make_cons(VV[156],(V273));          V273= make_cons(VV[186],(V273));
2583          if(!(type_of((V273))==t_cons)){          if(!(type_of((V273))==t_cons)){
2584          goto T1138;}          goto T1138;}
2585          V273= make_cons(CMPcar((V273)),CMPcdr((V273)));          V273= make_cons(CMPcar((V273)),CMPcdr((V273)));
2586          goto T1138;          goto T1138;
2587  T1138:;  T1138:;
2588          (VV[134]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[2];          (VV[164]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[2];
2589          (VV[135]->s.s_dbind)= (V273);          (VV[165]->s.s_dbind)= (V273);
2590          (VV[136]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[3];          (VV[166]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[3];
2591          V274= (V273);}          V274= (V273);}
2592          base[2]= (V273);          base[2]= (V273);
2593          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 2642  register object *base0; Line 2642  register object *base0;
2642          goto T1159;          goto T1159;
2643          goto T1161;          goto T1161;
2644  T1161:;  T1161:;
2645          if(!(((V290)->str.str_def)==(VV[151]))){          if(!(((V290)->str.str_def)==(VV[181]))){
2646          goto T1159;}          goto T1159;}
2647          V294= STREF(object,(V290),4);          V294= STREF(object,(V290),4);
2648          V295= STREF(object,(V290),0);          V295= STREF(object,(V290),0);
2649          goto T1157;          goto T1157;
2650          goto T1159;          goto T1159;
2651  T1159:;{object V299;  T1159:;{object V299;
2652          V299= (VV[33]->s.s_dbind);          V299= (VV[42]->s.s_dbind);
2653          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2654          base[3]= (V290);          base[3]= (V290);
2655          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2656          (void) (*Lnk257)();          (void) (*Lnk287)();
2657          vs_top=sup;          vs_top=sup;
2658          V300= vs_base[0];          V300= vs_base[0];
2659          if(!((V299)==(CMPcar(V300)))){          if(!((V299)==(CMPcar(V300)))){
# Line 2663  T1159:;{object V299; Line 2663  T1159:;{object V299;
2663          goto T1157;          goto T1157;
2664          goto T1167;          goto T1167;
2665  T1167:;  T1167:;
2666          V295= (*(LnkLI259))((V290));          V295= (*(LnkLI289))((V290));
2667          goto T1157;          goto T1157;
2668  T1157:;  T1157:;
2669          V296= ((V295))->v.v_self[11];          V296= ((V295))->v.v_self[11];
# Line 2691  T1157:; Line 2691  T1157:;
2691          V292= CMPcdr((V292));          V292= CMPcdr((V292));
2692          V297= (V304);}          V297= (V304);}
2693          (void)(((V294))->v.v_self[1]= ((V297)));          (void)(((V294))->v.v_self[1]= ((V297)));
2694          if(!((((V294))->v.v_self[0])==(VV[34]))){          if(!((((V294))->v.v_self[0])==(VV[43]))){
2695          goto T1210;}          goto T1210;}
2696          V297= Cnil;          V297= Cnil;
2697          (void)(((V294))->v.v_self[0]= ((V297)));          (void)(((V294))->v.v_self[0]= ((V297)));
2698          goto T1210;          goto T1210;
2699  T1210:;  T1210:;
2700          if(!((((V294))->v.v_self[2])==(VV[34]))){          if(!((((V294))->v.v_self[2])==(VV[43]))){
2701          goto T1215;}          goto T1215;}
2702          V297= Cnil;          V297= Cnil;
2703          (void)(((V294))->v.v_self[2]= ((V297)));          (void)(((V294))->v.v_self[2]= ((V297)));
2704          goto T1215;          goto T1215;
2705  T1215:;  T1215:;
2706          if(!((((V294))->v.v_self[6])==(VV[34]))){          if(!((((V294))->v.v_self[6])==(VV[43]))){
2707          goto T1149;}          goto T1149;}
2708          V297= Cnil;          V297= Cnil;
2709          (void)(((V294))->v.v_self[6]= ((V297)));}          (void)(((V294))->v.v_self[6]= ((V297)));}
# Line 2762  register object *base0; Line 2762  register object *base0;
2762          goto T1234;          goto T1234;
2763          goto T1236;          goto T1236;
2764  T1236:;  T1236:;
2765          if(!(((V306)->str.str_def)==(VV[148]))){          if(!(((V306)->str.str_def)==(VV[178]))){
2766          goto T1234;}          goto T1234;}
2767          V310= STREF(object,(V306),4);          V310= STREF(object,(V306),4);
2768          V311= STREF(object,(V306),0);          V311= STREF(object,(V306),0);
2769          goto T1232;          goto T1232;
2770          goto T1234;          goto T1234;
2771  T1234:;{object V315;  T1234:;{object V315;
2772          V315= (VV[33]->s.s_dbind);          V315= (VV[42]->s.s_dbind);
2773          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2774          base[3]= (V306);          base[3]= (V306);
2775          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2776          (void) (*Lnk257)();          (void) (*Lnk287)();
2777          vs_top=sup;          vs_top=sup;
2778          V316= vs_base[0];          V316= vs_base[0];
2779          if(!((V315)==(CMPcar(V316)))){          if(!((V315)==(CMPcar(V316)))){
# Line 2783  T1234:;{object V315; Line 2783  T1234:;{object V315;
2783          goto T1232;          goto T1232;
2784          goto T1242;          goto T1242;
2785  T1242:;  T1242:;
2786          V311= (*(LnkLI259))((V306));          V311= (*(LnkLI289))((V306));
2787          goto T1232;          goto T1232;
2788  T1232:;  T1232:;
2789          V312= ((V311))->v.v_self[11];          V312= ((V311))->v.v_self[11];
# Line 2811  T1232:; Line 2811  T1232:;
2811          V308= CMPcdr((V308));          V308= CMPcdr((V308));
2812          V313= (V320);}          V313= (V320);}
2813          (void)(((V310))->v.v_self[6]= ((V313)));          (void)(((V310))->v.v_self[6]= ((V313)));
2814          if(!((((V310))->v.v_self[0])==(VV[34]))){          if(!((((V310))->v.v_self[0])==(VV[43]))){
2815          goto T1285;}          goto T1285;}
2816          V313= Cnil;          V313= Cnil;
2817          (void)(((V310))->v.v_self[0]= ((V313)));          (void)(((V310))->v.v_self[0]= ((V313)));
2818          goto T1285;          goto T1285;
2819  T1285:;  T1285:;
2820          if(!((((V310))->v.v_self[2])==(VV[34]))){          if(!((((V310))->v.v_self[2])==(VV[43]))){
2821          goto T1290;}          goto T1290;}
2822          V313= Cnil;          V313= Cnil;
2823          (void)(((V310))->v.v_self[2]= ((V313)));          (void)(((V310))->v.v_self[2]= ((V313)));
2824          goto T1290;          goto T1290;
2825  T1290:;  T1290:;
2826          if(!((((V310))->v.v_self[5])==(VV[34]))){          if(!((((V310))->v.v_self[5])==(VV[43]))){
2827          goto T1224;}          goto T1224;}
2828          V313= Cnil;          V313= Cnil;
2829          (void)(((V310))->v.v_self[5]= ((V313)));}          (void)(((V310))->v.v_self[5]= ((V313)));}
# Line 2882  register object *base0; Line 2882  register object *base0;
2882          goto T1309;          goto T1309;
2883          goto T1311;          goto T1311;
2884  T1311:;  T1311:;
2885          if(!(((V322)->str.str_def)==(VV[145]))){          if(!(((V322)->str.str_def)==(VV[175]))){
2886          goto T1309;}          goto T1309;}
2887          V326= STREF(object,(V322),4);          V326= STREF(object,(V322),4);
2888          V327= STREF(object,(V322),0);          V327= STREF(object,(V322),0);
2889          goto T1307;          goto T1307;
2890          goto T1309;          goto T1309;
2891  T1309:;{object V331;  T1309:;{object V331;
2892          V331= (VV[33]->s.s_dbind);          V331= (VV[42]->s.s_dbind);
2893          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2894          base[3]= (V322);          base[3]= (V322);
2895          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2896          (void) (*Lnk257)();          (void) (*Lnk287)();
2897          vs_top=sup;          vs_top=sup;
2898          V332= vs_base[0];          V332= vs_base[0];
2899          if(!((V331)==(CMPcar(V332)))){          if(!((V331)==(CMPcar(V332)))){
# Line 2903  T1309:;{object V331; Line 2903  T1309:;{object V331;
2903          goto T1307;          goto T1307;
2904          goto T1317;          goto T1317;
2905  T1317:;  T1317:;
2906          V327= (*(LnkLI259))((V322));          V327= (*(LnkLI289))((V322));
2907          goto T1307;          goto T1307;
2908  T1307:;  T1307:;
2909          V328= ((V327))->v.v_self[11];          V328= ((V327))->v.v_self[11];
# Line 2931  T1307:; Line 2931  T1307:;
2931          V324= CMPcdr((V324));          V324= CMPcdr((V324));
2932          V329= (V336);}          V329= (V336);}
2933          (void)(((V326))->v.v_self[6]= ((V329)));          (void)(((V326))->v.v_self[6]= ((V329)));
2934          if(!((((V326))->v.v_self[0])==(VV[34]))){          if(!((((V326))->v.v_self[0])==(VV[43]))){
2935          goto T1360;}          goto T1360;}
2936          V329= Cnil;          V329= Cnil;
2937          (void)(((V326))->v.v_self[0]= ((V329)));          (void)(((V326))->v.v_self[0]= ((V329)));
2938          goto T1360;          goto T1360;
2939  T1360:;  T1360:;
2940          if(!((((V326))->v.v_self[2])==(VV[34]))){          if(!((((V326))->v.v_self[2])==(VV[43]))){
2941          goto T1365;}          goto T1365;}
2942          V329= Cnil;          V329= Cnil;
2943          (void)(((V326))->v.v_self[2]= ((V329)));          (void)(((V326))->v.v_self[2]= ((V329)));
2944          goto T1365;          goto T1365;
2945  T1365:;  T1365:;
2946          if(!((((V326))->v.v_self[5])==(VV[34]))){          if(!((((V326))->v.v_self[5])==(VV[43]))){
2947          goto T1299;}          goto T1299;}
2948          V329= Cnil;          V329= Cnil;
2949          (void)(((V326))->v.v_self[5]= ((V329)));}          (void)(((V326))->v.v_self[5]= ((V329)));}
# Line 3000  register object *base0; Line 3000  register object *base0;
3000          goto T1384;          goto T1384;
3001          goto T1386;          goto T1386;
3002  T1386:;  T1386:;
3003          if(!(((V337)->str.str_def)==(VV[142]))){          if(!(((V337)->str.str_def)==(VV[172]))){
3004          goto T1384;}          goto T1384;}
3005          V341= STREF(object,(V337),4);          V341= STREF(object,(V337),4);
3006          V342= STREF(object,(V337),0);          V342= STREF(object,(V337),0);
3007          goto T1382;          goto T1382;
3008          goto T1384;          goto T1384;
3009  T1384:;{object V346;  T1384:;{object V346;
3010          V346= (VV[33]->s.s_dbind);          V346= (VV[42]->s.s_dbind);
3011          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
3012          base[3]= (V337);          base[3]= (V337);
3013          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3014          (void) (*Lnk257)();          (void) (*Lnk287)();
3015          vs_top=sup;          vs_top=sup;
3016          V347= vs_base[0];          V347= vs_base[0];
3017          if(!((V346)==(CMPcar(V347)))){          if(!((V346)==(CMPcar(V347)))){
# Line 3021  T1384:;{object V346; Line 3021  T1384:;{object V346;
3021          goto T1382;          goto T1382;
3022          goto T1392;          goto T1392;
3023  T1392:;  T1392:;
3024          V342= (*(LnkLI259))((V337));          V342= (*(LnkLI289))((V337));
3025          goto T1382;          goto T1382;
3026  T1382:;  T1382:;
3027          V343= ((V342))->v.v_self[11];          V343= ((V342))->v.v_self[11];
# Line 3043  T1382:; Line 3043  T1382:;
3043          V339= CMPcdr((V339));          V339= CMPcdr((V339));
3044          V344= (V350);}          V344= (V350);}
3045          (void)(((V341))->v.v_self[5]= ((V344)));          (void)(((V341))->v.v_self[5]= ((V344)));
3046          if(!((((V341))->v.v_self[0])==(VV[34]))){          if(!((((V341))->v.v_self[0])==(VV[43]))){
3047          goto T1427;}          goto T1427;}
3048          V344= Cnil;          V344= Cnil;
3049          (void)(((V341))->v.v_self[0]= ((V344)));          (void)(((V341))->v.v_self[0]= ((V344)));
3050          goto T1427;          goto T1427;
3051  T1427:;  T1427:;
3052          if(!((((V341))->v.v_self[1])==(VV[34]))){          if(!((((V341))->v.v_self[1])==(VV[43]))){
3053          goto T1432;}          goto T1432;}
3054          V344= (          V344= (
3055          V351 = ((base0[0]->c.c_car))->v.v_self[5],          V351 = ((base0[0]->c.c_car))->v.v_self[5],
# Line 3060  T1427:; Line 3060  T1427:;
3060          (void)(((V341))->v.v_self[1]= ((V344)));          (void)(((V341))->v.v_self[1]= ((V344)));
3061          goto T1432;          goto T1432;
3062  T1432:;  T1432:;
3063          if(!((((V341))->v.v_self[2])==(VV[34]))){          if(!((((V341))->v.v_self[2])==(VV[43]))){
3064          goto T1437;}          goto T1437;}
3065          V344= Cnil;          V344= Cnil;
3066          (void)(((V341))->v.v_self[2]= ((V344)));          (void)(((V341))->v.v_self[2]= ((V344)));
3067          goto T1437;          goto T1437;
3068  T1437:;  T1437:;
3069          if(!((((V341))->v.v_self[6])==(VV[34]))){          if(!((((V341))->v.v_self[6])==(VV[43]))){
3070          goto T1374;}          goto T1374;}
3071          V344= Cnil;          V344= Cnil;
3072          (void)(((V341))->v.v_self[6]= ((V344)));}          (void)(((V341))->v.v_self[6]= ((V344)));}
# Line 3123  register object *base0; Line 3123  register object *base0;
3123          goto T1456;          goto T1456;
3124          goto T1458;          goto T1458;
3125  T1458:;  T1458:;
3126          if(!(((V352)->str.str_def)==(VV[139]))){          if(!(((V352)->str.str_def)==(VV[169]))){
3127          goto T1456;}          goto T1456;}
3128          V356= STREF(object,(V352),4);          V356= STREF(object,(V352),4);
3129          V357= STREF(object,(V352),0);          V357= STREF(object,(V352),0);
3130          goto T1454;          goto T1454;
3131          goto T1456;          goto T1456;
3132  T1456:;{object V361;  T1456:;{object V361;
3133          V361= (VV[33]->s.s_dbind);          V361= (VV[42]->s.s_dbind);
3134          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
3135          base[3]= (V352);          base[3]= (V352);
3136          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3137          (void) (*Lnk257)();          (void) (*Lnk287)();
3138          vs_top=sup;          vs_top=sup;
3139          V362= vs_base[0];          V362= vs_base[0];
3140          if(!((V361)==(CMPcar(V362)))){          if(!((V361)==(CMPcar(V362)))){
# Line 3144  T1456:;{object V361; Line 3144  T1456:;{object V361;
3144          goto T1454;          goto T1454;
3145          goto T1464;          goto T1464;
3146  T1464:;  T1464:;
3147          V357= (*(LnkLI259))((V352));          V357= (*(LnkLI289))((V352));
3148          goto T1454;          goto T1454;
3149  T1454:;  T1454:;
3150          V358= ((V357))->v.v_self[11];          V358= ((V357))->v.v_self[11];
# Line 3172  T1454:; Line 3172  T1454:;
3172          V354= CMPcdr((V354));          V354= CMPcdr((V354));
3173          V359= (V366);}          V359= (V366);}
3174          (void)(((V356))->v.v_self[6]= ((V359)));          (void)(((V356))->v.v_self[6]= ((V359)));
3175          if(!((((V356))->v.v_self[0])==(VV[34]))){          if(!((((V356))->v.v_self[0])==(VV[43]))){
3176          goto T1507;}          goto T1507;}
3177          V359= Cnil;          V359= Cnil;
3178          (void)(((V356))->v.v_self[0]= ((V359)));          (void)(((V356))->v.v_self[0]= ((V359)));
3179          goto T1507;          goto T1507;
3180  T1507:;  T1507:;
3181          if(!((((V356))->v.v_self[1])==(VV[34]))){          if(!((((V356))->v.v_self[1])==(VV[43]))){
3182          goto T1512;}          goto T1512;}
3183          V359= (          V359= (
3184          V367 = ((base0[0]->c.c_car))->v.v_self[6],          V367 = ((base0[0]->c.c_car))->v.v_self[6],
# Line 3189  T1507:; Line 3189  T1507:;
3189          (void)(((V356))->v.v_self[1]= ((V359)));          (void)(((V356))->v.v_self[1]= ((V359)));
3190          goto T1512;          goto T1512;
3191  T1512:;  T1512:;
3192          if(!((((V356))->v.v_self[2])==(VV[34]))){          if(!((((V356))->v.v_self[2])==(VV[43]))){
3193          goto T1517;}          goto T1517;}
3194          V359= Cnil;          V359= Cnil;
3195          (void)(((V356))->v.v_self[2]= ((V359)));          (void)(((V356))->v.v_self[2]= ((V359)));
3196          goto T1517;          goto T1517;
3197  T1517:;  T1517:;
3198          if(!((((V356))->v.v_self[5])==(VV[34]))){          if(!((((V356))->v.v_self[5])==(VV[43]))){
3199          goto T1522;}          goto T1522;}
3200          V359= Cnil;          V359= Cnil;
3201          (void)(((V356))->v.v_self[5]= ((V359)));          (void)(((V356))->v.v_self[5]= ((V359)));
3202          goto T1522;          goto T1522;
3203  T1522:;  T1522:;
3204          if(!((((V356))->v.v_self[8])==(VV[34]))){          if(!((((V356))->v.v_self[8])==(VV[43]))){
3205          goto T1446;}          goto T1446;}
3206          V359= Cnil;          V359= Cnil;
3207          (void)(((V356))->v.v_self[8]= ((V359)));}          (void)(((V356))->v.v_self[8]= ((V359)));}
# Line 3256  register object *base0; Line 3256  register object *base0;
3256          goto T1541;          goto T1541;
3257          goto T1543;          goto T1543;
3258  T1543:;  T1543:;
3259          if(!(((V368)->str.str_def)==(VV[133]))){          if(!(((V368)->str.str_def)==(VV[163]))){
3260          goto T1541;}          goto T1541;}
3261          V372= STREF(object,(V368),4);          V372= STREF(object,(V368),4);
3262          V373= STREF(object,(V368),0);          V373= STREF(object,(V368),0);
3263          goto T1539;          goto T1539;
3264          goto T1541;          goto T1541;
3265  T1541:;{object V377;  T1541:;{object V377;
3266          V377= (VV[33]->s.s_dbind);          V377= (VV[42]->s.s_dbind);
3267          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
3268          base[3]= (V368);          base[3]= (V368);
3269          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3270          (void) (*Lnk257)();          (void) (*Lnk287)();
3271          vs_top=sup;          vs_top=sup;
3272          V378= vs_base[0];          V378= vs_base[0];
3273          if(!((V377)==(CMPcar(V378)))){          if(!((V377)==(CMPcar(V378)))){
# Line 3277  T1541:;{object V377; Line 3277  T1541:;{object V377;
3277          goto T1539;          goto T1539;
3278          goto T1549;          goto T1549;
3279  T1549:;  T1549:;
3280          V373= (*(LnkLI259))((V368));          V373= (*(LnkLI289))((V368));
3281          goto T1539;          goto T1539;
3282  T1539:;  T1539:;
3283          V374= ((V373))->v.v_self[11];          V374= ((V373))->v.v_self[11];
# Line 3286  T1539:; Line 3286  T1539:;
3286          V369= make_cons(CMPcar((V369)),CMPcdr((V369)));          V369= make_cons(CMPcar((V369)),CMPcdr((V369)));
3287          goto T1560;          goto T1560;
3288  T1560:;  T1560:;
3289          (VV[134]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[0];          (VV[164]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[0];
3290          (VV[135]->s.s_dbind)= (V369);          (VV[165]->s.s_dbind)= (V369);
3291          (VV[136]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[1];          (VV[166]->s.s_dbind)= ((base0[0]->c.c_car))->v.v_self[1];
3292          V370= (V369);}          V370= (V369);}
3293          base[2]= (V369);          base[2]= (V369);
3294          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 3339  register object *base0; Line 3339  register object *base0;
3339          goto T1580;          goto T1580;
3340          goto T1582;          goto T1582;
3341  T1582:;  T1582:;
3342          if(!(((V379)->str.str_def)==(VV[129]))){          if(!(((V379)->str.str_def)==(VV[158]))){
3343          goto T1580;}          goto T1580;}
3344          V385= STREF(object,(V379),0);          V385= STREF(object,(V379),0);
3345          goto T1578;          goto T1578;
3346          goto T1580;          goto T1580;
3347  T1580:;{object V387;  T1580:;{object V387;
3348          V387= (VV[33]->s.s_dbind);          V387= (VV[42]->s.s_dbind);
3349          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
3350          base[2]= (V379);          base[2]= (V379);
3351          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3352          (void) (*Lnk257)();          (void) (*Lnk287)();
3353          vs_top=sup;          vs_top=sup;
3354          V388= vs_base[0];          V388= vs_base[0];
3355          if(!((V387)==(CMPcar(V388)))){          if(!((V387)==(CMPcar(V388)))){
# Line 3360  T1580:;{object V387; Line 3360  T1580:;{object V387;
3360  T1585:;  T1585:;
3361          if(!(type_of((V379))==t_structure)){          if(!(type_of((V379))==t_structure)){
3362          goto T1591;}          goto T1591;}
3363          V385= (*(LnkLI260))((V379));          V385= (*(LnkLI290))((V379));
3364          goto T1578;          goto T1578;
3365          goto T1591;          goto T1591;
3366  T1591:;  T1591:;
# Line 3368  T1591:; Line 3368  T1591:;
3368          goto T1594;}          goto T1594;}
3369          if(((V379))==Cnil){          if(((V379))==Cnil){
3370          goto T1597;}          goto T1597;}
3371          V385= (VV[47]->s.s_dbind);          V385= (VV[56]->s.s_dbind);
3372          goto T1578;          goto T1578;
3373          goto T1597;          goto T1597;
3374  T1597:;  T1597:;
3375          V385= (VV[48]->s.s_dbind);          V385= (VV[57]->s.s_dbind);
3376          goto T1578;          goto T1578;
3377          goto T1594;          goto T1594;
3378  T1594:;  T1594:;
3379          V385= (*(LnkLI261))((V379));          V385= (*(LnkLI291))((V379));
3380          goto T1578;          goto T1578;
3381  T1578:;  T1578:;
3382          {register long V389;          {register long V389;
# Line 3435  T1599:; Line 3435  T1599:;
3435          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
3436          base[2]= VV[2];          base[2]= VV[2];
3437          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3438          (void) (*Lnk262)();          (void) (*Lnk292)();
3439          vs_top=sup;          vs_top=sup;
3440          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3441          goto T1640;}          goto T1640;}
# Line 3460  T1640:; Line 3460  T1640:;
3460          goto T1653;          goto T1653;
3461          goto T1655;          goto T1655;
3462  T1655:;  T1655:;
3463          if(!(((V379)->str.str_def)==(VV[130]))){          if(!(((V379)->str.str_def)==(VV[159]))){
3464          goto T1653;}          goto T1653;}
3465          V394= STREF(object,(V379),4);          V394= STREF(object,(V379),4);
3466          goto T1651;          goto T1651;
3467          goto T1653;          goto T1653;
3468  T1653:;{object V397;  T1653:;{object V397;
3469          V397= (VV[33]->s.s_dbind);          V397= (VV[42]->s.s_dbind);
3470          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
3471          base[4]= (V379);          base[4]= (V379);
3472          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3473          (void) (*Lnk257)();          (void) (*Lnk287)();
3474          vs_top=sup;          vs_top=sup;
3475          V398= vs_base[0];          V398= vs_base[0];
3476          if(!((V397)==(CMPcar(V398)))){          if(!((V397)==(CMPcar(V398)))){
# Line 3491  T1665:; Line 3491  T1665:;
3491          V395= Cnil;          V395= Cnil;
3492          goto T1663;          goto T1663;
3493  T1663:;  T1663:;
3494          if(!(((V395))==(VV[34]))){          if(!(((V395))==(VV[43]))){
3495          goto T1668;}          goto T1668;}
3496          base[3]= (V379);          base[3]= (V379);
3497          base[4]= (base0[1]->c.c_car);          base[4]= (base0[1]->c.c_car);
3498          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3499          (void) (*Lnk263)();          (void) (*Lnk293)();
3500          return;          return;
3501          goto T1668;          goto T1668;
3502  T1668:;  T1668:;
# Line 3507  T1668:; Line 3507  T1668:;
3507  T1649:;  T1649:;
3508          {object V399;          {object V399;
3509          V399= (base0[1]->c.c_car);          V399= (base0[1]->c.c_car);
3510          base[1]= (V399);          base[1]= V399;
3511          base[2]= VV[10];          base[2]= VV[10];
3512          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3513          (void) (*Lnk262)();          (void) (*Lnk292)();
3514          vs_top=sup;          vs_top=sup;
3515          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3516          goto T1673;}          goto T1673;}
3517          {object V400;          {object V401;
         object V401;  
3518          object V402;          object V402;
3519          V400= STREF(object,(base0[1]->c.c_car),0);          object V403;
3520          V401= make_cons((V379),Cnil);          V401= STREF(object,(base0[1]->c.c_car),0);
3521          V402= STREF(object,(base0[1]->c.c_car),4);          V402= make_cons((V379),Cnil);
3522          if(((V402))==Cnil){          V403= STREF(object,(base0[1]->c.c_car),4);
3523            if(((V403))==Cnil){
3524          goto T1681;}          goto T1681;}
3525          if((CMPcdr((V402)))!=Cnil){          if((CMPcdr((V403)))!=Cnil){
3526          goto T1681;}          goto T1681;}
3527          base[1]= (V401);          base[1]= (V402);
3528          base[2]= CMPcar((V402));          base[2]= CMPcar((V403));
3529          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3530          {object _funobj = (V400);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V401);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3531                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3532                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3533                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3534          return;          return;
3535          goto T1681;          goto T1681;
3536  T1681:;  T1681:;
3537          base[1]= (V400);          base[1]= (V401);
3538          base[2]= (V401);          base[2]= (V402);
3539          {object V403;          {object V404;
3540          V403= (V402);          V404= (V403);
3541           vs_top=base+3;           vs_top=base+3;
3542           while(V403!=Cnil)           while(V404!=Cnil)
3543           {vs_push((V403)->c.c_car);V403=(V403)->c.c_cdr;}           {vs_push((V404)->c.c_car);V404=(V404)->c.c_cdr;}
3544          vs_base=base+2;}          vs_base=base+2;}
3545          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3546                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 3549  T1681:; Line 3549  T1681:;
3549          return;}          return;}
3550          goto T1673;          goto T1673;
3551  T1673:;  T1673:;
3552          base[1]= (V399);          base[1]= V399;
3553          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3554          Lfunctionp();          Lfunctionp();
3555          vs_top=sup;          vs_top=sup;
# Line 3564  T1673:; Line 3564  T1673:;
3564          return;          return;
3565          goto T1691;          goto T1691;
3566  T1691:;  T1691:;
3567          base[2]= VV[11];          base[1]= VV[11];
3568          base[3]= (V399);          base[2]= VV[12];
3569          base[4]= VV[131];          base[3]= VV[13];
3570          vs_top=(vs_base=base+2)+3;          base[4]= VV[14];
3571          (void) (*Lnk264)();          base[5]= (V399);
3572          vs_top=sup;          base[6]= VV[15];
3573          base[1]= vs_base[0];          base[7]= VV[160];
3574          vs_top=(vs_base=base+1)+1;          base[8]= VV[17];
3575          Lerror();          base[9]= VV[161];
3576            vs_top=(vs_base=base+1)+9;
3577            (void) (*Lnk294)();
3578          return;}}          return;}}
3579          goto T1572;          goto T1572;
3580  T1572:;  T1572:;
# Line 3612  register object *base0; Line 3614  register object *base0;
3614  {       register object *base=vs_base;  {       register object *base=vs_base;
3615          register object *sup=base+VM99; VC99          register object *sup=base+VM99; VC99
3616          vs_check;          vs_check;
3617          {register object V404;          {register object V405;
3618          register object V405;          register object V406;
3619          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
3620          V404=(base[0]);          V405=(base[0]);
3621          vs_base=vs_base+1;          vs_base=vs_base+1;
3622          vs_top[0]=Cnil;          vs_top[0]=Cnil;
3623          {object *p=vs_top;          {object *p=vs_top;
3624           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
3625          V405=(base[1]);          V406=(base[1]);
3626          vs_top=sup;          vs_top=sup;
3627          {long V406;          {long V407;
3628          object V407;          object V408;
         long V408;  
3629          long V409;          long V409;
3630          object V410;          long V410;
3631          register object V411;          object V411;
3632          V406= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          register object V412;
3633          V407= STREF(object,(base0[2]->c.c_car),40);          V407= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
3634          V408= (long)STREF(fixnum,(base0[2]->c.c_car),24);          V408= STREF(object,(base0[2]->c.c_car),40);
3635          V409= (long)STREF(fixnum,(base0[2]->c.c_car),28);          V409= (long)STREF(fixnum,(base0[2]->c.c_car),24);
3636          V410= STREF(object,(base0[2]->c.c_car),44);          V410= (long)STREF(fixnum,(base0[2]->c.c_car),28);
3637          if(type_of(V404)==t_structure){          V411= STREF(object,(base0[2]->c.c_car),44);
3638          goto T1712;}          if(type_of(V405)==t_structure){
3639          goto T1710;          goto T1717;}
3640          goto T1712;          goto T1715;
3641  T1712:;          goto T1717;
3642          if(!(((V404)->str.str_def)==(VV[126]))){  T1717:;
3643          goto T1710;}          if(!(((V405)->str.str_def)==(VV[154]))){
3644          V411= STREF(object,(V404),0);          goto T1715;}
3645          goto T1708;          V412= STREF(object,(V405),0);
3646          goto T1710;          goto T1713;
3647  T1710:;{object V413;          goto T1715;
3648          V413= (VV[33]->s.s_dbind);  T1715:;{object V414;
3649            V414= (VV[42]->s.s_dbind);
3650          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
3651          base[3]= (V404);          base[3]= (V405);
3652          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3653          (void) (*Lnk257)();          (void) (*Lnk287)();
3654          vs_top=sup;          vs_top=sup;
3655          V414= vs_base[0];          V415= vs_base[0];
3656          if(!((V413)==(CMPcar(V414)))){          if(!((V414)==(CMPcar(V415)))){
3657          goto T1715;}}          goto T1720;}}
3658          V411= CMPcar(((V404))->cc.cc_turbo[13]);          V412= CMPcar(((V405))->cc.cc_turbo[13]);
3659          goto T1708;          goto T1713;
3660          goto T1715;          goto T1720;
3661  T1715:;  T1720:;
3662          if(!(type_of((V404))==t_structure)){          if(!(type_of((V405))==t_structure)){
3663          goto T1721;}          goto T1726;}
3664          V411= (*(LnkLI260))((V404));          V412= (*(LnkLI290))((V405));
3665          goto T1708;          goto T1713;
3666          goto T1721;          goto T1726;
3667  T1721:;  T1726:;
3668          if(!(type_of((V404))==t_symbol)){          if(!(type_of((V405))==t_symbol)){
3669          goto T1724;}          goto T1729;}
3670          if(((V404))==Cnil){          if(((V405))==Cnil){
         goto T1727;}  
         V411= (VV[47]->s.s_dbind);  
         goto T1708;  
         goto T1727;  
 T1727:;  
         V411= (VV[48]->s.s_dbind);  
         goto T1708;  
         goto T1724;  
 T1724:;  
         V411= (*(LnkLI261))((V404));  
         goto T1708;  
 T1708:;  
         {long V415;  
         register long V416;  
         {long V417;  
         V417= fix(((V411))->v.v_self[V406]);  
         if(!((V417)==0)){  
3671          goto T1732;}          goto T1732;}
3672          goto T1702;          V412= (VV[56]->s.s_dbind);
3673            goto T1713;
3674          goto T1732;          goto T1732;
3675  T1732:;  T1732:;
3676          V415= (long)((V408) & (V417));}          V412= (VV[57]->s.s_dbind);
3677          V416= V415;          goto T1713;
3678            goto T1729;
3679    T1729:;
3680            V412= (*(LnkLI291))((V405));
3681            goto T1713;
3682    T1713:;
3683            {long V416;
3684            register long V417;
3685            {long V418;
3686            V418= fix(((V412))->v.v_self[V407]);
3687            if(!((V418)==0)){
3688            goto T1737;}
3689            goto T1707;
3690          goto T1737;          goto T1737;
3691  T1737:;  T1737:;
3692          if(!(((V411))==(((V407))->v.v_self[V416]))){          V416= (long)((V409) & (V418));}
3693          goto T1739;}          V417= V416;
3694          goto T1729;          goto T1742;
3695          goto T1739;  T1742:;
3696  T1739:;          if(!(((V412))==(((V408))->v.v_self[V417]))){
         V416= (long)(V416)+(1);  
         if(!((V416)==(V409))){  
3697          goto T1744;}          goto T1744;}
3698          V416= 0;          goto T1734;
3699          goto T1744;          goto T1744;
3700  T1744:;  T1744:;
3701          if(!((V416)==(V415))){          V417= (long)(V417)+(1);
3702          goto T1738;}          if(!((V417)==(V410))){
3703          {register object V418;          goto T1749;}
3704          register object V419;          V417= 0;
3705          V418= (V410);          goto T1749;
3706          V419= CMPcar((V418));  T1749:;
3707          goto T1754;          if(!((V417)==(V416))){
3708  T1754:;          goto T1743;}
3709          if(!(((V418))==Cnil)){          {register object V419;
3710          goto T1755;}          register object V420;
3711          goto T1750;          V419= (V411);
3712          goto T1755;          V420= CMPcar((V419));
 T1755:;  
         if(!((CMPcar((V419)))==((V411)))){  
         goto T1759;}  
         goto T1729;  
3713          goto T1759;          goto T1759;
3714  T1759:;  T1759:;
3715          V418= CMPcdr((V418));          if(!(((V419))==Cnil)){
3716          V419= CMPcar((V418));          goto T1760;}
3717          goto T1754;}          goto T1755;
3718          goto T1750;          goto T1760;
3719  T1750:;  T1760:;
3720          goto T1702;          if(!((CMPcar((V420)))==((V412)))){
3721          goto T1738;          goto T1764;}
3722  T1738:;          goto T1734;
3723          goto T1737;}          goto T1764;
3724          goto T1729;  T1764:;
3725  T1729:;          V419= CMPcdr((V419));
3726            V420= CMPcar((V419));
3727            goto T1759;}
3728            goto T1755;
3729    T1755:;
3730            goto T1707;
3731            goto T1743;
3732    T1743:;
3733            goto T1742;}
3734            goto T1734;
3735    T1734:;
3736          base[2]= (base0[1]->c.c_car);          base[2]= (base0[1]->c.c_car);
3737          base[3]= VV[2];          base[3]= VV[2];
3738          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3739          (void) (*Lnk262)();          (void) (*Lnk292)();
3740          vs_top=sup;          vs_top=sup;
3741          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3742          goto T1770;}          goto T1775;}
3743          base[2]= STREF(object,(base0[1]->c.c_car),0);          base[2]= STREF(object,(base0[1]->c.c_car),0);
3744          base[3]= STREF(object,(base0[1]->c.c_car),4);          base[3]= STREF(object,(base0[1]->c.c_car),4);
3745          base[4]= STREF(object,(base0[1]->c.c_car),8);          base[4]= STREF(object,(base0[1]->c.c_car),8);
3746          base[5]= (V404);          base[5]= (V405);
3747          base[6]= (V405);          base[6]= (V406);
3748          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3749          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3750                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3751                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3752                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3753          return;          return;
3754          goto T1770;          goto T1775;
3755  T1770:;  T1775:;
3756          {object V420;          {object V421;
3757          V420= (base0[1]->c.c_car);          V421= (base0[1]->c.c_car);
3758          base[2]= (V420);          base[2]= V421;
3759          base[3]= VV[10];          base[3]= VV[10];
3760          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3761          (void) (*Lnk262)();          (void) (*Lnk292)();
3762          vs_top=sup;          vs_top=sup;
3763          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3764          goto T1780;}          goto T1785;}
3765          {object V421;          {object V423;
3766          object V422;          object V424;
3767          object V423;          object V425;
3768          V421= STREF(object,(base0[1]->c.c_car),0);          V423= STREF(object,(base0[1]->c.c_car),0);
3769          V422= make_cons((V404),(V405));          V424= make_cons((V405),(V406));
3770          V423= STREF(object,(base0[1]->c.c_car),4);          V425= STREF(object,(base0[1]->c.c_car),4);
3771          if(((V423))==Cnil){          if(((V425))==Cnil){
3772          goto T1788;}          goto T1793;}
3773          if((CMPcdr((V423)))!=Cnil){          if((CMPcdr((V425)))!=Cnil){
3774          goto T1788;}          goto T1793;}
3775          base[2]= (V422);          base[2]= (V424);
3776          base[3]= CMPcar((V423));          base[3]= CMPcar((V425));
3777          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3778          {object _funobj = (V421);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V423);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3779                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3780                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3781                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3782          return;          return;
3783          goto T1788;          goto T1793;
3784  T1788:;  T1793:;
3785          base[2]= (V421);          base[2]= (V423);
3786          base[3]= (V422);          base[3]= (V424);
3787          {object V424;          {object V426;
3788          V424= (V423);          V426= (V425);
3789           vs_top=base+4;           vs_top=base+4;
3790           while(V424!=Cnil)           while(V426!=Cnil)
3791           {vs_push((V424)->c.c_car);V424=(V424)->c.c_cdr;}           {vs_push((V426)->c.c_car);V426=(V426)->c.c_cdr;}
3792          vs_base=base+3;}          vs_base=base+3;}
3793          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3794                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3795                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3796                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3797          return;}          return;}
3798          goto T1780;          goto T1785;
3799  T1780:;  T1785:;
3800          base[2]= (V420);          base[2]= V421;
3801          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3802          Lfunctionp();          Lfunctionp();
3803          vs_top=sup;          vs_top=sup;
3804          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3805          goto T1798;}          goto T1803;}
3806          base[2]= (base0[1]->c.c_car);          base[2]= (base0[1]->c.c_car);
3807          base[3]= (V404);          base[3]= (V405);
3808          {object V425;          {object V427;
3809          V425= (V405);          V427= (V406);
3810           vs_top=base+4;           vs_top=base+4;
3811           while(V425!=Cnil)           while(V427!=Cnil)
3812           {vs_push((V425)->c.c_car);V425=(V425)->c.c_cdr;}           {vs_push((V427)->c.c_car);V427=(V427)->c.c_cdr;}
3813          vs_base=base+3;}          vs_base=base+3;}
3814          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3815                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3816                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3817                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3818          return;          return;
3819          goto T1798;          goto T1803;
3820  T1798:;  T1803:;
3821          base[3]= VV[11];          base[2]= VV[11];
3822          base[4]= (V420);          base[3]= VV[12];
3823          base[5]= VV[127];          base[4]= VV[13];
3824          vs_top=(vs_base=base+3)+3;          base[5]= VV[14];
3825          (void) (*Lnk264)();          base[6]= (V421);
3826          vs_top=sup;          base[7]= VV[15];
3827          base[2]= vs_base[0];          base[8]= VV[155];
3828          vs_top=(vs_base=base+2)+1;          base[9]= VV[17];
3829          Lerror();          base[10]= VV[156];
3830            vs_top=(vs_base=base+2)+9;
3831            (void) (*Lnk294)();
3832          return;}}          return;}}
3833          goto T1702;          goto T1707;
3834  T1702:;  T1707:;
3835          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
3836          base[3]= (V404);          base[3]= (V405);
3837          {object V426;          {object V428;
3838          V426= (V405);          V428= (V406);
3839           vs_top=base+4;           vs_top=base+4;
3840           while(V426!=Cnil)           while(V428!=Cnil)
3841           {vs_push((V426)->c.c_car);V426=(V426)->c.c_cdr;}           {vs_push((V428)->c.c_car);V428=(V428)->c.c_cdr;}
3842          vs_base=base+3;}          vs_base=base+3;}
3843          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3844                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 3870  register object *base0; Line 3874  register object *base0;
3874  {       register object *base=vs_base;  {       register object *base=vs_base;
3875          register object *sup=base+VM101; VC101          register object *sup=base+VM101; VC101
3876          vs_check;          vs_check;
3877          {register object V427;          {register object V429;
3878          register object V428;          register object V430;
3879          check_arg(2);          check_arg(2);
3880          V427=(base[0]);          V429=(base[0]);
3881          V428=(base[1]);          V430=(base[1]);
3882          vs_top=sup;          vs_top=sup;
3883          {long V429;          {long V431;
3884          object V430;          object V432;
3885          long V431;          long V433;
3886          long V432;          long V434;
3887          object V433;          object V435;
3888          register object V434;          register object V436;
3889          V429= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          V431= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
3890          V430= STREF(object,(base0[2]->c.c_car),40);          V432= STREF(object,(base0[2]->c.c_car),40);
3891          V431= (long)STREF(fixnum,(base0[2]->c.c_car),24);          V433= (long)STREF(fixnum,(base0[2]->c.c_car),24);
3892          V432= (long)STREF(fixnum,(base0[2]->c.c_car),28);          V434= (long)STREF(fixnum,(base0[2]->c.c_car),28);
3893          V433= STREF(object,(base0[2]->c.c_car),44);          V435= STREF(object,(base0[2]->c.c_car),44);
3894          if(type_of(V427)==t_structure){          if(type_of(V429)==t_structure){
3895          goto T1823;}          goto T1833;}
3896          goto T1821;          goto T1831;
3897          goto T1823;          goto T1833;
3898  T1823:;  T1833:;
3899          if(!(((V427)->str.str_def)==(VV[122]))){          if(!(((V429)->str.str_def)==(VV[149]))){
3900          goto T1821;}          goto T1831;}
3901          V434= STREF(object,(V427),0);          V436= STREF(object,(V429),0);
3902          goto T1819;          goto T1829;
3903          goto T1821;          goto T1831;
3904  T1821:;{object V436;  T1831:;{object V438;
3905          V436= (VV[33]->s.s_dbind);          V438= (VV[42]->s.s_dbind);
3906          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
3907          base[3]= (V427);          base[3]= (V429);
3908          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3909          (void) (*Lnk257)();          (void) (*Lnk287)();
3910          vs_top=sup;          vs_top=sup;
3911          V437= vs_base[0];          V439= vs_base[0];
3912          if(!((V436)==(CMPcar(V437)))){          if(!((V438)==(CMPcar(V439)))){
3913          goto T1826;}}          goto T1836;}}
3914          V434= CMPcar(((V427))->cc.cc_turbo[13]);          V436= CMPcar(((V429))->cc.cc_turbo[13]);
3915          goto T1819;          goto T1829;
3916          goto T1826;          goto T1836;
3917  T1826:;  T1836:;
3918          if(!(type_of((V427))==t_structure)){          if(!(type_of((V429))==t_structure)){
3919          goto T1832;}          goto T1842;}
3920          V434= (*(LnkLI260))((V427));          V436= (*(LnkLI290))((V429));
3921          goto T1819;          goto T1829;
3922          goto T1832;          goto T1842;
3923  T1832:;  T1842:;
3924          if(!(type_of((V427))==t_symbol)){          if(!(type_of((V429))==t_symbol)){
3925          goto T1835;}          goto T1845;}
3926          if(((V427))==Cnil){          if(((V429))==Cnil){
3927          goto T1838;}          goto T1848;}
3928          V434= (VV[47]->s.s_dbind);          V436= (VV[56]->s.s_dbind);
3929          goto T1819;          goto T1829;
         goto T1838;  
 T1838:;  
         V434= (VV[48]->s.s_dbind);  
         goto T1819;  
         goto T1835;  
 T1835:;  
         V434= (*(LnkLI261))((V427));  
         goto T1819;  
 T1819:;  
         {long V438;  
         register long V439;  
         {long V440;  
         V440= fix(((V434))->v.v_self[V429]);  
         if(!((V440)==0)){  
         goto T1843;}  
         goto T1813;  
         goto T1843;  
 T1843:;  
         V438= (long)((V431) & (V440));}  
         V439= V438;  
3930          goto T1848;          goto T1848;
3931  T1848:;  T1848:;
3932          if(!(((V434))==(((V430))->v.v_self[V439]))){          V436= (VV[57]->s.s_dbind);
3933          goto T1850;}          goto T1829;
3934          goto T1840;          goto T1845;
3935    T1845:;
3936            V436= (*(LnkLI291))((V429));
3937            goto T1829;
3938    T1829:;
3939            {long V440;
3940            register long V441;
3941            {long V442;
3942            V442= fix(((V436))->v.v_self[V431]);
3943            if(!((V442)==0)){
3944            goto T1853;}
3945            goto T1823;
3946            goto T1853;
3947    T1853:;
3948            V440= (long)((V433) & (V442));}
3949            V441= V440;
3950            goto T1858;
3951    T1858:;
3952            if(!(((V436))==(((V432))->v.v_self[V441]))){
3953            goto T1860;}
3954          goto T1850;          goto T1850;
3955  T1850:;          goto T1860;
3956          V439= (long)(V439)+(1);  T1860:;
3957          if(!((V439)==(V432))){          V441= (long)(V441)+(1);
3958          goto T1855;}          if(!((V441)==(V434))){
3959          V439= 0;          goto T1865;}
3960          goto T1855;          V441= 0;
 T1855:;  
         if(!((V439)==(V438))){  
         goto T1849;}  
         {register object V441;  
         register object V442;  
         V441= (V433);  
         V442= CMPcar((V441));  
3961          goto T1865;          goto T1865;
3962  T1865:;  T1865:;
3963          if(!(((V441))==Cnil)){          if(!((V441)==(V440))){
3964          goto T1866;}          goto T1859;}
3965          goto T1861;          {register object V443;
3966          goto T1866;          register object V444;
3967  T1866:;          V443= (V435);
3968          if(!((CMPcar((V442)))==((V434)))){          V444= CMPcar((V443));
3969          goto T1870;}          goto T1875;
3970          goto T1840;  T1875:;
3971          goto T1870;          if(!(((V443))==Cnil)){
3972  T1870:;          goto T1876;}
3973          V441= CMPcdr((V441));          goto T1871;
3974          V442= CMPcar((V441));          goto T1876;
3975          goto T1865;}  T1876:;
3976          goto T1861;          if(!((CMPcar((V444)))==((V436)))){
3977  T1861:;          goto T1880;}
3978          goto T1813;          goto T1850;
3979          goto T1849;          goto T1880;
3980  T1849:;  T1880:;
3981          goto T1848;}          V443= CMPcdr((V443));
3982          goto T1840;          V444= CMPcar((V443));
3983  T1840:;          goto T1875;}
3984            goto T1871;
3985    T1871:;
3986            goto T1823;
3987            goto T1859;
3988    T1859:;
3989            goto T1858;}
3990            goto T1850;
3991    T1850:;
3992          base[2]= (base0[1]->c.c_car);          base[2]= (base0[1]->c.c_car);
3993          base[3]= VV[2];          base[3]= VV[2];
3994          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3995          (void) (*Lnk262)();          (void) (*Lnk292)();
3996          vs_top=sup;          vs_top=sup;
3997          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3998          goto T1881;}          goto T1891;}
3999          base[2]= STREF(object,(base0[1]->c.c_car),0);          base[2]= STREF(object,(base0[1]->c.c_car),0);
4000          base[3]= STREF(object,(base0[1]->c.c_car),4);          base[3]= STREF(object,(base0[1]->c.c_car),4);
4001          base[4]= STREF(object,(base0[1]->c.c_car),8);          base[4]= STREF(object,(base0[1]->c.c_car),8);
4002          base[5]= (V427);          base[5]= (V429);
4003          base[6]= (V428);          base[6]= (V430);
4004          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
4005          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4006                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4007                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4008                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4009          return;          return;
4010          goto T1881;          goto T1891;
4011  T1881:;  T1891:;
4012          if(!(type_of((base0[1]->c.c_car))==t_fixnum)){          if(!(type_of((base0[1]->c.c_car))==t_fixnum)){
4013          goto T1891;}          goto T1901;}
4014          {object V444;          {object V446;
4015          if(type_of(V427)==t_structure){          if(type_of(V429)==t_structure){
4016          goto T1897;}          goto T1907;}
4017          goto T1895;          goto T1905;
4018          goto T1897;          goto T1907;
4019  T1897:;  T1907:;
4020          if(!(((V427)->str.str_def)==(VV[123]))){          if(!(((V429)->str.str_def)==(VV[150]))){
4021          goto T1895;}          goto T1905;}
4022          V444= STREF(object,(V427),4);          V446= STREF(object,(V429),4);
4023          goto T1893;          goto T1903;
4024          goto T1895;          goto T1905;
4025  T1895:;{object V446;  T1905:;{object V448;
4026          V446= (VV[33]->s.s_dbind);          V448= (VV[42]->s.s_dbind);
4027          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
4028          base[3]= (V427);          base[3]= (V429);
4029          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4030          (void) (*Lnk257)();          (void) (*Lnk287)();
4031          vs_top=sup;          vs_top=sup;
4032          V447= vs_base[0];          V449= vs_base[0];
4033          if(!((V446)==(CMPcar(V447)))){          if(!((V448)==(CMPcar(V449)))){
4034          goto T1900;}}          goto T1910;}}
4035          V444= CMPcar(((V427))->cc.cc_turbo[12]);          V446= CMPcar(((V429))->cc.cc_turbo[12]);
4036          goto T1893;          goto T1903;
4037          goto T1900;          goto T1910;
4038  T1900:;  T1910:;
4039          V444= Cnil;          V446= Cnil;
4040          goto T1893;          goto T1903;
4041  T1893:;  T1903:;
4042          if(((V444))==Cnil){          if(((V446))==Cnil){
4043          goto T1906;}          goto T1916;}
4044          base[2]= ((V444))->v.v_self[fix((base0[1]->c.c_car))]= (V427);          base[2]= ((V446))->v.v_self[fix((base0[1]->c.c_car))]= (V429);
4045          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4046          return;          return;
4047          goto T1906;          goto T1916;
4048  T1906:;  T1916:;
4049          base[2]= Cnil;          base[2]= Cnil;
4050          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4051          return;}          return;}
4052          goto T1891;          goto T1901;
4053  T1891:;  T1901:;
4054          {object V448;          {object V450;
4055          V448= (base0[1]->c.c_car);          V450= (base0[1]->c.c_car);
4056          base[2]= (V448);          base[2]= V450;
4057          base[3]= VV[10];          base[3]= VV[10];
4058          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4059          (void) (*Lnk262)();          (void) (*Lnk292)();
4060          vs_top=sup;          vs_top=sup;
4061          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4062          goto T1909;}          goto T1919;}
4063          {object V449;          {object V452;
4064          object V450;          object V453;
4065          object V451;          object V454;
4066          V449= STREF(object,(base0[1]->c.c_car),0);          V452= STREF(object,(base0[1]->c.c_car),0);
4067          V450= list(2,(V427),(V428));          V453= list(2,(V429),(V430));
4068          V451= STREF(object,(base0[1]->c.c_car),4);          V454= STREF(object,(base0[1]->c.c_car),4);
4069          if(((V451))==Cnil){          if(((V454))==Cnil){
4070          goto T1917;}          goto T1927;}
4071          if((CMPcdr((V451)))!=Cnil){          if((CMPcdr((V454)))!=Cnil){
4072          goto T1917;}          goto T1927;}
4073          base[2]= (V450);          base[2]= (V453);
4074          base[3]= CMPcar((V451));          base[3]= CMPcar((V454));
4075          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4076          {object _funobj = (V449);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V452);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4077                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4078                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4079                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4080          return;          return;
4081          goto T1917;          goto T1927;
4082  T1917:;  T1927:;
4083          base[2]= (V449);          base[2]= (V452);
4084          base[3]= (V450);          base[3]= (V453);
4085          {object V452;          {object V455;
4086          V452= (V451);          V455= (V454);
4087           vs_top=base+4;           vs_top=base+4;
4088           while(V452!=Cnil)           while(V455!=Cnil)
4089           {vs_push((V452)->c.c_car);V452=(V452)->c.c_cdr;}           {vs_push((V455)->c.c_car);V455=(V455)->c.c_cdr;}
4090          vs_base=base+3;}          vs_base=base+3;}
4091          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4092                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4093                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4094                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4095          return;}          return;}
4096          goto T1909;          goto T1919;
4097  T1909:;  T1919:;
4098          base[2]= (V448);          base[2]= V450;
4099          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4100          Lfunctionp();          Lfunctionp();
4101          vs_top=sup;          vs_top=sup;
4102          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4103          goto T1927;}          goto T1937;}
4104          base[2]= (V427);          base[2]= (V429);
4105          base[3]= (V428);          base[3]= (V430);
4106          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4107          {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4108                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4109                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4110                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4111          return;          return;
4112          goto T1927;          goto T1937;
4113  T1927:;  T1937:;
4114          base[3]= VV[11];          base[2]= VV[11];
4115          base[4]= (V448);          base[3]= VV[12];
4116          base[5]= VV[124];          base[4]= VV[13];
4117          vs_top=(vs_base=base+3)+3;          base[5]= VV[14];
4118          (void) (*Lnk264)();          base[6]= (V450);
4119          vs_top=sup;          base[7]= VV[15];
4120          base[2]= vs_base[0];          base[8]= VV[151];
4121          vs_top=(vs_base=base+2)+1;          base[9]= VV[17];
4122          Lerror();          base[10]= VV[152];
4123            vs_top=(vs_base=base+2)+9;
4124            (void) (*Lnk294)();
4125          return;}}          return;}}
4126          goto T1813;          goto T1823;
4127  T1813:;  T1823:;
4128          base[2]= (V427);          base[2]= (V429);
4129          base[3]= (V428);          base[3]= (V430);
4130          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4131          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4132                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4156  register object *base0; Line 4162  register object *base0;
4162  {       register object *base=vs_base;  {       register object *base=vs_base;
4163          register object *sup=base+VM103; VC103          register object *sup=base+VM103; VC103
4164          vs_check;          vs_check;
4165          {object V453;          {object V456;
4166          object V454;          object V457;
4167          check_arg(2);          check_arg(2);
4168          V453=(base[0]);          V456=(base[0]);
4169          V454=(base[1]);          V457=(base[1]);
4170          vs_top=sup;          vs_top=sup;
4171          {long V455;          {long V458;
         object V456;  
         long V457;  
         long V458;  
4172          object V459;          object V459;
4173          object V460;          long V460;
4174          object V461;          long V461;
4175          V455= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          object V462;
4176          V456= STREF(object,(base0[2]->c.c_car),40);          object V463;
4177          V457= (long)STREF(fixnum,(base0[2]->c.c_car),24);          object V464;
4178          V458= (long)STREF(fixnum,(base0[2]->c.c_car),28);          V458= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
4179          V459= STREF(object,(base0[2]->c.c_car),44);          V459= STREF(object,(base0[2]->c.c_car),40);
4180          if(type_of(V453)==t_structure){          V460= (long)STREF(fixnum,(base0[2]->c.c_car),24);
4181          goto T1950;}          V461= (long)STREF(fixnum,(base0[2]->c.c_car),28);
4182          goto T1948;          V462= STREF(object,(base0[2]->c.c_car),44);
4183          goto T1950;          if(type_of(V456)==t_structure){
 T1950:;  
         if(!(((V453)->str.str_def)==(VV[117]))){  
         goto T1948;}  
         V460= STREF(object,(V453),0);  
         goto T1946;  
         goto T1948;  
 T1948:;{object V463;  
         V463= (VV[33]->s.s_dbind);  
         base[2]= small_fixnum(14);  
         base[3]= (V453);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk257)();  
         vs_top=sup;  
         V464= vs_base[0];  
         if(!((V463)==(CMPcar(V464)))){  
         goto T1953;}}  
         V460= CMPcar(((V453))->cc.cc_turbo[13]);  
         goto T1946;  
         goto T1953;  
 T1953:;  
         if(!(type_of((V453))==t_structure)){  
         goto T1959;}  
         V460= (*(LnkLI260))((V453));  
         goto T1946;  
         goto T1959;  
 T1959:;  
         if(!(type_of((V453))==t_symbol)){  
         goto T1962;}  
         if(((V453))==Cnil){  
4184          goto T1965;}          goto T1965;}
4185          V460= (VV[47]->s.s_dbind);          goto T1963;
         goto T1946;  
4186          goto T1965;          goto T1965;
4187  T1965:;  T1965:;
4188          V460= (VV[48]->s.s_dbind);          if(!(((V456)->str.str_def)==(VV[143]))){
4189          goto T1946;          goto T1963;}
4190          goto T1962;          V463= STREF(object,(V456),0);
4191  T1962:;          goto T1961;
4192          V460= (*(LnkLI261))((V453));          goto T1963;
4193          goto T1946;  T1963:;{object V466;
4194  T1946:;          V466= (VV[42]->s.s_dbind);
         if(type_of(V454)==t_structure){  
         goto T1971;}  
         goto T1969;  
         goto T1971;  
 T1971:;  
         if(!(((V454)->str.str_def)==(VV[118]))){  
         goto T1969;}  
         V461= STREF(object,(V454),0);  
         goto T1967;  
         goto T1969;  
 T1969:;{object V466;  
         V466= (VV[33]->s.s_dbind);  
4195          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
4196          base[3]= (V454);          base[3]= (V456);
4197          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4198          (void) (*Lnk257)();          (void) (*Lnk287)();
4199          vs_top=sup;          vs_top=sup;
4200          V467= vs_base[0];          V467= vs_base[0];
4201          if(!((V466)==(CMPcar(V467)))){          if(!((V466)==(CMPcar(V467)))){
4202          goto T1974;}}          goto T1968;}}
4203          V461= CMPcar(((V454))->cc.cc_turbo[13]);          V463= CMPcar(((V456))->cc.cc_turbo[13]);
4204          goto T1967;          goto T1961;
4205            goto T1968;
4206    T1968:;
4207            if(!(type_of((V456))==t_structure)){
4208            goto T1974;}
4209            V463= (*(LnkLI290))((V456));
4210            goto T1961;
4211          goto T1974;          goto T1974;
4212  T1974:;  T1974:;
4213          if(!(type_of((V454))==t_structure)){          if(!(type_of((V456))==t_symbol)){
4214            goto T1977;}
4215            if(((V456))==Cnil){
4216          goto T1980;}          goto T1980;}
4217          V461= (*(LnkLI260))((V454));          V463= (VV[56]->s.s_dbind);
4218          goto T1967;          goto T1961;
4219          goto T1980;          goto T1980;
4220  T1980:;  T1980:;
4221          if(!(type_of((V454))==t_symbol)){          V463= (VV[57]->s.s_dbind);
4222          goto T1983;}          goto T1961;
4223          if(((V454))==Cnil){          goto T1977;
4224    T1977:;
4225            V463= (*(LnkLI291))((V456));
4226            goto T1961;
4227    T1961:;
4228            if(type_of(V457)==t_structure){
4229          goto T1986;}          goto T1986;}
4230          V461= (VV[47]->s.s_dbind);          goto T1984;
         goto T1967;  
4231          goto T1986;          goto T1986;
4232  T1986:;  T1986:;
4233          V461= (VV[48]->s.s_dbind);          if(!(((V457)->str.str_def)==(VV[144]))){
4234          goto T1967;          goto T1984;}
4235          goto T1983;          V464= STREF(object,(V457),0);
4236  T1983:;          goto T1982;
4237          V461= (*(LnkLI261))((V454));          goto T1984;
4238          goto T1967;  T1984:;{object V469;
4239  T1967:;          V469= (VV[42]->s.s_dbind);
4240          {long V468;          base[2]= small_fixnum(14);
4241          long V469;          base[3]= (V457);
4242          V468= 0;          vs_top=(vs_base=base+2)+2;
4243          V469= (long)(V458)-(1);          (void) (*Lnk287)();
4244          {long V470;          vs_top=sup;
4245          V470= fix(((V460))->v.v_self[V455]);          V470= vs_base[0];
4246          if(!((V470)==0)){          if(!((V469)==(CMPcar(V470)))){
4247          goto T1994;}          goto T1989;}}
4248          goto T1940;          V464= CMPcar(((V457))->cc.cc_turbo[13]);
4249          goto T1994;          goto T1982;
4250  T1994:;          goto T1989;
4251          V468= (long)(V468)+(V470);}  T1989:;
4252            if(!(type_of((V457))==t_structure)){
4253            goto T1995;}
4254            V464= (*(LnkLI290))((V457));
4255            goto T1982;
4256            goto T1995;
4257    T1995:;
4258            if(!(type_of((V457))==t_symbol)){
4259            goto T1998;}
4260            if(((V457))==Cnil){
4261            goto T2001;}
4262            V464= (VV[56]->s.s_dbind);
4263            goto T1982;
4264            goto T2001;
4265    T2001:;
4266            V464= (VV[57]->s.s_dbind);
4267            goto T1982;
4268            goto T1998;
4269    T1998:;
4270            V464= (*(LnkLI291))((V457));
4271            goto T1982;
4272    T1982:;
4273          {long V471;          {long V471;
4274          V471= fix(((V461))->v.v_self[V455]);          long V472;
4275          if(!((V471)==0)){          V471= 0;
4276          goto T1999;}          V472= (long)(V461)-(1);
4277          goto T1940;          {long V473;
4278          goto T1999;          V473= fix(((V463))->v.v_self[V458]);
4279  T1999:;          if(!((V473)==0)){
4280          V468= (long)(V468)+(V471);          goto T2009;}
4281          V468= (long)((V468) & (V457));}          goto T1955;
4282          {long V472;          goto T2009;
4283          {object V473;  T2009:;
4284          V473= ((V456))->v.v_self[0];          V471= (long)(V471)+(V473);}
4285          if(type_of((V473))==t_fixnum){          {long V474;
4286          goto T2007;}          V474= fix(((V464))->v.v_self[V458]);
4287          base[2]= VV[49];          if(!((V474)==0)){
4288            goto T2014;}
4289            goto T1955;
4290            goto T2014;
4291    T2014:;
4292            V471= (long)(V471)+(V474);
4293            V471= (long)((V471) & (V460));}
4294            {long V475;
4295            {object V476;
4296            V476= ((V459))->v.v_self[0];
4297            if(type_of((V476))==t_fixnum){
4298            goto T2022;}
4299            base[2]= VV[58];
4300          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4301          Lerror();          Lerror();
4302          vs_top=sup;          vs_top=sup;
4303          goto T2007;          goto T2022;
4304  T2007:;  T2022:;
4305          V472= fix((V473));}          V475= fix((V476));}
4306          {register long V474;          {register long V477;
4307          long V475;          long V478;
4308          V474= V468;          V477= V471;
4309          V475= 0;          V478= 0;
4310          goto T2015;          goto T2030;
4311  T2015:;  T2030:;
4312          V475= (long)(V474)+(2);          V478= (long)(V477)+(2);
4313          V476 = (V456);          V477= (long)(V477)+(1);
4314          V474= (long)(V474)+(1);          if(!(((V463))==(((V459))->v.v_self[V477]))){
4315          V477 = V474;          goto T2034;}
4316          if(!(((V460))==((V476)->v.v_self[V477]))){          V477= (long)(V477)+(1);
4317          goto T2019;}          if(!(((V464))==(((V459))->v.v_self[V477]))){
4318          V478 = (V456);          goto T2034;}
         V474= (long)(V474)+(1);  
         V479 = V474;  
         if(!(((V461))==((V478)->v.v_self[V479]))){  
         goto T2019;}  
         goto T2013;  
         goto T2019;  
 T2019:;  
         V474= V475;  
         if(!((V474)==(V469))){  
         goto T2028;}  
         V474= 0;  
4319          goto T2028;          goto T2028;
 T2028:;  
         if(!((V474)==(V468))){  
         goto T2016;}  
         {register object V480;  
         register object V481;  
         V480= (V459);  
         V481= CMPcar((V480));  
         goto T2038;  
 T2038:;  
         if(!(((V480))==Cnil)){  
         goto T2039;}  
4320          goto T2034;          goto T2034;
4321          goto T2039;  T2034:;
4322  T2039:;          V477= V478;
4323          {register object V482;          if(!((V477)==(V472))){
         V482= CMPcar((V481));  
         V483 = (V460);  
         {register object V485;  
         V485= CMPcar((V482));  
         V482= CMPcdr((V482));  
         V484= (V485);}  
         if(!((V483)==(V484))){  
         goto T2043;}  
         V486 = (V461);  
         {register object V488;  
         V488= CMPcar((V482));  
         V482= CMPcdr((V482));  
         V487= (V488);}  
         if(!((V486)==(V487))){  
4324          goto T2043;}          goto T2043;}
4325          goto T2013;}          V477= 0;
4326          goto T2043;          goto T2043;
4327  T2043:;  T2043:;
4328          V480= CMPcdr((V480));          if(!((V477)==(V471))){
4329            goto T2031;}
4330            {register object V479;
4331            register object V480;
4332            V479= (V462);
4333            V480= CMPcar((V479));
4334            goto T2053;
4335    T2053:;
4336            if(!(((V479))==Cnil)){
4337            goto T2054;}
4338            goto T2049;
4339            goto T2054;
4340    T2054:;
4341            {register object V481;
4342          V481= CMPcar((V480));          V481= CMPcar((V480));
4343          goto T2038;}          {register object V483;
4344          goto T2034;          V483= CMPcar((V481));
4345  T2034:;          V481= CMPcdr((V481));
4346          goto T1940;          V482= (V483);}
4347          goto T2016;          if(!(((V463))==(V482))){
4348  T2016:;          goto T2058;}
4349          goto T2015;          {register object V485;
4350          goto T2013;          V485= CMPcar((V481));
4351  T2013:;          V481= CMPcdr((V481));
4352          V489 = V472;          V484= (V485);}
4353          {object V491;          if(!(((V464))==(V484))){
4354          V491= ((V456))->v.v_self[0];          goto T2058;}
4355          if(type_of((V491))==t_fixnum){          goto T2028;}
4356          goto T2067;}          goto T2058;
4357          base[2]= VV[49];  T2058:;
4358            V479= CMPcdr((V479));
4359            V480= CMPcar((V479));
4360            goto T2053;}
4361            goto T2049;
4362    T2049:;
4363            goto T1955;
4364            goto T2031;
4365    T2031:;
4366            goto T2030;
4367            goto T2028;
4368    T2028:;
4369            {object V487;
4370            V487= ((V459))->v.v_self[0];
4371            if(type_of((V487))==t_fixnum){
4372            goto T2082;}
4373            base[2]= VV[58];
4374          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4375          Lerror();          Lerror();
4376          vs_top=sup;          vs_top=sup;
4377          goto T2067;          goto T2082;
4378  T2067:;  T2082:;
4379          V490= fix((V491));}          V486= fix((V487));}
4380          if((V489)==(V490)){          if((V475)==(V486)){
4381          goto T1988;}          goto T2003;}
4382          goto T1940;}}}          goto T1955;}}}
4383          goto T1988;          goto T2003;
4384  T1988:;  T2003:;
4385          base[2]= (base0[1]->c.c_car);          base[2]= (base0[1]->c.c_car);
4386          base[3]= VV[2];          base[3]= VV[2];
4387          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4388          (void) (*Lnk262)();          (void) (*Lnk292)();
4389          vs_top=sup;          vs_top=sup;
4390          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4391          goto T2073;}          goto T2088;}
4392          base[2]= STREF(object,(base0[1]->c.c_car),0);          base[2]= STREF(object,(base0[1]->c.c_car),0);
4393          base[3]= STREF(object,(base0[1]->c.c_car),4);          base[3]= STREF(object,(base0[1]->c.c_car),4);
4394          base[4]= STREF(object,(base0[1]->c.c_car),8);          base[4]= STREF(object,(base0[1]->c.c_car),8);
4395          base[5]= (V453);          base[5]= (V456);
4396          base[6]= (V454);          base[6]= (V457);
4397          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
4398          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4399                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4400                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4401                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4402          return;          return;
4403          goto T2073;          goto T2088;
4404  T2073:;  T2088:;
4405          if(!(type_of((base0[1]->c.c_car))==t_fixnum)){          if(!(type_of((base0[1]->c.c_car))==t_fixnum)){
4406          goto T2083;}          goto T2098;}
4407          {object V493;          {object V489;
4408          if(type_of(V453)==t_structure){          if(type_of(V456)==t_structure){
4409          goto T2089;}          goto T2104;}
4410          goto T2087;          goto T2102;
4411          goto T2089;          goto T2104;
4412  T2089:;  T2104:;
4413          if(!(((V453)->str.str_def)==(VV[119]))){          if(!(((V456)->str.str_def)==(VV[145]))){
4414          goto T2087;}          goto T2102;}
4415          V493= STREF(object,(V453),4);          V489= STREF(object,(V456),4);
4416          goto T2085;          goto T2100;
4417          goto T2087;          goto T2102;
4418  T2087:;{object V495;  T2102:;{object V491;
4419          V495= (VV[33]->s.s_dbind);          V491= (VV[42]->s.s_dbind);
4420          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
4421          base[3]= (V453);          base[3]= (V456);
4422          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4423          (void) (*Lnk257)();          (void) (*Lnk287)();
4424          vs_top=sup;          vs_top=sup;
4425          V496= vs_base[0];          V492= vs_base[0];
4426          if(!((V495)==(CMPcar(V496)))){          if(!((V491)==(CMPcar(V492)))){
4427          goto T2092;}}          goto T2107;}}
4428          V493= CMPcar(((V453))->cc.cc_turbo[12]);          V489= CMPcar(((V456))->cc.cc_turbo[12]);
4429          goto T2085;          goto T2100;
4430          goto T2092;          goto T2107;
4431  T2092:;  T2107:;
4432          V493= Cnil;          V489= Cnil;
4433          goto T2085;          goto T2100;
4434  T2085:;  T2100:;
4435          if(((V493))==Cnil){          if(((V489))==Cnil){
4436          goto T2098;}          goto T2113;}
4437          base[2]= ((V493))->v.v_self[fix((base0[1]->c.c_car))]= (V453);          base[2]= ((V489))->v.v_self[fix((base0[1]->c.c_car))]= (V456);
4438          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4439          return;          return;
4440          goto T2098;          goto T2113;
4441  T2098:;  T2113:;
4442          base[2]= Cnil;          base[2]= Cnil;
4443          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4444          return;}          return;}
4445          goto T2083;          goto T2098;
4446  T2083:;  T2098:;
4447          {object V497;          {object V493;
4448          V497= (base0[1]->c.c_car);          V493= (base0[1]->c.c_car);
4449          base[2]= (V497);          base[2]= V493;
4450          base[3]= VV[10];          base[3]= VV[10];
4451          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4452          (void) (*Lnk262)();          (void) (*Lnk292)();
4453          vs_top=sup;          vs_top=sup;
4454          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4455          goto T2101;}          goto T2116;}
4456          {object V498;          {object V495;
4457          object V499;          object V496;
4458          object V500;          object V497;
4459          V498= STREF(object,(base0[1]->c.c_car),0);          V495= STREF(object,(base0[1]->c.c_car),0);
4460          V499= list(2,(V453),(V454));          V496= list(2,(V456),(V457));
4461          V500= STREF(object,(base0[1]->c.c_car),4);          V497= STREF(object,(base0[1]->c.c_car),4);
4462          if(((V500))==Cnil){          if(((V497))==Cnil){
4463          goto T2109;}          goto T2124;}
4464          if((CMPcdr((V500)))!=Cnil){          if((CMPcdr((V497)))!=Cnil){
4465          goto T2109;}          goto T2124;}
4466          base[2]= (V499);          base[2]= (V496);
4467          base[3]= CMPcar((V500));          base[3]= CMPcar((V497));
4468          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4469          {object _funobj = (V498);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V495);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4470                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4471                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4472                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4473          return;          return;
4474          goto T2109;          goto T2124;
4475  T2109:;  T2124:;
4476          base[2]= (V498);          base[2]= (V495);
4477          base[3]= (V499);          base[3]= (V496);
4478          {object V501;          {object V498;
4479          V501= (V500);          V498= (V497);
4480           vs_top=base+4;           vs_top=base+4;
4481           while(V501!=Cnil)           while(V498!=Cnil)
4482           {vs_push((V501)->c.c_car);V501=(V501)->c.c_cdr;}           {vs_push((V498)->c.c_car);V498=(V498)->c.c_cdr;}
4483          vs_base=base+3;}          vs_base=base+3;}
4484          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4485                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4486                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4487                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4488          return;}          return;}
4489          goto T2101;          goto T2116;
4490  T2101:;  T2116:;
4491          base[2]= (V497);          base[2]= V493;
4492          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4493          Lfunctionp();          Lfunctionp();
4494          vs_top=sup;          vs_top=sup;
4495          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4496          goto T2119;}          goto T2134;}
4497          base[2]= (V453);          base[2]= (V456);
4498          base[3]= (V454);          base[3]= (V457);
4499          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4500          {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4501                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4502                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4503                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4504          return;          return;
4505          goto T2119;          goto T2134;
4506  T2119:;  T2134:;
4507          base[3]= VV[11];          base[2]= VV[11];
4508          base[4]= (V497);          base[3]= VV[12];
4509          base[5]= VV[120];          base[4]= VV[13];
4510          vs_top=(vs_base=base+3)+3;          base[5]= VV[14];
4511          (void) (*Lnk264)();          base[6]= (V493);
4512          vs_top=sup;          base[7]= VV[15];
4513          base[2]= vs_base[0];          base[8]= VV[146];
4514          vs_top=(vs_base=base+2)+1;          base[9]= VV[17];
4515          Lerror();          base[10]= VV[147];
4516            vs_top=(vs_base=base+2)+9;
4517            (void) (*Lnk294)();
4518          return;}}          return;}}
4519          goto T1940;          goto T1955;
4520  T1940:;  T1955:;
4521          base[2]= (V453);          base[2]= (V456);
4522          base[3]= (V454);          base[3]= (V457);
4523          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4524          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4525                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4554  register object *base0; Line 4555  register object *base0;
4555  {       register object *base=vs_base;  {       register object *base=vs_base;
4556          register object *sup=base+VM105; VC105          register object *sup=base+VM105; VC105
4557          vs_check;          vs_check;
4558          {register object V502;          {register object V499;
4559          register object V503;          register object V500;
4560          register object V504;          register object V501;
4561          check_arg(3);          check_arg(3);
4562          V502=(base[0]);          V499=(base[0]);
4563          V503=(base[1]);          V500=(base[1]);
4564          V504=(base[2]);          V501=(base[2]);
4565          vs_top=sup;          vs_top=sup;
4566          {long V505;          {long V502;
4567            object V503;
4568            long V504;
4569            long V505;
4570          object V506;          object V506;
4571          long V507;          register object V507;
4572          long V508;          V502= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
4573          object V509;          V503= STREF(object,(base0[2]->c.c_car),40);
4574          register object V510;          V504= (long)STREF(fixnum,(base0[2]->c.c_car),24);
4575          V505= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          V505= (long)STREF(fixnum,(base0[2]->c.c_car),28);
4576          V506= STREF(object,(base0[2]->c.c_car),40);          V506= STREF(object,(base0[2]->c.c_car),44);
4577          V507= (long)STREF(fixnum,(base0[2]->c.c_car),24);          if(type_of(V500)==t_structure){
         V508= (long)STREF(fixnum,(base0[2]->c.c_car),28);  
         V509= STREF(object,(base0[2]->c.c_car),44);  
         if(type_of(V503)==t_structure){  
         goto T2142;}  
         goto T2140;  
         goto T2142;  
 T2142:;  
         if(!(((V503)->str.str_def)==(VV[114]))){  
         goto T2140;}  
         V510= STREF(object,(V503),0);  
         goto T2138;  
         goto T2140;  
 T2140:;{object V512;  
         V512= (VV[33]->s.s_dbind);  
         base[3]= small_fixnum(14);  
         base[4]= (V503);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk257)();  
         vs_top=sup;  
         V513= vs_base[0];  
         if(!((V512)==(CMPcar(V513)))){  
         goto T2145;}}  
         V510= CMPcar(((V503))->cc.cc_turbo[13]);  
         goto T2138;  
         goto T2145;  
 T2145:;  
         if(!(type_of((V503))==t_structure)){  
         goto T2151;}  
         V510= (*(LnkLI260))((V503));  
         goto T2138;  
         goto T2151;  
 T2151:;  
         if(!(type_of((V503))==t_symbol)){  
         goto T2154;}  
         if(((V503))==Cnil){  
         goto T2157;}  
         V510= (VV[47]->s.s_dbind);  
         goto T2138;  
         goto T2157;  
 T2157:;  
         V510= (VV[48]->s.s_dbind);  
         goto T2138;  
         goto T2154;  
 T2154:;  
         V510= (*(LnkLI261))((V503));  
         goto T2138;  
 T2138:;  
         {long V514;  
         register long V515;  
         {long V516;  
         V516= fix(((V510))->v.v_self[V505]);  
         if(!((V516)==0)){  
4578          goto T2162;}          goto T2162;}
4579          goto T2132;          goto T2160;
4580          goto T2162;          goto T2162;
4581  T2162:;  T2162:;
4582          V514= (long)((V507) & (V516));}          if(!(((V500)->str.str_def)==(VV[139]))){
4583          V515= V514;          goto T2160;}
4584          goto T2167;          V507= STREF(object,(V500),0);
4585  T2167:;          goto T2158;
4586          if(!(((V510))==(((V506))->v.v_self[V515]))){          goto T2160;
4587          goto T2169;}  T2160:;{object V509;
4588          goto T2159;          V509= (VV[42]->s.s_dbind);
4589          goto T2169;          base[3]= small_fixnum(14);
4590  T2169:;          base[4]= (V500);
4591          V515= (long)(V515)+(1);          vs_top=(vs_base=base+3)+2;
4592          if(!((V515)==(V508))){          (void) (*Lnk287)();
4593            vs_top=sup;
4594            V510= vs_base[0];
4595            if(!((V509)==(CMPcar(V510)))){
4596            goto T2165;}}
4597            V507= CMPcar(((V500))->cc.cc_turbo[13]);
4598            goto T2158;
4599            goto T2165;
4600    T2165:;
4601            if(!(type_of((V500))==t_structure)){
4602            goto T2171;}
4603            V507= (*(LnkLI290))((V500));
4604            goto T2158;
4605            goto T2171;
4606    T2171:;
4607            if(!(type_of((V500))==t_symbol)){
4608          goto T2174;}          goto T2174;}
4609          V515= 0;          if(((V500))==Cnil){
4610            goto T2177;}
4611            V507= (VV[56]->s.s_dbind);
4612            goto T2158;
4613            goto T2177;
4614    T2177:;
4615            V507= (VV[57]->s.s_dbind);
4616            goto T2158;
4617          goto T2174;          goto T2174;
4618  T2174:;  T2174:;
4619          if(!((V515)==(V514))){          V507= (*(LnkLI291))((V500));
4620          goto T2168;}          goto T2158;
4621          {register object V517;  T2158:;
4622          register object V518;          {long V511;
4623          V517= (V509);          register long V512;
4624          V518= CMPcar((V517));          {long V513;
4625          goto T2184;          V513= fix(((V507))->v.v_self[V502]);
4626  T2184:;          if(!((V513)==0)){
4627          if(!(((V517))==Cnil)){          goto T2182;}
4628          goto T2185;}          goto T2152;
4629          goto T2180;          goto T2182;
4630          goto T2185;  T2182:;
4631  T2185:;          V511= (long)((V504) & (V513));}
4632          if(!((CMPcar((V518)))==((V510)))){          V512= V511;
4633            goto T2187;
4634    T2187:;
4635            if(!(((V507))==(((V503))->v.v_self[V512]))){
4636          goto T2189;}          goto T2189;}
4637          goto T2159;          goto T2179;
4638          goto T2189;          goto T2189;
4639  T2189:;  T2189:;
4640          V517= CMPcdr((V517));          V512= (long)(V512)+(1);
4641          V518= CMPcar((V517));          if(!((V512)==(V505))){
4642          goto T2184;}          goto T2194;}
4643          goto T2180;          V512= 0;
4644  T2180:;          goto T2194;
4645          goto T2132;  T2194:;
4646          goto T2168;          if(!((V512)==(V511))){
4647  T2168:;          goto T2188;}
4648          goto T2167;}          {register object V514;
4649          goto T2159;          register object V515;
4650  T2159:;          V514= (V506);
4651            V515= CMPcar((V514));
4652            goto T2204;
4653    T2204:;
4654            if(!(((V514))==Cnil)){
4655            goto T2205;}
4656            goto T2200;
4657            goto T2205;
4658    T2205:;
4659            if(!((CMPcar((V515)))==((V507)))){
4660            goto T2209;}
4661            goto T2179;
4662            goto T2209;
4663    T2209:;
4664            V514= CMPcdr((V514));
4665            V515= CMPcar((V514));
4666            goto T2204;}
4667            goto T2200;
4668    T2200:;
4669            goto T2152;
4670            goto T2188;
4671    T2188:;
4672            goto T2187;}
4673            goto T2179;
4674    T2179:;
4675          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
4676          base[4]= VV[2];          base[4]= VV[2];
4677          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4678          (void) (*Lnk262)();          (void) (*Lnk292)();
4679          vs_top=sup;          vs_top=sup;
4680          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4681          goto T2200;}          goto T2220;}
4682          base[3]= STREF(object,(base0[1]->c.c_car),0);          base[3]= STREF(object,(base0[1]->c.c_car),0);
4683          base[4]= STREF(object,(base0[1]->c.c_car),4);          base[4]= STREF(object,(base0[1]->c.c_car),4);
4684          base[5]= STREF(object,(base0[1]->c.c_car),8);          base[5]= STREF(object,(base0[1]->c.c_car),8);
4685          base[6]= (V502);          base[6]= (V499);
4686          base[7]= (V503);          base[7]= (V500);
4687          base[8]= (V504);          base[8]= (V501);
4688          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
4689          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4690                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4691                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4692                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4693          return;          return;
4694          goto T2200;          goto T2220;
4695  T2200:;  T2220:;
4696          {object V519;          {object V516;
4697          V519= (base0[1]->c.c_car);          V516= (base0[1]->c.c_car);
4698          base[3]= (V519);          base[3]= V516;
4699          base[4]= VV[10];          base[4]= VV[10];
4700          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4701          (void) (*Lnk262)();          (void) (*Lnk292)();
4702          vs_top=sup;          vs_top=sup;
4703          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4704          goto T2211;}          goto T2231;}
4705          {object V520;          {object V518;
4706          object V521;          object V519;
4707          object V522;          object V520;
4708          V520= STREF(object,(base0[1]->c.c_car),0);          V518= STREF(object,(base0[1]->c.c_car),0);
4709          V521= list(3,(V502),(V503),(V504));          V519= list(3,(V499),(V500),(V501));
4710          V522= STREF(object,(base0[1]->c.c_car),4);          V520= STREF(object,(base0[1]->c.c_car),4);
4711          if(((V522))==Cnil){          if(((V520))==Cnil){
4712          goto T2219;}          goto T2239;}
4713          if((CMPcdr((V522)))!=Cnil){          if((CMPcdr((V520)))!=Cnil){
4714          goto T2219;}          goto T2239;}
4715          base[3]= (V521);          base[3]= (V519);
4716          base[4]= CMPcar((V522));          base[4]= CMPcar((V520));
4717          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4718          {object _funobj = (V520);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V518);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4719                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4720                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4721                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4722          return;          return;
4723          goto T2219;          goto T2239;
4724  T2219:;  T2239:;
4725          base[3]= (V520);          base[3]= (V518);
4726          base[4]= (V521);          base[4]= (V519);
4727          {object V523;          {object V521;
4728          V523= (V522);          V521= (V520);
4729           vs_top=base+5;           vs_top=base+5;
4730           while(V523!=Cnil)           while(V521!=Cnil)
4731           {vs_push((V523)->c.c_car);V523=(V523)->c.c_cdr;}           {vs_push((V521)->c.c_car);V521=(V521)->c.c_cdr;}
4732          vs_base=base+4;}          vs_base=base+4;}
4733          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4734                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4735                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4736                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4737          return;}          return;}
4738          goto T2211;          goto T2231;
4739  T2211:;  T2231:;
4740          base[3]= (V519);          base[3]= V516;
4741          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4742          Lfunctionp();          Lfunctionp();
4743          vs_top=sup;          vs_top=sup;
4744          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4745          goto T2229;}          goto T2249;}
4746          base[3]= (V502);          base[3]= (V499);
4747          base[4]= (V503);          base[4]= (V500);
4748          base[5]= (V504);          base[5]= (V501);
4749          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4750          {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4751                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4752                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4753                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4754          return;          return;
4755          goto T2229;          goto T2249;
4756  T2229:;  T2249:;
4757          base[4]= VV[11];          base[3]= VV[11];
4758          base[5]= (V519);          base[4]= VV[12];
4759          base[6]= VV[115];          base[5]= VV[13];
4760          vs_top=(vs_base=base+4)+3;          base[6]= VV[14];
4761          (void) (*Lnk264)();          base[7]= (V516);
4762          vs_top=sup;          base[8]= VV[15];
4763          base[3]= vs_base[0];          base[9]= VV[140];
4764          vs_top=(vs_base=base+3)+1;          base[10]= VV[17];
4765          Lerror();          base[11]= VV[141];
4766            vs_top=(vs_base=base+3)+9;
4767            (void) (*Lnk294)();
4768          return;}}          return;}}
4769          goto T2132;          goto T2152;
4770  T2132:;  T2152:;
4771          base[3]= (V502);          base[3]= (V499);
4772          base[4]= (V503);          base[4]= (V500);
4773          base[5]= (V504);          base[5]= (V501);
4774          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4775          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4776                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4802  register object *base0; Line 4805  register object *base0;
4805  {       register object *base=vs_base;  {       register object *base=vs_base;
4806          register object *sup=base+VM107; VC107          register object *sup=base+VM107; VC107
4807          vs_check;          vs_check;
4808          {object V524;          {object V522;
4809          check_arg(1);          check_arg(1);
4810          V524=(base[0]);          V522=(base[0]);
4811          vs_top=sup;          vs_top=sup;
4812          {register object V525;          {register object V523;
4813          V525= Cnil;          V523= Cnil;
4814          {long V526;          {long V524;
4815          register object V527;          register object V525;
4816          long V528;          long V526;
4817          long V529;          long V527;
4818          object V530;          object V528;
4819          register object V531;          register object V529;
4820          V526= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V524= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
4821          V527= STREF(object,(base0[1]->c.c_car),40);          V525= STREF(object,(base0[1]->c.c_car),40);
4822          V528= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V526= (long)STREF(fixnum,(base0[1]->c.c_car),24);
4823          V529= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V527= (long)STREF(fixnum,(base0[1]->c.c_car),28);
4824          V530= STREF(object,(base0[1]->c.c_car),44);          V528= STREF(object,(base0[1]->c.c_car),44);
4825          if(type_of(V524)==t_structure){          if(type_of(V522)==t_structure){
4826          goto T2254;}          goto T2279;}
4827          goto T2252;          goto T2277;
4828          goto T2254;          goto T2279;
4829  T2254:;  T2279:;
4830          if(!(((V524)->str.str_def)==(VV[111]))){          if(!(((V522)->str.str_def)==(VV[136]))){
4831          goto T2252;}          goto T2277;}
4832          V531= STREF(object,(V524),0);          V529= STREF(object,(V522),0);
4833          goto T2250;          goto T2275;
4834          goto T2252;          goto T2277;
4835  T2252:;{object V533;  T2277:;{object V531;
4836          V533= (VV[33]->s.s_dbind);          V531= (VV[42]->s.s_dbind);
4837          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
4838          base[2]= (V524);          base[2]= (V522);
4839          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4840          (void) (*Lnk257)();          (void) (*Lnk287)();
4841          vs_top=sup;          vs_top=sup;
4842          V534= vs_base[0];          V532= vs_base[0];
4843          if(!((V533)==(CMPcar(V534)))){          if(!((V531)==(CMPcar(V532)))){
4844          goto T2257;}}          goto T2282;}}
4845          V531= CMPcar(((V524))->cc.cc_turbo[13]);          V529= CMPcar(((V522))->cc.cc_turbo[13]);
4846          goto T2250;          goto T2275;
4847          goto T2257;          goto T2282;
4848  T2257:;  T2282:;
4849          if(!(type_of((V524))==t_structure)){          if(!(type_of((V522))==t_structure)){
4850          goto T2263;}          goto T2288;}
4851          V531= (*(LnkLI260))((V524));          V529= (*(LnkLI290))((V522));
4852          goto T2250;          goto T2275;
4853          goto T2263;          goto T2288;
4854  T2263:;  T2288:;
4855          if(!(type_of((V524))==t_symbol)){          if(!(type_of((V522))==t_symbol)){
4856          goto T2266;}          goto T2291;}
4857          if(((V524))==Cnil){          if(((V522))==Cnil){
4858          goto T2269;}          goto T2294;}
4859          V531= (VV[47]->s.s_dbind);          V529= (VV[56]->s.s_dbind);
4860          goto T2250;          goto T2275;
4861          goto T2269;          goto T2294;
4862  T2269:;  T2294:;
4863          V531= (VV[48]->s.s_dbind);          V529= (VV[57]->s.s_dbind);
4864          goto T2250;          goto T2275;
4865          goto T2266;          goto T2291;
4866  T2266:;  T2291:;
4867          V531= (*(LnkLI261))((V524));          V529= (*(LnkLI291))((V522));
4868          goto T2250;          goto T2275;
4869  T2250:;  T2275:;
4870            {long V533;
4871            long V534;
4872          {long V535;          {long V535;
4873          long V536;          V535= fix(((V529))->v.v_self[V524]);
4874          {long V537;          if(!((V535)==0)){
4875          V537= fix(((V531))->v.v_self[V526]);          goto T2299;}
4876          if(!((V537)==0)){          goto T2269;
4877          goto T2274;}          goto T2299;
4878          goto T2244;  T2299:;
4879          goto T2274;          V533= (long)((V526) & (V535));}
4880  T2274:;          {object V536;
4881          V535= (long)((V528) & (V537));}          V536= ((V525))->v.v_self[0];
4882          {object V538;          if(type_of((V536))==t_fixnum){
4883          V538= ((V527))->v.v_self[0];          goto T2304;}
4884          if(type_of((V538))==t_fixnum){          base[1]= VV[58];
         goto T2279;}  
         base[1]= VV[49];  
4885          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4886          Lerror();          Lerror();
4887          vs_top=sup;          vs_top=sup;
4888          goto T2279;          goto T2304;
4889  T2279:;  T2304:;
4890          V536= fix((V538));}          V534= fix((V536));}
4891          {register long V539;          {register long V537;
4892          V539= V535;          V537= V533;
4893          goto T2286;          goto T2311;
4894  T2286:;  T2311:;
4895          if(!(((V531))==(((V527))->v.v_self[V539]))){          if(!(((V529))==(((V525))->v.v_self[V537]))){
4896          goto T2288;}          goto T2313;}
4897          V525= ((V527))->v.v_self[(long)(V539)+1];          V523= ((V525))->v.v_self[(long)(V537)+1];
4898          goto T2284;          goto T2309;
4899          goto T2288;          goto T2313;
4900  T2288:;  T2313:;
4901          V539= (long)(V539)+(2);          V537= (long)(V537)+(2);
4902          if(!((V539)==(V529))){          if(!((V537)==(V527))){
4903          goto T2295;}          goto T2320;}
4904          V539= 0;          V537= 0;
4905          goto T2295;          goto T2320;
4906  T2295:;  T2320:;
4907          if(!((V539)==(V535))){          if(!((V537)==(V533))){
4908          goto T2287;}          goto T2312;}
4909          {register object V540;          {register object V538;
4910          register object V541;          register object V539;
4911          V540= (V530);          V538= (V528);
4912          V541= CMPcar((V540));          V539= CMPcar((V538));
4913          goto T2305;          goto T2330;
4914  T2305:;  T2330:;
4915          if(!(((V540))==Cnil)){          if(!(((V538))==Cnil)){
4916          goto T2306;}          goto T2331;}
4917          goto T2301;          goto T2326;
4918          goto T2306;          goto T2331;
4919  T2306:;  T2331:;
4920          if(!((CMPcar((V541)))==((V531)))){          if(!((CMPcar((V539)))==((V529)))){
4921          goto T2310;}          goto T2335;}
4922          V525= CMPcdr((V541));          V523= CMPcdr((V539));
4923          goto T2284;          goto T2309;
4924          goto T2310;          goto T2335;
4925  T2310:;  T2335:;
4926          V540= CMPcdr((V540));          V538= CMPcdr((V538));
4927          V541= CMPcar((V540));          V539= CMPcar((V538));
4928          goto T2305;}          goto T2330;}
4929          goto T2301;          goto T2326;
4930  T2301:;  T2326:;
4931          goto T2244;          goto T2269;
4932          goto T2287;          goto T2312;
4933  T2287:;  T2312:;
4934          goto T2286;          goto T2311;
4935          goto T2284;          goto T2309;
4936  T2284:;  T2309:;
4937          V542 = V536;          {object V541;
4938          {object V544;          V541= ((V525))->v.v_self[0];
4939          V544= ((V527))->v.v_self[0];          if(type_of((V541))==t_fixnum){
4940          if(type_of((V544))==t_fixnum){          goto T2350;}
4941          goto T2325;}          base[1]= VV[58];
         base[1]= VV[49];  
4942          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4943          Lerror();          Lerror();
4944          vs_top=sup;          vs_top=sup;
4945          goto T2325;          goto T2350;
4946  T2325:;  T2350:;
4947          V543= fix((V544));}          V540= fix((V541));}
4948          if((V542)==(V543)){          if((V534)==(V540)){
4949          goto T2271;}          goto T2296;}
4950          goto T2244;}}          goto T2269;}}
4951          goto T2271;          goto T2296;
4952  T2271:;  T2296:;
4953          base[1]= (V525);          base[1]= (V523);
4954          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4955          return;}          return;}
4956          goto T2244;          goto T2269;
4957  T2244:;  T2269:;
4958          base[1]= (V524);          base[1]= (V522);
4959          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4960          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4961                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4988  register object *base0; Line 4990  register object *base0;
4990  {       register object *base=vs_base;  {       register object *base=vs_base;
4991          register object *sup=base+VM109; VC109          register object *sup=base+VM109; VC109
4992          vs_check;          vs_check;
4993          {object V545;          {object V542;
4994          object V546;          object V543;
4995          check_arg(2);          check_arg(2);
4996          V545=(base[0]);          V542=(base[0]);
4997          V546=(base[1]);          V543=(base[1]);
4998          vs_top=sup;          vs_top=sup;
4999          {register object V547;          {register object V544;
5000          V547= Cnil;          V544= Cnil;
5001          {long V548;          {long V545;
5002          register object V549;          register object V546;
5003          long V550;          long V547;
5004          long V551;          long V548;
5005          object V552;          object V549;
5006          register object V553;          register object V550;
5007          V548= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V545= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
5008          V549= STREF(object,(base0[1]->c.c_car),40);          V546= STREF(object,(base0[1]->c.c_car),40);
5009          V550= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V547= (long)STREF(fixnum,(base0[1]->c.c_car),24);
5010          V551= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V548= (long)STREF(fixnum,(base0[1]->c.c_car),28);
5011          V552= STREF(object,(base0[1]->c.c_car),44);          V549= STREF(object,(base0[1]->c.c_car),44);
5012          if(type_of(V545)==t_structure){          if(type_of(V542)==t_structure){
5013          goto T2342;}          goto T2367;}
5014          goto T2340;          goto T2365;
5015          goto T2342;          goto T2367;
5016  T2342:;  T2367:;
5017          if(!(((V545)->str.str_def)==(VV[109]))){          if(!(((V542)->str.str_def)==(VV[134]))){
5018          goto T2340;}          goto T2365;}
5019          V553= STREF(object,(V545),0);          V550= STREF(object,(V542),0);
5020          goto T2338;          goto T2363;
5021          goto T2340;          goto T2365;
5022  T2340:;{object V555;  T2365:;{object V552;
5023          V555= (VV[33]->s.s_dbind);          V552= (VV[42]->s.s_dbind);
5024          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
5025          base[3]= (V545);          base[3]= (V542);
5026          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5027          (void) (*Lnk257)();          (void) (*Lnk287)();
5028          vs_top=sup;          vs_top=sup;
5029          V556= vs_base[0];          V553= vs_base[0];
5030          if(!((V555)==(CMPcar(V556)))){          if(!((V552)==(CMPcar(V553)))){
5031          goto T2345;}}          goto T2370;}}
5032          V553= CMPcar(((V545))->cc.cc_turbo[13]);          V550= CMPcar(((V542))->cc.cc_turbo[13]);
5033          goto T2338;          goto T2363;
5034          goto T2345;          goto T2370;
5035  T2345:;  T2370:;
5036          if(!(type_of((V545))==t_structure)){          if(!(type_of((V542))==t_structure)){
5037          goto T2351;}          goto T2376;}
5038          V553= (*(LnkLI260))((V545));          V550= (*(LnkLI290))((V542));
5039          goto T2338;          goto T2363;
5040          goto T2351;          goto T2376;
5041  T2351:;  T2376:;
5042          if(!(type_of((V545))==t_symbol)){          if(!(type_of((V542))==t_symbol)){
5043          goto T2354;}          goto T2379;}
5044          if(((V545))==Cnil){          if(((V542))==Cnil){
5045          goto T2357;}          goto T2382;}
5046          V553= (VV[47]->s.s_dbind);          V550= (VV[56]->s.s_dbind);
5047          goto T2338;          goto T2363;
5048            goto T2382;
5049    T2382:;
5050            V550= (VV[57]->s.s_dbind);
5051            goto T2363;
5052            goto T2379;
5053    T2379:;
5054            V550= (*(LnkLI291))((V542));
5055            goto T2363;
5056    T2363:;
5057            {long V554;
5058            long V555;
5059            {long V556;
5060            V556= fix(((V550))->v.v_self[V545]);
5061            if(!((V556)==0)){
5062            goto T2387;}
5063          goto T2357;          goto T2357;
5064  T2357:;          goto T2387;
5065          V553= (VV[48]->s.s_dbind);  T2387:;
5066          goto T2338;          V554= (long)((V547) & (V556));}
5067          goto T2354;          {object V557;
5068  T2354:;          V557= ((V546))->v.v_self[0];
5069          V553= (*(LnkLI261))((V545));          if(type_of((V557))==t_fixnum){
5070          goto T2338;          goto T2392;}
5071  T2338:;          base[2]= VV[58];
         {long V557;  
         long V558;  
         {long V559;  
         V559= fix(((V553))->v.v_self[V548]);  
         if(!((V559)==0)){  
         goto T2362;}  
         goto T2332;  
         goto T2362;  
 T2362:;  
         V557= (long)((V550) & (V559));}  
         {object V560;  
         V560= ((V549))->v.v_self[0];  
         if(type_of((V560))==t_fixnum){  
         goto T2367;}  
         base[2]= VV[49];  
5072          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5073          Lerror();          Lerror();
5074          vs_top=sup;          vs_top=sup;
5075          goto T2367;          goto T2392;
5076  T2367:;  T2392:;
5077          V558= fix((V560));}          V555= fix((V557));}
5078          {register long V561;          {register long V558;
5079          V561= V557;          V558= V554;
5080          goto T2374;          goto T2399;
5081  T2374:;  T2399:;
5082          if(!(((V553))==(((V549))->v.v_self[V561]))){          if(!(((V550))==(((V546))->v.v_self[V558]))){
5083          goto T2376;}          goto T2401;}
5084          V547= ((V549))->v.v_self[(long)(V561)+1];          V544= ((V546))->v.v_self[(long)(V558)+1];
5085          goto T2372;          goto T2397;
5086          goto T2376;          goto T2401;
5087  T2376:;  T2401:;
5088          V561= (long)(V561)+(2);          V558= (long)(V558)+(2);
5089          if(!((V561)==(V551))){          if(!((V558)==(V548))){
5090          goto T2383;}          goto T2408;}
5091          V561= 0;          V558= 0;
5092          goto T2383;          goto T2408;
5093  T2383:;  T2408:;
5094          if(!((V561)==(V557))){          if(!((V558)==(V554))){
5095          goto T2375;}          goto T2400;}
5096          {register object V562;          {register object V559;
5097          register object V563;          register object V560;
5098          V562= (V552);          V559= (V549);
5099          V563= CMPcar((V562));          V560= CMPcar((V559));
5100          goto T2393;          goto T2418;
5101  T2393:;  T2418:;
5102          if(!(((V562))==Cnil)){          if(!(((V559))==Cnil)){
5103          goto T2394;}          goto T2419;}
5104          goto T2389;          goto T2414;
5105          goto T2394;          goto T2419;
5106  T2394:;  T2419:;
5107          if(!((CMPcar((V563)))==((V553)))){          if(!((CMPcar((V560)))==((V550)))){
5108          goto T2398;}          goto T2423;}
5109          V547= CMPcdr((V563));          V544= CMPcdr((V560));
5110          goto T2372;          goto T2397;
5111          goto T2398;          goto T2423;
5112  T2398:;  T2423:;
5113          V562= CMPcdr((V562));          V559= CMPcdr((V559));
5114          V563= CMPcar((V562));          V560= CMPcar((V559));
5115          goto T2393;}          goto T2418;}
5116          goto T2389;          goto T2414;
5117  T2389:;  T2414:;
5118          goto T2332;          goto T2357;
5119          goto T2375;          goto T2400;
5120  T2375:;  T2400:;
5121          goto T2374;          goto T2399;
5122          goto T2372;          goto T2397;
5123  T2372:;  T2397:;
5124          V564 = V558;          {object V562;
5125          {object V566;          V562= ((V546))->v.v_self[0];
5126          V566= ((V549))->v.v_self[0];          if(type_of((V562))==t_fixnum){
5127          if(type_of((V566))==t_fixnum){          goto T2438;}
5128          goto T2413;}          base[2]= VV[58];
         base[2]= VV[49];  
5129          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5130          Lerror();          Lerror();
5131          vs_top=sup;          vs_top=sup;
5132          goto T2413;          goto T2438;
5133  T2413:;  T2438:;
5134          V565= fix((V566));}          V561= fix((V562));}
5135          if((V564)==(V565)){          if((V555)==(V561)){
5136          goto T2359;}          goto T2384;}
5137          goto T2332;}}          goto T2357;}}
5138          goto T2359;          goto T2384;
5139  T2359:;  T2384:;
5140          base[2]= (V547);          base[2]= (V544);
5141          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5142          return;}          return;}
5143          goto T2332;          goto T2357;
5144  T2332:;  T2357:;
5145          base[2]= (V545);          base[2]= (V542);
5146          base[3]= (V546);          base[3]= (V543);
5147          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5148          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5149                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5177  register object *base0; Line 5178  register object *base0;
5178  {       register object *base=vs_base;  {       register object *base=vs_base;
5179          register object *sup=base+VM111; VC111          register object *sup=base+VM111; VC111
5180          vs_check;          vs_check;
5181          {object V567;          {object V563;
5182          object V568;          object V564;
5183          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
5184          V567=(base[0]);          V563=(base[0]);
5185          vs_base=vs_base+1;          vs_base=vs_base+1;
5186          vs_top[0]=Cnil;          vs_top[0]=Cnil;
5187          {object *p=vs_top;          {object *p=vs_top;
5188           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
5189          V568=(base[1]);          V564=(base[1]);
5190          vs_top=sup;          vs_top=sup;
5191          {register object V569;          {register object V565;
5192          V569= Cnil;          V565= Cnil;
5193          {long V570;          {long V566;
5194            register object V567;
5195            long V568;
5196            long V569;
5197            object V570;
5198          register object V571;          register object V571;
5199          long V572;          V566= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
5200          long V573;          V567= STREF(object,(base0[1]->c.c_car),40);
5201          object V574;          V568= (long)STREF(fixnum,(base0[1]->c.c_car),24);
5202          register object V575;          V569= (long)STREF(fixnum,(base0[1]->c.c_car),28);
5203          V570= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V570= STREF(object,(base0[1]->c.c_car),44);
5204          V571= STREF(object,(base0[1]->c.c_car),40);          if(type_of(V563)==t_structure){
5205          V572= (long)STREF(fixnum,(base0[1]->c.c_car),24);          goto T2456;}
5206          V573= (long)STREF(fixnum,(base0[1]->c.c_car),28);          goto T2454;
5207          V574= STREF(object,(base0[1]->c.c_car),44);          goto T2456;
5208          if(type_of(V567)==t_structure){  T2456:;
5209          goto T2431;}          if(!(((V563)->str.str_def)==(VV[129]))){
5210          goto T2429;          goto T2454;}
5211          goto T2431;          V571= STREF(object,(V563),0);
5212  T2431:;          goto T2452;
5213          if(!(((V567)->str.str_def)==(VV[105]))){          goto T2454;
5214          goto T2429;}  T2454:;{object V573;
5215          V575= STREF(object,(V567),0);          V573= (VV[42]->s.s_dbind);
         goto T2427;  
         goto T2429;  
 T2429:;{object V577;  
         V577= (VV[33]->s.s_dbind);  
5216          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
5217          base[3]= (V567);          base[3]= (V563);
5218          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5219          (void) (*Lnk257)();          (void) (*Lnk287)();
5220          vs_top=sup;          vs_top=sup;
5221          V578= vs_base[0];          V574= vs_base[0];
5222          if(!((V577)==(CMPcar(V578)))){          if(!((V573)==(CMPcar(V574)))){
5223          goto T2434;}}          goto T2459;}}
5224          V575= CMPcar(((V567))->cc.cc_turbo[13]);          V571= CMPcar(((V563))->cc.cc_turbo[13]);
5225          goto T2427;          goto T2452;
5226          goto T2434;          goto T2459;
5227  T2434:;  T2459:;
5228          if(!(type_of((V567))==t_structure)){          if(!(type_of((V563))==t_structure)){
5229          goto T2440;}          goto T2465;}
5230          V575= (*(LnkLI260))((V567));          V571= (*(LnkLI290))((V563));
5231          goto T2427;          goto T2452;
5232          goto T2440;          goto T2465;
5233  T2440:;  T2465:;
5234          if(!(type_of((V567))==t_symbol)){          if(!(type_of((V563))==t_symbol)){
5235          goto T2443;}          goto T2468;}
5236          if(((V567))==Cnil){          if(((V563))==Cnil){
5237          goto T2446;}          goto T2471;}
5238          V575= (VV[47]->s.s_dbind);          V571= (VV[56]->s.s_dbind);
5239          goto T2427;          goto T2452;
5240            goto T2471;
5241    T2471:;
5242            V571= (VV[57]->s.s_dbind);
5243            goto T2452;
5244            goto T2468;
5245    T2468:;
5246            V571= (*(LnkLI291))((V563));
5247            goto T2452;
5248    T2452:;
5249            {long V575;
5250            long V576;
5251            {long V577;
5252            V577= fix(((V571))->v.v_self[V566]);
5253            if(!((V577)==0)){
5254            goto T2476;}
5255          goto T2446;          goto T2446;
5256  T2446:;          goto T2476;
5257          V575= (VV[48]->s.s_dbind);  T2476:;
5258          goto T2427;          V575= (long)((V568) & (V577));}
5259          goto T2443;          {object V578;
5260  T2443:;          V578= ((V567))->v.v_self[0];
5261          V575= (*(LnkLI261))((V567));          if(type_of((V578))==t_fixnum){
5262          goto T2427;          goto T2481;}
5263  T2427:;          base[2]= VV[58];
         {long V579;  
         long V580;  
         {long V581;  
         V581= fix(((V575))->v.v_self[V570]);  
         if(!((V581)==0)){  
         goto T2451;}  
         goto T2421;  
         goto T2451;  
 T2451:;  
         V579= (long)((V572) & (V581));}  
         {object V582;  
         V582= ((V571))->v.v_self[0];  
         if(type_of((V582))==t_fixnum){  
         goto T2456;}  
         base[2]= VV[49];  
5264          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5265          Lerror();          Lerror();
5266          vs_top=sup;          vs_top=sup;
5267          goto T2456;          goto T2481;
5268  T2456:;  T2481:;
5269          V580= fix((V582));}          V576= fix((V578));}
5270          {register long V583;          {register long V579;
5271          V583= V579;          V579= V575;
5272          goto T2463;          goto T2488;
5273  T2463:;  T2488:;
5274          if(!(((V575))==(((V571))->v.v_self[V583]))){          if(!(((V571))==(((V567))->v.v_self[V579]))){
5275          goto T2465;}          goto T2490;}
5276          V569= ((V571))->v.v_self[(long)(V583)+1];          V565= ((V567))->v.v_self[(long)(V579)+1];
5277          goto T2461;          goto T2486;
5278          goto T2465;          goto T2490;
5279  T2465:;  T2490:;
5280          V583= (long)(V583)+(2);          V579= (long)(V579)+(2);
5281          if(!((V583)==(V573))){          if(!((V579)==(V569))){
5282          goto T2472;}          goto T2497;}
5283          V583= 0;          V579= 0;
5284          goto T2472;          goto T2497;
5285  T2472:;  T2497:;
5286          if(!((V583)==(V579))){          if(!((V579)==(V575))){
5287          goto T2464;}          goto T2489;}
5288          {register object V584;          {register object V580;
5289          register object V585;          register object V581;
5290          V584= (V574);          V580= (V570);
5291          V585= CMPcar((V584));          V581= CMPcar((V580));
5292          goto T2482;          goto T2507;
5293  T2482:;  T2507:;
5294          if(!(((V584))==Cnil)){          if(!(((V580))==Cnil)){
5295          goto T2483;}          goto T2508;}
5296          goto T2478;          goto T2503;
5297          goto T2483;          goto T2508;
5298  T2483:;  T2508:;
5299          if(!((CMPcar((V585)))==((V575)))){          if(!((CMPcar((V581)))==((V571)))){
5300          goto T2487;}          goto T2512;}
5301          V569= CMPcdr((V585));          V565= CMPcdr((V581));
5302          goto T2461;          goto T2486;
5303          goto T2487;          goto T2512;
5304  T2487:;  T2512:;
5305          V584= CMPcdr((V584));          V580= CMPcdr((V580));
5306          V585= CMPcar((V584));          V581= CMPcar((V580));
5307          goto T2482;}          goto T2507;}
5308          goto T2478;          goto T2503;
5309  T2478:;  T2503:;
5310          goto T2421;          goto T2446;
5311          goto T2464;          goto T2489;
5312  T2464:;  T2489:;
5313          goto T2463;          goto T2488;
5314          goto T2461;          goto T2486;
5315  T2461:;  T2486:;
5316          V586 = V580;          {object V583;
5317          {object V588;          V583= ((V567))->v.v_self[0];
5318          V588= ((V571))->v.v_self[0];          if(type_of((V583))==t_fixnum){
5319          if(type_of((V588))==t_fixnum){          goto T2527;}
5320          goto T2502;}          base[2]= VV[58];
         base[2]= VV[49];  
5321          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5322          Lerror();          Lerror();
5323          vs_top=sup;          vs_top=sup;
5324          goto T2502;          goto T2527;
5325  T2502:;  T2527:;
5326          V587= fix((V588));}          V582= fix((V583));}
5327          if((V586)==(V587)){          if((V576)==(V582)){
5328          goto T2448;}          goto T2473;}
5329          goto T2421;}}          goto T2446;}}
5330          goto T2448;          goto T2473;
5331  T2448:;  T2473:;
5332          base[2]= (V569);          base[2]= (V565);
5333          base[3]= VV[2];          base[3]= VV[2];
5334          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5335          (void) (*Lnk262)();          (void) (*Lnk292)();
5336          vs_top=sup;          vs_top=sup;
5337          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5338          goto T2508;}          goto T2533;}
5339          base[2]= STREF(object,(V569),0);          base[2]= STREF(object,(V565),0);
5340          base[3]= STREF(object,(V569),4);          base[3]= STREF(object,(V565),4);
5341          base[4]= STREF(object,(V569),8);          base[4]= STREF(object,(V565),8);
5342          base[5]= (V567);          base[5]= (V563);
5343          base[6]= (V568);          base[6]= (V564);
5344          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
5345          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5346                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5347                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5348                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5349          return;          return;
5350          goto T2508;          goto T2533;
5351  T2508:;  T2533:;
5352          base[2]= V569;          base[2]= V565;
5353          base[3]= VV[10];          base[3]= VV[10];
5354          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5355          (void) (*Lnk262)();          (void) (*Lnk292)();
5356          vs_top=sup;          vs_top=sup;
5357          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5358          goto T2518;}          goto T2543;}
5359          {object V590;          {object V586;
5360          object V591;          object V587;
5361          object V592;          object V588;
5362          V590= STREF(object,(V569),0);          V586= STREF(object,(V565),0);
5363          V591= make_cons((V567),(V568));          V587= make_cons((V563),(V564));
5364          V592= STREF(object,(V569),4);          V588= STREF(object,(V565),4);
5365          if(((V592))==Cnil){          if(((V588))==Cnil){
5366          goto T2526;}          goto T2551;}
5367          if((CMPcdr((V592)))!=Cnil){          if((CMPcdr((V588)))!=Cnil){
5368          goto T2526;}          goto T2551;}
5369          base[2]= (V591);          base[2]= (V587);
5370          base[3]= CMPcar((V592));          base[3]= CMPcar((V588));
5371          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5372          {object _funobj = (V590);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V586);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5373                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5374                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5375                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5376          return;          return;
5377          goto T2526;          goto T2551;
5378  T2526:;  T2551:;
5379          base[2]= (V590);          base[2]= (V586);
5380          base[3]= (V591);          base[3]= (V587);
5381          {object V593;          {object V589;
5382          V593= (V592);          V589= (V588);
5383           vs_top=base+4;           vs_top=base+4;
5384           while(V593!=Cnil)           while(V589!=Cnil)
5385           {vs_push((V593)->c.c_car);V593=(V593)->c.c_cdr;}           {vs_push((V589)->c.c_car);V589=(V589)->c.c_cdr;}
5386          vs_base=base+3;}          vs_base=base+3;}
5387          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5388                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5389                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5390                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5391          return;}          return;}
5392          goto T2518;          goto T2543;
5393  T2518:;  T2543:;
5394          base[2]= V569;          base[2]= V565;
5395          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5396          Lfunctionp();          Lfunctionp();
5397          vs_top=sup;          vs_top=sup;
5398          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5399          goto T2536;}          goto T2561;}
5400          base[2]= (V569);          base[2]= (V565);
5401          base[3]= (V567);          base[3]= (V563);
5402          {object V594;          {object V590;
5403          V594= (V568);          V590= (V564);
5404           vs_top=base+4;           vs_top=base+4;
5405           while(V594!=Cnil)           while(V590!=Cnil)
5406           {vs_push((V594)->c.c_car);V594=(V594)->c.c_cdr;}           {vs_push((V590)->c.c_car);V590=(V590)->c.c_cdr;}
5407          vs_base=base+3;}          vs_base=base+3;}
5408          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5409                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5410                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5411                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5412          return;          return;
5413          goto T2536;          goto T2561;
5414  T2536:;  T2561:;
5415          base[3]= VV[11];          base[2]= VV[11];
5416          base[4]= V569;          base[3]= VV[12];
5417          base[5]= VV[106];          base[4]= VV[13];
5418          vs_top=(vs_base=base+3)+3;          base[5]= VV[14];
5419          (void) (*Lnk264)();          base[6]= V565;
5420          vs_top=sup;          base[7]= VV[15];
5421          base[2]= vs_base[0];          base[8]= VV[130];
5422          vs_top=(vs_base=base+2)+1;          base[9]= VV[17];
5423          Lerror();          base[10]= VV[131];
5424            vs_top=(vs_base=base+2)+9;
5425            (void) (*Lnk294)();
5426          return;}          return;}
5427          goto T2421;          goto T2446;
5428  T2421:;  T2446:;
5429          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
5430          base[3]= (V567);          base[3]= (V563);
5431          {object V595;          {object V591;
5432          V595= (V568);          V591= (V564);
5433           vs_top=base+4;           vs_top=base+4;
5434           while(V595!=Cnil)           while(V591!=Cnil)
5435           {vs_push((V595)->c.c_car);V595=(V595)->c.c_cdr;}           {vs_push((V591)->c.c_car);V591=(V591)->c.c_cdr;}
5436          vs_base=base+3;}          vs_base=base+3;}
5437          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5438                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5465  register object *base0; Line 5467  register object *base0;
5467  {       register object *base=vs_base;  {       register object *base=vs_base;
5468          register object *sup=base+VM113; VC113          register object *sup=base+VM113; VC113
5469          vs_check;          vs_check;
5470          {object V596;          {object V592;
5471          check_arg(1);          check_arg(1);
5472          V596=(base[0]);          V592=(base[0]);
5473          vs_top=sup;          vs_top=sup;
5474          {register object V597;          {register object V593;
5475          V597= Cnil;          V593= Cnil;
5476          {long V598;          {long V594;
5477            register object V595;
5478            long V596;
5479            long V597;
5480            object V598;
5481          register object V599;          register object V599;
5482          long V600;          V594= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
5483          long V601;          V595= STREF(object,(base0[1]->c.c_car),40);
5484          object V602;          V596= (long)STREF(fixnum,(base0[1]->c.c_car),24);
5485          register object V603;          V597= (long)STREF(fixnum,(base0[1]->c.c_car),28);
5486          V598= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V598= STREF(object,(base0[1]->c.c_car),44);
5487          V599= STREF(object,(base0[1]->c.c_car),40);          if(type_of(V592)==t_structure){
5488          V600= (long)STREF(fixnum,(base0[1]->c.c_car),24);          goto T2591;}
5489          V601= (long)STREF(fixnum,(base0[1]->c.c_car),28);          goto T2589;
5490          V602= STREF(object,(base0[1]->c.c_car),44);          goto T2591;
5491          if(type_of(V596)==t_structure){  T2591:;
5492          goto T2561;}          if(!(((V592)->str.str_def)==(VV[124]))){
5493          goto T2559;          goto T2589;}
5494          goto T2561;          V599= STREF(object,(V592),0);
5495  T2561:;          goto T2587;
5496          if(!(((V596)->str.str_def)==(VV[101]))){          goto T2589;
5497          goto T2559;}  T2589:;{object V601;
5498          V603= STREF(object,(V596),0);          V601= (VV[42]->s.s_dbind);
         goto T2557;  
         goto T2559;  
 T2559:;{object V605;  
         V605= (VV[33]->s.s_dbind);  
5499          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
5500          base[2]= (V596);          base[2]= (V592);
5501          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5502          (void) (*Lnk257)();          (void) (*Lnk287)();
5503          vs_top=sup;          vs_top=sup;
5504          V606= vs_base[0];          V602= vs_base[0];
5505          if(!((V605)==(CMPcar(V606)))){          if(!((V601)==(CMPcar(V602)))){
5506          goto T2564;}}          goto T2594;}}
5507          V603= CMPcar(((V596))->cc.cc_turbo[13]);          V599= CMPcar(((V592))->cc.cc_turbo[13]);
5508          goto T2557;          goto T2587;
5509          goto T2564;          goto T2594;
5510  T2564:;  T2594:;
5511          if(!(type_of((V596))==t_structure)){          if(!(type_of((V592))==t_structure)){
5512          goto T2570;}          goto T2600;}
5513          V603= (*(LnkLI260))((V596));          V599= (*(LnkLI290))((V592));
5514          goto T2557;          goto T2587;
5515          goto T2570;          goto T2600;
5516  T2570:;  T2600:;
5517          if(!(type_of((V596))==t_symbol)){          if(!(type_of((V592))==t_symbol)){
5518          goto T2573;}          goto T2603;}
5519          if(((V596))==Cnil){          if(((V592))==Cnil){
5520          goto T2576;}          goto T2606;}
5521          V603= (VV[47]->s.s_dbind);          V599= (VV[56]->s.s_dbind);
5522          goto T2557;          goto T2587;
5523          goto T2576;          goto T2606;
5524  T2576:;  T2606:;
5525          V603= (VV[48]->s.s_dbind);          V599= (VV[57]->s.s_dbind);
5526          goto T2557;          goto T2587;
5527          goto T2573;          goto T2603;
5528  T2573:;  T2603:;
5529          V603= (*(LnkLI261))((V596));          V599= (*(LnkLI291))((V592));
5530          goto T2557;          goto T2587;
5531  T2557:;  T2587:;
5532          {long V607;          {long V603;
5533          long V608;          long V604;
5534          {long V609;          {long V605;
5535          V609= fix(((V603))->v.v_self[V598]);          V605= fix(((V599))->v.v_self[V594]);
5536          if(!((V609)==0)){          if(!((V605)==0)){
5537          goto T2581;}          goto T2611;}
         goto T2551;  
5538          goto T2581;          goto T2581;
5539  T2581:;          goto T2611;
5540          V607= (long)((V600) & (V609));}  T2611:;
5541          {object V610;          V603= (long)((V596) & (V605));}
5542          V610= ((V599))->v.v_self[0];          {object V606;
5543          if(type_of((V610))==t_fixnum){          V606= ((V595))->v.v_self[0];
5544          goto T2586;}          if(type_of((V606))==t_fixnum){
5545          base[1]= VV[49];          goto T2616;}
5546            base[1]= VV[58];
5547          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5548          Lerror();          Lerror();
5549          vs_top=sup;          vs_top=sup;
5550          goto T2586;          goto T2616;
5551  T2586:;  T2616:;
5552          V608= fix((V610));}          V604= fix((V606));}
5553          {register long V611;          {register long V607;
5554          V611= V607;          V607= V603;
5555          goto T2593;          goto T2623;
5556  T2593:;  T2623:;
5557          if(!(((V603))==(((V599))->v.v_self[V611]))){          if(!(((V599))==(((V595))->v.v_self[V607]))){
5558          goto T2595;}          goto T2625;}
5559          V597= ((V599))->v.v_self[(long)(V611)+1];          V593= ((V595))->v.v_self[(long)(V607)+1];
5560          goto T2591;          goto T2621;
5561          goto T2595;          goto T2625;
5562  T2595:;  T2625:;
5563          V611= (long)(V611)+(2);          V607= (long)(V607)+(2);
5564          if(!((V611)==(V601))){          if(!((V607)==(V597))){
         goto T2602;}  
         V611= 0;  
         goto T2602;  
 T2602:;  
         if(!((V611)==(V607))){  
         goto T2594;}  
         {register object V612;  
         register object V613;  
         V612= (V602);  
         V613= CMPcar((V612));  
         goto T2612;  
 T2612:;  
         if(!(((V612))==Cnil)){  
         goto T2613;}  
         goto T2608;  
         goto T2613;  
 T2613:;  
         if(!((CMPcar((V613)))==((V603)))){  
         goto T2617;}  
         V597= CMPcdr((V613));  
         goto T2591;  
         goto T2617;  
 T2617:;  
         V612= CMPcdr((V612));  
         V613= CMPcar((V612));  
         goto T2612;}  
         goto T2608;  
 T2608:;  
         goto T2551;  
         goto T2594;  
 T2594:;  
         goto T2593;  
         goto T2591;  
 T2591:;  
         V614 = V608;  
         {object V616;  
         V616= ((V599))->v.v_self[0];  
         if(type_of((V616))==t_fixnum){  
5565          goto T2632;}          goto T2632;}
5566          base[1]= VV[49];          V607= 0;
5567            goto T2632;
5568    T2632:;
5569            if(!((V607)==(V603))){
5570            goto T2624;}
5571            {register object V608;
5572            register object V609;
5573            V608= (V598);
5574            V609= CMPcar((V608));
5575            goto T2642;
5576    T2642:;
5577            if(!(((V608))==Cnil)){
5578            goto T2643;}
5579            goto T2638;
5580            goto T2643;
5581    T2643:;
5582            if(!((CMPcar((V609)))==((V599)))){
5583            goto T2647;}
5584            V593= CMPcdr((V609));
5585            goto T2621;
5586            goto T2647;
5587    T2647:;
5588            V608= CMPcdr((V608));
5589            V609= CMPcar((V608));
5590            goto T2642;}
5591            goto T2638;
5592    T2638:;
5593            goto T2581;
5594            goto T2624;
5595    T2624:;
5596            goto T2623;
5597            goto T2621;
5598    T2621:;
5599            {object V611;
5600            V611= ((V595))->v.v_self[0];
5601            if(type_of((V611))==t_fixnum){
5602            goto T2662;}
5603            base[1]= VV[58];
5604          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5605          Lerror();          Lerror();
5606          vs_top=sup;          vs_top=sup;
5607          goto T2632;          goto T2662;
5608  T2632:;  T2662:;
5609          V615= fix((V616));}          V610= fix((V611));}
5610          if((V614)==(V615)){          if((V604)==(V610)){
5611          goto T2578;}          goto T2608;}
5612          goto T2551;}}          goto T2581;}}
5613          goto T2578;          goto T2608;
5614  T2578:;  T2608:;
5615          base[1]= (V597);          base[1]= (V593);
5616          base[2]= VV[2];          base[2]= VV[2];
5617          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5618          (void) (*Lnk262)();          (void) (*Lnk292)();
5619          vs_top=sup;          vs_top=sup;
5620          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5621          goto T2638;}          goto T2668;}
5622          base[1]= STREF(object,(V597),0);          base[1]= STREF(object,(V593),0);
5623          base[2]= STREF(object,(V597),4);          base[2]= STREF(object,(V593),4);
5624          base[3]= STREF(object,(V597),8);          base[3]= STREF(object,(V593),8);
5625          base[4]= (V596);          base[4]= (V592);
5626          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
5627          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5628                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5629                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5630                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5631          return;          return;
5632          goto T2638;          goto T2668;
5633  T2638:;  T2668:;
5634          if(!(type_of((V597))==t_fixnum)){          if(!(type_of((V593))==t_fixnum)){
5635          goto T2647;}          goto T2677;}
5636          {object V617;          {object V612;
5637          object V618;          object V613;
5638          if(type_of(V596)==t_structure){          if(type_of(V592)==t_structure){
5639          goto T2653;}          goto T2683;}
5640          goto T2651;          goto T2681;
5641          goto T2653;          goto T2683;
5642  T2653:;  T2683:;
5643          if(!(((V596)->str.str_def)==(VV[102]))){          if(!(((V592)->str.str_def)==(VV[125]))){
5644          goto T2651;}          goto T2681;}
5645          V617= STREF(object,(V596),4);          V612= STREF(object,(V592),4);
5646          goto T2649;          goto T2679;
5647          goto T2651;          goto T2681;
5648  T2651:;{object V620;  T2681:;{object V615;
5649          V620= (VV[33]->s.s_dbind);          V615= (VV[42]->s.s_dbind);
5650          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
5651          base[4]= (V596);          base[4]= (V592);
5652          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5653          (void) (*Lnk257)();          (void) (*Lnk287)();
5654          vs_top=sup;          vs_top=sup;
5655          V621= vs_base[0];          V616= vs_base[0];
5656          if(!((V620)==(CMPcar(V621)))){          if(!((V615)==(CMPcar(V616)))){
5657          goto T2656;}}          goto T2686;}}
5658          V617= CMPcar(((V596))->cc.cc_turbo[12]);          V612= CMPcar(((V592))->cc.cc_turbo[12]);
5659          goto T2649;          goto T2679;
5660          goto T2656;          goto T2686;
5661  T2656:;  T2686:;
5662          V617= Cnil;          V612= Cnil;
5663          goto T2649;          goto T2679;
5664  T2649:;  T2679:;
5665          if(((V617))==Cnil){          if(((V612))==Cnil){
5666          goto T2663;}          goto T2693;}
5667          V618= ((V617))->v.v_self[fix((V597))];          V613= ((V612))->v.v_self[fix((V593))];
5668          goto T2661;          goto T2691;
5669          goto T2663;          goto T2693;
5670  T2663:;  T2693:;
5671          V618= Cnil;          V613= Cnil;
5672          goto T2661;          goto T2691;
5673  T2661:;  T2691:;
5674          if(!(((V618))==(VV[34]))){          if(!(((V613))==(VV[43]))){
5675          goto T2666;}          goto T2696;}
5676          base[3]= (V596);          base[3]= (V592);
5677          base[4]= (V597);          base[4]= (V593);
5678          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5679          (void) (*Lnk263)();          (void) (*Lnk293)();
5680          return;          return;
5681          goto T2666;          goto T2696;
5682  T2666:;  T2696:;
5683          base[3]= (V618);          base[3]= (V613);
5684          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5685          return;}          return;}
5686          goto T2647;          goto T2677;
5687  T2647:;  T2677:;
5688          base[1]= V597;          base[1]= V593;
5689          base[2]= VV[10];          base[2]= VV[10];
5690          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5691          (void) (*Lnk262)();          (void) (*Lnk292)();
5692          vs_top=sup;          vs_top=sup;
5693          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5694          goto T2671;}          goto T2701;}
5695          {object V623;          {object V619;
5696          object V624;          object V620;
5697          object V625;          object V621;
5698          V623= STREF(object,(V597),0);          V619= STREF(object,(V593),0);
5699          V624= make_cons((V596),Cnil);          V620= make_cons((V592),Cnil);
5700          V625= STREF(object,(V597),4);          V621= STREF(object,(V593),4);
5701          if(((V625))==Cnil){          if(((V621))==Cnil){
5702          goto T2679;}          goto T2709;}
5703          if((CMPcdr((V625)))!=Cnil){          if((CMPcdr((V621)))!=Cnil){
5704          goto T2679;}          goto T2709;}
5705          base[1]= (V624);          base[1]= (V620);
5706          base[2]= CMPcar((V625));          base[2]= CMPcar((V621));
5707          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5708          {object _funobj = (V623);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V619);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5709                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5710                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5711                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5712          return;          return;
5713          goto T2679;          goto T2709;
5714  T2679:;  T2709:;
5715          base[1]= (V623);          base[1]= (V619);
5716          base[2]= (V624);          base[2]= (V620);
5717          {object V626;          {object V622;
5718          V626= (V625);          V622= (V621);
5719           vs_top=base+3;           vs_top=base+3;
5720           while(V626!=Cnil)           while(V622!=Cnil)
5721           {vs_push((V626)->c.c_car);V626=(V626)->c.c_cdr;}           {vs_push((V622)->c.c_car);V622=(V622)->c.c_cdr;}
5722          vs_base=base+2;}          vs_base=base+2;}
5723          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5724                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5725                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5726                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5727          return;}          return;}
5728          goto T2671;          goto T2701;
5729  T2671:;  T2701:;
5730          base[1]= V597;          base[1]= V593;
5731          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5732          Lfunctionp();          Lfunctionp();
5733          vs_top=sup;          vs_top=sup;
5734          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5735          goto T2689;}          goto T2719;}
5736          base[1]= (V596);          base[1]= (V592);
5737          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5738          {object _funobj = (V597);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V593);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5739                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5740                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5741                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5742          return;          return;
5743          goto T2689;          goto T2719;
5744  T2689:;  T2719:;
5745          base[2]= VV[11];          base[1]= VV[11];
5746          base[3]= V597;          base[2]= VV[12];
5747          base[4]= VV[103];          base[3]= VV[13];
5748          vs_top=(vs_base=base+2)+3;          base[4]= VV[14];
5749          (void) (*Lnk264)();          base[5]= V593;
5750          vs_top=sup;          base[6]= VV[15];
5751          base[1]= vs_base[0];          base[7]= VV[126];
5752          vs_top=(vs_base=base+1)+1;          base[8]= VV[17];
5753          Lerror();          base[9]= VV[127];
5754            vs_top=(vs_base=base+1)+9;
5755            (void) (*Lnk294)();
5756          return;}          return;}
5757          goto T2551;          goto T2581;
5758  T2551:;  T2581:;
5759          base[1]= (V596);          base[1]= (V592);
5760          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5761          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5762                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5788  register object *base0; Line 5791  register object *base0;
5791  {       register object *base=vs_base;  {       register object *base=vs_base;
5792          register object *sup=base+VM115; VC115          register object *sup=base+VM115; VC115
5793          vs_check;          vs_check;
5794          {object V627;          {object V623;
5795          object V628;          object V624;
5796          object V629;          object V625;
5797          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
5798          V627=(base[0]);          V623=(base[0]);
5799          V628=(base[1]);          V624=(base[1]);
5800          vs_base=vs_base+2;          vs_base=vs_base+2;
5801          vs_top[0]=Cnil;          vs_top[0]=Cnil;
5802          {object *p=vs_top;          {object *p=vs_top;
5803           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
5804          V629=(base[2]);          V625=(base[2]);
5805          vs_top=sup;          vs_top=sup;
5806          {register object V630;          {register object V626;
5807          V630= Cnil;          V626= Cnil;
5808          {long V631;          {long V627;
5809            register object V628;
5810            long V629;
5811            long V630;
5812            object V631;
5813          register object V632;          register object V632;
5814          long V633;          V627= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
5815          long V634;          V628= STREF(object,(base0[1]->c.c_car),40);
5816          object V635;          V629= (long)STREF(fixnum,(base0[1]->c.c_car),24);
5817          register object V636;          V630= (long)STREF(fixnum,(base0[1]->c.c_car),28);
5818          V631= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V631= STREF(object,(base0[1]->c.c_car),44);
5819          V632= STREF(object,(base0[1]->c.c_car),40);          if(type_of(V623)==t_structure){
5820          V633= (long)STREF(fixnum,(base0[1]->c.c_car),24);          goto T2745;}
5821          V634= (long)STREF(fixnum,(base0[1]->c.c_car),28);          goto T2743;
5822          V635= STREF(object,(base0[1]->c.c_car),44);          goto T2745;
5823          if(type_of(V627)==t_structure){  T2745:;
5824          goto T2710;}          if(!(((V623)->str.str_def)==(VV[120]))){
5825          goto T2708;          goto T2743;}
5826          goto T2710;          V632= STREF(object,(V623),0);
5827  T2710:;          goto T2741;
5828          if(!(((V627)->str.str_def)==(VV[98]))){          goto T2743;
5829          goto T2708;}  T2743:;{object V634;
5830          V636= STREF(object,(V627),0);          V634= (VV[42]->s.s_dbind);
         goto T2706;  
         goto T2708;  
 T2708:;{object V638;  
         V638= (VV[33]->s.s_dbind);  
5831          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
5832          base[4]= (V627);          base[4]= (V623);
5833          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5834          (void) (*Lnk257)();          (void) (*Lnk287)();
5835          vs_top=sup;          vs_top=sup;
5836          V639= vs_base[0];          V635= vs_base[0];
5837          if(!((V638)==(CMPcar(V639)))){          if(!((V634)==(CMPcar(V635)))){
5838          goto T2713;}}          goto T2748;}}
5839          V636= CMPcar(((V627))->cc.cc_turbo[13]);          V632= CMPcar(((V623))->cc.cc_turbo[13]);
5840          goto T2706;          goto T2741;
5841          goto T2713;          goto T2748;
5842  T2713:;  T2748:;
5843          if(!(type_of((V627))==t_structure)){          if(!(type_of((V623))==t_structure)){
5844          goto T2719;}          goto T2754;}
5845          V636= (*(LnkLI260))((V627));          V632= (*(LnkLI290))((V623));
5846          goto T2706;          goto T2741;
5847          goto T2719;          goto T2754;
5848  T2719:;  T2754:;
5849          if(!(type_of((V627))==t_symbol)){          if(!(type_of((V623))==t_symbol)){
5850          goto T2722;}          goto T2757;}
5851          if(((V627))==Cnil){          if(((V623))==Cnil){
5852          goto T2725;}          goto T2760;}
5853          V636= (VV[47]->s.s_dbind);          V632= (VV[56]->s.s_dbind);
5854          goto T2706;          goto T2741;
5855          goto T2725;          goto T2760;
5856  T2725:;  T2760:;
5857          V636= (VV[48]->s.s_dbind);          V632= (VV[57]->s.s_dbind);
5858          goto T2706;          goto T2741;
5859          goto T2722;          goto T2757;
5860  T2722:;  T2757:;
5861          V636= (*(LnkLI261))((V627));          V632= (*(LnkLI291))((V623));
5862          goto T2706;          goto T2741;
5863  T2706:;  T2741:;
5864          {long V640;          {long V636;
5865          long V641;          long V637;
5866          {long V642;          {long V638;
5867          V642= fix(((V636))->v.v_self[V631]);          V638= fix(((V632))->v.v_self[V627]);
5868          if(!((V642)==0)){          if(!((V638)==0)){
5869          goto T2730;}          goto T2765;}
5870          goto T2700;          goto T2735;
5871          goto T2730;          goto T2765;
5872  T2730:;  T2765:;
5873          V640= (long)((V633) & (V642));}          V636= (long)((V629) & (V638));}
5874          {object V643;          {object V639;
5875          V643= ((V632))->v.v_self[0];          V639= ((V628))->v.v_self[0];
5876          if(type_of((V643))==t_fixnum){          if(type_of((V639))==t_fixnum){
5877          goto T2735;}          goto T2770;}
5878          base[3]= VV[49];          base[3]= VV[58];
5879          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5880          Lerror();          Lerror();
5881          vs_top=sup;          vs_top=sup;
5882            goto T2770;
5883    T2770:;
5884            V637= fix((V639));}
5885            {register long V640;
5886            V640= V636;
5887            goto T2777;
5888    T2777:;
5889            if(!(((V632))==(((V628))->v.v_self[V640]))){
5890            goto T2779;}
5891            V626= ((V628))->v.v_self[(long)(V640)+1];
5892            goto T2775;
5893            goto T2779;
5894    T2779:;
5895            V640= (long)(V640)+(2);
5896            if(!((V640)==(V630))){
5897            goto T2786;}
5898            V640= 0;
5899            goto T2786;
5900    T2786:;
5901            if(!((V640)==(V636))){
5902            goto T2778;}
5903            {register object V641;
5904            register object V642;
5905            V641= (V631);
5906            V642= CMPcar((V641));
5907            goto T2796;
5908    T2796:;
5909            if(!(((V641))==Cnil)){
5910            goto T2797;}
5911            goto T2792;
5912            goto T2797;
5913    T2797:;
5914            if(!((CMPcar((V642)))==((V632)))){
5915            goto T2801;}
5916            V626= CMPcdr((V642));
5917            goto T2775;
5918            goto T2801;
5919    T2801:;
5920            V641= CMPcdr((V641));
5921            V642= CMPcar((V641));
5922            goto T2796;}
5923            goto T2792;
5924    T2792:;
5925          goto T2735;          goto T2735;
5926  T2735:;          goto T2778;
5927          V641= fix((V643));}  T2778:;
5928          {register long V644;          goto T2777;
5929          V644= V640;          goto T2775;
5930          goto T2742;  T2775:;
5931  T2742:;          {object V644;
5932          if(!(((V636))==(((V632))->v.v_self[V644]))){          V644= ((V628))->v.v_self[0];
5933          goto T2744;}          if(type_of((V644))==t_fixnum){
5934          V630= ((V632))->v.v_self[(long)(V644)+1];          goto T2816;}
5935          goto T2740;          base[3]= VV[58];
         goto T2744;  
 T2744:;  
         V644= (long)(V644)+(2);  
         if(!((V644)==(V634))){  
         goto T2751;}  
         V644= 0;  
         goto T2751;  
 T2751:;  
         if(!((V644)==(V640))){  
         goto T2743;}  
         {register object V645;  
         register object V646;  
         V645= (V635);  
         V646= CMPcar((V645));  
         goto T2761;  
 T2761:;  
         if(!(((V645))==Cnil)){  
         goto T2762;}  
         goto T2757;  
         goto T2762;  
 T2762:;  
         if(!((CMPcar((V646)))==((V636)))){  
         goto T2766;}  
         V630= CMPcdr((V646));  
         goto T2740;  
         goto T2766;  
 T2766:;  
         V645= CMPcdr((V645));  
         V646= CMPcar((V645));  
         goto T2761;}  
         goto T2757;  
 T2757:;  
         goto T2700;  
         goto T2743;  
 T2743:;  
         goto T2742;  
         goto T2740;  
 T2740:;  
         V647 = V641;  
         {object V649;  
         V649= ((V632))->v.v_self[0];  
         if(type_of((V649))==t_fixnum){  
         goto T2781;}  
         base[3]= VV[49];  
5936          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5937          Lerror();          Lerror();
5938          vs_top=sup;          vs_top=sup;
5939          goto T2781;          goto T2816;
5940  T2781:;  T2816:;
5941          V648= fix((V649));}          V643= fix((V644));}
5942          if((V647)==(V648)){          if((V637)==(V643)){
5943          goto T2727;}          goto T2762;}
5944          goto T2700;}}          goto T2735;}}
5945          goto T2727;          goto T2762;
5946  T2727:;  T2762:;
5947          base[3]= (V630);          base[3]= (V626);
5948          base[4]= VV[2];          base[4]= VV[2];
5949          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5950          (void) (*Lnk262)();          (void) (*Lnk292)();
5951          vs_top=sup;          vs_top=sup;
5952          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5953          goto T2787;}          goto T2822;}
5954          base[3]= STREF(object,(V630),0);          base[3]= STREF(object,(V626),0);
5955          base[4]= STREF(object,(V630),4);          base[4]= STREF(object,(V626),4);
5956          base[5]= STREF(object,(V630),8);          base[5]= STREF(object,(V626),8);
5957          base[6]= (V627);          base[6]= (V623);
5958          base[7]= (V628);          base[7]= (V624);
5959          base[8]= (V629);          base[8]= (V625);
5960          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
5961          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5962                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5963                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5964                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5965          return;          return;
5966          goto T2787;          goto T2822;
5967  T2787:;  T2822:;
5968          base[3]= V630;          base[3]= V626;
5969          base[4]= VV[10];          base[4]= VV[10];
5970          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5971          (void) (*Lnk262)();          (void) (*Lnk292)();
5972          vs_top=sup;          vs_top=sup;
5973          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5974          goto T2798;}          goto T2833;}
5975          {object V651;          {object V647;
5976          object V652;          object V648;
5977          object V653;          object V649;
5978          V651= STREF(object,(V630),0);          V647= STREF(object,(V626),0);
5979          V652= listA(3,(V627),(V628),(V629));          V648= listA(3,(V623),(V624),(V625));
5980          V653= STREF(object,(V630),4);          V649= STREF(object,(V626),4);
5981          if(((V653))==Cnil){          if(((V649))==Cnil){
5982          goto T2806;}          goto T2841;}
5983          if((CMPcdr((V653)))!=Cnil){          if((CMPcdr((V649)))!=Cnil){
5984          goto T2806;}          goto T2841;}
5985          base[3]= (V652);          base[3]= (V648);
5986          base[4]= CMPcar((V653));          base[4]= CMPcar((V649));
5987          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5988          {object _funobj = (V651);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V647);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5989                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5990                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5991                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5992          return;          return;
5993          goto T2806;          goto T2841;
5994  T2806:;  T2841:;
5995          base[3]= (V651);          base[3]= (V647);
5996          base[4]= (V652);          base[4]= (V648);
5997          {object V654;          {object V650;
5998          V654= (V653);          V650= (V649);
5999           vs_top=base+5;           vs_top=base+5;
6000           while(V654!=Cnil)           while(V650!=Cnil)
6001           {vs_push((V654)->c.c_car);V654=(V654)->c.c_cdr;}           {vs_push((V650)->c.c_car);V650=(V650)->c.c_cdr;}
6002          vs_base=base+4;}          vs_base=base+4;}
6003          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6004                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6005                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6006                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6007          return;}          return;}
6008          goto T2798;          goto T2833;
6009  T2798:;  T2833:;
6010          base[3]= V630;          base[3]= V626;
6011          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6012          Lfunctionp();          Lfunctionp();
6013          vs_top=sup;          vs_top=sup;
6014          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6015          goto T2816;}          goto T2851;}
6016          base[3]= (V630);          base[3]= (V626);
6017          base[4]= (V627);          base[4]= (V623);
6018          base[5]= (V628);          base[5]= (V624);
6019          {object V655;          {object V651;
6020          V655= (V629);          V651= (V625);
6021           vs_top=base+6;           vs_top=base+6;
6022           while(V655!=Cnil)           while(V651!=Cnil)
6023           {vs_push((V655)->c.c_car);V655=(V655)->c.c_cdr;}           {vs_push((V651)->c.c_car);V651=(V651)->c.c_cdr;}
6024          vs_base=base+4;}          vs_base=base+4;}
6025          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6026                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6027                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6028                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6029          return;          return;
6030          goto T2816;          goto T2851;
6031  T2816:;  T2851:;
6032          base[4]= VV[11];          base[3]= VV[11];
6033          base[5]= V630;          base[4]= VV[12];
6034          base[6]= VV[99];          base[5]= VV[13];
6035          vs_top=(vs_base=base+4)+3;          base[6]= VV[14];
6036          (void) (*Lnk264)();          base[7]= V626;
6037          vs_top=sup;          base[8]= VV[15];
6038          base[3]= vs_base[0];          base[9]= VV[121];
6039          vs_top=(vs_base=base+3)+1;          base[10]= VV[17];
6040          Lerror();          base[11]= VV[122];
6041            vs_top=(vs_base=base+3)+9;
6042            (void) (*Lnk294)();
6043          return;}          return;}
6044          goto T2700;          goto T2735;
6045  T2700:;  T2735:;
6046          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
6047          base[4]= (V627);          base[4]= (V623);
6048          base[5]= (V628);          base[5]= (V624);
6049          {object V656;          {object V652;
6050          V656= (V629);          V652= (V625);
6051           vs_top=base+6;           vs_top=base+6;
6052           while(V656!=Cnil)           while(V652!=Cnil)
6053           {vs_push((V656)->c.c_car);V656=(V656)->c.c_cdr;}           {vs_push((V652)->c.c_car);V652=(V652)->c.c_cdr;}
6054          vs_base=base+4;}          vs_base=base+4;}
6055          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6056                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6081  register object *base0; Line 6085  register object *base0;
6085  {       register object *base=vs_base;  {       register object *base=vs_base;
6086          register object *sup=base+VM117; VC117          register object *sup=base+VM117; VC117
6087          vs_check;          vs_check;
6088          {object V657;          {object V653;
6089          object V658;          object V654;
6090          check_arg(2);          check_arg(2);
6091          V657=(base[0]);          V653=(base[0]);
6092          V658=(base[1]);          V654=(base[1]);
6093          vs_top=sup;          vs_top=sup;
6094          {register object V659;          {register object V655;
6095          V659= Cnil;          V655= Cnil;
6096          {long V660;          {long V656;
6097            register object V657;
6098            long V658;
6099            long V659;
6100            object V660;
6101          register object V661;          register object V661;
6102          long V662;          V656= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
6103          long V663;          V657= STREF(object,(base0[1]->c.c_car),40);
6104          object V664;          V658= (long)STREF(fixnum,(base0[1]->c.c_car),24);
6105          register object V665;          V659= (long)STREF(fixnum,(base0[1]->c.c_car),28);
6106          V660= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V660= STREF(object,(base0[1]->c.c_car),44);
6107          V661= STREF(object,(base0[1]->c.c_car),40);          if(type_of(V653)==t_structure){
6108          V662= (long)STREF(fixnum,(base0[1]->c.c_car),24);          goto T2883;}
6109          V663= (long)STREF(fixnum,(base0[1]->c.c_car),28);          goto T2881;
6110          V664= STREF(object,(base0[1]->c.c_car),44);          goto T2883;
6111          if(type_of(V657)==t_structure){  T2883:;
6112          goto T2843;}          if(!(((V653)->str.str_def)==(VV[115]))){
6113          goto T2841;          goto T2881;}
6114          goto T2843;          V661= STREF(object,(V653),0);
6115  T2843:;          goto T2879;
6116          if(!(((V657)->str.str_def)==(VV[94]))){          goto T2881;
6117          goto T2841;}  T2881:;{object V663;
6118          V665= STREF(object,(V657),0);          V663= (VV[42]->s.s_dbind);
         goto T2839;  
         goto T2841;  
 T2841:;{object V667;  
         V667= (VV[33]->s.s_dbind);  
6119          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6120          base[3]= (V657);          base[3]= (V653);
6121          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6122          (void) (*Lnk257)();          (void) (*Lnk287)();
         vs_top=sup;  
         V668= vs_base[0];  
         if(!((V667)==(CMPcar(V668)))){  
         goto T2846;}}  
         V665= CMPcar(((V657))->cc.cc_turbo[13]);  
         goto T2839;  
         goto T2846;  
 T2846:;  
         if(!(type_of((V657))==t_structure)){  
         goto T2852;}  
         V665= (*(LnkLI260))((V657));  
         goto T2839;  
         goto T2852;  
 T2852:;  
         if(!(type_of((V657))==t_symbol)){  
         goto T2855;}  
         if(((V657))==Cnil){  
         goto T2858;}  
         V665= (VV[47]->s.s_dbind);  
         goto T2839;  
         goto T2858;  
 T2858:;  
         V665= (VV[48]->s.s_dbind);  
         goto T2839;  
         goto T2855;  
 T2855:;  
         V665= (*(LnkLI261))((V657));  
         goto T2839;  
 T2839:;  
         {long V669;  
         long V670;  
         {long V671;  
         V671= fix(((V665))->v.v_self[V660]);  
         if(!((V671)==0)){  
         goto T2863;}  
         goto T2833;  
         goto T2863;  
 T2863:;  
         V669= (long)((V662) & (V671));}  
         {object V672;  
         V672= ((V661))->v.v_self[0];  
         if(type_of((V672))==t_fixnum){  
         goto T2868;}  
         base[2]= VV[49];  
         vs_top=(vs_base=base+2)+1;  
         Lerror();  
6123          vs_top=sup;          vs_top=sup;
6124          goto T2868;          V664= vs_base[0];
6125  T2868:;          if(!((V663)==(CMPcar(V664)))){
6126          V670= fix((V672));}          goto T2886;}}
6127          {register long V673;          V661= CMPcar(((V653))->cc.cc_turbo[13]);
6128          V673= V669;          goto T2879;
6129          goto T2875;          goto T2886;
6130  T2875:;  T2886:;
6131          if(!(((V665))==(((V661))->v.v_self[V673]))){          if(!(type_of((V653))==t_structure)){
6132          goto T2877;}          goto T2892;}
6133          V659= ((V661))->v.v_self[(long)(V673)+1];          V661= (*(LnkLI290))((V653));
6134          goto T2873;          goto T2879;
6135          goto T2877;          goto T2892;
6136  T2877:;  T2892:;
6137          V673= (long)(V673)+(2);          if(!(type_of((V653))==t_symbol)){
         if(!((V673)==(V663))){  
         goto T2884;}  
         V673= 0;  
         goto T2884;  
 T2884:;  
         if(!((V673)==(V669))){  
         goto T2876;}  
         {register object V674;  
         register object V675;  
         V674= (V664);  
         V675= CMPcar((V674));  
         goto T2894;  
 T2894:;  
         if(!(((V674))==Cnil)){  
6138          goto T2895;}          goto T2895;}
6139          goto T2890;          if(((V653))==Cnil){
6140            goto T2898;}
6141            V661= (VV[56]->s.s_dbind);
6142            goto T2879;
6143            goto T2898;
6144    T2898:;
6145            V661= (VV[57]->s.s_dbind);
6146            goto T2879;
6147          goto T2895;          goto T2895;
6148  T2895:;  T2895:;
6149          if(!((CMPcar((V675)))==((V665)))){          V661= (*(LnkLI291))((V653));
6150          goto T2899;}          goto T2879;
6151          V659= CMPcdr((V675));  T2879:;
6152            {long V665;
6153            long V666;
6154            {long V667;
6155            V667= fix(((V661))->v.v_self[V656]);
6156            if(!((V667)==0)){
6157            goto T2903;}
6158          goto T2873;          goto T2873;
6159          goto T2899;          goto T2903;
6160  T2899:;  T2903:;
6161          V674= CMPcdr((V674));          V665= (long)((V658) & (V667));}
6162          V675= CMPcar((V674));          {object V668;
6163          goto T2894;}          V668= ((V657))->v.v_self[0];
6164          goto T2890;          if(type_of((V668))==t_fixnum){
6165  T2890:;          goto T2908;}
6166          goto T2833;          base[2]= VV[58];
6167          goto T2876;          vs_top=(vs_base=base+2)+1;
6168  T2876:;          Lerror();
6169          goto T2875;          vs_top=sup;
6170            goto T2908;
6171    T2908:;
6172            V666= fix((V668));}
6173            {register long V669;
6174            V669= V665;
6175            goto T2915;
6176    T2915:;
6177            if(!(((V661))==(((V657))->v.v_self[V669]))){
6178            goto T2917;}
6179            V655= ((V657))->v.v_self[(long)(V669)+1];
6180            goto T2913;
6181            goto T2917;
6182    T2917:;
6183            V669= (long)(V669)+(2);
6184            if(!((V669)==(V659))){
6185            goto T2924;}
6186            V669= 0;
6187            goto T2924;
6188    T2924:;
6189            if(!((V669)==(V665))){
6190            goto T2916;}
6191            {register object V670;
6192            register object V671;
6193            V670= (V660);
6194            V671= CMPcar((V670));
6195            goto T2934;
6196    T2934:;
6197            if(!(((V670))==Cnil)){
6198            goto T2935;}
6199            goto T2930;
6200            goto T2935;
6201    T2935:;
6202            if(!((CMPcar((V671)))==((V661)))){
6203            goto T2939;}
6204            V655= CMPcdr((V671));
6205            goto T2913;
6206            goto T2939;
6207    T2939:;
6208            V670= CMPcdr((V670));
6209            V671= CMPcar((V670));
6210            goto T2934;}
6211            goto T2930;
6212    T2930:;
6213          goto T2873;          goto T2873;
6214  T2873:;          goto T2916;
6215          V676 = V670;  T2916:;
6216          {object V678;          goto T2915;
6217          V678= ((V661))->v.v_self[0];          goto T2913;
6218          if(type_of((V678))==t_fixnum){  T2913:;
6219          goto T2914;}          {object V673;
6220          base[2]= VV[49];          V673= ((V657))->v.v_self[0];
6221            if(type_of((V673))==t_fixnum){
6222            goto T2954;}
6223            base[2]= VV[58];
6224          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6225          Lerror();          Lerror();
6226          vs_top=sup;          vs_top=sup;
6227          goto T2914;          goto T2954;
6228  T2914:;  T2954:;
6229          V677= fix((V678));}          V672= fix((V673));}
6230          if((V676)==(V677)){          if((V666)==(V672)){
6231          goto T2860;}          goto T2900;}
6232          goto T2833;}}          goto T2873;}}
6233          goto T2860;          goto T2900;
6234  T2860:;  T2900:;
6235          base[2]= (V659);          base[2]= (V655);
6236          base[3]= VV[2];          base[3]= VV[2];
6237          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6238          (void) (*Lnk262)();          (void) (*Lnk292)();
6239          vs_top=sup;          vs_top=sup;
6240          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6241          goto T2920;}          goto T2960;}
6242          base[2]= STREF(object,(V659),0);          base[2]= STREF(object,(V655),0);
6243          base[3]= STREF(object,(V659),4);          base[3]= STREF(object,(V655),4);
6244          base[4]= STREF(object,(V659),8);          base[4]= STREF(object,(V655),8);
6245          base[5]= (V657);          base[5]= (V653);
6246          base[6]= (V658);          base[6]= (V654);
6247          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
6248          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6249                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6250                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6251                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6252          return;          return;
6253          goto T2920;          goto T2960;
6254  T2920:;  T2960:;
6255          if(!(type_of((V659))==t_fixnum)){          if(!(type_of((V655))==t_fixnum)){
6256          goto T2930;}          goto T2970;}
6257          {object V680;          {object V675;
6258          if(type_of(V657)==t_structure){          if(type_of(V653)==t_structure){
6259          goto T2936;}          goto T2976;}
6260          goto T2934;          goto T2974;
6261          goto T2936;          goto T2976;
6262  T2936:;  T2976:;
6263          if(!(((V657)->str.str_def)==(VV[95]))){          if(!(((V653)->str.str_def)==(VV[116]))){
6264          goto T2934;}          goto T2974;}
6265          V680= STREF(object,(V657),4);          V675= STREF(object,(V653),4);
6266          goto T2932;          goto T2972;
6267          goto T2934;          goto T2974;
6268  T2934:;{object V682;  T2974:;{object V677;
6269          V682= (VV[33]->s.s_dbind);          V677= (VV[42]->s.s_dbind);
6270          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6271          base[3]= (V657);          base[3]= (V653);
6272          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6273          (void) (*Lnk257)();          (void) (*Lnk287)();
6274          vs_top=sup;          vs_top=sup;
6275          V683= vs_base[0];          V678= vs_base[0];
6276          if(!((V682)==(CMPcar(V683)))){          if(!((V677)==(CMPcar(V678)))){
6277          goto T2939;}}          goto T2979;}}
6278          V680= CMPcar(((V657))->cc.cc_turbo[12]);          V675= CMPcar(((V653))->cc.cc_turbo[12]);
6279          goto T2932;          goto T2972;
6280          goto T2939;          goto T2979;
6281  T2939:;  T2979:;
6282          V680= Cnil;          V675= Cnil;
6283          goto T2932;          goto T2972;
6284  T2932:;  T2972:;
6285          if(((V680))==Cnil){          if(((V675))==Cnil){
6286          goto T2945;}          goto T2985;}
6287          base[2]= ((V680))->v.v_self[fix((V659))]= (V657);          base[2]= ((V675))->v.v_self[fix((V655))]= (V653);
6288          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6289          return;          return;
6290          goto T2945;          goto T2985;
6291  T2945:;  T2985:;
6292          base[2]= Cnil;          base[2]= Cnil;
6293          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6294          return;}          return;}
6295          goto T2930;          goto T2970;
6296  T2930:;  T2970:;
6297          base[2]= V659;          base[2]= V655;
6298          base[3]= VV[10];          base[3]= VV[10];
6299          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6300          (void) (*Lnk262)();          (void) (*Lnk292)();
6301          vs_top=sup;          vs_top=sup;
6302          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6303          goto T2948;}          goto T2988;}
6304          {object V685;          {object V681;
6305          object V686;          object V682;
6306          object V687;          object V683;
6307          V685= STREF(object,(V659),0);          V681= STREF(object,(V655),0);
6308          V686= list(2,(V657),(V658));          V682= list(2,(V653),(V654));
6309          V687= STREF(object,(V659),4);          V683= STREF(object,(V655),4);
6310          if(((V687))==Cnil){          if(((V683))==Cnil){
6311          goto T2956;}          goto T2996;}
6312          if((CMPcdr((V687)))!=Cnil){          if((CMPcdr((V683)))!=Cnil){
6313          goto T2956;}          goto T2996;}
6314          base[2]= (V686);          base[2]= (V682);
6315          base[3]= CMPcar((V687));          base[3]= CMPcar((V683));
6316          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6317          {object _funobj = (V685);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V681);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6318                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6319                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6320                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6321          return;          return;
6322          goto T2956;          goto T2996;
6323  T2956:;  T2996:;
6324          base[2]= (V685);          base[2]= (V681);
6325          base[3]= (V686);          base[3]= (V682);
6326          {object V688;          {object V684;
6327          V688= (V687);          V684= (V683);
6328           vs_top=base+4;           vs_top=base+4;
6329           while(V688!=Cnil)           while(V684!=Cnil)
6330           {vs_push((V688)->c.c_car);V688=(V688)->c.c_cdr;}           {vs_push((V684)->c.c_car);V684=(V684)->c.c_cdr;}
6331          vs_base=base+3;}          vs_base=base+3;}
6332          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6333                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6334                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6335                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6336          return;}          return;}
6337          goto T2948;          goto T2988;
6338  T2948:;  T2988:;
6339          base[2]= V659;          base[2]= V655;
6340          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6341          Lfunctionp();          Lfunctionp();
6342          vs_top=sup;          vs_top=sup;
6343          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6344          goto T2966;}          goto T3006;}
6345          base[2]= (V657);          base[2]= (V653);
6346          base[3]= (V658);          base[3]= (V654);
6347          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6348          {object _funobj = (V659);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V655);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6349                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6350                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6351                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6352          return;          return;
6353          goto T2966;          goto T3006;
6354  T2966:;  T3006:;
6355          base[3]= VV[11];          base[2]= VV[11];
6356          base[4]= V659;          base[3]= VV[12];
6357          base[5]= VV[96];          base[4]= VV[13];
6358          vs_top=(vs_base=base+3)+3;          base[5]= VV[14];
6359          (void) (*Lnk264)();          base[6]= V655;
6360          vs_top=sup;          base[7]= VV[15];
6361          base[2]= vs_base[0];          base[8]= VV[117];
6362          vs_top=(vs_base=base+2)+1;          base[9]= VV[17];
6363          Lerror();          base[10]= VV[118];
6364            vs_top=(vs_base=base+2)+9;
6365            (void) (*Lnk294)();
6366          return;}          return;}
6367          goto T2833;          goto T2873;
6368  T2833:;  T2873:;
6369          base[2]= (V657);          base[2]= (V653);
6370          base[3]= (V658);          base[3]= (V654);
6371          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6372          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6373                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6397  register object *base0; Line 6402  register object *base0;
6402  {       register object *base=vs_base;  {       register object *base=vs_base;
6403          register object *sup=base+VM119; VC119          register object *sup=base+VM119; VC119
6404          vs_check;          vs_check;
6405          {object V689;          {object V685;
6406          object V690;          object V686;
6407          check_arg(2);          check_arg(2);
6408          V689=(base[0]);          V685=(base[0]);
6409          V690=(base[1]);          V686=(base[1]);
6410          vs_top=sup;          vs_top=sup;
6411          {object V691;          {object V687;
6412          V691= Cnil;          V687= Cnil;
6413          {long V692;          {long V688;
6414            object V689;
6415            long V690;
6416            long V691;
6417            object V692;
6418          object V693;          object V693;
6419          long V694;          object V694;
6420          long V695;          V688= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
6421          object V696;          V689= STREF(object,(base0[1]->c.c_car),40);
6422          object V697;          V690= (long)STREF(fixnum,(base0[1]->c.c_car),24);
6423          object V698;          V691= (long)STREF(fixnum,(base0[1]->c.c_car),28);
6424          V692= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V692= STREF(object,(base0[1]->c.c_car),44);
6425          V693= STREF(object,(base0[1]->c.c_car),40);          if(type_of(V685)==t_structure){
6426          V694= (long)STREF(fixnum,(base0[1]->c.c_car),24);          goto T3034;}
6427          V695= (long)STREF(fixnum,(base0[1]->c.c_car),28);          goto T3032;
6428          V696= STREF(object,(base0[1]->c.c_car),44);          goto T3034;
6429          if(type_of(V689)==t_structure){  T3034:;
6430          goto T2989;}          if(!(((V685)->str.str_def)==(VV[109]))){
6431          goto T2987;          goto T3032;}
6432          goto T2989;          V693= STREF(object,(V685),0);
6433  T2989:;          goto T3030;
6434          if(!(((V689)->str.str_def)==(VV[89]))){          goto T3032;
6435          goto T2987;}  T3032:;{object V696;
6436          V697= STREF(object,(V689),0);          V696= (VV[42]->s.s_dbind);
         goto T2985;  
         goto T2987;  
 T2987:;{object V700;  
         V700= (VV[33]->s.s_dbind);  
6437          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6438          base[3]= (V689);          base[3]= (V685);
6439          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6440          (void) (*Lnk257)();          (void) (*Lnk287)();
6441          vs_top=sup;          vs_top=sup;
6442          V701= vs_base[0];          V697= vs_base[0];
6443          if(!((V700)==(CMPcar(V701)))){          if(!((V696)==(CMPcar(V697)))){
6444          goto T2992;}}          goto T3037;}}
6445          V697= CMPcar(((V689))->cc.cc_turbo[13]);          V693= CMPcar(((V685))->cc.cc_turbo[13]);
6446          goto T2985;          goto T3030;
6447          goto T2992;          goto T3037;
6448  T2992:;  T3037:;
6449          if(!(type_of((V689))==t_structure)){          if(!(type_of((V685))==t_structure)){
6450          goto T2998;}          goto T3043;}
6451          V697= (*(LnkLI260))((V689));          V693= (*(LnkLI290))((V685));
6452          goto T2985;          goto T3030;
6453          goto T2998;          goto T3043;
6454  T2998:;  T3043:;
6455          if(!(type_of((V689))==t_symbol)){          if(!(type_of((V685))==t_symbol)){
         goto T3001;}  
         if(((V689))==Cnil){  
         goto T3004;}  
         V697= (VV[47]->s.s_dbind);  
         goto T2985;  
         goto T3004;  
 T3004:;  
         V697= (VV[48]->s.s_dbind);  
         goto T2985;  
         goto T3001;  
 T3001:;  
         V697= (*(LnkLI261))((V689));  
         goto T2985;  
 T2985:;  
         if(type_of(V690)==t_structure){  
         goto T3010;}  
         goto T3008;  
         goto T3010;  
 T3010:;  
         if(!(((V690)->str.str_def)==(VV[90]))){  
         goto T3008;}  
         V698= STREF(object,(V690),0);  
         goto T3006;  
         goto T3008;  
 T3008:;{object V703;  
         V703= (VV[33]->s.s_dbind);  
         base[2]= small_fixnum(14);  
         base[3]= (V690);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk257)();  
         vs_top=sup;  
         V704= vs_base[0];  
         if(!((V703)==(CMPcar(V704)))){  
         goto T3013;}}  
         V698= CMPcar(((V690))->cc.cc_turbo[13]);  
         goto T3006;  
         goto T3013;  
 T3013:;  
         if(!(type_of((V690))==t_structure)){  
         goto T3019;}  
         V698= (*(LnkLI260))((V690));  
         goto T3006;  
         goto T3019;  
 T3019:;  
         if(!(type_of((V690))==t_symbol)){  
         goto T3022;}  
         if(((V690))==Cnil){  
         goto T3025;}  
         V698= (VV[47]->s.s_dbind);  
         goto T3006;  
         goto T3025;  
 T3025:;  
         V698= (VV[48]->s.s_dbind);  
         goto T3006;  
         goto T3022;  
 T3022:;  
         V698= (*(LnkLI261))((V690));  
         goto T3006;  
 T3006:;  
         {long V705;  
         long V706;  
         V705= 0;  
         V706= (long)(V695)-(1);  
         {long V707;  
         V707= fix(((V697))->v.v_self[V692]);  
         if(!((V707)==0)){  
         goto T3033;}  
         goto T2979;  
         goto T3033;  
 T3033:;  
         V705= (long)(V705)+(V707);}  
         {long V708;  
         V708= fix(((V698))->v.v_self[V692]);  
         if(!((V708)==0)){  
         goto T3038;}  
         goto T2979;  
         goto T3038;  
 T3038:;  
         V705= (long)(V705)+(V708);  
         V705= (long)((V705) & (V694));}  
         {long V709;  
         {object V710;  
         V710= ((V693))->v.v_self[0];  
         if(type_of((V710))==t_fixnum){  
6456          goto T3046;}          goto T3046;}
6457          base[2]= VV[49];          if(((V685))==Cnil){
6458          vs_top=(vs_base=base+2)+1;          goto T3049;}
6459          Lerror();          V693= (VV[56]->s.s_dbind);
6460          vs_top=sup;          goto T3030;
6461            goto T3049;
6462    T3049:;
6463            V693= (VV[57]->s.s_dbind);
6464            goto T3030;
6465          goto T3046;          goto T3046;
6466  T3046:;  T3046:;
6467          V709= fix((V710));}          V693= (*(LnkLI291))((V685));
6468          {register long V711;          goto T3030;
6469          long V712;  T3030:;
6470          V711= V705;          if(type_of(V686)==t_structure){
         V712= 0;  
         goto T3054;  
 T3054:;  
         V712= (long)(V711)+(4);  
         V713 = (V693);  
         V711= (long)(V711)+(1);  
         V714 = V711;  
         if(!(((V697))==((V713)->v.v_self[V714]))){  
         goto T3058;}  
         V715 = (V693);  
         V711= (long)(V711)+(1);  
         V716 = V711;  
         if(!(((V698))==((V715)->v.v_self[V716]))){  
         goto T3058;}  
         V711= (long)(V711)+(1);  
         V691= ((V693))->v.v_self[V711];  
         goto T3052;  
         goto T3058;  
 T3058:;  
         V711= V712;  
         if(!((V711)==(V706))){  
         goto T3071;}  
         V711= 0;  
         goto T3071;  
 T3071:;  
         if(!((V711)==(V705))){  
6471          goto T3055;}          goto T3055;}
6472          {register object V717;          goto T3053;
         register object V718;  
         V717= (V696);  
         V718= CMPcar((V717));  
         goto T3081;  
 T3081:;  
         if(!(((V717))==Cnil)){  
         goto T3082;}  
         goto T3077;  
         goto T3082;  
 T3082:;  
         {register object V719;  
         V719= CMPcar((V718));  
         V720 = (V697);  
         {register object V722;  
         V722= CMPcar((V719));  
         V719= CMPcdr((V719));  
         V721= (V722);}  
         if(!((V720)==(V721))){  
         goto T3086;}  
         V723 = (V698);  
         {register object V725;  
         V725= CMPcar((V719));  
         V719= CMPcdr((V719));  
         V724= (V725);}  
         if(!((V723)==(V724))){  
         goto T3086;}  
         V691= CMPcdr((V718));  
         goto T3052;}  
         goto T3086;  
 T3086:;  
         V717= CMPcdr((V717));  
         V718= CMPcar((V717));  
         goto T3081;}  
         goto T3077;  
 T3077:;  
         goto T2979;  
6473          goto T3055;          goto T3055;
6474  T3055:;  T3055:;
6475          goto T3054;          if(!(((V686)->str.str_def)==(VV[110]))){
6476          goto T3052;          goto T3053;}
6477  T3052:;          V694= STREF(object,(V686),0);
6478          V726 = V709;          goto T3051;
6479          {object V728;          goto T3053;
6480          V728= ((V693))->v.v_self[0];  T3053:;{object V699;
6481          if(type_of((V728))==t_fixnum){          V699= (VV[42]->s.s_dbind);
6482          goto T3112;}          base[2]= small_fixnum(14);
6483          base[2]= VV[49];          base[3]= (V686);
6484          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+2;
6485          Lerror();          (void) (*Lnk287)();
6486          vs_top=sup;          vs_top=sup;
6487          goto T3112;          V700= vs_base[0];
6488  T3112:;          if(!((V699)==(CMPcar(V700)))){
6489          V727= fix((V728));}          goto T3058;}}
6490          if((V726)==(V727)){          V694= CMPcar(((V686))->cc.cc_turbo[13]);
6491          goto T3027;}          goto T3051;
6492          goto T2979;}}}          goto T3058;
6493          goto T3027;  T3058:;
6494  T3027:;          if(!(type_of((V686))==t_structure)){
6495          base[2]= (V691);          goto T3064;}
6496            V694= (*(LnkLI290))((V686));
6497            goto T3051;
6498            goto T3064;
6499    T3064:;
6500            if(!(type_of((V686))==t_symbol)){
6501            goto T3067;}
6502            if(((V686))==Cnil){
6503            goto T3070;}
6504            V694= (VV[56]->s.s_dbind);
6505            goto T3051;
6506            goto T3070;
6507    T3070:;
6508            V694= (VV[57]->s.s_dbind);
6509            goto T3051;
6510            goto T3067;
6511    T3067:;
6512            V694= (*(LnkLI291))((V686));
6513            goto T3051;
6514    T3051:;
6515            {long V701;
6516            long V702;
6517            V701= 0;
6518            V702= (long)(V691)-(1);
6519            {long V703;
6520            V703= fix(((V693))->v.v_self[V688]);
6521            if(!((V703)==0)){
6522            goto T3078;}
6523            goto T3024;
6524            goto T3078;
6525    T3078:;
6526            V701= (long)(V701)+(V703);}
6527            {long V704;
6528            V704= fix(((V694))->v.v_self[V688]);
6529            if(!((V704)==0)){
6530            goto T3083;}
6531            goto T3024;
6532            goto T3083;
6533    T3083:;
6534            V701= (long)(V701)+(V704);
6535            V701= (long)((V701) & (V690));}
6536            {long V705;
6537            {object V706;
6538            V706= ((V689))->v.v_self[0];
6539            if(type_of((V706))==t_fixnum){
6540            goto T3091;}
6541            base[2]= VV[58];
6542            vs_top=(vs_base=base+2)+1;
6543            Lerror();
6544            vs_top=sup;
6545            goto T3091;
6546    T3091:;
6547            V705= fix((V706));}
6548            {register long V707;
6549            long V708;
6550            V707= V701;
6551            V708= 0;
6552            goto T3099;
6553    T3099:;
6554            V708= (long)(V707)+(4);
6555            V707= (long)(V707)+(1);
6556            if(!(((V693))==(((V689))->v.v_self[V707]))){
6557            goto T3103;}
6558            V707= (long)(V707)+(1);
6559            if(!(((V694))==(((V689))->v.v_self[V707]))){
6560            goto T3103;}
6561            V707= (long)(V707)+(1);
6562            V687= ((V689))->v.v_self[V707];
6563            goto T3097;
6564            goto T3103;
6565    T3103:;
6566            V707= V708;
6567            if(!((V707)==(V702))){
6568            goto T3116;}
6569            V707= 0;
6570            goto T3116;
6571    T3116:;
6572            if(!((V707)==(V701))){
6573            goto T3100;}
6574            {register object V709;
6575            register object V710;
6576            V709= (V692);
6577            V710= CMPcar((V709));
6578            goto T3126;
6579    T3126:;
6580            if(!(((V709))==Cnil)){
6581            goto T3127;}
6582            goto T3122;
6583            goto T3127;
6584    T3127:;
6585            {register object V711;
6586            V711= CMPcar((V710));
6587            {register object V713;
6588            V713= CMPcar((V711));
6589            V711= CMPcdr((V711));
6590            V712= (V713);}
6591            if(!(((V693))==(V712))){
6592            goto T3131;}
6593            {register object V715;
6594            V715= CMPcar((V711));
6595            V711= CMPcdr((V711));
6596            V714= (V715);}
6597            if(!(((V694))==(V714))){
6598            goto T3131;}
6599            V687= CMPcdr((V710));
6600            goto T3097;}
6601            goto T3131;
6602    T3131:;
6603            V709= CMPcdr((V709));
6604            V710= CMPcar((V709));
6605            goto T3126;}
6606            goto T3122;
6607    T3122:;
6608            goto T3024;
6609            goto T3100;
6610    T3100:;
6611            goto T3099;
6612            goto T3097;
6613    T3097:;
6614            {object V717;
6615            V717= ((V689))->v.v_self[0];
6616            if(type_of((V717))==t_fixnum){
6617            goto T3157;}
6618            base[2]= VV[58];
6619            vs_top=(vs_base=base+2)+1;
6620            Lerror();
6621            vs_top=sup;
6622            goto T3157;
6623    T3157:;
6624            V716= fix((V717));}
6625            if((V705)==(V716)){
6626            goto T3072;}
6627            goto T3024;}}}
6628            goto T3072;
6629    T3072:;
6630            base[2]= (V687);
6631          base[3]= VV[2];          base[3]= VV[2];
6632          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6633          (void) (*Lnk262)();          (void) (*Lnk292)();
6634          vs_top=sup;          vs_top=sup;
6635          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6636          goto T3118;}          goto T3163;}
6637          base[2]= STREF(object,(V691),0);          base[2]= STREF(object,(V687),0);
6638          base[3]= STREF(object,(V691),4);          base[3]= STREF(object,(V687),4);
6639          base[4]= STREF(object,(V691),8);          base[4]= STREF(object,(V687),8);
6640          base[5]= (V689);          base[5]= (V685);
6641          base[6]= (V690);          base[6]= (V686);
6642          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
6643          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6644                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6645                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6646                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6647          return;          return;
6648          goto T3118;          goto T3163;
6649  T3118:;  T3163:;
6650          if(!(type_of((V691))==t_fixnum)){          if(!(type_of((V687))==t_fixnum)){
6651          goto T3128;}          goto T3173;}
6652          {object V730;          {object V719;
6653          if(type_of(V689)==t_structure){          if(type_of(V685)==t_structure){
6654          goto T3134;}          goto T3179;}
6655          goto T3132;          goto T3177;
6656          goto T3134;          goto T3179;
6657  T3134:;  T3179:;
6658          if(!(((V689)->str.str_def)==(VV[91]))){          if(!(((V685)->str.str_def)==(VV[111]))){
6659          goto T3132;}          goto T3177;}
6660          V730= STREF(object,(V689),4);          V719= STREF(object,(V685),4);
6661          goto T3130;          goto T3175;
6662          goto T3132;          goto T3177;
6663  T3132:;{object V732;  T3177:;{object V721;
6664          V732= (VV[33]->s.s_dbind);          V721= (VV[42]->s.s_dbind);
6665          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6666          base[3]= (V689);          base[3]= (V685);
6667          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6668          (void) (*Lnk257)();          (void) (*Lnk287)();
6669          vs_top=sup;          vs_top=sup;
6670          V733= vs_base[0];          V722= vs_base[0];
6671          if(!((V732)==(CMPcar(V733)))){          if(!((V721)==(CMPcar(V722)))){
6672          goto T3137;}}          goto T3182;}}
6673          V730= CMPcar(((V689))->cc.cc_turbo[12]);          V719= CMPcar(((V685))->cc.cc_turbo[12]);
6674          goto T3130;          goto T3175;
6675          goto T3137;          goto T3182;
6676  T3137:;  T3182:;
6677          V730= Cnil;          V719= Cnil;
6678          goto T3130;          goto T3175;
6679  T3130:;  T3175:;
6680          if(((V730))==Cnil){          if(((V719))==Cnil){
6681          goto T3143;}          goto T3188;}
6682          base[2]= ((V730))->v.v_self[fix((V691))]= (V689);          base[2]= ((V719))->v.v_self[fix((V687))]= (V685);
6683          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6684          return;          return;
6685          goto T3143;          goto T3188;
6686  T3143:;  T3188:;
6687          base[2]= Cnil;          base[2]= Cnil;
6688          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6689          return;}          return;}
6690          goto T3128;          goto T3173;
6691  T3128:;  T3173:;
6692          base[2]= V691;          base[2]= V687;
6693          base[3]= VV[10];          base[3]= VV[10];
6694          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6695          (void) (*Lnk262)();          (void) (*Lnk292)();
6696          vs_top=sup;          vs_top=sup;
6697          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6698          goto T3146;}          goto T3191;}
6699          {object V735;          {object V725;
6700          object V736;          object V726;
6701          object V737;          object V727;
6702          V735= STREF(object,(V691),0);          V725= STREF(object,(V687),0);
6703          V736= list(2,(V689),(V690));          V726= list(2,(V685),(V686));
6704          V737= STREF(object,(V691),4);          V727= STREF(object,(V687),4);
6705          if(((V737))==Cnil){          if(((V727))==Cnil){
6706          goto T3154;}          goto T3199;}
6707          if((CMPcdr((V737)))!=Cnil){          if((CMPcdr((V727)))!=Cnil){
6708          goto T3154;}          goto T3199;}
6709          base[2]= (V736);          base[2]= (V726);
6710          base[3]= CMPcar((V737));          base[3]= CMPcar((V727));
6711          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6712          {object _funobj = (V735);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V725);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6713                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6714                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6715                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6716          return;          return;
6717          goto T3154;          goto T3199;
6718  T3154:;  T3199:;
6719          base[2]= (V735);          base[2]= (V725);
6720          base[3]= (V736);          base[3]= (V726);
6721          {object V738;          {object V728;
6722          V738= (V737);          V728= (V727);
6723           vs_top=base+4;           vs_top=base+4;
6724           while(V738!=Cnil)           while(V728!=Cnil)
6725           {vs_push((V738)->c.c_car);V738=(V738)->c.c_cdr;}           {vs_push((V728)->c.c_car);V728=(V728)->c.c_cdr;}
6726          vs_base=base+3;}          vs_base=base+3;}
6727          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6728                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6729                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6730                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6731          return;}          return;}
6732          goto T3146;          goto T3191;
6733  T3146:;  T3191:;
6734          base[2]= V691;          base[2]= V687;
6735          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6736          Lfunctionp();          Lfunctionp();
6737          vs_top=sup;          vs_top=sup;
6738          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6739          goto T3164;}          goto T3209;}
6740          base[2]= (V689);          base[2]= (V685);
6741          base[3]= (V690);          base[3]= (V686);
6742          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6743          {object _funobj = (V691);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V687);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6744                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6745                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6746                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6747          return;          return;
6748          goto T3164;          goto T3209;
6749  T3164:;  T3209:;
6750          base[3]= VV[11];          base[2]= VV[11];
6751          base[4]= V691;          base[3]= VV[12];
6752          base[5]= VV[92];          base[4]= VV[13];
6753          vs_top=(vs_base=base+3)+3;          base[5]= VV[14];
6754          (void) (*Lnk264)();          base[6]= V687;
6755          vs_top=sup;          base[7]= VV[15];
6756          base[2]= vs_base[0];          base[8]= VV[112];
6757          vs_top=(vs_base=base+2)+1;          base[9]= VV[17];
6758          Lerror();          base[10]= VV[113];
6759            vs_top=(vs_base=base+2)+9;
6760            (void) (*Lnk294)();
6761          return;}          return;}
6762          goto T2979;          goto T3024;
6763  T2979:;  T3024:;
6764          base[2]= (V689);          base[2]= (V685);
6765          base[3]= (V690);          base[3]= (V686);
6766          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6767          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6768                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6797  register object *base0; Line 6797  register object *base0;
6797  {       register object *base=vs_base;  {       register object *base=vs_base;
6798          register object *sup=base+VM121; VC121          register object *sup=base+VM121; VC121
6799          vs_check;          vs_check;
6800          {object V739;          {object V729;
6801          object V740;          object V730;
6802          object V741;          object V731;
6803          check_arg(3);          check_arg(3);
6804          V739=(base[0]);          V729=(base[0]);
6805          V740=(base[1]);          V730=(base[1]);
6806          V741=(base[2]);          V731=(base[2]);
6807          vs_top=sup;          vs_top=sup;
6808          {register object V742;          {register object V732;
6809          V742= Cnil;          V732= Cnil;
6810          {long V743;          {long V733;
6811          register object V744;          register object V734;
6812          long V745;          long V735;
6813          long V746;          long V736;
6814          object V747;          object V737;
6815          register object V748;          register object V738;
6816          V743= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V733= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
6817          V744= STREF(object,(base0[1]->c.c_car),40);          V734= STREF(object,(base0[1]->c.c_car),40);
6818          V745= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V735= (long)STREF(fixnum,(base0[1]->c.c_car),24);
6819          V746= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V736= (long)STREF(fixnum,(base0[1]->c.c_car),28);
6820          V747= STREF(object,(base0[1]->c.c_car),44);          V737= STREF(object,(base0[1]->c.c_car),44);
6821          if(type_of(V739)==t_structure){          if(type_of(V729)==t_structure){
6822          goto T3187;}          goto T3237;}
6823          goto T3185;          goto T3235;
6824          goto T3187;          goto T3237;
6825  T3187:;  T3237:;
6826          if(!(((V739)->str.str_def)==(VV[86]))){          if(!(((V729)->str.str_def)==(VV[105]))){
6827          goto T3185;}          goto T3235;}
6828          V748= STREF(object,(V739),0);          V738= STREF(object,(V729),0);
6829          goto T3183;          goto T3233;
6830          goto T3185;          goto T3235;
6831  T3185:;{object V750;  T3235:;{object V740;
6832          V750= (VV[33]->s.s_dbind);          V740= (VV[42]->s.s_dbind);
6833          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
6834          base[4]= (V739);          base[4]= (V729);
6835          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6836          (void) (*Lnk257)();          (void) (*Lnk287)();
         vs_top=sup;  
         V751= vs_base[0];  
         if(!((V750)==(CMPcar(V751)))){  
         goto T3190;}}  
         V748= CMPcar(((V739))->cc.cc_turbo[13]);  
         goto T3183;  
         goto T3190;  
 T3190:;  
         if(!(type_of((V739))==t_structure)){  
         goto T3196;}  
         V748= (*(LnkLI260))((V739));  
         goto T3183;  
         goto T3196;  
 T3196:;  
         if(!(type_of((V739))==t_symbol)){  
         goto T3199;}  
         if(((V739))==Cnil){  
         goto T3202;}  
         V748= (VV[47]->s.s_dbind);  
         goto T3183;  
         goto T3202;  
 T3202:;  
         V748= (VV[48]->s.s_dbind);  
         goto T3183;  
         goto T3199;  
 T3199:;  
         V748= (*(LnkLI261))((V739));  
         goto T3183;  
 T3183:;  
         {long V752;  
         long V753;  
         {long V754;  
         V754= fix(((V748))->v.v_self[V743]);  
         if(!((V754)==0)){  
         goto T3207;}  
         goto T3177;  
         goto T3207;  
 T3207:;  
         V752= (long)((V745) & (V754));}  
         {object V755;  
         V755= ((V744))->v.v_self[0];  
         if(type_of((V755))==t_fixnum){  
         goto T3212;}  
         base[3]= VV[49];  
         vs_top=(vs_base=base+3)+1;  
         Lerror();  
6837          vs_top=sup;          vs_top=sup;
6838          goto T3212;          V741= vs_base[0];
6839  T3212:;          if(!((V740)==(CMPcar(V741)))){
6840          V753= fix((V755));}          goto T3240;}}
6841          {register long V756;          V738= CMPcar(((V729))->cc.cc_turbo[13]);
6842          V756= V752;          goto T3233;
6843          goto T3219;          goto T3240;
6844  T3219:;  T3240:;
6845          if(!(((V748))==(((V744))->v.v_self[V756]))){          if(!(type_of((V729))==t_structure)){
6846          goto T3221;}          goto T3246;}
6847          V742= ((V744))->v.v_self[(long)(V756)+1];          V738= (*(LnkLI290))((V729));
6848          goto T3217;          goto T3233;
6849          goto T3221;          goto T3246;
6850  T3221:;  T3246:;
6851          V756= (long)(V756)+(2);          if(!(type_of((V729))==t_symbol)){
6852          if(!((V756)==(V746))){          goto T3249;}
6853          goto T3228;}          if(((V729))==Cnil){
6854          V756= 0;          goto T3252;}
6855          goto T3228;          V738= (VV[56]->s.s_dbind);
6856  T3228:;          goto T3233;
6857          if(!((V756)==(V752))){          goto T3252;
6858          goto T3220;}  T3252:;
6859          {register object V757;          V738= (VV[57]->s.s_dbind);
6860          register object V758;          goto T3233;
6861          V757= (V747);          goto T3249;
6862          V758= CMPcar((V757));  T3249:;
6863          goto T3238;          V738= (*(LnkLI291))((V729));
6864  T3238:;          goto T3233;
6865          if(!(((V757))==Cnil)){  T3233:;
6866          goto T3239;}          {long V742;
6867          goto T3234;          long V743;
6868          goto T3239;          {long V744;
6869  T3239:;          V744= fix(((V738))->v.v_self[V733]);
6870          if(!((CMPcar((V758)))==((V748)))){          if(!((V744)==0)){
6871          goto T3243;}          goto T3257;}
6872          V742= CMPcdr((V758));          goto T3227;
6873          goto T3217;          goto T3257;
6874          goto T3243;  T3257:;
6875  T3243:;          V742= (long)((V735) & (V744));}
6876          V757= CMPcdr((V757));          {object V745;
6877          V758= CMPcar((V757));          V745= ((V734))->v.v_self[0];
6878          goto T3238;}          if(type_of((V745))==t_fixnum){
6879          goto T3234;          goto T3262;}
6880  T3234:;          base[3]= VV[58];
6881          goto T3177;          vs_top=(vs_base=base+3)+1;
6882          goto T3220;          Lerror();
6883  T3220:;          vs_top=sup;
6884          goto T3219;          goto T3262;
6885          goto T3217;  T3262:;
6886  T3217:;          V743= fix((V745));}
6887          V759 = V753;          {register long V746;
6888          {object V761;          V746= V742;
6889          V761= ((V744))->v.v_self[0];          goto T3269;
6890          if(type_of((V761))==t_fixnum){  T3269:;
6891          goto T3258;}          if(!(((V738))==(((V734))->v.v_self[V746]))){
6892          base[3]= VV[49];          goto T3271;}
6893            V732= ((V734))->v.v_self[(long)(V746)+1];
6894            goto T3267;
6895            goto T3271;
6896    T3271:;
6897            V746= (long)(V746)+(2);
6898            if(!((V746)==(V736))){
6899            goto T3278;}
6900            V746= 0;
6901            goto T3278;
6902    T3278:;
6903            if(!((V746)==(V742))){
6904            goto T3270;}
6905            {register object V747;
6906            register object V748;
6907            V747= (V737);
6908            V748= CMPcar((V747));
6909            goto T3288;
6910    T3288:;
6911            if(!(((V747))==Cnil)){
6912            goto T3289;}
6913            goto T3284;
6914            goto T3289;
6915    T3289:;
6916            if(!((CMPcar((V748)))==((V738)))){
6917            goto T3293;}
6918            V732= CMPcdr((V748));
6919            goto T3267;
6920            goto T3293;
6921    T3293:;
6922            V747= CMPcdr((V747));
6923            V748= CMPcar((V747));
6924            goto T3288;}
6925            goto T3284;
6926    T3284:;
6927            goto T3227;
6928            goto T3270;
6929    T3270:;
6930            goto T3269;
6931            goto T3267;
6932    T3267:;
6933            {object V750;
6934            V750= ((V734))->v.v_self[0];
6935            if(type_of((V750))==t_fixnum){
6936            goto T3308;}
6937            base[3]= VV[58];
6938          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6939          Lerror();          Lerror();
6940          vs_top=sup;          vs_top=sup;
6941          goto T3258;          goto T3308;
6942  T3258:;  T3308:;
6943          V760= fix((V761));}          V749= fix((V750));}
6944          if((V759)==(V760)){          if((V743)==(V749)){
6945          goto T3204;}          goto T3254;}
6946          goto T3177;}}          goto T3227;}}
6947          goto T3204;          goto T3254;
6948  T3204:;  T3254:;
6949          base[3]= (V742);          base[3]= (V732);
6950          base[4]= VV[2];          base[4]= VV[2];
6951          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6952          (void) (*Lnk262)();          (void) (*Lnk292)();
6953          vs_top=sup;          vs_top=sup;
6954          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6955          goto T3264;}          goto T3314;}
6956          base[3]= STREF(object,(V742),0);          base[3]= STREF(object,(V732),0);
6957          base[4]= STREF(object,(V742),4);          base[4]= STREF(object,(V732),4);
6958          base[5]= STREF(object,(V742),8);          base[5]= STREF(object,(V732),8);
6959          base[6]= (V739);          base[6]= (V729);
6960          base[7]= (V740);          base[7]= (V730);
6961          base[8]= (V741);          base[8]= (V731);
6962          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
6963          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6964                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6965                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6966                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6967          return;          return;
6968          goto T3264;          goto T3314;
6969  T3264:;  T3314:;
6970          base[3]= V742;          base[3]= V732;
6971          base[4]= VV[10];          base[4]= VV[10];
6972          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6973          (void) (*Lnk262)();          (void) (*Lnk292)();
6974          vs_top=sup;          vs_top=sup;
6975          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6976          goto T3275;}          goto T3325;}
6977          {object V763;          {object V753;
6978          object V764;          object V754;
6979          object V765;          object V755;
6980          V763= STREF(object,(V742),0);          V753= STREF(object,(V732),0);
6981          V764= list(3,(V739),(V740),(V741));          V754= list(3,(V729),(V730),(V731));
6982          V765= STREF(object,(V742),4);          V755= STREF(object,(V732),4);
6983          if(((V765))==Cnil){          if(((V755))==Cnil){
6984          goto T3283;}          goto T3333;}
6985          if((CMPcdr((V765)))!=Cnil){          if((CMPcdr((V755)))!=Cnil){
6986          goto T3283;}          goto T3333;}
6987          base[3]= (V764);          base[3]= (V754);
6988          base[4]= CMPcar((V765));          base[4]= CMPcar((V755));
6989          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6990          {object _funobj = (V763);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V753);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6991                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6992                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6993                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6994          return;          return;
6995          goto T3283;          goto T3333;
6996  T3283:;  T3333:;
6997          base[3]= (V763);          base[3]= (V753);
6998          base[4]= (V764);          base[4]= (V754);
6999          {object V766;          {object V756;
7000          V766= (V765);          V756= (V755);
7001           vs_top=base+5;           vs_top=base+5;
7002           while(V766!=Cnil)           while(V756!=Cnil)
7003           {vs_push((V766)->c.c_car);V766=(V766)->c.c_cdr;}           {vs_push((V756)->c.c_car);V756=(V756)->c.c_cdr;}
7004          vs_base=base+4;}          vs_base=base+4;}
7005          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7006                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7007                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7008                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7009          return;}          return;}
7010          goto T3275;          goto T3325;
7011  T3275:;  T3325:;
7012          base[3]= V742;          base[3]= V732;
7013          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7014          Lfunctionp();          Lfunctionp();
7015          vs_top=sup;          vs_top=sup;
7016          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7017          goto T3293;}          goto T3343;}
7018          base[3]= (V739);          base[3]= (V729);
7019          base[4]= (V740);          base[4]= (V730);
7020          base[5]= (V741);          base[5]= (V731);
7021          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7022          {object _funobj = (V742);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V732);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7023                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7024                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7025                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7026          return;          return;
7027          goto T3293;          goto T3343;
7028  T3293:;  T3343:;
7029          base[4]= VV[11];          base[3]= VV[11];
7030          base[5]= V742;          base[4]= VV[12];
7031          base[6]= VV[87];          base[5]= VV[13];
7032          vs_top=(vs_base=base+4)+3;          base[6]= VV[14];
7033          (void) (*Lnk264)();          base[7]= V732;
7034          vs_top=sup;          base[8]= VV[15];
7035          base[3]= vs_base[0];          base[9]= VV[106];
7036          vs_top=(vs_base=base+3)+1;          base[10]= VV[17];
7037          Lerror();          base[11]= VV[107];
7038          return;}          vs_top=(vs_base=base+3)+9;
7039          goto T3177;          (void) (*Lnk294)();
7040  T3177:;          return;}
7041          base[3]= (V739);          goto T3227;
7042          base[4]= (V740);  T3227:;
7043          base[5]= (V741);          base[3]= (V729);
7044            base[4]= (V730);
7045            base[5]= (V731);
7046          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7047          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7048                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7076  register object *base0; Line 7077  register object *base0;
7077  {       register object *base=vs_base;  {       register object *base=vs_base;
7078          register object *sup=base+VM123; VC123          register object *sup=base+VM123; VC123
7079          vs_check;          vs_check;
7080          {object V767;          {object V757;
7081          object V768;          object V758;
7082          object V769;          object V759;
7083          check_arg(3);          check_arg(3);
7084          V767=(base[0]);          V757=(base[0]);
7085          V768=(base[1]);          V758=(base[1]);
7086          V769=(base[2]);          V759=(base[2]);
7087          vs_top=sup;          vs_top=sup;
7088          {register object V770;          {register object V760;
7089          V770= Cnil;          V760= Cnil;
7090          {long V771;          {long V761;
7091          register object V772;          register object V762;
7092          long V773;          long V763;
7093          long V774;          long V764;
7094          object V775;          object V765;
7095          register object V776;          register object V766;
7096          V771= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V761= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
7097          V772= STREF(object,(base0[1]->c.c_car),40);          V762= STREF(object,(base0[1]->c.c_car),40);
7098          V773= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V763= (long)STREF(fixnum,(base0[1]->c.c_car),24);
7099          V774= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V764= (long)STREF(fixnum,(base0[1]->c.c_car),28);
7100          V775= STREF(object,(base0[1]->c.c_car),44);          V765= STREF(object,(base0[1]->c.c_car),44);
7101          if(type_of(V768)==t_structure){          if(type_of(V758)==t_structure){
7102          goto T3318;}          goto T3373;}
7103          goto T3316;          goto T3371;
7104          goto T3318;          goto T3373;
7105  T3318:;  T3373:;
7106          if(!(((V768)->str.str_def)==(VV[83]))){          if(!(((V758)->str.str_def)==(VV[101]))){
7107          goto T3316;}          goto T3371;}
7108          V776= STREF(object,(V768),0);          V766= STREF(object,(V758),0);
7109          goto T3314;          goto T3369;
7110          goto T3316;          goto T3371;
7111  T3316:;{object V778;  T3371:;{object V768;
7112          V778= (VV[33]->s.s_dbind);          V768= (VV[42]->s.s_dbind);
7113          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
7114          base[4]= (V768);          base[4]= (V758);
7115          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7116          (void) (*Lnk257)();          (void) (*Lnk287)();
7117          vs_top=sup;          vs_top=sup;
7118          V779= vs_base[0];          V769= vs_base[0];
7119          if(!((V778)==(CMPcar(V779)))){          if(!((V768)==(CMPcar(V769)))){
7120          goto T3321;}}          goto T3376;}}
7121          V776= CMPcar(((V768))->cc.cc_turbo[13]);          V766= CMPcar(((V758))->cc.cc_turbo[13]);
7122          goto T3314;          goto T3369;
7123          goto T3321;          goto T3376;
7124  T3321:;  T3376:;
7125          if(!(type_of((V768))==t_structure)){          if(!(type_of((V758))==t_structure)){
7126          goto T3327;}          goto T3382;}
7127          V776= (*(LnkLI260))((V768));          V766= (*(LnkLI290))((V758));
7128          goto T3314;          goto T3369;
7129          goto T3327;          goto T3382;
7130  T3327:;  T3382:;
7131          if(!(type_of((V768))==t_symbol)){          if(!(type_of((V758))==t_symbol)){
7132          goto T3330;}          goto T3385;}
7133          if(((V768))==Cnil){          if(((V758))==Cnil){
7134          goto T3333;}          goto T3388;}
7135          V776= (VV[47]->s.s_dbind);          V766= (VV[56]->s.s_dbind);
7136          goto T3314;          goto T3369;
7137          goto T3333;          goto T3388;
7138  T3333:;  T3388:;
7139          V776= (VV[48]->s.s_dbind);          V766= (VV[57]->s.s_dbind);
7140          goto T3314;          goto T3369;
7141          goto T3330;          goto T3385;
7142  T3330:;  T3385:;
7143          V776= (*(LnkLI261))((V768));          V766= (*(LnkLI291))((V758));
7144          goto T3314;          goto T3369;
7145  T3314:;  T3369:;
7146          {long V780;          {long V770;
7147          long V781;          long V771;
7148          {long V782;          {long V772;
7149          V782= fix(((V776))->v.v_self[V771]);          V772= fix(((V766))->v.v_self[V761]);
7150          if(!((V782)==0)){          if(!((V772)==0)){
7151          goto T3338;}          goto T3393;}
7152          goto T3308;          goto T3363;
7153          goto T3338;          goto T3393;
7154  T3338:;  T3393:;
7155          V780= (long)((V773) & (V782));}          V770= (long)((V763) & (V772));}
7156          {object V783;          {object V773;
7157          V783= ((V772))->v.v_self[0];          V773= ((V762))->v.v_self[0];
7158          if(type_of((V783))==t_fixnum){          if(type_of((V773))==t_fixnum){
7159          goto T3343;}          goto T3398;}
7160          base[3]= VV[49];          base[3]= VV[58];
7161          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7162          Lerror();          Lerror();
7163          vs_top=sup;          vs_top=sup;
7164          goto T3343;          goto T3398;
7165  T3343:;  T3398:;
7166          V781= fix((V783));}          V771= fix((V773));}
7167          {register long V784;          {register long V774;
7168          V784= V780;          V774= V770;
7169          goto T3350;          goto T3405;
7170  T3350:;  T3405:;
7171          if(!(((V776))==(((V772))->v.v_self[V784]))){          if(!(((V766))==(((V762))->v.v_self[V774]))){
7172          goto T3352;}          goto T3407;}
7173          V770= ((V772))->v.v_self[(long)(V784)+1];          V760= ((V762))->v.v_self[(long)(V774)+1];
7174          goto T3348;          goto T3403;
7175          goto T3352;          goto T3407;
7176  T3352:;  T3407:;
7177          V784= (long)(V784)+(2);          V774= (long)(V774)+(2);
7178          if(!((V784)==(V774))){          if(!((V774)==(V764))){
7179          goto T3359;}          goto T3414;}
7180          V784= 0;          V774= 0;
7181          goto T3359;          goto T3414;
7182  T3359:;  T3414:;
7183          if(!((V784)==(V780))){          if(!((V774)==(V770))){
7184          goto T3351;}          goto T3406;}
7185          {register object V785;          {register object V775;
7186          register object V786;          register object V776;
7187          V785= (V775);          V775= (V765);
7188          V786= CMPcar((V785));          V776= CMPcar((V775));
7189          goto T3369;          goto T3424;
7190  T3369:;  T3424:;
7191          if(!(((V785))==Cnil)){          if(!(((V775))==Cnil)){
7192          goto T3370;}          goto T3425;}
7193          goto T3365;          goto T3420;
7194          goto T3370;          goto T3425;
7195  T3370:;  T3425:;
7196          if(!((CMPcar((V786)))==((V776)))){          if(!((CMPcar((V776)))==((V766)))){
7197          goto T3374;}          goto T3429;}
7198          V770= CMPcdr((V786));          V760= CMPcdr((V776));
7199          goto T3348;          goto T3403;
7200          goto T3374;          goto T3429;
7201  T3374:;  T3429:;
7202          V785= CMPcdr((V785));          V775= CMPcdr((V775));
7203          V786= CMPcar((V785));          V776= CMPcar((V775));
7204          goto T3369;}          goto T3424;}
7205          goto T3365;          goto T3420;
7206  T3365:;  T3420:;
7207          goto T3308;          goto T3363;
7208          goto T3351;          goto T3406;
7209  T3351:;  T3406:;
7210          goto T3350;          goto T3405;
7211          goto T3348;          goto T3403;
7212  T3348:;  T3403:;
7213          V787 = V781;          {object V778;
7214          {object V789;          V778= ((V762))->v.v_self[0];
7215          V789= ((V772))->v.v_self[0];          if(type_of((V778))==t_fixnum){
7216          if(type_of((V789))==t_fixnum){          goto T3444;}
7217          goto T3389;}          base[3]= VV[58];
         base[3]= VV[49];  
7218          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7219          Lerror();          Lerror();
7220          vs_top=sup;          vs_top=sup;
7221          goto T3389;          goto T3444;
7222  T3389:;  T3444:;
7223          V788= fix((V789));}          V777= fix((V778));}
7224          if((V787)==(V788)){          if((V771)==(V777)){
7225          goto T3335;}          goto T3390;}
7226          goto T3308;}}          goto T3363;}}
7227          goto T3335;          goto T3390;
7228  T3335:;  T3390:;
7229          base[3]= (V770);          base[3]= (V760);
7230          base[4]= VV[2];          base[4]= VV[2];
7231          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7232          (void) (*Lnk262)();          (void) (*Lnk292)();
7233          vs_top=sup;          vs_top=sup;
7234          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7235          goto T3395;}          goto T3450;}
7236          base[3]= STREF(object,(V770),0);          base[3]= STREF(object,(V760),0);
7237          base[4]= STREF(object,(V770),4);          base[4]= STREF(object,(V760),4);
7238          base[5]= STREF(object,(V770),8);          base[5]= STREF(object,(V760),8);
7239          base[6]= (V767);          base[6]= (V757);
7240          base[7]= (V768);          base[7]= (V758);
7241          base[8]= (V769);          base[8]= (V759);
7242          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
7243          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7244                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7245                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7246                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7247          return;          return;
7248          goto T3395;          goto T3450;
7249  T3395:;  T3450:;
7250          base[3]= V770;          base[3]= V760;
7251          base[4]= VV[10];          base[4]= VV[10];
7252          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7253          (void) (*Lnk262)();          (void) (*Lnk292)();
7254          vs_top=sup;          vs_top=sup;
7255          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7256          goto T3406;}          goto T3461;}
7257          {object V791;          {object V781;
7258          object V792;          object V782;
7259          object V793;          object V783;
7260          V791= STREF(object,(V770),0);          V781= STREF(object,(V760),0);
7261          V792= list(3,(V767),(V768),(V769));          V782= list(3,(V757),(V758),(V759));
7262          V793= STREF(object,(V770),4);          V783= STREF(object,(V760),4);
7263          if(((V793))==Cnil){          if(((V783))==Cnil){
7264          goto T3414;}          goto T3469;}
7265          if((CMPcdr((V793)))!=Cnil){          if((CMPcdr((V783)))!=Cnil){
7266          goto T3414;}          goto T3469;}
7267          base[3]= (V792);          base[3]= (V782);
7268          base[4]= CMPcar((V793));          base[4]= CMPcar((V783));
7269          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7270          {object _funobj = (V791);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V781);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7271                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7272                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7273                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7274          return;          return;
7275          goto T3414;          goto T3469;
7276  T3414:;  T3469:;
7277          base[3]= (V791);          base[3]= (V781);
7278          base[4]= (V792);          base[4]= (V782);
7279          {object V794;          {object V784;
7280          V794= (V793);          V784= (V783);
7281           vs_top=base+5;           vs_top=base+5;
7282           while(V794!=Cnil)           while(V784!=Cnil)
7283           {vs_push((V794)->c.c_car);V794=(V794)->c.c_cdr;}           {vs_push((V784)->c.c_car);V784=(V784)->c.c_cdr;}
7284          vs_base=base+4;}          vs_base=base+4;}
7285          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7286                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7287                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7288                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7289          return;}          return;}
7290          goto T3406;          goto T3461;
7291  T3406:;  T3461:;
7292          base[3]= V770;          base[3]= V760;
7293          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7294          Lfunctionp();          Lfunctionp();
7295          vs_top=sup;          vs_top=sup;
7296          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7297          goto T3424;}          goto T3479;}
7298          base[3]= (V767);          base[3]= (V757);
7299          base[4]= (V768);          base[4]= (V758);
7300          base[5]= (V769);          base[5]= (V759);
7301          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7302          {object _funobj = (V770);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V760);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7303                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7304                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7305                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7306          return;          return;
7307          goto T3424;          goto T3479;
7308  T3424:;  T3479:;
7309          base[4]= VV[11];          base[3]= VV[11];
7310          base[5]= V770;          base[4]= VV[12];
7311          base[6]= VV[84];          base[5]= VV[13];
7312          vs_top=(vs_base=base+4)+3;          base[6]= VV[14];
7313          (void) (*Lnk264)();          base[7]= V760;
7314          vs_top=sup;          base[8]= VV[15];
7315          base[3]= vs_base[0];          base[9]= VV[102];
7316          vs_top=(vs_base=base+3)+1;          base[10]= VV[17];
7317          Lerror();          base[11]= VV[103];
7318          return;}          vs_top=(vs_base=base+3)+9;
7319          goto T3308;          (void) (*Lnk294)();
7320  T3308:;          return;}
7321          base[3]= (V767);          goto T3363;
7322          base[4]= (V768);  T3363:;
7323          base[5]= (V769);          base[3]= (V757);
7324            base[4]= (V758);
7325            base[5]= (V759);
7326          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7327          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7328                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7355  register object *base0; Line 7357  register object *base0;
7357  {       register object *base=vs_base;  {       register object *base=vs_base;
7358          register object *sup=base+VM125; VC125          register object *sup=base+VM125; VC125
7359          vs_check;          vs_check;
7360          {object V795;          {object V785;
7361          object V796;          object V786;
7362          object V797;          object V787;
7363          object V798;          object V788;
7364          object V799;          object V789;
7365          if(vs_top-vs_base<4) too_few_arguments();          if(vs_top-vs_base<4) too_few_arguments();
7366          V795=(base[0]);          V785=(base[0]);
7367          V796=(base[1]);          V786=(base[1]);
7368          V797=(base[2]);          V787=(base[2]);
7369          V798=(base[3]);          V788=(base[3]);
7370          vs_base=vs_base+4;          vs_base=vs_base+4;
7371          vs_top[0]=Cnil;          vs_top[0]=Cnil;
7372          {object *p=vs_top;          {object *p=vs_top;
7373           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
7374          V799=(base[4]);          V789=(base[4]);
7375          vs_top=sup;          vs_top=sup;
7376          {register object V800;          {register object V790;
7377          V800= Cnil;          V790= Cnil;
7378          {long V801;          {long V791;
7379          register object V802;          register object V792;
7380          long V803;          long V793;
7381          long V804;          long V794;
7382          object V805;          object V795;
7383          register object V806;          register object V796;
7384          V801= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V791= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
7385          V802= STREF(object,(base0[1]->c.c_car),40);          V792= STREF(object,(base0[1]->c.c_car),40);
7386          V803= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V793= (long)STREF(fixnum,(base0[1]->c.c_car),24);
7387          V804= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V794= (long)STREF(fixnum,(base0[1]->c.c_car),28);
7388          V805= STREF(object,(base0[1]->c.c_car),44);          V795= STREF(object,(base0[1]->c.c_car),44);
7389          if(type_of(V795)==t_structure){          if(type_of(V785)==t_structure){
7390          goto T3449;}          goto T3509;}
7391          goto T3447;          goto T3507;
7392          goto T3449;          goto T3509;
7393  T3449:;  T3509:;
7394          if(!(((V795)->str.str_def)==(VV[80]))){          if(!(((V785)->str.str_def)==(VV[97]))){
7395          goto T3447;}          goto T3507;}
7396          V806= STREF(object,(V795),0);          V796= STREF(object,(V785),0);
7397          goto T3445;          goto T3505;
7398          goto T3447;          goto T3507;
7399  T3447:;{object V808;  T3507:;{object V798;
7400          V808= (VV[33]->s.s_dbind);          V798= (VV[42]->s.s_dbind);
7401          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
7402          base[6]= (V795);          base[6]= (V785);
7403          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7404          (void) (*Lnk257)();          (void) (*Lnk287)();
7405          vs_top=sup;          vs_top=sup;
7406          V809= vs_base[0];          V799= vs_base[0];
7407          if(!((V808)==(CMPcar(V809)))){          if(!((V798)==(CMPcar(V799)))){
7408          goto T3452;}}          goto T3512;}}
7409          V806= CMPcar(((V795))->cc.cc_turbo[13]);          V796= CMPcar(((V785))->cc.cc_turbo[13]);
7410          goto T3445;          goto T3505;
7411          goto T3452;          goto T3512;
7412  T3452:;  T3512:;
7413          if(!(type_of((V795))==t_structure)){          if(!(type_of((V785))==t_structure)){
7414          goto T3458;}          goto T3518;}
7415          V806= (*(LnkLI260))((V795));          V796= (*(LnkLI290))((V785));
7416          goto T3445;          goto T3505;
7417          goto T3458;          goto T3518;
7418  T3458:;  T3518:;
7419          if(!(type_of((V795))==t_symbol)){          if(!(type_of((V785))==t_symbol)){
7420          goto T3461;}          goto T3521;}
7421          if(((V795))==Cnil){          if(((V785))==Cnil){
7422          goto T3464;}          goto T3524;}
7423          V806= (VV[47]->s.s_dbind);          V796= (VV[56]->s.s_dbind);
7424          goto T3445;          goto T3505;
7425          goto T3464;          goto T3524;
7426  T3464:;  T3524:;
7427          V806= (VV[48]->s.s_dbind);          V796= (VV[57]->s.s_dbind);
7428          goto T3445;          goto T3505;
7429          goto T3461;          goto T3521;
7430  T3461:;  T3521:;
7431          V806= (*(LnkLI261))((V795));          V796= (*(LnkLI291))((V785));
7432          goto T3445;          goto T3505;
7433  T3445:;  T3505:;
7434          {long V810;          {long V800;
7435          long V811;          long V801;
7436          {long V812;          {long V802;
7437          V812= fix(((V806))->v.v_self[V801]);          V802= fix(((V796))->v.v_self[V791]);
7438          if(!((V812)==0)){          if(!((V802)==0)){
7439          goto T3469;}          goto T3529;}
7440          goto T3439;          goto T3499;
7441          goto T3469;          goto T3529;
7442  T3469:;  T3529:;
7443          V810= (long)((V803) & (V812));}          V800= (long)((V793) & (V802));}
7444          {object V813;          {object V803;
7445          V813= ((V802))->v.v_self[0];          V803= ((V792))->v.v_self[0];
7446          if(type_of((V813))==t_fixnum){          if(type_of((V803))==t_fixnum){
7447          goto T3474;}          goto T3534;}
7448          base[5]= VV[49];          base[5]= VV[58];
7449          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7450          Lerror();          Lerror();
7451          vs_top=sup;          vs_top=sup;
7452          goto T3474;          goto T3534;
7453  T3474:;  T3534:;
7454          V811= fix((V813));}          V801= fix((V803));}
7455          {register long V814;          {register long V804;
7456          V814= V810;          V804= V800;
7457          goto T3481;          goto T3541;
7458  T3481:;  T3541:;
7459          if(!(((V806))==(((V802))->v.v_self[V814]))){          if(!(((V796))==(((V792))->v.v_self[V804]))){
7460          goto T3483;}          goto T3543;}
7461          V800= ((V802))->v.v_self[(long)(V814)+1];          V790= ((V792))->v.v_self[(long)(V804)+1];
7462          goto T3479;          goto T3539;
7463          goto T3483;          goto T3543;
7464  T3483:;  T3543:;
7465          V814= (long)(V814)+(2);          V804= (long)(V804)+(2);
7466          if(!((V814)==(V804))){          if(!((V804)==(V794))){
7467          goto T3490;}          goto T3550;}
7468          V814= 0;          V804= 0;
7469          goto T3490;          goto T3550;
7470  T3490:;  T3550:;
7471          if(!((V814)==(V810))){          if(!((V804)==(V800))){
7472          goto T3482;}          goto T3542;}
7473          {register object V815;          {register object V805;
7474          register object V816;          register object V806;
7475          V815= (V805);          V805= (V795);
7476          V816= CMPcar((V815));          V806= CMPcar((V805));
7477          goto T3500;          goto T3560;
7478  T3500:;  T3560:;
7479          if(!(((V815))==Cnil)){          if(!(((V805))==Cnil)){
7480          goto T3501;}          goto T3561;}
7481          goto T3496;          goto T3556;
7482          goto T3501;          goto T3561;
7483  T3501:;  T3561:;
7484          if(!((CMPcar((V816)))==((V806)))){          if(!((CMPcar((V806)))==((V796)))){
7485          goto T3505;}          goto T3565;}
7486          V800= CMPcdr((V816));          V790= CMPcdr((V806));
7487          goto T3479;          goto T3539;
7488          goto T3505;          goto T3565;
7489  T3505:;  T3565:;
7490          V815= CMPcdr((V815));          V805= CMPcdr((V805));
7491          V816= CMPcar((V815));          V806= CMPcar((V805));
7492          goto T3500;}          goto T3560;}
7493          goto T3496;          goto T3556;
7494  T3496:;  T3556:;
7495          goto T3439;          goto T3499;
7496          goto T3482;          goto T3542;
7497  T3482:;  T3542:;
7498          goto T3481;          goto T3541;
7499          goto T3479;          goto T3539;
7500  T3479:;  T3539:;
7501          V817 = V811;          {object V808;
7502          {object V819;          V808= ((V792))->v.v_self[0];
7503          V819= ((V802))->v.v_self[0];          if(type_of((V808))==t_fixnum){
7504          if(type_of((V819))==t_fixnum){          goto T3580;}
7505          goto T3520;}          base[5]= VV[58];
         base[5]= VV[49];  
7506          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7507          Lerror();          Lerror();
7508          vs_top=sup;          vs_top=sup;
7509          goto T3520;          goto T3580;
7510  T3520:;  T3580:;
7511          V818= fix((V819));}          V807= fix((V808));}
7512          if((V817)==(V818)){          if((V801)==(V807)){
7513          goto T3466;}          goto T3526;}
7514          goto T3439;}}          goto T3499;}}
7515          goto T3466;          goto T3526;
7516  T3466:;  T3526:;
7517          base[5]= (V800);          base[5]= (V790);
7518          base[6]= VV[2];          base[6]= VV[2];
7519          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7520          (void) (*Lnk262)();          (void) (*Lnk292)();
7521          vs_top=sup;          vs_top=sup;
7522          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7523          goto T3526;}          goto T3586;}
7524          base[5]= STREF(object,(V800),0);          base[5]= STREF(object,(V790),0);
7525          base[6]= STREF(object,(V800),4);          base[6]= STREF(object,(V790),4);
7526          base[7]= STREF(object,(V800),8);          base[7]= STREF(object,(V790),8);
7527          base[8]= (V795);          base[8]= (V785);
7528          base[9]= (V796);          base[9]= (V786);
7529          base[10]= (V797);          base[10]= (V787);
7530          base[11]= (V798);          base[11]= (V788);
7531          base[12]= (V799);          base[12]= (V789);
7532          vs_top=(vs_base=base+6)+7;          vs_top=(vs_base=base+6)+7;
7533          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7534                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7535                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7536                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7537          return;          return;
7538          goto T3526;          goto T3586;
7539  T3526:;  T3586:;
7540          base[5]= V800;          base[5]= V790;
7541          base[6]= VV[10];          base[6]= VV[10];
7542          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7543          (void) (*Lnk262)();          (void) (*Lnk292)();
7544          vs_top=sup;          vs_top=sup;
7545          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7546          goto T3539;}          goto T3599;}
7547          {object V821;          {object V811;
7548          object V822;          object V812;
7549          object V823;          object V813;
7550          V821= STREF(object,(V800),0);          V811= STREF(object,(V790),0);
7551          V822= listA(5,(V795),(V796),(V797),(V798),(V799));          V812= listA(5,(V785),(V786),(V787),(V788),(V789));
7552          V823= STREF(object,(V800),4);          V813= STREF(object,(V790),4);
7553          if(((V823))==Cnil){          if(((V813))==Cnil){
7554          goto T3547;}          goto T3607;}
7555          if((CMPcdr((V823)))!=Cnil){          if((CMPcdr((V813)))!=Cnil){
7556          goto T3547;}          goto T3607;}
7557          base[5]= (V822);          base[5]= (V812);
7558          base[6]= CMPcar((V823));          base[6]= CMPcar((V813));
7559          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7560          {object _funobj = (V821);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V811);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7561                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7562                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7563                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7564          return;          return;
7565          goto T3547;          goto T3607;
7566  T3547:;  T3607:;
7567          base[5]= (V821);          base[5]= (V811);
7568          base[6]= (V822);          base[6]= (V812);
7569          {object V824;          {object V814;
7570          V824= (V823);          V814= (V813);
7571           vs_top=base+7;           vs_top=base+7;
7572           while(V824!=Cnil)           while(V814!=Cnil)
7573           {vs_push((V824)->c.c_car);V824=(V824)->c.c_cdr;}           {vs_push((V814)->c.c_car);V814=(V814)->c.c_cdr;}
7574          vs_base=base+6;}          vs_base=base+6;}
7575          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7576                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7577                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7578                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7579          return;}          return;}
7580          goto T3539;          goto T3599;
7581  T3539:;  T3599:;
7582          base[5]= V800;          base[5]= V790;
7583          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7584          Lfunctionp();          Lfunctionp();
7585          vs_top=sup;          vs_top=sup;
7586          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7587          goto T3557;}          goto T3617;}
7588          base[5]= (V800);          base[5]= (V790);
7589          base[6]= (V795);          base[6]= (V785);
7590          base[7]= (V796);          base[7]= (V786);
7591          base[8]= (V797);          base[8]= (V787);
7592          base[9]= (V798);          base[9]= (V788);
7593          {object V825;          {object V815;
7594          V825= (V799);          V815= (V789);
7595           vs_top=base+10;           vs_top=base+10;
7596           while(V825!=Cnil)           while(V815!=Cnil)
7597           {vs_push((V825)->c.c_car);V825=(V825)->c.c_cdr;}           {vs_push((V815)->c.c_car);V815=(V815)->c.c_cdr;}
7598          vs_base=base+6;}          vs_base=base+6;}
7599          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7600                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7601                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7602                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7603          return;          return;
7604          goto T3557;          goto T3617;
7605  T3557:;  T3617:;
7606          base[6]= VV[11];          base[5]= VV[11];
7607          base[7]= V800;          base[6]= VV[12];
7608          base[8]= VV[81];          base[7]= VV[13];
7609          vs_top=(vs_base=base+6)+3;          base[8]= VV[14];
7610          (void) (*Lnk264)();          base[9]= V790;
7611          vs_top=sup;          base[10]= VV[15];
7612          base[5]= vs_base[0];          base[11]= VV[98];
7613          vs_top=(vs_base=base+5)+1;          base[12]= VV[17];
7614          Lerror();          base[13]= VV[99];
7615            vs_top=(vs_base=base+5)+9;
7616            (void) (*Lnk294)();
7617          return;}          return;}
7618          goto T3439;          goto T3499;
7619  T3439:;  T3499:;
7620          base[5]= (base0[0]->c.c_car);          base[5]= (base0[0]->c.c_car);
7621          base[6]= (V795);          base[6]= (V785);
7622          base[7]= (V796);          base[7]= (V786);
7623          base[8]= (V797);          base[8]= (V787);
7624          base[9]= (V798);          base[9]= (V788);
7625          {object V826;          {object V816;
7626          V826= (V799);          V816= (V789);
7627           vs_top=base+10;           vs_top=base+10;
7628           while(V826!=Cnil)           while(V816!=Cnil)
7629           {vs_push((V826)->c.c_car);V826=(V826)->c.c_cdr;}           {vs_push((V816)->c.c_car);V816=(V816)->c.c_cdr;}
7630          vs_base=base+6;}          vs_base=base+6;}
7631          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7632                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7658  register object *base0; Line 7661  register object *base0;
7661  {       register object *base=vs_base;  {       register object *base=vs_base;
7662          register object *sup=base+VM127; VC127          register object *sup=base+VM127; VC127
7663          vs_check;          vs_check;
7664          {object V827;          {object V817;
7665          object V828;          object V818;
7666          object V829;          object V819;
7667          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
7668          V827=(base[0]);          V817=(base[0]);
7669          V828=(base[1]);          V818=(base[1]);
7670          vs_base=vs_base+2;          vs_base=vs_base+2;
7671          vs_top[0]=Cnil;          vs_top[0]=Cnil;
7672          {object *p=vs_top;          {object *p=vs_top;
7673           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
7674          V829=(base[2]);          V819=(base[2]);
7675          vs_top=sup;          vs_top=sup;
7676          {object V830;          {object V820;
7677          V830= Cnil;          V820= Cnil;
7678          {long V831;          {long V821;
7679          object V832;          object V822;
7680          long V833;          long V823;
7681          long V834;          long V824;
7682          object V835;          object V825;
7683          object V836;          object V826;
7684          object V837;          object V827;
7685          V831= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V821= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
7686          V832= STREF(object,(base0[1]->c.c_car),40);          V822= STREF(object,(base0[1]->c.c_car),40);
7687          V833= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V823= (long)STREF(fixnum,(base0[1]->c.c_car),24);
7688          V834= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V824= (long)STREF(fixnum,(base0[1]->c.c_car),28);
7689          V835= STREF(object,(base0[1]->c.c_car),44);          V825= STREF(object,(base0[1]->c.c_car),44);
7690          if(type_of(V827)==t_structure){          if(type_of(V817)==t_structure){
7691          goto T3588;}          goto T3653;}
7692          goto T3586;          goto T3651;
7693          goto T3588;          goto T3653;
7694  T3588:;  T3653:;
7695          if(!(((V827)->str.str_def)==(VV[76]))){          if(!(((V817)->str.str_def)==(VV[92]))){
7696          goto T3586;}          goto T3651;}
7697          V836= STREF(object,(V827),0);          V826= STREF(object,(V817),0);
7698          goto T3584;          goto T3649;
7699          goto T3586;          goto T3651;
7700  T3586:;{object V839;  T3651:;{object V829;
7701          V839= (VV[33]->s.s_dbind);          V829= (VV[42]->s.s_dbind);
7702          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
7703          base[4]= (V827);          base[4]= (V817);
7704          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7705          (void) (*Lnk257)();          (void) (*Lnk287)();
7706          vs_top=sup;          vs_top=sup;
7707          V840= vs_base[0];          V830= vs_base[0];
7708          if(!((V839)==(CMPcar(V840)))){          if(!((V829)==(CMPcar(V830)))){
7709          goto T3591;}}          goto T3656;}}
7710          V836= CMPcar(((V827))->cc.cc_turbo[13]);          V826= CMPcar(((V817))->cc.cc_turbo[13]);
7711          goto T3584;          goto T3649;
7712          goto T3591;          goto T3656;
7713  T3591:;  T3656:;
7714          if(!(type_of((V827))==t_structure)){          if(!(type_of((V817))==t_structure)){
7715          goto T3597;}          goto T3662;}
7716          V836= (*(LnkLI260))((V827));          V826= (*(LnkLI290))((V817));
7717          goto T3584;          goto T3649;
7718          goto T3597;          goto T3662;
7719  T3597:;  T3662:;
7720          if(!(type_of((V827))==t_symbol)){          if(!(type_of((V817))==t_symbol)){
7721          goto T3600;}          goto T3665;}
7722          if(((V827))==Cnil){          if(((V817))==Cnil){
7723          goto T3603;}          goto T3668;}
7724          V836= (VV[47]->s.s_dbind);          V826= (VV[56]->s.s_dbind);
7725          goto T3584;          goto T3649;
7726          goto T3603;          goto T3668;
7727  T3603:;  T3668:;
7728          V836= (VV[48]->s.s_dbind);          V826= (VV[57]->s.s_dbind);
7729          goto T3584;          goto T3649;
7730          goto T3600;          goto T3665;
7731  T3600:;  T3665:;
7732          V836= (*(LnkLI261))((V827));          V826= (*(LnkLI291))((V817));
7733          goto T3584;          goto T3649;
7734  T3584:;  T3649:;
7735          if(type_of(V828)==t_structure){          if(type_of(V818)==t_structure){
7736          goto T3609;}          goto T3674;}
7737          goto T3607;          goto T3672;
7738          goto T3609;          goto T3674;
7739  T3609:;  T3674:;
7740          if(!(((V828)->str.str_def)==(VV[77]))){          if(!(((V818)->str.str_def)==(VV[93]))){
7741          goto T3607;}          goto T3672;}
7742          V837= STREF(object,(V828),0);          V827= STREF(object,(V818),0);
7743          goto T3605;          goto T3670;
7744          goto T3607;          goto T3672;
7745  T3607:;{object V842;  T3672:;{object V832;
7746          V842= (VV[33]->s.s_dbind);          V832= (VV[42]->s.s_dbind);
7747          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
7748          base[4]= (V828);          base[4]= (V818);
7749          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7750          (void) (*Lnk257)();          (void) (*Lnk287)();
         vs_top=sup;  
         V843= vs_base[0];  
         if(!((V842)==(CMPcar(V843)))){  
         goto T3612;}}  
         V837= CMPcar(((V828))->cc.cc_turbo[13]);  
         goto T3605;  
         goto T3612;  
 T3612:;  
         if(!(type_of((V828))==t_structure)){  
         goto T3618;}  
         V837= (*(LnkLI260))((V828));  
         goto T3605;  
         goto T3618;  
 T3618:;  
         if(!(type_of((V828))==t_symbol)){  
         goto T3621;}  
         if(((V828))==Cnil){  
         goto T3624;}  
         V837= (VV[47]->s.s_dbind);  
         goto T3605;  
         goto T3624;  
 T3624:;  
         V837= (VV[48]->s.s_dbind);  
         goto T3605;  
         goto T3621;  
 T3621:;  
         V837= (*(LnkLI261))((V828));  
         goto T3605;  
 T3605:;  
         {long V844;  
         long V845;  
         V844= 0;  
         V845= (long)(V834)-(1);  
         {long V846;  
         V846= fix(((V836))->v.v_self[V831]);  
         if(!((V846)==0)){  
         goto T3632;}  
         goto T3578;  
         goto T3632;  
 T3632:;  
         V844= (long)(V844)+(V846);}  
         {long V847;  
         V847= fix(((V837))->v.v_self[V831]);  
         if(!((V847)==0)){  
         goto T3637;}  
         goto T3578;  
         goto T3637;  
 T3637:;  
         V844= (long)(V844)+(V847);  
         V844= (long)((V844) & (V833));}  
         {long V848;  
         {object V849;  
         V849= ((V832))->v.v_self[0];  
         if(type_of((V849))==t_fixnum){  
         goto T3645;}  
         base[3]= VV[49];  
         vs_top=(vs_base=base+3)+1;  
         Lerror();  
7751          vs_top=sup;          vs_top=sup;
7752          goto T3645;          V833= vs_base[0];
7753  T3645:;          if(!((V832)==(CMPcar(V833)))){
7754          V848= fix((V849));}          goto T3677;}}
7755          {register long V850;          V827= CMPcar(((V818))->cc.cc_turbo[13]);
7756          long V851;          goto T3670;
7757          V850= V844;          goto T3677;
7758          V851= 0;  T3677:;
7759          goto T3653;          if(!(type_of((V818))==t_structure)){
7760  T3653:;          goto T3683;}
7761          V851= (long)(V850)+(4);          V827= (*(LnkLI290))((V818));
7762          V852 = (V832);          goto T3670;
7763          V850= (long)(V850)+(1);          goto T3683;
7764          V853 = V850;  T3683:;
7765          if(!(((V836))==((V852)->v.v_self[V853]))){          if(!(type_of((V818))==t_symbol)){
7766          goto T3657;}          goto T3686;}
7767          V854 = (V832);          if(((V818))==Cnil){
7768          V850= (long)(V850)+(1);          goto T3689;}
7769          V855 = V850;          V827= (VV[56]->s.s_dbind);
7770          if(!(((V837))==((V854)->v.v_self[V855]))){          goto T3670;
7771          goto T3657;}          goto T3689;
7772          V850= (long)(V850)+(1);  T3689:;
7773          V830= ((V832))->v.v_self[V850];          V827= (VV[57]->s.s_dbind);
7774          goto T3651;          goto T3670;
7775          goto T3657;          goto T3686;
7776  T3657:;  T3686:;
7777          V850= V851;          V827= (*(LnkLI291))((V818));
         if(!((V850)==(V845))){  
         goto T3670;}  
         V850= 0;  
7778          goto T3670;          goto T3670;
7779  T3670:;  T3670:;
7780          if(!((V850)==(V844))){          {long V834;
7781          goto T3654;}          long V835;
7782          {register object V856;          V834= 0;
7783          register object V857;          V835= (long)(V824)-(1);
7784          V856= (V835);          {long V836;
7785          V857= CMPcar((V856));          V836= fix(((V826))->v.v_self[V821]);
7786          goto T3680;          if(!((V836)==0)){
7787  T3680:;          goto T3697;}
7788          if(!(((V856))==Cnil)){          goto T3643;
7789          goto T3681;}          goto T3697;
7790          goto T3676;  T3697:;
7791          goto T3681;          V834= (long)(V834)+(V836);}
7792  T3681:;          {long V837;
7793          {register object V858;          V837= fix(((V827))->v.v_self[V821]);
7794          V858= CMPcar((V857));          if(!((V837)==0)){
7795          V859 = (V836);          goto T3702;}
7796          {register object V861;          goto T3643;
7797          V861= CMPcar((V858));          goto T3702;
7798          V858= CMPcdr((V858));  T3702:;
7799          V860= (V861);}          V834= (long)(V834)+(V837);
7800          if(!((V859)==(V860))){          V834= (long)((V834) & (V823));}
7801          goto T3685;}          {long V838;
7802          V862 = (V837);          {object V839;
7803          {register object V864;          V839= ((V822))->v.v_self[0];
7804          V864= CMPcar((V858));          if(type_of((V839))==t_fixnum){
7805          V858= CMPcdr((V858));          goto T3710;}
7806          V863= (V864);}          base[3]= VV[58];
7807          if(!((V862)==(V863))){          vs_top=(vs_base=base+3)+1;
7808          goto T3685;}          Lerror();
7809          V830= CMPcdr((V857));          vs_top=sup;
7810          goto T3651;}          goto T3710;
7811          goto T3685;  T3710:;
7812  T3685:;          V838= fix((V839));}
7813          V856= CMPcdr((V856));          {register long V840;
7814          V857= CMPcar((V856));          long V841;
7815          goto T3680;}          V840= V834;
7816          goto T3676;          V841= 0;
7817  T3676:;          goto T3718;
7818          goto T3578;  T3718:;
7819          goto T3654;          V841= (long)(V840)+(4);
7820  T3654:;          V840= (long)(V840)+(1);
7821          goto T3653;          if(!(((V826))==(((V822))->v.v_self[V840]))){
7822          goto T3651;          goto T3722;}
7823  T3651:;          V840= (long)(V840)+(1);
7824          V865 = V848;          if(!(((V827))==(((V822))->v.v_self[V840]))){
7825          {object V867;          goto T3722;}
7826          V867= ((V832))->v.v_self[0];          V840= (long)(V840)+(1);
7827          if(type_of((V867))==t_fixnum){          V820= ((V822))->v.v_self[V840];
7828          goto T3711;}          goto T3716;
7829          base[3]= VV[49];          goto T3722;
7830    T3722:;
7831            V840= V841;
7832            if(!((V840)==(V835))){
7833            goto T3735;}
7834            V840= 0;
7835            goto T3735;
7836    T3735:;
7837            if(!((V840)==(V834))){
7838            goto T3719;}
7839            {register object V842;
7840            register object V843;
7841            V842= (V825);
7842            V843= CMPcar((V842));
7843            goto T3745;
7844    T3745:;
7845            if(!(((V842))==Cnil)){
7846            goto T3746;}
7847            goto T3741;
7848            goto T3746;
7849    T3746:;
7850            {register object V844;
7851            V844= CMPcar((V843));
7852            {register object V846;
7853            V846= CMPcar((V844));
7854            V844= CMPcdr((V844));
7855            V845= (V846);}
7856            if(!(((V826))==(V845))){
7857            goto T3750;}
7858            {register object V848;
7859            V848= CMPcar((V844));
7860            V844= CMPcdr((V844));
7861            V847= (V848);}
7862            if(!(((V827))==(V847))){
7863            goto T3750;}
7864            V820= CMPcdr((V843));
7865            goto T3716;}
7866            goto T3750;
7867    T3750:;
7868            V842= CMPcdr((V842));
7869            V843= CMPcar((V842));
7870            goto T3745;}
7871            goto T3741;
7872    T3741:;
7873            goto T3643;
7874            goto T3719;
7875    T3719:;
7876            goto T3718;
7877            goto T3716;
7878    T3716:;
7879            {object V850;
7880            V850= ((V822))->v.v_self[0];
7881            if(type_of((V850))==t_fixnum){
7882            goto T3776;}
7883            base[3]= VV[58];
7884          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7885          Lerror();          Lerror();
7886          vs_top=sup;          vs_top=sup;
7887          goto T3711;          goto T3776;
7888  T3711:;  T3776:;
7889          V866= fix((V867));}          V849= fix((V850));}
7890          if((V865)==(V866)){          if((V838)==(V849)){
7891          goto T3626;}          goto T3691;}
7892          goto T3578;}}}          goto T3643;}}}
7893          goto T3626;          goto T3691;
7894  T3626:;  T3691:;
7895          base[3]= (V830);          base[3]= (V820);
7896          base[4]= VV[2];          base[4]= VV[2];
7897          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7898          (void) (*Lnk262)();          (void) (*Lnk292)();
7899          vs_top=sup;          vs_top=sup;
7900          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7901          goto T3717;}          goto T3782;}
7902          base[3]= STREF(object,(V830),0);          base[3]= STREF(object,(V820),0);
7903          base[4]= STREF(object,(V830),4);          base[4]= STREF(object,(V820),4);
7904          base[5]= STREF(object,(V830),8);          base[5]= STREF(object,(V820),8);
7905          base[6]= (V827);          base[6]= (V817);
7906          base[7]= (V828);          base[7]= (V818);
7907          base[8]= (V829);          base[8]= (V819);
7908          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
7909          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7910                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7911                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7912                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7913          return;          return;
7914          goto T3717;          goto T3782;
7915  T3717:;  T3782:;
7916          base[3]= V830;          base[3]= V820;
7917          base[4]= VV[10];          base[4]= VV[10];
7918          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7919          (void) (*Lnk262)();          (void) (*Lnk292)();
7920          vs_top=sup;          vs_top=sup;
7921          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7922          goto T3728;}          goto T3793;}
7923          {object V869;          {object V853;
7924          object V870;          object V854;
7925          object V871;          object V855;
7926          V869= STREF(object,(V830),0);          V853= STREF(object,(V820),0);
7927          V870= listA(3,(V827),(V828),(V829));          V854= listA(3,(V817),(V818),(V819));
7928          V871= STREF(object,(V830),4);          V855= STREF(object,(V820),4);
7929          if(((V871))==Cnil){          if(((V855))==Cnil){
7930          goto T3736;}          goto T3801;}
7931          if((CMPcdr((V871)))!=Cnil){          if((CMPcdr((V855)))!=Cnil){
7932          goto T3736;}          goto T3801;}
7933          base[3]= (V870);          base[3]= (V854);
7934          base[4]= CMPcar((V871));          base[4]= CMPcar((V855));
7935          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7936          {object _funobj = (V869);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V853);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7937                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7938                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7939                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7940          return;          return;
7941          goto T3736;          goto T3801;
7942  T3736:;  T3801:;
7943          base[3]= (V869);          base[3]= (V853);
7944          base[4]= (V870);          base[4]= (V854);
7945          {object V872;          {object V856;
7946          V872= (V871);          V856= (V855);
7947           vs_top=base+5;           vs_top=base+5;
7948           while(V872!=Cnil)           while(V856!=Cnil)
7949           {vs_push((V872)->c.c_car);V872=(V872)->c.c_cdr;}           {vs_push((V856)->c.c_car);V856=(V856)->c.c_cdr;}
7950          vs_base=base+4;}          vs_base=base+4;}
7951          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7952                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7953                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7954                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7955          return;}          return;}
7956          goto T3728;          goto T3793;
7957  T3728:;  T3793:;
7958          base[3]= V830;          base[3]= V820;
7959          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7960          Lfunctionp();          Lfunctionp();
7961          vs_top=sup;          vs_top=sup;
7962          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7963          goto T3746;}          goto T3811;}
7964          base[3]= (V830);          base[3]= (V820);
7965          base[4]= (V827);          base[4]= (V817);
7966          base[5]= (V828);          base[5]= (V818);
7967          {object V873;          {object V857;
7968          V873= (V829);          V857= (V819);
7969           vs_top=base+6;           vs_top=base+6;
7970           while(V873!=Cnil)           while(V857!=Cnil)
7971           {vs_push((V873)->c.c_car);V873=(V873)->c.c_cdr;}           {vs_push((V857)->c.c_car);V857=(V857)->c.c_cdr;}
7972          vs_base=base+4;}          vs_base=base+4;}
7973          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7974                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7975                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7976                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7977          return;          return;
7978          goto T3746;          goto T3811;
7979  T3746:;  T3811:;
7980          base[4]= VV[11];          base[3]= VV[11];
7981          base[5]= V830;          base[4]= VV[12];
7982          base[6]= VV[78];          base[5]= VV[13];
7983          vs_top=(vs_base=base+4)+3;          base[6]= VV[14];
7984          (void) (*Lnk264)();          base[7]= V820;
7985          vs_top=sup;          base[8]= VV[15];
7986          base[3]= vs_base[0];          base[9]= VV[94];
7987          vs_top=(vs_base=base+3)+1;          base[10]= VV[17];
7988          Lerror();          base[11]= VV[95];
7989            vs_top=(vs_base=base+3)+9;
7990            (void) (*Lnk294)();
7991          return;}          return;}
7992          goto T3578;          goto T3643;
7993  T3578:;  T3643:;
7994          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
7995          base[4]= (V827);          base[4]= (V817);
7996          base[5]= (V828);          base[5]= (V818);
7997          {object V874;          {object V858;
7998          V874= (V829);          V858= (V819);
7999           vs_top=base+6;           vs_top=base+6;
8000           while(V874!=Cnil)           while(V858!=Cnil)
8001           {vs_push((V874)->c.c_car);V874=(V874)->c.c_cdr;}           {vs_push((V858)->c.c_car);V858=(V858)->c.c_cdr;}
8002          vs_base=base+4;}          vs_base=base+4;}
8003          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8004                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8035  register object *base0; Line 8033  register object *base0;
8033  {       register object *base=vs_base;  {       register object *base=vs_base;
8034          register object *sup=base+VM129; VC129          register object *sup=base+VM129; VC129
8035          vs_check;          vs_check;
8036          {object V875;          {object V859;
8037          object V876;          object V860;
8038          object V877;          object V861;
8039          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
8040          V875=(base[0]);          V859=(base[0]);
8041          V876=(base[1]);          V860=(base[1]);
8042          vs_base=vs_base+2;          vs_base=vs_base+2;
8043          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8044          {object *p=vs_top;          {object *p=vs_top;
8045           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8046          V877=(base[2]);          V861=(base[2]);
8047          vs_top=sup;          vs_top=sup;
8048          {register object V878;          {register object V862;
8049          V878= Cnil;          V862= Cnil;
8050          {long V879;          {long V863;
8051          register object V880;          register object V864;
8052          long V881;          long V865;
8053          long V882;          long V866;
8054          object V883;          object V867;
8055          register object V884;          register object V868;
8056          V879= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V863= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
8057          V880= STREF(object,(base0[1]->c.c_car),40);          V864= STREF(object,(base0[1]->c.c_car),40);
8058          V881= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V865= (long)STREF(fixnum,(base0[1]->c.c_car),24);
8059          V882= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V866= (long)STREF(fixnum,(base0[1]->c.c_car),28);
8060          V883= STREF(object,(base0[1]->c.c_car),44);          V867= STREF(object,(base0[1]->c.c_car),44);
8061          if(type_of(V876)==t_structure){          if(type_of(V860)==t_structure){
8062          goto T3773;}          goto T3843;}
8063          goto T3771;          goto T3841;
8064          goto T3773;          goto T3843;
8065  T3773:;  T3843:;
8066          if(!(((V876)->str.str_def)==(VV[73]))){          if(!(((V860)->str.str_def)==(VV[88]))){
8067          goto T3771;}          goto T3841;}
8068          V884= STREF(object,(V876),0);          V868= STREF(object,(V860),0);
8069          goto T3769;          goto T3839;
8070          goto T3771;          goto T3841;
8071  T3771:;{object V886;  T3841:;{object V870;
8072          V886= (VV[33]->s.s_dbind);          V870= (VV[42]->s.s_dbind);
8073          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
8074          base[4]= (V876);          base[4]= (V860);
8075          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8076          (void) (*Lnk257)();          (void) (*Lnk287)();
         vs_top=sup;  
         V887= vs_base[0];  
         if(!((V886)==(CMPcar(V887)))){  
         goto T3776;}}  
         V884= CMPcar(((V876))->cc.cc_turbo[13]);  
         goto T3769;  
         goto T3776;  
 T3776:;  
         if(!(type_of((V876))==t_structure)){  
         goto T3782;}  
         V884= (*(LnkLI260))((V876));  
         goto T3769;  
         goto T3782;  
 T3782:;  
         if(!(type_of((V876))==t_symbol)){  
         goto T3785;}  
         if(((V876))==Cnil){  
         goto T3788;}  
         V884= (VV[47]->s.s_dbind);  
         goto T3769;  
         goto T3788;  
 T3788:;  
         V884= (VV[48]->s.s_dbind);  
         goto T3769;  
         goto T3785;  
 T3785:;  
         V884= (*(LnkLI261))((V876));  
         goto T3769;  
 T3769:;  
         {long V888;  
         long V889;  
         {long V890;  
         V890= fix(((V884))->v.v_self[V879]);  
         if(!((V890)==0)){  
         goto T3793;}  
         goto T3763;  
         goto T3793;  
 T3793:;  
         V888= (long)((V881) & (V890));}  
         {object V891;  
         V891= ((V880))->v.v_self[0];  
         if(type_of((V891))==t_fixnum){  
         goto T3798;}  
         base[3]= VV[49];  
         vs_top=(vs_base=base+3)+1;  
         Lerror();  
8077          vs_top=sup;          vs_top=sup;
8078          goto T3798;          V871= vs_base[0];
8079  T3798:;          if(!((V870)==(CMPcar(V871)))){
8080          V889= fix((V891));}          goto T3846;}}
8081          {register long V892;          V868= CMPcar(((V860))->cc.cc_turbo[13]);
8082          V892= V888;          goto T3839;
8083          goto T3805;          goto T3846;
8084  T3805:;  T3846:;
8085          if(!(((V884))==(((V880))->v.v_self[V892]))){          if(!(type_of((V860))==t_structure)){
8086          goto T3807;}          goto T3852;}
8087          V878= ((V880))->v.v_self[(long)(V892)+1];          V868= (*(LnkLI290))((V860));
8088          goto T3803;          goto T3839;
8089          goto T3807;          goto T3852;
8090  T3807:;  T3852:;
8091          V892= (long)(V892)+(2);          if(!(type_of((V860))==t_symbol)){
8092          if(!((V892)==(V882))){          goto T3855;}
8093          goto T3814;}          if(((V860))==Cnil){
8094          V892= 0;          goto T3858;}
8095          goto T3814;          V868= (VV[56]->s.s_dbind);
8096  T3814:;          goto T3839;
8097          if(!((V892)==(V888))){          goto T3858;
8098          goto T3806;}  T3858:;
8099          {register object V893;          V868= (VV[57]->s.s_dbind);
8100          register object V894;          goto T3839;
8101          V893= (V883);          goto T3855;
8102          V894= CMPcar((V893));  T3855:;
8103          goto T3824;          V868= (*(LnkLI291))((V860));
8104  T3824:;          goto T3839;
8105          if(!(((V893))==Cnil)){  T3839:;
8106          goto T3825;}          {long V872;
8107          goto T3820;          long V873;
8108          goto T3825;          {long V874;
8109  T3825:;          V874= fix(((V868))->v.v_self[V863]);
8110          if(!((CMPcar((V894)))==((V884)))){          if(!((V874)==0)){
8111          goto T3829;}          goto T3863;}
8112          V878= CMPcdr((V894));          goto T3833;
8113          goto T3803;          goto T3863;
8114          goto T3829;  T3863:;
8115  T3829:;          V872= (long)((V865) & (V874));}
8116          V893= CMPcdr((V893));          {object V875;
8117          V894= CMPcar((V893));          V875= ((V864))->v.v_self[0];
8118          goto T3824;}          if(type_of((V875))==t_fixnum){
8119          goto T3820;          goto T3868;}
8120  T3820:;          base[3]= VV[58];
8121          goto T3763;          vs_top=(vs_base=base+3)+1;
8122          goto T3806;          Lerror();
8123  T3806:;          vs_top=sup;
8124          goto T3805;          goto T3868;
8125          goto T3803;  T3868:;
8126  T3803:;          V873= fix((V875));}
8127          V895 = V889;          {register long V876;
8128          {object V897;          V876= V872;
8129          V897= ((V880))->v.v_self[0];          goto T3875;
8130          if(type_of((V897))==t_fixnum){  T3875:;
8131          goto T3844;}          if(!(((V868))==(((V864))->v.v_self[V876]))){
8132          base[3]= VV[49];          goto T3877;}
8133          vs_top=(vs_base=base+3)+1;          V862= ((V864))->v.v_self[(long)(V876)+1];
8134          Lerror();          goto T3873;
8135          vs_top=sup;          goto T3877;
8136          goto T3844;  T3877:;
8137  T3844:;          V876= (long)(V876)+(2);
8138          V896= fix((V897));}          if(!((V876)==(V866))){
8139          if((V895)==(V896)){          goto T3884;}
8140          goto T3790;}          V876= 0;
8141          goto T3763;}}          goto T3884;
8142          goto T3790;  T3884:;
8143  T3790:;          if(!((V876)==(V872))){
8144          base[3]= (V878);          goto T3876;}
8145            {register object V877;
8146            register object V878;
8147            V877= (V867);
8148            V878= CMPcar((V877));
8149            goto T3894;
8150    T3894:;
8151            if(!(((V877))==Cnil)){
8152            goto T3895;}
8153            goto T3890;
8154            goto T3895;
8155    T3895:;
8156            if(!((CMPcar((V878)))==((V868)))){
8157            goto T3899;}
8158            V862= CMPcdr((V878));
8159            goto T3873;
8160            goto T3899;
8161    T3899:;
8162            V877= CMPcdr((V877));
8163            V878= CMPcar((V877));
8164            goto T3894;}
8165            goto T3890;
8166    T3890:;
8167            goto T3833;
8168            goto T3876;
8169    T3876:;
8170            goto T3875;
8171            goto T3873;
8172    T3873:;
8173            {object V880;
8174            V880= ((V864))->v.v_self[0];
8175            if(type_of((V880))==t_fixnum){
8176            goto T3914;}
8177            base[3]= VV[58];
8178            vs_top=(vs_base=base+3)+1;
8179            Lerror();
8180            vs_top=sup;
8181            goto T3914;
8182    T3914:;
8183            V879= fix((V880));}
8184            if((V873)==(V879)){
8185            goto T3860;}
8186            goto T3833;}}
8187            goto T3860;
8188    T3860:;
8189            base[3]= (V862);
8190          base[4]= VV[2];          base[4]= VV[2];
8191          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8192          (void) (*Lnk262)();          (void) (*Lnk292)();
8193          vs_top=sup;          vs_top=sup;
8194          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8195          goto T3850;}          goto T3920;}
8196          base[3]= STREF(object,(V878),0);          base[3]= STREF(object,(V862),0);
8197          base[4]= STREF(object,(V878),4);          base[4]= STREF(object,(V862),4);
8198          base[5]= STREF(object,(V878),8);          base[5]= STREF(object,(V862),8);
8199          base[6]= (V875);          base[6]= (V859);
8200          base[7]= (V876);          base[7]= (V860);
8201          base[8]= (V877);          base[8]= (V861);
8202          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
8203          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8204                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8205                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8206                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8207          return;          return;
8208          goto T3850;          goto T3920;
8209  T3850:;  T3920:;
8210          base[3]= V878;          base[3]= V862;
8211          base[4]= VV[10];          base[4]= VV[10];
8212          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8213          (void) (*Lnk262)();          (void) (*Lnk292)();
8214          vs_top=sup;          vs_top=sup;
8215          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8216          goto T3861;}          goto T3931;}
8217          {object V899;          {object V883;
8218          object V900;          object V884;
8219          object V901;          object V885;
8220          V899= STREF(object,(V878),0);          V883= STREF(object,(V862),0);
8221          V900= listA(3,(V875),(V876),(V877));          V884= listA(3,(V859),(V860),(V861));
8222          V901= STREF(object,(V878),4);          V885= STREF(object,(V862),4);
8223          if(((V901))==Cnil){          if(((V885))==Cnil){
8224          goto T3869;}          goto T3939;}
8225          if((CMPcdr((V901)))!=Cnil){          if((CMPcdr((V885)))!=Cnil){
8226          goto T3869;}          goto T3939;}
8227          base[3]= (V900);          base[3]= (V884);
8228          base[4]= CMPcar((V901));          base[4]= CMPcar((V885));
8229          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8230          {object _funobj = (V899);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V883);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8231                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8232                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8233                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8234          return;          return;
8235          goto T3869;          goto T3939;
8236  T3869:;  T3939:;
8237          base[3]= (V899);          base[3]= (V883);
8238          base[4]= (V900);          base[4]= (V884);
8239          {object V902;          {object V886;
8240          V902= (V901);          V886= (V885);
8241           vs_top=base+5;           vs_top=base+5;
8242           while(V902!=Cnil)           while(V886!=Cnil)
8243           {vs_push((V902)->c.c_car);V902=(V902)->c.c_cdr;}           {vs_push((V886)->c.c_car);V886=(V886)->c.c_cdr;}
8244          vs_base=base+4;}          vs_base=base+4;}
8245          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8246                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8247                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8248                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8249          return;}          return;}
8250          goto T3861;          goto T3931;
8251  T3861:;  T3931:;
8252          base[3]= V878;          base[3]= V862;
8253          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8254          Lfunctionp();          Lfunctionp();
8255          vs_top=sup;          vs_top=sup;
8256          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8257          goto T3879;}          goto T3949;}
8258          base[3]= (V878);          base[3]= (V862);
8259          base[4]= (V875);          base[4]= (V859);
8260          base[5]= (V876);          base[5]= (V860);
8261          {object V903;          {object V887;
8262          V903= (V877);          V887= (V861);
8263           vs_top=base+6;           vs_top=base+6;
8264           while(V903!=Cnil)           while(V887!=Cnil)
8265           {vs_push((V903)->c.c_car);V903=(V903)->c.c_cdr;}           {vs_push((V887)->c.c_car);V887=(V887)->c.c_cdr;}
8266          vs_base=base+4;}          vs_base=base+4;}
8267          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8268                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8269                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8270                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8271          return;          return;
8272          goto T3879;          goto T3949;
8273  T3879:;  T3949:;
8274          base[4]= VV[11];          base[3]= VV[11];
8275          base[5]= V878;          base[4]= VV[12];
8276          base[6]= VV[74];          base[5]= VV[13];
8277          vs_top=(vs_base=base+4)+3;          base[6]= VV[14];
8278          (void) (*Lnk264)();          base[7]= V862;
8279          vs_top=sup;          base[8]= VV[15];
8280          base[3]= vs_base[0];          base[9]= VV[89];
8281          vs_top=(vs_base=base+3)+1;          base[10]= VV[17];
8282          Lerror();          base[11]= VV[90];
8283            vs_top=(vs_base=base+3)+9;
8284            (void) (*Lnk294)();
8285          return;}          return;}
8286          goto T3763;          goto T3833;
8287  T3763:;  T3833:;
8288          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
8289          base[4]= (V875);          base[4]= (V859);
8290          base[5]= (V876);          base[5]= (V860);
8291          {object V904;          {object V888;
8292          V904= (V877);          V888= (V861);
8293           vs_top=base+6;           vs_top=base+6;
8294           while(V904!=Cnil)           while(V888!=Cnil)
8295           {vs_push((V904)->c.c_car);V904=(V904)->c.c_cdr;}           {vs_push((V888)->c.c_car);V888=(V888)->c.c_cdr;}
8296          vs_base=base+4;}          vs_base=base+4;}
8297          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8298                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8328  register object *base0; Line 8327  register object *base0;
8327  {       register object *base=vs_base;  {       register object *base=vs_base;
8328          register object *sup=base+VM131; VC131          register object *sup=base+VM131; VC131
8329          vs_check;          vs_check;
8330          {object V905;          {object V889;
8331          object V906;          object V890;
8332          object V907;          object V891;
8333          check_arg(3);          object V892;
8334          V905=(base[0]);          if(vs_top-vs_base<3) too_few_arguments();
8335          V906=(base[1]);          V889=(base[0]);
8336          V907=(base[2]);          V890=(base[1]);
8337          vs_top=sup;          V891=(base[2]);
8338          {object V908;          vs_base=vs_base+3;
8339          V908= Cnil;          vs_top[0]=Cnil;
8340          {long V909;          {object *p=vs_top;
8341          register object V910;           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8342          long V911;          V892=(base[3]);
         long V912;  
         object V913;  
         object V914;  
         object V915;  
         object V916;  
         V909= (long)STREF(unsigned char,(base0[1]->c.c_car),16);  
         V910= STREF(object,(base0[1]->c.c_car),40);  
         V911= (long)STREF(fixnum,(base0[1]->c.c_car),24);  
         V912= (long)STREF(fixnum,(base0[1]->c.c_car),28);  
         V913= STREF(object,(base0[1]->c.c_car),44);  
         if(type_of(V905)==t_structure){  
         goto T3906;}  
         goto T3904;  
         goto T3906;  
 T3906:;  
         if(!(((V905)->str.str_def)==(VV[68]))){  
         goto T3904;}  
         V914= STREF(object,(V905),0);  
         goto T3902;  
         goto T3904;  
 T3904:;{object V918;  
         V918= (VV[33]->s.s_dbind);  
         base[3]= small_fixnum(14);  
         base[4]= (V905);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk257)();  
         vs_top=sup;  
         V919= vs_base[0];  
         if(!((V918)==(CMPcar(V919)))){  
         goto T3909;}}  
         V914= CMPcar(((V905))->cc.cc_turbo[13]);  
         goto T3902;  
         goto T3909;  
 T3909:;  
         if(!(type_of((V905))==t_structure)){  
         goto T3915;}  
         V914= (*(LnkLI260))((V905));  
         goto T3902;  
         goto T3915;  
 T3915:;  
         if(!(type_of((V905))==t_symbol)){  
         goto T3918;}  
         if(((V905))==Cnil){  
         goto T3921;}  
         V914= (VV[47]->s.s_dbind);  
         goto T3902;  
         goto T3921;  
 T3921:;  
         V914= (VV[48]->s.s_dbind);  
         goto T3902;  
         goto T3918;  
 T3918:;  
         V914= (*(LnkLI261))((V905));  
         goto T3902;  
 T3902:;  
         if(type_of(V906)==t_structure){  
         goto T3927;}  
         goto T3925;  
         goto T3927;  
 T3927:;  
         if(!(((V906)->str.str_def)==(VV[69]))){  
         goto T3925;}  
         V915= STREF(object,(V906),0);  
         goto T3923;  
         goto T3925;  
 T3925:;{object V921;  
         V921= (VV[33]->s.s_dbind);  
         base[3]= small_fixnum(14);  
         base[4]= (V906);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk257)();  
8343          vs_top=sup;          vs_top=sup;
8344          V922= vs_base[0];          {register object V893;
8345          if(!((V921)==(CMPcar(V922)))){          V893= Cnil;
8346          goto T3930;}}          {long V894;
8347          V915= CMPcar(((V906))->cc.cc_turbo[13]);          register object V895;
8348          goto T3923;          long V896;
8349          goto T3930;          long V897;
8350  T3930:;          object V898;
8351          if(!(type_of((V906))==t_structure)){          register object V899;
8352          goto T3936;}          V894= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
8353          V915= (*(LnkLI260))((V906));          V895= STREF(object,(base0[1]->c.c_car),40);
8354          goto T3923;          V896= (long)STREF(fixnum,(base0[1]->c.c_car),24);
8355          goto T3936;          V897= (long)STREF(fixnum,(base0[1]->c.c_car),28);
8356  T3936:;          V898= STREF(object,(base0[1]->c.c_car),44);
8357          if(!(type_of((V906))==t_symbol)){          if(type_of(V889)==t_structure){
8358          goto T3939;}          goto T3981;}
8359          if(((V906))==Cnil){          goto T3979;
8360          goto T3942;}          goto T3981;
8361          V915= (VV[47]->s.s_dbind);  T3981:;
8362          goto T3923;          if(!(((V889)->str.str_def)==(VV[84]))){
8363          goto T3942;          goto T3979;}
8364  T3942:;          V899= STREF(object,(V889),0);
8365          V915= (VV[48]->s.s_dbind);          goto T3977;
8366          goto T3923;          goto T3979;
8367          goto T3939;  T3979:;{object V901;
8368  T3939:;          V901= (VV[42]->s.s_dbind);
8369          V915= (*(LnkLI261))((V906));          base[4]= small_fixnum(14);
8370          goto T3923;          base[5]= (V889);
8371  T3923:;          vs_top=(vs_base=base+4)+2;
8372          if(type_of(V907)==t_structure){          (void) (*Lnk287)();
         goto T3948;}  
         goto T3946;  
         goto T3948;  
 T3948:;  
         if(!(((V907)->str.str_def)==(VV[70]))){  
         goto T3946;}  
         V916= STREF(object,(V907),0);  
         goto T3944;  
         goto T3946;  
 T3946:;{object V924;  
         V924= (VV[33]->s.s_dbind);  
         base[3]= small_fixnum(14);  
         base[4]= (V907);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk257)();  
8373          vs_top=sup;          vs_top=sup;
8374          V925= vs_base[0];          V902= vs_base[0];
8375          if(!((V924)==(CMPcar(V925)))){          if(!((V901)==(CMPcar(V902)))){
8376          goto T3951;}}          goto T3984;}}
8377          V916= CMPcar(((V907))->cc.cc_turbo[13]);          V899= CMPcar(((V889))->cc.cc_turbo[13]);
         goto T3944;  
         goto T3951;  
 T3951:;  
         if(!(type_of((V907))==t_structure)){  
         goto T3957;}  
         V916= (*(LnkLI260))((V907));  
         goto T3944;  
         goto T3957;  
 T3957:;  
         if(!(type_of((V907))==t_symbol)){  
         goto T3960;}  
         if(((V907))==Cnil){  
         goto T3963;}  
         V916= (VV[47]->s.s_dbind);  
         goto T3944;  
         goto T3963;  
 T3963:;  
         V916= (VV[48]->s.s_dbind);  
         goto T3944;  
         goto T3960;  
 T3960:;  
         V916= (*(LnkLI261))((V907));  
         goto T3944;  
 T3944:;  
         {long V926;  
         long V927;  
         V926= 0;  
         V927= (long)(V912)-(1);  
         {long V928;  
         V928= fix(((V914))->v.v_self[V909]);  
         if(!((V928)==0)){  
         goto T3971;}  
         goto T3896;  
         goto T3971;  
 T3971:;  
         V926= (long)(V926)+(V928);}  
         {long V929;  
         V929= fix(((V915))->v.v_self[V909]);  
         if(!((V929)==0)){  
         goto T3977;}  
         goto T3896;  
8378          goto T3977;          goto T3977;
8379  T3977:;          goto T3984;
8380          V926= (long)(V926)+(V929);}  T3984:;
8381          {long V930;          if(!(type_of((V889))==t_structure)){
         V930= fix(((V916))->v.v_self[V909]);  
         if(!((V930)==0)){  
         goto T3982;}  
         goto T3896;  
         goto T3982;  
 T3982:;  
         V926= (long)(V926)+(V930);  
         V926= (long)((V926) & (V911));}  
         {long V931;  
         {object V932;  
         V932= ((V910))->v.v_self[0];  
         if(type_of((V932))==t_fixnum){  
8382          goto T3990;}          goto T3990;}
8383          base[3]= VV[49];          V899= (*(LnkLI290))((V889));
8384          vs_top=(vs_base=base+3)+1;          goto T3977;
         Lerror();  
         vs_top=sup;  
8385          goto T3990;          goto T3990;
8386  T3990:;  T3990:;
8387          V931= fix((V932));}          if(!(type_of((V889))==t_symbol)){
8388          {register long V933;          goto T3993;}
8389          long V934;          if(((V889))==Cnil){
8390          V933= V926;          goto T3996;}
8391          V934= 0;          V899= (VV[56]->s.s_dbind);
8392          goto T3998;          goto T3977;
 T3998:;  
         V934= (long)(V933)+(4);  
         V935 = (V910);  
         V933= (long)(V933)+(1);  
         V936 = V933;  
         if(!(((V914))==((V935)->v.v_self[V936]))){  
         goto T4002;}  
         V937 = (V910);  
         V933= (long)(V933)+(1);  
         V938 = V933;  
         if(!(((V915))==((V937)->v.v_self[V938]))){  
         goto T4002;}  
         V939 = (V910);  
         V933= (long)(V933)+(1);  
         V940 = V933;  
         if(!(((V916))==((V939)->v.v_self[V940]))){  
         goto T4002;}  
         V933= (long)(V933)+(1);  
         V908= ((V910))->v.v_self[V933];  
8393          goto T3996;          goto T3996;
8394          goto T4002;  T3996:;
8395  T4002:;          V899= (VV[57]->s.s_dbind);
8396          V933= V934;          goto T3977;
8397          if(!((V933)==(V927))){          goto T3993;
8398          goto T4018;}  T3993:;
8399          V933= 0;          V899= (*(LnkLI291))((V889));
8400          goto T4018;          goto T3977;
8401  T4018:;  T3977:;
8402          if(!((V933)==(V926))){          {long V903;
8403          goto T3999;}          long V904;
8404          {register object V941;          {long V905;
8405          register object V942;          V905= fix(((V899))->v.v_self[V894]);
8406          V941= (V913);          if(!((V905)==0)){
8407          V942= CMPcar((V941));          goto T4001;}
8408          goto T4028;          goto T3971;
8409  T4028:;          goto T4001;
8410          if(!(((V941))==Cnil)){  T4001:;
8411          goto T4029;}          V903= (long)((V896) & (V905));}
8412          goto T4024;          {object V906;
8413          goto T4029;          V906= ((V895))->v.v_self[0];
8414  T4029:;          if(type_of((V906))==t_fixnum){
8415          {register object V943;          goto T4006;}
8416          V943= CMPcar((V942));          base[4]= VV[58];
8417          V944 = (V914);          vs_top=(vs_base=base+4)+1;
8418          {register object V946;          Lerror();
8419          V946= CMPcar((V943));          vs_top=sup;
8420          V943= CMPcdr((V943));          goto T4006;
8421          V945= (V946);}  T4006:;
8422          if(!((V944)==(V945))){          V904= fix((V906));}
8423          goto T4033;}          {register long V907;
8424          V947 = (V915);          V907= V903;
8425          {register object V949;          goto T4013;
8426          V949= CMPcar((V943));  T4013:;
8427          V943= CMPcdr((V943));          if(!(((V899))==(((V895))->v.v_self[V907]))){
8428          V948= (V949);}          goto T4015;}
8429          if(!((V947)==(V948))){          V893= ((V895))->v.v_self[(long)(V907)+1];
8430          goto T4033;}          goto T4011;
8431          V950 = (V916);          goto T4015;
8432          {register object V952;  T4015:;
8433          V952= CMPcar((V943));          V907= (long)(V907)+(2);
8434          V943= CMPcdr((V943));          if(!((V907)==(V897))){
8435          V951= (V952);}          goto T4022;}
8436          if(!((V950)==(V951))){          V907= 0;
8437            goto T4022;
8438    T4022:;
8439            if(!((V907)==(V903))){
8440            goto T4014;}
8441            {register object V908;
8442            register object V909;
8443            V908= (V898);
8444            V909= CMPcar((V908));
8445            goto T4032;
8446    T4032:;
8447            if(!(((V908))==Cnil)){
8448          goto T4033;}          goto T4033;}
8449          V908= CMPcdr((V942));          goto T4028;
         goto T3996;}  
8450          goto T4033;          goto T4033;
8451  T4033:;  T4033:;
8452          V941= CMPcdr((V941));          if(!((CMPcar((V909)))==((V899)))){
8453          V942= CMPcar((V941));          goto T4037;}
8454          goto T4028;}          V893= CMPcdr((V909));
8455          goto T4024;          goto T4011;
8456  T4024:;          goto T4037;
8457          goto T3896;  T4037:;
8458          goto T3999;          V908= CMPcdr((V908));
8459  T3999:;          V909= CMPcar((V908));
8460          goto T3998;          goto T4032;}
8461          goto T3996;          goto T4028;
8462  T3996:;  T4028:;
8463          V953 = V931;          goto T3971;
8464          {object V955;          goto T4014;
8465          V955= ((V910))->v.v_self[0];  T4014:;
8466          if(type_of((V955))==t_fixnum){          goto T4013;
8467          goto T4065;}          goto T4011;
8468          base[3]= VV[49];  T4011:;
8469          vs_top=(vs_base=base+3)+1;          {object V911;
8470            V911= ((V895))->v.v_self[0];
8471            if(type_of((V911))==t_fixnum){
8472            goto T4052;}
8473            base[4]= VV[58];
8474            vs_top=(vs_base=base+4)+1;
8475          Lerror();          Lerror();
8476          vs_top=sup;          vs_top=sup;
8477          goto T4065;          goto T4052;
8478  T4065:;  T4052:;
8479          V954= fix((V955));}          V910= fix((V911));}
8480          if((V953)==(V954)){          if((V904)==(V910)){
8481          goto T3965;}          goto T3998;}
8482          goto T3896;}}}          goto T3971;}}
8483          goto T3965;          goto T3998;
8484  T3965:;  T3998:;
8485          base[3]= (V908);          base[4]= (V893);
8486          base[4]= VV[2];          base[5]= VV[2];
8487          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+4)+2;
8488          (void) (*Lnk262)();          (void) (*Lnk292)();
8489          vs_top=sup;          vs_top=sup;
8490          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8491          goto T4071;}          goto T4058;}
8492          base[3]= STREF(object,(V908),0);          base[4]= STREF(object,(V893),0);
8493          base[4]= STREF(object,(V908),4);          base[5]= STREF(object,(V893),4);
8494          base[5]= STREF(object,(V908),8);          base[6]= STREF(object,(V893),8);
8495          base[6]= (V905);          base[7]= (V889);
8496          base[7]= (V906);          base[8]= (V890);
8497          base[8]= (V907);          base[9]= (V891);
8498          vs_top=(vs_base=base+4)+5;          base[10]= (V892);
8499          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          vs_top=(vs_base=base+5)+6;
8500            {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8501                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8502                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8503                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8504          return;          return;
8505          goto T4071;          goto T4058;
8506  T4071:;  T4058:;
8507          base[3]= V908;          base[4]= V893;
8508          base[4]= VV[10];          base[5]= VV[10];
8509          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+4)+2;
8510          (void) (*Lnk262)();          (void) (*Lnk292)();
8511          vs_top=sup;          vs_top=sup;
8512          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8513          goto T4082;}          goto T4070;}
8514          {object V957;          {object V914;
8515          object V958;          object V915;
8516          object V959;          object V916;
8517          V957= STREF(object,(V908),0);          V914= STREF(object,(V893),0);
8518          V958= list(3,(V905),(V906),(V907));          V915= listA(4,(V889),(V890),(V891),(V892));
8519          V959= STREF(object,(V908),4);          V916= STREF(object,(V893),4);
8520          if(((V959))==Cnil){          if(((V916))==Cnil){
8521          goto T4090;}          goto T4078;}
8522          if((CMPcdr((V959)))!=Cnil){          if((CMPcdr((V916)))!=Cnil){
8523          goto T4090;}          goto T4078;}
8524          base[3]= (V958);          base[4]= (V915);
8525          base[4]= CMPcar((V959));          base[5]= CMPcar((V916));
8526          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+4)+2;
8527          {object _funobj = (V957);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V914);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8528                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8529                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8530                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8531          return;          return;
8532          goto T4090;          goto T4078;
8533  T4090:;  T4078:;
8534          base[3]= (V957);          base[4]= (V914);
8535          base[4]= (V958);          base[5]= (V915);
8536          {object V960;          {object V917;
8537          V960= (V959);          V917= (V916);
8538           vs_top=base+5;           vs_top=base+6;
8539           while(V960!=Cnil)           while(V917!=Cnil)
8540           {vs_push((V960)->c.c_car);V960=(V960)->c.c_cdr;}           {vs_push((V917)->c.c_car);V917=(V917)->c.c_cdr;}
8541          vs_base=base+4;}          vs_base=base+5;}
8542          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8543                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8544                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8545                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8546          return;}          return;}
8547          goto T4082;          goto T4070;
8548  T4082:;  T4070:;
8549          base[3]= V908;          base[4]= V893;
8550          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+4)+1;
8551          Lfunctionp();          Lfunctionp();
8552          vs_top=sup;          vs_top=sup;
8553          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8554          goto T4100;}          goto T4088;}
8555          base[3]= (V905);          base[4]= (V893);
8556          base[4]= (V906);          base[5]= (V889);
8557          base[5]= (V907);          base[6]= (V890);
8558          vs_top=(vs_base=base+3)+3;          base[7]= (V891);
8559          {object _funobj = (V908);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object V918;
8560            V918= (V892);
8561             vs_top=base+8;
8562             while(V918!=Cnil)
8563             {vs_push((V918)->c.c_car);V918=(V918)->c.c_cdr;}
8564            vs_base=base+5;}
8565            {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8566                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8567                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8568                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8569          return;          return;
8570          goto T4100;          goto T4088;
8571  T4100:;  T4088:;
8572          base[4]= VV[11];          base[4]= VV[11];
8573          base[5]= V908;          base[5]= VV[12];
8574          base[6]= VV[71];          base[6]= VV[13];
8575          vs_top=(vs_base=base+4)+3;          base[7]= VV[14];
8576          (void) (*Lnk264)();          base[8]= V893;
8577          vs_top=sup;          base[9]= VV[15];
8578          base[3]= vs_base[0];          base[10]= VV[85];
8579          vs_top=(vs_base=base+3)+1;          base[11]= VV[17];
8580          Lerror();          base[12]= VV[86];
8581            vs_top=(vs_base=base+4)+9;
8582            (void) (*Lnk294)();
8583          return;}          return;}
8584          goto T3896;          goto T3971;
8585  T3896:;  T3971:;
8586          base[3]= (V905);          base[4]= (base0[0]->c.c_car);
8587          base[4]= (V906);          base[5]= (V889);
8588          base[5]= (V907);          base[6]= (V890);
8589          vs_top=(vs_base=base+3)+3;          base[7]= (V891);
8590          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object V919;
8591            V919= (V892);
8592             vs_top=base+8;
8593             while(V919!=Cnil)
8594             {vs_push((V919)->c.c_car);V919=(V919)->c.c_cdr;}
8595            vs_base=base+5;}
8596            {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8597                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8598                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8599                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8600          return;          return;
8601          base[3]= Cnil;          base[4]= Cnil;
8602          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+4)+1;
8603          return;}          return;}
8604          }          }
8605  }  }
# Line 8757  register object *base0; Line 8626  register object *base0;
8626  {       register object *base=vs_base;  {       register object *base=vs_base;
8627          register object *sup=base+VM133; VC133          register object *sup=base+VM133; VC133
8628          vs_check;          vs_check;
8629          {object V961;          {object V920;
8630          object V962;          object V921;
8631          object V963;          object V922;
8632          object V964;          check_arg(3);
8633          if(vs_top-vs_base<3) too_few_arguments();          V920=(base[0]);
8634          V961=(base[0]);          V921=(base[1]);
8635          V962=(base[1]);          V922=(base[2]);
8636          V963=(base[2]);          vs_top=sup;
8637          vs_base=vs_base+3;          {object V923;
8638          vs_top[0]=Cnil;          V923= Cnil;
8639          {object *p=vs_top;          {long V924;
8640           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}          register object V925;
8641          V964=(base[3]);          long V926;
8642            long V927;
8643            object V928;
8644            object V929;
8645            object V930;
8646            object V931;
8647            V924= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
8648            V925= STREF(object,(base0[1]->c.c_car),40);
8649            V926= (long)STREF(fixnum,(base0[1]->c.c_car),24);
8650            V927= (long)STREF(fixnum,(base0[1]->c.c_car),28);
8651            V928= STREF(object,(base0[1]->c.c_car),44);
8652            if(type_of(V920)==t_structure){
8653            goto T4122;}
8654            goto T4120;
8655            goto T4122;
8656    T4122:;
8657            if(!(((V920)->str.str_def)==(VV[78]))){
8658            goto T4120;}
8659            V929= STREF(object,(V920),0);
8660            goto T4118;
8661            goto T4120;
8662    T4120:;{object V933;
8663            V933= (VV[42]->s.s_dbind);
8664            base[3]= small_fixnum(14);
8665            base[4]= (V920);
8666            vs_top=(vs_base=base+3)+2;
8667            (void) (*Lnk287)();
8668          vs_top=sup;          vs_top=sup;
8669          {register object V965;          V934= vs_base[0];
8670          V965= Cnil;          if(!((V933)==(CMPcar(V934)))){
8671          {long V966;          goto T4125;}}
8672          register object V967;          V929= CMPcar(((V920))->cc.cc_turbo[13]);
8673          long V968;          goto T4118;
         long V969;  
         object V970;  
         register object V971;  
         V966= (long)STREF(unsigned char,(base0[1]->c.c_car),16);  
         V967= STREF(object,(base0[1]->c.c_car),40);  
         V968= (long)STREF(fixnum,(base0[1]->c.c_car),24);  
         V969= (long)STREF(fixnum,(base0[1]->c.c_car),28);  
         V970= STREF(object,(base0[1]->c.c_car),44);  
         if(type_of(V961)==t_structure){  
         goto T4125;}  
         goto T4123;  
8674          goto T4125;          goto T4125;
8675  T4125:;  T4125:;
8676          if(!(((V961)->str.str_def)==(VV[65]))){          if(!(type_of((V920))==t_structure)){
8677          goto T4123;}          goto T4131;}
8678          V971= STREF(object,(V961),0);          V929= (*(LnkLI290))((V920));
8679          goto T4121;          goto T4118;
8680          goto T4123;          goto T4131;
8681  T4123:;{object V973;  T4131:;
8682          V973= (VV[33]->s.s_dbind);          if(!(type_of((V920))==t_symbol)){
         base[4]= small_fixnum(14);  
         base[5]= (V961);  
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk257)();  
         vs_top=sup;  
         V974= vs_base[0];  
         if(!((V973)==(CMPcar(V974)))){  
         goto T4128;}}  
         V971= CMPcar(((V961))->cc.cc_turbo[13]);  
         goto T4121;  
         goto T4128;  
 T4128:;  
         if(!(type_of((V961))==t_structure)){  
8683          goto T4134;}          goto T4134;}
8684          V971= (*(LnkLI260))((V961));          if(((V920))==Cnil){
         goto T4121;  
         goto T4134;  
 T4134:;  
         if(!(type_of((V961))==t_symbol)){  
8685          goto T4137;}          goto T4137;}
8686          if(((V961))==Cnil){          V929= (VV[56]->s.s_dbind);
8687          goto T4140;}          goto T4118;
         V971= (VV[47]->s.s_dbind);  
         goto T4121;  
         goto T4140;  
 T4140:;  
         V971= (VV[48]->s.s_dbind);  
         goto T4121;  
8688          goto T4137;          goto T4137;
8689  T4137:;  T4137:;
8690          V971= (*(LnkLI261))((V961));          V929= (VV[57]->s.s_dbind);
8691          goto T4121;          goto T4118;
8692  T4121:;          goto T4134;
8693          {long V975;  T4134:;
8694          long V976;          V929= (*(LnkLI291))((V920));
8695          {long V977;          goto T4118;
8696          V977= fix(((V971))->v.v_self[V966]);  T4118:;
8697          if(!((V977)==0)){          if(type_of(V921)==t_structure){
8698          goto T4145;}          goto T4143;}
8699          goto T4115;          goto T4141;
8700          goto T4145;          goto T4143;
8701  T4145:;  T4143:;
8702          V975= (long)((V968) & (V977));}          if(!(((V921)->str.str_def)==(VV[79]))){
8703          {object V978;          goto T4141;}
8704          V978= ((V967))->v.v_self[0];          V930= STREF(object,(V921),0);
8705          if(type_of((V978))==t_fixnum){          goto T4139;
8706          goto T4150;}          goto T4141;
8707          base[4]= VV[49];  T4141:;{object V936;
8708          vs_top=(vs_base=base+4)+1;          V936= (VV[42]->s.s_dbind);
8709          Lerror();          base[3]= small_fixnum(14);
8710            base[4]= (V921);
8711            vs_top=(vs_base=base+3)+2;
8712            (void) (*Lnk287)();
8713          vs_top=sup;          vs_top=sup;
8714          goto T4150;          V937= vs_base[0];
8715  T4150:;          if(!((V936)==(CMPcar(V937)))){
8716          V976= fix((V978));}          goto T4146;}}
8717          {register long V979;          V930= CMPcar(((V921))->cc.cc_turbo[13]);
8718          V979= V975;          goto T4139;
8719          goto T4157;          goto T4146;
8720  T4157:;  T4146:;
8721          if(!(((V971))==(((V967))->v.v_self[V979]))){          if(!(type_of((V921))==t_structure)){
8722          goto T4159;}          goto T4152;}
8723          V965= ((V967))->v.v_self[(long)(V979)+1];          V930= (*(LnkLI290))((V921));
8724          goto T4155;          goto T4139;
8725          goto T4159;          goto T4152;
8726  T4159:;  T4152:;
8727          V979= (long)(V979)+(2);          if(!(type_of((V921))==t_symbol)){
8728          if(!((V979)==(V969))){          goto T4155;}
8729          goto T4166;}          if(((V921))==Cnil){
         V979= 0;  
         goto T4166;  
 T4166:;  
         if(!((V979)==(V975))){  
8730          goto T4158;}          goto T4158;}
8731          {register object V980;          V930= (VV[56]->s.s_dbind);
8732          register object V981;          goto T4139;
         V980= (V970);  
         V981= CMPcar((V980));  
         goto T4176;  
 T4176:;  
         if(!(((V980))==Cnil)){  
         goto T4177;}  
         goto T4172;  
         goto T4177;  
 T4177:;  
         if(!((CMPcar((V981)))==((V971)))){  
         goto T4181;}  
         V965= CMPcdr((V981));  
         goto T4155;  
         goto T4181;  
 T4181:;  
         V980= CMPcdr((V980));  
         V981= CMPcar((V980));  
         goto T4176;}  
         goto T4172;  
 T4172:;  
         goto T4115;  
8733          goto T4158;          goto T4158;
8734  T4158:;  T4158:;
8735          goto T4157;          V930= (VV[57]->s.s_dbind);
8736            goto T4139;
8737          goto T4155;          goto T4155;
8738  T4155:;  T4155:;
8739          V982 = V976;          V930= (*(LnkLI291))((V921));
8740          {object V984;          goto T4139;
8741          V984= ((V967))->v.v_self[0];  T4139:;
8742          if(type_of((V984))==t_fixnum){          if(type_of(V922)==t_structure){
8743          goto T4196;}          goto T4164;}
8744          base[4]= VV[49];          goto T4162;
8745          vs_top=(vs_base=base+4)+1;          goto T4164;
8746    T4164:;
8747            if(!(((V922)->str.str_def)==(VV[80]))){
8748            goto T4162;}
8749            V931= STREF(object,(V922),0);
8750            goto T4160;
8751            goto T4162;
8752    T4162:;{object V939;
8753            V939= (VV[42]->s.s_dbind);
8754            base[3]= small_fixnum(14);
8755            base[4]= (V922);
8756            vs_top=(vs_base=base+3)+2;
8757            (void) (*Lnk287)();
8758            vs_top=sup;
8759            V940= vs_base[0];
8760            if(!((V939)==(CMPcar(V940)))){
8761            goto T4167;}}
8762            V931= CMPcar(((V922))->cc.cc_turbo[13]);
8763            goto T4160;
8764            goto T4167;
8765    T4167:;
8766            if(!(type_of((V922))==t_structure)){
8767            goto T4173;}
8768            V931= (*(LnkLI290))((V922));
8769            goto T4160;
8770            goto T4173;
8771    T4173:;
8772            if(!(type_of((V922))==t_symbol)){
8773            goto T4176;}
8774            if(((V922))==Cnil){
8775            goto T4179;}
8776            V931= (VV[56]->s.s_dbind);
8777            goto T4160;
8778            goto T4179;
8779    T4179:;
8780            V931= (VV[57]->s.s_dbind);
8781            goto T4160;
8782            goto T4176;
8783    T4176:;
8784            V931= (*(LnkLI291))((V922));
8785            goto T4160;
8786    T4160:;
8787            {long V941;
8788            long V942;
8789            V941= 0;
8790            V942= (long)(V927)-(1);
8791            {long V943;
8792            V943= fix(((V929))->v.v_self[V924]);
8793            if(!((V943)==0)){
8794            goto T4187;}
8795            goto T4112;
8796            goto T4187;
8797    T4187:;
8798            V941= (long)(V941)+(V943);}
8799            {long V944;
8800            V944= fix(((V930))->v.v_self[V924]);
8801            if(!((V944)==0)){
8802            goto T4193;}
8803            goto T4112;
8804            goto T4193;
8805    T4193:;
8806            V941= (long)(V941)+(V944);}
8807            {long V945;
8808            V945= fix(((V931))->v.v_self[V924]);
8809            if(!((V945)==0)){
8810            goto T4198;}
8811            goto T4112;
8812            goto T4198;
8813    T4198:;
8814            V941= (long)(V941)+(V945);
8815            V941= (long)((V941) & (V926));}
8816            {long V946;
8817            {object V947;
8818            V947= ((V925))->v.v_self[0];
8819            if(type_of((V947))==t_fixnum){
8820            goto T4206;}
8821            base[3]= VV[58];
8822            vs_top=(vs_base=base+3)+1;
8823          Lerror();          Lerror();
8824          vs_top=sup;          vs_top=sup;
8825          goto T4196;          goto T4206;
8826  T4196:;  T4206:;
8827          V983= fix((V984));}          V946= fix((V947));}
8828          if((V982)==(V983)){          {register long V948;
8829          goto T4142;}          long V949;
8830          goto T4115;}}          V948= V941;
8831          goto T4142;          V949= 0;
8832  T4142:;          goto T4214;
8833          base[4]= (V965);  T4214:;
8834          base[5]= VV[2];          V949= (long)(V948)+(4);
8835          vs_top=(vs_base=base+4)+2;          V948= (long)(V948)+(1);
8836          (void) (*Lnk262)();          if(!(((V929))==(((V925))->v.v_self[V948]))){
8837            goto T4218;}
8838            V948= (long)(V948)+(1);
8839            if(!(((V930))==(((V925))->v.v_self[V948]))){
8840            goto T4218;}
8841            V948= (long)(V948)+(1);
8842            if(!(((V931))==(((V925))->v.v_self[V948]))){
8843            goto T4218;}
8844            V948= (long)(V948)+(1);
8845            V923= ((V925))->v.v_self[V948];
8846            goto T4212;
8847            goto T4218;
8848    T4218:;
8849            V948= V949;
8850            if(!((V948)==(V942))){
8851            goto T4234;}
8852            V948= 0;
8853            goto T4234;
8854    T4234:;
8855            if(!((V948)==(V941))){
8856            goto T4215;}
8857            {register object V950;
8858            register object V951;
8859            V950= (V928);
8860            V951= CMPcar((V950));
8861            goto T4244;
8862    T4244:;
8863            if(!(((V950))==Cnil)){
8864            goto T4245;}
8865            goto T4240;
8866            goto T4245;
8867    T4245:;
8868            {register object V952;
8869            V952= CMPcar((V951));
8870            {register object V954;
8871            V954= CMPcar((V952));
8872            V952= CMPcdr((V952));
8873            V953= (V954);}
8874            if(!(((V929))==(V953))){
8875            goto T4249;}
8876            {register object V956;
8877            V956= CMPcar((V952));
8878            V952= CMPcdr((V952));
8879            V955= (V956);}
8880            if(!(((V930))==(V955))){
8881            goto T4249;}
8882            {register object V958;
8883            V958= CMPcar((V952));
8884            V952= CMPcdr((V952));
8885            V957= (V958);}
8886            if(!(((V931))==(V957))){
8887            goto T4249;}
8888            V923= CMPcdr((V951));
8889            goto T4212;}
8890            goto T4249;
8891    T4249:;
8892            V950= CMPcdr((V950));
8893            V951= CMPcar((V950));
8894            goto T4244;}
8895            goto T4240;
8896    T4240:;
8897            goto T4112;
8898            goto T4215;
8899    T4215:;
8900            goto T4214;
8901            goto T4212;
8902    T4212:;
8903            {object V960;
8904            V960= ((V925))->v.v_self[0];
8905            if(type_of((V960))==t_fixnum){
8906            goto T4281;}
8907            base[3]= VV[58];
8908            vs_top=(vs_base=base+3)+1;
8909            Lerror();
8910            vs_top=sup;
8911            goto T4281;
8912    T4281:;
8913            V959= fix((V960));}
8914            if((V946)==(V959)){
8915            goto T4181;}
8916            goto T4112;}}}
8917            goto T4181;
8918    T4181:;
8919            base[3]= (V923);
8920            base[4]= VV[2];
8921            vs_top=(vs_base=base+3)+2;
8922            (void) (*Lnk292)();
8923          vs_top=sup;          vs_top=sup;
8924          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8925          goto T4202;}          goto T4287;}
8926          base[4]= STREF(object,(V965),0);          base[3]= STREF(object,(V923),0);
8927          base[5]= STREF(object,(V965),4);          base[4]= STREF(object,(V923),4);
8928          base[6]= STREF(object,(V965),8);          base[5]= STREF(object,(V923),8);
8929          base[7]= (V961);          base[6]= (V920);
8930          base[8]= (V962);          base[7]= (V921);
8931          base[9]= (V963);          base[8]= (V922);
8932          base[10]= (V964);          vs_top=(vs_base=base+4)+5;
8933          vs_top=(vs_base=base+5)+6;          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
         {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
8934                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8935                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8936                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8937          return;          return;
8938          goto T4202;          goto T4287;
8939  T4202:;  T4287:;
8940          base[4]= V965;          base[3]= V923;
8941          base[5]= VV[10];          base[4]= VV[10];
8942          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+3)+2;
8943          (void) (*Lnk262)();          (void) (*Lnk292)();
8944          vs_top=sup;          vs_top=sup;
8945          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8946          goto T4214;}          goto T4298;}
8947          {object V986;          {object V963;
8948          object V987;          object V964;
8949          object V988;          object V965;
8950          V986= STREF(object,(V965),0);          V963= STREF(object,(V923),0);
8951          V987= listA(4,(V961),(V962),(V963),(V964));          V964= list(3,(V920),(V921),(V922));
8952          V988= STREF(object,(V965),4);          V965= STREF(object,(V923),4);
8953          if(((V988))==Cnil){          if(((V965))==Cnil){
8954          goto T4222;}          goto T4306;}
8955          if((CMPcdr((V988)))!=Cnil){          if((CMPcdr((V965)))!=Cnil){
8956          goto T4222;}          goto T4306;}
8957          base[4]= (V987);          base[3]= (V964);
8958          base[5]= CMPcar((V988));          base[4]= CMPcar((V965));
8959          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+3)+2;
8960          {object _funobj = (V986);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V963);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8961                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8962                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8963                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8964          return;          return;
8965          goto T4222;          goto T4306;
8966  T4222:;  T4306:;
8967          base[4]= (V986);          base[3]= (V963);
8968          base[5]= (V987);          base[4]= (V964);
8969          {object V989;          {object V966;
8970          V989= (V988);          V966= (V965);
8971           vs_top=base+6;           vs_top=base+5;
8972           while(V989!=Cnil)           while(V966!=Cnil)
8973           {vs_push((V989)->c.c_car);V989=(V989)->c.c_cdr;}           {vs_push((V966)->c.c_car);V966=(V966)->c.c_cdr;}
8974          vs_base=base+5;}          vs_base=base+4;}
8975          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8976                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8977                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8978                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8979          return;}          return;}
8980          goto T4214;          goto T4298;
8981  T4214:;  T4298:;
8982          base[4]= V965;          base[3]= V923;
8983          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+3)+1;
8984          Lfunctionp();          Lfunctionp();
8985          vs_top=sup;          vs_top=sup;
8986          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8987          goto T4232;}          goto T4316;}
8988          base[4]= (V965);          base[3]= (V920);
8989          base[5]= (V961);          base[4]= (V921);
8990          base[6]= (V962);          base[5]= (V922);
8991          base[7]= (V963);          vs_top=(vs_base=base+3)+3;
8992          {object V990;          {object _funobj = (V923);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
         V990= (V964);  
          vs_top=base+8;  
          while(V990!=Cnil)  
          {vs_push((V990)->c.c_car);V990=(V990)->c.c_cdr;}  
         vs_base=base+5;}  
         {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
8993                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8994                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8995                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8996          return;          return;
8997          goto T4232;          goto T4316;
8998  T4232:;  T4316:;
8999          base[5]= VV[11];          base[3]= VV[11];
9000          base[6]= V965;          base[4]= VV[12];
9001          base[7]= VV[66];          base[5]= VV[13];
9002          vs_top=(vs_base=base+5)+3;          base[6]= VV[14];
9003          (void) (*Lnk264)();          base[7]= V923;
9004          vs_top=sup;          base[8]= VV[15];
9005          base[4]= vs_base[0];          base[9]= VV[81];
9006          vs_top=(vs_base=base+4)+1;          base[10]= VV[17];
9007          Lerror();          base[11]= VV[82];
9008          return;}          vs_top=(vs_base=base+3)+9;
9009          goto T4115;          (void) (*Lnk294)();
9010  T4115:;          return;}
9011          base[4]= (base0[0]->c.c_car);          goto T4112;
9012          base[5]= (V961);  T4112:;
9013          base[6]= (V962);          base[3]= (V920);
9014          base[7]= (V963);          base[4]= (V921);
9015          {object V991;          base[5]= (V922);
9016          V991= (V964);          vs_top=(vs_base=base+3)+3;
9017           vs_top=base+8;          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
          while(V991!=Cnil)  
          {vs_push((V991)->c.c_car);V991=(V991)->c.c_cdr;}  
         vs_base=base+5;}  
         {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
9018                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9019                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9020                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9021          return;          return;
9022          base[4]= Cnil;          base[3]= Cnil;
9023          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+3)+1;
9024          return;}          return;}
9025          }          }
9026  }  }
# Line 9055  register object *base0; Line 9047  register object *base0;
9047  {       register object *base=vs_base;  {       register object *base=vs_base;
9048          register object *sup=base+VM135; VC135          register object *sup=base+VM135; VC135
9049          vs_check;          vs_check;
9050          {object V992;          {object V967;
9051          object V993;          object V968;
9052          object V994;          object V969;
9053          object V995;          object V970;
9054          check_arg(4);          check_arg(4);
9055          V992=(base[0]);          V967=(base[0]);
9056          V993=(base[1]);          V968=(base[1]);
9057          V994=(base[2]);          V969=(base[2]);
9058          V995=(base[3]);          V970=(base[3]);
9059          vs_top=sup;          vs_top=sup;
9060          {object V996;          {object V971;
9061          V996= Cnil;          V971= Cnil;
9062          {long V997;          {long V972;
9063          object V998;          object V973;
9064          long V999;          long V974;
9065          long V1000;          long V975;
9066          object V1001;          object V976;
9067          object V1002;          object V977;
9068          object V1003;          object V978;
9069          V997= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V972= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
9070          V998= STREF(object,(base0[1]->c.c_car),40);          V973= STREF(object,(base0[1]->c.c_car),40);
9071          V999= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V974= (long)STREF(fixnum,(base0[1]->c.c_car),24);
9072          V1000= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V975= (long)STREF(fixnum,(base0[1]->c.c_car),28);
9073          V1001= STREF(object,(base0[1]->c.c_car),44);          V976= STREF(object,(base0[1]->c.c_car),44);
9074          if(type_of(V992)==t_structure){          if(type_of(V967)==t_structure){
9075          goto T4261;}          goto T4346;}
9076          goto T4259;          goto T4344;
9077          goto T4261;          goto T4346;
9078  T4261:;  T4346:;
9079          if(!(((V992)->str.str_def)==(VV[61]))){          if(!(((V967)->str.str_def)==(VV[73]))){
9080          goto T4259;}          goto T4344;}
9081          V1002= STREF(object,(V992),0);          V977= STREF(object,(V967),0);
9082          goto T4257;          goto T4342;
9083          goto T4259;          goto T4344;
9084  T4259:;{object V1005;  T4344:;{object V980;
9085          V1005= (VV[33]->s.s_dbind);          V980= (VV[42]->s.s_dbind);
9086          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
9087          base[5]= (V992);          base[5]= (V967);
9088          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
9089          (void) (*Lnk257)();          (void) (*Lnk287)();
9090          vs_top=sup;          vs_top=sup;
9091          V1006= vs_base[0];          V981= vs_base[0];
9092          if(!((V1005)==(CMPcar(V1006)))){          if(!((V980)==(CMPcar(V981)))){
9093          goto T4264;}}          goto T4349;}}
9094          V1002= CMPcar(((V992))->cc.cc_turbo[13]);          V977= CMPcar(((V967))->cc.cc_turbo[13]);
9095          goto T4257;          goto T4342;
9096          goto T4264;          goto T4349;
9097  T4264:;  T4349:;
9098          if(!(type_of((V992))==t_structure)){          if(!(type_of((V967))==t_structure)){
9099          goto T4270;}          goto T4355;}
9100          V1002= (*(LnkLI260))((V992));          V977= (*(LnkLI290))((V967));
9101          goto T4257;          goto T4342;
9102          goto T4270;          goto T4355;
9103  T4270:;  T4355:;
9104          if(!(type_of((V992))==t_symbol)){          if(!(type_of((V967))==t_symbol)){
9105          goto T4273;}          goto T4358;}
9106          if(((V992))==Cnil){          if(((V967))==Cnil){
9107          goto T4276;}          goto T4361;}
9108          V1002= (VV[47]->s.s_dbind);          V977= (VV[56]->s.s_dbind);
9109          goto T4257;          goto T4342;
9110          goto T4276;          goto T4361;
9111  T4276:;  T4361:;
9112          V1002= (VV[48]->s.s_dbind);          V977= (VV[57]->s.s_dbind);
9113          goto T4257;          goto T4342;
9114          goto T4273;          goto T4358;
9115  T4273:;  T4358:;
9116          V1002= (*(LnkLI261))((V992));          V977= (*(LnkLI291))((V967));
9117          goto T4257;          goto T4342;
9118  T4257:;  T4342:;
9119          if(type_of(V993)==t_structure){          if(type_of(V968)==t_structure){
9120          goto T4282;}          goto T4367;}
9121          goto T4280;          goto T4365;
9122          goto T4282;          goto T4367;
9123  T4282:;  T4367:;
9124          if(!(((V993)->str.str_def)==(VV[62]))){          if(!(((V968)->str.str_def)==(VV[74]))){
9125          goto T4280;}          goto T4365;}
9126          V1003= STREF(object,(V993),0);          V978= STREF(object,(V968),0);
9127          goto T4278;          goto T4363;
9128          goto T4280;          goto T4365;
9129  T4280:;{object V1008;  T4365:;{object V983;
9130          V1008= (VV[33]->s.s_dbind);          V983= (VV[42]->s.s_dbind);
9131          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
9132          base[5]= (V993);          base[5]= (V968);
9133          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
9134          (void) (*Lnk257)();          (void) (*Lnk287)();
9135          vs_top=sup;          vs_top=sup;
9136          V1009= vs_base[0];          V984= vs_base[0];
9137          if(!((V1008)==(CMPcar(V1009)))){          if(!((V983)==(CMPcar(V984)))){
9138          goto T4285;}}          goto T4370;}}
9139          V1003= CMPcar(((V993))->cc.cc_turbo[13]);          V978= CMPcar(((V968))->cc.cc_turbo[13]);
9140          goto T4278;          goto T4363;
9141          goto T4285;          goto T4370;
9142  T4285:;  T4370:;
9143          if(!(type_of((V993))==t_structure)){          if(!(type_of((V968))==t_structure)){
9144          goto T4291;}          goto T4376;}
9145          V1003= (*(LnkLI260))((V993));          V978= (*(LnkLI290))((V968));
9146          goto T4278;          goto T4363;
9147          goto T4291;          goto T4376;
9148  T4291:;  T4376:;
9149          if(!(type_of((V993))==t_symbol)){          if(!(type_of((V968))==t_symbol)){
9150          goto T4294;}          goto T4379;}
9151          if(((V993))==Cnil){          if(((V968))==Cnil){
9152          goto T4297;}          goto T4382;}
9153          V1003= (VV[47]->s.s_dbind);          V978= (VV[56]->s.s_dbind);
9154          goto T4278;          goto T4363;
9155          goto T4297;          goto T4382;
9156  T4297:;  T4382:;
9157          V1003= (VV[48]->s.s_dbind);          V978= (VV[57]->s.s_dbind);
9158          goto T4278;          goto T4363;
9159          goto T4294;          goto T4379;
9160  T4294:;  T4379:;
9161          V1003= (*(LnkLI261))((V993));          V978= (*(LnkLI291))((V968));
9162          goto T4278;          goto T4363;
9163  T4278:;  T4363:;
9164          {long V1010;          {long V985;
9165          long V1011;          long V986;
9166          V1010= 0;          V985= 0;
9167          V1011= (long)(V1000)-(1);          V986= (long)(V975)-(1);
9168          {long V1012;          {long V987;
9169          V1012= fix(((V1002))->v.v_self[V997]);          V987= fix(((V977))->v.v_self[V972]);
9170          if(!((V1012)==0)){          if(!((V987)==0)){
9171          goto T4305;}          goto T4390;}
9172          goto T4251;          goto T4336;
9173          goto T4305;          goto T4390;
9174  T4305:;  T4390:;
9175          V1010= (long)(V1010)+(V1012);}          V985= (long)(V985)+(V987);}
9176          {long V1013;          {long V988;
9177          V1013= fix(((V1003))->v.v_self[V997]);          V988= fix(((V978))->v.v_self[V972]);
9178          if(!((V1013)==0)){          if(!((V988)==0)){
9179          goto T4310;}          goto T4395;}
9180          goto T4251;          goto T4336;
9181          goto T4310;          goto T4395;
9182  T4310:;  T4395:;
9183          V1010= (long)(V1010)+(V1013);          V985= (long)(V985)+(V988);
9184          V1010= (long)((V1010) & (V999));}          V985= (long)((V985) & (V974));}
9185          {long V1014;          {long V989;
9186          {object V1015;          {object V990;
9187          V1015= ((V998))->v.v_self[0];          V990= ((V973))->v.v_self[0];
9188          if(type_of((V1015))==t_fixnum){          if(type_of((V990))==t_fixnum){
9189          goto T4318;}          goto T4403;}
9190          base[4]= VV[49];          base[4]= VV[58];
9191          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
9192          Lerror();          Lerror();
9193          vs_top=sup;          vs_top=sup;
9194          goto T4318;          goto T4403;
9195  T4318:;  T4403:;
9196          V1014= fix((V1015));}          V989= fix((V990));}
9197          {register long V1016;          {register long V991;
9198          long V1017;          long V992;
9199          V1016= V1010;          V991= V985;
9200          V1017= 0;          V992= 0;
9201          goto T4326;          goto T4411;
9202  T4326:;  T4411:;
9203          V1017= (long)(V1016)+(4);          V992= (long)(V991)+(4);
9204          V1018 = (V998);          V991= (long)(V991)+(1);
9205          V1016= (long)(V1016)+(1);          if(!(((V977))==(((V973))->v.v_self[V991]))){
9206          V1019 = V1016;          goto T4415;}
9207          if(!(((V1002))==((V1018)->v.v_self[V1019]))){          V991= (long)(V991)+(1);
9208          goto T4330;}          if(!(((V978))==(((V973))->v.v_self[V991]))){
9209          V1020 = (V998);          goto T4415;}
9210          V1016= (long)(V1016)+(1);          V991= (long)(V991)+(1);
9211          V1021 = V1016;          V971= ((V973))->v.v_self[V991];
9212          if(!(((V1003))==((V1020)->v.v_self[V1021]))){          goto T4409;
9213          goto T4330;}          goto T4415;
9214          V1016= (long)(V1016)+(1);  T4415:;
9215          V996= ((V998))->v.v_self[V1016];          V991= V992;
9216          goto T4324;          if(!((V991)==(V986))){
9217          goto T4330;          goto T4428;}
9218  T4330:;          V991= 0;
9219          V1016= V1017;          goto T4428;
9220          if(!((V1016)==(V1011))){  T4428:;
9221          goto T4343;}          if(!((V991)==(V985))){
9222          V1016= 0;          goto T4412;}
9223          goto T4343;          {register object V993;
9224  T4343:;          register object V994;
9225          if(!((V1016)==(V1010))){          V993= (V976);
9226          goto T4327;}          V994= CMPcar((V993));
9227          {register object V1022;          goto T4438;
9228          register object V1023;  T4438:;
9229          V1022= (V1001);          if(!(((V993))==Cnil)){
9230          V1023= CMPcar((V1022));          goto T4439;}
9231          goto T4353;          goto T4434;
9232  T4353:;          goto T4439;
9233          if(!(((V1022))==Cnil)){  T4439:;
9234          goto T4354;}          {register object V995;
9235          goto T4349;          V995= CMPcar((V994));
9236          goto T4354;          {register object V997;
9237  T4354:;          V997= CMPcar((V995));
9238          {register object V1024;          V995= CMPcdr((V995));
9239          V1024= CMPcar((V1023));          V996= (V997);}
9240          V1025 = (V1002);          if(!(((V977))==(V996))){
9241          {register object V1027;          goto T4443;}
9242          V1027= CMPcar((V1024));          {register object V999;
9243          V1024= CMPcdr((V1024));          V999= CMPcar((V995));
9244          V1026= (V1027);}          V995= CMPcdr((V995));
9245          if(!((V1025)==(V1026))){          V998= (V999);}
9246          goto T4358;}          if(!(((V978))==(V998))){
9247          V1028 = (V1003);          goto T4443;}
9248          {register object V1030;          V971= CMPcdr((V994));
9249          V1030= CMPcar((V1024));          goto T4409;}
9250          V1024= CMPcdr((V1024));          goto T4443;
9251          V1029= (V1030);}  T4443:;
9252          if(!((V1028)==(V1029))){          V993= CMPcdr((V993));
9253          goto T4358;}          V994= CMPcar((V993));
9254          V996= CMPcdr((V1023));          goto T4438;}
9255          goto T4324;}          goto T4434;
9256          goto T4358;  T4434:;
9257  T4358:;          goto T4336;
9258          V1022= CMPcdr((V1022));          goto T4412;
9259          V1023= CMPcar((V1022));  T4412:;
9260          goto T4353;}          goto T4411;
9261          goto T4349;          goto T4409;
9262  T4349:;  T4409:;
9263          goto T4251;          {object V1001;
9264          goto T4327;          V1001= ((V973))->v.v_self[0];
9265  T4327:;          if(type_of((V1001))==t_fixnum){
9266          goto T4326;          goto T4469;}
9267          goto T4324;          base[4]= VV[58];
 T4324:;  
         V1031 = V1014;  
         {object V1033;  
         V1033= ((V998))->v.v_self[0];  
         if(type_of((V1033))==t_fixnum){  
         goto T4384;}  
         base[4]= VV[49];  
9268          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
9269          Lerror();          Lerror();
9270          vs_top=sup;          vs_top=sup;
9271            goto T4469;
9272    T4469:;
9273            V1000= fix((V1001));}
9274            if((V989)==(V1000)){
9275            goto T4384;}
9276            goto T4336;}}}
9277          goto T4384;          goto T4384;
9278  T4384:;  T4384:;
9279          V1032= fix((V1033));}          base[4]= (V971);
         if((V1031)==(V1032)){  
         goto T4299;}  
         goto T4251;}}}  
         goto T4299;  
 T4299:;  
         base[4]= (V996);  
9280          base[5]= VV[2];          base[5]= VV[2];
9281          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
9282          (void) (*Lnk262)();          (void) (*Lnk292)();
9283          vs_top=sup;          vs_top=sup;
9284          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9285          goto T4390;}          goto T4475;}
9286          base[4]= STREF(object,(V996),0);          base[4]= STREF(object,(V971),0);
9287          base[5]= STREF(object,(V996),4);          base[5]= STREF(object,(V971),4);
9288          base[6]= STREF(object,(V996),8);          base[6]= STREF(object,(V971),8);
9289          base[7]= (V992);          base[7]= (V967);
9290          base[8]= (V993);          base[8]= (V968);
9291          base[9]= (V994);          base[9]= (V969);
9292          base[10]= (V995);          base[10]= (V970);
9293          vs_top=(vs_base=base+5)+6;          vs_top=(vs_base=base+5)+6;
9294          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9295                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9296                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9297                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9298          return;          return;
9299          goto T4390;          goto T4475;
9300  T4390:;  T4475:;
9301          base[4]= V996;          base[4]= V971;
9302          base[5]= VV[10];          base[5]= VV[10];
9303          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
9304          (void) (*Lnk262)();          (void) (*Lnk292)();
9305          vs_top=sup;          vs_top=sup;
9306          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9307          goto T4402;}          goto T4487;}
9308          {object V1035;          {object V1004;
9309          object V1036;          object V1005;
9310          object V1037;          object V1006;
9311          V1035= STREF(object,(V996),0);          V1004= STREF(object,(V971),0);
9312          V1036= list(4,(V992),(V993),(V994),(V995));          V1005= list(4,(V967),(V968),(V969),(V970));
9313          V1037= STREF(object,(V996),4);          V1006= STREF(object,(V971),4);
9314          if(((V1037))==Cnil){          if(((V1006))==Cnil){
9315          goto T4410;}          goto T4495;}
9316          if((CMPcdr((V1037)))!=Cnil){          if((CMPcdr((V1006)))!=Cnil){
9317          goto T4410;}          goto T4495;}
9318          base[4]= (V1036);          base[4]= (V1005);
9319          base[5]= CMPcar((V1037));          base[5]= CMPcar((V1006));
9320          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
9321          {object _funobj = (V1035);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1004);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9322                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9323                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9324                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9325          return;          return;
9326          goto T4410;          goto T4495;
9327  T4410:;  T4495:;
9328          base[4]= (V1035);          base[4]= (V1004);
9329          base[5]= (V1036);          base[5]= (V1005);
9330          {object V1038;          {object V1007;
9331          V1038= (V1037);          V1007= (V1006);
9332           vs_top=base+6;           vs_top=base+6;
9333           while(V1038!=Cnil)           while(V1007!=Cnil)
9334           {vs_push((V1038)->c.c_car);V1038=(V1038)->c.c_cdr;}           {vs_push((V1007)->c.c_car);V1007=(V1007)->c.c_cdr;}
9335          vs_base=base+5;}          vs_base=base+5;}
9336          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9337                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9338                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9339                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9340          return;}          return;}
9341          goto T4402;          goto T4487;
9342  T4402:;  T4487:;
9343          base[4]= V996;          base[4]= V971;
9344          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
9345          Lfunctionp();          Lfunctionp();
9346          vs_top=sup;          vs_top=sup;
9347          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9348          goto T4420;}          goto T4505;}
9349          base[4]= (V992);          base[4]= (V967);
9350          base[5]= (V993);          base[5]= (V968);
9351          base[6]= (V994);          base[6]= (V969);
9352          base[7]= (V995);          base[7]= (V970);
9353          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
9354          {object _funobj = (V996);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V971);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9355                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9356                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9357                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9358          return;          return;
9359          goto T4420;          goto T4505;
9360  T4420:;  T4505:;
9361          base[5]= VV[11];          base[4]= VV[11];
9362          base[6]= V996;          base[5]= VV[12];
9363          base[7]= VV[63];          base[6]= VV[13];
9364          vs_top=(vs_base=base+5)+3;          base[7]= VV[14];
9365          (void) (*Lnk264)();          base[8]= V971;
9366          vs_top=sup;          base[9]= VV[15];
9367          base[4]= vs_base[0];          base[10]= VV[75];
9368          vs_top=(vs_base=base+4)+1;          base[11]= VV[17];
9369          Lerror();          base[12]= VV[76];
9370          return;}          vs_top=(vs_base=base+4)+9;
9371          goto T4251;          (void) (*Lnk294)();
9372  T4251:;          return;}
9373          base[4]= (V992);          goto T4336;
9374          base[5]= (V993);  T4336:;
9375          base[6]= (V994);          base[4]= (V967);
9376          base[7]= (V995);          base[5]= (V968);
9377            base[6]= (V969);
9378            base[7]= (V970);
9379          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
9380          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9381                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9423  register object *base0; Line 9410  register object *base0;
9410  {       register object *base=vs_base;  {       register object *base=vs_base;
9411          register object *sup=base+VM137; VC137          register object *sup=base+VM137; VC137
9412          vs_check;          vs_check;
9413          {object V1039;          {object V1008;
9414          object V1040;          object V1009;
9415          object V1041;          object V1010;
9416          object V1042;          object V1011;
9417          object V1043;          object V1012;
9418          check_arg(5);          check_arg(5);
9419          V1039=(base[0]);          V1008=(base[0]);
9420          V1040=(base[1]);          V1009=(base[1]);
9421          V1041=(base[2]);          V1010=(base[2]);
9422          V1042=(base[3]);          V1011=(base[3]);
9423          V1043=(base[4]);          V1012=(base[4]);
9424          vs_top=sup;          vs_top=sup;
9425          {object V1044;          {object V1013;
9426          V1044= Cnil;          V1013= Cnil;
9427          {long V1045;          {long V1014;
9428          object V1046;          object V1015;
9429          long V1047;          long V1016;
9430          long V1048;          long V1017;
9431          object V1049;          object V1018;
9432          object V1050;          object V1019;
9433          object V1051;          object V1020;
9434          V1045= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V1014= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
9435          V1046= STREF(object,(base0[1]->c.c_car),40);          V1015= STREF(object,(base0[1]->c.c_car),40);
9436          V1047= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V1016= (long)STREF(fixnum,(base0[1]->c.c_car),24);
9437          V1048= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V1017= (long)STREF(fixnum,(base0[1]->c.c_car),28);
9438          V1049= STREF(object,(base0[1]->c.c_car),44);          V1018= STREF(object,(base0[1]->c.c_car),44);
9439          if(type_of(V1039)==t_structure){          if(type_of(V1008)==t_structure){
9440          goto T4447;}          goto T4537;}
9441          goto T4445;          goto T4535;
9442          goto T4447;          goto T4537;
9443  T4447:;  T4537:;
9444          if(!(((V1039)->str.str_def)==(VV[57]))){          if(!(((V1008)->str.str_def)==(VV[68]))){
9445          goto T4445;}          goto T4535;}
9446          V1050= STREF(object,(V1039),0);          V1019= STREF(object,(V1008),0);
9447          goto T4443;          goto T4533;
9448          goto T4445;          goto T4535;
9449  T4445:;{object V1053;  T4535:;{object V1022;
9450          V1053= (VV[33]->s.s_dbind);          V1022= (VV[42]->s.s_dbind);
9451          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
9452          base[6]= (V1039);          base[6]= (V1008);
9453          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
9454          (void) (*Lnk257)();          (void) (*Lnk287)();
9455          vs_top=sup;          vs_top=sup;
9456          V1054= vs_base[0];          V1023= vs_base[0];
9457          if(!((V1053)==(CMPcar(V1054)))){          if(!((V1022)==(CMPcar(V1023)))){
9458          goto T4450;}}          goto T4540;}}
9459          V1050= CMPcar(((V1039))->cc.cc_turbo[13]);          V1019= CMPcar(((V1008))->cc.cc_turbo[13]);
9460          goto T4443;          goto T4533;
9461          goto T4450;          goto T4540;
9462  T4450:;  T4540:;
9463          if(!(type_of((V1039))==t_structure)){          if(!(type_of((V1008))==t_structure)){
9464          goto T4456;}          goto T4546;}
9465          V1050= (*(LnkLI260))((V1039));          V1019= (*(LnkLI290))((V1008));
9466          goto T4443;          goto T4533;
9467          goto T4456;          goto T4546;
9468  T4456:;  T4546:;
9469          if(!(type_of((V1039))==t_symbol)){          if(!(type_of((V1008))==t_symbol)){
9470          goto T4459;}          goto T4549;}
9471          if(((V1039))==Cnil){          if(((V1008))==Cnil){
9472          goto T4462;}          goto T4552;}
9473          V1050= (VV[47]->s.s_dbind);          V1019= (VV[56]->s.s_dbind);
9474          goto T4443;          goto T4533;
9475          goto T4462;          goto T4552;
9476  T4462:;  T4552:;
9477          V1050= (VV[48]->s.s_dbind);          V1019= (VV[57]->s.s_dbind);
9478          goto T4443;          goto T4533;
9479          goto T4459;          goto T4549;
9480  T4459:;  T4549:;
9481          V1050= (*(LnkLI261))((V1039));          V1019= (*(LnkLI291))((V1008));
9482          goto T4443;          goto T4533;
9483  T4443:;  T4533:;
9484          if(type_of(V1040)==t_structure){          if(type_of(V1009)==t_structure){
9485          goto T4468;}          goto T4558;}
9486          goto T4466;          goto T4556;
9487          goto T4468;          goto T4558;
9488  T4468:;  T4558:;
9489          if(!(((V1040)->str.str_def)==(VV[58]))){          if(!(((V1009)->str.str_def)==(VV[69]))){
9490          goto T4466;}          goto T4556;}
9491          V1051= STREF(object,(V1040),0);          V1020= STREF(object,(V1009),0);
9492          goto T4464;          goto T4554;
9493          goto T4466;          goto T4556;
9494  T4466:;{object V1056;  T4556:;{object V1025;
9495          V1056= (VV[33]->s.s_dbind);          V1025= (VV[42]->s.s_dbind);
9496          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
9497          base[6]= (V1040);          base[6]= (V1009);
9498          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
9499          (void) (*Lnk257)();          (void) (*Lnk287)();
9500          vs_top=sup;          vs_top=sup;
9501          V1057= vs_base[0];          V1026= vs_base[0];
9502          if(!((V1056)==(CMPcar(V1057)))){          if(!((V1025)==(CMPcar(V1026)))){
9503          goto T4471;}}          goto T4561;}}
9504          V1051= CMPcar(((V1040))->cc.cc_turbo[13]);          V1020= CMPcar(((V1009))->cc.cc_turbo[13]);
9505          goto T4464;          goto T4554;
9506          goto T4471;          goto T4561;
9507  T4471:;  T4561:;
9508          if(!(type_of((V1040))==t_structure)){          if(!(type_of((V1009))==t_structure)){
9509          goto T4477;}          goto T4567;}
9510          V1051= (*(LnkLI260))((V1040));          V1020= (*(LnkLI290))((V1009));
9511          goto T4464;          goto T4554;
9512          goto T4477;          goto T4567;
9513  T4477:;  T4567:;
9514          if(!(type_of((V1040))==t_symbol)){          if(!(type_of((V1009))==t_symbol)){
9515          goto T4480;}          goto T4570;}
9516          if(((V1040))==Cnil){          if(((V1009))==Cnil){
9517          goto T4483;}          goto T4573;}
9518          V1051= (VV[47]->s.s_dbind);          V1020= (VV[56]->s.s_dbind);
9519          goto T4464;          goto T4554;
9520          goto T4483;          goto T4573;
9521  T4483:;  T4573:;
9522          V1051= (VV[48]->s.s_dbind);          V1020= (VV[57]->s.s_dbind);
9523          goto T4464;          goto T4554;
9524          goto T4480;          goto T4570;
9525  T4480:;  T4570:;
9526          V1051= (*(LnkLI261))((V1040));          V1020= (*(LnkLI291))((V1009));
9527          goto T4464;          goto T4554;
9528  T4464:;  T4554:;
9529          {long V1058;          {long V1027;
9530          long V1059;          long V1028;
9531          V1058= 0;          V1027= 0;
9532          V1059= (long)(V1048)-(1);          V1028= (long)(V1017)-(1);
9533          {long V1060;          {long V1029;
9534          V1060= fix(((V1050))->v.v_self[V1045]);          V1029= fix(((V1019))->v.v_self[V1014]);
9535          if(!((V1060)==0)){          if(!((V1029)==0)){
9536          goto T4491;}          goto T4581;}
9537          goto T4437;          goto T4527;
9538          goto T4491;          goto T4581;
9539  T4491:;  T4581:;
9540          V1058= (long)(V1058)+(V1060);}          V1027= (long)(V1027)+(V1029);}
9541          {long V1061;          {long V1030;
9542          V1061= fix(((V1051))->v.v_self[V1045]);          V1030= fix(((V1020))->v.v_self[V1014]);
9543          if(!((V1061)==0)){          if(!((V1030)==0)){
9544          goto T4496;}          goto T4586;}
9545          goto T4437;          goto T4527;
9546          goto T4496;          goto T4586;
9547  T4496:;  T4586:;
9548          V1058= (long)(V1058)+(V1061);          V1027= (long)(V1027)+(V1030);
9549          V1058= (long)((V1058) & (V1047));}          V1027= (long)((V1027) & (V1016));}
9550          {long V1062;          {long V1031;
9551          {object V1063;          {object V1032;
9552          V1063= ((V1046))->v.v_self[0];          V1032= ((V1015))->v.v_self[0];
9553          if(type_of((V1063))==t_fixnum){          if(type_of((V1032))==t_fixnum){
9554          goto T4504;}          goto T4594;}
9555          base[5]= VV[49];          base[5]= VV[58];
9556          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
9557          Lerror();          Lerror();
9558          vs_top=sup;          vs_top=sup;
9559          goto T4504;          goto T4594;
9560  T4504:;  T4594:;
9561          V1062= fix((V1063));}          V1031= fix((V1032));}
9562          {register long V1064;          {register long V1033;
9563          long V1065;          long V1034;
9564          V1064= V1058;          V1033= V1027;
9565          V1065= 0;          V1034= 0;
9566          goto T4512;          goto T4602;
9567  T4512:;  T4602:;
9568          V1065= (long)(V1064)+(4);          V1034= (long)(V1033)+(4);
9569          V1066 = (V1046);          V1033= (long)(V1033)+(1);
9570          V1064= (long)(V1064)+(1);          if(!(((V1019))==(((V1015))->v.v_self[V1033]))){
9571          V1067 = V1064;          goto T4606;}
9572          if(!(((V1050))==((V1066)->v.v_self[V1067]))){          V1033= (long)(V1033)+(1);
9573          goto T4516;}          if(!(((V1020))==(((V1015))->v.v_self[V1033]))){
9574          V1068 = (V1046);          goto T4606;}
9575          V1064= (long)(V1064)+(1);          V1033= (long)(V1033)+(1);
9576          V1069 = V1064;          V1013= ((V1015))->v.v_self[V1033];
9577          if(!(((V1051))==((V1068)->v.v_self[V1069]))){          goto T4600;
9578          goto T4516;}          goto T4606;
9579          V1064= (long)(V1064)+(1);  T4606:;
9580          V1044= ((V1046))->v.v_self[V1064];          V1033= V1034;
9581          goto T4510;          if(!((V1033)==(V1028))){
9582          goto T4516;          goto T4619;}
9583  T4516:;          V1033= 0;
9584          V1064= V1065;          goto T4619;
9585          if(!((V1064)==(V1059))){  T4619:;
9586          goto T4529;}          if(!((V1033)==(V1027))){
9587          V1064= 0;          goto T4603;}
9588          goto T4529;          {register object V1035;
9589  T4529:;          register object V1036;
9590          if(!((V1064)==(V1058))){          V1035= (V1018);
9591          goto T4513;}          V1036= CMPcar((V1035));
9592          {register object V1070;          goto T4629;
9593          register object V1071;  T4629:;
9594          V1070= (V1049);          if(!(((V1035))==Cnil)){
9595          V1071= CMPcar((V1070));          goto T4630;}
9596          goto T4539;          goto T4625;
9597  T4539:;          goto T4630;
9598          if(!(((V1070))==Cnil)){  T4630:;
9599          goto T4540;}          {register object V1037;
9600          goto T4535;          V1037= CMPcar((V1036));
9601          goto T4540;          {register object V1039;
9602  T4540:;          V1039= CMPcar((V1037));
9603          {register object V1072;          V1037= CMPcdr((V1037));
9604          V1072= CMPcar((V1071));          V1038= (V1039);}
9605          V1073 = (V1050);          if(!(((V1019))==(V1038))){
9606          {register object V1075;          goto T4634;}
9607          V1075= CMPcar((V1072));          {register object V1041;
9608          V1072= CMPcdr((V1072));          V1041= CMPcar((V1037));
9609          V1074= (V1075);}          V1037= CMPcdr((V1037));
9610          if(!((V1073)==(V1074))){          V1040= (V1041);}
9611          goto T4544;}          if(!(((V1020))==(V1040))){
9612          V1076 = (V1051);          goto T4634;}
9613          {register object V1078;          V1013= CMPcdr((V1036));
9614          V1078= CMPcar((V1072));          goto T4600;}
9615          V1072= CMPcdr((V1072));          goto T4634;
9616          V1077= (V1078);}  T4634:;
9617          if(!((V1076)==(V1077))){          V1035= CMPcdr((V1035));
9618          goto T4544;}          V1036= CMPcar((V1035));
9619          V1044= CMPcdr((V1071));          goto T4629;}
9620          goto T4510;}          goto T4625;
9621          goto T4544;  T4625:;
9622  T4544:;          goto T4527;
9623          V1070= CMPcdr((V1070));          goto T4603;
9624          V1071= CMPcar((V1070));  T4603:;
9625          goto T4539;}          goto T4602;
9626          goto T4535;          goto T4600;
9627  T4535:;  T4600:;
9628          goto T4437;          {object V1043;
9629          goto T4513;          V1043= ((V1015))->v.v_self[0];
9630  T4513:;          if(type_of((V1043))==t_fixnum){
9631          goto T4512;          goto T4660;}
9632          goto T4510;          base[5]= VV[58];
 T4510:;  
         V1079 = V1062;  
         {object V1081;  
         V1081= ((V1046))->v.v_self[0];  
         if(type_of((V1081))==t_fixnum){  
         goto T4570;}  
         base[5]= VV[49];  
9633          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
9634          Lerror();          Lerror();
9635          vs_top=sup;          vs_top=sup;
9636          goto T4570;          goto T4660;
9637  T4570:;  T4660:;
9638          V1080= fix((V1081));}          V1042= fix((V1043));}
9639          if((V1079)==(V1080)){          if((V1031)==(V1042)){
9640          goto T4485;}          goto T4575;}
9641          goto T4437;}}}          goto T4527;}}}
9642          goto T4485;          goto T4575;
9643  T4485:;  T4575:;
9644          base[5]= (V1044);          base[5]= (V1013);
9645          base[6]= VV[2];          base[6]= VV[2];
9646          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
9647          (void) (*Lnk262)();          (void) (*Lnk292)();
9648          vs_top=sup;          vs_top=sup;
9649          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9650          goto T4576;}          goto T4666;}
9651          base[5]= STREF(object,(V1044),0);          base[5]= STREF(object,(V1013),0);
9652          base[6]= STREF(object,(V1044),4);          base[6]= STREF(object,(V1013),4);
9653          base[7]= STREF(object,(V1044),8);          base[7]= STREF(object,(V1013),8);
9654          base[8]= (V1039);          base[8]= (V1008);
9655          base[9]= (V1040);          base[9]= (V1009);
9656          base[10]= (V1041);          base[10]= (V1010);
9657          base[11]= (V1042);          base[11]= (V1011);
9658          base[12]= (V1043);          base[12]= (V1012);
9659          vs_top=(vs_base=base+6)+7;          vs_top=(vs_base=base+6)+7;
9660          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9661                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9662                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9663                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9664          return;          return;
9665          goto T4576;          goto T4666;
9666  T4576:;  T4666:;
9667          base[5]= V1044;          base[5]= V1013;
9668          base[6]= VV[10];          base[6]= VV[10];
9669          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
9670          (void) (*Lnk262)();          (void) (*Lnk292)();
9671          vs_top=sup;          vs_top=sup;
9672          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9673          goto T4589;}          goto T4679;}
9674          {object V1083;          {object V1046;
9675          object V1084;          object V1047;
9676          object V1085;          object V1048;
9677          V1083= STREF(object,(V1044),0);          V1046= STREF(object,(V1013),0);
9678          V1084= list(5,(V1039),(V1040),(V1041),(V1042),(V1043));          V1047= list(5,(V1008),(V1009),(V1010),(V1011),(V1012));
9679          V1085= STREF(object,(V1044),4);          V1048= STREF(object,(V1013),4);
9680          if(((V1085))==Cnil){          if(((V1048))==Cnil){
9681          goto T4597;}          goto T4687;}
9682          if((CMPcdr((V1085)))!=Cnil){          if((CMPcdr((V1048)))!=Cnil){
9683          goto T4597;}          goto T4687;}
9684          base[5]= (V1084);          base[5]= (V1047);
9685          base[6]= CMPcar((V1085));          base[6]= CMPcar((V1048));
9686          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
9687          {object _funobj = (V1083);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1046);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9688                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9689                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9690                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9691          return;          return;
9692          goto T4597;          goto T4687;
9693  T4597:;  T4687:;
9694          base[5]= (V1083);          base[5]= (V1046);
9695          base[6]= (V1084);          base[6]= (V1047);
9696          {object V1086;          {object V1049;
9697          V1086= (V1085);          V1049= (V1048);
9698           vs_top=base+7;           vs_top=base+7;
9699           while(V1086!=Cnil)           while(V1049!=Cnil)
9700           {vs_push((V1086)->c.c_car);V1086=(V1086)->c.c_cdr;}           {vs_push((V1049)->c.c_car);V1049=(V1049)->c.c_cdr;}
9701          vs_base=base+6;}          vs_base=base+6;}
9702          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9703                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9704                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9705                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9706          return;}          return;}
9707          goto T4589;          goto T4679;
9708  T4589:;  T4679:;
9709          base[5]= V1044;          base[5]= V1013;
9710          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
9711          Lfunctionp();          Lfunctionp();
9712          vs_top=sup;          vs_top=sup;
9713          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9714          goto T4607;}          goto T4697;}
9715          base[5]= (V1039);          base[5]= (V1008);
9716          base[6]= (V1040);          base[6]= (V1009);
9717          base[7]= (V1041);          base[7]= (V1010);
9718          base[8]= (V1042);          base[8]= (V1011);
9719          base[9]= (V1043);          base[9]= (V1012);
9720          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
9721          {object _funobj = (V1044);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1013);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9722                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
9723                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
9724                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
9725          return;          return;
9726          goto T4607;          goto T4697;
9727  T4607:;  T4697:;
9728          base[6]= VV[11];          base[5]= VV[11];
9729          base[7]= V1044;          base[6]= VV[12];
9730          base[8]= VV[59];          base[7]= VV[13];
9731          vs_top=(vs_base=base+6)+3;          base[8]= VV[14];
9732          (void) (*Lnk264)();          base[9]= V1013;
9733          vs_top=sup;          base[10]= VV[15];
9734          base[5]= vs_base[0];          base[11]= VV[70];
9735          vs_top=(vs_base=base+5)+1;          base[12]= VV[17];
9736          Lerror();          base[13]= VV[71];
9737          return;}          vs_top=(vs_base=base+5)+9;
9738          goto T4437;          (void) (*Lnk294)();
9739  T4437:;          return;}
9740          base[5]= (V1039);          goto T4527;
9741          base[6]= (V1040);  T4527:;
9742          base[7]= (V1041);          base[5]= (V1008);
9743          base[8]= (V1042);          base[6]= (V1009);
9744          base[9]= (V1043);          base[7]= (V1010);
9745            base[8]= (V1011);
9746            base[9]= (V1012);
9747          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
9748          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9749                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9796  register object *base0; Line 9778  register object *base0;
9778  {       register object *base=vs_base;  {       register object *base=vs_base;
9779          register object *sup=base+VM139; VC139          register object *sup=base+VM139; VC139
9780          vs_check;          vs_check;
9781          {object V1087;          {object V1050;
9782          object V1088;          object V1051;
9783          object V1089;          object V1052;
9784          check_arg(3);          check_arg(3);
9785          V1087=(base[0]);          V1050=(base[0]);
9786          V1088=(base[1]);          V1051=(base[1]);
9787          V1089=(base[2]);          V1052=(base[2]);
9788          vs_top=sup;          vs_top=sup;
9789          {object V1090;          {object V1053;
9790          V1090= Cnil;          V1053= Cnil;
9791          {long V1091;          {long V1054;
9792          object V1092;          object V1055;
9793          long V1093;          long V1056;
9794          long V1094;          long V1057;
9795          object V1095;          object V1058;
9796          object V1096;          object V1059;
9797          object V1097;          object V1060;
9798          V1091= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V1054= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
9799          V1092= STREF(object,(base0[1]->c.c_car),40);          V1055= STREF(object,(base0[1]->c.c_car),40);
9800          V1093= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V1056= (long)STREF(fixnum,(base0[1]->c.c_car),24);
9801          V1094= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V1057= (long)STREF(fixnum,(base0[1]->c.c_car),28);
9802          V1095= STREF(object,(base0[1]->c.c_car),44);          V1058= STREF(object,(base0[1]->c.c_car),44);
9803          if(type_of(V1087)==t_structure){          if(type_of(V1050)==t_structure){
9804          goto T4636;}          goto T4731;}
9805          goto T4634;          goto T4729;
9806          goto T4636;          goto T4731;
9807  T4636:;  T4731:;
9808          if(!(((V1087)->str.str_def)==(VV[53]))){          if(!(((V1050)->str.str_def)==(VV[63]))){
9809          goto T4634;}          goto T4729;}
9810          V1096= STREF(object,(V1087),0);          V1059= STREF(object,(V1050),0);
9811          goto T4632;          goto T4727;
9812          goto T4634;          goto T4729;
9813  T4634:;{object V1099;  T4729:;{object V1062;
9814          V1099= (VV[33]->s.s_dbind);          V1062= (VV[42]->s.s_dbind);
9815          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
9816          base[4]= (V1087);          base[4]= (V1050);
9817          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
9818          (void) (*Lnk257)();          (void) (*Lnk287)();
9819          vs_top=sup;          vs_top=sup;
9820          V1100= vs_base[0];          V1063= vs_base[0];
9821          if(!((V1099)==(CMPcar(V1100)))){          if(!((V1062)==(CMPcar(V1063)))){
9822          goto T4639;}}          goto T4734;}}
9823          V1096= CMPcar(((V1087))->cc.cc_turbo[13]);          V1059= CMPcar(((V1050))->cc.cc_turbo[13]);
9824          goto T4632;          goto T4727;
9825          goto T4639;          goto T4734;
9826  T4639:;  T4734:;
9827          if(!(type_of((V1087))==t_structure)){          if(!(type_of((V1050))==t_structure)){
9828          goto T4645;}          goto T4740;}
9829          V1096= (*(LnkLI260))((V1087));          V1059= (*(LnkLI290))((V1050));
9830          goto T4632;          goto T4727;
9831          goto T4645;          goto T4740;
9832  T4645:;  T4740:;
9833          if(!(type_of((V1087))==t_symbol)){          if(!(type_of((V1050))==t_symbol)){
9834          goto T4648;}          goto T4743;}
9835          if(((V1087))==Cnil){          if(((V1050))==Cnil){
9836          goto T4651;}          goto T4746;}
9837          V1096= (VV[47]->s.s_dbind);          V1059= (VV[56]->s.s_dbind);
9838          goto T4632;          goto T4727;
9839          goto T4651;          goto T4746;
9840  T4651:;  T4746:;
9841          V1096= (VV[48]->s.s_dbind);          V1059= (VV[57]->s.s_dbind);
9842          goto T4632;          goto T4727;
9843          goto T4648;          goto T4743;
9844  T4648:;  T4743:;
9845          V1096= (*(LnkLI261))((V1087));          V1059= (*(LnkLI291))((V1050));
9846          goto T4632;          goto T4727;
9847  T4632:;  T4727:;
9848          if(type_of(V1088)==t_structure){          if(type_of(V1051)==t_structure){
9849          goto T4657;}          goto T4752;}
9850          goto T4655;          goto T4750;
9851          goto T4657;          goto T4752;
9852  T4657:;  T4752:;
9853          if(!(((V1088)->str.str_def)==(VV[54]))){          if(!(((V1051)->str.str_def)==(VV[64]))){
9854          goto T4655;}          goto T4750;}
9855          V1097= STREF(object,(V1088),0);          V1060= STREF(object,(V1051),0);
9856          goto T4653;          goto T4748;
9857          goto T4655;          goto T4750;
9858  T4655:;{object V1102;  T4750:;{object V1065;
9859          V1102= (VV[33]->s.s_dbind);          V1065= (VV[42]->s.s_dbind);
9860          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
9861          base[4]= (V1088);          base[4]= (V1051);
9862          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
9863          (void) (*Lnk257)();          (void) (*Lnk287)();
         vs_top=sup;  
         V1103= vs_base[0];  
         if(!((V1102)==(CMPcar(V1103)))){  
         goto T4660;}}  
         V1097= CMPcar(((V1088))->cc.cc_turbo[13]);  
         goto T4653;  
         goto T4660;  
 T4660:;  
         if(!(type_of((V1088))==t_structure)){  
         goto T4666;}  
         V1097= (*(LnkLI260))((V1088));  
         goto T4653;  
         goto T4666;  
 T4666:;  
         if(!(type_of((V1088))==t_symbol)){  
         goto T4669;}  
         if(((V1088))==Cnil){  
         goto T4672;}  
         V1097= (VV[47]->s.s_dbind);  
         goto T4653;  
         goto T4672;  
 T4672:;  
         V1097= (VV[48]->s.s_dbind);  
         goto T4653;  
         goto T4669;  
 T4669:;  
         V1097= (*(LnkLI261))((V1088));  
         goto T4653;  
 T4653:;  
         {long V1104;  
         long V1105;  
         V1104= 0;  
         V1105= (long)(V1094)-(1);  
         {long V1106;  
         V1106= fix(((V1096))->v.v_self[V1091]);  
         if(!((V1106)==0)){  
         goto T4680;}  
         goto T4626;  
         goto T4680;  
 T4680:;  
         V1104= (long)(V1104)+(V1106);}  
         {long V1107;  
         V1107= fix(((V1097))->v.v_self[V1091]);  
         if(!((V1107)==0)){  
         goto T4685;}  
         goto T4626;  
         goto T4685;  
 T4685:;  
         V1104= (long)(V1104)+(V1107);  
         V1104= (long)((V1104) & (V1093));}  
         {long V1108;  
         {object V1109;  
         V1109= ((V1092))->v.v_self[0];  
         if(type_of((V1109))==t_fixnum){  
         goto T4693;}  
         base[3]= VV[49];  
         vs_top=(vs_base=base+3)+1;  
         Lerror();  
9864          vs_top=sup;          vs_top=sup;
9865          goto T4693;          V1066= vs_base[0];
9866  T4693:;          if(!((V1065)==(CMPcar(V1066)))){
9867          V1108= fix((V1109));}          goto T4755;}}
9868          {register long V1110;          V1060= CMPcar(((V1051))->cc.cc_turbo[13]);
9869          long V1111;          goto T4748;
9870          V1110= V1104;          goto T4755;
9871          V1111= 0;  T4755:;
9872          goto T4701;          if(!(type_of((V1051))==t_structure)){
9873  T4701:;          goto T4761;}
9874          V1111= (long)(V1110)+(4);          V1060= (*(LnkLI290))((V1051));
9875          V1112 = (V1092);          goto T4748;
9876          V1110= (long)(V1110)+(1);          goto T4761;
9877          V1113 = V1110;  T4761:;
9878          if(!(((V1096))==((V1112)->v.v_self[V1113]))){          if(!(type_of((V1051))==t_symbol)){
9879          goto T4705;}          goto T4764;}
9880          V1114 = (V1092);          if(((V1051))==Cnil){
9881          V1110= (long)(V1110)+(1);          goto T4767;}
9882          V1115 = V1110;          V1060= (VV[56]->s.s_dbind);
9883          if(!(((V1097))==((V1114)->v.v_self[V1115]))){          goto T4748;
9884          goto T4705;}          goto T4767;
9885          V1110= (long)(V1110)+(1);  T4767:;
9886          V1090= ((V1092))->v.v_self[V1110];          V1060= (VV[57]->s.s_dbind);
9887          goto T4699;          goto T4748;
9888          goto T4705;          goto T4764;
9889  T4705:;  T4764:;
9890          V1110= V1111;          V1060= (*(LnkLI291))((V1051));
9891          if(!((V1110)==(V1105))){          goto T4748;
9892          goto T4718;}  T4748:;
9893          V1110= 0;          {long V1067;
9894          goto T4718;          long V1068;
9895  T4718:;          V1067= 0;
9896          if(!((V1110)==(V1104))){          V1068= (long)(V1057)-(1);
9897          goto T4702;}          {long V1069;
9898          {register object V1116;          V1069= fix(((V1059))->v.v_self[V1054]);
9899          register object V1117;          if(!((V1069)==0)){
9900          V1116= (V1095);          goto T4775;}
9901          V1117= CMPcar((V1116));          goto T4721;
9902          goto T4728;          goto T4775;
9903  T4728:;  T4775:;
9904          if(!(((V1116))==Cnil)){          V1067= (long)(V1067)+(V1069);}
9905          goto T4729;}          {long V1070;
9906          goto T4724;          V1070= fix(((V1060))->v.v_self[V1054]);
9907          goto T4729;          if(!((V1070)==0)){
9908  T4729:;          goto T4780;}
9909          {register object V1118;          goto T4721;
9910          V1118= CMPcar((V1117));          goto T4780;
9911          V1119 = (V1096);  T4780:;
9912          {register object V1121;          V1067= (long)(V1067)+(V1070);
9913          V1121= CMPcar((V1118));          V1067= (long)((V1067) & (V1056));}
9914          V1118= CMPcdr((V1118));          {long V1071;
9915          V1120= (V1121);}          {object V1072;
9916          if(!((V1119)==(V1120))){          V1072= ((V1055))->v.v_self[0];
9917          goto T4733;}          if(type_of((V1072))==t_fixnum){
9918          V1122 = (V1097);          goto T4788;}
9919          {register object V1124;          base[3]= VV[58];
9920          V1124= CMPcar((V1118));          vs_top=(vs_base=base+3)+1;
9921          V1118= CMPcdr((V1118));          Lerror();
9922          V1123= (V1124);}          vs_top=sup;
9923          if(!((V1122)==(V1123))){          goto T4788;
9924          goto T4733;}  T4788:;
9925          V1090= CMPcdr((V1117));          V1071= fix((V1072));}
9926          goto T4699;}          {register long V1073;
9927          goto T4733;          long V1074;
9928  T4733:;          V1073= V1067;
9929          V1116= CMPcdr((V1116));          V1074= 0;
9930          V1117= CMPcar((V1116));          goto T4796;
9931          goto T4728;}  T4796:;
9932          goto T4724;          V1074= (long)(V1073)+(4);
9933  T4724:;          V1073= (long)(V1073)+(1);
9934          goto T4626;          if(!(((V1059))==(((V1055))->v.v_self[V1073]))){
9935          goto T4702;          goto T4800;}
9936  T4702:;          V1073= (long)(V1073)+(1);
9937          goto T4701;          if(!(((V1060))==(((V1055))->v.v_self[V1073]))){
9938          goto T4699;          goto T4800;}
9939  T4699:;          V1073= (long)(V1073)+(1);
9940          V1125 = V1108;          V1053= ((V1055))->v.v_self[V1073];
9941          {object V1127;          goto T4794;
9942          V1127= ((V1092))->v.v_self[0];          goto T4800;
9943          if(type_of((V1127))==t_fixnum){  T4800:;
9944          goto T4759;}          V1073= V1074;
9945          base[3]= VV[49];          if(!((V1073)==(V1068))){
9946            goto T4813;}
9947            V1073= 0;
9948            goto T4813;
9949    T4813:;
9950            if(!((V1073)==(V1067))){
9951            goto T4797;}
9952            {register object V1075;
9953            register object V1076;
9954            V1075= (V1058);
9955            V1076= CMPcar((V1075));
9956            goto T4823;
9957    T4823:;
9958            if(!(((V1075))==Cnil)){
9959            goto T4824;}
9960            goto T4819;
9961            goto T4824;
9962    T4824:;
9963            {register object V1077;
9964            V1077= CMPcar((V1076));
9965            {register object V1079;
9966            V1079= CMPcar((V1077));
9967            V1077= CMPcdr((V1077));
9968            V1078= (V1079);}
9969            if(!(((V1059))==(V1078))){
9970            goto T4828;}
9971            {register object V1081;
9972            V1081= CMPcar((V1077));
9973            V1077= CMPcdr((V1077));
9974            V1080= (V1081);}
9975            if(!(((V1060))==(V1080))){
9976            goto T4828;}
9977            V1053= CMPcdr((V1076));
9978            goto T4794;}
9979            goto T4828;
9980    T4828:;
9981            V1075= CMPcdr((V1075));
9982            V1076= CMPcar((V1075));
9983            goto T4823;}
9984            goto T4819;
9985    T4819:;
9986            goto T4721;
9987            goto T4797;
9988    T4797:;
9989            goto T4796;
9990            goto T4794;
9991    T4794:;
9992            {object V1083;
9993            V1083= ((V1055))->v.v_self[0];
9994            if(type_of((V1083))==t_fixnum){
9995            goto T4854;}
9996            base[3]= VV[58];
9997          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9998          Lerror();          Lerror();
9999          vs_top=sup;          vs_top=sup;
10000          goto T4759;          goto T4854;
10001  T4759:;  T4854:;
10002          V1126= fix((V1127));}          V1082= fix((V1083));}
10003          if((V1125)==(V1126)){          if((V1071)==(V1082)){
10004          goto T4674;}          goto T4769;}
10005          goto T4626;}}}          goto T4721;}}}
10006          goto T4674;          goto T4769;
10007  T4674:;  T4769:;
10008          base[3]= (V1090);          base[3]= (V1053);
10009          base[4]= VV[2];          base[4]= VV[2];
10010          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10011          (void) (*Lnk262)();          (void) (*Lnk292)();
10012          vs_top=sup;          vs_top=sup;
10013          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10014          goto T4765;}          goto T4860;}
10015          base[3]= STREF(object,(V1090),0);          base[3]= STREF(object,(V1053),0);
10016          base[4]= STREF(object,(V1090),4);          base[4]= STREF(object,(V1053),4);
10017          base[5]= STREF(object,(V1090),8);          base[5]= STREF(object,(V1053),8);
10018          base[6]= (V1087);          base[6]= (V1050);
10019          base[7]= (V1088);          base[7]= (V1051);
10020          base[8]= (V1089);          base[8]= (V1052);
10021          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
10022          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10023                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10024                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10025                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10026          return;          return;
10027          goto T4765;          goto T4860;
10028  T4765:;  T4860:;
10029          base[3]= V1090;          base[3]= V1053;
10030          base[4]= VV[10];          base[4]= VV[10];
10031          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10032          (void) (*Lnk262)();          (void) (*Lnk292)();
10033          vs_top=sup;          vs_top=sup;
10034          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10035          goto T4776;}          goto T4871;}
10036          {object V1129;          {object V1086;
10037          object V1130;          object V1087;
10038          object V1131;          object V1088;
10039          V1129= STREF(object,(V1090),0);          V1086= STREF(object,(V1053),0);
10040          V1130= list(3,(V1087),(V1088),(V1089));          V1087= list(3,(V1050),(V1051),(V1052));
10041          V1131= STREF(object,(V1090),4);          V1088= STREF(object,(V1053),4);
10042          if(((V1131))==Cnil){          if(((V1088))==Cnil){
10043          goto T4784;}          goto T4879;}
10044          if((CMPcdr((V1131)))!=Cnil){          if((CMPcdr((V1088)))!=Cnil){
10045          goto T4784;}          goto T4879;}
10046          base[3]= (V1130);          base[3]= (V1087);
10047          base[4]= CMPcar((V1131));          base[4]= CMPcar((V1088));
10048          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10049          {object _funobj = (V1129);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1086);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10050                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10051                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10052                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10053          return;          return;
10054          goto T4784;          goto T4879;
10055  T4784:;  T4879:;
10056          base[3]= (V1129);          base[3]= (V1086);
10057          base[4]= (V1130);          base[4]= (V1087);
10058          {object V1132;          {object V1089;
10059          V1132= (V1131);          V1089= (V1088);
10060           vs_top=base+5;           vs_top=base+5;
10061           while(V1132!=Cnil)           while(V1089!=Cnil)
10062           {vs_push((V1132)->c.c_car);V1132=(V1132)->c.c_cdr;}           {vs_push((V1089)->c.c_car);V1089=(V1089)->c.c_cdr;}
10063          vs_base=base+4;}          vs_base=base+4;}
10064          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10065                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10066                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10067                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10068          return;}          return;}
10069          goto T4776;          goto T4871;
10070  T4776:;  T4871:;
10071          base[3]= V1090;          base[3]= V1053;
10072          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
10073          Lfunctionp();          Lfunctionp();
10074          vs_top=sup;          vs_top=sup;
10075          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10076          goto T4794;}          goto T4889;}
10077          base[3]= (V1087);          base[3]= (V1050);
10078          base[4]= (V1088);          base[4]= (V1051);
10079          base[5]= (V1089);          base[5]= (V1052);
10080          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
10081          {object _funobj = (V1090);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1053);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10082                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10083                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10084                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10085          return;          return;
10086          goto T4794;          goto T4889;
10087  T4794:;  T4889:;
10088          base[4]= VV[11];          base[3]= VV[11];
10089          base[5]= V1090;          base[4]= VV[12];
10090          base[6]= VV[55];          base[5]= VV[13];
10091          vs_top=(vs_base=base+4)+3;          base[6]= VV[14];
10092          (void) (*Lnk264)();          base[7]= V1053;
10093          vs_top=sup;          base[8]= VV[15];
10094          base[3]= vs_base[0];          base[9]= VV[65];
10095          vs_top=(vs_base=base+3)+1;          base[10]= VV[17];
10096          Lerror();          base[11]= VV[66];
10097          return;}          vs_top=(vs_base=base+3)+9;
10098          goto T4626;          (void) (*Lnk294)();
10099  T4626:;          return;}
10100          base[3]= (V1087);          goto T4721;
10101          base[4]= (V1088);  T4721:;
10102          base[5]= (V1089);          base[3]= (V1050);
10103            base[4]= (V1051);
10104            base[5]= (V1052);
10105          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
10106          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10107                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10159  register object *base0; Line 10136  register object *base0;
10136  {       register object *base=vs_base;  {       register object *base=vs_base;
10137          register object *sup=base+VM141; VC141          register object *sup=base+VM141; VC141
10138          vs_check;          vs_check;
10139          {object V1133;          {object V1090;
10140          object V1134;          object V1091;
10141          check_arg(2);          check_arg(2);
10142          V1133=(base[0]);          V1090=(base[0]);
10143          V1134=(base[1]);          V1091=(base[1]);
10144          vs_top=sup;          vs_top=sup;
10145          {register object V1135;          {register object V1092;
10146          V1135= Cnil;          V1092= Cnil;
10147          {long V1136;          {long V1093;
10148          register object V1137;          register object V1094;
10149          long V1138;          long V1095;
10150          long V1139;          long V1096;
10151          object V1140;          object V1097;
10152          register object V1141;          register object V1098;
10153          V1136= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          V1093= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
10154          V1137= STREF(object,(base0[1]->c.c_car),40);          V1094= STREF(object,(base0[1]->c.c_car),40);
10155          V1138= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V1095= (long)STREF(fixnum,(base0[1]->c.c_car),24);
10156          V1139= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V1096= (long)STREF(fixnum,(base0[1]->c.c_car),28);
10157          V1140= STREF(object,(base0[1]->c.c_car),44);          V1097= STREF(object,(base0[1]->c.c_car),44);
10158          if(type_of(V1134)==t_structure){          if(type_of(V1091)==t_structure){
10159          goto T4819;}          goto T4919;}
10160          goto T4817;          goto T4917;
10161          goto T4819;          goto T4919;
10162  T4819:;  T4919:;
10163          if(!(((V1134)->str.str_def)==(VV[46]))){          if(!(((V1091)->str.str_def)==(VV[55]))){
10164          goto T4817;}          goto T4917;}
10165          V1141= STREF(object,(V1134),0);          V1098= STREF(object,(V1091),0);
10166          goto T4815;          goto T4915;
10167          goto T4817;          goto T4917;
10168  T4817:;{object V1143;  T4917:;{object V1100;
10169          V1143= (VV[33]->s.s_dbind);          V1100= (VV[42]->s.s_dbind);
10170          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
10171          base[3]= (V1134);          base[3]= (V1091);
10172          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10173          (void) (*Lnk257)();          (void) (*Lnk287)();
10174          vs_top=sup;          vs_top=sup;
10175          V1144= vs_base[0];          V1101= vs_base[0];
10176          if(!((V1143)==(CMPcar(V1144)))){          if(!((V1100)==(CMPcar(V1101)))){
10177          goto T4822;}}          goto T4922;}}
10178          V1141= CMPcar(((V1134))->cc.cc_turbo[13]);          V1098= CMPcar(((V1091))->cc.cc_turbo[13]);
10179          goto T4815;          goto T4915;
10180          goto T4822;          goto T4922;
10181  T4822:;  T4922:;
10182          if(!(type_of((V1134))==t_structure)){          if(!(type_of((V1091))==t_structure)){
10183          goto T4828;}          goto T4928;}
10184          V1141= (*(LnkLI260))((V1134));          V1098= (*(LnkLI290))((V1091));
10185          goto T4815;          goto T4915;
10186          goto T4828;          goto T4928;
10187  T4828:;  T4928:;
10188          if(!(type_of((V1134))==t_symbol)){          if(!(type_of((V1091))==t_symbol)){
10189          goto T4831;}          goto T4931;}
10190          if(((V1134))==Cnil){          if(((V1091))==Cnil){
10191          goto T4834;}          goto T4934;}
10192          V1141= (VV[47]->s.s_dbind);          V1098= (VV[56]->s.s_dbind);
10193          goto T4815;          goto T4915;
10194          goto T4834;          goto T4934;
10195  T4834:;  T4934:;
10196          V1141= (VV[48]->s.s_dbind);          V1098= (VV[57]->s.s_dbind);
10197          goto T4815;          goto T4915;
10198          goto T4831;          goto T4931;
10199  T4831:;  T4931:;
10200          V1141= (*(LnkLI261))((V1134));          V1098= (*(LnkLI291))((V1091));
10201          goto T4815;          goto T4915;
10202  T4815:;  T4915:;
10203          {long V1145;          {long V1102;
10204          long V1146;          long V1103;
10205          {long V1147;          {long V1104;
10206          V1147= fix(((V1141))->v.v_self[V1136]);          V1104= fix(((V1098))->v.v_self[V1093]);
10207          if(!((V1147)==0)){          if(!((V1104)==0)){
10208          goto T4839;}          goto T4939;}
10209          goto T4809;          goto T4909;
10210          goto T4839;          goto T4939;
10211  T4839:;  T4939:;
10212          V1145= (long)((V1138) & (V1147));}          V1102= (long)((V1095) & (V1104));}
10213          {object V1148;          {object V1105;
10214          V1148= ((V1137))->v.v_self[0];          V1105= ((V1094))->v.v_self[0];
10215          if(type_of((V1148))==t_fixnum){          if(type_of((V1105))==t_fixnum){
10216          goto T4844;}          goto T4944;}
10217          base[2]= VV[49];          base[2]= VV[58];
10218          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10219          Lerror();          Lerror();
10220          vs_top=sup;          vs_top=sup;
10221          goto T4844;          goto T4944;
10222  T4844:;  T4944:;
10223          V1146= fix((V1148));}          V1103= fix((V1105));}
10224          {register long V1149;          {register long V1106;
10225          V1149= V1145;          V1106= V1102;
10226          goto T4851;          goto T4951;
10227  T4851:;  T4951:;
10228          if(!(((V1141))==(((V1137))->v.v_self[V1149]))){          if(!(((V1098))==(((V1094))->v.v_self[V1106]))){
10229          goto T4853;}          goto T4953;}
10230          V1135= ((V1137))->v.v_self[(long)(V1149)+1];          V1092= ((V1094))->v.v_self[(long)(V1106)+1];
10231          goto T4849;          goto T4949;
10232          goto T4853;          goto T4953;
10233  T4853:;  T4953:;
10234          V1149= (long)(V1149)+(2);          V1106= (long)(V1106)+(2);
10235          if(!((V1149)==(V1139))){          if(!((V1106)==(V1096))){
10236          goto T4860;}          goto T4960;}
10237          V1149= 0;          V1106= 0;
10238          goto T4860;          goto T4960;
10239  T4860:;  T4960:;
10240          if(!((V1149)==(V1145))){          if(!((V1106)==(V1102))){
10241          goto T4852;}          goto T4952;}
10242          {register object V1150;          {register object V1107;
10243          register object V1151;          register object V1108;
10244          V1150= (V1140);          V1107= (V1097);
10245          V1151= CMPcar((V1150));          V1108= CMPcar((V1107));
10246          goto T4870;          goto T4970;
10247  T4870:;  T4970:;
10248          if(!(((V1150))==Cnil)){          if(!(((V1107))==Cnil)){
10249          goto T4871;}          goto T4971;}
10250          goto T4866;          goto T4966;
10251          goto T4871;          goto T4971;
10252  T4871:;  T4971:;
10253          if(!((CMPcar((V1151)))==((V1141)))){          if(!((CMPcar((V1108)))==((V1098)))){
10254          goto T4875;}          goto T4975;}
10255          V1135= CMPcdr((V1151));          V1092= CMPcdr((V1108));
10256          goto T4849;          goto T4949;
10257          goto T4875;          goto T4975;
10258  T4875:;  T4975:;
10259          V1150= CMPcdr((V1150));          V1107= CMPcdr((V1107));
10260          V1151= CMPcar((V1150));          V1108= CMPcar((V1107));
10261          goto T4870;}          goto T4970;}
10262          goto T4866;          goto T4966;
10263  T4866:;  T4966:;
10264          goto T4809;          goto T4909;
10265          goto T4852;          goto T4952;
10266  T4852:;  T4952:;
10267          goto T4851;          goto T4951;
10268          goto T4849;          goto T4949;
10269  T4849:;  T4949:;
10270          V1152 = V1146;          {object V1110;
10271          {object V1154;          V1110= ((V1094))->v.v_self[0];
10272          V1154= ((V1137))->v.v_self[0];          if(type_of((V1110))==t_fixnum){
10273          if(type_of((V1154))==t_fixnum){          goto T4990;}
10274          goto T4890;}          base[2]= VV[58];
         base[2]= VV[49];  
10275          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10276          Lerror();          Lerror();
10277          vs_top=sup;          vs_top=sup;
10278          goto T4890;          goto T4990;
10279  T4890:;  T4990:;
10280          V1153= fix((V1154));}          V1109= fix((V1110));}
10281          if((V1152)==(V1153)){          if((V1103)==(V1109)){
10282          goto T4836;}          goto T4936;}
10283          goto T4809;}}          goto T4909;}}
10284          goto T4836;          goto T4936;
10285  T4836:;  T4936:;
10286          base[2]= (V1135);          base[2]= (V1092);
10287          base[3]= VV[2];          base[3]= VV[2];
10288          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10289          (void) (*Lnk262)();          (void) (*Lnk292)();
10290          vs_top=sup;          vs_top=sup;
10291          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10292          goto T4896;}          goto T4996;}
10293          base[2]= STREF(object,(V1135),0);          base[2]= STREF(object,(V1092),0);
10294          base[3]= STREF(object,(V1135),4);          base[3]= STREF(object,(V1092),4);
10295          base[4]= STREF(object,(V1135),8);          base[4]= STREF(object,(V1092),8);
10296          base[5]= (V1133);          base[5]= (V1090);
10297          base[6]= (V1134);          base[6]= (V1091);
10298          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
10299          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10300                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10301                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10302                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10303          return;          return;
10304          goto T4896;          goto T4996;
10305  T4896:;  T4996:;
10306          if(!(type_of((V1135))==t_fixnum)){          if(!(type_of((V1092))==t_fixnum)){
10307          goto T4906;}          goto T5006;}
10308          {object V1156;          {object V1112;
10309          if(type_of(V1133)==t_structure){          if(type_of(V1090)==t_structure){
10310          goto T4912;}          goto T5012;}
10311          goto T4910;          goto T5010;
10312          goto T4912;          goto T5012;
10313  T4912:;  T5012:;
10314          if(!(((V1133)->str.str_def)==(VV[50]))){          if(!(((V1090)->str.str_def)==(VV[59]))){
10315          goto T4910;}          goto T5010;}
10316          V1156= STREF(object,(V1133),4);          V1112= STREF(object,(V1090),4);
10317          goto T4908;          goto T5008;
10318          goto T4910;          goto T5010;
10319  T4910:;{object V1158;  T5010:;{object V1114;
10320          V1158= (VV[33]->s.s_dbind);          V1114= (VV[42]->s.s_dbind);
10321          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
10322          base[3]= (V1133);          base[3]= (V1090);
10323          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10324          (void) (*Lnk257)();          (void) (*Lnk287)();
10325          vs_top=sup;          vs_top=sup;
10326          V1159= vs_base[0];          V1115= vs_base[0];
10327          if(!((V1158)==(CMPcar(V1159)))){          if(!((V1114)==(CMPcar(V1115)))){
10328          goto T4915;}}          goto T5015;}}
10329          V1156= CMPcar(((V1133))->cc.cc_turbo[12]);          V1112= CMPcar(((V1090))->cc.cc_turbo[12]);
10330          goto T4908;          goto T5008;
10331          goto T4915;          goto T5015;
10332  T4915:;  T5015:;
10333          V1156= Cnil;          V1112= Cnil;
10334          goto T4908;          goto T5008;
10335  T4908:;  T5008:;
10336          if(((V1156))==Cnil){          if(((V1112))==Cnil){
10337          goto T4921;}          goto T5021;}
10338          base[2]= ((V1156))->v.v_self[fix((V1135))]= (V1133);          base[2]= ((V1112))->v.v_self[fix((V1092))]= (V1090);
10339          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10340          return;          return;
10341          goto T4921;          goto T5021;
10342  T4921:;  T5021:;
10343          base[2]= Cnil;          base[2]= Cnil;
10344          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10345          return;}          return;}
10346          goto T4906;          goto T5006;
10347  T4906:;  T5006:;
10348          base[2]= V1135;          base[2]= V1092;
10349          base[3]= VV[10];          base[3]= VV[10];
10350          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10351          (void) (*Lnk262)();          (void) (*Lnk292)();
10352          vs_top=sup;          vs_top=sup;
10353          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10354          goto T4924;}          goto T5024;}
10355          {object V1161;          {object V1118;
10356          object V1162;          object V1119;
10357          object V1163;          object V1120;
10358          V1161= STREF(object,(V1135),0);          V1118= STREF(object,(V1092),0);
10359          V1162= list(2,(V1133),(V1134));          V1119= list(2,(V1090),(V1091));
10360          V1163= STREF(object,(V1135),4);          V1120= STREF(object,(V1092),4);
10361          if(((V1163))==Cnil){          if(((V1120))==Cnil){
10362          goto T4932;}          goto T5032;}
10363          if((CMPcdr((V1163)))!=Cnil){          if((CMPcdr((V1120)))!=Cnil){
10364          goto T4932;}          goto T5032;}
10365          base[2]= (V1162);          base[2]= (V1119);
10366          base[3]= CMPcar((V1163));          base[3]= CMPcar((V1120));
10367          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10368          {object _funobj = (V1161);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1118);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10369                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10370                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10371                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10372          return;          return;
10373          goto T4932;          goto T5032;
10374  T4932:;  T5032:;
10375          base[2]= (V1161);          base[2]= (V1118);
10376          base[3]= (V1162);          base[3]= (V1119);
10377          {object V1164;          {object V1121;
10378          V1164= (V1163);          V1121= (V1120);
10379           vs_top=base+4;           vs_top=base+4;
10380           while(V1164!=Cnil)           while(V1121!=Cnil)
10381           {vs_push((V1164)->c.c_car);V1164=(V1164)->c.c_cdr;}           {vs_push((V1121)->c.c_car);V1121=(V1121)->c.c_cdr;}
10382          vs_base=base+3;}          vs_base=base+3;}
10383          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10384                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10385                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10386                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10387          return;}          return;}
10388          goto T4924;          goto T5024;
10389  T4924:;  T5024:;
10390          base[2]= V1135;          base[2]= V1092;
10391          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10392          Lfunctionp();          Lfunctionp();
10393          vs_top=sup;          vs_top=sup;
10394          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10395          goto T4942;}          goto T5042;}
10396          base[2]= (V1133);          base[2]= (V1090);
10397          base[3]= (V1134);          base[3]= (V1091);
10398          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10399          {object _funobj = (V1135);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1092);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10400                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10401                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10402                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10403          return;          return;
10404          goto T4942;          goto T5042;
10405  T4942:;  T5042:;
10406          base[3]= VV[11];          base[2]= VV[11];
10407          base[4]= V1135;          base[3]= VV[12];
10408          base[5]= VV[51];          base[4]= VV[13];
10409          vs_top=(vs_base=base+3)+3;          base[5]= VV[14];
10410          (void) (*Lnk264)();          base[6]= V1092;
10411          vs_top=sup;          base[7]= VV[15];
10412          base[2]= vs_base[0];          base[8]= VV[60];
10413          vs_top=(vs_base=base+2)+1;          base[9]= VV[17];
10414          Lerror();          base[10]= VV[61];
10415          return;}          vs_top=(vs_base=base+2)+9;
10416          goto T4809;          (void) (*Lnk294)();
10417  T4809:;          return;}
10418          base[2]= (V1133);          goto T4909;
10419          base[3]= (V1134);  T4909:;
10420            base[2]= (V1090);
10421            base[3]= (V1091);
10422          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10423          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10424                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 10459  register object *base0; Line 10437  register object *base0;
10437  {       register object *base=vs_base;  {       register object *base=vs_base;
10438          register object *sup=base+VM142; VC142          register object *sup=base+VM142; VC142
10439          vs_check;          vs_check;
10440          check_arg(2);          check_arg(3);
10441          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
10442          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
10443            base[2]=MMcons(base[2],base[1]);
10444          vs_top=sup;          vs_top=sup;
10445          base[2]=          base[3]=
10446          make_cclosure_new(LC151,Cnil,base[1],Cdata);          make_cclosure_new(LC151,Cnil,base[2],Cdata);
10447          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
10448          return;          return;
10449  }  }
10450  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 10475  register object *base0; Line 10454  register object *base0;
10454  {       register object *base=vs_base;  {       register object *base=vs_base;
10455          register object *sup=base+VM143; VC143          register object *sup=base+VM143; VC143
10456          vs_check;          vs_check;
10457          {register object V1165;          {register object V1122;
10458          object V1166;          object V1123;
10459          check_arg(2);          check_arg(2);
10460          V1165=(base[0]);          V1122=(base[0]);
10461          V1166=(base[1]);          V1123=(base[1]);
10462          vs_top=sup;          vs_top=sup;
10463          {register object V1167;          {register object V1124;
10464          V1167= (base0[1]->c.c_car);          V1124= (base0[2]->c.c_car);
10465          base[2]= (V1167);          base[2]= (V1124);
10466          base[3]= VV[2];          base[3]= VV[2];
10467          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10468          (void) (*Lnk262)();          (void) (*Lnk292)();
10469          vs_top=sup;          vs_top=sup;
10470          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10471          goto T4956;}          goto T5061;}
10472          base[2]= STREF(object,(V1167),0);          base[2]= STREF(object,(V1124),0);
10473          base[3]= STREF(object,(V1167),4);          base[3]= STREF(object,(V1124),4);
10474          base[4]= STREF(object,(V1167),8);          base[4]= STREF(object,(V1124),8);
10475          base[5]= (V1165);          base[5]= (V1122);
10476          base[6]= (V1166);          base[6]= (V1123);
10477          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
10478          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10479                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10480                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10481                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10482          return;          return;
10483          goto T4956;          goto T5061;
10484  T4956:;  T5061:;
10485          if(!(type_of((V1167))==t_fixnum)){          if(!(type_of((V1124))==t_fixnum)){
10486          goto T4966;}          goto T5071;}
10487          {object V1169;          {object V1126;
10488          if(type_of(V1165)==t_structure){          if(type_of(V1122)==t_structure){
10489          goto T4972;}          goto T5077;}
10490          goto T4970;          goto T5075;
10491          goto T4972;          goto T5077;
10492  T4972:;  T5077:;
10493          if(!(((V1165)->str.str_def)==(VV[41]))){          if(!(((V1122)->str.str_def)==(VV[50]))){
10494          goto T4970;}          goto T5075;}
10495          V1169= STREF(object,(V1165),4);          V1126= STREF(object,(V1122),4);
10496          goto T4968;          goto T5073;
10497          goto T4970;          goto T5075;
10498  T4970:;{object V1171;  T5075:;{object V1128;
10499          V1171= (VV[33]->s.s_dbind);          V1128= (VV[42]->s.s_dbind);
10500          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
10501          base[3]= (V1165);          base[3]= (V1122);
10502          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10503          (void) (*Lnk257)();          (void) (*Lnk287)();
10504          vs_top=sup;          vs_top=sup;
10505          V1172= vs_base[0];          V1129= vs_base[0];
10506          if(!((V1171)==(CMPcar(V1172)))){          if(!((V1128)==(CMPcar(V1129)))){
10507          goto T4975;}}          goto T5080;}}
10508          V1169= CMPcar(((V1165))->cc.cc_turbo[12]);          V1126= CMPcar(((V1122))->cc.cc_turbo[12]);
10509          goto T4968;          goto T5073;
10510          goto T4975;          goto T5080;
10511  T4975:;  T5080:;
10512          V1169= Cnil;          V1126= Cnil;
10513          goto T4968;          goto T5073;
10514  T4968:;  T5073:;
10515          if(((V1169))==Cnil){          if(((V1126))==Cnil){
10516          goto T4981;}          goto T5086;}
10517          base[2]= ((V1169))->v.v_self[fix((V1167))]= (V1165);          base[2]= ((V1126))->v.v_self[fix((V1124))]= (V1122);
10518          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10519          return;          return;
10520          goto T4981;          goto T5086;
10521  T4981:;  T5086:;
10522          base[2]= Cnil;          base[2]= Cnil;
10523          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10524          return;}          return;}
10525          goto T4966;          goto T5071;
10526  T4966:;  T5071:;
10527          {register object V1173;          {register object V1131;
10528          V1173= (V1167);          V1131= V1124;
10529          base[2]= (V1173);          base[2]= (V1131);
10530          base[3]= VV[10];          base[3]= VV[10];
10531          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10532          (void) (*Lnk262)();          (void) (*Lnk292)();
10533          vs_top=sup;          vs_top=sup;
10534          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10535          goto T4984;}          goto T5089;}
10536          {object V1174;          {object V1132;
10537          object V1175;          object V1133;
10538          register object V1176;          register object V1134;
10539          V1174= STREF(object,(V1167),0);          V1132= STREF(object,(V1124),0);
10540          V1175= list(2,(V1165),(V1166));          V1133= list(2,(V1122),(V1123));
10541          V1176= STREF(object,(V1167),4);          V1134= STREF(object,(V1124),4);
10542          if(((V1176))==Cnil){          if(((V1134))==Cnil){
10543          goto T4995;}          goto T5100;}
10544          if(!((CMPcdr((V1176)))==Cnil)){          if(!((CMPcdr((V1134)))==Cnil)){
10545          goto T4992;}          goto T5097;}
10546          goto T4993;          goto T5098;
10547          goto T4995;          goto T5100;
10548  T4995:;  T5100:;
10549          goto T4992;          goto T5097;
10550          goto T4993;          goto T5098;
10551  T4993:;  T5098:;
10552          base[2]= (V1175);          base[2]= (V1133);
10553          base[3]= CMPcar((V1176));          base[3]= CMPcar((V1134));
10554          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10555          {object _funobj = (V1174);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1132);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10556                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10557                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10558                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10559          return;          return;
10560          goto T4992;          goto T5097;
10561  T4992:;  T5097:;
10562          base[2]= (V1174);          base[2]= (V1132);
10563          base[3]= (V1175);          base[3]= (V1133);
10564          {object V1177;          {object V1135;
10565          V1177= (V1176);          V1135= (V1134);
10566           vs_top=base+4;           vs_top=base+4;
10567           while(V1177!=Cnil)           while(V1135!=Cnil)
10568           {vs_push((V1177)->c.c_car);V1177=(V1177)->c.c_cdr;}           {vs_push((V1135)->c.c_car);V1135=(V1135)->c.c_cdr;}
10569          vs_base=base+3;}          vs_base=base+3;}
10570          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10571                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10572                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10573                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10574          return;}          return;}
10575          goto T4984;          goto T5089;
10576  T4984:;  T5089:;
10577          base[2]= (V1173);          base[2]= (V1131);
10578          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
10579          Lfunctionp();          Lfunctionp();
10580          vs_top=sup;          vs_top=sup;
10581          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10582          goto T5003;}          goto T5108;}
10583          base[2]= (V1165);          base[2]= (V1122);
10584          base[3]= (V1166);          base[3]= (V1123);
10585          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
10586          {object _funobj = (V1167);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1124);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10587                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10588                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10589                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10590          return;          return;
10591          goto T5003;          goto T5108;
10592  T5003:;  T5108:;
10593          base[3]= VV[11];          base[2]= VV[11];
10594          base[4]= (V1173);          base[3]= VV[12];
10595          base[5]= (base0[0]->c.c_car);          base[4]= VV[13];
10596          vs_top=(vs_base=base+3)+3;          base[5]= VV[14];
10597          (void) (*Lnk264)();          base[6]= V1124;
10598          vs_top=sup;          base[7]= VV[15];
10599          base[2]= vs_base[0];          base[8]= (base0[1]->c.c_car);
10600          vs_top=(vs_base=base+2)+1;          base[9]= VV[17];
10601          Lerror();          base[10]= (base0[0]->c.c_car);
10602            vs_top=(vs_base=base+2)+9;
10603            (void) (*Lnk294)();
10604          return;}}          return;}}
10605          }          }
10606  }  }
# Line 10630  register object *base0; Line 10611  register object *base0;
10611  {       register object *base=vs_base;  {       register object *base=vs_base;
10612          register object *sup=base+VM144; VC144          register object *sup=base+VM144; VC144
10613          vs_check;          vs_check;
10614          check_arg(4);          check_arg(5);
10615          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
10616          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
10617          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
10618          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
10619            base[4]=MMcons(base[4],base[3]);
10620          vs_top=sup;          vs_top=sup;
10621          base[4]=          base[5]=
10622          make_cclosure_new(LC152,Cnil,base[3],Cdata);          make_cclosure_new(LC152,Cnil,base[4],Cdata);
10623          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+5)+1;
10624          return;          return;
10625  }  }
10626  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 10648  register object *base0; Line 10630  register object *base0;
10630  {       register object *base=vs_base;  {       register object *base=vs_base;
10631          register object *sup=base+VM145; VC145          register object *sup=base+VM145; VC145
10632          vs_check;          vs_check;
10633          {register object V1178;          {register object V1136;
10634          register object V1179;          register object V1137;
10635          object V1180;          object V1138;
10636          check_arg(3);          check_arg(3);
10637          V1178=(base[0]);          V1136=(base[0]);
10638          V1179=(base[1]);          V1137=(base[1]);
10639          V1180=(base[2]);          V1138=(base[2]);
10640          vs_top=sup;          vs_top=sup;
10641          {register object V1181;          {register object V1139;
10642          base[3]= (V1178);          base[3]= (V1136);
10643          base[4]= VV[27];          base[4]= VV[36];
10644          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10645          (void) (*Lnk265)();          (void) (*Lnk295)();
10646          vs_top=sup;          vs_top=sup;
10647          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10648          goto T5014;}          goto T5124;}
10649          {register object V1182;          {register object V1140;
10650          register object V1183;          register object V1141;
10651          V1182= (base0[3]->c.c_car);          V1140= (base0[4]->c.c_car);
10652          V1183= CMPcar((V1182));          V1141= CMPcar((V1140));
10653          goto T5021;          goto T5131;
10654  T5021:;  T5131:;
10655          if(!(((V1182))==Cnil)){          if(!(((V1140))==Cnil)){
10656          goto T5022;}          goto T5132;}
10657          V1181= (base0[2]->c.c_car);          V1139= (base0[3]->c.c_car);
10658          goto T5012;          goto T5122;
10659          goto T5022;          goto T5132;
10660  T5022:;  T5132:;
10661          if(!((CMPcar((V1183)))==((V1179)))){          if(!((CMPcar((V1141)))==((V1137)))){
10662          goto T5026;}          goto T5136;}
10663          V1181= CMPcdr((V1183));          V1139= CMPcdr((V1141));
10664          goto T5012;          goto T5122;
10665          goto T5026;          goto T5136;
10666  T5026:;  T5136:;
10667          V1182= CMPcdr((V1182));          V1140= CMPcdr((V1140));
10668          V1183= CMPcar((V1182));          V1141= CMPcar((V1140));
10669          goto T5021;}          goto T5131;}
10670          goto T5014;          goto T5124;
10671  T5014:;  T5124:;
10672          V1181= (base0[1]->c.c_car);          V1139= (base0[2]->c.c_car);
10673          goto T5012;          goto T5122;
10674  T5012:;  T5122:;
10675          base[3]= (V1181);          base[3]= (V1139);
10676          base[4]= VV[2];          base[4]= VV[2];
10677          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10678          (void) (*Lnk262)();          (void) (*Lnk292)();
10679          vs_top=sup;          vs_top=sup;
10680          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10681          goto T5036;}          goto T5146;}
10682          base[3]= STREF(object,(V1181),0);          base[3]= STREF(object,(V1139),0);
10683          base[4]= STREF(object,(V1181),4);          base[4]= STREF(object,(V1139),4);
10684          base[5]= STREF(object,(V1181),8);          base[5]= STREF(object,(V1139),8);
10685          base[6]= (V1178);          base[6]= (V1136);
10686          base[7]= (V1179);          base[7]= (V1137);
10687          base[8]= (V1180);          base[8]= (V1138);
10688          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
10689          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10690                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10691                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10692                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10693          return;          return;
10694          goto T5036;          goto T5146;
10695  T5036:;  T5146:;
10696          {register object V1184;          base[3]= V1139;
         V1184= (V1181);  
         base[3]= (V1184);  
10697          base[4]= VV[10];          base[4]= VV[10];
10698          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10699          (void) (*Lnk262)();          (void) (*Lnk292)();
10700          vs_top=sup;          vs_top=sup;
10701          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10702          goto T5047;}          goto T5157;}
10703          {object V1185;          {object V1144;
10704          object V1186;          object V1145;
10705          object V1187;          object V1146;
10706          V1185= STREF(object,(V1181),0);          V1144= STREF(object,(V1139),0);
10707          V1186= list(3,(V1178),(V1179),(V1180));          V1145= list(3,(V1136),(V1137),(V1138));
10708          V1187= STREF(object,(V1181),4);          V1146= STREF(object,(V1139),4);
10709          if(((V1187))==Cnil){          if(((V1146))==Cnil){
10710          goto T5058;}          goto T5168;}
10711          if(!((CMPcdr((V1187)))==Cnil)){          if(!((CMPcdr((V1146)))==Cnil)){
10712          goto T5055;}          goto T5165;}
10713          goto T5056;          goto T5166;
10714          goto T5058;          goto T5168;
10715  T5058:;  T5168:;
10716          goto T5055;          goto T5165;
10717          goto T5056;          goto T5166;
10718  T5056:;  T5166:;
10719          base[3]= (V1186);          base[3]= (V1145);
10720          base[4]= CMPcar((V1187));          base[4]= CMPcar((V1146));
10721          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10722          {object _funobj = (V1185);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1144);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10723                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10724                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10725                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10726          return;          return;
10727          goto T5055;          goto T5165;
10728  T5055:;  T5165:;
10729          base[3]= (V1185);          base[3]= (V1144);
10730          base[4]= (V1186);          base[4]= (V1145);
10731          {object V1188;          {object V1147;
10732          V1188= (V1187);          V1147= (V1146);
10733           vs_top=base+5;           vs_top=base+5;
10734           while(V1188!=Cnil)           while(V1147!=Cnil)
10735           {vs_push((V1188)->c.c_car);V1188=(V1188)->c.c_cdr;}           {vs_push((V1147)->c.c_car);V1147=(V1147)->c.c_cdr;}
10736          vs_base=base+4;}          vs_base=base+4;}
10737          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10738                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10739                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10740                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10741          return;}          return;}
10742          goto T5047;          goto T5157;
10743  T5047:;  T5157:;
10744          base[3]= (V1184);          base[3]= V1139;
10745          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
10746          Lfunctionp();          Lfunctionp();
10747          vs_top=sup;          vs_top=sup;
10748          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10749          goto T5066;}          goto T5176;}
10750          base[3]= (V1178);          base[3]= (V1136);
10751          base[4]= (V1179);          base[4]= (V1137);
10752          base[5]= (V1180);          base[5]= (V1138);
10753          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
10754          {object _funobj = (V1181);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1139);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10755                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10756                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10757                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10758          return;          return;
10759          goto T5066;          goto T5176;
10760  T5066:;  T5176:;
10761          base[4]= VV[11];          base[3]= VV[11];
10762          base[5]= (V1184);          base[4]= VV[12];
10763          base[6]= (base0[0]->c.c_car);          base[5]= VV[13];
10764          vs_top=(vs_base=base+4)+3;          base[6]= VV[14];
10765          (void) (*Lnk264)();          base[7]= V1139;
10766          vs_top=sup;          base[8]= VV[15];
10767          base[3]= vs_base[0];          base[9]= (base0[1]->c.c_car);
10768          vs_top=(vs_base=base+3)+1;          base[10]= VV[17];
10769          Lerror();          base[11]= (base0[0]->c.c_car);
10770          return;}}          vs_top=(vs_base=base+3)+9;
10771            (void) (*Lnk294)();
10772            return;}
10773          }          }
10774  }  }
10775  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 10797  register object *base0; Line 10779  register object *base0;
10779  {       register object *base=vs_base;  {       register object *base=vs_base;
10780          register object *sup=base+VM146; VC146          register object *sup=base+VM146; VC146
10781          vs_check;          vs_check;
10782          check_arg(2);          check_arg(3);
10783          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
10784          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
10785            base[2]=MMcons(base[2],base[1]);
10786          vs_top=sup;          vs_top=sup;
10787          base[2]=          base[3]=
10788          make_cclosure_new(LC153,Cnil,base[1],Cdata);          make_cclosure_new(LC153,Cnil,base[2],Cdata);
10789          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
10790          return;          return;
10791  }  }
10792  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 10813  register object *base0; Line 10796  register object *base0;
10796  {       register object *base=vs_base;  {       register object *base=vs_base;
10797          register object *sup=base+VM147; VC147          register object *sup=base+VM147; VC147
10798          vs_check;          vs_check;
10799          {register object V1189;          {register object V1148;
10800          check_arg(1);          check_arg(1);
10801          V1189=(base[0]);          V1148=(base[0]);
10802          vs_top=sup;          vs_top=sup;
10803          {register object V1190;          {register object V1149;
10804          V1190= (base0[1]->c.c_car);          V1149= (base0[2]->c.c_car);
10805          base[1]= (V1190);          base[1]= (V1149);
10806          base[2]= VV[2];          base[2]= VV[2];
10807          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
10808          (void) (*Lnk262)();          (void) (*Lnk292)();
10809          vs_top=sup;          vs_top=sup;
10810          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10811          goto T5078;}          goto T5193;}
10812          base[1]= STREF(object,(V1190),0);          base[1]= STREF(object,(V1149),0);
10813          base[2]= STREF(object,(V1190),4);          base[2]= STREF(object,(V1149),4);
10814          base[3]= STREF(object,(V1190),8);          base[3]= STREF(object,(V1149),8);
10815          base[4]= (V1189);          base[4]= (V1148);
10816          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
10817          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10818                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10819                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10820                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10821          return;          return;
10822          goto T5078;          goto T5193;
10823  T5078:;  T5193:;
10824          if(!(type_of((V1190))==t_fixnum)){          if(!(type_of((V1149))==t_fixnum)){
10825          goto T5087;}          goto T5202;}
10826          {object V1191;          {object V1150;
10827          object V1192;          object V1151;
10828          if(type_of(V1189)==t_structure){          if(type_of(V1148)==t_structure){
10829          goto T5093;}          goto T5208;}
10830          goto T5091;          goto T5206;
10831          goto T5093;          goto T5208;
10832  T5093:;  T5208:;
10833          if(!(((V1189)->str.str_def)==(VV[31]))){          if(!(((V1148)->str.str_def)==(VV[40]))){
10834          goto T5091;}          goto T5206;}
10835          V1191= STREF(object,(V1189),4);          V1150= STREF(object,(V1148),4);
10836          goto T5089;          goto T5204;
10837          goto T5091;          goto T5206;
10838  T5091:;{object V1194;  T5206:;{object V1153;
10839          V1194= (VV[33]->s.s_dbind);          V1153= (VV[42]->s.s_dbind);
10840          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
10841          base[4]= (V1189);          base[4]= (V1148);
10842          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10843          (void) (*Lnk257)();          (void) (*Lnk287)();
10844          vs_top=sup;          vs_top=sup;
10845          V1195= vs_base[0];          V1154= vs_base[0];
10846          if(!((V1194)==(CMPcar(V1195)))){          if(!((V1153)==(CMPcar(V1154)))){
10847          goto T5096;}}          goto T5211;}}
10848          V1191= CMPcar(((V1189))->cc.cc_turbo[12]);          V1150= CMPcar(((V1148))->cc.cc_turbo[12]);
10849          goto T5089;          goto T5204;
10850          goto T5096;          goto T5211;
10851  T5096:;  T5211:;
10852          V1191= Cnil;          V1150= Cnil;
10853          goto T5089;          goto T5204;
10854  T5089:;  T5204:;
10855          if(((V1191))==Cnil){          if(((V1150))==Cnil){
10856          goto T5103;}          goto T5218;}
10857          V1192= ((V1191))->v.v_self[fix((V1190))];          V1151= ((V1150))->v.v_self[fix((V1149))];
10858          goto T5101;          goto T5216;
10859          goto T5103;          goto T5218;
10860  T5103:;  T5218:;
10861          V1192= Cnil;          V1151= Cnil;
10862          goto T5101;          goto T5216;
10863  T5101:;  T5216:;
10864          if(!(((V1192))==(VV[34]))){          if(!(((V1151))==(VV[43]))){
10865          goto T5106;}          goto T5221;}
10866          base[3]= (V1189);          base[3]= (V1148);
10867          base[4]= (V1190);          base[4]= (V1149);
10868          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10869          (void) (*Lnk263)();          (void) (*Lnk293)();
10870          return;          return;
10871          goto T5106;          goto T5221;
10872  T5106:;  T5221:;
10873          base[3]= (V1192);          base[3]= (V1151);
10874          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
10875          return;}          return;}
10876          goto T5087;          goto T5202;
10877  T5087:;  T5202:;
10878          {register object V1196;          {register object V1156;
10879          V1196= (V1190);          V1156= V1149;
10880          base[1]= (V1196);          base[1]= (V1156);
10881          base[2]= VV[10];          base[2]= VV[10];
10882          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
10883          (void) (*Lnk262)();          (void) (*Lnk292)();
10884          vs_top=sup;          vs_top=sup;
10885          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10886          goto T5111;}          goto T5226;}
10887          {object V1197;          {object V1157;
10888          object V1198;          object V1158;
10889          register object V1199;          register object V1159;
10890          V1197= STREF(object,(V1190),0);          V1157= STREF(object,(V1149),0);
10891          V1198= make_cons((V1189),Cnil);          V1158= make_cons((V1148),Cnil);
10892          V1199= STREF(object,(V1190),4);          V1159= STREF(object,(V1149),4);
10893          if(((V1199))==Cnil){          if(((V1159))==Cnil){
10894          goto T5122;}          goto T5237;}
10895          if(!((CMPcdr((V1199)))==Cnil)){          if(!((CMPcdr((V1159)))==Cnil)){
10896          goto T5119;}          goto T5234;}
10897          goto T5120;          goto T5235;
10898          goto T5122;          goto T5237;
10899  T5122:;  T5237:;
10900          goto T5119;          goto T5234;
10901          goto T5120;          goto T5235;
10902  T5120:;  T5235:;
10903          base[1]= (V1198);          base[1]= (V1158);
10904          base[2]= CMPcar((V1199));          base[2]= CMPcar((V1159));
10905          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
10906          {object _funobj = (V1197);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1157);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10907                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10908                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10909                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10910          return;          return;
10911          goto T5119;          goto T5234;
10912  T5119:;  T5234:;
10913          base[1]= (V1197);          base[1]= (V1157);
10914          base[2]= (V1198);          base[2]= (V1158);
10915          {object V1200;          {object V1160;
10916          V1200= (V1199);          V1160= (V1159);
10917           vs_top=base+3;           vs_top=base+3;
10918           while(V1200!=Cnil)           while(V1160!=Cnil)
10919           {vs_push((V1200)->c.c_car);V1200=(V1200)->c.c_cdr;}           {vs_push((V1160)->c.c_car);V1160=(V1160)->c.c_cdr;}
10920          vs_base=base+2;}          vs_base=base+2;}
10921          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10922                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10923                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10924                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10925          return;}          return;}
10926          goto T5111;          goto T5226;
10927  T5111:;  T5226:;
10928          base[1]= (V1196);          base[1]= (V1156);
10929          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
10930          Lfunctionp();          Lfunctionp();
10931          vs_top=sup;          vs_top=sup;
10932          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10933          goto T5130;}          goto T5245;}
10934          base[1]= (V1189);          base[1]= (V1148);
10935          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
10936          {object _funobj = (V1190);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1149);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
10937                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
10938                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
10939                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
10940          return;          return;
10941          goto T5130;          goto T5245;
10942  T5130:;  T5245:;
10943          base[2]= VV[11];          base[1]= VV[11];
10944          base[3]= (V1196);          base[2]= VV[12];
10945          base[4]= (base0[0]->c.c_car);          base[3]= VV[13];
10946          vs_top=(vs_base=base+2)+3;          base[4]= VV[14];
10947          (void) (*Lnk264)();          base[5]= V1149;
10948          vs_top=sup;          base[6]= VV[15];
10949          base[1]= vs_base[0];          base[7]= (base0[1]->c.c_car);
10950          vs_top=(vs_base=base+1)+1;          base[8]= VV[17];
10951          Lerror();          base[9]= (base0[0]->c.c_car);
10952            vs_top=(vs_base=base+1)+9;
10953            (void) (*Lnk294)();
10954          return;}}          return;}}
10955          }          }
10956  }  }
# Line 10976  register object *base0; Line 10961  register object *base0;
10961  {       register object *base=vs_base;  {       register object *base=vs_base;
10962          register object *sup=base+VM148; VC148          register object *sup=base+VM148; VC148
10963          vs_check;          vs_check;
10964          check_arg(4);          check_arg(5);
10965          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
10966          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
10967          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
10968          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
10969            base[4]=MMcons(base[4],base[3]);
10970          vs_top=sup;          vs_top=sup;
10971          base[4]=          base[5]=
10972          make_cclosure_new(LC154,Cnil,base[3],Cdata);          make_cclosure_new(LC154,Cnil,base[4],Cdata);
10973          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+5)+1;
10974          return;          return;
10975  }  }
10976  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 10994  register object *base0; Line 10980  register object *base0;
10980  {       register object *base=vs_base;  {       register object *base=vs_base;
10981          register object *sup=base+VM149; VC149          register object *sup=base+VM149; VC149
10982          vs_check;          vs_check;
10983          {register object V1201;          {register object V1161;
10984          register object V1202;          register object V1162;
10985          object V1203;          object V1163;
10986          check_arg(3);          check_arg(3);
10987          V1201=(base[0]);          V1161=(base[0]);
10988          V1202=(base[1]);          V1162=(base[1]);
10989          V1203=(base[2]);          V1163=(base[2]);
10990          vs_top=sup;          vs_top=sup;
10991          {register object V1204;          {register object V1164;
10992          base[3]= (V1201);          base[3]= (V1161);
10993          base[4]= VV[27];          base[4]= VV[36];
10994          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
10995          (void) (*Lnk265)();          (void) (*Lnk295)();
10996          vs_top=sup;          vs_top=sup;
10997          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
10998          goto T5140;}          goto T5260;}
10999          if(!(((V1202))==(CMPcar((base0[3]->c.c_car))))){          if(!(((V1162))==(CMPcar((base0[4]->c.c_car))))){
11000          goto T5145;}          goto T5265;}
11001          V1204= CMPcdr((base0[3]->c.c_car));          V1164= CMPcdr((base0[4]->c.c_car));
11002          goto T5138;          goto T5258;
11003          goto T5145;          goto T5265;
11004  T5145:;  T5265:;
11005          V1204= (base0[2]->c.c_car);          V1164= (base0[3]->c.c_car);
11006          goto T5138;          goto T5258;
11007          goto T5140;          goto T5260;
11008  T5140:;  T5260:;
11009          V1204= (base0[1]->c.c_car);          V1164= (base0[2]->c.c_car);
11010          goto T5138;          goto T5258;
11011  T5138:;  T5258:;
11012          base[3]= (V1204);          base[3]= (V1164);
11013          base[4]= VV[2];          base[4]= VV[2];
11014          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
11015          (void) (*Lnk262)();          (void) (*Lnk292)();
11016          vs_top=sup;          vs_top=sup;
11017          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11018          goto T5149;}          goto T5269;}
11019          base[3]= STREF(object,(V1204),0);          base[3]= STREF(object,(V1164),0);
11020          base[4]= STREF(object,(V1204),4);          base[4]= STREF(object,(V1164),4);
11021          base[5]= STREF(object,(V1204),8);          base[5]= STREF(object,(V1164),8);
11022          base[6]= (V1201);          base[6]= (V1161);
11023          base[7]= (V1202);          base[7]= (V1162);
11024          base[8]= (V1203);          base[8]= (V1163);
11025          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
11026          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11027                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11028                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11029                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11030          return;          return;
11031          goto T5149;          goto T5269;
11032  T5149:;  T5269:;
11033          {register object V1205;          {register object V1166;
11034          V1205= (V1204);          V1166= V1164;
11035          base[3]= (V1205);          base[3]= (V1166);
11036          base[4]= VV[10];          base[4]= VV[10];
11037          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
11038          (void) (*Lnk262)();          (void) (*Lnk292)();
11039          vs_top=sup;          vs_top=sup;
11040          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11041          goto T5160;}          goto T5280;}
11042          {object V1206;          {object V1167;
11043          object V1207;          object V1168;
11044          register object V1208;          register object V1169;
11045          V1206= STREF(object,(V1204),0);          V1167= STREF(object,(V1164),0);
11046          V1207= list(3,(V1201),(V1202),(V1203));          V1168= list(3,(V1161),(V1162),(V1163));
11047          V1208= STREF(object,(V1204),4);          V1169= STREF(object,(V1164),4);
11048          if(((V1208))==Cnil){          if(((V1169))==Cnil){
11049          goto T5171;}          goto T5291;}
11050          if(!((CMPcdr((V1208)))==Cnil)){          if(!((CMPcdr((V1169)))==Cnil)){
11051          goto T5168;}          goto T5288;}
11052          goto T5169;          goto T5289;
11053          goto T5171;          goto T5291;
11054  T5171:;  T5291:;
11055          goto T5168;          goto T5288;
11056          goto T5169;          goto T5289;
11057  T5169:;  T5289:;
11058          base[3]= (V1207);          base[3]= (V1168);
11059          base[4]= CMPcar((V1208));          base[4]= CMPcar((V1169));
11060          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
11061          {object _funobj = (V1206);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1167);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11062                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11063                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11064                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11065          return;          return;
11066          goto T5168;          goto T5288;
11067  T5168:;  T5288:;
11068          base[3]= (V1206);          base[3]= (V1167);
11069          base[4]= (V1207);          base[4]= (V1168);
11070          {object V1209;          {object V1170;
11071          V1209= (V1208);          V1170= (V1169);
11072           vs_top=base+5;           vs_top=base+5;
11073           while(V1209!=Cnil)           while(V1170!=Cnil)
11074           {vs_push((V1209)->c.c_car);V1209=(V1209)->c.c_cdr;}           {vs_push((V1170)->c.c_car);V1170=(V1170)->c.c_cdr;}
11075          vs_base=base+4;}          vs_base=base+4;}
11076          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11077                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11078                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11079                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11080          return;}          return;}
11081          goto T5160;          goto T5280;
11082  T5160:;  T5280:;
11083          base[3]= (V1205);          base[3]= (V1166);
11084          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
11085          Lfunctionp();          Lfunctionp();
11086          vs_top=sup;          vs_top=sup;
11087          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11088          goto T5179;}          goto T5299;}
11089          base[3]= (V1201);          base[3]= (V1161);
11090          base[4]= (V1202);          base[4]= (V1162);
11091          base[5]= (V1203);          base[5]= (V1163);
11092          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
11093          {object _funobj = (V1204);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1164);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11094                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11095                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11096                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11097          return;          return;
11098          goto T5179;          goto T5299;
11099  T5179:;  T5299:;
11100          base[4]= VV[11];          base[3]= VV[11];
11101          base[5]= (V1205);          base[4]= VV[12];
11102          base[6]= (base0[0]->c.c_car);          base[5]= VV[13];
11103          vs_top=(vs_base=base+4)+3;          base[6]= VV[14];
11104          (void) (*Lnk264)();          base[7]= V1164;
11105          vs_top=sup;          base[8]= VV[15];
11106          base[3]= vs_base[0];          base[9]= (base0[1]->c.c_car);
11107          vs_top=(vs_base=base+3)+1;          base[10]= VV[17];
11108          Lerror();          base[11]= (base0[0]->c.c_car);
11109            vs_top=(vs_base=base+3)+9;
11110            (void) (*Lnk294)();
11111          return;}}          return;}}
11112          }          }
11113  }  }
# Line 11146  register object *base0; Line 11134  register object *base0;
11134  {       register object *base=vs_base;  {       register object *base=vs_base;
11135          register object *sup=base+VM151; VC151          register object *sup=base+VM151; VC151
11136          vs_check;          vs_check;
11137          {object V1210;          {object V1171;
11138          object V1211;          object V1172;
11139          object V1212;          object V1173;
11140          object V1213;          object V1174;
11141          object V1214;          object V1175;
11142          check_arg(5);          check_arg(5);
11143          V1210=(base[0]);          V1171=(base[0]);
11144          V1211=(base[1]);          V1172=(base[1]);
11145          V1212=(base[2]);          V1173=(base[2]);
11146          V1213=(base[3]);          V1174=(base[3]);
11147          V1214=(base[4]);          V1175=(base[4]);
11148          vs_top=sup;          vs_top=sup;
11149          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
11150          base[6]= (base0[0]->c.c_car);          base[6]= (base0[0]->c.c_car);
# Line 11189  register object *base0; Line 11177  register object *base0;
11177  {       register object *base=vs_base;  {       register object *base=vs_base;
11178          register object *sup=base+VM153; VC153          register object *sup=base+VM153; VC153
11179          vs_check;          vs_check;
11180          {object V1215;          {object V1176;
11181          object V1216;          object V1177;
11182          register object V1217;          register object V1178;
11183          register object V1218;          register object V1179;
11184          check_arg(4);          check_arg(4);
11185          V1215=(base[0]);          V1176=(base[0]);
11186          V1216=(base[1]);          V1177=(base[1]);
11187          V1217=(base[2]);          V1178=(base[2]);
11188          V1218=(base[3]);          V1179=(base[3]);
11189          vs_top=sup;          vs_top=sup;
11190          {register object V1221;          {register object V1182;
11191          object V1222;          object V1183;
11192          V1221= (base0[2]->c.c_car);          V1182= (base0[2]->c.c_car);
11193          V1222= CMPcar((V1221));          V1183= CMPcar((V1182));
11194          goto T5196;          goto T5321;
11195  T5196:;  T5321:;
11196          if(!(((V1221))==Cnil)){          if(!(((V1182))==Cnil)){
11197          goto T5197;}          goto T5322;}
11198          goto T5192;          goto T5317;
11199          goto T5197;          goto T5322;
11200  T5197:;  T5322:;
11201          (void)((          (void)((
11202          V1223 = STREF(object,(V1222),0),          V1184 = STREF(object,(V1183),0),
11203          (type_of(V1223) == t_sfun ?(*((V1223)->sfn.sfn_self)):          (type_of(V1184) == t_sfun ?(*((V1184)->sfn.sfn_self)):
11204          (fcall.argd=4,type_of(V1223)==t_vfun) ?          (fcall.argd=4,type_of(V1184)==t_vfun) ?
11205          (*((V1223)->sfn.sfn_self)):          (*((V1184)->sfn.sfn_self)):
11206          (fcall.fun=(V1223),fcalln))(STREF(object,(V1222),4),STREF(object,(V1222),8),(V1217),(V1218))));          (fcall.fun=(V1184),fcalln))(STREF(object,(V1183),4),STREF(object,(V1183),8),(V1178),(V1179))));
11207          V1221= CMPcdr((V1221));          V1182= CMPcdr((V1182));
11208          V1222= CMPcar((V1221));          V1183= CMPcar((V1182));
11209          goto T5196;}          goto T5321;}
11210          goto T5192;          goto T5317;
11211  T5192:;  T5317:;
11212          base[4]= (base0[1]->c.c_car);          base[4]= (base0[1]->c.c_car);
11213          base[5]= VV[2];          base[5]= VV[2];
11214          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
11215          (void) (*Lnk262)();          (void) (*Lnk292)();
11216          vs_top=sup;          vs_top=sup;
11217          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11218          goto T5210;}          goto T5335;}
11219          base[4]= STREF(object,(base0[1]->c.c_car),0);          base[4]= STREF(object,(base0[1]->c.c_car),0);
11220          base[5]= STREF(object,(base0[1]->c.c_car),4);          base[5]= STREF(object,(base0[1]->c.c_car),4);
11221          base[6]= STREF(object,(base0[1]->c.c_car),8);          base[6]= STREF(object,(base0[1]->c.c_car),8);
11222          base[7]= (V1217);          base[7]= (V1178);
11223          base[8]= (V1218);          base[8]= (V1179);
11224          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
11225          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11226                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11227                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11228                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11229          goto T5191;          goto T5316;
11230          goto T5210;          goto T5335;
11231  T5210:;  T5335:;
11232          {object V1224;          {object V1185;
11233          V1224= (base0[1]->c.c_car);          V1185= (base0[1]->c.c_car);
11234          base[4]= (V1224);          base[4]= V1185;
11235          base[5]= VV[10];          base[5]= VV[10];
11236          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
11237          (void) (*Lnk262)();          (void) (*Lnk292)();
11238          vs_top=sup;          vs_top=sup;
11239          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11240          goto T5220;}          goto T5345;}
11241          {object V1225;          {object V1187;
11242          object V1226;          object V1188;
11243          object V1227;          object V1189;
11244          V1225= STREF(object,(base0[1]->c.c_car),0);          V1187= STREF(object,(base0[1]->c.c_car),0);
11245          V1226= make_cons((V1217),(V1218));          V1188= make_cons((V1178),(V1179));
11246          V1227= STREF(object,(base0[1]->c.c_car),4);          V1189= STREF(object,(base0[1]->c.c_car),4);
11247          if(((V1227))==Cnil){          if(((V1189))==Cnil){
11248          goto T5228;}          goto T5353;}
11249          if((CMPcdr((V1227)))!=Cnil){          if((CMPcdr((V1189)))!=Cnil){
11250          goto T5228;}          goto T5353;}
11251          base[4]= (V1226);          base[4]= (V1188);
11252          base[5]= CMPcar((V1227));          base[5]= CMPcar((V1189));
11253          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
11254          {object _funobj = (V1225);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1187);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11255                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11256                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11257                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11258          goto T5191;          goto T5316;
11259          goto T5228;          goto T5353;
11260  T5228:;  T5353:;
11261          base[4]= (V1225);          base[4]= (V1187);
11262          base[5]= (V1226);          base[5]= (V1188);
11263          {object V1228;          {object V1190;
11264          V1228= (V1227);          V1190= (V1189);
11265           vs_top=base+6;           vs_top=base+6;
11266           while(V1228!=Cnil)           while(V1190!=Cnil)
11267           {vs_push((V1228)->c.c_car);V1228=(V1228)->c.c_cdr;}           {vs_push((V1190)->c.c_car);V1190=(V1190)->c.c_cdr;}
11268          vs_base=base+5;}          vs_base=base+5;}
11269          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11270                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11271                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11272                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11273          goto T5191;}          goto T5316;}
11274          goto T5220;          goto T5345;
11275  T5220:;  T5345:;
11276          base[4]= (V1224);          base[4]= V1185;
11277          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
11278          Lfunctionp();          Lfunctionp();
11279          vs_top=sup;          vs_top=sup;
11280          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11281          goto T5238;}          goto T5363;}
11282          base[4]= (base0[1]->c.c_car);          base[4]= (base0[1]->c.c_car);
11283          base[5]= (V1217);          base[5]= (V1178);
11284          {object V1229;          {object V1191;
11285          V1229= (V1218);          V1191= (V1179);
11286           vs_top=base+6;           vs_top=base+6;
11287           while(V1229!=Cnil)           while(V1191!=Cnil)
11288           {vs_push((V1229)->c.c_car);V1229=(V1229)->c.c_cdr;}           {vs_push((V1191)->c.c_car);V1191=(V1191)->c.c_cdr;}
11289          vs_base=base+5;}          vs_base=base+5;}
11290          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11291                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11292                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11293                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11294          goto T5191;          goto T5316;
11295          goto T5238;          goto T5363;
11296  T5238:;  T5363:;
11297          base[5]= VV[13];          base[4]= VV[11];
11298          base[6]= (V1224);          base[5]= VV[12];
11299          base[7]= VV[19];          base[6]= VV[13];
11300          vs_top=(vs_base=base+5)+3;          base[7]= VV[14];
11301          (void) (*Lnk264)();          base[8]= (V1185);
11302          vs_top=sup;          base[9]= VV[15];
11303          base[4]= vs_base[0];          base[10]= VV[26];
11304          vs_top=(vs_base=base+4)+1;          base[11]= VV[17];
11305          Lerror();}          base[12]= VV[27];
11306          goto T5191;          vs_top=(vs_base=base+4)+9;
11307  T5191:;          (void) (*Lnk294)();}
11308          {object *V1220=vs_top;object *V1219=vs_base; vs_base=V1220;          goto T5316;
11309    T5316:;
11310            {object *V1181=vs_top;object *V1180=vs_base; vs_base=V1181;
11311          {register object *base1=base;          {register object *base1=base;
11312          {register object *base=V1220;          {register object *base=V1181;
11313          register object *sup=vs_base+VM154;          register object *sup=vs_base+VM154;
11314          base1[0]=base1[0];          base1[0]=base1[0];
11315          base[0]=base[0];          base[0]=base[0];
11316          vs_check;          vs_check;
11317          vs_top=sup;          vs_top=sup;
11318          {register object V1230;          {register object V1192;
11319          register object V1231;          register object V1193;
11320          V1230= (base0[0]->c.c_car);          V1192= (base0[0]->c.c_car);
11321          V1231= CMPcar((V1230));          V1193= CMPcar((V1192));
11322          goto T5252;          goto T5382;
11323  T5252:;  T5382:;
11324          if(!(((V1230))==Cnil)){          if(!(((V1192))==Cnil)){
11325          goto T5253;}          goto T5383;}
11326          goto T5248;          goto T5378;
11327          goto T5253;          goto T5383;
11328  T5253:;  T5383:;
11329          base[1]= (V1231);          base[1]= (V1193);
11330          base[2]= VV[2];          base[2]= VV[2];
11331          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
11332          (void) (*Lnk262)();          (void) (*Lnk292)();
11333          vs_top=sup;          vs_top=sup;
11334          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11335          goto T5260;}          goto T5390;}
11336          (void)((          (void)((
11337          V1232 = STREF(object,(V1231),0),          V1194 = STREF(object,(V1193),0),
11338          (type_of(V1232) == t_sfun ?(*((V1232)->sfn.sfn_self)):          (type_of(V1194) == t_sfun ?(*((V1194)->sfn.sfn_self)):
11339          (fcall.argd=4,type_of(V1232)==t_vfun) ?          (fcall.argd=4,type_of(V1194)==t_vfun) ?
11340          (*((V1232)->sfn.sfn_self)):          (*((V1194)->sfn.sfn_self)):
11341          (fcall.fun=(V1232),fcalln))(STREF(object,(V1231),4),STREF(object,(V1231),8),(V1217),(V1218))));          (fcall.fun=(V1194),fcalln))(STREF(object,(V1193),4),STREF(object,(V1193),8),(V1178),(V1179))));
11342          goto T5257;          goto T5387;
11343          goto T5260;          goto T5390;
11344  T5260:;  T5390:;
11345          {register object V1233;          base[1]= V1193;
         V1233= (V1231);  
         base[1]= (V1233);  
11346          base[2]= VV[10];          base[2]= VV[10];
11347          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
11348          (void) (*Lnk262)();          (void) (*Lnk292)();
11349          vs_top=sup;          vs_top=sup;
11350          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11351          goto T5265;}          goto T5395;}
11352          {object V1234;          {object V1197;
11353          object V1235;          object V1198;
11354          register object V1236;          register object V1199;
11355          V1234= STREF(object,(V1231),0);          V1197= STREF(object,(V1193),0);
11356          V1235= make_cons((V1217),(V1218));          V1198= make_cons((V1178),(V1179));
11357          V1236= STREF(object,(V1231),4);          V1199= STREF(object,(V1193),4);
11358          if(((V1236))==Cnil){          if(((V1199))==Cnil){
11359          goto T5273;}          goto T5403;}
11360          if((CMPcdr((V1236)))!=Cnil){          if((CMPcdr((V1199)))!=Cnil){
11361          goto T5273;}          goto T5403;}
11362          (void)((          (void)((
11363          (type_of((V1234)) == t_sfun ?(*(((V1234))->sfn.sfn_self)):          (type_of((V1197)) == t_sfun ?(*(((V1197))->sfn.sfn_self)):
11364          (fcall.argd=2,type_of((V1234))==t_vfun) ?          (fcall.argd=2,type_of((V1197))==t_vfun) ?
11365          (*(((V1234))->sfn.sfn_self)):          (*(((V1197))->sfn.sfn_self)):
11366          (fcall.fun=((V1234)),fcalln))((V1235),CMPcar((V1236)))));          (fcall.fun=((V1197)),fcalln))((V1198),CMPcar((V1199)))));
11367          goto T5257;          goto T5387;
11368          goto T5273;          goto T5403;
11369  T5273:;  T5403:;
11370          base[1]= (V1234);          base[1]= (V1197);
11371          base[2]= (V1235);          base[2]= (V1198);
11372          {object V1237;          {object V1200;
11373          V1237= (V1236);          V1200= (V1199);
11374           vs_top=base+3;           vs_top=base+3;
11375           while(V1237!=Cnil)           while(V1200!=Cnil)
11376           {vs_push((V1237)->c.c_car);V1237=(V1237)->c.c_cdr;}           {vs_push((V1200)->c.c_car);V1200=(V1200)->c.c_cdr;}
11377          vs_base=base+2;}          vs_base=base+2;}
11378          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11379                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11380                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11381                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11382          vs_top=sup;          vs_top=sup;
11383          goto T5257;}          goto T5387;}
11384          goto T5265;          goto T5395;
11385  T5265:;  T5395:;
11386          base[1]= (V1233);          base[1]= V1193;
11387          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
11388          Lfunctionp();          Lfunctionp();
11389          vs_top=sup;          vs_top=sup;
11390          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11391          goto T5281;}          goto T5411;}
11392          base[1]= (V1231);          base[1]= (V1193);
11393          base[2]= (V1217);          base[2]= (V1178);
11394          {object V1238;          {object V1201;
11395          V1238= (V1218);          V1201= (V1179);
11396           vs_top=base+3;           vs_top=base+3;
11397           while(V1238!=Cnil)           while(V1201!=Cnil)
11398           {vs_push((V1238)->c.c_car);V1238=(V1238)->c.c_cdr;}           {vs_push((V1201)->c.c_car);V1201=(V1201)->c.c_cdr;}
11399          vs_base=base+2;}          vs_base=base+2;}
11400          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11401                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11402                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11403                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11404          vs_top=sup;          vs_top=sup;
11405          goto T5257;          goto T5387;
11406          goto T5281;          goto T5411;
11407  T5281:;  T5411:;
11408          base[2]= VV[11];          base[1]= VV[11];
11409          base[3]= (V1233);          base[2]= VV[12];
11410          base[4]= VV[20];          base[3]= VV[13];
11411          vs_top=(vs_base=base+2)+3;          base[4]= VV[14];
11412          (void) (*Lnk264)();          base[5]= V1193;
11413          vs_top=sup;          base[6]= VV[15];
11414          base[1]= vs_base[0];          base[7]= VV[28];
11415          vs_top=(vs_base=base+1)+1;          base[8]= VV[17];
11416          Lerror();          base[9]= VV[29];
11417          vs_top=sup;}          vs_top=(vs_base=base+1)+9;
11418          goto T5257;          (void) (*Lnk294)();
11419  T5257:;          vs_top=sup;
11420          V1230= CMPcdr((V1230));          goto T5387;
11421          V1231= CMPcar((V1230));  T5387:;
11422          goto T5252;}          V1192= CMPcdr((V1192));
11423            V1193= CMPcar((V1192));
11424            goto T5382;}
11425          }}          }}
11426          goto T5248;          goto T5378;
11427  T5248:;  T5378:;
11428          vs_base=V1219;vs_top=V1220;}          vs_base=V1180;vs_top=V1181;}
11429          return;          return;
11430          }          }
11431  }  }
# Line 11463  register object *base0; Line 11453  register object *base0;
11453  {       register object *base=vs_base;  {       register object *base=vs_base;
11454          register object *sup=base+VM156; VC156          register object *sup=base+VM156; VC156
11455          vs_check;          vs_check;
11456          {object V1239;          {object V1202;
11457          object V1240;          object V1203;
11458          register object V1241;          register object V1204;
11459          register object V1242;          register object V1205;
11460          register object V1243;          register object V1206;
11461          check_arg(5);          check_arg(5);
11462          V1239=(base[0]);          V1202=(base[0]);
11463          V1240=(base[1]);          V1203=(base[1]);
11464          V1241=(base[2]);          V1204=(base[2]);
11465          V1242=(base[3]);          V1205=(base[3]);
11466          V1243=(base[4]);          V1206=(base[4]);
11467          vs_top=sup;          vs_top=sup;
11468          {object V1246;          {object V1209;
11469          register object V1247;          register object V1210;
11470          V1246= (base0[2]->c.c_car);          V1209= (base0[2]->c.c_car);
11471          V1247= CMPcar((V1246));          V1210= CMPcar((V1209));
11472          goto T5301;          goto T5436;
11473  T5301:;  T5436:;
11474          if(!(((V1246))==Cnil)){          if(!(((V1209))==Cnil)){
11475          goto T5302;}          goto T5437;}
11476          goto T5297;          goto T5432;
11477          goto T5302;          goto T5437;
11478  T5302:;  T5437:;
11479          base[6]= (V1247);          base[6]= (V1210);
11480          base[7]= VV[2];          base[7]= VV[2];
11481          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
11482          (void) (*Lnk262)();          (void) (*Lnk292)();
11483          vs_top=sup;          vs_top=sup;
11484          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11485          goto T5309;}          goto T5444;}
11486          (void)((          (void)((
11487          V1248 = STREF(object,(V1247),0),          V1211 = STREF(object,(V1210),0),
11488          (type_of(V1248) == t_sfun ?(*((V1248)->sfn.sfn_self)):          (type_of(V1211) == t_sfun ?(*((V1211)->sfn.sfn_self)):
11489          (fcall.argd=5,type_of(V1248)==t_vfun) ?          (fcall.argd=5,type_of(V1211)==t_vfun) ?
11490          (*((V1248)->sfn.sfn_self)):          (*((V1211)->sfn.sfn_self)):
11491          (fcall.fun=(V1248),fcalln))(STREF(object,(V1247),4),STREF(object,(V1247),8),(V1241),(V1242),(V1243))));          (fcall.fun=(V1211),fcalln))(STREF(object,(V1210),4),STREF(object,(V1210),8),(V1204),(V1205),(V1206))));
11492          goto T5306;          goto T5441;
11493          goto T5309;          goto T5444;
11494  T5309:;  T5444:;
11495          base[6]= V1247;          base[6]= V1210;
11496          base[7]= VV[10];          base[7]= VV[10];
11497          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
11498          (void) (*Lnk262)();          (void) (*Lnk292)();
11499          vs_top=sup;          vs_top=sup;
11500          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11501          goto T5314;}          goto T5449;}
11502          {object V1250;          {object V1214;
11503          object V1251;          object V1215;
11504          register object V1252;          register object V1216;
11505          V1250= STREF(object,(V1247),0);          V1214= STREF(object,(V1210),0);
11506          V1251= listA(3,(V1241),(V1242),(V1243));          V1215= listA(3,(V1204),(V1205),(V1206));
11507          V1252= STREF(object,(V1247),4);          V1216= STREF(object,(V1210),4);
11508          if(((V1252))==Cnil){          if(((V1216))==Cnil){
11509          goto T5322;}          goto T5457;}
11510          if((CMPcdr((V1252)))!=Cnil){          if((CMPcdr((V1216)))!=Cnil){
11511          goto T5322;}          goto T5457;}
11512          (void)((          (void)((
11513          (type_of((V1250)) == t_sfun ?(*(((V1250))->sfn.sfn_self)):          (type_of((V1214)) == t_sfun ?(*(((V1214))->sfn.sfn_self)):
11514          (fcall.argd=2,type_of((V1250))==t_vfun) ?          (fcall.argd=2,type_of((V1214))==t_vfun) ?
11515          (*(((V1250))->sfn.sfn_self)):          (*(((V1214))->sfn.sfn_self)):
11516          (fcall.fun=((V1250)),fcalln))((V1251),CMPcar((V1252)))));          (fcall.fun=((V1214)),fcalln))((V1215),CMPcar((V1216)))));
11517          goto T5306;          goto T5441;
11518          goto T5322;          goto T5457;
11519  T5322:;  T5457:;
11520          base[6]= (V1250);          base[6]= (V1214);
11521          base[7]= (V1251);          base[7]= (V1215);
11522          {object V1253;          {object V1217;
11523          V1253= (V1252);          V1217= (V1216);
11524           vs_top=base+8;           vs_top=base+8;
11525           while(V1253!=Cnil)           while(V1217!=Cnil)
11526           {vs_push((V1253)->c.c_car);V1253=(V1253)->c.c_cdr;}           {vs_push((V1217)->c.c_car);V1217=(V1217)->c.c_cdr;}
11527          vs_base=base+7;}          vs_base=base+7;}
11528          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11529                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11530                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11531                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11532          vs_top=sup;          vs_top=sup;
11533          goto T5306;}          goto T5441;}
11534          goto T5314;          goto T5449;
11535  T5314:;  T5449:;
11536          base[6]= V1247;          base[6]= V1210;
11537          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
11538          Lfunctionp();          Lfunctionp();
11539          vs_top=sup;          vs_top=sup;
11540          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11541          goto T5330;}          goto T5465;}
11542          base[6]= (V1247);          base[6]= (V1210);
11543          base[7]= (V1241);          base[7]= (V1204);
11544          base[8]= (V1242);          base[8]= (V1205);
11545          {object V1254;          {object V1218;
11546          V1254= (V1243);          V1218= (V1206);
11547           vs_top=base+9;           vs_top=base+9;
11548           while(V1254!=Cnil)           while(V1218!=Cnil)
11549           {vs_push((V1254)->c.c_car);V1254=(V1254)->c.c_cdr;}           {vs_push((V1218)->c.c_car);V1218=(V1218)->c.c_cdr;}
11550          vs_base=base+7;}          vs_base=base+7;}
11551          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11552                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11553                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11554                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11555          vs_top=sup;          vs_top=sup;
11556          goto T5306;          goto T5441;
11557          goto T5330;          goto T5465;
11558  T5330:;  T5465:;
11559          base[7]= VV[11];          base[6]= VV[11];
11560          base[8]= V1247;          base[7]= VV[12];
11561          base[9]= VV[12];          base[8]= VV[13];
11562          vs_top=(vs_base=base+7)+3;          base[9]= VV[14];
11563          (void) (*Lnk264)();          base[10]= V1210;
11564          vs_top=sup;          base[11]= VV[15];
11565          base[6]= vs_base[0];          base[12]= VV[16];
11566          vs_top=(vs_base=base+6)+1;          base[13]= VV[17];
11567          Lerror();          base[14]= VV[18];
11568          vs_top=sup;          vs_top=(vs_base=base+6)+9;
11569          goto T5306;          (void) (*Lnk294)();
11570  T5306:;          vs_top=sup;
11571          V1246= CMPcdr((V1246));          goto T5441;
11572          V1247= CMPcar((V1246));  T5441:;
11573          goto T5301;}          V1209= CMPcdr((V1209));
11574          goto T5297;          V1210= CMPcar((V1209));
11575  T5297:;          goto T5436;}
11576            goto T5432;
11577    T5432:;
11578          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
11579          base[6]= VV[2];          base[6]= VV[2];
11580          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
11581          (void) (*Lnk262)();          (void) (*Lnk292)();
11582          vs_top=sup;          vs_top=sup;
11583          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11584          goto T5348;}          goto T5488;}
11585          base[5]= STREF(object,(base0[1]->c.c_car),0);          base[5]= STREF(object,(base0[1]->c.c_car),0);
11586          base[6]= STREF(object,(base0[1]->c.c_car),4);          base[6]= STREF(object,(base0[1]->c.c_car),4);
11587          base[7]= STREF(object,(base0[1]->c.c_car),8);          base[7]= STREF(object,(base0[1]->c.c_car),8);
11588          base[8]= (V1241);          base[8]= (V1204);
11589          base[9]= (V1242);          base[9]= (V1205);
11590          base[10]= (V1243);          base[10]= (V1206);
11591          vs_top=(vs_base=base+6)+5;          vs_top=(vs_base=base+6)+5;
11592          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11593                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11594                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11595                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11596          goto T5296;          goto T5431;
11597          goto T5348;          goto T5488;
11598  T5348:;  T5488:;
11599          {object V1255;          {object V1219;
11600          V1255= (base0[1]->c.c_car);          V1219= (base0[1]->c.c_car);
11601          base[5]= (V1255);          base[5]= V1219;
11602          base[6]= VV[10];          base[6]= VV[10];
11603          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
11604          (void) (*Lnk262)();          (void) (*Lnk292)();
11605          vs_top=sup;          vs_top=sup;
11606          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11607          goto T5359;}          goto T5499;}
11608          {object V1256;          {object V1221;
11609          object V1257;          object V1222;
11610          object V1258;          object V1223;
11611          V1256= STREF(object,(base0[1]->c.c_car),0);          V1221= STREF(object,(base0[1]->c.c_car),0);
11612          V1257= listA(3,(V1241),(V1242),(V1243));          V1222= listA(3,(V1204),(V1205),(V1206));
11613          V1258= STREF(object,(base0[1]->c.c_car),4);          V1223= STREF(object,(base0[1]->c.c_car),4);
11614          if(((V1258))==Cnil){          if(((V1223))==Cnil){
11615          goto T5367;}          goto T5507;}
11616          if((CMPcdr((V1258)))!=Cnil){          if((CMPcdr((V1223)))!=Cnil){
11617          goto T5367;}          goto T5507;}
11618          base[5]= (V1257);          base[5]= (V1222);
11619          base[6]= CMPcar((V1258));          base[6]= CMPcar((V1223));
11620          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
11621          {object _funobj = (V1256);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1221);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11622                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11623                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11624                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11625          goto T5296;          goto T5431;
11626          goto T5367;          goto T5507;
11627  T5367:;  T5507:;
11628          base[5]= (V1256);          base[5]= (V1221);
11629          base[6]= (V1257);          base[6]= (V1222);
11630          {object V1259;          {object V1224;
11631          V1259= (V1258);          V1224= (V1223);
11632           vs_top=base+7;           vs_top=base+7;
11633           while(V1259!=Cnil)           while(V1224!=Cnil)
11634           {vs_push((V1259)->c.c_car);V1259=(V1259)->c.c_cdr;}           {vs_push((V1224)->c.c_car);V1224=(V1224)->c.c_cdr;}
11635          vs_base=base+6;}          vs_base=base+6;}
11636          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11637                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11638                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11639                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11640          goto T5296;}          goto T5431;}
11641          goto T5359;          goto T5499;
11642  T5359:;  T5499:;
11643          base[5]= (V1255);          base[5]= V1219;
11644          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
11645          Lfunctionp();          Lfunctionp();
11646          vs_top=sup;          vs_top=sup;
11647          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11648          goto T5377;}          goto T5517;}
11649          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
11650          base[6]= (V1241);          base[6]= (V1204);
11651          base[7]= (V1242);          base[7]= (V1205);
11652          {object V1260;          {object V1225;
11653          V1260= (V1243);          V1225= (V1206);
11654           vs_top=base+8;           vs_top=base+8;
11655           while(V1260!=Cnil)           while(V1225!=Cnil)
11656           {vs_push((V1260)->c.c_car);V1260=(V1260)->c.c_cdr;}           {vs_push((V1225)->c.c_car);V1225=(V1225)->c.c_cdr;}
11657          vs_base=base+6;}          vs_base=base+6;}
11658          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11659                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11660                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11661                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11662          goto T5296;          goto T5431;
11663          goto T5377;          goto T5517;
11664  T5377:;  T5517:;
11665          base[6]= VV[13];          base[5]= VV[11];
11666          base[7]= (V1255);          base[6]= VV[12];
11667            base[7]= VV[13];
11668          base[8]= VV[14];          base[8]= VV[14];
11669          vs_top=(vs_base=base+6)+3;          base[9]= (V1219);
11670          (void) (*Lnk264)();          base[10]= VV[15];
11671          vs_top=sup;          base[11]= VV[19];
11672          base[5]= vs_base[0];          base[12]= VV[17];
11673          vs_top=(vs_base=base+5)+1;          base[13]= VV[20];
11674          Lerror();}          vs_top=(vs_base=base+5)+9;
11675          goto T5296;          (void) (*Lnk294)();}
11676  T5296:;          goto T5431;
11677          {object *V1245=vs_top;object *V1244=vs_base; vs_base=V1245;  T5431:;
11678            {object *V1208=vs_top;object *V1207=vs_base; vs_base=V1208;
11679          {register object *base1=base;          {register object *base1=base;
11680          {register object *base=V1245;          {register object *base=V1208;
11681          register object *sup=vs_base+VM157;          register object *sup=vs_base+VM157;
11682          base1[0]=base1[0];          base1[0]=base1[0];
11683          base[0]=base[0];          base[0]=base[0];
11684          vs_check;          vs_check;
11685          vs_top=sup;          vs_top=sup;
11686          {object V1261;          {object V1226;
11687          register object V1262;          register object V1227;
11688          V1261= (base0[0]->c.c_car);          V1226= (base0[0]->c.c_car);
11689          V1262= CMPcar((V1261));          V1227= CMPcar((V1226));
11690          goto T5392;          goto T5537;
11691  T5392:;  T5537:;
11692          if(!(((V1261))==Cnil)){          if(!(((V1226))==Cnil)){
11693          goto T5393;}          goto T5538;}
11694          goto T5388;          goto T5533;
11695          goto T5393;          goto T5538;
11696  T5393:;  T5538:;
11697          base[1]= (V1262);          base[1]= (V1227);
11698          base[2]= VV[2];          base[2]= VV[2];
11699          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
11700          (void) (*Lnk262)();          (void) (*Lnk292)();
11701          vs_top=sup;          vs_top=sup;
11702          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11703          goto T5400;}          goto T5545;}
11704          (void)((          (void)((
11705          V1263 = STREF(object,(V1262),0),          V1228 = STREF(object,(V1227),0),
11706          (type_of(V1263) == t_sfun ?(*((V1263)->sfn.sfn_self)):          (type_of(V1228) == t_sfun ?(*((V1228)->sfn.sfn_self)):
11707          (fcall.argd=5,type_of(V1263)==t_vfun) ?          (fcall.argd=5,type_of(V1228)==t_vfun) ?
11708          (*((V1263)->sfn.sfn_self)):          (*((V1228)->sfn.sfn_self)):
11709          (fcall.fun=(V1263),fcalln))(STREF(object,(V1262),4),STREF(object,(V1262),8),(V1241),(V1242),(V1243))));          (fcall.fun=(V1228),fcalln))(STREF(object,(V1227),4),STREF(object,(V1227),8),(V1204),(V1205),(V1206))));
11710          goto T5397;          goto T5542;
11711          goto T5400;          goto T5545;
11712  T5400:;  T5545:;
11713          base[1]= V1262;          base[1]= V1227;
11714          base[2]= VV[10];          base[2]= VV[10];
11715          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
11716          (void) (*Lnk262)();          (void) (*Lnk292)();
11717          vs_top=sup;          vs_top=sup;
11718          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11719          goto T5405;}          goto T5550;}
11720          {object V1265;          {object V1231;
11721          object V1266;          object V1232;
11722          register object V1267;          register object V1233;
11723          V1265= STREF(object,(V1262),0);          V1231= STREF(object,(V1227),0);
11724          V1266= listA(3,(V1241),(V1242),(V1243));          V1232= listA(3,(V1204),(V1205),(V1206));
11725          V1267= STREF(object,(V1262),4);          V1233= STREF(object,(V1227),4);
11726          if(((V1267))==Cnil){          if(((V1233))==Cnil){
11727          goto T5413;}          goto T5558;}
11728          if((CMPcdr((V1267)))!=Cnil){          if((CMPcdr((V1233)))!=Cnil){
11729          goto T5413;}          goto T5558;}
11730          (void)((          (void)((
11731          (type_of((V1265)) == t_sfun ?(*(((V1265))->sfn.sfn_self)):          (type_of((V1231)) == t_sfun ?(*(((V1231))->sfn.sfn_self)):
11732          (fcall.argd=2,type_of((V1265))==t_vfun) ?          (fcall.argd=2,type_of((V1231))==t_vfun) ?
11733          (*(((V1265))->sfn.sfn_self)):          (*(((V1231))->sfn.sfn_self)):
11734          (fcall.fun=((V1265)),fcalln))((V1266),CMPcar((V1267)))));          (fcall.fun=((V1231)),fcalln))((V1232),CMPcar((V1233)))));
11735          goto T5397;          goto T5542;
11736          goto T5413;          goto T5558;
11737  T5413:;  T5558:;
11738          base[1]= (V1265);          base[1]= (V1231);
11739          base[2]= (V1266);          base[2]= (V1232);
11740          {object V1268;          {object V1234;
11741          V1268= (V1267);          V1234= (V1233);
11742           vs_top=base+3;           vs_top=base+3;
11743           while(V1268!=Cnil)           while(V1234!=Cnil)
11744           {vs_push((V1268)->c.c_car);V1268=(V1268)->c.c_cdr;}           {vs_push((V1234)->c.c_car);V1234=(V1234)->c.c_cdr;}
11745          vs_base=base+2;}          vs_base=base+2;}
11746          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11747                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11748                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11749                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11750          vs_top=sup;          vs_top=sup;
11751          goto T5397;}          goto T5542;}
11752          goto T5405;          goto T5550;
11753  T5405:;  T5550:;
11754          base[1]= V1262;          base[1]= V1227;
11755          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
11756          Lfunctionp();          Lfunctionp();
11757          vs_top=sup;          vs_top=sup;
11758          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
11759          goto T5421;}          goto T5566;}
11760          base[1]= (V1262);          base[1]= (V1227);
11761          base[2]= (V1241);          base[2]= (V1204);
11762          base[3]= (V1242);          base[3]= (V1205);
11763          {object V1269;          {object V1235;
11764          V1269= (V1243);          V1235= (V1206);
11765           vs_top=base+4;           vs_top=base+4;
11766           while(V1269!=Cnil)           while(V1235!=Cnil)
11767           {vs_push((V1269)->c.c_car);V1269=(V1269)->c.c_cdr;}           {vs_push((V1235)->c.c_car);V1235=(V1235)->c.c_cdr;}
11768          vs_base=base+2;}          vs_base=base+2;}
11769          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11770                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11771                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11772                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11773          vs_top=sup;          vs_top=sup;
11774          goto T5397;          goto T5542;
11775          goto T5421;          goto T5566;
11776  T5421:;  T5566:;
11777          base[2]= VV[11];          base[1]= VV[11];
11778          base[3]= V1262;          base[2]= VV[12];
11779          base[4]= VV[15];          base[3]= VV[13];
11780          vs_top=(vs_base=base+2)+3;          base[4]= VV[14];
11781          (void) (*Lnk264)();          base[5]= V1227;
11782          vs_top=sup;          base[6]= VV[15];
11783          base[1]= vs_base[0];          base[7]= VV[21];
11784          vs_top=(vs_base=base+1)+1;          base[8]= VV[17];
11785          Lerror();          base[9]= VV[22];
11786          vs_top=sup;          vs_top=(vs_base=base+1)+9;
11787          goto T5397;          (void) (*Lnk294)();
11788  T5397:;          vs_top=sup;
11789          V1261= CMPcdr((V1261));          goto T5542;
11790          V1262= CMPcar((V1261));  T5542:;
11791          goto T5392;}          V1226= CMPcdr((V1226));
11792            V1227= CMPcar((V1226));
11793            goto T5537;}
11794          }}          }}
11795          goto T5388;          goto T5533;
11796  T5388:;  T5533:;
11797          vs_base=V1244;vs_top=V1245;}          vs_base=V1207;vs_top=V1208;}
11798          return;          return;
11799          }          }
11800  }  }
# Line 11826  register object *base0; Line 11822  register object *base0;
11822  {       register object *base=vs_base;  {       register object *base=vs_base;
11823          register object *sup=base+VM159; VC159          register object *sup=base+VM159; VC159
11824          vs_check;          vs_check;
11825          {object V1270;          {object V1236;
11826          object V1271;          object V1237;
11827          register object V1272;          register object V1238;
11828          register object V1273;          register object V1239;
11829          check_arg(4);          check_arg(4);
11830          V1270=(base[0]);          V1236=(base[0]);
11831          V1271=(base[1]);          V1237=(base[1]);
11832          V1272=(base[2]);          V1238=(base[2]);
11833          V1273=(base[3]);          V1239=(base[3]);
11834          vs_top=sup;          vs_top=sup;
11835          {register object V1276;          {register object V1242;
11836          register object V1277;          register object V1243;
11837          V1276= (base0[2]->c.c_car);          V1242= (base0[2]->c.c_car);
11838          V1277= CMPcar((V1276));          V1243= CMPcar((V1242));
11839          goto T5442;          goto T5592;
11840  T5442:;  T5592:;
11841          if(!(((V1276))==Cnil)){          if(!(((V1242))==Cnil)){
11842          goto T5443;}          goto T5593;}
11843          goto T5438;          goto T5588;
11844          goto T5443;          goto T5593;
11845  T5443:;  T5593:;
11846          (void)((          (void)((
11847          V1278 = STREF(object,(V1277),0),          V1244 = STREF(object,(V1243),0),
11848          (type_of(V1278) == t_sfun ?(*((V1278)->sfn.sfn_self)):          (type_of(V1244) == t_sfun ?(*((V1244)->sfn.sfn_self)):
11849          (fcall.argd=4,type_of(V1278)==t_vfun) ?          (fcall.argd=4,type_of(V1244)==t_vfun) ?
11850          (*((V1278)->sfn.sfn_self)):          (*((V1244)->sfn.sfn_self)):
11851          (fcall.fun=(V1278),fcalln))(STREF(object,(V1277),4),STREF(object,(V1277),8),(V1272),(V1273))));          (fcall.fun=(V1244),fcalln))(STREF(object,(V1243),4),STREF(object,(V1243),8),(V1238),(V1239))));
11852          V1276= CMPcdr((V1276));          V1242= CMPcdr((V1242));
11853          V1277= CMPcar((V1276));          V1243= CMPcar((V1242));
11854          goto T5442;}          goto T5592;}
11855          goto T5438;          goto T5588;
11856  T5438:;  T5588:;
11857          base[4]= STREF(object,(base0[1]->c.c_car),0);          base[4]= STREF(object,(base0[1]->c.c_car),0);
11858          base[5]= STREF(object,(base0[1]->c.c_car),4);          base[5]= STREF(object,(base0[1]->c.c_car),4);
11859          base[6]= STREF(object,(base0[1]->c.c_car),8);          base[6]= STREF(object,(base0[1]->c.c_car),8);
11860          base[7]= (V1272);          base[7]= (V1238);
11861          base[8]= (V1273);          base[8]= (V1239);
11862          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
11863          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11864                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11865                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11866                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11867          {object *V1275=vs_top;object *V1274=vs_base; vs_base=V1275;          {object *V1241=vs_top;object *V1240=vs_base; vs_base=V1241;
11868          {register object *base1=base;          {register object *base1=base;
11869          {register object *base=V1275;          {register object *base=V1241;
11870          register object *sup=vs_base+VM160;          register object *sup=vs_base+VM160;
11871          base1[0]=base1[0];          base1[0]=base1[0];
11872          base[0]=base[0];          base[0]=base[0];
11873          vs_check;          vs_check;
11874          vs_top=sup;          vs_top=sup;
11875          {register object V1279;          {register object V1245;
11876          register object V1280;          register object V1246;
11877          V1279= (base0[0]->c.c_car);          V1245= (base0[0]->c.c_car);
11878          V1280= CMPcar((V1279));          V1246= CMPcar((V1245));
11879          goto T5464;          goto T5614;
11880  T5464:;  T5614:;
11881          if(!(((V1279))==Cnil)){          if(!(((V1245))==Cnil)){
11882          goto T5465;}          goto T5615;}
11883          goto T5460;          goto T5610;
11884          goto T5465;          goto T5615;
11885  T5465:;  T5615:;
11886          (void)((          (void)((
11887          V1281 = STREF(object,(V1280),0),          V1247 = STREF(object,(V1246),0),
11888          (type_of(V1281) == t_sfun ?(*((V1281)->sfn.sfn_self)):          (type_of(V1247) == t_sfun ?(*((V1247)->sfn.sfn_self)):
11889          (fcall.argd=4,type_of(V1281)==t_vfun) ?          (fcall.argd=4,type_of(V1247)==t_vfun) ?
11890          (*((V1281)->sfn.sfn_self)):          (*((V1247)->sfn.sfn_self)):
11891          (fcall.fun=(V1281),fcalln))(STREF(object,(V1280),4),STREF(object,(V1280),8),(V1272),(V1273))));          (fcall.fun=(V1247),fcalln))(STREF(object,(V1246),4),STREF(object,(V1246),8),(V1238),(V1239))));
11892          V1279= CMPcdr((V1279));          V1245= CMPcdr((V1245));
11893          V1280= CMPcar((V1279));          V1246= CMPcar((V1245));
11894          goto T5464;}          goto T5614;}
11895          }}          }}
11896          goto T5460;          goto T5610;
11897  T5460:;  T5610:;
11898          vs_base=V1274;vs_top=V1275;}          vs_base=V1240;vs_top=V1241;}
11899          return;          return;
11900          }          }
11901  }  }
# Line 11927  register object *base0; Line 11923  register object *base0;
11923  {       register object *base=vs_base;  {       register object *base=vs_base;
11924          register object *sup=base+VM162; VC162          register object *sup=base+VM162; VC162
11925          vs_check;          vs_check;
11926          {object V1282;          {object V1248;
11927          object V1283;          object V1249;
11928          register object V1284;          register object V1250;
11929          register object V1285;          register object V1251;
11930          register object V1286;          register object V1252;
11931          check_arg(5);          check_arg(5);
11932          V1282=(base[0]);          V1248=(base[0]);
11933          V1283=(base[1]);          V1249=(base[1]);
11934          V1284=(base[2]);          V1250=(base[2]);
11935          V1285=(base[3]);          V1251=(base[3]);
11936          V1286=(base[4]);          V1252=(base[4]);
11937          vs_top=sup;          vs_top=sup;
11938          {register object V1289;          {register object V1255;
11939          register object V1290;          register object V1256;
11940          V1289= (base0[2]->c.c_car);          V1255= (base0[2]->c.c_car);
11941          V1290= CMPcar((V1289));          V1256= CMPcar((V1255));
11942          goto T5481;          goto T5631;
11943  T5481:;  T5631:;
11944          if(!(((V1289))==Cnil)){          if(!(((V1255))==Cnil)){
11945          goto T5482;}          goto T5632;}
11946          goto T5477;          goto T5627;
11947          goto T5482;          goto T5632;
11948  T5482:;  T5632:;
11949          (void)((          (void)((
11950          V1291 = STREF(object,(V1290),0),          V1257 = STREF(object,(V1256),0),
11951          (type_of(V1291) == t_sfun ?(*((V1291)->sfn.sfn_self)):          (type_of(V1257) == t_sfun ?(*((V1257)->sfn.sfn_self)):
11952          (fcall.argd=5,type_of(V1291)==t_vfun) ?          (fcall.argd=5,type_of(V1257)==t_vfun) ?
11953          (*((V1291)->sfn.sfn_self)):          (*((V1257)->sfn.sfn_self)):
11954          (fcall.fun=(V1291),fcalln))(STREF(object,(V1290),4),STREF(object,(V1290),8),(V1284),(V1285),(V1286))));          (fcall.fun=(V1257),fcalln))(STREF(object,(V1256),4),STREF(object,(V1256),8),(V1250),(V1251),(V1252))));
11955          V1289= CMPcdr((V1289));          V1255= CMPcdr((V1255));
11956          V1290= CMPcar((V1289));          V1256= CMPcar((V1255));
11957          goto T5481;}          goto T5631;}
11958          goto T5477;          goto T5627;
11959  T5477:;  T5627:;
11960          base[5]= STREF(object,(base0[1]->c.c_car),0);          base[5]= STREF(object,(base0[1]->c.c_car),0);
11961          base[6]= STREF(object,(base0[1]->c.c_car),4);          base[6]= STREF(object,(base0[1]->c.c_car),4);
11962          base[7]= STREF(object,(base0[1]->c.c_car),8);          base[7]= STREF(object,(base0[1]->c.c_car),8);
11963          base[8]= (V1284);          base[8]= (V1250);
11964          base[9]= (V1285);          base[9]= (V1251);
11965          base[10]= (V1286);          base[10]= (V1252);
11966          vs_top=(vs_base=base+6)+5;          vs_top=(vs_base=base+6)+5;
11967          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
11968                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
11969                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
11970                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
11971          {object *V1288=vs_top;object *V1287=vs_base; vs_base=V1288;          {object *V1254=vs_top;object *V1253=vs_base; vs_base=V1254;
11972          {register object *base1=base;          {register object *base1=base;
11973          {register object *base=V1288;          {register object *base=V1254;
11974          register object *sup=vs_base+VM163;          register object *sup=vs_base+VM163;
11975          base1[0]=base1[0];          base1[0]=base1[0];
11976          base[0]=base[0];          base[0]=base[0];
11977          vs_check;          vs_check;
11978          vs_top=sup;          vs_top=sup;
11979          {register object V1292;          {register object V1258;
11980          register object V1293;          register object V1259;
11981          V1292= (base0[0]->c.c_car);          V1258= (base0[0]->c.c_car);
11982          V1293= CMPcar((V1292));          V1259= CMPcar((V1258));
11983          goto T5504;          goto T5654;
11984  T5504:;  T5654:;
11985          if(!(((V1292))==Cnil)){          if(!(((V1258))==Cnil)){
11986          goto T5505;}          goto T5655;}
11987          goto T5500;          goto T5650;
11988          goto T5505;          goto T5655;
11989  T5505:;  T5655:;
11990          (void)((          (void)((
11991          V1294 = STREF(object,(V1293),0),          V1260 = STREF(object,(V1259),0),
11992          (type_of(V1294) == t_sfun ?(*((V1294)->sfn.sfn_self)):          (type_of(V1260) == t_sfun ?(*((V1260)->sfn.sfn_self)):
11993          (fcall.argd=5,type_of(V1294)==t_vfun) ?          (fcall.argd=5,type_of(V1260)==t_vfun) ?
11994          (*((V1294)->sfn.sfn_self)):          (*((V1260)->sfn.sfn_self)):
11995          (fcall.fun=(V1294),fcalln))(STREF(object,(V1293),4),STREF(object,(V1293),8),(V1284),(V1285),(V1286))));          (fcall.fun=(V1260),fcalln))(STREF(object,(V1259),4),STREF(object,(V1259),8),(V1250),(V1251),(V1252))));
11996          V1292= CMPcdr((V1292));          V1258= CMPcdr((V1258));
11997          V1293= CMPcar((V1292));          V1259= CMPcar((V1258));
11998          goto T5504;}          goto T5654;}
11999          }}          }}
12000          goto T5500;          goto T5650;
12001  T5500:;  T5650:;
12002          vs_base=V1287;vs_top=V1288;}          vs_base=V1253;vs_top=V1254;}
12003          return;          return;
12004          }          }
12005  }  }
12006  static void LnkT265(){ call_or_link(VV[265],(void **)(void *)&Lnk265);} /* TYPEP */  static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* TYPEP */
12007  static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* TYPECASE-ERROR-STRING */  static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* ERROR */
12008  static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* SLOT-UNBOUND-INTERNAL */  static void LnkT293(){ call_or_link(VV[293],(void **)(void *)&Lnk293);} /* SLOT-UNBOUND-INTERNAL */
12009  static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* STRUCTURE-SUBTYPE-P */  static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* STRUCTURE-SUBTYPE-P */
12010  static object  LnkTLI261(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[261],(void **)(void *)&LnkLI261,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */
12011  static object  LnkTLI260(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[260],(void **)(void *)&LnkLI260,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */
12012  static object  LnkTLI259(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[259],(void **)(void *)&LnkLI259,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */
12013  static object  LnkTLI258(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[258],(void **)(void *)&LnkLI258,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)(void *)&LnkLI288,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
12014  static void LnkT257(){ call_or_link(VV[257],(void **)(void *)&Lnk257);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* CCLOSURE-ENV-NTHCDR */
12015  static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,4,first,ap);va_end(ap);return V1;} /* LOAD-PRECOMPILED-IIS-ENTRY */  static object  LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[265],(void **)(void *)&LnkLI265,4,first,ap);va_end(ap);return V1;} /* LOAD-PRECOMPILED-IIS-ENTRY */
12016  static object  LnkTLI211(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[211],(void **)(void *)&LnkLI211,4,first,ap);va_end(ap);return V1;} /* LOAD-PRECOMPILED-DFUN-CONSTRUCTOR */  static object  LnkTLI241(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[241],(void **)(void *)&LnkLI241,4,first,ap);va_end(ap);return V1;} /* LOAD-PRECOMPILED-DFUN-CONSTRUCTOR */
12017  static object  LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[201],(void **)(void *)&LnkLI201,5,first,ap);va_end(ap);return V1;} /* LOAD-FUNCTION-GENERATOR */  static object  LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,5,first,ap);va_end(ap);return V1;} /* LOAD-FUNCTION-GENERATOR */
12018    
12019  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
12020  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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