1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "debug.h" |
#include "debug.h" |
4 |
init_debug(){do_init(VV);} |
void init_debug(){do_init(VV);} |
5 |
/* function definition for SHOW-BREAK-VARIABLES */ |
/* function definition for SHOW-BREAK-VARIABLES */ |
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); |
14 |
V1=(base[0]); |
V1=(base[0]); |
15 |
vs_top=sup; |
vs_top=sup; |
16 |
goto T2; |
goto T2; |
17 |
|
goto T1; |
18 |
T1:; |
T1:; |
19 |
V1= small_fixnum(1); |
V1= small_fixnum(1); |
20 |
|
goto T2; |
21 |
T2:; |
T2:; |
22 |
|
goto T5; |
23 |
T5:; |
T5:; |
24 |
{register object V2; |
{register object V2; |
25 |
register object V3; |
register object V3; |
26 |
V2= reverse(car(symbol_value(VV[0]))); |
V2= reverse(car(symbol_value(VV[0]))); |
27 |
V3= car((V2)); |
V3= car((V2)); |
28 |
|
goto T11; |
29 |
T11:; |
T11:; |
30 |
if(!(endp((V2)))){ |
if(!(endp((V2)))){ |
31 |
goto T12;} |
goto T12;} |
32 |
goto T7; |
goto T7; |
33 |
|
goto T12; |
34 |
T12:; |
T12:; |
35 |
base[3]= symbol_value(VV[1]); |
base[3]= symbol_value(VV[1]); |
36 |
base[4]= VV[2]; |
base[4]= VV[2]; |
42 |
V2= cdr((V2)); |
V2= cdr((V2)); |
43 |
V3= car((V2)); |
V3= car((V2)); |
44 |
goto T11;} |
goto T11;} |
45 |
|
goto T7; |
46 |
T7:; |
T7:; |
47 |
V1= number_plus((V1),small_fixnum(-1)); |
V1= number_plus((V1),small_fixnum(-1)); |
48 |
if(!((fix((V1)))>(0))){ |
if(!((fix((V1)))>(0))){ |
49 |
goto T27;} |
goto T27;} |
50 |
goto T26; |
goto T26; |
51 |
|
goto T27; |
52 |
T27:; |
T27:; |
53 |
vs_base=vs_top=base+1; |
vs_base=vs_top=base+1; |
54 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
55 |
return; |
return; |
56 |
|
goto T26; |
57 |
T26:; |
T26:; |
58 |
vs_base=vs_top; |
vs_base=vs_top; |
59 |
(void) (*Lnk110)(); |
(void) (*Lnk110)(); |
67 |
|
|
68 |
object V5; |
object V5; |
69 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
70 |
|
goto TTL; |
71 |
TTL:; |
TTL:; |
72 |
{object V6; |
{object V6; |
73 |
base[1]= (V5); |
base[1]= (V5); |
94 |
V9= vs_base[0]; |
V9= vs_base[0]; |
95 |
V7= reverse(V9); |
V7= reverse(V9); |
96 |
V8= car((V7)); |
V8= car((V7)); |
97 |
|
goto T43; |
98 |
T43:; |
T43:; |
99 |
if(!(endp((V7)))){ |
if(!(endp((V7)))){ |
100 |
goto T44;} |
goto T44;} |
101 |
{object V10 = Cnil; |
{object V10 = Cnil; |
102 |
VMR2(V10)} |
VMR2(V10)} |
103 |
|
goto T44; |
104 |
T44:; |
T44:; |
105 |
base[2]= symbol_value(VV[1]); |
base[2]= symbol_value(VV[1]); |
106 |
base[3]= VV[3]; |
base[3]= VV[3]; |
112 |
V7= cdr((V7)); |
V7= cdr((V7)); |
113 |
V8= car((V7)); |
V8= car((V7)); |
114 |
goto T43;} |
goto T43;} |
115 |
|
goto T35; |
116 |
T35:; |
T35:; |
117 |
{object V11 = Cnil; |
{object V11 = Cnil; |
118 |
VMR2(V11)}} |
VMR2(V11)}} |
119 |
|
base[0]=base[0]; |
120 |
|
return Cnil; |
121 |
} |
} |
122 |
/* function definition for SEARCH-STACK */ |
/* function definition for SEARCH-STACK */ |
123 |
|
|
124 |
static L3() |
static void L3() |
125 |
{register object *base=vs_base; |
{register object *base=vs_base; |
126 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
127 |
vs_reserve(VM3); |
vs_reserve(VM3); |
129 |
check_arg(1); |
check_arg(1); |
130 |
V12=(base[0]); |
V12=(base[0]); |
131 |
vs_top=sup; |
vs_top=sup; |
132 |
|
goto TTL; |
133 |
TTL:; |
TTL:; |
134 |
{object V13; |
{object V13; |
135 |
V13= Cnil; |
V13= Cnil; |
137 |
goto T62;} |
goto T62;} |
138 |
V13= symbol_name((V12)); |
V13= symbol_name((V12)); |
139 |
goto T60; |
goto T60; |
140 |
|
goto T62; |
141 |
T62:; |
T62:; |
142 |
V13= (V12); |
V13= (V12); |
143 |
|
goto T60; |
144 |
T60:; |
T60:; |
145 |
{register long V14; |
{register long V14; |
146 |
register long V15; |
register long V15; |
152 |
V17= (type_of((V16))==t_fixnum?Ct:Cnil); |
V17= (type_of((V16))==t_fixnum?Ct:Cnil); |
153 |
if(V17==Cnil)goto T67; |
if(V17==Cnil)goto T67; |
154 |
goto T66; |
goto T66; |
155 |
|
goto T67; |
156 |
T67:;} |
T67:;} |
157 |
(void)((*(LnkLI114))()); |
(void)((*(LnkLI114))()); |
158 |
|
goto T66; |
159 |
T66:; |
T66:; |
160 |
V14= fix((V16));} |
V14= fix((V16));} |
161 |
V15= 2; |
V15= 2; |
163 |
V18= Cnil; |
V18= Cnil; |
164 |
{register object V19; |
{register object V19; |
165 |
V19= Cnil; |
V19= Cnil; |
166 |
|
goto T71; |
167 |
T71:; |
T71:; |
168 |
if((V14)<=(V15)){ |
if((V14)<=(V15)){ |
169 |
goto T74;} |
goto T74;} |
170 |
goto T73; |
goto T73; |
171 |
|
goto T74; |
172 |
T74:; |
T74:; |
173 |
goto T72; |
goto T72; |
174 |
|
goto T73; |
175 |
T73:; |
T73:; |
176 |
{register object V20; |
{register object V20; |
177 |
base[1]= make_fixnum(V14); |
base[1]= make_fixnum(V14); |
192 |
vs_top=sup; |
vs_top=sup; |
193 |
V19= vs_base[0]; |
V19= vs_base[0]; |
194 |
goto T80; |
goto T80; |
195 |
|
goto T82; |
196 |
T82:; |
T82:; |
197 |
if(!(type_of((V18))==t_symbol)){ |
if(!(type_of((V18))==t_symbol)){ |
198 |
goto T88;} |
goto T88;} |
199 |
V19= (V18); |
V19= (V18); |
200 |
goto T80; |
goto T80; |
201 |
|
goto T88; |
202 |
T88:; |
T88:; |
203 |
if(!(type_of((V18))==t_cons||((V18))==Cnil)){ |
if(!(type_of((V18))==t_cons||((V18))==Cnil)){ |
204 |
goto T92;} |
goto T92;} |
208 |
goto T95; |
goto T95; |
209 |
}else V21=V21->c.c_cdr; |
}else V21=V21->c.c_cdr; |
210 |
goto T92;} |
goto T92;} |
211 |
|
goto T95; |
212 |
T95:; |
T95:; |
213 |
V19= cadr((V18)); |
V19= cadr((V18)); |
214 |
goto T80; |
goto T80; |
215 |
|
goto T92; |
216 |
T92:; |
T92:; |
217 |
V19= VV[5]; |
V19= VV[5]; |
218 |
|
goto T80; |
219 |
T80:; |
T80:; |
220 |
V22= symbol_name((V19)); |
V22= symbol_name((V19)); |
221 |
if(((VFUN_NARGS=4,(*(LnkLI117))((V13),/* INLINE-ARGS */V22,VV[6],VV[7])))==Cnil){ |
if(((VFUN_NARGS=4,(*(LnkLI117))((V13),/* INLINE-ARGS */V22,VV[6],VV[7])))==Cnil){ |
228 |
vs_base=vs_top; |
vs_base=vs_top; |
229 |
(void) (*Lnk119)(); |
(void) (*Lnk119)(); |
230 |
return; |
return; |
231 |
|
goto T98; |
232 |
T98:; |
T98:; |
233 |
V14= (V14)-(1); |
V14= (V14)-(1); |
234 |
goto T71; |
goto T71; |
235 |
|
goto T72; |
236 |
T72:; |
T72:; |
237 |
base[1]= symbol_value(VV[1]); |
base[1]= symbol_value(VV[1]); |
238 |
base[2]= VV[8]; |
base[2]= VV[8]; |
250 |
} |
} |
251 |
/* function definition for BREAK-LOCALS */ |
/* function definition for BREAK-LOCALS */ |
252 |
|
|
253 |
static L4() |
static void L4() |
254 |
{register object *base=vs_base; |
{register object *base=vs_base; |
255 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
256 |
vs_reserve(VM4); |
vs_reserve(VM4); |
261 |
V23=(base[0]); |
V23=(base[0]); |
262 |
vs_top=sup; |
vs_top=sup; |
263 |
goto T112; |
goto T112; |
264 |
|
goto T111; |
265 |
T111:; |
T111:; |
266 |
V23= small_fixnum(1); |
V23= small_fixnum(1); |
267 |
|
goto T112; |
268 |
T112:; |
T112:; |
269 |
{object V24; |
{object V24; |
270 |
object V25; |
object V25; |
297 |
V32= (type_of((V23))==t_fixnum?Ct:Cnil); |
V32= (type_of((V23))==t_fixnum?Ct:Cnil); |
298 |
if(V32==Cnil)goto T128; |
if(V32==Cnil)goto T128; |
299 |
goto T127; |
goto T127; |
300 |
|
goto T128; |
301 |
T128:;} |
T128:;} |
302 |
(void)((*(LnkLI114))()); |
(void)((*(LnkLI114))()); |
303 |
|
goto T127; |
304 |
T127:; |
T127:; |
305 |
V31= fix((V23)); |
V31= fix((V23)); |
306 |
{register long V33; |
{register long V33; |
308 |
V35= (type_of((V26))==t_fixnum?Ct:Cnil); |
V35= (type_of((V26))==t_fixnum?Ct:Cnil); |
309 |
if(V35==Cnil)goto T132; |
if(V35==Cnil)goto T132; |
310 |
goto T131; |
goto T131; |
311 |
|
goto T132; |
312 |
T132:;} |
T132:;} |
313 |
(void)((*(LnkLI114))()); |
(void)((*(LnkLI114))()); |
314 |
|
goto T131; |
315 |
T131:; |
T131:; |
316 |
V33= fix((V26)); |
V33= fix((V26)); |
317 |
V34= 2; |
V34= 2; |
318 |
|
goto T136; |
319 |
T136:; |
T136:; |
320 |
if((V33)<=(V34)){ |
if((V33)<=(V34)){ |
321 |
goto T139;} |
goto T139;} |
322 |
goto T138; |
goto T138; |
323 |
|
goto T139; |
324 |
T139:; |
T139:; |
325 |
goto T137; |
goto T137; |
326 |
|
goto T138; |
327 |
T138:; |
T138:; |
328 |
if((V30)>=(V31)){ |
if((V30)>=(V31)){ |
329 |
goto T142;} |
goto T142;} |
330 |
goto T141; |
goto T141; |
331 |
|
goto T142; |
332 |
T142:; |
T142:; |
333 |
goto T137; |
goto T137; |
334 |
|
goto T141; |
335 |
T141:; |
T141:; |
336 |
bds_bind(VV[9],make_fixnum(V33)); |
bds_bind(VV[9],make_fixnum(V33)); |
337 |
vs_base=vs_top; |
vs_base=vs_top; |
343 |
V30= (V30)+(1); |
V30= (V30)+(1); |
344 |
V33= (V33)-(1); |
V33= (V33)-(1); |
345 |
goto T136; |
goto T136; |
346 |
|
goto T137; |
347 |
T137:; |
T137:; |
348 |
base[6]= Cnil; |
base[6]= Cnil; |
349 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
357 |
bds_unwind1; |
bds_unwind1; |
358 |
bds_unwind1; |
bds_unwind1; |
359 |
return;}} |
return;}} |
360 |
|
goto T123; |
361 |
T123:; |
T123:; |
362 |
base[6]= (V27); |
base[6]= (V27); |
363 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
371 |
vs_top=sup; |
vs_top=sup; |
372 |
V28= vs_base[0]; |
V28= vs_base[0]; |
373 |
goto T152; |
goto T152; |
374 |
|
goto T154; |
375 |
T154:; |
T154:; |
376 |
V28= (V27); |
V28= (V27); |
377 |
|
goto T152; |
378 |
T152:; |
T152:; |
379 |
if(!(type_of((V28))==t_symbol)){ |
if(!(type_of((V28))==t_symbol)){ |
380 |
goto T160;} |
goto T160;} |
381 |
V29= get((V28),VV[14],Cnil); |
V29= get((V28),VV[14],Cnil); |
382 |
|
goto T160; |
383 |
T160:; |
T160:; |
384 |
{object V36; |
{object V36; |
385 |
base[6]= make_fixnum((1)+(fix(symbol_value(VV[9])))); |
base[6]= make_fixnum((1)+(fix(symbol_value(VV[9])))); |
402 |
V39= (type_of((V25))==t_fixnum?Ct:Cnil); |
V39= (type_of((V25))==t_fixnum?Ct:Cnil); |
403 |
if(V39==Cnil)goto T178; |
if(V39==Cnil)goto T178; |
404 |
goto T177; |
goto T177; |
405 |
|
goto T178; |
406 |
T178:;} |
T178:;} |
407 |
(void)((*(LnkLI114))()); |
(void)((*(LnkLI114))()); |
408 |
|
goto T177; |
409 |
T177:; |
T177:; |
410 |
V37= fix((V25));{object V40; |
V37= fix((V25));{object V40; |
411 |
V40= (type_of((V36))==t_fixnum?Ct:Cnil); |
V40= (type_of((V36))==t_fixnum?Ct:Cnil); |
412 |
if(V40==Cnil)goto T182; |
if(V40==Cnil)goto T182; |
413 |
goto T181; |
goto T181; |
414 |
|
goto T182; |
415 |
T182:;} |
T182:;} |
416 |
(void)((*(LnkLI114))()); |
(void)((*(LnkLI114))()); |
417 |
|
goto T181; |
418 |
T181:; |
T181:; |
419 |
V38= fix((V36)); |
V38= fix((V36)); |
420 |
{register long V41; |
{register long V41; |
421 |
V41= 0; |
V41= 0; |
422 |
{register object V42; |
{register object V42; |
423 |
V42= Cnil; |
V42= Cnil; |
424 |
|
goto T186; |
425 |
T186:; |
T186:; |
426 |
if((V37)>=(V38)){ |
if((V37)>=(V38)){ |
427 |
goto T189;} |
goto T189;} |
428 |
goto T188; |
goto T188; |
429 |
|
goto T189; |
430 |
T189:; |
T189:; |
431 |
goto T187; |
goto T187; |
432 |
|
goto T188; |
433 |
T188:; |
T188:; |
434 |
V42= Cnil; |
V42= Cnil; |
435 |
{register object x= small_fixnum(0),V43= (V29); |
{register object x= small_fixnum(0),V43= (V29); |
438 |
goto T196; |
goto T196; |
439 |
}else V43=V43->c.c_cdr; |
}else V43=V43->c.c_cdr; |
440 |
goto T195;} |
goto T195;} |
441 |
|
goto T196; |
442 |
T196:; |
T196:; |
443 |
base[6]= (V29); |
base[6]= (V29); |
444 |
base[7]= make_fixnum(V41); |
base[7]= make_fixnum(V41); |
447 |
vs_top=sup; |
vs_top=sup; |
448 |
V42= vs_base[0]; |
V42= vs_base[0]; |
449 |
goto T193; |
goto T193; |
450 |
|
goto T195; |
451 |
T195:; |
T195:; |
452 |
V42= nth(V41,(V29)); |
V42= nth(V41,(V29)); |
453 |
|
goto T193; |
454 |
T193:; |
T193:; |
455 |
if(((V42))==Cnil){ |
if(((V42))==Cnil){ |
456 |
goto T203;} |
goto T203;} |
467 |
Lformat(); |
Lformat(); |
468 |
vs_top=sup; |
vs_top=sup; |
469 |
goto T201; |
goto T201; |
470 |
|
goto T203; |
471 |
T203:; |
T203:; |
472 |
base[6]= symbol_value(VV[1]); |
base[6]= symbol_value(VV[1]); |
473 |
base[7]= VV[17]; |
base[7]= VV[17]; |
480 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
481 |
Lformat(); |
Lformat(); |
482 |
vs_top=sup; |
vs_top=sup; |
483 |
|
goto T201; |
484 |
T201:; |
T201:; |
485 |
V37= (V37)+(1); |
V37= (V37)+(1); |
486 |
if(!((V41)<(2147483646))){ |
if(!((V41)<(2147483646))){ |
487 |
goto T219;} |
goto T219;} |
488 |
goto T218; |
goto T218; |
489 |
|
goto T219; |
490 |
T219:; |
T219:; |
491 |
(void)((*(LnkLI114))()); |
(void)((*(LnkLI114))()); |
492 |
|
goto T218; |
493 |
T218:; |
T218:; |
494 |
V41= (V41)+(1); |
V41= (V41)+(1); |
495 |
goto T186; |
goto T186; |
496 |
|
goto T187; |
497 |
T187:; |
T187:; |
498 |
base[6]= Cnil; |
base[6]= Cnil; |
499 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
507 |
bds_unwind1; |
bds_unwind1; |
508 |
bds_unwind1; |
bds_unwind1; |
509 |
return;}}} |
return;}}} |
510 |
|
goto T174; |
511 |
T174:; |
T174:; |
512 |
if(!(type_of((V28))==t_cons||((V28))==Cnil)){ |
if(!(type_of((V28))==t_cons||((V28))==Cnil)){ |
513 |
goto T225;} |
goto T225;} |
517 |
bds_unwind1; |
bds_unwind1; |
518 |
bds_unwind1; |
bds_unwind1; |
519 |
return; |
return; |
520 |
|
goto T225; |
521 |
T225:; |
T225:; |
522 |
base[6]= symbol_value(VV[1]); |
base[6]= symbol_value(VV[1]); |
523 |
base[7]= VV[19]; |
base[7]= VV[19]; |
527 |
bds_unwind1; |
bds_unwind1; |
528 |
bds_unwind1; |
bds_unwind1; |
529 |
return; |
return; |
530 |
|
goto T167; |
531 |
T167:; |
T167:; |
532 |
base[6]= Cnil; |
base[6]= Cnil; |
533 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
539 |
} |
} |
540 |
/* function definition for LOC */ |
/* function definition for LOC */ |
541 |
|
|
542 |
static L5() |
static void L5() |
543 |
{register object *base=vs_base; |
{register object *base=vs_base; |
544 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
545 |
vs_reserve(VM5); |
vs_reserve(VM5); |
549 |
V44=(base[0]); |
V44=(base[0]); |
550 |
vs_top=sup; |
vs_top=sup; |
551 |
goto T230; |
goto T230; |
552 |
|
goto T229; |
553 |
T229:; |
T229:; |
554 |
V44= small_fixnum(0); |
V44= small_fixnum(0); |
555 |
|
goto T230; |
556 |
T230:; |
T230:; |
557 |
{object V45; |
{object V45; |
558 |
base[1]= symbol_value(VV[9]); |
base[1]= symbol_value(VV[9]); |
574 |
V46= vs_base[0]; |
V46= vs_base[0]; |
575 |
if((fix((V44)))<((fix(V46))-(fix((V45))))){ |
if((fix((V44)))<((fix(V46))-(fix((V45))))){ |
576 |
goto T234;} |
goto T234;} |
577 |
|
goto T235; |
578 |
T235:; |
T235:; |
579 |
base[1]= VV[20]; |
base[1]= VV[20]; |
580 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
581 |
Lerror(); |
Lerror(); |
582 |
vs_top=sup; |
vs_top=sup; |
583 |
|
goto T234; |
584 |
T234:; |
T234:; |
585 |
base[1]= make_fixnum((fix((V44)))+(fix((V45)))); |
base[1]= make_fixnum((fix((V44)))+(fix((V45)))); |
586 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
590 |
} |
} |
591 |
/* macro definition for MV-SETQ */ |
/* macro definition for MV-SETQ */ |
592 |
|
|
593 |
static L6() |
static void L6() |
594 |
{register object *base=vs_base; |
{register object *base=vs_base; |
595 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
596 |
vs_reserve(VM6); |
vs_reserve(VM6); |
611 |
V52= cdr(base[2]); |
V52= cdr(base[2]); |
612 |
V53= small_fixnum(0); |
V53= small_fixnum(0); |
613 |
V54= Cnil; |
V54= Cnil; |
614 |
|
goto T247; |
615 |
T247:; |
T247:; |
616 |
if(((V52))!=Cnil){ |
if(((V52))!=Cnil){ |
617 |
goto T248;} |
goto T248;} |
618 |
V51= reverse((V54)); |
V51= reverse((V54)); |
619 |
goto T244; |
goto T244; |
620 |
|
goto T248; |
621 |
T248:; |
T248:; |
622 |
V55= car((V52)); |
V55= car((V52)); |
623 |
V56= list(3,VV[22],/* INLINE-ARGS */V55,list(2,VV[23],(V53))); |
V56= list(3,VV[22],/* INLINE-ARGS */V55,list(2,VV[23],(V53))); |
625 |
V52= cdr((V52)); |
V52= cdr((V52)); |
626 |
V53= one_plus((V53)); |
V53= one_plus((V53)); |
627 |
goto T247;} |
goto T247;} |
628 |
|
goto T244; |
629 |
T244:; |
T244:; |
630 |
base[4]= listA(3,VV[21],/* INLINE-ARGS */V50,V51); |
base[4]= listA(3,VV[21],/* INLINE-ARGS */V50,V51); |
631 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
633 |
} |
} |
634 |
/* macro definition for MV-VALUES */ |
/* macro definition for MV-VALUES */ |
635 |
|
|
636 |
static L7() |
static void L7() |
637 |
{register object *base=vs_base; |
{register object *base=vs_base; |
638 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
639 |
vs_reserve(VM7); |
vs_reserve(VM7); |
648 |
V60= cdr(base[2]); |
V60= cdr(base[2]); |
649 |
V61= small_fixnum(0); |
V61= small_fixnum(0); |
650 |
V62= Cnil; |
V62= Cnil; |
651 |
|
goto T261; |
652 |
T261:; |
T261:; |
653 |
if(((V60))!=Cnil){ |
if(((V60))!=Cnil){ |
654 |
goto T262;} |
goto T262;} |
655 |
V59= reverse((V62)); |
V59= reverse((V62)); |
656 |
goto T258; |
goto T258; |
657 |
|
goto T262; |
658 |
T262:; |
T262:; |
659 |
V63= list(3,VV[24],(V61),car((V60))); |
V63= list(3,VV[24],(V61),car((V60))); |
660 |
V62= make_cons(/* INLINE-ARGS */V63,(V62)); |
V62= make_cons(/* INLINE-ARGS */V63,(V62)); |
661 |
V60= cdr((V60)); |
V60= cdr((V60)); |
662 |
V61= one_plus((V61)); |
V61= one_plus((V61)); |
663 |
goto T261;} |
goto T261;} |
664 |
|
goto T258; |
665 |
T258:; |
T258:; |
666 |
base[3]= listA(3,VV[21],/* INLINE-ARGS */V58,V59); |
base[3]= listA(3,VV[21],/* INLINE-ARGS */V58,V59); |
667 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
669 |
} |
} |
670 |
/* function definition for DBL */ |
/* function definition for DBL */ |
671 |
|
|
672 |
static L8() |
static void L8() |
673 |
{register object *base=vs_base; |
{register object *base=vs_base; |
674 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
675 |
vs_reserve(VM8); |
vs_reserve(VM8); |
676 |
check_arg(0); |
check_arg(0); |
677 |
vs_top=sup; |
vs_top=sup; |
678 |
|
goto TTL; |
679 |
TTL:; |
TTL:; |
680 |
base[0]= Cnil; |
base[0]= Cnil; |
681 |
base[1]= Cnil; |
base[1]= Cnil; |
685 |
} |
} |
686 |
/* function definition for MAKE-INSTREAM */ |
/* function definition for MAKE-INSTREAM */ |
687 |
|
|
688 |
static L9() |
static void L9() |
689 |
{register object *base=vs_base; |
{register object *base=vs_base; |
690 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
691 |
vs_reserve(VM9); |
vs_reserve(VM9); |
711 |
} |
} |
712 |
/* function definition for CLEANUP */ |
/* function definition for CLEANUP */ |
713 |
|
|
714 |
static L10() |
static void L10() |
715 |
{register object *base=vs_base; |
{register object *base=vs_base; |
716 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
717 |
vs_reserve(VM10); |
vs_reserve(VM10); |
718 |
check_arg(0); |
check_arg(0); |
719 |
vs_top=sup; |
vs_top=sup; |
720 |
|
goto TTL; |
721 |
TTL:; |
TTL:; |
722 |
{register object V67; |
{register object V67; |
723 |
register object V68; |
register object V68; |
724 |
V67= symbol_value(VV[26]); |
V67= symbol_value(VV[26]); |
725 |
V68= car((V67)); |
V68= car((V67)); |
726 |
|
goto T282; |
727 |
T282:; |
T282:; |
728 |
if(!(endp((V67)))){ |
if(!(endp((V67)))){ |
729 |
goto T283;} |
goto T283;} |
730 |
base[1]= Cnil; |
base[1]= Cnil; |
731 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
732 |
return; |
return; |
733 |
|
goto T283; |
734 |
T283:; |
T283:; |
735 |
base[1]= structure_ref((V68),VV[25],0); |
base[1]= structure_ref((V68),VV[25],0); |
736 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
739 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
740 |
goto T287;} |
goto T287;} |
741 |
setq(VV[26],(VFUN_NARGS=2,(*(LnkLI123))((V68),symbol_value(VV[26])))); |
setq(VV[26],(VFUN_NARGS=2,(*(LnkLI123))((V68),symbol_value(VV[26])))); |
742 |
|
goto T287; |
743 |
T287:; |
T287:; |
744 |
V67= cdr((V67)); |
V67= cdr((V67)); |
745 |
V68= car((V67)); |
V68= car((V67)); |
747 |
} |
} |
748 |
/* function definition for GET-INSTREAM */ |
/* function definition for GET-INSTREAM */ |
749 |
|
|
750 |
static L11() |
static void L11() |
751 |
{register object *base=vs_base; |
{register object *base=vs_base; |
752 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
753 |
vs_reserve(VM11); |
vs_reserve(VM11); |
755 |
check_arg(1); |
check_arg(1); |
756 |
V69=(base[0]); |
V69=(base[0]); |
757 |
vs_top=sup; |
vs_top=sup; |
758 |
|
goto TTL; |
759 |
TTL:;{object V70; |
TTL:;{object V70; |
760 |
{register object V71; |
{register object V71; |
761 |
register object V72; |
register object V72; |
762 |
V71= symbol_value(VV[26]); |
V71= symbol_value(VV[26]); |
763 |
V72= car((V71)); |
V72= car((V71)); |
764 |
|
goto T302; |
765 |
T302:; |
T302:; |
766 |
if(!(endp((V71)))){ |
if(!(endp((V71)))){ |
767 |
goto T303;} |
goto T303;} |
768 |
V70= Cnil; |
V70= Cnil; |
769 |
goto T298; |
goto T298; |
770 |
|
goto T303; |
771 |
T303:; |
T303:; |
772 |
V73= structure_ref((V72),VV[25],0); |
V73= structure_ref((V72),VV[25],0); |
773 |
if(!(((V69))==(/* INLINE-ARGS */V73))){ |
if(!(((V69))==(/* INLINE-ARGS */V73))){ |
774 |
goto T307;} |
goto T307;} |
775 |
V70= (V72); |
V70= (V72); |
776 |
goto T298; |
goto T298; |
777 |
|
goto T307; |
778 |
T307:; |
T307:; |
779 |
V71= cdr((V71)); |
V71= cdr((V71)); |
780 |
V72= car((V71)); |
V72= car((V71)); |
781 |
goto T302;} |
goto T302;} |
782 |
|
goto T298; |
783 |
T298:; |
T298:; |
784 |
if(V70==Cnil)goto T297; |
if(V70==Cnil)goto T297; |
785 |
base[1]= V70; |
base[1]= V70; |
786 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
787 |
return; |
return; |
788 |
|
goto T297; |
789 |
T297:;} |
T297:;} |
790 |
base[1]= VV[27]; |
base[1]= VV[27]; |
791 |
base[2]= (V69); |
base[2]= (V69); |
802 |
vs_top=sup; |
vs_top=sup; |
803 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
804 |
goto T320; |
goto T320; |
805 |
|
goto T322; |
806 |
T322:; |
T322:; |
807 |
base[4]= Cnil; |
base[4]= Cnil; |
808 |
|
goto T320; |
809 |
T320:; |
T320:; |
810 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
811 |
(void) (*Lnk125)(); |
(void) (*Lnk125)(); |
819 |
} |
} |
820 |
/* function definition for NEWLINE */ |
/* function definition for NEWLINE */ |
821 |
|
|
822 |
static L12() |
static void L12() |
823 |
{register object *base=vs_base; |
{register object *base=vs_base; |
824 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
825 |
vs_reserve(VM12); |
vs_reserve(VM12); |
829 |
V75=(base[0]); |
V75=(base[0]); |
830 |
V76=(base[1]); |
V76=(base[1]); |
831 |
vs_top=sup; |
vs_top=sup; |
832 |
|
goto TTL; |
833 |
TTL:; |
TTL:; |
834 |
{object V77; |
{object V77; |
835 |
base[2]= (V75); |
base[2]= (V75); |
851 |
goto T333;} |
goto T333;} |
852 |
setq(VV[29],VV[31]); |
setq(VV[29],VV[31]); |
853 |
goto T331; |
goto T331; |
854 |
|
goto T333; |
855 |
T333:; |
T333:; |
856 |
setq(VV[29],Ct); |
setq(VV[29],Ct); |
857 |
|
goto T331; |
858 |
T331:; |
T331:; |
859 |
vs_base=vs_top=base+2; |
vs_base=vs_top=base+2; |
860 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
863 |
} |
} |
864 |
/* function definition for QUOTATION-READER */ |
/* function definition for QUOTATION-READER */ |
865 |
|
|
866 |
static L13() |
static void L13() |
867 |
{register object *base=vs_base; |
{register object *base=vs_base; |
868 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
869 |
vs_reserve(VM13); |
vs_reserve(VM13); |
873 |
V81=(base[0]); |
V81=(base[0]); |
874 |
V82=(base[1]); |
V82=(base[1]); |
875 |
vs_top=sup; |
vs_top=sup; |
876 |
|
goto TTL; |
877 |
TTL:; |
TTL:; |
878 |
{object V83; |
{object V83; |
879 |
object V84; |
object V84; |
897 |
} |
} |
898 |
/* function definition for NEW-SEMI-COLON-READER */ |
/* function definition for NEW-SEMI-COLON-READER */ |
899 |
|
|
900 |
static L14() |
static void L14() |
901 |
{register object *base=vs_base; |
{register object *base=vs_base; |
902 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
903 |
vs_reserve(VM14); |
vs_reserve(VM14); |
908 |
V89=(base[0]); |
V89=(base[0]); |
909 |
V90=(base[1]); |
V90=(base[1]); |
910 |
vs_top=sup; |
vs_top=sup; |
911 |
|
goto TTL; |
912 |
TTL:; |
TTL:; |
913 |
{register object V91; |
{register object V91; |
914 |
object V92; |
object V92; |
963 |
V96= structure_set((V91),VV[25],1,caddr((V95))); |
V96= structure_set((V91),VV[25],1,caddr((V95))); |
964 |
bds_unwind1; |
bds_unwind1; |
965 |
goto T352;} |
goto T352;} |
966 |
|
goto T354; |
967 |
T354:; |
T354:; |
968 |
(void)(( |
(void)(( |
969 |
(type_of(symbol_value(VV[38])) == t_sfun ?(*(object (*)())((symbol_value(VV[38]))->sfn.sfn_self)): |
(type_of(symbol_value(VV[38])) == t_sfun ?(*(object (*)())((symbol_value(VV[38]))->sfn.sfn_self)): |
970 |
(fcall.fun=(symbol_value(VV[38])),fcall.argd=2,fcalln))((V89),(V90)))); |
(fcall.fun=(symbol_value(VV[38])),fcall.argd=2,fcalln))((V89),(V90)))); |
971 |
|
goto T352; |
972 |
T352:; |
T352:; |
973 |
base[2]= Cnil; |
base[2]= Cnil; |
974 |
base[3]= (V89); |
base[3]= (V89); |
981 |
goto T375;} |
goto T375;} |
982 |
setq(VV[29],VV[31]); |
setq(VV[29],VV[31]); |
983 |
goto T373; |
goto T373; |
984 |
|
goto T375; |
985 |
T375:; |
T375:; |
986 |
setq(VV[29],Ct); |
setq(VV[29],Ct); |
987 |
|
goto T373; |
988 |
T373:; |
T373:; |
989 |
vs_base=vs_top=base+2; |
vs_base=vs_top=base+2; |
990 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
993 |
} |
} |
994 |
/* function definition for SETUP-LINEINFO */ |
/* function definition for SETUP-LINEINFO */ |
995 |
|
|
996 |
static L15() |
static void L15() |
997 |
{register object *base=vs_base; |
{register object *base=vs_base; |
998 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
999 |
vs_reserve(VM15); |
vs_reserve(VM15); |
1000 |
check_arg(0); |
check_arg(0); |
1001 |
vs_top=sup; |
vs_top=sup; |
1002 |
|
goto TTL; |
1003 |
TTL:; |
TTL:; |
1004 |
base[0]= VV[33]; |
base[0]= VV[33]; |
1005 |
base[1]= symbol_function(VV[129]); |
base[1]= symbol_function(VV[129]); |
1032 |
} |
} |
1033 |
/* function definition for NLOAD */ |
/* function definition for NLOAD */ |
1034 |
|
|
1035 |
static L16() |
static void L16() |
1036 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1037 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
1038 |
vs_reserve(VM16); |
vs_reserve(VM16); |
1078 |
} |
} |
1079 |
/* function definition for LEFT-PARENTHESIS-READER */ |
/* function definition for LEFT-PARENTHESIS-READER */ |
1080 |
|
|
1081 |
static L17() |
static void L17() |
1082 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1083 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
1084 |
vs_reserve(VM17); |
vs_reserve(VM17); |
1088 |
V101=(base[0]); |
V101=(base[0]); |
1089 |
V102=(base[1]); |
V102=(base[1]); |
1090 |
vs_top=sup; |
vs_top=sup; |
1091 |
|
goto TTL; |
1092 |
TTL:; |
TTL:; |
1093 |
{object V103; |
{object V103; |
1094 |
register object V104; |
register object V104; |
1097 |
if(!((symbol_value(VV[29]))==(Ct))){ |
if(!((symbol_value(VV[29]))==(Ct))){ |
1098 |
goto T411;} |
goto T411;} |
1099 |
setq(VV[29],Cnil); |
setq(VV[29],Cnil); |
1100 |
|
goto T411; |
1101 |
T411:; |
T411:; |
1102 |
if(((V104))==Cnil){ |
if(((V104))==Cnil){ |
1103 |
goto T415;} |
goto T415;} |
1107 |
vs_top=sup; |
vs_top=sup; |
1108 |
V104= vs_base[0]; |
V104= vs_base[0]; |
1109 |
V103= structure_ref((V104),VV[25],1); |
V103= structure_ref((V104),VV[25],1); |
1110 |
|
goto T415; |
1111 |
T415:; |
T415:; |
1112 |
{object V105; |
{object V105; |
1113 |
V105= ( |
V105= ( |
1130 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1131 |
siLhash_set(); |
siLhash_set(); |
1132 |
vs_top=sup;} |
vs_top=sup;} |
1133 |
|
goto T423; |
1134 |
T423:; |
T423:; |
1135 |
base[2]= (V105); |
base[2]= (V105); |
1136 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1139 |
} |
} |
1140 |
/* function definition for WALK-THROUGH */ |
/* function definition for WALK-THROUGH */ |
1141 |
|
|
1142 |
static L18() |
static void L18() |
1143 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1144 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
1145 |
vs_reserve(VM18); |
vs_reserve(VM18); |
1147 |
check_arg(1); |
check_arg(1); |
1148 |
V110=(base[0]); |
V110=(base[0]); |
1149 |
vs_top=sup; |
vs_top=sup; |
1150 |
|
goto TTL; |
1151 |
TTL:; |
TTL:; |
1152 |
{register object V111; |
{register object V111; |
1153 |
V111= Cnil; |
V111= Cnil; |
1154 |
|
goto T435; |
1155 |
T435:; |
T435:; |
1156 |
if(!(type_of((V110))==t_cons)){ |
if(!(type_of((V110))==t_cons)){ |
1157 |
goto T436;} |
goto T436;} |
1185 |
siLhash_set(); |
siLhash_set(); |
1186 |
vs_top=sup; |
vs_top=sup; |
1187 |
goto T439;} |
goto T439;} |
1188 |
|
goto T446; |
1189 |
T446:; |
T446:; |
1190 |
V115= make_cons((V111),(V110)); |
V115= make_cons((V111),(V110)); |
1191 |
(void)((VFUN_NARGS=2,(*(LnkLI135))(/* INLINE-ARGS */V115,symbol_value(VV[47])))); |
(void)((VFUN_NARGS=2,(*(LnkLI135))(/* INLINE-ARGS */V115,symbol_value(VV[47])))); |
1192 |
|
goto T439; |
1193 |
T439:; |
T439:; |
1194 |
base[1]= car((V110)); |
base[1]= car((V110)); |
1195 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1197 |
vs_top=sup; |
vs_top=sup; |
1198 |
V110= cdr((V110)); |
V110= cdr((V110)); |
1199 |
goto T435; |
goto T435; |
1200 |
|
goto T436; |
1201 |
T436:; |
T436:; |
1202 |
base[1]= Cnil; |
base[1]= Cnil; |
1203 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1206 |
} |
} |
1207 |
/* function definition for COMPILER-DEF-HOOK */ |
/* function definition for COMPILER-DEF-HOOK */ |
1208 |
|
|
1209 |
static L19() |
static void L19() |
1210 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1211 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1212 |
vs_reserve(VM19); |
vs_reserve(VM19); |
1216 |
V116=(base[0]); |
V116=(base[0]); |
1217 |
V117=(base[1]); |
V117=(base[1]); |
1218 |
vs_top=sup; |
vs_top=sup; |
1219 |
|
goto TTL; |
1220 |
TTL:; |
TTL:; |
1221 |
{object V118; |
{object V118; |
1222 |
register long V119; |
register long V119; |
1229 |
base[2]= remprop((V116),VV[49]); |
base[2]= remprop((V116),VV[49]); |
1230 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1231 |
return; |
return; |
1232 |
|
goto T467; |
1233 |
T467:; |
T467:; |
1234 |
if(!((symbol_value(VV[35]))==(symbol_value(VV[39])))){ |
if(!((symbol_value(VV[35]))==(symbol_value(VV[39])))){ |
1235 |
goto T470;} |
goto T470;} |
1246 |
register long V122; |
register long V122; |
1247 |
V121= make_fixnum(length((V118))); |
V121= make_fixnum(length((V118))); |
1248 |
V122= 0; |
V122= 0; |
1249 |
|
goto T481; |
1250 |
T481:; |
T481:; |
1251 |
V123 = make_fixnum(V122); |
V123 = make_fixnum(V122); |
1252 |
if(!(number_compare(V123,(V121))>=0)){ |
if(!(number_compare(V123,(V121))>=0)){ |
1253 |
goto T482;} |
goto T482;} |
1254 |
goto T477; |
goto T477; |
1255 |
|
goto T482; |
1256 |
T482:; |
T482:; |
1257 |
{register long V124; |
{register long V124; |
1258 |
V125= aref1((V118),V122); |
V125= aref1((V118),V122); |
1260 |
if(!((V124)>(V120))){ |
if(!((V124)>(V120))){ |
1261 |
goto T488;} |
goto T488;} |
1262 |
V120= V124; |
V120= V124; |
1263 |
|
goto T488; |
1264 |
T488:; |
T488:; |
1265 |
if(!((V124)<(V119))){ |
if(!((V124)<(V119))){ |
1266 |
goto T486;} |
goto T486;} |
1267 |
V119= V124;} |
V119= V124;} |
1268 |
|
goto T486; |
1269 |
T486:; |
T486:; |
1270 |
V122= (V122)+1; |
V122= (V122)+1; |
1271 |
goto T481;} |
goto T481;} |
1272 |
|
goto T477; |
1273 |
T477:; |
T477:; |
1274 |
if(!((length(symbol_value(VV[47])))>(0))){ |
if(!((length(symbol_value(VV[47])))>(0))){ |
1275 |
goto T499;} |
goto T499;} |
1288 |
register object V134; |
register object V134; |
1289 |
V133= make_fixnum(length((V118))); |
V133= make_fixnum(length((V118))); |
1290 |
V134= small_fixnum(0); |
V134= small_fixnum(0); |
1291 |
|
goto T510; |
1292 |
T510:; |
T510:; |
1293 |
if(!(number_compare((V134),(V133))>=0)){ |
if(!(number_compare((V134),(V133))>=0)){ |
1294 |
goto T511;} |
goto T511;} |
1295 |
goto T506; |
goto T506; |
1296 |
|
goto T511; |
1297 |
T511:; |
T511:; |
1298 |
{object V135; |
{object V135; |
1299 |
V135= aref1((V118),fixint((V134))); |
V135= aref1((V118),fixint((V134))); |
1300 |
(void)(aset1((V126),(fix(cdar((V135))))-(V119),cdr((V135))));} |
(void)(aset1((V126),(fix(cdar((V135))))-(V119),cdr((V135))));} |
1301 |
V134= one_plus((V134)); |
V134= one_plus((V134)); |
1302 |
goto T510;} |
goto T510;} |
1303 |
|
goto T506; |
1304 |
T506:; |
T506:; |
1305 |
(void)(sputprop((V116),VV[49],(V126))); |
(void)(sputprop((V116),VV[49],(V126))); |
1306 |
if(((V127))==Cnil){ |
if(((V127))==Cnil){ |
1314 |
object V140; |
object V140; |
1315 |
V139= (V136); |
V139= (V136); |
1316 |
V140= car((V139)); |
V140= car((V139)); |
1317 |
|
goto T529; |
1318 |
T529:; |
T529:; |
1319 |
if(!(endp((V139)))){ |
if(!(endp((V139)))){ |
1320 |
goto T530;} |
goto T530;} |
1321 |
base[3]= Cnil; |
base[3]= Cnil; |
1322 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1323 |
return; |
return; |
1324 |
|
goto T530; |
1325 |
T530:; |
T530:; |
1326 |
{object V141; |
{object V141; |
1327 |
object V142; |
object V142; |
1348 |
V139= cdr((V139)); |
V139= cdr((V139)); |
1349 |
V140= car((V139)); |
V140= car((V139)); |
1350 |
goto T529;}} |
goto T529;}} |
1351 |
|
goto T522; |
1352 |
T522:; |
T522:; |
1353 |
base[2]= Cnil; |
base[2]= Cnil; |
1354 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1355 |
return;} |
return;} |
1356 |
|
goto T499; |
1357 |
T499:; |
T499:; |
1358 |
{object V149; |
{object V149; |
1359 |
V149= get((V116),VV[52],Cnil); |
V149= get((V116),VV[52],Cnil); |
1362 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1363 |
(void) (*Lnk139)(); |
(void) (*Lnk139)(); |
1364 |
return;} |
return;} |
1365 |
|
goto T470; |
1366 |
T470:; |
T470:; |
1367 |
base[2]= Cnil; |
base[2]= Cnil; |
1368 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1371 |
} |
} |
1372 |
/* function definition for INSTREAM-NAME */ |
/* function definition for INSTREAM-NAME */ |
1373 |
|
|
1374 |
static L20() |
static void L20() |
1375 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1376 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1377 |
vs_reserve(VM20); |
vs_reserve(VM20); |
1379 |
check_arg(1); |
check_arg(1); |
1380 |
V150=(base[0]); |
V150=(base[0]); |
1381 |
vs_top=sup; |
vs_top=sup; |
1382 |
|
goto TTL; |
1383 |
TTL:;{object V151; |
TTL:;{object V151; |
1384 |
V151= structure_ref((V150),VV[25],2); |
V151= structure_ref((V150),VV[25],2); |
1385 |
if(V151==Cnil)goto T551; |
if(V151==Cnil)goto T551; |
1386 |
base[1]= V151; |
base[1]= V151; |
1387 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1388 |
return; |
return; |
1389 |
|
goto T551; |
1390 |
T551:;} |
T551:;} |
1391 |
base[1]= structure_ref((V150),VV[25],0); |
base[1]= structure_ref((V150),VV[25],0); |
1392 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1399 |
return str->sm.sm_object1; else return Cnil; } |
return str->sm.sm_object1; else return Cnil; } |
1400 |
/* function definition for STREAM-NAME */ |
/* function definition for STREAM-NAME */ |
1401 |
|
|
1402 |
static L21() |
static void L21() |
1403 |
{ object *old_base=vs_base; |
{ object *old_base=vs_base; |
1404 |
object x; |
object x; |
1405 |
check_arg(1); |
check_arg(1); |
1412 |
static object closedp(str) object str;{return (str->sm.sm_fp==0 ? Ct :Cnil); } |
static object closedp(str) object str;{return (str->sm.sm_fp==0 ? Ct :Cnil); } |
1413 |
/* function definition for CLOSEDP */ |
/* function definition for CLOSEDP */ |
1414 |
|
|
1415 |
static L22() |
static void L22() |
1416 |
{ object *old_base=vs_base; |
{ object *old_base=vs_base; |
1417 |
object x; |
object x; |
1418 |
check_arg(1); |
check_arg(1); |
1424 |
} |
} |
1425 |
/* function definition for FIND-LINE-IN-FUN */ |
/* function definition for FIND-LINE-IN-FUN */ |
1426 |
|
|
1427 |
static L23() |
static void L23() |
1428 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1429 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1430 |
vs_reserve(VM21); |
vs_reserve(VM21); |
1438 |
V154=(base[2]); |
V154=(base[2]); |
1439 |
V155=(base[3]); |
V155=(base[3]); |
1440 |
vs_top=sup; |
vs_top=sup; |
1441 |
|
goto TTL; |
1442 |
TTL:; |
TTL:; |
1443 |
{object V156; |
{object V156; |
1444 |
V156= Cnil; |
V156= Cnil; |
1453 |
register object V159; |
register object V159; |
1454 |
V158= make_fixnum(length((V157))); |
V158= make_fixnum(length((V157))); |
1455 |
V159= small_fixnum(0); |
V159= small_fixnum(0); |
1456 |
|
goto T566; |
1457 |
T566:; |
T566:; |
1458 |
if(!(number_compare((V159),(V158))>=0)){ |
if(!(number_compare((V159),(V158))>=0)){ |
1459 |
goto T567;} |
goto T567;} |
1460 |
base[5]= Cnil; |
base[5]= Cnil; |
1461 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1462 |
return; |
return; |
1463 |
|
goto T567; |
1464 |
T567:; |
T567:; |
1465 |
V160= aref1((V157),fixint((V159))); |
V160= aref1((V157),fixint((V159))); |
1466 |
if(!(((V152))==(/* INLINE-ARGS */V160))){ |
if(!(((V152))==(/* INLINE-ARGS */V160))){ |
1478 |
base[5]= VV[55]; |
base[5]= VV[55]; |
1479 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1480 |
return; |
return; |
1481 |
|
goto T574; |
1482 |
T574:; |
T574:; |
1483 |
base[6]= (V154); |
base[6]= (V154); |
1484 |
base[7]= (V157); |
base[7]= (V157); |
1495 |
base[5]= VV[55]; |
base[5]= VV[55]; |
1496 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1497 |
return; |
return; |
1498 |
|
goto T571; |
1499 |
T571:; |
T571:; |
1500 |
V159= one_plus((V159)); |
V159= one_plus((V159)); |
1501 |
goto T566;} |
goto T566;} |
1502 |
|
goto T561; |
1503 |
T561:; |
T561:; |
1504 |
base[4]= Cnil; |
base[4]= Cnil; |
1505 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1506 |
return;} |
return;} |
1507 |
|
goto T558; |
1508 |
T558:; |
T558:; |
1509 |
base[4]= Cnil; |
base[4]= Cnil; |
1510 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1513 |
} |
} |
1514 |
/* function definition for CURRENT-STEP-FUN */ |
/* function definition for CURRENT-STEP-FUN */ |
1515 |
|
|
1516 |
static L24() |
static void L24() |
1517 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1518 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1519 |
vs_reserve(VM22); |
vs_reserve(VM22); |
1523 |
V163=(base[0]); |
V163=(base[0]); |
1524 |
vs_top=sup; |
vs_top=sup; |
1525 |
goto T594; |
goto T594; |
1526 |
|
goto T593; |
1527 |
T593:; |
T593:; |
1528 |
vs_base=vs_top; |
vs_base=vs_top; |
1529 |
(void) (*Lnk113)(); |
(void) (*Lnk113)(); |
1530 |
vs_top=sup; |
vs_top=sup; |
1531 |
V163= vs_base[0]; |
V163= vs_base[0]; |
1532 |
|
goto T594; |
1533 |
T594:; |
T594:; |
1534 |
{register object V164; |
{register object V164; |
1535 |
V164= one_minus((V163)); |
V164= one_minus((V163)); |
1536 |
|
goto T598; |
1537 |
T598:; |
T598:; |
1538 |
if(!((fix((V164)))<=(0))){ |
if(!((fix((V164)))<=(0))){ |
1539 |
goto T599;} |
goto T599;} |
1540 |
base[1]= Cnil; |
base[1]= Cnil; |
1541 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1542 |
return; |
return; |
1543 |
|
goto T599; |
1544 |
T599:; |
T599:; |
1545 |
{register object V165; |
{register object V165; |
1546 |
base[1]= (V164); |
base[1]= (V164); |
1553 |
base[1]= (V165); |
base[1]= (V165); |
1554 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1555 |
return;} |
return;} |
1556 |
|
goto T603; |
1557 |
T603:; |
T603:; |
1558 |
V164= make_fixnum((fix((V164)))-(1)); |
V164= make_fixnum((fix((V164)))-(1)); |
1559 |
goto T598;} |
goto T598;} |
1561 |
} |
} |
1562 |
/* function definition for INIT-BREAK-POINTS */ |
/* function definition for INIT-BREAK-POINTS */ |
1563 |
|
|
1564 |
static L25() |
static void L25() |
1565 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1566 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
1567 |
vs_reserve(VM23); |
vs_reserve(VM23); |
1568 |
check_arg(0); |
check_arg(0); |
1569 |
vs_top=sup; |
vs_top=sup; |
1570 |
|
goto TTL; |
1571 |
TTL:; |
TTL:; |
1572 |
base[0]= symbol_value(VV[57]); |
base[0]= symbol_value(VV[57]); |
1573 |
base[1]= small_fixnum(0); |
base[1]= small_fixnum(0); |
1581 |
} |
} |
1582 |
/* function definition for STEP-INTO */ |
/* function definition for STEP-INTO */ |
1583 |
|
|
1584 |
static L26() |
static void L26() |
1585 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1586 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
1587 |
vs_reserve(VM24); |
vs_reserve(VM24); |
1591 |
V166=(base[0]); |
V166=(base[0]); |
1592 |
vs_top=sup; |
vs_top=sup; |
1593 |
goto T616; |
goto T616; |
1594 |
|
goto T615; |
1595 |
T615:; |
T615:; |
1596 |
V166= small_fixnum(1); |
V166= small_fixnum(1); |
1597 |
|
goto T616; |
1598 |
T616:; |
T616:; |
1599 |
if(symbol_value(VV[53])!=Cnil){ |
if(symbol_value(VV[53])!=Cnil){ |
1600 |
goto T618;} |
goto T618;} |
1601 |
vs_base=vs_top; |
vs_base=vs_top; |
1602 |
(void) (*Lnk141)(); |
(void) (*Lnk141)(); |
1603 |
vs_top=sup; |
vs_top=sup; |
1604 |
|
goto T618; |
1605 |
T618:; |
T618:; |
1606 |
setq(VV[58],VV[59]); |
setq(VV[58],VV[59]); |
1607 |
base[1]= VV[60]; |
base[1]= VV[60]; |
1611 |
} |
} |
1612 |
/* function definition for STEP-NEXT */ |
/* function definition for STEP-NEXT */ |
1613 |
|
|
1614 |
static L27() |
static void L27() |
1615 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1616 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
1617 |
vs_reserve(VM25); |
vs_reserve(VM25); |
1621 |
V167=(base[0]); |
V167=(base[0]); |
1622 |
vs_top=sup; |
vs_top=sup; |
1623 |
goto T622; |
goto T622; |
1624 |
|
goto T621; |
1625 |
T621:; |
T621:; |
1626 |
V167= small_fixnum(1); |
V167= small_fixnum(1); |
1627 |
|
goto T622; |
1628 |
T622:; |
T622:; |
1629 |
{object V168; |
{object V168; |
1630 |
vs_base=vs_top; |
vs_base=vs_top; |
1637 |
vs_base=vs_top; |
vs_base=vs_top; |
1638 |
(void) (*Lnk141)(); |
(void) (*Lnk141)(); |
1639 |
vs_top=sup; |
vs_top=sup; |
1640 |
|
goto T627; |
1641 |
T627:; |
T627:; |
1642 |
setq(VV[58],VV[62]); |
setq(VV[58],VV[62]); |
1643 |
base[1]= VV[60]; |
base[1]= VV[60]; |
1647 |
} |
} |
1648 |
/* function definition for MAYBE-BREAK */ |
/* function definition for MAYBE-BREAK */ |
1649 |
|
|
1650 |
static L28() |
static void L28() |
1651 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1652 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
1653 |
vs_reserve(VM26); |
vs_reserve(VM26); |
1661 |
V171=(base[2]); |
V171=(base[2]); |
1662 |
V172=(base[3]); |
V172=(base[3]); |
1663 |
vs_top=sup; |
vs_top=sup; |
1664 |
|
goto TTL; |
1665 |
TTL:; |
TTL:; |
1666 |
{object V173; |
{object V173; |
1667 |
V173= Cnil; |
V173= Cnil; |
1672 |
if(!((length(symbol_value(VV[53])))>(0))){ |
if(!((length(symbol_value(VV[53])))>(0))){ |
1673 |
goto T638;} |
goto T638;} |
1674 |
goto T637; |
goto T637; |
1675 |
|
goto T638; |
1676 |
T638:; |
T638:; |
1677 |
setq(VV[53],Cnil); |
setq(VV[53],Cnil); |
1678 |
|
goto T637; |
1679 |
T637:; |
T637:; |
1680 |
base[5]= (V171); |
base[5]= (V171); |
1681 |
base[6]= (V170); |
base[6]= (V170); |
1691 |
base[4]= Ct; |
base[4]= Ct; |
1692 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1693 |
return; |
return; |
1694 |
|
goto T632; |
1695 |
T632:; |
T632:; |
1696 |
base[4]= Cnil; |
base[4]= Cnil; |
1697 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1700 |
} |
} |
1701 |
/* function definition for BREAK-STEP-INTO */ |
/* function definition for BREAK-STEP-INTO */ |
1702 |
|
|
1703 |
static L29() |
static void L29() |
1704 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1705 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
1706 |
vs_reserve(VM27); |
vs_reserve(VM27); |
1710 |
V174=(base[0]); |
V174=(base[0]); |
1711 |
V175=(base[1]); |
V175=(base[1]); |
1712 |
vs_top=sup; |
vs_top=sup; |
1713 |
|
goto TTL; |
1714 |
TTL:; |
TTL:; |
1715 |
{object V176; |
{object V176; |
1716 |
vs_base=vs_top; |
vs_base=vs_top; |
1730 |
} |
} |
1731 |
/* function definition for BREAK-STEP-NEXT */ |
/* function definition for BREAK-STEP-NEXT */ |
1732 |
|
|
1733 |
static L30() |
static void L30() |
1734 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1735 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
1736 |
vs_reserve(VM28); |
vs_reserve(VM28); |
1740 |
V178=(base[0]); |
V178=(base[0]); |
1741 |
V179=(base[1]); |
V179=(base[1]); |
1742 |
vs_top=sup; |
vs_top=sup; |
1743 |
|
goto TTL; |
1744 |
TTL:; |
TTL:; |
1745 |
{object V180; |
{object V180; |
1746 |
vs_base=vs_top; |
vs_base=vs_top; |
1758 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1759 |
(void) (*Lnk144)(); |
(void) (*Lnk144)(); |
1760 |
return;} |
return;} |
1761 |
|
goto T655; |
1762 |
T655:; |
T655:; |
1763 |
base[2]= Cnil; |
base[2]= Cnil; |
1764 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1767 |
} |
} |
1768 |
/* function definition for *BREAK-POINTS* */ |
/* function definition for *BREAK-POINTS* */ |
1769 |
|
|
1770 |
static L31() |
static void L31() |
1771 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1772 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM29; VC29 |
1773 |
vs_reserve(VM29); |
vs_reserve(VM29); |
1777 |
V182=(base[0]); |
V182=(base[0]); |
1778 |
V183=(base[1]); |
V183=(base[1]); |
1779 |
vs_top=sup; |
vs_top=sup; |
1780 |
|
goto TTL; |
1781 |
TTL:; |
TTL:; |
1782 |
{object V184; |
{object V184; |
1783 |
V184= (VFUN_NARGS=4,(*(LnkLI143))((V182),symbol_value(VV[53]),VV[63],VV[64])); |
V184= (VFUN_NARGS=4,(*(LnkLI143))((V182),symbol_value(VV[53]),VV[63],VV[64])); |
1796 |
} |
} |
1797 |
/* function definition for DWIM */ |
/* function definition for DWIM */ |
1798 |
|
|
1799 |
static L32() |
static void L32() |
1800 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1801 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
1802 |
vs_reserve(VM30); |
vs_reserve(VM30); |
1804 |
check_arg(1); |
check_arg(1); |
1805 |
V185=(base[0]); |
V185=(base[0]); |
1806 |
vs_top=sup; |
vs_top=sup; |
1807 |
|
goto TTL; |
1808 |
TTL:; |
TTL:; |
1809 |
{register object V186; |
{register object V186; |
1810 |
register object V187; |
register object V187; |
1813 |
vs_top=sup; |
vs_top=sup; |
1814 |
V186= vs_base[0]; |
V186= vs_base[0]; |
1815 |
V187= car((V186)); |
V187= car((V186)); |
1816 |
|
goto T673; |
1817 |
T673:; |
T673:; |
1818 |
if(!(endp((V186)))){ |
if(!(endp((V186)))){ |
1819 |
goto T674;} |
goto T674;} |
1820 |
goto T669; |
goto T669; |
1821 |
|
goto T674; |
1822 |
T674:; |
T674:; |
1823 |
{register object V188; |
{register object V188; |
1824 |
register object V189; |
register object V189; |
1833 |
V189= vs_base[0]; |
V189= vs_base[0]; |
1834 |
vs_top=sup; |
vs_top=sup; |
1835 |
goto T684; |
goto T684; |
1836 |
|
goto T682; |
1837 |
T682:; |
T682:; |
1838 |
V188= Cnil; |
V188= Cnil; |
1839 |
|
goto T683; |
1840 |
T683:; |
T683:; |
1841 |
V189= Cnil; |
V189= Cnil; |
1842 |
|
goto T684; |
1843 |
T684:; |
T684:; |
1844 |
if((get((V188),VV[49],Cnil))==Cnil){ |
if((get((V188),VV[49],Cnil))==Cnil){ |
1845 |
goto T686;} |
goto T686;} |
1846 |
base[3]= (V188); |
base[3]= (V188); |
1847 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1848 |
return; |
return; |
1849 |
|
goto T686; |
1850 |
T686:; |
T686:; |
1851 |
if((V189)!=Cnil){ |
if((V189)!=Cnil){ |
1852 |
goto T678;} |
goto T678;} |
1854 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1855 |
Lunintern(); |
Lunintern(); |
1856 |
vs_top=sup;} |
vs_top=sup;} |
1857 |
|
goto T678; |
1858 |
T678:; |
T678:; |
1859 |
V186= cdr((V186)); |
V186= cdr((V186)); |
1860 |
V187= car((V186)); |
V187= car((V186)); |
1861 |
goto T673;} |
goto T673;} |
1862 |
|
goto T669; |
1863 |
T669:; |
T669:; |
1864 |
base[1]= Ct; |
base[1]= Ct; |
1865 |
base[2]= VV[66]; |
base[2]= VV[66]; |
1871 |
} |
} |
1872 |
/* function definition for BREAK-FUNCTION */ |
/* function definition for BREAK-FUNCTION */ |
1873 |
|
|
1874 |
static L33() |
static void L33() |
1875 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1876 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
1877 |
vs_reserve(VM31); |
vs_reserve(VM31); |
1889 |
V192=(base[2]); |
V192=(base[2]); |
1890 |
vs_top=sup; |
vs_top=sup; |
1891 |
goto T699; |
goto T699; |
1892 |
|
goto T697; |
1893 |
T697:; |
T697:; |
1894 |
V191= small_fixnum(1); |
V191= small_fixnum(1); |
1895 |
|
goto T698; |
1896 |
T698:; |
T698:; |
1897 |
V192= Cnil; |
V192= Cnil; |
1898 |
|
goto T699; |
1899 |
T699:; |
T699:; |
1900 |
{object V193; |
{object V193; |
1901 |
V193= Cnil; |
V193= Cnil; |
1916 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1917 |
(void) (*Lnk146)(); |
(void) (*Lnk146)(); |
1918 |
return; |
return; |
1919 |
|
goto T704; |
1920 |
T704:; |
T704:; |
1921 |
if(!(type_of((V194))==t_array|| |
if(!(type_of((V194))==t_array|| |
1922 |
type_of((V194))==t_vector|| |
type_of((V194))==t_vector|| |
1924 |
type_of((V194))==t_bitvector)){ |
type_of((V194))==t_bitvector)){ |
1925 |
goto T716;} |
goto T716;} |
1926 |
goto T715; |
goto T715; |
1927 |
|
goto T716; |
1928 |
T716:; |
T716:; |
1929 |
base[3]= Ct; |
base[3]= Ct; |
1930 |
base[4]= VV[67]; |
base[4]= VV[67]; |
1935 |
base[3]= Cnil; |
base[3]= Cnil; |
1936 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1937 |
return; |
return; |
1938 |
|
goto T715; |
1939 |
T715:; |
T715:; |
1940 |
{object V195; |
{object V195; |
1941 |
V196= aref1((V194),0); |
V196= aref1((V194),0); |
1943 |
if(((V192))==Cnil){ |
if(((V192))==Cnil){ |
1944 |
goto T723;} |
goto T723;} |
1945 |
V191= make_fixnum((fix((V191)))-(fix((V195)))); |
V191= make_fixnum((fix((V191)))-(fix((V195)))); |
1946 |
|
goto T723; |
1947 |
T723:;{object V197; |
T723:;{object V197; |
1948 |
if((fix((V191)))>=(1)){ |
if((fix((V191)))>=(1)){ |
1949 |
goto T730;} |
goto T730;} |
1950 |
V197= Cnil; |
V197= Cnil; |
1951 |
goto T729; |
goto T729; |
1952 |
|
goto T730; |
1953 |
T730:; |
T730:; |
1954 |
V197= ((fix((V191)))<(length((V194)))?Ct:Cnil); |
V197= ((fix((V191)))<(length((V194)))?Ct:Cnil); |
1955 |
|
goto T729; |
1956 |
T729:; |
T729:; |
1957 |
if(V197==Cnil)goto T728; |
if(V197==Cnil)goto T728; |
1958 |
goto T727; |
goto T727; |
1959 |
|
goto T728; |
1960 |
T728:;}{object V198; |
T728:;}{object V198; |
1961 |
base[3]= Ct; |
base[3]= Ct; |
1962 |
base[4]= VV[68]; |
base[4]= VV[68]; |
1967 |
V198= vs_base[0]; |
V198= vs_base[0]; |
1968 |
if(V198==Cnil)goto T732; |
if(V198==Cnil)goto T732; |
1969 |
goto T727; |
goto T727; |
1970 |
|
goto T732; |
1971 |
T732:;} |
T732:;} |
1972 |
base[3]= Cnil; |
base[3]= Cnil; |
1973 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1974 |
return; |
return; |
1975 |
|
goto T727; |
1976 |
T727:; |
T727:; |
1977 |
if(!(eql((V191),small_fixnum(1)))){ |
if(!(eql((V191),small_fixnum(1)))){ |
1978 |
goto T737;} |
goto T737;} |
1989 |
if((caddr((V199)))==Cnil){ |
if((caddr((V199)))==Cnil){ |
1990 |
goto T737;} |
goto T737;} |
1991 |
V191= small_fixnum(2);} |
V191= small_fixnum(2);} |
1992 |
|
goto T737; |
1993 |
T737:; |
T737:; |
1994 |
{register object V200; |
{register object V200; |
1995 |
register object V201; |
register object V201; |
1996 |
V200= make_fixnum((length((V194)))-(fix((V191)))); |
V200= make_fixnum((length((V194)))-(fix((V191)))); |
1997 |
V201= small_fixnum(0); |
V201= small_fixnum(0); |
1998 |
|
goto T753; |
1999 |
T753:; |
T753:; |
2000 |
if(!(number_compare((V201),(V200))>=0)){ |
if(!(number_compare((V201),(V200))>=0)){ |
2001 |
goto T754;} |
goto T754;} |
2002 |
goto T749; |
goto T749; |
2003 |
|
goto T754; |
2004 |
T754:; |
T754:; |
2005 |
V202= aref1((V194),fixint((V201))); |
V202= aref1((V194),fixint((V201))); |
2006 |
if((/* INLINE-ARGS */V202)==(VV[51])){ |
if((/* INLINE-ARGS */V202)==(VV[51])){ |
2022 |
vs_base=vs_top=base+4; |
vs_base=vs_top=base+4; |
2023 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
2024 |
return; |
return; |
2025 |
|
goto T758; |
2026 |
T758:; |
T758:; |
2027 |
V201= one_plus((V201)); |
V201= one_plus((V201)); |
2028 |
goto T753;} |
goto T753;} |
2029 |
|
goto T749; |
2030 |
T749:; |
T749:; |
2031 |
base[3]= Ct; |
base[3]= Ct; |
2032 |
base[4]= VV[70]; |
base[4]= VV[70]; |
2037 |
} |
} |
2038 |
/* function definition for INSERT-BREAK-POINT */ |
/* function definition for INSERT-BREAK-POINT */ |
2039 |
|
|
2040 |
static L34() |
static void L34() |
2041 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2042 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
2043 |
vs_reserve(VM32); |
vs_reserve(VM32); |
2045 |
check_arg(1); |
check_arg(1); |
2046 |
V203=(base[0]); |
V203=(base[0]); |
2047 |
vs_top=sup; |
vs_top=sup; |
2048 |
|
goto TTL; |
2049 |
TTL:; |
TTL:; |
2050 |
{register object V204; |
{register object V204; |
2051 |
V204= Cnil; |
V204= Cnil; |
2054 |
vs_base=vs_top; |
vs_base=vs_top; |
2055 |
(void) (*Lnk141)(); |
(void) (*Lnk141)(); |
2056 |
vs_top=sup; |
vs_top=sup; |
2057 |
|
goto T773; |
2058 |
T773:;{object V205; |
T773:;{object V205; |
2059 |
V205= (VFUN_NARGS=2,(*(LnkLI143))(Cnil,symbol_value(VV[53]))); |
V205= (VFUN_NARGS=2,(*(LnkLI143))(Cnil,symbol_value(VV[53]))); |
2060 |
if(V205==Cnil)goto T776; |
if(V205==Cnil)goto T776; |
2061 |
V204= V205; |
V204= V205; |
2062 |
goto T775; |
goto T775; |
2063 |
|
goto T776; |
2064 |
T776:;} |
T776:;} |
2065 |
{object V206; |
{object V206; |
2066 |
V206= make_fixnum(length(symbol_value(VV[53]))); |
V206= make_fixnum(length(symbol_value(VV[53]))); |
2067 |
(void)((VFUN_NARGS=2,(*(LnkLI135))(Cnil,symbol_value(VV[53])))); |
(void)((VFUN_NARGS=2,(*(LnkLI135))(Cnil,symbol_value(VV[53])))); |
2068 |
V204= (V206);} |
V204= (V206);} |
2069 |
|
goto T775; |
2070 |
T775:; |
T775:; |
2071 |
{object V207; |
{object V207; |
2072 |
{object V208= cdr(cdr(cdr((V203)))); |
{object V208= cdr(cdr(cdr((V203)))); |
2085 |
} |
} |
2086 |
/* function definition for SHORT-NAME */ |
/* function definition for SHORT-NAME */ |
2087 |
|
|
2088 |
static L35() |
static void L35() |
2089 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2090 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM33; VC33 |
2091 |
vs_reserve(VM33); |
vs_reserve(VM33); |
2093 |
check_arg(1); |
check_arg(1); |
2094 |
V213=(base[0]); |
V213=(base[0]); |
2095 |
vs_top=sup; |
vs_top=sup; |
2096 |
|
goto TTL; |
2097 |
TTL:; |
TTL:; |
2098 |
{object V214; |
{object V214; |
2099 |
V214= (VFUN_NARGS=4,(*(LnkLI143))(VV[71],(V213),VV[72],Ct)); |
V214= (VFUN_NARGS=4,(*(LnkLI143))(VV[71],(V213),VV[72],Ct)); |
2104 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2105 |
Lsubseq(); |
Lsubseq(); |
2106 |
return; |
return; |
2107 |
|
goto T787; |
2108 |
T787:; |
T787:; |
2109 |
base[1]= (V213); |
base[1]= (V213); |
2110 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2113 |
} |
} |
2114 |
/* function definition for SHOW-BREAK-POINT */ |
/* function definition for SHOW-BREAK-POINT */ |
2115 |
|
|
2116 |
static L36() |
static void L36() |
2117 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2118 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
2119 |
vs_reserve(VM34); |
vs_reserve(VM34); |
2121 |
check_arg(1); |
check_arg(1); |
2122 |
V215=(base[0]); |
V215=(base[0]); |
2123 |
vs_top=sup; |
vs_top=sup; |
2124 |
|
goto TTL; |
2125 |
TTL:; |
TTL:; |
2126 |
{object V216; |
{object V216; |
2127 |
V216= Cnil; |
V216= Cnil; |
2133 |
goto T796;} |
goto T796;} |
2134 |
V216= Ct; |
V216= Ct; |
2135 |
V217= cdr((V217)); |
V217= cdr((V217)); |
2136 |
|
goto T796; |
2137 |
T796:; |
T796:; |
2138 |
base[1]= Ct; |
base[1]= Ct; |
2139 |
base[2]= VV[73]; |
base[2]= VV[73]; |
2162 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
2163 |
Lformat(); |
Lformat(); |
2164 |
return;} |
return;} |
2165 |
|
goto T794; |
2166 |
T794:; |
T794:; |
2167 |
base[1]= Cnil; |
base[1]= Cnil; |
2168 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2171 |
} |
} |
2172 |
/* function definition for ITERATE-OVER-BKPTS */ |
/* function definition for ITERATE-OVER-BKPTS */ |
2173 |
|
|
2174 |
static L37() |
static void L37() |
2175 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2176 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
2177 |
vs_reserve(VM35); |
vs_reserve(VM35); |
2181 |
V219=(base[0]); |
V219=(base[0]); |
2182 |
V220=(base[1]); |
V220=(base[1]); |
2183 |
vs_top=sup; |
vs_top=sup; |
2184 |
|
goto TTL; |
2185 |
TTL:; |
TTL:; |
2186 |
{register object V221; |
{register object V221; |
2187 |
register object V222; |
register object V222; |
2188 |
V221= make_fixnum(length(symbol_value(VV[53]))); |
V221= make_fixnum(length(symbol_value(VV[53]))); |
2189 |
V222= small_fixnum(0); |
V222= small_fixnum(0); |
2190 |
|
goto T820; |
2191 |
T820:; |
T820:; |
2192 |
if(!(number_compare((V222),(V221))>=0)){ |
if(!(number_compare((V222),(V221))>=0)){ |
2193 |
goto T821;} |
goto T821;} |
2194 |
base[3]= Cnil; |
base[3]= Cnil; |
2195 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2196 |
return; |
return; |
2197 |
|
goto T821; |
2198 |
T821:; |
T821:; |
2199 |
{register object x= (V222),V223= (V219); |
{register object x= (V222),V223= (V219); |
2200 |
while(!endp(V223)) |
while(!endp(V223)) |
2203 |
}else V223=V223->c.c_cdr;} |
}else V223=V223->c.c_cdr;} |
2204 |
if(((V219))!=Cnil){ |
if(((V219))!=Cnil){ |
2205 |
goto T825;} |
goto T825;} |
2206 |
|
goto T826; |
2207 |
T826:; |
T826:; |
2208 |
{register object V224; |
{register object V224; |
2209 |
V224= aref1(symbol_value(VV[53]),fixint((V222)));{object V225; |
V224= aref1(symbol_value(VV[53]),fixint((V222)));{object V225; |
2223 |
V230= get(V231,VV[52],Cnil); |
V230= get(V231,VV[52],Cnil); |
2224 |
V233= (VFUN_NARGS=2,(*(LnkLI123))((V222),V230)); |
V233= (VFUN_NARGS=2,(*(LnkLI123))((V222),V230)); |
2225 |
(void)(sputprop(V228,VV[52],/* INLINE-ARGS */V233)); |
(void)(sputprop(V228,VV[52],/* INLINE-ARGS */V233)); |
2226 |
|
goto T833; |
2227 |
T833:; |
T833:; |
2228 |
V226= Cnil; |
V226= Cnil; |
2229 |
goto T831; |
goto T831; |
2230 |
|
goto T832; |
2231 |
T832:; |
T832:; |
2232 |
if((V227!= VV[151]))goto T839; |
if((V227!= VV[151]))goto T839; |
2233 |
if(!((car((V224)))==(Cnil))){ |
if(!((car((V224)))==(Cnil))){ |
2234 |
goto T841;} |
goto T841;} |
2235 |
V226= cdr((V224)); |
V226= cdr((V224)); |
2236 |
goto T831; |
goto T831; |
2237 |
|
goto T841; |
2238 |
T841:; |
T841:; |
2239 |
V226= Cnil; |
V226= Cnil; |
2240 |
goto T831; |
goto T831; |
2241 |
|
goto T839; |
2242 |
T839:; |
T839:; |
2243 |
if((V227!= VV[152]))goto T843; |
if((V227!= VV[152]))goto T843; |
2244 |
if(((V224))==Cnil){ |
if(((V224))==Cnil){ |
2247 |
goto T845;} |
goto T845;} |
2248 |
V226= make_cons(Cnil,(V224)); |
V226= make_cons(Cnil,(V224)); |
2249 |
goto T831; |
goto T831; |
2250 |
|
goto T845; |
2251 |
T845:; |
T845:; |
2252 |
V226= (V224); |
V226= (V224); |
2253 |
goto T831; |
goto T831; |
2254 |
|
goto T843; |
2255 |
T843:; |
T843:; |
2256 |
if((V227!= VV[153]))goto T849; |
if((V227!= VV[153]))goto T849; |
2257 |
if(((V224))==Cnil){ |
if(((V224))==Cnil){ |
2261 |
(void) (*Lnk148)(); |
(void) (*Lnk148)(); |
2262 |
vs_top=sup; |
vs_top=sup; |
2263 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
2264 |
|
goto T850; |
2265 |
T850:; |
T850:; |
2266 |
V226= (V224); |
V226= (V224); |
2267 |
goto T831; |
goto T831; |
2268 |
|
goto T849; |
2269 |
T849:; |
T849:; |
2270 |
V226= Cnil;} |
V226= Cnil;} |
2271 |
|
goto T831; |
2272 |
T831:; |
T831:; |
2273 |
(void)(aset1(V225,fixint((V222)),V226));}} |
(void)(aset1(V225,fixint((V222)),V226));}} |
2274 |
|
goto T825; |
2275 |
T825:; |
T825:; |
2276 |
V222= one_plus((V222)); |
V222= one_plus((V222)); |
2277 |
goto T820;} |
goto T820;} |
2279 |
} |
} |
2280 |
/* function definition for COMPLETE-PROP */ |
/* function definition for COMPLETE-PROP */ |
2281 |
|
|
2282 |
static L38() |
static void L38() |
2283 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2284 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
2285 |
vs_reserve(VM36); |
vs_reserve(VM36); |
2297 |
V237=(base[3]); |
V237=(base[3]); |
2298 |
vs_top=sup; |
vs_top=sup; |
2299 |
goto T859; |
goto T859; |
2300 |
|
goto T858; |
2301 |
T858:; |
T858:; |
2302 |
V237= Cnil; |
V237= Cnil; |
2303 |
|
goto T859; |
2304 |
T859:; |
T859:; |
2305 |
if(!(type_of((V234))==t_symbol)){ |
if(!(type_of((V234))==t_symbol)){ |
2306 |
goto T861;} |
goto T861;} |
2321 |
base[4]= (V234); |
base[4]= (V234); |
2322 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2323 |
return; |
return; |
2324 |
|
goto T861; |
2325 |
T861:; |
T861:; |
2326 |
{object V240; |
{object V240; |
2327 |
register object V241; |
register object V241; |
2344 |
goto T877;} |
goto T877;} |
2345 |
V242= (V245); |
V242= (V245); |
2346 |
goto T873; |
goto T873; |
2347 |
|
goto T877; |
2348 |
T877:; |
T877:; |
2349 |
base[4]= coerce_to_string((V245)); |
base[4]= coerce_to_string((V245)); |
2350 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2351 |
Lfind_package(); |
Lfind_package(); |
2352 |
vs_top=sup; |
vs_top=sup; |
2353 |
V242= vs_base[0];} |
V242= vs_base[0];} |
2354 |
|
goto T873; |
2355 |
T873:; |
T873:; |
2356 |
V243= Cnil; |
V243= Cnil; |
2357 |
V244= Cnil; |
V244= Cnil; |
2367 |
V247= fix(vs_base[0]); |
V247= fix(vs_base[0]); |
2368 |
vs_top=sup; |
vs_top=sup; |
2369 |
goto T885; |
goto T885; |
2370 |
|
goto T883; |
2371 |
T883:; |
T883:; |
2372 |
V246= fix(Cnil); |
V246= fix(Cnil); |
2373 |
|
goto T884; |
2374 |
T884:; |
T884:; |
2375 |
V247= fix(Cnil); |
V247= fix(Cnil); |
2376 |
|
goto T885; |
2377 |
T885:; |
T885:; |
2378 |
{object V248; |
{object V248; |
2379 |
register object V249; |
register object V249; |
2381 |
V251 = make_fixnum(V246); |
V251 = make_fixnum(V246); |
2382 |
V248= number_plus(V250,V251); |
V248= number_plus(V250,V251); |
2383 |
V249= small_fixnum(0); |
V249= small_fixnum(0); |
2384 |
|
goto T889; |
2385 |
T889:; |
T889:; |
2386 |
if(!(number_compare((V249),(V248))>=0)){ |
if(!(number_compare((V249),(V248))>=0)){ |
2387 |
goto T890;} |
goto T890;} |
2388 |
V243= Cnil; |
V243= Cnil; |
2389 |
goto T872; |
goto T872; |
2390 |
|
goto T890; |
2391 |
T890:; |
T890:; |
2392 |
V252 = make_fixnum(V247); |
V252 = make_fixnum(V247); |
2393 |
if(!(number_compare((V249),V252)<0)){ |
if(!(number_compare((V249),V252)<0)){ |
2399 |
vs_top=sup; |
vs_top=sup; |
2400 |
V244= vs_base[0]; |
V244= vs_base[0]; |
2401 |
goto T899; |
goto T899; |
2402 |
|
goto T901; |
2403 |
T901:; |
T901:; |
2404 |
base[5]= (V242); |
base[5]= (V242); |
2405 |
V253 = make_fixnum(V247); |
V253 = make_fixnum(V247); |
2408 |
siLpackage_external(); |
siLpackage_external(); |
2409 |
vs_top=sup; |
vs_top=sup; |
2410 |
V244= vs_base[0]; |
V244= vs_base[0]; |
2411 |
|
goto T899; |
2412 |
T899:; |
T899:; |
2413 |
|
goto T897; |
2414 |
T897:; |
T897:; |
2415 |
if(((V244))!=Cnil){ |
if(((V244))!=Cnil){ |
2416 |
goto T907;} |
goto T907;} |
2417 |
goto T898; |
goto T898; |
2418 |
|
goto T907; |
2419 |
T907:; |
T907:; |
2420 |
V243= car((V244)); |
V243= car((V244)); |
2421 |
if((get((V243),(V236),Cnil))==Cnil){ |
if((get((V243),(V236),Cnil))==Cnil){ |
2438 |
if(type_of((V255))!=t_cons)FEwrong_type_argument(Scons,(V255)); |
if(type_of((V255))!=t_cons)FEwrong_type_argument(Scons,(V255)); |
2439 |
((V255))->c.c_cdr = (V256); |
((V255))->c.c_cdr = (V256); |
2440 |
goto T912;} |
goto T912;} |
2441 |
|
goto T921; |
2442 |
T921:; |
T921:; |
2443 |
V241= make_cons((V243),Cnil); |
V241= make_cons((V243),Cnil); |
2444 |
V240= (V241); |
V240= (V241); |
2445 |
|
goto T912; |
2446 |
T912:; |
T912:; |
2447 |
V244= cdr((V244)); |
V244= cdr((V244)); |
2448 |
goto T897; |
goto T897; |
2449 |
|
goto T898; |
2450 |
T898:; |
T898:; |
2451 |
goto T895; |
goto T895; |
2452 |
|
goto T895; |
2453 |
T895:; |
T895:; |
2454 |
V249= one_plus((V249)); |
V249= one_plus((V249)); |
2455 |
goto T889;}}} |
goto T889;}}} |
2456 |
|
goto T872; |
2457 |
T872:; |
T872:; |
2458 |
if(((V237))==Cnil){ |
if(((V237))==Cnil){ |
2459 |
goto T936;} |
goto T936;} |
2460 |
base[4]= (V240); |
base[4]= (V240); |
2461 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2462 |
return; |
return; |
2463 |
|
goto T936; |
2464 |
T936:; |
T936:; |
2465 |
if(!((length((V240)))>(1))){ |
if(!((length((V240)))>(1))){ |
2466 |
goto T939;} |
goto T939;} |
2472 |
Lformat(); |
Lformat(); |
2473 |
vs_top=sup; |
vs_top=sup; |
2474 |
goto T934; |
goto T934; |
2475 |
|
goto T939; |
2476 |
T939:; |
T939:; |
2477 |
if(((V240))!=Cnil){ |
if(((V240))!=Cnil){ |
2478 |
goto T946;} |
goto T946;} |
2483 |
Lformat(); |
Lformat(); |
2484 |
vs_top=sup; |
vs_top=sup; |
2485 |
goto T934; |
goto T934; |
2486 |
|
goto T946; |
2487 |
T946:; |
T946:; |
2488 |
base[4]= car((V240)); |
base[4]= car((V240)); |
2489 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2490 |
return; |
return; |
2491 |
|
goto T934; |
2492 |
T934:; |
T934:; |
2493 |
base[4]= Cnil; |
base[4]= Cnil; |
2494 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2500 |
} |
} |
2501 |
/* function definition for DISPLAY-ENV */ |
/* function definition for DISPLAY-ENV */ |
2502 |
|
|
2503 |
static L39() |
static void L39() |
2504 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2505 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
2506 |
vs_reserve(VM37); |
vs_reserve(VM37); |
2510 |
V257=(base[0]); |
V257=(base[0]); |
2511 |
V258=(base[1]); |
V258=(base[1]); |
2512 |
vs_top=sup; |
vs_top=sup; |
2513 |
|
goto TTL; |
2514 |
TTL:; |
TTL:; |
2515 |
{register object V259; |
{register object V259; |
2516 |
V259= reverse((V258)); |
V259= reverse((V258)); |
2517 |
|
goto T954; |
2518 |
T954:; |
T954:; |
2519 |
if(!(type_of((V259))==t_cons)){ |
if(!(type_of((V259))==t_cons)){ |
2520 |
goto T956;} |
goto T956;} |
2525 |
V260= vs_base[0]; |
V260= vs_base[0]; |
2526 |
if(!((fix(V260))>(fix((V257))))){ |
if(!((fix(V260))>(fix((V257))))){ |
2527 |
goto T955;} |
goto T955;} |
2528 |
|
goto T956; |
2529 |
T956:; |
T956:; |
2530 |
base[2]= Cnil; |
base[2]= Cnil; |
2531 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2532 |
return; |
return; |
2533 |
|
goto T955; |
2534 |
T955:;{object V261; |
T955:;{object V261; |
2535 |
if(type_of(car((V259)))==t_cons){ |
if(type_of(car((V259)))==t_cons){ |
2536 |
goto T966;} |
goto T966;} |
2537 |
V261= Cnil; |
V261= Cnil; |
2538 |
goto T965; |
goto T965; |
2539 |
|
goto T966; |
2540 |
T966:; |
T966:; |
2541 |
{object V262= cdar((V259)); |
{object V262= cdar((V259)); |
2542 |
V261= (type_of(V262)==t_cons||(V262)==Cnil?Ct:Cnil);} |
V261= (type_of(V262)==t_cons||(V262)==Cnil?Ct:Cnil);} |
2543 |
|
goto T965; |
2544 |
T965:; |
T965:; |
2545 |
if(V261==Cnil)goto T964; |
if(V261==Cnil)goto T964; |
2546 |
goto T963; |
goto T963; |
2547 |
|
goto T964; |
2548 |
T964:;} |
T964:;} |
2549 |
base[2]= Cnil; |
base[2]= Cnil; |
2550 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2551 |
return; |
return; |
2552 |
|
goto T963; |
2553 |
T963:; |
T963:; |
2554 |
base[2]= symbol_value(VV[77]); |
base[2]= symbol_value(VV[77]); |
2555 |
base[3]= VV[78]; |
base[3]= VV[78]; |
2565 |
} |
} |
2566 |
/* function definition for APPLY-DISPLAY-FUN */ |
/* function definition for APPLY-DISPLAY-FUN */ |
2567 |
|
|
2568 |
static L40() |
static void L40() |
2569 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2570 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
2571 |
vs_reserve(VM38); |
vs_reserve(VM38); |
2578 |
V264=(base[1]); |
V264=(base[1]); |
2579 |
V265=(base[2]); |
V265=(base[2]); |
2580 |
vs_top=sup; |
vs_top=sup; |
2581 |
|
goto TTL; |
2582 |
TTL:; |
TTL:; |
2583 |
bds_bind(VV[13],symbol_value(VV[10])); |
bds_bind(VV[13],symbol_value(VV[10])); |
2584 |
bds_bind(VV[11],symbol_value(VV[10])); |
bds_bind(VV[11],symbol_value(VV[10])); |
2615 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
2616 |
Lformat(); |
Lformat(); |
2617 |
vs_top=sup; |
vs_top=sup; |
2618 |
|
goto T985; |
2619 |
T985:; |
T985:; |
2620 |
base[8]= symbol_value(VV[77]); |
base[8]= symbol_value(VV[77]); |
2621 |
base[9]= VV[84]; |
base[9]= VV[84]; |
2634 |
} |
} |
2635 |
/* function definition for GET-LINE-OF-FORM */ |
/* function definition for GET-LINE-OF-FORM */ |
2636 |
|
|
2637 |
static L41() |
static void L41() |
2638 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2639 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
2640 |
vs_reserve(VM39); |
vs_reserve(VM39); |
2644 |
V267=(base[0]); |
V267=(base[0]); |
2645 |
V268=(base[1]); |
V268=(base[1]); |
2646 |
vs_top=sup; |
vs_top=sup; |
2647 |
|
goto TTL; |
2648 |
TTL:; |
TTL:; |
2649 |
{object V269; |
{object V269; |
2650 |
V269= (VFUN_NARGS=2,(*(LnkLI143))((V267),(V268))); |
V269= (VFUN_NARGS=2,(*(LnkLI143))((V267),(V268))); |
2654 |
base[2]= make_fixnum((fix((V269)))+(fix(cdr(/* INLINE-ARGS */V270)))); |
base[2]= make_fixnum((fix((V269)))+(fix(cdr(/* INLINE-ARGS */V270)))); |
2655 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2656 |
return; |
return; |
2657 |
|
goto T999; |
2658 |
T999:; |
T999:; |
2659 |
base[2]= Cnil; |
base[2]= Cnil; |
2660 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2663 |
} |
} |
2664 |
/* function definition for GET-NEXT-VISIBLE-FUN */ |
/* function definition for GET-NEXT-VISIBLE-FUN */ |
2665 |
|
|
2666 |
static L42() |
static void L42() |
2667 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2668 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
2669 |
vs_reserve(VM40); |
vs_reserve(VM40); |
2671 |
check_arg(1); |
check_arg(1); |
2672 |
V271=(base[0]); |
V271=(base[0]); |
2673 |
vs_top=sup; |
vs_top=sup; |
2674 |
|
goto TTL; |
2675 |
TTL:; |
TTL:; |
2676 |
{register object V272; |
{register object V272; |
2677 |
V272= (V271); |
V272= (V271); |
2678 |
|
goto T1002; |
2679 |
T1002:; |
T1002:; |
2680 |
if(!((fix((V272)))<(fix(symbol_value(VV[85]))))){ |
if(!((fix((V272)))<(fix(symbol_value(VV[85]))))){ |
2681 |
goto T1003;} |
goto T1003;} |
2685 |
base[1]= (V273); |
base[1]= (V273); |
2686 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2687 |
return;} |
return;} |
2688 |
|
goto T1003; |
2689 |
T1003:; |
T1003:; |
2690 |
{register object V274; |
{register object V274; |
2691 |
base[1]= (V272); |
base[1]= (V272); |
2702 |
if(((V275))==Cnil){ |
if(((V275))==Cnil){ |
2703 |
goto T1014;} |
goto T1014;} |
2704 |
goto T1008; |
goto T1008; |
2705 |
|
goto T1014; |
2706 |
T1014:; |
T1014:; |
2707 |
{register object V276; |
{register object V276; |
2708 |
V276= get((V274),VV[86],Cnil); |
V276= get((V274),VV[86],Cnil); |
2709 |
if(((V276))==Cnil){ |
if(((V276))==Cnil){ |
2710 |
goto T1018;} |
goto T1018;} |
2711 |
goto T1008; |
goto T1008; |
2712 |
|
goto T1018; |
2713 |
T1018:; |
T1018:; |
2714 |
base[1]= (V274); |
base[1]= (V274); |
2715 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2723 |
base[1]= (V277); |
base[1]= (V277); |
2724 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2725 |
return;}}}} |
return;}}}} |
2726 |
|
goto T1008; |
2727 |
T1008:; |
T1008:; |
2728 |
V272= make_fixnum((fix((V272)))-(1)); |
V272= make_fixnum((fix((V272)))-(1)); |
2729 |
goto T1002;} |
goto T1002;} |
2731 |
} |
} |
2732 |
/* function definition for DBL-WHAT-FRAME */ |
/* function definition for DBL-WHAT-FRAME */ |
2733 |
|
|
2734 |
static L43() |
static void L43() |
2735 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2736 |
register object *sup=base+VM41; VC41 |
register object *sup=base+VM41; VC41 |
2737 |
vs_reserve(VM41); |
vs_reserve(VM41); |
2739 |
check_arg(1); |
check_arg(1); |
2740 |
V278=fix(base[0]); |
V278=fix(base[0]); |
2741 |
vs_top=sup; |
vs_top=sup; |
2742 |
|
goto TTL; |
2743 |
TTL:; |
TTL:; |
2744 |
{register long V279; |
{register long V279; |
2745 |
register long V280; |
register long V280; |
2747 |
V279= fix(symbol_value(VV[87])); |
V279= fix(symbol_value(VV[87])); |
2748 |
V280= 0; |
V280= 0; |
2749 |
V281= Cnil; |
V281= Cnil; |
2750 |
|
goto T1031; |
2751 |
T1031:; |
T1031:; |
2752 |
{register object V282; |
{register object V282; |
2753 |
base[1]= make_fixnum(V279); |
base[1]= make_fixnum(V279); |
2762 |
base[1]= make_fixnum(V280); |
base[1]= make_fixnum(V280); |
2763 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2764 |
return; |
return; |
2765 |
|
goto T1039; |
2766 |
T1039:; |
T1039:; |
2767 |
V280= (V280)+(1); |
V280= (V280)+(1); |
2768 |
V279= (V279)-(1); |
V279= (V279)-(1); |
2771 |
} |
} |
2772 |
/* function definition for DBL-UP */ |
/* function definition for DBL-UP */ |
2773 |
|
|
2774 |
static L44() |
static void L44() |
2775 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2776 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM42; VC42 |
2777 |
vs_reserve(VM42); |
vs_reserve(VM42); |
2781 |
V283=(base[0]); |
V283=(base[0]); |
2782 |
V284=(base[1]); |
V284=(base[1]); |
2783 |
vs_top=sup; |
vs_top=sup; |
2784 |
|
goto TTL; |
2785 |
TTL:; |
TTL:; |
2786 |
{object V285; |
{object V285; |
2787 |
object V286; |
object V286; |
2824 |
vs_top=(vs_base=base+2)+7; |
vs_top=(vs_base=base+2)+7; |
2825 |
(void) (*Lnk160)(); |
(void) (*Lnk160)(); |
2826 |
return; |
return; |
2827 |
|
goto T1055; |
2828 |
T1055:; |
T1055:; |
2829 |
V283= make_fixnum((fix((V285)))+(fix((V283)))); |
V283= make_fixnum((fix((V285)))+(fix((V283)))); |
2830 |
if(!((fix((V283)))>=(0))){ |
if(!((fix((V283)))>=(0))){ |
2831 |
goto T1083;} |
goto T1083;} |
2832 |
goto T1082; |
goto T1082; |
2833 |
|
goto T1083; |
2834 |
T1083:; |
T1083:; |
2835 |
V283= small_fixnum(0); |
V283= small_fixnum(0); |
2836 |
|
goto T1082; |
2837 |
T1082:; |
T1082:; |
2838 |
V284= symbol_value(VV[87]); |
V284= symbol_value(VV[87]); |
2839 |
goto TTL;} |
goto TTL;} |
2841 |
} |
} |
2842 |
/* function definition for NEXT-STACK-FRAME */ |
/* function definition for NEXT-STACK-FRAME */ |
2843 |
|
|
2844 |
static L45() |
static void L45() |
2845 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2846 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM43; VC43 |
2847 |
vs_reserve(VM43); |
vs_reserve(VM43); |
2849 |
check_arg(1); |
check_arg(1); |
2850 |
V291=(base[0]); |
V291=(base[0]); |
2851 |
vs_top=sup; |
vs_top=sup; |
2852 |
|
goto TTL; |
2853 |
TTL:; |
TTL:; |
2854 |
{register object V292; |
{register object V292; |
2855 |
register object V293; |
register object V293; |
2870 |
base[1]= Cnil; |
base[1]= Cnil; |
2871 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2872 |
return; |
return; |
2873 |
|
goto T1095; |
2874 |
T1095:; |
T1095:; |
2875 |
{object V298; |
{object V298; |
2876 |
V298= Cnil; |
V298= Cnil; |
2889 |
goto T1110;} |
goto T1110;} |
2890 |
V300= Cnil; |
V300= Cnil; |
2891 |
goto T1109; |
goto T1109; |
2892 |
|
goto T1110; |
2893 |
T1110:; |
T1110:; |
2894 |
{register object V301; |
{register object V301; |
2895 |
register object V302; |
register object V302; |
2896 |
V301= make_fixnum((fix((V291)))+(1)); |
V301= make_fixnum((fix((V291)))+(1)); |
2897 |
V302= Cnil; |
V302= Cnil; |
2898 |
|
goto T1115; |
2899 |
T1115:; |
T1115:; |
2900 |
if(!(number_compare((V301),(V294))<=0)){ |
if(!(number_compare((V301),(V294))<=0)){ |
2901 |
goto T1116;} |
goto T1116;} |
2902 |
V300= Cnil; |
V300= Cnil; |
2903 |
goto T1109; |
goto T1109; |
2904 |
|
goto T1116; |
2905 |
T1116:; |
T1116:; |
2906 |
base[1]= (V301); |
base[1]= (V301); |
2907 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2951 |
base[1]= (V303); |
base[1]= (V303); |
2952 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2953 |
return;} |
return;} |
2954 |
|
goto T1123; |
2955 |
T1123:; |
T1123:; |
2956 |
V301= make_fixnum((fix((V301)))-(1)); |
V301= make_fixnum((fix((V301)))-(1)); |
2957 |
goto T1115;} |
goto T1115;} |
2958 |
|
goto T1109; |
2959 |
T1109:; |
T1109:; |
2960 |
if(((V300))==Cnil){ |
if(((V300))==Cnil){ |
2961 |
goto T1146;} |
goto T1146;} |
2962 |
base[1]= (V300); |
base[1]= (V300); |
2963 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2964 |
return; |
return; |
2965 |
|
goto T1146; |
2966 |
T1146:; |
T1146:; |
2967 |
base[1]= (V296); |
base[1]= (V296); |
2968 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2973 |
base[1]= Cnil; |
base[1]= Cnil; |
2974 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2975 |
return; |
return; |
2976 |
|
goto T1149; |
2977 |
T1149:; |
T1149:; |
2978 |
{object V309; |
{object V309; |
2979 |
V309= get((V296),VV[86],Cnil); |
V309= get((V296),VV[86],Cnil); |
2982 |
base[1]= (V309); |
base[1]= (V309); |
2983 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2984 |
return; |
return; |
2985 |
|
goto T1154; |
2986 |
T1154:; |
T1154:; |
2987 |
base[1]= (V296); |
base[1]= (V296); |
2988 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3001 |
goto T1166;} |
goto T1166;} |
3002 |
V311= Cnil; |
V311= Cnil; |
3003 |
goto T1164; |
goto T1164; |
3004 |
|
goto T1166; |
3005 |
T1166:; |
T1166:; |
3006 |
{object V312; |
{object V312; |
3007 |
base[1]= (V294); |
base[1]= (V294); |
3025 |
vs_top=sup; |
vs_top=sup; |
3026 |
V315= vs_base[0]; |
V315= vs_base[0]; |
3027 |
V311= list(3,V313,V314,V315);} |
V311= list(3,V313,V314,V315);} |
3028 |
|
goto T1164; |
3029 |
T1164:; |
T1164:; |
3030 |
(void)((MVloc[(3)]=(V311))); |
(void)((MVloc[(3)]=(V311))); |
3031 |
base[1]= V294; |
base[1]= V294; |
3032 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3033 |
return; |
return; |
3034 |
|
goto T1157; |
3035 |
T1157:; |
T1157:; |
3036 |
base[1]= Cnil; |
base[1]= Cnil; |
3037 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3040 |
} |
} |
3041 |
/* function definition for NTH-STACK-FRAME */ |
/* function definition for NTH-STACK-FRAME */ |
3042 |
|
|
3043 |
static L46() |
static void L46() |
3044 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3045 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM44; VC44 |
3046 |
vs_reserve(VM44); |
vs_reserve(VM44); |
3054 |
V317=(base[1]); |
V317=(base[1]); |
3055 |
vs_top=sup; |
vs_top=sup; |
3056 |
goto T1178; |
goto T1178; |
3057 |
|
goto T1177; |
3058 |
T1177:; |
T1177:; |
3059 |
V317= symbol_value(VV[87]); |
V317= symbol_value(VV[87]); |
3060 |
|
goto T1178; |
3061 |
T1178:; |
T1178:; |
3062 |
{register object V318; |
{register object V318; |
3063 |
object V319; |
object V319; |
3072 |
if(!((fix((V316)))>=(0))){ |
if(!((fix((V316)))>=(0))){ |
3073 |
goto T1186;} |
goto T1186;} |
3074 |
goto T1185; |
goto T1185; |
3075 |
|
goto T1186; |
3076 |
T1186:; |
T1186:; |
3077 |
V316= small_fixnum(0); |
V316= small_fixnum(0); |
3078 |
|
goto T1185; |
3079 |
T1185:; |
T1185:; |
3080 |
{object V323; |
{object V323; |
3081 |
register object V324; |
register object V324; |
3082 |
V323= make_fixnum((fix((V316)))+(1)); |
V323= make_fixnum((fix((V316)))+(1)); |
3083 |
V324= small_fixnum(0); |
V324= small_fixnum(0); |
3084 |
|
goto T1193; |
3085 |
T1193:; |
T1193:; |
3086 |
if(!(number_compare((V324),(V323))>=0)){ |
if(!(number_compare((V324),(V323))>=0)){ |
3087 |
goto T1194;} |
goto T1194;} |
3088 |
goto T1189; |
goto T1189; |
3089 |
|
goto T1194; |
3090 |
T1194:; |
T1194:; |
3091 |
base[3]= (V317); |
base[3]= (V317); |
3092 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3104 |
V321= (MVloc[(3)]);} |
V321= (MVloc[(3)]);} |
3105 |
V317= make_fixnum((fix((V322)))-(1)); |
V317= make_fixnum((fix((V322)))-(1)); |
3106 |
goto T1201; |
goto T1201; |
3107 |
|
goto T1203; |
3108 |
T1203:; |
T1203:; |
3109 |
V316= make_fixnum((fix((V324)))-(1)); |
V316= make_fixnum((fix((V324)))-(1)); |
3110 |
goto T1189; |
goto T1189; |
3111 |
|
goto T1201; |
3112 |
T1201:; |
T1201:; |
3113 |
V324= one_plus((V324)); |
V324= one_plus((V324)); |
3114 |
goto T1193;} |
goto T1193;} |
3115 |
|
goto T1189; |
3116 |
T1189:; |
T1189:; |
3117 |
V317= make_fixnum((fix((V317)))+(1)); |
V317= make_fixnum((fix((V317)))+(1)); |
3118 |
base[2]= (V317); |
base[2]= (V317); |
3132 |
} |
} |
3133 |
/* function definition for DBL-BACKTRACE */ |
/* function definition for DBL-BACKTRACE */ |
3134 |
|
|
3135 |
static L47() |
static void L47() |
3136 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3137 |
register object *sup=base+VM45; VC45 |
register object *sup=base+VM45; VC45 |
3138 |
vs_reserve(VM45); |
vs_reserve(VM45); |
3146 |
V328=(base[1]); |
V328=(base[1]); |
3147 |
vs_top=sup; |
vs_top=sup; |
3148 |
goto T1233; |
goto T1233; |
3149 |
|
goto T1231; |
3150 |
T1231:; |
T1231:; |
3151 |
V327= small_fixnum(1000); |
V327= small_fixnum(1000); |
3152 |
|
goto T1232; |
3153 |
T1232:; |
T1232:; |
3154 |
V328= symbol_value(VV[87]); |
V328= symbol_value(VV[87]); |
3155 |
|
goto T1233; |
3156 |
T1233:; |
T1233:; |
3157 |
{register object V329; |
{register object V329; |
3158 |
register object V330; |
register object V330; |
3164 |
V331= Cnil; |
V331= Cnil; |
3165 |
V332= Cnil; |
V332= Cnil; |
3166 |
V333= small_fixnum(0); |
V333= small_fixnum(0); |
3167 |
|
goto T1243; |
3168 |
T1243:; |
T1243:; |
3169 |
{object V334; |
{object V334; |
3170 |
base[2]= (V328); |
base[2]= (V328); |
3180 |
if((V329)!=Cnil){ |
if((V329)!=Cnil){ |
3181 |
goto T1257;} |
goto T1257;} |
3182 |
goto T1241; |
goto T1241; |
3183 |
|
goto T1257; |
3184 |
T1257:; |
T1257:; |
3185 |
base[2]= (V333); |
base[2]= (V333); |
3186 |
base[3]= Cnil; |
base[3]= Cnil; |
3199 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
3200 |
vs_top=sup; |
vs_top=sup; |
3201 |
goto T1241; |
goto T1241; |
3202 |
|
goto T1268; |
3203 |
T1268:; |
T1268:; |
3204 |
V328= make_fixnum((fix((V328)))-(1)); |
V328= make_fixnum((fix((V328)))-(1)); |
3205 |
goto T1243; |
goto T1243; |
3206 |
|
goto T1241; |
3207 |
T1241:; |
T1241:; |
3208 |
vs_base=vs_top=base+2; |
vs_base=vs_top=base+2; |
3209 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
3212 |
} |
} |
3213 |
/* function definition for DISPLAY-COMPILED-ENV */ |
/* function definition for DISPLAY-COMPILED-ENV */ |
3214 |
|
|
3215 |
static L48() |
static void L48() |
3216 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3217 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
3218 |
vs_reserve(VM46); |
vs_reserve(VM46); |
3222 |
V335=(base[0]); |
V335=(base[0]); |
3223 |
V336=(base[1]); |
V336=(base[1]); |
3224 |
vs_top=sup; |
vs_top=sup; |
3225 |
|
goto TTL; |
3226 |
TTL:; |
TTL:; |
3227 |
{register object V337; |
{register object V337; |
3228 |
register object V338; |
register object V338; |
3255 |
V343= vs_base[0]; |
V343= vs_base[0]; |
3256 |
V342= get(V343,VV[14],Cnil); |
V342= get(V343,VV[14],Cnil); |
3257 |
V341= (V337); |
V341= (V337); |
3258 |
|
goto T1286; |
3259 |
T1286:; |
T1286:; |
3260 |
if((fix((V341)))>=(fix((V338)))){ |
if((fix((V341)))>=(fix((V338)))){ |
3261 |
goto T1288;} |
goto T1288;} |
3266 |
V344= vs_base[0]; |
V344= vs_base[0]; |
3267 |
if(!((fix(V344))>(fix((V335))))){ |
if(!((fix(V344))>(fix((V335))))){ |
3268 |
goto T1287;} |
goto T1287;} |
3269 |
|
goto T1288; |
3270 |
T1288:; |
T1288:; |
3271 |
base[4]= Cnil; |
base[4]= Cnil; |
3272 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3273 |
return; |
return; |
3274 |
|
goto T1287; |
3275 |
T1287:; |
T1287:; |
3276 |
base[4]= symbol_value(VV[77]); |
base[4]= symbol_value(VV[77]); |
3277 |
base[5]= VV[89];{object V345; |
base[5]= VV[89];{object V345; |
3279 |
if(V345==Cnil)goto T1299; |
if(V345==Cnil)goto T1299; |
3280 |
base[6]= V345; |
base[6]= V345; |
3281 |
goto T1298; |
goto T1298; |
3282 |
|
goto T1299; |
3283 |
T1299:;} |
T1299:;} |
3284 |
base[6]= VV[90]; |
base[6]= VV[90]; |
3285 |
|
goto T1298; |
3286 |
T1298:; |
T1298:; |
3287 |
if((car((V342)))!=Cnil){ |
if((car((V342)))!=Cnil){ |
3288 |
goto T1303;} |
goto T1303;} |
3289 |
base[7]= make_fixnum((fix((V341)))-(fix((V337)))); |
base[7]= make_fixnum((fix((V341)))-(fix((V337)))); |
3290 |
goto T1301; |
goto T1301; |
3291 |
|
goto T1303; |
3292 |
T1303:; |
T1303:; |
3293 |
base[7]= Cnil; |
base[7]= Cnil; |
3294 |
|
goto T1301; |
3295 |
T1301:; |
T1301:; |
3296 |
base[9]= (V341); |
base[9]= (V341); |
3297 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
3309 |
} |
} |
3310 |
/* function definition for COMPUTING-ARGS-P */ |
/* function definition for COMPUTING-ARGS-P */ |
3311 |
|
|
3312 |
static L49() |
static void L49() |
3313 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3314 |
register object *sup=base+VM47; VC47 |
register object *sup=base+VM47; VC47 |
3315 |
vs_reserve(VM47); |
vs_reserve(VM47); |
3317 |
check_arg(1); |
check_arg(1); |
3318 |
V346=(base[0]); |
V346=(base[0]); |
3319 |
vs_top=sup; |
vs_top=sup; |
3320 |
|
goto TTL; |
3321 |
TTL:; |
TTL:; |
3322 |
base[1]= (V346); |
base[1]= (V346); |
3323 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3329 |
base[1]= Cnil; |
base[1]= Cnil; |
3330 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3331 |
return; |
return; |
3332 |
|
goto T1312; |
3333 |
T1312:; |
T1312:; |
3334 |
if(number_compare((V346),small_fixnum(3))>0){ |
if(number_compare((V346),small_fixnum(3))>0){ |
3335 |
goto T1316;} |
goto T1316;} |
3336 |
base[1]= Cnil; |
base[1]= Cnil; |
3337 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3338 |
return; |
return; |
3339 |
|
goto T1316; |
3340 |
T1316:; |
T1316:; |
3341 |
base[1]= (V346); |
base[1]= (V346); |
3342 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3350 |
goto T1318; |
goto T1318; |
3351 |
}else V349=V349->c.c_cdr; |
}else V349=V349->c.c_cdr; |
3352 |
V348= Cnil;} |
V348= Cnil;} |
3353 |
|
goto T1318; |
3354 |
T1318:; |
T1318:; |
3355 |
base[1]= ((V348)==Cnil?Ct:Cnil); |
base[1]= ((V348)==Cnil?Ct:Cnil); |
3356 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3359 |
} |
} |
3360 |
/* function definition for PRINT-STACK-FRAME */ |
/* function definition for PRINT-STACK-FRAME */ |
3361 |
|
|
3362 |
static L50() |
static void L50() |
3363 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3364 |
register object *sup=base+VM48; VC48 |
register object *sup=base+VM48; VC48 |
3365 |
vs_reserve(VM48); |
vs_reserve(VM48); |
3387 |
V357=(base[6]); |
V357=(base[6]); |
3388 |
vs_top=sup; |
vs_top=sup; |
3389 |
goto T1324; |
goto T1324; |
3390 |
|
goto T1321; |
3391 |
T1321:; |
T1321:; |
3392 |
V355= Cnil; |
V355= Cnil; |
3393 |
|
goto T1322; |
3394 |
T1322:; |
T1322:; |
3395 |
V356= Cnil; |
V356= Cnil; |
3396 |
|
goto T1323; |
3397 |
T1323:; |
T1323:; |
3398 |
V357= Cnil; |
V357= Cnil; |
3399 |
|
goto T1324; |
3400 |
T1324:; |
T1324:; |
3401 |
if(((V352))==Cnil){ |
if(((V352))==Cnil){ |
3402 |
goto T1328;} |
goto T1328;} |
3409 |
vs_top=(vs_base=base+7)+4; |
vs_top=(vs_base=base+7)+4; |
3410 |
Lformat(); |
Lformat(); |
3411 |
vs_top=sup; |
vs_top=sup; |
3412 |
|
goto T1328; |
3413 |
T1328:; |
T1328:; |
3414 |
{object V358; |
{object V358; |
3415 |
base[7]= (V353); |
base[7]= (V353); |
3424 |
base[10]= Cnil; |
base[10]= Cnil; |
3425 |
goto T1343;} |
goto T1343;} |
3426 |
base[10]= VV[94]; |
base[10]= VV[94]; |
3427 |
|
goto T1343; |
3428 |
T1343:; |
T1343:; |
3429 |
base[11]= (V354); |
base[11]= (V354); |
3430 |
base[13]= (V353); |
base[13]= (V353); |
3450 |
vs_top=sup; |
vs_top=sup; |
3451 |
base[12]= vs_base[0]; |
base[12]= vs_base[0]; |
3452 |
goto T1345; |
goto T1345; |
3453 |
|
goto T1347; |
3454 |
T1347:; |
T1347:; |
3455 |
base[13]= VV[96]; |
base[13]= VV[96]; |
3456 |
base[14]= small_fixnum(80); |
base[14]= small_fixnum(80); |
3459 |
(void) (*Lnk166)(); |
(void) (*Lnk166)(); |
3460 |
vs_top=sup; |
vs_top=sup; |
3461 |
base[12]= vs_base[0]; |
base[12]= vs_base[0]; |
3462 |
|
goto T1345; |
3463 |
T1345:; |
T1345:; |
3464 |
vs_top=(vs_base=base+7)+6; |
vs_top=(vs_base=base+7)+6; |
3465 |
Lformat(); |
Lformat(); |
3473 |
vs_top=(vs_base=base+7)+4; |
vs_top=(vs_base=base+7)+4; |
3474 |
Lformat(); |
Lformat(); |
3475 |
vs_top=sup; |
vs_top=sup; |
3476 |
|
goto T1359; |
3477 |
T1359:; |
T1359:; |
3478 |
base[7]= symbol_value(VV[1]); |
base[7]= symbol_value(VV[1]); |
3479 |
base[8]= VV[98]; |
base[8]= VV[98]; |
3485 |
} |
} |
3486 |
/* function definition for MAKE-BREAK-POINT */ |
/* function definition for MAKE-BREAK-POINT */ |
3487 |
|
|
3488 |
static L51() |
static void L51() |
3489 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3490 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM49; VC49 |
3491 |
vs_reserve(VM49); |
vs_reserve(VM49); |
3497 |
V361=(base[1]); |
V361=(base[1]); |
3498 |
V362=(base[2]); |
V362=(base[2]); |
3499 |
vs_top=sup; |
vs_top=sup; |
3500 |
|
goto TTL; |
3501 |
TTL:; |
TTL:; |
3502 |
V363= aref1((V361),fixint((V362))); |
V363= aref1((V361),fixint((V362))); |
3503 |
V364= aref1((V361),0); |
V364= aref1((V361),0); |
3511 |
} |
} |
3512 |
/* function definition for RELATIVE-LINE */ |
/* function definition for RELATIVE-LINE */ |
3513 |
|
|
3514 |
static L52() |
static void L52() |
3515 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3516 |
register object *sup=base+VM50; VC50 |
register object *sup=base+VM50; VC50 |
3517 |
vs_reserve(VM50); |
vs_reserve(VM50); |
3521 |
V368=(base[0]); |
V368=(base[0]); |
3522 |
V369=(base[1]); |
V369=(base[1]); |
3523 |
vs_top=sup; |
vs_top=sup; |
3524 |
|
goto TTL; |
3525 |
TTL:; |
TTL:; |
3526 |
{object V370; |
{object V370; |
3527 |
V370= get((V368),VV[49],Cnil); |
V370= get((V368),VV[49],Cnil); |
3531 |
base[2]= make_fixnum((fix((V369)))-(fix(cdr(/* INLINE-ARGS */V371)))); |
base[2]= make_fixnum((fix((V369)))-(fix(cdr(/* INLINE-ARGS */V371)))); |
3532 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3533 |
return; |
return; |
3534 |
|
goto T1371; |
3535 |
T1371:; |
T1371:; |
3536 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
3537 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3540 |
} |
} |
3541 |
/* function definition for SAFE-EVAL */ |
/* function definition for SAFE-EVAL */ |
3542 |
|
|
3543 |
static L53() |
static void L53() |
3544 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3545 |
register object *sup=base+VM51; VC51 |
register object *sup=base+VM51; VC51 |
3546 |
vs_reserve(VM51); |
vs_reserve(VM51); |
3551 |
V372=(base[0]); |
V372=(base[0]); |
3552 |
V373=(base[1]); |
V373=(base[1]); |
3553 |
vs_top=sup; |
vs_top=sup; |
3554 |
|
goto TTL; |
3555 |
TTL:; |
TTL:; |
3556 |
bds_bind(VV[99],Cnil); |
bds_bind(VV[99],Cnil); |
3557 |
bds_bind(VV[100],symbol_value(VV[101])); |
bds_bind(VV[100],symbol_value(VV[101])); |
3575 |
bds_unwind1; |
bds_unwind1; |
3576 |
bds_unwind1; |
bds_unwind1; |
3577 |
return; |
return; |
3578 |
|
goto T1373; |
3579 |
T1373:; |
T1373:; |
3580 |
{object V375; |
{object V375; |
3581 |
object V376; |
object V376; |
3590 |
V376= vs_base[0]; |
V376= vs_base[0]; |
3591 |
vs_top=sup; |
vs_top=sup; |
3592 |
goto T1385; |
goto T1385; |
3593 |
|
goto T1383; |
3594 |
T1383:; |
T1383:; |
3595 |
V375= Cnil; |
V375= Cnil; |
3596 |
|
goto T1384; |
3597 |
T1384:; |
T1384:; |
3598 |
V376= Cnil; |
V376= Cnil; |
3599 |
|
goto T1385; |
3600 |
T1385:; |
T1385:; |
3601 |
if(((V375))==Cnil){ |
if(((V375))==Cnil){ |
3602 |
goto T1387;} |
goto T1387;} |
3606 |
bds_unwind1; |
bds_unwind1; |
3607 |
bds_unwind1; |
bds_unwind1; |
3608 |
return; |
return; |
3609 |
|
goto T1387; |
3610 |
T1387:; |
T1387:; |
3611 |
base[5]= (V376); |
base[5]= (V376); |
3612 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3618 |
} |
} |
3619 |
/* function definition for SET-BACK */ |
/* function definition for SET-BACK */ |
3620 |
|
|
3621 |
static L54() |
static void L54() |
3622 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3623 |
register object *sup=base+VM52; VC52 |
register object *sup=base+VM52; VC52 |
3624 |
vs_reserve(VM52); |
vs_reserve(VM52); |
3628 |
V378=(base[0]); |
V378=(base[0]); |
3629 |
V379=(base[1]); |
V379=(base[1]); |
3630 |
vs_top=sup; |
vs_top=sup; |
3631 |
|
goto TTL; |
3632 |
TTL:; |
TTL:; |
3633 |
{object V380; |
{object V380; |
3634 |
V380= symbol_value(VV[9]); |
V380= symbol_value(VV[9]); |
3638 |
goto T1396;} |
goto T1396;} |
3639 |
setq(VV[0],(V379)); |
setq(VV[0],(V379)); |
3640 |
goto T1394; |
goto T1394; |
3641 |
|
goto T1396; |
3642 |
T1396:; |
T1396:; |
3643 |
base[3]= (V380); |
base[3]= (V380); |
3644 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3650 |
vs_top=sup; |
vs_top=sup; |
3651 |
V381= vs_base[0]; |
V381= vs_base[0]; |
3652 |
(void)(make_cons(V381,Cnil)); |
(void)(make_cons(V381,Cnil)); |
3653 |
|
goto T1394; |
3654 |
T1394:; |
T1394:; |
3655 |
if(((V378))==Cnil){ |
if(((V378))==Cnil){ |
3656 |
goto T1402;} |
goto T1402;} |
3668 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
3669 |
Lformat(); |
Lformat(); |
3670 |
vs_top=sup; |
vs_top=sup; |
3671 |
|
goto T1402; |
3672 |
T1402:; |
T1402:; |
3673 |
{register object V382; |
{register object V382; |
3674 |
register object V383; |
register object V383; |
3675 |
V382= symbol_value(VV[108]); |
V382= symbol_value(VV[108]); |
3676 |
V383= car((V382)); |
V383= car((V382)); |
3677 |
|
goto T1417; |
3678 |
T1417:; |
T1417:; |
3679 |
if(!(endp((V382)))){ |
if(!(endp((V382)))){ |
3680 |
goto T1418;} |
goto T1418;} |
3681 |
base[3]= Cnil; |
base[3]= Cnil; |
3682 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3683 |
return; |
return; |
3684 |
|
goto T1418; |
3685 |
T1418:; |
T1418:; |
3686 |
{register object V384; |
{register object V384; |
3687 |
base[3]= (V383); |
base[3]= (V383); |
3693 |
if(!(((V384))==(VV[102]))){ |
if(!(((V384))==(VV[102]))){ |
3694 |
goto T1426;} |
goto T1426;} |
3695 |
goto T1422; |
goto T1422; |
3696 |
|
goto T1426; |
3697 |
T1426:; |
T1426:; |
3698 |
base[3]= Ct; |
base[3]= Ct; |
3699 |
base[4]= VV[109]; |
base[4]= VV[109]; |
3702 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3703 |
Lformat(); |
Lformat(); |
3704 |
vs_top=sup;} |
vs_top=sup;} |
3705 |
|
goto T1422; |
3706 |
T1422:; |
T1422:; |
3707 |
V382= cdr((V382)); |
V382= cdr((V382)); |
3708 |
V383= car((V382)); |
V383= car((V382)); |
3709 |
goto T1417;}} |
goto T1417;}} |
3710 |
} |
} |
3711 |
} |
} |
3712 |
static LnkT168(){ call_or_link(VV[168],&Lnk168);} /* SAFE-EVAL */ |
static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* SAFE-EVAL */ |
3713 |
static LnkT167(){ call_or_link(VV[167],&Lnk167);} /* ERROR-SET */ |
static void LnkT167(){ call_or_link(VV[167],(void **)&Lnk167);} /* ERROR-SET */ |
3714 |
static LnkT166(){ call_or_link(VV[166],&Lnk166);} /* APPLY-DISPLAY-FUN */ |
static void LnkT166(){ call_or_link(VV[166],(void **)&Lnk166);} /* APPLY-DISPLAY-FUN */ |
3715 |
static LnkT165(){ call_or_link(VV[165],&Lnk165);} /* COMPUTING-ARGS-P */ |
static void LnkT165(){ call_or_link(VV[165],(void **)&Lnk165);} /* COMPUTING-ARGS-P */ |
3716 |
static LnkT164(){ call_or_link(VV[164],&Lnk164);} /* VS-TOP */ |
static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* VS-TOP */ |
3717 |
static LnkT163(){ call_or_link(VV[163],&Lnk163);} /* NEXT-STACK-FRAME */ |
static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* NEXT-STACK-FRAME */ |
3718 |
static LnkT162(){ call_or_link(VV[162],&Lnk162);} /* IHS-NOT-INTERPRETED-ENV */ |
static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* IHS-NOT-INTERPRETED-ENV */ |
3719 |
static LnkT161(){ call_or_link(VV[161],&Lnk161);} /* GET-LINE-OF-FORM */ |
static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* GET-LINE-OF-FORM */ |
3720 |
static LnkT160(){ call_or_link(VV[160],&Lnk160);} /* PRINT-STACK-FRAME */ |
static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* PRINT-STACK-FRAME */ |
3721 |
static object LnkTLI159(){return call_proc0(VV[159],&LnkLI159);} /* SET-ENV */ |
static object LnkTLI159(){return call_proc0(VV[159],(void **)&LnkLI159);} /* SET-ENV */ |
3722 |
static LnkT158(){ call_or_link(VV[158],&Lnk158);} /* NTH-STACK-FRAME */ |
static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* NTH-STACK-FRAME */ |
3723 |
static LnkT157(){ call_or_link(VV[157],&Lnk157);} /* DBL-WHAT-FRAME */ |
static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* DBL-WHAT-FRAME */ |
3724 |
static LnkT156(){ call_or_link(VV[156],&Lnk156);} /* GET-NEXT-VISIBLE-FUN */ |
static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* GET-NEXT-VISIBLE-FUN */ |
3725 |
static LnkT155(){ call_or_link(VV[155],&Lnk155);} /* STRING-MATCH */ |
static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* STRING-MATCH */ |
3726 |
static LnkT154(){ call_or_link(VV[154],&Lnk154);} /* PACKAGE-SIZE */ |
static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* PACKAGE-SIZE */ |
3727 |
static LnkT150(){ call_or_link(VV[150],&Lnk150);} /* RELATIVE-LINE */ |
static void LnkT150(){ call_or_link(VV[150],(void **)&Lnk150);} /* RELATIVE-LINE */ |
3728 |
static LnkT149(){ call_or_link(VV[149],&Lnk149);} /* SHORT-NAME */ |
static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* SHORT-NAME */ |
3729 |
static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* SHOW-BREAK-POINT */ |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* SHOW-BREAK-POINT */ |
3730 |
static LnkT147(){ call_or_link(VV[147],&Lnk147);} /* INSERT-BREAK-POINT */ |
static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* INSERT-BREAK-POINT */ |
3731 |
static LnkT146(){ call_or_link(VV[146],&Lnk146);} /* BREAK-FUNCTION */ |
static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* BREAK-FUNCTION */ |
3732 |
static LnkT145(){ call_or_link(VV[145],&Lnk145);} /* DWIM */ |
static void LnkT145(){ call_or_link(VV[145],(void **)&Lnk145);} /* DWIM */ |
3733 |
static LnkT144(){ call_or_link(VV[144],&Lnk144);} /* MAYBE-BREAK */ |
static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* MAYBE-BREAK */ |
3734 |
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[143],&LnkLI143,ap);} /* POSITION */ |
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[143],(void **)&LnkLI143,ap);} /* POSITION */ |
3735 |
static LnkT142(){ call_or_link(VV[142],&Lnk142);} /* CURRENT-STEP-FUN */ |
static void LnkT142(){ call_or_link(VV[142],(void **)&Lnk142);} /* CURRENT-STEP-FUN */ |
3736 |
static LnkT141(){ call_or_link(VV[141],&Lnk141);} /* INIT-BREAK-POINTS */ |
static void LnkT141(){ call_or_link(VV[141],(void **)&Lnk141);} /* INIT-BREAK-POINTS */ |
3737 |
static LnkT140(){ call_or_link(VV[140],&Lnk140);} /* IHS-FNAME */ |
static void LnkT140(){ call_or_link(VV[140],(void **)&Lnk140);} /* IHS-FNAME */ |
3738 |
static LnkT139(){ call_or_link(VV[139],&Lnk139);} /* ITERATE-OVER-BKPTS */ |
static void LnkT139(){ call_or_link(VV[139],(void **)&Lnk139);} /* ITERATE-OVER-BKPTS */ |
3739 |
static LnkT138(){ call_or_link(VV[138],&Lnk138);} /* MAKE-BREAK-POINT */ |
static void LnkT138(){ call_or_link(VV[138],(void **)&Lnk138);} /* MAKE-BREAK-POINT */ |
3740 |
static object LnkTLI137(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[137],&LnkLI137,ap);} /* MAKE-ARRAY */ |
static object LnkTLI137(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[137],(void **)&LnkLI137,ap);} /* MAKE-ARRAY */ |
3741 |
static LnkT136(){ call_or_link(VV[136],&Lnk136);} /* WALK-THROUGH */ |
static void LnkT136(){ call_or_link(VV[136],(void **)&Lnk136);} /* WALK-THROUGH */ |
3742 |
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],&LnkLI135,ap);} /* VECTOR-PUSH-EXTEND */ |
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],(void **)&LnkLI135,ap);} /* VECTOR-PUSH-EXTEND */ |
3743 |
static LnkT134(){ call_or_link(VV[134],&Lnk134);} /* INSTREAM-NAME */ |
static void LnkT134(){ call_or_link(VV[134],(void **)&Lnk134);} /* INSTREAM-NAME */ |
3744 |
static LnkT133(){ call_or_link(VV[133],&Lnk133);} /* LOAD */ |
static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* LOAD */ |
3745 |
static LnkT132(){ call_or_link(VV[132],&Lnk132);} /* SETUP-LINEINFO */ |
static void LnkT132(){ call_or_link(VV[132],(void **)&Lnk132);} /* SETUP-LINEINFO */ |
3746 |
static LnkT131(){ call_or_link(VV[131],&Lnk131);} /* CLEANUP */ |
static void LnkT131(){ call_or_link(VV[131],(void **)&Lnk131);} /* CLEANUP */ |
3747 |
static LnkT128(){ call_or_link(VV[128],&Lnk128);} /* READ-FROM-STRING */ |
static void LnkT128(){ call_or_link(VV[128],(void **)&Lnk128);} /* READ-FROM-STRING */ |
3748 |
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],&LnkLI127,ap);} /* COUNT */ |
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],(void **)&LnkLI127,ap);} /* COUNT */ |
3749 |
static LnkT126(){ call_or_link(VV[126],&Lnk126);} /* GET-INSTREAM */ |
static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* GET-INSTREAM */ |
3750 |
static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* MAKE-INSTREAM */ |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* MAKE-INSTREAM */ |
3751 |
static LnkT124(){ call_or_link(VV[124],&Lnk124);} /* STREAM-NAME */ |
static void LnkT124(){ call_or_link(VV[124],(void **)&Lnk124);} /* STREAM-NAME */ |
3752 |
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],&LnkLI123,ap);} /* DELETE */ |
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],(void **)&LnkLI123,ap);} /* DELETE */ |
3753 |
static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* CLOSEDP */ |
static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* CLOSEDP */ |
3754 |
static LnkT121(){ call_or_link(VV[121],&Lnk121);} /* BREAK-LEVEL */ |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* BREAK-LEVEL */ |
3755 |
static object LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[120],&LnkLI120,1,ap);} /* SHOW-ENVIRONMENT */ |
static object LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[120],(void **)&LnkLI120,1,ap);} /* SHOW-ENVIRONMENT */ |
3756 |
static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* BREAK-LOCALS */ |
static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* BREAK-LOCALS */ |
3757 |
static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* BREAK-GO */ |
static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* BREAK-GO */ |
3758 |
static object LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[117],&LnkLI117,ap);} /* SEARCH */ |
static object LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[117],(void **)&LnkLI117,ap);} /* SEARCH */ |
3759 |
static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* COMPILED-FUNCTION-NAME */ |
static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* COMPILED-FUNCTION-NAME */ |
3760 |
static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* IHS-FUN */ |
static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* IHS-FUN */ |
3761 |
static object LnkTLI114(){return call_proc0(VV[114],&LnkLI114);} /* TYPE-ERROR */ |
static object LnkTLI114(){return call_proc0(VV[114],(void **)&LnkLI114);} /* TYPE-ERROR */ |
3762 |
static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* IHS-TOP */ |
static void LnkT113(){ call_or_link(VV[113],(void **)&Lnk113);} /* IHS-TOP */ |
3763 |
static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* VS */ |
static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* VS */ |
3764 |
static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* IHS-VS */ |
static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* IHS-VS */ |
3765 |
static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* BREAK-PREVIOUS */ |
static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* BREAK-PREVIOUS */ |
3766 |
|
|
3767 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3768 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |