36 |
goto T8;} |
goto T8;} |
37 |
if(!(((V2))==(VV[3]))){ |
if(!(((V2))==(VV[3]))){ |
38 |
goto T11;} |
goto T11;} |
39 |
V5= (VFUN_NARGS=1,(*(LnkLI258))(VV[4])); |
V5= (VFUN_NARGS=1,(*(LnkLI265))(VV[4])); |
40 |
frs_pop(); |
frs_pop(); |
41 |
base[3]= V5; |
base[3]= V5; |
42 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
49 |
goto T14;} |
goto T14;} |
50 |
if((symbol_value(VV[6]))==Cnil){ |
if((symbol_value(VV[6]))==Cnil){ |
51 |
goto T16;} |
goto T16;} |
52 |
(void)((VFUN_NARGS=2,(*(LnkLI259))(VV[7],(V1)))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[7],(V1)))); |
53 |
goto T16; |
goto T16; |
54 |
T16:; |
T16:; |
55 |
(void)((*(LnkLI260))(Ct,(V1))); |
(void)((*(LnkLI267))(Ct,(V1))); |
56 |
V6= (*(LnkLI261))((V1)); |
V6= (*(LnkLI268))((V1)); |
57 |
frs_pop(); |
frs_pop(); |
58 |
base[3]= V6; |
base[3]= V6; |
59 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
67 |
goto T21;} |
goto T21;} |
68 |
if((symbol_value(VV[9]))==Cnil){ |
if((symbol_value(VV[9]))==Cnil){ |
69 |
goto T24;} |
goto T24;} |
70 |
(void)((*(LnkLI262))()); |
(void)((*(LnkLI269))()); |
71 |
goto T24; |
goto T24; |
72 |
T24:; |
T24:; |
73 |
base[3]= (V3); |
base[3]= (V3); |
83 |
goto T29;} |
goto T29;} |
84 |
if((symbol_value(VV[9]))==Cnil){ |
if((symbol_value(VV[9]))==Cnil){ |
85 |
goto T31;} |
goto T31;} |
86 |
(void)((*(LnkLI262))()); |
(void)((*(LnkLI269))()); |
87 |
goto T31; |
goto T31; |
88 |
T31:; |
T31:; |
89 |
base[3]= (*(LnkLI263))((V1)); |
base[3]= (*(LnkLI270))((V1)); |
90 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
91 |
(void) (*Lnk264)(); |
(void) (*Lnk271)(); |
92 |
frs_pop(); |
frs_pop(); |
93 |
bds_unwind1; |
bds_unwind1; |
94 |
bds_unwind1; |
bds_unwind1; |
97 |
T29:; |
T29:; |
98 |
if((get((V2),VV[11],Cnil))==Cnil){ |
if((get((V2),VV[11],Cnil))==Cnil){ |
99 |
goto T36;} |
goto T36;} |
100 |
V7= (*(LnkLI265))((V1)); |
V7= (*(LnkLI272))((V1)); |
101 |
frs_pop(); |
frs_pop(); |
102 |
base[3]= V7; |
base[3]= V7; |
103 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
119 |
Lcopy_list(); |
Lcopy_list(); |
120 |
vs_top=sup; |
vs_top=sup; |
121 |
V9= vs_base[0]; |
V9= vs_base[0]; |
122 |
V8= (*(LnkLI266))((V4),(V2),V9); |
V8= (*(LnkLI273))((V4),(V2),V9); |
123 |
base[3]= (V8); |
base[3]= (V8); |
124 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
125 |
(void) (*Lnk264)(); |
(void) (*Lnk271)(); |
126 |
frs_pop(); |
frs_pop(); |
127 |
bds_unwind1; |
bds_unwind1; |
128 |
bds_unwind1; |
bds_unwind1; |
129 |
return;} |
return;} |
130 |
goto T39; |
goto T39; |
131 |
T39:; |
T39:; |
132 |
V10= (*(LnkLI265))((V1)); |
V10= (*(LnkLI272))((V1)); |
133 |
frs_pop(); |
frs_pop(); |
134 |
base[3]= V10; |
base[3]= V10; |
135 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
140 |
T8:; |
T8:; |
141 |
if(!(type_of((V2))==t_cons)){ |
if(!(type_of((V2))==t_cons)){ |
142 |
goto T48;} |
goto T48;} |
143 |
V11= (*(LnkLI265))((V1)); |
V11= (*(LnkLI272))((V1)); |
144 |
frs_pop(); |
frs_pop(); |
145 |
base[3]= V11; |
base[3]= V11; |
146 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
149 |
return; |
return; |
150 |
goto T48; |
goto T48; |
151 |
T48:; |
T48:; |
152 |
V12= (VFUN_NARGS=2,(*(LnkLI258))(VV[12],(V2))); |
V12= (VFUN_NARGS=2,(*(LnkLI265))(VV[12],(V2))); |
153 |
frs_pop(); |
frs_pop(); |
154 |
base[3]= V12; |
base[3]= V12; |
155 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
217 |
bds_bind(VV[0],Cnil); |
bds_bind(VV[0],Cnil); |
218 |
setq(VV[24],reverse(symbol_value(VV[24]))); |
setq(VV[24],reverse(symbol_value(VV[24]))); |
219 |
princ_str("\nvoid init_",VV[25]); |
princ_str("\nvoid init_",VV[25]); |
220 |
(void)((*(LnkLI267))((V15))); |
(void)((*(LnkLI274))((V15))); |
221 |
princ_str("(){",VV[25]); |
princ_str("(){",VV[25]); |
222 |
princ_str("do_init(VV);",VV[25]); |
princ_str("do_init(VV);",VV[25]); |
223 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
302 |
while(!endp(V23)) |
while(!endp(V23)) |
303 |
{vs_push(car(V23));V23=cdr(V23);} |
{vs_push(car(V23));V23=cdr(V23);} |
304 |
vs_base=base+7;} |
vs_base=base+7;} |
305 |
(void) (*Lnk250)(); |
(void) (*Lnk257)(); |
306 |
vs_top=sup; |
vs_top=sup; |
307 |
goto T111;} |
goto T111;} |
308 |
goto T109; |
goto T109; |
324 |
while(!endp(V26)) |
while(!endp(V26)) |
325 |
{vs_push(car(V26));V26=cdr(V26);} |
{vs_push(car(V26));V26=cdr(V26);} |
326 |
vs_base=base+8;} |
vs_base=base+8;} |
327 |
(void) (*Lnk268)(); |
(void) (*Lnk275)(); |
328 |
vs_top=sup; |
vs_top=sup; |
329 |
V24= cdr((V24)); |
V24= cdr((V24)); |
330 |
V25= car((V24)); |
V25= car((V24)); |
342 |
goto T140; |
goto T140; |
343 |
goto T145; |
goto T145; |
344 |
T145:; |
T145:; |
345 |
(void)((*(LnkLI269))((V28))); |
(void)((*(LnkLI276))((V28))); |
346 |
V27= cdr((V27)); |
V27= cdr((V27)); |
347 |
V28= car((V27)); |
V28= car((V27)); |
348 |
goto T144;} |
goto T144;} |
361 |
T160:; |
T160:; |
362 |
princ_str("\nstatic void LC",VV[31]); |
princ_str("\nstatic void LC",VV[31]); |
363 |
V31= structure_ref((V30),VV[32],3); |
V31= structure_ref((V30),VV[32],3); |
364 |
(void)((*(LnkLI270))(/* INLINE-ARGS */V31)); |
(void)((*(LnkLI277))(/* INLINE-ARGS */V31)); |
365 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
366 |
V29= cdr((V29)); |
V29= cdr((V29)); |
367 |
V30= car((V29)); |
V30= car((V29)); |
380 |
goto T178; |
goto T178; |
381 |
T178:; |
T178:; |
382 |
princ_str("\n#define VM",VV[31]); |
princ_str("\n#define VM",VV[31]); |
383 |
(void)((*(LnkLI270))(car((V33)))); |
(void)((*(LnkLI277))(car((V33)))); |
384 |
princ_char(32,VV[31]); |
princ_char(32,VV[31]); |
385 |
(void)((*(LnkLI270))(cdr((V33)))); |
(void)((*(LnkLI277))(cdr((V33)))); |
386 |
V32= cdr((V32)); |
V32= cdr((V32)); |
387 |
V33= car((V32)); |
V33= car((V32)); |
388 |
goto T177;} |
goto T177;} |
389 |
goto T173; |
goto T173; |
390 |
T173:; |
T173:; |
391 |
(void)((*(LnkLI271))(Cnil)); |
(void)((*(LnkLI278))(Cnil)); |
392 |
{object V34; |
{object V34; |
393 |
object V35; |
object V35; |
394 |
base[8]= (VV[22]->s.s_dbind); |
base[8]= (VV[22]->s.s_dbind); |
406 |
goto T193; |
goto T193; |
407 |
goto T201; |
goto T201; |
408 |
T201:; |
T201:; |
409 |
(void)((*(LnkLI271))(Cnil)); |
(void)((*(LnkLI278))(Cnil)); |
410 |
V35= one_plus((V35)); |
V35= one_plus((V35)); |
411 |
goto T200;} |
goto T200;} |
412 |
goto T193; |
goto T193; |
413 |
T193:; |
T193:; |
414 |
princ_str("\nstatic char * VVi[",VV[31]); |
princ_str("\nstatic char * VVi[",VV[31]); |
415 |
V36= number_plus(small_fixnum(1),symbol_value(VV[34])); |
V36= number_plus(small_fixnum(1),symbol_value(VV[34])); |
416 |
(void)((*(LnkLI270))(/* INLINE-ARGS */V36)); |
(void)((*(LnkLI277))(/* INLINE-ARGS */V36)); |
417 |
princ_str("]={",VV[31]); |
princ_str("]={",VV[31]); |
418 |
princ_str("\n#define Cdata VV[",VV[31]); |
princ_str("\n#define Cdata VV[",VV[31]); |
419 |
(void)((*(LnkLI270))(symbol_value(VV[34]))); |
(void)((*(LnkLI277))(symbol_value(VV[34]))); |
420 |
princ_char(93,VV[31]); |
princ_char(93,VV[31]); |
421 |
if((VV[21]->s.s_dbind)!=Cnil){ |
if((VV[21]->s.s_dbind)!=Cnil){ |
422 |
goto T217;} |
goto T217;} |
423 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
424 |
(void)((*(LnkLI270))(small_fixnum(0))); |
(void)((*(LnkLI277))(small_fixnum(0))); |
425 |
goto T217; |
goto T217; |
426 |
T217:; |
T217:; |
427 |
{register object V37; |
{register object V37; |
435 |
goto T224; |
goto T224; |
436 |
T224:; |
T224:; |
437 |
princ_str("\n(char *)(",VV[31]); |
princ_str("\n(char *)(",VV[31]); |
438 |
(void)((*(LnkLI270))(caar((V37)))); |
(void)((*(LnkLI277))(caar((V37)))); |
439 |
(void)((*(LnkLI270))(cadar((V37)))); |
(void)((*(LnkLI277))(cadar((V37)))); |
440 |
if((cdr((V37)))==Cnil){ |
if((cdr((V37)))==Cnil){ |
441 |
goto T236;} |
goto T236;} |
442 |
V38= VV[35]; |
V38= VV[35]; |
446 |
V38= VV[36]; |
V38= VV[36]; |
447 |
goto T234; |
goto T234; |
448 |
T234:; |
T234:; |
449 |
(void)((*(LnkLI270))(V38)); |
(void)((*(LnkLI277))(V38)); |
450 |
V37= cdr((V37)); |
V37= cdr((V37)); |
451 |
goto T223;} |
goto T223;} |
452 |
goto T220; |
goto T220; |
453 |
T220:; |
T220:; |
454 |
princ_str("\n#define VV ((object *)VVi)",VV[31]); |
princ_str("\n#define VV ((object *)VVi)",VV[31]); |
455 |
vs_base=vs_top; |
vs_base=vs_top; |
456 |
(void) (*Lnk272)(); |
(void) (*Lnk279)(); |
457 |
vs_top=sup; |
vs_top=sup; |
458 |
{object V39; |
{object V39; |
459 |
object V40; |
object V40; |
476 |
T248:; |
T248:; |
477 |
{register object V42; |
{register object V42; |
478 |
register object V43; |
register object V43; |
479 |
|
object V44; |
480 |
|
register object V45; |
481 |
V42= cadr((V40)); |
V42= cadr((V40)); |
482 |
V43= caddr((V40)); |
V43= caddr((V40)); |
483 |
|
V44= cadddr((V40)); |
484 |
|
V45= Cnil; |
485 |
if(!(((V43))==(VV[37]))){ |
if(!(((V43))==(VV[37]))){ |
486 |
goto T257;} |
goto T258;} |
487 |
princ_str("\nstatic object *Lclptr",VV[31]); |
princ_str("\nstatic object *Lclptr",VV[31]); |
488 |
(void)((*(LnkLI270))((V42))); |
(void)((*(LnkLI277))((V42))); |
489 |
princ_char(59,VV[31]); |
princ_char(59,VV[31]); |
490 |
V43= VV[38]; |
V45= VV[38]; |
491 |
goto T255; |
goto T256; |
492 |
goto T257; |
goto T258; |
493 |
T257:; |
T258:; |
494 |
|
if(((V43))==Cnil){ |
495 |
|
goto T267;} |
496 |
|
V45= (*(LnkLI280))((V43)); |
497 |
|
goto T265; |
498 |
|
goto T267; |
499 |
|
T267:; |
500 |
|
V45= VV[39]; |
501 |
|
goto T265; |
502 |
|
T265:; |
503 |
|
goto T256; |
504 |
|
T256:; |
505 |
if(((V43))==Cnil){ |
if(((V43))==Cnil){ |
506 |
goto T266;} |
goto T270;} |
507 |
V43= (*(LnkLI273))((V43)); |
if(((V43))==(VV[37])){ |
508 |
goto T264; |
goto T270;} |
509 |
goto T266; |
if(((V44))!=Cnil){ |
510 |
T266:; |
goto T269;} |
511 |
V43= VV[39]; |
if((Ct)==((V43))){ |
512 |
goto T264; |
goto T270;} |
513 |
T264:; |
goto T269; |
514 |
goto T255; |
T269:; |
515 |
T255:; |
princ_str("\nstatic ",VV[31]); |
516 |
|
base[8]= (V45); |
517 |
|
vs_top=(vs_base=base+8)+1; |
518 |
|
(void) (*Lnk281)(); |
519 |
|
vs_top=sup; |
520 |
|
V46= vs_base[0]; |
521 |
|
(void)((*(LnkLI277))(V46)); |
522 |
|
princ_str(" LnkT",VV[31]); |
523 |
|
(void)((*(LnkLI277))((V42))); |
524 |
|
princ_str("(object,...);",VV[31]); |
525 |
|
princ_str("\nstatic ",VV[31]); |
526 |
|
base[8]= (V45); |
527 |
|
vs_top=(vs_base=base+8)+1; |
528 |
|
(void) (*Lnk281)(); |
529 |
|
vs_top=sup; |
530 |
|
V47= vs_base[0]; |
531 |
|
(void)((*(LnkLI277))(V47)); |
532 |
|
princ_str(" (*Lnk",VV[31]); |
533 |
|
(void)((*(LnkLI277))((V42))); |
534 |
|
princ_str(")() = (",VV[31]); |
535 |
|
base[8]= (V45); |
536 |
|
vs_top=(vs_base=base+8)+1; |
537 |
|
(void) (*Lnk281)(); |
538 |
|
vs_top=sup; |
539 |
|
V48= vs_base[0]; |
540 |
|
(void)((*(LnkLI277))(V48)); |
541 |
|
princ_str("(*)()) LnkT",VV[31]); |
542 |
|
(void)((*(LnkLI277))((V42))); |
543 |
|
princ_char(59,VV[31]); |
544 |
|
goto T252; |
545 |
|
goto T270; |
546 |
|
T270:; |
547 |
princ_str("\nstatic ",VV[31]); |
princ_str("\nstatic ",VV[31]); |
548 |
base[8]= (V43); |
base[8]= (V45); |
549 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
550 |
(void) (*Lnk274)(); |
(void) (*Lnk281)(); |
551 |
vs_top=sup; |
vs_top=sup; |
552 |
V44= vs_base[0]; |
V49= vs_base[0]; |
553 |
(void)((*(LnkLI270))(V44)); |
(void)((*(LnkLI277))(V49)); |
554 |
princ_str(" LnkT",VV[31]); |
princ_str(" LnkT",VV[31]); |
555 |
(void)((*(LnkLI270))((V42))); |
(void)((*(LnkLI277))((V42))); |
556 |
princ_str("() ;",VV[31]); |
princ_str("();",VV[31]); |
557 |
princ_str("\nstatic ",VV[31]); |
princ_str("\nstatic ",VV[31]); |
558 |
base[8]= (V43); |
base[8]= (V45); |
559 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
560 |
(void) (*Lnk274)(); |
(void) (*Lnk281)(); |
561 |
vs_top=sup; |
vs_top=sup; |
562 |
V45= vs_base[0]; |
V50= vs_base[0]; |
563 |
(void)((*(LnkLI270))(V45)); |
(void)((*(LnkLI277))(V50)); |
564 |
princ_str(" (*Lnk",VV[31]); |
princ_str(" (*Lnk",VV[31]); |
565 |
(void)((*(LnkLI270))((V42))); |
(void)((*(LnkLI277))((V42))); |
566 |
princ_str(")() = LnkT",VV[31]); |
princ_str(")() = LnkT",VV[31]); |
567 |
(void)((*(LnkLI270))((V42))); |
(void)((*(LnkLI277))((V42))); |
568 |
princ_char(59,VV[31]);} |
princ_char(59,VV[31]);} |
569 |
|
goto T252; |
570 |
|
T252:; |
571 |
V39= cdr((V39)); |
V39= cdr((V39)); |
572 |
V40= car((V39)); |
V40= car((V39)); |
573 |
goto T247;}} |
goto T247;}} |
576 |
} |
} |
577 |
/* local entry for function MAYBE-EVAL */ |
/* local entry for function MAYBE-EVAL */ |
578 |
|
|
579 |
static object LI4(V48,V49) |
static object LI4(V53,V54) |
580 |
|
|
581 |
object V48;register object V49; |
object V53;register object V54; |
582 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
583 |
goto TTL; |
goto TTL; |
584 |
TTL:; |
TTL:; |
585 |
if((V48)!=Cnil){ |
if((V53)!=Cnil){ |
586 |
goto T290;} |
goto T321;} |
587 |
if(type_of(car((V49)))==t_symbol){ |
if(type_of(car((V54)))==t_symbol){ |
588 |
goto T291;} |
goto T322;} |
589 |
goto T290; |
goto T321; |
590 |
goto T291; |
goto T322; |
591 |
T291:; |
T322:; |
592 |
V48= get(car((V49)),VV[40],Cnil); |
V53= get(car((V54)),VV[40],Cnil); |
593 |
goto T290; |
goto T321; |
594 |
T290:; |
T321:; |
595 |
if(((V48))==Cnil){ |
if(((V53))==Cnil){ |
596 |
goto T296;} |
goto T327;} |
597 |
if((VV[41])==(symbol_value(VV[42]))){ |
if((VV[41])==(symbol_value(VV[42]))){ |
598 |
goto T294;} |
goto T325;} |
599 |
goto T296; |
goto T327; |
600 |
T296:; |
T327:; |
601 |
if(!(type_of(symbol_value(VV[42]))==t_cons)){ |
if(!(type_of(symbol_value(VV[42]))==t_cons)){ |
602 |
goto T295;} |
goto T326;} |
603 |
{register object x= VV[43],V50= symbol_value(VV[42]); |
{register object x= VV[43],V55= symbol_value(VV[42]); |
604 |
while(!endp(V50)) |
while(!endp(V55)) |
605 |
if(eql(x,V50->c.c_car)){ |
if(eql(x,V55->c.c_car)){ |
606 |
goto T302; |
goto T333; |
607 |
}else V50=V50->c.c_cdr; |
}else V55=V55->c.c_cdr; |
608 |
goto T295;} |
goto T326;} |
609 |
goto T302; |
goto T333; |
610 |
T302:; |
T333:; |
611 |
goto T294; |
goto T325; |
612 |
T294:; |
T325:; |
613 |
if(((V49))==Cnil){ |
if(((V54))==Cnil){ |
614 |
goto T303;} |
goto T334;} |
615 |
base[0]= (V49); |
base[0]= (V54); |
616 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
617 |
(void) (*Lnk275)(); |
(void) (*Lnk282)(); |
618 |
vs_top=sup; |
vs_top=sup; |
619 |
goto T303; |
goto T334; |
620 |
T303:; |
T334:; |
621 |
{object V51 = Ct; |
{object V56 = Ct; |
622 |
VMR4(V51)} |
VMR4(V56)} |
623 |
goto T295; |
goto T326; |
624 |
T295:; |
T326:; |
625 |
{object V52 = Cnil; |
{object V57 = Cnil; |
626 |
VMR4(V52)} |
VMR4(V57)} |
627 |
base[0]=base[0]; |
base[0]=base[0]; |
628 |
return Cnil; |
return Cnil; |
629 |
} |
} |
634 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
635 |
vs_reserve(VM5); |
vs_reserve(VM5); |
636 |
bds_check; |
bds_check; |
637 |
{register object V53; |
{register object V58; |
638 |
check_arg(1); |
check_arg(1); |
639 |
V53=(base[0]); |
V58=(base[0]); |
640 |
vs_top=sup; |
vs_top=sup; |
641 |
goto TTL; |
goto TTL; |
642 |
TTL:; |
TTL:; |
643 |
{register object V54; |
{register object V59; |
644 |
register object V55; |
register object V60; |
645 |
V54= Cnil; |
V59= Cnil; |
646 |
V55= Cnil; |
V60= Cnil; |
647 |
if(!(endp_prop((V53)))){ |
if(!(endp_prop((V58)))){ |
648 |
goto T309;} |
goto T340;} |
649 |
(void)((*(LnkLI276))(VV[44],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI283))(VV[44],small_fixnum(1),small_fixnum(0))); |
650 |
goto T309; |
goto T340; |
651 |
T309:; |
T340:; |
652 |
{register object V56; |
{register object V61; |
653 |
register object V57; |
register object V62; |
654 |
V56= car((V53)); |
V61= car((V58)); |
655 |
V57= car((V56)); |
V62= car((V61)); |
656 |
goto T316; |
goto T347; |
657 |
T316:; |
T347:; |
658 |
if(!(endp_prop((V56)))){ |
if(!(endp_prop((V61)))){ |
659 |
goto T317;} |
goto T348;} |
660 |
goto T312; |
goto T343; |
661 |
goto T317; |
goto T348; |
662 |
T317:; |
T348:; |
663 |
{object V58= (V57); |
{object V63= (V62); |
664 |
if((V58!= VV[277]))goto T322; |
if((V63!= VV[284]))goto T353; |
665 |
V54= Ct; |
V59= Ct; |
666 |
goto T321; |
goto T352; |
667 |
goto T322; |
goto T353; |
668 |
T322:; |
T353:; |
669 |
if((V58!= VV[43]))goto T324; |
if((V63!= VV[43]))goto T355; |
670 |
V55= Ct; |
V60= Ct; |
671 |
goto T321; |
goto T352; |
672 |
goto T324; |
goto T355; |
673 |
T324:; |
T355:; |
674 |
if((V58!= VV[278]))goto T326; |
if((V63!= VV[285]))goto T357; |
675 |
goto T321; |
goto T352; |
676 |
goto T326; |
goto T357; |
677 |
T326:; |
T357:; |
678 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[45],(V57))));} |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V62))));} |
679 |
goto T321; |
goto T352; |
680 |
T321:; |
T352:; |
681 |
V56= cdr((V56)); |
V61= cdr((V61)); |
682 |
V57= car((V56)); |
V62= car((V61)); |
683 |
goto T316;} |
goto T347;} |
684 |
goto T312; |
goto T343; |
685 |
T312:; |
T343:; |
686 |
base[1]= car((V53)); |
base[1]= car((V58)); |
687 |
bds_bind(VV[42],base[1]); |
bds_bind(VV[42],base[1]); |
688 |
if(((V54))==Cnil){ |
if(((V59))==Cnil){ |
689 |
goto T334;} |
goto T365;} |
690 |
base[2]= (*(LnkLI279))(cdr((V53))); |
base[2]= (*(LnkLI286))(cdr((V58))); |
691 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
692 |
bds_unwind1; |
bds_unwind1; |
693 |
return; |
return; |
694 |
goto T334; |
goto T365; |
695 |
T334:; |
T365:; |
696 |
if(((V55))==Cnil){ |
if(((V60))==Cnil){ |
697 |
goto T337;} |
goto T368;} |
698 |
base[2]= make_cons(VV[46],cdr((V53))); |
base[2]= make_cons(VV[46],cdr((V58))); |
699 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
700 |
(void) (*Lnk275)(); |
(void) (*Lnk282)(); |
701 |
bds_unwind1; |
bds_unwind1; |
702 |
return; |
return; |
703 |
goto T337; |
goto T368; |
704 |
T337:; |
T368:; |
705 |
base[2]= Cnil; |
base[2]= Cnil; |
706 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
707 |
bds_unwind1; |
bds_unwind1; |
710 |
} |
} |
711 |
/* local entry for function T1PROGN */ |
/* local entry for function T1PROGN */ |
712 |
|
|
713 |
static object LI6(V60) |
static object LI6(V65) |
714 |
|
|
715 |
object V60; |
object V65; |
716 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
717 |
bds_check; |
bds_check; |
718 |
goto TTL; |
goto TTL; |
719 |
TTL:; |
TTL:; |
720 |
if(!(equal(car((V60)),VV[47]))){ |
if(!(equal(car((V65)),VV[47]))){ |
721 |
goto T341;} |
goto T372;} |
722 |
bds_bind(VV[48],Ct); |
bds_bind(VV[48],Ct); |
723 |
{object V61 = (*(LnkLI279))(cdr((V60))); |
{object V66 = (*(LnkLI286))(cdr((V65))); |
724 |
bds_unwind1; |
bds_unwind1; |
725 |
VMR6(V61)} |
VMR6(V66)} |
726 |
goto T341; |
goto T372; |
727 |
T341:; |
T372:; |
728 |
{register object V62; |
{register object V67; |
729 |
register object V63; |
register object V68; |
730 |
V62= (V60); |
V67= (V65); |
731 |
V63= car((V62)); |
V68= car((V67)); |
732 |
goto T346; |
goto T377; |
733 |
T346:; |
T377:; |
734 |
if(!(endp_prop((V62)))){ |
if(!(endp_prop((V67)))){ |
735 |
goto T347;} |
goto T378;} |
736 |
{object V64 = Cnil; |
{object V69 = Cnil; |
737 |
VMR6(V64)} |
VMR6(V69)} |
738 |
goto T347; |
goto T378; |
739 |
T347:; |
T378:; |
740 |
base[1]= (V63); |
base[1]= (V68); |
741 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
742 |
(void) (*Lnk264)(); |
(void) (*Lnk271)(); |
743 |
vs_top=sup; |
vs_top=sup; |
744 |
V62= cdr((V62)); |
V67= cdr((V67)); |
745 |
V63= car((V62)); |
V68= car((V67)); |
746 |
goto T346;} |
goto T377;} |
747 |
base[0]=base[0]; |
base[0]=base[0]; |
748 |
return Cnil; |
return Cnil; |
749 |
} |
} |
750 |
/* local entry for function CMPFIX-ARGS */ |
/* local entry for function CMPFIX-ARGS */ |
751 |
|
|
752 |
static object LI7(V67,V68) |
static object LI7(V72,V73) |
753 |
|
|
754 |
object V67;object V68; |
object V72;object V73; |
755 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
756 |
goto TTL; |
goto TTL; |
757 |
TTL:; |
TTL:; |
758 |
{register object V69; |
{register object V74; |
759 |
register object V70; |
register object V75; |
760 |
V69= Cnil; |
V74= Cnil; |
761 |
base[1]= cadr((V67)); |
base[1]= cadr((V72)); |
762 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
763 |
Lcopy_list(); |
Lcopy_list(); |
764 |
vs_top=sup; |
vs_top=sup; |
765 |
V70= vs_base[0]; |
V75= vs_base[0]; |
766 |
{register object V71; |
{register object V76; |
767 |
register object V72; |
register object V77; |
768 |
V71= (V68); |
V76= (V73); |
769 |
V72= car((V71)); |
V77= car((V76)); |
770 |
goto T365; |
goto T396; |
771 |
T365:; |
T396:; |
772 |
if(!(endp_prop((V71)))){ |
if(!(endp_prop((V76)))){ |
773 |
goto T366;} |
goto T397;} |
774 |
goto T361; |
goto T392; |
775 |
goto T366; |
goto T397; |
776 |
T366:; |
T397:; |
777 |
{register object x= car((V72)),V73= (V70); |
{register object x= car((V77)),V78= (V75); |
778 |
while(!endp(V73)) |
while(!endp(V78)) |
779 |
if(eql(x,V73->c.c_car)){ |
if(eql(x,V78->c.c_car)){ |
780 |
V69= V73; |
V74= V78; |
781 |
goto T371; |
goto T402; |
782 |
}else V73=V73->c.c_cdr; |
}else V78=V78->c.c_cdr; |
783 |
V69= Cnil;} |
V74= Cnil;} |
784 |
goto T371; |
goto T402; |
785 |
T371:; |
T402:; |
786 |
if((V69)==Cnil){ |
if((V74)==Cnil){ |
787 |
goto T372;} |
goto T403;} |
788 |
{register object V74; |
{register object V79; |
789 |
register object V75; |
register object V80; |
790 |
V74= (V69); |
V79= (V74); |
791 |
V75= cadr((V72)); |
V80= cadr((V77)); |
792 |
if(type_of((V74))!=t_cons)FEwrong_type_argument(Scons,(V74)); |
if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79)); |
793 |
((V74))->c.c_car = (V75);} |
((V79))->c.c_car = (V80);} |
794 |
goto T372; |
goto T403; |
795 |
T372:; |
T403:; |
796 |
V71= cdr((V71)); |
V76= cdr((V76)); |
797 |
V72= car((V71)); |
V77= car((V76)); |
798 |
goto T365;} |
goto T396;} |
799 |
goto T361; |
goto T392; |
800 |
T361:; |
T392:; |
801 |
{register object x= VV[49],V76= (V70); |
{register object x= VV[49],V81= (V75); |
802 |
while(!endp(V76)) |
while(!endp(V81)) |
803 |
if(eql(x,V76->c.c_car)){ |
if(eql(x,V81->c.c_car)){ |
804 |
V69= V76; |
V74= V81; |
805 |
goto T385; |
goto T416; |
806 |
}else V76=V76->c.c_cdr; |
}else V81=V81->c.c_cdr; |
807 |
V69= Cnil;} |
V74= Cnil;} |
808 |
goto T385; |
goto T416; |
809 |
T385:; |
T416:; |
810 |
if(((V69))==Cnil){ |
if(((V74))==Cnil){ |
811 |
goto T383;} |
goto T414;} |
812 |
{object V78; |
{object V83; |
813 |
V78= append((V68),cdr((V69))); |
V83= append((V73),cdr((V74))); |
814 |
if(type_of(V69)!=t_cons)FEwrong_type_argument(Scons,V69); |
if(type_of(V74)!=t_cons)FEwrong_type_argument(Scons,V74); |
815 |
(V69)->c.c_cdr = (V78); |
(V74)->c.c_cdr = (V83); |
816 |
goto T381;} |
goto T412;} |
817 |
goto T383; |
goto T414; |
818 |
T383:; |
T414:; |
819 |
V79= make_cons(VV[49],(V68)); |
V84= make_cons(VV[49],(V73)); |
820 |
V70= append((V70),/* INLINE-ARGS */V79); |
V75= append((V75),/* INLINE-ARGS */V84); |
821 |
goto T381; |
goto T412; |
822 |
T381:; |
T412:; |
823 |
{object V80 = listA(3,car((V67)),(V70),cddr((V67))); |
{object V85 = listA(3,car((V72)),(V75),cddr((V72))); |
824 |
VMR7(V80)}} |
VMR7(V85)}} |
825 |
base[0]=base[0]; |
base[0]=base[0]; |
826 |
return Cnil; |
return Cnil; |
827 |
} |
} |
828 |
/* local entry for function T1DEFUN */ |
/* local entry for function T1DEFUN */ |
829 |
|
|
830 |
static object LI8(V82) |
static object LI8(V87) |
831 |
|
|
832 |
object V82; |
object V87; |
833 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
834 |
bds_check; |
bds_check; |
835 |
goto TTL; |
goto TTL; |
836 |
TTL:; |
TTL:; |
837 |
{object V83; |
{object V88; |
838 |
V83= symbol_value(VV[50]); |
V88= symbol_value(VV[50]); |
839 |
bds_bind(VV[52],Cnil); |
bds_bind(VV[52],Cnil); |
840 |
if(endp_prop((V82))){ |
if(endp_prop((V87))){ |
841 |
goto T391;} |
goto T422;} |
842 |
if(!(endp_prop(cdr((V82))))){ |
if(!(endp_prop(cdr((V87))))){ |
843 |
goto T390;} |
goto T421;} |
844 |
goto T391; |
goto T422; |
845 |
T391:; |
T422:; |
846 |
V85 = make_fixnum((long)length((V82))); |
V90 = make_fixnum((long)length((V87))); |
847 |
(void)((*(LnkLI276))(VV[51],small_fixnum(2),V85)); |
(void)((*(LnkLI283))(VV[51],small_fixnum(2),V90)); |
848 |
goto T390; |
goto T421; |
849 |
T390:; |
T421:; |
850 |
if(type_of(car((V82)))==t_symbol){ |
if(type_of(car((V87)))==t_symbol){ |
851 |
goto T395;} |
goto T426;} |
852 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[53],car((V82))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V87))))); |
853 |
goto T395; |
goto T426; |
854 |
T395:; |
T426:; |
855 |
V86= make_cons(VV[51],(V82)); |
V91= make_cons(VV[51],(V87)); |
856 |
(void)((*(LnkLI260))(Cnil,/* INLINE-ARGS */V86)); |
(void)((*(LnkLI267))(Cnil,/* INLINE-ARGS */V91)); |
857 |
goto T400; |
goto T431; |
858 |
T400:; |
T431:; |
859 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
860 |
setq(VV[54],Cnil); |
setq(VV[54],Cnil); |
861 |
{register object V87; |
{register object V92; |
862 |
object V88; |
object V93; |
863 |
object V89; |
object V94; |
864 |
register object V90;{object V91; |
register object V95;{object V96; |
865 |
V91= get(car((V82)),VV[60],Cnil); |
V96= get(car((V87)),VV[60],Cnil); |
866 |
if(V91==Cnil)goto T407; |
if(V96==Cnil)goto T438; |
867 |
V88= V91; |
V93= V96; |
868 |
goto T406; |
goto T437; |
869 |
goto T407; |
goto T438; |
870 |
T407:;} |
T438:;} |
871 |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
872 |
V88= symbol_value(VV[61]); |
V93= symbol_value(VV[61]); |
873 |
goto T406; |
goto T437; |
874 |
T406:; |
T437:; |
875 |
V90= car((V82)); |
V95= car((V87)); |
876 |
bds_bind(VV[55],Cnil); |
bds_bind(VV[55],Cnil); |
877 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
878 |
bds_bind(VV[57],Cnil); |
bds_bind(VV[57],Cnil); |
879 |
bds_bind(VV[58],Cnil); |
bds_bind(VV[58],Cnil); |
880 |
V87= Cnil; |
V92= Cnil; |
881 |
bds_bind(VV[59],Cnil); |
bds_bind(VV[59],Cnil); |
882 |
V89= Cnil; |
V94= Cnil; |
883 |
V87= (VFUN_NARGS=2,(*(LnkLI280))(cdr((V82)),(V90))); |
V92= (VFUN_NARGS=2,(*(LnkLI287))(cdr((V87)),(V95))); |
884 |
if(!(eql((V83),symbol_value(VV[50])))){ |
if(!(eql((V88),symbol_value(VV[50])))){ |
885 |
goto T414;} |
goto T445;} |
886 |
goto T413; |
goto T444; |
887 |
goto T414; |
goto T445; |
888 |
T414:; |
T445:; |
889 |
(void)(structure_set(cadr((V87)),VV[62],4,Ct)); |
(void)(structure_set(cadr((V92)),VV[62],4,Ct)); |
890 |
goto T413; |
goto T444; |
891 |
T413:; |
T444:; |
892 |
V92= structure_ref(cadr((V87)),VV[62],1); |
V97= structure_ref(cadr((V92)),VV[62],1); |
893 |
(void)((*(LnkLI281))(/* INLINE-ARGS */V92)); |
(void)((*(LnkLI288))(/* INLINE-ARGS */V97)); |
894 |
if((get((V90),VV[63],Cnil))==Cnil){ |
if((get((V95),VV[63],Cnil))==Cnil){ |
895 |
goto T417;} |
goto T448;} |
896 |
{object V93; |
{object V98; |
897 |
V93= make_fixnum((long)length(car(caddr((V87))))); |
V98= make_fixnum((long)length(car(caddr((V92))))); |
898 |
(void)(sputprop((V90),VV[63],(V93))); |
(void)(sputprop((V95),VV[63],(V98))); |
899 |
base[6]= (V93); |
base[6]= (V98); |
900 |
base[7]= VV[65]; |
base[7]= VV[65]; |
901 |
base[8]= Ct; |
base[8]= Ct; |
902 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
903 |
Lmake_list(); |
Lmake_list(); |
904 |
vs_top=sup; |
vs_top=sup; |
905 |
V94= vs_base[0]; |
V99= vs_base[0]; |
906 |
V95= list(4,VV[64],(V90),V94,Ct); |
V100= list(4,VV[64],(V95),V99,Ct); |
907 |
(void)((*(LnkLI282))(/* INLINE-ARGS */V95));} |
(void)((*(LnkLI289))(/* INLINE-ARGS */V100));} |
908 |
goto T417; |
goto T448; |
909 |
T417:; |
T448:; |
910 |
if((get((V90),VV[66],Cnil))==Cnil){ |
if((get((V95),VV[66],Cnil))==Cnil){ |
911 |
goto T428;} |
goto T459;} |
912 |
{object V96; |
{object V101; |
913 |
register object V97; |
register object V102; |
914 |
V96= caddr((V87)); |
V101= caddr((V92)); |
915 |
V97= Cnil; |
V102= Cnil; |
916 |
if((cadr((V96)))==Cnil){ |
if((cadr((V101)))==Cnil){ |
917 |
goto T433;} |
goto T464;} |
918 |
goto T428; |
goto T459; |
919 |
goto T433; |
goto T464; |
920 |
T433:; |
T464:; |
921 |
if((caddr((V96)))==Cnil){ |
if((caddr((V101)))==Cnil){ |
922 |
goto T435;} |
goto T466;} |
923 |
goto T428; |
goto T459; |
924 |
goto T435; |
goto T466; |
925 |
T435:; |
T466:; |
926 |
if((cadddr((V96)))==Cnil){ |
if((cadddr((V101)))==Cnil){ |
927 |
goto T437;} |
goto T468;} |
928 |
goto T428; |
goto T459; |
929 |
goto T437; |
goto T468; |
930 |
T437:; |
T468:; |
931 |
if(((long)length(car((V96))))<(64)){ |
if(((long)length(car((V101))))<(64)){ |
932 |
goto T439;} |
goto T470;} |
933 |
goto T428; |
goto T459; |
934 |
goto T439; |
goto T470; |
935 |
T439:; |
T470:; |
936 |
{register object V98; |
{register object V103; |
937 |
register object V99; |
register object V104; |
938 |
object V100; |
object V105; |
939 |
V98= car((V96)); |
V103= car((V101)); |
940 |
V99= get((V90),VV[67],Cnil); |
V104= get((V95),VV[67],Cnil); |
941 |
V100= Cnil; |
V105= Cnil; |
942 |
goto T446; |
goto T477; |
943 |
T446:; |
T477:; |
944 |
if(!(endp_prop((V98)))){ |
if(!(endp_prop((V103)))){ |
945 |
goto T447;} |
goto T478;} |
946 |
if(endp_prop((V99))){ |
if(endp_prop((V104))){ |
947 |
goto T450;} |
goto T481;} |
948 |
goto T442; |
goto T473; |
949 |
goto T450; |
goto T481; |
950 |
T450:; |
T481:; |
951 |
if(((V97))==Cnil){ |
if(((V102))==Cnil){ |
952 |
goto T453;} |
goto T484;} |
953 |
V82= (*(LnkLI283))((V82),(V97)); |
V87= (*(LnkLI290))((V87),(V102)); |
954 |
bds_unwind1; |
bds_unwind1; |
955 |
bds_unwind1; |
bds_unwind1; |
956 |
bds_unwind1; |
bds_unwind1; |
957 |
bds_unwind1; |
bds_unwind1; |
958 |
bds_unwind1; |
bds_unwind1; |
959 |
goto T400; |
goto T431; |
960 |
goto T453; |
goto T484; |
961 |
T453:; |
T484:; |
962 |
if(((V100))==Cnil){ |
if(((V105))==Cnil){ |
963 |
goto T441;} |
goto T472;} |
964 |
goto T442; |
goto T473; |
965 |
goto T447; |
goto T478; |
966 |
T447:; |
T478:; |
967 |
{register object V101; |
{register object V106; |
968 |
V101= car((V98)); |
V106= car((V103)); |
969 |
if(!(equal(car((V99)),VV[68]))){ |
if(!(equal(car((V104)),VV[68]))){ |
970 |
goto T460;} |
goto T491;} |
971 |
goto T442; |
goto T473; |
972 |
goto T460; |
goto T491; |
973 |
T460:; |
T491:; |
974 |
V102= structure_ref((V101),VV[69],1); |
V107= structure_ref((V106),VV[69],1); |
975 |
if((/* INLINE-ARGS */V102)==(VV[70])){ |
if((/* INLINE-ARGS */V107)==(VV[70])){ |
976 |
goto T466;} |
goto T497;} |
977 |
V103= structure_ref((V101),VV[69],1); |
V108= structure_ref((V106),VV[69],1); |
978 |
if(!((/* INLINE-ARGS */V103)==(VV[71]))){ |
if(!((/* INLINE-ARGS */V108)==(VV[71]))){ |
979 |
goto T465;} |
goto T496;} |
980 |
if(!((car((V99)))==(Ct))){ |
if(!((car((V104)))==(Ct))){ |
981 |
goto T465;} |
goto T496;} |
982 |
goto T466; |
goto T497; |
983 |
T466:; |
T497:; |
984 |
if((structure_ref((V101),VV[69],3))!=Cnil){ |
if((structure_ref((V106),VV[69],3))!=Cnil){ |
985 |
goto T465;} |
goto T496;} |
986 |
V104= structure_ref((V101),VV[69],4); |
V109= structure_ref((V106),VV[69],4); |
987 |
if(!((/* INLINE-ARGS */V104)==(VV[72]))){ |
if(!((/* INLINE-ARGS */V109)==(VV[72]))){ |
988 |
goto T464;} |
goto T495;} |
989 |
goto T465; |
goto T496; |
990 |
T465:; |
T496:; |
991 |
{object V105; |
{object V110; |
992 |
V106= structure_ref((V101),VV[69],0); |
V111= structure_ref((V106),VV[69],0); |
993 |
vs_base=vs_top; |
vs_base=vs_top; |
994 |
Lgensym(); |
Lgensym(); |
995 |
vs_top=sup; |
vs_top=sup; |
996 |
V107= vs_base[0]; |
V112= vs_base[0]; |
997 |
V105= list(2,/* INLINE-ARGS */V106,V107); |
V110= list(2,/* INLINE-ARGS */V111,V112); |
998 |
V97= make_cons((V105),(V97));} |
V102= make_cons((V110),(V102));} |
999 |
goto T464; |
goto T495; |
1000 |
T464:; |
T495:; |
1001 |
V108= car((V99)); |
V113= car((V104)); |
1002 |
V109= structure_ref((V101),VV[69],5); |
V114= structure_ref((V106),VV[69],5); |
1003 |
if(((*(LnkLI284))(/* INLINE-ARGS */V108,/* INLINE-ARGS */V109))==Cnil){ |
if(((*(LnkLI291))(/* INLINE-ARGS */V113,/* INLINE-ARGS */V114))==Cnil){ |
1004 |
goto T463;} |
goto T494;} |
1005 |
{register object x= car((V99)),V110= VV[73]; |
{register object x= car((V104)),V115= VV[73]; |
1006 |
while(!endp(V110)) |
while(!endp(V115)) |
1007 |
if(eql(x,V110->c.c_car)){ |
if(eql(x,V115->c.c_car)){ |
1008 |
goto T458; |
goto T489; |
1009 |
}else V110=V110->c.c_cdr;} |
}else V115=V115->c.c_cdr;} |
1010 |
V111= structure_ref((V101),VV[69],4); |
V116= structure_ref((V106),VV[69],4); |
1011 |
if((/* INLINE-ARGS */V111)==(VV[74])){ |
if((/* INLINE-ARGS */V116)==(VV[74])){ |
1012 |
goto T458;} |
goto T489;} |
1013 |
if((symbol_value(VV[75]))!=Cnil){ |
if((symbol_value(VV[75]))!=Cnil){ |
|
goto T458;} |
|
|
V113= structure_ref(cadr((V87)),VV[62],0); |
|
|
{register object x= (V101),V112= /* INLINE-ARGS */V113; |
|
|
while(!endp(V112)) |
|
|
if(eql(x,V112->c.c_car)){ |
|
|
goto T488; |
|
|
}else V112=V112->c.c_cdr; |
|
|
goto T458;} |
|
|
goto T488; |
|
|
T488:; |
|
|
goto T463; |
|
|
T463:; |
|
|
if(((V97))!=Cnil){ |
|
1014 |
goto T489;} |
goto T489;} |
1015 |
V114= structure_ref((V101),VV[69],0); |
V118= structure_ref(cadr((V92)),VV[62],0); |
1016 |
(void)((VFUN_NARGS=3,(*(LnkLI259))(VV[76],(V90),/* INLINE-ARGS */V114))); |
{register object x= (V106),V117= /* INLINE-ARGS */V118; |
1017 |
|
while(!endp(V117)) |
1018 |
|
if(eql(x,V117->c.c_car)){ |
1019 |
|
goto T519; |
1020 |
|
}else V117=V117->c.c_cdr; |
1021 |
|
goto T489;} |
1022 |
|
goto T519; |
1023 |
|
T519:; |
1024 |
|
goto T494; |
1025 |
|
T494:; |
1026 |
|
if(((V102))!=Cnil){ |
1027 |
|
goto T520;} |
1028 |
|
V119= structure_ref((V106),VV[69],0); |
1029 |
|
(void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V95),/* INLINE-ARGS */V119))); |
1030 |
|
goto T520; |
1031 |
|
T520:; |
1032 |
|
V105= Ct;} |
1033 |
goto T489; |
goto T489; |
1034 |
T489:; |
T489:; |
1035 |
V100= Ct;} |
V103= cdr((V103)); |
1036 |
goto T458; |
V104= cdr((V104)); |
1037 |
T458:; |
goto T477;} |
1038 |
V98= cdr((V98)); |
goto T473; |
1039 |
V99= cdr((V99)); |
T473:; |
1040 |
goto T446;} |
goto T459; |
1041 |
goto T442; |
goto T472; |
1042 |
T442:; |
T472:; |
1043 |
goto T428; |
if(!(type_of((V93))==t_fixnum|| |
1044 |
goto T441; |
type_of((V93))==t_bignum|| |
1045 |
T441:; |
type_of((V93))==t_ratio|| |
1046 |
if(!(type_of((V88))==t_fixnum|| |
type_of((V93))==t_shortfloat|| |
1047 |
type_of((V88))==t_bignum|| |
type_of((V93))==t_longfloat|| |
1048 |
type_of((V88))==t_ratio|| |
type_of((V93))==t_complex)){ |
1049 |
type_of((V88))==t_shortfloat|| |
goto T459;}} |
1050 |
type_of((V88))==t_longfloat|| |
{object V120; |
1051 |
type_of((V88))==t_complex)){ |
V121= get((V95),VV[67],Cnil); |
1052 |
goto T428;}} |
V122= get((V95),VV[77],Cnil); |
1053 |
{object V115; |
V123= get((V95),VV[67],Cnil); |
1054 |
V116= get((V90),VV[67],Cnil); |
V120= list(5,(V95),V121,V122,small_fixnum(3),(*(LnkLI292))((V93),V123)); |
1055 |
V117= get((V90),VV[77],Cnil); |
setq(VV[78],make_cons((V120),symbol_value(VV[78]))); |
1056 |
V118= get((V90),VV[67],Cnil); |
goto T457;} |
1057 |
V115= list(5,(V90),V116,V117,small_fixnum(3),(*(LnkLI285))((V88),V118)); |
goto T459; |
1058 |
setq(VV[78],make_cons((V115),symbol_value(VV[78]))); |
T459:; |
1059 |
goto T426;} |
{object V124; |
1060 |
goto T428; |
V125= get((V95),VV[77],Cnil); |
1061 |
T428:; |
V124= ((V125)==(Ct)?Ct:Cnil); |
1062 |
{object V119; |
if(((V124))==Cnil){ |
1063 |
V120= get((V90),VV[77],Cnil); |
goto T457;}} |
1064 |
V119= ((V120)==(Ct)?Ct:Cnil); |
goto T457; |
1065 |
if(((V119))==Cnil){ |
T457:; |
1066 |
goto T426;}} |
if((cadddr((V92)))==Cnil){ |
1067 |
goto T426; |
goto T537;} |
1068 |
T426:; |
V94= cadddr((V92)); |
1069 |
if((cadddr((V87)))==Cnil){ |
goto T537; |
1070 |
goto T506;} |
T537:; |
1071 |
V89= cadddr((V87)); |
(void)((*(LnkLI293))()); |
1072 |
goto T506; |
{object V126; |
1073 |
T506:; |
V126= list(6,VV[51],(V95),(V93),(V92),(V94),(VV[59]->s.s_dbind)); |
1074 |
(void)((*(LnkLI286))()); |
setq(VV[24],make_cons((V126),symbol_value(VV[24])));} |
1075 |
{object V121; |
{object V127; |
1076 |
V121= list(6,VV[51],(V90),(V88),(V87),(V89),(VV[59]->s.s_dbind)); |
V127= make_cons((V95),(V93)); |
1077 |
setq(VV[24],make_cons((V121),symbol_value(VV[24])));} |
setq(VV[79],make_cons((V127),symbol_value(VV[79]))); |
1078 |
{object V122; |
V128= symbol_value(VV[79]); |
|
V122= make_cons((V90),(V88)); |
|
|
setq(VV[79],make_cons((V122),symbol_value(VV[79]))); |
|
|
V123= symbol_value(VV[79]); |
|
1079 |
bds_unwind1; |
bds_unwind1; |
1080 |
bds_unwind1; |
bds_unwind1; |
1081 |
bds_unwind1; |
bds_unwind1; |
1082 |
bds_unwind1; |
bds_unwind1; |
1083 |
bds_unwind1;}} |
bds_unwind1;}} |
1084 |
{object V124 = Cnil; |
{object V129 = Cnil; |
1085 |
bds_unwind1; |
bds_unwind1; |
1086 |
VMR8(V124)}} |
VMR8(V129)}} |
1087 |
base[0]=base[0]; |
base[0]=base[0]; |
1088 |
return Cnil; |
return Cnil; |
1089 |
} |
} |
1090 |
/* local entry for function MAKE-INLINE-STRING */ |
/* local entry for function MAKE-INLINE-STRING */ |
1091 |
|
|
1092 |
static object LI9(V127,V128) |
static object LI9(V132,V133) |
1093 |
|
|
1094 |
object V127;object V128; |
object V132;object V133; |
1095 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
1096 |
goto TTL; |
goto TTL; |
1097 |
TTL:; |
TTL:; |
1098 |
if(((V128))!=Cnil){ |
if(((V133))!=Cnil){ |
1099 |
goto T517;} |
goto T548;} |
1100 |
base[0]= Cnil; |
base[0]= Cnil; |
1101 |
base[1]= VV[80]; |
base[1]= VV[80]; |
1102 |
base[2]= (V127); |
base[2]= (V132); |
1103 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1104 |
Lformat(); |
Lformat(); |
1105 |
vs_top=sup; |
vs_top=sup; |
1106 |
{object V129 = vs_base[0]; |
{object V134 = vs_base[0]; |
1107 |
VMR9(V129)} |
VMR9(V134)} |
1108 |
goto T517; |
goto T548; |
1109 |
T517:; |
T548:; |
1110 |
{register object V130; |
{register object V135; |
1111 |
V130= (VFUN_NARGS=7,(*(LnkLI287))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct)); |
V135= (VFUN_NARGS=7,(*(LnkLI294))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct)); |
1112 |
base[0]= (V130); |
base[0]= (V135); |
1113 |
base[1]= VV[85]; |
base[1]= VV[85]; |
1114 |
base[2]= (V127); |
base[2]= (V132); |
1115 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1116 |
Lformat(); |
Lformat(); |
1117 |
vs_top=sup; |
vs_top=sup; |
1118 |
{register object V131; |
{register object V136; |
1119 |
register long V132; |
register long V137; |
1120 |
V132= 0; |
V137= 0; |
1121 |
V131= (V128); |
V136= (V133); |
1122 |
goto T530; |
goto T561; |
1123 |
T530:; |
T561:; |
1124 |
if(!(endp_prop(cdr((V131))))){ |
if(!(endp_prop(cdr((V136))))){ |
1125 |
goto T531;} |
goto T562;} |
1126 |
base[0]= (V130); |
base[0]= (V135); |
1127 |
base[1]= VV[86]; |
base[1]= VV[86]; |
1128 |
base[2]= make_fixnum(V132); |
base[2]= make_fixnum(V137); |
1129 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1130 |
Lformat(); |
Lformat(); |
1131 |
vs_top=sup; |
vs_top=sup; |
1132 |
goto T527; |
goto T558; |
1133 |
goto T531; |
goto T562; |
1134 |
T531:; |
T562:; |
1135 |
base[0]= (V130); |
base[0]= (V135); |
1136 |
base[1]= VV[87]; |
base[1]= VV[87]; |
1137 |
base[2]= make_fixnum(V132); |
base[2]= make_fixnum(V137); |
1138 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1139 |
Lformat(); |
Lformat(); |
1140 |
vs_top=sup; |
vs_top=sup; |
1141 |
V131= cdr((V131)); |
V136= cdr((V136)); |
1142 |
V132= (long)(V132)+1; |
V137= (long)(V137)+1; |
1143 |
goto T530;} |
goto T561;} |
1144 |
goto T527; |
goto T558; |
1145 |
T527:; |
T558:; |
1146 |
{object V133 = (V130); |
{object V138 = (V135); |
1147 |
VMR9(V133)}} |
VMR9(V138)}} |
1148 |
base[0]=base[0]; |
base[0]=base[0]; |
1149 |
return Cnil; |
return Cnil; |
1150 |
} |
} |
1151 |
/* local entry for function CS-PUSH */ |
/* local entry for function CS-PUSH */ |
1152 |
|
|
1153 |
static object LI10(va_alist) |
static object LI10(object first,...) |
|
va_dcl |
|
1154 |
{ |
{ |
1155 |
va_list ap; |
va_list ap; |
1156 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
1157 |
{object V134; |
{object V139; |
1158 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1159 |
va_start(ap); |
va_start(ap,first); |
1160 |
narg = narg - 0; |
narg = narg - 0; |
1161 |
if (narg <= 0) goto T546; |
if (narg <= 0) goto T577; |
1162 |
else { |
else { |
1163 |
V134= va_arg(ap,object);} |
V139= first;} |
1164 |
--narg; goto T547; |
--narg; goto T578; |
1165 |
goto T546; |
goto T577; |
1166 |
T546:; |
T577:; |
1167 |
V134= Cnil; |
V139= Cnil; |
1168 |
goto T547; |
goto T578; |
1169 |
T547:; |
T578:; |
1170 |
{object V135; |
{object V140; |
1171 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
1172 |
V135= symbol_value(VV[88]); |
V140= symbol_value(VV[88]); |
1173 |
{object V136; |
{object V141; |
1174 |
if(((V134))==Cnil){ |
if(((V139))==Cnil){ |
1175 |
goto T554;} |
goto T585;} |
1176 |
V136= make_cons((V134),(V135)); |
V141= make_cons((V139),(V140)); |
1177 |
goto T552; |
goto T583; |
1178 |
goto T554; |
goto T585; |
1179 |
T554:; |
T585:; |
1180 |
V136= (V135); |
V141= (V140); |
1181 |
goto T552; |
goto T583; |
1182 |
T552:; |
T583:; |
1183 |
setq(VV[18],make_cons((V136),symbol_value(VV[18])));} |
setq(VV[18],make_cons((V141),symbol_value(VV[18])));} |
1184 |
{object V137 = (V135); |
{object V142 = (V140); |
1185 |
VMR10(V137)}} |
VMR10(V142)}} |
1186 |
va_end(ap); |
va_end(ap); |
1187 |
base[0]=base[0]; |
base[0]=base[0]; |
1188 |
return Cnil;} |
return Cnil;} |
1189 |
} |
} |
1190 |
/* local entry for function F-TYPE */ |
/* local entry for function F-TYPE */ |
1191 |
|
|
1192 |
static object LI11(V139) |
static object LI11(V144) |
1193 |
|
|
1194 |
register object V139; |
register object V144; |
1195 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
1196 |
goto TTL; |
goto TTL; |
1197 |
TTL:; |
TTL:; |
1198 |
base[0]= (V139); |
base[0]= (V144); |
1199 |
base[1]= VV[69]; |
base[1]= VV[69]; |
1200 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1201 |
(void) (*Lnk288)(); |
(void) (*Lnk295)(); |
1202 |
vs_top=sup; |
vs_top=sup; |
1203 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1204 |
goto T557;} |
goto T588;} |
1205 |
V139= structure_ref((V139),VV[69],5); |
V144= structure_ref((V144),VV[69],5); |
1206 |
goto T557; |
goto T588; |
1207 |
T557:; |
T588:; |
1208 |
if(((V139))==Cnil){ |
if(((V144))==Cnil){ |
1209 |
goto T564;} |
goto T595;} |
1210 |
base[0]= (V139); |
base[0]= (V144); |
1211 |
base[1]= VV[89]; |
base[1]= VV[89]; |
1212 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1213 |
(void) (*Lnk289)(); |
(void) (*Lnk296)(); |
1214 |
vs_top=sup; |
vs_top=sup; |
1215 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1216 |
goto T564;} |
goto T595;} |
1217 |
{long V140 = 1; |
{long V145 = 1; |
1218 |
VMR11((object)V140)} |
VMR11((object)V145)} |
1219 |
goto T564; |
goto T595; |
1220 |
T564:; |
T595:; |
1221 |
{long V141 = 0; |
{long V146 = 0; |
1222 |
VMR11((object)V141)} |
VMR11((object)V146)} |
1223 |
base[0]=base[0]; |
base[0]=base[0]; |
1224 |
} |
} |
1225 |
/* local entry for function PROCLAIMED-ARGD */ |
/* local entry for function PROCLAIMED-ARGD */ |
1226 |
|
|
1227 |
static object LI12(V144,V145) |
static object LI12(V149,V150) |
1228 |
|
|
1229 |
register object V144;object V145; |
register object V149;object V150; |
1230 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1231 |
goto TTL; |
goto TTL; |
1232 |
TTL:; |
TTL:; |
1233 |
{register long V146; |
{register long V151; |
1234 |
register long V147; |
register long V152; |
1235 |
register object V148; |
register object V153; |
1236 |
register object V149; |
register object V154; |
1237 |
V146= (long)length((V144)); |
V151= (long)length((V149)); |
1238 |
V147= 8; |
V152= 8; |
1239 |
V148= make_fixnum((long)(*(LnkLI290))((V145))); |
V153= make_fixnum((long)(*(LnkLI297))((V150))); |
1240 |
V149= Ct; |
V154= Ct; |
1241 |
goto T574; |
goto T605; |
1242 |
T574:; |
T605:; |
1243 |
if(eql(small_fixnum(0),(V148))){ |
if(eql(small_fixnum(0),(V153))){ |
1244 |
goto T576;} |
goto T607;} |
1245 |
V146= (long)(V146)+((long)((fix((V148))) << (V147))); |
V151= (long)(V151)+((long)((fix((V153))) << (V152))); |
1246 |
goto T576; |
goto T607; |
1247 |
T576:; |
T607:; |
1248 |
if(((V149))==Cnil){ |
if(((V154))==Cnil){ |
1249 |
goto T580;} |
goto T611;} |
1250 |
V147= 10; |
V152= 10; |
1251 |
V149= Cnil; |
V154= Cnil; |
1252 |
goto T580; |
goto T611; |
1253 |
T580:; |
T611:; |
1254 |
if(((V144))!=Cnil){ |
if(((V149))!=Cnil){ |
1255 |
goto T586;} |
goto T617;} |
1256 |
{long V150 = V146; |
{long V155 = V151; |
1257 |
VMR12((object)V150)} |
VMR12((object)V155)} |
1258 |
goto T586; |
goto T617; |
1259 |
T586:; |
T617:; |
1260 |
V147= (long)(V147)+(2); |
V152= (long)(V152)+(2); |
1261 |
{register object V152; |
{register object V157; |
1262 |
V152= car((V144)); |
V157= car((V149)); |
1263 |
V144= cdr((V144)); |
V149= cdr((V149)); |
1264 |
V151= (V152);} |
V156= (V157);} |
1265 |
V148= make_fixnum((long)(*(LnkLI290))(V151)); |
V153= make_fixnum((long)(*(LnkLI297))(V156)); |
1266 |
goto T574;} |
goto T605;} |
1267 |
} |
} |
1268 |
/* local entry for function WT-IF-PROCLAIMED */ |
/* local entry for function WT-IF-PROCLAIMED */ |
1269 |
|
|
1270 |
static object LI13(V156,V157,V158) |
static object LI13(V161,V162,V163) |
1271 |
|
|
1272 |
register object V156;object V157;object V158; |
register object V161;object V162;object V163; |
1273 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1274 |
goto TTL; |
goto TTL; |
1275 |
TTL:; |
TTL:; |
1276 |
if(((VFUN_NARGS=1,(*(LnkLI292))((V156))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI299))((V161))))==Cnil){ |
1277 |
goto T598;} |
goto T629;} |
1278 |
{register object x= (V156),V159= symbol_value(VV[78]); |
{register object x= (V161),V164= symbol_value(VV[78]); |
1279 |
while(!endp(V159)) |
while(!endp(V164)) |
1280 |
if(type_of(V159->c.c_car)==t_cons &&eql(x,V159->c.c_car->c.c_car)){ |
if(type_of(V164->c.c_car)==t_cons &&eql(x,V164->c.c_car->c.c_car)){ |
1281 |
goto T602; |
goto T633; |
1282 |
}else V159=V159->c.c_cdr; |
}else V164=V164->c.c_cdr; |
1283 |
goto T601;} |
goto T632;} |
1284 |
goto T602; |
goto T633; |
1285 |
T602:; |
T633:; |
1286 |
V160= list(2,VV[91],(V156)); |
V165= list(2,VV[91],(V161)); |
1287 |
V161= (*(LnkLI294))(VV[92],(V157)); |
V166= (*(LnkLI301))(VV[92],(V162)); |
1288 |
V162= get((V156),VV[67],Cnil); |
V167= get((V161),VV[67],Cnil); |
1289 |
V163= get((V156),VV[77],Cnil); |
V168= get((V161),VV[77],Cnil); |
1290 |
V164 = make_fixnum((long)(*(LnkLI295))(V162,V163)); |
V169 = make_fixnum((long)(*(LnkLI302))(V167,V168)); |
1291 |
V165= list(4,VV[90],/* INLINE-ARGS */V160,/* INLINE-ARGS */V161,V164); |
V170= list(4,VV[90],/* INLINE-ARGS */V165,/* INLINE-ARGS */V166,V169); |
1292 |
(void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V165))); |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V170))); |
1293 |
{object V166 = Ct; |
{object V171 = Ct; |
1294 |
VMR13(V166)} |
VMR13(V171)} |
1295 |
goto T601; |
goto T632; |
1296 |
T601:; |
T632:; |
1297 |
{register object V167; |
{register object V172; |
1298 |
register object V168; |
register object V173; |
1299 |
object V169; |
object V174; |
1300 |
V167= make_fixnum((long)length(car(caddr((V158))))); |
V172= make_fixnum((long)length(car(caddr((V163))))); |
1301 |
V170= get((V156),VV[67],Cnil); |
V175= get((V161),VV[67],Cnil); |
1302 |
V168= make_fixnum((long)length(V170)); |
V173= make_fixnum((long)length(V175)); |
1303 |
V172= get((V156),VV[67],Cnil); |
V177= get((V161),VV[67],Cnil); |
1304 |
{register object x= VV[68],V171= V172; |
{register object x= VV[68],V176= V177; |
1305 |
while(!endp(V171)) |
while(!endp(V176)) |
1306 |
if(eql(x,V171->c.c_car)){ |
if(eql(x,V176->c.c_car)){ |
1307 |
V169= V171; |
V174= V176; |
1308 |
goto T610; |
goto T641; |
1309 |
}else V171=V171->c.c_cdr; |
}else V176=V176->c.c_cdr; |
1310 |
V169= Cnil;} |
V174= Cnil;} |
1311 |
goto T610; |
goto T641; |
1312 |
T610:; |
T641:; |
1313 |
if(((V169))==Cnil){ |
if(((V174))==Cnil){ |
1314 |
goto T613;} |
goto T644;} |
1315 |
base[0]= (V167); |
base[0]= (V172); |
1316 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1317 |
Lmonotonically_nonincreasing(); |
Lmonotonically_nonincreasing(); |
1318 |
vs_top=sup; |
vs_top=sup; |
1319 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1320 |
goto T615;} |
goto T646;} |
1321 |
goto T606; |
goto T637; |
1322 |
goto T615; |
goto T646; |
1323 |
T615:;{object V173; |
T646:;{object V178; |
1324 |
V174 = make_fixnum((long)length((V169))); |
V179 = make_fixnum((long)length((V174))); |
1325 |
V173= number_minus((V168),V174); |
V178= number_minus((V173),V179); |
1326 |
if(V173==Cnil)goto T618; |
if(V178==Cnil)goto T649; |
1327 |
goto T606; |
goto T637; |
1328 |
goto T618; |
goto T649; |
1329 |
T618:;} |
T649:;} |
1330 |
V175 = make_fixnum((long)length((V169))); |
V180 = make_fixnum((long)length((V174))); |
1331 |
V176= number_minus((V168),V175); |
V181= number_minus((V173),V180); |
1332 |
(void)((VFUN_NARGS=4,(*(LnkLI259))(VV[93],(V156),/* INLINE-ARGS */V176,(V167)))); |
(void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V161),/* INLINE-ARGS */V181,(V172)))); |
1333 |
goto T606; |
goto T637; |
1334 |
goto T613; |
goto T644; |
1335 |
T613:; |
T644:; |
1336 |
if(eql((V167),(V168))){ |
if(eql((V172),(V173))){ |
1337 |
goto T621;} |
goto T652;} |
1338 |
(void)((VFUN_NARGS=4,(*(LnkLI259))(VV[94],(V156),(V168),(V167)))); |
(void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V161),(V173),(V172)))); |
1339 |
goto T606; |
goto T637; |
1340 |
goto T621; |
goto T652; |
1341 |
T621:; |
T652:; |
1342 |
(void)((VFUN_NARGS=2,(*(LnkLI259))(VV[95],(V156))));} |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V161))));} |
1343 |
goto T606; |
goto T637; |
1344 |
T606:; |
T637:; |
1345 |
{object V177 = Cnil; |
{object V182 = Cnil; |
1346 |
VMR13(V177)} |
VMR13(V182)} |
1347 |
goto T598; |
goto T629; |
1348 |
T598:; |
T629:; |
1349 |
{object V178 = Cnil; |
{object V183 = Cnil; |
1350 |
VMR13(V178)} |
VMR13(V183)} |
1351 |
base[0]=base[0]; |
base[0]=base[0]; |
1352 |
return Cnil; |
return Cnil; |
1353 |
} |
} |
1354 |
/* local entry for function VOLATILE */ |
/* local entry for function VOLATILE */ |
1355 |
|
|
1356 |
static object LI14(V180) |
static object LI14(V185) |
1357 |
|
|
1358 |
object V180; |
object V185; |
1359 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1360 |
goto TTL; |
goto TTL; |
1361 |
TTL:; |
TTL:; |
1362 |
if((structure_ref((V180),VV[62],4))==Cnil){ |
if((structure_ref((V185),VV[62],4))==Cnil){ |
1363 |
goto T624;} |
goto T655;} |
1364 |
{object V181 = VV[96]; |
{object V186 = VV[96]; |
1365 |
VMR14(V181)} |
VMR14(V186)} |
1366 |
goto T624; |
goto T655; |
1367 |
T624:; |
T655:; |
1368 |
{object V182 = VV[97]; |
{object V187 = VV[97]; |
1369 |
VMR14(V182)} |
VMR14(V187)} |
1370 |
return Cnil; |
return Cnil; |
1371 |
} |
} |
1372 |
/* local entry for function REGISTER */ |
/* local entry for function REGISTER */ |
1373 |
|
|
1374 |
static object LI15(V184) |
static object LI15(V189) |
1375 |
|
|
1376 |
object V184; |
object V189; |
1377 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1378 |
goto TTL; |
goto TTL; |
1379 |
TTL:; |
TTL:; |
1380 |
if(!(equal(symbol_value(VV[20]),VV[98]))){ |
if(!(equal(symbol_value(VV[20]),VV[98]))){ |
1381 |
goto T627;} |
goto T658;} |
1382 |
{long V185= fix(structure_ref((V184),VV[69],6)); |
{long V190= fix(structure_ref((V189),VV[69],6)); |
1383 |
if(!((/* INLINE-ARGS */V185)>=(fix(symbol_value(VV[99]))))){ |
if(!((/* INLINE-ARGS */V190)>=(fix(symbol_value(VV[99]))))){ |
1384 |
goto T627;}} |
goto T658;}} |
1385 |
{object V186 = VV[100]; |
{object V191 = VV[100]; |
1386 |
VMR15(V186)} |
VMR15(V191)} |
1387 |
goto T627; |
goto T658; |
1388 |
T627:; |
T658:; |
1389 |
{object V187 = VV[101]; |
{object V192 = VV[101]; |
1390 |
VMR15(V187)} |
VMR15(V192)} |
1391 |
return Cnil; |
return Cnil; |
1392 |
} |
} |
1393 |
/* local entry for function VARARG-P */ |
/* local entry for function VARARG-P */ |
1394 |
|
|
1395 |
static object LI16(V189) |
static object LI16(V194) |
1396 |
|
|
1397 |
object V189; |
object V194; |
1398 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1399 |
goto TTL; |
goto TTL; |
1400 |
TTL:; |
TTL:; |
1401 |
V190= get((V189),VV[77],Cnil); |
V195= get((V194),VV[77],Cnil); |
1402 |
if(equal(V190,Ct)){ |
if(equal(V195,Ct)){ |
1403 |
goto T631;} |
goto T662;} |
1404 |
{object V191 = Cnil; |
{object V196 = Cnil; |
1405 |
VMR16(V191)} |
VMR16(V196)} |
1406 |
goto T631; |
goto T662; |
1407 |
T631:; |
T662:; |
1408 |
{register object V192; |
{register object V197; |
1409 |
V192= get((V189),VV[67],Cnil); |
V197= get((V194),VV[67],Cnil); |
1410 |
goto T636; |
goto T667; |
1411 |
T636:; |
T667:; |
1412 |
if(((V192))!=Cnil){ |
if(((V197))!=Cnil){ |
1413 |
goto T637;} |
goto T668;} |
1414 |
{object V193 = Ct; |
{object V198 = Ct; |
1415 |
VMR16(V193)} |
VMR16(V198)} |
1416 |
goto T637; |
goto T668; |
1417 |
T637:; |
T668:; |
1418 |
if(!(type_of((V192))==t_cons)){ |
if(!(type_of((V197))==t_cons)){ |
1419 |
goto T642;} |
goto T673;} |
1420 |
goto T641; |
goto T672; |
1421 |
goto T642; |
goto T673; |
1422 |
T642:; |
T673:; |
1423 |
{object V194 = Cnil; |
{object V199 = Cnil; |
1424 |
VMR16(V194)} |
VMR16(V199)} |
1425 |
goto T641; |
goto T672; |
1426 |
T641:; |
T672:; |
1427 |
if(!((car((V192)))==(Ct))){ |
if(!((car((V197)))==(Ct))){ |
1428 |
goto T645;} |
goto T676;} |
1429 |
goto T644; |
goto T675; |
1430 |
goto T645; |
goto T676; |
1431 |
T645:; |
T676:; |
1432 |
if(!((car((V192)))==(VV[68]))){ |
if(!((car((V197)))==(VV[68]))){ |
1433 |
goto T647;} |
goto T678;} |
1434 |
goto T644; |
goto T675; |
1435 |
goto T647; |
goto T678; |
1436 |
T647:; |
T678:; |
1437 |
{object V195 = Cnil; |
{object V200 = Cnil; |
1438 |
VMR16(V195)} |
VMR16(V200)} |
1439 |
goto T644; |
goto T675; |
1440 |
T644:; |
T675:; |
1441 |
V192= cdr((V192)); |
V197= cdr((V197)); |
1442 |
goto T636;} |
goto T667;} |
1443 |
return Cnil; |
return Cnil; |
1444 |
} |
} |
1445 |
/* local entry for function MAXARGS */ |
/* local entry for function MAXARGS */ |
1446 |
|
|
1447 |
static object LI17(V197) |
static object LI17(V202) |
1448 |
|
|
1449 |
register object V197; |
register object V202; |
1450 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1451 |
goto TTL; |
goto TTL; |
1452 |
TTL:; |
TTL:; |
1453 |
if((cadddr((V197)))!=Cnil){ |
if((cadddr((V202)))!=Cnil){ |
1454 |
goto T652;} |
goto T683;} |
1455 |
if((caddr((V197)))==Cnil){ |
if((caddr((V202)))==Cnil){ |
1456 |
goto T653;} |
goto T684;} |
1457 |
goto T652; |
goto T683; |
1458 |
T652:; |
T683:; |
1459 |
{object V198 = small_fixnum(64); |
{object V203 = small_fixnum(64); |
1460 |
VMR17(V198)} |
VMR17(V203)} |
1461 |
goto T653; |
goto T684; |
1462 |
T653:; |
T684:; |
1463 |
base[0]= make_fixnum((long)length(car((V197)))); |
base[0]= make_fixnum((long)length(car((V202)))); |
1464 |
base[1]= make_fixnum((long)length(cadr((V197)))); |
base[1]= make_fixnum((long)length(cadr((V202)))); |
1465 |
V199 = make_fixnum((long)length(car(cddddr((V197))))); |
V204 = make_fixnum((long)length(car(cddddr((V202))))); |
1466 |
base[2]= number_times(small_fixnum(2),V199); |
base[2]= number_times(small_fixnum(2),V204); |
1467 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1468 |
Lplus(); |
Lplus(); |
1469 |
vs_top=sup; |
vs_top=sup; |
1470 |
{object V200 = vs_base[0]; |
{object V205 = vs_base[0]; |
1471 |
VMR17(V200)} |
VMR17(V205)} |
1472 |
base[0]=base[0]; |
base[0]=base[0]; |
1473 |
return Cnil; |
return Cnil; |
1474 |
} |
} |
1475 |
/* local entry for function ADD-ADDRESS */ |
/* local entry for function ADD-ADDRESS */ |
1476 |
|
|
1477 |
static object LI18(V203,V204) |
static object LI18(V208,V209) |
1478 |
|
|
1479 |
object V203;object V204; |
object V208;object V209; |
1480 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1481 |
goto TTL; |
goto TTL; |
1482 |
TTL:; |
TTL:; |
1483 |
{object V205; |
{object V210; |
1484 |
V205= list(2,(V203),(V204)); |
V210= list(2,(V208),(V209)); |
1485 |
setq(VV[21],make_cons((V205),symbol_value(VV[21])));} |
setq(VV[21],make_cons((V210),symbol_value(VV[21])));} |
1486 |
{object V206; |
{object V211; |
1487 |
V206= symbol_value(VV[22]); |
V211= symbol_value(VV[22]); |
1488 |
setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); |
setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); |
1489 |
{object V207 = (V206); |
{object V212 = (V211); |
1490 |
VMR18(V207)}} |
VMR18(V212)}} |
1491 |
base[0]=base[0]; |
base[0]=base[0]; |
1492 |
return Cnil; |
return Cnil; |
1493 |
} |
} |
1494 |
/* local entry for function T2DEFUN */ |
/* local entry for function T2DEFUN */ |
1495 |
|
|
1496 |
static object LI19(V213,V214,V215,V216,V217) |
static object LI19(V218,V219,V220,V221,V222) |
1497 |
|
|
1498 |
register object V213;register object V214;register object V215;object V216;object V217; |
register object V218;register object V219;register object V220;object V221;object V222; |
1499 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1500 |
goto TTL; |
goto TTL; |
1501 |
TTL:; |
TTL:; |
1502 |
if((get((V213),VV[102],Cnil))==Cnil){ |
if((get((V218),VV[102],Cnil))==Cnil){ |
1503 |
goto T665;} |
goto T696;} |
1504 |
{object V218 = Cnil; |
{object V223 = Cnil; |
1505 |
VMR19(V218)} |
VMR19(V223)} |
1506 |
goto T665; |
goto T696; |
1507 |
T665:; |
T696:; |
|
if(((V216))==Cnil){ |
|
|
goto T668;} |
|
|
V219= list(4,VV[103],list(2,VV[91],(V213)),(V216),VV[104]); |
|
|
(void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V219))); |
|
|
goto T668; |
|
|
T668:; |
|
|
{object V220; |
|
|
V220= (*(LnkLI296))((V213),(V214),(V215)); |
|
|
if(((V220))==Cnil){ |
|
|
goto T674;} |
|
|
goto T671; |
|
|
goto T674; |
|
|
T674:; |
|
|
if(((*(LnkLI297))((V213)))==Cnil){ |
|
|
goto T677;} |
|
|
{object V221; |
|
|
V221= cadddr(caddr((V215))); |
|
|
princ_str("\nstatic object LI",VV[31]); |
|
|
(void)((*(LnkLI270))((V214))); |
|
|
princ_str("();",VV[31]); |
|
1508 |
if(((V221))==Cnil){ |
if(((V221))==Cnil){ |
1509 |
goto T685;} |
goto T699;} |
1510 |
V222= list(2,VV[91],(V213)); |
V224= list(4,VV[103],list(2,VV[91],(V218)),(V221),VV[104]); |
1511 |
V223= (*(LnkLI294))(VV[106],(V214)); |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V224))); |
1512 |
V224 = make_fixnum((long)length(car(caddr((V215))))); |
goto T699; |
1513 |
V225= (*(LnkLI298))(caddr((V215))); |
T699:; |
1514 |
V226= (*(LnkLI291))(/* INLINE-ARGS */V225,small_fixnum(8)); |
{object V225; |
1515 |
V227= number_plus(V224,/* INLINE-ARGS */V226); |
V225= (*(LnkLI303))((V218),(V219),(V220)); |
1516 |
|
if(((V225))==Cnil){ |
1517 |
|
goto T705;} |
1518 |
|
goto T702; |
1519 |
|
goto T705; |
1520 |
|
T705:; |
1521 |
|
if(((*(LnkLI304))((V218)))==Cnil){ |
1522 |
|
goto T708;} |
1523 |
|
{object V226; |
1524 |
|
V226= cadddr(caddr((V220))); |
1525 |
|
if(((V226))==Cnil){ |
1526 |
|
goto T712;} |
1527 |
|
V227= list(2,VV[91],(V218)); |
1528 |
|
V228= (*(LnkLI301))(VV[106],(V219)); |
1529 |
|
V229 = make_fixnum((long)length(car(caddr((V220))))); |
1530 |
|
V230= (*(LnkLI305))(caddr((V220))); |
1531 |
|
V231= (*(LnkLI298))(/* INLINE-ARGS */V230,small_fixnum(8)); |
1532 |
|
V232= number_plus(V229,/* INLINE-ARGS */V231); |
1533 |
base[0]= Cnil; |
base[0]= Cnil; |
1534 |
base[1]= VV[107]; |
base[1]= VV[107]; |
1535 |
base[2]= (V214); |
base[2]= (V219); |
1536 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1537 |
Lformat(); |
Lformat(); |
1538 |
vs_top=sup; |
vs_top=sup; |
1539 |
V228= vs_base[0]; |
V233= vs_base[0]; |
1540 |
V229= list(5,VV[105],/* INLINE-ARGS */V222,/* INLINE-ARGS */V223,/* INLINE-ARGS */V227,(*(LnkLI294))(V228,VV[108])); |
V234= list(5,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,/* INLINE-ARGS */V232,(*(LnkLI301))(V233,VV[108])); |
1541 |
(void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V229))); |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V234))); |
1542 |
goto T671; |
goto T702; |
1543 |
goto T685; |
goto T712; |
1544 |
T685:; |
T712:; |
1545 |
V230= list(2,VV[91],(V213)); |
V235= list(2,VV[91],(V218)); |
1546 |
V231= (*(LnkLI294))(VV[110],(V214)); |
V236= (*(LnkLI301))(VV[110],(V219)); |
1547 |
V232 = make_fixnum((long)length(car(caddr((V215))))); |
V237 = make_fixnum((long)length(car(caddr((V220))))); |
1548 |
V233= (*(LnkLI298))(caddr((V215))); |
V238= (*(LnkLI305))(caddr((V220))); |
1549 |
V234= (*(LnkLI291))(/* INLINE-ARGS */V233,small_fixnum(8)); |
V239= (*(LnkLI298))(/* INLINE-ARGS */V238,small_fixnum(8)); |
1550 |
V235= list(4,VV[109],/* INLINE-ARGS */V230,/* INLINE-ARGS */V231,number_plus(V232,/* INLINE-ARGS */V234)); |
V240= list(4,VV[109],/* INLINE-ARGS */V235,/* INLINE-ARGS */V236,number_plus(V237,/* INLINE-ARGS */V239)); |
1551 |
(void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V235))); |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V240))); |
1552 |
goto T671;} |
goto T702;} |
1553 |
goto T677; |
goto T708; |
1554 |
T677:; |
T708:; |
1555 |
if(!(type_of((V214))==t_fixnum|| |
if(!(type_of((V219))==t_fixnum|| |
1556 |
type_of((V214))==t_bignum|| |
type_of((V219))==t_bignum|| |
1557 |
type_of((V214))==t_ratio|| |
type_of((V219))==t_ratio|| |
1558 |
type_of((V214))==t_shortfloat|| |
type_of((V219))==t_shortfloat|| |
1559 |
type_of((V214))==t_longfloat|| |
type_of((V219))==t_longfloat|| |
1560 |
type_of((V214))==t_complex)){ |
type_of((V219))==t_complex)){ |
1561 |
goto T692;} |
goto T719;} |
1562 |
princ_str("\nstatic void L",VV[31]); |
princ_str("\nstatic void L",VV[31]); |
1563 |
(void)((*(LnkLI270))((V214))); |
(void)((*(LnkLI277))((V219))); |
1564 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
1565 |
V236= list(2,VV[91],(V213)); |
V241= list(2,VV[91],(V218)); |
1566 |
V237= list(3,VV[111],/* INLINE-ARGS */V236,(*(LnkLI294))(VV[112],(V214))); |
V242= list(3,VV[111],/* INLINE-ARGS */V241,(*(LnkLI301))(VV[112],(V219))); |
1567 |
(void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V237))); |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V242))); |
1568 |
goto T671; |
goto T702; |
1569 |
goto T692; |
goto T719; |
1570 |
T692:; |
T719:; |
1571 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
1572 |
(void)((*(LnkLI270))((V214))); |
(void)((*(LnkLI277))((V219))); |
1573 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
1574 |
V238= list(2,VV[91],(V213)); |
V243= list(2,VV[91],(V218)); |
1575 |
V239= list(3,VV[111],/* INLINE-ARGS */V238,(*(LnkLI294))(VV[113],(V214))); |
V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI301))(VV[113],(V219))); |
1576 |
(void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V239)));} |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V244)));} |
1577 |
goto T671; |
goto T702; |
1578 |
T671:; |
T702:; |
1579 |
if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){ |
if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){ |
1580 |
goto T703;} |
goto T730;} |
1581 |
{object V240 = sputprop((V213),VV[115],Ct); |
{object V245 = sputprop((V218),VV[115],Ct); |
1582 |
VMR19(V240)} |
VMR19(V245)} |
1583 |
goto T703; |
goto T730; |
1584 |
T703:; |
T730:; |
1585 |
{object V241 = Cnil; |
{object V246 = Cnil; |
1586 |
VMR19(V241)} |
VMR19(V246)} |
1587 |
base[0]=base[0]; |
base[0]=base[0]; |
1588 |
return Cnil; |
return Cnil; |
1589 |
} |
} |
1590 |
/* local entry for function ADD-DEBUG */ |
/* local entry for function ADD-DEBUG */ |
1591 |
|
|
1592 |
static object LI20(V244,V245) |
static object LI20(V249,V250) |
1593 |
|
|
1594 |
object V244;object V245; |
object V249;object V250; |
1595 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1596 |
goto TTL; |
goto TTL; |
1597 |
TTL:; |
TTL:; |
1598 |
{object V246 = putprop((V244),(V245),VV[116]); |
{object V251 = putprop((V249),(V250),VV[116]); |
1599 |
VMR20(V246)} |
VMR20(V251)} |
1600 |
return Cnil; |
return Cnil; |
1601 |
} |
} |
1602 |
/* local entry for function T3DEFUN */ |
/* local entry for function T3DEFUN */ |
1603 |
|
|
1604 |
static object LI21(V252,V253,V254,V255,V256) |
static object LI21(V257,V258,V259,V260,V261) |
1605 |
|
|
1606 |
register object V252;register object V253;register object V254;object V255;object V256; |
register object V257;register object V258;register object V259;object V260;object V261; |
1607 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1608 |
bds_check; |
bds_check; |
1609 |
goto TTL; |
goto TTL; |
1610 |
TTL:; |
TTL:; |
1611 |
{register object V257; |
{register object V262; |
1612 |
V257= Cnil; |
V262= Cnil; |
1613 |
bds_bind(VV[0],list(2,VV[51],(V252))); |
bds_bind(VV[0],list(2,VV[51],(V257))); |
1614 |
bds_bind(VV[20],(*(LnkLI299))(cadr((V254)))); |
bds_bind(VV[20],(*(LnkLI306))(cadr((V259)))); |
1615 |
bds_bind(VV[117],Cnil); |
bds_bind(VV[117],Cnil); |
1616 |
{register object V258; |
{register object V263; |
1617 |
register object V259; |
register object V264; |
1618 |
V258= symbol_value(VV[78]); |
V263= symbol_value(VV[78]); |
1619 |
V259= car((V258)); |
V264= car((V263)); |
1620 |
goto T715; |
goto T742; |
1621 |
T715:; |
T742:; |
1622 |
if(!(endp_prop((V258)))){ |
if(!(endp_prop((V263)))){ |
1623 |
goto T716;} |
goto T743;} |
1624 |
goto T710; |
goto T737; |
1625 |
goto T716; |
goto T743; |
1626 |
T716:;{object V260; |
T743:;{object V265; |
1627 |
base[4]= cadddr((V259)); |
base[4]= cadddr((V264)); |
1628 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1629 |
(void) (*Lnk300)(); |
(void) (*Lnk307)(); |
1630 |
vs_top=sup; |
vs_top=sup; |
1631 |
V260= vs_base[0]; |
V265= vs_base[0]; |
1632 |
if(V260==Cnil)goto T721; |
if(V265==Cnil)goto T748; |
1633 |
goto T720; |
goto T747; |
1634 |
goto T721; |
goto T748; |
1635 |
T721:;} |
T748:;} |
1636 |
base[4]= VV[118]; |
base[4]= VV[118]; |
1637 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1638 |
Lerror(); |
Lerror(); |
1639 |
vs_top=sup; |
vs_top=sup; |
1640 |
goto T720; |
goto T747; |
1641 |
T720:; |
T747:; |
1642 |
if((car((V259)))==((V252))){ |
if((car((V264)))==((V257))){ |
1643 |
goto T726;} |
goto T753;} |
1644 |
goto T725; |
goto T752; |
1645 |
goto T726; |
goto T753; |
1646 |
T726:; |
T753:; |
1647 |
if((cadr(cddddr((V259))))==Cnil){ |
if((cadr(cddddr((V264))))==Cnil){ |
1648 |
goto T728;} |
goto T755;} |
1649 |
goto T725; |
goto T752; |
1650 |
goto T728; |
goto T755; |
1651 |
T728:; |
T755:; |
1652 |
V257= (V259); |
V262= (V264); |
1653 |
if(((V257))==Cnil){ |
if(((V262))==Cnil){ |
1654 |
goto T710;} |
goto T737;} |
1655 |
goto T711; |
goto T738; |
1656 |
goto T725; |
goto T752; |
1657 |
T725:; |
T752:; |
1658 |
V258= cdr((V258)); |
V263= cdr((V263)); |
1659 |
V259= car((V258)); |
V264= car((V263)); |
1660 |
goto T715;} |
goto T742;} |
1661 |
goto T711; |
goto T738; |
1662 |
T711:; |
T738:; |
1663 |
if(((VFUN_NARGS=1,(*(LnkLI292))((V252))))!=Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI299))((V257))))!=Cnil){ |
1664 |
goto T736;} |
goto T763;} |
1665 |
{object V261; |
{object V266; |
1666 |
V261= list(4,(V252),(V253),cadr((V257)),caddr((V257))); |
V266= list(4,(V257),(V258),cadr((V262)),caddr((V262))); |
1667 |
setq(VV[29],make_cons((V261),symbol_value(VV[29])));} |
setq(VV[29],make_cons((V266),symbol_value(VV[29])));} |
1668 |
goto T736; |
goto T763; |
1669 |
T736:; |
T763:; |
1670 |
V262= structure_ref(cadr((V254)),VV[62],1); |
V267= structure_ref(cadr((V259)),VV[62],1); |
1671 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V262,small_fixnum(0))); |
(void)((*(LnkLI308))(/* INLINE-ARGS */V267,small_fixnum(0))); |
1672 |
base[3]= VV[119]; |
base[3]= VV[119]; |
1673 |
{object V263= caddr((V257)); |
{object V268= caddr((V262)); |
1674 |
if((V263!= VV[89]))goto T744; |
if((V268!= VV[89]))goto T771; |
1675 |
base[4]= VV[120]; |
base[4]= VV[120]; |
1676 |
goto T743; |
goto T770; |
1677 |
goto T744; |
goto T771; |
1678 |
T744:; |
T771:; |
1679 |
if((V263!= VV[142]))goto T745; |
if((V268!= VV[142]))goto T772; |
1680 |
base[4]= VV[121]; |
base[4]= VV[121]; |
1681 |
goto T743; |
goto T770; |
1682 |
goto T745; |
goto T772; |
1683 |
T745:; |
T772:; |
1684 |
if((V263!= VV[143]))goto T746; |
if((V268!= VV[143]))goto T773; |
1685 |
base[4]= VV[122]; |
base[4]= VV[122]; |
1686 |
goto T743; |
goto T770; |
1687 |
goto T746; |
goto T773; |
1688 |
T746:; |
T773:; |
1689 |
if((V263!= VV[144]))goto T747; |
if((V268!= VV[144]))goto T774; |
1690 |
base[4]= VV[123]; |
base[4]= VV[123]; |
1691 |
goto T743; |
goto T770; |
1692 |
goto T747; |
goto T774; |
1693 |
T747:; |
T774:; |
1694 |
base[4]= VV[124];} |
base[4]= VV[124];} |
1695 |
goto T743; |
goto T770; |
1696 |
T743:; |
T770:; |
1697 |
base[5]= (V252); |
base[5]= (V257); |
1698 |
base[6]= (V253); |
base[6]= (V258); |
1699 |
base[7]= (V254); |
base[7]= (V259); |
1700 |
base[8]= (V256); |
base[8]= (V261); |
1701 |
base[9]= (V257); |
base[9]= (V262); |
1702 |
vs_top=(vs_base=base+3)+7; |
vs_top=(vs_base=base+3)+7; |
1703 |
(void) (*Lnk302)(); |
(void) (*Lnk309)(); |
1704 |
vs_top=sup; |
vs_top=sup; |
1705 |
goto T708; |
goto T735; |
1706 |
goto T710; |
goto T737; |
1707 |
T710:; |
T737:; |
1708 |
if(((*(LnkLI297))((V252)))==Cnil){ |
if(((*(LnkLI304))((V257)))==Cnil){ |
1709 |
goto T754;} |
goto T781;} |
1710 |
V264= structure_ref(cadr((V254)),VV[62],1); |
V269= structure_ref(cadr((V259)),VV[62],1); |
1711 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V264,small_fixnum(0))); |
(void)((*(LnkLI308))(/* INLINE-ARGS */V269,small_fixnum(0))); |
1712 |
base[3]= VV[125]; |
base[3]= VV[125]; |
1713 |
base[4]= VV[124]; |
base[4]= VV[124]; |
1714 |
base[5]= (V252); |
base[5]= (V257); |
1715 |
base[6]= (V253); |
base[6]= (V258); |
1716 |
base[7]= (V254); |
base[7]= (V259); |
1717 |
base[8]= (V256); |
base[8]= (V261); |
1718 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
1719 |
(void) (*Lnk302)(); |
(void) (*Lnk309)(); |
1720 |
vs_top=sup; |
vs_top=sup; |
1721 |
goto T708; |
goto T735; |
1722 |
goto T754; |
goto T781; |
1723 |
T754:; |
T781:; |
1724 |
V265= structure_ref(cadr((V254)),VV[62],1); |
V270= structure_ref(cadr((V259)),VV[62],1); |
1725 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V265,small_fixnum(2))); |
(void)((*(LnkLI308))(/* INLINE-ARGS */V270,small_fixnum(2))); |
1726 |
base[3]= VV[126]; |
base[3]= VV[126]; |
1727 |
base[4]= VV[127]; |
base[4]= VV[127]; |
1728 |
base[5]= (V252); |
base[5]= (V257); |
1729 |
base[6]= (V253); |
base[6]= (V258); |
1730 |
base[7]= (V254); |
base[7]= (V259); |
1731 |
base[8]= (V256); |
base[8]= (V261); |
1732 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
1733 |
(void) (*Lnk302)(); |
(void) (*Lnk309)(); |
1734 |
vs_top=sup; |
vs_top=sup; |
1735 |
goto T708; |
goto T735; |
1736 |
T708:; |
T735:; |
1737 |
(void)((*(LnkLI303))((V253))); |
(void)((*(LnkLI310))((V258))); |
1738 |
{object V266 = (*(LnkLI304))((V252),(V254)); |
{object V271 = (*(LnkLI311))((V257),(V259)); |
1739 |
bds_unwind1; |
bds_unwind1; |
1740 |
bds_unwind1; |
bds_unwind1; |
1741 |
bds_unwind1; |
bds_unwind1; |
1742 |
VMR21(V266)}} |
VMR21(V271)}} |
1743 |
base[0]=base[0]; |
base[0]=base[0]; |
1744 |
return Cnil; |
return Cnil; |
1745 |
} |
} |
1750 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1751 |
vs_reserve(VM22); |
vs_reserve(VM22); |
1752 |
bds_check; |
bds_check; |
1753 |
{object V267; |
{object V272; |
1754 |
object V268; |
object V273; |
1755 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1756 |
V267=(base[0]); |
V272=(base[0]); |
1757 |
bds_bind(VV[128],base[1]); |
bds_bind(VV[128],base[1]); |
1758 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1759 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1760 |
{object *p=vs_top; |
{object *p=vs_top; |
1761 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1762 |
V268=(base[2]); |
V273=(base[2]); |
1763 |
vs_top=sup; |
vs_top=sup; |
1764 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
1765 |
bds_bind(VV[129],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
1775 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
1776 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
1777 |
bds_bind(VV[141],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
1778 |
base[16]= (V267); |
base[16]= (V272); |
1779 |
{object V269; |
{object V274; |
1780 |
V269= (V268); |
V274= (V273); |
1781 |
vs_top=base+17; |
vs_top=base+17; |
1782 |
while(!endp(V269)) |
while(!endp(V274)) |
1783 |
{vs_push(car(V269));V269=cdr(V269);} |
{vs_push(car(V274));V274=cdr(V274);} |
1784 |
vs_base=base+17;} |
vs_base=base+17;} |
1785 |
super_funcall_no_event(base[16]); |
super_funcall_no_event(base[16]); |
1786 |
bds_unwind1; |
bds_unwind1; |
1802 |
} |
} |
1803 |
/* local entry for function T3DEFUN-LOCAL-ENTRY */ |
/* local entry for function T3DEFUN-LOCAL-ENTRY */ |
1804 |
|
|
1805 |
static object LI23(V275,V276,V277,V278,V279) |
static object LI23(V280,V281,V282,V283,V284) |
1806 |
|
|
1807 |
object V275;object V276;object V277;object V278;object V279; |
object V280;object V281;object V282;object V283;object V284; |
1808 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1809 |
bds_check; |
bds_check; |
1810 |
goto TTL; |
goto TTL; |
1811 |
TTL:; |
TTL:; |
|
{object V280; |
|
|
object V281; |
|
|
V280= Cnil; |
|
|
V281= caaddr((V277)); |
|
|
{register object V282; |
|
|
object V283; |
|
|
V283= cadr((V279)); |
|
|
V282= (V281); |
|
|
goto T781; |
|
|
T781:; |
|
|
if(!(endp_prop((V282)))){ |
|
|
goto T782;} |
|
|
goto T778; |
|
|
goto T782; |
|
|
T782:; |
|
|
V284= structure_ref(car((V282)),VV[69],1); |
|
|
if(!((/* INLINE-ARGS */V284)==(VV[71]))){ |
|
|
goto T788;} |
|
1812 |
{object V285; |
{object V285; |
1813 |
V286= car((V282)); |
object V286; |
1814 |
V287= structure_ref(car((V282)),VV[69],4); |
V285= Cnil; |
1815 |
V285= make_cons(/* INLINE-ARGS */V286,/* INLINE-ARGS */V287); |
V286= caaddr((V282)); |
1816 |
V280= make_cons((V285),(V280)); |
{register object V287; |
1817 |
goto T786;} |
object V288; |
1818 |
goto T788; |
V288= cadr((V284)); |
1819 |
T788:; |
V287= (V286); |
1820 |
V288= car((V282)); |
goto T808; |
1821 |
{object V290= car((V283)); |
T808:; |
1822 |
if((V290!= VV[89]))goto T793; |
if(!(endp_prop((V287)))){ |
1823 |
V289= VV[89]; |
goto T809;} |
1824 |
goto T792; |
goto T805; |
1825 |
goto T793; |
goto T809; |
1826 |
T793:; |
T809:; |
1827 |
if((V290!= VV[142]))goto T794; |
V289= structure_ref(car((V287)),VV[69],1); |
1828 |
V289= VV[142]; |
if(!((/* INLINE-ARGS */V289)==(VV[71]))){ |
1829 |
goto T792; |
goto T815;} |
1830 |
goto T794; |
{object V290; |
1831 |
T794:; |
V291= car((V287)); |
1832 |
if((V290!= VV[143]))goto T795; |
V292= structure_ref(car((V287)),VV[69],4); |
1833 |
V289= VV[143]; |
V290= make_cons(/* INLINE-ARGS */V291,/* INLINE-ARGS */V292); |
1834 |
goto T792; |
V285= make_cons((V290),(V285)); |
1835 |
goto T795; |
goto T813;} |
1836 |
T795:; |
goto T815; |
1837 |
if((V290!= VV[144]))goto T796; |
T815:; |
1838 |
V289= VV[144]; |
V293= car((V287)); |
1839 |
goto T792; |
{object V295= car((V288)); |
1840 |
goto T796; |
if((V295!= VV[89]))goto T820; |
1841 |
T796:; |
V294= VV[89]; |
1842 |
V289= VV[74];} |
goto T819; |
1843 |
goto T792; |
goto T820; |
1844 |
T792:; |
T820:; |
1845 |
(void)(structure_set(/* INLINE-ARGS */V288,VV[69],1,V289)); |
if((V295!= VV[142]))goto T821; |
1846 |
goto T786; |
V294= VV[142]; |
1847 |
T786:; |
goto T819; |
1848 |
V291= car((V282)); |
goto T821; |
1849 |
|
T821:; |
1850 |
|
if((V295!= VV[143]))goto T822; |
1851 |
|
V294= VV[143]; |
1852 |
|
goto T819; |
1853 |
|
goto T822; |
1854 |
|
T822:; |
1855 |
|
if((V295!= VV[144]))goto T823; |
1856 |
|
V294= VV[144]; |
1857 |
|
goto T819; |
1858 |
|
goto T823; |
1859 |
|
T823:; |
1860 |
|
V294= VV[74];} |
1861 |
|
goto T819; |
1862 |
|
T819:; |
1863 |
|
(void)(structure_set(/* INLINE-ARGS */V293,VV[69],1,V294)); |
1864 |
|
goto T813; |
1865 |
|
T813:; |
1866 |
|
V296= car((V287)); |
1867 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
1868 |
(void)(structure_set(/* INLINE-ARGS */V291,VV[69],4,symbol_value(VV[88]))); |
(void)(structure_set(/* INLINE-ARGS */V296,VV[69],4,symbol_value(VV[88]))); |
1869 |
V282= cdr((V282)); |
V287= cdr((V287)); |
1870 |
V283= cdr((V283)); |
V288= cdr((V288)); |
1871 |
goto T781;} |
goto T808;} |
1872 |
goto T778; |
goto T805; |
1873 |
T778:; |
T805:; |
1874 |
(void)((VFUN_NARGS=2,(*(LnkLI305))(VV[145],(V275)))); |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[145],(V280)))); |
1875 |
princ_str("\nstatic ",VV[31]); |
princ_str("\nstatic ",VV[31]); |
1876 |
base[1]= (*(LnkLI273))(caddr((V279))); |
base[1]= (*(LnkLI280))(caddr((V284))); |
1877 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1878 |
(void) (*Lnk274)(); |
(void) (*Lnk281)(); |
1879 |
vs_top=sup; |
vs_top=sup; |
1880 |
V292= vs_base[0]; |
V297= vs_base[0]; |
1881 |
(void)((*(LnkLI270))(V292)); |
(void)((*(LnkLI277))(V297)); |
1882 |
princ_str("LI",VV[31]); |
princ_str("LI",VV[31]); |
1883 |
(void)((*(LnkLI270))((V276))); |
(void)((*(LnkLI277))((V281))); |
1884 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
1885 |
princ_str("\nstatic ",VV[25]); |
princ_str("\nstatic ",VV[25]); |
1886 |
base[1]= (*(LnkLI273))(caddr((V279))); |
base[1]= (*(LnkLI280))(caddr((V284))); |
1887 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1888 |
(void) (*Lnk274)(); |
(void) (*Lnk281)(); |
1889 |
vs_top=sup; |
vs_top=sup; |
1890 |
V293= vs_base[0]; |
V298= vs_base[0]; |
1891 |
(void)((*(LnkLI267))(V293)); |
(void)((*(LnkLI274))(V298)); |
1892 |
princ_str("LI",VV[25]); |
princ_str("LI",VV[25]); |
1893 |
(void)((*(LnkLI267))((V276))); |
(void)((*(LnkLI274))((V281))); |
1894 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
1895 |
(void)((*(LnkLI306))((V281),cadr((V279)))); |
(void)((*(LnkLI313))((V286),cadr((V284)))); |
1896 |
{object V294; |
{object V299; |
1897 |
V294= symbol_value(VV[136]); |
V299= symbol_value(VV[136]); |
1898 |
if((symbol_value(VV[147]))==Cnil){ |
if((symbol_value(VV[147]))==Cnil){ |
1899 |
goto T824;} |
goto T851;} |
1900 |
base[1]= make_cons((V275),(V281)); |
base[1]= make_cons((V280),(V286)); |
1901 |
goto T822; |
goto T849; |
1902 |
goto T824; |
goto T851; |
1903 |
T824:; |
T851:; |
1904 |
base[1]= Cnil; |
base[1]= Cnil; |
1905 |
goto T822; |
goto T849; |
1906 |
T822:; |
T849:; |
1907 |
bds_bind(VV[146],base[1]); |
bds_bind(VV[146],base[1]); |
1908 |
bds_bind(VV[134],symbol_value(VV[134])); |
bds_bind(VV[134],symbol_value(VV[134])); |
1909 |
princ_str("\n{ ",VV[25]); |
princ_str("\n{ ",VV[25]); |
1910 |
V295= structure_ref(cadr((V277)),VV[62],1); |
V300= structure_ref(cadr((V282)),VV[62],1); |
1911 |
(void)((*(LnkLI307))(/* INLINE-ARGS */V295,(V276),VV[148])); |
(void)((*(LnkLI314))(/* INLINE-ARGS */V300,(V281),VV[148])); |
1912 |
princ_str(" VMB",VV[25]); |
princ_str(" VMB",VV[25]); |
1913 |
(void)((*(LnkLI267))((V294))); |
(void)((*(LnkLI274))((V299))); |
1914 |
princ_str(" VMS",VV[25]); |
princ_str(" VMS",VV[25]); |
1915 |
(void)((*(LnkLI267))((V294))); |
(void)((*(LnkLI274))((V299))); |
1916 |
princ_str(" VMV",VV[25]); |
princ_str(" VMV",VV[25]); |
1917 |
(void)((*(LnkLI267))((V294))); |
(void)((*(LnkLI274))((V299))); |
1918 |
if(((V278))==Cnil){ |
if(((V283))==Cnil){ |
1919 |
goto T836;} |
goto T863;} |
1920 |
princ_str("\n bds_check;",VV[25]); |
princ_str("\n bds_check;",VV[25]); |
1921 |
goto T836; |
goto T863; |
1922 |
T836:; |
T863:; |
1923 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
1924 |
goto T840;} |
goto T867;} |
1925 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
1926 |
goto T840; |
goto T867; |
1927 |
T840:; |
T867:; |
1928 |
if(((VV[146]->s.s_dbind))==Cnil){ |
if(((VV[146]->s.s_dbind))==Cnil){ |
1929 |
goto T844;} |
goto T871;} |
1930 |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
1931 |
princ_str("\ngoto TTL;",VV[25]); |
princ_str("\ngoto TTL;",VV[25]); |
1932 |
princ_str("\nTTL:;",VV[25]); |
princ_str("\nTTL:;",VV[25]); |
1933 |
goto T844; |
goto T871; |
1934 |
T844:; |
T871:; |
1935 |
{register object V297; |
{register object V302; |
1936 |
register object V298; |
register object V303; |
1937 |
V297= (V280); |
V302= (V285); |
1938 |
V298= car((V297)); |
V303= car((V302)); |
1939 |
goto T856; |
goto T883; |
1940 |
T856:; |
T883:; |
1941 |
if(!(endp_prop((V297)))){ |
if(!(endp_prop((V302)))){ |
1942 |
goto T857;} |
goto T884;} |
1943 |
goto T852; |
goto T879; |
1944 |
goto T857; |
goto T884; |
1945 |
T857:; |
T884:; |
1946 |
princ_str("\n bds_bind(VV[",VV[25]); |
princ_str("\n bds_bind(VV[",VV[25]); |
1947 |
(void)((*(LnkLI267))(cdr((V298)))); |
(void)((*(LnkLI274))(cdr((V303)))); |
1948 |
princ_str("],V",VV[25]); |
princ_str("],V",VV[25]); |
1949 |
V299= structure_ref(car((V298)),VV[69],4); |
V304= structure_ref(car((V303)),VV[69],4); |
1950 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V299)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V304)); |
1951 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
1952 |
(VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind)); |
(VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind)); |
1953 |
(void)(structure_set(car((V298)),VV[69],1,VV[71])); |
(void)(structure_set(car((V303)),VV[69],1,VV[71])); |
1954 |
(void)(structure_set(car((V298)),VV[69],4,cdr((V298)))); |
(void)(structure_set(car((V303)),VV[69],4,cdr((V303)))); |
1955 |
V297= cdr((V297)); |
V302= cdr((V302)); |
1956 |
V298= car((V297)); |
V303= car((V302)); |
1957 |
goto T856;} |
goto T883;} |
1958 |
goto T852; |
goto T879; |
1959 |
T852:; |
T879:; |
1960 |
base[3]= caddr(cddr((V277))); |
base[3]= caddr(cddr((V282))); |
1961 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1962 |
(void) (*Lnk308)(); |
(void) (*Lnk315)(); |
1963 |
vs_top=sup; |
vs_top=sup; |
1964 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
1965 |
goto T880;} |
goto T907;} |
1966 |
if((symbol_value(VV[138]))!=Cnil){ |
if((symbol_value(VV[138]))!=Cnil){ |
1967 |
goto T880;} |
goto T907;} |
1968 |
if((symbol_value(VV[140]))!=Cnil){ |
if((symbol_value(VV[140]))!=Cnil){ |
1969 |
goto T880;} |
goto T907;} |
1970 |
goto T878; |
goto T905; |
1971 |
goto T880; |
goto T907; |
1972 |
T880:; |
T907:; |
1973 |
princ_str("\n base[0]=base[0];",VV[25]); |
princ_str("\n base[0]=base[0];",VV[25]); |
1974 |
goto T878; |
goto T905; |
1975 |
T878:; |
T905:; |
1976 |
V301= (*(LnkLI273))(caddr((V279))); |
V306= (*(LnkLI280))(caddr((V284))); |
1977 |
if(!(equal(VV[152],/* INLINE-ARGS */V301))){ |
if(!(equal(VV[152],/* INLINE-ARGS */V306))){ |
1978 |
goto T887;} |
goto T914;} |
1979 |
princ_str("\n return Cnil;",VV[25]); |
princ_str("\n return Cnil;",VV[25]); |
1980 |
goto T887; |
goto T914; |
1981 |
T887:; |
T914:; |
1982 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
1983 |
{object V302 = (*(LnkLI309))((V294),caddr((V279))); |
{object V307 = (*(LnkLI316))((V299),caddr((V284))); |
1984 |
bds_unwind1; |
bds_unwind1; |
1985 |
bds_unwind1; |
bds_unwind1; |
1986 |
VMR23(V302)}}} |
VMR23(V307)}}} |
1987 |
base[0]=base[0]; |
base[0]=base[0]; |
1988 |
return Cnil; |
return Cnil; |
1989 |
} |
} |
1990 |
/* local entry for function SET-UP-VAR-CVS */ |
/* local entry for function SET-UP-VAR-CVS */ |
1991 |
|
|
1992 |
static object LI24(V304) |
static object LI24(V309) |
1993 |
|
|
1994 |
object V304; |
object V309; |
1995 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
1996 |
goto TTL; |
goto TTL; |
1997 |
TTL:; |
TTL:; |
1998 |
if((symbol_value(VV[153]))==Cnil){ |
if((symbol_value(VV[153]))==Cnil){ |
1999 |
goto T894;} |
goto T921;} |
2000 |
V305= (*(LnkLI310))(); |
V310= (*(LnkLI317))(); |
2001 |
{object V306 = structure_set((V304),VV[69],2,/* INLINE-ARGS */V305); |
{object V311 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V310); |
2002 |
VMR24(V306)} |
VMR24(V311)} |
2003 |
goto T894; |
goto T921; |
2004 |
T894:; |
T921:; |
2005 |
V307= (*(LnkLI311))(); |
V312= (*(LnkLI318))(); |
2006 |
{object V308 = structure_set((V304),VV[69],2,/* INLINE-ARGS */V307); |
{object V313 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V312); |
2007 |
VMR24(V308)} |
VMR24(V313)} |
2008 |
return Cnil; |
return Cnil; |
2009 |
} |
} |
2010 |
/* local entry for function T3DEFUN-VARARG */ |
/* local entry for function T3DEFUN-VARARG */ |
2011 |
|
|
2012 |
static object LI25(V313,V314,V315,V316) |
static object LI25(V318,V319,V320,V321) |
2013 |
|
|
2014 |
object V313;object V314;object V315;object V316; |
object V318;object V319;object V320;object V321; |
2015 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
2016 |
bds_check; |
bds_check; |
2017 |
goto TTL; |
goto TTL; |
2018 |
TTL:; |
TTL:; |
2019 |
{object V317; |
{object V322; |
2020 |
register object V318; |
register object V323; |
|
object V319; |
|
|
object V320; |
|
|
object V321; |
|
|
object V322; |
|
|
object V323; |
|
2021 |
object V324; |
object V324; |
2022 |
V317= Cnil; |
object V325; |
2023 |
|
object V326; |
2024 |
|
object V327; |
2025 |
|
object V328; |
2026 |
|
object V329; |
2027 |
|
V322= Cnil; |
2028 |
bds_bind(VV[153],Cnil); |
bds_bind(VV[153],Cnil); |
2029 |
base[1]= Cnil; |
base[1]= Cnil; |
2030 |
V318= Cnil; |
V323= Cnil; |
2031 |
V319= Ct; |
V324= Ct; |
2032 |
V320= Cnil; |
V325= Cnil; |
2033 |
bds_bind(VV[154],small_fixnum(0)); |
bds_bind(VV[154],small_fixnum(0)); |
2034 |
V321= Cnil; |
V326= Cnil; |
2035 |
V322= caddr((V315)); |
V327= caddr((V320)); |
2036 |
V323= Cnil;{object V325; |
V328= Cnil;{object V330; |
2037 |
V325= caddr((V322)); |
V330= caddr((V327)); |
2038 |
if(V325==Cnil)goto T904; |
if(V330==Cnil)goto T931; |
2039 |
V324= V325; |
V329= V330; |
2040 |
goto T903; |
goto T930; |
2041 |
goto T904; |
goto T931; |
2042 |
T904:;}{object V326; |
T931:;}{object V331; |
2043 |
V326= cadr((V322)); |
V331= cadr((V327)); |
2044 |
if(V326==Cnil)goto T906; |
if(V331==Cnil)goto T933; |
2045 |
V324= V326; |
V329= V331; |
2046 |
goto T903; |
goto T930; |
2047 |
goto T906; |
goto T933; |
2048 |
T906:;} |
T933:;} |
2049 |
V324= cadddr((V322)); |
V329= cadddr((V327)); |
2050 |
goto T903; |
goto T930; |
2051 |
T903:; |
T930:; |
2052 |
{object V327; |
{object V332; |
2053 |
register object V328; |
register object V333; |
2054 |
V327= car((V322)); |
V332= car((V327)); |
2055 |
V328= car((V327)); |
V333= car((V332)); |
2056 |
goto T912; |
goto T939; |
2057 |
T912:; |
T939:; |
2058 |
if(!(endp_prop((V327)))){ |
if(!(endp_prop((V332)))){ |
2059 |
goto T913;} |
goto T940;} |
2060 |
goto T908; |
goto T935; |
2061 |
goto T913; |
goto T940; |
2062 |
T913:; |
T940:; |
2063 |
{object V329; |
{object V334; |
2064 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
2065 |
V329= list(2,VV[155],symbol_value(VV[88])); |
V334= list(2,VV[155],symbol_value(VV[88])); |
2066 |
V317= make_cons((V329),(V317));} |
V322= make_cons((V334),(V322));} |
2067 |
V327= cdr((V327)); |
V332= cdr((V332)); |
2068 |
V328= car((V327)); |
V333= car((V332)); |
2069 |
goto T912;} |
goto T939;} |
2070 |
goto T908; |
goto T935; |
2071 |
T908:; |
T935:; |
2072 |
(void)((VFUN_NARGS=2,(*(LnkLI305))(VV[156],(V313)))); |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[156],(V318)))); |
2073 |
princ_str("\nstatic object LI",VV[31]); |
{object V335; |
2074 |
(void)((*(LnkLI270))((V314))); |
V335= VV[157]; |
|
princ_str("();",VV[31]); |
|
2075 |
princ_str("\nstatic object LI",VV[25]); |
princ_str("\nstatic object LI",VV[25]); |
2076 |
(void)((*(LnkLI267))((V314))); |
(void)((*(LnkLI274))((V319))); |
2077 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
2078 |
(void)((*(LnkLI312))((V317))); |
if(((V322))==Cnil){ |
2079 |
if(((V324))==Cnil){ |
goto T959;} |
2080 |
goto T936;} |
{object V336; |
2081 |
if(((V317))==Cnil){ |
V336= (V322); |
2082 |
goto T939;} |
goto T963; |
2083 |
|
T963:; |
2084 |
|
if(((V336))!=Cnil){ |
2085 |
|
goto T964;} |
2086 |
|
goto T959; |
2087 |
|
goto T964; |
2088 |
|
T964:; |
2089 |
|
princ_str("object ",VV[25]); |
2090 |
|
(void)((*(LnkLI274))(car((V336)))); |
2091 |
|
V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[159])); |
2092 |
|
if(!((cdr((V336)))==Cnil)){ |
2093 |
|
goto T974;} |
2094 |
|
goto T973; |
2095 |
|
goto T974; |
2096 |
|
T974:; |
2097 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2098 |
goto T939; |
V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[160])); |
2099 |
T939:; |
goto T973; |
2100 |
princ_str("va_alist",VV[25]); |
T973:; |
2101 |
goto T936; |
V336= cdr((V336)); |
2102 |
T936:; |
goto T963;} |
2103 |
|
goto T959; |
2104 |
|
T959:; |
2105 |
|
if(((V329))==Cnil){ |
2106 |
|
goto T982;} |
2107 |
|
if(((V322))==Cnil){ |
2108 |
|
goto T985;} |
2109 |
|
princ_char(44,VV[25]); |
2110 |
|
V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[161])); |
2111 |
|
goto T985; |
2112 |
|
T985:; |
2113 |
|
princ_str("object first,...",VV[25]); |
2114 |
|
V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[162])); |
2115 |
|
goto T982; |
2116 |
|
T982:; |
2117 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
2118 |
if(((V317))==Cnil){ |
princ_str("\nstatic object LI",VV[31]); |
2119 |
goto T946;} |
(void)((*(LnkLI277))((V319))); |
2120 |
princ_str("\n object ",VV[25]); |
princ_char(40,VV[31]); |
2121 |
(void)((*(LnkLI312))((V317))); |
(void)((*(LnkLI277))((V335))); |
2122 |
princ_char(59,VV[25]); |
princ_str(");",VV[31]);} |
2123 |
goto T946; |
{object V337; |
2124 |
T946:; |
V337= symbol_value(VV[136]); |
|
if(((V324))==Cnil){ |
|
|
goto T953;} |
|
|
princ_str("\n va_dcl ",VV[25]); |
|
|
goto T953; |
|
|
T953:; |
|
|
{object V330; |
|
|
V330= symbol_value(VV[136]); |
|
2125 |
if(symbol_value(VV[147])==Cnil){ |
if(symbol_value(VV[147])==Cnil){ |
2126 |
base[5]= Cnil; |
base[5]= Cnil; |
2127 |
goto T958;} |
goto T1002;} |
2128 |
if((caddr((V322)))==Cnil){ |
if((caddr((V327)))==Cnil){ |
2129 |
goto T959;} |
goto T1003;} |
2130 |
base[5]= Cnil; |
base[5]= Cnil; |
2131 |
goto T958; |
goto T1002; |
2132 |
goto T959; |
goto T1003; |
2133 |
T959:; |
T1003:; |
2134 |
{object V331; |
{object V338; |
2135 |
object V332; |
object V339; |
2136 |
V331= car((V322)); |
V338= car((V327)); |
2137 |
V332= car((V331)); |
V339= car((V338)); |
2138 |
goto T966; |
goto T1010; |
2139 |
T966:; |
T1010:; |
2140 |
if(!(endp_prop((V331)))){ |
if(!(endp_prop((V338)))){ |
2141 |
goto T967;} |
goto T1011;} |
2142 |
goto T961; |
goto T1005; |
2143 |
goto T967; |
goto T1011; |
2144 |
T967:; |
T1011:; |
2145 |
if((structure_ref((V332),VV[69],3))==Cnil){ |
if((structure_ref((V339),VV[69],3))==Cnil){ |
2146 |
goto T971;} |
goto T1015;} |
2147 |
goto T962; |
goto T1006; |
2148 |
goto T971; |
goto T1015; |
2149 |
T971:; |
T1015:; |
2150 |
V331= cdr((V331)); |
V338= cdr((V338)); |
2151 |
V332= car((V331)); |
V339= car((V338)); |
2152 |
goto T966;} |
goto T1010;} |
2153 |
goto T962; |
goto T1006; |
2154 |
T962:; |
T1006:; |
2155 |
base[5]= Cnil; |
base[5]= Cnil; |
2156 |
goto T958; |
goto T1002; |
2157 |
goto T961; |
goto T1005; |
2158 |
T961:; |
T1005:; |
2159 |
if((cadr((V322)))==Cnil){ |
if((cadr((V327)))==Cnil){ |
2160 |
goto T979;} |
goto T1023;} |
2161 |
base[5]= Cnil; |
base[5]= Cnil; |
2162 |
goto T958; |
goto T1002; |
2163 |
goto T979; |
goto T1023; |
2164 |
T979:; |
T1023:; |
2165 |
if((car(cddddr((V322))))==Cnil){ |
if((car(cddddr((V327))))==Cnil){ |
2166 |
goto T981;} |
goto T1025;} |
2167 |
base[5]= Cnil; |
base[5]= Cnil; |
2168 |
goto T958; |
goto T1002; |
2169 |
goto T981; |
goto T1025; |
2170 |
T981:; |
T1025:; |
2171 |
base[5]= make_cons((V313),car((V322))); |
base[5]= make_cons((V318),car((V327))); |
2172 |
goto T958; |
goto T1002; |
2173 |
T958:; |
T1002:; |
2174 |
bds_bind(VV[146],base[5]); |
bds_bind(VV[146],base[5]); |
2175 |
bds_bind(VV[134],symbol_value(VV[134])); |
bds_bind(VV[134],symbol_value(VV[134])); |
2176 |
princ_str("\n{ ",VV[25]); |
princ_str("\n{ ",VV[25]); |
2177 |
if(((V324))==Cnil){ |
if(((V329))==Cnil){ |
2178 |
goto T985;} |
goto T1029;} |
2179 |
princ_str("\n va_list ap;",VV[25]); |
princ_str("\n va_list ap;",VV[25]); |
2180 |
goto T985; |
goto T1029; |
2181 |
T985:; |
T1029:; |
2182 |
princ_str("\n int narg = VFUN_NARGS;",VV[25]); |
princ_str("\n int narg = VFUN_NARGS;",VV[25]); |
2183 |
V333= structure_ref(cadr((V315)),VV[62],1); |
V340= structure_ref(cadr((V320)),VV[62],1); |
2184 |
(void)((*(LnkLI307))(/* INLINE-ARGS */V333,(V314),VV[148])); |
(void)((*(LnkLI314))(/* INLINE-ARGS */V340,(V319),VV[148])); |
2185 |
princ_str(" VMB",VV[25]); |
princ_str(" VMB",VV[25]); |
2186 |
(void)((*(LnkLI267))((V330))); |
(void)((*(LnkLI274))((V337))); |
2187 |
princ_str(" VMS",VV[25]); |
princ_str(" VMS",VV[25]); |
2188 |
(void)((*(LnkLI267))((V330))); |
(void)((*(LnkLI274))((V337))); |
2189 |
princ_str(" VMV",VV[25]); |
princ_str(" VMV",VV[25]); |
2190 |
(void)((*(LnkLI267))((V330))); |
(void)((*(LnkLI274))((V337))); |
2191 |
if(((V316))==Cnil){ |
if(((V321))==Cnil){ |
2192 |
goto T999;} |
goto T1043;} |
2193 |
princ_str("\n bds_check;",VV[25]); |
princ_str("\n bds_check;",VV[25]); |
2194 |
goto T999; |
goto T1043; |
2195 |
T999:; |
T1043:; |
2196 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
2197 |
goto T1003;} |
goto T1047;} |
2198 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
2199 |
goto T1003; |
goto T1047; |
2200 |
T1003:; |
T1047:; |
2201 |
if((V324)!=Cnil){ |
if((V329)!=Cnil){ |
2202 |
goto T1007;} |
goto T1051;} |
2203 |
princ_str("\n if ( narg!= ",VV[25]); |
princ_str("\n if ( narg!= ",VV[25]); |
2204 |
V334 = make_fixnum((long)length((V317))); |
V341 = make_fixnum((long)length((V322))); |
2205 |
(void)((*(LnkLI267))(V334)); |
(void)((*(LnkLI274))(V341)); |
2206 |
princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[25]); |
princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[25]); |
2207 |
V335 = make_fixnum((long)length((V317))); |
V342 = make_fixnum((long)length((V322))); |
2208 |
(void)((*(LnkLI267))(V335)); |
(void)((*(LnkLI274))(V342)); |
2209 |
princ_str("));",VV[25]); |
princ_str("));",VV[25]); |
2210 |
goto T1007; |
goto T1051; |
2211 |
T1007:; |
T1051:; |
2212 |
{object V336; |
{object V343; |
2213 |
object V337; |
object V344; |
2214 |
V336= car((V322)); |
V343= car((V327)); |
2215 |
V337= car((V336)); |
V344= car((V343)); |
2216 |
goto T1018; |
goto T1062; |
2217 |
T1018:; |
T1062:; |
2218 |
if(!(endp_prop((V336)))){ |
if(!(endp_prop((V343)))){ |
2219 |
goto T1019;} |
goto T1063;} |
2220 |
goto T1014; |
goto T1058; |
2221 |
goto T1019; |
goto T1063; |
2222 |
T1019:; |
T1063:; |
2223 |
base[9]= (V337); |
base[9]= (V344); |
2224 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2225 |
L26(base); |
L26(base); |
2226 |
vs_top=sup; |
vs_top=sup; |
2227 |
V336= cdr((V336)); |
V343= cdr((V343)); |
2228 |
V337= car((V336)); |
V344= car((V343)); |
2229 |
goto T1018;} |
goto T1062;} |
2230 |
goto T1014; |
goto T1058; |
2231 |
T1014:; |
T1058:; |
2232 |
{object V338; |
{object V345; |
2233 |
object V339; |
object V346; |
2234 |
V338= cadr((V322)); |
V345= cadr((V327)); |
2235 |
V339= car((V338)); |
V346= car((V345)); |
2236 |
goto T1034; |
goto T1078; |
2237 |
T1034:; |
T1078:; |
2238 |
if(!(endp_prop((V338)))){ |
if(!(endp_prop((V345)))){ |
2239 |
goto T1035;} |
goto T1079;} |
2240 |
goto T1030; |
goto T1074; |
2241 |
goto T1035; |
goto T1079; |
2242 |
T1035:; |
T1079:; |
2243 |
base[9]= car((V339)); |
base[9]= car((V346)); |
2244 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2245 |
L26(base); |
L26(base); |
2246 |
vs_top=sup; |
vs_top=sup; |
2247 |
if((caddr((V339)))==Cnil){ |
if((caddr((V346)))==Cnil){ |
2248 |
goto T1041;} |
goto T1085;} |
2249 |
base[9]= caddr((V339)); |
base[9]= caddr((V346)); |
2250 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2251 |
L26(base); |
L26(base); |
2252 |
vs_top=sup; |
vs_top=sup; |
2253 |
goto T1041; |
goto T1085; |
2254 |
T1041:; |
T1085:; |
2255 |
V338= cdr((V338)); |
V345= cdr((V345)); |
2256 |
V339= car((V338)); |
V346= car((V345)); |
2257 |
goto T1034;} |
goto T1078;} |
2258 |
goto T1030; |
goto T1074; |
2259 |
T1030:; |
T1074:; |
2260 |
if((caddr((V322)))==Cnil){ |
if((caddr((V327)))==Cnil){ |
2261 |
goto T1050;} |
goto T1094;} |
2262 |
base[7]= caddr((V322)); |
base[7]= caddr((V327)); |
2263 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2264 |
L26(base); |
L26(base); |
2265 |
vs_top=sup; |
vs_top=sup; |
2266 |
goto T1050; |
goto T1094; |
2267 |
T1050:; |
T1094:; |
2268 |
{object V340; |
{object V347; |
2269 |
object V341; |
object V348; |
2270 |
V340= car(cddddr((V322))); |
V347= car(cddddr((V327))); |
2271 |
V341= car((V340)); |
V348= car((V347)); |
2272 |
goto T1057; |
goto T1101; |
2273 |
T1057:; |
T1101:; |
2274 |
if(!(endp_prop((V340)))){ |
if(!(endp_prop((V347)))){ |
2275 |
goto T1058;} |
goto T1102;} |
2276 |
goto T1013; |
goto T1057; |
2277 |
goto T1058; |
goto T1102; |
2278 |
T1058:; |
T1102:; |
2279 |
base[9]= cadr((V341)); |
base[9]= cadr((V348)); |
2280 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2281 |
L26(base); |
L26(base); |
2282 |
vs_top=sup; |
vs_top=sup; |
2283 |
if((cadddr((V341)))==Cnil){ |
if((cadddr((V348)))==Cnil){ |
2284 |
goto T1064;} |
goto T1108;} |
2285 |
base[9]= cadddr((V341)); |
base[9]= cadddr((V348)); |
2286 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2287 |
L26(base); |
L26(base); |
2288 |
vs_top=sup; |
vs_top=sup; |
2289 |
goto T1064; |
goto T1108; |
2290 |
T1064:; |
T1108:; |
2291 |
V340= cdr((V340)); |
V347= cdr((V347)); |
2292 |
V341= car((V340)); |
V348= car((V347)); |
2293 |
goto T1057;} |
goto T1101;} |
2294 |
goto T1013; |
goto T1057; |
2295 |
T1013:; |
T1057:; |
2296 |
if(((VV[153]->s.s_dbind))==Cnil){ |
if(((VV[153]->s.s_dbind))==Cnil){ |
2297 |
goto T1075;} |
goto T1119;} |
2298 |
goto T1073; |
goto T1117; |
|
goto T1075; |
|
|
T1075:; |
|
|
princ_str("\n Vcs[0]=Vcs[0];",VV[25]); |
|
|
goto T1073; |
|
|
T1073:; |
|
|
if((cadr((V322)))!=Cnil){ |
|
|
goto T1079;} |
|
|
if((caddr((V322)))!=Cnil){ |
|
|
goto T1079;} |
|
|
if((cadddr((V322)))==Cnil){ |
|
|
goto T1078;} |
|
|
goto T1079; |
|
|
T1079:; |
|
|
if(((V323))!=Cnil){ |
|
|
goto T1078;} |
|
|
V323= Ct; |
|
|
princ_str("\n va_start(ap);",VV[25]); |
|
|
goto T1078; |
|
|
T1078:; |
|
|
if((symbol_value(VV[157]))!=Cnil){ |
|
|
goto T1092;} |
|
|
if((symbol_value(VV[158]))==Cnil){ |
|
|
goto T1090;} |
|
|
goto T1092; |
|
|
T1092:; |
|
|
if((car((V322)))==Cnil){ |
|
|
goto T1090;} |
|
|
princ_str("\n if(narg <",VV[25]); |
|
|
V342 = make_fixnum((long)length(car((V322)))); |
|
|
(void)((*(LnkLI267))(V342)); |
|
|
princ_str(") too_few_arguments();",VV[25]); |
|
|
goto T1090; |
|
|
T1090:; |
|
|
{object V343; |
|
|
object V344; |
|
|
V343= car((V322)); |
|
|
V344= car((V343)); |
|
|
goto T1104; |
|
|
T1104:; |
|
|
if(!(endp_prop((V343)))){ |
|
|
goto T1105;} |
|
|
goto T1100; |
|
|
goto T1105; |
|
|
T1105:; |
|
|
(void)((*(LnkLI313))((V344))); |
|
|
V343= cdr((V343)); |
|
|
V344= car((V343)); |
|
|
goto T1104;} |
|
|
goto T1100; |
|
|
T1100:; |
|
|
{object V345; |
|
|
object V346; |
|
|
V345= cadr((V322)); |
|
|
V346= car((V345)); |
|
2299 |
goto T1119; |
goto T1119; |
2300 |
T1119:; |
T1119:; |
2301 |
if(!(endp_prop((V345)))){ |
princ_str("\n Vcs[0]=Vcs[0];",VV[25]); |
2302 |
goto T1120;} |
goto T1117; |
2303 |
goto T1115; |
T1117:; |
2304 |
goto T1120; |
if((cadr((V327)))!=Cnil){ |
2305 |
T1120:; |
goto T1123;} |
2306 |
(void)((*(LnkLI313))(car((V346)))); |
if((caddr((V327)))!=Cnil){ |
2307 |
V345= cdr((V345)); |
goto T1123;} |
2308 |
V346= car((V345)); |
if((cadddr((V327)))==Cnil){ |
2309 |
goto T1119;} |
goto T1122;} |
2310 |
goto T1115; |
goto T1123; |
2311 |
T1115:; |
T1123:; |
2312 |
if((caddr((V322)))==Cnil){ |
if(((V328))!=Cnil){ |
2313 |
goto T1130;} |
goto T1122;} |
2314 |
(void)((*(LnkLI313))(caddr((V322)))); |
V328= Ct; |
2315 |
goto T1130; |
princ_str("\n va_start(ap,first);",VV[25]); |
2316 |
T1130:; |
goto T1122; |
2317 |
if(((VV[153]->s.s_dbind))==Cnil){ |
T1122:; |
2318 |
|
if((symbol_value(VV[163]))!=Cnil){ |
2319 |
goto T1136;} |
goto T1136;} |
2320 |
V320= symbol_value(VV[129]); |
if((symbol_value(VV[164]))==Cnil){ |
2321 |
goto T1134; |
goto T1134;} |
2322 |
goto T1136; |
goto T1136; |
2323 |
T1136:; |
T1136:; |
2324 |
V320= symbol_value(VV[141]); |
if((car((V327)))==Cnil){ |
2325 |
|
goto T1134;} |
2326 |
|
princ_str("\n if(narg <",VV[25]); |
2327 |
|
V349 = make_fixnum((long)length(car((V327)))); |
2328 |
|
(void)((*(LnkLI274))(V349)); |
2329 |
|
princ_str(") too_few_arguments();",VV[25]); |
2330 |
goto T1134; |
goto T1134; |
2331 |
T1134:; |
T1134:; |
2332 |
{object V347; |
{object V350; |
2333 |
object V348; |
object V351; |
2334 |
V347= car(cddddr((V322))); |
V350= car((V327)); |
2335 |
V348= car((V347)); |
V351= car((V350)); |
2336 |
goto T1142; |
goto T1148; |
2337 |
T1142:; |
T1148:; |
2338 |
if(!(endp_prop((V347)))){ |
if(!(endp_prop((V350)))){ |
2339 |
goto T1143;} |
goto T1149;} |
2340 |
goto T1138; |
goto T1144; |
2341 |
goto T1143; |
goto T1149; |
2342 |
T1143:; |
T1149:; |
2343 |
(void)((*(LnkLI313))(cadr((V348)))); |
(void)((*(LnkLI320))((V351))); |
2344 |
V347= cdr((V347)); |
V350= cdr((V350)); |
2345 |
V348= car((V347)); |
V351= car((V350)); |
2346 |
goto T1142;} |
goto T1148;} |
2347 |
goto T1138; |
goto T1144; |
2348 |
T1138:; |
T1144:; |
2349 |
{object V349; |
{object V352; |
2350 |
object V350; |
object V353; |
2351 |
V349= car(cddddr((V322))); |
V352= cadr((V327)); |
2352 |
V350= car((V349)); |
V353= car((V352)); |
2353 |
goto T1157; |
goto T1163; |
2354 |
T1157:; |
T1163:; |
2355 |
if(!(endp_prop((V349)))){ |
if(!(endp_prop((V352)))){ |
2356 |
goto T1158;} |
goto T1164;} |
2357 |
goto T1153; |
goto T1159; |
2358 |
goto T1158; |
goto T1164; |
2359 |
T1158:; |
T1164:; |
2360 |
(void)((*(LnkLI313))(cadddr((V350)))); |
(void)((*(LnkLI320))(car((V353)))); |
|
V349= cdr((V349)); |
|
|
V350= car((V349)); |
|
|
goto T1157;} |
|
|
goto T1153; |
|
|
T1153:; |
|
|
{object V351; |
|
|
object V352; |
|
|
V352= car((V322)); |
|
|
V351= (V317); |
|
|
goto T1171; |
|
|
T1171:; |
|
|
if(((V351))!=Cnil){ |
|
|
goto T1172;} |
|
|
goto T1168; |
|
|
goto T1172; |
|
|
T1172:; |
|
|
(void)((*(LnkLI314))(car((V352)),car((V351)))); |
|
|
V351= cdr((V351)); |
|
2361 |
V352= cdr((V352)); |
V352= cdr((V352)); |
2362 |
goto T1171;} |
V353= car((V352)); |
2363 |
goto T1168; |
goto T1163;} |
2364 |
T1168:; |
goto T1159; |
2365 |
if((cadr((V322)))==Cnil){ |
T1159:; |
2366 |
goto T1181;} |
if((caddr((V327)))==Cnil){ |
2367 |
|
goto T1174;} |
2368 |
|
(void)((*(LnkLI320))(caddr((V327)))); |
2369 |
|
goto T1174; |
2370 |
|
T1174:; |
2371 |
|
if(((VV[153]->s.s_dbind))==Cnil){ |
2372 |
|
goto T1180;} |
2373 |
|
V325= symbol_value(VV[129]); |
2374 |
|
goto T1178; |
2375 |
|
goto T1180; |
2376 |
|
T1180:; |
2377 |
|
V325= symbol_value(VV[141]); |
2378 |
|
goto T1178; |
2379 |
|
T1178:; |
2380 |
|
{object V354; |
2381 |
|
object V355; |
2382 |
|
V354= car(cddddr((V327))); |
2383 |
|
V355= car((V354)); |
2384 |
|
goto T1186; |
2385 |
|
T1186:; |
2386 |
|
if(!(endp_prop((V354)))){ |
2387 |
|
goto T1187;} |
2388 |
|
goto T1182; |
2389 |
|
goto T1187; |
2390 |
|
T1187:; |
2391 |
|
(void)((*(LnkLI320))(cadr((V355)))); |
2392 |
|
V354= cdr((V354)); |
2393 |
|
V355= car((V354)); |
2394 |
|
goto T1186;} |
2395 |
|
goto T1182; |
2396 |
|
T1182:; |
2397 |
|
{object V356; |
2398 |
|
object V357; |
2399 |
|
V356= car(cddddr((V327))); |
2400 |
|
V357= car((V356)); |
2401 |
|
goto T1201; |
2402 |
|
T1201:; |
2403 |
|
if(!(endp_prop((V356)))){ |
2404 |
|
goto T1202;} |
2405 |
|
goto T1197; |
2406 |
|
goto T1202; |
2407 |
|
T1202:; |
2408 |
|
(void)((*(LnkLI320))(cadddr((V357)))); |
2409 |
|
V356= cdr((V356)); |
2410 |
|
V357= car((V356)); |
2411 |
|
goto T1201;} |
2412 |
|
goto T1197; |
2413 |
|
T1197:; |
2414 |
|
{object V358; |
2415 |
|
object V359; |
2416 |
|
V359= car((V327)); |
2417 |
|
V358= (V322); |
2418 |
|
goto T1215; |
2419 |
|
T1215:; |
2420 |
|
if(((V358))!=Cnil){ |
2421 |
|
goto T1216;} |
2422 |
|
goto T1212; |
2423 |
|
goto T1216; |
2424 |
|
T1216:; |
2425 |
|
(void)((*(LnkLI321))(car((V359)),car((V358)))); |
2426 |
|
V358= cdr((V358)); |
2427 |
|
V359= cdr((V359)); |
2428 |
|
goto T1215;} |
2429 |
|
goto T1212; |
2430 |
|
T1212:; |
2431 |
|
if((cadr((V327)))==Cnil){ |
2432 |
|
goto T1225;} |
2433 |
bds_bind(VV[133],symbol_value(VV[133])); |
bds_bind(VV[133],symbol_value(VV[133])); |
2434 |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
2435 |
bds_bind(VV[132],symbol_value(VV[132])); |
bds_bind(VV[132],symbol_value(VV[132])); |
2436 |
princ_str("\n narg = narg - ",VV[25]); |
princ_str("\n narg = narg - ",VV[25]); |
2437 |
V353 = make_fixnum((long)length((V317))); |
V360 = make_fixnum((long)length((V322))); |
2438 |
(void)((*(LnkLI267))(V353)); |
(void)((*(LnkLI274))(V360)); |
2439 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2440 |
{object V354; |
{object V361; |
2441 |
object V355; |
V361= Ct; |
2442 |
V354= cadr((V322)); |
{object V362; |
2443 |
V355= car((V354)); |
object V363; |
2444 |
goto T1192; |
V362= cadr((V327)); |
2445 |
T1192:; |
V363= car((V362)); |
2446 |
if(!(endp_prop((V354)))){ |
goto T1236; |
2447 |
goto T1193;} |
T1236:; |
2448 |
|
if(!(endp_prop((V362)))){ |
2449 |
|
goto T1237;} |
2450 |
bds_unwind1; |
bds_unwind1; |
2451 |
bds_unwind1; |
bds_unwind1; |
2452 |
bds_unwind1; |
bds_unwind1; |
2453 |
goto T1184; |
goto T1228; |
2454 |
goto T1193; |
goto T1237; |
2455 |
T1193:; |
T1237:; |
2456 |
{object V356; |
{object V364; |
2457 |
setq(VV[159],number_plus(symbol_value(VV[159]),small_fixnum(1))); |
setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1))); |
2458 |
V356= make_cons(symbol_value(VV[159]),Cnil); |
V364= make_cons(symbol_value(VV[165]),Cnil); |
2459 |
V318= make_cons((V356),(V318));} |
V323= make_cons((V364),(V323));} |
2460 |
princ_str("\n if (",VV[25]); |
princ_str("\n if (",VV[25]); |
2461 |
if((cdr((V318)))==Cnil){ |
if((cdr((V323)))==Cnil){ |
2462 |
goto T1206;} |
goto T1250;} |
2463 |
V357= VV[160]; |
V365= VV[166]; |
2464 |
goto T1204; |
goto T1248; |
2465 |
goto T1206; |
goto T1250; |
2466 |
T1206:; |
T1250:; |
2467 |
V357= VV[161]; |
V365= VV[167]; |
2468 |
goto T1204; |
goto T1248; |
2469 |
T1204:; |
T1248:; |
2470 |
(void)((*(LnkLI267))(V357)); |
(void)((*(LnkLI274))(V365)); |
2471 |
princ_str("narg <= 0) ",VV[25]); |
princ_str("narg <= 0) ",VV[25]); |
2472 |
if(type_of(car((V318)))!=t_cons)FEwrong_type_argument(Scons,car((V318))); |
if(type_of(car((V323)))!=t_cons)FEwrong_type_argument(Scons,car((V323))); |
2473 |
(car((V318)))->c.c_cdr = Ct; |
(car((V323)))->c.c_cdr = Ct; |
2474 |
(void)(car((V318))); |
(void)(car((V323))); |
2475 |
princ_str("goto T",VV[25]); |
princ_str("goto T",VV[25]); |
2476 |
(void)((*(LnkLI267))(car(car((V318))))); |
(void)((*(LnkLI274))(car(car((V323))))); |
2477 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2478 |
princ_str("\n else {",VV[25]); |
princ_str("\n else {",VV[25]); |
2479 |
if(((V323))!=Cnil){ |
if(((V328))!=Cnil){ |
2480 |
goto T1216;} |
goto T1260;} |
2481 |
V323= Ct; |
V328= Ct; |
2482 |
princ_str("\n va_start(ap);",VV[25]); |
princ_str("\n va_start(ap,first);",VV[25]); |
2483 |
goto T1216; |
goto T1260; |
2484 |
T1216:; |
T1260:; |
2485 |
V358= car((V355)); |
V366= car((V363)); |
2486 |
V359= make_cons(VV[162],Cnil); |
if(((V361))==Cnil){ |
2487 |
(void)((*(LnkLI314))(/* INLINE-ARGS */V358,/* INLINE-ARGS */V359)); |
goto T1269;} |
2488 |
|
V367= make_cons(VV[168],Cnil); |
2489 |
|
goto T1267; |
2490 |
|
goto T1269; |
2491 |
|
T1269:; |
2492 |
|
V367= make_cons(VV[169],Cnil); |
2493 |
|
goto T1267; |
2494 |
|
T1267:; |
2495 |
|
(void)((*(LnkLI321))(/* INLINE-ARGS */V366,V367)); |
2496 |
|
V361= Cnil; |
2497 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
2498 |
if((caddr((V355)))==Cnil){ |
if((caddr((V363)))==Cnil){ |
2499 |
goto T1225;} |
goto T1275;} |
2500 |
(void)((*(LnkLI314))(caddr((V355)),Ct)); |
(void)((*(LnkLI321))(caddr((V363)),Ct)); |
2501 |
goto T1225; |
goto T1275; |
2502 |
T1225:; |
T1275:; |
2503 |
V354= cdr((V354)); |
V362= cdr((V362)); |
2504 |
V355= car((V354)); |
V363= car((V362)); |
2505 |
goto T1192;} |
goto T1236;}} |
2506 |
goto T1184; |
goto T1228; |
2507 |
T1184:; |
T1228:; |
2508 |
V318= nreverse((V318)); |
V323= nreverse((V323)); |
2509 |
{object V360; |
{object V368; |
2510 |
setq(VV[159],number_plus(symbol_value(VV[159]),small_fixnum(1))); |
setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1))); |
2511 |
V360= make_cons(symbol_value(VV[159]),Cnil); |
V368= make_cons(symbol_value(VV[165]),Cnil); |
2512 |
princ_str("\n --narg; ",VV[25]); |
princ_str("\n --narg; ",VV[25]); |
2513 |
if(type_of((V360))!=t_cons)FEwrong_type_argument(Scons,(V360)); |
if(type_of((V368))!=t_cons)FEwrong_type_argument(Scons,(V368)); |
2514 |
((V360))->c.c_cdr = Ct; |
((V368))->c.c_cdr = Ct; |
2515 |
princ_str("goto T",VV[25]); |
princ_str("goto T",VV[25]); |
2516 |
(void)((*(LnkLI267))(car((V360)))); |
(void)((*(LnkLI274))(car((V368)))); |
2517 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2518 |
{object V361; |
{object V369; |
2519 |
object V362; |
object V370; |
2520 |
V361= cadr((V322)); |
V369= cadr((V327)); |
2521 |
V362= car((V361)); |
V370= car((V369)); |
2522 |
goto T1248; |
goto T1298; |
2523 |
T1248:; |
T1298:; |
2524 |
if(!(endp_prop((V361)))){ |
if(!(endp_prop((V369)))){ |
2525 |
goto T1249;} |
goto T1299;} |
2526 |
goto T1244; |
goto T1294; |
2527 |
goto T1249; |
goto T1299; |
2528 |
T1249:; |
T1299:; |
2529 |
if((cdr(car((V318))))==Cnil){ |
if((cdr(car((V323))))==Cnil){ |
2530 |
goto T1253;} |
goto T1303;} |
2531 |
princ_str("\ngoto T",VV[25]); |
princ_str("\ngoto T",VV[25]); |
2532 |
(void)((*(LnkLI267))(car(car((V318))))); |
(void)((*(LnkLI274))(car(car((V323))))); |
2533 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2534 |
princ_str("\nT",VV[25]); |
princ_str("\nT",VV[25]); |
2535 |
(void)((*(LnkLI267))(car(car((V318))))); |
(void)((*(LnkLI274))(car(car((V323))))); |
2536 |
princ_str(":;",VV[25]); |
princ_str(":;",VV[25]); |
2537 |
goto T1253; |
goto T1303; |
2538 |
T1253:; |
T1303:; |
2539 |
{object V363; |
{object V371; |
2540 |
V363= car((V318)); |
V371= car((V323)); |
2541 |
V318= cdr((V318));} |
V323= cdr((V323));} |
2542 |
(void)((*(LnkLI315))(car((V362)),cadr((V362)))); |
(void)((*(LnkLI322))(car((V370)),cadr((V370)))); |
2543 |
if((caddr((V362)))==Cnil){ |
if((caddr((V370)))==Cnil){ |
2544 |
goto T1268;} |
goto T1318;} |
2545 |
(void)((*(LnkLI314))(caddr((V362)),Cnil)); |
(void)((*(LnkLI321))(caddr((V370)),Cnil)); |
2546 |
goto T1268; |
goto T1318; |
2547 |
T1268:; |
T1318:; |
2548 |
V361= cdr((V361)); |
V369= cdr((V369)); |
2549 |
V362= car((V361)); |
V370= car((V369)); |
2550 |
goto T1248;} |
goto T1298;} |
2551 |
goto T1244; |
goto T1294; |
2552 |
T1244:; |
T1294:; |
2553 |
if((cdr((V360)))==Cnil){ |
if((cdr((V368)))==Cnil){ |
2554 |
goto T1181;} |
goto T1225;} |
2555 |
princ_str("\ngoto T",VV[25]); |
princ_str("\ngoto T",VV[25]); |
2556 |
(void)((*(LnkLI267))(car((V360)))); |
(void)((*(LnkLI274))(car((V368)))); |
2557 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2558 |
princ_str("\nT",VV[25]); |
princ_str("\nT",VV[25]); |
2559 |
(void)((*(LnkLI267))(car((V360)))); |
(void)((*(LnkLI274))(car((V368)))); |
2560 |
princ_str(":;",VV[25]);} |
princ_str(":;",VV[25]);} |
2561 |
goto T1181; |
goto T1225; |
2562 |
T1181:; |
T1225:; |
2563 |
if((caddr((V322)))==Cnil){ |
if((caddr((V327)))==Cnil){ |
2564 |
goto T1285;} |
goto T1335;} |
2565 |
V321= (VFUN_NARGS=0,(*(LnkLI316))()); |
V326= (VFUN_NARGS=0,(*(LnkLI323))()); |
2566 |
{object V364; |
{object V372; |
2567 |
V364= cadr((V322)); |
V372= cadr((V327)); |
2568 |
if(((V364))==Cnil){ |
if(((V372))==Cnil){ |
2569 |
goto T1293;} |
goto T1343;} |
2570 |
goto T1290; |
goto T1340; |
2571 |
goto T1293; |
goto T1343; |
2572 |
T1293:; |
T1343:; |
2573 |
princ_str("\n narg= narg - ",VV[25]); |
princ_str("\n narg= narg - ",VV[25]); |
2574 |
V365 = make_fixnum((long)length(car((V322)))); |
V373 = make_fixnum((long)length(car((V327)))); |
2575 |
(void)((*(LnkLI267))(V365)); |
(void)((*(LnkLI274))(V373)); |
2576 |
princ_char(59,VV[25]);} |
princ_char(59,VV[25]);} |
2577 |
goto T1290; |
goto T1340; |
2578 |
T1290:; |
T1340:; |
2579 |
if(((V323))!=Cnil){ |
if(((V328))!=Cnil){ |
2580 |
goto T1298;} |
goto T1348;} |
2581 |
V323= Ct; |
V328= Ct; |
2582 |
princ_str("\n va_start(ap);",VV[25]); |
princ_str("\n va_start(ap,first);",VV[25]); |
2583 |
goto T1298; |
goto T1348; |
2584 |
T1298:; |
T1348:; |
2585 |
princ_str("\n V",VV[25]); |
princ_str("\n V",VV[25]); |
2586 |
(void)((*(LnkLI267))((V321))); |
(void)((*(LnkLI274))((V326))); |
2587 |
princ_str(" = ",VV[25]); |
princ_str(" = ",VV[25]); |
2588 |
V366= structure_ref(caddr((V322)),VV[69],5); |
V374= structure_ref(caddr((V327)),VV[69],5); |
2589 |
if(!((/* INLINE-ARGS */V366)==(VV[164]))){ |
if(!((/* INLINE-ARGS */V374)==(VV[171]))){ |
2590 |
goto T1309;} |
goto T1359;} |
2591 |
base[7]= Ct; |
base[7]= Ct; |
2592 |
goto T1308; |
goto T1358; |
2593 |
goto T1309; |
goto T1359; |
2594 |
T1309:; |
T1359:; |
2595 |
base[7]= symbol_value(VV[163]); |
base[7]= symbol_value(VV[170]); |
2596 |
goto T1308; |
goto T1358; |
2597 |
T1308:; |
T1358:; |
2598 |
bds_bind(VV[163],base[7]); |
bds_bind(VV[170],base[7]); |
2599 |
if((cadddr((V322)))==Cnil){ |
if((cadddr((V327)))==Cnil){ |
2600 |
goto T1313;} |
goto T1363;} |
2601 |
if(((VV[163]->s.s_dbind))==Cnil){ |
if(((VV[170]->s.s_dbind))==Cnil){ |
2602 |
goto T1316;} |
goto T1366;} |
2603 |
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]); |
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]); |
2604 |
goto T1311; |
goto T1361; |
2605 |
goto T1316; |
goto T1366; |
2606 |
T1316:; |
T1366:; |
2607 |
princ_str("make_list(narg);",VV[25]); |
princ_str("make_list(narg);",VV[25]); |
2608 |
goto T1311; |
goto T1361; |
2609 |
goto T1313; |
goto T1363; |
2610 |
T1313:; |
T1363:; |
2611 |
if(((VV[163]->s.s_dbind))==Cnil){ |
if(((VV[170]->s.s_dbind))==Cnil){ |
2612 |
goto T1321;} |
goto T1371;} |
2613 |
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));",VV[25]); |
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]); |
2614 |
goto T1311; |
goto T1361; |
2615 |
goto T1321; |
goto T1371; |
2616 |
T1321:; |
T1371:; |
2617 |
princ_str("list_vector(narg,ap);",VV[25]); |
princ_str("list_vector_new(narg,first,ap);",VV[25]); |
2618 |
goto T1311; |
goto T1361; |
2619 |
T1311:; |
T1361:; |
2620 |
V367= caddr((V322)); |
V375= caddr((V327)); |
2621 |
V368= list(2,VV[155],(V321)); |
V376= list(2,VV[155],(V326)); |
2622 |
V369= (*(LnkLI314))(/* INLINE-ARGS */V367,/* INLINE-ARGS */V368); |
V377= (*(LnkLI321))(/* INLINE-ARGS */V375,/* INLINE-ARGS */V376); |
2623 |
bds_unwind1; |
bds_unwind1; |
|
goto T1285; |
|
|
T1285:; |
|
|
if((cadddr((V322)))==Cnil){ |
|
|
goto T1325;} |
|
|
{object V370; |
|
|
V370= caddr((V322)); |
|
|
if(((V370))==Cnil){ |
|
|
goto T1331;} |
|
|
goto T1328; |
|
|
goto T1331; |
|
|
T1331:; |
|
|
{object V371; |
|
|
V371= cadr((V322)); |
|
|
if(((V371))==Cnil){ |
|
|
goto T1335;} |
|
|
goto T1328; |
|
2624 |
goto T1335; |
goto T1335; |
2625 |
T1335:; |
T1335:; |
2626 |
|
if((cadddr((V327)))==Cnil){ |
2627 |
|
goto T1375;} |
2628 |
|
{object V378; |
2629 |
|
V378= caddr((V327)); |
2630 |
|
if(((V378))==Cnil){ |
2631 |
|
goto T1381;} |
2632 |
|
goto T1378; |
2633 |
|
goto T1381; |
2634 |
|
T1381:; |
2635 |
|
{object V379; |
2636 |
|
V379= cadr((V327)); |
2637 |
|
if(((V379))==Cnil){ |
2638 |
|
goto T1385;} |
2639 |
|
goto T1378; |
2640 |
|
goto T1385; |
2641 |
|
T1385:; |
2642 |
princ_str("\n narg= narg - ",VV[25]); |
princ_str("\n narg= narg - ",VV[25]); |
2643 |
V372 = make_fixnum((long)length(car((V322)))); |
V380 = make_fixnum((long)length(car((V327)))); |
2644 |
(void)((*(LnkLI267))(V372)); |
(void)((*(LnkLI274))(V380)); |
2645 |
princ_char(59,VV[25]);}} |
princ_char(59,VV[25]);}} |
2646 |
goto T1328; |
goto T1378; |
2647 |
T1328:; |
T1378:; |
2648 |
if(((V323))!=Cnil){ |
if(((V328))!=Cnil){ |
2649 |
goto T1340;} |
goto T1390;} |
2650 |
V323= Ct; |
V328= Ct; |
2651 |
princ_str("\n va_start(ap);",VV[25]); |
princ_str("\n va_start(ap,first);",VV[25]); |
2652 |
goto T1340; |
goto T1390; |
2653 |
T1340:; |
T1390:; |
2654 |
{object V373; |
{object V381; |
2655 |
object V374= car(cddddr((V322))); |
object V382= car(cddddr((V327))); |
2656 |
if(endp(V374)){ |
if(endp(V382)){ |
2657 |
V319= Cnil; |
V324= Cnil; |
2658 |
goto T1347;} |
goto T1397;} |
2659 |
base[7]=V373=MMcons(Cnil,Cnil); |
base[7]=V381=MMcons(Cnil,Cnil); |
2660 |
goto T1348; |
goto T1398; |
2661 |
T1348:; |
T1398:; |
2662 |
(V373->c.c_car)= caddr((V374->c.c_car)); |
(V381->c.c_car)= caddr((V382->c.c_car)); |
2663 |
V374=MMcdr(V374); |
V382=MMcdr(V382); |
2664 |
if(endp(V374)){ |
if(endp(V382)){ |
2665 |
V319= base[7]; |
V324= base[7]; |
2666 |
goto T1347;} |
goto T1397;} |
2667 |
V373=MMcdr(V373)=MMcons(Cnil,Cnil); |
V381=MMcdr(V381)=MMcons(Cnil,Cnil); |
2668 |
goto T1348;} |
goto T1398;} |
2669 |
goto T1347; |
goto T1397; |
2670 |
T1347:; |
T1397:; |
2671 |
{object V375; |
{object V383; |
2672 |
object V376; |
object V384; |
2673 |
V376= make_fixnum((long)length(car(cddddr((V322))))); |
V384= make_fixnum((long)length(car(cddddr((V327))))); |
2674 |
V375= Cnil; |
V383= Cnil; |
2675 |
{register object V377; |
{register object V385; |
2676 |
object V378; |
object V386; |
2677 |
object V379; |
object V387; |
2678 |
V377= (V319); |
V385= (V324); |
2679 |
V378= car(cddddr((V322))); |
V386= car(cddddr((V327))); |
2680 |
V379= car((V378)); |
V387= car((V386)); |
2681 |
goto T1356; |
goto T1406; |
2682 |
T1356:; |
T1406:; |
2683 |
if(((V377))!=Cnil){ |
if(((V385))!=Cnil){ |
2684 |
goto T1357;} |
goto T1407;} |
2685 |
goto T1351; |
goto T1401; |
2686 |
goto T1357; |
goto T1407; |
2687 |
T1357:; |
T1407:; |
2688 |
if(!((caar((V377)))==(VV[165]))){ |
if(!((caar((V385)))==(VV[172]))){ |
2689 |
goto T1362;} |
goto T1412;} |
2690 |
if((caddr(car((V377))))==(Cnil)){ |
if((caddr(car((V385))))==(Cnil)){ |
2691 |
goto T1361;} |
goto T1411;} |
2692 |
goto T1362; |
goto T1412; |
2693 |
T1362:; |
T1412:; |
2694 |
V375= Ct; |
V383= Ct; |
2695 |
goto T1361; |
goto T1411; |
2696 |
T1361:; |
T1411:; |
2697 |
if(!((caar((V377)))==(VV[165]))){ |
if(!((caar((V385)))==(VV[172]))){ |
2698 |
goto T1368;} |
goto T1418;} |
2699 |
{object V380; |
{object V388; |
2700 |
V380= caddr(car((V377))); |
V388= caddr(car((V385))); |
2701 |
if(!(((V380))==(Cnil))){ |
if(!(((V388))==(Cnil))){ |
2702 |
goto T1374;} |
goto T1424;} |
2703 |
goto T1372; |
goto T1422; |
2704 |
goto T1374; |
goto T1424; |
2705 |
T1374:; |
T1424:; |
2706 |
if(type_of((V380))==t_cons){ |
if(type_of((V388))==t_cons){ |
2707 |
goto T1376;} |
goto T1426;} |
2708 |
goto T1368; |
goto T1418; |
2709 |
goto T1376; |
goto T1426; |
2710 |
T1376:; |
T1426:; |
2711 |
{register object x= car((V380)),V381= VV[166]; |
{register object x= car((V388)),V389= VV[173]; |
2712 |
while(!endp(V381)) |
while(!endp(V389)) |
2713 |
if(eql(x,V381->c.c_car)){ |
if(eql(x,V389->c.c_car)){ |
2714 |
goto T1372; |
goto T1422; |
2715 |
}else V381=V381->c.c_cdr; |
}else V389=V389->c.c_cdr; |
2716 |
goto T1368;}} |
goto T1418;}} |
2717 |
goto T1372; |
goto T1422; |
2718 |
T1372:; |
T1422:; |
2719 |
V382= structure_ref(cadddr((V379)),VV[69],1); |
V390= structure_ref(cadddr((V387)),VV[69],1); |
2720 |
if((/* INLINE-ARGS */V382)==(VV[167])){ |
if((/* INLINE-ARGS */V390)==(VV[174])){ |
2721 |
goto T1367;} |
goto T1417;} |
2722 |
goto T1368; |
goto T1418; |
2723 |
T1368:; |
T1418:; |
2724 |
V375= Ct; |
V383= Ct; |
2725 |
if(type_of(V377)!=t_cons)FEwrong_type_argument(Scons,V377); |
if(type_of(V385)!=t_cons)FEwrong_type_argument(Scons,V385); |
2726 |
(V377)->c.c_car = small_fixnum(0); |
(V385)->c.c_car = small_fixnum(0); |
2727 |
goto T1367; |
goto T1417; |
2728 |
T1367:; |
T1417:; |
2729 |
V377= cdr((V377)); |
V385= cdr((V385)); |
2730 |
V378= cdr((V378)); |
V386= cdr((V386)); |
2731 |
V379= car((V378)); |
V387= car((V386)); |
2732 |
goto T1356;} |
goto T1406;} |
2733 |
goto T1351; |
goto T1401; |
2734 |
T1351:; |
T1401:; |
2735 |
if(!(((long)length((V319)))>(15))){ |
if(!(((long)length((V324)))>(15))){ |
2736 |
goto T1389;} |
goto T1439;} |
2737 |
V375= Ct; |
V383= Ct; |
2738 |
goto T1389; |
goto T1439; |
2739 |
T1389:; |
T1439:; |
2740 |
princ_str("\n {",VV[25]); |
princ_str("\n {",VV[25]); |
2741 |
vs_base=vs_top; |
vs_base=vs_top; |
2742 |
(void) (*Lnk317)(); |
(void) (*Lnk324)(); |
2743 |
vs_top=sup; |
vs_top=sup; |
2744 |
bds_bind(VV[25],symbol_value(VV[31])); |
bds_bind(VV[25],symbol_value(VV[31])); |
2745 |
if(((V375))==Cnil){ |
if(((V383))==Cnil){ |
2746 |
goto T1397;} |
goto T1447;} |
2747 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
2748 |
princ_str("static object VK",VV[25]); |
princ_str("static object VK",VV[25]); |
2749 |
(void)((*(LnkLI267))((V314))); |
(void)((*(LnkLI274))((V319))); |
2750 |
princ_str("defaults[",VV[25]); |
princ_str("defaults[",VV[25]); |
2751 |
V385 = make_fixnum((long)length((V319))); |
V393 = make_fixnum((long)length((V324))); |
2752 |
(void)((*(LnkLI267))(V385)); |
(void)((*(LnkLI274))(V393)); |
2753 |
princ_str("]={",VV[25]); |
princ_str("]={",VV[25]); |
2754 |
{object V386; |
{object V394; |
2755 |
register object V387; |
register object V395; |
2756 |
V386= (V319); |
V394= (V324); |
2757 |
V387= Cnil; |
V395= Cnil; |
2758 |
goto T1409; |
goto T1459; |
2759 |
T1409:; |
T1459:; |
2760 |
if(((V386))!=Cnil){ |
if(((V394))!=Cnil){ |
2761 |
goto T1410;} |
goto T1460;} |
2762 |
goto T1407; |
goto T1457; |
2763 |
goto T1410; |
goto T1460; |
2764 |
T1410:; |
T1460:; |
2765 |
princ_str("(void *)",VV[25]); |
princ_str("(void *)",VV[25]); |
2766 |
if(!(eql(car((V386)),small_fixnum(0)))){ |
if(!(eql(car((V394)),small_fixnum(0)))){ |
2767 |
goto T1418;} |
goto T1468;} |
2768 |
princ_str("-1",VV[25]); |
princ_str("-1",VV[25]); |
2769 |
goto T1416; |
goto T1466; |
2770 |
goto T1418; |
goto T1468; |
2771 |
T1418:; |
T1468:; |
2772 |
V387= caddr(car((V386))); |
V395= caddr(car((V394))); |
2773 |
if(!(((V387))==(Cnil))){ |
if(!(((V395))==(Cnil))){ |
2774 |
goto T1422;} |
goto T1472;} |
2775 |
princ_str("-2",VV[25]); |
princ_str("-2",VV[25]); |
2776 |
goto T1416; |
goto T1466; |
2777 |
goto T1422; |
goto T1472; |
2778 |
T1422:; |
T1472:; |
2779 |
if(!(type_of((V387))==t_cons)){ |
if(!(type_of((V395))==t_cons)){ |
2780 |
goto T1427;} |
goto T1477;} |
2781 |
if(!((car((V387)))==(VV[168]))){ |
if(!((car((V395)))==(VV[175]))){ |
2782 |
goto T1427;} |
goto T1477;} |
2783 |
(void)((*(LnkLI267))(cadr((V387)))); |
(void)((*(LnkLI274))(cadr((V395)))); |
2784 |
goto T1416; |
goto T1466; |
2785 |
goto T1427; |
goto T1477; |
2786 |
T1427:; |
T1477:; |
2787 |
if(!(type_of((V387))==t_cons)){ |
if(!(type_of((V395))==t_cons)){ |
2788 |
goto T1433;} |
goto T1483;} |
2789 |
if(!((car((V387)))==(VV[169]))){ |
if(!((car((V395)))==(VV[176]))){ |
2790 |
goto T1433;} |
goto T1483;} |
2791 |
V388= (*(LnkLI318))(caddr((V387))); |
V396= (*(LnkLI325))(caddr((V395))); |
2792 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V388)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V396)); |
2793 |
goto T1416; |
goto T1466; |
2794 |
goto T1433; |
goto T1483; |
2795 |
T1433:; |
T1483:; |
2796 |
(void)((*(LnkLI319))()); |
(void)((*(LnkLI326))()); |
2797 |
goto T1416; |
goto T1466; |
2798 |
T1416:; |
T1466:; |
2799 |
if((cdr((V386)))==Cnil){ |
if((cdr((V394)))==Cnil){ |
2800 |
goto T1438;} |
goto T1488;} |
2801 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2802 |
goto T1438; |
goto T1488; |
2803 |
T1438:; |
T1488:; |
2804 |
V386= cdr((V386)); |
V394= cdr((V394)); |
2805 |
goto T1409;} |
goto T1459;} |
2806 |
goto T1407; |
goto T1457; |
2807 |
T1407:; |
T1457:; |
2808 |
princ_str("};",VV[25]); |
princ_str("};",VV[25]); |
2809 |
goto T1397; |
goto T1447; |
2810 |
T1397:; |
T1447:; |
2811 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
2812 |
princ_str("static struct { short n,allow_other_keys;",VV[25]); |
princ_str("static struct { short n,allow_other_keys;",VV[25]); |
2813 |
princ_str("object *defaults;",VV[25]); |
princ_str("object *defaults;",VV[25]); |
2814 |
princ_str("\n KEYTYPE keys[",VV[25]); |
princ_str("\n KEYTYPE keys[",VV[25]); |
2815 |
(void)((*(LnkLI267))((number_compare((V376),small_fixnum(1))>=0?((V376)):small_fixnum(1)))); |
(void)((*(LnkLI274))((number_compare((V384),small_fixnum(1))>=0?((V384)):small_fixnum(1)))); |
2816 |
princ_str("];",VV[25]); |
princ_str("];",VV[25]); |
2817 |
princ_str("} LI",VV[25]); |
princ_str("} LI",VV[25]); |
2818 |
(void)((*(LnkLI267))((V314))); |
(void)((*(LnkLI274))((V319))); |
2819 |
princ_str("key=",VV[25]); |
princ_str("key=",VV[25]); |
2820 |
princ_char(123,VV[25]); |
princ_char(123,VV[25]); |
2821 |
V389 = make_fixnum((long)length(car(cddddr((V322))))); |
V397 = make_fixnum((long)length(car(cddddr((V327))))); |
2822 |
(void)((*(LnkLI267))(V389)); |
(void)((*(LnkLI274))(V397)); |
2823 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2824 |
if((cadr(cddddr((V322))))==Cnil){ |
if((cadr(cddddr((V327))))==Cnil){ |
2825 |
goto T1465;} |
goto T1515;} |
2826 |
V390= small_fixnum(1); |
V398= small_fixnum(1); |
2827 |
goto T1463; |
goto T1513; |
2828 |
goto T1465; |
goto T1515; |
2829 |
T1465:; |
T1515:; |
2830 |
V390= small_fixnum(0); |
V398= small_fixnum(0); |
2831 |
goto T1463; |
goto T1513; |
2832 |
T1463:; |
T1513:; |
2833 |
(void)((*(LnkLI267))(V390)); |
(void)((*(LnkLI274))(V398)); |
2834 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2835 |
if(((V375))==Cnil){ |
if(((V383))==Cnil){ |
2836 |
goto T1470;} |
goto T1520;} |
2837 |
princ_str("VK",VV[25]); |
princ_str("VK",VV[25]); |
2838 |
(void)((*(LnkLI267))((V314))); |
(void)((*(LnkLI274))((V319))); |
2839 |
princ_str("defaults",VV[25]); |
princ_str("defaults",VV[25]); |
2840 |
goto T1468; |
goto T1518; |
2841 |
goto T1470; |
goto T1520; |
2842 |
T1470:; |
T1520:; |
2843 |
princ_str("Cstd_key_defaults",VV[25]); |
princ_str("Cstd_key_defaults",VV[25]); |
2844 |
goto T1468; |
goto T1518; |
2845 |
T1468:; |
T1518:; |
2846 |
if((car(cddddr((V322))))==Cnil){ |
if((car(cddddr((V327))))==Cnil){ |
2847 |
goto T1476;} |
goto T1526;} |
2848 |
princ_str(",{",VV[25]); |
princ_str(",{",VV[25]); |
2849 |
{object V391; |
{object V399; |
2850 |
V391= reverse(car(cddddr((V322)))); |
V399= reverse(car(cddddr((V327)))); |
2851 |
goto T1484; |
goto T1534; |
2852 |
T1484:; |
T1534:; |
2853 |
if(((V391))!=Cnil){ |
if(((V399))!=Cnil){ |
2854 |
goto T1485;} |
goto T1535;} |
2855 |
goto T1481; |
goto T1531; |
2856 |
goto T1485; |
goto T1535; |
2857 |
T1485:; |
T1535:; |
2858 |
princ_str("(void *)",VV[25]); |
princ_str("(void *)",VV[25]); |
2859 |
V392= (*(LnkLI320))(caar((V391))); |
V400= (*(LnkLI327))(caar((V399))); |
2860 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V392)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V400)); |
2861 |
if((cdr((V391)))==Cnil){ |
if((cdr((V399)))==Cnil){ |
2862 |
goto T1493;} |
goto T1543;} |
2863 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2864 |
goto T1493; |
goto T1543; |
2865 |
T1493:; |
T1543:; |
2866 |
V391= cdr((V391)); |
V399= cdr((V399)); |
2867 |
goto T1484;} |
goto T1534;} |
2868 |
goto T1481; |
goto T1531; |
2869 |
T1481:; |
T1531:; |
2870 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
2871 |
goto T1476; |
goto T1526; |
2872 |
T1476:; |
T1526:; |
2873 |
princ_str("};",VV[25]); |
princ_str("};",VV[25]); |
2874 |
bds_unwind1; |
bds_unwind1; |
2875 |
if((caddr((V322)))==Cnil){ |
if((caddr((V327)))==Cnil){ |
2876 |
goto T1504;} |
goto T1554;} |
2877 |
princ_str("\n parse_key_rest(",VV[25]); |
princ_str("\n parse_key_rest_new(",VV[25]); |
2878 |
V393= list(2,VV[155],(V321)); |
V401= list(2,VV[155],(V326)); |
2879 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V393)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V401)); |
2880 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2881 |
goto T1502; |
goto T1552; |
2882 |
goto T1504; |
goto T1554; |
2883 |
T1504:; |
T1554:; |
2884 |
princ_str("\n parse_key_new(",VV[25]); |
princ_str("\n parse_key_new_new(",VV[25]); |
2885 |
goto T1502; |
goto T1552; |
2886 |
T1502:; |
T1552:; |
2887 |
if(!(eql(small_fixnum(0),symbol_value(VV[141])))){ |
if(!(eql(small_fixnum(0),symbol_value(VV[141])))){ |
2888 |
goto T1510;} |
goto T1560;} |
2889 |
setq(VV[141],small_fixnum(1)); |
setq(VV[141],small_fixnum(1)); |
2890 |
goto T1510; |
goto T1560; |
2891 |
T1510:; |
T1560:; |
2892 |
princ_str("narg,",VV[25]); |
princ_str("narg,",VV[25]); |
2893 |
if(((VV[153]->s.s_dbind))==Cnil){ |
if(((VV[153]->s.s_dbind))==Cnil){ |
2894 |
goto T1518;} |
goto T1568;} |
2895 |
V394= VV[170]; |
V402= VV[177]; |
2896 |
goto T1516; |
goto T1566; |
2897 |
goto T1518; |
goto T1568; |
2898 |
T1518:; |
T1568:; |
2899 |
V394= VV[171]; |
V402= VV[178]; |
2900 |
goto T1516; |
goto T1566; |
2901 |
T1516:; |
T1566:; |
2902 |
(void)((*(LnkLI267))(V394)); |
(void)((*(LnkLI274))(V402)); |
2903 |
princ_char(43,VV[25]); |
princ_char(43,VV[25]); |
2904 |
(void)((*(LnkLI267))((V320))); |
(void)((*(LnkLI274))((V325))); |
2905 |
princ_str(",(struct key *)&LI",VV[25]); |
princ_str(",(struct key *)&LI",VV[25]); |
2906 |
(void)((*(LnkLI267))((V314))); |
(void)((*(LnkLI274))((V319))); |
2907 |
princ_str("key,ap);",VV[25]);} |
princ_str("key,first,ap);",VV[25]);} |
2908 |
goto T1325; |
goto T1375; |
2909 |
T1325:; |
T1375:; |
2910 |
{object V395; |
{object V403; |
2911 |
register object V396; |
register object V404; |
2912 |
V395= car(cddddr((V322))); |
V403= car(cddddr((V327))); |
2913 |
V396= car((V395)); |
V404= car((V403)); |
2914 |
goto T1529; |
goto T1579; |
2915 |
T1529:; |
T1579:; |
2916 |
if(!(endp_prop((V395)))){ |
if(!(endp_prop((V403)))){ |
2917 |
goto T1530;} |
goto T1580;} |
2918 |
goto T1525; |
goto T1575; |
2919 |
goto T1530; |
goto T1580; |
2920 |
T1530:; |
T1580:; |
2921 |
{object V398; |
{object V406; |
2922 |
V398= car((V319)); |
V406= car((V324)); |
2923 |
V319= cdr((V319)); |
V324= cdr((V324)); |
2924 |
V397= (V398);} |
V405= (V406);} |
2925 |
if(eql(small_fixnum(0),V397)){ |
if(eql(small_fixnum(0),V405)){ |
2926 |
goto T1536;} |
goto T1586;} |
2927 |
(void)((*(LnkLI321))(cadr((V396)))); |
(void)((*(LnkLI328))(cadr((V404)))); |
2928 |
goto T1534; |
goto T1584; |
2929 |
goto T1536; |
goto T1586; |
2930 |
T1536:; |
T1586:; |
2931 |
princ_str("\n if(",VV[25]); |
princ_str("\n if(",VV[25]); |
2932 |
V399= structure_ref(cadr((V396)),VV[69],2); |
V407= structure_ref(cadr((V404)),VV[69],2); |
2933 |
(void)((*(LnkLI322))(/* INLINE-ARGS */V399)); |
(void)((*(LnkLI329))(/* INLINE-ARGS */V407)); |
2934 |
princ_str("==0){",VV[25]); |
princ_str("==0){",VV[25]); |
2935 |
bds_bind(VV[133],symbol_value(VV[133])); |
bds_bind(VV[133],symbol_value(VV[133])); |
2936 |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
2937 |
bds_bind(VV[132],symbol_value(VV[132])); |
bds_bind(VV[132],symbol_value(VV[132])); |
2938 |
V400= (*(LnkLI315))(cadr((V396)),caddr((V396))); |
V408= (*(LnkLI322))(cadr((V404)),caddr((V404))); |
2939 |
bds_unwind1; |
bds_unwind1; |
2940 |
bds_unwind1; |
bds_unwind1; |
2941 |
bds_unwind1; |
bds_unwind1; |
2942 |
V401= structure_ref(cadddr((V396)),VV[69],1); |
V409= structure_ref(cadddr((V404)),VV[69],1); |
2943 |
if((/* INLINE-ARGS */V401)==(VV[167])){ |
if((/* INLINE-ARGS */V409)==(VV[174])){ |
2944 |
goto T1548;} |
goto T1598;} |
2945 |
(void)((*(LnkLI314))(cadddr((V396)),Cnil)); |
(void)((*(LnkLI321))(cadddr((V404)),Cnil)); |
2946 |
goto T1548; |
goto T1598; |
2947 |
T1548:; |
T1598:; |
2948 |
princ_str("\n }else{",VV[25]); |
princ_str("\n }else{",VV[25]); |
2949 |
(void)((*(LnkLI321))(cadr((V396)))); |
(void)((*(LnkLI328))(cadr((V404)))); |
2950 |
V402= structure_ref(cadddr((V396)),VV[69],1); |
V410= structure_ref(cadddr((V404)),VV[69],1); |
2951 |
if((/* INLINE-ARGS */V402)==(VV[167])){ |
if((/* INLINE-ARGS */V410)==(VV[174])){ |
2952 |
goto T1554;} |
goto T1604;} |
2953 |
(void)((*(LnkLI314))(cadddr((V396)),Ct)); |
(void)((*(LnkLI321))(cadddr((V404)),Ct)); |
2954 |
goto T1554; |
goto T1604; |
2955 |
T1554:; |
T1604:; |
2956 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
2957 |
goto T1534; |
goto T1584; |
2958 |
T1534:; |
T1584:; |
2959 |
V395= cdr((V395)); |
V403= cdr((V403)); |
2960 |
V396= car((V395)); |
V404= car((V403)); |
2961 |
goto T1529;} |
goto T1579;} |
2962 |
goto T1525; |
goto T1575; |
2963 |
T1525:; |
T1575:; |
2964 |
if(((VV[146]->s.s_dbind))==Cnil){ |
if(((VV[146]->s.s_dbind))==Cnil){ |
2965 |
goto T1563;} |
goto T1613;} |
2966 |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
2967 |
princ_str("\ngoto TTL;",VV[25]); |
princ_str("\ngoto TTL;",VV[25]); |
2968 |
princ_str("\nTTL:;",VV[25]); |
princ_str("\nTTL:;",VV[25]); |
2969 |
goto T1563; |
goto T1613; |
2970 |
T1563:; |
T1613:; |
2971 |
base[7]= caddr(cddr((V315))); |
base[7]= caddr(cddr((V320))); |
2972 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2973 |
(void) (*Lnk308)(); |
(void) (*Lnk315)(); |
2974 |
vs_top=sup; |
vs_top=sup; |
2975 |
if(((V323))==Cnil){ |
if(((V328))==Cnil){ |
2976 |
goto T1573;} |
goto T1623;} |
2977 |
V323= Cnil; |
V328= Cnil; |
2978 |
princ_str("\n va_end(ap);",VV[25]); |
princ_str("\n va_end(ap);",VV[25]); |
2979 |
goto T1573; |
goto T1623; |
2980 |
T1573:; |
T1623:; |
2981 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
2982 |
goto T1581;} |
goto T1631;} |
2983 |
if((symbol_value(VV[138]))!=Cnil){ |
if((symbol_value(VV[138]))!=Cnil){ |
2984 |
goto T1581;} |
goto T1631;} |
2985 |
if((symbol_value(VV[140]))!=Cnil){ |
if((symbol_value(VV[140]))!=Cnil){ |
2986 |
goto T1581;} |
goto T1631;} |
2987 |
goto T1579; |
goto T1629; |
2988 |
goto T1581; |
goto T1631; |
2989 |
T1581:; |
T1631:; |
2990 |
princ_str("\n base[0]=base[0];",VV[25]); |
princ_str("\n base[0]=base[0];",VV[25]); |
2991 |
goto T1579; |
goto T1629; |
2992 |
T1579:; |
T1629:; |
2993 |
princ_str("\n return Cnil;",VV[25]); |
princ_str("\n return Cnil;",VV[25]); |
2994 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
2995 |
if((base[1])==Cnil){ |
if((base[1])==Cnil){ |
2996 |
goto T1592;} |
goto T1642;} |
2997 |
princ_str("\n }",VV[25]); |
princ_str("\n }",VV[25]); |
2998 |
goto T1592; |
goto T1642; |
2999 |
T1592:; |
T1642:; |
3000 |
(void)((*(LnkLI323))()); |
(void)((*(LnkLI330))()); |
3001 |
V404= get((V313),VV[77],Cnil); |
V412= get((V318),VV[77],Cnil); |
3002 |
{object V405 = (*(LnkLI309))((V330),V404); |
{object V413 = (*(LnkLI316))((V337),V412); |
3003 |
bds_unwind1; |
bds_unwind1; |
3004 |
bds_unwind1; |
bds_unwind1; |
3005 |
bds_unwind1; |
bds_unwind1; |
3006 |
bds_unwind1; |
bds_unwind1; |
3007 |
VMR25(V405)}}} |
VMR25(V413)}}} |
3008 |
base[0]=base[0]; |
base[0]=base[0]; |
3009 |
return Cnil; |
return Cnil; |
3010 |
} |
} |
3011 |
/* local entry for function T3DEFUN-NORMAL */ |
/* local entry for function T3DEFUN-NORMAL */ |
3012 |
|
|
3013 |
static object LI27(V410,V411,V412,V413) |
static object LI27(V418,V419,V420,V421) |
3014 |
|
|
3015 |
object V410;register object V411;object V412;object V413; |
object V418;register object V419;object V420;object V421; |
3016 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
3017 |
goto TTL; |
goto TTL; |
3018 |
TTL:; |
TTL:; |
3019 |
(void)((VFUN_NARGS=2,(*(LnkLI305))(VV[172],(V410)))); |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[179],(V418)))); |
3020 |
if(!(type_of((V411))==t_fixnum|| |
if(!(type_of((V419))==t_fixnum|| |
3021 |
type_of((V411))==t_bignum|| |
type_of((V419))==t_bignum|| |
3022 |
type_of((V411))==t_ratio|| |
type_of((V419))==t_ratio|| |
3023 |
type_of((V411))==t_shortfloat|| |
type_of((V419))==t_shortfloat|| |
3024 |
type_of((V411))==t_longfloat|| |
type_of((V419))==t_longfloat|| |
3025 |
type_of((V411))==t_complex)){ |
type_of((V419))==t_complex)){ |
3026 |
goto T1601;} |
goto T1651;} |
3027 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
3028 |
(void)((*(LnkLI267))((V411))); |
(void)((*(LnkLI274))((V419))); |
3029 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3030 |
goto T1599; |
goto T1649; |
3031 |
goto T1601; |
goto T1651; |
3032 |
T1601:; |
T1651:; |
3033 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
3034 |
(void)((*(LnkLI267))((V411))); |
(void)((*(LnkLI274))((V419))); |
3035 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3036 |
goto T1599; |
goto T1649; |
3037 |
T1599:; |
T1649:; |
3038 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
3039 |
princ_str("register object *",VV[25]); |
princ_str("register object *",VV[25]); |
3040 |
(void)((*(LnkLI267))(symbol_value(VV[20]))); |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
3041 |
princ_str("base=vs_base;",VV[25]); |
princ_str("base=vs_base;",VV[25]); |
3042 |
V414= structure_ref(cadr((V412)),VV[62],1); |
V422= structure_ref(cadr((V420)),VV[62],1); |
3043 |
(void)((*(LnkLI307))(/* INLINE-ARGS */V414,(V411),VV[148])); |
(void)((*(LnkLI314))(/* INLINE-ARGS */V422,(V419),VV[148])); |
3044 |
princ_str("\n register object *",VV[25]); |
princ_str("\n register object *",VV[25]); |
3045 |
(void)((*(LnkLI267))(symbol_value(VV[20]))); |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
3046 |
princ_str("sup=base+VM",VV[25]); |
princ_str("sup=base+VM",VV[25]); |
3047 |
(void)((*(LnkLI267))(symbol_value(VV[136]))); |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
3048 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
3049 |
princ_str(" VC",VV[25]); |
princ_str(" VC",VV[25]); |
3050 |
(void)((*(LnkLI267))(symbol_value(VV[136]))); |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
3051 |
if((symbol_value(VV[157]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
3052 |
goto T1626;} |
goto T1676;} |
3053 |
princ_str("\n vs_reserve(VM",VV[25]); |
princ_str("\n vs_reserve(VM",VV[25]); |
3054 |
(void)((*(LnkLI267))(symbol_value(VV[136]))); |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
3055 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
3056 |
goto T1624; |
goto T1674; |
3057 |
goto T1626; |
goto T1676; |
3058 |
T1626:; |
T1676:; |
3059 |
princ_str("\n vs_check;",VV[25]); |
princ_str("\n vs_check;",VV[25]); |
3060 |
goto T1624; |
goto T1674; |
3061 |
T1624:; |
T1674:; |
3062 |
if(((V413))==Cnil){ |
if(((V421))==Cnil){ |
3063 |
goto T1632;} |
goto T1682;} |
3064 |
princ_str("\n bds_check;",VV[25]); |
princ_str("\n bds_check;",VV[25]); |
3065 |
goto T1632; |
goto T1682; |
3066 |
T1632:; |
T1682:; |
3067 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
3068 |
goto T1636;} |
goto T1686;} |
3069 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
3070 |
goto T1636; |
goto T1686; |
3071 |
T1636:; |
T1686:; |
3072 |
(void)((VFUN_NARGS=3,(*(LnkLI324))(caddr((V412)),caddr(cddr((V412))),(V410)))); |
(void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V420)),caddr(cddr((V420))),(V418)))); |
3073 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
3074 |
{object V415; |
{object V423; |
3075 |
V415= make_cons(symbol_value(VV[136]),symbol_value(VV[130])); |
V423= make_cons(symbol_value(VV[136]),symbol_value(VV[130])); |
3076 |
setq(VV[33],make_cons((V415),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V423),symbol_value(VV[33])));} |
3077 |
princ_str("\n#define VC",VV[31]); |
princ_str("\n#define VC",VV[31]); |
3078 |
(void)((*(LnkLI270))(symbol_value(VV[136]))); |
(void)((*(LnkLI277))(symbol_value(VV[136]))); |
3079 |
{object V416 = (*(LnkLI325))(); |
{object V424 = (*(LnkLI332))(); |
3080 |
VMR26(V416)} |
VMR26(V424)} |
3081 |
base[0]=base[0]; |
base[0]=base[0]; |
3082 |
return Cnil; |
return Cnil; |
3083 |
} |
} |
3084 |
/* local entry for function WT-V*-MACROS */ |
/* local entry for function WT-V*-MACROS */ |
3085 |
|
|
3086 |
static object LI28(V419,V420) |
static object LI28(V427,V428) |
3087 |
|
|
3088 |
register object V419;object V420; |
register object V427;object V428; |
3089 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
3090 |
goto TTL; |
goto TTL; |
3091 |
TTL:; |
TTL:; |
3092 |
{object V421; |
{object V429; |
3093 |
V421= make_cons((V419),symbol_value(VV[130])); |
V429= make_cons((V427),symbol_value(VV[130])); |
3094 |
setq(VV[33],make_cons((V421),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V429),symbol_value(VV[33])));} |
3095 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3096 |
goto T1654;} |
goto T1704;} |
3097 |
if((symbol_value(VV[138]))!=Cnil){ |
if((symbol_value(VV[138]))!=Cnil){ |
3098 |
goto T1654;} |
goto T1704;} |
3099 |
if((symbol_value(VV[140]))!=Cnil){ |
if((symbol_value(VV[140]))!=Cnil){ |
3100 |
goto T1654;} |
goto T1704;} |
3101 |
princ_str("\n#define VMB",VV[31]); |
princ_str("\n#define VMB",VV[31]); |
3102 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3103 |
goto T1652; |
goto T1702; |
3104 |
goto T1654; |
goto T1704; |
3105 |
T1654:; |
T1704:; |
3106 |
princ_str("\n#define VMB",VV[31]); |
princ_str("\n#define VMB",VV[31]); |
3107 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3108 |
princ_char(32,VV[31]); |
princ_char(32,VV[31]); |
3109 |
princ_str("register object *",VV[31]); |
princ_str("register object *",VV[31]); |
3110 |
(void)((*(LnkLI270))(symbol_value(VV[20]))); |
(void)((*(LnkLI277))(symbol_value(VV[20]))); |
3111 |
princ_str("base=vs_top;",VV[31]); |
princ_str("base=vs_top;",VV[31]); |
3112 |
goto T1652; |
goto T1702; |
3113 |
T1652:; |
T1702:; |
3114 |
(void)((*(LnkLI325))()); |
(void)((*(LnkLI332))()); |
3115 |
if((symbol_value(VV[138]))==Cnil){ |
if((symbol_value(VV[138]))==Cnil){ |
3116 |
goto T1671;} |
goto T1721;} |
3117 |
princ_str("\n#define VMS",VV[31]); |
princ_str("\n#define VMS",VV[31]); |
3118 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3119 |
princ_char(32,VV[31]); |
princ_char(32,VV[31]); |
3120 |
princ_str(" register object *",VV[31]); |
princ_str(" register object *",VV[31]); |
3121 |
(void)((*(LnkLI270))(symbol_value(VV[20]))); |
(void)((*(LnkLI277))(symbol_value(VV[20]))); |
3122 |
princ_str("sup=vs_top+",VV[31]); |
princ_str("sup=vs_top+",VV[31]); |
3123 |
(void)((*(LnkLI270))(symbol_value(VV[130]))); |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
3124 |
princ_str(";vs_top=sup;",VV[31]); |
princ_str(";vs_top=sup;",VV[31]); |
3125 |
goto T1669; |
goto T1719; |
3126 |
goto T1671; |
goto T1721; |
3127 |
T1671:; |
T1721:; |
3128 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3129 |
goto T1682;} |
goto T1732;} |
3130 |
princ_str("\n#define VMS",VV[31]); |
princ_str("\n#define VMS",VV[31]); |
3131 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3132 |
goto T1669; |
goto T1719; |
3133 |
goto T1682; |
goto T1732; |
3134 |
T1682:; |
T1732:; |
3135 |
princ_str("\n#define VMS",VV[31]); |
princ_str("\n#define VMS",VV[31]); |
3136 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3137 |
princ_str(" vs_top += ",VV[31]); |
princ_str(" vs_top += ",VV[31]); |
3138 |
(void)((*(LnkLI270))(symbol_value(VV[130]))); |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
3139 |
princ_char(59,VV[31]); |
princ_char(59,VV[31]); |
3140 |
goto T1669; |
goto T1719; |
3141 |
T1669:; |
T1719:; |
3142 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3143 |
goto T1693;} |
goto T1743;} |
3144 |
princ_str("\n#define VMV",VV[31]); |
princ_str("\n#define VMV",VV[31]); |
3145 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3146 |
goto T1691; |
goto T1741; |
3147 |
goto T1693; |
goto T1743; |
3148 |
T1693:; |
T1743:; |
3149 |
if((symbol_value(VV[157]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
3150 |
goto T1698;} |
goto T1748;} |
3151 |
princ_str("\n#define VMV",VV[31]); |
princ_str("\n#define VMV",VV[31]); |
3152 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3153 |
princ_str(" vs_reserve(",VV[31]); |
princ_str(" vs_reserve(",VV[31]); |
3154 |
(void)((*(LnkLI270))(symbol_value(VV[130]))); |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
3155 |
princ_str(");",VV[31]); |
princ_str(");",VV[31]); |
3156 |
goto T1691; |
goto T1741; |
3157 |
goto T1698; |
goto T1748; |
3158 |
T1698:; |
T1748:; |
3159 |
princ_str("\n#define VMV",VV[31]); |
princ_str("\n#define VMV",VV[31]); |
3160 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3161 |
princ_str(" vs_check;",VV[31]); |
princ_str(" vs_check;",VV[31]); |
3162 |
goto T1691; |
goto T1741; |
3163 |
T1691:; |
T1741:; |
3164 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3165 |
goto T1709;} |
goto T1759;} |
3166 |
princ_str("\n#define VMR",VV[31]); |
princ_str("\n#define VMR",VV[31]); |
3167 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3168 |
princ_str("(VMT",VV[31]); |
princ_str("(VMT",VV[31]); |
3169 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3170 |
princ_str(") return(VMT",VV[31]); |
princ_str(") return(VMT",VV[31]); |
3171 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3172 |
princ_str(");",VV[31]); |
princ_str(");",VV[31]); |
3173 |
{object V422 = Cnil; |
{object V430 = Cnil; |
3174 |
VMR27(V422)} |
VMR27(V430)} |
3175 |
goto T1709; |
goto T1759; |
3176 |
T1709:; |
T1759:; |
3177 |
princ_str("\n#define VMR",VV[31]); |
princ_str("\n#define VMR",VV[31]); |
3178 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3179 |
princ_str("(VMT",VV[31]); |
princ_str("(VMT",VV[31]); |
3180 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3181 |
princ_str(") vs_top=base ; return(VMT",VV[31]); |
princ_str(") vs_top=base ; return(VMT",VV[31]); |
3182 |
(void)((*(LnkLI270))((V419))); |
(void)((*(LnkLI277))((V427))); |
3183 |
princ_str(");",VV[31]); |
princ_str(");",VV[31]); |
3184 |
{object V423 = Cnil; |
{object V431 = Cnil; |
3185 |
VMR27(V423)} |
VMR27(V431)} |
3186 |
base[0]=base[0]; |
base[0]=base[0]; |
3187 |
return Cnil; |
return Cnil; |
3188 |
} |
} |
3189 |
/* local entry for function WT-REQUIREDS */ |
/* local entry for function WT-REQUIREDS */ |
3190 |
|
|
3191 |
static object LI29(V426,V427) |
static object LI29(V434,V435) |
3192 |
|
|
3193 |
object V426;object V427; |
object V434;object V435; |
3194 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
3195 |
goto TTL; |
goto TTL; |
3196 |
TTL:; |
TTL:; |
3197 |
{register object V428; |
{register object V436; |
3198 |
V428= (V426); |
V436= (V434); |
3199 |
goto T1727; |
goto T1777; |
3200 |
T1727:; |
T1777:; |
3201 |
if(!(endp_prop((V428)))){ |
if(!(endp_prop((V436)))){ |
3202 |
goto T1728;} |
goto T1778;} |
3203 |
goto T1725; |
goto T1775; |
3204 |
goto T1728; |
goto T1778; |
3205 |
T1728:; |
T1778:; |
3206 |
{register object V429; |
{register object V437; |
3207 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
3208 |
V429= symbol_value(VV[88]); |
V437= symbol_value(VV[88]); |
3209 |
(void)(structure_set(car((V428)),VV[69],4,(V429))); |
(void)(structure_set(car((V436)),VV[69],4,(V437))); |
3210 |
princ_char(86,VV[25]); |
princ_char(86,VV[25]); |
3211 |
(void)((*(LnkLI267))((V429)));} |
(void)((*(LnkLI274))((V437)));} |
3212 |
if(endp_prop(cdr((V428)))){ |
if(endp_prop(cdr((V436)))){ |
3213 |
goto T1738;} |
goto T1788;} |
3214 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
3215 |
goto T1738; |
goto T1788; |
3216 |
T1738:; |
T1788:; |
3217 |
V428= cdr((V428)); |
V436= cdr((V436)); |
3218 |
goto T1727;} |
goto T1777;} |
3219 |
goto T1725; |
goto T1775; |
3220 |
T1725:; |
T1775:; |
3221 |
princ_str(")\n",VV[25]); |
princ_str(")\n",VV[25]); |
3222 |
if(((V426))==Cnil){ |
if(((V434))==Cnil){ |
3223 |
goto T1748;} |
goto T1798;} |
3224 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
3225 |
{register object V430; |
{register object V438; |
3226 |
register object V431; |
register object V439; |
3227 |
register object V432; |
register object V440; |
3228 |
V430= (V426); |
V438= (V434); |
3229 |
V431= (V427); |
V439= (V435); |
3230 |
V432= Cnil; |
V440= Cnil; |
3231 |
goto T1752; |
goto T1802; |
3232 |
T1752:; |
T1802:; |
3233 |
if(!(endp_prop((V430)))){ |
if(!(endp_prop((V438)))){ |
3234 |
goto T1753;} |
goto T1803;} |
3235 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
3236 |
{object V433 = Cnil; |
{object V441 = Cnil; |
3237 |
VMR28(V433)} |
VMR28(V441)} |
3238 |
goto T1753; |
goto T1803; |
3239 |
T1753:; |
T1803:; |
3240 |
if(((V432))==Cnil){ |
if(((V440))==Cnil){ |
3241 |
goto T1758;} |
goto T1808;} |
3242 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
3243 |
goto T1758; |
goto T1808; |
3244 |
T1758:; |
T1808:; |
3245 |
(void)((*(LnkLI267))(symbol_value(VV[20]))); |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
3246 |
V434= (*(LnkLI326))(car((V430))); |
V442= (*(LnkLI333))(car((V438))); |
3247 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V434)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V442)); |
3248 |
V435= (*(LnkLI273))(car((V431))); |
V443= (*(LnkLI280))(car((V439))); |
3249 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V435)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V443)); |
3250 |
V432= car((V431)); |
V440= car((V439)); |
3251 |
princ_char(86,VV[25]); |
princ_char(86,VV[25]); |
3252 |
V436= structure_ref(car((V430)),VV[69],4); |
V444= structure_ref(car((V438)),VV[69],4); |
3253 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V436)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V444)); |
3254 |
V430= cdr((V430)); |
V438= cdr((V438)); |
3255 |
V431= cdr((V431)); |
V439= cdr((V439)); |
3256 |
goto T1752;} |
goto T1802;} |
3257 |
goto T1748; |
goto T1798; |
3258 |
T1748:; |
T1798:; |
3259 |
{object V437 = Cnil; |
{object V445 = Cnil; |
3260 |
VMR28(V437)} |
VMR28(V445)} |
3261 |
return Cnil; |
return Cnil; |
3262 |
} |
} |
3263 |
/* local entry for function ADD-DEBUG-INFO */ |
/* local entry for function ADD-DEBUG-INFO */ |
3264 |
|
|
3265 |
static object LI30(V440,V441) |
static object LI30(V448,V449) |
3266 |
|
|
3267 |
object V440;object V441; |
object V448;object V449; |
3268 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
3269 |
goto TTL; |
goto TTL; |
3270 |
TTL:; |
TTL:; |
3271 |
{object V442; |
{object V450; |
3272 |
V442= Cnil; |
V450= Cnil; |
3273 |
{object V443; |
{object V451; |
3274 |
V443= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil); |
V451= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil); |
3275 |
if(((V443))==Cnil){ |
if(((V451))==Cnil){ |
3276 |
goto T1778;} |
goto T1828;} |
3277 |
{object V444 = (V443); |
{object V452 = (V451); |
3278 |
VMR29(V444)} |
VMR29(V452)} |
3279 |
goto T1778; |
goto T1828; |
3280 |
T1778:; |
T1828:; |
3281 |
if((get((V440),VV[115],Cnil))!=Cnil){ |
if((get((V448),VV[115],Cnil))!=Cnil){ |
|
goto T1781;} |
|
|
{object V445 = (VFUN_NARGS=2,(*(LnkLI327))(VV[173],(V440))); |
|
|
VMR29(V445)} |
|
|
goto T1781; |
|
|
T1781:; |
|
|
(void)(remprop((V440),VV[115])); |
|
|
{register object V446; |
|
|
V446= small_fixnum(0); |
|
|
{register object V447; |
|
|
register object V448; |
|
|
V447= structure_ref(cadr((V441)),VV[62],1); |
|
|
V448= car((V447)); |
|
|
goto T1788; |
|
|
T1788:; |
|
|
if(!(endp_prop((V447)))){ |
|
|
goto T1789;} |
|
|
goto T1784; |
|
|
goto T1789; |
|
|
T1789:; |
|
|
V449= structure_ref((V448),VV[69],2); |
|
|
if(!(type_of(/* INLINE-ARGS */V449)==t_cons)){ |
|
|
goto T1793;} |
|
|
V450= structure_ref((V448),VV[69],2); |
|
|
if(!(type_of(cdr(/* INLINE-ARGS */V450))==t_fixnum)){ |
|
|
goto T1793;} |
|
|
V451= structure_ref((V448),VV[69],2); |
|
|
{object V452= cdr(/* INLINE-ARGS */V451); |
|
|
V446= (number_compare((V446),V452)>=0?((V446)):V452);} |
|
|
goto T1793; |
|
|
T1793:; |
|
|
V447= cdr((V447)); |
|
|
V448= car((V447)); |
|
|
goto T1788;} |
|
|
goto T1784; |
|
|
T1784:; |
|
|
base[0]= one_plus((V446)); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
Lmake_list(); |
|
|
vs_top=sup; |
|
|
V442= vs_base[0]; |
|
|
{register object V453; |
|
|
register object V454; |
|
|
V453= structure_ref(cadr((V441)),VV[62],1); |
|
|
V454= car((V453)); |
|
|
goto T1811; |
|
|
T1811:; |
|
|
if(!(endp_prop((V453)))){ |
|
|
goto T1812;} |
|
|
goto T1807; |
|
|
goto T1812; |
|
|
T1812:; |
|
|
V455= structure_ref((V454),VV[69],2); |
|
|
if(!(type_of(/* INLINE-ARGS */V455)==t_cons)){ |
|
|
goto T1816;} |
|
|
V456= structure_ref((V454),VV[69],2); |
|
|
if(!(type_of(cdr(/* INLINE-ARGS */V456))==t_fixnum)){ |
|
|
goto T1816;} |
|
|
{object V457; |
|
|
register object V459; |
|
|
V460= structure_ref((V454),VV[69],2); |
|
|
V457= cdr(/* INLINE-ARGS */V460); |
|
|
V459= structure_ref((V454),VV[69],0); |
|
|
if(type_of(nthcdr(fixint((V457)),V442))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V457)),V442)); |
|
|
(nthcdr(fixint((V457)),V442))->c.c_car = (V459); |
|
|
(void)(nthcdr(fixint((V457)),V442));} |
|
|
goto T1816; |
|
|
T1816:; |
|
|
V453= cdr((V453)); |
|
|
V454= car((V453)); |
|
|
goto T1811;} |
|
|
goto T1807; |
|
|
T1807:; |
|
|
(void)(sputprop((V440),VV[116],(V442))); |
|
|
{object V461; |
|
|
V461= get((V440),VV[116],Cnil); |
|
|
if(((V461))==Cnil){ |
|
|
goto T1832;} |
|
|
if((cdr((V461)))!=Cnil){ |
|
3282 |
goto T1831;} |
goto T1831;} |
3283 |
if((car((V461)))==Cnil){ |
{object V453 = (VFUN_NARGS=2,(*(LnkLI334))(VV[180],(V448))); |
3284 |
goto T1832;} |
VMR29(V453)} |
3285 |
goto T1831; |
goto T1831; |
3286 |
T1831:; |
T1831:; |
3287 |
V462= list(2,VV[91],(V440)); |
(void)(remprop((V448),VV[115])); |
3288 |
V463= list(3,VV[116],/* INLINE-ARGS */V462,list(2,VV[91],(V461))); |
{register object V454; |
3289 |
{object V464 = (VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V463)); |
V454= small_fixnum(0); |
3290 |
VMR29(V464)} |
{register object V455; |
3291 |
goto T1832; |
register object V456; |
3292 |
T1832:; |
V455= structure_ref(cadr((V449)),VV[62],1); |
3293 |
{object V465 = Cnil; |
V456= car((V455)); |
3294 |
VMR29(V465)}}}}} |
goto T1838; |
3295 |
|
T1838:; |
3296 |
|
if(!(endp_prop((V455)))){ |
3297 |
|
goto T1839;} |
3298 |
|
goto T1834; |
3299 |
|
goto T1839; |
3300 |
|
T1839:; |
3301 |
|
V457= structure_ref((V456),VV[69],2); |
3302 |
|
if(!(type_of(/* INLINE-ARGS */V457)==t_cons)){ |
3303 |
|
goto T1843;} |
3304 |
|
V458= structure_ref((V456),VV[69],2); |
3305 |
|
if(!(type_of(cdr(/* INLINE-ARGS */V458))==t_fixnum)){ |
3306 |
|
goto T1843;} |
3307 |
|
V459= structure_ref((V456),VV[69],2); |
3308 |
|
{object V460= cdr(/* INLINE-ARGS */V459); |
3309 |
|
V454= (number_compare((V454),V460)>=0?((V454)):V460);} |
3310 |
|
goto T1843; |
3311 |
|
T1843:; |
3312 |
|
V455= cdr((V455)); |
3313 |
|
V456= car((V455)); |
3314 |
|
goto T1838;} |
3315 |
|
goto T1834; |
3316 |
|
T1834:; |
3317 |
|
base[0]= one_plus((V454)); |
3318 |
|
vs_top=(vs_base=base+0)+1; |
3319 |
|
Lmake_list(); |
3320 |
|
vs_top=sup; |
3321 |
|
V450= vs_base[0]; |
3322 |
|
{register object V461; |
3323 |
|
register object V462; |
3324 |
|
V461= structure_ref(cadr((V449)),VV[62],1); |
3325 |
|
V462= car((V461)); |
3326 |
|
goto T1861; |
3327 |
|
T1861:; |
3328 |
|
if(!(endp_prop((V461)))){ |
3329 |
|
goto T1862;} |
3330 |
|
goto T1857; |
3331 |
|
goto T1862; |
3332 |
|
T1862:; |
3333 |
|
V463= structure_ref((V462),VV[69],2); |
3334 |
|
if(!(type_of(/* INLINE-ARGS */V463)==t_cons)){ |
3335 |
|
goto T1866;} |
3336 |
|
V464= structure_ref((V462),VV[69],2); |
3337 |
|
if(!(type_of(cdr(/* INLINE-ARGS */V464))==t_fixnum)){ |
3338 |
|
goto T1866;} |
3339 |
|
{object V465; |
3340 |
|
register object V467; |
3341 |
|
V468= structure_ref((V462),VV[69],2); |
3342 |
|
V465= cdr(/* INLINE-ARGS */V468); |
3343 |
|
V467= structure_ref((V462),VV[69],0); |
3344 |
|
if(type_of(nthcdr(fixint((V465)),V450))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V465)),V450)); |
3345 |
|
(nthcdr(fixint((V465)),V450))->c.c_car = (V467); |
3346 |
|
(void)(nthcdr(fixint((V465)),V450));} |
3347 |
|
goto T1866; |
3348 |
|
T1866:; |
3349 |
|
V461= cdr((V461)); |
3350 |
|
V462= car((V461)); |
3351 |
|
goto T1861;} |
3352 |
|
goto T1857; |
3353 |
|
T1857:; |
3354 |
|
(void)(sputprop((V448),VV[116],(V450))); |
3355 |
|
{object V469; |
3356 |
|
V469= get((V448),VV[116],Cnil); |
3357 |
|
if(((V469))==Cnil){ |
3358 |
|
goto T1882;} |
3359 |
|
if((cdr((V469)))!=Cnil){ |
3360 |
|
goto T1881;} |
3361 |
|
if((car((V469)))==Cnil){ |
3362 |
|
goto T1882;} |
3363 |
|
goto T1881; |
3364 |
|
T1881:; |
3365 |
|
V470= list(2,VV[91],(V448)); |
3366 |
|
V471= list(3,VV[116],/* INLINE-ARGS */V470,list(2,VV[91],(V469))); |
3367 |
|
{object V472 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V471)); |
3368 |
|
VMR29(V472)} |
3369 |
|
goto T1882; |
3370 |
|
T1882:; |
3371 |
|
{object V473 = Cnil; |
3372 |
|
VMR29(V473)}}}}} |
3373 |
base[0]=base[0]; |
base[0]=base[0]; |
3374 |
return Cnil; |
return Cnil; |
3375 |
} |
} |
3376 |
/* local entry for function ANALYZE-REGS */ |
/* local entry for function ANALYZE-REGS */ |
3377 |
|
|
3378 |
static object LI31(V468,V469) |
static object LI31(V476,V477) |
3379 |
|
|
3380 |
object V468;object V469; |
object V476;object V477; |
3381 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
3382 |
goto TTL; |
goto TTL; |
3383 |
TTL:; |
TTL:; |
3384 |
{object V470; |
{object V478; |
3385 |
V470= number_minus(symbol_value(VV[174]),(V469)); |
V478= number_minus(symbol_value(VV[181]),(V477)); |
3386 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[175]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){ |
|
goto T1840;} |
|
|
V471= (VFUN_NARGS=1,(*(LnkLI329))((V468))); |
|
|
{long V472 = (long)(*(LnkLI328))(/* INLINE-ARGS */V471,(V470)); |
|
|
VMR30((object)V472)} |
|
|
goto T1840; |
|
|
T1840:; |
|
|
{register object V473; |
|
|
register object V474; |
|
|
V473= Cnil; |
|
|
V474= Cnil; |
|
|
{register object V475; |
|
|
register object V476; |
|
|
V475= (V468); |
|
|
V476= car((V475)); |
|
|
goto T1846; |
|
|
T1846:; |
|
|
if(!(endp_prop((V475)))){ |
|
|
goto T1847;} |
|
|
goto T1842; |
|
|
goto T1847; |
|
|
T1847:; |
|
|
V478= structure_ref((V476),VV[69],5); |
|
|
{register object x= /* INLINE-ARGS */V478,V477= VV[176]; |
|
|
while(!endp(V477)) |
|
|
if(x==(V477->c.c_car)){ |
|
|
goto T1854; |
|
|
}else V477=V477->c.c_cdr; |
|
|
goto T1853;} |
|
|
goto T1854; |
|
|
T1854:;{object V479; |
|
|
{register object x= (V476),V480= (V474); |
|
|
while(!endp(V480)) |
|
|
if(eql(x,V480->c.c_car)){ |
|
|
V479= V480; |
|
|
goto T1856; |
|
|
}else V480=V480->c.c_cdr; |
|
|
V479= Cnil;} |
|
|
goto T1856; |
|
|
T1856:; |
|
|
if(V479==Cnil)goto T1855; |
|
|
goto T1851; |
|
|
goto T1855; |
|
|
T1855:;} |
|
|
{register object V481; |
|
|
V481= (V476); |
|
|
V474= make_cons((V481),(V474)); |
|
|
goto T1851;} |
|
|
goto T1853; |
|
|
T1853:;{object V482; |
|
|
{register object x= (V476),V483= (V473); |
|
|
while(!endp(V483)) |
|
|
if(x==(V483->c.c_car)){ |
|
|
V482= V483; |
|
|
goto T1860; |
|
|
}else V483=V483->c.c_cdr; |
|
|
V482= Cnil;} |
|
|
goto T1860; |
|
|
T1860:; |
|
|
if(V482==Cnil)goto T1859; |
|
|
goto T1851; |
|
|
goto T1859; |
|
|
T1859:;} |
|
|
{register object V484; |
|
|
V484= (V476); |
|
|
V474= make_cons((V484),(V474));} |
|
|
goto T1851; |
|
|
T1851:; |
|
|
V475= cdr((V475)); |
|
|
V476= car((V475)); |
|
|
goto T1846;} |
|
|
goto T1842; |
|
|
T1842:; |
|
|
(void)((*(LnkLI328))((V473),(V470))); |
|
|
{long V485 = (long)(*(LnkLI328))((V474),symbol_value(VV[175])); |
|
|
VMR30((object)V485)}}} |
|
|
base[0]=base[0]; |
|
|
} |
|
|
/* local entry for function ANALYZE-REGS1 */ |
|
|
|
|
|
static object LI32(V488,V489) |
|
|
|
|
|
object V488;object V489; |
|
|
{ VMB31 VMS31 VMV31 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{register long V490; |
|
|
register long V491; |
|
|
long V492; |
|
|
long V493; |
|
|
register long V494; |
|
|
V490= 0; |
|
|
V491= 3; |
|
|
V492= 100000; |
|
|
V493= fix((V489)); |
|
|
V494= 0; |
|
|
V488= (VFUN_NARGS=1,(*(LnkLI329))((V488))); |
|
|
goto T1877; |
|
|
T1877:; |
|
|
{register object V495; |
|
|
object V496; |
|
|
V495= (V488); |
|
|
V496= car((V495)); |
|
|
goto T1883; |
|
|
T1883:; |
|
|
if(!(endp_prop((V495)))){ |
|
|
goto T1884;} |
|
|
goto T1879; |
|
|
goto T1884; |
|
|
T1884:; |
|
|
V490= fix(structure_ref((V496),VV[69],6)); |
|
|
if(!((V490)>=(V491))){ |
|
3387 |
goto T1890;} |
goto T1890;} |
3388 |
V494= (long)(V494)+(1); |
V479= (VFUN_NARGS=1,(*(LnkLI336))((V476))); |
3389 |
if(!((V490)<(V492))){ |
{long V480 = (long)(*(LnkLI335))(/* INLINE-ARGS */V479,(V478)); |
3390 |
goto T1895;} |
VMR30((object)V480)} |
|
V492= V490; |
|
|
goto T1895; |
|
|
T1895:; |
|
|
if(!((V494)>(V493))){ |
|
|
goto T1890;} |
|
|
goto T1878; |
|
3391 |
goto T1890; |
goto T1890; |
3392 |
T1890:; |
T1890:; |
3393 |
V495= cdr((V495)); |
{register object V481; |
3394 |
V496= car((V495)); |
register object V482; |
3395 |
goto T1883;} |
V481= Cnil; |
3396 |
goto T1879; |
V482= Cnil; |
3397 |
T1879:; |
{register object V483; |
3398 |
if(!((V494)<(V493))){ |
register object V484; |
3399 |
goto T1906;} |
V483= (V476); |
3400 |
V491= (long)(V491)-(1); |
V484= car((V483)); |
3401 |
|
goto T1896; |
3402 |
|
T1896:; |
3403 |
|
if(!(endp_prop((V483)))){ |
3404 |
|
goto T1897;} |
3405 |
|
goto T1892; |
3406 |
|
goto T1897; |
3407 |
|
T1897:; |
3408 |
|
V486= structure_ref((V484),VV[69],5); |
3409 |
|
{register object x= /* INLINE-ARGS */V486,V485= VV[183]; |
3410 |
|
while(!endp(V485)) |
3411 |
|
if(x==(V485->c.c_car)){ |
3412 |
|
goto T1904; |
3413 |
|
}else V485=V485->c.c_cdr; |
3414 |
|
goto T1903;} |
3415 |
|
goto T1904; |
3416 |
|
T1904:;{object V487; |
3417 |
|
{register object x= (V484),V488= (V482); |
3418 |
|
while(!endp(V488)) |
3419 |
|
if(eql(x,V488->c.c_car)){ |
3420 |
|
V487= V488; |
3421 |
|
goto T1906; |
3422 |
|
}else V488=V488->c.c_cdr; |
3423 |
|
V487= Cnil;} |
3424 |
goto T1906; |
goto T1906; |
3425 |
T1906:; |
T1906:; |
3426 |
{register object V497; |
if(V487==Cnil)goto T1905; |
3427 |
register object V498; |
goto T1901; |
3428 |
V497= (V488); |
goto T1905; |
3429 |
V498= car((V497)); |
T1905:;} |
3430 |
goto T1914; |
{register object V489; |
3431 |
T1914:; |
V489= (V484); |
3432 |
if(!(endp_prop((V497)))){ |
V482= make_cons((V489),(V482)); |
3433 |
goto T1915;} |
goto T1901;} |
3434 |
|
goto T1903; |
3435 |
|
T1903:;{object V490; |
3436 |
|
{register object x= (V484),V491= (V481); |
3437 |
|
while(!endp(V491)) |
3438 |
|
if(x==(V491->c.c_car)){ |
3439 |
|
V490= V491; |
3440 |
goto T1910; |
goto T1910; |
3441 |
goto T1915; |
}else V491=V491->c.c_cdr; |
3442 |
T1915:; |
V490= Cnil;} |
|
{long V499= fix(structure_ref((V498),VV[69],6)); |
|
|
if(!((/* INLINE-ARGS */V499)<(V491))){ |
|
|
goto T1919;}} |
|
|
(void)(structure_set((V498),VV[69],6,small_fixnum(0))); |
|
|
goto T1919; |
|
|
T1919:; |
|
|
V497= cdr((V497)); |
|
|
V498= car((V497)); |
|
|
goto T1914;} |
|
3443 |
goto T1910; |
goto T1910; |
3444 |
T1910:; |
T1910:; |
3445 |
{long V500 = V491; |
if(V490==Cnil)goto T1909; |
3446 |
VMR31((object)V500)} |
goto T1901; |
3447 |
goto T1878; |
goto T1909; |
3448 |
T1878:; |
T1909:;} |
3449 |
V494= 0; |
{register object V492; |
3450 |
V491= (long)(V492)+(1); |
V492= (V484); |
3451 |
V492= 1000000; |
V482= make_cons((V492),(V482));} |
3452 |
goto T1877;} |
goto T1901; |
3453 |
|
T1901:; |
3454 |
|
V483= cdr((V483)); |
3455 |
|
V484= car((V483)); |
3456 |
|
goto T1896;} |
3457 |
|
goto T1892; |
3458 |
|
T1892:; |
3459 |
|
(void)((*(LnkLI335))((V481),(V478))); |
3460 |
|
{long V493 = (long)(*(LnkLI335))((V482),symbol_value(VV[182])); |
3461 |
|
VMR30((object)V493)}}} |
3462 |
base[0]=base[0]; |
base[0]=base[0]; |
3463 |
} |
} |
3464 |
/* local entry for function WT-GLOBAL-ENTRY */ |
/* local entry for function ANALYZE-REGS1 */ |
3465 |
|
|
3466 |
static object LI33(V505,V506,V507,V508) |
static object LI32(V496,V497) |
3467 |
|
|
3468 |
object V505;object V506;object V507;object V508; |
object V496;object V497; |
3469 |
{ VMB32 VMS32 VMV32 |
{ VMB31 VMS31 VMV31 |
3470 |
goto TTL; |
goto TTL; |
3471 |
TTL:; |
TTL:; |
3472 |
if((get((V505),VV[102],Cnil))==Cnil){ |
{register long V498; |
3473 |
|
register long V499; |
3474 |
|
long V500; |
3475 |
|
long V501; |
3476 |
|
register long V502; |
3477 |
|
V498= 0; |
3478 |
|
V499= 3; |
3479 |
|
V500= 100000; |
3480 |
|
V501= fix((V497)); |
3481 |
|
V502= 0; |
3482 |
|
V496= (VFUN_NARGS=1,(*(LnkLI336))((V496))); |
3483 |
|
goto T1927; |
3484 |
|
T1927:; |
3485 |
|
{register object V503; |
3486 |
|
object V504; |
3487 |
|
V503= (V496); |
3488 |
|
V504= car((V503)); |
3489 |
|
goto T1933; |
3490 |
|
T1933:; |
3491 |
|
if(!(endp_prop((V503)))){ |
3492 |
goto T1934;} |
goto T1934;} |
3493 |
{object V509 = Cnil; |
goto T1929; |
|
VMR32(V509)} |
|
3494 |
goto T1934; |
goto T1934; |
3495 |
T1934:; |
T1934:; |
3496 |
(void)((VFUN_NARGS=2,(*(LnkLI305))(VV[179],(V505)))); |
V498= fix(structure_ref((V504),VV[69],6)); |
3497 |
princ_str("\nstatic void L",VV[25]); |
if(!((V498)>=(V499))){ |
3498 |
(void)((*(LnkLI267))((V506))); |
goto T1940;} |
3499 |
princ_str("()",VV[25]); |
V502= (long)(V502)+(1); |
3500 |
princ_str("\n{ register object *base=vs_base;",VV[25]); |
if(!((V498)<(V500))){ |
|
if((symbol_value(VV[157]))!=Cnil){ |
|
3501 |
goto T1945;} |
goto T1945;} |
3502 |
if((symbol_value(VV[158]))==Cnil){ |
V500= V498; |
|
goto T1944;} |
|
3503 |
goto T1945; |
goto T1945; |
3504 |
T1945:; |
T1945:; |
3505 |
princ_str("\n check_arg(",VV[25]); |
if(!((V502)>(V501))){ |
3506 |
V510 = make_fixnum((long)length((V507))); |
goto T1940;} |
3507 |
(void)((*(LnkLI267))(V510)); |
goto T1928; |
3508 |
princ_str(");",VV[25]); |
goto T1940; |
3509 |
goto T1944; |
T1940:; |
3510 |
T1944:; |
V503= cdr((V503)); |
3511 |
princ_str("\n base[0]=",VV[25]); |
V504= car((V503)); |
3512 |
{object V512= (V508); |
goto T1933;} |
3513 |
if((V512!= VV[89]))goto T1956; |
goto T1929; |
3514 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
T1929:; |
3515 |
goto T1958;} |
if(!((V502)<(V501))){ |
3516 |
V511= VV[180]; |
goto T1956;} |
3517 |
goto T1955; |
V499= (long)(V499)-(1); |
|
goto T1958; |
|
|
T1958:; |
|
|
V511= VV[181]; |
|
|
goto T1955; |
|
3518 |
goto T1956; |
goto T1956; |
3519 |
T1956:; |
T1956:; |
3520 |
if((V512!= VV[142]))goto T1960; |
{register object V505; |
3521 |
V511= VV[182]; |
register object V506; |
3522 |
goto T1955; |
V505= (V496); |
3523 |
|
V506= car((V505)); |
3524 |
|
goto T1964; |
3525 |
|
T1964:; |
3526 |
|
if(!(endp_prop((V505)))){ |
3527 |
|
goto T1965;} |
3528 |
|
goto T1960; |
3529 |
|
goto T1965; |
3530 |
|
T1965:; |
3531 |
|
{long V507= fix(structure_ref((V506),VV[69],6)); |
3532 |
|
if(!((/* INLINE-ARGS */V507)<(V499))){ |
3533 |
|
goto T1969;}} |
3534 |
|
(void)(structure_set((V506),VV[69],6,small_fixnum(0))); |
3535 |
|
goto T1969; |
3536 |
|
T1969:; |
3537 |
|
V505= cdr((V505)); |
3538 |
|
V506= car((V505)); |
3539 |
|
goto T1964;} |
3540 |
goto T1960; |
goto T1960; |
3541 |
T1960:; |
T1960:; |
3542 |
if((V512!= VV[143]))goto T1961; |
{long V508 = V499; |
3543 |
V511= VV[183]; |
VMR31((object)V508)} |
3544 |
goto T1955; |
goto T1928; |
3545 |
goto T1961; |
T1928:; |
3546 |
T1961:; |
V502= 0; |
3547 |
if((V512!= VV[144]))goto T1962; |
V499= (long)(V500)+(1); |
3548 |
V511= VV[184]; |
V500= 1000000; |
3549 |
goto T1955; |
goto T1927;} |
3550 |
goto T1962; |
base[0]=base[0]; |
3551 |
T1962:; |
} |
3552 |
V511= VV[185];} |
/* local entry for function WT-GLOBAL-ENTRY */ |
3553 |
goto T1955; |
|
3554 |
T1955:; |
static object LI33(V513,V514,V515,V516) |
3555 |
(void)((*(LnkLI267))(V511)); |
|
3556 |
|
object V513;object V514;object V515;object V516; |
3557 |
|
{ VMB32 VMS32 VMV32 |
3558 |
|
goto TTL; |
3559 |
|
TTL:; |
3560 |
|
if((get((V513),VV[102],Cnil))==Cnil){ |
3561 |
|
goto T1984;} |
3562 |
|
{object V517 = Cnil; |
3563 |
|
VMR32(V517)} |
3564 |
|
goto T1984; |
3565 |
|
T1984:; |
3566 |
|
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[186],(V513)))); |
3567 |
|
princ_str("\nstatic void L",VV[25]); |
3568 |
|
(void)((*(LnkLI274))((V514))); |
3569 |
|
princ_str("()",VV[25]); |
3570 |
|
princ_str("\n{ register object *base=vs_base;",VV[25]); |
3571 |
|
if((symbol_value(VV[163]))!=Cnil){ |
3572 |
|
goto T1995;} |
3573 |
|
if((symbol_value(VV[164]))==Cnil){ |
3574 |
|
goto T1994;} |
3575 |
|
goto T1995; |
3576 |
|
T1995:; |
3577 |
|
princ_str("\n check_arg(",VV[25]); |
3578 |
|
V518 = make_fixnum((long)length((V515))); |
3579 |
|
(void)((*(LnkLI274))(V518)); |
3580 |
|
princ_str(");",VV[25]); |
3581 |
|
goto T1994; |
3582 |
|
T1994:; |
3583 |
|
princ_str("\n base[0]=",VV[25]); |
3584 |
|
{object V520= (V516); |
3585 |
|
if((V520!= VV[89]))goto T2006; |
3586 |
|
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
3587 |
|
goto T2008;} |
3588 |
|
V519= VV[187]; |
3589 |
|
goto T2005; |
3590 |
|
goto T2008; |
3591 |
|
T2008:; |
3592 |
|
V519= VV[188]; |
3593 |
|
goto T2005; |
3594 |
|
goto T2006; |
3595 |
|
T2006:; |
3596 |
|
if((V520!= VV[142]))goto T2010; |
3597 |
|
V519= VV[189]; |
3598 |
|
goto T2005; |
3599 |
|
goto T2010; |
3600 |
|
T2010:; |
3601 |
|
if((V520!= VV[143]))goto T2011; |
3602 |
|
V519= VV[190]; |
3603 |
|
goto T2005; |
3604 |
|
goto T2011; |
3605 |
|
T2011:; |
3606 |
|
if((V520!= VV[144]))goto T2012; |
3607 |
|
V519= VV[191]; |
3608 |
|
goto T2005; |
3609 |
|
goto T2012; |
3610 |
|
T2012:; |
3611 |
|
V519= VV[192];} |
3612 |
|
goto T2005; |
3613 |
|
T2005:; |
3614 |
|
(void)((*(LnkLI274))(V519)); |
3615 |
princ_str("(LI",VV[25]); |
princ_str("(LI",VV[25]); |
3616 |
(void)((*(LnkLI267))((V506))); |
(void)((*(LnkLI274))((V514))); |
3617 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
3618 |
{register object V513; |
{register object V521; |
3619 |
register long V514; |
register long V522; |
3620 |
V514= 0; |
V522= 0; |
3621 |
V513= (V507); |
V521= (V515); |
3622 |
goto T1969; |
goto T2019; |
3623 |
T1969:; |
T2019:; |
3624 |
if(!(endp_prop((V513)))){ |
if(!(endp_prop((V521)))){ |
3625 |
goto T1970;} |
goto T2020;} |
3626 |
goto T1966; |
goto T2016; |
3627 |
goto T1970; |
goto T2020; |
3628 |
T1970:; |
T2020:; |
3629 |
{object V516= car((V513)); |
{object V524= car((V521)); |
3630 |
if((V516!= VV[89]))goto T1977; |
if((V524!= VV[89]))goto T2027; |
3631 |
V515= VV[186]; |
V523= VV[193]; |
3632 |
goto T1976; |
goto T2026; |
3633 |
goto T1977; |
goto T2027; |
3634 |
T1977:; |
T2027:; |
3635 |
if((V516!= VV[142]))goto T1978; |
if((V524!= VV[142]))goto T2028; |
3636 |
V515= VV[187]; |
V523= VV[194]; |
3637 |
goto T1976; |
goto T2026; |
3638 |
goto T1978; |
goto T2028; |
3639 |
T1978:; |
T2028:; |
3640 |
if((V516!= VV[143]))goto T1979; |
if((V524!= VV[143]))goto T2029; |
3641 |
V515= VV[188]; |
V523= VV[195]; |
3642 |
goto T1976; |
goto T2026; |
3643 |
goto T1979; |
goto T2029; |
3644 |
T1979:; |
T2029:; |
3645 |
if((V516!= VV[144]))goto T1980; |
if((V524!= VV[144]))goto T2030; |
3646 |
V515= VV[189]; |
V523= VV[196]; |
3647 |
goto T1976; |
goto T2026; |
3648 |
goto T1980; |
goto T2030; |
3649 |
T1980:; |
T2030:; |
3650 |
V515= VV[190];} |
V523= VV[197];} |
3651 |
goto T1976; |
goto T2026; |
3652 |
T1976:; |
T2026:; |
3653 |
(void)((*(LnkLI267))(V515)); |
(void)((*(LnkLI274))(V523)); |
3654 |
princ_str("(base[",VV[25]); |
princ_str("(base[",VV[25]); |
3655 |
V517 = make_fixnum(V514); |
V525 = make_fixnum(V522); |
3656 |
(void)((*(LnkLI267))(V517)); |
(void)((*(LnkLI274))(V525)); |
3657 |
princ_str("])",VV[25]); |
princ_str("])",VV[25]); |
3658 |
if(endp_prop(cdr((V513)))){ |
if(endp_prop(cdr((V521)))){ |
3659 |
goto T1984;} |
goto T2034;} |
3660 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
3661 |
goto T1984; |
goto T2034; |
3662 |
T1984:; |
T2034:; |
3663 |
V513= cdr((V513)); |
V521= cdr((V521)); |
3664 |
V514= (long)(V514)+1; |
V522= (long)(V522)+1; |
3665 |
goto T1969;} |
goto T2019;} |
3666 |
goto T1966; |
goto T2016; |
3667 |
T1966:; |
T2016:; |
3668 |
princ_str("));",VV[25]); |
princ_str("));",VV[25]); |
3669 |
princ_str("\n vs_top=(vs_base=base)+1;",VV[25]); |
princ_str("\n vs_top=(vs_base=base)+1;",VV[25]); |
3670 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
3671 |
{object V518 = Cnil; |
{object V526 = Cnil; |
3672 |
VMR32(V518)} |
VMR32(V526)} |
3673 |
return Cnil; |
return Cnil; |
3674 |
} |
} |
3675 |
/* local entry for function REP-TYPE */ |
/* local entry for function REP-TYPE */ |
3676 |
|
|
3677 |
static object LI34(V520) |
static object LI34(V528) |
3678 |
|
|
3679 |
object V520; |
object V528; |
3680 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
3681 |
goto TTL; |
goto TTL; |
3682 |
TTL:; |
TTL:; |
3683 |
{object V521= (V520); |
{object V529= (V528); |
3684 |
if((V521!= VV[89]))goto T1997; |
if((V529!= VV[89]))goto T2047; |
3685 |
{object V522 = VV[191]; |
{object V530 = VV[198]; |
3686 |
VMR33(V522)} |
VMR33(V530)} |
3687 |
goto T1997; |
goto T2047; |
3688 |
T1997:; |
T2047:; |
3689 |
if((V521!= VV[254]))goto T1998; |
if((V529!= VV[261]))goto T2048; |
3690 |
{object V523 = VV[192]; |
{object V531 = VV[199]; |
3691 |
VMR33(V523)} |
VMR33(V531)} |
3692 |
goto T1998; |
goto T2048; |
3693 |
T1998:; |
T2048:; |
3694 |
if((V521!= VV[142]))goto T1999; |
if((V529!= VV[142]))goto T2049; |
3695 |
{object V524 = VV[193]; |
{object V532 = VV[200]; |
3696 |
VMR33(V524)} |
VMR33(V532)} |
3697 |
goto T1999; |
goto T2049; |
3698 |
T1999:; |
T2049:; |
3699 |
if((V521!= VV[144]))goto T2000; |
if((V529!= VV[144]))goto T2050; |
3700 |
{object V525 = VV[194]; |
{object V533 = VV[201]; |
3701 |
VMR33(V525)} |
VMR33(V533)} |
3702 |
goto T2000; |
goto T2050; |
3703 |
T2000:; |
T2050:; |
3704 |
if((V521!= VV[143]))goto T2001; |
if((V529!= VV[143]))goto T2051; |
3705 |
{object V526 = VV[195]; |
{object V534 = VV[202]; |
3706 |
VMR33(V526)} |
VMR33(V534)} |
3707 |
goto T2001; |
goto T2051; |
3708 |
T2001:; |
T2051:; |
3709 |
{object V527 = VV[196]; |
{object V535 = VV[203]; |
3710 |
VMR33(V527)}} |
VMR33(V535)}} |
3711 |
return Cnil; |
return Cnil; |
3712 |
} |
} |
3713 |
/* local entry for function T1DEFMACRO */ |
/* local entry for function T1DEFMACRO */ |
3714 |
|
|
3715 |
static object LI35(V529) |
static object LI35(V537) |
3716 |
|
|
3717 |
register object V529; |
register object V537; |
3718 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
3719 |
bds_check; |
bds_check; |
3720 |
goto TTL; |
goto TTL; |
3721 |
TTL:; |
TTL:; |
3722 |
if(endp_prop((V529))){ |
if(endp_prop((V537))){ |
3723 |
goto T2003;} |
goto T2053;} |
3724 |
if(!(endp_prop(cdr((V529))))){ |
if(!(endp_prop(cdr((V537))))){ |
3725 |
goto T2002;} |
goto T2052;} |
3726 |
goto T2003; |
goto T2053; |
3727 |
T2003:; |
T2053:; |
3728 |
V530 = make_fixnum((long)length((V529))); |
V538 = make_fixnum((long)length((V537))); |
3729 |
(void)((*(LnkLI276))(VV[197],small_fixnum(2),V530)); |
(void)((*(LnkLI283))(VV[204],small_fixnum(2),V538)); |
3730 |
goto T2002; |
goto T2052; |
3731 |
T2002:; |
T2052:; |
3732 |
if(type_of(car((V529)))==t_symbol){ |
if(type_of(car((V537)))==t_symbol){ |
3733 |
goto T2007;} |
goto T2057;} |
3734 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[198],car((V529))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V537))))); |
3735 |
goto T2007; |
goto T2057; |
3736 |
T2007:; |
T2057:; |
3737 |
V531= make_cons(VV[197],(V529)); |
V539= make_cons(VV[204],(V537)); |
3738 |
(void)((*(LnkLI260))(Ct,/* INLINE-ARGS */V531)); |
(void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V539)); |
3739 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
3740 |
{register object V532; |
{register object V540; |
3741 |
object V533; |
object V541; |
3742 |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
3743 |
V533= symbol_value(VV[61]); |
V541= symbol_value(VV[61]); |
3744 |
bds_bind(VV[55],Cnil); |
bds_bind(VV[55],Cnil); |
3745 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
3746 |
bds_bind(VV[57],Cnil); |
bds_bind(VV[57],Cnil); |
3747 |
bds_bind(VV[58],Cnil); |
bds_bind(VV[58],Cnil); |
3748 |
bds_bind(VV[52],Cnil); |
bds_bind(VV[52],Cnil); |
3749 |
bds_bind(VV[59],Cnil); |
bds_bind(VV[59],Cnil); |
3750 |
V532= Cnil; |
V540= Cnil; |
3751 |
V532= (*(LnkLI330))(car((V529)),cadr((V529)),cddr((V529))); |
V540= (*(LnkLI337))(car((V537)),cadr((V537)),cddr((V537))); |
3752 |
(void)((*(LnkLI286))()); |
(void)((*(LnkLI293))()); |
3753 |
{object V534; |
{object V542; |
3754 |
V534= list(7,VV[197],car((V529)),(V533),cddr((V532)),car((V532)),cadr((V532)),(VV[59]->s.s_dbind)); |
V542= list(7,VV[204],car((V537)),(V541),cddr((V540)),car((V540)),cadr((V540)),(VV[59]->s.s_dbind)); |
3755 |
setq(VV[24],make_cons((V534),symbol_value(VV[24]))); |
setq(VV[24],make_cons((V542),symbol_value(VV[24]))); |
3756 |
{object V535 = symbol_value(VV[24]); |
{object V543 = symbol_value(VV[24]); |
3757 |
bds_unwind1; |
bds_unwind1; |
3758 |
bds_unwind1; |
bds_unwind1; |
3759 |
bds_unwind1; |
bds_unwind1; |
3760 |
bds_unwind1; |
bds_unwind1; |
3761 |
bds_unwind1; |
bds_unwind1; |
3762 |
bds_unwind1; |
bds_unwind1; |
3763 |
VMR34(V535)}}} |
VMR34(V543)}}} |
3764 |
base[0]=base[0]; |
base[0]=base[0]; |
3765 |
return Cnil; |
return Cnil; |
3766 |
} |
} |
3767 |
/* local entry for function T2DEFMACRO */ |
/* local entry for function T2DEFMACRO */ |
3768 |
|
|
3769 |
static object LI36(V542,V543,V544,V545,V546,V547) |
static object LI36(V550,V551,V552,V553,V554,V555) |
3770 |
|
|
3771 |
object V542;object V543;object V544;object V545;object V546;object V547; |
object V550;object V551;object V552;object V553;object V554;object V555; |
3772 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
3773 |
goto TTL; |
goto TTL; |
3774 |
TTL:; |
TTL:; |
3775 |
if(((V545))==Cnil){ |
if(((V553))==Cnil){ |
3776 |
goto T2020;} |
goto T2070;} |
3777 |
V548= list(4,VV[103],list(2,VV[91],(V542)),(V545),VV[199]); |
V556= list(4,VV[103],list(2,VV[91],(V550)),(V553),VV[206]); |
3778 |
(void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V548))); |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V556))); |
3779 |
goto T2020; |
goto T2070; |
3780 |
T2020:; |
T2070:; |
3781 |
if(((V546))==Cnil){ |
if(((V554))==Cnil){ |
3782 |
goto T2023;} |
goto T2073;} |
3783 |
V549= list(2,VV[91],(V542)); |
V557= list(2,VV[91],(V550)); |
3784 |
V550= list(4,VV[103],/* INLINE-ARGS */V549,list(2,VV[91],(V546)),VV[200]); |
V558= list(4,VV[103],/* INLINE-ARGS */V557,list(2,VV[91],(V554)),VV[207]); |
3785 |
(void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V550))); |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V558))); |
3786 |
goto T2023; |
goto T2073; |
3787 |
T2023:; |
T2073:; |
3788 |
princ_str("\nstatic void L",VV[31]); |
princ_str("\nstatic void L",VV[31]); |
3789 |
(void)((*(LnkLI270))((V543))); |
(void)((*(LnkLI277))((V551))); |
3790 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
3791 |
V551= list(2,VV[91],(V542)); |
V559= list(2,VV[91],(V550)); |
3792 |
V552= list(3,VV[201],/* INLINE-ARGS */V551,(*(LnkLI294))(VV[202],(V543))); |
V560= list(3,VV[208],/* INLINE-ARGS */V559,(*(LnkLI301))(VV[209],(V551))); |
3793 |
{object V553 = (VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V552)); |
{object V561 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V560)); |
3794 |
VMR35(V553)} |
VMR35(V561)} |
3795 |
return Cnil; |
return Cnil; |
3796 |
} |
} |
3797 |
/* local entry for function T3DEFMACRO */ |
/* local entry for function T3DEFMACRO */ |
3798 |
|
|
3799 |
static object LI37(V560,V561,V562,V563,V564,V565) |
static object LI37(V568,V569,V570,V571,V572,V573) |
3800 |
|
|
3801 |
object V560;object V561;register object V562;object V563;object V564;object V565; |
object V568;object V569;register object V570;object V571;object V572;object V573; |
3802 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
3803 |
bds_check; |
bds_check; |
3804 |
goto TTL; |
goto TTL; |
3805 |
TTL:; |
TTL:; |
3806 |
if((get((V560),VV[203],Cnil))==Cnil){ |
if((get((V568),VV[210],Cnil))==Cnil){ |
3807 |
goto T2032;} |
goto T2082;} |
3808 |
bds_bind(VV[20],VV[204]); |
bds_bind(VV[20],VV[211]); |
3809 |
goto T2030; |
goto T2080; |
3810 |
goto T2032; |
goto T2082; |
3811 |
T2032:; |
T2082:; |
3812 |
bds_bind(VV[20],VV[205]); |
bds_bind(VV[20],VV[212]); |
3813 |
goto T2030; |
goto T2080; |
3814 |
T2030:; |
T2080:; |
3815 |
bds_bind(VV[128],VV[127]); |
bds_bind(VV[128],VV[127]); |
3816 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
3817 |
bds_bind(VV[129],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
3827 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
3828 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
3829 |
bds_bind(VV[141],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
3830 |
(void)((VFUN_NARGS=2,(*(LnkLI305))(VV[206],(V560)))); |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[213],(V568)))); |
3831 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
3832 |
(void)((*(LnkLI267))((V561))); |
(void)((*(LnkLI274))((V569))); |
3833 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3834 |
princ_str("\n{register object *",VV[25]); |
princ_str("\n{register object *",VV[25]); |
3835 |
(void)((*(LnkLI267))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
3836 |
princ_str("base=vs_base;",VV[25]); |
princ_str("base=vs_base;",VV[25]); |
3837 |
V566= structure_ref(car(cddddr((V562))),VV[62],1); |
V574= structure_ref(car(cddddr((V570))),VV[62],1); |
3838 |
(void)((*(LnkLI307))(/* INLINE-ARGS */V566,(V561),VV[148])); |
(void)((*(LnkLI314))(/* INLINE-ARGS */V574,(V569),VV[148])); |
3839 |
princ_str("\n register object *",VV[25]); |
princ_str("\n register object *",VV[25]); |
3840 |
(void)((*(LnkLI267))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
3841 |
princ_str("sup=base+VM",VV[25]); |
princ_str("sup=base+VM",VV[25]); |
3842 |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
3843 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
3844 |
princ_str(" VC",VV[25]); |
princ_str(" VC",VV[25]); |
3845 |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
3846 |
if((symbol_value(VV[157]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
3847 |
goto T2058;} |
goto T2108;} |
3848 |
princ_str("\n vs_reserve(VM",VV[25]); |
princ_str("\n vs_reserve(VM",VV[25]); |
3849 |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
3850 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
3851 |
goto T2056; |
goto T2106; |
3852 |
goto T2058; |
goto T2108; |
3853 |
T2058:; |
T2108:; |
3854 |
princ_str("\n vs_check;",VV[25]); |
princ_str("\n vs_check;",VV[25]); |
3855 |
goto T2056; |
goto T2106; |
3856 |
T2056:; |
T2106:; |
3857 |
if(((V565))==Cnil){ |
if(((V573))==Cnil){ |
3858 |
goto T2064;} |
goto T2114;} |
3859 |
princ_str("\n bds_check;",VV[25]); |
princ_str("\n bds_check;",VV[25]); |
3860 |
goto T2064; |
goto T2114; |
3861 |
T2064:; |
T2114:; |
3862 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
3863 |
goto T2068;} |
goto T2118;} |
3864 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
3865 |
goto T2068; |
goto T2118; |
3866 |
T2068:; |
T2118:; |
3867 |
base[15]= car((V562)); |
base[15]= car((V570)); |
3868 |
base[16]= cadr((V562)); |
base[16]= cadr((V570)); |
3869 |
base[17]= caddr((V562)); |
base[17]= caddr((V570)); |
3870 |
base[18]= cadddr((V562)); |
base[18]= cadddr((V570)); |
3871 |
vs_top=(vs_base=base+15)+4; |
vs_top=(vs_base=base+15)+4; |
3872 |
(void) (*Lnk331)(); |
(void) (*Lnk338)(); |
3873 |
vs_top=sup; |
vs_top=sup; |
3874 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
3875 |
{object V567; |
{object V575; |
3876 |
V567= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
V575= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
3877 |
setq(VV[33],make_cons((V567),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V575),symbol_value(VV[33])));} |
3878 |
princ_str("\n#define VC",VV[31]); |
princ_str("\n#define VC",VV[31]); |
3879 |
(void)((*(LnkLI270))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI277))((VV[136]->s.s_dbind))); |
3880 |
{object V568 = (*(LnkLI325))(); |
{object V576 = (*(LnkLI332))(); |
3881 |
bds_unwind1; |
bds_unwind1; |
3882 |
bds_unwind1; |
bds_unwind1; |
3883 |
bds_unwind1; |
bds_unwind1; |
3893 |
bds_unwind1; |
bds_unwind1; |
3894 |
bds_unwind1; |
bds_unwind1; |
3895 |
bds_unwind1; |
bds_unwind1; |
3896 |
VMR36(V568)} |
VMR36(V576)} |
3897 |
base[0]=base[0]; |
base[0]=base[0]; |
3898 |
return Cnil; |
return Cnil; |
3899 |
} |
} |
3900 |
/* local entry for function T1ORDINARY */ |
/* local entry for function T1ORDINARY */ |
3901 |
|
|
3902 |
static object LI38(V570) |
static object LI38(V578) |
3903 |
|
|
3904 |
register object V570; |
register object V578; |
3905 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
3906 |
bds_check; |
bds_check; |
3907 |
goto TTL; |
goto TTL; |
3908 |
TTL:; |
TTL:; |
3909 |
{register object V571; |
{register object V579; |
3910 |
V571= Cnil; |
V579= Cnil; |
3911 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
3912 |
if((symbol_value(VV[48]))==Cnil){ |
if((symbol_value(VV[48]))==Cnil){ |
3913 |
goto T2089;} |
goto T2139;} |
3914 |
(void)((*(LnkLI260))(Cnil,(V570))); |
(void)((*(LnkLI267))(Cnil,(V578))); |
3915 |
{object V572; |
{object V580; |
3916 |
base[0]= VV[207]; |
base[0]= VV[214]; |
3917 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3918 |
Lgensym(); |
Lgensym(); |
3919 |
vs_top=sup; |
vs_top=sup; |
3920 |
V572= vs_base[0]; |
V580= vs_base[0]; |
3921 |
V573= listA(3,VV[64],(V572),VV[208]); |
V581= listA(3,VV[64],(V580),VV[215]); |
3922 |
(void)((*(LnkLI282))(/* INLINE-ARGS */V573)); |
(void)((*(LnkLI289))(/* INLINE-ARGS */V581)); |
3923 |
base[0]= list(5,VV[51],(V572),Cnil,(V570),Cnil); |
base[0]= list(5,VV[51],(V580),Cnil,(V578),Cnil); |
3924 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3925 |
(void) (*Lnk264)(); |
(void) (*Lnk271)(); |
3926 |
vs_top=sup; |
vs_top=sup; |
3927 |
{object V574; |
{object V582; |
3928 |
V574= list(2,VV[209],make_cons((V572),Cnil)); |
V582= list(2,VV[216],make_cons((V580),Cnil)); |
3929 |
setq(VV[24],make_cons((V574),symbol_value(VV[24]))); |
setq(VV[24],make_cons((V582),symbol_value(VV[24]))); |
3930 |
{object V575 = symbol_value(VV[24]); |
{object V583 = symbol_value(VV[24]); |
3931 |
VMR37(V575)}}} |
VMR37(V583)}}} |
3932 |
goto T2089; |
goto T2139; |
3933 |
T2089:; |
T2139:; |
3934 |
{object V576; |
{object V584; |
3935 |
if(type_of((V570))==t_cons){ |
if(type_of((V578))==t_cons){ |
3936 |
goto T2100;} |
goto T2150;} |
3937 |
V576= Cnil; |
V584= Cnil; |
3938 |
goto T2099; |
goto T2149; |
3939 |
goto T2100; |
goto T2150; |
3940 |
T2100:; |
T2150:; |
3941 |
if(type_of(car((V570)))==t_symbol){ |
if(type_of(car((V578)))==t_symbol){ |
3942 |
goto T2102;} |
goto T2152;} |
3943 |
V576= Cnil; |
V584= Cnil; |
3944 |
goto T2099; |
goto T2149; |
3945 |
goto T2102; |
goto T2152; |
3946 |
T2102:; |
T2152:; |
3947 |
if(!((car((V570)))==(VV[210]))){ |
if(!((car((V578)))==(VV[217]))){ |
3948 |
goto T2106;} |
goto T2156;} |
3949 |
goto T2104; |
goto T2154; |
3950 |
goto T2106; |
goto T2156; |
3951 |
T2106:; |
T2156:; |
3952 |
base[0]= car((V570)); |
base[0]= car((V578)); |
3953 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3954 |
Lspecial_form_p(); |
Lspecial_form_p(); |
3955 |
vs_top=sup; |
vs_top=sup; |
3956 |
V577= vs_base[0]; |
V585= vs_base[0]; |
3957 |
if((V577)==Cnil){ |
if((V585)==Cnil){ |
3958 |
goto T2104;} |
goto T2154;} |
3959 |
V576= Cnil; |
V584= Cnil; |
3960 |
goto T2099; |
goto T2149; |
3961 |
goto T2104; |
goto T2154; |
3962 |
T2104:; |
T2154:; |
3963 |
{register object V578; |
{register object V586; |
3964 |
register long V579; |
register long V587; |
3965 |
V578= cdr((V570)); |
V586= cdr((V578)); |
3966 |
V579= 1; |
V587= 1; |
3967 |
goto T2113; |
goto T2163; |
3968 |
T2113:; |
T2163:; |
3969 |
if((V579)>=(1000)){ |
if((V587)>=(1000)){ |
3970 |
goto T2115;} |
goto T2165;} |
3971 |
if(type_of((V578))==t_cons){ |
if(type_of((V586))==t_cons){ |
3972 |
goto T2114;} |
goto T2164;} |
3973 |
goto T2115; |
goto T2165; |
3974 |
T2115:; |
T2165:; |
3975 |
V576= Cnil; |
V584= Cnil; |
3976 |
goto T2099; |
goto T2149; |
3977 |
goto T2114; |
goto T2164; |
3978 |
T2114:; |
T2164:; |
3979 |
if(!(type_of(car((V578)))==t_cons)){ |
if(!(type_of(car((V586)))==t_cons)){ |
3980 |
goto T2120;} |
goto T2170;} |
3981 |
if(!((caar((V578)))==(VV[64]))){ |
if(!((caar((V586)))==(VV[64]))){ |
3982 |
goto T2120;} |
goto T2170;} |
3983 |
V571= cadr(car((V578))); |
V579= cadr(car((V586))); |
3984 |
if(!(type_of((V571))==t_cons)){ |
if(!(type_of((V579))==t_cons)){ |
3985 |
goto T2120;} |
goto T2170;} |
3986 |
if(!((car((V571)))==(VV[211]))){ |
if(!((car((V579)))==(VV[218]))){ |
3987 |
goto T2120;} |
goto T2170;} |
3988 |
{register object V580; |
{register object V588; |
3989 |
vs_base=vs_top; |
vs_base=vs_top; |
3990 |
Lgensym(); |
Lgensym(); |
3991 |
vs_top=sup; |
vs_top=sup; |
3992 |
V580= vs_base[0]; |
V588= vs_base[0]; |
3993 |
base[0]= listA(3,VV[51],(V580),cdr((V571))); |
base[0]= listA(3,VV[51],(V588),cdr((V579))); |
3994 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3995 |
(void) (*Lnk264)(); |
(void) (*Lnk271)(); |
3996 |
vs_top=sup; |
vs_top=sup; |
3997 |
base[1]= (V570); |
base[1]= (V578); |
3998 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
3999 |
base[3]= make_fixnum(V579); |
base[3]= make_fixnum(V587); |
4000 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
4001 |
Lsubseq(); |
Lsubseq(); |
4002 |
vs_top=sup; |
vs_top=sup; |
4003 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
4004 |
V581= list(2,VV[212],list(2,VV[91],(V580))); |
V589= list(2,VV[219],list(2,VV[91],(V588))); |
4005 |
base[1]= make_cons(/* INLINE-ARGS */V581,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V589,Cnil); |
4006 |
V582 = make_fixnum(V579); |
V590 = make_fixnum(V587); |
4007 |
V583= number_plus(small_fixnum(1),V582); |
V591= number_plus(small_fixnum(1),V590); |
4008 |
base[2]= nthcdr(fixint(/* INLINE-ARGS */V583),(V570)); |
base[2]= nthcdr(fixint(/* INLINE-ARGS */V591),(V578)); |
4009 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
4010 |
Lappend(); |
Lappend(); |
4011 |
vs_top=sup; |
vs_top=sup; |
4012 |
V570= vs_base[0]; |
V578= vs_base[0]; |
4013 |
goto TTL;} |
goto TTL;} |
4014 |
goto T2120; |
goto T2170; |
4015 |
T2120:; |
T2170:; |
4016 |
if(type_of((V578))==t_cons){ |
if(type_of((V586))==t_cons){ |
4017 |
goto T2143;} |
goto T2193;} |
4018 |
V578= Cnil; |
V586= Cnil; |
4019 |
goto T2142; |
goto T2192; |
4020 |
goto T2143; |
goto T2193; |
4021 |
T2143:; |
T2193:; |
4022 |
V578= cdr((V578)); |
V586= cdr((V586)); |
4023 |
goto T2142; |
goto T2192; |
4024 |
T2142:; |
T2192:; |
4025 |
V579= (long)(1)+(V579); |
V587= (long)(1)+(V587); |
4026 |
goto T2113;} |
goto T2163;} |
4027 |
goto T2099; |
goto T2149; |
4028 |
T2099:; |
T2149:; |
4029 |
if(((V576))==Cnil){ |
if(((V584))==Cnil){ |
4030 |
goto T2148;} |
goto T2198;} |
4031 |
{object V584 = (V576); |
{object V592 = (V584); |
4032 |
VMR37(V584)} |
VMR37(V592)} |
4033 |
goto T2148; |
goto T2198; |
4034 |
T2148:; |
T2198:; |
4035 |
(void)((*(LnkLI260))(Cnil,(V570))); |
(void)((*(LnkLI267))(Cnil,(V578))); |
4036 |
bds_bind(VV[55],Cnil); |
bds_bind(VV[55],Cnil); |
4037 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
4038 |
bds_bind(VV[57],Cnil); |
bds_bind(VV[57],Cnil); |
4039 |
bds_bind(VV[58],Cnil); |
bds_bind(VV[58],Cnil); |
4040 |
bds_bind(VV[52],Cnil); |
bds_bind(VV[52],Cnil); |
4041 |
{object V585; |
{object V593; |
4042 |
V585= list(2,VV[209],(V570)); |
V593= list(2,VV[216],(V578)); |
4043 |
setq(VV[24],make_cons((V585),symbol_value(VV[24])));} |
setq(VV[24],make_cons((V593),symbol_value(VV[24])));} |
4044 |
{object V586 = Cnil; |
{object V594 = Cnil; |
4045 |
bds_unwind1; |
bds_unwind1; |
4046 |
bds_unwind1; |
bds_unwind1; |
4047 |
bds_unwind1; |
bds_unwind1; |
4048 |
bds_unwind1; |
bds_unwind1; |
4049 |
bds_unwind1; |
bds_unwind1; |
4050 |
VMR37(V586)}}} |
VMR37(V594)}}} |
4051 |
base[0]=base[0]; |
base[0]=base[0]; |
4052 |
return Cnil; |
return Cnil; |
4053 |
} |
} |
4054 |
/* local entry for function T2ORDINARY */ |
/* local entry for function T2ORDINARY */ |
4055 |
|
|
4056 |
static object LI39(V588) |
static object LI39(V596) |
4057 |
|
|
4058 |
object V588; |
object V596; |
4059 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
4060 |
goto TTL; |
goto TTL; |
4061 |
TTL:; |
TTL:; |
4062 |
{object V589; |
{object V597; |
4063 |
V589= (type_of((V588))!=t_cons?Ct:Cnil); |
V597= (type_of((V596))!=t_cons?Ct:Cnil); |
4064 |
if(((V589))==Cnil){ |
if(((V597))==Cnil){ |
4065 |
goto T2156;} |
goto T2206;} |
4066 |
{object V590 = (V589); |
{object V598 = (V597); |
4067 |
VMR38(V590)} |
VMR38(V598)} |
4068 |
goto T2156; |
goto T2206; |
4069 |
T2156:; |
T2206:; |
4070 |
{object V591; |
{object V599; |
4071 |
base[0]= (V588); |
base[0]= (V596); |
4072 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4073 |
Lconstantp(); |
Lconstantp(); |
4074 |
vs_top=sup; |
vs_top=sup; |
4075 |
V591= vs_base[0]; |
V599= vs_base[0]; |
4076 |
if(((V591))==Cnil){ |
if(((V599))==Cnil){ |
4077 |
goto T2161;} |
goto T2211;} |
4078 |
{object V592 = (V591); |
{object V600 = (V599); |
4079 |
VMR38(V592)} |
VMR38(V600)} |
4080 |
goto T2161; |
goto T2211; |
4081 |
T2161:; |
T2211:; |
4082 |
{object V593 = (VFUN_NARGS=1,(*(LnkLI293))((V588))); |
{object V601 = (VFUN_NARGS=1,(*(LnkLI300))((V596))); |
4083 |
VMR38(V593)}}} |
VMR38(V601)}}} |
4084 |
base[0]=base[0]; |
base[0]=base[0]; |
4085 |
return Cnil; |
return Cnil; |
4086 |
} |
} |
4091 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
4092 |
goto TTL; |
goto TTL; |
4093 |
TTL:; |
TTL:; |
4094 |
{register object V594; |
{register object V602; |
4095 |
register object V595; |
register object V603; |
4096 |
V594= reverse(symbol_value(VV[52])); |
V602= reverse(symbol_value(VV[52])); |
4097 |
V595= car((V594)); |
V603= car((V602)); |
4098 |
goto T2166; |
goto T2216; |
4099 |
T2166:; |
T2216:; |
4100 |
if(!(endp_prop((V594)))){ |
if(!(endp_prop((V602)))){ |
4101 |
goto T2167;} |
goto T2217;} |
4102 |
{object V596 = Cnil; |
{object V604 = Cnil; |
4103 |
VMR39(V596)} |
VMR39(V604)} |
4104 |
goto T2167; |
goto T2217; |
4105 |
T2167:; |
T2217:; |
4106 |
if(!(type_of((V595))!=t_cons)){ |
if(!(type_of((V603))!=t_cons)){ |
4107 |
goto T2171;} |
goto T2221;} |
4108 |
(void)((*(LnkLI332))()); |
(void)((*(LnkLI339))()); |
4109 |
goto T2171; |
goto T2221; |
4110 |
T2171:; |
T2221:; |
4111 |
{register object V597; |
{register object V605; |
4112 |
V597= make_cons(VV[213],(V595)); |
V605= make_cons(VV[220],(V603)); |
4113 |
setq(VV[24],make_cons((V597),symbol_value(VV[24])));} |
setq(VV[24],make_cons((V605),symbol_value(VV[24])));} |
4114 |
V594= cdr((V594)); |
V602= cdr((V602)); |
4115 |
V595= car((V594)); |
V603= car((V602)); |
4116 |
goto T2166;} |
goto T2216;} |
4117 |
base[0]=base[0]; |
base[0]=base[0]; |
4118 |
return Cnil; |
return Cnil; |
4119 |
} |
} |
4120 |
/* local entry for function T2SHARP-COMMA */ |
/* local entry for function T2SHARP-COMMA */ |
4121 |
|
|
4122 |
static object LI41(V600,V601) |
static object LI41(V608,V609) |
4123 |
|
|
4124 |
object V600;object V601; |
object V608;object V609; |
4125 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
4126 |
goto TTL; |
goto TTL; |
4127 |
TTL:; |
TTL:; |
4128 |
V602= list(3,VV[214],(V600),(V601)); |
V610= list(3,VV[221],(V608),(V609)); |
4129 |
{object V603 = (VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V602)); |
{object V611 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V610)); |
4130 |
VMR40(V603)} |
VMR40(V611)} |
4131 |
return Cnil; |
return Cnil; |
4132 |
} |
} |
4133 |
/* local entry for function T2DECLARE */ |
/* local entry for function T2DECLARE */ |
4134 |
|
|
4135 |
static object LI42(V605) |
static object LI42(V613) |
4136 |
|
|
4137 |
object V605; |
object V613; |
4138 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
4139 |
goto TTL; |
goto TTL; |
4140 |
TTL:; |
TTL:; |
4141 |
{object V606 = (*(LnkLI332))(); |
{object V614 = (*(LnkLI339))(); |
4142 |
VMR41(V606)} |
VMR41(V614)} |
4143 |
return Cnil; |
return Cnil; |
4144 |
} |
} |
4145 |
/* local entry for function T1DEFINE-STRUCTURE */ |
/* local entry for function T1DEFINE-STRUCTURE */ |
4146 |
|
|
4147 |
static object LI43(V608) |
static object LI43(V616) |
4148 |
|
|
4149 |
object V608; |
object V616; |
4150 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
4151 |
goto TTL; |
goto TTL; |
4152 |
TTL:; |
TTL:; |
4153 |
V609= (*(LnkLI260))(Cnil,Cnil); |
V617= (*(LnkLI267))(Cnil,Cnil); |
4154 |
V610= make_cons(((/* INLINE-ARGS */V609)==Cnil?Ct:Cnil),Cnil); |
V618= make_cons(((/* INLINE-ARGS */V617)==Cnil?Ct:Cnil),Cnil); |
4155 |
V611= append((V608),/* INLINE-ARGS */V610); |
V619= append((V616),/* INLINE-ARGS */V618); |
4156 |
V612= make_cons(VV[215],/* INLINE-ARGS */V611); |
V620= make_cons(VV[222],/* INLINE-ARGS */V619); |
4157 |
(void)((*(LnkLI260))(Ct,/* INLINE-ARGS */V612)); |
(void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V620)); |
4158 |
V613= make_cons(VV[215],(V608)); |
V621= make_cons(VV[222],(V616)); |
4159 |
{object V614 = (*(LnkLI265))(/* INLINE-ARGS */V613); |
{object V622 = (*(LnkLI272))(/* INLINE-ARGS */V621); |
4160 |
VMR42(V614)} |
VMR42(V622)} |
4161 |
return Cnil; |
return Cnil; |
4162 |
} |
} |
4163 |
/* local entry for function SET-DBIND */ |
/* local entry for function SET-DBIND */ |
4164 |
|
|
4165 |
static object LI44(V617,V618) |
static object LI44(V625,V626) |
4166 |
|
|
4167 |
object V617;object V618; |
object V625;object V626; |
4168 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
4169 |
goto TTL; |
goto TTL; |
4170 |
TTL:; |
TTL:; |
4171 |
princ_str("\n VV[",VV[25]); |
princ_str("\n VV[",VV[25]); |
4172 |
(void)((*(LnkLI267))((V618))); |
(void)((*(LnkLI274))((V626))); |
4173 |
princ_str("]->s.s_dbind = ",VV[25]); |
princ_str("]->s.s_dbind = ",VV[25]); |
4174 |
(void)((*(LnkLI267))((V617))); |
(void)((*(LnkLI274))((V625))); |
4175 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
4176 |
{object V619 = Cnil; |
{object V627 = Cnil; |
4177 |
VMR43(V619)} |
VMR43(V627)} |
4178 |
return Cnil; |
return Cnil; |
4179 |
} |
} |
4180 |
/* local entry for function T1CLINES */ |
/* local entry for function T1CLINES */ |
4181 |
|
|
4182 |
static object LI45(V621) |
static object LI45(V629) |
4183 |
|
|
4184 |
object V621; |
object V629; |
4185 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
4186 |
goto TTL; |
goto TTL; |
4187 |
TTL:; |
TTL:; |
4188 |
{register object V622; |
{register object V630; |
4189 |
register object V623; |
register object V631; |
4190 |
V622= (V621); |
V630= (V629); |
4191 |
V623= car((V622)); |
V631= car((V630)); |
4192 |
goto T2193; |
goto T2243; |
4193 |
T2193:; |
T2243:; |
4194 |
if(!(endp_prop((V622)))){ |
if(!(endp_prop((V630)))){ |
4195 |
goto T2194;} |
goto T2244;} |
4196 |
goto T2189; |
goto T2239; |
4197 |
goto T2194; |
goto T2244; |
4198 |
T2194:; |
T2244:; |
4199 |
if(type_of((V623))==t_string){ |
if(type_of((V631))==t_string){ |
4200 |
goto T2198;} |
goto T2248;} |
4201 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[216],(V623)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V631)))); |
4202 |
goto T2198; |
goto T2248; |
4203 |
T2198:; |
T2248:; |
4204 |
V622= cdr((V622)); |
V630= cdr((V630)); |
4205 |
V623= car((V622)); |
V631= car((V630)); |
4206 |
goto T2193;} |
goto T2243;} |
4207 |
goto T2189; |
goto T2239; |
4208 |
T2189:; |
T2239:; |
4209 |
{object V624; |
{object V632; |
4210 |
V624= list(2,VV[217],(V621)); |
V632= list(2,VV[224],(V629)); |
4211 |
setq(VV[24],make_cons((V624),symbol_value(VV[24]))); |
setq(VV[24],make_cons((V632),symbol_value(VV[24]))); |
4212 |
{object V625 = symbol_value(VV[24]); |
{object V633 = symbol_value(VV[24]); |
4213 |
VMR44(V625)}} |
VMR44(V633)}} |
4214 |
base[0]=base[0]; |
base[0]=base[0]; |
4215 |
return Cnil; |
return Cnil; |
4216 |
} |
} |
4217 |
/* local entry for function T3CLINES */ |
/* local entry for function T3CLINES */ |
4218 |
|
|
4219 |
static object LI46(V627) |
static object LI46(V635) |
4220 |
|
|
4221 |
object V627; |
object V635; |
4222 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
4223 |
goto TTL; |
goto TTL; |
4224 |
TTL:; |
TTL:; |
4225 |
{register object V628; |
{register object V636; |
4226 |
register object V629; |
register object V637; |
4227 |
V628= (V627); |
V636= (V635); |
4228 |
V629= car((V628)); |
V637= car((V636)); |
4229 |
goto T2211; |
goto T2261; |
4230 |
T2211:; |
T2261:; |
4231 |
if(!(endp_prop((V628)))){ |
if(!(endp_prop((V636)))){ |
4232 |
goto T2212;} |
goto T2262;} |
4233 |
{object V630 = Cnil; |
{object V638 = Cnil; |
4234 |
VMR45(V630)} |
VMR45(V638)} |
4235 |
goto T2212; |
goto T2262; |
4236 |
T2212:; |
T2262:; |
4237 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4238 |
(void)((*(LnkLI267))((V629))); |
(void)((*(LnkLI274))((V637))); |
4239 |
V628= cdr((V628)); |
V636= cdr((V636)); |
4240 |
V629= car((V628)); |
V637= car((V636)); |
4241 |
goto T2211;} |
goto T2261;} |
4242 |
base[0]=base[0]; |
base[0]=base[0]; |
4243 |
return Cnil; |
return Cnil; |
4244 |
} |
} |
4245 |
/* local entry for function T1DEFCFUN */ |
/* local entry for function T1DEFCFUN */ |
4246 |
|
|
4247 |
static object LI47(V632) |
static object LI47(V640) |
4248 |
|
|
4249 |
object V632; |
object V640; |
4250 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
4251 |
goto TTL; |
goto TTL; |
4252 |
TTL:; |
TTL:; |
4253 |
{register object V633; |
{register object V641; |
4254 |
V633= Cnil; |
V641= Cnil; |
4255 |
if(endp_prop((V632))){ |
if(endp_prop((V640))){ |
4256 |
goto T2226;} |
goto T2276;} |
4257 |
if(!(endp_prop(cdr((V632))))){ |
if(!(endp_prop(cdr((V640))))){ |
4258 |
goto T2225;} |
goto T2275;} |
4259 |
goto T2226; |
goto T2276; |
4260 |
T2226:; |
T2276:; |
4261 |
V634 = make_fixnum((long)length((V632))); |
V642 = make_fixnum((long)length((V640))); |
4262 |
(void)((*(LnkLI276))(VV[218],small_fixnum(2),V634)); |
(void)((*(LnkLI283))(VV[225],small_fixnum(2),V642)); |
4263 |
goto T2225; |
goto T2275; |
4264 |
T2225:; |
T2275:; |
4265 |
if(type_of(car((V632)))==t_string){ |
if(type_of(car((V640)))==t_string){ |
4266 |
goto T2230;} |
goto T2280;} |
4267 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[219],car((V632))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V640))))); |
4268 |
goto T2230; |
goto T2280; |
4269 |
T2230:; |
T2280:; |
4270 |
{object V635= cadr((V632)); |
{object V643= cadr((V640)); |
4271 |
if(type_of(V635)==t_fixnum|| |
if(type_of(V643)==t_fixnum|| |
4272 |
type_of(V635)==t_bignum|| |
type_of(V643)==t_bignum|| |
4273 |
type_of(V635)==t_ratio|| |
type_of(V643)==t_ratio|| |
4274 |
type_of(V635)==t_shortfloat|| |
type_of(V643)==t_shortfloat|| |
4275 |
type_of(V635)==t_longfloat|| |
type_of(V643)==t_longfloat|| |
4276 |
type_of(V635)==t_complex){ |
type_of(V643)==t_complex){ |
4277 |
goto T2233;}} |
goto T2283;}} |
4278 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[220],cadr((V632))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V640))))); |
4279 |
goto T2233; |
goto T2283; |
4280 |
T2233:; |
T2283:; |
4281 |
{register object V636; |
{register object V644; |
4282 |
register object V637; |
register object V645; |
4283 |
V636= cddr((V632)); |
V644= cddr((V640)); |
4284 |
V637= car((V636)); |
V645= car((V644)); |
4285 |
goto T2240; |
goto T2290; |
4286 |
T2240:; |
T2290:; |
4287 |
if(!(endp_prop((V636)))){ |
if(!(endp_prop((V644)))){ |
4288 |
goto T2241;} |
goto T2291;} |
4289 |
goto T2236; |
goto T2286; |
4290 |
goto T2241; |
goto T2291; |
4291 |
T2241:; |
T2291:; |
4292 |
if(!(type_of((V637))==t_string)){ |
if(!(type_of((V645))==t_string)){ |
4293 |
goto T2247;} |
goto T2297;} |
4294 |
{register object V638; |
{register object V646; |
4295 |
V638= (V637); |
V646= (V645); |
4296 |
V633= make_cons((V638),(V633)); |
V641= make_cons((V646),(V641)); |
4297 |
goto T2245;} |
goto T2295;} |
4298 |
goto T2247; |
goto T2297; |
4299 |
T2247:; |
T2297:; |
4300 |
if(!(type_of((V637))==t_cons)){ |
if(!(type_of((V645))==t_cons)){ |
4301 |
goto T2252;} |
goto T2302;} |
4302 |
if(!(type_of(car((V637)))==t_symbol)){ |
if(!(type_of(car((V645)))==t_symbol)){ |
4303 |
goto T2255;} |
goto T2305;} |
4304 |
base[2]= car((V637)); |
base[2]= car((V645)); |
4305 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4306 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4307 |
vs_top=sup; |
vs_top=sup; |
4308 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4309 |
goto T2257;} |
goto T2307;} |
4310 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[221],car((V637))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V645))))); |
4311 |
goto T2257; |
goto T2307; |
4312 |
T2257:; |
T2307:; |
4313 |
{register object V639; |
{register object V647; |
4314 |
V640= car((V637)); |
V648= car((V645)); |
4315 |
V641= (*(LnkLI333))(cdr((V637))); |
V649= (*(LnkLI340))(cdr((V645))); |
4316 |
V642= make_cons(/* INLINE-ARGS */V640,/* INLINE-ARGS */V641); |
V650= make_cons(/* INLINE-ARGS */V648,/* INLINE-ARGS */V649); |
4317 |
V639= make_cons(/* INLINE-ARGS */V642,Cnil); |
V647= make_cons(/* INLINE-ARGS */V650,Cnil); |
4318 |
V633= make_cons((V639),(V633)); |
V641= make_cons((V647),(V641)); |
4319 |
goto T2245;} |
goto T2295;} |
4320 |
goto T2255; |
goto T2305; |
4321 |
T2255:; |
T2305:; |
4322 |
if(!(type_of(car((V637)))==t_cons)){ |
if(!(type_of(car((V645)))==t_cons)){ |
4323 |
goto T2264;} |
goto T2314;} |
4324 |
if(!(type_of(caar((V637)))==t_symbol)){ |
if(!(type_of(caar((V645)))==t_symbol)){ |
4325 |
goto T2264;} |
goto T2314;} |
4326 |
if(!((caar((V637)))==(VV[91]))){ |
if(!((caar((V645)))==(VV[91]))){ |
4327 |
goto T2271;} |
goto T2321;} |
4328 |
if(!(endp_prop(cdar((V637))))){ |
if(!(endp_prop(cdar((V645))))){ |
4329 |
goto T2273;} |
goto T2323;} |
4330 |
goto T2264; |
goto T2314; |
4331 |
goto T2273; |
goto T2323; |
4332 |
T2273:; |
T2323:; |
4333 |
if(!(((endp_prop(cddar((V637)))?Ct:Cnil))==Cnil)){ |
if(!(((endp_prop(cddar((V645)))?Ct:Cnil))==Cnil)){ |
4334 |
goto T2275;} |
goto T2325;} |
4335 |
goto T2264; |
goto T2314; |
4336 |
goto T2275; |
goto T2325; |
4337 |
T2275:; |
T2325:; |
4338 |
if(!(endp_prop(cdr((V637))))){ |
if(!(endp_prop(cdr((V645))))){ |
4339 |
goto T2277;} |
goto T2327;} |
4340 |
goto T2264; |
goto T2314; |
4341 |
goto T2277; |
goto T2327; |
4342 |
T2277:; |
T2327:; |
4343 |
if(((endp_prop(cddr((V637)))?Ct:Cnil))==Cnil){ |
if(((endp_prop(cddr((V645)))?Ct:Cnil))==Cnil){ |
4344 |
goto T2264;} |
goto T2314;} |
4345 |
goto T2269; |
goto T2319; |
4346 |
goto T2271; |
goto T2321; |
4347 |
T2271:; |
T2321:; |
4348 |
base[2]= caar((V637)); |
base[2]= caar((V645)); |
4349 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4350 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4351 |
vs_top=sup; |
vs_top=sup; |
4352 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4353 |
goto T2264;} |
goto T2314;} |
4354 |
goto T2269; |
goto T2319; |
4355 |
T2269:; |
T2319:; |
4356 |
{register object V643; |
{register object V651; |
4357 |
V644= caar((V637)); |
V652= caar((V645)); |
4358 |
if(!((caar((V637)))==(VV[91]))){ |
if(!((caar((V645)))==(VV[91]))){ |
4359 |
goto T2283;} |
goto T2333;} |
4360 |
V646= (*(LnkLI318))(cadar((V637))); |
V654= (*(LnkLI325))(cadar((V645))); |
4361 |
V645= make_cons(/* INLINE-ARGS */V646,Cnil); |
V653= make_cons(/* INLINE-ARGS */V654,Cnil); |
4362 |
goto T2281; |
goto T2331; |
4363 |
goto T2283; |
goto T2333; |
4364 |
T2283:; |
T2333:; |
4365 |
V645= (*(LnkLI333))(cdar((V637))); |
V653= (*(LnkLI340))(cdar((V645))); |
4366 |
goto T2281; |
goto T2331; |
4367 |
T2281:; |
T2331:; |
4368 |
V647= make_cons(/* INLINE-ARGS */V644,V645); |
V655= make_cons(/* INLINE-ARGS */V652,V653); |
4369 |
V648= (*(LnkLI333))(cdr((V637))); |
V656= (*(LnkLI340))(cdr((V645))); |
4370 |
V643= make_cons(/* INLINE-ARGS */V647,/* INLINE-ARGS */V648); |
V651= make_cons(/* INLINE-ARGS */V655,/* INLINE-ARGS */V656); |
4371 |
V633= make_cons((V643),(V633)); |
V641= make_cons((V651),(V641)); |
4372 |
goto T2245;} |
goto T2295;} |
4373 |
goto T2264; |
goto T2314; |
4374 |
T2264:; |
T2314:; |
4375 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[222],(V637)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V645)))); |
4376 |
goto T2245; |
goto T2295; |
4377 |
goto T2252; |
goto T2302; |
4378 |
T2252:; |
T2302:; |
4379 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[223],(V637)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V645)))); |
4380 |
goto T2245; |
goto T2295; |
4381 |
T2245:; |
T2295:; |
4382 |
V636= cdr((V636)); |
V644= cdr((V644)); |
4383 |
V637= car((V636)); |
V645= car((V644)); |
4384 |
goto T2240;} |
goto T2290;} |
4385 |
goto T2236; |
goto T2286; |
4386 |
T2236:; |
T2286:; |
4387 |
{object V649; |
{object V657; |
4388 |
V650= car((V632)); |
V658= car((V640)); |
4389 |
V651= cadr((V632)); |
V659= cadr((V640)); |
4390 |
V649= list(4,VV[218],/* INLINE-ARGS */V650,/* INLINE-ARGS */V651,reverse((V633))); |
V657= list(4,VV[225],/* INLINE-ARGS */V658,/* INLINE-ARGS */V659,reverse((V641))); |
4391 |
setq(VV[24],make_cons((V649),symbol_value(VV[24]))); |
setq(VV[24],make_cons((V657),symbol_value(VV[24]))); |
4392 |
{object V652 = symbol_value(VV[24]); |
{object V660 = symbol_value(VV[24]); |
4393 |
VMR46(V652)}}} |
VMR46(V660)}}} |
4394 |
base[0]=base[0]; |
base[0]=base[0]; |
4395 |
return Cnil; |
return Cnil; |
4396 |
} |
} |
4397 |
/* local entry for function T3DEFCFUN */ |
/* local entry for function T3DEFCFUN */ |
4398 |
|
|
4399 |
static object LI48(V656,V657,V658) |
static object LI48(V664,V665,V666) |
4400 |
|
|
4401 |
object V656;object V657;object V658; |
object V664;object V665;object V666; |
4402 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
4403 |
goto TTL; |
goto TTL; |
4404 |
TTL:; |
TTL:; |
4405 |
{object V659; |
{object V667; |
4406 |
V659= Cnil; |
V667= Cnil; |
4407 |
(void)((VFUN_NARGS=2,(*(LnkLI305))(VV[224],VV[218]))); |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[231],VV[225]))); |
4408 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4409 |
(void)((*(LnkLI267))((V656))); |
(void)((*(LnkLI274))((V664))); |
4410 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
4411 |
princ_str("\nobject *vs=vs_top;",VV[25]); |
princ_str("\nobject *vs=vs_top;",VV[25]); |
4412 |
princ_str("\nobject *old_top=vs_top+",VV[25]); |
princ_str("\nobject *old_top=vs_top+",VV[25]); |
4413 |
(void)((*(LnkLI267))((V657))); |
(void)((*(LnkLI274))((V665))); |
4414 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
4415 |
if(!(number_compare((V657),small_fixnum(0))>0)){ |
if(!(number_compare((V665),small_fixnum(0))>0)){ |
4416 |
goto T2306;} |
goto T2356;} |
4417 |
princ_str("\n vs_top=old_top;",VV[25]); |
princ_str("\n vs_top=old_top;",VV[25]); |
4418 |
goto T2306; |
goto T2356; |
4419 |
T2306:; |
T2356:; |
4420 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
4421 |
{object V660; |
{object V668; |
4422 |
register object V661; |
register object V669; |
4423 |
V660= (V658); |
V668= (V666); |
4424 |
V661= car((V660)); |
V669= car((V668)); |
4425 |
goto T2316; |
goto T2366; |
4426 |
T2316:; |
T2366:; |
4427 |
if(!(endp_prop((V660)))){ |
if(!(endp_prop((V668)))){ |
4428 |
goto T2317;} |
goto T2367;} |
4429 |
goto T2312; |
goto T2362; |
4430 |
goto T2317; |
goto T2367; |
4431 |
T2317:; |
T2367:; |
4432 |
if(!(type_of((V661))==t_string)){ |
if(!(type_of((V669))==t_string)){ |
4433 |
goto T2323;} |
goto T2373;} |
4434 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4435 |
(void)((*(LnkLI267))((V661))); |
(void)((*(LnkLI274))((V669))); |
4436 |
goto T2321; |
goto T2371; |
4437 |
goto T2323; |
goto T2373; |
4438 |
T2323:; |
T2373:; |
4439 |
if(!((caar((V661)))==(VV[91]))){ |
if(!((caar((V669)))==(VV[91]))){ |
4440 |
goto T2328;} |
goto T2378;} |
4441 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4442 |
(void)((*(LnkLI267))(cadadr((V661)))); |
(void)((*(LnkLI274))(cadadr((V669)))); |
4443 |
{object V662= caadr((V661)); |
{object V670= caadr((V669)); |
4444 |
if((V662!= VV[74]))goto T2333; |
if((V670!= VV[74]))goto T2383; |
4445 |
princ_str("=VV[",VV[25]); |
princ_str("=VV[",VV[25]); |
4446 |
(void)((*(LnkLI267))(cadar((V661)))); |
(void)((*(LnkLI274))(cadar((V669)))); |
4447 |
princ_str("];",VV[25]); |
princ_str("];",VV[25]); |
4448 |
goto T2321; |
goto T2371; |
4449 |
goto T2333; |
goto T2383; |
4450 |
T2333:; |
T2383:; |
4451 |
princ_str("=object_to_",VV[25]); |
princ_str("=object_to_",VV[25]); |
4452 |
base[1]= symbol_name(caadr((V661))); |
base[1]= symbol_name(caadr((V669))); |
4453 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4454 |
Lstring_downcase(); |
Lstring_downcase(); |
4455 |
vs_top=sup; |
vs_top=sup; |
4456 |
V663= vs_base[0]; |
V671= vs_base[0]; |
4457 |
(void)((*(LnkLI267))(V663)); |
(void)((*(LnkLI274))(V671)); |
4458 |
princ_str("(VV[",VV[25]); |
princ_str("(VV[",VV[25]); |
4459 |
(void)((*(LnkLI267))(cadar((V661)))); |
(void)((*(LnkLI274))(cadar((V669)))); |
4460 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4461 |
goto T2321;} |
goto T2371;} |
4462 |
goto T2328; |
goto T2378; |
4463 |
T2328:; |
T2378:; |
4464 |
princ_str("\n{vs_base=vs_top=old_top;",VV[25]); |
princ_str("\n{vs_base=vs_top=old_top;",VV[25]); |
4465 |
{register object V664; |
{register object V672; |
4466 |
register object V665; |
register object V673; |
4467 |
V664= cdar((V661)); |
V672= cdar((V669)); |
4468 |
V665= car((V664)); |
V673= car((V672)); |
4469 |
goto T2350; |
goto T2400; |
4470 |
T2350:; |
T2400:; |
4471 |
if(!(endp_prop((V664)))){ |
if(!(endp_prop((V672)))){ |
4472 |
goto T2351;} |
goto T2401;} |
4473 |
goto T2346; |
goto T2396; |
4474 |
goto T2351; |
goto T2401; |
4475 |
T2351:; |
T2401:; |
4476 |
princ_str("\nvs_push(",VV[25]); |
princ_str("\nvs_push(",VV[25]); |
4477 |
{object V666= car((V665)); |
{object V674= car((V673)); |
4478 |
if((V666!= VV[74]))goto T2358; |
if((V674!= VV[74]))goto T2408; |
4479 |
(void)((*(LnkLI267))(cadr((V665)))); |
(void)((*(LnkLI274))(cadr((V673)))); |
4480 |
goto T2357; |
goto T2407; |
4481 |
goto T2358; |
goto T2408; |
4482 |
T2358:; |
T2408:; |
4483 |
if((V666!= VV[334]))goto T2360; |
if((V674!= VV[341]))goto T2410; |
4484 |
princ_str("code_char((long)",VV[25]); |
princ_str("code_char((long)",VV[25]); |
4485 |
(void)((*(LnkLI267))(cadr((V665)))); |
(void)((*(LnkLI274))(cadr((V673)))); |
4486 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4487 |
goto T2357; |
goto T2407; |
4488 |
goto T2360; |
goto T2410; |
4489 |
T2360:; |
T2410:; |
4490 |
if((V666!= VV[335]))goto T2364; |
if((V674!= VV[342]))goto T2414; |
4491 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
4492 |
goto T2365;} |
goto T2415;} |
4493 |
princ_str("CMP",VV[25]); |
princ_str("CMP",VV[25]); |
4494 |
goto T2365; |
goto T2415; |
4495 |
T2365:; |
T2415:; |
4496 |
princ_str("make_fixnum((long)",VV[25]); |
princ_str("make_fixnum((long)",VV[25]); |
4497 |
(void)((*(LnkLI267))(cadr((V665)))); |
(void)((*(LnkLI274))(cadr((V673)))); |
4498 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4499 |
goto T2357; |
goto T2407; |
4500 |
goto T2364; |
goto T2414; |
4501 |
T2364:; |
T2414:; |
4502 |
if((V666!= VV[336]))goto T2372; |
if((V674!= VV[343]))goto T2422; |
4503 |
princ_str("make_shortfloat((double)",VV[25]); |
princ_str("make_shortfloat((double)",VV[25]); |
4504 |
(void)((*(LnkLI267))(cadr((V665)))); |
(void)((*(LnkLI274))(cadr((V673)))); |
4505 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4506 |
goto T2357; |
goto T2407; |
4507 |
goto T2372; |
goto T2422; |
4508 |
T2372:; |
T2422:; |
4509 |
if((V666!= VV[337]))goto T2376; |
if((V674!= VV[344]))goto T2426; |
4510 |
princ_str("make_longfloat((double)",VV[25]); |
princ_str("make_longfloat((double)",VV[25]); |
4511 |
(void)((*(LnkLI267))(cadr((V665)))); |
(void)((*(LnkLI274))(cadr((V673)))); |
4512 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4513 |
goto T2357; |
goto T2407; |
4514 |
goto T2376; |
goto T2426; |
4515 |
T2376:;} |
T2426:;} |
4516 |
goto T2357; |
goto T2407; |
4517 |
T2357:; |
T2407:; |
4518 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
4519 |
V664= cdr((V664)); |
V672= cdr((V672)); |
4520 |
V665= car((V664)); |
V673= car((V672)); |
4521 |
goto T2350;} |
goto T2400;} |
4522 |
goto T2346; |
goto T2396; |
4523 |
T2346:; |
T2396:; |
4524 |
{register object x= caar((V661)),V667= symbol_value(VV[79]); |
{register object x= caar((V669)),V675= symbol_value(VV[79]); |
4525 |
while(!endp(V667)) |
while(!endp(V675)) |
4526 |
if(type_of(V667->c.c_car)==t_cons &&eql(x,V667->c.c_car->c.c_car)){ |
if(type_of(V675->c.c_car)==t_cons &&eql(x,V675->c.c_car->c.c_car)){ |
4527 |
V659= (V667->c.c_car); |
V667= (V675->c.c_car); |
4528 |
goto T2391; |
goto T2441; |
4529 |
}else V667=V667->c.c_cdr; |
}else V675=V675->c.c_cdr; |
4530 |
V659= Cnil;} |
V667= Cnil;} |
4531 |
goto T2391; |
goto T2441; |
4532 |
T2391:; |
T2441:; |
4533 |
if(((V659))==Cnil){ |
if(((V667))==Cnil){ |
4534 |
goto T2389;} |
goto T2439;} |
4535 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
4536 |
goto T2393;} |
goto T2443;} |
4537 |
princ_str("\nihs_push(VV[",VV[25]); |
princ_str("\nihs_push(VV[",VV[25]); |
4538 |
V668= (*(LnkLI320))(caar((V661))); |
V676= (*(LnkLI327))(caar((V669))); |
4539 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V668)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V676)); |
4540 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4541 |
princ_str("\nL",VV[25]); |
princ_str("\nL",VV[25]); |
4542 |
(void)((*(LnkLI267))(cdr((V659)))); |
(void)((*(LnkLI274))(cdr((V667)))); |
4543 |
princ_str("();",VV[25]); |
princ_str("();",VV[25]); |
4544 |
princ_str("\nihs_pop();",VV[25]); |
princ_str("\nihs_pop();",VV[25]); |
4545 |
goto T2387; |
goto T2437; |
4546 |
goto T2393; |
goto T2443; |
4547 |
T2393:; |
T2443:; |
4548 |
princ_str("\nL",VV[25]); |
princ_str("\nL",VV[25]); |
4549 |
(void)((*(LnkLI267))(cdr((V659)))); |
(void)((*(LnkLI274))(cdr((V667)))); |
4550 |
princ_str("();",VV[25]); |
princ_str("();",VV[25]); |
4551 |
goto T2387; |
goto T2437; |
4552 |
goto T2389; |
goto T2439; |
4553 |
T2389:; |
T2439:; |
4554 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
4555 |
goto T2408;} |
goto T2458;} |
4556 |
princ_str("\nsuper_funcall(VV[",VV[25]); |
princ_str("\nsuper_funcall(VV[",VV[25]); |
4557 |
V669= (*(LnkLI320))(caar((V661))); |
V677= (*(LnkLI327))(caar((V669))); |
4558 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V669)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V677)); |
4559 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4560 |
goto T2387; |
goto T2437; |
4561 |
goto T2408; |
goto T2458; |
4562 |
T2408:; |
T2458:; |
4563 |
if((symbol_value(VV[157]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
4564 |
goto T2414;} |
goto T2464;} |
4565 |
princ_str("\nsuper_funcall_no_event(VV[",VV[25]); |
princ_str("\nsuper_funcall_no_event(VV[",VV[25]); |
4566 |
V670= (*(LnkLI320))(caar((V661))); |
V678= (*(LnkLI327))(caar((V669))); |
4567 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V670)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V678)); |
4568 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4569 |
goto T2387; |
goto T2437; |
4570 |
goto T2414; |
goto T2464; |
4571 |
T2414:; |
T2464:; |
4572 |
princ_str("\nCMPfuncall(VV[",VV[25]); |
princ_str("\nCMPfuncall(VV[",VV[25]); |
4573 |
V671= (*(LnkLI320))(caar((V661))); |
V679= (*(LnkLI327))(caar((V669))); |
4574 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V671)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V679)); |
4575 |
princ_str("]->s.s_gfdef);",VV[25]); |
princ_str("]->s.s_gfdef);",VV[25]); |
4576 |
goto T2387; |
goto T2437; |
4577 |
T2387:; |
T2437:; |
4578 |
if(endp_prop(cdr((V661)))){ |
if(endp_prop(cdr((V669)))){ |
4579 |
goto T2422;} |
goto T2472;} |
4580 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4581 |
(void)((*(LnkLI267))(cadadr((V661)))); |
(void)((*(LnkLI274))(cadadr((V669)))); |
4582 |
{object V672= caadr((V661)); |
{object V680= caadr((V669)); |
4583 |
if((V672!= VV[74]))goto T2429; |
if((V680!= VV[74]))goto T2479; |
4584 |
princ_str("=vs_base[0];",VV[25]); |
princ_str("=vs_base[0];",VV[25]); |
4585 |
goto T2428; |
goto T2478; |
4586 |
goto T2429; |
goto T2479; |
4587 |
T2429:; |
T2479:; |
4588 |
princ_str("=object_to_",VV[25]); |
princ_str("=object_to_",VV[25]); |
4589 |
base[1]= symbol_name(caadr((V661))); |
base[1]= symbol_name(caadr((V669))); |
4590 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4591 |
Lstring_downcase(); |
Lstring_downcase(); |
4592 |
vs_top=sup; |
vs_top=sup; |
4593 |
V673= vs_base[0]; |
V681= vs_base[0]; |
4594 |
(void)((*(LnkLI267))(V673)); |
(void)((*(LnkLI274))(V681)); |
4595 |
princ_str("(vs_base[0]);",VV[25]);} |
princ_str("(vs_base[0]);",VV[25]);} |
4596 |
goto T2428; |
goto T2478; |
4597 |
T2428:; |
T2478:; |
4598 |
{register object V674; |
{register object V682; |
4599 |
register object V675; |
register object V683; |
4600 |
V674= cddr((V661)); |
V682= cddr((V669)); |
4601 |
V675= car((V674)); |
V683= car((V682)); |
4602 |
goto T2439; |
goto T2489; |
4603 |
T2439:; |
T2489:; |
4604 |
if(!(endp_prop((V674)))){ |
if(!(endp_prop((V682)))){ |
4605 |
goto T2440;} |
goto T2490;} |
4606 |
goto T2422; |
goto T2472; |
4607 |
goto T2440; |
goto T2490; |
4608 |
T2440:; |
T2490:; |
4609 |
princ_str("\nvs_base++;",VV[25]); |
princ_str("\nvs_base++;",VV[25]); |
4610 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4611 |
(void)((*(LnkLI267))(cadr((V675)))); |
(void)((*(LnkLI274))(cadr((V683)))); |
4612 |
{object V676= car((V675)); |
{object V684= car((V683)); |
4613 |
if((V676!= VV[74]))goto T2450; |
if((V684!= VV[74]))goto T2500; |
4614 |
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]); |
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]); |
4615 |
goto T2449; |
goto T2499; |
4616 |
goto T2450; |
goto T2500; |
4617 |
T2450:; |
T2500:; |
4618 |
princ_str("=object_to_",VV[25]); |
princ_str("=object_to_",VV[25]); |
4619 |
base[3]= symbol_name(car((V675))); |
base[3]= symbol_name(car((V683))); |
4620 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4621 |
Lstring_downcase(); |
Lstring_downcase(); |
4622 |
vs_top=sup; |
vs_top=sup; |
4623 |
V677= vs_base[0]; |
V685= vs_base[0]; |
4624 |
(void)((*(LnkLI267))(V677)); |
(void)((*(LnkLI274))(V685)); |
4625 |
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);} |
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);} |
4626 |
goto T2449; |
goto T2499; |
4627 |
T2449:; |
T2499:; |
4628 |
V674= cdr((V674)); |
V682= cdr((V682)); |
4629 |
V675= car((V674)); |
V683= car((V682)); |
4630 |
goto T2439;} |
goto T2489;} |
4631 |
goto T2422; |
goto T2472; |
4632 |
T2422:; |
T2472:; |
4633 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4634 |
goto T2321; |
goto T2371; |
4635 |
T2321:; |
T2371:; |
4636 |
V660= cdr((V660)); |
V668= cdr((V668)); |
4637 |
V661= car((V660)); |
V669= car((V668)); |
4638 |
goto T2316;} |
goto T2366;} |
4639 |
goto T2312; |
goto T2362; |
4640 |
T2312:; |
T2362:; |
4641 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4642 |
princ_str("\nvs_top=vs;",VV[25]); |
princ_str("\nvs_top=vs;",VV[25]); |
4643 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4644 |
{object V678 = Cnil; |
{object V686 = Cnil; |
4645 |
VMR47(V678)}} |
VMR47(V686)}} |
4646 |
base[0]=base[0]; |
base[0]=base[0]; |
4647 |
return Cnil; |
return Cnil; |
4648 |
} |
} |
4649 |
/* local entry for function T1DEFENTRY */ |
/* local entry for function T1DEFENTRY */ |
4650 |
|
|
4651 |
static object LI49(V680) |
static object LI49(V688) |
4652 |
|
|
4653 |
register object V680; |
register object V688; |
4654 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
4655 |
goto TTL; |
goto TTL; |
4656 |
TTL:; |
TTL:; |
4657 |
{register object V681; |
{register object V689; |
4658 |
register object V682; |
register object V690; |
4659 |
object V683; |
object V691; |
4660 |
register object V684; |
register object V692; |
4661 |
V681= Cnil; |
V689= Cnil; |
4662 |
V682= Cnil; |
V690= Cnil; |
4663 |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
4664 |
V683= symbol_value(VV[61]); |
V691= symbol_value(VV[61]); |
4665 |
V684= Cnil; |
V692= Cnil; |
4666 |
if(endp_prop((V680))){ |
if(endp_prop((V688))){ |
4667 |
goto T2479;} |
goto T2529;} |
4668 |
if(endp_prop(cdr((V680)))){ |
if(endp_prop(cdr((V688)))){ |
|
goto T2479;} |
|
|
if(!(endp_prop(cddr((V680))))){ |
|
|
goto T2478;} |
|
|
goto T2479; |
|
|
T2479:; |
|
|
V685 = make_fixnum((long)length((V680))); |
|
|
(void)((*(LnkLI276))(VV[225],small_fixnum(3),V685)); |
|
|
goto T2478; |
|
|
T2478:; |
|
|
if(type_of(car((V680)))==t_symbol){ |
|
|
goto T2485;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[226],car((V680))))); |
|
|
goto T2485; |
|
|
T2485:; |
|
|
{register object V686; |
|
|
register object V687; |
|
|
V686= cadr((V680)); |
|
|
V687= car((V686)); |
|
|
goto T2492; |
|
|
T2492:; |
|
|
if(!(endp_prop((V686)))){ |
|
|
goto T2493;} |
|
|
goto T2488; |
|
|
goto T2493; |
|
|
T2493:; |
|
|
{register object x= (V687),V688= VV[227]; |
|
|
while(!endp(V688)) |
|
|
if(eql(x,V688->c.c_car)){ |
|
|
goto T2497; |
|
|
}else V688=V688->c.c_cdr;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[228],(V687)))); |
|
|
goto T2497; |
|
|
T2497:; |
|
|
V686= cdr((V686)); |
|
|
V687= car((V686)); |
|
|
goto T2492;} |
|
|
goto T2488; |
|
|
T2488:; |
|
|
V684= caddr((V680)); |
|
|
if(!(type_of((V684))==t_symbol)){ |
|
|
goto T2509;} |
|
|
V681= VV[74]; |
|
|
base[1]= symbol_name((V684)); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
Lstring_downcase(); |
|
|
vs_top=sup; |
|
|
V682= vs_base[0]; |
|
|
goto T2507; |
|
|
goto T2509; |
|
|
T2509:; |
|
|
if(!(type_of((V684))==t_string)){ |
|
|
goto T2516;} |
|
|
V681= VV[74]; |
|
|
V682= (V684); |
|
|
goto T2507; |
|
|
goto T2516; |
|
|
T2516:; |
|
|
if(!(type_of((V684))==t_cons)){ |
|
|
goto T2522;} |
|
|
{register object x= car((V684)),V689= VV[229]; |
|
|
while(!endp(V689)) |
|
|
if(eql(x,V689->c.c_car)){ |
|
|
goto T2526; |
|
|
}else V689=V689->c.c_cdr; |
|
|
goto T2522;} |
|
|
goto T2526; |
|
|
T2526:; |
|
|
if(!(type_of(cdr((V684)))==t_cons)){ |
|
|
goto T2522;} |
|
|
if(type_of(cadr((V684)))==t_symbol){ |
|
4669 |
goto T2529;} |
goto T2529;} |
4670 |
if(!(type_of(cadr((V684)))==t_string)){ |
if(!(endp_prop(cddr((V688))))){ |
4671 |
goto T2522;} |
goto T2528;} |
4672 |
goto T2529; |
goto T2529; |
4673 |
T2529:; |
T2529:; |
4674 |
if(!(endp_prop(cddr((V684))))){ |
V693 = make_fixnum((long)length((V688))); |
4675 |
goto T2522;} |
(void)((*(LnkLI283))(VV[232],small_fixnum(3),V693)); |
4676 |
if(!(type_of(cadr((V684)))==t_symbol)){ |
goto T2528; |
4677 |
goto T2537;} |
T2528:; |
4678 |
base[1]= symbol_name(cadr((V684))); |
if(type_of(car((V688)))==t_symbol){ |
4679 |
|
goto T2535;} |
4680 |
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V688))))); |
4681 |
|
goto T2535; |
4682 |
|
T2535:; |
4683 |
|
{register object V694; |
4684 |
|
register object V695; |
4685 |
|
V694= cadr((V688)); |
4686 |
|
V695= car((V694)); |
4687 |
|
goto T2542; |
4688 |
|
T2542:; |
4689 |
|
if(!(endp_prop((V694)))){ |
4690 |
|
goto T2543;} |
4691 |
|
goto T2538; |
4692 |
|
goto T2543; |
4693 |
|
T2543:; |
4694 |
|
{register object x= (V695),V696= VV[234]; |
4695 |
|
while(!endp(V696)) |
4696 |
|
if(eql(x,V696->c.c_car)){ |
4697 |
|
goto T2547; |
4698 |
|
}else V696=V696->c.c_cdr;} |
4699 |
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V695)))); |
4700 |
|
goto T2547; |
4701 |
|
T2547:; |
4702 |
|
V694= cdr((V694)); |
4703 |
|
V695= car((V694)); |
4704 |
|
goto T2542;} |
4705 |
|
goto T2538; |
4706 |
|
T2538:; |
4707 |
|
V692= caddr((V688)); |
4708 |
|
if(!(type_of((V692))==t_symbol)){ |
4709 |
|
goto T2559;} |
4710 |
|
V689= VV[74]; |
4711 |
|
base[1]= symbol_name((V692)); |
4712 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4713 |
Lstring_downcase(); |
Lstring_downcase(); |
4714 |
vs_top=sup; |
vs_top=sup; |
4715 |
V682= vs_base[0]; |
V690= vs_base[0]; |
4716 |
goto T2535; |
goto T2557; |
4717 |
goto T2537; |
goto T2559; |
4718 |
T2537:; |
T2559:; |
4719 |
V682= cadr((V684)); |
if(!(type_of((V692))==t_string)){ |
4720 |
goto T2535; |
goto T2566;} |
4721 |
T2535:; |
V689= VV[74]; |
4722 |
V681= car((V684)); |
V690= (V692); |
4723 |
goto T2507; |
goto T2557; |
4724 |
goto T2522; |
goto T2566; |
4725 |
T2522:; |
T2566:; |
4726 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[230],(V684)))); |
if(!(type_of((V692))==t_cons)){ |
4727 |
goto T2507; |
goto T2572;} |
4728 |
T2507:; |
{register object x= car((V692)),V697= VV[236]; |
4729 |
{object V690; |
while(!endp(V697)) |
4730 |
V690= list(6,VV[225],car((V680)),(V683),cadr((V680)),(V681),(V682)); |
if(eql(x,V697->c.c_car)){ |
4731 |
setq(VV[24],make_cons((V690),symbol_value(VV[24])));} |
goto T2576; |
4732 |
{object V691; |
}else V697=V697->c.c_cdr; |
4733 |
V691= make_cons(car((V680)),(V683)); |
goto T2572;} |
4734 |
setq(VV[79],make_cons((V691),symbol_value(VV[79]))); |
goto T2576; |
4735 |
{object V692 = symbol_value(VV[79]); |
T2576:; |
4736 |
VMR48(V692)}}} |
if(!(type_of(cdr((V692)))==t_cons)){ |
4737 |
|
goto T2572;} |
4738 |
|
if(type_of(cadr((V692)))==t_symbol){ |
4739 |
|
goto T2579;} |
4740 |
|
if(!(type_of(cadr((V692)))==t_string)){ |
4741 |
|
goto T2572;} |
4742 |
|
goto T2579; |
4743 |
|
T2579:; |
4744 |
|
if(!(endp_prop(cddr((V692))))){ |
4745 |
|
goto T2572;} |
4746 |
|
if(!(type_of(cadr((V692)))==t_symbol)){ |
4747 |
|
goto T2587;} |
4748 |
|
base[1]= symbol_name(cadr((V692))); |
4749 |
|
vs_top=(vs_base=base+1)+1; |
4750 |
|
Lstring_downcase(); |
4751 |
|
vs_top=sup; |
4752 |
|
V690= vs_base[0]; |
4753 |
|
goto T2585; |
4754 |
|
goto T2587; |
4755 |
|
T2587:; |
4756 |
|
V690= cadr((V692)); |
4757 |
|
goto T2585; |
4758 |
|
T2585:; |
4759 |
|
V689= car((V692)); |
4760 |
|
goto T2557; |
4761 |
|
goto T2572; |
4762 |
|
T2572:; |
4763 |
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V692)))); |
4764 |
|
goto T2557; |
4765 |
|
T2557:; |
4766 |
|
{object V698; |
4767 |
|
V698= list(6,VV[232],car((V688)),(V691),cadr((V688)),(V689),(V690)); |
4768 |
|
setq(VV[24],make_cons((V698),symbol_value(VV[24])));} |
4769 |
|
{object V699; |
4770 |
|
V699= make_cons(car((V688)),(V691)); |
4771 |
|
setq(VV[79],make_cons((V699),symbol_value(VV[79]))); |
4772 |
|
{object V700 = symbol_value(VV[79]); |
4773 |
|
VMR48(V700)}}} |
4774 |
base[0]=base[0]; |
base[0]=base[0]; |
4775 |
return Cnil; |
return Cnil; |
4776 |
} |
} |
4777 |
/* local entry for function T2DEFENTRY */ |
/* local entry for function T2DEFENTRY */ |
4778 |
|
|
4779 |
static object LI50(V698,V699,V700,V701,V702) |
static object LI50(V706,V707,V708,V709,V710) |
4780 |
|
|
4781 |
object V698;object V699;object V700;object V701;object V702; |
object V706;object V707;object V708;object V709;object V710; |
4782 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
4783 |
goto TTL; |
goto TTL; |
4784 |
TTL:; |
TTL:; |
4785 |
princ_str("\nstatic void L",VV[31]); |
princ_str("\nstatic void L",VV[31]); |
4786 |
(void)((*(LnkLI270))((V699))); |
(void)((*(LnkLI277))((V707))); |
4787 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
4788 |
V703= list(2,VV[91],(V698)); |
V711= list(2,VV[91],(V706)); |
4789 |
V704= list(3,VV[111],/* INLINE-ARGS */V703,(*(LnkLI294))(VV[231],(V699))); |
V712= list(3,VV[111],/* INLINE-ARGS */V711,(*(LnkLI301))(VV[238],(V707))); |
4790 |
{object V705 = (VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V704)); |
{object V713 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V712)); |
4791 |
VMR49(V705)} |
VMR49(V713)} |
4792 |
return Cnil; |
return Cnil; |
4793 |
} |
} |
4794 |
/* local entry for function T3DEFENTRY */ |
/* local entry for function T3DEFENTRY */ |
4795 |
|
|
4796 |
static object LI51(V711,V712,V713,V714,V715) |
static object LI51(V719,V720,V721,V722,V723) |
4797 |
|
|
4798 |
object V711;object V712;object V713;register object V714;object V715; |
object V719;object V720;object V721;register object V722;object V723; |
4799 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
4800 |
goto TTL; |
goto TTL; |
4801 |
TTL:; |
TTL:; |
4802 |
(void)((VFUN_NARGS=2,(*(LnkLI305))(VV[232],(V711)))); |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[239],(V719)))); |
4803 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
4804 |
(void)((*(LnkLI267))((V712))); |
(void)((*(LnkLI274))((V720))); |
4805 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
4806 |
princ_str("\n{ object *old_base=vs_base;",VV[25]); |
princ_str("\n{ object *old_base=vs_base;",VV[25]); |
4807 |
{object V716= (V714); |
{object V724= (V722); |
4808 |
if((V716!= VV[233]))goto T2558; |
if((V724!= VV[240]))goto T2608; |
4809 |
goto T2557; |
goto T2607; |
4810 |
goto T2558; |
goto T2608; |
4811 |
T2558:; |
T2608:; |
4812 |
if((V716!= VV[338]))goto T2559; |
if((V724!= VV[158]))goto T2609; |
4813 |
princ_str("\n char *x;",VV[25]); |
princ_str("\n char *x;",VV[25]); |
4814 |
goto T2557; |
goto T2607; |
4815 |
goto T2559; |
goto T2609; |
4816 |
T2559:; |
T2609:; |
4817 |
princ_str("\n ",VV[25]); |
princ_str("\n ",VV[25]); |
4818 |
base[0]= symbol_name((V714)); |
base[0]= symbol_name((V722)); |
4819 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4820 |
Lstring_downcase(); |
Lstring_downcase(); |
4821 |
vs_top=sup; |
vs_top=sup; |
4822 |
V717= vs_base[0]; |
V725= vs_base[0]; |
4823 |
(void)((*(LnkLI267))(V717)); |
(void)((*(LnkLI274))(V725)); |
4824 |
princ_str(" x;",VV[25]);} |
princ_str(" x;",VV[25]);} |
4825 |
goto T2557; |
goto T2607; |
4826 |
T2557:; |
T2607:; |
4827 |
if((symbol_value(VV[157]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
4828 |
goto T2566;} |
goto T2616;} |
4829 |
princ_str("\n check_arg(",VV[25]); |
princ_str("\n check_arg(",VV[25]); |
4830 |
V718 = make_fixnum((long)length((V713))); |
V726 = make_fixnum((long)length((V721))); |
4831 |
(void)((*(LnkLI267))(V718)); |
(void)((*(LnkLI274))(V726)); |
4832 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
4833 |
goto T2566; |
goto T2616; |
4834 |
T2566:; |
T2616:; |
4835 |
if(((V714))==(VV[233])){ |
if(((V722))==(VV[240])){ |
4836 |
goto T2572;} |
goto T2622;} |
4837 |
princ_str("\n x=",VV[25]); |
princ_str("\n x=",VV[25]); |
4838 |
goto T2572; |
goto T2622; |
4839 |
T2572:; |
T2622:; |
4840 |
princ_str("\n ",VV[25]); |
princ_str("\n ",VV[25]); |
4841 |
(void)((*(LnkLI267))((V715))); |
(void)((*(LnkLI274))((V723))); |
4842 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
4843 |
if(endp_prop((V713))){ |
if(endp_prop((V721))){ |
4844 |
goto T2580;} |
goto T2630;} |
4845 |
{register object V719; |
{register object V727; |
4846 |
register long V720; |
register long V728; |
4847 |
V720= 0; |
V728= 0; |
4848 |
V719= (V713); |
V727= (V721); |
4849 |
goto T2585; |
goto T2635; |
4850 |
T2585:; |
T2635:; |
4851 |
{object V721= car((V719)); |
{object V729= car((V727)); |
4852 |
if((V721!= VV[74]))goto T2589; |
if((V729!= VV[74]))goto T2639; |
4853 |
princ_str("\n vs_base[",VV[25]); |
princ_str("\n vs_base[",VV[25]); |
4854 |
V722 = make_fixnum(V720); |
V730 = make_fixnum(V728); |
4855 |
(void)((*(LnkLI267))(V722)); |
(void)((*(LnkLI274))(V730)); |
4856 |
princ_char(93,VV[25]); |
princ_char(93,VV[25]); |
4857 |
goto T2588; |
goto T2638; |
4858 |
goto T2589; |
goto T2639; |
4859 |
T2589:; |
T2639:; |
4860 |
princ_str("\n object_to_",VV[25]); |
princ_str("\n object_to_",VV[25]); |
4861 |
base[0]= symbol_name(car((V719))); |
base[0]= symbol_name(car((V727))); |
4862 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4863 |
Lstring_downcase(); |
Lstring_downcase(); |
4864 |
vs_top=sup; |
vs_top=sup; |
4865 |
V723= vs_base[0]; |
V731= vs_base[0]; |
4866 |
(void)((*(LnkLI267))(V723)); |
(void)((*(LnkLI274))(V731)); |
4867 |
princ_str("(vs_base[",VV[25]); |
princ_str("(vs_base[",VV[25]); |
4868 |
V724 = make_fixnum(V720); |
V732 = make_fixnum(V728); |
4869 |
(void)((*(LnkLI267))(V724)); |
(void)((*(LnkLI274))(V732)); |
4870 |
princ_str("])",VV[25]);} |
princ_str("])",VV[25]);} |
4871 |
goto T2588; |
goto T2638; |
4872 |
T2588:; |
T2638:; |
4873 |
if(!(endp_prop(cdr((V719))))){ |
if(!(endp_prop(cdr((V727))))){ |
4874 |
goto T2600;} |
goto T2650;} |
4875 |
goto T2580; |
goto T2630; |
4876 |
goto T2600; |
goto T2650; |
4877 |
T2600:; |
T2650:; |
4878 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
4879 |
V719= cdr((V719)); |
V727= cdr((V727)); |
4880 |
V720= (long)(V720)+1; |
V728= (long)(V728)+1; |
4881 |
goto T2585;} |
goto T2635;} |
4882 |
goto T2580; |
goto T2630; |
4883 |
T2580:; |
T2630:; |
4884 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
4885 |
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[25]); |
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[25]); |
4886 |
princ_str("\n vs_base[0]=",VV[25]); |
princ_str("\n vs_base[0]=",VV[25]); |
4887 |
{object V725= (V714); |
{object V733= (V722); |
4888 |
if((V725!= VV[233]))goto T2616; |
if((V733!= VV[240]))goto T2666; |
4889 |
princ_str("Cnil",VV[25]); |
princ_str("Cnil",VV[25]); |
4890 |
goto T2615; |
goto T2665; |
4891 |
goto T2616; |
goto T2666; |
4892 |
T2616:; |
T2666:; |
4893 |
if((V725!= VV[74]))goto T2618; |
if((V733!= VV[74]))goto T2668; |
4894 |
princ_char(120,VV[25]); |
princ_char(120,VV[25]); |
4895 |
goto T2615; |
goto T2665; |
4896 |
goto T2618; |
goto T2668; |
4897 |
T2618:; |
T2668:; |
4898 |
if((V725!= VV[334]))goto T2620; |
if((V733!= VV[341]))goto T2670; |
4899 |
princ_str("code_char(x)",VV[25]); |
princ_str("code_char(x)",VV[25]); |
4900 |
goto T2615; |
goto T2665; |
4901 |
goto T2620; |
goto T2670; |
4902 |
T2620:; |
T2670:; |
4903 |
if((V725!= VV[335]))goto T2622; |
if((V733!= VV[342]))goto T2672; |
4904 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
4905 |
goto T2623;} |
goto T2673;} |
4906 |
princ_str("CMP",VV[25]); |
princ_str("CMP",VV[25]); |
4907 |
goto T2623; |
goto T2673; |
4908 |
T2623:; |
T2673:; |
4909 |
princ_str("make_fixnum(x)",VV[25]); |
princ_str("make_fixnum(x)",VV[25]); |
4910 |
goto T2615; |
goto T2665; |
4911 |
goto T2622; |
goto T2672; |
4912 |
T2622:; |
T2672:; |
4913 |
if((V725!= VV[338]))goto T2628; |
if((V733!= VV[158]))goto T2678; |
4914 |
princ_str("make_simple_string(x)",VV[25]); |
princ_str("make_simple_string(x)",VV[25]); |
4915 |
goto T2615; |
goto T2665; |
4916 |
goto T2628; |
goto T2678; |
4917 |
T2628:; |
T2678:; |
4918 |
if((V725!= VV[336]))goto T2630; |
if((V733!= VV[343]))goto T2680; |
4919 |
princ_str("make_shortfloat(x)",VV[25]); |
princ_str("make_shortfloat(x)",VV[25]); |
4920 |
goto T2615; |
goto T2665; |
4921 |
goto T2630; |
goto T2680; |
4922 |
T2630:; |
T2680:; |
4923 |
if((V725!= VV[337]))goto T2632; |
if((V733!= VV[344]))goto T2682; |
4924 |
princ_str("make_longfloat(x)",VV[25]); |
princ_str("make_longfloat(x)",VV[25]); |
4925 |
goto T2615; |
goto T2665; |
4926 |
goto T2632; |
goto T2682; |
4927 |
T2632:;} |
T2682:;} |
4928 |
goto T2615; |
goto T2665; |
4929 |
T2615:; |
T2665:; |
4930 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
4931 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4932 |
{object V726 = Cnil; |
{object V734 = Cnil; |
4933 |
VMR50(V726)} |
VMR50(V734)} |
4934 |
base[0]=base[0]; |
base[0]=base[0]; |
4935 |
return Cnil; |
return Cnil; |
4936 |
} |
} |
4937 |
/* local entry for function T1DEFLA */ |
/* local entry for function T1DEFLA */ |
4938 |
|
|
4939 |
static object LI52(V728) |
static object LI52(V736) |
4940 |
|
|
4941 |
object V728; |
object V736; |
4942 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
4943 |
goto TTL; |
goto TTL; |
4944 |
TTL:; |
TTL:; |
4945 |
{object V729 = Cnil; |
{object V737 = Cnil; |
4946 |
VMR51(V729)} |
VMR51(V737)} |
4947 |
return Cnil; |
return Cnil; |
4948 |
} |
} |
4949 |
/* local entry for function PARSE-CVSPECS */ |
/* local entry for function PARSE-CVSPECS */ |
4950 |
|
|
4951 |
static object LI53(V731) |
static object LI53(V739) |
4952 |
|
|
4953 |
object V731; |
object V739; |
4954 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
4955 |
goto TTL; |
goto TTL; |
4956 |
TTL:; |
TTL:; |
4957 |
{register object V732; |
{register object V740; |
4958 |
V732= Cnil; |
V740= Cnil; |
4959 |
{register object V733; |
{register object V741; |
4960 |
register object V734; |
register object V742; |
4961 |
V733= (V731); |
V741= (V739); |
4962 |
V734= car((V733)); |
V742= car((V741)); |
4963 |
goto T2641; |
goto T2691; |
4964 |
T2641:; |
T2691:; |
4965 |
if(!(endp_prop((V733)))){ |
if(!(endp_prop((V741)))){ |
4966 |
goto T2642;} |
goto T2692;} |
4967 |
{object V735 = reverse((V732)); |
{object V743 = reverse((V740)); |
4968 |
VMR52(V735)} |
VMR52(V743)} |
4969 |
goto T2642; |
goto T2692; |
4970 |
T2642:; |
T2692:; |
4971 |
if(!(type_of((V734))==t_symbol)){ |
if(!(type_of((V742))==t_symbol)){ |
4972 |
goto T2648;} |
goto T2698;} |
4973 |
{object V736; |
{object V744; |
4974 |
base[2]= symbol_name((V734)); |
base[2]= symbol_name((V742)); |
4975 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4976 |
Lstring_downcase(); |
Lstring_downcase(); |
4977 |
vs_top=sup; |
vs_top=sup; |
4978 |
V737= vs_base[0]; |
V745= vs_base[0]; |
4979 |
V736= list(2,VV[74],V737); |
V744= list(2,VV[74],V745); |
4980 |
V732= make_cons((V736),(V732)); |
V740= make_cons((V744),(V740)); |
4981 |
goto T2646;} |
goto T2696;} |
4982 |
goto T2648; |
goto T2698; |
4983 |
T2648:; |
T2698:; |
4984 |
if(!(type_of((V734))==t_string)){ |
if(!(type_of((V742))==t_string)){ |
4985 |
goto T2655;} |
goto T2705;} |
4986 |
{object V738; |
{object V746; |
4987 |
V738= list(2,VV[74],(V734)); |
V746= list(2,VV[74],(V742)); |
4988 |
V732= make_cons((V738),(V732)); |
V740= make_cons((V746),(V740)); |
4989 |
goto T2646;} |
goto T2696;} |
4990 |
goto T2655; |
goto T2705; |
4991 |
T2655:; |
T2705:; |
4992 |
if(!(type_of((V734))==t_cons)){ |
if(!(type_of((V742))==t_cons)){ |
4993 |
goto T2660;} |
goto T2710;} |
4994 |
{register object x= car((V734)),V739= VV[234]; |
{register object x= car((V742)),V747= VV[241]; |
4995 |
while(!endp(V739)) |
while(!endp(V747)) |
4996 |
if(eql(x,V739->c.c_car)){ |
if(eql(x,V747->c.c_car)){ |
4997 |
goto T2663; |
goto T2713; |
4998 |
}else V739=V739->c.c_cdr; |
}else V747=V747->c.c_cdr; |
4999 |
goto T2660;} |
goto T2710;} |
5000 |
goto T2663; |
goto T2713; |
5001 |
T2663:; |
T2713:; |
5002 |
{register object V740; |
{register object V748; |
5003 |
register object V741; |
register object V749; |
5004 |
V740= cdr((V734)); |
V748= cdr((V742)); |
5005 |
V741= car((V740)); |
V749= car((V748)); |
5006 |
goto T2667; |
goto T2717; |
5007 |
T2667:; |
T2717:; |
5008 |
if(!(endp_prop((V740)))){ |
if(!(endp_prop((V748)))){ |
5009 |
goto T2668;} |
goto T2718;} |
5010 |
goto T2646; |
goto T2696; |
5011 |
goto T2668; |
goto T2718; |
5012 |
T2668:; |
T2718:; |
5013 |
{register object V742; |
{register object V750; |
5014 |
V743= car((V734)); |
V751= car((V742)); |
5015 |
if(!(type_of((V741))==t_symbol)){ |
if(!(type_of((V749))==t_symbol)){ |
5016 |
goto T2676;} |
goto T2726;} |
5017 |
base[4]= symbol_name((V741)); |
base[4]= symbol_name((V749)); |
5018 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5019 |
Lstring_downcase(); |
Lstring_downcase(); |
5020 |
vs_top=sup; |
vs_top=sup; |
5021 |
V744= vs_base[0]; |
V752= vs_base[0]; |
5022 |
goto T2674; |
goto T2724; |
5023 |
goto T2676; |
goto T2726; |
5024 |
T2676:; |
T2726:; |
5025 |
if(!(type_of((V741))==t_string)){ |
if(!(type_of((V749))==t_string)){ |
5026 |
goto T2680;} |
goto T2730;} |
5027 |
V744= (V741); |
V752= (V749); |
5028 |
goto T2674; |
goto T2724; |
5029 |
goto T2680; |
goto T2730; |
5030 |
T2680:; |
T2730:; |
5031 |
V744= (VFUN_NARGS=2,(*(LnkLI258))(VV[235],(V741))); |
V752= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V749))); |
5032 |
goto T2674; |
goto T2724; |
5033 |
T2674:; |
T2724:; |
5034 |
V742= list(2,/* INLINE-ARGS */V743,V744); |
V750= list(2,/* INLINE-ARGS */V751,V752); |
5035 |
V732= make_cons((V742),(V732));} |
V740= make_cons((V750),(V740));} |
5036 |
V740= cdr((V740)); |
V748= cdr((V748)); |
5037 |
V741= car((V740)); |
V749= car((V748)); |
5038 |
goto T2667;} |
goto T2717;} |
5039 |
goto T2660; |
goto T2710; |
5040 |
T2660:; |
T2710:; |
5041 |
(void)((VFUN_NARGS=2,(*(LnkLI258))(VV[236],(V734)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V742)))); |
5042 |
goto T2646; |
goto T2696; |
5043 |
T2646:; |
T2696:; |
5044 |
V733= cdr((V733)); |
V741= cdr((V741)); |
5045 |
V734= car((V733)); |
V742= car((V741)); |
5046 |
goto T2641;}} |
goto T2691;}} |
5047 |
base[0]=base[0]; |
base[0]=base[0]; |
5048 |
return Cnil; |
return Cnil; |
5049 |
} |
} |
5050 |
/* local entry for function T3LOCAL-DCFUN */ |
/* local entry for function T3LOCAL-DCFUN */ |
5051 |
|
|
5052 |
static object LI54(V750,V751,V752,V753,V754) |
static object LI54(V758,V759,V760,V761,V762) |
5053 |
|
|
5054 |
object V750;object V751;object V752;register object V753;register object V754; |
object V758;object V759;object V760;register object V761;register object V762; |
5055 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
5056 |
bds_check; |
bds_check; |
5057 |
goto TTL; |
goto TTL; |
5058 |
TTL:; |
TTL:; |
5059 |
{object V755; |
{object V763; |
5060 |
register object V756; |
register object V764; |
5061 |
object V757; |
object V765; |
5062 |
if(((V750))==Cnil){ |
if(((V758))==Cnil){ |
5063 |
goto T2695;} |
goto T2745;} |
5064 |
V755= small_fixnum(0); |
V763= small_fixnum(0); |
5065 |
goto T2693; |
goto T2743; |
5066 |
goto T2695; |
goto T2745; |
5067 |
T2695:; |
T2745:; |
5068 |
V755= structure_ref((V753),VV[32],4); |
V763= structure_ref((V761),VV[32],4); |
5069 |
goto T2693; |
goto T2743; |
5070 |
T2693:; |
T2743:; |
5071 |
V756= Cnil; |
V764= Cnil; |
5072 |
bds_bind(VV[20],(*(LnkLI299))(cadr((V754)))); |
bds_bind(VV[20],(*(LnkLI306))(cadr((V762)))); |
5073 |
bds_bind(VV[117],Cnil); |
bds_bind(VV[117],Cnil); |
5074 |
V757= caaddr((V754)); |
V765= caaddr((V762)); |
5075 |
if((structure_ref((V753),VV[32],0))==Cnil){ |
if((structure_ref((V761),VV[32],0))==Cnil){ |
5076 |
goto T2703;} |
goto T2753;} |
5077 |
V758= structure_ref((V753),VV[32],0); |
V766= structure_ref((V761),VV[32],0); |
5078 |
goto T2701; |
goto T2751; |
5079 |
goto T2703; |
goto T2753; |
5080 |
T2703:; |
T2753:; |
5081 |
V758= Cnil; |
V766= Cnil; |
5082 |
goto T2701; |
goto T2751; |
5083 |
T2701:; |
T2751:; |
5084 |
(void)((VFUN_NARGS=2,(*(LnkLI305))(VV[237],V758))); |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[244],V766))); |
5085 |
princ_str("\nstatic void ",VV[25]); |
princ_str("\nstatic void ",VV[25]); |
5086 |
if(((V750))==Cnil){ |
if(((V758))==Cnil){ |
5087 |
goto T2710;} |
goto T2760;} |
5088 |
V759= VV[238]; |
V767= VV[245]; |
5089 |
goto T2708; |
goto T2758; |
5090 |
goto T2710; |
goto T2760; |
5091 |
T2710:; |
T2760:; |
5092 |
V759= VV[239]; |
V767= VV[246]; |
5093 |
goto T2708; |
goto T2758; |
5094 |
T2708:; |
T2758:; |
5095 |
(void)((*(LnkLI267))(V759)); |
(void)((*(LnkLI274))(V767)); |
5096 |
V760= structure_ref((V753),VV[32],3); |
V768= structure_ref((V761),VV[32],3); |
5097 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V760)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V768)); |
5098 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
5099 |
princ_str("base0",VV[25]); |
princ_str("base0",VV[25]); |
5100 |
if(((V757))==Cnil){ |
if(((V765))==Cnil){ |
5101 |
goto T2719;} |
goto T2769;} |
5102 |
V761= VV[240]; |
V769= VV[247]; |
5103 |
goto T2717; |
goto T2767; |
5104 |
goto T2719; |
goto T2769; |
5105 |
T2719:; |
T2769:; |
5106 |
V761= VV[241]; |
V769= VV[248]; |
5107 |
goto T2717; |
goto T2767; |
5108 |
T2717:; |
T2767:; |
5109 |
(void)((*(LnkLI267))(V761)); |
(void)((*(LnkLI274))(V769)); |
5110 |
V762= structure_ref(cadr((V754)),VV[62],1); |
V770= structure_ref(cadr((V762)),VV[62],1); |
5111 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V762,small_fixnum(2))); |
(void)((*(LnkLI308))(/* INLINE-ARGS */V770,small_fixnum(2))); |
5112 |
(void)((*(LnkLI306))(caaddr((V754)),Cnil)); |
(void)((*(LnkLI313))(caaddr((V762)),Cnil)); |
5113 |
princ_str("register object *",VV[25]); |
princ_str("register object *",VV[25]); |
5114 |
(void)((*(LnkLI267))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5115 |
princ_str("base0;",VV[25]); |
princ_str("base0;",VV[25]); |
5116 |
bds_bind(VV[242],(V752)); |
bds_bind(VV[249],(V760)); |
5117 |
bds_bind(VV[128],VV[124]); |
bds_bind(VV[128],VV[124]); |
5118 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
5119 |
bds_bind(VV[129],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
5120 |
bds_bind(VV[130],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
5121 |
bds_bind(VV[131],one_plus((V755))); |
bds_bind(VV[131],one_plus((V763))); |
5122 |
bds_bind(VV[132],(V752)); |
bds_bind(VV[132],(V760)); |
5123 |
bds_bind(VV[133],(V751)); |
bds_bind(VV[133],(V759)); |
5124 |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
5125 |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
5126 |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
5129 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
5130 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
5131 |
bds_bind(VV[141],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
5132 |
V756= (VV[136]->s.s_dbind); |
V764= (VV[136]->s.s_dbind); |
5133 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
5134 |
V763= structure_ref(cadr((V754)),VV[62],1); |
V771= structure_ref(cadr((V762)),VV[62],1); |
5135 |
V764= structure_ref((V753),VV[32],3); |
V772= structure_ref((V761),VV[32],3); |
5136 |
(void)((*(LnkLI307))(/* INLINE-ARGS */V763,/* INLINE-ARGS */V764,VV[243])); |
(void)((*(LnkLI314))(/* INLINE-ARGS */V771,/* INLINE-ARGS */V772,VV[250])); |
5137 |
princ_str("\n VMB",VV[25]); |
princ_str("\n VMB",VV[25]); |
5138 |
(void)((*(LnkLI267))((V756))); |
(void)((*(LnkLI274))((V764))); |
5139 |
princ_str(" VMS",VV[25]); |
princ_str(" VMS",VV[25]); |
5140 |
(void)((*(LnkLI267))((V756))); |
(void)((*(LnkLI274))((V764))); |
5141 |
princ_str(" VMV",VV[25]); |
princ_str(" VMV",VV[25]); |
5142 |
(void)((*(LnkLI267))((V756))); |
(void)((*(LnkLI274))((V764))); |
5143 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
5144 |
goto T2743;} |
goto T2793;} |
5145 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
5146 |
goto T2743; |
goto T2793; |
5147 |
T2743:; |
T2793:; |
5148 |
base[19]= caddr(cddr((V754))); |
base[19]= caddr(cddr((V762))); |
5149 |
vs_top=(vs_base=base+19)+1; |
vs_top=(vs_base=base+19)+1; |
5150 |
(void) (*Lnk308)(); |
(void) (*Lnk315)(); |
5151 |
vs_top=sup; |
vs_top=sup; |
5152 |
if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){ |
5153 |
goto T2751;} |
goto T2801;} |
5154 |
if(((VV[138]->s.s_dbind))!=Cnil){ |
if(((VV[138]->s.s_dbind))!=Cnil){ |
5155 |
goto T2751;} |
goto T2801;} |
5156 |
if(((VV[140]->s.s_dbind))!=Cnil){ |
if(((VV[140]->s.s_dbind))!=Cnil){ |
5157 |
goto T2751;} |
goto T2801;} |
5158 |
goto T2749; |
goto T2799; |
5159 |
goto T2751; |
goto T2801; |
5160 |
T2751:; |
T2801:; |
5161 |
princ_str("\n base[0]=base[0];",VV[25]); |
princ_str("\n base[0]=base[0];",VV[25]); |
5162 |
goto T2749; |
goto T2799; |
5163 |
T2749:; |
T2799:; |
5164 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
5165 |
(void)((*(LnkLI309))((V756),Ct)); |
(void)((*(LnkLI316))((V764),Ct)); |
5166 |
V765= structure_ref((V753),VV[32],3); |
V773= structure_ref((V761),VV[32],3); |
5167 |
{object V766 = (*(LnkLI303))(/* INLINE-ARGS */V765); |
{object V774 = (*(LnkLI310))(/* INLINE-ARGS */V773); |
5168 |
bds_unwind1; |
bds_unwind1; |
5169 |
bds_unwind1; |
bds_unwind1; |
5170 |
bds_unwind1; |
bds_unwind1; |
5182 |
bds_unwind1; |
bds_unwind1; |
5183 |
bds_unwind1; |
bds_unwind1; |
5184 |
bds_unwind1; |
bds_unwind1; |
5185 |
VMR53(V766)}} |
VMR53(V774)}} |
5186 |
base[0]=base[0]; |
base[0]=base[0]; |
5187 |
return Cnil; |
return Cnil; |
5188 |
} |
} |
5189 |
/* local entry for function T3LOCAL-FUN */ |
/* local entry for function T3LOCAL-FUN */ |
5190 |
|
|
5191 |
static object LI55(V772,V773,V774,V775,V776) |
static object LI55(V780,V781,V782,V783,V784) |
5192 |
|
|
5193 |
object V772;object V773;object V774;object V775;object V776; |
object V780;object V781;object V782;object V783;object V784; |
5194 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
5195 |
bds_check; |
bds_check; |
5196 |
goto TTL; |
goto TTL; |
5197 |
TTL:; |
TTL:; |
5198 |
{long V777; |
{long V785; |
5199 |
if(((V772))==Cnil){ |
if(((V780))==Cnil){ |
5200 |
goto T2763;} |
goto T2813;} |
5201 |
V777= 0; |
V785= 0; |
5202 |
goto T2761; |
goto T2811; |
5203 |
goto T2763; |
goto T2813; |
5204 |
T2763:; |
T2813:; |
5205 |
V777= fix(structure_ref((V775),VV[32],4)); |
V785= fix(structure_ref((V783),VV[32],4)); |
5206 |
goto T2761; |
goto T2811; |
5207 |
T2761:; |
T2811:; |
5208 |
bds_bind(VV[20],(*(LnkLI299))(cadr((V776)))); |
bds_bind(VV[20],(*(LnkLI306))(cadr((V784)))); |
5209 |
bds_bind(VV[117],Cnil); |
bds_bind(VV[117],Cnil); |
5210 |
if(!(((V772))==(VV[244]))){ |
if(!(((V780))==(VV[251]))){ |
5211 |
goto T2766;} |
goto T2816;} |
5212 |
{object V778 = (*(LnkLI243))((V772),(V773),(V774),(V775),(V776)); |
{object V786 = (*(LnkLI250))((V780),(V781),(V782),(V783),(V784)); |
5213 |
bds_unwind1; |
bds_unwind1; |
5214 |
bds_unwind1; |
bds_unwind1; |
5215 |
VMR54(V778)} |
VMR54(V786)} |
5216 |
goto T2766; |
goto T2816; |
5217 |
T2766:; |
T2816:; |
5218 |
if((structure_ref((V775),VV[32],0))==Cnil){ |
if((structure_ref((V783),VV[32],0))==Cnil){ |
5219 |
goto T2772;} |
goto T2822;} |
5220 |
V779= structure_ref((V775),VV[32],0); |
V787= structure_ref((V783),VV[32],0); |
5221 |
goto T2770; |
goto T2820; |
5222 |
goto T2772; |
goto T2822; |
5223 |
T2772:; |
T2822:; |
5224 |
V779= Cnil; |
V787= Cnil; |
5225 |
goto T2770; |
goto T2820; |
5226 |
T2770:; |
T2820:; |
5227 |
(void)((VFUN_NARGS=2,(*(LnkLI305))(VV[245],V779))); |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[252],V787))); |
5228 |
princ_str("\nstatic void ",VV[31]); |
princ_str("\nstatic void ",VV[31]); |
5229 |
if(((V772))==Cnil){ |
if(((V780))==Cnil){ |
5230 |
goto T2779;} |
goto T2829;} |
5231 |
V780= VV[246]; |
V788= VV[253]; |
5232 |
goto T2777; |
goto T2827; |
5233 |
goto T2779; |
goto T2829; |
5234 |
T2779:; |
T2829:; |
5235 |
V780= VV[247]; |
V788= VV[254]; |
5236 |
goto T2777; |
goto T2827; |
5237 |
T2777:; |
T2827:; |
5238 |
(void)((*(LnkLI270))(V780)); |
(void)((*(LnkLI277))(V788)); |
5239 |
V781= structure_ref((V775),VV[32],3); |
V789= structure_ref((V783),VV[32],3); |
5240 |
(void)((*(LnkLI270))(/* INLINE-ARGS */V781)); |
(void)((*(LnkLI277))(/* INLINE-ARGS */V789)); |
5241 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
5242 |
princ_str("\nstatic void ",VV[25]); |
princ_str("\nstatic void ",VV[25]); |
5243 |
if(((V772))==Cnil){ |
if(((V780))==Cnil){ |
5244 |
goto T2788;} |
goto T2838;} |
5245 |
V782= VV[248]; |
V790= VV[255]; |
5246 |
goto T2786; |
goto T2836; |
5247 |
goto T2788; |
goto T2838; |
5248 |
T2788:; |
T2838:; |
5249 |
V782= VV[249]; |
V790= VV[256]; |
5250 |
goto T2786; |
goto T2836; |
5251 |
T2786:; |
T2836:; |
5252 |
(void)((*(LnkLI267))(V782)); |
(void)((*(LnkLI274))(V790)); |
5253 |
V783= structure_ref((V775),VV[32],3); |
V791= structure_ref((V783),VV[32],3); |
5254 |
(void)((*(LnkLI267))(/* INLINE-ARGS */V783)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V791)); |
5255 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
5256 |
{register object V784; |
{register object V792; |
5257 |
register long V785; |
register long V793; |
5258 |
V784= make_fixnum(V777); |
V792= make_fixnum(V785); |
5259 |
V785= 0; |
V793= 0; |
5260 |
goto T2796; |
goto T2846; |
5261 |
T2796:; |
T2846:; |
5262 |
V786 = make_fixnum(V785); |
V794 = make_fixnum(V793); |
5263 |
if(!(number_compare(V786,(V784))>=0)){ |
if(!(number_compare(V794,(V792))>=0)){ |
5264 |
goto T2797;} |
goto T2847;} |
5265 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5266 |
V787 = make_fixnum(V785); |
V795 = make_fixnum(V793); |
5267 |
(void)((*(LnkLI267))(V787)); |
(void)((*(LnkLI274))(V795)); |
5268 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
5269 |
goto T2792; |
goto T2842; |
5270 |
goto T2797; |
goto T2847; |
5271 |
T2797:; |
T2847:; |
5272 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5273 |
V788 = make_fixnum(V785); |
V796 = make_fixnum(V793); |
5274 |
(void)((*(LnkLI267))(V788)); |
(void)((*(LnkLI274))(V796)); |
5275 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
5276 |
V785= (long)(V785)+1; |
V793= (long)(V793)+1; |
5277 |
goto T2796;} |
goto T2846;} |
5278 |
goto T2792; |
goto T2842; |
5279 |
T2792:; |
T2842:; |
5280 |
princ_str("\nregister object ",VV[25]); |
princ_str("\nregister object ",VV[25]); |
5281 |
{register object V789; |
{register object V797; |
5282 |
register long V790; |
register long V798; |
5283 |
V789= make_fixnum(V777); |
V797= make_fixnum(V785); |
5284 |
V790= 0; |
V798= 0; |
5285 |
goto T2817; |
goto T2867; |
5286 |
T2817:; |
T2867:; |
5287 |
V791 = make_fixnum(V790); |
V799 = make_fixnum(V798); |
5288 |
if(!(number_compare(V791,(V789))>=0)){ |
if(!(number_compare(V799,(V797))>=0)){ |
5289 |
goto T2818;} |
goto T2868;} |
5290 |
princ_char(42,VV[25]); |
princ_char(42,VV[25]); |
5291 |
(void)((*(LnkLI267))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5292 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5293 |
V792 = make_fixnum(V790); |
V800 = make_fixnum(V798); |
5294 |
(void)((*(LnkLI267))(V792)); |
(void)((*(LnkLI274))(V800)); |
5295 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
5296 |
goto T2813; |
goto T2863; |
5297 |
goto T2818; |
goto T2868; |
5298 |
T2818:; |
T2868:; |
5299 |
princ_char(42,VV[25]); |
princ_char(42,VV[25]); |
5300 |
(void)((*(LnkLI267))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5301 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5302 |
V793 = make_fixnum(V790); |
V801 = make_fixnum(V798); |
5303 |
(void)((*(LnkLI267))(V793)); |
(void)((*(LnkLI274))(V801)); |
5304 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
5305 |
V790= (long)(V790)+1; |
V798= (long)(V798)+1; |
5306 |
goto T2817;} |
goto T2867;} |
5307 |
goto T2813; |
goto T2863; |
5308 |
T2813:; |
T2863:; |
5309 |
V794= structure_ref(cadr((V776)),VV[62],1); |
V802= structure_ref(cadr((V784)),VV[62],1); |
5310 |
(void)((*(LnkLI301))(/* INLINE-ARGS */V794,small_fixnum(2))); |
(void)((*(LnkLI308))(/* INLINE-ARGS */V802,small_fixnum(2))); |
5311 |
bds_bind(VV[128],VV[127]); |
bds_bind(VV[128],VV[127]); |
5312 |
bds_bind(VV[242],(V774)); |
bds_bind(VV[249],(V782)); |
5313 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
5314 |
bds_bind(VV[129],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
5315 |
bds_bind(VV[130],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
5316 |
V795 = make_fixnum(V777); |
V803 = make_fixnum(V785); |
5317 |
bds_bind(VV[131],one_plus(V795)); |
bds_bind(VV[131],one_plus(V803)); |
5318 |
bds_bind(VV[132],(V774)); |
bds_bind(VV[132],(V782)); |
5319 |
bds_bind(VV[133],(V773)); |
bds_bind(VV[133],(V781)); |
5320 |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil)); |
5321 |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
bds_bind(VV[135],(VV[128]->s.s_dbind)); |
5322 |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1))); |
5326 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
5327 |
bds_bind(VV[141],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
5328 |
princ_str("\n{ register object *",VV[25]); |
princ_str("\n{ register object *",VV[25]); |
5329 |
(void)((*(LnkLI267))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5330 |
princ_str("base=vs_base;",VV[25]); |
princ_str("base=vs_base;",VV[25]); |
5331 |
princ_str("\n register object *",VV[25]); |
princ_str("\n register object *",VV[25]); |
5332 |
(void)((*(LnkLI267))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5333 |
princ_str("sup=base+VM",VV[25]); |
princ_str("sup=base+VM",VV[25]); |
5334 |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
5335 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
5336 |
V796= structure_ref(cadr((V776)),VV[62],1); |
V804= structure_ref(cadr((V784)),VV[62],1); |
5337 |
V797= structure_ref((V775),VV[32],3); |
V805= structure_ref((V783),VV[32],3); |
5338 |
(void)((*(LnkLI307))(/* INLINE-ARGS */V796,/* INLINE-ARGS */V797,VV[250])); |
(void)((*(LnkLI314))(/* INLINE-ARGS */V804,/* INLINE-ARGS */V805,VV[257])); |
5339 |
princ_str(" VC",VV[25]); |
princ_str(" VC",VV[25]); |
5340 |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
5341 |
if((symbol_value(VV[157]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
5342 |
goto T2858;} |
goto T2908;} |
5343 |
princ_str("\n vs_reserve(VM",VV[25]); |
princ_str("\n vs_reserve(VM",VV[25]); |
5344 |
(void)((*(LnkLI267))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
5345 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
5346 |
goto T2856; |
goto T2906; |
5347 |
goto T2858; |
goto T2908; |
5348 |
T2858:; |
T2908:; |
5349 |
princ_str("\n vs_check;",VV[25]); |
princ_str("\n vs_check;",VV[25]); |
5350 |
goto T2856; |
goto T2906; |
5351 |
T2856:; |
T2906:; |
5352 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
5353 |
goto T2864;} |
goto T2914;} |
5354 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
5355 |
goto T2864; |
goto T2914; |
5356 |
T2864:; |
T2914:; |
5357 |
if(((V772))==Cnil){ |
if(((V780))==Cnil){ |
5358 |
goto T2870;} |
goto T2920;} |
5359 |
(void)((VFUN_NARGS=2,(*(LnkLI324))(caddr((V776)),caddr(cddr((V776)))))); |
(void)((VFUN_NARGS=2,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784)))))); |
5360 |
goto T2868; |
goto T2918; |
5361 |
goto T2870; |
goto T2920; |
5362 |
T2870:; |
T2920:; |
5363 |
(void)((VFUN_NARGS=3,(*(LnkLI324))(caddr((V776)),caddr(cddr((V776))),(V775)))); |
(void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784))),(V783)))); |
5364 |
goto T2868; |
goto T2918; |
5365 |
T2868:; |
T2918:; |
5366 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
5367 |
{object V798; |
{object V806; |
5368 |
V798= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
V806= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
5369 |
setq(VV[33],make_cons((V798),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V806),symbol_value(VV[33])));} |
5370 |
princ_str("\n#define VC",VV[31]); |
princ_str("\n#define VC",VV[31]); |
5371 |
(void)((*(LnkLI270))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI277))((VV[136]->s.s_dbind))); |
5372 |
V799= (*(LnkLI325))(); |
V807= (*(LnkLI332))(); |
5373 |
bds_unwind1; |
bds_unwind1; |
5374 |
bds_unwind1; |
bds_unwind1; |
5375 |
bds_unwind1; |
bds_unwind1; |
5385 |
bds_unwind1; |
bds_unwind1; |
5386 |
bds_unwind1; |
bds_unwind1; |
5387 |
bds_unwind1; |
bds_unwind1; |
5388 |
V800= structure_ref((V775),VV[32],3); |
V808= structure_ref((V783),VV[32],3); |
5389 |
{object V801 = (*(LnkLI303))(/* INLINE-ARGS */V800); |
{object V809 = (*(LnkLI310))(/* INLINE-ARGS */V808); |
5390 |
bds_unwind1; |
bds_unwind1; |
5391 |
bds_unwind1; |
bds_unwind1; |
5392 |
VMR54(V801)}} |
VMR54(V809)}} |
5393 |
base[0]=base[0]; |
base[0]=base[0]; |
5394 |
return Cnil; |
return Cnil; |
5395 |
} |
} |
5400 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
5401 |
goto TTL; |
goto TTL; |
5402 |
TTL:; |
TTL:; |
5403 |
{register object V802; |
{register object V810; |
5404 |
V802= Cnil; |
V810= Cnil; |
5405 |
{register object V803; |
{register object V811; |
5406 |
register object V804; |
register object V812; |
5407 |
V803= symbol_value(VV[18]); |
V811= symbol_value(VV[18]); |
5408 |
V804= car((V803)); |
V812= car((V811)); |
5409 |
goto T2885; |
goto T2935; |
5410 |
T2885:; |
T2935:; |
5411 |
if(!(endp_prop((V803)))){ |
if(!(endp_prop((V811)))){ |
5412 |
goto T2886;} |
goto T2936;} |
5413 |
goto T2881; |
goto T2931; |
5414 |
goto T2886; |
goto T2936; |
5415 |
T2886:; |
T2936:; |
5416 |
{register object V805; |
{register object V813; |
5417 |
if(!(type_of((V804))==t_cons)){ |
if(!(type_of((V812))==t_cons)){ |
5418 |
goto T2893;} |
goto T2943;} |
5419 |
{register object V806; |
{register object V814; |
5420 |
V806= car((V804)); |
V814= car((V812)); |
5421 |
V804= cdr((V804)); |
V812= cdr((V812)); |
5422 |
V805= (V806); |
V813= (V814); |
5423 |
goto T2891;} |
goto T2941;} |
5424 |
goto T2893; |
goto T2943; |
5425 |
T2893:; |
T2943:; |
5426 |
V805= Ct; |
V813= Ct; |
5427 |
goto T2891; |
goto T2941; |
5428 |
T2891:; |
T2941:; |
5429 |
if(!(((V802))==((V805)))){ |
if(!(((V810))==((V813)))){ |
5430 |
goto T2900;} |
goto T2950;} |
5431 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5432 |
base[2]= VV[251]; |
base[2]= VV[258]; |
5433 |
base[3]= (V804); |
base[3]= (V812); |
5434 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5435 |
Lformat(); |
Lformat(); |
5436 |
vs_top=sup; |
vs_top=sup; |
5437 |
goto T2898; |
goto T2948; |
5438 |
goto T2900; |
goto T2950; |
5439 |
T2900:; |
T2950:; |
5440 |
if(!(((V802))==Cnil)){ |
if(!(((V810))==Cnil)){ |
5441 |
goto T2906;} |
goto T2956;} |
5442 |
goto T2905; |
goto T2955; |
5443 |
goto T2906; |
goto T2956; |
5444 |
T2906:; |
T2956:; |
5445 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5446 |
base[2]= VV[252]; |
base[2]= VV[259]; |
5447 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5448 |
Lformat(); |
Lformat(); |
5449 |
vs_top=sup; |
vs_top=sup; |
5450 |
goto T2905; |
goto T2955; |
5451 |
T2905:; |
T2955:; |
5452 |
V802= (V805); |
V810= (V813); |
5453 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5454 |
base[2]= VV[253]; |
base[2]= VV[260]; |
5455 |
base[3]= (*(LnkLI273))((V802)); |
base[3]= (*(LnkLI280))((V810)); |
5456 |
base[4]= (V804); |
base[4]= (V812); |
5457 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
5458 |
Lformat(); |
Lformat(); |
5459 |
vs_top=sup; |
vs_top=sup; |
5460 |
goto T2898; |
goto T2948; |
5461 |
T2898:; |
T2948:; |
5462 |
if(!(((V802))==(VV[254]))){ |
if(!(((V810))==(VV[261]))){ |
5463 |
goto T2890;} |
goto T2940;} |
5464 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5465 |
base[2]= VV[255]; |
base[2]= VV[262]; |
5466 |
base[3]= (V804); |
base[3]= (V812); |
5467 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5468 |
Lformat(); |
Lformat(); |
5469 |
vs_top=sup;} |
vs_top=sup;} |
5470 |
goto T2890; |
goto T2940; |
5471 |
T2890:; |
T2940:; |
5472 |
V803= cdr((V803)); |
V811= cdr((V811)); |
5473 |
V804= car((V803)); |
V812= car((V811)); |
5474 |
goto T2885;} |
goto T2935;} |
5475 |
goto T2881; |
goto T2931; |
5476 |
T2881:; |
T2931:; |
5477 |
if(symbol_value(VV[18])==Cnil){ |
if(symbol_value(VV[18])==Cnil){ |
5478 |
goto T2926;} |
goto T2976;} |
5479 |
base[0]= symbol_value(VV[31]); |
base[0]= symbol_value(VV[31]); |
5480 |
base[1]= VV[256]; |
base[1]= VV[263]; |
5481 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5482 |
Lformat(); |
Lformat(); |
5483 |
vs_top=sup; |
vs_top=sup; |
5484 |
goto T2926; |
goto T2976; |
5485 |
T2926:; |
T2976:; |
5486 |
if(eql(symbol_value(VV[141]),small_fixnum(0))){ |
if(eql(symbol_value(VV[141]),small_fixnum(0))){ |
5487 |
goto T2930;} |
goto T2980;} |
5488 |
base[0]= symbol_value(VV[31]); |
base[0]= symbol_value(VV[31]); |
5489 |
base[1]= VV[257]; |
base[1]= VV[264]; |
5490 |
base[2]= symbol_value(VV[141]); |
base[2]= symbol_value(VV[141]); |
5491 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
5492 |
Lformat(); |
Lformat(); |
5493 |
vs_top=sup; |
vs_top=sup; |
5494 |
{object V807 = vs_base[0]; |
{object V815 = vs_base[0]; |
5495 |
VMR55(V807)} |
VMR55(V815)} |
5496 |
goto T2930; |
goto T2980; |
5497 |
T2930:; |
T2980:; |
5498 |
{object V808 = Cnil; |
{object V816 = Cnil; |
5499 |
VMR55(V808)}} |
VMR55(V816)}} |
5500 |
base[0]=base[0]; |
base[0]=base[0]; |
5501 |
return Cnil; |
return Cnil; |
5502 |
} |
} |
5507 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5508 |
register object *sup=base+VM56; VC56 |
register object *sup=base+VM56; VC56 |
5509 |
vs_reserve(VM56); |
vs_reserve(VM56); |
5510 |
{object V809; |
{object V817; |
5511 |
check_arg(1); |
check_arg(1); |
5512 |
V809=(base[0]); |
V817=(base[0]); |
5513 |
vs_top=sup; |
vs_top=sup; |
5514 |
goto TTL; |
goto TTL; |
5515 |
TTL:; |
TTL:; |
5516 |
V810= structure_ref((V809),VV[69],4); |
V818= structure_ref((V817),VV[69],4); |
5517 |
if(eql(/* INLINE-ARGS */V810,VV[72])){ |
if(eql(/* INLINE-ARGS */V818,VV[72])){ |
5518 |
goto T2936;} |
goto T2986;} |
5519 |
goto T2935; |
goto T2985; |
5520 |
goto T2936; |
goto T2986; |
5521 |
T2936:; |
T2986:; |
5522 |
(VV[153]->s.s_dbind)= Ct; |
(VV[153]->s.s_dbind)= Ct; |
5523 |
goto T2935; |
goto T2985; |
5524 |
T2935:; |
T2985:; |
5525 |
{object V811; |
{object V819; |
5526 |
V811= (*(LnkLI339))((V809)); |
V819= (*(LnkLI345))((V817)); |
5527 |
if(((V811))==Cnil){ |
if(((V819))==Cnil){ |
5528 |
goto T2941;} |
goto T2991;} |
5529 |
{object V812; |
{object V820; |
5530 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
5531 |
V812= symbol_value(VV[88]); |
V820= symbol_value(VV[88]); |
5532 |
(void)(structure_set((V809),VV[69],1,(V811))); |
(void)(structure_set((V817),VV[69],1,(V819))); |
5533 |
(void)(structure_set((V809),VV[69],4,(V812))); |
(void)(structure_set((V817),VV[69],4,(V820))); |
5534 |
princ_str("\n ",VV[25]); |
princ_str("\n ",VV[25]); |
5535 |
if((base0[1])!=Cnil){ |
if((base0[1])!=Cnil){ |
5536 |
goto T2948;} |
goto T2998;} |
5537 |
princ_char(123,VV[25]); |
princ_char(123,VV[25]); |
5538 |
base0[1]= Ct; |
base0[1]= Ct; |
5539 |
goto T2948; |
goto T2998; |
5540 |
T2948:; |
T2998:; |
5541 |
base[1]= (V809); |
base[1]= (V817); |
5542 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5543 |
(void) (*Lnk340)(); |
(void) (*Lnk346)(); |
5544 |
return;} |
return;} |
5545 |
goto T2941; |
goto T2991; |
5546 |
T2941:; |
T2991:; |
5547 |
base[1]= Cnil; |
base[1]= Cnil; |
5548 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5549 |
return;} |
return;} |
5550 |
} |
} |
5551 |
} |
} |
5552 |
static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* WT-VAR-DECL */ |
static void LnkT346(){ call_or_link(VV[346],(void **)&Lnk346);} /* WT-VAR-DECL */ |
5553 |
static object LnkTLI339(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[339],(void **)&LnkLI339,1,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
static object LnkTLI345(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[345],(void **)&LnkLI345,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
5554 |
static object LnkTLI243(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[243],(void **)&LnkLI243,5,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */ |
static object LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)&LnkLI250,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */ |
5555 |
static object LnkTLI333(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[333],(void **)&LnkLI333,1,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */ |
static object LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)&LnkLI340,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */ |
5556 |
static object LnkTLI332(){return call_proc0(VV[332],(void **)&LnkLI332);} /* WFS-ERROR */ |
static object LnkTLI339(){return call_proc0(VV[339],(void **)&LnkLI339);} /* WFS-ERROR */ |
5557 |
static void LnkT331(){ call_or_link(VV[331],(void **)&Lnk331);} /* C2DM */ |
static void LnkT338(){ call_or_link(VV[338],(void **)&Lnk338);} /* C2DM */ |
5558 |
static object LnkTLI330(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[330],(void **)&LnkLI330,3,ap);va_end(ap);return V1;} /* C1DM */ |
static object LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[337],(void **)&LnkLI337,3,first,ap);va_end(ap);return V1;} /* C1DM */ |
5559 |
static object LnkTLI329(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[329],(void **)&LnkLI329,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */ |
static object LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[336],(void **)&LnkLI336,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */ |
5560 |
static object LnkTLI328(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[328],(void **)&LnkLI328,258,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */ |
static object LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[335],(void **)&LnkLI335,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */ |
5561 |
static object LnkTLI327(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[327],(void **)&LnkLI327,ap);va_end(ap);return V1;} /* WARN */ |
static object LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)&LnkLI334,first,ap);va_end(ap);return V1;} /* WARN */ |
5562 |
static object LnkTLI326(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[326],(void **)&LnkLI326,1,ap);va_end(ap);return V1;} /* REGISTER */ |
static object LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)&LnkLI333,1,first,ap);va_end(ap);return V1;} /* REGISTER */ |
5563 |
static object LnkTLI325(){return call_proc0(VV[325],(void **)&LnkLI325);} /* WT-CVARS */ |
static object LnkTLI332(){return call_proc0(VV[332],(void **)&LnkLI332);} /* WT-CVARS */ |
5564 |
static object LnkTLI324(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[324],(void **)&LnkLI324,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */ |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[331],(void **)&LnkLI331,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */ |
5565 |
static object LnkTLI323(){return call_proc0(VV[323],(void **)&LnkLI323);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI330(){return call_proc0(VV[330],(void **)&LnkLI330);} /* CLOSE-INLINE-BLOCKS */ |
5566 |
static object LnkTLI322(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[322],(void **)&LnkLI322,1,ap);va_end(ap);return V1;} /* WT-VS */ |
static object LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)&LnkLI329,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
5567 |
static object LnkTLI321(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[321],(void **)&LnkLI321,1,ap);va_end(ap);return V1;} /* C2BIND */ |
static object LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* C2BIND */ |
5568 |
static object LnkTLI320(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[320],(void **)&LnkLI320,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
static object LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)&LnkLI327,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
5569 |
static object LnkTLI319(){return call_proc0(VV[319],(void **)&LnkLI319);} /* BABOON */ |
static object LnkTLI326(){return call_proc0(VV[326],(void **)&LnkLI326);} /* BABOON */ |
5570 |
static object LnkTLI318(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[318],(void **)&LnkLI318,1,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
static object LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)&LnkLI325,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
5571 |
static void LnkT317(){ call_or_link(VV[317],(void **)&Lnk317);} /* INC-INLINE-BLOCKS */ |
static void LnkT324(){ call_or_link(VV[324],(void **)&Lnk324);} /* INC-INLINE-BLOCKS */ |
5572 |
static object LnkTLI316(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[316],(void **)&LnkLI316,ap);va_end(ap);return V1;} /* CS-PUSH */ |
static object LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[323],(void **)&LnkLI323,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
5573 |
static object LnkTLI315(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[315],(void **)&LnkLI315,2,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
static object LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)&LnkLI322,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
5574 |
static object LnkTLI314(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[314],(void **)&LnkLI314,2,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
static object LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)&LnkLI321,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
5575 |
static object LnkTLI313(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[313],(void **)&LnkLI313,1,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */ |
static object LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)&LnkLI320,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */ |
5576 |
static object LnkTLI312(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[312],(void **)&LnkLI312,1,ap);va_end(ap);return V1;} /* WT-LIST */ |
static object LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[319],(void **)&LnkLI319,first,ap);va_end(ap);return V1;} /* CONCATENATE */ |
5577 |
static object LnkTLI311(){return call_proc0(VV[311],(void **)&LnkLI311);} /* CVS-PUSH */ |
static object LnkTLI318(){return call_proc0(VV[318],(void **)&LnkLI318);} /* CVS-PUSH */ |
5578 |
static object LnkTLI310(){return call_proc0(VV[310],(void **)&LnkLI310);} /* VS-PUSH */ |
static object LnkTLI317(){return call_proc0(VV[317],(void **)&LnkLI317);} /* VS-PUSH */ |
5579 |
static object LnkTLI309(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[309],(void **)&LnkLI309,2,ap);va_end(ap);return V1;} /* WT-V*-MACROS */ |
static object LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */ |
5580 |
static void LnkT308(){ call_or_link(VV[308],(void **)&Lnk308);} /* C2EXPR */ |
static void LnkT315(){ call_or_link(VV[315],(void **)&Lnk315);} /* C2EXPR */ |
5581 |
static object LnkTLI307(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[307],(void **)&LnkLI307,3,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */ |
static object LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)&LnkLI314,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */ |
5582 |
static object LnkTLI306(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[306],(void **)&LnkLI306,2,ap);va_end(ap);return V1;} /* WT-REQUIREDS */ |
static object LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)&LnkLI313,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */ |
5583 |
static object LnkTLI305(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[305],(void **)&LnkLI305,ap);va_end(ap);return V1;} /* WT-COMMENT */ |
static object LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[312],(void **)&LnkLI312,first,ap);va_end(ap);return V1;} /* WT-COMMENT */ |
5584 |
static object LnkTLI304(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[304],(void **)&LnkLI304,2,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */ |
static object LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)&LnkLI311,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */ |
5585 |
static object LnkTLI303(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[303],(void **)&LnkLI303,1,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */ |
static object LnkTLI310(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[310],(void **)&LnkLI310,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */ |
5586 |
static void LnkT302(){ call_or_link(VV[302],(void **)&Lnk302);} /* T3DEFUN-AUX */ |
static void LnkT309(){ call_or_link(VV[309],(void **)&Lnk309);} /* T3DEFUN-AUX */ |
5587 |
static object LnkTLI301(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[301],(void **)&LnkLI301,258,ap);va_end(ap);return V1;} /* ANALYZE-REGS */ |
static object LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)&LnkLI308,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */ |
5588 |
static void LnkT300(){ call_or_link(VV[300],(void **)&Lnk300);} /* FIXNUMP */ |
static void LnkT307(){ call_or_link(VV[307],(void **)&Lnk307);} /* FIXNUMP */ |
5589 |
static object LnkTLI299(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[299],(void **)&LnkLI299,1,ap);va_end(ap);return V1;} /* VOLATILE */ |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* VOLATILE */ |
5590 |
static object LnkTLI298(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[298],(void **)&LnkLI298,1,ap);va_end(ap);return V1;} /* MAXARGS */ |
static object LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* MAXARGS */ |
5591 |
static object LnkTLI297(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[297],(void **)&LnkLI297,1,ap);va_end(ap);return V1;} /* VARARG-P */ |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)&LnkLI304,1,first,ap);va_end(ap);return V1;} /* VARARG-P */ |
5592 |
static object LnkTLI296(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[296],(void **)&LnkLI296,3,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */ |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)&LnkLI303,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */ |
5593 |
static object LnkTLI295(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[295],(void **)&LnkLI295,258,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
static object LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)&LnkLI302,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
5594 |
static object LnkTLI294(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[294],(void **)&LnkLI294,2,ap);va_end(ap);return V1;} /* ADD-ADDRESS */ |
static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */ |
5595 |
static object LnkTLI293(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[293],(void **)&LnkLI293,ap);va_end(ap);return V1;} /* ADD-INIT */ |
static object LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[300],(void **)&LnkLI300,first,ap);va_end(ap);return V1;} /* ADD-INIT */ |
5596 |
static object LnkTLI292(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[292],(void **)&LnkLI292,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
static object LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[299],(void **)&LnkLI299,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
5597 |
static object LnkTLI291(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[291],(void **)&LnkLI291,2,ap);va_end(ap);return V1;} /* SHIFT<< */ |
static object LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[298],(void **)&LnkLI298,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */ |
5598 |
static object LnkTLI290(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[290],(void **)&LnkLI290,257,ap);va_end(ap);return V1;} /* F-TYPE */ |
static object LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)&LnkLI297,257,first,ap);va_end(ap);return V1;} /* F-TYPE */ |
5599 |
static void LnkT289(){ call_or_link(VV[289],(void **)&Lnk289);} /* SUBTYPEP */ |
static void LnkT296(){ call_or_link(VV[296],(void **)&Lnk296);} /* SUBTYPEP */ |
5600 |
static void LnkT288(){ call_or_link(VV[288],(void **)&Lnk288);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT295(){ call_or_link(VV[295],(void **)&Lnk295);} /* STRUCTURE-SUBTYPE-P */ |
5601 |
static object LnkTLI287(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[287],(void **)&LnkLI287,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
static object LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[294],(void **)&LnkLI294,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
5602 |
static object LnkTLI286(){return call_proc0(VV[286],(void **)&LnkLI286);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
static object LnkTLI293(){return call_proc0(VV[293],(void **)&LnkLI293);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
5603 |
static object LnkTLI285(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[285],(void **)&LnkLI285,2,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */ |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */ |
5604 |
static object LnkTLI284(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[284],(void **)&LnkLI284,2,ap);va_end(ap);return V1;} /* TYPE-AND */ |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)&LnkLI291,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
5605 |
static object LnkTLI283(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[283],(void **)&LnkLI283,2,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */ |
static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)&LnkLI290,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */ |
5606 |
static object LnkTLI282(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[282],(void **)&LnkLI282,1,ap);va_end(ap);return V1;} /* PROCLAIM */ |
static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */ |
5607 |
static object LnkTLI281(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[281],(void **)&LnkLI281,1,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */ |
static object LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)&LnkLI288,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */ |
5608 |
static object LnkTLI280(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[280],(void **)&LnkLI280,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
static object LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[287],(void **)&LnkLI287,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
5609 |
static object LnkTLI279(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[279],(void **)&LnkLI279,1,ap);va_end(ap);return V1;} /* T1PROGN */ |
static object LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)&LnkLI286,1,first,ap);va_end(ap);return V1;} /* T1PROGN */ |
5610 |
static object LnkTLI276(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[276],(void **)&LnkLI276,3,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
static object LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)&LnkLI283,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
5611 |
static void LnkT275(){ call_or_link(VV[275],(void **)&Lnk275);} /* CMP-EVAL */ |
static void LnkT282(){ call_or_link(VV[282],(void **)&Lnk282);} /* CMP-EVAL */ |
5612 |
static void LnkT274(){ call_or_link(VV[274],(void **)&Lnk274);} /* DECLARATION-TYPE */ |
static void LnkT281(){ call_or_link(VV[281],(void **)&Lnk281);} /* DECLARATION-TYPE */ |
5613 |
static object LnkTLI273(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[273],(void **)&LnkLI273,1,ap);va_end(ap);return V1;} /* REP-TYPE */ |
static object LnkTLI280(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[280],(void **)&LnkLI280,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
5614 |
static void LnkT272(){ call_or_link(VV[272],(void **)&Lnk272);} /* WT-DATA-FILE */ |
static void LnkT279(){ call_or_link(VV[279],(void **)&Lnk279);} /* WT-DATA-FILE */ |
5615 |
static object LnkTLI271(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[271],(void **)&LnkLI271,1,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */ |
static object LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */ |
5616 |
static object LnkTLI270(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[270],(void **)&LnkLI270,1,ap);va_end(ap);return V1;} /* WT-H1 */ |
static object LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)&LnkLI277,1,first,ap);va_end(ap);return V1;} /* WT-H1 */ |
5617 |
static object LnkTLI269(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[269],(void **)&LnkLI269,1,ap);va_end(ap);return V1;} /* WT-FUNCTION-LINK */ |
static object LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* WT-FUNCTION-LINK */ |
5618 |
static void LnkT268(){ call_or_link(VV[268],(void **)&Lnk268);} /* WT-GLOBAL-ENTRY */ |
static void LnkT275(){ call_or_link(VV[275],(void **)&Lnk275);} /* WT-GLOBAL-ENTRY */ |
5619 |
static void LnkT250(){ call_or_link(VV[250],(void **)&Lnk250);} /* T3LOCAL-FUN */ |
static void LnkT257(){ call_or_link(VV[257],(void **)&Lnk257);} /* T3LOCAL-FUN */ |
5620 |
static object LnkTLI267(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[267],(void **)&LnkLI267,1,ap);va_end(ap);return V1;} /* WT1 */ |
static object LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)&LnkLI274,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
5621 |
static object LnkTLI266(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[266],(void **)&LnkLI266,3,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */ |
static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)&LnkLI273,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */ |
5622 |
static object LnkTLI265(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[265],(void **)&LnkLI265,1,ap);va_end(ap);return V1;} /* T1ORDINARY */ |
static object LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* T1ORDINARY */ |
5623 |
static void LnkT264(){ call_or_link(VV[264],(void **)&Lnk264);} /* T1EXPR */ |
static void LnkT271(){ call_or_link(VV[271],(void **)&Lnk271);} /* T1EXPR */ |
5624 |
static object LnkTLI263(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[263],(void **)&LnkLI263,1,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */ |
static object LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */ |
5625 |
static object LnkTLI262(){return call_proc0(VV[262],(void **)&LnkLI262);} /* PRINT-CURRENT-FORM */ |
static object LnkTLI269(){return call_proc0(VV[269],(void **)&LnkLI269);} /* PRINT-CURRENT-FORM */ |
5626 |
static object LnkTLI261(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[261],(void **)&LnkLI261,1,ap);va_end(ap);return V1;} /* WT-DATA-PACKAGE-OPERATION */ |
static object LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)&LnkLI268,1,first,ap);va_end(ap);return V1;} /* WT-DATA-PACKAGE-OPERATION */ |
5627 |
static object LnkTLI260(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[260],(void **)&LnkLI260,2,ap);va_end(ap);return V1;} /* MAYBE-EVAL */ |
static object LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)&LnkLI267,2,first,ap);va_end(ap);return V1;} /* MAYBE-EVAL */ |
5628 |
static object LnkTLI259(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[259],(void **)&LnkLI259,ap);va_end(ap);return V1;} /* CMPWARN */ |
static object LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)&LnkLI266,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
5629 |
static object LnkTLI258(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[258],(void **)&LnkLI258,ap);va_end(ap);return V1;} /* CMPERR */ |
static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[265],(void **)&LnkLI265,first,ap);va_end(ap);return V1;} /* CMPERR */ |
5630 |
|
|
5631 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
5632 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |