1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmpflet.h" |
#include "cmpflet.h" |
4 |
init_cmpflet(){do_init(VV);} |
void init_cmpflet(){do_init(VV);} |
5 |
/* local entry for function MAKE-FUN */ |
/* local entry for function MAKE-FUN */ |
6 |
|
|
7 |
static object LI1(va_alist) |
static object LI1(va_alist) |
14 |
object V3; |
object V3; |
15 |
object V4; |
object V4; |
16 |
object V5; |
object V5; |
17 |
narg= narg - 0; |
Vcs[0]=Vcs[0]; |
18 |
va_start(ap); |
va_start(ap); |
19 |
|
narg= narg - 0; |
20 |
{ |
{ |
21 |
parse_key_new(narg,Vcs +0,&LI1key,ap); |
parse_key_new(narg,Vcs +0,(struct key *)&LI1key,ap); |
22 |
V1=(Vcs[0]); |
V1=(Vcs[0]); |
23 |
V2=(Vcs[1]); |
V2=(Vcs[1]); |
24 |
V3=(Vcs[2]); |
V3=(Vcs[2]); |
34 |
siLmake_structure(); |
siLmake_structure(); |
35 |
vs_top=sup; |
vs_top=sup; |
36 |
{object V6 = vs_base[0]; |
{object V6 = vs_base[0]; |
37 |
VMR1(V6)}} |
VMR1(V6)} |
38 |
|
va_end(ap); |
39 |
|
base[0]=base[0]; |
40 |
|
return Cnil;} |
41 |
}} |
}} |
42 |
/* local entry for function C1FLET */ |
/* local entry for function C1FLET */ |
43 |
|
|
46 |
object V8; |
object V8; |
47 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
48 |
bds_check; |
bds_check; |
49 |
|
goto TTL; |
50 |
TTL:; |
TTL:; |
51 |
{object V9; |
{object V9; |
52 |
object V10; |
object V10; |
69 |
if(!(endp((V8)))){ |
if(!(endp((V8)))){ |
70 |
goto T16;} |
goto T16;} |
71 |
(void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0))); |
72 |
|
goto T16; |
73 |
T16:; |
T16:; |
74 |
bds_bind(VV[2],symbol_value(VV[2])); |
bds_bind(VV[2],symbol_value(VV[2])); |
75 |
{register object V18; |
{register object V18; |
76 |
register object V19; |
register object V19; |
77 |
V18= car((V8)); |
V18= car((V8)); |
78 |
V19= car((V18)); |
V19= car((V18)); |
79 |
|
goto T24; |
80 |
T24:; |
T24:; |
81 |
if(!(endp((V18)))){ |
if(!(endp((V18)))){ |
82 |
goto T25;} |
goto T25;} |
83 |
goto T20; |
goto T20; |
84 |
|
goto T25; |
85 |
T25:; |
T25:; |
86 |
if(endp((V19))){ |
if(endp((V19))){ |
87 |
goto T30;} |
goto T30;} |
89 |
goto T30;} |
goto T30;} |
90 |
if(!(endp(cdr((V19))))){ |
if(!(endp(cdr((V19))))){ |
91 |
goto T29;} |
goto T29;} |
92 |
|
goto T30; |
93 |
T30:; |
T30:; |
94 |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[3],(V19)))); |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[3],(V19)))); |
95 |
|
goto T29; |
96 |
T29:; |
T29:; |
97 |
{object V20; |
{object V20; |
98 |
V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil)); |
V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil)); |
102 |
V18= cdr((V18)); |
V18= cdr((V18)); |
103 |
V19= car((V18)); |
V19= car((V18)); |
104 |
goto T24;} |
goto T24;} |
105 |
|
goto T20; |
106 |
T20:; |
T20:; |
107 |
base[1]= cdr((V8)); |
base[1]= cdr((V8)); |
108 |
base[2]= Ct; |
base[2]= Ct; |
148 |
register object V23; |
register object V23; |
149 |
V22= reverse((V15)); |
V22= reverse((V15)); |
150 |
V23= car((V22)); |
V23= car((V22)); |
151 |
|
goto T60; |
152 |
T60:; |
T60:; |
153 |
if(!(endp((V22)))){ |
if(!(endp((V22)))){ |
154 |
goto T61;} |
goto T61;} |
155 |
goto T56; |
goto T56; |
156 |
|
goto T61; |
157 |
T61:; |
T61:; |
158 |
if((structure_ref(car((V23)),VV[0],2))==Cnil){ |
if((structure_ref(car((V23)),VV[0],2))==Cnil){ |
159 |
goto T65;} |
goto T65;} |
176 |
bds_unwind1; |
bds_unwind1; |
177 |
bds_unwind1; |
bds_unwind1; |
178 |
bds_unwind1;} |
bds_unwind1;} |
179 |
|
goto T65; |
180 |
T65:; |
T65:; |
181 |
if((structure_ref(car((V23)),VV[0],1))==Cnil){ |
if((structure_ref(car((V23)),VV[0],1))==Cnil){ |
182 |
goto T75;} |
goto T75;} |
196 |
bds_unwind1; |
bds_unwind1; |
197 |
bds_unwind1; |
bds_unwind1; |
198 |
bds_unwind1;} |
bds_unwind1;} |
199 |
|
goto T75; |
200 |
T75:; |
T75:; |
201 |
if((structure_ref(car((V23)),VV[0],1))!=Cnil){ |
if((structure_ref(car((V23)),VV[0],1))!=Cnil){ |
202 |
goto T85;} |
goto T85;} |
203 |
if((structure_ref(car((V23)),VV[0],2))==Cnil){ |
if((structure_ref(car((V23)),VV[0],2))==Cnil){ |
204 |
goto T84;} |
goto T84;} |
205 |
|
goto T85; |
206 |
T85:; |
T85:; |
207 |
V32= car((V23)); |
V32= car((V23)); |
208 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
209 |
(void)(structure_set(/* INLINE-ARGS */V32,VV[0],3,symbol_value(VV[12]))); |
(void)(structure_set(/* INLINE-ARGS */V32,VV[0],3,symbol_value(VV[12]))); |
210 |
|
goto T84; |
211 |
T84:; |
T84:; |
212 |
V22= cdr((V22)); |
V22= cdr((V22)); |
213 |
V23= car((V22)); |
V23= car((V22)); |
214 |
goto T60;} |
goto T60;} |
215 |
|
goto T56; |
216 |
T56:; |
T56:; |
217 |
if(((V16))!=Cnil){ |
if(((V16))!=Cnil){ |
218 |
goto T95;} |
goto T95;} |
219 |
if(((V17))==Cnil){ |
if(((V17))==Cnil){ |
220 |
goto T96;} |
goto T96;} |
221 |
|
goto T95; |
222 |
T95:; |
T95:; |
223 |
V33= reverse((V16)); |
V33= reverse((V16)); |
224 |
{object V34 = list(5,VV[1],(V14),/* INLINE-ARGS */V33,reverse((V17)),(V9)); |
{object V34 = list(5,VV[1],(V14),/* INLINE-ARGS */V33,reverse((V17)),(V9)); |
225 |
VMR2(V34)} |
VMR2(V34)} |
226 |
|
goto T96; |
227 |
T96:; |
T96:; |
228 |
{object V35 = (V9); |
{object V35 = (V9); |
229 |
VMR2(V35)}} |
VMR2(V35)}} |
230 |
|
base[0]=base[0]; |
231 |
|
return Cnil; |
232 |
} |
} |
233 |
/* function definition for C2FLET */ |
/* function definition for C2FLET */ |
234 |
|
|
235 |
static L3() |
static void L3() |
236 |
{register object *base=vs_base; |
{register object *base=vs_base; |
237 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
238 |
vs_reserve(VM3); |
vs_reserve(VM3); |
245 |
V37=(base[1]); |
V37=(base[1]); |
246 |
V38=(base[2]); |
V38=(base[2]); |
247 |
vs_top=sup; |
vs_top=sup; |
248 |
|
goto TTL; |
249 |
TTL:; |
TTL:; |
250 |
bds_bind(VV[13],symbol_value(VV[13])); |
bds_bind(VV[13],symbol_value(VV[13])); |
251 |
bds_bind(VV[14],symbol_value(VV[14])); |
bds_bind(VV[14],symbol_value(VV[14])); |
254 |
object V40; |
object V40; |
255 |
V39= (V36); |
V39= (V36); |
256 |
V40= car((V39)); |
V40= car((V39)); |
257 |
|
goto T104; |
258 |
T104:; |
T104:; |
259 |
if(!(endp((V39)))){ |
if(!(endp((V39)))){ |
260 |
goto T105;} |
goto T105;} |
261 |
goto T100; |
goto T100; |
262 |
|
goto T105; |
263 |
T105:; |
T105:; |
264 |
(void)(structure_set(car((V40)),VV[0],4,symbol_value(VV[16])));{object V41; |
(void)(structure_set(car((V40)),VV[0],4,symbol_value(VV[16])));{object V41; |
265 |
V41= (VV[14]->s.s_dbind);{object V42; |
V41= (VV[14]->s.s_dbind);{object V42; |
269 |
V39= cdr((V39)); |
V39= cdr((V39)); |
270 |
V40= car((V39)); |
V40= car((V39)); |
271 |
goto T104;} |
goto T104;} |
272 |
|
goto T100; |
273 |
T100:; |
T100:; |
274 |
{register object V44; |
{register object V44; |
275 |
register object V45; |
register object V45; |
276 |
V44= (V37); |
V44= (V37); |
277 |
V45= car((V44)); |
V45= car((V44)); |
278 |
|
goto T121; |
279 |
T121:; |
T121:; |
280 |
if(!(endp((V44)))){ |
if(!(endp((V44)))){ |
281 |
goto T122;} |
goto T122;} |
282 |
goto T117; |
goto T117; |
283 |
|
goto T122; |
284 |
T122:; |
T122:; |
285 |
if(((VV[14]->s.s_dbind))!=Cnil){ |
if(((VV[14]->s.s_dbind))!=Cnil){ |
286 |
goto T130;} |
goto T130;} |
287 |
V46= Cnil; |
V46= Cnil; |
288 |
goto T128; |
goto T128; |
289 |
|
goto T130; |
290 |
T130:; |
T130:; |
291 |
V46= make_cons(small_fixnum(0),small_fixnum(0)); |
V46= make_cons(small_fixnum(0),small_fixnum(0)); |
292 |
|
goto T128; |
293 |
T128:;{object V47; |
T128:;{object V47; |
294 |
V47= (VV[15]->s.s_dbind); |
V47= (VV[15]->s.s_dbind); |
295 |
V48= list(5,VV[18],V46,V47,car((V45)),cadr((V45))); |
V48= list(5,VV[18],V46,V47,car((V45)),cadr((V45))); |
324 |
V44= cdr((V44)); |
V44= cdr((V44)); |
325 |
V45= car((V44)); |
V45= car((V44)); |
326 |
goto T121;} |
goto T121;} |
327 |
|
goto T117; |
328 |
T117:; |
T117:; |
329 |
base[6]= (V38); |
base[6]= (V38); |
330 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
342 |
object V58; |
object V58; |
343 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
344 |
bds_check; |
bds_check; |
345 |
|
goto TTL; |
346 |
TTL:; |
TTL:; |
347 |
{object V59; |
{object V59; |
348 |
object V60; |
object V60; |
370 |
if(!(endp((V58)))){ |
if(!(endp((V58)))){ |
371 |
goto T174;} |
goto T174;} |
372 |
(void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0))); |
373 |
|
goto T174; |
374 |
T174:; |
T174:; |
375 |
{object V70; |
{object V70; |
376 |
register object V71; |
register object V71; |
377 |
V70= car((V58)); |
V70= car((V58)); |
378 |
V71= car((V70)); |
V71= car((V70)); |
379 |
|
goto T181; |
380 |
T181:; |
T181:; |
381 |
if(!(endp((V70)))){ |
if(!(endp((V70)))){ |
382 |
goto T182;} |
goto T182;} |
383 |
goto T177; |
goto T177; |
384 |
|
goto T182; |
385 |
T182:; |
T182:; |
386 |
if(endp((V71))){ |
if(endp((V71))){ |
387 |
goto T187;} |
goto T187;} |
389 |
goto T187;} |
goto T187;} |
390 |
if(!(endp(cdr((V71))))){ |
if(!(endp(cdr((V71))))){ |
391 |
goto T186;} |
goto T186;} |
392 |
|
goto T187; |
393 |
T187:; |
T187:; |
394 |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V71)))); |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V71)))); |
395 |
|
goto T186; |
396 |
T186:; |
T186:; |
397 |
{register object x= car((V71)),V72= (V68); |
{register object x= car((V71)),V72= (V68); |
398 |
while(!endp(V72)) |
while(!endp(V72)) |
400 |
goto T195; |
goto T195; |
401 |
}else V72=V72->c.c_cdr; |
}else V72=V72->c.c_cdr; |
402 |
goto T193;} |
goto T193;} |
403 |
|
goto T195; |
404 |
T195:; |
T195:; |
405 |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V71))))); |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V71))))); |
406 |
|
goto T193; |
407 |
T193:; |
T193:; |
408 |
V68= make_cons(car((V71)),(V68)); |
V68= make_cons(car((V71)),(V68)); |
409 |
{object V73; |
{object V73; |
414 |
V70= cdr((V70)); |
V70= cdr((V70)); |
415 |
V71= car((V70)); |
V71= car((V70)); |
416 |
goto T181;} |
goto T181;} |
417 |
|
goto T177; |
418 |
T177:; |
T177:; |
419 |
V65= reverse((V65)); |
V65= reverse((V65)); |
420 |
base[1]= cdr((V58)); |
base[1]= cdr((V58)); |
456 |
(void) (*Lnk49)(); |
(void) (*Lnk49)(); |
457 |
vs_top=sup; |
vs_top=sup; |
458 |
V64= vs_base[0]; |
V64= vs_base[0]; |
459 |
|
goto T223; |
460 |
T223:; |
T223:; |
461 |
V69= Cnil; |
V69= Cnil; |
462 |
{register object V75; |
{register object V75; |
463 |
register object V76; |
register object V76; |
464 |
V75= (V65); |
V75= (V65); |
465 |
V76= car((V75)); |
V76= car((V75)); |
466 |
|
goto T231; |
467 |
T231:; |
T231:; |
468 |
if(!(endp((V75)))){ |
if(!(endp((V75)))){ |
469 |
goto T232;} |
goto T232;} |
470 |
goto T227; |
goto T227; |
471 |
|
goto T232; |
472 |
T232:; |
T232:; |
473 |
if((structure_ref(car((V76)),VV[0],1))==Cnil){ |
if((structure_ref(car((V76)),VV[0],1))==Cnil){ |
474 |
goto T236;} |
goto T236;} |
494 |
bds_unwind1; |
bds_unwind1; |
495 |
bds_unwind1; |
bds_unwind1; |
496 |
bds_unwind1;} |
bds_unwind1;} |
497 |
|
goto T236; |
498 |
T236:; |
T236:; |
499 |
V75= cdr((V75)); |
V75= cdr((V75)); |
500 |
V76= car((V75)); |
V76= car((V75)); |
501 |
goto T231;} |
goto T231;} |
502 |
|
goto T227; |
503 |
T227:; |
T227:; |
504 |
if(((V69))!=Cnil){ |
if(((V69))!=Cnil){ |
505 |
goto T224;} |
goto T224;} |
506 |
goto T221; |
goto T221; |
507 |
|
goto T224; |
508 |
T224:; |
T224:; |
509 |
goto T223; |
goto T223; |
510 |
|
goto T221; |
511 |
T221:; |
T221:; |
512 |
|
goto T261; |
513 |
T261:; |
T261:; |
514 |
V69= Cnil; |
V69= Cnil; |
515 |
{register object V83; |
{register object V83; |
516 |
register object V84; |
register object V84; |
517 |
V83= (V65); |
V83= (V65); |
518 |
V84= car((V83)); |
V84= car((V83)); |
519 |
|
goto T269; |
520 |
T269:; |
T269:; |
521 |
if(!(endp((V83)))){ |
if(!(endp((V83)))){ |
522 |
goto T270;} |
goto T270;} |
523 |
goto T265; |
goto T265; |
524 |
|
goto T270; |
525 |
T270:; |
T270:; |
526 |
if((structure_ref(car((V84)),VV[0],2))==Cnil){ |
if((structure_ref(car((V84)),VV[0],2))==Cnil){ |
527 |
goto T274;} |
goto T274;} |
550 |
bds_unwind1; |
bds_unwind1; |
551 |
bds_unwind1; |
bds_unwind1; |
552 |
bds_unwind1;} |
bds_unwind1;} |
553 |
|
goto T274; |
554 |
T274:; |
T274:; |
555 |
V83= cdr((V83)); |
V83= cdr((V83)); |
556 |
V84= car((V83)); |
V84= car((V83)); |
557 |
goto T269;} |
goto T269;} |
558 |
|
goto T265; |
559 |
T265:; |
T265:; |
560 |
if(((V69))!=Cnil){ |
if(((V69))!=Cnil){ |
561 |
goto T262;} |
goto T262;} |
562 |
goto T259; |
goto T259; |
563 |
|
goto T262; |
564 |
T262:; |
T262:; |
565 |
goto T261; |
goto T261; |
566 |
|
goto T259; |
567 |
T259:; |
T259:; |
568 |
{object V91; |
{object V91; |
569 |
object V92; |
object V92; |
570 |
V91= (V65); |
V91= (V65); |
571 |
V92= car((V91)); |
V92= car((V91)); |
572 |
|
goto T302; |
573 |
T302:; |
T302:; |
574 |
if(!(endp((V91)))){ |
if(!(endp((V91)))){ |
575 |
goto T303;} |
goto T303;} |
576 |
goto T298; |
goto T298; |
577 |
|
goto T303; |
578 |
T303:; |
T303:; |
579 |
if((structure_ref(car((V92)),VV[0],1))!=Cnil){ |
if((structure_ref(car((V92)),VV[0],1))!=Cnil){ |
580 |
goto T308;} |
goto T308;} |
581 |
if((structure_ref(car((V92)),VV[0],2))==Cnil){ |
if((structure_ref(car((V92)),VV[0],2))==Cnil){ |
582 |
goto T307;} |
goto T307;} |
583 |
|
goto T308; |
584 |
T308:; |
T308:; |
585 |
V93= car((V92)); |
V93= car((V92)); |
586 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
587 |
(void)(structure_set(/* INLINE-ARGS */V93,VV[0],3,symbol_value(VV[12]))); |
(void)(structure_set(/* INLINE-ARGS */V93,VV[0],3,symbol_value(VV[12]))); |
588 |
|
goto T307; |
589 |
T307:; |
T307:; |
590 |
V91= cdr((V91)); |
V91= cdr((V91)); |
591 |
V92= car((V91)); |
V92= car((V91)); |
592 |
goto T302;} |
goto T302;} |
593 |
|
goto T298; |
594 |
T298:; |
T298:; |
595 |
if(((V66))!=Cnil){ |
if(((V66))!=Cnil){ |
596 |
goto T318;} |
goto T318;} |
597 |
if(((V67))==Cnil){ |
if(((V67))==Cnil){ |
598 |
goto T319;} |
goto T319;} |
599 |
|
goto T318; |
600 |
T318:; |
T318:; |
601 |
V94= reverse((V66)); |
V94= reverse((V66)); |
602 |
{object V95 = list(5,VV[21],(V64),/* INLINE-ARGS */V94,reverse((V67)),(V59)); |
{object V95 = list(5,VV[21],(V64),/* INLINE-ARGS */V94,reverse((V67)),(V59)); |
603 |
bds_unwind1; |
bds_unwind1; |
604 |
VMR4(V95)} |
VMR4(V95)} |
605 |
|
goto T319; |
606 |
T319:; |
T319:; |
607 |
{object V96 = (V59); |
{object V96 = (V59); |
608 |
bds_unwind1; |
bds_unwind1; |
609 |
VMR4(V96)}} |
VMR4(V96)}} |
610 |
|
base[0]=base[0]; |
611 |
|
return Cnil; |
612 |
} |
} |
613 |
/* function definition for C2LABELS */ |
/* function definition for C2LABELS */ |
614 |
|
|
615 |
static L5() |
static void L5() |
616 |
{register object *base=vs_base; |
{register object *base=vs_base; |
617 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
618 |
vs_reserve(VM5); |
vs_reserve(VM5); |
625 |
V98=(base[1]); |
V98=(base[1]); |
626 |
V99=(base[2]); |
V99=(base[2]); |
627 |
vs_top=sup; |
vs_top=sup; |
628 |
|
goto TTL; |
629 |
TTL:; |
TTL:; |
630 |
bds_bind(VV[13],symbol_value(VV[13])); |
bds_bind(VV[13],symbol_value(VV[13])); |
631 |
bds_bind(VV[14],symbol_value(VV[14])); |
bds_bind(VV[14],symbol_value(VV[14])); |
633 |
object V101; |
object V101; |
634 |
V100= (V98); |
V100= (V98); |
635 |
V101= car((V100)); |
V101= car((V100)); |
636 |
|
goto T327; |
637 |
T327:; |
T327:; |
638 |
if(!(endp((V100)))){ |
if(!(endp((V100)))){ |
639 |
goto T328;} |
goto T328;} |
640 |
goto T323; |
goto T323; |
641 |
|
goto T328; |
642 |
T328:; |
T328:; |
643 |
{register object V102; |
{register object V102; |
644 |
V102= car((V101)); |
V102= car((V101)); |
657 |
V100= cdr((V100)); |
V100= cdr((V100)); |
658 |
V101= car((V100)); |
V101= car((V100)); |
659 |
goto T327;} |
goto T327;} |
660 |
|
goto T323; |
661 |
T323:; |
T323:; |
662 |
{register object V107; |
{register object V107; |
663 |
object V108; |
object V108; |
664 |
V107= (V97); |
V107= (V97); |
665 |
V108= car((V107)); |
V108= car((V107)); |
666 |
|
goto T352; |
667 |
T352:; |
T352:; |
668 |
if(!(endp((V107)))){ |
if(!(endp((V107)))){ |
669 |
goto T353;} |
goto T353;} |
670 |
goto T348; |
goto T348; |
671 |
|
goto T353; |
672 |
T353:; |
T353:; |
673 |
(void)(structure_set(car((V108)),VV[0],4,symbol_value(VV[16])));{object V109; |
(void)(structure_set(car((V108)),VV[0],4,symbol_value(VV[16])));{object V109; |
674 |
V109= (VV[14]->s.s_dbind);{object V110; |
V109= (VV[14]->s.s_dbind);{object V110; |
678 |
V107= cdr((V107)); |
V107= cdr((V107)); |
679 |
V108= car((V107)); |
V108= car((V107)); |
680 |
goto T352;} |
goto T352;} |
681 |
|
goto T348; |
682 |
T348:; |
T348:; |
683 |
{register object V112; |
{register object V112; |
684 |
register object V113; |
register object V113; |
685 |
V112= (V98); |
V112= (V98); |
686 |
V113= car((V112)); |
V113= car((V112)); |
687 |
|
goto T369; |
688 |
T369:; |
T369:; |
689 |
if(!(endp((V112)))){ |
if(!(endp((V112)))){ |
690 |
goto T370;} |
goto T370;} |
691 |
goto T365; |
goto T365; |
692 |
|
goto T370; |
693 |
T370:; |
T370:; |
694 |
if(((VV[14]->s.s_dbind))!=Cnil){ |
if(((VV[14]->s.s_dbind))!=Cnil){ |
695 |
goto T378;} |
goto T378;} |
696 |
V114= Cnil; |
V114= Cnil; |
697 |
goto T376; |
goto T376; |
698 |
|
goto T378; |
699 |
T378:; |
T378:; |
700 |
V114= make_cons(small_fixnum(0),small_fixnum(0)); |
V114= make_cons(small_fixnum(0),small_fixnum(0)); |
701 |
|
goto T376; |
702 |
T376:;{object V115; |
T376:;{object V115; |
703 |
V115= symbol_value(VV[15]); |
V115= symbol_value(VV[15]); |
704 |
V116= list(5,VV[18],V114,V115,car((V113)),cadr((V113))); |
V116= list(5,VV[18],V114,V115,car((V113)),cadr((V113))); |
716 |
V112= cdr((V112)); |
V112= cdr((V112)); |
717 |
V113= car((V112)); |
V113= car((V112)); |
718 |
goto T369;} |
goto T369;} |
719 |
|
goto T365; |
720 |
T365:; |
T365:; |
721 |
base[5]= (V99); |
base[5]= (V99); |
722 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
733 |
object V120; |
object V120; |
734 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
735 |
bds_check; |
bds_check; |
736 |
|
goto TTL; |
737 |
TTL:; |
TTL:; |
738 |
{object V121; |
{object V121; |
739 |
object V122; |
object V122; |
750 |
if(!(endp((V120)))){ |
if(!(endp((V120)))){ |
751 |
goto T402;} |
goto T402;} |
752 |
(void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0))); |
753 |
|
goto T402; |
754 |
T402:; |
T402:; |
755 |
{register object V126; |
{register object V126; |
756 |
register object V127; |
register object V127; |
757 |
V126= car((V120)); |
V126= car((V120)); |
758 |
V127= car((V126)); |
V127= car((V126)); |
759 |
|
goto T409; |
760 |
T409:; |
T409:; |
761 |
if(!(endp((V126)))){ |
if(!(endp((V126)))){ |
762 |
goto T410;} |
goto T410;} |
763 |
goto T405; |
goto T405; |
764 |
|
goto T410; |
765 |
T410:; |
T410:; |
766 |
if(endp((V127))){ |
if(endp((V127))){ |
767 |
goto T415;} |
goto T415;} |
769 |
goto T415;} |
goto T415;} |
770 |
if(!(endp(cdr((V127))))){ |
if(!(endp(cdr((V127))))){ |
771 |
goto T414;} |
goto T414;} |
772 |
|
goto T415; |
773 |
T415:; |
T415:; |
774 |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V127)))); |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V127)))); |
775 |
|
goto T414; |
776 |
T414:; |
T414:; |
777 |
V128= car((V127)); |
V128= car((V127)); |
778 |
V129= (*(LnkLI60))(car((V127)),cadr((V127)),cddr((V127))); |
V129= (*(LnkLI60))(car((V127)),cadr((V127)),cddr((V127))); |
781 |
V126= cdr((V126)); |
V126= cdr((V126)); |
782 |
V127= car((V126)); |
V127= car((V126)); |
783 |
goto T409;} |
goto T409;} |
784 |
|
goto T405; |
785 |
T405:; |
T405:; |
786 |
base[2]= cdr((V120)); |
base[2]= cdr((V120)); |
787 |
base[3]= Ct; |
base[3]= Ct; |
818 |
bds_unwind1; |
bds_unwind1; |
819 |
bds_unwind1; |
bds_unwind1; |
820 |
VMR6(V131)}} |
VMR6(V131)}} |
821 |
|
base[0]=base[0]; |
822 |
|
return Cnil; |
823 |
} |
} |
824 |
/* local entry for function C1LOCAL-FUN */ |
/* local entry for function C1LOCAL-FUN */ |
825 |
|
|
827 |
|
|
828 |
register object V133; |
register object V133; |
829 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
830 |
|
goto TTL; |
831 |
TTL:; |
TTL:; |
832 |
{register object V134; |
{register object V134; |
833 |
V134= Cnil; |
V134= Cnil; |
835 |
register object V136; |
register object V136; |
836 |
V135= symbol_value(VV[2]); |
V135= symbol_value(VV[2]); |
837 |
V136= car((V135)); |
V136= car((V135)); |
838 |
|
goto T438; |
839 |
T438:; |
T438:; |
840 |
if(!(endp((V135)))){ |
if(!(endp((V135)))){ |
841 |
goto T439;} |
goto T439;} |
842 |
{object V137 = Cnil; |
{object V137 = Cnil; |
843 |
VMR7(V137)} |
VMR7(V137)} |
844 |
|
goto T439; |
845 |
T439:; |
T439:; |
846 |
if(!(((V136))==(VV[8]))){ |
if(!(((V136))==(VV[8]))){ |
847 |
goto T445;} |
goto T445;} |
848 |
V134= Ct; |
V134= Ct; |
849 |
goto T443; |
goto T443; |
850 |
|
goto T445; |
851 |
T445:; |
T445:; |
852 |
if(!(type_of((V136))==t_cons)){ |
if(!(type_of((V136))==t_cons)){ |
853 |
goto T449;} |
goto T449;} |
855 |
goto T443;} |
goto T443;} |
856 |
{object V138 = cadr((V136)); |
{object V138 = cadr((V136)); |
857 |
VMR7(V138)} |
VMR7(V138)} |
858 |
|
goto T449; |
859 |
T449:; |
T449:; |
860 |
V139= structure_ref((V136),VV[0],0); |
V139= structure_ref((V136),VV[0],0); |
861 |
if(!((/* INLINE-ARGS */V139)==((V133)))){ |
if(!((/* INLINE-ARGS */V139)==((V133)))){ |
864 |
goto T457;} |
goto T457;} |
865 |
(void)(structure_set((V136),VV[0],2,Ct)); |
(void)(structure_set((V136),VV[0],2,Ct)); |
866 |
goto T455; |
goto T455; |
867 |
|
goto T457; |
868 |
T457:; |
T457:; |
869 |
(void)(structure_set((V136),VV[0],1,Ct)); |
(void)(structure_set((V136),VV[0],1,Ct)); |
870 |
|
goto T455; |
871 |
T455:; |
T455:; |
872 |
{object V140 = list(4,VV[26],symbol_value(VV[27]),(V136),(V134)); |
{object V140 = list(4,VV[26],symbol_value(VV[27]),(V136),(V134)); |
873 |
VMR7(V140)} |
VMR7(V140)} |
874 |
|
goto T443; |
875 |
T443:; |
T443:; |
876 |
V135= cdr((V135)); |
V135= cdr((V135)); |
877 |
V136= car((V135)); |
V136= car((V135)); |
878 |
goto T438;}} |
goto T438;}} |
879 |
|
base[0]=base[0]; |
880 |
|
return Cnil; |
881 |
} |
} |
882 |
/* local entry for function SCH-LOCAL-FUN */ |
/* local entry for function SCH-LOCAL-FUN */ |
883 |
|
|
885 |
|
|
886 |
register object V142; |
register object V142; |
887 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
888 |
|
goto TTL; |
889 |
TTL:; |
TTL:; |
890 |
{register object V143; |
{register object V143; |
891 |
register object V144; |
register object V144; |
892 |
V143= symbol_value(VV[2]); |
V143= symbol_value(VV[2]); |
893 |
V144= car((V143)); |
V144= car((V143)); |
894 |
|
goto T467; |
895 |
T467:; |
T467:; |
896 |
if(!(endp((V143)))){ |
if(!(endp((V143)))){ |
897 |
goto T468;} |
goto T468;} |
898 |
{object V145 = (V142); |
{object V145 = (V142); |
899 |
VMR8(V145)} |
VMR8(V145)} |
900 |
|
goto T468; |
901 |
T468:; |
T468:; |
902 |
if(((V144))==(VV[8])){ |
if(((V144))==(VV[8])){ |
903 |
goto T472;} |
goto T472;} |
908 |
goto T472;} |
goto T472;} |
909 |
{object V147 = (V144); |
{object V147 = (V144); |
910 |
VMR8(V147)} |
VMR8(V147)} |
911 |
|
goto T472; |
912 |
T472:; |
T472:; |
913 |
V143= cdr((V143)); |
V143= cdr((V143)); |
914 |
V144= car((V143)); |
V144= car((V143)); |
915 |
goto T467;} |
goto T467;} |
916 |
|
base[0]=base[0]; |
917 |
|
return Cnil; |
918 |
} |
} |
919 |
/* local entry for function C1LOCAL-CLOSURE */ |
/* local entry for function C1LOCAL-CLOSURE */ |
920 |
|
|
922 |
|
|
923 |
register object V149; |
register object V149; |
924 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
925 |
|
goto TTL; |
926 |
TTL:; |
TTL:; |
927 |
{register object V150; |
{register object V150; |
928 |
V150= Cnil; |
V150= Cnil; |
930 |
register object V152; |
register object V152; |
931 |
V151= symbol_value(VV[2]); |
V151= symbol_value(VV[2]); |
932 |
V152= car((V151)); |
V152= car((V151)); |
933 |
|
goto T488; |
934 |
T488:; |
T488:; |
935 |
if(!(endp((V151)))){ |
if(!(endp((V151)))){ |
936 |
goto T489;} |
goto T489;} |
937 |
{object V153 = Cnil; |
{object V153 = Cnil; |
938 |
VMR9(V153)} |
VMR9(V153)} |
939 |
|
goto T489; |
940 |
T489:; |
T489:; |
941 |
if(!(((V152))==(VV[8]))){ |
if(!(((V152))==(VV[8]))){ |
942 |
goto T495;} |
goto T495;} |
943 |
V150= Ct; |
V150= Ct; |
944 |
goto T493; |
goto T493; |
945 |
|
goto T495; |
946 |
T495:; |
T495:; |
947 |
if(!(type_of((V152))==t_cons)){ |
if(!(type_of((V152))==t_cons)){ |
948 |
goto T499;} |
goto T499;} |
950 |
goto T493;} |
goto T493;} |
951 |
{object V154 = cadr((V152)); |
{object V154 = cadr((V152)); |
952 |
VMR9(V154)} |
VMR9(V154)} |
953 |
|
goto T499; |
954 |
T499:; |
T499:; |
955 |
V155= structure_ref((V152),VV[0],0); |
V155= structure_ref((V152),VV[0],0); |
956 |
if(!((/* INLINE-ARGS */V155)==((V149)))){ |
if(!((/* INLINE-ARGS */V155)==((V149)))){ |
958 |
(void)(structure_set((V152),VV[0],2,Ct)); |
(void)(structure_set((V152),VV[0],2,Ct)); |
959 |
{object V156 = list(4,VV[26],symbol_value(VV[27]),(V152),(V150)); |
{object V156 = list(4,VV[26],symbol_value(VV[27]),(V152),(V150)); |
960 |
VMR9(V156)} |
VMR9(V156)} |
961 |
|
goto T493; |
962 |
T493:; |
T493:; |
963 |
V151= cdr((V151)); |
V151= cdr((V151)); |
964 |
V152= car((V151)); |
V152= car((V151)); |
965 |
goto T488;}} |
goto T488;}} |
966 |
|
base[0]=base[0]; |
967 |
|
return Cnil; |
968 |
} |
} |
969 |
/* local entry for function C2CALL-LOCAL */ |
/* local entry for function C2CALL-LOCAL */ |
970 |
|
|
973 |
register object V159;register object V160; |
register object V159;register object V160; |
974 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
975 |
bds_check; |
bds_check; |
976 |
|
goto TTL; |
977 |
TTL:; |
TTL:; |
978 |
bds_bind(VV[13],symbol_value(VV[13])); |
bds_bind(VV[13],symbol_value(VV[13])); |
979 |
if((cadr((V159)))==Cnil){ |
if((cadr((V159)))==Cnil){ |
984 |
(void)((*(LnkLI62))(/* INLINE-ARGS */V161)); |
(void)((*(LnkLI62))(/* INLINE-ARGS */V161)); |
985 |
princ_str(");",VV[20]); |
princ_str(");",VV[20]); |
986 |
goto T511; |
goto T511; |
987 |
|
goto T513; |
988 |
T513:; |
T513:; |
989 |
if(!(type_of((V160))==t_cons||((V160))==Cnil)){ |
if(!(type_of((V160))==t_cons||((V160))==Cnil)){ |
990 |
goto T521;} |
goto T521;} |
1010 |
V162= Cnil; |
V162= Cnil; |
1011 |
goto T540;} |
goto T540;} |
1012 |
base[4]=V163=MMcons(Cnil,Cnil); |
base[4]=V163=MMcons(Cnil,Cnil); |
1013 |
|
goto T541; |
1014 |
T541:; |
T541:; |
1015 |
(V163->c.c_car)= list(2,(V164->c.c_car),Cnil); |
(V163->c.c_car)= list(2,(V164->c.c_car),Cnil); |
1016 |
if(endp(V164=MMcdr(V164))){ |
if(endp(V164=MMcdr(V164))){ |
1018 |
goto T540;} |
goto T540;} |
1019 |
V163=MMcdr(V163)=MMcons(Cnil,Cnil); |
V163=MMcdr(V163)=MMcons(Cnil,Cnil); |
1020 |
goto T541;} |
goto T541;} |
1021 |
|
goto T540; |
1022 |
T540:; |
T540:; |
1023 |
(void)((*(LnkLI64))(V162,(V160))); |
(void)((*(LnkLI64))(V162,(V160))); |
1024 |
if((cdr((VV[30]->s.s_dbind)))==Cnil){ |
if((cdr((VV[30]->s.s_dbind)))==Cnil){ |
1026 |
bds_unwind1; |
bds_unwind1; |
1027 |
bds_unwind1; |
bds_unwind1; |
1028 |
goto T535;} |
goto T535;} |
1029 |
|
princ_str("\ngoto T",VV[20]); |
1030 |
|
(void)((*(LnkLI54))(car((VV[30]->s.s_dbind)))); |
1031 |
|
princ_char(59,VV[20]); |
1032 |
princ_str("\nT",VV[20]); |
princ_str("\nT",VV[20]); |
1033 |
(void)((*(LnkLI54))(car((VV[30]->s.s_dbind)))); |
(void)((*(LnkLI54))(car((VV[30]->s.s_dbind)))); |
1034 |
princ_str(":;",VV[20]); |
princ_str(":;",VV[20]); |
1035 |
bds_unwind1; |
bds_unwind1; |
1036 |
bds_unwind1; |
bds_unwind1; |
1037 |
bds_unwind1; |
bds_unwind1; |
1038 |
|
goto T535; |
1039 |
T535:; |
T535:; |
1040 |
(void)((*(LnkLI65))(VV[36])); |
(void)((*(LnkLI65))(VV[36])); |
1041 |
princ_str("\n goto TTL;",VV[20]); |
princ_str("\n goto TTL;",VV[20]); |
1042 |
V166= structure_ref(car((V159)),VV[0],0); |
V166= structure_ref(car((V159)),VV[0],0); |
1043 |
(void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V166))); |
(void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V166))); |
1044 |
goto T511; |
goto T511; |
1045 |
|
goto T521; |
1046 |
T521:; |
T521:; |
1047 |
(void)((*(LnkLI61))((V160))); |
(void)((*(LnkLI61))((V160))); |
1048 |
princ_str("\n L",VV[20]); |
princ_str("\n L",VV[20]); |
1053 |
register long V169; |
register long V169; |
1054 |
V168= fix(structure_ref(car((V159)),VV[0],4)); |
V168= fix(structure_ref(car((V159)),VV[0],4)); |
1055 |
V169= 0; |
V169= 0; |
1056 |
T560:; |
goto T564; |
1057 |
|
T564:; |
1058 |
if(!((V169)>=(V168))){ |
if(!((V169)>=(V168))){ |
1059 |
goto T561;} |
goto T565;} |
1060 |
goto T556; |
goto T560; |
1061 |
T561:; |
goto T565; |
1062 |
|
T565:; |
1063 |
princ_str("base",VV[20]); |
princ_str("base",VV[20]); |
1064 |
V170 = make_fixnum(V169); |
V170 = make_fixnum(V169); |
1065 |
(void)((*(LnkLI54))(V170)); |
(void)((*(LnkLI54))(V170)); |
1066 |
princ_char(44,VV[20]); |
princ_char(44,VV[20]); |
1067 |
V169= (V169)+1; |
V169= (V169)+1; |
1068 |
goto T560;} |
goto T564;} |
1069 |
T556:; |
goto T560; |
1070 |
|
T560:; |
1071 |
princ_str("base",VV[20]); |
princ_str("base",VV[20]); |
1072 |
V171= structure_ref(car((V159)),VV[0],4); |
V171= structure_ref(car((V159)),VV[0],4); |
1073 |
if(number_compare(/* INLINE-ARGS */V171,symbol_value(VV[16]))==0){ |
if(number_compare(/* INLINE-ARGS */V171,symbol_value(VV[16]))==0){ |
1074 |
goto T574;} |
goto T578;} |
1075 |
V172= structure_ref(car((V159)),VV[0],4); |
V172= structure_ref(car((V159)),VV[0],4); |
1076 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V172)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V172)); |
1077 |
T574:; |
goto T578; |
1078 |
|
T578:; |
1079 |
princ_str(");",VV[20]); |
princ_str(");",VV[20]); |
1080 |
setq(VV[38],Ct); |
setq(VV[38],Ct); |
1081 |
|
goto T511; |
1082 |
T511:; |
T511:; |
1083 |
{object V173 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39])); |
{object V173 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39])); |
1084 |
bds_unwind1; |
bds_unwind1; |
1085 |
VMR10(V173)} |
VMR10(V173)} |
1086 |
|
base[0]=base[0]; |
1087 |
|
return Cnil; |
1088 |
} |
} |
1089 |
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],&LnkLI67,ap);} /* UNWIND-EXIT */ |
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],(void **)&LnkLI67,ap);} /* UNWIND-EXIT */ |
1090 |
static object LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[66],&LnkLI66,ap);} /* CMPNOTE */ |
static object LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[66],(void **)&LnkLI66,ap);} /* CMPNOTE */ |
1091 |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,1,ap);} /* UNWIND-NO-EXIT */ |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],(void **)&LnkLI65,1,ap);} /* UNWIND-NO-EXIT */ |
1092 |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,2,ap);} /* C2PSETQ */ |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],(void **)&LnkLI64,2,ap);} /* C2PSETQ */ |
1093 |
static object LnkTLI63(){return call_proc0(VV[63],&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */ |
static object LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */ |
1094 |
static object LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[62],&LnkLI62,1,ap);} /* WT-CCB-VS */ |
static object LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[62],(void **)&LnkLI62,1,ap);} /* WT-CCB-VS */ |
1095 |
static object LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,1,ap);} /* PUSH-ARGS */ |
static object LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],(void **)&LnkLI61,1,ap);} /* PUSH-ARGS */ |
1096 |
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,3,ap);} /* DEFMACRO* */ |
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],(void **)&LnkLI60,3,ap);} /* DEFMACRO* */ |
1097 |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,1,ap);} /* WT-VS* */ |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,1,ap);} /* WT-VS* */ |
1098 |
static LnkT58(){ call_or_link(VV[58],&Lnk58);} /* C2EXPR */ |
static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* C2EXPR */ |
1099 |
static object LnkTLI57(){return call_proc0(VV[57],&LnkLI57);} /* CCB-VS-PUSH */ |
static object LnkTLI57(){return call_proc0(VV[57],(void **)&LnkLI57);} /* CCB-VS-PUSH */ |
1100 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* CLINK */ |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* CLINK */ |
1101 |
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],&LnkLI55,ap);} /* WT-CLINK */ |
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],(void **)&LnkLI55,ap);} /* WT-CLINK */ |
1102 |
static object LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* WT1 */ |
static object LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* WT1 */ |
1103 |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,1,ap);} /* WT-VS */ |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,1,ap);} /* WT-VS */ |
1104 |
static object LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* VS-PUSH */ |
static object LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* VS-PUSH */ |
1105 |
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,2,ap);} /* ADD-INFO */ |
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],(void **)&LnkLI51,2,ap);} /* ADD-INFO */ |
1106 |
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],&LnkLI50,ap);} /* C1LAMBDA-EXPR */ |
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],(void **)&LnkLI50,ap);} /* C1LAMBDA-EXPR */ |
1107 |
static LnkT49(){ call_or_link(VV[49],&Lnk49);} /* COPY-INFO */ |
static void LnkT49(){ call_or_link(VV[49],(void **)&Lnk49);} /* COPY-INFO */ |
1108 |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],&LnkLI48,2,ap);} /* C1DECL-BODY */ |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],(void **)&LnkLI48,2,ap);} /* C1DECL-BODY */ |
1109 |
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,3,ap);} /* CHECK-VDECL */ |
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],(void **)&LnkLI47,3,ap);} /* CHECK-VDECL */ |
1110 |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* C1ADD-GLOBALS */ |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,1,ap);} /* C1ADD-GLOBALS */ |
1111 |
static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* C1BODY */ |
static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* C1BODY */ |
1112 |
static object LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[44],&LnkLI44,ap);} /* MAKE-FUN */ |
static object LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[44],(void **)&LnkLI44,ap);} /* MAKE-FUN */ |
1113 |
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[43],&LnkLI43,ap);} /* CMPERR */ |
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[43],(void **)&LnkLI43,ap);} /* CMPERR */ |
1114 |
static object LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,3,ap);} /* TOO-FEW-ARGS */ |
static object LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],(void **)&LnkLI42,3,ap);} /* TOO-FEW-ARGS */ |
1115 |
|
|
1116 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1117 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |