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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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; |
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 |
} |
} |
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)))){ |
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]; |
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)));} |
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)))){ |
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]; |
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)))){ |
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]; |
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:; |
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)))){ |
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]; |
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)))){ |
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]; |
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:; |
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)))){ |
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]; |
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)))){ |
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]; |
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)));} |
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)))){ |
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]; |
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)))){ |
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]; |
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], |
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)));} |
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)))){ |
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]; |
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)))){ |
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]; |
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], |
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)));} |
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)))){ |
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]; |
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], |
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], |
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)));} |
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)))){ |
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]; |
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], |
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], |
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)));} |
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)))){ |
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];} |
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)))){ |
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]; |
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)): |
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; |
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)))){ |
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]; |
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)));} |
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)))){ |
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]; |
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)));} |
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)))){ |
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]; |
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)));} |
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)))){ |
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]; |
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], |
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)));} |
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)))){ |
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]; |
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], |
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)));} |
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)))){ |
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]; |
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; |
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)))){ |
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:; |
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; |
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;} |
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)))){ |
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:; |
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); |
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; |
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:; |
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); |
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); |
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); |
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); |
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); |
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); |
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); |
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); |
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); |
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); |
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); |
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); |
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); |
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); |
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); |
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); |
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 |
} |
} |
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 |
} |
} |
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); |
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); |
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); |
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); |
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 */ |
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 |
} |
} |
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 */ |
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 */ |
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 */ |
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 |
} |
} |
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 */ |
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 |
} |
} |
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); |
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 |
} |
} |
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 |
} |
} |
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 |
} |
} |
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 |