1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "info.h" |
#include "info.h" |
4 |
init_info(){do_init(VV);} |
void init_info(){do_init(VV);} |
5 |
/* function definition for SHARP-U-READER */ |
/* function definition for SHARP-U-READER */ |
6 |
|
|
7 |
static L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_reserve(VM1); |
16 |
V2=(base[1]); |
V2=(base[1]); |
17 |
V3=(base[2]); |
V3=(base[2]); |
18 |
vs_top=sup; |
vs_top=sup; |
19 |
|
goto TTL; |
20 |
TTL:; |
TTL:; |
21 |
{register object V4; |
{register object V4; |
22 |
V4= (VFUN_NARGS=5,(*(LnkLI88))(small_fixnum(10),VV[0],VV[1],VV[2],small_fixnum(0))); |
V4= (VFUN_NARGS=5,(*(LnkLI88))(small_fixnum(10),VV[0],VV[1],VV[2],small_fixnum(0))); |
28 |
if(!(eql(V5,VV[3]))){ |
if(!(eql(V5,VV[3]))){ |
29 |
goto T5;} |
goto T5;} |
30 |
goto T4; |
goto T4; |
31 |
|
goto T5; |
32 |
T5:; |
T5:; |
33 |
base[3]= VV[4]; |
base[3]= VV[4]; |
34 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
35 |
Lerror(); |
Lerror(); |
36 |
vs_top=sup; |
vs_top=sup; |
37 |
|
goto T4; |
38 |
T4:; |
T4:; |
39 |
|
goto T12; |
40 |
T12:; |
T12:; |
41 |
{register object V6; |
{register object V6; |
42 |
base[3]= (V1); |
base[3]= (V1); |
47 |
if(!(eql((V6),VV[3]))){ |
if(!(eql((V6),VV[3]))){ |
48 |
goto T18;} |
goto T18;} |
49 |
goto T10; |
goto T10; |
50 |
|
goto T18; |
51 |
T18:; |
T18:; |
52 |
if(!(eql((V6),VV[5]))){ |
if(!(eql((V6),VV[5]))){ |
53 |
goto T16;} |
goto T16;} |
63 |
goto T28; |
goto T28; |
64 |
}else V9=V9->c.c_cdr; |
}else V9=V9->c.c_cdr; |
65 |
V8= Cnil;} |
V8= Cnil;} |
66 |
|
goto T28; |
67 |
T28:; |
T28:; |
68 |
V7= cdr(V8); |
V7= cdr(V8); |
69 |
if(V7==Cnil)goto T26; |
if(V7==Cnil)goto T26; |
70 |
V6= V7; |
V6= V7; |
71 |
goto T25; |
goto T25; |
72 |
|
goto T26; |
73 |
T26:;} |
T26:;} |
74 |
|
goto T25; |
75 |
T25:; |
T25:; |
76 |
|
goto T16; |
77 |
T16:; |
T16:; |
78 |
(void)((VFUN_NARGS=2,(*(LnkLI89))((V6),(V4))));} |
(void)((VFUN_NARGS=2,(*(LnkLI89))((V6),(V4))));} |
79 |
goto T12; |
goto T12; |
80 |
|
goto T10; |
81 |
T10:; |
T10:; |
82 |
base[3]= (V4); |
base[3]= (V4); |
83 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
86 |
} |
} |
87 |
/* function definition for FILE-TO-STRING */ |
/* function definition for FILE-TO-STRING */ |
88 |
|
|
89 |
static L2() |
static void L2() |
90 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
91 |
register object *VOL sup=base+VM2; VC2 |
register object *VOL sup=base+VM2; VC2 |
92 |
vs_reserve(VM2); |
vs_reserve(VM2); |
99 |
if(vs_base>=vs_top){vs_top=sup;goto T30;} |
if(vs_base>=vs_top){vs_top=sup;goto T30;} |
100 |
vs_top=sup; |
vs_top=sup; |
101 |
goto T31; |
goto T31; |
102 |
|
goto T30; |
103 |
T30:; |
T30:; |
104 |
base[1]= small_fixnum(0); |
base[1]= small_fixnum(0); |
105 |
|
goto T31; |
106 |
T31:; |
T31:; |
107 |
bds_bind(VV[7],Ct); |
bds_bind(VV[7],Ct); |
108 |
base[3]= small_fixnum(0); |
base[3]= small_fixnum(0); |
111 |
(void) (*Lnk90)(); |
(void) (*Lnk90)(); |
112 |
vs_top=sup; |
vs_top=sup; |
113 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
|
{object tag;frame_ptr fr;object p;bool active; |
|
114 |
frs_push(FRS_PROTECT,Cnil); |
frs_push(FRS_PROTECT,Cnil); |
115 |
|
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active; |
116 |
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
117 |
else{ |
else{ |
118 |
base[6]= base[4]; |
base[6]= base[4]; |
124 |
goto T42;} |
goto T42;} |
125 |
V11= Cnil; |
V11= Cnil; |
126 |
goto T41; |
goto T41; |
127 |
|
goto T42; |
128 |
T42:; |
T42:; |
129 |
V11= (number_compare(base[1],base[3])<=0?Ct:Cnil); |
V11= (number_compare(base[1],base[3])<=0?Ct:Cnil); |
130 |
|
goto T41; |
131 |
T41:; |
T41:; |
132 |
if(V11==Cnil)goto T40; |
if(V11==Cnil)goto T40; |
133 |
goto T39; |
goto T39; |
134 |
|
goto T40; |
135 |
T40:;} |
T40:;} |
136 |
base[6]= VV[8]; |
base[6]= VV[8]; |
137 |
base[7]= base[1]; |
base[7]= base[1]; |
138 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
139 |
Lerror(); |
Lerror(); |
140 |
vs_top=sup; |
vs_top=sup; |
141 |
|
goto T39; |
142 |
T39:; |
T39:; |
143 |
{object V12; |
{object V12; |
144 |
V13= number_minus(base[3],base[1]); |
V13= number_minus(base[3],base[1]); |
150 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
151 |
Lfile_position(); |
Lfile_position(); |
152 |
vs_top=sup; |
vs_top=sup; |
153 |
|
goto T47; |
154 |
T47:; |
T47:; |
155 |
base[6]= (V12); |
base[6]= (V12); |
156 |
base[7]= small_fixnum(0); |
base[7]= small_fixnum(0); |
173 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
174 |
Lclose(); |
Lclose(); |
175 |
vs_top=sup; |
vs_top=sup; |
176 |
|
goto T57; |
177 |
T57:; |
T57:; |
178 |
vs_base=vs_top=base+6; |
vs_base=vs_top=base+6; |
179 |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
184 |
} |
} |
185 |
/* function definition for ATOI */ |
/* function definition for ATOI */ |
186 |
|
|
187 |
static L3() |
static void L3() |
188 |
{register object *base=vs_base; |
{register object *base=vs_base; |
189 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
190 |
vs_reserve(VM3); |
vs_reserve(VM3); |
194 |
V14=(base[0]); |
V14=(base[0]); |
195 |
V15=fix(base[1]); |
V15=fix(base[1]); |
196 |
vs_top=sup; |
vs_top=sup; |
197 |
|
goto TTL; |
198 |
TTL:; |
TTL:; |
199 |
{register long V16; |
{register long V16; |
200 |
register long V17; |
register long V17; |
202 |
V16= 0; |
V16= 0; |
203 |
V17= 0; |
V17= 0; |
204 |
V18= length((V14)); |
V18= length((V14)); |
205 |
|
goto T66; |
206 |
T66:; |
T66:; |
207 |
if(!((V15)<(V18))){ |
if(!((V15)<(V18))){ |
208 |
goto T69;} |
goto T69;} |
209 |
goto T68; |
goto T68; |
210 |
|
goto T69; |
211 |
T69:; |
T69:; |
212 |
goto T67; |
goto T67; |
213 |
|
goto T68; |
214 |
T68:; |
T68:; |
215 |
{unsigned char V19= char_code(aref1((V14),V15)); |
{unsigned char V19= char_code(aref1((V14),V15)); |
216 |
V17= (/* INLINE-ARGS */V19);} |
V17= (/* INLINE-ARGS */V19);} |
225 |
V22= number_times(small_fixnum(10),V21); |
V22= number_times(small_fixnum(10),V21); |
226 |
V16= fix(number_plus(V20,/* INLINE-ARGS */V22)); |
V16= fix(number_plus(V20,/* INLINE-ARGS */V22)); |
227 |
goto T77; |
goto T77; |
228 |
|
goto T79; |
229 |
T79:; |
T79:; |
230 |
goto T64; |
goto T64; |
231 |
|
goto T77; |
232 |
T77:; |
T77:; |
233 |
goto T66; |
goto T66; |
234 |
|
goto T67; |
235 |
T67:; |
T67:; |
236 |
goto T64; |
goto T64; |
237 |
goto T64; |
goto T64; |
238 |
|
goto T64; |
239 |
T64:; |
T64:; |
240 |
base[2]= make_fixnum(V16); |
base[2]= make_fixnum(V16); |
241 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
244 |
} |
} |
245 |
/* function definition for INFO-GET-TAGS */ |
/* function definition for INFO-GET-TAGS */ |
246 |
|
|
247 |
static L4() |
static void L4() |
248 |
{register object *base=vs_base; |
{register object *base=vs_base; |
249 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
250 |
vs_reserve(VM4); |
vs_reserve(VM4); |
253 |
check_arg(1); |
check_arg(1); |
254 |
V23=(base[0]); |
V23=(base[0]); |
255 |
vs_top=sup; |
vs_top=sup; |
256 |
|
goto TTL; |
257 |
TTL:; |
TTL:; |
258 |
{register long V24; |
{register long V24; |
259 |
object V25; |
object V25; |
277 |
V28= (*(LnkLI94))(0); |
V28= (*(LnkLI94))(0); |
278 |
V30 = make_fixnum(V28); |
V30 = make_fixnum(V28); |
279 |
V24= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V27),V30))); |
V24= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V27),V30))); |
280 |
|
goto T99; |
281 |
T99:; |
T99:; |
282 |
V31 = make_fixnum(V28); |
V31 = make_fixnum(V28); |
283 |
V32 = make_fixnum(V24); |
V32 = make_fixnum(V24); |
285 |
if(!((/* INLINE-ARGS */V33)>=(0))){ |
if(!((/* INLINE-ARGS */V33)>=(0))){ |
286 |
goto T102;}} |
goto T102;}} |
287 |
goto T101; |
goto T101; |
288 |
|
goto T102; |
289 |
T102:; |
T102:; |
290 |
goto T100; |
goto T100; |
291 |
|
goto T101; |
292 |
T101:; |
T101:; |
293 |
V28= (*(LnkLI94))(0); |
V28= (*(LnkLI94))(0); |
294 |
base[3]= (V27); |
base[3]= (V27); |
306 |
V36= make_cons(V34,V35); |
V36= make_cons(V34,V35); |
307 |
V26= make_cons(/* INLINE-ARGS */V36,(V26)); |
V26= make_cons(/* INLINE-ARGS */V36,(V26)); |
308 |
goto T99; |
goto T99; |
309 |
|
goto T100; |
310 |
T100:; |
T100:; |
311 |
goto T91; |
goto T91; |
312 |
goto T91; |
goto T91; |
313 |
|
goto T91; |
314 |
T91:; |
T91:; |
315 |
V37 = make_fixnum(V28); |
V37 = make_fixnum(V28); |
316 |
{long V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V27),V37))); |
{long V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V27),V37))); |
328 |
Lsubseq(); |
Lsubseq(); |
329 |
vs_top=sup; |
vs_top=sup; |
330 |
V25= vs_base[0]; |
V25= vs_base[0]; |
331 |
|
goto T115; |
332 |
T115:; |
T115:; |
333 |
if(((V26))==Cnil){ |
if(((V26))==Cnil){ |
334 |
goto T126;} |
goto T126;} |
338 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
339 |
(void) (*Lnk98)(); |
(void) (*Lnk98)(); |
340 |
vs_top=sup; |
vs_top=sup; |
341 |
|
goto T126; |
342 |
T126:; |
T126:; |
343 |
V41= nreverse((V26)); |
V41= nreverse((V26)); |
344 |
base[3]= make_cons((V25),/* INLINE-ARGS */V41); |
base[3]= make_cons((V25),/* INLINE-ARGS */V41); |
350 |
} |
} |
351 |
/* function definition for RE-QUOTE-STRING */ |
/* function definition for RE-QUOTE-STRING */ |
352 |
|
|
353 |
static L5() |
static void L5() |
354 |
{register object *base=vs_base; |
{register object *base=vs_base; |
355 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
356 |
vs_reserve(VM5); |
vs_reserve(VM5); |
358 |
check_arg(1); |
check_arg(1); |
359 |
V42=(base[0]); |
V42=(base[0]); |
360 |
vs_top=sup; |
vs_top=sup; |
361 |
|
goto TTL; |
362 |
TTL:; |
TTL:; |
363 |
{register long V43; |
{register long V43; |
364 |
long V44; |
long V44; |
370 |
V46= 0; |
V46= 0; |
371 |
{register object V47; |
{register object V47; |
372 |
V47= Cnil; |
V47= Cnil; |
373 |
|
goto T136; |
374 |
T136:; |
T136:; |
375 |
|
goto T139; |
376 |
T139:; |
T139:; |
377 |
if(!((V43)<(V44))){ |
if(!((V43)<(V44))){ |
378 |
goto T142;} |
goto T142;} |
379 |
goto T141; |
goto T141; |
380 |
|
goto T142; |
381 |
T142:; |
T142:; |
382 |
goto T140; |
goto T140; |
383 |
|
goto T141; |
384 |
T141:; |
T141:; |
385 |
V45= aref1((V42),V43); |
V45= aref1((V42),V43); |
386 |
if(((VFUN_NARGS=2,(*(LnkLI99))((V45),VV[17])))==Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI99))((V45),VV[17])))==Cnil){ |
389 |
goto T150;} |
goto T150;} |
390 |
(void)((VFUN_NARGS=2,(*(LnkLI89))(VV[5],(V47)))); |
(void)((VFUN_NARGS=2,(*(LnkLI89))(VV[5],(V47)))); |
391 |
goto T146; |
goto T146; |
392 |
|
goto T150; |
393 |
T150:; |
T150:; |
394 |
V46= (V46)+(1); |
V46= (V46)+(1); |
395 |
|
goto T146; |
396 |
T146:; |
T146:; |
397 |
if(((V47))==Cnil){ |
if(((V47))==Cnil){ |
398 |
goto T153;} |
goto T153;} |
399 |
(void)((VFUN_NARGS=2,(*(LnkLI89))((V45),(V47)))); |
(void)((VFUN_NARGS=2,(*(LnkLI89))((V45),(V47)))); |
400 |
|
goto T153; |
401 |
T153:; |
T153:; |
402 |
V43= (V43)+(1); |
V43= (V43)+(1); |
403 |
goto T139; |
goto T139; |
404 |
|
goto T140; |
405 |
T140:; |
T140:; |
406 |
goto T137; |
goto T137; |
407 |
goto T137; |
goto T137; |
408 |
|
goto T137; |
409 |
T137:; |
T137:; |
410 |
{register object V48; |
{register object V48; |
411 |
V48= (V47); |
V48= (V47); |
412 |
if(((V48))==Cnil){ |
if(((V48))==Cnil){ |
413 |
goto T161;} |
goto T161;} |
414 |
goto T159; |
goto T159; |
415 |
|
goto T161; |
416 |
T161:; |
T161:; |
417 |
if(!((V46)>(0))){ |
if(!((V46)>(0))){ |
418 |
goto T164;} |
goto T164;} |
420 |
V47= (VFUN_NARGS=5,(*(LnkLI88))(V49,VV[0],VV[1],VV[2],small_fixnum(0))); |
V47= (VFUN_NARGS=5,(*(LnkLI88))(V49,VV[0],VV[1],VV[2],small_fixnum(0))); |
421 |
V43= 0; |
V43= 0; |
422 |
goto T136; |
goto T136; |
423 |
|
goto T164; |
424 |
T164:; |
T164:; |
425 |
V47= (V42);} |
V47= (V42);} |
426 |
|
goto T159; |
427 |
T159:; |
T159:; |
428 |
goto T134; |
goto T134; |
429 |
|
goto T134; |
430 |
T134:; |
T134:; |
431 |
base[1]= (V47); |
base[1]= (V47); |
432 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
435 |
} |
} |
436 |
/* function definition for GET-MATCH */ |
/* function definition for GET-MATCH */ |
437 |
|
|
438 |
static L6() |
static void L6() |
439 |
{register object *base=vs_base; |
{register object *base=vs_base; |
440 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
441 |
vs_reserve(VM6); |
vs_reserve(VM6); |
445 |
V50=(base[0]); |
V50=(base[0]); |
446 |
V51=(base[1]); |
V51=(base[1]); |
447 |
vs_top=sup; |
vs_top=sup; |
448 |
|
goto TTL; |
449 |
TTL:; |
TTL:; |
450 |
base[2]= (V50); |
base[2]= (V50); |
451 |
base[3]= make_fixnum((*(LnkLI95))(fix((V51)))); |
base[3]= make_fixnum((*(LnkLI95))(fix((V51)))); |
457 |
} |
} |
458 |
/* function definition for GET-NODES */ |
/* function definition for GET-NODES */ |
459 |
|
|
460 |
static L7() |
static void L7() |
461 |
{register object *base=vs_base; |
{register object *base=vs_base; |
462 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
463 |
vs_reserve(VM7); |
vs_reserve(VM7); |
468 |
V52=(base[0]); |
V52=(base[0]); |
469 |
V53=(base[1]); |
V53=(base[1]); |
470 |
vs_top=sup; |
vs_top=sup; |
471 |
|
goto TTL; |
472 |
TTL:; |
TTL:; |
473 |
{register long V54; |
{register long V54; |
474 |
register object V55; |
register object V55; |
489 |
(void) (*Lnk101)(); |
(void) (*Lnk101)(); |
490 |
vs_top=sup; |
vs_top=sup; |
491 |
V52= vs_base[0]; |
V52= vs_base[0]; |
492 |
|
goto T187; |
493 |
T187:; |
T187:; |
494 |
V56 = make_fixnum(V54); |
V56 = make_fixnum(V54); |
495 |
{long V57= fix((VFUN_NARGS=3,(*(LnkLI93))((V52),(V53),V56))); |
{long V57= fix((VFUN_NARGS=3,(*(LnkLI93))((V52),(V53),V56))); |
496 |
if(!((/* INLINE-ARGS */V57)>=(0))){ |
if(!((/* INLINE-ARGS */V57)>=(0))){ |
497 |
goto T190;}} |
goto T190;}} |
498 |
goto T189; |
goto T189; |
499 |
|
goto T190; |
500 |
T190:; |
T190:; |
501 |
goto T188; |
goto T188; |
502 |
|
goto T189; |
503 |
T189:; |
T189:; |
504 |
V54= (*(LnkLI94))(0); |
V54= (*(LnkLI94))(0); |
505 |
base[4]= (V53); |
base[4]= (V53); |
510 |
V58= vs_base[0]; |
V58= vs_base[0]; |
511 |
V55= make_cons(V58,(V55)); |
V55= make_cons(V58,(V55)); |
512 |
goto T187; |
goto T187; |
513 |
|
goto T188; |
514 |
T188:; |
T188:; |
515 |
goto T185; |
goto T185; |
516 |
goto T185; |
goto T185; |
517 |
|
goto T185; |
518 |
T185:; |
T185:; |
519 |
base[4]= nreverse((V55)); |
base[4]= nreverse((V55)); |
520 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
521 |
bds_unwind1; |
bds_unwind1; |
522 |
bds_unwind1; |
bds_unwind1; |
523 |
return; |
return; |
524 |
|
goto T177; |
525 |
T177:; |
T177:; |
526 |
base[4]= Cnil; |
base[4]= Cnil; |
527 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
532 |
} |
} |
533 |
/* function definition for GET-INDEX-NODE */ |
/* function definition for GET-INDEX-NODE */ |
534 |
|
|
535 |
static L8() |
static void L8() |
536 |
{register object *base=vs_base; |
{register object *base=vs_base; |
537 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
538 |
vs_reserve(VM8); |
vs_reserve(VM8); |
539 |
check_arg(0); |
check_arg(0); |
540 |
vs_top=sup; |
vs_top=sup; |
541 |
|
goto TTL; |
542 |
TTL:;{object V59; |
TTL:;{object V59; |
543 |
V59= caddr(symbol_value(VV[20])); |
V59= caddr(symbol_value(VV[20])); |
544 |
if(V59==Cnil)goto T200; |
if(V59==Cnil)goto T200; |
545 |
base[0]= V59; |
base[0]= V59; |
546 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
547 |
return; |
return; |
548 |
|
goto T200; |
549 |
T200:;} |
T200:;} |
550 |
{object V60; |
{object V60; |
551 |
object V61; |
object V61; |
562 |
vs_top=sup; |
vs_top=sup; |
563 |
V63= vs_base[0]; |
V63= vs_base[0]; |
564 |
V62= car(V63); |
V62= car(V63); |
565 |
|
goto T204; |
566 |
T204:; |
T204:; |
567 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
568 |
goto T209;} |
goto T209;} |
581 |
base[2]= V60; |
base[2]= V60; |
582 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
583 |
return;} |
return;} |
584 |
|
goto T209; |
585 |
T209:; |
T209:; |
586 |
base[2]= Cnil; |
base[2]= Cnil; |
587 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
589 |
} |
} |
590 |
/* function definition for NODES-FROM-INDEX */ |
/* function definition for NODES-FROM-INDEX */ |
591 |
|
|
592 |
static L9() |
static void L9() |
593 |
{register object *base=vs_base; |
{register object *base=vs_base; |
594 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
595 |
vs_reserve(VM9); |
vs_reserve(VM9); |
598 |
check_arg(1); |
check_arg(1); |
599 |
V66=(base[0]); |
V66=(base[0]); |
600 |
vs_top=sup; |
vs_top=sup; |
601 |
|
goto TTL; |
602 |
TTL:; |
TTL:; |
603 |
{register object V67; |
{register object V67; |
604 |
register object V68; |
register object V68; |
624 |
(void) (*Lnk101)(); |
(void) (*Lnk101)(); |
625 |
vs_top=sup; |
vs_top=sup; |
626 |
V66= vs_base[0]; |
V66= vs_base[0]; |
627 |
|
goto T232; |
628 |
T232:; |
T232:; |
629 |
{long V70= fix((VFUN_NARGS=3,(*(LnkLI93))((V66),(V69),(V67)))); |
{long V70= fix((VFUN_NARGS=3,(*(LnkLI93))((V66),(V69),(V67)))); |
630 |
if(!((/* INLINE-ARGS */V70)>=(0))){ |
if(!((/* INLINE-ARGS */V70)>=(0))){ |
631 |
goto T235;}} |
goto T235;}} |
632 |
goto T234; |
goto T234; |
633 |
|
goto T235; |
634 |
T235:; |
T235:; |
635 |
goto T233; |
goto T233; |
636 |
|
goto T234; |
637 |
T234:; |
T234:; |
638 |
V67= make_fixnum((*(LnkLI94))(0)); |
V67= make_fixnum((*(LnkLI94))(0)); |
639 |
base[3]= (V69); |
base[3]= (V69); |
651 |
V73= make_cons(V71,V72); |
V73= make_cons(V71,V72); |
652 |
V68= make_cons(/* INLINE-ARGS */V73,(V68)); |
V68= make_cons(/* INLINE-ARGS */V73,(V68)); |
653 |
goto T232; |
goto T232; |
654 |
|
goto T233; |
655 |
T233:; |
T233:; |
656 |
goto T230; |
goto T230; |
657 |
goto T230; |
goto T230; |
658 |
|
goto T230; |
659 |
T230:; |
T230:; |
660 |
base[3]= nreverse((V68)); |
base[3]= nreverse((V68)); |
661 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
662 |
bds_unwind1; |
bds_unwind1; |
663 |
bds_unwind1; |
bds_unwind1; |
664 |
return; |
return; |
665 |
|
goto T222; |
666 |
T222:; |
T222:; |
667 |
base[3]= Cnil; |
base[3]= Cnil; |
668 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
673 |
} |
} |
674 |
/* function definition for GET-NODE-INDEX */ |
/* function definition for GET-NODE-INDEX */ |
675 |
|
|
676 |
static L10() |
static void L10() |
677 |
{register object *base=vs_base; |
{register object *base=vs_base; |
678 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
679 |
vs_reserve(VM10); |
vs_reserve(VM10); |
684 |
V74=(base[0]); |
V74=(base[0]); |
685 |
V75=(base[1]); |
V75=(base[1]); |
686 |
vs_top=sup; |
vs_top=sup; |
687 |
|
goto TTL; |
688 |
TTL:; |
TTL:; |
689 |
{object V76; |
{object V76; |
690 |
V76= (V74); |
V76= (V74); |
695 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
696 |
bds_unwind1; |
bds_unwind1; |
697 |
return; |
return; |
698 |
|
goto T250; |
699 |
T250:; |
T250:; |
700 |
base[3]= VV[24]; |
base[3]= VV[24]; |
701 |
base[5]= (V74); |
base[5]= (V74); |
717 |
(void) (*Lnk96)(); |
(void) (*Lnk96)(); |
718 |
bds_unwind1; |
bds_unwind1; |
719 |
return; |
return; |
720 |
|
goto T259; |
721 |
T259:; |
T259:; |
722 |
base[3]= VV[26]; |
base[3]= VV[26]; |
723 |
base[4]= (V76); |
base[4]= (V76); |
732 |
} |
} |
733 |
/* function definition for ALL-MATCHES */ |
/* function definition for ALL-MATCHES */ |
734 |
|
|
735 |
static L11() |
static void L11() |
736 |
{register object *base=vs_base; |
{register object *base=vs_base; |
737 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
738 |
vs_reserve(VM11); |
vs_reserve(VM11); |
743 |
V78=(base[0]); |
V78=(base[0]); |
744 |
V79=(base[1]); |
V79=(base[1]); |
745 |
vs_top=sup; |
vs_top=sup; |
746 |
|
goto TTL; |
747 |
TTL:; |
TTL:; |
748 |
{register long V80; |
{register long V80; |
749 |
V80= 0; |
V80= 0; |
754 |
V81= Cnil; |
V81= Cnil; |
755 |
V82= Cnil; |
V82= Cnil; |
756 |
V83= Cnil; |
V83= Cnil; |
757 |
|
goto T268; |
758 |
T268:; |
T268:; |
759 |
V84 = make_fixnum(V80); |
V84 = make_fixnum(V80); |
760 |
V80= fix((VFUN_NARGS=3,(*(LnkLI93))((V78),(V79),V84))); |
V80= fix((VFUN_NARGS=3,(*(LnkLI93))((V78),(V79),V84))); |
761 |
if(!((V80)>=(0))){ |
if(!((V80)>=(0))){ |
762 |
goto T271;} |
goto T271;} |
763 |
goto T270; |
goto T270; |
764 |
|
goto T271; |
765 |
T271:; |
T271:; |
766 |
goto T269; |
goto T269; |
767 |
|
goto T270; |
768 |
T270:;{object V85; |
T270:;{object V85; |
769 |
V85= make_fixnum(V80); |
V85= make_fixnum(V80); |
770 |
V80= (*(LnkLI94))(0); |
V80= (*(LnkLI94))(0); |
780 |
if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87)); |
if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87)); |
781 |
((V87))->c.c_cdr = (V88); |
((V87))->c.c_cdr = (V88); |
782 |
goto T277;} |
goto T277;} |
783 |
|
goto T279; |
784 |
T279:; |
T279:; |
785 |
V82= make_cons((V83),Cnil); |
V82= make_cons((V83),Cnil); |
786 |
V81= (V82); |
V81= (V82); |
787 |
|
goto T277; |
788 |
T277:; |
T277:; |
789 |
goto T268; |
goto T268; |
790 |
|
goto T269; |
791 |
T269:; |
T269:; |
792 |
base[3]= (V81); |
base[3]= (V81); |
793 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
805 |
} |
} |
806 |
/* macro definition for NODE */ |
/* macro definition for NODE */ |
807 |
|
|
808 |
static L12() |
static void L12() |
809 |
{register object *base=vs_base; |
{register object *base=vs_base; |
810 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
811 |
vs_reserve(VM12); |
vs_reserve(VM12); |
826 |
} |
} |
827 |
/* function definition for NODE-OFFSET */ |
/* function definition for NODE-OFFSET */ |
828 |
|
|
829 |
static L13() |
static void L13() |
830 |
{register object *base=vs_base; |
{register object *base=vs_base; |
831 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
832 |
vs_reserve(VM13); |
vs_reserve(VM13); |
834 |
check_arg(1); |
check_arg(1); |
835 |
V91=(base[0]); |
V91=(base[0]); |
836 |
vs_top=sup; |
vs_top=sup; |
837 |
|
goto TTL; |
838 |
TTL:; |
TTL:; |
839 |
base[1]= number_plus(car(cadr(cddddr((V91)))),cadr((V91))); |
base[1]= number_plus(car(cadr(cddddr((V91)))),cadr((V91))); |
840 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
843 |
} |
} |
844 |
/* function definition for SETUP-INFO */ |
/* function definition for SETUP-INFO */ |
845 |
|
|
846 |
static L14() |
static void L14() |
847 |
{register object *base=vs_base; |
{register object *base=vs_base; |
848 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
849 |
vs_reserve(VM14); |
vs_reserve(VM14); |
852 |
check_arg(1); |
check_arg(1); |
853 |
V92=(base[0]); |
V92=(base[0]); |
854 |
vs_top=sup; |
vs_top=sup; |
855 |
|
goto TTL; |
856 |
TTL:; |
TTL:; |
857 |
{object V93; |
{object V93; |
858 |
register object V94; |
register object V94; |
861 |
if(!((symbol_value(VV[29]))==(symbol_value(VV[30])))){ |
if(!((symbol_value(VV[29]))==(symbol_value(VV[30])))){ |
862 |
goto T292;} |
goto T292;} |
863 |
goto T291; |
goto T291; |
864 |
|
goto T292; |
865 |
T292:; |
T292:; |
866 |
setq(VV[29],symbol_value(VV[30])); |
setq(VV[29],symbol_value(VV[30])); |
867 |
base[1]= symbol_value(VV[30]); |
base[1]= symbol_value(VV[30]); |
876 |
(void) (*Lnk105)(); |
(void) (*Lnk105)(); |
877 |
vs_top=sup; |
vs_top=sup; |
878 |
setq(VV[31],vs_base[0]); |
setq(VV[31],vs_base[0]); |
879 |
|
goto T291; |
880 |
T291:; |
T291:; |
881 |
if(!(equal((V92),VV[33]))){ |
if(!(equal((V92),VV[33]))){ |
882 |
goto T303;} |
goto T303;} |
883 |
V92= VV[34]; |
V92= VV[34]; |
884 |
|
goto T303; |
885 |
T303:; |
T303:; |
886 |
base[1]= (V92); |
base[1]= (V92); |
887 |
base[2]= symbol_value(VV[31]); |
base[2]= symbol_value(VV[31]); |
926 |
vs_top=sup; |
vs_top=sup; |
927 |
V94= vs_base[0]; |
V94= vs_base[0]; |
928 |
bds_unwind1;} |
bds_unwind1;} |
929 |
|
goto T313; |
930 |
T313:; |
T313:; |
931 |
if(((V94))==Cnil){ |
if(((V94))==Cnil){ |
932 |
goto T334;} |
goto T334;} |
947 |
goto T342; |
goto T342; |
948 |
}else V100=V100->c.c_cdr; |
}else V100=V100->c.c_cdr; |
949 |
V93= Cnil;} |
V93= Cnil;} |
950 |
|
goto T342; |
951 |
T342:; |
T342:; |
952 |
if(((V93))==Cnil){ |
if(((V93))==Cnil){ |
953 |
goto T340;} |
goto T340;} |
954 |
setq(VV[20],(V93)); |
setq(VV[20],(V93)); |
955 |
goto T332; |
goto T332; |
956 |
|
goto T340; |
957 |
T340:; |
T340:; |
958 |
base[2]= (V99); |
base[2]= (V99); |
959 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
963 |
setq(VV[20],list(3,(V99),V101,Cnil)); |
setq(VV[20],list(3,(V99),V101,Cnil)); |
964 |
setq(VV[40],make_cons(symbol_value(VV[20]),symbol_value(VV[40]))); |
setq(VV[40],make_cons(symbol_value(VV[20]),symbol_value(VV[40]))); |
965 |
goto T332;} |
goto T332;} |
966 |
|
goto T334; |
967 |
T334:; |
T334:; |
968 |
base[1]= Ct; |
base[1]= Ct; |
969 |
base[2]= VV[41]; |
base[2]= VV[41]; |
971 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
972 |
Lformat(); |
Lformat(); |
973 |
vs_top=sup; |
vs_top=sup; |
974 |
|
goto T332; |
975 |
T332:; |
T332:; |
976 |
base[1]= Cnil; |
base[1]= Cnil; |
977 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
980 |
} |
} |
981 |
/* function definition for GET-INFO-CHOICES */ |
/* function definition for GET-INFO-CHOICES */ |
982 |
|
|
983 |
static L15() |
static void L15() |
984 |
{register object *base=vs_base; |
{register object *base=vs_base; |
985 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
986 |
vs_reserve(VM15); |
vs_reserve(VM15); |
990 |
V102=(base[0]); |
V102=(base[0]); |
991 |
V103=(base[1]); |
V103=(base[1]); |
992 |
vs_top=sup; |
vs_top=sup; |
993 |
|
goto TTL; |
994 |
TTL:; |
TTL:; |
995 |
if(!(eql((V103),VV[42]))){ |
if(!(eql((V103),VV[42]))){ |
996 |
goto T353;} |
goto T353;} |
998 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
999 |
(void) (*Lnk108)(); |
(void) (*Lnk108)(); |
1000 |
return; |
return; |
1001 |
|
goto T353; |
1002 |
T353:; |
T353:; |
1003 |
base[2]= (V102); |
base[2]= (V102); |
1004 |
base[3]= car(cadr(symbol_value(VV[20]))); |
base[3]= car(cadr(symbol_value(VV[20]))); |
1009 |
} |
} |
1010 |
/* function definition for ADD-FILE */ |
/* function definition for ADD-FILE */ |
1011 |
|
|
1012 |
static L16() |
static void L16() |
1013 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1014 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
1015 |
vs_reserve(VM16); |
vs_reserve(VM16); |
1019 |
V104=(base[0]); |
V104=(base[0]); |
1020 |
V105=(base[1]); |
V105=(base[1]); |
1021 |
vs_top=sup; |
vs_top=sup; |
1022 |
|
goto TTL; |
1023 |
TTL:; |
TTL:; |
1024 |
{register object V106; |
{register object V106; |
1025 |
V106= (V104); |
V106= (V104); |
1026 |
|
goto T361; |
1027 |
T361:; |
T361:; |
1028 |
if((V106)!=Cnil){ |
if((V106)!=Cnil){ |
1029 |
goto T363;} |
goto T363;} |
1030 |
goto T362; |
goto T362; |
1031 |
|
goto T363; |
1032 |
T363:; |
T363:; |
1033 |
{register object V107; |
{register object V107; |
1034 |
register object V108; |
register object V108; |
1038 |
((V107))->c.c_car = (V108);} |
((V107))->c.c_car = (V108);} |
1039 |
V106= cdr((V106)); |
V106= cdr((V106)); |
1040 |
goto T361; |
goto T361; |
1041 |
|
goto T362; |
1042 |
T362:; |
T362:; |
1043 |
goto T359; |
goto T359; |
1044 |
goto T359; |
goto T359; |
1045 |
|
goto T359; |
1046 |
T359:; |
T359:; |
1047 |
base[2]= (V104); |
base[2]= (V104); |
1048 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1051 |
} |
} |
1052 |
/* function definition for INFO-ERROR */ |
/* function definition for INFO-ERROR */ |
1053 |
|
|
1054 |
static L17() |
static void L17() |
1055 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1056 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
1057 |
vs_reserve(VM17); |
vs_reserve(VM17); |
1076 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1077 |
(void) (*Lnk109)(); |
(void) (*Lnk109)(); |
1078 |
return; |
return; |
1079 |
|
goto T372; |
1080 |
T372:; |
T372:; |
1081 |
{object V111; |
{object V111; |
1082 |
V111= (V109); |
V111= (V109); |
1090 |
} |
} |
1091 |
/* function definition for INFO-GET-FILE */ |
/* function definition for INFO-GET-FILE */ |
1092 |
|
|
1093 |
static L18() |
static void L18() |
1094 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1095 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
1096 |
vs_reserve(VM18); |
vs_reserve(VM18); |
1098 |
check_arg(1); |
check_arg(1); |
1099 |
V112=(base[0]); |
V112=(base[0]); |
1100 |
vs_top=sup; |
vs_top=sup; |
1101 |
|
goto TTL; |
1102 |
TTL:; |
TTL:; |
1103 |
base[1]= (V112); |
base[1]= (V112); |
1104 |
base[2]= car(symbol_value(VV[20])); |
base[2]= car(symbol_value(VV[20])); |
1110 |
goto T384;} |
goto T384;} |
1111 |
V113= symbol_value(VV[44]); |
V113= symbol_value(VV[44]); |
1112 |
goto T382; |
goto T382; |
1113 |
|
goto T384; |
1114 |
T384:; |
T384:; |
1115 |
base[1]= (V112); |
base[1]= (V112); |
1116 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1119 |
V114= vs_base[0]; |
V114= vs_base[0]; |
1120 |
setq(VV[44],make_cons((V112),V114)); |
setq(VV[44],make_cons((V112),V114)); |
1121 |
V113= symbol_value(VV[44]); |
V113= symbol_value(VV[44]); |
1122 |
|
goto T382; |
1123 |
T382:; |
T382:; |
1124 |
base[1]= cdr(V113); |
base[1]= cdr(V113); |
1125 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1128 |
} |
} |
1129 |
/* function definition for WAITING */ |
/* function definition for WAITING */ |
1130 |
|
|
1131 |
static L19() |
static void L19() |
1132 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1133 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1134 |
vs_reserve(VM19); |
vs_reserve(VM19); |
1136 |
check_arg(1); |
check_arg(1); |
1137 |
V115=(base[0]); |
V115=(base[0]); |
1138 |
vs_top=sup; |
vs_top=sup; |
1139 |
|
goto TTL; |
1140 |
TTL:; |
TTL:; |
1141 |
if(symbol_value(VV[43])==Cnil){ |
if(symbol_value(VV[43])==Cnil){ |
1142 |
base[1]= Cnil; |
base[1]= Cnil; |
1151 |
base[1]= Cnil; |
base[1]= Cnil; |
1152 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1153 |
return; |
return; |
1154 |
|
goto T389; |
1155 |
T389:; |
T389:; |
1156 |
base[1]= VV[45]; |
base[1]= VV[45]; |
1157 |
base[2]= (V115); |
base[2]= (V115); |
1165 |
base[1]= Cnil; |
base[1]= Cnil; |
1166 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1167 |
return; |
return; |
1168 |
|
goto T392; |
1169 |
T392:; |
T392:; |
1170 |
base[1]= VV[48]; |
base[1]= VV[48]; |
1171 |
base[2]= VV[49]; |
base[2]= VV[49]; |
1177 |
} |
} |
1178 |
/* function definition for END-WAITING */ |
/* function definition for END-WAITING */ |
1179 |
|
|
1180 |
static L20() |
static void L20() |
1181 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1182 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1183 |
vs_reserve(VM20); |
vs_reserve(VM20); |
1185 |
check_arg(1); |
check_arg(1); |
1186 |
V116=(base[0]); |
V116=(base[0]); |
1187 |
vs_top=sup; |
vs_top=sup; |
1188 |
|
goto TTL; |
1189 |
TTL:; |
TTL:; |
1190 |
base[1]= (V116); |
base[1]= (V116); |
1191 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1196 |
base[1]= Cnil; |
base[1]= Cnil; |
1197 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1198 |
return; |
return; |
1199 |
|
goto T401; |
1200 |
T401:; |
T401:; |
1201 |
base[1]= VV[48]; |
base[1]= VV[48]; |
1202 |
base[2]= VV[49]; |
base[2]= VV[49]; |
1208 |
} |
} |
1209 |
/* function definition for INFO-SUBFILE */ |
/* function definition for INFO-SUBFILE */ |
1210 |
|
|
1211 |
static L21() |
static void L21() |
1212 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1213 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1214 |
vs_reserve(VM21); |
vs_reserve(VM21); |
1216 |
check_arg(1); |
check_arg(1); |
1217 |
V117=(base[0]); |
V117=(base[0]); |
1218 |
vs_top=sup; |
vs_top=sup; |
1219 |
|
goto TTL; |
1220 |
TTL:; |
TTL:; |
1221 |
{object V118; |
{object V118; |
1222 |
register object V119; |
register object V119; |
1229 |
if(number_compare((V117),small_fixnum(0))>=0){ |
if(number_compare((V117),small_fixnum(0))>=0){ |
1230 |
goto T409;} |
goto T409;} |
1231 |
goto T408; |
goto T408; |
1232 |
|
goto T409; |
1233 |
T409:; |
T409:; |
1234 |
{register object V121; |
{register object V121; |
1235 |
register object V122; |
register object V122; |
1236 |
V121= (V118); |
V121= (V118); |
1237 |
V122= car((V121)); |
V122= car((V121)); |
1238 |
|
goto T414; |
1239 |
T414:; |
T414:; |
1240 |
if(!(endp((V121)))){ |
if(!(endp((V121)))){ |
1241 |
goto T415;} |
goto T415;} |
1242 |
goto T408; |
goto T408; |
1243 |
|
goto T415; |
1244 |
T415:; |
T415:; |
1245 |
if(!(number_compare(car((V122)),(V117))>0)){ |
if(!(number_compare(car((V122)),(V117))>0)){ |
1246 |
goto T419;} |
goto T419;} |
1247 |
V120= car((V122)); |
V120= car((V122)); |
1248 |
goto T408; |
goto T408; |
1249 |
|
goto T419; |
1250 |
T419:; |
T419:; |
1251 |
V119= (V122); |
V119= (V122); |
1252 |
V121= cdr((V121)); |
V121= cdr((V121)); |
1253 |
V122= car((V121)); |
V122= car((V121)); |
1254 |
goto T414;} |
goto T414;} |
1255 |
|
goto T408; |
1256 |
T408:; |
T408:; |
1257 |
if((V119)!=Cnil){ |
if((V119)!=Cnil){ |
1258 |
base[1]= (V119); |
base[1]= (V119); |
1259 |
goto T431;} |
goto T431;} |
1260 |
base[1]= make_cons(small_fixnum(0),car(symbol_value(VV[20]))); |
base[1]= make_cons(small_fixnum(0),car(symbol_value(VV[20]))); |
1261 |
|
goto T431; |
1262 |
T431:; |
T431:; |
1263 |
base[2]= (V120); |
base[2]= (V120); |
1264 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1267 |
} |
} |
1268 |
/* function definition for INFO-NODE-FROM-POSITION */ |
/* function definition for INFO-NODE-FROM-POSITION */ |
1269 |
|
|
1270 |
static L22() |
static void L22() |
1271 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1272 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1273 |
vs_reserve(VM22); |
vs_reserve(VM22); |
1275 |
check_arg(1); |
check_arg(1); |
1276 |
V123=(base[0]); |
V123=(base[0]); |
1277 |
vs_top=sup; |
vs_top=sup; |
1278 |
|
goto TTL; |
1279 |
TTL:; |
TTL:; |
1280 |
{register object V124; |
{register object V124; |
1281 |
V124= small_fixnum(0); |
V124= small_fixnum(0); |
1293 |
vs_top=sup; |
vs_top=sup; |
1294 |
V126= vs_base[0]; |
V126= vs_base[0]; |
1295 |
V127= number_minus((V123),car((V125))); |
V127= number_minus((V123),car((V125))); |
1296 |
|
goto T441; |
1297 |
T441:; |
T441:; |
1298 |
{long V128= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[52],(V126),(V124),(V127)))); |
{long V128= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[52],(V126),(V124),(V127)))); |
1299 |
if(!((/* INLINE-ARGS */V128)>=(0))){ |
if(!((/* INLINE-ARGS */V128)>=(0))){ |
1300 |
goto T444;}} |
goto T444;}} |
1301 |
goto T443; |
goto T443; |
1302 |
|
goto T444; |
1303 |
T444:; |
T444:; |
1304 |
goto T442; |
goto T442; |
1305 |
|
goto T443; |
1306 |
T443:; |
T443:; |
1307 |
V124= make_fixnum((*(LnkLI94))(0)); |
V124= make_fixnum((*(LnkLI94))(0)); |
1308 |
goto T441; |
goto T441; |
1309 |
|
goto T442; |
1310 |
T442:; |
T442:; |
1311 |
goto T439; |
goto T439; |
1312 |
goto T439; |
goto T439; |
1313 |
|
goto T439; |
1314 |
T439:; |
T439:; |
1315 |
V124= number_minus((V124),small_fixnum(1)); |
V124= number_minus((V124),small_fixnum(1)); |
1316 |
{long V129= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[53],(V126),(V124)))); |
{long V129= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[53],(V126),(V124)))); |
1334 |
goto T461;}} |
goto T461;}} |
1335 |
V133= make_fixnum((*(LnkLI95))(0)); |
V133= make_fixnum((*(LnkLI95))(0)); |
1336 |
goto T459; |
goto T459; |
1337 |
|
goto T461; |
1338 |
T461:; |
T461:; |
1339 |
V133= make_fixnum(length((V126))); |
V133= make_fixnum(length((V126))); |
1340 |
|
goto T459; |
1341 |
T459:; |
T459:; |
1342 |
V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20])); |
V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20])); |
1343 |
base[9]= (V134); |
base[9]= (V134); |
1344 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1345 |
return;} |
return;} |
1346 |
|
goto T452; |
1347 |
T452:; |
T452:; |
1348 |
base[4]= Cnil; |
base[4]= Cnil; |
1349 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1352 |
} |
} |
1353 |
/* function definition for SHOW-INFO */ |
/* function definition for SHOW-INFO */ |
1354 |
|
|
1355 |
static L23() |
static void L23() |
1356 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1357 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
1358 |
vs_reserve(VM23); |
vs_reserve(VM23); |
1371 |
V138=(base[2]); |
V138=(base[2]); |
1372 |
vs_top=sup; |
vs_top=sup; |
1373 |
goto T466; |
goto T466; |
1374 |
|
goto T464; |
1375 |
T464:; |
T464:; |
1376 |
V137= Cnil; |
V137= Cnil; |
1377 |
|
goto T465; |
1378 |
T465:; |
T465:; |
1379 |
V138= symbol_value(VV[43]); |
V138= symbol_value(VV[43]); |
1380 |
|
goto T466; |
1381 |
T466:; |
T466:; |
1382 |
{register object V139; |
{register object V139; |
1383 |
register object V140; |
register object V140; |
1394 |
goto T474;} |
goto T474;} |
1395 |
V140= cadr((V136)); |
V140= cadr((V136)); |
1396 |
V136= car((V136)); |
V136= car((V136)); |
1397 |
|
goto T474; |
1398 |
T474:; |
T474:; |
1399 |
if(!(type_of((V136))==t_cons)){ |
if(!(type_of((V136))==t_cons)){ |
1400 |
goto T473;} |
goto T473;} |
1401 |
V137= car((V136)); |
V137= car((V136)); |
1402 |
V136= cdr((V136)); |
V136= cdr((V136)); |
1403 |
|
goto T473; |
1404 |
T473:; |
T473:; |
1405 |
if(!(type_of((V136))==t_string)){ |
if(!(type_of((V136))==t_string)){ |
1406 |
goto T488;} |
goto T488;} |
1407 |
goto T487; |
goto T487; |
1408 |
|
goto T488; |
1409 |
T488:; |
T488:; |
1410 |
base[4]= VV[55]; |
base[4]= VV[55]; |
1411 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1412 |
(void) (*Lnk98)(); |
(void) (*Lnk98)(); |
1413 |
vs_top=sup; |
vs_top=sup; |
1414 |
|
goto T487; |
1415 |
T487:; |
T487:; |
1416 |
base[4]= symbol_value(VV[56]); |
base[4]= symbol_value(VV[56]); |
1417 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1435 |
if(!(equal((V136),VV[58]))){ |
if(!(equal((V136),VV[58]))){ |
1436 |
goto T493;} |
goto T493;} |
1437 |
V136= VV[59]; |
V136= VV[59]; |
1438 |
|
goto T493; |
1439 |
T493:; |
T493:; |
1440 |
if(((V140))==Cnil){ |
if(((V140))==Cnil){ |
1441 |
goto T507;} |
goto T507;} |
1443 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1444 |
(void) (*Lnk114)(); |
(void) (*Lnk114)(); |
1445 |
vs_top=sup; |
vs_top=sup; |
1446 |
|
goto T507; |
1447 |
T507:; |
T507:; |
1448 |
{object V144; |
{object V144; |
1449 |
base[4]= (V136); |
base[4]= (V136); |
1464 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1465 |
bds_unwind1; |
bds_unwind1; |
1466 |
return; |
return; |
1467 |
|
goto T514; |
1468 |
T514:; |
T514:; |
1469 |
base[4]= (V144); |
base[4]= (V144); |
1470 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1504 |
goto T539;}} |
goto T539;}} |
1505 |
V151= make_fixnum((*(LnkLI95))(0)); |
V151= make_fixnum((*(LnkLI95))(0)); |
1506 |
goto T537; |
goto T537; |
1507 |
|
goto T539; |
1508 |
T539:; |
T539:; |
1509 |
V151= make_fixnum(length((V145))); |
V151= make_fixnum(length((V145))); |
1510 |
|
goto T537; |
1511 |
T537:; |
T537:; |
1512 |
V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20])); |
V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20])); |
1513 |
if(((V137))==Cnil){ |
if(((V137))==Cnil){ |
1532 |
if(!((/* INLINE-ARGS */V155)>=(0))){ |
if(!((/* INLINE-ARGS */V155)>=(0))){ |
1533 |
bds_unwind1; |
bds_unwind1; |
1534 |
goto T542;}} |
goto T542;}} |
1535 |
|
goto T548; |
1536 |
T548:; |
T548:; |
1537 |
V156 = make_fixnum((*(LnkLI95))(0)); |
V156 = make_fixnum((*(LnkLI95))(0)); |
1538 |
V141= fix(number_minus(V156,(V150))); |
V141= fix(number_minus(V156,(V150))); |
1539 |
bds_unwind1; |
bds_unwind1; |
1540 |
|
goto T542; |
1541 |
T542:; |
T542:; |
1542 |
if(((V138))==Cnil){ |
if(((V138))==Cnil){ |
1543 |
goto T559;} |
goto T559;} |
1556 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1557 |
bds_unwind1; |
bds_unwind1; |
1558 |
return;} |
return;} |
1559 |
|
goto T559; |
1560 |
T559:; |
T559:; |
1561 |
{object V158; |
{object V158; |
1562 |
if(!((V142)>=(0))){ |
if(!((V142)>=(0))){ |
1573 |
goto T568;}} |
goto T568;}} |
1574 |
V158= make_fixnum((*(LnkLI95))(0)); |
V158= make_fixnum((*(LnkLI95))(0)); |
1575 |
goto T566; |
goto T566; |
1576 |
|
goto T568; |
1577 |
T568:; |
T568:; |
1578 |
V158= (V151); |
V158= (V151); |
1579 |
|
goto T566; |
1580 |
T566:; |
T566:; |
1581 |
base[10]= (V145); |
base[10]= (V145); |
1582 |
V161 = make_fixnum(V141); |
V161 = make_fixnum(V141); |
1586 |
Lsubseq(); |
Lsubseq(); |
1587 |
bds_unwind1; |
bds_unwind1; |
1588 |
return;}} |
return;}} |
1589 |
|
goto T528; |
1590 |
T528:; |
T528:; |
1591 |
base[6]= VV[67]; |
base[6]= VV[67]; |
1592 |
base[7]= (V136); |
base[7]= (V136); |
1602 |
} |
} |
1603 |
/* function definition for INFO-AUX */ |
/* function definition for INFO-AUX */ |
1604 |
|
|
1605 |
static L24() |
static void L24() |
1606 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1607 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
1608 |
vs_reserve(VM24); |
vs_reserve(VM24); |
1612 |
V162=(base[0]); |
V162=(base[0]); |
1613 |
V163=(base[1]); |
V163=(base[1]); |
1614 |
vs_top=sup; |
vs_top=sup; |
1615 |
|
goto TTL; |
1616 |
TTL:; |
TTL:; |
1617 |
{register object V164; |
{register object V164; |
1618 |
register object V165; |
register object V165; |
1626 |
V167= Cnil; |
V167= Cnil; |
1627 |
V168= Cnil; |
V168= Cnil; |
1628 |
V169= Cnil; |
V169= Cnil; |
1629 |
|
goto T584; |
1630 |
T584:; |
T584:; |
1631 |
if(((V165))==Cnil){ |
if(((V165))==Cnil){ |
1632 |
goto T587;} |
goto T587;} |
1633 |
goto T586; |
goto T586; |
1634 |
|
goto T587; |
1635 |
T587:; |
T587:; |
1636 |
goto T585; |
goto T585; |
1637 |
|
goto T586; |
1638 |
T586:; |
T586:; |
1639 |
{object V170; |
{object V170; |
1640 |
V170= car((V165)); |
V170= car((V165)); |
1667 |
if(((V172))!=Cnil){ |
if(((V172))!=Cnil){ |
1668 |
goto T605;}} |
goto T605;}} |
1669 |
goto T601; |
goto T601; |
1670 |
|
goto T605; |
1671 |
T605:; |
T605:; |
1672 |
base[2]= cdr((V167)); |
base[2]= cdr((V167)); |
1673 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1675 |
vs_top=sup; |
vs_top=sup; |
1676 |
V167= vs_base[0]; |
V167= vs_base[0]; |
1677 |
goto T601; |
goto T601; |
1678 |
|
goto T603; |
1679 |
T603:; |
T603:; |
1680 |
V166= (V168); |
V166= (V168); |
1681 |
base[2]= (V166); |
base[2]= (V166); |
1683 |
Llast(); |
Llast(); |
1684 |
vs_top=sup; |
vs_top=sup; |
1685 |
V167= vs_base[0]; |
V167= vs_base[0]; |
1686 |
|
goto T601; |
1687 |
T601:; |
T601:; |
1688 |
base[4]= (V162); |
base[4]= (V162); |
1689 |
base[5]= VV[42]; |
base[5]= VV[42]; |
1709 |
if(((V174))!=Cnil){ |
if(((V174))!=Cnil){ |
1710 |
goto T625;}} |
goto T625;}} |
1711 |
goto T621; |
goto T621; |
1712 |
|
goto T625; |
1713 |
T625:; |
T625:; |
1714 |
base[2]= cdr((V167)); |
base[2]= cdr((V167)); |
1715 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1717 |
vs_top=sup; |
vs_top=sup; |
1718 |
V167= vs_base[0]; |
V167= vs_base[0]; |
1719 |
goto T621; |
goto T621; |
1720 |
|
goto T623; |
1721 |
T623:; |
T623:; |
1722 |
V166= (V169); |
V166= (V169); |
1723 |
base[2]= (V166); |
base[2]= (V166); |
1725 |
Llast(); |
Llast(); |
1726 |
vs_top=sup; |
vs_top=sup; |
1727 |
V167= vs_base[0]; |
V167= vs_base[0]; |
1728 |
|
goto T621; |
1729 |
T621:; |
T621:; |
1730 |
V165= cdr((V165)); |
V165= cdr((V165)); |
1731 |
goto T584; |
goto T584; |
1732 |
|
goto T585; |
1733 |
T585:; |
T585:; |
1734 |
base[2]= (V166); |
base[2]= (V166); |
1735 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1744 |
} |
} |
1745 |
/* function definition for INFO-SEARCH */ |
/* function definition for INFO-SEARCH */ |
1746 |
|
|
1747 |
static L25() |
static void L25() |
1748 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1749 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
1750 |
vs_reserve(VM25); |
vs_reserve(VM25); |
1762 |
V177=(base[2]); |
V177=(base[2]); |
1763 |
vs_top=sup; |
vs_top=sup; |
1764 |
goto T640; |
goto T640; |
1765 |
|
goto T638; |
1766 |
T638:; |
T638:; |
1767 |
V176= Cnil; |
V176= Cnil; |
1768 |
|
goto T639; |
1769 |
T639:; |
T639:; |
1770 |
V177= Cnil; |
V177= Cnil; |
1771 |
|
goto T640; |
1772 |
T640:; |
T640:; |
1773 |
{register object V178; |
{register object V178; |
1774 |
V178= Cnil; |
V178= Cnil; |
1775 |
if((V176)!=Cnil){ |
if((V176)!=Cnil){ |
1776 |
goto T644;} |
goto T644;} |
1777 |
V176= small_fixnum(0); |
V176= small_fixnum(0); |
1778 |
|
goto T644; |
1779 |
T644:; |
T644:; |
1780 |
|
goto T648; |
1781 |
T648:; |
T648:; |
1782 |
if((V176)!=Cnil){ |
if((V176)!=Cnil){ |
1783 |
goto T650;} |
goto T650;} |
1784 |
goto T649; |
goto T649; |
1785 |
|
goto T650; |
1786 |
T650:; |
T650:; |
1787 |
{register object V179; |
{register object V179; |
1788 |
register object V180; |
register object V180; |
1796 |
V180= vs_base[0]; |
V180= vs_base[0]; |
1797 |
vs_top=sup; |
vs_top=sup; |
1798 |
goto T656; |
goto T656; |
1799 |
|
goto T654; |
1800 |
T654:; |
T654:; |
1801 |
V179= Cnil; |
V179= Cnil; |
1802 |
|
goto T655; |
1803 |
T655:; |
T655:; |
1804 |
V180= Cnil; |
V180= Cnil; |
1805 |
|
goto T656; |
1806 |
T656:; |
T656:; |
1807 |
V178= (V180); |
V178= (V180); |
1808 |
if((V177)==Cnil){ |
if((V177)==Cnil){ |
1812 |
if(number_compare((V177),(V178))<0){ |
if(number_compare((V177),(V178))<0){ |
1813 |
goto T660;} |
goto T660;} |
1814 |
goto T659; |
goto T659; |
1815 |
|
goto T660; |
1816 |
T660:; |
T660:; |
1817 |
V178= (V177); |
V178= (V177); |
1818 |
|
goto T659; |
1819 |
T659:; |
T659:; |
1820 |
{register object V181; |
{register object V181; |
1821 |
register object V182; |
register object V182; |
1833 |
goto T673;} |
goto T673;} |
1834 |
V185= number_minus((V178),(V182)); |
V185= number_minus((V178),(V182)); |
1835 |
goto T671; |
goto T671; |
1836 |
|
goto T673; |
1837 |
T673:; |
T673:; |
1838 |
V185= (V184); |
V185= (V184); |
1839 |
|
goto T671; |
1840 |
T671:; |
T671:; |
1841 |
{long V186= fix((VFUN_NARGS=4,(*(LnkLI93))((V175),(V181),(V183),V185))); |
{long V186= fix((VFUN_NARGS=4,(*(LnkLI93))((V175),(V181),(V183),V185))); |
1842 |
if(!((/* INLINE-ARGS */V186)>=(0))){ |
if(!((/* INLINE-ARGS */V186)>=(0))){ |
1845 |
base[7]= number_plus((V182),V187); |
base[7]= number_plus((V182),V187); |
1846 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1847 |
return;} |
return;} |
1848 |
|
goto T663; |
1849 |
T663:; |
T663:; |
1850 |
V176= (V180);} |
V176= (V180);} |
1851 |
goto T648; |
goto T648; |
1852 |
|
goto T649; |
1853 |
T649:; |
T649:; |
1854 |
goto T646; |
goto T646; |
1855 |
goto T646; |
goto T646; |
1856 |
|
goto T646; |
1857 |
T646:; |
T646:; |
1858 |
base[3]= small_fixnum(-1); |
base[3]= small_fixnum(-1); |
1859 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1862 |
} |
} |
1863 |
/* function definition for IDESCRIBE */ |
/* function definition for IDESCRIBE */ |
1864 |
|
|
1865 |
static L26() |
static void L26() |
1866 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1867 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
1868 |
vs_reserve(VM26); |
vs_reserve(VM26); |
1870 |
check_arg(1); |
check_arg(1); |
1871 |
V188=(base[0]); |
V188=(base[0]); |
1872 |
vs_top=sup; |
vs_top=sup; |
1873 |
|
goto TTL; |
1874 |
TTL:; |
TTL:; |
1875 |
{object V189; |
{object V189; |
1876 |
base[2]= (V188); |
base[2]= (V188); |
1883 |
register object V191; |
register object V191; |
1884 |
V190= (V189); |
V190= (V189); |
1885 |
V191= car((V190)); |
V191= car((V190)); |
1886 |
|
goto T683; |
1887 |
T683:; |
T683:; |
1888 |
if(!(endp((V190)))){ |
if(!(endp((V190)))){ |
1889 |
goto T684;} |
goto T684;} |
1890 |
base[3]= Cnil; |
base[3]= Cnil; |
1891 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1892 |
return; |
return; |
1893 |
|
goto T684; |
1894 |
T684:; |
T684:; |
1895 |
if(!(type_of(car((V191)))==t_cons)){ |
if(!(type_of(car((V191)))==t_cons)){ |
1896 |
goto T692;} |
goto T692;} |
1897 |
if(!(equalp(caar((V191)),(V188)))){ |
if(!(equalp(caar((V191)),(V188)))){ |
1898 |
goto T688;} |
goto T688;} |
1899 |
goto T690; |
goto T690; |
1900 |
|
goto T692; |
1901 |
T692:; |
T692:; |
1902 |
if(!(equalp(car((V191)),(V188)))){ |
if(!(equalp(car((V191)),(V188)))){ |
1903 |
goto T688;} |
goto T688;} |
1904 |
|
goto T690; |
1905 |
T690:; |
T690:; |
1906 |
base[3]= Ct; |
base[3]= Ct; |
1907 |
base[4]= VV[70]; |
base[4]= VV[70]; |
1917 |
vs_top=sup; |
vs_top=sup; |
1918 |
V192= vs_base[0]; |
V192= vs_base[0]; |
1919 |
(void)(princ(V192,Cnil)); |
(void)(princ(V192,Cnil)); |
1920 |
|
goto T688; |
1921 |
T688:; |
T688:; |
1922 |
V190= cdr((V190)); |
V190= cdr((V190)); |
1923 |
V191= car((V190)); |
V191= car((V190)); |
1926 |
} |
} |
1927 |
/* function definition for INFO */ |
/* function definition for INFO */ |
1928 |
|
|
1929 |
static L27() |
static void L27() |
1930 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1931 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
1932 |
vs_reserve(VM27); |
vs_reserve(VM27); |
1941 |
V194=(base[1]); |
V194=(base[1]); |
1942 |
vs_top=sup; |
vs_top=sup; |
1943 |
goto T708; |
goto T708; |
1944 |
|
goto T707; |
1945 |
T707:; |
T707:; |
1946 |
V194= symbol_value(VV[69]); |
V194= symbol_value(VV[69]); |
1947 |
|
goto T708; |
1948 |
T708:; |
T708:; |
1949 |
{object V195; |
{object V195; |
1950 |
register object V196; |
register object V196; |
1968 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
1969 |
bds_unwind1; |
bds_unwind1; |
1970 |
return; |
return; |
1971 |
|
goto T717; |
1972 |
T717:; |
T717:; |
1973 |
if(((V198))==Cnil){ |
if(((V198))==Cnil){ |
1974 |
goto T722;} |
goto T722;} |
1982 |
V201= (V198); |
V201= (V198); |
1983 |
{object V202; |
{object V202; |
1984 |
V202= Cnil; |
V202= Cnil; |
1985 |
|
goto T728; |
1986 |
T728:; |
T728:; |
1987 |
if(((V201))==Cnil){ |
if(((V201))==Cnil){ |
1988 |
goto T731;} |
goto T731;} |
1989 |
goto T730; |
goto T730; |
1990 |
|
goto T731; |
1991 |
T731:; |
T731:; |
1992 |
goto T729; |
goto T729; |
1993 |
|
goto T730; |
1994 |
T730:; |
T730:; |
1995 |
{object V203; |
{object V203; |
1996 |
V203= car((V201)); |
V203= car((V201)); |
2003 |
goto T741;} |
goto T741;} |
2004 |
V196= cadr((V200)); |
V196= cadr((V200)); |
2005 |
V200= car((V200)); |
V200= car((V200)); |
2006 |
|
goto T741; |
2007 |
T741:; |
T741:; |
2008 |
if(!(type_of((V200))==t_cons)){ |
if(!(type_of((V200))==t_cons)){ |
2009 |
goto T740;} |
goto T740;} |
2010 |
V197= car((V200)); |
V197= car((V200)); |
2011 |
V200= cdr((V200)); |
V200= cdr((V200)); |
2012 |
|
goto T740; |
2013 |
T740:; |
T740:; |
2014 |
base[4]= Ct; |
base[4]= Ct; |
2015 |
base[5]= VV[71]; |
base[5]= VV[71]; |
2019 |
goto T761;} |
goto T761;} |
2020 |
base[8]= Cnil; |
base[8]= Cnil; |
2021 |
goto T759; |
goto T759; |
2022 |
|
goto T761; |
2023 |
T761:; |
T761:; |
2024 |
V202= (V196); |
V202= (V196); |
2025 |
base[8]= (V202); |
base[8]= (V202); |
2026 |
|
goto T759; |
2027 |
T759:; |
T759:; |
2028 |
base[9]= (V200); |
base[9]= (V200); |
2029 |
vs_top=(vs_base=base+4)+6; |
vs_top=(vs_base=base+4)+6; |
2032 |
if(!((V199)<(2147483646))){ |
if(!((V199)<(2147483646))){ |
2033 |
goto T766;} |
goto T766;} |
2034 |
goto T765; |
goto T765; |
2035 |
|
goto T766; |
2036 |
T766:; |
T766:; |
2037 |
(void)((*(LnkLI122))()); |
(void)((*(LnkLI122))()); |
2038 |
|
goto T765; |
2039 |
T765:; |
T765:; |
2040 |
V199= (V199)+(1); |
V199= (V199)+(1); |
2041 |
V201= cdr((V201)); |
V201= cdr((V201)); |
2042 |
goto T728; |
goto T728; |
2043 |
|
goto T729; |
2044 |
T729:; |
T729:; |
2045 |
goto T725; |
goto T725; |
2046 |
goto T725;}}} |
goto T725;}}} |
2047 |
|
goto T725; |
2048 |
T725:; |
T725:; |
2049 |
if(!((length((V198)))>(1))){ |
if(!((length((V198)))>(1))){ |
2050 |
goto T775;} |
goto T775;} |
2054 |
Lformat(); |
Lformat(); |
2055 |
vs_top=sup; |
vs_top=sup; |
2056 |
goto T773; |
goto T773; |
2057 |
|
goto T775; |
2058 |
T775:; |
T775:; |
2059 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
2060 |
|
goto T773; |
2061 |
T773:; |
T773:; |
2062 |
{object V204; |
{object V204; |
2063 |
object V205; |
object V205; |
2069 |
vs_top=sup; |
vs_top=sup; |
2070 |
V204= vs_base[0]; |
V204= vs_base[0]; |
2071 |
goto T779; |
goto T779; |
2072 |
|
goto T781; |
2073 |
T781:; |
T781:; |
2074 |
V204= VV[74]; |
V204= VV[74]; |
2075 |
|
goto T779; |
2076 |
T779:; |
T779:; |
2077 |
V205= small_fixnum(0); |
V205= small_fixnum(0); |
2078 |
V206= Cnil; |
V206= Cnil; |
2079 |
|
goto T785; |
2080 |
T785:; |
T785:; |
2081 |
if(!(equal((V204),VV[75]))){ |
if(!(equal((V204),VV[75]))){ |
2082 |
goto T788;} |
goto T788;} |
2083 |
goto T787; |
goto T787; |
2084 |
|
goto T788; |
2085 |
T788:; |
T788:; |
2086 |
goto T786; |
goto T786; |
2087 |
|
goto T787; |
2088 |
T787:; |
T787:; |
2089 |
vs_base=vs_top; |
vs_base=vs_top; |
2090 |
Lread_line(); |
Lread_line(); |
2091 |
vs_top=sup; |
vs_top=sup; |
2092 |
V204= vs_base[0]; |
V204= vs_base[0]; |
2093 |
goto T785; |
goto T785; |
2094 |
|
goto T786; |
2095 |
T786:; |
T786:; |
2096 |
goto T783; |
goto T783; |
2097 |
goto T783; |
goto T783; |
2098 |
|
goto T783; |
2099 |
T783:; |
T783:; |
2100 |
|
goto T795; |
2101 |
T795:;{object V207; |
T795:;{object V207; |
2102 |
base[4]= (V204); |
base[4]= (V204); |
2103 |
base[5]= Cnil; |
base[5]= Cnil; |
2119 |
V207= (V206); |
V207= (V206); |
2120 |
if(V207==Cnil)goto T798; |
if(V207==Cnil)goto T798; |
2121 |
goto T797; |
goto T797; |
2122 |
|
goto T798; |
2123 |
T798:;} |
T798:;} |
2124 |
goto T796; |
goto T796; |
2125 |
|
goto T797; |
2126 |
T797:; |
T797:; |
2127 |
if(!(type_of((V206))==t_fixnum|| |
if(!(type_of((V206))==t_fixnum|| |
2128 |
type_of((V206))==t_bignum|| |
type_of((V206))==t_bignum|| |
2133 |
goto T808;} |
goto T808;} |
2134 |
V195= make_cons((V206),(V195)); |
V195= make_cons((V206),(V195)); |
2135 |
goto T806; |
goto T806; |
2136 |
|
goto T808; |
2137 |
T808:; |
T808:; |
2138 |
V195= (V206); |
V195= (V206); |
2139 |
goto T793; |
goto T793; |
2140 |
|
goto T806; |
2141 |
T806:; |
T806:; |
2142 |
goto T795; |
goto T795; |
2143 |
|
goto T796; |
2144 |
T796:; |
T796:; |
2145 |
goto T793; |
goto T793; |
2146 |
goto T793; |
goto T793; |
2147 |
|
goto T793; |
2148 |
T793:; |
T793:; |
2149 |
if(!(type_of((V195))==t_cons)){ |
if(!(type_of((V195))==t_cons)){ |
2150 |
goto T816;} |
goto T816;} |
2151 |
V195= nreverse((V195)); |
V195= nreverse((V195)); |
2152 |
goto T814; |
goto T814; |
2153 |
|
goto T816; |
2154 |
T816:; |
T816:; |
2155 |
if(!(type_of((V195))==t_symbol)){ |
if(!(type_of((V195))==t_symbol)){ |
2156 |
goto T814;} |
goto T814;} |
2159 |
goto T822;} |
goto T822;} |
2160 |
V195= Cnil; |
V195= Cnil; |
2161 |
goto T821; |
goto T821; |
2162 |
|
goto T822; |
2163 |
T822:; |
T822:; |
2164 |
{register long V209; |
{register long V209; |
2165 |
long V210; |
long V210; |
2169 |
V212= (type_of((V211))==t_fixnum?Ct:Cnil); |
V212= (type_of((V211))==t_fixnum?Ct:Cnil); |
2170 |
if(V212==Cnil)goto T828; |
if(V212==Cnil)goto T828; |
2171 |
goto T827; |
goto T827; |
2172 |
|
goto T828; |
2173 |
T828:;} |
T828:;} |
2174 |
(void)((*(LnkLI122))()); |
(void)((*(LnkLI122))()); |
2175 |
|
goto T827; |
2176 |
T827:; |
T827:; |
2177 |
V210= fix((V211));} |
V210= fix((V211));} |
2178 |
{object V213; |
{object V213; |
2179 |
register object V214; |
register object V214; |
2180 |
V213= Cnil; |
V213= Cnil; |
2181 |
V214= Cnil; |
V214= Cnil; |
2182 |
|
goto T831; |
2183 |
T831:; |
T831:; |
2184 |
if((V209)>=(V210)){ |
if((V209)>=(V210)){ |
2185 |
goto T834;} |
goto T834;} |
2186 |
goto T833; |
goto T833; |
2187 |
|
goto T834; |
2188 |
T834:; |
T834:; |
2189 |
goto T832; |
goto T832; |
2190 |
|
goto T833; |
2191 |
T833:; |
T833:; |
2192 |
if(((V214))==Cnil){ |
if(((V214))==Cnil){ |
2193 |
goto T838;} |
goto T838;} |
2200 |
if(type_of((V215))!=t_cons)FEwrong_type_argument(Scons,(V215)); |
if(type_of((V215))!=t_cons)FEwrong_type_argument(Scons,(V215)); |
2201 |
((V215))->c.c_cdr = (V216); |
((V215))->c.c_cdr = (V216); |
2202 |
goto T836;} |
goto T836;} |
2203 |
|
goto T838; |
2204 |
T838:; |
T838:; |
2205 |
V218 = make_fixnum(V209); |
V218 = make_fixnum(V209); |
2206 |
V214= make_cons(V218,Cnil); |
V214= make_cons(V218,Cnil); |
2207 |
V213= (V214); |
V213= (V214); |
2208 |
|
goto T836; |
2209 |
T836:; |
T836:; |
2210 |
V209= (V209)+(1); |
V209= (V209)+(1); |
2211 |
goto T831; |
goto T831; |
2212 |
|
goto T832; |
2213 |
T832:; |
T832:; |
2214 |
V195= (V213); |
V195= (V213); |
2215 |
goto T821; |
goto T821; |
2217 |
goto T821; |
goto T821; |
2218 |
V195= Cnil; |
V195= Cnil; |
2219 |
goto T821;}} |
goto T821;}} |
2220 |
|
goto T821; |
2221 |
T821:; |
T821:; |
2222 |
|
goto T814; |
2223 |
T814:; |
T814:; |
2224 |
if(((V195))==Cnil){ |
if(((V195))==Cnil){ |
2225 |
goto T850;} |
goto T850;} |
2232 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2233 |
Lformat(); |
Lformat(); |
2234 |
vs_top=sup; |
vs_top=sup; |
2235 |
|
goto T850; |
2236 |
T850:; |
T850:; |
2237 |
{object V220; |
{object V220; |
2238 |
register object V221; |
register object V221; |
2239 |
V220= Cnil; |
V220= Cnil; |
2240 |
V221= (V195); |
V221= (V195); |
2241 |
|
goto T860; |
2242 |
T860:; |
T860:; |
2243 |
if(((V221))==Cnil){ |
if(((V221))==Cnil){ |
2244 |
goto T863;} |
goto T863;} |
2245 |
goto T862; |
goto T862; |
2246 |
|
goto T863; |
2247 |
T863:; |
T863:; |
2248 |
goto T861; |
goto T861; |
2249 |
|
goto T862; |
2250 |
T862:; |
T862:; |
2251 |
{object V222; |
{object V222; |
2252 |
V222= car((V221)); |
V222= car((V221)); |
2259 |
(void)(princ(V223,Cnil)); |
(void)(princ(V223,Cnil)); |
2260 |
V221= cdr((V221)); |
V221= cdr((V221)); |
2261 |
goto T860; |
goto T860; |
2262 |
|
goto T861; |
2263 |
T861:; |
T861:; |
2264 |
base[4]= Cnil; |
base[4]= Cnil; |
2265 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2269 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2270 |
bds_unwind1; |
bds_unwind1; |
2271 |
return;}} |
return;}} |
2272 |
|
goto T722; |
2273 |
T722:; |
T722:; |
2274 |
base[3]= Cnil; |
base[3]= Cnil; |
2275 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2279 |
} |
} |
2280 |
/* function definition for DEFAULT-INFO-HOTLIST */ |
/* function definition for DEFAULT-INFO-HOTLIST */ |
2281 |
|
|
2282 |
static L28() |
static void L28() |
2283 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2284 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
2285 |
vs_reserve(VM28); |
vs_reserve(VM28); |
2286 |
check_arg(0); |
check_arg(0); |
2287 |
vs_top=sup; |
vs_top=sup; |
2288 |
|
goto TTL; |
2289 |
TTL:; |
TTL:; |
2290 |
base[1]= VV[79]; |
base[1]= VV[79]; |
2291 |
vs_base=vs_top; |
vs_base=vs_top; |
2302 |
} |
} |
2303 |
/* function definition for ADD-TO-HOTLIST */ |
/* function definition for ADD-TO-HOTLIST */ |
2304 |
|
|
2305 |
static L29() |
static void L29() |
2306 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
2307 |
register object *VOL sup=base+VM29; VC29 |
register object *VOL sup=base+VM29; VC29 |
2308 |
vs_reserve(VM29); |
vs_reserve(VM29); |
2309 |
check_arg(1); |
check_arg(1); |
2310 |
vs_top=sup; |
vs_top=sup; |
2311 |
|
goto TTL; |
2312 |
TTL:; |
TTL:; |
2313 |
if(!(type_of(base[0])==t_symbol)){ |
if(!(type_of(base[0])==t_symbol)){ |
2314 |
goto T877;} |
goto T877;} |
2315 |
base[0]= get(base[0],VV[68],Cnil); |
base[0]= get(base[0],VV[68],Cnil); |
2316 |
|
goto T877; |
2317 |
T877:; |
T877:; |
2318 |
if((base[0])==Cnil){ |
if((base[0])==Cnil){ |
2319 |
goto T882;} |
goto T882;} |
2331 |
(void) (*Lnk90)(); |
(void) (*Lnk90)(); |
2332 |
vs_top=sup; |
vs_top=sup; |
2333 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
|
{object tag;frame_ptr fr;object p;bool active; |
|
2334 |
frs_push(FRS_PROTECT,Cnil); |
frs_push(FRS_PROTECT,Cnil); |
2335 |
|
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active; |
2336 |
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
2337 |
else{ |
else{ |
2338 |
base[3]= base[1]; |
base[3]= base[1]; |
2343 |
if(!(number_compare(V224,small_fixnum(10))<0)){ |
if(!(number_compare(V224,small_fixnum(10))<0)){ |
2344 |
goto T893;} |
goto T893;} |
2345 |
(void)(princ(VV[86],base[1])); |
(void)(princ(VV[86],base[1])); |
2346 |
|
goto T893; |
2347 |
T893:; |
T893:; |
2348 |
base[3]= base[1]; |
base[3]= base[1]; |
2349 |
base[4]= VV[87]; |
base[4]= VV[87]; |
2363 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2364 |
Lclose(); |
Lclose(); |
2365 |
vs_top=sup; |
vs_top=sup; |
2366 |
|
goto T902; |
2367 |
T902:; |
T902:; |
2368 |
vs_base=vs_top=base+3; |
vs_base=vs_top=base+3; |
2369 |
for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
2370 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
2371 |
return;}} |
return;}} |
2372 |
|
goto T882; |
2373 |
T882:; |
T882:; |
2374 |
base[1]= Cnil; |
base[1]= Cnil; |
2375 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2377 |
} |
} |
2378 |
/* function definition for LIST-MATCHES */ |
/* function definition for LIST-MATCHES */ |
2379 |
|
|
2380 |
static L30() |
static void L30() |
2381 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2382 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
2383 |
vs_reserve(VM30); |
vs_reserve(VM30); |
2401 |
V229= Cnil; |
V229= Cnil; |
2402 |
V230= Cnil; |
V230= Cnil; |
2403 |
V231= Cnil; |
V231= Cnil; |
2404 |
|
goto T907; |
2405 |
T907:; |
T907:; |
2406 |
if(((V228))==Cnil){ |
if(((V228))==Cnil){ |
2407 |
goto T910;} |
goto T910;} |
2408 |
goto T909; |
goto T909; |
2409 |
|
goto T910; |
2410 |
T910:; |
T910:; |
2411 |
goto T908; |
goto T908; |
2412 |
|
goto T909; |
2413 |
T909:; |
T909:; |
2414 |
{register object V232; |
{register object V232; |
2415 |
V232= car((V228)); |
V232= car((V228)); |
2419 |
goto T917;}} |
goto T917;}} |
2420 |
V231= Cnil; |
V231= Cnil; |
2421 |
goto T916; |
goto T916; |
2422 |
|
goto T917; |
2423 |
T917:; |
T917:; |
2424 |
base[2]= (V225); |
base[2]= (V225); |
2425 |
base[3]= (V227); |
base[3]= (V227); |
2427 |
(void) (*Lnk97)(); |
(void) (*Lnk97)(); |
2428 |
vs_top=sup; |
vs_top=sup; |
2429 |
V231= vs_base[0]; |
V231= vs_base[0]; |
2430 |
|
goto T916; |
2431 |
T916:; |
T916:; |
2432 |
if(((V230))==Cnil){ |
if(((V230))==Cnil){ |
2433 |
goto T923;} |
goto T923;} |
2439 |
if(type_of((V234))!=t_cons)FEwrong_type_argument(Scons,(V234)); |
if(type_of((V234))!=t_cons)FEwrong_type_argument(Scons,(V234)); |
2440 |
((V234))->c.c_cdr = (V235); |
((V234))->c.c_cdr = (V235); |
2441 |
goto T921;} |
goto T921;} |
2442 |
|
goto T923; |
2443 |
T923:; |
T923:; |
2444 |
V230= make_cons((V231),Cnil); |
V230= make_cons((V231),Cnil); |
2445 |
V229= (V230); |
V229= (V230); |
2446 |
|
goto T921; |
2447 |
T921:; |
T921:; |
2448 |
V228= cdr((V228)); |
V228= cdr((V228)); |
2449 |
goto T907; |
goto T907; |
2450 |
|
goto T908; |
2451 |
T908:; |
T908:; |
2452 |
base[2]= (V229); |
base[2]= (V229); |
2453 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2462 |
} |
} |
2463 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
2464 |
|
|
2465 |
static LC31(base0) |
static void LC31(base0) |
2466 |
register object *base0; |
register object *base0; |
2467 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2468 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
2476 |
base[1]= Cnil; |
base[1]= Cnil; |
2477 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2478 |
return; |
return; |
2479 |
|
goto T935; |
2480 |
T935:; |
T935:; |
2481 |
base[1]= (number_compare((V236),(base0[0]->c.c_car))>=0?Ct:Cnil); |
base[1]= (number_compare((V236),(base0[0]->c.c_car))>=0?Ct:Cnil); |
2482 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2483 |
return; |
return; |
2484 |
} |
} |
2485 |
} |
} |
2486 |
static LnkT126(){ call_or_link(VV[126],&Lnk126);} /* DEFAULT-INFO-HOTLIST */ |
static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* DEFAULT-INFO-HOTLIST */ |
2487 |
static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* USER-HOMEDIR-PATHNAME */ |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* USER-HOMEDIR-PATHNAME */ |
2488 |
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[124],&LnkLI124,ap);} /* REMOVE-IF */ |
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[124],(void **)&LnkLI124,ap);} /* REMOVE-IF */ |
2489 |
static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* READ-FROM-STRING */ |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* READ-FROM-STRING */ |
2490 |
static object LnkTLI122(){return call_proc0(VV[122],&LnkLI122);} /* TYPE-ERROR */ |
static object LnkTLI122(){return call_proc0(VV[122],(void **)&LnkLI122);} /* TYPE-ERROR */ |
2491 |
static LnkT121(){ call_or_link(VV[121],&Lnk121);} /* OFFER-CHOICES */ |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* OFFER-CHOICES */ |
2492 |
static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* INFO-AUX */ |
static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* INFO-AUX */ |
2493 |
static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* ADD-FILE */ |
static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ADD-FILE */ |
2494 |
static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* GET-INFO-CHOICES */ |
static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* GET-INFO-CHOICES */ |
2495 |
static LnkT117(){ call_or_link(VV[117],&Lnk117);} /* END-WAITING */ |
static void LnkT117(){ call_or_link(VV[117],(void **)&Lnk117);} /* END-WAITING */ |
2496 |
static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* PRINT-NODE */ |
static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* PRINT-NODE */ |
2497 |
static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* GET-NODE-INDEX */ |
static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* GET-NODE-INDEX */ |
2498 |
static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* SETUP-INFO */ |
static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* SETUP-INFO */ |
2499 |
static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* WAITING */ |
static void LnkT113(){ call_or_link(VV[113],(void **)&Lnk113);} /* WAITING */ |
2500 |
static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* INFO-GET-FILE */ |
static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* INFO-GET-FILE */ |
2501 |
static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* INFO-SUBFILE */ |
static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* INFO-SUBFILE */ |
2502 |
static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* WINFO */ |
static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* WINFO */ |
2503 |
static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* TKERROR */ |
static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* TKERROR */ |
2504 |
static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* NODES-FROM-INDEX */ |
static void LnkT108(){ call_or_link(VV[108],(void **)&Lnk108);} /* NODES-FROM-INDEX */ |
2505 |
static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* INFO-GET-TAGS */ |
static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* INFO-GET-TAGS */ |
2506 |
static LnkT106(){ call_or_link(VV[106],&Lnk106);} /* FILE-SEARCH */ |
static void LnkT106(){ call_or_link(VV[106],(void **)&Lnk106);} /* FILE-SEARCH */ |
2507 |
static LnkT105(){ call_or_link(VV[105],&Lnk105);} /* FIX-LOAD-PATH */ |
static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-LOAD-PATH */ |
2508 |
static LnkT104(){ call_or_link(VV[104],&Lnk104);} /* GET-INDEX-NODE */ |
static void LnkT104(){ call_or_link(VV[104],(void **)&Lnk104);} /* GET-INDEX-NODE */ |
2509 |
static LnkT103(){ call_or_link(VV[103],&Lnk103);} /* SHOW-INFO */ |
static void LnkT103(){ call_or_link(VV[103],(void **)&Lnk103);} /* SHOW-INFO */ |
2510 |
static LnkT102(){ call_or_link(VV[102],&Lnk102);} /* GET-NODES */ |
static void LnkT102(){ call_or_link(VV[102],(void **)&Lnk102);} /* GET-NODES */ |
2511 |
static LnkT101(){ call_or_link(VV[101],&Lnk101);} /* STRING-CONCATENATE */ |
static void LnkT101(){ call_or_link(VV[101],(void **)&Lnk101);} /* STRING-CONCATENATE */ |
2512 |
static LnkT100(){ call_or_link(VV[100],&Lnk100);} /* RE-QUOTE-STRING */ |
static void LnkT100(){ call_or_link(VV[100],(void **)&Lnk100);} /* RE-QUOTE-STRING */ |
2513 |
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],&LnkLI99,ap);} /* POSITION */ |
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],(void **)&LnkLI99,ap);} /* POSITION */ |
2514 |
static LnkT98(){ call_or_link(VV[98],&Lnk98);} /* INFO-ERROR */ |
static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* INFO-ERROR */ |
2515 |
static LnkT97(){ call_or_link(VV[97],&Lnk97);} /* GET-MATCH */ |
static void LnkT97(){ call_or_link(VV[97],(void **)&Lnk97);} /* GET-MATCH */ |
2516 |
static LnkT96(){ call_or_link(VV[96],&Lnk96);} /* ATOI */ |
static void LnkT96(){ call_or_link(VV[96],(void **)&Lnk96);} /* ATOI */ |
2517 |
static long LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[95],&LnkLI95,4353,ap);} /* MATCH-BEGINNING */ |
static long LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[95],(void **)&LnkLI95,4353,ap);} /* MATCH-BEGINNING */ |
2518 |
static long LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[94],&LnkLI94,4353,ap);} /* MATCH-END */ |
static long LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[94],(void **)&LnkLI94,4353,ap);} /* MATCH-END */ |
2519 |
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],&LnkLI93,ap);} /* STRING-MATCH */ |
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],(void **)&LnkLI93,ap);} /* STRING-MATCH */ |
2520 |
static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* FILE-TO-STRING */ |
static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* FILE-TO-STRING */ |
2521 |
static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* FREAD */ |
static void LnkT91(){ call_or_link(VV[91],(void **)&Lnk91);} /* FREAD */ |
2522 |
static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* OPEN */ |
static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* OPEN */ |
2523 |
static object LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[89],&LnkLI89,ap);} /* VECTOR-PUSH-EXTEND */ |
static object LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[89],(void **)&LnkLI89,ap);} /* VECTOR-PUSH-EXTEND */ |
2524 |
static object LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[88],&LnkLI88,ap);} /* MAKE-ARRAY */ |
static object LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[88],(void **)&LnkLI88,ap);} /* MAKE-ARRAY */ |
2525 |
|
|
2526 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2527 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |