18 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
19 |
base[3]= (V1); |
base[3]= (V1); |
20 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
21 |
(void) (*Lnk154)(); |
(void) (*Lnk170)(); |
22 |
return; |
return; |
23 |
} |
} |
24 |
} |
} |
38 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
39 |
base[3]= (V2); |
base[3]= (V2); |
40 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
41 |
(void) (*Lnk154)(); |
(void) (*Lnk170)(); |
42 |
return; |
return; |
43 |
} |
} |
44 |
} |
} |
58 |
base[2]= small_fixnum(2); |
base[2]= small_fixnum(2); |
59 |
base[3]= (V3); |
base[3]= (V3); |
60 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
61 |
(void) (*Lnk154)(); |
(void) (*Lnk170)(); |
62 |
return; |
return; |
63 |
} |
} |
64 |
} |
} |
78 |
base[2]= small_fixnum(2); |
base[2]= small_fixnum(2); |
79 |
base[3]= (V4); |
base[3]= (V4); |
80 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
81 |
(void) (*Lnk154)(); |
(void) (*Lnk170)(); |
82 |
return; |
return; |
83 |
} |
} |
84 |
} |
} |
98 |
base[2]= Cnil; |
base[2]= Cnil; |
99 |
base[3]= (V5); |
base[3]= (V5); |
100 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
101 |
(void) (*Lnk155)(); |
(void) (*Lnk171)(); |
102 |
return; |
return; |
103 |
} |
} |
104 |
} |
} |
118 |
base[2]= Cnil; |
base[2]= Cnil; |
119 |
base[3]= (V6); |
base[3]= (V6); |
120 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
121 |
(void) (*Lnk155)(); |
(void) (*Lnk171)(); |
122 |
return; |
return; |
123 |
} |
} |
124 |
} |
} |
136 |
base[1]= Ct; |
base[1]= Ct; |
137 |
base[2]= Cnil; |
base[2]= Cnil; |
138 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
139 |
(void) (*Lnk155)(); |
(void) (*Lnk171)(); |
140 |
return; |
return; |
141 |
} |
} |
142 |
/* function definition for EMIT-N-N-WRITERS */ |
/* function definition for EMIT-N-N-WRITERS */ |
153 |
base[1]= Ct; |
base[1]= Ct; |
154 |
base[2]= Cnil; |
base[2]= Cnil; |
155 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
156 |
(void) (*Lnk155)(); |
(void) (*Lnk171)(); |
157 |
return; |
return; |
158 |
} |
} |
159 |
/* function definition for EMIT-CHECKING */ |
/* function definition for EMIT-CHECKING */ |
175 |
base[4]= (V7); |
base[4]= (V7); |
176 |
base[5]= (V8); |
base[5]= (V8); |
177 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
178 |
(void) (*Lnk156)(); |
(void) (*Lnk172)(); |
179 |
return; |
return; |
180 |
} |
} |
181 |
} |
} |
198 |
base[4]= (V9); |
base[4]= (V9); |
199 |
base[5]= (V10); |
base[5]= (V10); |
200 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
201 |
(void) (*Lnk156)(); |
(void) (*Lnk172)(); |
202 |
return; |
return; |
203 |
} |
} |
204 |
} |
} |
219 |
base[3]= (V11); |
base[3]= (V11); |
220 |
base[4]= Cnil; |
base[4]= Cnil; |
221 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
222 |
(void) (*Lnk156)(); |
(void) (*Lnk172)(); |
223 |
return; |
return; |
224 |
} |
} |
225 |
} |
} |
240 |
base[3]= (V12); |
base[3]= (V12); |
241 |
base[4]= Cnil; |
base[4]= Cnil; |
242 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
243 |
(void) (*Lnk156)(); |
(void) (*Lnk172)(); |
244 |
return; |
return; |
245 |
} |
} |
246 |
} |
} |
265 |
base[2]= (V13); |
base[2]= (V13); |
266 |
base[3]= (V14); |
base[3]= (V14); |
267 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
268 |
(void) (*Lnk157)(); |
(void) (*Lnk173)(); |
269 |
return; |
return; |
270 |
goto T41; |
goto T41; |
271 |
T41:; |
T41:; |
272 |
{object V15; |
{object V15; |
273 |
object V16; |
object V16; |
274 |
object V17; |
object V17; |
275 |
V15= (*(LnkLI158))((V13),(V14)); |
V15= (*(LnkLI174))((V13),(V14)); |
276 |
base[5]= VV[4]; |
base[5]= VV[4]; |
277 |
base[6]= (V15); |
base[6]= (V15); |
278 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
279 |
(void) (*Lnk159)(); |
(void) (*Lnk175)(); |
280 |
vs_top=sup; |
vs_top=sup; |
281 |
V16= vs_base[0]; |
V16= vs_base[0]; |
282 |
if(((V14))==Cnil){ |
if(((V14))==Cnil){ |
292 |
base[6]= (V15); |
base[6]= (V15); |
293 |
base[7]= listA(4,VV[7],VV[8],(V14),append((V16),(V17))); |
base[7]= listA(4,VV[7],VV[8],(V14),append((V16),(V17))); |
294 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
295 |
(void) (*Lnk160)(); |
(void) (*Lnk176)(); |
296 |
return;} |
return;} |
297 |
} |
} |
298 |
} |
} |
318 |
base[7]= base[2]; |
base[7]= base[2]; |
319 |
base[8]= base[3]; |
base[8]= base[3]; |
320 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
321 |
(void) (*Lnk161)(); |
(void) (*Lnk177)(); |
322 |
vs_top=sup; |
vs_top=sup; |
323 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
324 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
401 |
T77:; |
T77:; |
402 |
base[8]= (V25); |
base[8]= (V25); |
403 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
404 |
(void) (*Lnk162)(); |
(void) (*Lnk178)(); |
405 |
vs_top=sup; |
vs_top=sup; |
406 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
407 |
goto T75; |
goto T75; |
435 |
base[4]= (V32); |
base[4]= (V32); |
436 |
base[5]= (V33); |
base[5]= (V33); |
437 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
438 |
(void) (*Lnk163)(); |
(void) (*Lnk179)(); |
439 |
return; |
return; |
440 |
goto T81; |
goto T81; |
441 |
T81:; |
T81:; |
445 |
object V37; |
object V37; |
446 |
object V38; |
object V38; |
447 |
object V39; |
object V39; |
448 |
V37= (*(LnkLI164))(VV[17]); |
V37= (*(LnkLI180))(VV[17]); |
449 |
V38= (((V31))==(VV[0])?Ct:Cnil); |
V38= (((V31))==(VV[0])?Ct:Cnil); |
450 |
V39= (*(LnkLI165))((V33),VV[18],VV[19]); |
V39= (*(LnkLI181))((V33),VV[18],VV[19]); |
451 |
V34= Cnil; |
V34= Cnil; |
452 |
V35= Cnil; |
V35= Cnil; |
453 |
V36= Cnil; |
V36= Cnil; |
454 |
{object V40= (V31); |
{object V41= V31; |
455 |
if((V40!= VV[0]))goto T93; |
if((V41!= VV[0]))goto T93; |
456 |
V34= (*(LnkLI166))(small_fixnum(0)); |
V34= (*(LnkLI182))(small_fixnum(0)); |
457 |
V35= make_cons((V34),Cnil); |
V35= make_cons((V34),Cnil); |
458 |
goto T92; |
goto T92; |
459 |
goto T93; |
goto T93; |
460 |
T93:; |
T93:; |
461 |
if((V40!= VV[1]))goto T97; |
if((V41!= VV[1]))goto T97; |
462 |
V34= (*(LnkLI166))(small_fixnum(1)); |
V34= (*(LnkLI182))(small_fixnum(1)); |
463 |
V41= (*(LnkLI166))(small_fixnum(0)); |
V42= (*(LnkLI182))(small_fixnum(0)); |
464 |
V42 = (V34); |
V35= list(2,/* INLINE-ARGS */V42,(V34)); |
|
V35= list(2,/* INLINE-ARGS */V41,V42); |
|
465 |
goto T92; |
goto T92; |
466 |
goto T97; |
goto T97; |
467 |
T97:; |
T97:; |
468 |
FEerror("The ECASE key value ~s is illegal.",1,V40); |
base[3]= VV[20]; |
469 |
goto T92;} |
base[4]= VV[21]; |
470 |
|
base[5]= VV[22]; |
471 |
|
base[6]= VV[23]; |
472 |
|
base[7]= V31; |
473 |
|
base[8]= VV[24]; |
474 |
|
base[9]= VV[25]; |
475 |
|
base[10]= VV[26]; |
476 |
|
base[11]= VV[27]; |
477 |
|
vs_top=(vs_base=base+3)+9; |
478 |
|
(void) (*Lnk183)(); |
479 |
|
vs_top=sup;} |
480 |
goto T92; |
goto T92; |
481 |
T92:; |
T92:; |
482 |
{object V43= (V32); |
{object V44= V32; |
483 |
if(!eql(V43,VV[20]))goto T102; |
if(!eql(V44,VV[28]))goto T111; |
484 |
V36= VV[21]; |
V36= VV[29]; |
485 |
goto T101; |
goto T110; |
|
goto T102; |
|
|
T102:; |
|
|
if(!eql(V43,VV[22]))goto T104; |
|
|
V36= VV[23]; |
|
|
goto T101; |
|
|
goto T104; |
|
|
T104:; |
|
|
FEerror("The ECASE key value ~s is illegal.",1,V43); |
|
|
goto T101;} |
|
|
goto T101; |
|
|
T101:; |
|
|
base[3]= (V36); |
|
|
base[4]= (V35); |
|
|
if(((V33))!=Cnil){ |
|
|
goto T111;} |
|
|
V44= VV[25]; |
|
|
goto T109; |
|
486 |
goto T111; |
goto T111; |
487 |
T111:; |
T111:; |
488 |
V44= Cnil; |
if(!eql(V44,VV[30]))goto T113; |
489 |
goto T109; |
V36= VV[31]; |
490 |
T109:; |
goto T110; |
|
V45= list(2,VV[28],(V34)); |
|
|
if(((V33))!=Cnil){ |
|
|
goto T115;} |
|
|
V47= list(3,VV[29],VV[19],list(2,VV[30],(V34))); |
|
|
V46= make_cons(/* INLINE-ARGS */V47,Cnil); |
|
|
goto T113; |
|
|
goto T115; |
|
|
T115:; |
|
|
V46= Cnil; |
|
491 |
goto T113; |
goto T113; |
492 |
T113:; |
T113:; |
493 |
V48= list(2,VV[31],(V34)); |
base[3]= VV[20]; |
494 |
V49= make_cons(/* INLINE-ARGS */V48,Cnil); |
base[4]= VV[21]; |
495 |
V50= append(V46,/* INLINE-ARGS */V49); |
base[5]= VV[22]; |
496 |
V51= make_cons(/* INLINE-ARGS */V45,/* INLINE-ARGS */V50); |
base[6]= VV[23]; |
497 |
V52= list(2,VV[32],(V34)); |
base[7]= V32; |
498 |
|
base[8]= VV[24]; |
499 |
|
base[9]= VV[32]; |
500 |
|
base[10]= VV[26]; |
501 |
|
base[11]= VV[33]; |
502 |
|
vs_top=(vs_base=base+3)+9; |
503 |
|
(void) (*Lnk183)(); |
504 |
|
vs_top=sup;} |
505 |
|
goto T110; |
506 |
|
T110:; |
507 |
|
base[3]= (V36); |
508 |
|
base[4]= (V35); |
509 |
if(((V33))!=Cnil){ |
if(((V33))!=Cnil){ |
510 |
goto T119;} |
goto T129;} |
511 |
V54= list(3,VV[29],VV[19],list(2,VV[33],(V34))); |
V45= VV[35]; |
|
V53= make_cons(/* INLINE-ARGS */V54,Cnil); |
|
|
goto T117; |
|
|
goto T119; |
|
|
T119:; |
|
|
V53= Cnil; |
|
|
goto T117; |
|
|
T117:; |
|
|
V55= list(2,VV[34],(V34)); |
|
|
V56= make_cons(/* INLINE-ARGS */V55,Cnil); |
|
|
V57= append(V53,/* INLINE-ARGS */V56); |
|
|
V58= list(2,VV[26],list(3,VV[27],/* INLINE-ARGS */V51,make_cons(/* INLINE-ARGS */V52,/* INLINE-ARGS */V57))); |
|
|
if(((V38))==Cnil){ |
|
|
goto T123;} |
|
|
V59= VV[35]; |
|
|
goto T121; |
|
|
goto T123; |
|
|
T123:; |
|
|
V59= Cnil; |
|
|
goto T121; |
|
|
T121:; |
|
|
V60= make_cons(/* INLINE-ARGS */V58,V59); |
|
|
V61= append(V44,/* INLINE-ARGS */V60); |
|
|
V62= list(2,VV[39],list(3,VV[40],VV[26],(V37))); |
|
|
if(!(eql(small_fixnum(2),(V32)))){ |
|
|
goto T127;} |
|
|
V63= VV[43]; |
|
|
goto T125; |
|
512 |
goto T127; |
goto T127; |
|
T127:; |
|
|
V63= Cnil; |
|
|
goto T125; |
|
|
T125:; |
|
|
V64= list(2,VV[41],listA(3,VV[37],VV[42],V63)); |
|
|
if(((V38))==Cnil){ |
|
|
goto T131;} |
|
|
V66= list(3,VV[44],VV[45],list(3,VV[29],VV[46],(V39))); |
|
|
V65= make_cons(/* INLINE-ARGS */V66,Cnil); |
|
|
goto T129; |
|
|
goto T131; |
|
|
T131:; |
|
|
V65= Cnil; |
|
513 |
goto T129; |
goto T129; |
514 |
T129:; |
T129:; |
515 |
V67= listA(5,VV[37],VV[38],/* INLINE-ARGS */V62,/* INLINE-ARGS */V64,V65); |
V45= Cnil; |
516 |
V68= listA(3,VV[47],VV[11],(V35)); |
goto T127; |
517 |
if(((V38))==Cnil){ |
T127:; |
518 |
goto T135;} |
V46= list(2,VV[38],(V34)); |
519 |
V69= VV[46]; |
if(((V33))!=Cnil){ |
520 |
|
goto T133;} |
521 |
|
V48= list(3,VV[39],VV[19],list(2,VV[40],(V34))); |
522 |
|
V47= make_cons(/* INLINE-ARGS */V48,Cnil); |
523 |
|
goto T131; |
524 |
goto T133; |
goto T133; |
525 |
|
T133:; |
526 |
|
V47= Cnil; |
527 |
|
goto T131; |
528 |
|
T131:; |
529 |
|
V49= list(2,VV[41],(V34)); |
530 |
|
V50= make_cons(/* INLINE-ARGS */V49,Cnil); |
531 |
|
V51= append(V47,/* INLINE-ARGS */V50); |
532 |
|
V52= make_cons(/* INLINE-ARGS */V46,/* INLINE-ARGS */V51); |
533 |
|
V53= list(2,VV[42],(V34)); |
534 |
|
if(((V33))!=Cnil){ |
535 |
|
goto T137;} |
536 |
|
V55= list(3,VV[39],VV[19],list(2,VV[43],(V34))); |
537 |
|
V54= make_cons(/* INLINE-ARGS */V55,Cnil); |
538 |
|
goto T135; |
539 |
|
goto T137; |
540 |
|
T137:; |
541 |
|
V54= Cnil; |
542 |
goto T135; |
goto T135; |
543 |
T135:; |
T135:; |
544 |
V69= list(3,VV[48],(V39),CMPcar((V35))); |
V56= list(2,VV[44],(V34)); |
545 |
goto T133; |
V57= make_cons(/* INLINE-ARGS */V56,Cnil); |
546 |
T133:; |
V58= append(V54,/* INLINE-ARGS */V57); |
547 |
base[5]= list(3,VV[24],/* INLINE-ARGS */V61,list(4,VV[36],/* INLINE-ARGS */V67,/* INLINE-ARGS */V68,V69)); |
V59= list(2,VV[36],list(3,VV[37],/* INLINE-ARGS */V52,make_cons(/* INLINE-ARGS */V53,/* INLINE-ARGS */V58))); |
548 |
|
if(((V38))==Cnil){ |
549 |
|
goto T141;} |
550 |
|
V60= VV[45]; |
551 |
|
goto T139; |
552 |
|
goto T141; |
553 |
|
T141:; |
554 |
|
V60= Cnil; |
555 |
|
goto T139; |
556 |
|
T139:; |
557 |
|
V61= make_cons(/* INLINE-ARGS */V59,V60); |
558 |
|
V62= append(V45,/* INLINE-ARGS */V61); |
559 |
|
V63= list(2,VV[49],list(3,VV[50],VV[36],(V37))); |
560 |
|
if(!(eql(small_fixnum(2),(V32)))){ |
561 |
|
goto T145;} |
562 |
|
V64= VV[53]; |
563 |
|
goto T143; |
564 |
|
goto T145; |
565 |
|
T145:; |
566 |
|
V64= Cnil; |
567 |
|
goto T143; |
568 |
|
T143:; |
569 |
|
V65= list(2,VV[51],listA(3,VV[47],VV[52],V64)); |
570 |
|
if(((V38))==Cnil){ |
571 |
|
goto T149;} |
572 |
|
V67= list(3,VV[54],VV[55],list(3,VV[39],VV[56],(V39))); |
573 |
|
V66= make_cons(/* INLINE-ARGS */V67,Cnil); |
574 |
|
goto T147; |
575 |
|
goto T149; |
576 |
|
T149:; |
577 |
|
V66= Cnil; |
578 |
|
goto T147; |
579 |
|
T147:; |
580 |
|
V68= listA(5,VV[47],VV[48],/* INLINE-ARGS */V63,/* INLINE-ARGS */V65,V66); |
581 |
|
V69= listA(3,VV[57],VV[11],(V35)); |
582 |
|
if(((V38))==Cnil){ |
583 |
|
goto T153;} |
584 |
|
V70= VV[56]; |
585 |
|
goto T151; |
586 |
|
goto T153; |
587 |
|
T153:; |
588 |
|
V70= list(3,VV[58],(V39),CMPcar((V35))); |
589 |
|
goto T151; |
590 |
|
T151:; |
591 |
|
base[5]= list(3,VV[34],/* INLINE-ARGS */V62,list(4,VV[46],/* INLINE-ARGS */V68,/* INLINE-ARGS */V69,V70)); |
592 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
593 |
(void) (*Lnk160)(); |
(void) (*Lnk176)(); |
594 |
return;} |
return;} |
595 |
} |
} |
596 |
} |
} |
597 |
/* local entry for function EMIT-SLOT-READ-FORM */ |
/* local entry for function EMIT-SLOT-READ-FORM */ |
598 |
|
|
599 |
static object LI17(V73,V74,V75) |
static object LI17(V74,V75,V76) |
600 |
|
|
601 |
object V73;object V74;object V75; |
object V74;object V75;object V76; |
602 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
603 |
goto TTL; |
goto TTL; |
604 |
TTL:; |
TTL:; |
605 |
if(((V73))==Cnil){ |
if(((V74))==Cnil){ |
606 |
goto T138;} |
goto T156;} |
607 |
{object V76 = list(2,VV[49],(V74)); |
{object V77 = list(2,VV[59],(V75)); |
|
VMR17(V76)} |
|
|
goto T138; |
|
|
T138:; |
|
|
{object V77 = list(3,VV[50],(V75),(V74)); |
|
608 |
VMR17(V77)} |
VMR17(V77)} |
609 |
|
goto T156; |
610 |
|
T156:; |
611 |
|
{object V78 = list(3,VV[60],(V76),(V75)); |
612 |
|
VMR17(V78)} |
613 |
return Cnil; |
return Cnil; |
614 |
} |
} |
615 |
/* local entry for function EMIT-BOUNDP-CHECK */ |
/* local entry for function EMIT-BOUNDP-CHECK */ |
616 |
|
|
617 |
static object LI18(V81,V82,V83) |
static object LI18(V82,V83,V84) |
618 |
|
|
619 |
object V81;object V82;object V83; |
object V82;object V83;object V84; |
620 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
621 |
goto TTL; |
goto TTL; |
622 |
TTL:; |
TTL:; |
623 |
V84= list(2,VV[46],(V81)); |
V85= list(2,VV[56],(V82)); |
624 |
V85= make_cons(/* INLINE-ARGS */V84,Cnil); |
V86= make_cons(/* INLINE-ARGS */V85,Cnil); |
625 |
{object V86 = list(3,VV[14],/* INLINE-ARGS */V85,list(4,VV[36],VV[51],listA(3,VV[47],(V82),(V83)),VV[46])); |
{object V87 = list(3,VV[14],/* INLINE-ARGS */V86,list(4,VV[46],VV[61],listA(3,VV[57],(V83),(V84)),VV[56])); |
626 |
VMR18(V86)} |
VMR18(V87)} |
627 |
return Cnil; |
return Cnil; |
628 |
} |
} |
629 |
/* local entry for function EMIT-SLOT-ACCESS */ |
/* local entry for function EMIT-SLOT-ACCESS */ |
630 |
|
|
631 |
static object LI19(V93,V94,V95,V96,V97,V98) |
static object LI19(V94,V95,V96,V97,V98,V99) |
632 |
|
|
633 |
object V93;object V94;object V95;object V96;object V97;object V98; |
object V94;object V95;object V96;object V97;object V98;object V99; |
634 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
635 |
goto TTL; |
goto TTL; |
636 |
TTL:; |
TTL:; |
637 |
{object V99; |
{object V100; |
638 |
V99= (*(LnkLI165))((V94),(V96),(V95)); |
V100= (*(LnkLI181))((V95),(V97),(V96)); |
639 |
{object V100= (V93); |
{object V102= V94; |
640 |
if((V100!= VV[0]))goto T141; |
if((V102!= VV[0]))goto T159; |
641 |
{object V101 = (*(LnkLI167))((V99),(V97),(V98)); |
{object V103 = (*(LnkLI184))((V100),(V98),(V99)); |
642 |
VMR19(V101)} |
VMR19(V103)} |
643 |
goto T141; |
goto T159; |
644 |
T141:; |
T159:; |
645 |
if((V100!= VV[1]))goto T142; |
if((V102!= VV[1]))goto T160; |
646 |
{object V102 = list(3,VV[48],(V99),CMPcar((V98))); |
{object V104 = list(3,VV[58],(V100),CMPcar((V99))); |
647 |
VMR19(V102)} |
VMR19(V104)} |
648 |
goto T142; |
goto T160; |
649 |
T142:; |
T160:; |
650 |
FEerror("The ECASE key value ~s is illegal.",1,V100); |
base[0]= VV[20]; |
651 |
{object V103 = Cnil; |
base[1]= VV[21]; |
652 |
VMR19(V103)}}} |
base[2]= VV[22]; |
653 |
|
base[3]= VV[23]; |
654 |
|
base[4]= V94; |
655 |
|
base[5]= VV[24]; |
656 |
|
base[6]= VV[62]; |
657 |
|
base[7]= VV[26]; |
658 |
|
base[8]= VV[63]; |
659 |
|
vs_top=(vs_base=base+0)+9; |
660 |
|
(void) (*Lnk183)(); |
661 |
|
vs_top=sup; |
662 |
|
{object V105 = vs_base[0]; |
663 |
|
VMR19(V105)}}} |
664 |
|
base[0]=base[0]; |
665 |
return Cnil; |
return Cnil; |
666 |
} |
} |
667 |
/* macro definition for EMIT-READERWRITER-MACRO */ |
/* macro definition for EMIT-READERWRITER-MACRO */ |
673 |
bds_check; |
bds_check; |
674 |
check_arg(2); |
check_arg(2); |
675 |
vs_top=sup; |
vs_top=sup; |
676 |
{object V104=base[0]->c.c_cdr; |
{object V106=base[0]->c.c_cdr; |
677 |
if(endp(V104))invalid_macro_call(); |
if(endp(V106))invalid_macro_call(); |
678 |
base[2]= (V104->c.c_car); |
base[2]= (V106->c.c_car); |
679 |
V104=V104->c.c_cdr; |
V106=V106->c.c_cdr; |
680 |
if(endp(V104))invalid_macro_call(); |
if(endp(V106))invalid_macro_call(); |
681 |
base[3]= (V104->c.c_car); |
base[3]= (V106->c.c_car); |
682 |
V104=V104->c.c_cdr; |
V106=V106->c.c_cdr; |
683 |
if(endp(V104))invalid_macro_call(); |
if(endp(V106))invalid_macro_call(); |
684 |
base[4]= (V104->c.c_car); |
base[4]= (V106->c.c_car); |
685 |
V104=V104->c.c_cdr; |
V106=V106->c.c_cdr; |
686 |
if(!endp(V104))invalid_macro_call();} |
if(!endp(V106))invalid_macro_call();} |
687 |
bds_bind(VV[3],Cnil); |
bds_bind(VV[3],Cnil); |
688 |
bds_bind(VV[2],Ct); |
bds_bind(VV[2],Ct); |
689 |
base[8]= base[2]; |
base[8]= base[2]; |
690 |
base[9]= base[3]; |
base[9]= base[3]; |
691 |
base[10]= base[4]; |
base[10]= base[4]; |
692 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
693 |
(void) (*Lnk154)(); |
(void) (*Lnk170)(); |
694 |
vs_top=sup; |
vs_top=sup; |
695 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
696 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
704 |
{register object *base=vs_base; |
{register object *base=vs_base; |
705 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
706 |
vs_check; |
vs_check; |
707 |
{object V105; |
{object V107; |
708 |
register object V106; |
register object V108; |
709 |
register object V107; |
register object V109; |
710 |
check_arg(3); |
check_arg(3); |
711 |
V105=(base[0]); |
V107=(base[0]); |
712 |
V106=(base[1]); |
V108=(base[1]); |
713 |
V107=(base[2]); |
V109=(base[2]); |
714 |
vs_top=sup; |
vs_top=sup; |
715 |
goto TTL; |
goto TTL; |
716 |
TTL:; |
TTL:; |
717 |
if(((VV[2]->s.s_dbind))!=Cnil){ |
if(((VV[2]->s.s_dbind))!=Cnil){ |
718 |
goto T147;} |
goto T174;} |
719 |
if(((VV[3]->s.s_dbind))==Cnil){ |
if(((VV[3]->s.s_dbind))==Cnil){ |
720 |
goto T147;} |
goto T174;} |
721 |
base[3]= (V105); |
base[3]= (V107); |
722 |
base[4]= (V106); |
base[4]= (V108); |
723 |
base[5]= (V107); |
base[5]= (V109); |
724 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
725 |
(void) (*Lnk168)(); |
(void) (*Lnk185)(); |
726 |
return; |
return; |
|
goto T147; |
|
|
T147:; |
|
|
{register object V108; |
|
|
object V109; |
|
|
{object V110= (V105); |
|
|
if((V110!= VV[0]))goto T156; |
|
|
V111= (*(LnkLI166))(small_fixnum(0)); |
|
|
base[3]= make_cons(/* INLINE-ARGS */V111,Cnil); |
|
|
base[4]= VV[52]; |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
goto T155; |
|
|
goto T156; |
|
|
T156:; |
|
|
if((V110!= VV[1]))goto T159; |
|
|
V112= (*(LnkLI166))(small_fixnum(0)); |
|
|
base[3]= list(2,/* INLINE-ARGS */V112,(*(LnkLI166))(small_fixnum(1))); |
|
|
base[4]= VV[53]; |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
goto T155; |
|
|
goto T159; |
|
|
T159:; |
|
|
FEerror("The ECASE key value ~s is illegal.",1,V110); |
|
|
base[3]= Cnil; |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
goto T155;} |
|
|
goto T155; |
|
|
T155:; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T162;} |
|
|
V108= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T163;} |
|
|
V109= vs_base[0]; |
|
|
vs_top=sup; |
|
|
goto T164; |
|
|
goto T162; |
|
|
T162:; |
|
|
V108= Cnil; |
|
|
goto T163; |
|
|
T163:; |
|
|
V109= Cnil; |
|
|
goto T164; |
|
|
T164:; |
|
|
if(((V106))!=Cnil){ |
|
|
goto T168;} |
|
|
V113= VV[55]; |
|
|
goto T166; |
|
|
goto T168; |
|
|
T168:; |
|
|
V113= Cnil; |
|
|
goto T166; |
|
|
T166:; |
|
|
V114= append(V113,VV[56]); |
|
|
base[3]= make_cons(VV[54],/* INLINE-ARGS */V114); |
|
|
base[4]= (V108); |
|
|
if(((V107))!=Cnil){ |
|
|
goto T174;} |
|
|
V115= VV[57]; |
|
|
goto T172; |
|
727 |
goto T174; |
goto T174; |
728 |
T174:; |
T174:; |
729 |
V115= Cnil; |
{register object V110; |
730 |
goto T172; |
object V111; |
731 |
T172:; |
{object V113= V107; |
732 |
if(((V106))==Cnil){ |
if((V113!= VV[0]))goto T183; |
733 |
goto T178;} |
V114= (*(LnkLI182))(small_fixnum(0)); |
734 |
V116= VV[58]; |
base[3]= make_cons(/* INLINE-ARGS */V114,Cnil); |
735 |
goto T176; |
base[4]= VV[64]; |
736 |
goto T178; |
vs_top=(vs_base=base+3)+2; |
737 |
T178:; |
goto T182; |
738 |
V116= Cnil; |
goto T183; |
739 |
goto T176; |
T183:; |
740 |
T176:; |
if((V113!= VV[1]))goto T186; |
741 |
V117= append(V115,V116); |
V115= (*(LnkLI182))(small_fixnum(0)); |
742 |
V118 = (V108); |
base[3]= list(2,/* INLINE-ARGS */V115,(*(LnkLI182))(small_fixnum(1))); |
743 |
V119 = (V109); |
base[4]= VV[65]; |
744 |
V120= (*(LnkLI170))((V105),(V107),VV[19],VV[18],VV[11],(V108)); |
vs_top=(vs_base=base+3)+2; |
|
V121= listA(3,VV[47],VV[11],(V108)); |
|
|
if(((V106))==Cnil){ |
|
|
goto T182;} |
|
|
V122= VV[18]; |
|
|
goto T180; |
|
745 |
goto T182; |
goto T182; |
|
T182:; |
|
|
V122= Cnil; |
|
|
goto T180; |
|
|
T180:; |
|
|
if(((V107))!=Cnil){ |
|
|
goto T186;} |
|
|
V123= VV[59]; |
|
|
goto T184; |
|
746 |
goto T186; |
goto T186; |
747 |
T186:; |
T186:; |
748 |
|
base[3]= VV[20]; |
749 |
|
base[4]= VV[21]; |
750 |
|
base[5]= VV[22]; |
751 |
|
base[6]= VV[23]; |
752 |
|
base[7]= V107; |
753 |
|
base[8]= VV[24]; |
754 |
|
base[9]= VV[66]; |
755 |
|
base[10]= VV[26]; |
756 |
|
base[11]= VV[67]; |
757 |
|
vs_top=(vs_base=base+3)+9; |
758 |
|
(void) (*Lnk183)();} |
759 |
|
goto T182; |
760 |
|
T182:; |
761 |
|
if(vs_base>=vs_top){vs_top=sup;goto T198;} |
762 |
|
V110= vs_base[0]; |
763 |
|
vs_base++; |
764 |
|
if(vs_base>=vs_top){vs_top=sup;goto T199;} |
765 |
|
V111= vs_base[0]; |
766 |
|
vs_top=sup; |
767 |
|
goto T200; |
768 |
|
goto T198; |
769 |
|
T198:; |
770 |
|
V110= Cnil; |
771 |
|
goto T199; |
772 |
|
T199:; |
773 |
|
V111= Cnil; |
774 |
|
goto T200; |
775 |
|
T200:; |
776 |
|
if(((V108))!=Cnil){ |
777 |
|
goto T204;} |
778 |
|
V116= VV[69]; |
779 |
|
goto T202; |
780 |
|
goto T204; |
781 |
|
T204:; |
782 |
|
V116= Cnil; |
783 |
|
goto T202; |
784 |
|
T202:; |
785 |
|
V117= append(V116,VV[70]); |
786 |
|
base[3]= make_cons(VV[68],/* INLINE-ARGS */V117); |
787 |
|
base[4]= (V110); |
788 |
|
if(((V109))!=Cnil){ |
789 |
|
goto T210;} |
790 |
|
V118= VV[71]; |
791 |
|
goto T208; |
792 |
|
goto T210; |
793 |
|
T210:; |
794 |
|
V118= Cnil; |
795 |
|
goto T208; |
796 |
|
T208:; |
797 |
|
if(((V108))==Cnil){ |
798 |
|
goto T214;} |
799 |
|
V119= VV[72]; |
800 |
|
goto T212; |
801 |
|
goto T214; |
802 |
|
T214:; |
803 |
|
V119= Cnil; |
804 |
|
goto T212; |
805 |
|
T212:; |
806 |
|
V120= append(V118,V119); |
807 |
|
V121= (*(LnkLI187))((V107),(V109),VV[19],VV[18],VV[11],(V110)); |
808 |
|
V122= listA(3,VV[57],VV[11],(V110)); |
809 |
|
if(((V108))==Cnil){ |
810 |
|
goto T218;} |
811 |
|
V123= VV[18]; |
812 |
|
goto T216; |
813 |
|
goto T218; |
814 |
|
T218:; |
815 |
V123= Cnil; |
V123= Cnil; |
816 |
goto T184; |
goto T216; |
817 |
T184:; |
T216:; |
818 |
base[5]= list(3,VV[14],/* INLINE-ARGS */V117,(VFUN_NARGS=6,(*(LnkLI169))(V118,V119,/* INLINE-ARGS */V120,/* INLINE-ARGS */V121,V122,V123))); |
if(((V109))!=Cnil){ |
819 |
|
goto T222;} |
820 |
|
V124= VV[73]; |
821 |
|
goto T220; |
822 |
|
goto T222; |
823 |
|
T222:; |
824 |
|
V124= Cnil; |
825 |
|
goto T220; |
826 |
|
T220:; |
827 |
|
base[5]= list(3,VV[14],/* INLINE-ARGS */V120,(VFUN_NARGS=6,(*(LnkLI186))((V110),(V111),/* INLINE-ARGS */V121,/* INLINE-ARGS */V122,V123,V124))); |
828 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
829 |
(void) (*Lnk160)(); |
(void) (*Lnk176)(); |
830 |
return;} |
return;} |
831 |
} |
} |
832 |
} |
} |
839 |
bds_check; |
bds_check; |
840 |
check_arg(2); |
check_arg(2); |
841 |
vs_top=sup; |
vs_top=sup; |
842 |
{object V124=base[0]->c.c_cdr; |
{object V125=base[0]->c.c_cdr; |
843 |
if(endp(V124))invalid_macro_call(); |
if(endp(V125))invalid_macro_call(); |
844 |
base[2]= (V124->c.c_car); |
base[2]= (V125->c.c_car); |
845 |
V124=V124->c.c_cdr; |
V125=V125->c.c_cdr; |
846 |
if(endp(V124))invalid_macro_call(); |
if(endp(V125))invalid_macro_call(); |
847 |
base[3]= (V124->c.c_car); |
base[3]= (V125->c.c_car); |
848 |
V124=V124->c.c_cdr; |
V125=V125->c.c_cdr; |
849 |
if(endp(V124))invalid_macro_call(); |
if(endp(V125))invalid_macro_call(); |
850 |
base[4]= (V124->c.c_car); |
base[4]= (V125->c.c_car); |
851 |
V124=V124->c.c_cdr; |
V125=V125->c.c_cdr; |
852 |
if(!endp(V124))invalid_macro_call();} |
if(!endp(V125))invalid_macro_call();} |
853 |
bds_bind(VV[3],Cnil); |
bds_bind(VV[3],Cnil); |
854 |
bds_bind(VV[2],Ct); |
bds_bind(VV[2],Ct); |
855 |
base[8]= base[2]; |
base[8]= base[2]; |
856 |
base[9]= base[3]; |
base[9]= base[3]; |
857 |
base[10]= base[4]; |
base[10]= base[4]; |
858 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
859 |
(void) (*Lnk155)(); |
(void) (*Lnk171)(); |
860 |
vs_top=sup; |
vs_top=sup; |
861 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
862 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
866 |
} |
} |
867 |
/* local entry for function EMIT-MISS */ |
/* local entry for function EMIT-MISS */ |
868 |
|
|
869 |
static object LI23(object V126,object V125,object first,...) |
static object LI23(object V127,object V126,object first,...) |
870 |
{ |
{ |
871 |
va_list ap; |
va_list ap; |
872 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
873 |
{object V127; |
{object V128; |
|
object V128; |
|
874 |
object V129; |
object V129; |
875 |
|
object V130; |
876 |
va_start(ap,first); |
va_start(ap,first); |
877 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
878 |
V127= V126; |
V128= V127; |
879 |
V128= V125; |
V129= V126; |
880 |
narg = narg - 2; |
narg = narg - 2; |
881 |
if (narg <= 0) goto T192; |
if (narg <= 0) goto T228; |
882 |
else { |
else { |
883 |
V129= first;} |
V130= first;} |
884 |
--narg; goto T193; |
--narg; goto T229; |
885 |
goto T192; |
goto T228; |
886 |
T192:; |
T228:; |
|
V129= Cnil; |
|
|
goto T193; |
|
|
T193:; |
|
|
{object V130; |
|
|
if(((V129))==Cnil){ |
|
|
goto T197;} |
|
|
V130= VV[60]; |
|
|
goto T195; |
|
|
goto T197; |
|
|
T197:; |
|
887 |
V130= Cnil; |
V130= Cnil; |
888 |
goto T195; |
goto T229; |
889 |
T195:; |
T229:; |
890 |
|
{object V131; |
891 |
if(((V130))==Cnil){ |
if(((V130))==Cnil){ |
892 |
goto T200;} |
goto T233;} |
893 |
{object V131 = listA(3,VV[61],(V127),append((V128),(V130))); |
V131= VV[74]; |
894 |
VMR23(V131)} |
goto T231; |
895 |
goto T200; |
goto T233; |
896 |
T200:; |
T233:; |
897 |
{object V132 = listA(3,VV[47],(V127),append((V128),(V130))); |
V131= Cnil; |
898 |
VMR23(V132)}} |
goto T231; |
899 |
|
T231:; |
900 |
|
if(((V131))==Cnil){ |
901 |
|
goto T236;} |
902 |
|
{object V132 = listA(3,VV[75],(V128),append((V129),(V131))); |
903 |
|
VMR23(V132)} |
904 |
|
goto T236; |
905 |
|
T236:; |
906 |
|
{object V133 = listA(3,VV[57],(V128),append((V129),(V131))); |
907 |
|
VMR23(V133)}} |
908 |
va_end(ap); |
va_end(ap); |
909 |
return Cnil;} |
return Cnil;} |
910 |
} |
} |
914 |
{register object *base=vs_base; |
{register object *base=vs_base; |
915 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
916 |
vs_check; |
vs_check; |
917 |
{register object V133; |
{register object V134; |
|
object V134; |
|
918 |
object V135; |
object V135; |
919 |
register object V136; |
object V136; |
920 |
|
register object V137; |
921 |
check_arg(4); |
check_arg(4); |
922 |
V133=(base[0]); |
V134=(base[0]); |
923 |
V134=(base[1]); |
V135=(base[1]); |
924 |
V135=(base[2]); |
V136=(base[2]); |
925 |
V136=(base[3]); |
V137=(base[3]); |
926 |
vs_top=sup; |
vs_top=sup; |
927 |
goto TTL; |
goto TTL; |
928 |
TTL:; |
TTL:; |
929 |
if(((VV[2]->s.s_dbind))!=Cnil){ |
if(((VV[2]->s.s_dbind))!=Cnil){ |
930 |
goto T202;} |
goto T238;} |
931 |
if(((VV[3]->s.s_dbind))==Cnil){ |
if(((VV[3]->s.s_dbind))==Cnil){ |
932 |
goto T202;} |
goto T238;} |
933 |
base[4]= (V133); |
base[4]= (V134); |
934 |
base[5]= (V134); |
base[5]= (V135); |
935 |
base[6]= (V135); |
base[6]= (V136); |
936 |
base[7]= (V136); |
base[7]= (V137); |
937 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
938 |
(void) (*Lnk171)(); |
(void) (*Lnk188)(); |
939 |
return; |
return; |
940 |
goto T202; |
goto T238; |
941 |
T202:; |
T238:; |
942 |
{object V137; |
{object V138; |
|
object V138; |
|
943 |
object V139; |
object V139; |
944 |
V137= (*(LnkLI158))((V135),(V136)); |
object V140; |
945 |
|
V138= (*(LnkLI174))((V136),(V137)); |
946 |
base[7]= VV[4]; |
base[7]= VV[4]; |
947 |
base[8]= (V137); |
base[8]= (V138); |
948 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
949 |
(void) (*Lnk159)(); |
(void) (*Lnk175)(); |
950 |
vs_top=sup; |
vs_top=sup; |
951 |
V138= vs_base[0]; |
V139= vs_base[0]; |
952 |
if(((V136))==Cnil){ |
if(((V137))==Cnil){ |
953 |
goto T217;} |
goto T253;} |
954 |
V139= VV[62]; |
V140= VV[76]; |
955 |
goto T215; |
goto T251; |
956 |
goto T217; |
goto T253; |
957 |
T217:; |
T253:; |
|
V139= Cnil; |
|
|
goto T215; |
|
|
T215:; |
|
|
if(((V133))!=Cnil){ |
|
|
goto T222;} |
|
|
V140= VV[63]; |
|
|
goto T220; |
|
|
goto T222; |
|
|
T222:; |
|
958 |
V140= Cnil; |
V140= Cnil; |
959 |
goto T220; |
goto T251; |
960 |
T220:; |
T251:; |
961 |
V141= append(V140,VV[64]); |
if(((V134))!=Cnil){ |
962 |
base[7]= make_cons(VV[54],/* INLINE-ARGS */V141); |
goto T258;} |
963 |
base[8]= (V137); |
V141= VV[77]; |
964 |
if(((V133))==Cnil){ |
goto T256; |
965 |
goto T228;} |
goto T258; |
966 |
V142= VV[65]; |
T258:; |
967 |
goto T226; |
V141= Cnil; |
968 |
goto T228; |
goto T256; |
969 |
T228:; |
T256:; |
970 |
V142= Cnil; |
V142= append(V141,VV[78]); |
971 |
goto T226; |
base[7]= make_cons(VV[68],/* INLINE-ARGS */V142); |
972 |
T226:; |
base[8]= (V138); |
|
V143 = (V138); |
|
|
V144 = (V135); |
|
973 |
if(((V134))==Cnil){ |
if(((V134))==Cnil){ |
974 |
goto T232;} |
goto T264;} |
975 |
if(((V133))==Cnil){ |
V143= VV[79]; |
976 |
goto T235;} |
goto T262; |
977 |
V145= VV[8]; |
goto T264; |
978 |
goto T230; |
T264:; |
979 |
goto T235; |
V143= Cnil; |
980 |
T235:; |
goto T262; |
981 |
V145= Ct; |
T262:; |
982 |
goto T230; |
if(((V135))==Cnil){ |
983 |
goto T232; |
goto T268;} |
984 |
T232:; |
if(((V134))==Cnil){ |
985 |
V145= listA(4,VV[7],VV[8],(V136),append((V138),(V139))); |
goto T271;} |
986 |
goto T230; |
V144= VV[8]; |
987 |
T230:; |
goto T266; |
988 |
V146= (VFUN_NARGS=3,(*(LnkLI172))(VV[11],(V138),(V136))); |
goto T271; |
989 |
if(((V133))==Cnil){ |
T271:; |
990 |
goto T239;} |
V144= Ct; |
991 |
V147= VV[8]; |
goto T266; |
992 |
goto T237; |
goto T268; |
993 |
goto T239; |
T268:; |
994 |
T239:; |
V144= listA(4,VV[7],VV[8],(V137),append((V139),(V140))); |
995 |
V147= Cnil; |
goto T266; |
996 |
goto T237; |
T266:; |
997 |
T237:; |
V145= (VFUN_NARGS=3,(*(LnkLI189))(VV[11],(V139),(V137))); |
998 |
base[9]= list(3,VV[14],V142,(VFUN_NARGS=5,(*(LnkLI169))(V143,V144,V145,/* INLINE-ARGS */V146,V147))); |
if(((V134))==Cnil){ |
999 |
|
goto T275;} |
1000 |
|
V146= VV[8]; |
1001 |
|
goto T273; |
1002 |
|
goto T275; |
1003 |
|
T275:; |
1004 |
|
V146= Cnil; |
1005 |
|
goto T273; |
1006 |
|
T273:; |
1007 |
|
base[9]= list(3,VV[14],V143,(VFUN_NARGS=5,(*(LnkLI186))((V139),(V136),V144,/* INLINE-ARGS */V145,V146))); |
1008 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1009 |
(void) (*Lnk160)(); |
(void) (*Lnk176)(); |
1010 |
return;} |
return;} |
1011 |
} |
} |
1012 |
} |
} |
1019 |
bds_check; |
bds_check; |
1020 |
check_arg(2); |
check_arg(2); |
1021 |
vs_top=sup; |
vs_top=sup; |
1022 |
{object V148=base[0]->c.c_cdr; |
{object V147=base[0]->c.c_cdr; |
1023 |
if(endp(V148))invalid_macro_call(); |
if(endp(V147))invalid_macro_call(); |
1024 |
base[2]= (V148->c.c_car); |
base[2]= (V147->c.c_car); |
1025 |
V148=V148->c.c_cdr; |
V147=V147->c.c_cdr; |
1026 |
if(endp(V148))invalid_macro_call(); |
if(endp(V147))invalid_macro_call(); |
1027 |
base[3]= (V148->c.c_car); |
base[3]= (V147->c.c_car); |
1028 |
V148=V148->c.c_cdr; |
V147=V147->c.c_cdr; |
1029 |
if(endp(V148))invalid_macro_call(); |
if(endp(V147))invalid_macro_call(); |
1030 |
base[4]= (V148->c.c_car); |
base[4]= (V147->c.c_car); |
1031 |
V148=V148->c.c_cdr; |
V147=V147->c.c_cdr; |
1032 |
if(endp(V148))invalid_macro_call(); |
if(endp(V147))invalid_macro_call(); |
1033 |
base[5]= (V148->c.c_car); |
base[5]= (V147->c.c_car); |
1034 |
V148=V148->c.c_cdr; |
V147=V147->c.c_cdr; |
1035 |
if(!endp(V148))invalid_macro_call();} |
if(!endp(V147))invalid_macro_call();} |
1036 |
bds_bind(VV[3],Cnil); |
bds_bind(VV[3],Cnil); |
1037 |
bds_bind(VV[2],Ct); |
bds_bind(VV[2],Ct); |
1038 |
base[9]= base[2]; |
base[9]= base[2]; |
1040 |
base[11]= base[4]; |
base[11]= base[4]; |
1041 |
base[12]= base[5]; |
base[12]= base[5]; |
1042 |
vs_top=(vs_base=base+9)+4; |
vs_top=(vs_base=base+9)+4; |
1043 |
(void) (*Lnk156)(); |
(void) (*Lnk172)(); |
1044 |
vs_top=sup; |
vs_top=sup; |
1045 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
1046 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1050 |
} |
} |
1051 |
/* local entry for function EMIT-DLAP */ |
/* local entry for function EMIT-DLAP */ |
1052 |
|
|
1053 |
static object LI26(object V153,object V152,object V151,object V150,object V149,object first,...) |
static object LI26(object V152,object V151,object V150,object V149,object V148,object first,...) |
1054 |
{ |
{ |
1055 |
va_list ap; |
va_list ap; |
1056 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
1057 |
{object V154; |
{object V153; |
1058 |
|
object V154; |
1059 |
object V155; |
object V155; |
1060 |
object V156; |
object V156; |
1061 |
object V157; |
object V157; |
1062 |
object V158; |
object V158; |
|
object V159; |
|
1063 |
va_start(ap,first); |
va_start(ap,first); |
1064 |
if(narg <5) too_few_arguments(); |
if(narg <5) too_few_arguments(); |
1065 |
V154= V153; |
V153= V152; |
1066 |
V155= V152; |
V154= V151; |
1067 |
V156= V151; |
V155= V150; |
1068 |
V157= V150; |
V156= V149; |
1069 |
V158= V149; |
V157= V148; |
1070 |
narg = narg - 5; |
narg = narg - 5; |
1071 |
if (narg <= 0) goto T246; |
if (narg <= 0) goto T282; |
1072 |
else { |
else { |
1073 |
V159= first;} |
V158= first;} |
1074 |
--narg; goto T247; |
--narg; goto T283; |
1075 |
goto T246; |
goto T282; |
1076 |
T246:; |
T282:; |
1077 |
V159= Cnil; |
V158= Cnil; |
1078 |
goto T247; |
goto T283; |
1079 |
T247:; |
T283:; |
1080 |
{long V160; |
{long V159; |
1081 |
object V161; |
object V160; |
1082 |
register object V162; |
register object V161; |
1083 |
V160= -1; |
V159= -1; |
1084 |
{object V163; |
{object V162; |
1085 |
|
object V163= (V153); |
1086 |
object V164= (V154); |
object V164= (V154); |
1087 |
object V165= (V155); |
if(V163==Cnil||V164==Cnil){ |
1088 |
if(V164==Cnil||V165==Cnil){ |
V160= Cnil; |
1089 |
V161= Cnil; |
goto T286;} |
1090 |
goto T250;} |
base[2]=V162=MMcons(Cnil,Cnil); |
1091 |
base[2]=V163=MMcons(Cnil,Cnil); |
goto T287; |
1092 |
goto T251; |
T287:; |
1093 |
T251:; |
if(((V164->c.c_car))==(Ct)){ |
1094 |
if(((V165->c.c_car))==(Ct)){ |
goto T290;} |
1095 |
goto T254;} |
V159= (long)(V159)+(1); |
|
V160= (long)(V160)+(1); |
|
1096 |
base[4]= Cnil; |
base[4]= Cnil; |
1097 |
base[5]= VV[66]; |
base[5]= VV[80]; |
1098 |
base[6]= CMPmake_fixnum(V160); |
base[6]= CMPmake_fixnum(V159); |
1099 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1100 |
Lformat(); |
Lformat(); |
1101 |
vs_top=sup; |
vs_top=sup; |
1102 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1103 |
base[4]= (VV[67]->s.s_dbind); |
base[4]= (VV[81]->s.s_dbind); |
1104 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1105 |
Lintern(); |
Lintern(); |
1106 |
vs_top=sup; |
vs_top=sup; |
1107 |
V168= vs_base[0]; |
V167= vs_base[0]; |
1108 |
V169 = (V165->c.c_car); |
{object V169; |
1109 |
V170 = (V164->c.c_car); |
V169= CMPcar((V158)); |
1110 |
{object V172; |
V158= CMPcdr((V158)); |
1111 |
V172= CMPcar((V159)); |
V168= (V169);} |
1112 |
V159= CMPcdr((V159)); |
V170= list(2,V167,(VFUN_NARGS=4,(*(LnkLI190))((V164->c.c_car),(V163->c.c_car),VV[82],V168))); |
1113 |
V171= (V172);} |
(V162->c.c_cdr)= make_cons(/* INLINE-ARGS */V170,Cnil); |
1114 |
V173= list(2,V168,(VFUN_NARGS=4,(*(LnkLI173))(V169,V170,VV[68],V171))); |
goto T288; |
1115 |
(V163->c.c_cdr)= make_cons(/* INLINE-ARGS */V173,Cnil); |
goto T290; |
1116 |
goto T252; |
T290:; |
1117 |
goto T254; |
(V162->c.c_cdr)= Cnil; |
1118 |
T254:; |
goto T288; |
1119 |
(V163->c.c_cdr)= Cnil; |
T288:; |
1120 |
goto T252; |
while(MMcdr(V162)!=Cnil)V162=MMcdr(V162); |
1121 |
T252:; |
if((V163=MMcdr(V163))==Cnil||(V164=MMcdr(V164))==Cnil){ |
|
while(MMcdr(V163)!=Cnil)V163=MMcdr(V163); |
|
|
if((V164=MMcdr(V164))==Cnil||(V165=MMcdr(V165))==Cnil){ |
|
1122 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
1123 |
|
V160= base[2]; |
1124 |
|
goto T286;} |
1125 |
|
goto T287;} |
1126 |
|
goto T286; |
1127 |
|
T286:; |
1128 |
|
{object V171; |
1129 |
|
object V172= (V160); |
1130 |
|
if(V172==Cnil){ |
1131 |
|
V161= Cnil; |
1132 |
|
goto T304;} |
1133 |
|
base[2]=V171=MMcons(Cnil,Cnil); |
1134 |
|
goto T305; |
1135 |
|
T305:; |
1136 |
|
(V171->c.c_car)= CMPcar((V172->c.c_car)); |
1137 |
|
if((V172=MMcdr(V172))==Cnil){ |
1138 |
V161= base[2]; |
V161= base[2]; |
1139 |
goto T250;} |
goto T304;} |
1140 |
goto T251;} |
V171=MMcdr(V171)=MMcons(Cnil,Cnil); |
1141 |
goto T250; |
goto T305;} |
1142 |
T250:; |
goto T304; |
1143 |
{object V174; |
T304:; |
1144 |
object V175= (V161); |
if(((V161))!=Cnil){ |
1145 |
if(V175==Cnil){ |
goto T307;} |
1146 |
V162= Cnil; |
base[2]= VV[83]; |
|
goto T268;} |
|
|
base[2]=V174=MMcons(Cnil,Cnil); |
|
|
goto T269; |
|
|
T269:; |
|
|
(V174->c.c_car)= CMPcar((V175->c.c_car)); |
|
|
if((V175=MMcdr(V175))==Cnil){ |
|
|
V162= base[2]; |
|
|
goto T268;} |
|
|
V174=MMcdr(V174)=MMcons(Cnil,Cnil); |
|
|
goto T269;} |
|
|
goto T268; |
|
|
T268:; |
|
|
if(((V162))!=Cnil){ |
|
|
goto T271;} |
|
|
base[2]= VV[69]; |
|
1147 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1148 |
Lerror(); |
Lerror(); |
1149 |
vs_top=sup; |
vs_top=sup; |
1150 |
goto T271; |
goto T307; |
1151 |
T271:; |
T307:; |
1152 |
V176= listA(6,VV[73],VV[74],VV[75],VV[76],VV[77],(V161)); |
V173= listA(6,VV[87],VV[88],VV[89],VV[90],VV[91],(V160)); |
1153 |
if((CMPcdr((V162)))==Cnil){ |
if((CMPcdr((V161)))==Cnil){ |
1154 |
goto T277;} |
goto T313;} |
1155 |
V177= (*(LnkLI174))((V162),VV[68],(V158)); |
V174= (*(LnkLI191))((V161),VV[82],(V157)); |
1156 |
goto T275; |
goto T311; |
1157 |
goto T277; |
goto T313; |
1158 |
T277:; |
T313:; |
1159 |
if(((V158))==Cnil){ |
if(((V157))==Cnil){ |
1160 |
goto T280;} |
goto T316;} |
1161 |
V177= (*(LnkLI175))(CMPcar((V162)),VV[68],(V158)); |
V174= (*(LnkLI192))(CMPcar((V161)),VV[82],(V157)); |
1162 |
goto T275; |
goto T311; |
1163 |
goto T280; |
goto T316; |
1164 |
T280:; |
T316:; |
1165 |
V177= (*(LnkLI176))(CMPcar((V162)),VV[68]); |
V174= (*(LnkLI193))(CMPcar((V161)),VV[82]); |
1166 |
goto T275; |
goto T311; |
1167 |
T275:; |
T311:; |
1168 |
V178= list(5,VV[14],/* INLINE-ARGS */V176,VV[78],V177,list(3,VV[79],VV[71],(V156))); |
V175= list(5,VV[14],/* INLINE-ARGS */V173,VV[92],V174,list(3,VV[93],VV[85],(V155))); |
1169 |
{object V179 = list(3,VV[70],VV[71],list(4,VV[72],/* INLINE-ARGS */V178,VV[68],list(3,VV[79],VV[71],(V157)))); |
{object V176 = list(3,VV[84],VV[85],list(4,VV[86],/* INLINE-ARGS */V175,VV[82],list(3,VV[93],VV[85],(V156)))); |
1170 |
VMR26(V179)}} |
VMR26(V176)}} |
1171 |
va_end(ap); |
va_end(ap); |
1172 |
base[0]=base[0]; |
base[0]=base[0]; |
1173 |
return Cnil;} |
return Cnil;} |
1174 |
} |
} |
1175 |
/* local entry for function EMIT-1-NIL-DLAP */ |
/* local entry for function EMIT-1-NIL-DLAP */ |
1176 |
|
|
1177 |
static object LI27(V182,V183) |
static object LI27(V179,V180) |
1178 |
|
|
1179 |
object V182;object V183; |
object V179;object V180; |
1180 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1181 |
goto TTL; |
goto TTL; |
1182 |
TTL:; |
TTL:; |
1183 |
V184= list(2,list(2,VV[80],(*(LnkLI177))((V182),(V183))),VV[81]); |
V181= list(2,list(2,VV[94],(*(LnkLI194))((V179),(V180))),VV[95]); |
1184 |
V185= list(3,VV[85],list(3,VV[44],(V182),VV[86]),VV[87]); |
V182= list(3,VV[99],list(3,VV[54],(V179),VV[100]),VV[101]); |
1185 |
V186= list(3,VV[91],VV[92],list(3,VV[85],list(3,VV[44],VV[93],(V182)),VV[94])); |
V183= list(3,VV[105],VV[106],list(3,VV[99],list(3,VV[54],VV[107],(V179)),VV[108])); |
1186 |
{object V187 = list(4,VV[24],/* INLINE-ARGS */V184,VV[82],list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V185,VV[88],VV[89],list(4,VV[85],VV[90],/* INLINE-ARGS */V186,list(2,VV[95],(V183)))))); |
{object V184 = list(4,VV[34],/* INLINE-ARGS */V181,VV[96],list(3,VV[84],VV[97],list(5,VV[98],/* INLINE-ARGS */V182,VV[102],VV[103],list(4,VV[99],VV[104],/* INLINE-ARGS */V183,list(2,VV[109],(V180)))))); |
1187 |
VMR27(V187)} |
VMR27(V184)} |
1188 |
return Cnil; |
return Cnil; |
1189 |
} |
} |
1190 |
/* macro definition for GET-CACHE-VECTOR-LOCK-COUNT */ |
/* macro definition for GET-CACHE-VECTOR-LOCK-COUNT */ |
1195 |
vs_check; |
vs_check; |
1196 |
check_arg(2); |
check_arg(2); |
1197 |
vs_top=sup; |
vs_top=sup; |
1198 |
{object V188=base[0]->c.c_cdr; |
{object V185=base[0]->c.c_cdr; |
1199 |
if(endp(V188))invalid_macro_call(); |
if(endp(V185))invalid_macro_call(); |
1200 |
base[2]= (V188->c.c_car); |
base[2]= (V185->c.c_car); |
1201 |
V188=V188->c.c_cdr; |
V185=V185->c.c_cdr; |
1202 |
if(!endp(V188))invalid_macro_call();} |
if(!endp(V185))invalid_macro_call();} |
1203 |
V189= list(2,VV[96],list(2,VV[97],base[2])); |
V186= list(2,VV[110],list(2,VV[111],base[2])); |
1204 |
base[3]= listA(3,VV[14],make_cons(/* INLINE-ARGS */V189,Cnil),VV[98]); |
base[3]= listA(3,VV[14],make_cons(/* INLINE-ARGS */V186,Cnil),VV[112]); |
1205 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1206 |
return; |
return; |
1207 |
} |
} |
1208 |
/* local entry for function EMIT-1-T-DLAP */ |
/* local entry for function EMIT-1-T-DLAP */ |
1209 |
|
|
1210 |
static object LI29(V193,V194,V195) |
static object LI29(V190,V191,V192) |
1211 |
|
|
1212 |
object V193;object V194;object V195; |
object V190;object V191;object V192; |
1213 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1214 |
goto TTL; |
goto TTL; |
1215 |
TTL:; |
TTL:; |
1216 |
V196= list(2,list(2,VV[80],(*(LnkLI177))((V193),(V194))),VV[99]); |
V193= list(2,list(2,VV[94],(*(LnkLI194))((V190),(V191))),VV[113]); |
1217 |
V197= list(3,VV[44],(V193),VV[103]); |
V194= list(3,VV[54],(V190),VV[117]); |
1218 |
V198= list(4,VV[85],/* INLINE-ARGS */V197,list(3,VV[29],(V195),VV[104]),VV[105]); |
V195= list(4,VV[99],/* INLINE-ARGS */V194,list(3,VV[39],(V192),VV[118]),VV[119]); |
1219 |
V199= list(3,VV[44],VV[110],(V193)); |
V196= list(3,VV[54],VV[124],(V190)); |
1220 |
V200= list(3,VV[91],VV[109],list(4,VV[85],/* INLINE-ARGS */V199,list(3,VV[29],(V195),VV[111]),VV[112])); |
V197= list(3,VV[105],VV[123],list(4,VV[99],/* INLINE-ARGS */V196,list(3,VV[39],(V192),VV[125]),VV[126])); |
1221 |
V201= list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V198,VV[106],VV[107],list(4,VV[85],VV[108],/* INLINE-ARGS */V200,list(2,VV[95],(V194))))); |
V198= list(3,VV[84],VV[97],list(5,VV[98],/* INLINE-ARGS */V195,VV[120],VV[121],list(4,VV[99],VV[122],/* INLINE-ARGS */V197,list(2,VV[109],(V191))))); |
1222 |
{object V202 = list(4,VV[14],/* INLINE-ARGS */V196,VV[100],list(5,VV[14],VV[101],VV[102],/* INLINE-ARGS */V201,list(3,VV[113],VV[114],list(2,VV[95],(V194))))); |
{object V199 = list(4,VV[14],/* INLINE-ARGS */V193,VV[114],list(5,VV[14],VV[115],VV[116],/* INLINE-ARGS */V198,list(3,VV[127],VV[128],list(2,VV[109],(V191))))); |
1223 |
VMR29(V202)} |
VMR29(V199)} |
1224 |
return Cnil; |
return Cnil; |
1225 |
} |
} |
1226 |
/* local entry for function EMIT-GREATER-THAN-1-DLAP */ |
/* local entry for function EMIT-GREATER-THAN-1-DLAP */ |
1227 |
|
|
1228 |
static object LI30(V206,V207,V208) |
static object LI30(V203,V204,V205) |
1229 |
|
|
1230 |
register object V206;object V207;register object V208; |
register object V203;object V204;register object V205; |
1231 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1232 |
goto TTL; |
goto TTL; |
1233 |
TTL:; |
TTL:; |
1234 |
{object V209; |
{object V206; |
1235 |
V210 = CMPmake_fixnum((long)length((V206))); |
V207 = CMPmake_fixnum((long)length((V203))); |
1236 |
if(((V208))==Cnil){ |
if(((V205))==Cnil){ |
1237 |
goto T285;} |
goto T321;} |
1238 |
V211= small_fixnum(1); |
V208= small_fixnum(1); |
1239 |
goto T283; |
goto T319; |
1240 |
goto T285; |
goto T321; |
1241 |
T285:; |
T321:; |
1242 |
V211= small_fixnum(0); |
V208= small_fixnum(0); |
1243 |
goto T283; |
goto T319; |
1244 |
T283:; |
T319:; |
1245 |
V212= number_plus(V210,V211); |
V209= number_plus(V207,V208); |
1246 |
V209= (*(LnkLI178))(/* INLINE-ARGS */V212); |
V206= (*(LnkLI195))(/* INLINE-ARGS */V209); |
1247 |
V213= (*(LnkLI179))((V206),(V207)); |
V210= (*(LnkLI196))((V203),(V204)); |
1248 |
V214= list(3,VV[29],VV[121],list(3,VV[122],VV[123],list(3,VV[124],VV[125],(V209)))); |
V211= list(3,VV[39],VV[135],list(3,VV[136],VV[137],list(3,VV[138],VV[139],(V206)))); |
1249 |
{object V216; |
{object V213; |
1250 |
object V217= (V206); |
object V214= (V203); |
1251 |
if(V217==Cnil){ |
if(V214==Cnil){ |
1252 |
V215= Cnil; |
V212= Cnil; |
1253 |
goto T287;} |
goto T323;} |
1254 |
base[0]=V216=MMcons(Cnil,Cnil); |
base[0]=V213=MMcons(Cnil,Cnil); |
1255 |
goto T288; |
goto T324; |
1256 |
T288:; |
T324:; |
1257 |
(V216->c.c_car)= list(3,VV[44],(V217->c.c_car),VV[127]); |
(V213->c.c_car)= list(3,VV[54],(V214->c.c_car),VV[141]); |
1258 |
if((V217=MMcdr(V217))==Cnil){ |
if((V214=MMcdr(V214))==Cnil){ |
1259 |
V215= base[0]; |
V212= base[0]; |
1260 |
goto T287;} |
goto T323;} |
1261 |
V216=MMcdr(V216)=MMcons(Cnil,Cnil); |
V213=MMcdr(V213)=MMcons(Cnil,Cnil); |
1262 |
goto T288;} |
goto T324;} |
1263 |
goto T287; |
goto T323; |
1264 |
T287:; |
T323:; |
1265 |
V219= make_cons(VV[126],V215); |
V216= make_cons(VV[140],V212); |
1266 |
if(((V208))==Cnil){ |
if(((V205))==Cnil){ |
1267 |
goto T292;} |
goto T328;} |
1268 |
V220= list(2,VV[128],list(3,VV[29],(V208),VV[129])); |
V217= list(2,VV[142],list(3,VV[39],(V205),VV[143])); |
1269 |
goto T290; |
goto T326; |
1270 |
goto T292; |
goto T328; |
1271 |
T292:; |
T328:; |
1272 |
V220= Cnil; |
V217= Cnil; |
1273 |
goto T290; |
goto T326; |
1274 |
T290:; |
T326:; |
1275 |
V221= listA(3,VV[85],/* INLINE-ARGS */V219,append(V220,VV[130])); |
V218= listA(3,VV[99],/* INLINE-ARGS */V216,append(V217,VV[144])); |
1276 |
{object V223; |
{object V220; |
1277 |
object V224= (V206); |
object V221= (V203); |
1278 |
if(V224==Cnil){ |
if(V221==Cnil){ |
1279 |
V222= Cnil; |
V219= Cnil; |
1280 |
goto T294;} |
goto T330;} |
1281 |
base[0]=V223=MMcons(Cnil,Cnil); |
base[0]=V220=MMcons(Cnil,Cnil); |
1282 |
goto T295; |
goto T331; |
1283 |
T295:; |
T331:; |
1284 |
(V223->c.c_car)= list(3,VV[44],(V224->c.c_car),VV[136]); |
(V220->c.c_car)= list(3,VV[54],(V221->c.c_car),VV[150]); |
1285 |
if((V224=MMcdr(V224))==Cnil){ |
if((V221=MMcdr(V221))==Cnil){ |
1286 |
V222= base[0]; |
V219= base[0]; |
1287 |
goto T294;} |
goto T330;} |
1288 |
V223=MMcdr(V223)=MMcons(Cnil,Cnil); |
V220=MMcdr(V220)=MMcons(Cnil,Cnil); |
1289 |
goto T295;} |
goto T331;} |
1290 |
goto T294; |
goto T330; |
1291 |
T294:; |
T330:; |
1292 |
V226= make_cons(VV[126],V222); |
V223= make_cons(VV[140],V219); |
1293 |
if(((V208))==Cnil){ |
if(((V205))==Cnil){ |
1294 |
goto T299;} |
goto T335;} |
1295 |
V228= list(3,VV[29],(V208),VV[137]); |
V225= list(3,VV[39],(V205),VV[151]); |
1296 |
V227= make_cons(/* INLINE-ARGS */V228,Cnil); |
V224= make_cons(/* INLINE-ARGS */V225,Cnil); |
1297 |
goto T297; |
goto T333; |
1298 |
goto T299; |
goto T335; |
1299 |
T299:; |
T335:; |
1300 |
V227= Cnil; |
V224= Cnil; |
1301 |
goto T297; |
goto T333; |
1302 |
T297:; |
T333:; |
1303 |
V229= list(3,VV[91],VV[134],list(3,VV[14],VV[135],listA(3,VV[85],/* INLINE-ARGS */V226,append(V227,VV[138])))); |
V226= list(3,VV[105],VV[148],list(3,VV[14],VV[149],listA(3,VV[99],/* INLINE-ARGS */V223,append(V224,VV[152])))); |
1304 |
V230= list(3,VV[70],VV[83],list(6,VV[84],/* INLINE-ARGS */V214,/* INLINE-ARGS */V221,VV[131],VV[132],list(4,VV[85],VV[133],/* INLINE-ARGS */V229,list(2,VV[95],(V207))))); |
V227= list(3,VV[84],VV[97],list(6,VV[98],/* INLINE-ARGS */V211,/* INLINE-ARGS */V218,VV[145],VV[146],list(4,VV[99],VV[147],/* INLINE-ARGS */V226,list(2,VV[109],(V204))))); |
1305 |
{object V231 = list(5,VV[14],VV[115],VV[116],/* INLINE-ARGS */V213,list(4,VV[14],VV[117],VV[118],list(5,VV[14],VV[119],VV[120],/* INLINE-ARGS */V230,list(3,VV[113],VV[139],list(2,VV[95],(V207)))))); |
{object V228 = list(5,VV[14],VV[129],VV[130],/* INLINE-ARGS */V210,list(4,VV[14],VV[131],VV[132],list(5,VV[14],VV[133],VV[134],/* INLINE-ARGS */V227,list(3,VV[127],VV[153],list(2,VV[109],(V204)))))); |
1306 |
VMR30(V231)}} |
VMR30(V228)}} |
1307 |
base[0]=base[0]; |
base[0]=base[0]; |
1308 |
return Cnil; |
return Cnil; |
1309 |
} |
} |
1310 |
/* local entry for function EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
/* local entry for function EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
1311 |
|
|
1312 |
static object LI31(V234,V235) |
static object LI31(V231,V232) |
1313 |
|
|
1314 |
object V234;object V235; |
object V231;object V232; |
1315 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1316 |
goto TTL; |
goto TTL; |
1317 |
TTL:; |
TTL:; |
1318 |
V236= list(2,VV[140],list(3,VV[40],(V234),VV[141])); |
V233= list(2,VV[154],list(3,VV[50],(V231),VV[155])); |
1319 |
V237= make_cons(/* INLINE-ARGS */V236,Cnil); |
V234= make_cons(/* INLINE-ARGS */V233,Cnil); |
1320 |
V238= list(3,VV[85],VV[143],list(2,VV[95],(V235))); |
V235= list(3,VV[99],VV[157],list(2,VV[109],(V232))); |
1321 |
V239= list(3,VV[122],VV[123],VV[144]); |
V236= list(3,VV[136],VV[137],VV[158]); |
1322 |
{object V241 = list(5,VV[14],/* INLINE-ARGS */V237,VV[142],/* INLINE-ARGS */V238,V239); |
{object V238 = list(5,VV[14],/* INLINE-ARGS */V234,VV[156],/* INLINE-ARGS */V235,V236); |
1323 |
VMR31(V241)} |
VMR31(V238)} |
1324 |
return Cnil; |
return Cnil; |
1325 |
} |
} |
1326 |
/* local entry for function EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
/* local entry for function EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
1327 |
|
|
1328 |
static object LI32(V244,V245) |
static object LI32(V241,V242) |
1329 |
|
|
1330 |
object V244;object V245; |
object V241;object V242; |
1331 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1332 |
goto TTL; |
goto TTL; |
1333 |
TTL:; |
TTL:; |
1334 |
{register long V247; |
{register long V244; |
1335 |
long V248; |
long V245; |
1336 |
V247= 0; |
V244= 0; |
1337 |
V248= (long)length((V244)); |
V245= (long)length((V241)); |
1338 |
{object V249; |
{object V246; |
1339 |
object V250= (V244); |
object V247= (V241); |
1340 |
if(V250==Cnil){ |
if(V247==Cnil){ |
1341 |
V246= Cnil; |
V243= Cnil; |
1342 |
goto T302;} |
goto T338;} |
1343 |
base[0]=V249=MMcons(Cnil,Cnil); |
base[0]=V246=MMcons(Cnil,Cnil); |
1344 |
goto T305; |
goto T341; |
1345 |
T305:; |
T341:; |
1346 |
V252= list(2,VV[140],list(3,VV[40],(V250->c.c_car),VV[141])); |
V249= list(2,VV[154],list(3,VV[50],(V247->c.c_car),VV[155])); |
1347 |
V253= make_cons(/* INLINE-ARGS */V252,Cnil); |
V250= make_cons(/* INLINE-ARGS */V249,Cnil); |
1348 |
V254= list(3,VV[85],VV[147],list(2,VV[95],(V245))); |
V251= list(3,VV[99],VV[161],list(2,VV[109],(V242))); |
1349 |
V247= (long)(V247)+(1); |
V244= (long)(V244)+(1); |
1350 |
if(((long)(V247>=0&&(4)>0?(V247)%(4):imod(V247,4)))==0){ |
if(((long)({fixnum _t=(V244)%(4);((4)<0 && _t<=0) || ((4)>0 && _t>=0) ? _t : _t + (4);}))==0){ |
1351 |
goto T310;} |
goto T346;} |
1352 |
if(!((V247)==(V248))){ |
if(!((V244)==(V245))){ |
1353 |
goto T311;} |
goto T347;} |
1354 |
goto T310; |
goto T346; |
1355 |
T310:; |
T346:; |
1356 |
V256= list(3,VV[122],VV[123],VV[149]); |
V253= list(3,VV[136],VV[137],VV[163]); |
1357 |
V258= list(3,VV[29],VV[80],V256); |
V255= list(3,VV[39],VV[94],V253); |
1358 |
V255= make_cons(/* INLINE-ARGS */V258,Cnil); |
V252= make_cons(/* INLINE-ARGS */V255,Cnil); |
1359 |
goto T307; |
goto T343; |
1360 |
goto T311; |
goto T347; |
1361 |
T311:; |
T347:; |
1362 |
V255= Cnil; |
V252= Cnil; |
1363 |
goto T307; |
goto T343; |
1364 |
T307:; |
T343:; |
1365 |
(V249->c.c_car)= listA(6,VV[14],/* INLINE-ARGS */V253,VV[146],/* INLINE-ARGS */V254,VV[148],V255); |
(V246->c.c_car)= listA(6,VV[14],/* INLINE-ARGS */V250,VV[160],/* INLINE-ARGS */V251,VV[162],V252); |
1366 |
if((V250=MMcdr(V250))==Cnil){ |
if((V247=MMcdr(V247))==Cnil){ |
1367 |
V246= base[0]; |
V243= base[0]; |
1368 |
goto T302;} |
goto T338;} |
1369 |
V249=MMcdr(V249)=MMcons(Cnil,Cnil); |
V246=MMcdr(V246)=MMcons(Cnil,Cnil); |
1370 |
goto T305;}} |
goto T341;}} |
1371 |
goto T302; |
goto T338; |
1372 |
T302:; |
T338:; |
1373 |
{object V259 = make_cons(VV[145],V246); |
{object V256 = make_cons(VV[159],V243); |
1374 |
VMR32(V259)} |
VMR32(V256)} |
1375 |
base[0]=base[0]; |
base[0]=base[0]; |
1376 |
return Cnil; |
return Cnil; |
1377 |
} |
} |
1378 |
/* local entry for function EMIT-FETCH-WRAPPER */ |
/* local entry for function EMIT-FETCH-WRAPPER */ |
1379 |
|
|
1380 |
static object LI33(object V262,object V261,object V260,object first,...) |
static object LI33(object V259,object V258,object V257,object first,...) |
1381 |
{ |
{ |
1382 |
va_list ap; |
va_list ap; |
1383 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
1384 |
{object V263; |
{object V260; |
1385 |
register object V264; |
register object V261; |
1386 |
object V265; |
object V262; |
1387 |
register object V266; |
register object V263; |
1388 |
va_start(ap,first); |
va_start(ap,first); |
1389 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1390 |
V263= V262; |
V260= V259; |
1391 |
V264= V261; |
V261= V258; |
1392 |
V265= V260; |
V262= V257; |
1393 |
narg = narg - 3; |
narg = narg - 3; |
1394 |
if (narg <= 0) goto T316; |
if (narg <= 0) goto T352; |
1395 |
else { |
else { |
1396 |
V266= first;} |
V263= first;} |
1397 |
--narg; goto T317; |
--narg; goto T353; |
1398 |
goto T316; |
goto T352; |
1399 |
T316:; |
T352:; |
1400 |
V266= Cnil; |
V263= Cnil; |
1401 |
goto T317; |
goto T353; |
1402 |
T317:; |
T353:; |
1403 |
{object V267= (V263); |
{object V265= V260; |
1404 |
if((V267!= VV[180]))goto T319; |
if((V265!= VV[197]))goto T355; |
1405 |
V268= list(2,VV[28],(V264)); |
V266= list(2,VV[38],(V261)); |
1406 |
if(((V266))==Cnil){ |
if(((V263))==Cnil){ |
1407 |
goto T322;} |
goto T358;} |
1408 |
V270= list(3,VV[29],(V266),list(2,VV[30],(V264))); |
V268= list(3,VV[39],(V263),list(2,VV[40],(V261))); |
1409 |
V269= make_cons(/* INLINE-ARGS */V270,Cnil); |
V267= make_cons(/* INLINE-ARGS */V268,Cnil); |
1410 |
goto T320; |
goto T356; |
1411 |
goto T322; |
goto T358; |
1412 |
T322:; |
T358:; |
1413 |
V269= Cnil; |
V267= Cnil; |
1414 |
goto T320; |
goto T356; |
1415 |
T320:; |
T356:; |
1416 |
V271= list(2,VV[31],(V264)); |
V269= list(2,VV[41],(V261)); |
1417 |
V272= make_cons(/* INLINE-ARGS */V271,Cnil); |
V270= make_cons(/* INLINE-ARGS */V269,Cnil); |
1418 |
V273= append(V269,/* INLINE-ARGS */V272); |
V271= append(V267,/* INLINE-ARGS */V270); |
1419 |
V274= make_cons(/* INLINE-ARGS */V268,/* INLINE-ARGS */V273); |
V272= make_cons(/* INLINE-ARGS */V266,/* INLINE-ARGS */V271); |
1420 |
V275= list(2,VV[32],(V264)); |
V273= list(2,VV[42],(V261)); |
1421 |
if(((V266))==Cnil){ |
if(((V263))==Cnil){ |
1422 |
goto T326;} |
goto T362;} |
1423 |
V277= list(3,VV[29],(V266),list(2,VV[33],(V264))); |
V275= list(3,VV[39],(V263),list(2,VV[43],(V261))); |
1424 |
V276= make_cons(/* INLINE-ARGS */V277,Cnil); |
V274= make_cons(/* INLINE-ARGS */V275,Cnil); |
1425 |
goto T324; |
goto T360; |
1426 |
goto T326; |
goto T362; |
1427 |
T326:; |
T362:; |
1428 |
V276= Cnil; |
V274= Cnil; |
1429 |
goto T324; |
goto T360; |
1430 |
T324:; |
T360:; |
1431 |
V278= list(2,VV[34],(V264)); |
V276= list(2,VV[44],(V261)); |
1432 |
V279= make_cons(/* INLINE-ARGS */V278,Cnil); |
V277= make_cons(/* INLINE-ARGS */V276,Cnil); |
1433 |
V280= append(V276,/* INLINE-ARGS */V279); |
V278= append(V274,/* INLINE-ARGS */V277); |
1434 |
V281= make_cons(/* INLINE-ARGS */V275,/* INLINE-ARGS */V280); |
V279= make_cons(/* INLINE-ARGS */V273,/* INLINE-ARGS */V278); |
1435 |
{object V282 = list(4,VV[27],/* INLINE-ARGS */V274,/* INLINE-ARGS */V281,list(2,Ct,list(2,VV[95],(V265)))); |
{object V280 = list(4,VV[37],/* INLINE-ARGS */V272,/* INLINE-ARGS */V279,list(2,Ct,list(2,VV[109],(V262)))); |
1436 |
VMR33(V282)} |
VMR33(V280)} |
1437 |
goto T319; |
goto T355; |
1438 |
T319:; |
T355:; |
1439 |
if((V267!= VV[181]))goto T328; |
if((V265!= VV[198]))goto T364; |
1440 |
if(((V266))==Cnil){ |
if(((V263))==Cnil){ |
1441 |
goto T329;} |
goto T365;} |
1442 |
base[0]= VV[150]; |
base[0]= VV[164]; |
1443 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1444 |
Lerror(); |
Lerror(); |
1445 |
vs_top=sup; |
vs_top=sup; |
1446 |
goto T329; |
goto T365; |
1447 |
T329:; |
T365:; |
1448 |
{object V283 = list(2,VV[151],(V264)); |
{object V281 = list(2,VV[165],(V261)); |
1449 |
VMR33(V283)} |
VMR33(V281)} |
1450 |
goto T328; |
goto T364; |
1451 |
T328:; |
T364:; |
1452 |
if((V267!= VV[182]) |
if((V265!= VV[199]) |
1453 |
&& (V267!= VV[183]))goto T333; |
&& (V265!= VV[200]))goto T369; |
1454 |
if(((V266))==Cnil){ |
if(((V263))==Cnil){ |
1455 |
goto T334;} |
goto T370;} |
1456 |
base[0]= VV[152]; |
base[0]= VV[166]; |
1457 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1458 |
Lerror(); |
Lerror(); |
1459 |
vs_top=sup; |
vs_top=sup; |
1460 |
goto T334; |
goto T370; |
1461 |
T334:; |
T370:; |
1462 |
{object V284 = list(2,VV[153],(V264)); |
{object V282 = list(2,VV[167],(V261)); |
1463 |
VMR33(V284)} |
VMR33(V282)} |
1464 |
goto T333; |
goto T369; |
1465 |
T333:; |
T369:; |
1466 |
FEerror("The ECASE key value ~s is illegal.",1,V267); |
base[0]= VV[20]; |
1467 |
{object V285 = Cnil; |
base[1]= VV[21]; |
1468 |
VMR33(V285)}} |
base[2]= VV[22]; |
1469 |
|
base[3]= VV[23]; |
1470 |
|
base[4]= V260; |
1471 |
|
base[5]= VV[24]; |
1472 |
|
base[6]= VV[168]; |
1473 |
|
base[7]= VV[26]; |
1474 |
|
base[8]= VV[169]; |
1475 |
|
vs_top=(vs_base=base+0)+9; |
1476 |
|
(void) (*Lnk183)(); |
1477 |
|
vs_top=sup; |
1478 |
|
{object V283 = vs_base[0]; |
1479 |
|
VMR33(V283)}} |
1480 |
va_end(ap); |
va_end(ap); |
1481 |
base[0]=base[0]; |
base[0]=base[0]; |
1482 |
return Cnil;} |
return Cnil;} |
1483 |
} |
} |
1484 |
static object LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,2,first,ap);va_end(ap);return V1;} /* EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
static object LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,2,first,ap);va_end(ap);return V1;} /* EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
1485 |
static object LnkTLI178(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[178],(void **)(void *)&LnkLI178,1,first,ap);va_end(ap);return V1;} /* COMPUTE-LINE-SIZE */ |
static object LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,1,first,ap);va_end(ap);return V1;} /* COMPUTE-LINE-SIZE */ |
1486 |
static object LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[177],(void **)(void *)&LnkLI177,2,first,ap);va_end(ap);return V1;} /* EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
static object LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[194],(void **)(void *)&LnkLI194,2,first,ap);va_end(ap);return V1;} /* EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */ |
1487 |
static object LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)(void *)&LnkLI176,2,first,ap);va_end(ap);return V1;} /* EMIT-1-NIL-DLAP */ |
static object LnkTLI193(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[193],(void **)(void *)&LnkLI193,2,first,ap);va_end(ap);return V1;} /* EMIT-1-NIL-DLAP */ |
1488 |
static object LnkTLI175(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[175],(void **)(void *)&LnkLI175,3,first,ap);va_end(ap);return V1;} /* EMIT-1-T-DLAP */ |
static object LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,3,first,ap);va_end(ap);return V1;} /* EMIT-1-T-DLAP */ |
1489 |
static object LnkTLI174(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[174],(void **)(void *)&LnkLI174,3,first,ap);va_end(ap);return V1;} /* EMIT-GREATER-THAN-1-DLAP */ |
static object LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,3,first,ap);va_end(ap);return V1;} /* EMIT-GREATER-THAN-1-DLAP */ |
1490 |
static object LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[173],(void **)(void *)&LnkLI173,first,ap);va_end(ap);return V1;} /* EMIT-FETCH-WRAPPER */ |
static object LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[190],(void **)(void *)&LnkLI190,first,ap);va_end(ap);return V1;} /* EMIT-FETCH-WRAPPER */ |
1491 |
static object LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[172],(void **)(void *)&LnkLI172,first,ap);va_end(ap);return V1;} /* EMIT-MISS */ |
static object LnkTLI189(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[189],(void **)(void *)&LnkLI189,first,ap);va_end(ap);return V1;} /* EMIT-MISS */ |
1492 |
static void LnkT171(){ call_or_link(VV[171],(void **)(void *)&Lnk171);} /* EMIT-CHECKING-OR-CACHING-FUNCTION */ |
static void LnkT188(){ call_or_link(VV[188],(void **)(void *)&Lnk188);} /* EMIT-CHECKING-OR-CACHING-FUNCTION */ |
1493 |
static object LnkTLI170(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[170],(void **)(void *)&LnkLI170,6,first,ap);va_end(ap);return V1;} /* EMIT-SLOT-ACCESS */ |
static object LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[187],(void **)(void *)&LnkLI187,6,first,ap);va_end(ap);return V1;} /* EMIT-SLOT-ACCESS */ |
1494 |
static object LnkTLI169(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[169],(void **)(void *)&LnkLI169,first,ap);va_end(ap);return V1;} /* EMIT-DLAP */ |
static object LnkTLI186(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[186],(void **)(void *)&LnkLI186,first,ap);va_end(ap);return V1;} /* EMIT-DLAP */ |
1495 |
static void LnkT168(){ call_or_link(VV[168],(void **)(void *)&Lnk168);} /* EMIT-ONE-OR-N-INDEX-READERWRITER-FUNCTION */ |
static void LnkT185(){ call_or_link(VV[185],(void **)(void *)&Lnk185);} /* EMIT-ONE-OR-N-INDEX-READERWRITER-FUNCTION */ |
1496 |
static object LnkTLI167(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[167],(void **)(void *)&LnkLI167,3,first,ap);va_end(ap);return V1;} /* EMIT-BOUNDP-CHECK */ |
static object LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[184],(void **)(void *)&LnkLI184,3,first,ap);va_end(ap);return V1;} /* EMIT-BOUNDP-CHECK */ |
1497 |
static object LnkTLI166(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[166],(void **)(void *)&LnkLI166,1,first,ap);va_end(ap);return V1;} /* DFUN-ARG-SYMBOL */ |
static void LnkT183(){ call_or_link(VV[183],(void **)(void *)&Lnk183);} /* ERROR */ |
1498 |
static object LnkTLI165(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[165],(void **)(void *)&LnkLI165,3,first,ap);va_end(ap);return V1;} /* EMIT-SLOT-READ-FORM */ |
static object LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* DFUN-ARG-SYMBOL */ |
1499 |
static object LnkTLI164(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[164],(void **)(void *)&LnkLI164,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FIELD */ |
static object LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,3,first,ap);va_end(ap);return V1;} /* EMIT-SLOT-READ-FORM */ |
1500 |
static void LnkT163(){ call_or_link(VV[163],(void **)(void *)&Lnk163);} /* EMIT-READERWRITER-FUNCTION */ |
static object LnkTLI180(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[180],(void **)(void *)&LnkLI180,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FIELD */ |
1501 |
static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* COMPILE-LAMBDA */ |
static void LnkT179(){ call_or_link(VV[179],(void **)(void *)&Lnk179);} /* EMIT-READERWRITER-FUNCTION */ |
1502 |
static void LnkT161(){ call_or_link(VV[161],(void **)(void *)&Lnk161);} /* EMIT-DEFAULT-ONLY */ |
static void LnkT178(){ call_or_link(VV[178],(void **)(void *)&Lnk178);} /* COMPILE-LAMBDA */ |
1503 |
static void LnkT160(){ call_or_link(VV[160],(void **)(void *)&Lnk160);} /* GENERATING-LISP */ |
static void LnkT177(){ call_or_link(VV[177],(void **)(void *)&Lnk177);} /* EMIT-DEFAULT-ONLY */ |
1504 |
static void LnkT159(){ call_or_link(VV[159],(void **)(void *)&Lnk159);} /* REMOVE */ |
static void LnkT176(){ call_or_link(VV[176],(void **)(void *)&Lnk176);} /* GENERATING-LISP */ |
1505 |
static object LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,2,first,ap);va_end(ap);return V1;} /* MAKE-DLAP-LAMBDA-LIST */ |
static void LnkT175(){ call_or_link(VV[175],(void **)(void *)&Lnk175);} /* REMOVE */ |
1506 |
static void LnkT157(){ call_or_link(VV[157],(void **)(void *)&Lnk157);} /* EMIT-DEFAULT-ONLY-FUNCTION */ |
static object LnkTLI174(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[174],(void **)(void *)&LnkLI174,2,first,ap);va_end(ap);return V1;} /* MAKE-DLAP-LAMBDA-LIST */ |
1507 |
static void LnkT156(){ call_or_link(VV[156],(void **)(void *)&Lnk156);} /* EMIT-CHECKING-OR-CACHING */ |
static void LnkT173(){ call_or_link(VV[173],(void **)(void *)&Lnk173);} /* EMIT-DEFAULT-ONLY-FUNCTION */ |
1508 |
static void LnkT155(){ call_or_link(VV[155],(void **)(void *)&Lnk155);} /* EMIT-ONE-OR-N-INDEX-READERWRITER */ |
static void LnkT172(){ call_or_link(VV[172],(void **)(void *)&Lnk172);} /* EMIT-CHECKING-OR-CACHING */ |
1509 |
static void LnkT154(){ call_or_link(VV[154],(void **)(void *)&Lnk154);} /* EMIT-READERWRITER */ |
static void LnkT171(){ call_or_link(VV[171],(void **)(void *)&Lnk171);} /* EMIT-ONE-OR-N-INDEX-READERWRITER */ |
1510 |
|
static void LnkT170(){ call_or_link(VV[170],(void **)(void *)&Lnk170);} /* EMIT-READERWRITER */ |
1511 |
|
|
1512 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1513 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |