1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_info.h" |
4 |
|
void init_gcl_info(){do_init(VV);} |
5 |
|
/* function definition for SHARP-U-READER */ |
6 |
|
|
7 |
|
static void L1() |
8 |
|
{register object *base=vs_base; |
9 |
|
register object *sup=base+VM1; VC1 |
10 |
|
vs_check; |
11 |
|
{register object V1; |
12 |
|
object V2; |
13 |
|
object V3; |
14 |
|
V1=(base[0]); |
15 |
|
V2=(base[1]); |
16 |
|
V3=(base[2]); |
17 |
|
vs_top=sup; |
18 |
|
goto TTL; |
19 |
|
TTL:; |
20 |
|
{object V4; |
21 |
|
base[3]= small_fixnum(10); |
22 |
|
base[4]= VV[0]; |
23 |
|
base[5]= VV[1]; |
24 |
|
base[6]= VV[2]; |
25 |
|
base[7]= small_fixnum(0); |
26 |
|
vs_top=(vs_base=base+3)+5; |
27 |
|
(void) (*Lnk89)(); |
28 |
|
vs_top=sup; |
29 |
|
V4= vs_base[0];{object V5; |
30 |
|
{object V6; |
31 |
|
{long V7; |
32 |
|
V7= 0; |
33 |
|
if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){ |
34 |
|
goto T15;} |
35 |
|
V7= (long)getc(((V1))->sm.sm_fp); |
36 |
|
if(!((V7)==(-1))){ |
37 |
|
goto T20;} |
38 |
|
if(!((feof(((V1))->sm.sm_fp)))){ |
39 |
|
goto T20;} |
40 |
|
V6= Cnil; |
41 |
|
goto T12; |
42 |
|
goto T20; |
43 |
|
T20:; |
44 |
|
V6= code_char((V7)); |
45 |
|
goto T12; |
46 |
|
goto T15; |
47 |
|
T15:; |
48 |
|
V6= read_char1((V1),Cnil);} |
49 |
|
goto T12; |
50 |
|
T12:; |
51 |
|
if(type_of((V6))==t_character){ |
52 |
|
goto T24;} |
53 |
|
V5= Cnil; |
54 |
|
goto T11; |
55 |
|
goto T24; |
56 |
|
T24:; |
57 |
|
V5= (((long)(34))==((long)(char_code((V6))))?Ct:Cnil);} |
58 |
|
goto T11; |
59 |
|
T11:; |
60 |
|
if(V5==Cnil)goto T10; |
61 |
|
goto T9; |
62 |
|
goto T10; |
63 |
|
T10:;} |
64 |
|
base[3]= VV[4]; |
65 |
|
vs_top=(vs_base=base+3)+1; |
66 |
|
Lerror(); |
67 |
|
vs_top=sup; |
68 |
|
goto T9; |
69 |
|
T9:; |
70 |
|
goto T29; |
71 |
|
T29:; |
72 |
|
{register object V8; |
73 |
|
{register long V9; |
74 |
|
V9= 0; |
75 |
|
if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){ |
76 |
|
goto T34;} |
77 |
|
V9= (long)getc(((V1))->sm.sm_fp); |
78 |
|
if(!((V9)==(-1))){ |
79 |
|
goto T39;} |
80 |
|
if(!((feof(((V1))->sm.sm_fp)))){ |
81 |
|
goto T39;} |
82 |
|
V8= Cnil; |
83 |
|
goto T31; |
84 |
|
goto T39; |
85 |
|
T39:; |
86 |
|
V8= code_char((V9)); |
87 |
|
goto T31; |
88 |
|
goto T34; |
89 |
|
T34:; |
90 |
|
V8= read_char1((V1),Cnil);} |
91 |
|
goto T31; |
92 |
|
T31:; |
93 |
|
if(type_of(V8)==t_character){ |
94 |
|
goto T47;} |
95 |
|
goto T45; |
96 |
|
goto T47; |
97 |
|
T47:; |
98 |
|
if(!(((long)(34))==((long)(char_code(V8))))){ |
99 |
|
goto T45;} |
100 |
|
goto T27; |
101 |
|
goto T45; |
102 |
|
T45:; |
103 |
|
if(type_of(V8)==t_character){ |
104 |
|
goto T51;} |
105 |
|
goto T43; |
106 |
|
goto T51; |
107 |
|
T51:; |
108 |
|
if(!(((long)(92))==((long)(char_code(V8))))){ |
109 |
|
goto T43;} |
110 |
|
{register long V12; |
111 |
|
V12= 0; |
112 |
|
if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){ |
113 |
|
goto T57;} |
114 |
|
V12= (long)getc(((V1))->sm.sm_fp); |
115 |
|
if(!((V12)==(-1))){ |
116 |
|
goto T62;} |
117 |
|
if(!((feof(((V1))->sm.sm_fp)))){ |
118 |
|
goto T62;} |
119 |
|
V8= Cnil; |
120 |
|
goto T54; |
121 |
|
goto T62; |
122 |
|
T62:; |
123 |
|
V8= code_char((V12)); |
124 |
|
goto T54; |
125 |
|
goto T57; |
126 |
|
T57:; |
127 |
|
V8= read_char1((V1),Cnil);} |
128 |
|
goto T54; |
129 |
|
T54:;{object V13; |
130 |
|
{register object x= (V8),V15= VV[6]; |
131 |
|
while(V15!=Cnil) |
132 |
|
if(eql(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){ |
133 |
|
V14= (V15->c.c_car); |
134 |
|
goto T69; |
135 |
|
}else V15=V15->c.c_cdr; |
136 |
|
V14= Cnil;} |
137 |
|
goto T69; |
138 |
|
T69:; |
139 |
|
V13= CMPcdr(V14); |
140 |
|
if(V13==Cnil)goto T67; |
141 |
|
V8= V13; |
142 |
|
goto T66; |
143 |
|
goto T67; |
144 |
|
T67:;} |
145 |
|
goto T66; |
146 |
|
T66:; |
147 |
|
goto T43; |
148 |
|
T43:; |
149 |
|
{register object V17; |
150 |
|
register long V18; |
151 |
|
long V19; |
152 |
|
V17= (V4); |
153 |
|
V18= (long)(((V17))->st.st_fillp); |
154 |
|
V19= (long)(((V17))->st.st_dim); |
155 |
|
if(!((V18)<(V19))){ |
156 |
|
goto T74;} |
157 |
|
(void)((((V17))->st.st_fillp)=((long)(1)+(V18))); |
158 |
|
V20 = CMPmake_fixnum(V18); |
159 |
|
(void)(aset1((V17),fix(V20),V8)); |
160 |
|
goto T30; |
161 |
|
goto T74; |
162 |
|
T74:; |
163 |
|
base[3]= V8; |
164 |
|
base[4]= (V17); |
165 |
|
vs_top=(vs_base=base+3)+2; |
166 |
|
(void) (*Lnk90)(); |
167 |
|
vs_top=sup;}} |
168 |
|
goto T30; |
169 |
|
T30:; |
170 |
|
goto T29; |
171 |
|
goto T27; |
172 |
|
T27:; |
173 |
|
base[3]= (V4); |
174 |
|
vs_top=(vs_base=base+3)+1; |
175 |
|
return;} |
176 |
|
} |
177 |
|
} |
178 |
|
/* function definition for FILE-TO-STRING */ |
179 |
|
|
180 |
|
static void L2() |
181 |
|
{register object *VOL base=vs_base; |
182 |
|
register object *VOL sup=base+VM2; VC2 |
183 |
|
vs_check; |
184 |
|
bds_check; |
185 |
|
{VOL object V21; |
186 |
|
V21=(base[0]); |
187 |
|
vs_base=vs_base+1; |
188 |
|
if(vs_base>=vs_top){vs_top=sup;goto T81;} |
189 |
|
vs_top=sup; |
190 |
|
goto T82; |
191 |
|
goto T81; |
192 |
|
T81:; |
193 |
|
base[1]= small_fixnum(0); |
194 |
|
goto T82; |
195 |
|
T82:; |
196 |
|
bds_bind(VV[7],Ct); |
197 |
|
base[3]= small_fixnum(0); |
198 |
|
base[5]= (V21); |
199 |
|
vs_top=(vs_base=base+5)+1; |
200 |
|
(void) (*Lnk91)(); |
201 |
|
vs_top=sup; |
202 |
|
base[4]= vs_base[0]; |
203 |
|
frs_push(FRS_PROTECT,Cnil); |
204 |
|
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active; |
205 |
|
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
206 |
|
else{ |
207 |
|
base[6]= base[4]; |
208 |
|
vs_top=(vs_base=base+6)+1; |
209 |
|
Lfile_length(); |
210 |
|
vs_top=sup; |
211 |
|
base[3]= vs_base[0];{VOL object V22; |
212 |
|
if(number_compare(small_fixnum(0),base[1])<=0){ |
213 |
|
goto T93;} |
214 |
|
V22= Cnil; |
215 |
|
goto T92; |
216 |
|
goto T93; |
217 |
|
T93:; |
218 |
|
V22= (number_compare(base[1],base[3])<=0?Ct:Cnil); |
219 |
|
goto T92; |
220 |
|
T92:; |
221 |
|
if(V22==Cnil)goto T91; |
222 |
|
goto T90; |
223 |
|
goto T91; |
224 |
|
T91:;} |
225 |
|
base[6]= VV[8]; |
226 |
|
base[7]= base[1]; |
227 |
|
vs_top=(vs_base=base+6)+2; |
228 |
|
Lerror(); |
229 |
|
vs_top=sup; |
230 |
|
goto T90; |
231 |
|
T90:; |
232 |
|
{object V23; |
233 |
|
base[6]= number_minus(base[3],base[1]); |
234 |
|
base[7]= VV[0]; |
235 |
|
base[8]= VV[1]; |
236 |
|
vs_top=(vs_base=base+6)+3; |
237 |
|
(void) (*Lnk89)(); |
238 |
|
vs_top=sup; |
239 |
|
V23= vs_base[0]; |
240 |
|
if(!(number_compare(base[1],small_fixnum(0))>0)){ |
241 |
|
goto T101;} |
242 |
|
base[6]= base[4]; |
243 |
|
base[7]= base[1]; |
244 |
|
vs_top=(vs_base=base+6)+2; |
245 |
|
Lfile_position(); |
246 |
|
vs_top=sup; |
247 |
|
goto T101; |
248 |
|
T101:; |
249 |
|
base[6]= (V23); |
250 |
|
base[7]= small_fixnum(0); |
251 |
|
base[8]= CMPmake_fixnum((long)length((V23))); |
252 |
|
base[9]= base[4]; |
253 |
|
vs_top=(vs_base=base+6)+4; |
254 |
|
(void) (*Lnk92)(); |
255 |
|
vs_top=sup; |
256 |
|
base[6]= (V23); |
257 |
|
vs_top=(vs_base=base+6)+1;} |
258 |
|
active=FALSE;} |
259 |
|
base[5]=Cnil; |
260 |
|
while(vs_base<vs_top) |
261 |
|
{base[5]=MMcons(vs_top[-1],base[5]);vs_top--;} |
262 |
|
vs_top=sup; |
263 |
|
nlj_active=FALSE;frs_pop(); |
264 |
|
if((base[4])==Cnil){ |
265 |
|
goto T111;} |
266 |
|
base[6]= base[4]; |
267 |
|
vs_top=(vs_base=base+6)+1; |
268 |
|
Lclose(); |
269 |
|
vs_top=sup; |
270 |
|
goto T111; |
271 |
|
T111:; |
272 |
|
vs_base=vs_top=base+6; |
273 |
|
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
274 |
|
if(active)unwind(fr,tag);else{ |
275 |
|
bds_unwind1; |
276 |
|
return;}} |
277 |
|
} |
278 |
|
} |
279 |
|
/* function definition for ATOI */ |
280 |
|
|
281 |
|
static void L3() |
282 |
|
{register object *base=vs_base; |
283 |
|
register object *sup=base+VM3; VC3 |
284 |
|
vs_check; |
285 |
|
{register object V24; |
286 |
|
register long V25; |
287 |
|
V24=(base[0]); |
288 |
|
V25=fix(base[1]); |
289 |
|
vs_top=sup; |
290 |
|
goto TTL; |
291 |
|
TTL:; |
292 |
|
{register long V26; |
293 |
|
register long V27; |
294 |
|
register long V28; |
295 |
|
V26= 0; |
296 |
|
V27= 0; |
297 |
|
V28= (long)((V24))->v.v_fillp; |
298 |
|
goto T120; |
299 |
|
T120:; |
300 |
|
if(!((V25)<(V28))){ |
301 |
|
goto T123;} |
302 |
|
goto T122; |
303 |
|
goto T123; |
304 |
|
T123:; |
305 |
|
goto T121; |
306 |
|
goto T122; |
307 |
|
T122:; |
308 |
|
V27= (long)(((V24))->ust.ust_self[V25]); |
309 |
|
V25= (long)(V25)+(1); |
310 |
|
V27= (long)(V27)-(48); |
311 |
|
if(!((V27)>=(0))){ |
312 |
|
goto T133;} |
313 |
|
if(!((V27)<(10))){ |
314 |
|
goto T133;} |
315 |
|
V29 = CMPmake_fixnum(V27); |
316 |
|
V30 = CMPmake_fixnum(V26); |
317 |
|
V31= number_times(small_fixnum(10),V30); |
318 |
|
V26= fix(number_plus(V29,/* INLINE-ARGS */V31)); |
319 |
|
goto T131; |
320 |
|
goto T133; |
321 |
|
T133:; |
322 |
|
goto T118; |
323 |
|
goto T131; |
324 |
|
T131:; |
325 |
|
goto T120; |
326 |
|
goto T121; |
327 |
|
T121:; |
328 |
|
goto T118; |
329 |
|
goto T118; |
330 |
|
goto T118; |
331 |
|
T118:; |
332 |
|
base[2]= CMPmake_fixnum(V26); |
333 |
|
vs_top=(vs_base=base+2)+1; |
334 |
|
return;} |
335 |
|
} |
336 |
|
} |
337 |
|
/* function definition for INFO-GET-TAGS */ |
338 |
|
|
339 |
|
static void L4() |
340 |
|
{register object *base=vs_base; |
341 |
|
register object *sup=base+VM4; VC4 |
342 |
|
vs_check; |
343 |
|
bds_check; |
344 |
|
{object V32; |
345 |
|
V32=(base[0]); |
346 |
|
vs_top=sup; |
347 |
|
goto TTL; |
348 |
|
TTL:; |
349 |
|
{register long V33; |
350 |
|
object V34; |
351 |
|
register object V35; |
352 |
|
V33= 0; |
353 |
|
bds_bind(VV[9],Cnil); |
354 |
|
V34= Cnil; |
355 |
|
V35= Cnil; |
356 |
|
bds_bind(VV[10],Ct); |
357 |
|
{register object V36; |
358 |
|
register long V37; |
359 |
|
base[3]= (V32); |
360 |
|
vs_top=(vs_base=base+3)+1; |
361 |
|
(void) (*Lnk93)(); |
362 |
|
vs_top=sup; |
363 |
|
V36= vs_base[0]; |
364 |
|
V37= 0; |
365 |
|
{long V38= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[11],(V36),small_fixnum(0)))); |
366 |
|
if(!((/* INLINE-ARGS */V38)>=(0))){ |
367 |
|
goto T145;}} |
368 |
|
V37= (long)(*(LnkLI95))(0); |
369 |
|
V39 = CMPmake_fixnum(V37); |
370 |
|
V33= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[12],(V36),V39))); |
371 |
|
goto T153; |
372 |
|
T153:; |
373 |
|
V40 = CMPmake_fixnum(V37); |
374 |
|
V41 = CMPmake_fixnum(V33); |
375 |
|
{long V42= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[13],(V36),V40,V41))); |
376 |
|
if(!((/* INLINE-ARGS */V42)>=(0))){ |
377 |
|
goto T156;}} |
378 |
|
goto T155; |
379 |
|
goto T156; |
380 |
|
T156:; |
381 |
|
goto T154; |
382 |
|
goto T155; |
383 |
|
T155:; |
384 |
|
V37= (long)(*(LnkLI95))(0); |
385 |
|
base[3]= (V36); |
386 |
|
base[4]= CMPmake_fixnum((long)(*(LnkLI96))(2)); |
387 |
|
vs_top=(vs_base=base+3)+2; |
388 |
|
(void) (*Lnk97)(); |
389 |
|
vs_top=sup; |
390 |
|
V43= vs_base[0]; |
391 |
|
base[3]= (V36); |
392 |
|
base[4]= small_fixnum(1); |
393 |
|
vs_top=(vs_base=base+3)+2; |
394 |
|
(void) (*Lnk98)(); |
395 |
|
vs_top=sup; |
396 |
|
V44= vs_base[0]; |
397 |
|
V45= make_cons(V43,V44); |
398 |
|
V35= make_cons(/* INLINE-ARGS */V45,(V35)); |
399 |
|
goto T153; |
400 |
|
goto T154; |
401 |
|
T154:; |
402 |
|
goto T145; |
403 |
|
goto T145; |
404 |
|
goto T145; |
405 |
|
T145:; |
406 |
|
V46 = CMPmake_fixnum(V37); |
407 |
|
{long V47= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[14],(V36),V46))); |
408 |
|
if(!((/* INLINE-ARGS */V47)>=(0))){ |
409 |
|
goto T169;}} |
410 |
|
V37= (long)(*(LnkLI95))(0); |
411 |
|
V48 = CMPmake_fixnum(V37); |
412 |
|
{long V49= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[15],(V36),V48))); |
413 |
|
if(!((/* INLINE-ARGS */V49)>=(0))){ |
414 |
|
goto T169;}} |
415 |
|
base[3]= (V36); |
416 |
|
base[4]= CMPmake_fixnum(V37); |
417 |
|
base[5]= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
418 |
|
vs_top=(vs_base=base+3)+3; |
419 |
|
Lsubseq(); |
420 |
|
vs_top=sup; |
421 |
|
V34= vs_base[0]; |
422 |
|
goto T169; |
423 |
|
T169:; |
424 |
|
if(((V35))==Cnil){ |
425 |
|
goto T180;} |
426 |
|
if((V34)!=Cnil){ |
427 |
|
goto T180;} |
428 |
|
base[3]= VV[16]; |
429 |
|
vs_top=(vs_base=base+3)+1; |
430 |
|
(void) (*Lnk99)(); |
431 |
|
vs_top=sup; |
432 |
|
goto T180; |
433 |
|
T180:; |
434 |
|
V50= nreverse((V35)); |
435 |
|
base[3]= make_cons((V34),/* INLINE-ARGS */V50); |
436 |
|
vs_top=(vs_base=base+3)+1; |
437 |
|
bds_unwind1; |
438 |
|
bds_unwind1; |
439 |
|
return;}} |
440 |
|
} |
441 |
|
} |
442 |
|
/* function definition for RE-QUOTE-STRING */ |
443 |
|
|
444 |
|
static void L5() |
445 |
|
{register object *base=vs_base; |
446 |
|
register object *sup=base+VM5; VC5 |
447 |
|
vs_check; |
448 |
|
{object V51; |
449 |
|
V51=(base[0]); |
450 |
|
vs_top=sup; |
451 |
|
goto TTL; |
452 |
|
TTL:; |
453 |
|
{register long V52; |
454 |
|
long V53; |
455 |
|
object V54; |
456 |
|
long V55; |
457 |
|
V52= 0; |
458 |
|
V53= (long)((V51))->v.v_fillp; |
459 |
|
V54= Cnil; |
460 |
|
V55= 0; |
461 |
|
{register object V56; |
462 |
|
V56= Cnil; |
463 |
|
goto T190; |
464 |
|
T190:; |
465 |
|
goto T193; |
466 |
|
T193:; |
467 |
|
if(!((V52)<(V53))){ |
468 |
|
goto T196;} |
469 |
|
goto T195; |
470 |
|
goto T196; |
471 |
|
T196:; |
472 |
|
goto T194; |
473 |
|
goto T195; |
474 |
|
T195:; |
475 |
|
V54= code_char(((V51))->ust.ust_self[V52]); |
476 |
|
base[1]= (V54); |
477 |
|
base[2]= VV[17]; |
478 |
|
vs_top=(vs_base=base+1)+2; |
479 |
|
(void) (*Lnk100)(); |
480 |
|
vs_top=sup; |
481 |
|
if((vs_base[0])==Cnil){ |
482 |
|
goto T200;} |
483 |
|
if(((V56))==Cnil){ |
484 |
|
goto T206;} |
485 |
|
{unsigned char V57; |
486 |
|
register object V58; |
487 |
|
register long V59; |
488 |
|
long V60; |
489 |
|
V57= 92; |
490 |
|
V58= (V56); |
491 |
|
V59= (long)(((V58))->st.st_fillp); |
492 |
|
V60= (long)(((V58))->st.st_dim); |
493 |
|
if(!((V59)<(V60))){ |
494 |
|
goto T213;} |
495 |
|
(void)((((V58))->st.st_fillp)=((long)(1)+(V59))); |
496 |
|
V61 = CMPmake_fixnum(V59); |
497 |
|
(void)(aset1((V58),fix(V61),code_char(V57))); |
498 |
|
goto T200; |
499 |
|
goto T213; |
500 |
|
T213:; |
501 |
|
base[1]= code_char(V57); |
502 |
|
base[2]= (V58); |
503 |
|
vs_top=(vs_base=base+1)+2; |
504 |
|
(void) (*Lnk90)(); |
505 |
|
vs_top=sup; |
506 |
|
goto T200;} |
507 |
|
goto T206; |
508 |
|
T206:; |
509 |
|
V55= (long)(V55)+(1); |
510 |
|
goto T200; |
511 |
|
T200:; |
512 |
|
if(((V56))==Cnil){ |
513 |
|
goto T220;} |
514 |
|
{register object V63; |
515 |
|
register long V64; |
516 |
|
long V65; |
517 |
|
V63= (V56); |
518 |
|
V64= (long)(((V63))->st.st_fillp); |
519 |
|
V65= (long)(((V63))->st.st_dim); |
520 |
|
if(!((V64)<(V65))){ |
521 |
|
goto T227;} |
522 |
|
(void)((((V63))->st.st_fillp)=((long)(1)+(V64))); |
523 |
|
V66 = CMPmake_fixnum(V64); |
524 |
|
(void)(aset1((V63),fix(V66),V54)); |
525 |
|
goto T220; |
526 |
|
goto T227; |
527 |
|
T227:; |
528 |
|
base[1]= V54; |
529 |
|
base[2]= (V63); |
530 |
|
vs_top=(vs_base=base+1)+2; |
531 |
|
(void) (*Lnk90)(); |
532 |
|
vs_top=sup;} |
533 |
|
goto T220; |
534 |
|
T220:; |
535 |
|
V52= (long)(V52)+(1); |
536 |
|
goto T193; |
537 |
|
goto T194; |
538 |
|
T194:; |
539 |
|
goto T191; |
540 |
|
goto T191; |
541 |
|
goto T191; |
542 |
|
T191:; |
543 |
|
{object V67; |
544 |
|
V67= (V56); |
545 |
|
if(((V67))==Cnil){ |
546 |
|
goto T238;} |
547 |
|
goto T236; |
548 |
|
goto T238; |
549 |
|
T238:; |
550 |
|
if(!((V55)>(0))){ |
551 |
|
goto T241;} |
552 |
|
base[1]= CMPmake_fixnum((long)((long)((V51))->v.v_fillp)+(V55)); |
553 |
|
base[2]= VV[0]; |
554 |
|
base[3]= VV[1]; |
555 |
|
base[4]= VV[2]; |
556 |
|
base[5]= small_fixnum(0); |
557 |
|
vs_top=(vs_base=base+1)+5; |
558 |
|
(void) (*Lnk89)(); |
559 |
|
vs_top=sup; |
560 |
|
V56= vs_base[0]; |
561 |
|
V52= 0; |
562 |
|
goto T190; |
563 |
|
goto T241; |
564 |
|
T241:; |
565 |
|
V56= (V51);} |
566 |
|
goto T236; |
567 |
|
T236:; |
568 |
|
goto T188; |
569 |
|
goto T188; |
570 |
|
T188:; |
571 |
|
base[1]= (V56); |
572 |
|
vs_top=(vs_base=base+1)+1; |
573 |
|
return;}} |
574 |
|
} |
575 |
|
} |
576 |
|
/* function definition for GET-MATCH */ |
577 |
|
|
578 |
|
static void L6() |
579 |
|
{register object *base=vs_base; |
580 |
|
register object *sup=base+VM6; VC6 |
581 |
|
vs_check; |
582 |
|
{object V68; |
583 |
|
object V69; |
584 |
|
V68=(base[0]); |
585 |
|
V69=(base[1]); |
586 |
|
vs_top=sup; |
587 |
|
goto TTL; |
588 |
|
TTL:; |
589 |
|
base[2]= (V68); |
590 |
|
base[3]= CMPmake_fixnum((long)(*(LnkLI96))(fix((V69)))); |
591 |
|
base[4]= CMPmake_fixnum((long)(*(LnkLI95))(fix((V69)))); |
592 |
|
vs_top=(vs_base=base+2)+3; |
593 |
|
Lsubseq(); |
594 |
|
return; |
595 |
|
} |
596 |
|
} |
597 |
|
/* function definition for GET-NODES */ |
598 |
|
|
599 |
|
static void L7() |
600 |
|
{register object *base=vs_base; |
601 |
|
register object *sup=base+VM7; VC7 |
602 |
|
vs_check; |
603 |
|
bds_check; |
604 |
|
{register object V70; |
605 |
|
register object V71; |
606 |
|
V70=(base[0]); |
607 |
|
V71=(base[1]); |
608 |
|
vs_top=sup; |
609 |
|
goto TTL; |
610 |
|
TTL:; |
611 |
|
{register long V72; |
612 |
|
register object V73; |
613 |
|
V72= 0; |
614 |
|
V73= Cnil; |
615 |
|
bds_bind(VV[10],Ct); |
616 |
|
bds_bind(VV[9],Cnil); |
617 |
|
if(((V71))==Cnil){ |
618 |
|
goto T259;} |
619 |
|
base[4]= VV[18]; |
620 |
|
base[6]= (V70); |
621 |
|
vs_top=(vs_base=base+6)+1; |
622 |
|
(void) (*Lnk101)(); |
623 |
|
vs_top=sup; |
624 |
|
base[5]= vs_base[0]; |
625 |
|
base[6]= VV[19]; |
626 |
|
vs_top=(vs_base=base+4)+3; |
627 |
|
(void) (*Lnk102)(); |
628 |
|
vs_top=sup; |
629 |
|
V70= vs_base[0]; |
630 |
|
goto T269; |
631 |
|
T269:; |
632 |
|
V74 = CMPmake_fixnum(V72); |
633 |
|
{long V75= fix((VFUN_NARGS=3,(*(LnkLI94))((V70),(V71),V74))); |
634 |
|
if(!((/* INLINE-ARGS */V75)>=(0))){ |
635 |
|
goto T272;}} |
636 |
|
goto T271; |
637 |
|
goto T272; |
638 |
|
T272:; |
639 |
|
goto T270; |
640 |
|
goto T271; |
641 |
|
T271:; |
642 |
|
V72= (long)(*(LnkLI95))(0); |
643 |
|
base[4]= (V71); |
644 |
|
base[5]= small_fixnum(1); |
645 |
|
vs_top=(vs_base=base+4)+2; |
646 |
|
(void) (*Lnk98)(); |
647 |
|
vs_top=sup; |
648 |
|
V76= vs_base[0]; |
649 |
|
V73= make_cons(V76,(V73)); |
650 |
|
goto T269; |
651 |
|
goto T270; |
652 |
|
T270:; |
653 |
|
goto T267; |
654 |
|
goto T267; |
655 |
|
goto T267; |
656 |
|
T267:; |
657 |
|
base[4]= nreverse((V73)); |
658 |
|
vs_top=(vs_base=base+4)+1; |
659 |
|
bds_unwind1; |
660 |
|
bds_unwind1; |
661 |
|
return; |
662 |
|
goto T259; |
663 |
|
T259:; |
664 |
|
base[4]= Cnil; |
665 |
|
vs_top=(vs_base=base+4)+1; |
666 |
|
bds_unwind1; |
667 |
|
bds_unwind1; |
668 |
|
return;} |
669 |
|
} |
670 |
|
} |
671 |
|
/* function definition for GET-INDEX-NODE */ |
672 |
|
|
673 |
|
static void L8() |
674 |
|
{register object *base=vs_base; |
675 |
|
register object *sup=base+VM8; VC8 |
676 |
|
vs_check; |
677 |
|
vs_top=sup; |
678 |
|
goto TTL; |
679 |
|
TTL:;{object V77; |
680 |
|
V77= CMPcaddr((VV[20]->s.s_dbind)); |
681 |
|
if(V77==Cnil)goto T282; |
682 |
|
base[0]= V77; |
683 |
|
vs_top=(vs_base=base+0)+1; |
684 |
|
return; |
685 |
|
goto T282; |
686 |
|
T282:;} |
687 |
|
{object V78; |
688 |
|
object V79; |
689 |
|
object V80; |
690 |
|
V78= Cnil; |
691 |
|
V79= CMPcar(CMPcadr((VV[20]->s.s_dbind))); |
692 |
|
if((V79)==Cnil){ |
693 |
|
V80= Cnil; |
694 |
|
goto T286;} |
695 |
|
base[2]= VV[21]; |
696 |
|
base[3]= (V79); |
697 |
|
vs_top=(vs_base=base+2)+2; |
698 |
|
(void) (*Lnk103)(); |
699 |
|
vs_top=sup; |
700 |
|
V81= vs_base[0]; |
701 |
|
V80= CMPcar(V81); |
702 |
|
goto T286; |
703 |
|
T286:; |
704 |
|
if(((V80))==Cnil){ |
705 |
|
goto T291;} |
706 |
|
base[2]= (V80); |
707 |
|
base[3]= Cnil; |
708 |
|
base[4]= Cnil; |
709 |
|
vs_top=(vs_base=base+2)+3; |
710 |
|
(void) (*Lnk104)(); |
711 |
|
vs_top=sup; |
712 |
|
V78= vs_base[0]; |
713 |
|
{object V82; |
714 |
|
V82= (VV[20]->s.s_dbind); |
715 |
|
(CMPcddr((V82)))->c.c_car = V78; |
716 |
|
(void)(CMPcddr((V82))); |
717 |
|
base[2]= V78; |
718 |
|
vs_top=(vs_base=base+2)+1; |
719 |
|
return;} |
720 |
|
goto T291; |
721 |
|
T291:; |
722 |
|
base[2]= Cnil; |
723 |
|
vs_top=(vs_base=base+2)+1; |
724 |
|
return;} |
725 |
|
} |
726 |
|
/* function definition for NODES-FROM-INDEX */ |
727 |
|
|
728 |
|
static void L9() |
729 |
|
{register object *base=vs_base; |
730 |
|
register object *sup=base+VM9; VC9 |
731 |
|
vs_check; |
732 |
|
bds_check; |
733 |
|
{register object V84; |
734 |
|
V84=(base[0]); |
735 |
|
vs_top=sup; |
736 |
|
goto TTL; |
737 |
|
TTL:; |
738 |
|
{register object V85; |
739 |
|
register object V86; |
740 |
|
V85= small_fixnum(0); |
741 |
|
V86= Cnil; |
742 |
|
bds_bind(VV[10],Ct); |
743 |
|
bds_bind(VV[9],Cnil); |
744 |
|
{register object V87; |
745 |
|
vs_base=vs_top; |
746 |
|
(void) (*Lnk105)(); |
747 |
|
vs_top=sup; |
748 |
|
V87= vs_base[0]; |
749 |
|
if(((V87))==Cnil){ |
750 |
|
goto T304;} |
751 |
|
base[3]= VV[22]; |
752 |
|
base[5]= (V84); |
753 |
|
vs_top=(vs_base=base+5)+1; |
754 |
|
(void) (*Lnk101)(); |
755 |
|
vs_top=sup; |
756 |
|
base[4]= vs_base[0]; |
757 |
|
base[5]= VV[23]; |
758 |
|
vs_top=(vs_base=base+3)+3; |
759 |
|
(void) (*Lnk102)(); |
760 |
|
vs_top=sup; |
761 |
|
V84= vs_base[0]; |
762 |
|
goto T314; |
763 |
|
T314:; |
764 |
|
{long V88= fix((VFUN_NARGS=3,(*(LnkLI94))((V84),(V87),(V85)))); |
765 |
|
if(!((/* INLINE-ARGS */V88)>=(0))){ |
766 |
|
goto T317;}} |
767 |
|
goto T316; |
768 |
|
goto T317; |
769 |
|
T317:; |
770 |
|
goto T315; |
771 |
|
goto T316; |
772 |
|
T316:; |
773 |
|
V85= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
774 |
|
base[3]= (V87); |
775 |
|
base[4]= small_fixnum(1); |
776 |
|
vs_top=(vs_base=base+3)+2; |
777 |
|
(void) (*Lnk98)(); |
778 |
|
vs_top=sup; |
779 |
|
V89= vs_base[0]; |
780 |
|
base[3]= (V87); |
781 |
|
base[4]= small_fixnum(2); |
782 |
|
vs_top=(vs_base=base+3)+2; |
783 |
|
(void) (*Lnk98)(); |
784 |
|
vs_top=sup; |
785 |
|
V90= vs_base[0]; |
786 |
|
V91= make_cons(V89,V90); |
787 |
|
V86= make_cons(/* INLINE-ARGS */V91,(V86)); |
788 |
|
goto T314; |
789 |
|
goto T315; |
790 |
|
T315:; |
791 |
|
goto T312; |
792 |
|
goto T312; |
793 |
|
goto T312; |
794 |
|
T312:; |
795 |
|
base[3]= nreverse((V86)); |
796 |
|
vs_top=(vs_base=base+3)+1; |
797 |
|
bds_unwind1; |
798 |
|
bds_unwind1; |
799 |
|
return; |
800 |
|
goto T304; |
801 |
|
T304:; |
802 |
|
base[3]= Cnil; |
803 |
|
vs_top=(vs_base=base+3)+1; |
804 |
|
bds_unwind1; |
805 |
|
bds_unwind1; |
806 |
|
return;}} |
807 |
|
} |
808 |
|
} |
809 |
|
/* function definition for GET-NODE-INDEX */ |
810 |
|
|
811 |
|
static void L10() |
812 |
|
{register object *base=vs_base; |
813 |
|
register object *sup=base+VM10; VC10 |
814 |
|
vs_check; |
815 |
|
bds_check; |
816 |
|
{register object V92; |
817 |
|
object V93; |
818 |
|
V92=(base[0]); |
819 |
|
V93=(base[1]); |
820 |
|
vs_top=sup; |
821 |
|
goto TTL; |
822 |
|
TTL:; |
823 |
|
{object V94; |
824 |
|
V94= (V92); |
825 |
|
bds_bind(VV[9],Cnil); |
826 |
|
if(((V93))!=Cnil){ |
827 |
|
goto T332;} |
828 |
|
base[3]= small_fixnum(0); |
829 |
|
vs_top=(vs_base=base+3)+1; |
830 |
|
bds_unwind1; |
831 |
|
return; |
832 |
|
goto T332; |
833 |
|
T332:; |
834 |
|
base[3]= VV[24]; |
835 |
|
base[5]= (V92); |
836 |
|
vs_top=(vs_base=base+5)+1; |
837 |
|
(void) (*Lnk101)(); |
838 |
|
vs_top=sup; |
839 |
|
base[4]= vs_base[0]; |
840 |
|
base[5]= VV[25]; |
841 |
|
vs_top=(vs_base=base+3)+3; |
842 |
|
(void) (*Lnk102)(); |
843 |
|
vs_top=sup; |
844 |
|
V92= vs_base[0]; |
845 |
|
{long V95= fix((VFUN_NARGS=2,(*(LnkLI94))((V92),(V93)))); |
846 |
|
if(!((/* INLINE-ARGS */V95)>=(0))){ |
847 |
|
goto T341;}} |
848 |
|
base[3]= (V93); |
849 |
|
base[4]= CMPmake_fixnum((long)(*(LnkLI96))(1)); |
850 |
|
vs_top=(vs_base=base+3)+2; |
851 |
|
(void) (*Lnk97)(); |
852 |
|
bds_unwind1; |
853 |
|
return; |
854 |
|
goto T341; |
855 |
|
T341:; |
856 |
|
base[3]= VV[26]; |
857 |
|
base[4]= (V94); |
858 |
|
vs_top=(vs_base=base+3)+2; |
859 |
|
(void) (*Lnk99)(); |
860 |
|
vs_top=sup; |
861 |
|
base[3]= small_fixnum(0); |
862 |
|
vs_top=(vs_base=base+3)+1; |
863 |
|
bds_unwind1; |
864 |
|
return;} |
865 |
|
} |
866 |
|
} |
867 |
|
/* function definition for ALL-MATCHES */ |
868 |
|
|
869 |
|
static void L11() |
870 |
|
{register object *base=vs_base; |
871 |
|
register object *sup=base+VM11; VC11 |
872 |
|
vs_check; |
873 |
|
bds_check; |
874 |
|
{object V96; |
875 |
|
object V97; |
876 |
|
V96=(base[0]); |
877 |
|
V97=(base[1]); |
878 |
|
vs_top=sup; |
879 |
|
goto TTL; |
880 |
|
TTL:; |
881 |
|
{register long V98; |
882 |
|
V98= 0; |
883 |
|
bds_bind(VV[9],Cnil); |
884 |
|
{register object V99; |
885 |
|
register object V100; |
886 |
|
register object V101; |
887 |
|
V99= Cnil; |
888 |
|
V100= Cnil; |
889 |
|
V101= Cnil; |
890 |
|
goto T350; |
891 |
|
T350:; |
892 |
|
V102 = CMPmake_fixnum(V98); |
893 |
|
V98= fix((VFUN_NARGS=3,(*(LnkLI94))((V96),(V97),V102))); |
894 |
|
if(!((V98)>=(0))){ |
895 |
|
goto T353;} |
896 |
|
goto T352; |
897 |
|
goto T353; |
898 |
|
T353:; |
899 |
|
goto T351; |
900 |
|
goto T352; |
901 |
|
T352:;{object V103; |
902 |
|
V103= CMPmake_fixnum(V98); |
903 |
|
V98= (long)(*(LnkLI95))(0); |
904 |
|
V104 = CMPmake_fixnum(V98); |
905 |
|
V101= list(2,V103,V104);} |
906 |
|
if(((V100))==Cnil){ |
907 |
|
goto T361;} |
908 |
|
{register object V105; |
909 |
|
register object V106; |
910 |
|
V105= (V100); |
911 |
|
V100= make_cons((V101),Cnil); |
912 |
|
V106= (V100); |
913 |
|
((V105))->c.c_cdr = (V106); |
914 |
|
goto T359;} |
915 |
|
goto T361; |
916 |
|
T361:; |
917 |
|
V100= make_cons((V101),Cnil); |
918 |
|
V99= (V100); |
919 |
|
goto T359; |
920 |
|
T359:; |
921 |
|
goto T350; |
922 |
|
goto T351; |
923 |
|
T351:; |
924 |
|
base[3]= (V99); |
925 |
|
vs_top=(vs_base=base+3)+1; |
926 |
|
bds_unwind1; |
927 |
|
return; |
928 |
|
base[3]= Cnil; |
929 |
|
vs_top=(vs_base=base+3)+1; |
930 |
|
bds_unwind1; |
931 |
|
return; |
932 |
|
base[3]= Cnil; |
933 |
|
vs_top=(vs_base=base+3)+1; |
934 |
|
bds_unwind1; |
935 |
|
return;}} |
936 |
|
} |
937 |
|
} |
938 |
|
/* macro definition for NODE */ |
939 |
|
|
940 |
|
static void L12() |
941 |
|
{register object *base=vs_base; |
942 |
|
register object *sup=base+VM12; VC12 |
943 |
|
vs_check; |
944 |
|
vs_top=sup; |
945 |
|
{object V107=base[0]->c.c_cdr; |
946 |
|
base[2]= (V107->c.c_car); |
947 |
|
V107=V107->c.c_cdr; |
948 |
|
base[3]= (V107->c.c_car);} |
949 |
|
base[4]= base[2]; |
950 |
|
base[5]= VV[28]; |
951 |
|
vs_top=(vs_base=base+4)+2; |
952 |
|
(void) (*Lnk100)(); |
953 |
|
vs_top=sup; |
954 |
|
V108= vs_base[0]; |
955 |
|
base[4]= list(3,VV[27],V108,base[3]); |
956 |
|
vs_top=(vs_base=base+4)+1; |
957 |
|
return; |
958 |
|
} |
959 |
|
/* function definition for NODE-OFFSET */ |
960 |
|
|
961 |
|
static void L13() |
962 |
|
{register object *base=vs_base; |
963 |
|
register object *sup=base+VM13; VC13 |
964 |
|
vs_check; |
965 |
|
{object V109; |
966 |
|
V109=(base[0]); |
967 |
|
vs_top=sup; |
968 |
|
goto TTL; |
969 |
|
TTL:; |
970 |
|
base[1]= number_plus(CMPcar(CMPcadr(CMPcddddr((V109)))),CMPcadr((V109))); |
971 |
|
vs_top=(vs_base=base+1)+1; |
972 |
|
return; |
973 |
|
} |
974 |
|
} |
975 |
|
/* function definition for SETUP-INFO */ |
976 |
|
|
977 |
|
static void L14() |
978 |
|
{register object *base=vs_base; |
979 |
|
register object *sup=base+VM14; VC14 |
980 |
|
vs_check; |
981 |
|
bds_check; |
982 |
|
{register object V110; |
983 |
|
V110=(base[0]); |
984 |
|
vs_top=sup; |
985 |
|
goto TTL; |
986 |
|
TTL:; |
987 |
|
{object V111; |
988 |
|
register object V112; |
989 |
|
V111= Cnil; |
990 |
|
V112= Cnil; |
991 |
|
if(!(((VV[29]->s.s_dbind))==((VV[30]->s.s_dbind)))){ |
992 |
|
goto T377;} |
993 |
|
goto T376; |
994 |
|
goto T377; |
995 |
|
T377:; |
996 |
|
(VV[29]->s.s_dbind)= (VV[30]->s.s_dbind); |
997 |
|
{object V113; |
998 |
|
base[2]= (VV[30]->s.s_dbind); |
999 |
|
base[3]= VV[31]; |
1000 |
|
vs_top=(vs_base=base+2)+2; |
1001 |
|
(void) (*Lnk102)(); |
1002 |
|
vs_top=sup; |
1003 |
|
V113= vs_base[0]; |
1004 |
|
(VV[32]->s.s_dbind)= make_cons((V113),(VV[32]->s.s_dbind));} |
1005 |
|
base[1]= (VV[32]->s.s_dbind); |
1006 |
|
vs_top=(vs_base=base+1)+1; |
1007 |
|
(void) (*Lnk106)(); |
1008 |
|
vs_top=sup; |
1009 |
|
(VV[32]->s.s_dbind)= vs_base[0]; |
1010 |
|
goto T376; |
1011 |
|
T376:; |
1012 |
|
if(!(equal((V110),VV[33]))){ |
1013 |
|
goto T388;} |
1014 |
|
V110= VV[34]; |
1015 |
|
goto T388; |
1016 |
|
T388:; |
1017 |
|
base[1]= (V110); |
1018 |
|
base[2]= (VV[32]->s.s_dbind); |
1019 |
|
base[3]= VV[35]; |
1020 |
|
base[4]= Cnil; |
1021 |
|
vs_top=(vs_base=base+1)+4; |
1022 |
|
(void) (*Lnk107)(); |
1023 |
|
vs_top=sup; |
1024 |
|
V112= vs_base[0]; |
1025 |
|
{object V114; |
1026 |
|
base[1]= VV[36]; |
1027 |
|
base[2]= (V112); |
1028 |
|
vs_top=(vs_base=base+1)+2; |
1029 |
|
(void) (*Lnk108)(); |
1030 |
|
vs_top=sup; |
1031 |
|
V114= vs_base[0]; |
1032 |
|
if(((V114))==Cnil){ |
1033 |
|
goto T398;} |
1034 |
|
base[1]= (V112); |
1035 |
|
base[2]= small_fixnum(0); |
1036 |
|
base[3]= (V114); |
1037 |
|
vs_top=(vs_base=base+1)+3; |
1038 |
|
Lsubseq(); |
1039 |
|
vs_top=sup; |
1040 |
|
V112= vs_base[0];} |
1041 |
|
goto T398; |
1042 |
|
T398:; |
1043 |
|
if(((V112))!=Cnil){ |
1044 |
|
goto T408;} |
1045 |
|
if(equal((V110),VV[37])){ |
1046 |
|
goto T408;} |
1047 |
|
{object V115; |
1048 |
|
base[3]= VV[38]; |
1049 |
|
base[4]= Cnil; |
1050 |
|
base[5]= Cnil; |
1051 |
|
vs_top=(vs_base=base+3)+3; |
1052 |
|
(void) (*Lnk104)(); |
1053 |
|
vs_top=sup; |
1054 |
|
V115= vs_base[0]; |
1055 |
|
bds_bind(VV[10],Cnil); |
1056 |
|
base[3]= VV[39]; |
1057 |
|
base[5]= (V110); |
1058 |
|
vs_top=(vs_base=base+5)+1; |
1059 |
|
(void) (*Lnk101)(); |
1060 |
|
vs_top=sup; |
1061 |
|
base[4]= vs_base[0]; |
1062 |
|
base[5]= VV[40]; |
1063 |
|
vs_top=(vs_base=base+3)+3; |
1064 |
|
(void) (*Lnk102)(); |
1065 |
|
vs_top=sup; |
1066 |
|
V116= vs_base[0]; |
1067 |
|
{long V117= fix((VFUN_NARGS=2,(*(LnkLI94))(V116,(V115)))); |
1068 |
|
if(!((/* INLINE-ARGS */V117)>=(0))){ |
1069 |
|
bds_unwind1; |
1070 |
|
goto T408;}} |
1071 |
|
base[3]= (V115); |
1072 |
|
base[4]= small_fixnum(1); |
1073 |
|
vs_top=(vs_base=base+3)+2; |
1074 |
|
(void) (*Lnk98)(); |
1075 |
|
vs_top=sup; |
1076 |
|
V112= vs_base[0]; |
1077 |
|
bds_unwind1;} |
1078 |
|
goto T408; |
1079 |
|
T408:; |
1080 |
|
if(((V112))==Cnil){ |
1081 |
|
goto T429;} |
1082 |
|
{object V118; |
1083 |
|
base[3]= (V112); |
1084 |
|
vs_top=(vs_base=base+3)+1; |
1085 |
|
Ltruename(); |
1086 |
|
vs_top=sup; |
1087 |
|
base[2]= vs_base[0]; |
1088 |
|
vs_top=(vs_base=base+2)+1; |
1089 |
|
Lnamestring(); |
1090 |
|
vs_top=sup; |
1091 |
|
V118= vs_base[0]; |
1092 |
|
{register object x= (V118),V119= (VV[41]->s.s_dbind); |
1093 |
|
while(V119!=Cnil) |
1094 |
|
if(equal(x,V119->c.c_car->c.c_car) &&V119->c.c_car != Cnil){ |
1095 |
|
V111= (V119->c.c_car); |
1096 |
|
goto T437; |
1097 |
|
}else V119=V119->c.c_cdr; |
1098 |
|
V111= Cnil;} |
1099 |
|
goto T437; |
1100 |
|
T437:; |
1101 |
|
if(((V111))==Cnil){ |
1102 |
|
goto T435;} |
1103 |
|
(VV[20]->s.s_dbind)= (V111); |
1104 |
|
goto T427; |
1105 |
|
goto T435; |
1106 |
|
T435:; |
1107 |
|
base[2]= (V118); |
1108 |
|
vs_top=(vs_base=base+2)+1; |
1109 |
|
(void) (*Lnk109)(); |
1110 |
|
vs_top=sup; |
1111 |
|
V120= vs_base[0]; |
1112 |
|
(VV[20]->s.s_dbind)= list(3,(V118),V120,Cnil); |
1113 |
|
(VV[41]->s.s_dbind)= make_cons((VV[20]->s.s_dbind),(VV[41]->s.s_dbind)); |
1114 |
|
goto T427;} |
1115 |
|
goto T429; |
1116 |
|
T429:; |
1117 |
|
base[1]= Ct; |
1118 |
|
base[2]= VV[42]; |
1119 |
|
base[3]= (V110); |
1120 |
|
vs_top=(vs_base=base+1)+3; |
1121 |
|
Lformat(); |
1122 |
|
vs_top=sup; |
1123 |
|
goto T427; |
1124 |
|
T427:; |
1125 |
|
base[1]= Cnil; |
1126 |
|
vs_top=(vs_base=base+1)+1; |
1127 |
|
return;} |
1128 |
|
} |
1129 |
|
} |
1130 |
|
/* function definition for GET-INFO-CHOICES */ |
1131 |
|
|
1132 |
|
static void L15() |
1133 |
|
{register object *base=vs_base; |
1134 |
|
register object *sup=base+VM15; VC15 |
1135 |
|
vs_check; |
1136 |
|
{object V121; |
1137 |
|
object V122; |
1138 |
|
V121=(base[0]); |
1139 |
|
V122=(base[1]); |
1140 |
|
vs_top=sup; |
1141 |
|
goto TTL; |
1142 |
|
TTL:; |
1143 |
|
if(!(eql((V122),VV[43]))){ |
1144 |
|
goto T448;} |
1145 |
|
base[2]= (V121); |
1146 |
|
vs_top=(vs_base=base+2)+1; |
1147 |
|
(void) (*Lnk110)(); |
1148 |
|
return; |
1149 |
|
goto T448; |
1150 |
|
T448:; |
1151 |
|
base[2]= (V121); |
1152 |
|
base[3]= CMPcar(CMPcadr((VV[20]->s.s_dbind))); |
1153 |
|
vs_top=(vs_base=base+2)+2; |
1154 |
|
(void) (*Lnk103)(); |
1155 |
|
return; |
1156 |
|
} |
1157 |
|
} |
1158 |
|
/* function definition for ADD-FILE */ |
1159 |
|
|
1160 |
|
static void L16() |
1161 |
|
{register object *base=vs_base; |
1162 |
|
register object *sup=base+VM16; VC16 |
1163 |
|
vs_check; |
1164 |
|
{object V123; |
1165 |
|
register object V124; |
1166 |
|
V123=(base[0]); |
1167 |
|
V124=(base[1]); |
1168 |
|
vs_top=sup; |
1169 |
|
goto TTL; |
1170 |
|
TTL:; |
1171 |
|
{register object V125; |
1172 |
|
V125= (V123); |
1173 |
|
goto T456; |
1174 |
|
T456:; |
1175 |
|
if((V125)!=Cnil){ |
1176 |
|
goto T458;} |
1177 |
|
goto T457; |
1178 |
|
goto T458; |
1179 |
|
T458:; |
1180 |
|
{register object V126; |
1181 |
|
register object V127; |
1182 |
|
V126= (V125); |
1183 |
|
V127= list(2,CMPcar((V125)),(V124)); |
1184 |
|
((V126))->c.c_car = (V127);} |
1185 |
|
V125= CMPcdr((V125)); |
1186 |
|
goto T456; |
1187 |
|
goto T457; |
1188 |
|
T457:; |
1189 |
|
goto T454; |
1190 |
|
goto T454; |
1191 |
|
goto T454; |
1192 |
|
T454:; |
1193 |
|
base[2]= (V123); |
1194 |
|
vs_top=(vs_base=base+2)+1; |
1195 |
|
return;} |
1196 |
|
} |
1197 |
|
} |
1198 |
|
/* function definition for INFO-ERROR */ |
1199 |
|
|
1200 |
|
static void L17() |
1201 |
|
{register object *base=vs_base; |
1202 |
|
register object *sup=base+VM17; VC17 |
1203 |
|
vs_check; |
1204 |
|
{object V128; |
1205 |
|
vs_top[0]=Cnil; |
1206 |
|
{object *p=vs_top; |
1207 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1208 |
|
V128=(base[0]); |
1209 |
|
vs_top=sup; |
1210 |
|
if(((VV[44]->s.s_dbind))==Cnil){ |
1211 |
|
goto T467;} |
1212 |
|
base[2]= Cnil; |
1213 |
|
{object V129; |
1214 |
|
V129= (V128); |
1215 |
|
vs_top=base+3; |
1216 |
|
while(V129!=Cnil) |
1217 |
|
{vs_push((V129)->c.c_car);V129=(V129)->c.c_cdr;} |
1218 |
|
vs_base=base+2;} |
1219 |
|
Lformat(); |
1220 |
|
vs_top=sup; |
1221 |
|
base[1]= vs_base[0]; |
1222 |
|
vs_top=(vs_base=base+1)+1; |
1223 |
|
(void) (*Lnk111)(); |
1224 |
|
return; |
1225 |
|
goto T467; |
1226 |
|
T467:; |
1227 |
|
{object V130; |
1228 |
|
V130= (V128); |
1229 |
|
vs_top=base+1; |
1230 |
|
while(V130!=Cnil) |
1231 |
|
{vs_push((V130)->c.c_car);V130=(V130)->c.c_cdr;} |
1232 |
|
vs_base=base+1;} |
1233 |
|
Lerror(); |
1234 |
|
return; |
1235 |
|
} |
1236 |
|
} |
1237 |
|
/* function definition for INFO-GET-FILE */ |
1238 |
|
|
1239 |
|
static void L18() |
1240 |
|
{register object *base=vs_base; |
1241 |
|
register object *sup=base+VM18; VC18 |
1242 |
|
vs_check; |
1243 |
|
{register object V131; |
1244 |
|
V131=(base[0]); |
1245 |
|
vs_top=sup; |
1246 |
|
goto TTL; |
1247 |
|
TTL:; |
1248 |
|
base[1]= (V131); |
1249 |
|
base[2]= CMPcar((VV[20]->s.s_dbind)); |
1250 |
|
vs_top=(vs_base=base+1)+2; |
1251 |
|
Lmerge_pathnames(); |
1252 |
|
vs_top=sup; |
1253 |
|
V131= vs_base[0]; |
1254 |
|
if(!(equal(CMPcar((VV[45]->s.s_dbind)),(V131)))){ |
1255 |
|
goto T479;} |
1256 |
|
V132= (VV[45]->s.s_dbind); |
1257 |
|
goto T477; |
1258 |
|
goto T479; |
1259 |
|
T479:; |
1260 |
|
base[1]= (V131); |
1261 |
|
vs_top=(vs_base=base+1)+1; |
1262 |
|
(void) (*Lnk93)(); |
1263 |
|
vs_top=sup; |
1264 |
|
V133= vs_base[0]; |
1265 |
|
(VV[45]->s.s_dbind)= make_cons((V131),V133); |
1266 |
|
V132= (VV[45]->s.s_dbind); |
1267 |
|
goto T477; |
1268 |
|
T477:; |
1269 |
|
base[1]= CMPcdr(V132); |
1270 |
|
vs_top=(vs_base=base+1)+1; |
1271 |
|
return; |
1272 |
|
} |
1273 |
|
} |
1274 |
|
/* function definition for WAITING */ |
1275 |
|
|
1276 |
|
static void L19() |
1277 |
|
{register object *base=vs_base; |
1278 |
|
register object *sup=base+VM19; VC19 |
1279 |
|
vs_check; |
1280 |
|
{object V134; |
1281 |
|
V134=(base[0]); |
1282 |
|
vs_top=sup; |
1283 |
|
goto TTL; |
1284 |
|
TTL:; |
1285 |
|
if((VV[44]->s.s_dbind)==Cnil){ |
1286 |
|
base[1]= Cnil; |
1287 |
|
vs_top=(vs_base=base+1)+1; |
1288 |
|
return;} |
1289 |
|
base[1]= (V134); |
1290 |
|
vs_top=(vs_base=base+1)+1; |
1291 |
|
Lfboundp(); |
1292 |
|
vs_top=sup; |
1293 |
|
if((vs_base[0])!=Cnil){ |
1294 |
|
goto T484;} |
1295 |
|
base[1]= Cnil; |
1296 |
|
vs_top=(vs_base=base+1)+1; |
1297 |
|
return; |
1298 |
|
goto T484; |
1299 |
|
T484:; |
1300 |
|
base[1]= VV[46]; |
1301 |
|
base[2]= (V134); |
1302 |
|
base[3]= VV[47]; |
1303 |
|
base[4]= VV[48]; |
1304 |
|
vs_top=(vs_base=base+1)+4; |
1305 |
|
(void) (*Lnk112)(); |
1306 |
|
vs_top=sup; |
1307 |
|
if((vs_base[0])!=Cnil){ |
1308 |
|
goto T487;} |
1309 |
|
base[1]= Cnil; |
1310 |
|
vs_top=(vs_base=base+1)+1; |
1311 |
|
return; |
1312 |
|
goto T487; |
1313 |
|
T487:; |
1314 |
|
base[1]= VV[49]; |
1315 |
|
base[2]= VV[50]; |
1316 |
|
base[3]= VV[51]; |
1317 |
|
vs_top=(vs_base=base+1)+3; |
1318 |
|
super_funcall_no_event((V134)); |
1319 |
|
return; |
1320 |
|
} |
1321 |
|
} |
1322 |
|
/* function definition for END-WAITING */ |
1323 |
|
|
1324 |
|
static void L20() |
1325 |
|
{register object *base=vs_base; |
1326 |
|
register object *sup=base+VM20; VC20 |
1327 |
|
vs_check; |
1328 |
|
{object V135; |
1329 |
|
V135=(base[0]); |
1330 |
|
vs_top=sup; |
1331 |
|
goto TTL; |
1332 |
|
TTL:; |
1333 |
|
base[1]= (V135); |
1334 |
|
vs_top=(vs_base=base+1)+1; |
1335 |
|
Lfboundp(); |
1336 |
|
vs_top=sup; |
1337 |
|
if((vs_base[0])!=Cnil){ |
1338 |
|
goto T496;} |
1339 |
|
base[1]= Cnil; |
1340 |
|
vs_top=(vs_base=base+1)+1; |
1341 |
|
return; |
1342 |
|
goto T496; |
1343 |
|
T496:; |
1344 |
|
base[1]= VV[49]; |
1345 |
|
base[2]= VV[50]; |
1346 |
|
base[3]= VV[52]; |
1347 |
|
vs_top=(vs_base=base+1)+3; |
1348 |
|
super_funcall_no_event((V135)); |
1349 |
|
return; |
1350 |
|
} |
1351 |
|
} |
1352 |
|
/* function definition for INFO-SUBFILE */ |
1353 |
|
|
1354 |
|
static void L21() |
1355 |
|
{register object *base=vs_base; |
1356 |
|
register object *sup=base+VM21; VC21 |
1357 |
|
vs_check; |
1358 |
|
{register object V136; |
1359 |
|
V136=(base[0]); |
1360 |
|
vs_top=sup; |
1361 |
|
goto TTL; |
1362 |
|
TTL:; |
1363 |
|
{object V137; |
1364 |
|
register object V138; |
1365 |
|
register object V139; |
1366 |
|
V137= CMPcdr(CMPcadr((VV[20]->s.s_dbind))); |
1367 |
|
V138= Cnil; |
1368 |
|
V139= Cnil; |
1369 |
|
if((V137)==Cnil){ |
1370 |
|
goto T503;} |
1371 |
|
if(number_compare((V136),small_fixnum(0))>=0){ |
1372 |
|
goto T504;} |
1373 |
|
goto T503; |
1374 |
|
goto T504; |
1375 |
|
T504:; |
1376 |
|
{register object V140; |
1377 |
|
register object V141; |
1378 |
|
V140= (V137); |
1379 |
|
V141= CMPcar((V140)); |
1380 |
|
goto T509; |
1381 |
|
T509:; |
1382 |
|
if(!(((V140))==Cnil)){ |
1383 |
|
goto T510;} |
1384 |
|
goto T503; |
1385 |
|
goto T510; |
1386 |
|
T510:; |
1387 |
|
if(!(number_compare(CMPcar((V141)),(V136))>0)){ |
1388 |
|
goto T514;} |
1389 |
|
V139= CMPcar((V141)); |
1390 |
|
goto T503; |
1391 |
|
goto T514; |
1392 |
|
T514:; |
1393 |
|
V138= (V141); |
1394 |
|
V140= CMPcdr((V140)); |
1395 |
|
V141= CMPcar((V140)); |
1396 |
|
goto T509;} |
1397 |
|
goto T503; |
1398 |
|
T503:; |
1399 |
|
if((V138)!=Cnil){ |
1400 |
|
base[1]= (V138); |
1401 |
|
goto T526;} |
1402 |
|
base[1]= make_cons(small_fixnum(0),CMPcar((VV[20]->s.s_dbind))); |
1403 |
|
goto T526; |
1404 |
|
T526:; |
1405 |
|
base[2]= (V139); |
1406 |
|
vs_top=(vs_base=base+1)+2; |
1407 |
|
return;} |
1408 |
|
} |
1409 |
|
} |
1410 |
|
/* function definition for INFO-NODE-FROM-POSITION */ |
1411 |
|
|
1412 |
|
static void L22() |
1413 |
|
{register object *base=vs_base; |
1414 |
|
register object *sup=base+VM22; VC22 |
1415 |
|
vs_check; |
1416 |
|
{object V142; |
1417 |
|
V142=(base[0]); |
1418 |
|
vs_top=sup; |
1419 |
|
goto TTL; |
1420 |
|
TTL:; |
1421 |
|
{register object V143; |
1422 |
|
V143= small_fixnum(0); |
1423 |
|
{object V144; |
1424 |
|
register object V145; |
1425 |
|
register object V146; |
1426 |
|
base[4]= (V142); |
1427 |
|
vs_top=(vs_base=base+4)+1; |
1428 |
|
(void) (*Lnk113)(); |
1429 |
|
vs_top=sup; |
1430 |
|
V144= vs_base[0]; |
1431 |
|
base[4]= CMPcdr((V144)); |
1432 |
|
vs_top=(vs_base=base+4)+1; |
1433 |
|
(void) (*Lnk114)(); |
1434 |
|
vs_top=sup; |
1435 |
|
V145= vs_base[0]; |
1436 |
|
V146= number_minus((V142),CMPcar((V144))); |
1437 |
|
goto T536; |
1438 |
|
T536:; |
1439 |
|
{long V147= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[53],(V145),(V143),(V146)))); |
1440 |
|
if(!((/* INLINE-ARGS */V147)>=(0))){ |
1441 |
|
goto T539;}} |
1442 |
|
goto T538; |
1443 |
|
goto T539; |
1444 |
|
T539:; |
1445 |
|
goto T537; |
1446 |
|
goto T538; |
1447 |
|
T538:; |
1448 |
|
V143= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
1449 |
|
goto T536; |
1450 |
|
goto T537; |
1451 |
|
T537:; |
1452 |
|
goto T534; |
1453 |
|
goto T534; |
1454 |
|
goto T534; |
1455 |
|
T534:; |
1456 |
|
V143= number_minus((V143),small_fixnum(1)); |
1457 |
|
{long V148= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[54],(V145),(V143)))); |
1458 |
|
if(!((/* INLINE-ARGS */V148)>=(0))){ |
1459 |
|
goto T547;}} |
1460 |
|
{object V149; |
1461 |
|
object V150; |
1462 |
|
object V151; |
1463 |
|
object V152; |
1464 |
|
object V153; |
1465 |
|
V149= CMPmake_fixnum((long)(*(LnkLI96))(0)); |
1466 |
|
V150= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
1467 |
|
base[9]= (V145); |
1468 |
|
base[10]= small_fixnum(1); |
1469 |
|
vs_top=(vs_base=base+9)+2; |
1470 |
|
(void) (*Lnk98)(); |
1471 |
|
vs_top=sup; |
1472 |
|
V151= vs_base[0]; |
1473 |
|
{long V154= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[55],(V145),(V150)))); |
1474 |
|
if(!((/* INLINE-ARGS */V154)>=(0))){ |
1475 |
|
goto T556;}} |
1476 |
|
V152= CMPmake_fixnum((long)(*(LnkLI96))(0)); |
1477 |
|
goto T554; |
1478 |
|
goto T556; |
1479 |
|
T556:; |
1480 |
|
V152= CMPmake_fixnum((long)length((V145))); |
1481 |
|
goto T554; |
1482 |
|
T554:; |
1483 |
|
V153= listA(7,(V145),(V150),(V152),(V149),(V151),(V144),(VV[20]->s.s_dbind)); |
1484 |
|
base[9]= (V153); |
1485 |
|
vs_top=(vs_base=base+9)+1; |
1486 |
|
return;} |
1487 |
|
goto T547; |
1488 |
|
T547:; |
1489 |
|
base[4]= Cnil; |
1490 |
|
vs_top=(vs_base=base+4)+1; |
1491 |
|
return;}} |
1492 |
|
} |
1493 |
|
} |
1494 |
|
/* function definition for SHOW-INFO */ |
1495 |
|
|
1496 |
|
static void L23() |
1497 |
|
{register object *base=vs_base; |
1498 |
|
register object *sup=base+VM23; VC23 |
1499 |
|
vs_check; |
1500 |
|
bds_check; |
1501 |
|
{register object V155; |
1502 |
|
register object V156; |
1503 |
|
object V157; |
1504 |
|
V155=(base[0]); |
1505 |
|
vs_base=vs_base+1; |
1506 |
|
if(vs_base>=vs_top){vs_top=sup;goto T559;} |
1507 |
|
V156=(base[1]); |
1508 |
|
vs_base++; |
1509 |
|
if(vs_base>=vs_top){vs_top=sup;goto T560;} |
1510 |
|
V157=(base[2]); |
1511 |
|
vs_top=sup; |
1512 |
|
goto T561; |
1513 |
|
goto T559; |
1514 |
|
T559:; |
1515 |
|
V156= Cnil; |
1516 |
|
goto T560; |
1517 |
|
T560:; |
1518 |
|
V157= (VV[44]->s.s_dbind); |
1519 |
|
goto T561; |
1520 |
|
T561:; |
1521 |
|
{register object V158; |
1522 |
|
register object V159; |
1523 |
|
register long V160; |
1524 |
|
long V161; |
1525 |
|
V158= Cnil; |
1526 |
|
bds_bind(VV[9],Cnil); |
1527 |
|
V159= Cnil; |
1528 |
|
V160= 0; |
1529 |
|
V161= -1; |
1530 |
|
if(!(type_of((V155))==t_cons)){ |
1531 |
|
goto T569;} |
1532 |
|
if(!(type_of(CMPcdr((V155)))==t_cons)){ |
1533 |
|
goto T569;} |
1534 |
|
V159= CMPcadr((V155)); |
1535 |
|
V155= CMPcar((V155)); |
1536 |
|
goto T569; |
1537 |
|
T569:; |
1538 |
|
if(!(type_of((V155))==t_cons)){ |
1539 |
|
goto T568;} |
1540 |
|
V156= CMPcar((V155)); |
1541 |
|
V155= CMPcdr((V155)); |
1542 |
|
goto T568; |
1543 |
|
T568:; |
1544 |
|
if(!(type_of((V155))==t_string)){ |
1545 |
|
goto T583;} |
1546 |
|
goto T582; |
1547 |
|
goto T583; |
1548 |
|
T583:; |
1549 |
|
base[4]= VV[56]; |
1550 |
|
vs_top=(vs_base=base+4)+1; |
1551 |
|
(void) (*Lnk99)(); |
1552 |
|
vs_top=sup; |
1553 |
|
goto T582; |
1554 |
|
T582:; |
1555 |
|
base[4]= (VV[57]->s.s_dbind); |
1556 |
|
vs_top=(vs_base=base+4)+1; |
1557 |
|
(void) (*Lnk115)(); |
1558 |
|
vs_top=sup; |
1559 |
|
{long V162= fix((VFUN_NARGS=2,(*(LnkLI94))(VV[58],(V155)))); |
1560 |
|
if(!((/* INLINE-ARGS */V162)>=(0))){ |
1561 |
|
goto T588;}} |
1562 |
|
base[4]= (V155); |
1563 |
|
base[5]= small_fixnum(1); |
1564 |
|
vs_top=(vs_base=base+4)+2; |
1565 |
|
(void) (*Lnk98)(); |
1566 |
|
vs_top=sup; |
1567 |
|
V159= vs_base[0]; |
1568 |
|
base[4]= (V155); |
1569 |
|
base[5]= small_fixnum(2); |
1570 |
|
vs_top=(vs_base=base+4)+2; |
1571 |
|
(void) (*Lnk98)(); |
1572 |
|
vs_top=sup; |
1573 |
|
V155= vs_base[0]; |
1574 |
|
if(!(equal((V155),VV[59]))){ |
1575 |
|
goto T588;} |
1576 |
|
V155= VV[60]; |
1577 |
|
goto T588; |
1578 |
|
T588:; |
1579 |
|
if(((V159))==Cnil){ |
1580 |
|
goto T602;} |
1581 |
|
base[4]= (V159); |
1582 |
|
vs_top=(vs_base=base+4)+1; |
1583 |
|
(void) (*Lnk116)(); |
1584 |
|
vs_top=sup; |
1585 |
|
goto T602; |
1586 |
|
T602:; |
1587 |
|
{object V163; |
1588 |
|
base[4]= (V155); |
1589 |
|
base[5]= CMPcar(CMPcadr((VV[20]->s.s_dbind))); |
1590 |
|
vs_top=(vs_base=base+4)+2; |
1591 |
|
(void) (*Lnk117)(); |
1592 |
|
vs_top=sup; |
1593 |
|
V163= vs_base[0]; |
1594 |
|
if(((V163))!=Cnil){ |
1595 |
|
goto T609;} |
1596 |
|
base[4]= Ct; |
1597 |
|
base[5]= VV[61]; |
1598 |
|
base[6]= (V155); |
1599 |
|
vs_top=(vs_base=base+4)+3; |
1600 |
|
Lformat(); |
1601 |
|
vs_top=sup; |
1602 |
|
base[4]= Cnil; |
1603 |
|
vs_top=(vs_base=base+4)+1; |
1604 |
|
bds_unwind1; |
1605 |
|
return; |
1606 |
|
goto T609; |
1607 |
|
T609:; |
1608 |
|
base[4]= (V163); |
1609 |
|
vs_top=(vs_base=base+4)+1; |
1610 |
|
(void) (*Lnk113)(); |
1611 |
|
vs_top=sup; |
1612 |
|
V158= vs_base[0]; |
1613 |
|
{register object V164; |
1614 |
|
object V165; |
1615 |
|
base[6]= CMPcdr((V158)); |
1616 |
|
vs_top=(vs_base=base+6)+1; |
1617 |
|
(void) (*Lnk114)(); |
1618 |
|
vs_top=sup; |
1619 |
|
V164= vs_base[0]; |
1620 |
|
V165= number_minus((V163),CMPcar((V158))); |
1621 |
|
base[6]= VV[62]; |
1622 |
|
base[8]= (V155); |
1623 |
|
vs_top=(vs_base=base+8)+1; |
1624 |
|
(void) (*Lnk101)(); |
1625 |
|
vs_top=sup; |
1626 |
|
base[7]= vs_base[0]; |
1627 |
|
base[8]= VV[63]; |
1628 |
|
vs_top=(vs_base=base+6)+3; |
1629 |
|
(void) (*Lnk102)(); |
1630 |
|
vs_top=sup; |
1631 |
|
V166= vs_base[0]; |
1632 |
|
{long V167= fix((VFUN_NARGS=3,(*(LnkLI94))(V166,(V164),(V165)))); |
1633 |
|
if(!((/* INLINE-ARGS */V167)>=(0))){ |
1634 |
|
goto T623;}} |
1635 |
|
{object V168; |
1636 |
|
register object V169; |
1637 |
|
register object V170; |
1638 |
|
object V171; |
1639 |
|
V168= CMPmake_fixnum((long)(*(LnkLI96))(0)); |
1640 |
|
V169= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
1641 |
|
{long V172= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[64],(V164),(V169)))); |
1642 |
|
if(!((/* INLINE-ARGS */V172)>=(0))){ |
1643 |
|
goto T634;}} |
1644 |
|
V170= CMPmake_fixnum((long)(*(LnkLI96))(0)); |
1645 |
|
goto T632; |
1646 |
|
goto T634; |
1647 |
|
T634:; |
1648 |
|
V170= CMPmake_fixnum((long)length((V164))); |
1649 |
|
goto T632; |
1650 |
|
T632:; |
1651 |
|
V171= listA(7,(V164),(V169),(V170),(V168),(V155),(V158),(VV[20]->s.s_dbind)); |
1652 |
|
if(((V156))==Cnil){ |
1653 |
|
goto T637;} |
1654 |
|
base[10]= (V156); |
1655 |
|
vs_top=(vs_base=base+10)+1; |
1656 |
|
(void) (*Lnk101)(); |
1657 |
|
vs_top=sup; |
1658 |
|
V156= vs_base[0]; |
1659 |
|
bds_bind(VV[10],Cnil); |
1660 |
|
base[11]= VV[65]; |
1661 |
|
base[12]= (V156); |
1662 |
|
base[13]= VV[66]; |
1663 |
|
vs_top=(vs_base=base+11)+3; |
1664 |
|
(void) (*Lnk102)(); |
1665 |
|
vs_top=sup; |
1666 |
|
V173= vs_base[0]; |
1667 |
|
V161= fix((VFUN_NARGS=4,(*(LnkLI94))(V173,(V164),(V169),(V170)))); |
1668 |
|
if((V161)>=(0)){ |
1669 |
|
goto T643;} |
1670 |
|
{long V174= fix((VFUN_NARGS=4,(*(LnkLI94))((V156),(V164),(V169),(V170)))); |
1671 |
|
if(!((/* INLINE-ARGS */V174)>=(0))){ |
1672 |
|
bds_unwind1; |
1673 |
|
goto T637;}} |
1674 |
|
goto T643; |
1675 |
|
T643:; |
1676 |
|
V175 = CMPmake_fixnum((long)(*(LnkLI96))(0)); |
1677 |
|
V160= fix(number_minus(V175,(V169))); |
1678 |
|
bds_unwind1; |
1679 |
|
goto T637; |
1680 |
|
T637:; |
1681 |
|
if(((V157))==Cnil){ |
1682 |
|
goto T654;} |
1683 |
|
{object V176; |
1684 |
|
base[10]= (V171); |
1685 |
|
base[11]= CMPmake_fixnum(V160); |
1686 |
|
vs_top=(vs_base=base+10)+2; |
1687 |
|
(void) (*Lnk118)(); |
1688 |
|
vs_top=sup; |
1689 |
|
V176= vs_base[0]; |
1690 |
|
base[10]= (VV[57]->s.s_dbind); |
1691 |
|
vs_top=(vs_base=base+10)+1; |
1692 |
|
(void) (*Lnk119)(); |
1693 |
|
vs_top=sup; |
1694 |
|
base[10]= (V176); |
1695 |
|
vs_top=(vs_base=base+10)+1; |
1696 |
|
bds_unwind1; |
1697 |
|
return;} |
1698 |
|
goto T654; |
1699 |
|
T654:; |
1700 |
|
{object V177; |
1701 |
|
if(!((V161)>=(0))){ |
1702 |
|
goto T663;} |
1703 |
|
base[10]= (V169); |
1704 |
|
base[11]= small_fixnum(1); |
1705 |
|
base[12]= CMPmake_fixnum(V160); |
1706 |
|
vs_top=(vs_base=base+10)+3; |
1707 |
|
Lplus(); |
1708 |
|
vs_top=sup; |
1709 |
|
V178= vs_base[0]; |
1710 |
|
{long V179= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[67],(V164),V178,(V170)))); |
1711 |
|
if(!((/* INLINE-ARGS */V179)>=(0))){ |
1712 |
|
goto T663;}} |
1713 |
|
V177= CMPmake_fixnum((long)(*(LnkLI96))(0)); |
1714 |
|
goto T661; |
1715 |
|
goto T663; |
1716 |
|
T663:; |
1717 |
|
V177= (V170); |
1718 |
|
goto T661; |
1719 |
|
T661:; |
1720 |
|
base[10]= (V164); |
1721 |
|
V180 = CMPmake_fixnum(V160); |
1722 |
|
base[11]= number_plus(V180,(V169)); |
1723 |
|
base[12]= (V177); |
1724 |
|
vs_top=(vs_base=base+10)+3; |
1725 |
|
Lsubseq(); |
1726 |
|
bds_unwind1; |
1727 |
|
return;}} |
1728 |
|
goto T623; |
1729 |
|
T623:; |
1730 |
|
base[6]= VV[68]; |
1731 |
|
base[7]= (V155); |
1732 |
|
vs_top=(vs_base=base+6)+2; |
1733 |
|
(void) (*Lnk99)(); |
1734 |
|
vs_top=sup; |
1735 |
|
base[6]= (VV[57]->s.s_dbind); |
1736 |
|
vs_top=(vs_base=base+6)+1; |
1737 |
|
(void) (*Lnk119)(); |
1738 |
|
bds_unwind1; |
1739 |
|
return;}}} |
1740 |
|
} |
1741 |
|
} |
1742 |
|
/* function definition for INFO-AUX */ |
1743 |
|
|
1744 |
|
static void L24() |
1745 |
|
{register object *base=vs_base; |
1746 |
|
register object *sup=base+VM24; VC24 |
1747 |
|
vs_check; |
1748 |
|
{object V181; |
1749 |
|
object V182; |
1750 |
|
V181=(base[0]); |
1751 |
|
V182=(base[1]); |
1752 |
|
vs_top=sup; |
1753 |
|
goto TTL; |
1754 |
|
TTL:; |
1755 |
|
{register object V183; |
1756 |
|
register object V184; |
1757 |
|
V183= Cnil; |
1758 |
|
V184= (V182); |
1759 |
|
{object V185; |
1760 |
|
register object V186; |
1761 |
|
register object V187; |
1762 |
|
register object V188; |
1763 |
|
V185= Cnil; |
1764 |
|
V186= Cnil; |
1765 |
|
V187= Cnil; |
1766 |
|
V188= Cnil; |
1767 |
|
goto T679; |
1768 |
|
T679:; |
1769 |
|
if(((V184))==Cnil){ |
1770 |
|
goto T682;} |
1771 |
|
goto T681; |
1772 |
|
goto T682; |
1773 |
|
T682:; |
1774 |
|
goto T680; |
1775 |
|
goto T681; |
1776 |
|
T681:; |
1777 |
|
{object V189; |
1778 |
|
V189= CMPcar((V184)); |
1779 |
|
V183= (V189);} |
1780 |
|
base[2]= (V183); |
1781 |
|
vs_top=(vs_base=base+2)+1; |
1782 |
|
(void) (*Lnk116)(); |
1783 |
|
vs_top=sup; |
1784 |
|
base[4]= (V181); |
1785 |
|
base[5]= VV[69]; |
1786 |
|
vs_top=(vs_base=base+4)+2; |
1787 |
|
(void) (*Lnk120)(); |
1788 |
|
vs_top=sup; |
1789 |
|
base[3]= vs_base[0]; |
1790 |
|
base[4]= (V183); |
1791 |
|
vs_top=(vs_base=base+3)+2; |
1792 |
|
(void) (*Lnk121)(); |
1793 |
|
vs_top=sup; |
1794 |
|
base[2]= vs_base[0]; |
1795 |
|
vs_top=(vs_base=base+2)+1; |
1796 |
|
Lcopy_list(); |
1797 |
|
vs_top=sup; |
1798 |
|
V187= vs_base[0]; |
1799 |
|
if(((V186))==Cnil){ |
1800 |
|
goto T698;} |
1801 |
|
{register object V191; |
1802 |
|
V191= (V187); |
1803 |
|
(V186)->c.c_cdr = (V191); |
1804 |
|
if(((V191))!=Cnil){ |
1805 |
|
goto T700;}} |
1806 |
|
goto T696; |
1807 |
|
goto T700; |
1808 |
|
T700:; |
1809 |
|
base[2]= CMPcdr((V186)); |
1810 |
|
vs_top=(vs_base=base+2)+1; |
1811 |
|
Llast(); |
1812 |
|
vs_top=sup; |
1813 |
|
V186= vs_base[0]; |
1814 |
|
goto T696; |
1815 |
|
goto T698; |
1816 |
|
T698:; |
1817 |
|
V185= (V187); |
1818 |
|
base[2]= (V185); |
1819 |
|
vs_top=(vs_base=base+2)+1; |
1820 |
|
Llast(); |
1821 |
|
vs_top=sup; |
1822 |
|
V186= vs_base[0]; |
1823 |
|
goto T696; |
1824 |
|
T696:; |
1825 |
|
base[4]= (V181); |
1826 |
|
base[5]= VV[43]; |
1827 |
|
vs_top=(vs_base=base+4)+2; |
1828 |
|
(void) (*Lnk120)(); |
1829 |
|
vs_top=sup; |
1830 |
|
base[3]= vs_base[0]; |
1831 |
|
base[4]= (V183); |
1832 |
|
vs_top=(vs_base=base+3)+2; |
1833 |
|
(void) (*Lnk121)(); |
1834 |
|
vs_top=sup; |
1835 |
|
base[2]= vs_base[0]; |
1836 |
|
vs_top=(vs_base=base+2)+1; |
1837 |
|
Lcopy_list(); |
1838 |
|
vs_top=sup; |
1839 |
|
V188= vs_base[0]; |
1840 |
|
if(((V186))==Cnil){ |
1841 |
|
goto T718;} |
1842 |
|
{register object V193; |
1843 |
|
V193= (V188); |
1844 |
|
(V186)->c.c_cdr = (V193); |
1845 |
|
if(((V193))!=Cnil){ |
1846 |
|
goto T720;}} |
1847 |
|
goto T716; |
1848 |
|
goto T720; |
1849 |
|
T720:; |
1850 |
|
base[2]= CMPcdr((V186)); |
1851 |
|
vs_top=(vs_base=base+2)+1; |
1852 |
|
Llast(); |
1853 |
|
vs_top=sup; |
1854 |
|
V186= vs_base[0]; |
1855 |
|
goto T716; |
1856 |
|
goto T718; |
1857 |
|
T718:; |
1858 |
|
V185= (V188); |
1859 |
|
base[2]= (V185); |
1860 |
|
vs_top=(vs_base=base+2)+1; |
1861 |
|
Llast(); |
1862 |
|
vs_top=sup; |
1863 |
|
V186= vs_base[0]; |
1864 |
|
goto T716; |
1865 |
|
T716:; |
1866 |
|
V184= CMPcdr((V184)); |
1867 |
|
goto T679; |
1868 |
|
goto T680; |
1869 |
|
T680:; |
1870 |
|
base[2]= (V185); |
1871 |
|
vs_top=(vs_base=base+2)+1; |
1872 |
|
return; |
1873 |
|
base[2]= Cnil; |
1874 |
|
vs_top=(vs_base=base+2)+1; |
1875 |
|
return; |
1876 |
|
base[2]= Cnil; |
1877 |
|
vs_top=(vs_base=base+2)+1; |
1878 |
|
return;}} |
1879 |
|
} |
1880 |
|
} |
1881 |
|
/* function definition for INFO-SEARCH */ |
1882 |
|
|
1883 |
|
static void L25() |
1884 |
|
{register object *base=vs_base; |
1885 |
|
register object *sup=base+VM25; VC25 |
1886 |
|
vs_check; |
1887 |
|
{object V194; |
1888 |
|
register object V195; |
1889 |
|
register object V196; |
1890 |
|
V194=(base[0]); |
1891 |
|
vs_base=vs_base+1; |
1892 |
|
if(vs_base>=vs_top){vs_top=sup;goto T733;} |
1893 |
|
V195=(base[1]); |
1894 |
|
vs_base++; |
1895 |
|
if(vs_base>=vs_top){vs_top=sup;goto T734;} |
1896 |
|
V196=(base[2]); |
1897 |
|
vs_top=sup; |
1898 |
|
goto T735; |
1899 |
|
goto T733; |
1900 |
|
T733:; |
1901 |
|
V195= Cnil; |
1902 |
|
goto T734; |
1903 |
|
T734:; |
1904 |
|
V196= Cnil; |
1905 |
|
goto T735; |
1906 |
|
T735:; |
1907 |
|
{register object V197; |
1908 |
|
V197= Cnil; |
1909 |
|
if((V195)!=Cnil){ |
1910 |
|
goto T739;} |
1911 |
|
V195= small_fixnum(0); |
1912 |
|
goto T739; |
1913 |
|
T739:; |
1914 |
|
goto T743; |
1915 |
|
T743:; |
1916 |
|
if((V195)!=Cnil){ |
1917 |
|
goto T745;} |
1918 |
|
goto T744; |
1919 |
|
goto T745; |
1920 |
|
T745:; |
1921 |
|
{register object V198; |
1922 |
|
register object V199; |
1923 |
|
base[3]= (V195); |
1924 |
|
vs_top=(vs_base=base+3)+1; |
1925 |
|
(void) (*Lnk113)(); |
1926 |
|
if(vs_base>=vs_top){vs_top=sup;goto T749;} |
1927 |
|
V198= vs_base[0]; |
1928 |
|
vs_base++; |
1929 |
|
if(vs_base>=vs_top){vs_top=sup;goto T750;} |
1930 |
|
V199= vs_base[0]; |
1931 |
|
vs_top=sup; |
1932 |
|
goto T751; |
1933 |
|
goto T749; |
1934 |
|
T749:; |
1935 |
|
V198= Cnil; |
1936 |
|
goto T750; |
1937 |
|
T750:; |
1938 |
|
V199= Cnil; |
1939 |
|
goto T751; |
1940 |
|
T751:; |
1941 |
|
V197= (V199); |
1942 |
|
if((V196)==Cnil){ |
1943 |
|
goto T754;} |
1944 |
|
if((V197)==Cnil){ |
1945 |
|
goto T754;} |
1946 |
|
if(number_compare((V196),(V197))<0){ |
1947 |
|
goto T755;} |
1948 |
|
goto T754; |
1949 |
|
goto T755; |
1950 |
|
T755:; |
1951 |
|
V197= (V196); |
1952 |
|
goto T754; |
1953 |
|
T754:; |
1954 |
|
{register object V200; |
1955 |
|
register object V201; |
1956 |
|
object V202; |
1957 |
|
object V203; |
1958 |
|
base[7]= CMPcdr((V198)); |
1959 |
|
vs_top=(vs_base=base+7)+1; |
1960 |
|
(void) (*Lnk114)(); |
1961 |
|
vs_top=sup; |
1962 |
|
V200= vs_base[0]; |
1963 |
|
V201= CMPcar((V198)); |
1964 |
|
V202= number_minus((V195),(V201)); |
1965 |
|
V203= CMPmake_fixnum((long)length((V200))); |
1966 |
|
if(((V197))==Cnil){ |
1967 |
|
goto T768;} |
1968 |
|
V204= number_minus((V197),(V201)); |
1969 |
|
goto T766; |
1970 |
|
goto T768; |
1971 |
|
T768:; |
1972 |
|
V204= (V203); |
1973 |
|
goto T766; |
1974 |
|
T766:; |
1975 |
|
{long V205= fix((VFUN_NARGS=4,(*(LnkLI94))((V194),(V200),(V202),V204))); |
1976 |
|
if(!((/* INLINE-ARGS */V205)>=(0))){ |
1977 |
|
goto T758;}} |
1978 |
|
V206 = CMPmake_fixnum((long)(*(LnkLI96))(0)); |
1979 |
|
base[7]= number_plus((V201),V206); |
1980 |
|
vs_top=(vs_base=base+7)+1; |
1981 |
|
return;} |
1982 |
|
goto T758; |
1983 |
|
T758:; |
1984 |
|
V195= (V199);} |
1985 |
|
goto T743; |
1986 |
|
goto T744; |
1987 |
|
T744:; |
1988 |
|
goto T741; |
1989 |
|
goto T741; |
1990 |
|
goto T741; |
1991 |
|
T741:; |
1992 |
|
base[3]= small_fixnum(-1); |
1993 |
|
vs_top=(vs_base=base+3)+1; |
1994 |
|
return;} |
1995 |
|
} |
1996 |
|
} |
1997 |
|
/* function definition for IDESCRIBE */ |
1998 |
|
|
1999 |
|
static void L26() |
2000 |
|
{register object *base=vs_base; |
2001 |
|
register object *sup=base+VM26; VC26 |
2002 |
|
vs_check; |
2003 |
|
{register object V207; |
2004 |
|
V207=(base[0]); |
2005 |
|
vs_top=sup; |
2006 |
|
goto TTL; |
2007 |
|
TTL:; |
2008 |
|
{object V208; |
2009 |
|
base[2]= (V207); |
2010 |
|
base[3]= (VV[70]->s.s_dbind); |
2011 |
|
vs_top=(vs_base=base+2)+2; |
2012 |
|
(void) (*Lnk122)(); |
2013 |
|
vs_top=sup; |
2014 |
|
V208= vs_base[0]; |
2015 |
|
{register object V209; |
2016 |
|
register object V210; |
2017 |
|
V209= (V208); |
2018 |
|
V210= CMPcar((V209)); |
2019 |
|
goto T778; |
2020 |
|
T778:; |
2021 |
|
if(!(((V209))==Cnil)){ |
2022 |
|
goto T779;} |
2023 |
|
base[3]= Cnil; |
2024 |
|
vs_top=(vs_base=base+3)+1; |
2025 |
|
return; |
2026 |
|
goto T779; |
2027 |
|
T779:; |
2028 |
|
if(!(type_of(CMPcar((V210)))==t_cons)){ |
2029 |
|
goto T787;} |
2030 |
|
if(!(equalp(CMPcaar((V210)),(V207)))){ |
2031 |
|
goto T783;} |
2032 |
|
goto T785; |
2033 |
|
goto T787; |
2034 |
|
T787:; |
2035 |
|
if(!(equalp(CMPcar((V210)),(V207)))){ |
2036 |
|
goto T783;} |
2037 |
|
goto T785; |
2038 |
|
T785:; |
2039 |
|
base[3]= Ct; |
2040 |
|
base[4]= VV[71]; |
2041 |
|
base[5]= (V210); |
2042 |
|
vs_top=(vs_base=base+3)+3; |
2043 |
|
Lformat(); |
2044 |
|
vs_top=sup; |
2045 |
|
base[3]= (V210); |
2046 |
|
base[4]= Cnil; |
2047 |
|
base[5]= Cnil; |
2048 |
|
vs_top=(vs_base=base+3)+3; |
2049 |
|
(void) (*Lnk104)(); |
2050 |
|
vs_top=sup; |
2051 |
|
V211= vs_base[0]; |
2052 |
|
(void)(princ(V211,Cnil)); |
2053 |
|
goto T783; |
2054 |
|
T783:; |
2055 |
|
V209= CMPcdr((V209)); |
2056 |
|
V210= CMPcar((V209)); |
2057 |
|
goto T778;}} |
2058 |
|
} |
2059 |
|
} |
2060 |
|
/* function definition for INFO */ |
2061 |
|
|
2062 |
|
static void L27() |
2063 |
|
{register object *base=vs_base; |
2064 |
|
register object *sup=base+VM27; VC27 |
2065 |
|
vs_check; |
2066 |
|
bds_check; |
2067 |
|
{object V212; |
2068 |
|
object V213; |
2069 |
|
V212=(base[0]); |
2070 |
|
vs_base=vs_base+1; |
2071 |
|
if(vs_base>=vs_top){vs_top=sup;goto T802;} |
2072 |
|
V213=(base[1]); |
2073 |
|
vs_top=sup; |
2074 |
|
goto T803; |
2075 |
|
goto T802; |
2076 |
|
T802:; |
2077 |
|
V213= (VV[70]->s.s_dbind); |
2078 |
|
goto T803; |
2079 |
|
T803:; |
2080 |
|
{object V214; |
2081 |
|
register object V215; |
2082 |
|
object V216; |
2083 |
|
V214= Cnil; |
2084 |
|
bds_bind(VV[20],Cnil); |
2085 |
|
V215= Cnil; |
2086 |
|
V216= Cnil; |
2087 |
|
{object V217; |
2088 |
|
base[3]= (V212); |
2089 |
|
base[4]= (V213); |
2090 |
|
vs_top=(vs_base=base+3)+2; |
2091 |
|
(void) (*Lnk122)(); |
2092 |
|
vs_top=sup; |
2093 |
|
V217= vs_base[0]; |
2094 |
|
if(((VV[44]->s.s_dbind))==Cnil){ |
2095 |
|
goto T812;} |
2096 |
|
base[3]= (V217); |
2097 |
|
base[4]= (V213); |
2098 |
|
vs_top=(vs_base=base+3)+2; |
2099 |
|
(void) (*Lnk123)(); |
2100 |
|
bds_unwind1; |
2101 |
|
return; |
2102 |
|
goto T812; |
2103 |
|
T812:; |
2104 |
|
if(((V217))==Cnil){ |
2105 |
|
goto T817;} |
2106 |
|
base[3]= CMPmake_fixnum((long)length((V217))); |
2107 |
|
base[3]=MMcons(base[3],Cnil); |
2108 |
|
{register long V218; |
2109 |
|
V218= 0; |
2110 |
|
{register object V219; |
2111 |
|
register object V220; |
2112 |
|
V219= Cnil; |
2113 |
|
V220= (V217); |
2114 |
|
{object V221; |
2115 |
|
V221= Cnil; |
2116 |
|
goto T823; |
2117 |
|
T823:; |
2118 |
|
if(((V220))==Cnil){ |
2119 |
|
goto T826;} |
2120 |
|
goto T825; |
2121 |
|
goto T826; |
2122 |
|
T826:; |
2123 |
|
goto T824; |
2124 |
|
goto T825; |
2125 |
|
T825:; |
2126 |
|
{object V222; |
2127 |
|
V222= CMPcar((V220)); |
2128 |
|
V219= (V222);} |
2129 |
|
V215= Cnil; |
2130 |
|
V216= Cnil; |
2131 |
|
if(!(type_of((V219))==t_cons)){ |
2132 |
|
goto T836;} |
2133 |
|
if(!(type_of(CMPcdr((V219)))==t_cons)){ |
2134 |
|
goto T836;} |
2135 |
|
V215= CMPcadr((V219)); |
2136 |
|
V219= CMPcar((V219)); |
2137 |
|
goto T836; |
2138 |
|
T836:; |
2139 |
|
if(!(type_of((V219))==t_cons)){ |
2140 |
|
goto T835;} |
2141 |
|
V216= CMPcar((V219)); |
2142 |
|
V219= CMPcdr((V219)); |
2143 |
|
goto T835; |
2144 |
|
T835:; |
2145 |
|
base[4]= Ct; |
2146 |
|
base[5]= VV[72]; |
2147 |
|
base[6]= CMPmake_fixnum(V218); |
2148 |
|
base[7]= (V216); |
2149 |
|
if(!(((V215))==((V221)))){ |
2150 |
|
goto T856;} |
2151 |
|
base[8]= Cnil; |
2152 |
|
goto T854; |
2153 |
|
goto T856; |
2154 |
|
T856:; |
2155 |
|
V221= (V215); |
2156 |
|
base[8]= (V221); |
2157 |
|
goto T854; |
2158 |
|
T854:; |
2159 |
|
base[9]= (V219); |
2160 |
|
vs_top=(vs_base=base+4)+6; |
2161 |
|
Lformat(); |
2162 |
|
vs_top=sup; |
2163 |
|
if(!((V218)<(2147483646))){ |
2164 |
|
goto T861;} |
2165 |
|
goto T860; |
2166 |
|
goto T861; |
2167 |
|
T861:; |
2168 |
|
vs_base=vs_top; |
2169 |
|
(void) (*Lnk124)(); |
2170 |
|
vs_top=sup; |
2171 |
|
goto T860; |
2172 |
|
T860:; |
2173 |
|
V218= (long)(V218)+(1); |
2174 |
|
V220= CMPcdr((V220)); |
2175 |
|
goto T823; |
2176 |
|
goto T824; |
2177 |
|
T824:; |
2178 |
|
goto T820; |
2179 |
|
goto T820;}}} |
2180 |
|
goto T820; |
2181 |
|
T820:; |
2182 |
|
if(!(((long)length((V217)))>(1))){ |
2183 |
|
goto T870;} |
2184 |
|
base[4]= Ct; |
2185 |
|
base[5]= VV[74]; |
2186 |
|
vs_top=(vs_base=base+4)+2; |
2187 |
|
Lformat(); |
2188 |
|
vs_top=sup; |
2189 |
|
goto T868; |
2190 |
|
goto T870; |
2191 |
|
T870:; |
2192 |
|
princ_char(10,Cnil); |
2193 |
|
goto T868; |
2194 |
|
T868:; |
2195 |
|
{object V223; |
2196 |
|
object V224; |
2197 |
|
register object V225; |
2198 |
|
if(!(((long)length((V217)))>(1))){ |
2199 |
|
goto T876;} |
2200 |
|
vs_base=vs_top; |
2201 |
|
Lread_line(); |
2202 |
|
vs_top=sup; |
2203 |
|
V223= vs_base[0]; |
2204 |
|
goto T874; |
2205 |
|
goto T876; |
2206 |
|
T876:; |
2207 |
|
V223= VV[75]; |
2208 |
|
goto T874; |
2209 |
|
T874:; |
2210 |
|
V224= small_fixnum(0); |
2211 |
|
V225= Cnil; |
2212 |
|
goto T880; |
2213 |
|
T880:; |
2214 |
|
if(!(equal((V223),VV[76]))){ |
2215 |
|
goto T883;} |
2216 |
|
goto T882; |
2217 |
|
goto T883; |
2218 |
|
T883:; |
2219 |
|
goto T881; |
2220 |
|
goto T882; |
2221 |
|
T882:; |
2222 |
|
vs_base=vs_top; |
2223 |
|
Lread_line(); |
2224 |
|
vs_top=sup; |
2225 |
|
V223= vs_base[0]; |
2226 |
|
goto T880; |
2227 |
|
goto T881; |
2228 |
|
T881:; |
2229 |
|
goto T878; |
2230 |
|
goto T878; |
2231 |
|
goto T878; |
2232 |
|
T878:; |
2233 |
|
goto T890; |
2234 |
|
T890:;{object V226; |
2235 |
|
base[4]= (V223); |
2236 |
|
base[5]= Cnil; |
2237 |
|
base[6]= Cnil; |
2238 |
|
base[7]= VV[77]; |
2239 |
|
base[8]= (V224); |
2240 |
|
vs_top=(vs_base=base+4)+5; |
2241 |
|
(void) (*Lnk125)(); |
2242 |
|
if(vs_base<vs_top){ |
2243 |
|
V225= vs_base[0]; |
2244 |
|
vs_base++; |
2245 |
|
}else{ |
2246 |
|
V225= Cnil;} |
2247 |
|
if(vs_base<vs_top){ |
2248 |
|
V224= vs_base[0]; |
2249 |
|
}else{ |
2250 |
|
V224= Cnil;} |
2251 |
|
vs_top=sup; |
2252 |
|
V226= (V225); |
2253 |
|
if(V226==Cnil)goto T893; |
2254 |
|
goto T892; |
2255 |
|
goto T893; |
2256 |
|
T893:;} |
2257 |
|
goto T891; |
2258 |
|
goto T892; |
2259 |
|
T892:; |
2260 |
|
if(!(type_of((V225))==t_fixnum|| |
2261 |
|
type_of((V225))==t_bignum|| |
2262 |
|
type_of((V225))==t_ratio|| |
2263 |
|
type_of((V225))==t_shortfloat|| |
2264 |
|
type_of((V225))==t_longfloat|| |
2265 |
|
type_of((V225))==t_complex)){ |
2266 |
|
goto T903;} |
2267 |
|
V214= make_cons((V225),(V214)); |
2268 |
|
goto T901; |
2269 |
|
goto T903; |
2270 |
|
T903:; |
2271 |
|
V214= (V225); |
2272 |
|
goto T888; |
2273 |
|
goto T901; |
2274 |
|
T901:; |
2275 |
|
goto T890; |
2276 |
|
goto T891; |
2277 |
|
T891:; |
2278 |
|
goto T888; |
2279 |
|
goto T888; |
2280 |
|
goto T888; |
2281 |
|
T888:; |
2282 |
|
if(!(type_of((V214))==t_cons)){ |
2283 |
|
goto T911;} |
2284 |
|
V214= nreverse((V214)); |
2285 |
|
goto T909; |
2286 |
|
goto T911; |
2287 |
|
T911:; |
2288 |
|
if(!(type_of((V214))==t_symbol)){ |
2289 |
|
goto T909;} |
2290 |
|
V227= symbol_name((V214)); |
2291 |
|
if(equal(/* INLINE-ARGS */V227,VV[78])){ |
2292 |
|
goto T917;} |
2293 |
|
V214= Cnil; |
2294 |
|
goto T916; |
2295 |
|
goto T917; |
2296 |
|
T917:; |
2297 |
|
{register long V228; |
2298 |
|
long V229; |
2299 |
|
V228= 0; |
2300 |
|
{object V230; |
2301 |
|
V230= CMPmake_fixnum((long)length((V217)));{object V231; |
2302 |
|
V231= (type_of((V230))==t_fixnum?Ct:Cnil); |
2303 |
|
if(V231==Cnil)goto T923; |
2304 |
|
goto T922; |
2305 |
|
goto T923; |
2306 |
|
T923:;} |
2307 |
|
vs_base=vs_top; |
2308 |
|
(void) (*Lnk124)(); |
2309 |
|
vs_top=sup; |
2310 |
|
goto T922; |
2311 |
|
T922:; |
2312 |
|
V229= fix((V230));} |
2313 |
|
{object V232; |
2314 |
|
register object V233; |
2315 |
|
V232= Cnil; |
2316 |
|
V233= Cnil; |
2317 |
|
goto T926; |
2318 |
|
T926:; |
2319 |
|
if((V228)>=(V229)){ |
2320 |
|
goto T929;} |
2321 |
|
goto T928; |
2322 |
|
goto T929; |
2323 |
|
T929:; |
2324 |
|
goto T927; |
2325 |
|
goto T928; |
2326 |
|
T928:; |
2327 |
|
if(((V233))==Cnil){ |
2328 |
|
goto T933;} |
2329 |
|
{object V234; |
2330 |
|
object V235; |
2331 |
|
V234= (V233); |
2332 |
|
V236 = CMPmake_fixnum(V228); |
2333 |
|
V233= make_cons(V236,Cnil); |
2334 |
|
V235= (V233); |
2335 |
|
((V234))->c.c_cdr = (V235); |
2336 |
|
goto T931;} |
2337 |
|
goto T933; |
2338 |
|
T933:; |
2339 |
|
V237 = CMPmake_fixnum(V228); |
2340 |
|
V233= make_cons(V237,Cnil); |
2341 |
|
V232= (V233); |
2342 |
|
goto T931; |
2343 |
|
T931:; |
2344 |
|
V228= (long)(V228)+(1); |
2345 |
|
goto T926; |
2346 |
|
goto T927; |
2347 |
|
T927:; |
2348 |
|
V214= (V232); |
2349 |
|
goto T916; |
2350 |
|
V214= Cnil; |
2351 |
|
goto T916; |
2352 |
|
V214= Cnil; |
2353 |
|
goto T916;}} |
2354 |
|
goto T916; |
2355 |
|
T916:; |
2356 |
|
goto T909; |
2357 |
|
T909:; |
2358 |
|
if(((V214))==Cnil){ |
2359 |
|
goto T945;} |
2360 |
|
base[4]= |
2361 |
|
make_cclosure_new(LC31,Cnil,base[3],Cdata); |
2362 |
|
base[5]= (V214); |
2363 |
|
vs_top=(vs_base=base+4)+2; |
2364 |
|
(void) (*Lnk126)(); |
2365 |
|
vs_top=sup; |
2366 |
|
V214= vs_base[0]; |
2367 |
|
base[4]= Ct; |
2368 |
|
base[5]= VV[79]; |
2369 |
|
base[6]= CMPcar((VV[20]->s.s_dbind)); |
2370 |
|
vs_top=(vs_base=base+4)+3; |
2371 |
|
Lformat(); |
2372 |
|
vs_top=sup; |
2373 |
|
goto T945; |
2374 |
|
T945:; |
2375 |
|
{object V238; |
2376 |
|
register object V239; |
2377 |
|
V238= Cnil; |
2378 |
|
V239= (V214); |
2379 |
|
goto T956; |
2380 |
|
T956:; |
2381 |
|
if(((V239))==Cnil){ |
2382 |
|
goto T959;} |
2383 |
|
goto T958; |
2384 |
|
goto T959; |
2385 |
|
T959:; |
2386 |
|
goto T957; |
2387 |
|
goto T958; |
2388 |
|
T958:; |
2389 |
|
{object V240; |
2390 |
|
V240= CMPcar((V239)); |
2391 |
|
V238= (V240);} |
2392 |
|
base[4]= nth(fix((V238)),(V217)); |
2393 |
|
vs_top=(vs_base=base+4)+1; |
2394 |
|
(void) (*Lnk104)(); |
2395 |
|
vs_top=sup; |
2396 |
|
V241= vs_base[0]; |
2397 |
|
(void)(princ(V241,Cnil)); |
2398 |
|
V239= CMPcdr((V239)); |
2399 |
|
goto T956; |
2400 |
|
goto T957; |
2401 |
|
T957:; |
2402 |
|
base[4]= Cnil; |
2403 |
|
vs_top=(vs_base=base+4)+1; |
2404 |
|
bds_unwind1; |
2405 |
|
return; |
2406 |
|
base[4]= Cnil; |
2407 |
|
vs_top=(vs_base=base+4)+1; |
2408 |
|
bds_unwind1; |
2409 |
|
return;}} |
2410 |
|
goto T817; |
2411 |
|
T817:; |
2412 |
|
base[3]= Cnil; |
2413 |
|
vs_top=(vs_base=base+3)+1; |
2414 |
|
bds_unwind1; |
2415 |
|
return;}} |
2416 |
|
} |
2417 |
|
} |
2418 |
|
/* function definition for DEFAULT-INFO-HOTLIST */ |
2419 |
|
|
2420 |
|
static void L28() |
2421 |
|
{register object *base=vs_base; |
2422 |
|
register object *sup=base+VM28; VC28 |
2423 |
|
vs_check; |
2424 |
|
vs_top=sup; |
2425 |
|
goto TTL; |
2426 |
|
TTL:; |
2427 |
|
base[1]= VV[80]; |
2428 |
|
vs_base=vs_top; |
2429 |
|
(void) (*Lnk127)(); |
2430 |
|
vs_top=sup; |
2431 |
|
base[2]= vs_base[0]; |
2432 |
|
vs_top=(vs_base=base+1)+2; |
2433 |
|
Lmerge_pathnames(); |
2434 |
|
vs_top=sup; |
2435 |
|
base[0]= vs_base[0]; |
2436 |
|
vs_top=(vs_base=base+0)+1; |
2437 |
|
Lnamestring(); |
2438 |
|
return; |
2439 |
|
} |
2440 |
|
/* function definition for ADD-TO-HOTLIST */ |
2441 |
|
|
2442 |
|
static void L29() |
2443 |
|
{register object *VOL base=vs_base; |
2444 |
|
register object *VOL sup=base+VM29; VC29 |
2445 |
|
vs_check; |
2446 |
|
vs_top=sup; |
2447 |
|
goto TTL; |
2448 |
|
TTL:; |
2449 |
|
if(!(type_of(base[0])==t_symbol)){ |
2450 |
|
goto T973;} |
2451 |
|
{object V242 =(base[0])->s.s_plist; |
2452 |
|
object ind= VV[69]; |
2453 |
|
while(V242!=Cnil){ |
2454 |
|
if(V242->c.c_car==ind){ |
2455 |
|
base[0]= (V242->c.c_cdr->c.c_car); |
2456 |
|
goto T976; |
2457 |
|
}else V242=V242->c.c_cdr->c.c_cdr;} |
2458 |
|
base[0]= Cnil;} |
2459 |
|
goto T976; |
2460 |
|
T976:; |
2461 |
|
goto T973; |
2462 |
|
T973:; |
2463 |
|
if((base[0])==Cnil){ |
2464 |
|
goto T978;} |
2465 |
|
vs_base=vs_top; |
2466 |
|
(void) (*Lnk128)(); |
2467 |
|
vs_top=sup; |
2468 |
|
base[2]= vs_base[0]; |
2469 |
|
base[3]= VV[81]; |
2470 |
|
base[4]= VV[82]; |
2471 |
|
base[5]= VV[83]; |
2472 |
|
base[6]= VV[84]; |
2473 |
|
base[7]= VV[85]; |
2474 |
|
base[8]= VV[86]; |
2475 |
|
vs_top=(vs_base=base+2)+7; |
2476 |
|
(void) (*Lnk91)(); |
2477 |
|
vs_top=sup; |
2478 |
|
base[1]= vs_base[0]; |
2479 |
|
frs_push(FRS_PROTECT,Cnil); |
2480 |
|
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active; |
2481 |
|
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
2482 |
|
else{ |
2483 |
|
base[3]= base[1]; |
2484 |
|
vs_top=(vs_base=base+3)+1; |
2485 |
|
Lfile_position(); |
2486 |
|
vs_top=sup; |
2487 |
|
V243= vs_base[0]; |
2488 |
|
if(!(number_compare(V243,small_fixnum(10))<0)){ |
2489 |
|
goto T989;} |
2490 |
|
(void)(princ(VV[87],base[1])); |
2491 |
|
goto T989; |
2492 |
|
T989:; |
2493 |
|
base[3]= base[1]; |
2494 |
|
base[4]= VV[88]; |
2495 |
|
base[5]= CMPcaddr(CMPcddddr(base[0])); |
2496 |
|
base[6]= CMPcar(CMPcddddr(base[0])); |
2497 |
|
vs_top=(vs_base=base+3)+4; |
2498 |
|
Lformat(); |
2499 |
|
active=FALSE;} |
2500 |
|
base[2]=Cnil; |
2501 |
|
while(vs_base<vs_top) |
2502 |
|
{base[2]=MMcons(vs_top[-1],base[2]);vs_top--;} |
2503 |
|
vs_top=sup; |
2504 |
|
nlj_active=FALSE;frs_pop(); |
2505 |
|
if((base[1])==Cnil){ |
2506 |
|
goto T998;} |
2507 |
|
base[3]= base[1]; |
2508 |
|
vs_top=(vs_base=base+3)+1; |
2509 |
|
Lclose(); |
2510 |
|
vs_top=sup; |
2511 |
|
goto T998; |
2512 |
|
T998:; |
2513 |
|
vs_base=vs_top=base+3; |
2514 |
|
for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
2515 |
|
if(active)unwind(fr,tag);else{ |
2516 |
|
return;}} |
2517 |
|
goto T978; |
2518 |
|
T978:; |
2519 |
|
base[1]= Cnil; |
2520 |
|
vs_top=(vs_base=base+1)+1; |
2521 |
|
return; |
2522 |
|
} |
2523 |
|
/* function definition for LIST-MATCHES */ |
2524 |
|
|
2525 |
|
static void L30() |
2526 |
|
{register object *base=vs_base; |
2527 |
|
register object *sup=base+VM30; VC30 |
2528 |
|
vs_check; |
2529 |
|
{object V244; |
2530 |
|
object V245; |
2531 |
|
V244=(base[0]); |
2532 |
|
vs_base=vs_base+1; |
2533 |
|
vs_top[0]=Cnil; |
2534 |
|
{object *p=vs_top; |
2535 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
2536 |
|
V245=(base[1]); |
2537 |
|
vs_top=sup; |
2538 |
|
{register object V246; |
2539 |
|
register object V247; |
2540 |
|
V246= Cnil; |
2541 |
|
V247= (V245); |
2542 |
|
{object V248; |
2543 |
|
register object V249; |
2544 |
|
register object V250; |
2545 |
|
V248= Cnil; |
2546 |
|
V249= Cnil; |
2547 |
|
V250= Cnil; |
2548 |
|
goto T1003; |
2549 |
|
T1003:; |
2550 |
|
if(((V247))==Cnil){ |
2551 |
|
goto T1006;} |
2552 |
|
goto T1005; |
2553 |
|
goto T1006; |
2554 |
|
T1006:; |
2555 |
|
goto T1004; |
2556 |
|
goto T1005; |
2557 |
|
T1005:; |
2558 |
|
{register object V251; |
2559 |
|
V251= CMPcar((V247)); |
2560 |
|
V246= (V251);} |
2561 |
|
{long V252= (long)(*(LnkLI96))(fix((V246))); |
2562 |
|
if((/* INLINE-ARGS */V252)>=(0)){ |
2563 |
|
goto T1013;}} |
2564 |
|
V250= Cnil; |
2565 |
|
goto T1012; |
2566 |
|
goto T1013; |
2567 |
|
T1013:; |
2568 |
|
base[2]= (V244); |
2569 |
|
base[3]= (V246); |
2570 |
|
vs_top=(vs_base=base+2)+2; |
2571 |
|
(void) (*Lnk98)(); |
2572 |
|
vs_top=sup; |
2573 |
|
V250= vs_base[0]; |
2574 |
|
goto T1012; |
2575 |
|
T1012:; |
2576 |
|
if(((V249))==Cnil){ |
2577 |
|
goto T1019;} |
2578 |
|
{register object V253; |
2579 |
|
register object V254; |
2580 |
|
V253= (V249); |
2581 |
|
V249= make_cons((V250),Cnil); |
2582 |
|
V254= (V249); |
2583 |
|
((V253))->c.c_cdr = (V254); |
2584 |
|
goto T1017;} |
2585 |
|
goto T1019; |
2586 |
|
T1019:; |
2587 |
|
V249= make_cons((V250),Cnil); |
2588 |
|
V248= (V249); |
2589 |
|
goto T1017; |
2590 |
|
T1017:; |
2591 |
|
V247= CMPcdr((V247)); |
2592 |
|
goto T1003; |
2593 |
|
goto T1004; |
2594 |
|
T1004:; |
2595 |
|
base[2]= (V248); |
2596 |
|
vs_top=(vs_base=base+2)+1; |
2597 |
|
return; |
2598 |
|
base[2]= Cnil; |
2599 |
|
vs_top=(vs_base=base+2)+1; |
2600 |
|
return; |
2601 |
|
base[2]= Cnil; |
2602 |
|
vs_top=(vs_base=base+2)+1; |
2603 |
|
return;}} |
2604 |
|
} |
2605 |
|
} |
2606 |
|
/* local function CLOSURE */ |
2607 |
|
|
2608 |
|
static void LC31(base0) |
2609 |
|
register object *base0; |
2610 |
|
{ register object *base=vs_base; |
2611 |
|
register object *sup=base+VM31; VC31 |
2612 |
|
vs_check; |
2613 |
|
{object V255; |
2614 |
|
V255=(base[0]); |
2615 |
|
vs_top=sup; |
2616 |
|
if(type_of((V255))==t_fixnum||type_of((V255))==t_bignum){ |
2617 |
|
goto T1031;} |
2618 |
|
base[1]= Cnil; |
2619 |
|
vs_top=(vs_base=base+1)+1; |
2620 |
|
return; |
2621 |
|
goto T1031; |
2622 |
|
T1031:; |
2623 |
|
base[1]= (number_compare((V255),(base0[0]->c.c_car))>=0?Ct:Cnil); |
2624 |
|
vs_top=(vs_base=base+1)+1; |
2625 |
|
return; |
2626 |
|
} |
2627 |
|
} |
2628 |
|
static void LnkT128(){ call_or_link(VV[128],(void **)(void *)&Lnk128);} /* DEFAULT-INFO-HOTLIST */ |
2629 |
|
static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* USER-HOMEDIR-PATHNAME */ |
2630 |
|
static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* REMOVE-IF */ |
2631 |
|
static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* READ-FROM-STRING */ |
2632 |
|
static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* TYPE-ERROR */ |
2633 |
|
static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* OFFER-CHOICES */ |
2634 |
|
static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* INFO-AUX */ |
2635 |
|
static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* ADD-FILE */ |
2636 |
|
static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* GET-INFO-CHOICES */ |
2637 |
|
static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* END-WAITING */ |
2638 |
|
static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* PRINT-NODE */ |
2639 |
|
static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* GET-NODE-INDEX */ |
2640 |
|
static void LnkT116(){ call_or_link(VV[116],(void **)(void *)&Lnk116);} /* SETUP-INFO */ |
2641 |
|
static void LnkT115(){ call_or_link(VV[115],(void **)(void *)&Lnk115);} /* WAITING */ |
2642 |
|
static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* INFO-GET-FILE */ |
2643 |
|
static void LnkT113(){ call_or_link(VV[113],(void **)(void *)&Lnk113);} /* INFO-SUBFILE */ |
2644 |
|
static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* WINFO */ |
2645 |
|
static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* TKERROR */ |
2646 |
|
static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* NODES-FROM-INDEX */ |
2647 |
|
static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* INFO-GET-TAGS */ |
2648 |
|
static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* SEARCH */ |
2649 |
|
static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* FILE-SEARCH */ |
2650 |
|
static void LnkT106(){ call_or_link(VV[106],(void **)(void *)&Lnk106);} /* FIX-LOAD-PATH */ |
2651 |
|
static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* GET-INDEX-NODE */ |
2652 |
|
static void LnkT104(){ call_or_link(VV[104],(void **)(void *)&Lnk104);} /* SHOW-INFO */ |
2653 |
|
static void LnkT103(){ call_or_link(VV[103],(void **)(void *)&Lnk103);} /* GET-NODES */ |
2654 |
|
static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* STRING-CONCATENATE */ |
2655 |
|
static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* RE-QUOTE-STRING */ |
2656 |
|
static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* POSITION */ |
2657 |
|
static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* INFO-ERROR */ |
2658 |
|
static void LnkT98(){ call_or_link(VV[98],(void **)(void *)&Lnk98);} /* GET-MATCH */ |
2659 |
|
static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* ATOI */ |
2660 |
|
static object LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,4353,first,ap);va_end(ap);return V1;} /* MATCH-BEGINNING */ |
2661 |
|
static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,4353,first,ap);va_end(ap);return V1;} /* MATCH-END */ |
2662 |
|
static object LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[94],(void **)(void *)&LnkLI94,first,ap);va_end(ap);return V1;} /* STRING-MATCH */ |
2663 |
|
static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* FILE-TO-STRING */ |
2664 |
|
static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* FREAD */ |
2665 |
|
static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* OPEN */ |
2666 |
|
static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* VECTOR-PUSH-EXTEND */ |
2667 |
|
static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* MAKE-ARRAY */ |
2668 |
|
|
2669 |
|
#ifdef SYSTEM_SPECIAL_INIT |
2670 |
|
SYSTEM_SPECIAL_INIT |
2671 |
|
#endif |
2672 |
|
|