21 |
T2:; |
T2:; |
22 |
if(!(type_of((V1))==t_symbol)){ |
if(!(type_of((V1))==t_symbol)){ |
23 |
goto T4;} |
goto T4;} |
24 |
V1= (VFUN_NARGS=1,(*(LnkLI217))((V1))); |
V1= (VFUN_NARGS=1,(*(LnkLI243))((V1))); |
25 |
goto T4; |
goto T4; |
26 |
T4:; |
T4:; |
27 |
if(!(((V1))==((VV[0]->s.s_dbind)))){ |
if(!(((V1))==((VV[0]->s.s_dbind)))){ |
32 |
V3= (VV[1]->s.s_dbind); |
V3= (VV[1]->s.s_dbind); |
33 |
base[1]= (V1); |
base[1]= (V1); |
34 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
35 |
(void) (*Lnk218)(Lclptr218); |
(void) (*Lnk244)(Lclptr244); |
36 |
vs_top=sup; |
vs_top=sup; |
37 |
V4= vs_base[0]; |
V4= vs_base[0]; |
38 |
{register object x= V3,V2= V4; |
{register object x= V3,V2= V4; |
43 |
goto T13;}} |
goto T13;}} |
44 |
goto T14; |
goto T14; |
45 |
T14:; |
T14:; |
46 |
base[1]= (VV[219]->s.s_gfdef); |
base[1]= (VV[245]->s.s_gfdef); |
47 |
base[2]= (V1); |
base[2]= (V1); |
48 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
49 |
(void) (*Lnk220)(); |
(void) (*Lnk246)(); |
50 |
return; |
return; |
51 |
goto T13; |
goto T13; |
52 |
T13:; |
T13:; |
114 |
V16= Cnil; |
V16= Cnil; |
115 |
V17= Cnil; |
V17= Cnil; |
116 |
V18= Cnil; |
V18= Cnil; |
117 |
if(((*(LnkLI221))((V13)))==Cnil){ |
if(((*(LnkLI247))((V13)))==Cnil){ |
118 |
goto T30;} |
goto T30;} |
119 |
{register object V19; |
{register object V19; |
120 |
V19= (V14); |
V19= (V14); |
125 |
goto T33; |
goto T33; |
126 |
goto T37; |
goto T37; |
127 |
T37:; |
T37:; |
128 |
if(((*(LnkLI221))(CMPcar((V19))))!=Cnil){ |
if(((*(LnkLI247))(CMPcar((V19))))!=Cnil){ |
129 |
goto T40;} |
goto T40;} |
130 |
goto T30; |
goto T30; |
131 |
goto T40; |
goto T40; |
237 |
T79:; |
T79:; |
238 |
base[4]= (V40->c.c_car); |
base[4]= (V40->c.c_car); |
239 |
base[5]= base[1]; |
base[5]= base[1]; |
240 |
base[6]= VV[222]; |
base[6]= VV[248]; |
241 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
242 |
(void) (*Lnk223)(); |
(void) (*Lnk249)(); |
243 |
vs_top=sup; |
vs_top=sup; |
244 |
(V39->c.c_car)= vs_base[0]; |
(V39->c.c_car)= vs_base[0]; |
245 |
if((V40=MMcdr(V40))==Cnil){ |
if((V40=MMcdr(V40))==Cnil){ |
299 |
{register object V48; |
{register object V48; |
300 |
object V49; |
object V49; |
301 |
register object V50; |
register object V50; |
302 |
V48= (VFUN_NARGS=1,(*(LnkLI224))(CMPcar((V46)))); |
V48= (VFUN_NARGS=1,(*(LnkLI250))(CMPcar((V46)))); |
303 |
V49= CMPcddr((V48)); |
V49= CMPcddr((V48)); |
304 |
V50= make_cons(CMPcadr((V46)),CMPcaddr((V46))); |
V50= make_cons(CMPcadr((V46)),CMPcaddr((V46))); |
305 |
base[4]= (V50); |
base[4]= (V50); |
306 |
base[5]= (V49); |
base[5]= (V49); |
307 |
base[6]= VV[12]; |
base[6]= VV[12]; |
308 |
base[7]= (VV[225]->s.s_gfdef); |
base[7]= (VV[251]->s.s_gfdef); |
309 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
310 |
(void) (*Lnk226)(); |
(void) (*Lnk252)(); |
311 |
vs_top=sup; |
vs_top=sup; |
312 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
313 |
goto T92;} |
goto T92;} |
323 |
goto T92;} |
goto T92;} |
324 |
base[4]= (V54); |
base[4]= (V54); |
325 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
326 |
(void) (*Lnk227)(Lclptr227); |
(void) (*Lnk253)(Lclptr253); |
327 |
vs_top=sup; |
vs_top=sup; |
328 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
329 |
goto T92;} |
goto T92;} |
354 |
goto T119;} |
goto T119;} |
355 |
base[2]= (V58); |
base[2]= (V58); |
356 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
357 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk254)(Lclptr254); |
358 |
vs_top=sup; |
vs_top=sup; |
359 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
360 |
goto T120;} |
goto T120;} |
371 |
T127:; |
T127:; |
372 |
base[5]= (V58); |
base[5]= (V58); |
373 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
374 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk255)(Lclptr255); |
375 |
vs_top=sup; |
vs_top=sup; |
376 |
V60= vs_base[0]; |
V60= vs_base[0]; |
377 |
goto T125; |
goto T125; |
382 |
goto T134;} |
goto T134;} |
383 |
if(!(type_of((V60))==t_symbol)){ |
if(!(type_of((V60))==t_symbol)){ |
384 |
goto T133;} |
goto T133;} |
385 |
V63 = (V58); |
V63= (VFUN_NARGS=2,(*(LnkLI243))((V60),Cnil)); |
386 |
V64= (VFUN_NARGS=2,(*(LnkLI217))((V60),Cnil)); |
if(!(((V58))==(/* INLINE-ARGS */V63))){ |
|
if(!((V63)==(/* INLINE-ARGS */V64))){ |
|
387 |
goto T133;} |
goto T133;} |
388 |
goto T134; |
goto T134; |
389 |
T134:; |
T134:; |
411 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
412 |
Lintern(); |
Lintern(); |
413 |
vs_top=sup; |
vs_top=sup; |
414 |
{object V65 = vs_base[0]; |
{object V64 = vs_base[0]; |
415 |
bds_unwind1; |
bds_unwind1; |
416 |
bds_unwind1; |
bds_unwind1; |
417 |
bds_unwind1; |
bds_unwind1; |
418 |
bds_unwind1; |
bds_unwind1; |
419 |
bds_unwind1; |
bds_unwind1; |
420 |
bds_unwind1; |
bds_unwind1; |
421 |
VMR8(V65)} |
VMR8(V64)} |
422 |
goto T133; |
goto T133; |
423 |
T133:; |
T133:; |
424 |
{object V66 = Cnil; |
{object V65 = Cnil; |
425 |
VMR8(V66)}} |
VMR8(V65)}} |
426 |
goto T120; |
goto T120; |
427 |
T120:; |
T120:; |
428 |
{object V67 = Cnil; |
{object V66 = Cnil; |
429 |
VMR8(V67)}} |
VMR8(V66)}} |
430 |
base[0]=base[0]; |
base[0]=base[0]; |
431 |
return Cnil; |
return Cnil; |
432 |
} |
} |
436 |
{register object *base=vs_base; |
{register object *base=vs_base; |
437 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
438 |
vs_check; |
vs_check; |
439 |
{object V68; |
{object V67; |
440 |
object V69; |
object V68; |
441 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
442 |
V68=(base[0]); |
V67=(base[0]); |
443 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
444 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
445 |
{object *p=vs_top; |
{object *p=vs_top; |
446 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
447 |
V69=(base[1]); |
V68=(base[1]); |
448 |
vs_top=sup; |
vs_top=sup; |
449 |
base[2]=VV[9]->s.s_gfdef; |
base[2]=VV[9]->s.s_gfdef; |
450 |
base[3]= (V68); |
base[3]= (V67); |
451 |
{object V70; |
{object V69; |
452 |
V70= (V69); |
V69= (V68); |
453 |
vs_top=base+4; |
vs_top=base+4; |
454 |
while(V70!=Cnil) |
while(V69!=Cnil) |
455 |
{vs_push((V70)->c.c_car);V70=(V70)->c.c_cdr;} |
{vs_push((V69)->c.c_car);V69=(V69)->c.c_cdr;} |
456 |
vs_base=base+3;} |
vs_base=base+3;} |
457 |
(void) (*Lnk9)(Lclptr9); |
(void) (*Lnk9)(Lclptr9); |
458 |
return; |
return; |
466 |
vs_check; |
vs_check; |
467 |
check_arg(2); |
check_arg(2); |
468 |
vs_top=sup; |
vs_top=sup; |
469 |
{object V71=base[0]->c.c_cdr; |
{object V70=base[0]->c.c_cdr; |
470 |
if(endp(V71))invalid_macro_call(); |
if(endp(V70))invalid_macro_call(); |
471 |
base[2]= (V71->c.c_car); |
base[2]= (V70->c.c_car); |
472 |
V71=V71->c.c_cdr; |
V70=V70->c.c_cdr; |
473 |
if(endp(V71))invalid_macro_call(); |
if(endp(V70))invalid_macro_call(); |
474 |
base[3]= (V71->c.c_car); |
base[3]= (V70->c.c_car); |
475 |
V71=V71->c.c_cdr; |
V70=V70->c.c_cdr; |
476 |
if(endp(V71))invalid_macro_call(); |
if(endp(V70))invalid_macro_call(); |
477 |
base[4]= (V71->c.c_car); |
base[4]= (V70->c.c_car); |
478 |
V71=V71->c.c_cdr; |
V70=V70->c.c_cdr; |
479 |
if(!endp(V71))invalid_macro_call();} |
if(!endp(V70))invalid_macro_call();} |
480 |
{object V72; |
{object V71; |
481 |
object V73; |
object V72; |
482 |
base[6]= Cnil; |
base[6]= Cnil; |
483 |
base[7]= VV[23]; |
base[7]= VV[23]; |
484 |
base[8]= base[2]; |
base[8]= base[2]; |
490 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
491 |
Lintern(); |
Lintern(); |
492 |
vs_top=sup; |
vs_top=sup; |
493 |
V72= vs_base[0]; |
V71= vs_base[0]; |
494 |
base[6]= Cnil; |
base[6]= Cnil; |
495 |
base[7]= VV[24]; |
base[7]= VV[24]; |
496 |
base[8]= base[2]; |
base[8]= base[2]; |
502 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
503 |
Lintern(); |
Lintern(); |
504 |
vs_top=sup; |
vs_top=sup; |
505 |
V73= vs_base[0]; |
V72= vs_base[0]; |
506 |
V74= list(2,VV[27],list(3,VV[27],VV[29],list(3,VV[27],list(2,VV[4],(V73)),VV[30]))); |
V73= list(2,VV[27],list(3,VV[27],VV[29],list(3,VV[27],list(2,VV[4],(V72)),VV[30]))); |
507 |
V75= list(2,VV[4],base[4]); |
V74= list(2,VV[4],base[4]); |
508 |
V76= list(4,VV[27],/* INLINE-ARGS */V75,VV[30],list(3,VV[27],VV[34],list(2,VV[4],base[3]))); |
V75= list(4,VV[27],/* INLINE-ARGS */V74,VV[30],list(3,VV[27],VV[34],list(2,VV[4],base[3]))); |
509 |
base[5]= list(4,VV[25],(V72),VV[26],list(4,VV[27],VV[28],/* INLINE-ARGS */V74,list(5,VV[27],VV[31],VV[32],list(4,VV[27],VV[33],/* INLINE-ARGS */V76,list(3,VV[27],list(2,VV[4],(V73)),VV[30])),VV[35]))); |
base[5]= list(4,VV[25],(V71),VV[26],list(4,VV[27],VV[28],/* INLINE-ARGS */V73,list(5,VV[27],VV[31],VV[32],list(4,VV[27],VV[33],/* INLINE-ARGS */V75,list(3,VV[27],list(2,VV[4],(V72)),VV[30])),VV[35]))); |
510 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
511 |
return;} |
return;} |
512 |
} |
} |
518 |
vs_check; |
vs_check; |
519 |
check_arg(2); |
check_arg(2); |
520 |
vs_top=sup; |
vs_top=sup; |
521 |
{object V77=base[0]->c.c_cdr; |
{object V76=base[0]->c.c_cdr; |
522 |
if(!endp(V77))invalid_macro_call();} |
if(!endp(V76))invalid_macro_call();} |
523 |
{object V78; |
{object V77; |
524 |
object V79; |
object V78; |
525 |
base[3]= (VV[37]->s.s_dbind); |
base[3]= (VV[37]->s.s_dbind); |
526 |
{object V80; |
{object V79; |
527 |
object V81= base[3]; |
object V80= base[3]; |
528 |
if(V81==Cnil){ |
if(V80==Cnil){ |
529 |
V78= Cnil; |
V77= Cnil; |
530 |
goto T162;} |
goto T162;} |
531 |
base[2]=V80=MMcons(Cnil,Cnil); |
base[2]=V79=MMcons(Cnil,Cnil); |
532 |
goto T163; |
goto T163; |
533 |
T163:; |
T163:; |
534 |
base[5]= Cnil; |
base[5]= Cnil; |
535 |
base[6]= VV[36]; |
base[6]= VV[36]; |
536 |
base[7]= (V81->c.c_car); |
base[7]= (V80->c.c_car); |
537 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
538 |
Lformat(); |
Lformat(); |
539 |
vs_top=sup; |
vs_top=sup; |
541 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
542 |
Lintern(); |
Lintern(); |
543 |
vs_top=sup; |
vs_top=sup; |
544 |
(V80->c.c_car)= vs_base[0]; |
(V79->c.c_car)= vs_base[0]; |
545 |
if((V81=MMcdr(V81))==Cnil){ |
if((V80=MMcdr(V80))==Cnil){ |
546 |
V78= base[2]; |
V77= base[2]; |
547 |
goto T162;} |
goto T162;} |
548 |
V80=MMcdr(V80)=MMcons(Cnil,Cnil); |
V79=MMcdr(V79)=MMcons(Cnil,Cnil); |
549 |
goto T163;} |
goto T163;} |
550 |
goto T162; |
goto T162; |
551 |
T162:; |
T162:; |
552 |
base[3]= (VV[37]->s.s_dbind); |
base[3]= (VV[37]->s.s_dbind); |
553 |
{object V83; |
{object V82; |
554 |
object V84= base[3]; |
object V83= base[3]; |
555 |
if(V84==Cnil){ |
if(V83==Cnil){ |
556 |
V79= Cnil; |
V78= Cnil; |
557 |
goto T169;} |
goto T169;} |
558 |
base[2]=V83=MMcons(Cnil,Cnil); |
base[2]=V82=MMcons(Cnil,Cnil); |
559 |
goto T170; |
goto T170; |
560 |
T170:; |
T170:; |
561 |
base[5]= Cnil; |
base[5]= Cnil; |
562 |
base[6]= VV[38]; |
base[6]= VV[38]; |
563 |
base[7]= VV[39]; |
base[7]= VV[39]; |
564 |
base[8]= (V84->c.c_car); |
base[8]= (V83->c.c_car); |
565 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
566 |
Lformat(); |
Lformat(); |
567 |
vs_top=sup; |
vs_top=sup; |
569 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
570 |
Lintern(); |
Lintern(); |
571 |
vs_top=sup; |
vs_top=sup; |
572 |
(V83->c.c_car)= vs_base[0]; |
(V82->c.c_car)= vs_base[0]; |
573 |
if((V84=MMcdr(V84))==Cnil){ |
if((V83=MMcdr(V83))==Cnil){ |
574 |
V79= base[2]; |
V78= base[2]; |
575 |
goto T169;} |
goto T169;} |
576 |
V83=MMcdr(V83)=MMcons(Cnil,Cnil); |
V82=MMcdr(V82)=MMcons(Cnil,Cnil); |
577 |
goto T170;} |
goto T170;} |
578 |
goto T169; |
goto T169; |
579 |
T169:; |
T169:; |
580 |
{object V87; |
{object V86; |
581 |
object V88= (V78); |
object V87= (V77); |
582 |
if(V88==Cnil){ |
if(V87==Cnil){ |
583 |
V86= Cnil; |
V85= Cnil; |
584 |
goto T177;} |
goto T177;} |
585 |
base[2]=V87=MMcons(Cnil,Cnil); |
base[2]=V86=MMcons(Cnil,Cnil); |
586 |
goto T178; |
goto T178; |
587 |
T178:; |
T178:; |
588 |
(V87->c.c_car)= list(2,(V88->c.c_car),VV[43]); |
(V86->c.c_car)= list(2,(V87->c.c_car),VV[43]); |
589 |
if((V88=MMcdr(V88))==Cnil){ |
if((V87=MMcdr(V87))==Cnil){ |
590 |
V86= base[2]; |
V85= base[2]; |
591 |
goto T177;} |
goto T177;} |
592 |
V87=MMcdr(V87)=MMcons(Cnil,Cnil); |
V86=MMcdr(V86)=MMcons(Cnil,Cnil); |
593 |
goto T178;} |
goto T178;} |
594 |
goto T177; |
goto T177; |
595 |
T177:; |
T177:; |
596 |
V90= listA(5,VV[40],VV[39],VV[41],VV[42],V86); |
V89= listA(5,VV[40],VV[39],VV[41],VV[42],V85); |
597 |
V91= list(4,VV[25],VV[44],VV[45],list(3,VV[46],VV[47],list(3,VV[48],VV[49],list(2,VV[4],(V79))))); |
V90= list(4,VV[25],VV[44],VV[45],list(3,VV[46],VV[47],list(3,VV[48],VV[49],list(2,VV[4],(V78))))); |
598 |
base[3]= (VV[37]->s.s_dbind); |
base[3]= (VV[37]->s.s_dbind); |
599 |
{object V93; |
{object V92; |
600 |
object V94= base[3]; |
object V93= base[3]; |
601 |
object V95= (V79); |
object V94= (V78); |
602 |
if(V94==Cnil||V95==Cnil){ |
if(V93==Cnil||V94==Cnil){ |
603 |
V92= Cnil; |
V91= Cnil; |
604 |
goto T180;} |
goto T180;} |
605 |
base[2]=V93=MMcons(Cnil,Cnil); |
base[2]=V92=MMcons(Cnil,Cnil); |
606 |
goto T181; |
goto T181; |
607 |
T181:; |
T181:; |
608 |
V98= list(3,VV[55],VV[56],list(2,(V95->c.c_car),VV[30])); |
V97= list(3,VV[55],VV[56],list(2,(V94->c.c_car),VV[30])); |
609 |
(V93->c.c_car)= list(3,VV[54],/* INLINE-ARGS */V98,list(3,VV[57],list(2,VV[4],(V94->c.c_car)),VV[58])); |
(V92->c.c_car)= list(3,VV[54],/* INLINE-ARGS */V97,list(3,VV[57],list(2,VV[4],(V93->c.c_car)),VV[58])); |
610 |
if((V94=MMcdr(V94))==Cnil||(V95=MMcdr(V95))==Cnil){ |
if((V93=MMcdr(V93))==Cnil||(V94=MMcdr(V94))==Cnil){ |
611 |
V92= base[2]; |
V91= base[2]; |
612 |
goto T180;} |
goto T180;} |
613 |
V93=MMcdr(V93)=MMcons(Cnil,Cnil); |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
614 |
goto T181;} |
goto T181;} |
615 |
goto T180; |
goto T180; |
616 |
T180:; |
T180:; |
617 |
V99= list(4,VV[11],VV[50],VV[51],listA(3,VV[52],VV[53],append(V92,VV[59]))); |
V98= list(4,VV[11],VV[50],VV[51],listA(3,VV[52],VV[53],append(V91,VV[59]))); |
618 |
base[3]= (VV[37]->s.s_dbind); |
base[3]= (VV[37]->s.s_dbind); |
619 |
{object V101; |
{object V100; |
620 |
object V102= base[3]; |
object V101= base[3]; |
621 |
if(V102==Cnil){ |
if(V101==Cnil){ |
622 |
V100= Cnil; |
V99= Cnil; |
623 |
goto T183;} |
goto T183;} |
624 |
base[2]=V101=MMcons(Cnil,Cnil); |
base[2]=V100=MMcons(Cnil,Cnil); |
625 |
goto T184; |
goto T184; |
626 |
T184:; |
T184:; |
627 |
(V101->c.c_car)= list(4,VV[60],VV[39],(V102->c.c_car),VV[61]); |
(V100->c.c_car)= list(4,VV[60],VV[39],(V101->c.c_car),VV[61]); |
628 |
if((V102=MMcdr(V102))==Cnil){ |
if((V101=MMcdr(V101))==Cnil){ |
629 |
V100= base[2]; |
V99= base[2]; |
630 |
goto T183;} |
goto T183;} |
631 |
V101=MMcdr(V101)=MMcons(Cnil,Cnil); |
V100=MMcdr(V100)=MMcons(Cnil,Cnil); |
632 |
goto T184;} |
goto T184;} |
633 |
goto T183; |
goto T183; |
634 |
T183:; |
T183:; |
635 |
base[2]= listA(5,VV[6],/* INLINE-ARGS */V90,/* INLINE-ARGS */V91,/* INLINE-ARGS */V99,V100); |
base[2]= listA(5,VV[6],/* INLINE-ARGS */V89,/* INLINE-ARGS */V90,/* INLINE-ARGS */V98,V99); |
636 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
637 |
return;} |
return;} |
638 |
} |
} |
642 |
{ |
{ |
643 |
va_list ap; |
va_list ap; |
644 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
645 |
{object V104; |
{object V103; |
646 |
|
object V104; |
647 |
object V105; |
object V105; |
648 |
object V106; |
object V106; |
649 |
object V107; |
object V107; |
656 |
object V114; |
object V114; |
657 |
object V115; |
object V115; |
658 |
object V116; |
object V116; |
|
object V117; |
|
659 |
va_start(ap,first); |
va_start(ap,first); |
660 |
narg= narg - 0; |
narg= narg - 0; |
661 |
{ |
{ |
662 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap); |
663 |
V104=(Vcs[0]); |
V103=(Vcs[0]); |
664 |
V105=(Vcs[1]); |
V104=(Vcs[1]); |
665 |
V106=(Vcs[2]); |
V105=(Vcs[2]); |
666 |
V107=(Vcs[3]); |
V106=(Vcs[3]); |
667 |
V108=(Vcs[4]); |
V107=(Vcs[4]); |
668 |
V109=(Vcs[5]); |
V108=(Vcs[5]); |
669 |
V110=(Vcs[6]); |
V109=(Vcs[6]); |
670 |
V111=(Vcs[7]); |
V110=(Vcs[7]); |
671 |
V112=(Vcs[8]); |
V111=(Vcs[8]); |
672 |
V113=(Vcs[9]); |
V112=(Vcs[9]); |
673 |
V114=(Vcs[10]); |
V113=(Vcs[10]); |
674 |
V115=(Vcs[11]); |
V114=(Vcs[11]); |
675 |
V116=(Vcs[12]); |
V115=(Vcs[12]); |
676 |
V117=(Vcs[13]); |
V116=(Vcs[13]); |
677 |
base[0]= VV[39]; |
base[0]= VV[39]; |
678 |
base[1]= (V104); |
base[1]= (V103); |
679 |
base[2]= (V105); |
base[2]= (V104); |
680 |
base[3]= (V106); |
base[3]= (V105); |
681 |
base[4]= (V107); |
base[4]= (V106); |
682 |
base[5]= (V108); |
base[5]= (V107); |
683 |
base[6]= (V109); |
base[6]= (V108); |
684 |
base[7]= (V110); |
base[7]= (V109); |
685 |
base[8]= (V111); |
base[8]= (V110); |
686 |
base[9]= (V112); |
base[9]= (V111); |
687 |
base[10]= (V113); |
base[10]= (V112); |
688 |
base[11]= (V114); |
base[11]= (V113); |
689 |
base[12]= (V115); |
base[12]= (V114); |
690 |
base[13]= (V116); |
base[13]= (V115); |
691 |
base[14]= (V117); |
base[14]= (V116); |
692 |
vs_top=(vs_base=base+0)+15; |
vs_top=(vs_base=base+0)+15; |
693 |
siLmake_structure(); |
siLmake_structure(); |
694 |
vs_top=sup; |
vs_top=sup; |
695 |
{object V118 = vs_base[0]; |
{object V117 = vs_base[0]; |
696 |
VMR12(V118)} |
VMR12(V117)} |
697 |
va_end(ap); |
va_end(ap); |
698 |
base[0]=base[0]; |
base[0]=base[0]; |
699 |
return Cnil;} |
return Cnil;} |
706 |
vs_check; |
vs_check; |
707 |
check_arg(2); |
check_arg(2); |
708 |
vs_top=sup; |
vs_top=sup; |
709 |
{object V119=base[0]->c.c_cdr; |
{object V118=base[0]->c.c_cdr; |
710 |
if(endp(V119))invalid_macro_call(); |
if(endp(V118))invalid_macro_call(); |
711 |
base[2]= (V119->c.c_car); |
base[2]= (V118->c.c_car); |
712 |
V119=V119->c.c_cdr; |
V118=V118->c.c_cdr; |
713 |
if(!endp(V119))invalid_macro_call();} |
if(!endp(V118))invalid_macro_call();} |
714 |
{object V121; |
{object V120; |
715 |
object V122= VV[64]; |
object V121= VV[64]; |
716 |
if(V122==Cnil){ |
if(V121==Cnil){ |
717 |
V120= Cnil; |
V119= Cnil; |
718 |
goto T201;} |
goto T201;} |
719 |
base[3]=V121=MMcons(Cnil,Cnil); |
base[3]=V120=MMcons(Cnil,Cnil); |
720 |
goto T202; |
goto T202; |
721 |
T202:; |
T202:; |
722 |
(V121->c.c_car)= list(3,VV[62],list(2,(V122->c.c_car),base[2]),VV[63]); |
(V120->c.c_car)= list(3,VV[62],list(2,(V121->c.c_car),base[2]),VV[63]); |
723 |
if((V122=MMcdr(V122))==Cnil){ |
if((V121=MMcdr(V121))==Cnil){ |
724 |
V120= base[3]; |
V119= base[3]; |
725 |
goto T201;} |
goto T201;} |
726 |
V121=MMcdr(V121)=MMcons(Cnil,Cnil); |
V120=MMcdr(V120)=MMcons(Cnil,Cnil); |
727 |
goto T202;} |
goto T202;} |
728 |
goto T201; |
goto T201; |
729 |
T201:; |
T201:; |
730 |
base[3]= make_cons(VV[6],V120); |
base[3]= make_cons(VV[6],V119); |
731 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
732 |
return; |
return; |
733 |
} |
} |
734 |
/* local entry for function INITIALIZE-INFO-BOUND-SLOTS */ |
/* local entry for function INITIALIZE-INFO-BOUND-SLOTS */ |
735 |
|
|
736 |
static object LI14(V125) |
static object LI14(V124) |
737 |
|
|
738 |
register object V125; |
register object V124; |
739 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
740 |
goto TTL; |
goto TTL; |
741 |
TTL:; |
TTL:; |
742 |
{register object V126; |
{register object V125; |
743 |
V126= Cnil; |
V125= Cnil; |
744 |
if((VV[43])==(STREF(object,(V125),8))){ |
if((VV[43])==(STREF(object,(V124),8))){ |
745 |
goto T204;} |
goto T204;} |
746 |
V126= make_cons(VV[65],(V126)); |
V125= make_cons(VV[65],(V125)); |
747 |
goto T204; |
goto T204; |
748 |
T204:; |
T204:; |
749 |
if((VV[43])==(STREF(object,(V125),12))){ |
if((VV[43])==(STREF(object,(V124),12))){ |
750 |
goto T208;} |
goto T208;} |
751 |
V126= make_cons(VV[66],(V126)); |
V125= make_cons(VV[66],(V125)); |
752 |
goto T208; |
goto T208; |
753 |
T208:; |
T208:; |
754 |
if((VV[43])==(STREF(object,(V125),16))){ |
if((VV[43])==(STREF(object,(V124),16))){ |
755 |
goto T212;} |
goto T212;} |
756 |
V126= make_cons(VV[67],(V126)); |
V125= make_cons(VV[67],(V125)); |
757 |
goto T212; |
goto T212; |
758 |
T212:; |
T212:; |
759 |
if((VV[43])==(STREF(object,(V125),20))){ |
if((VV[43])==(STREF(object,(V124),20))){ |
760 |
goto T216;} |
goto T216;} |
761 |
V126= make_cons(VV[68],(V126)); |
V125= make_cons(VV[68],(V125)); |
762 |
goto T216; |
goto T216; |
763 |
T216:; |
T216:; |
764 |
if((VV[43])==(STREF(object,(V125),24))){ |
if((VV[43])==(STREF(object,(V124),24))){ |
765 |
goto T220;} |
goto T220;} |
766 |
V126= make_cons(VV[69],(V126)); |
V125= make_cons(VV[69],(V125)); |
767 |
goto T220; |
goto T220; |
768 |
T220:; |
T220:; |
769 |
if((VV[43])==(STREF(object,(V125),28))){ |
if((VV[43])==(STREF(object,(V124),28))){ |
770 |
goto T224;} |
goto T224;} |
771 |
V126= make_cons(VV[70],(V126)); |
V125= make_cons(VV[70],(V125)); |
772 |
goto T224; |
goto T224; |
773 |
T224:; |
T224:; |
774 |
if((VV[43])==(STREF(object,(V125),32))){ |
if((VV[43])==(STREF(object,(V124),32))){ |
775 |
goto T228;} |
goto T228;} |
776 |
V126= make_cons(VV[71],(V126)); |
V125= make_cons(VV[71],(V125)); |
777 |
goto T228; |
goto T228; |
778 |
T228:; |
T228:; |
779 |
if((VV[43])==(STREF(object,(V125),36))){ |
if((VV[43])==(STREF(object,(V124),36))){ |
780 |
goto T232;} |
goto T232;} |
781 |
V126= make_cons(VV[72],(V126)); |
V125= make_cons(VV[72],(V125)); |
782 |
goto T232; |
goto T232; |
783 |
T232:; |
T232:; |
784 |
if((VV[43])==(STREF(object,(V125),40))){ |
if((VV[43])==(STREF(object,(V124),40))){ |
785 |
goto T236;} |
goto T236;} |
786 |
V126= make_cons(VV[73],(V126)); |
V125= make_cons(VV[73],(V125)); |
787 |
goto T236; |
goto T236; |
788 |
T236:; |
T236:; |
789 |
if((VV[43])==(STREF(object,(V125),44))){ |
if((VV[43])==(STREF(object,(V124),44))){ |
790 |
goto T240;} |
goto T240;} |
791 |
V126= make_cons(VV[74],(V126)); |
V125= make_cons(VV[74],(V125)); |
792 |
goto T240; |
goto T240; |
793 |
T240:; |
T240:; |
794 |
if((VV[43])==(STREF(object,(V125),48))){ |
if((VV[43])==(STREF(object,(V124),48))){ |
795 |
goto T244;} |
goto T244;} |
796 |
V126= make_cons(VV[13],(V126)); |
V125= make_cons(VV[13],(V125)); |
797 |
goto T244; |
goto T244; |
798 |
T244:; |
T244:; |
799 |
if((VV[43])==(STREF(object,(V125),52))){ |
if((VV[43])==(STREF(object,(V124),52))){ |
800 |
goto T248;} |
goto T248;} |
801 |
V126= make_cons(VV[75],(V126)); |
V125= make_cons(VV[75],(V125)); |
802 |
goto T248; |
goto T248; |
803 |
T248:; |
T248:; |
804 |
{object V139 = (V126); |
{object V138 = (V125); |
805 |
VMR14(V139)}} |
VMR14(V138)}} |
806 |
return Cnil; |
return Cnil; |
807 |
} |
} |
808 |
/* macro definition for INITIALIZE-INFO-VALID-P */ |
/* macro definition for INITIALIZE-INFO-VALID-P */ |
813 |
vs_check; |
vs_check; |
814 |
check_arg(2); |
check_arg(2); |
815 |
vs_top=sup; |
vs_top=sup; |
816 |
{object V140=base[0]->c.c_cdr; |
{object V139=base[0]->c.c_cdr; |
817 |
if(endp(V140))invalid_macro_call(); |
if(endp(V139))invalid_macro_call(); |
818 |
base[2]= (V140->c.c_car); |
base[2]= (V139->c.c_car); |
819 |
V140=V140->c.c_cdr; |
V139=V139->c.c_cdr; |
820 |
if(!endp(V140))invalid_macro_call();} |
if(!endp(V139))invalid_macro_call();} |
821 |
V141= list(2,VV[76],list(2,VV[77],base[2])); |
V140= list(2,VV[76],list(2,VV[77],base[2])); |
822 |
V142= make_cons(/* INLINE-ARGS */V141,Cnil); |
V141= make_cons(/* INLINE-ARGS */V140,Cnil); |
823 |
V143= list(3,VV[61],base[2],list(2,VV[4],VV[65])); |
V142= list(3,VV[61],base[2],list(2,VV[4],VV[65])); |
824 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V142,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V143,list(2,VV[77],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V141,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V142,list(2,VV[77],base[2])),VV[76])); |
825 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
826 |
return; |
return; |
827 |
} |
} |
833 |
vs_check; |
vs_check; |
834 |
check_arg(2); |
check_arg(2); |
835 |
vs_top=sup; |
vs_top=sup; |
836 |
{object V144=base[0]->c.c_cdr; |
{object V143=base[0]->c.c_cdr; |
837 |
if(endp(V144))invalid_macro_call(); |
if(endp(V143))invalid_macro_call(); |
838 |
base[2]= (V144->c.c_car); |
base[2]= (V143->c.c_car); |
839 |
V144=V144->c.c_cdr; |
V143=V143->c.c_cdr; |
840 |
if(!endp(V144))invalid_macro_call();} |
if(!endp(V143))invalid_macro_call();} |
841 |
V145= list(2,VV[76],list(2,VV[80],base[2])); |
V144= list(2,VV[76],list(2,VV[80],base[2])); |
842 |
V146= make_cons(/* INLINE-ARGS */V145,Cnil); |
V145= make_cons(/* INLINE-ARGS */V144,Cnil); |
843 |
V147= list(3,VV[61],base[2],list(2,VV[4],VV[66])); |
V146= list(3,VV[61],base[2],list(2,VV[4],VV[66])); |
844 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V146,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V147,list(2,VV[80],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V145,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V146,list(2,VV[80],base[2])),VV[76])); |
845 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
846 |
return; |
return; |
847 |
} |
} |
853 |
vs_check; |
vs_check; |
854 |
check_arg(2); |
check_arg(2); |
855 |
vs_top=sup; |
vs_top=sup; |
856 |
{object V148=base[0]->c.c_cdr; |
{object V147=base[0]->c.c_cdr; |
857 |
if(endp(V148))invalid_macro_call(); |
if(endp(V147))invalid_macro_call(); |
858 |
base[2]= (V148->c.c_car); |
base[2]= (V147->c.c_car); |
859 |
V148=V148->c.c_cdr; |
V147=V147->c.c_cdr; |
860 |
if(!endp(V148))invalid_macro_call();} |
if(!endp(V147))invalid_macro_call();} |
861 |
V149= list(2,VV[76],list(2,VV[81],base[2])); |
V148= list(2,VV[76],list(2,VV[81],base[2])); |
862 |
V150= make_cons(/* INLINE-ARGS */V149,Cnil); |
V149= make_cons(/* INLINE-ARGS */V148,Cnil); |
863 |
V151= list(3,VV[61],base[2],list(2,VV[4],VV[67])); |
V150= list(3,VV[61],base[2],list(2,VV[4],VV[67])); |
864 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V150,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V151,list(2,VV[81],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V149,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V150,list(2,VV[81],base[2])),VV[76])); |
865 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
866 |
return; |
return; |
867 |
} |
} |
873 |
vs_check; |
vs_check; |
874 |
check_arg(2); |
check_arg(2); |
875 |
vs_top=sup; |
vs_top=sup; |
876 |
{object V152=base[0]->c.c_cdr; |
{object V151=base[0]->c.c_cdr; |
877 |
if(endp(V152))invalid_macro_call(); |
if(endp(V151))invalid_macro_call(); |
878 |
base[2]= (V152->c.c_car); |
base[2]= (V151->c.c_car); |
879 |
V152=V152->c.c_cdr; |
V151=V151->c.c_cdr; |
880 |
if(!endp(V152))invalid_macro_call();} |
if(!endp(V151))invalid_macro_call();} |
881 |
V153= list(2,VV[76],list(2,VV[82],base[2])); |
V152= list(2,VV[76],list(2,VV[82],base[2])); |
882 |
V154= make_cons(/* INLINE-ARGS */V153,Cnil); |
V153= make_cons(/* INLINE-ARGS */V152,Cnil); |
883 |
V155= list(3,VV[61],base[2],list(2,VV[4],VV[68])); |
V154= list(3,VV[61],base[2],list(2,VV[4],VV[68])); |
884 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V154,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V155,list(2,VV[82],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V153,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V154,list(2,VV[82],base[2])),VV[76])); |
885 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
886 |
return; |
return; |
887 |
} |
} |
893 |
vs_check; |
vs_check; |
894 |
check_arg(2); |
check_arg(2); |
895 |
vs_top=sup; |
vs_top=sup; |
896 |
{object V156=base[0]->c.c_cdr; |
{object V155=base[0]->c.c_cdr; |
897 |
if(endp(V156))invalid_macro_call(); |
if(endp(V155))invalid_macro_call(); |
898 |
base[2]= (V156->c.c_car); |
base[2]= (V155->c.c_car); |
899 |
V156=V156->c.c_cdr; |
V155=V155->c.c_cdr; |
900 |
if(!endp(V156))invalid_macro_call();} |
if(!endp(V155))invalid_macro_call();} |
901 |
V157= list(2,VV[76],list(2,VV[83],base[2])); |
V156= list(2,VV[76],list(2,VV[83],base[2])); |
902 |
V158= make_cons(/* INLINE-ARGS */V157,Cnil); |
V157= make_cons(/* INLINE-ARGS */V156,Cnil); |
903 |
V159= list(3,VV[61],base[2],list(2,VV[4],VV[69])); |
V158= list(3,VV[61],base[2],list(2,VV[4],VV[69])); |
904 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V158,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V159,list(2,VV[83],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V157,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V158,list(2,VV[83],base[2])),VV[76])); |
905 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
906 |
return; |
return; |
907 |
} |
} |
913 |
vs_check; |
vs_check; |
914 |
check_arg(2); |
check_arg(2); |
915 |
vs_top=sup; |
vs_top=sup; |
916 |
{object V160=base[0]->c.c_cdr; |
{object V159=base[0]->c.c_cdr; |
917 |
if(endp(V160))invalid_macro_call(); |
if(endp(V159))invalid_macro_call(); |
918 |
base[2]= (V160->c.c_car); |
base[2]= (V159->c.c_car); |
919 |
V160=V160->c.c_cdr; |
V159=V159->c.c_cdr; |
920 |
if(!endp(V160))invalid_macro_call();} |
if(!endp(V159))invalid_macro_call();} |
921 |
V161= list(2,VV[76],list(2,VV[84],base[2])); |
V160= list(2,VV[76],list(2,VV[84],base[2])); |
922 |
V162= make_cons(/* INLINE-ARGS */V161,Cnil); |
V161= make_cons(/* INLINE-ARGS */V160,Cnil); |
923 |
V163= list(3,VV[61],base[2],list(2,VV[4],VV[70])); |
V162= list(3,VV[61],base[2],list(2,VV[4],VV[70])); |
924 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V162,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V163,list(2,VV[84],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V161,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V162,list(2,VV[84],base[2])),VV[76])); |
925 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
926 |
return; |
return; |
927 |
} |
} |
933 |
vs_check; |
vs_check; |
934 |
check_arg(2); |
check_arg(2); |
935 |
vs_top=sup; |
vs_top=sup; |
936 |
{object V164=base[0]->c.c_cdr; |
{object V163=base[0]->c.c_cdr; |
937 |
if(endp(V164))invalid_macro_call(); |
if(endp(V163))invalid_macro_call(); |
938 |
base[2]= (V164->c.c_car); |
base[2]= (V163->c.c_car); |
939 |
V164=V164->c.c_cdr; |
V163=V163->c.c_cdr; |
940 |
if(!endp(V164))invalid_macro_call();} |
if(!endp(V163))invalid_macro_call();} |
941 |
V165= list(2,VV[76],list(2,VV[85],base[2])); |
V164= list(2,VV[76],list(2,VV[85],base[2])); |
942 |
V166= make_cons(/* INLINE-ARGS */V165,Cnil); |
V165= make_cons(/* INLINE-ARGS */V164,Cnil); |
943 |
V167= list(3,VV[61],base[2],list(2,VV[4],VV[71])); |
V166= list(3,VV[61],base[2],list(2,VV[4],VV[71])); |
944 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V166,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V167,list(2,VV[85],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V165,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V166,list(2,VV[85],base[2])),VV[76])); |
945 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
946 |
return; |
return; |
947 |
} |
} |
953 |
vs_check; |
vs_check; |
954 |
check_arg(2); |
check_arg(2); |
955 |
vs_top=sup; |
vs_top=sup; |
956 |
{object V168=base[0]->c.c_cdr; |
{object V167=base[0]->c.c_cdr; |
957 |
if(endp(V168))invalid_macro_call(); |
if(endp(V167))invalid_macro_call(); |
958 |
base[2]= (V168->c.c_car); |
base[2]= (V167->c.c_car); |
959 |
V168=V168->c.c_cdr; |
V167=V167->c.c_cdr; |
960 |
if(!endp(V168))invalid_macro_call();} |
if(!endp(V167))invalid_macro_call();} |
961 |
V169= list(2,VV[76],list(2,VV[86],base[2])); |
V168= list(2,VV[76],list(2,VV[86],base[2])); |
962 |
V170= make_cons(/* INLINE-ARGS */V169,Cnil); |
V169= make_cons(/* INLINE-ARGS */V168,Cnil); |
963 |
V171= list(3,VV[61],base[2],list(2,VV[4],VV[72])); |
V170= list(3,VV[61],base[2],list(2,VV[4],VV[72])); |
964 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V170,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V171,list(2,VV[86],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V169,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V170,list(2,VV[86],base[2])),VV[76])); |
965 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
966 |
return; |
return; |
967 |
} |
} |
973 |
vs_check; |
vs_check; |
974 |
check_arg(2); |
check_arg(2); |
975 |
vs_top=sup; |
vs_top=sup; |
976 |
{object V172=base[0]->c.c_cdr; |
{object V171=base[0]->c.c_cdr; |
977 |
if(endp(V172))invalid_macro_call(); |
if(endp(V171))invalid_macro_call(); |
978 |
base[2]= (V172->c.c_car); |
base[2]= (V171->c.c_car); |
979 |
V172=V172->c.c_cdr; |
V171=V171->c.c_cdr; |
980 |
if(!endp(V172))invalid_macro_call();} |
if(!endp(V171))invalid_macro_call();} |
981 |
V173= list(2,VV[76],list(2,VV[87],base[2])); |
V172= list(2,VV[76],list(2,VV[87],base[2])); |
982 |
V174= make_cons(/* INLINE-ARGS */V173,Cnil); |
V173= make_cons(/* INLINE-ARGS */V172,Cnil); |
983 |
V175= list(3,VV[61],base[2],list(2,VV[4],VV[73])); |
V174= list(3,VV[61],base[2],list(2,VV[4],VV[73])); |
984 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V174,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V175,list(2,VV[87],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V173,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V174,list(2,VV[87],base[2])),VV[76])); |
985 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
986 |
return; |
return; |
987 |
} |
} |
993 |
vs_check; |
vs_check; |
994 |
check_arg(2); |
check_arg(2); |
995 |
vs_top=sup; |
vs_top=sup; |
996 |
{object V176=base[0]->c.c_cdr; |
{object V175=base[0]->c.c_cdr; |
997 |
if(endp(V176))invalid_macro_call(); |
if(endp(V175))invalid_macro_call(); |
998 |
base[2]= (V176->c.c_car); |
base[2]= (V175->c.c_car); |
999 |
V176=V176->c.c_cdr; |
V175=V175->c.c_cdr; |
1000 |
if(!endp(V176))invalid_macro_call();} |
if(!endp(V175))invalid_macro_call();} |
1001 |
V177= list(2,VV[76],list(2,VV[88],base[2])); |
V176= list(2,VV[76],list(2,VV[88],base[2])); |
1002 |
V178= make_cons(/* INLINE-ARGS */V177,Cnil); |
V177= make_cons(/* INLINE-ARGS */V176,Cnil); |
1003 |
V179= list(3,VV[61],base[2],list(2,VV[4],VV[74])); |
V178= list(3,VV[61],base[2],list(2,VV[4],VV[74])); |
1004 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V178,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V179,list(2,VV[88],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V177,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V178,list(2,VV[88],base[2])),VV[76])); |
1005 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1006 |
return; |
return; |
1007 |
} |
} |
1013 |
vs_check; |
vs_check; |
1014 |
check_arg(2); |
check_arg(2); |
1015 |
vs_top=sup; |
vs_top=sup; |
1016 |
{object V180=base[0]->c.c_cdr; |
{object V179=base[0]->c.c_cdr; |
1017 |
if(endp(V180))invalid_macro_call(); |
if(endp(V179))invalid_macro_call(); |
1018 |
base[2]= (V180->c.c_car); |
base[2]= (V179->c.c_car); |
1019 |
V180=V180->c.c_cdr; |
V179=V179->c.c_cdr; |
1020 |
if(!endp(V180))invalid_macro_call();} |
if(!endp(V179))invalid_macro_call();} |
1021 |
V181= list(2,VV[76],list(2,VV[89],base[2])); |
V180= list(2,VV[76],list(2,VV[89],base[2])); |
1022 |
V182= make_cons(/* INLINE-ARGS */V181,Cnil); |
V181= make_cons(/* INLINE-ARGS */V180,Cnil); |
1023 |
V183= list(3,VV[61],base[2],list(2,VV[4],VV[13])); |
V182= list(3,VV[61],base[2],list(2,VV[4],VV[13])); |
1024 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V182,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V183,list(2,VV[89],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V181,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V182,list(2,VV[89],base[2])),VV[76])); |
1025 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1026 |
return; |
return; |
1027 |
} |
} |
1033 |
vs_check; |
vs_check; |
1034 |
check_arg(2); |
check_arg(2); |
1035 |
vs_top=sup; |
vs_top=sup; |
1036 |
{object V184=base[0]->c.c_cdr; |
{object V183=base[0]->c.c_cdr; |
1037 |
if(endp(V184))invalid_macro_call(); |
if(endp(V183))invalid_macro_call(); |
1038 |
base[2]= (V184->c.c_car); |
base[2]= (V183->c.c_car); |
1039 |
V184=V184->c.c_cdr; |
V183=V183->c.c_cdr; |
1040 |
if(!endp(V184))invalid_macro_call();} |
if(!endp(V183))invalid_macro_call();} |
1041 |
V185= list(2,VV[76],list(2,VV[90],base[2])); |
V184= list(2,VV[76],list(2,VV[90],base[2])); |
1042 |
V186= make_cons(/* INLINE-ARGS */V185,Cnil); |
V185= make_cons(/* INLINE-ARGS */V184,Cnil); |
1043 |
V187= list(3,VV[61],base[2],list(2,VV[4],VV[75])); |
V186= list(3,VV[61],base[2],list(2,VV[4],VV[75])); |
1044 |
base[3]= list(3,VV[52],/* INLINE-ARGS */V186,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V187,list(2,VV[90],base[2])),VV[76])); |
base[3]= list(3,VV[52],/* INLINE-ARGS */V185,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V186,list(2,VV[90],base[2])),VV[76])); |
1045 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1046 |
return; |
return; |
1047 |
} |
} |
1048 |
/* local entry for function RESET-INITIALIZE-INFO */ |
/* local entry for function RESET-INITIALIZE-INFO */ |
1049 |
|
|
1050 |
static object LI27(V189) |
static object LI27(V188) |
1051 |
|
|
1052 |
register object V189; |
register object V188; |
1053 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1054 |
goto TTL; |
goto TTL; |
1055 |
TTL:; |
TTL:; |
1056 |
V190 = (V189); |
base[0]= CMPcar(STREF(object,(V188),0)); |
|
base[0]= CMPcar(STREF(object,(V189),0)); |
|
1057 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1058 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk269)(Lclptr269); |
1059 |
vs_top=sup; |
vs_top=sup; |
1060 |
V191= vs_base[0]; |
V189= vs_base[0]; |
1061 |
V192= Ct; |
V190= Ct; |
1062 |
STSET(object,V190,4, V191); |
STSET(object,(V188),4, V189); |
1063 |
(void)(V191); |
(void)(V189); |
1064 |
{object V193; |
{object V191; |
1065 |
if(((VV[91]->s.s_dbind))==Cnil){ |
if(((VV[91]->s.s_dbind))==Cnil){ |
1066 |
goto T257;} |
goto T257;} |
1067 |
V193= (*(LnkLI50))((V189)); |
V191= (*(LnkLI50))((V188)); |
1068 |
goto T255; |
goto T255; |
1069 |
goto T257; |
goto T257; |
1070 |
T257:; |
T257:; |
1071 |
V193= VV[92]; |
V191= VV[92]; |
1072 |
goto T255; |
goto T255; |
1073 |
T255:; |
T255:; |
1074 |
V194 = (V189); |
V192= Ct; |
1075 |
V195= Ct; |
STSET(object,(V188),8, VV[43]); |
|
STSET(object,V194,8, VV[43]); |
|
1076 |
(void)(VV[43]); |
(void)(VV[43]); |
1077 |
V196 = (V189); |
V193= Ct; |
1078 |
V197= Ct; |
STSET(object,(V188),12, VV[43]); |
|
STSET(object,V196,12, VV[43]); |
|
1079 |
(void)(VV[43]); |
(void)(VV[43]); |
1080 |
V198 = (V189); |
V194= Ct; |
1081 |
V199= Ct; |
STSET(object,(V188),16, VV[43]); |
|
STSET(object,V198,16, VV[43]); |
|
1082 |
(void)(VV[43]); |
(void)(VV[43]); |
1083 |
V200 = (V189); |
V195= Ct; |
1084 |
V201= Ct; |
STSET(object,(V188),20, VV[43]); |
|
STSET(object,V200,20, VV[43]); |
|
1085 |
(void)(VV[43]); |
(void)(VV[43]); |
1086 |
V202 = (V189); |
V196= Ct; |
1087 |
V203= Ct; |
STSET(object,(V188),24, VV[43]); |
|
STSET(object,V202,24, VV[43]); |
|
1088 |
(void)(VV[43]); |
(void)(VV[43]); |
1089 |
V204 = (V189); |
V197= Ct; |
1090 |
V205= Ct; |
STSET(object,(V188),28, VV[43]); |
|
STSET(object,V204,28, VV[43]); |
|
1091 |
(void)(VV[43]); |
(void)(VV[43]); |
1092 |
V206 = (V189); |
V198= Ct; |
1093 |
V207= Ct; |
STSET(object,(V188),32, VV[43]); |
|
STSET(object,V206,32, VV[43]); |
|
1094 |
(void)(VV[43]); |
(void)(VV[43]); |
1095 |
V208 = (V189); |
V199= Ct; |
1096 |
V209= Ct; |
STSET(object,(V188),36, VV[43]); |
|
STSET(object,V208,36, VV[43]); |
|
1097 |
(void)(VV[43]); |
(void)(VV[43]); |
1098 |
V210 = (V189); |
V200= Ct; |
1099 |
V211= Ct; |
STSET(object,(V188),40, VV[43]); |
|
STSET(object,V210,40, VV[43]); |
|
1100 |
(void)(VV[43]); |
(void)(VV[43]); |
1101 |
V212 = (V189); |
V201= Ct; |
1102 |
V213= Ct; |
STSET(object,(V188),44, VV[43]); |
|
STSET(object,V212,44, VV[43]); |
|
1103 |
(void)(VV[43]); |
(void)(VV[43]); |
1104 |
V214 = (V189); |
V202= Ct; |
1105 |
V215= Ct; |
STSET(object,(V188),48, VV[43]); |
|
STSET(object,V214,48, VV[43]); |
|
1106 |
(void)(VV[43]); |
(void)(VV[43]); |
1107 |
V216 = (V189); |
V203= Ct; |
1108 |
V217= Ct; |
STSET(object,(V188),52, VV[43]); |
|
STSET(object,V216,52, VV[43]); |
|
1109 |
(void)(VV[43]); |
(void)(VV[43]); |
1110 |
{register object V218; |
{register object V204; |
1111 |
register object V219; |
register object V205; |
1112 |
V218= (V193); |
V204= (V191); |
1113 |
V219= CMPcar((V218)); |
V205= CMPcar((V204)); |
1114 |
goto T275; |
goto T275; |
1115 |
T275:; |
T275:; |
1116 |
if(!(((V218))==Cnil)){ |
if(!(((V204))==Cnil)){ |
1117 |
goto T276;} |
goto T276;} |
1118 |
goto T271; |
goto T271; |
1119 |
goto T276; |
goto T276; |
1120 |
T276:; |
T276:; |
1121 |
(void)((*(LnkLI61))((V189),(V219))); |
(void)((*(LnkLI61))((V188),(V205))); |
1122 |
V218= CMPcdr((V218)); |
V204= CMPcdr((V204)); |
1123 |
V219= CMPcar((V218)); |
V205= CMPcar((V204)); |
1124 |
goto T275;} |
goto T275;} |
1125 |
goto T271; |
goto T271; |
1126 |
T271:; |
T271:; |
1127 |
{object V220 = (V189); |
{object V206 = (V188); |
1128 |
VMR27(V220)}} |
VMR27(V206)}} |
1129 |
base[0]=base[0]; |
base[0]=base[0]; |
1130 |
return Cnil; |
return Cnil; |
1131 |
} |
} |
1132 |
/* local entry for function RESET-CLASS-INITIALIZE-INFO */ |
/* local entry for function RESET-CLASS-INITIALIZE-INFO */ |
1133 |
|
|
1134 |
static object LI28(V222) |
static object LI28(V208) |
1135 |
|
|
1136 |
object V222; |
object V208; |
1137 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1138 |
goto TTL; |
goto TTL; |
1139 |
TTL:; |
TTL:; |
1140 |
base[0]= (V222); |
base[0]= (V208); |
1141 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1142 |
(void) (*Lnk245)(Lclptr245); |
(void) (*Lnk271)(Lclptr271); |
1143 |
vs_top=sup; |
vs_top=sup; |
1144 |
V223= vs_base[0]; |
V209= vs_base[0]; |
1145 |
{object V224 = (*(LnkLI244))(V223); |
{object V210 = (*(LnkLI270))(V209); |
1146 |
VMR28(V224)} |
VMR28(V210)} |
1147 |
base[0]=base[0]; |
base[0]=base[0]; |
1148 |
return Cnil; |
return Cnil; |
1149 |
} |
} |
1150 |
/* local entry for function RESET-CLASS-INITIALIZE-INFO-1 */ |
/* local entry for function RESET-CLASS-INITIALIZE-INFO-1 */ |
1151 |
|
|
1152 |
static object LI29(V226) |
static object LI29(V212) |
1153 |
|
|
1154 |
register object V226; |
register object V212; |
1155 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1156 |
goto TTL; |
goto TTL; |
1157 |
TTL:; |
TTL:; |
1158 |
if(!(type_of((V226))==t_cons)){ |
if(!(type_of((V212))==t_cons)){ |
1159 |
goto T289;} |
goto T289;} |
1160 |
if((CMPcar((V226)))==Cnil){ |
if((CMPcar((V212)))==Cnil){ |
1161 |
goto T291;} |
goto T291;} |
1162 |
(void)((*(LnkLI246))(CMPcar((V226)))); |
(void)((*(LnkLI272))(CMPcar((V212)))); |
1163 |
goto T291; |
goto T291; |
1164 |
T291:; |
T291:; |
1165 |
{object V227; |
{object V213; |
1166 |
V227= CMPcdr((V226)); |
V213= CMPcdr((V212)); |
1167 |
{register object V228; |
{register object V214; |
1168 |
register object V229; |
register object V215; |
1169 |
V228= (V227); |
V214= (V213); |
1170 |
V229= CMPcar((V228)); |
V215= CMPcar((V214)); |
1171 |
goto T298; |
goto T298; |
1172 |
T298:; |
T298:; |
1173 |
if(!(((V228))==Cnil)){ |
if(!(((V214))==Cnil)){ |
1174 |
goto T299;} |
goto T299;} |
1175 |
{object V230 = Cnil; |
{object V216 = Cnil; |
1176 |
VMR29(V230)} |
VMR29(V216)} |
1177 |
goto T299; |
goto T299; |
1178 |
T299:; |
T299:; |
1179 |
(void)((*(LnkLI244))(CMPcdr((V229)))); |
(void)((*(LnkLI270))(CMPcdr((V215)))); |
1180 |
V228= CMPcdr((V228)); |
V214= CMPcdr((V214)); |
1181 |
V229= CMPcar((V228)); |
V215= CMPcar((V214)); |
1182 |
goto T298;}} |
goto T298;}} |
1183 |
goto T289; |
goto T289; |
1184 |
T289:; |
T289:; |
1185 |
{object V231 = Cnil; |
{object V217 = Cnil; |
1186 |
VMR29(V231)} |
VMR29(V217)} |
1187 |
base[0]=base[0]; |
base[0]=base[0]; |
1188 |
return Cnil; |
return Cnil; |
1189 |
} |
} |
1190 |
/* local entry for function INITIALIZE-INFO */ |
/* local entry for function INITIALIZE-INFO */ |
1191 |
|
|
1192 |
static object LI30(object V233,object V232,object first,...) |
static object LI30(object V219,object V218,object first,...) |
1193 |
{ |
{ |
1194 |
va_list ap; |
va_list ap; |
1195 |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
1196 |
{object V234; |
{object V220; |
1197 |
object V235; |
object V221; |
1198 |
object V236; |
object V222; |
1199 |
object V237; |
object V223; |
1200 |
va_start(ap,first); |
va_start(ap,first); |
1201 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1202 |
V234= V233; |
V220= V219; |
1203 |
V235= V232; |
V221= V218; |
1204 |
narg = narg - 2; |
narg = narg - 2; |
1205 |
if (narg <= 0) goto T309; |
if (narg <= 0) goto T309; |
1206 |
else { |
else { |
1207 |
V236= first;} |
V222= first;} |
1208 |
if (--narg <= 0) goto T310; |
if (--narg <= 0) goto T310; |
1209 |
else { |
else { |
1210 |
V237= va_arg(ap,object);} |
V223= va_arg(ap,object);} |
1211 |
--narg; goto T311; |
--narg; goto T311; |
1212 |
goto T309; |
goto T309; |
1213 |
T309:; |
T309:; |
1214 |
V236= Ct; |
V222= Ct; |
1215 |
goto T310; |
goto T310; |
1216 |
T310:; |
T310:; |
1217 |
V237= Cnil; |
V223= Cnil; |
1218 |
goto T311; |
goto T311; |
1219 |
T311:; |
T311:; |
1220 |
{object V238; |
{object V224; |
1221 |
V238= Cnil; |
V224= Cnil; |
1222 |
if(!(((VV[93]->s.s_dbind))==((V234)))){ |
if(!(((VV[93]->s.s_dbind))==((V220)))){ |
1223 |
goto T316;} |
goto T316;} |
1224 |
if(!(((VV[94]->s.s_dbind))==((V235)))){ |
if(!(((VV[94]->s.s_dbind))==((V221)))){ |
1225 |
goto T316;} |
goto T316;} |
1226 |
V238= (VV[95]->s.s_dbind); |
V224= (VV[95]->s.s_dbind); |
1227 |
goto T314; |
goto T314; |
1228 |
goto T316; |
goto T316; |
1229 |
T316:; |
T316:; |
1230 |
{register object V239; |
{register object V225; |
1231 |
register object V240;{object V241; |
object V226; |
1232 |
base[0]= (V234); |
register object V227;{object V228; |
1233 |
|
base[0]= (V220); |
1234 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1235 |
(void) (*Lnk245)(Lclptr245); |
(void) (*Lnk271)(Lclptr271); |
1236 |
vs_top=sup; |
vs_top=sup; |
1237 |
V241= vs_base[0]; |
V228= vs_base[0]; |
1238 |
if(V241==Cnil)goto T322; |
if(V228==Cnil)goto T322; |
1239 |
V240= V241; |
V227= V228; |
1240 |
goto T321; |
goto T321; |
1241 |
goto T322; |
goto T322; |
1242 |
T322:;} |
T322:;} |
1243 |
{object V243; |
{object V230; |
1244 |
V243= make_cons(Cnil,Cnil); |
V230= make_cons(Cnil,Cnil); |
1245 |
V244= ({object _tmp=get(VV[245],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[245])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[245])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V231= ({object _tmp=get(VV[271],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[271])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[271])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
1246 |
V245 = (V243); |
V227= ( |
1247 |
V246 = V234; |
V232 = V231, |
1248 |
V240= ( |
(type_of(V232) == t_sfun ?(*((V232)->sfn.sfn_self)): |
1249 |
V247 = V244, |
(fcall.argd=2,type_of(V232)==t_vfun) ? |
1250 |
(type_of(V247) == t_sfun ?(*((V247)->sfn.sfn_self)): |
(*((V232)->sfn.sfn_self)): |
1251 |
(fcall.argd=2,type_of(V247)==t_vfun) ? |
(fcall.fun=(V232),fcalln))((V230),V220));} |
|
(*((V247)->sfn.sfn_self)): |
|
|
(fcall.fun=(V247),fcalln))(V245,V246));} |
|
1252 |
goto T321; |
goto T321; |
1253 |
T321:; |
T321:; |
1254 |
V239= (V235); |
V225= (V221); |
1255 |
|
V226= Cnil; |
1256 |
goto T329; |
goto T329; |
1257 |
T329:; |
T329:; |
1258 |
if(((V239))!=Cnil){ |
if(((V225))!=Cnil){ |
1259 |
goto T331;} |
goto T331;} |
1260 |
goto T327; |
goto T327; |
1261 |
goto T331; |
goto T331; |
1262 |
T331:; |
T331:; |
1263 |
{register object V248; |
{register object V233; |
1264 |
register object V249; |
register object V234; |
1265 |
{object V250; |
{object V235; |
1266 |
V250= CMPcar((V239)); |
V235= CMPcar((V225)); |
1267 |
V239= CMPcdr((V239)); |
V225= CMPcdr((V225)); |
1268 |
V248= (V250);} |
V233= (V235);} |
1269 |
V249= (V240); |
V234= (V227); |
1270 |
if(((V236))==Cnil){ |
if(((V222))==Cnil){ |
1271 |
goto T338;} |
goto T338;} |
1272 |
if(!(((V248))==(VV[2]))){ |
if(((V226))!=Cnil){ |
1273 |
goto T342;} |
goto T342;} |
1274 |
{object V251; |
if(!(((V233))==(VV[2]))){ |
1275 |
V251= CMPcar((V239)); |
goto T342;} |
1276 |
V239= CMPcdr((V239)); |
{object V236; |
1277 |
V237= (V251);} |
V236= CMPcar((V225)); |
1278 |
|
V225= CMPcdr((V225)); |
1279 |
|
V223= (V236);} |
1280 |
|
V226= Ct; |
1281 |
goto T338; |
goto T338; |
1282 |
goto T342; |
goto T342; |
1283 |
T342:; |
T342:; |
1284 |
{object V252; |
{object V237; |
1285 |
V252= CMPcar((V239)); |
V237= CMPcar((V225)); |
1286 |
V239= CMPcdr((V239));} |
V225= CMPcdr((V225));} |
1287 |
goto T338; |
goto T338; |
1288 |
T338:; |
T338:; |
1289 |
goto T352; |
goto T356; |
1290 |
T352:; |
T356:; |
1291 |
{register object V253; |
{register object V238; |
1292 |
V253= CMPcdr((V249)); |
V238= CMPcdr((V234)); |
1293 |
if(((V253))!=Cnil){ |
if(((V238))!=Cnil){ |
1294 |
goto T355;} |
goto T359;} |
1295 |
V240= make_cons(Cnil,Cnil); |
V227= make_cons(Cnil,Cnil); |
1296 |
{object V255; |
{object V240; |
1297 |
V256= make_cons((V248),(V240)); |
V241= make_cons((V233),(V227)); |
1298 |
V255= make_cons(/* INLINE-ARGS */V256,Cnil); |
V240= make_cons(/* INLINE-ARGS */V241,Cnil); |
1299 |
(V249)->c.c_cdr = (V255);} |
(V234)->c.c_cdr = (V240);} |
1300 |
goto T330; |
goto T330; |
1301 |
goto T355; |
goto T359; |
1302 |
T355:; |
T359:; |
1303 |
if(!(eql((V248),CMPcaar((V253))))){ |
if(!(eql((V233),CMPcaar((V238))))){ |
1304 |
goto T363;} |
goto T367;} |
1305 |
V240= CMPcdar((V253)); |
V227= CMPcdar((V238)); |
1306 |
goto T330; |
goto T330; |
1307 |
goto T363; |
goto T367; |
1308 |
T363:; |
T367:; |
1309 |
V249= (V253);} |
V234= (V238);} |
1310 |
goto T352;} |
goto T356;} |
1311 |
goto T330; |
goto T330; |
1312 |
T330:; |
T330:; |
1313 |
goto T329; |
goto T329; |
1314 |
goto T327; |
goto T327; |
1315 |
T327:;{object V257; |
T327:;{object V242; |
1316 |
V257= CMPcar((V240)); |
V242= CMPcar((V227)); |
1317 |
if(V257==Cnil)goto T372; |
if(V242==Cnil)goto T376; |
1318 |
V238= V257; |
V224= V242; |
1319 |
goto T371; |
goto T375; |
1320 |
goto T372; |
goto T376; |
1321 |
T372:;} |
T376:;} |
1322 |
{object V259; |
{object V244; |
1323 |
V259= (VFUN_NARGS=0,(*(LnkLI247))()); |
V244= (VFUN_NARGS=0,(*(LnkLI273))()); |
1324 |
(V240)->c.c_car = (V259); |
(V227)->c.c_car = (V244); |
1325 |
V238= (V259);} |
V224= (V244);} |
1326 |
goto T371; |
goto T375; |
1327 |
T371:;} |
T375:;} |
1328 |
goto T314; |
goto T314; |
1329 |
T314:; |
T314:; |
1330 |
{object V260; |
{object V245; |
1331 |
V260= STREF(object,(V238),4); |
V245= STREF(object,(V224),4); |
1332 |
V261 = (V260); |
base[0]= (V220); |
|
base[0]= (V234); |
|
1333 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1334 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk269)(Lclptr269); |
1335 |
vs_top=sup; |
vs_top=sup; |
1336 |
V262= vs_base[0]; |
V246= vs_base[0]; |
1337 |
if((V261)==(V262)){ |
if(((V245))==(V246)){ |
1338 |
goto T376;} |
goto T380;} |
1339 |
if(((V260))!=Cnil){ |
if(((V245))!=Cnil){ |
1340 |
goto T382;} |
goto T386;} |
1341 |
{register object V263; |
{register object V247; |
1342 |
object V264; |
object V248; |
1343 |
object V265; |
object V249; |
1344 |
V263= (V235); |
V247= (V221); |
1345 |
V264= make_cons(Cnil,Cnil); |
V248= make_cons(Cnil,Cnil); |
1346 |
V265= (V264); |
V249= (V248); |
1347 |
goto T390; |
goto T394; |
1348 |
T390:; |
T394:; |
1349 |
if(((V263))!=Cnil){ |
if(((V247))!=Cnil){ |
1350 |
goto T392;} |
goto T396;} |
1351 |
goto T388; |
goto T392; |
1352 |
|
goto T396; |
1353 |
|
T396:; |
1354 |
|
{object V250; |
1355 |
|
{object V251; |
1356 |
|
V251= CMPcar((V247)); |
1357 |
|
V247= CMPcdr((V247)); |
1358 |
|
V250= (V251);} |
1359 |
|
{object V253; |
1360 |
|
V253= make_cons((V250),Cnil); |
1361 |
|
(V249)->c.c_cdr = (V253);}} |
1362 |
|
V249= CMPcdr((V249)); |
1363 |
|
if(((V222))==Cnil){ |
1364 |
|
goto T395;} |
1365 |
|
{object V254; |
1366 |
|
V254= CMPcar((V247)); |
1367 |
|
V247= CMPcdr((V247));} |
1368 |
|
goto T395; |
1369 |
|
T395:; |
1370 |
|
goto T394; |
1371 |
goto T392; |
goto T392; |
1372 |
T392:; |
T392:; |
1373 |
{object V266; |
V255= list(3,(V220),CMPcdr((V248)),(V223)); |
1374 |
{object V267; |
V256= Ct; |
1375 |
V267= CMPcar((V263)); |
STSET(object,(V224),0, /* INLINE-ARGS */V255); |
1376 |
V263= CMPcdr((V263)); |
(void)(/* INLINE-ARGS */V255);} |
1377 |
V266= (V267);} |
goto T386; |
1378 |
{object V269; |
T386:; |
1379 |
V269= make_cons((V266),Cnil); |
(void)((*(LnkLI272))((V224)));} |
1380 |
(V265)->c.c_cdr = (V269);}} |
goto T380; |
1381 |
V265= CMPcdr((V265)); |
T380:; |
1382 |
if(((V236))==Cnil){ |
(VV[93]->s.s_dbind)= (V220); |
1383 |
goto T391;} |
(VV[94]->s.s_dbind)= (V221); |
1384 |
{object V270; |
(VV[95]->s.s_dbind)= (V224); |
1385 |
V270= CMPcar((V263)); |
{object V257 = (V224); |
1386 |
V263= CMPcdr((V263));} |
VMR30(V257)}} |
|
goto T391; |
|
|
T391:; |
|
|
goto T390; |
|
|
goto T388; |
|
|
T388:; |
|
|
V271 = (V238); |
|
|
V272= list(3,(V234),CMPcdr((V264)),(V237)); |
|
|
V273= Ct; |
|
|
STSET(object,V271,0, /* INLINE-ARGS */V272); |
|
|
(void)(/* INLINE-ARGS */V272);} |
|
|
goto T382; |
|
|
T382:; |
|
|
(void)((*(LnkLI246))((V238)));} |
|
|
goto T376; |
|
|
T376:; |
|
|
(VV[93]->s.s_dbind)= (V234); |
|
|
(VV[94]->s.s_dbind)= (V235); |
|
|
(VV[95]->s.s_dbind)= (V238); |
|
|
{object V274 = (V238); |
|
|
VMR30(V274)}} |
|
1387 |
va_end(ap); |
va_end(ap); |
1388 |
base[0]=base[0]; |
base[0]=base[0]; |
1389 |
return Cnil;} |
return Cnil;} |
1390 |
} |
} |
1391 |
/* local entry for function UPDATE-INITIALIZE-INFO-INTERNAL */ |
/* local entry for function UPDATE-INITIALIZE-INFO-INTERNAL */ |
1392 |
|
|
1393 |
static object LI31(V277,V278) |
static object LI31(V260,V261) |
1394 |
|
|
1395 |
register object V277;object V278; |
register object V260;object V261; |
1396 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1397 |
goto TTL; |
goto TTL; |
1398 |
TTL:; |
TTL:; |
1399 |
{register object V279; |
{register object V262; |
1400 |
V279= STREF(object,(V277),0); |
V262= STREF(object,(V260),0); |
1401 |
base[1]= CMPcar((V279)); |
base[1]= CMPcar((V262)); |
1402 |
base[2]= CMPcadr((V279)); |
base[2]= CMPcadr((V262)); |
1403 |
base[3]= CMPcaddr((V279)); |
base[3]= CMPcaddr((V262)); |
1404 |
{object V280= (V278); |
{object V264= V261; |
1405 |
if((V280!= VV[67]) |
if((V264!= VV[67]) |
1406 |
&& (V280!= VV[69]))goto T421; |
&& (V264!= VV[69]))goto T425; |
1407 |
{object V281; |
{object V265; |
1408 |
object V282; |
object V266; |
1409 |
base[4]= base[1]; |
base[4]= base[1]; |
1410 |
base[5]= base[2]; |
base[5]= base[2]; |
1411 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1412 |
(void) (*Lnk248)(); |
(void) (*Lnk274)(); |
1413 |
if(vs_base>=vs_top){vs_top=sup;goto T425;} |
if(vs_base>=vs_top){vs_top=sup;goto T429;} |
1414 |
V281= vs_base[0]; |
V265= vs_base[0]; |
1415 |
vs_base++; |
vs_base++; |
1416 |
if(vs_base>=vs_top){vs_top=sup;goto T426;} |
if(vs_base>=vs_top){vs_top=sup;goto T430;} |
1417 |
V282= vs_base[0]; |
V266= vs_base[0]; |
1418 |
vs_top=sup; |
vs_top=sup; |
1419 |
goto T427; |
goto T431; |
1420 |
|
goto T429; |
1421 |
|
T429:; |
1422 |
|
V265= Cnil; |
1423 |
|
goto T430; |
1424 |
|
T430:; |
1425 |
|
V266= Cnil; |
1426 |
|
goto T431; |
1427 |
|
T431:; |
1428 |
|
V267= Ct; |
1429 |
|
STSET(object,(V260),16, (V265)); |
1430 |
|
(void)((V265)); |
1431 |
|
V268= Ct; |
1432 |
|
STSET(object,(V260),24, (V266)); |
1433 |
|
(void)((V266)); |
1434 |
|
goto T420;} |
1435 |
goto T425; |
goto T425; |
1436 |
T425:; |
T425:; |
1437 |
V281= Cnil; |
if((V264!= VV[68]))goto T433; |
1438 |
goto T426; |
{object V269; |
1439 |
T426:; |
object V270; |
|
V282= Cnil; |
|
|
goto T427; |
|
|
T427:; |
|
|
V283 = (V277); |
|
|
V284 = (V281); |
|
|
V285= Ct; |
|
|
STSET(object,V283,16, V284); |
|
|
(void)(V284); |
|
|
V286 = (V277); |
|
|
V287 = (V282); |
|
|
V288= Ct; |
|
|
STSET(object,V286,24, V287); |
|
|
(void)(V287); |
|
|
goto T416;} |
|
|
goto T421; |
|
|
T421:; |
|
|
if((V280!= VV[68]))goto T429; |
|
|
{object V289; |
|
|
object V290; |
|
1440 |
base[4]= base[1]; |
base[4]= base[1]; |
1441 |
base[5]= base[2]; |
base[5]= base[2]; |
1442 |
base[6]= Cnil; |
base[6]= Cnil; |
1443 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1444 |
(void) (*Lnk248)(); |
(void) (*Lnk274)(); |
1445 |
if(vs_base>=vs_top){vs_top=sup;goto T434;} |
if(vs_base>=vs_top){vs_top=sup;goto T438;} |
1446 |
V289= vs_base[0]; |
V269= vs_base[0]; |
1447 |
vs_base++; |
vs_base++; |
1448 |
if(vs_base>=vs_top){vs_top=sup;goto T435;} |
if(vs_base>=vs_top){vs_top=sup;goto T439;} |
1449 |
V290= vs_base[0]; |
V270= vs_base[0]; |
1450 |
vs_top=sup; |
vs_top=sup; |
1451 |
goto T436; |
goto T440; |
1452 |
goto T434; |
goto T438; |
1453 |
T434:; |
T438:; |
1454 |
V289= Cnil; |
V269= Cnil; |
|
goto T435; |
|
|
T435:; |
|
|
V290= Cnil; |
|
|
goto T436; |
|
|
T436:; |
|
|
V291 = (V277); |
|
|
V292 = (V289); |
|
|
V293= Ct; |
|
|
STSET(object,V291,20, V292); |
|
|
(void)(V292); |
|
|
V294 = (V277); |
|
|
V295 = (V290); |
|
|
V296= Ct; |
|
|
STSET(object,V294,24, V295); |
|
|
(void)(V295); |
|
|
goto T416;} |
|
|
goto T429; |
|
|
T429:; |
|
|
if((V280!= VV[70]))goto T438; |
|
|
{object V297; |
|
|
{object V298; |
|
|
V298= STREF(object,(V277),16); |
|
|
if(!(((V298))==(VV[43]))){ |
|
|
goto T442;} |
|
|
(void)((*(LnkLI61))((V277),VV[67])); |
|
|
V297= STREF(object,(V277),16); |
|
|
goto T439; |
|
|
goto T442; |
|
|
T442:; |
|
|
V297= (V298);} |
|
1455 |
goto T439; |
goto T439; |
1456 |
T439:; |
T439:; |
1457 |
V299 = (V277); |
V270= Cnil; |
1458 |
|
goto T440; |
1459 |
|
T440:; |
1460 |
|
V271= Ct; |
1461 |
|
STSET(object,(V260),20, (V269)); |
1462 |
|
(void)((V269)); |
1463 |
|
V272= Ct; |
1464 |
|
STSET(object,(V260),24, (V270)); |
1465 |
|
(void)((V270)); |
1466 |
|
goto T420;} |
1467 |
|
goto T433; |
1468 |
|
T433:; |
1469 |
|
if((V264!= VV[70]))goto T442; |
1470 |
|
{object V273; |
1471 |
|
{object V274; |
1472 |
|
V274= STREF(object,(V260),16); |
1473 |
|
if(!(((V274))==(VV[43]))){ |
1474 |
|
goto T446;} |
1475 |
|
(void)((*(LnkLI61))((V260),VV[67])); |
1476 |
|
V273= STREF(object,(V260),16); |
1477 |
|
goto T443; |
1478 |
|
goto T446; |
1479 |
|
T446:; |
1480 |
|
V273= (V274);} |
1481 |
|
goto T443; |
1482 |
|
T443:; |
1483 |
base[4]= VV[70]; |
base[4]= VV[70]; |
1484 |
base[5]= (V277); |
base[5]= (V260); |
1485 |
base[6]= base[1]; |
base[6]= base[1]; |
1486 |
base[7]= (V297); |
base[7]= (V273); |
1487 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1488 |
(void) (*Lnk249)(); |
(void) (*Lnk275)(); |
1489 |
vs_top=sup; |
vs_top=sup; |
1490 |
V300= vs_base[0]; |
V275= vs_base[0]; |
1491 |
V301= Ct; |
V276= Ct; |
1492 |
STSET(object,V299,28, V300); |
STSET(object,(V260),28, V275); |
1493 |
(void)(V300); |
(void)(V275); |
1494 |
goto T416;} |
goto T420;} |
1495 |
goto T438; |
goto T442; |
1496 |
T438:; |
T442:; |
1497 |
if((V280!= VV[65]) |
if((V264!= VV[65]) |
1498 |
&& (V280!= VV[66]))goto T450; |
&& (V264!= VV[66]))goto T454; |
1499 |
{object V302; |
{object V277; |
1500 |
base[4]= base[1]; |
base[4]= base[1]; |
1501 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1502 |
(void) (*Lnk250)(Lclptr250); |
(void) (*Lnk276)(Lclptr276); |
1503 |
vs_top=sup; |
vs_top=sup; |
1504 |
V302= vs_base[0]; |
V277= vs_base[0]; |
1505 |
V303 = (V277); |
V279= listA(3,VV[96],base[1],Cnil); |
1506 |
V305= listA(3,VV[96],base[1],Cnil); |
V280= listA(3,VV[97],(V277),Cnil); |
1507 |
V306= listA(3,VV[97],(V302),Cnil); |
base[4]= list(3,/* INLINE-ARGS */V279,/* INLINE-ARGS */V280,listA(4,VV[98],(V277),Ct,Cnil)); |
|
base[4]= list(3,/* INLINE-ARGS */V305,/* INLINE-ARGS */V306,listA(4,VV[98],(V302),Ct,Cnil)); |
|
1508 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1509 |
L32(base); |
L32(base); |
1510 |
vs_top=sup; |
vs_top=sup; |
1511 |
V304= vs_base[0]; |
V278= vs_base[0]; |
1512 |
V307= Ct; |
V281= Ct; |
1513 |
STSET(object,V303,8, V304); |
STSET(object,(V260),8, V278); |
1514 |
(void)(V304); |
(void)(V278); |
1515 |
V308 = (V277); |
V283= listA(3,VV[99],(V277),Cnil); |
1516 |
V310= listA(3,VV[99],(V302),Cnil); |
base[4]= list(2,/* INLINE-ARGS */V283,listA(4,VV[98],(V277),Cnil,Cnil)); |
|
base[4]= list(2,/* INLINE-ARGS */V310,listA(4,VV[98],(V302),Cnil,Cnil)); |
|
1517 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1518 |
L32(base); |
L32(base); |
1519 |
vs_top=sup; |
vs_top=sup; |
1520 |
V309= vs_base[0]; |
V282= vs_base[0]; |
1521 |
V311= Ct; |
V284= Ct; |
1522 |
STSET(object,V308,12, V309); |
STSET(object,(V260),12, V282); |
1523 |
(void)(V309); |
(void)(V282); |
1524 |
goto T416;} |
goto T420;} |
1525 |
goto T450; |
goto T454; |
1526 |
T450:; |
T454:; |
1527 |
if((V280!= VV[71]))goto T458; |
if((V264!= VV[71]))goto T462; |
1528 |
{object V312; |
{object V285; |
1529 |
object V313; |
object V286; |
1530 |
base[4]= base[1]; |
base[4]= base[1]; |
1531 |
base[5]= base[2]; |
base[5]= base[2]; |
1532 |
base[6]= Ct; |
base[6]= Ct; |
1533 |
base[7]= Cnil; |
base[7]= Cnil; |
1534 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1535 |
(void) (*Lnk251)(); |
(void) (*Lnk277)(); |
1536 |
if(vs_base>=vs_top){vs_top=sup;goto T464;} |
if(vs_base>=vs_top){vs_top=sup;goto T468;} |
1537 |
V312= vs_base[0]; |
V285= vs_base[0]; |
1538 |
vs_base++; |
vs_base++; |
1539 |
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
if(vs_base>=vs_top){vs_top=sup;goto T469;} |
1540 |
V313= vs_base[0]; |
V286= vs_base[0]; |
1541 |
vs_top=sup; |
vs_top=sup; |
1542 |
goto T466; |
goto T470; |
1543 |
goto T464; |
goto T468; |
1544 |
T464:; |
T468:; |
1545 |
V312= Cnil; |
V285= Cnil; |
1546 |
goto T465; |
goto T469; |
1547 |
T465:; |
T469:; |
1548 |
V313= Cnil; |
V286= Cnil; |
1549 |
goto T466; |
goto T470; |
1550 |
T466:; |
T470:; |
|
V314 = (V277); |
|
1551 |
base[4]= VV[71]; |
base[4]= VV[71]; |
1552 |
base[5]= (V277); |
base[5]= (V260); |
1553 |
base[6]= base[1]; |
base[6]= base[1]; |
1554 |
base[7]= (V312); |
base[7]= (V285); |
1555 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1556 |
(void) (*Lnk249)(); |
(void) (*Lnk275)(); |
1557 |
vs_top=sup; |
vs_top=sup; |
1558 |
V315= vs_base[0]; |
V287= vs_base[0]; |
1559 |
V316= Ct; |
V288= Ct; |
1560 |
STSET(object,V314,32, V315); |
STSET(object,(V260),32, V287); |
1561 |
(void)(V315); |
(void)(V287); |
1562 |
goto T416;} |
goto T420;} |
1563 |
goto T458; |
goto T462; |
1564 |
T458:; |
T462:; |
1565 |
if((V280!= VV[72]))goto T472; |
if((V264!= VV[72]))goto T476; |
1566 |
{object V317; |
{object V289; |
1567 |
object V318; |
object V290; |
1568 |
base[4]= base[1]; |
base[4]= base[1]; |
1569 |
base[5]= base[2]; |
base[5]= base[2]; |
1570 |
base[6]= Cnil; |
base[6]= Cnil; |
1571 |
base[7]= Cnil; |
base[7]= Cnil; |
1572 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1573 |
(void) (*Lnk251)(); |
(void) (*Lnk277)(); |
1574 |
if(vs_base>=vs_top){vs_top=sup;goto T478;} |
if(vs_base>=vs_top){vs_top=sup;goto T482;} |
1575 |
V317= vs_base[0]; |
V289= vs_base[0]; |
1576 |
vs_base++; |
vs_base++; |
1577 |
if(vs_base>=vs_top){vs_top=sup;goto T479;} |
if(vs_base>=vs_top){vs_top=sup;goto T483;} |
1578 |
V318= vs_base[0]; |
V290= vs_base[0]; |
1579 |
vs_top=sup; |
vs_top=sup; |
1580 |
goto T480; |
goto T484; |
1581 |
goto T478; |
goto T482; |
1582 |
T478:; |
T482:; |
1583 |
V317= Cnil; |
V289= Cnil; |
1584 |
goto T479; |
goto T483; |
1585 |
T479:; |
T483:; |
1586 |
V318= Cnil; |
V290= Cnil; |
1587 |
goto T480; |
goto T484; |
1588 |
T480:; |
T484:; |
|
V319 = (V277); |
|
1589 |
base[4]= VV[72]; |
base[4]= VV[72]; |
1590 |
base[5]= (V277); |
base[5]= (V260); |
1591 |
base[6]= base[1]; |
base[6]= base[1]; |
1592 |
base[7]= (V317); |
base[7]= (V289); |
1593 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1594 |
(void) (*Lnk249)(); |
(void) (*Lnk275)(); |
1595 |
vs_top=sup; |
vs_top=sup; |
1596 |
V320= vs_base[0]; |
V291= vs_base[0]; |
1597 |
V321= Ct; |
V292= Ct; |
1598 |
STSET(object,V319,36, V320); |
STSET(object,(V260),36, V291); |
1599 |
(void)(V320); |
(void)(V291); |
1600 |
goto T416;} |
goto T420;} |
1601 |
goto T472; |
goto T476; |
1602 |
T472:; |
T476:; |
1603 |
if((V280!= VV[73]) |
if((V264!= VV[73]) |
1604 |
&& (V280!= VV[74]))goto T486; |
&& (V264!= VV[74]))goto T490; |
1605 |
{object V322; |
{object V293; |
1606 |
object V323; |
object V294; |
1607 |
{object V324; |
{object V295; |
1608 |
V324= STREF(object,(V277),20); |
V295= STREF(object,(V260),20); |
1609 |
if(!(((V324))==(VV[43]))){ |
if(!(((V295))==(VV[43]))){ |
1610 |
goto T490;} |
goto T494;} |
1611 |
(void)((*(LnkLI61))((V277),VV[68])); |
(void)((*(LnkLI61))((V260),VV[68])); |
1612 |
V322= STREF(object,(V277),20); |
V293= STREF(object,(V260),20); |
1613 |
goto T487; |
goto T491; |
1614 |
goto T490; |
goto T494; |
1615 |
T490:; |
T494:; |
1616 |
V322= (V324);} |
V293= (V295);} |
1617 |
goto T487; |
goto T491; |
1618 |
T487:; |
T491:; |
1619 |
{object V325; |
{object V296; |
1620 |
V325= STREF(object,(V277),24); |
V296= STREF(object,(V260),24); |
1621 |
if(!(((V325))==(VV[43]))){ |
if(!(((V296))==(VV[43]))){ |
1622 |
goto T496;} |
goto T500;} |
1623 |
(void)((*(LnkLI61))((V277),VV[69])); |
(void)((*(LnkLI61))((V260),VV[69])); |
1624 |
V323= STREF(object,(V277),24); |
V294= STREF(object,(V260),24); |
1625 |
goto T493; |
goto T497; |
1626 |
goto T496; |
goto T500; |
1627 |
T496:; |
T500:; |
1628 |
V323= (V325);} |
V294= (V296);} |
1629 |
goto T493; |
goto T497; |
1630 |
T493:; |
T497:; |
1631 |
{object V326; |
{object V297; |
1632 |
object V327; |
object V298; |
1633 |
base[4]= base[1]; |
base[4]= base[1]; |
1634 |
base[5]= (V323); |
base[5]= (V294); |
1635 |
base[6]= Ct; |
base[6]= Ct; |
1636 |
base[7]= Ct; |
base[7]= Ct; |
1637 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1638 |
(void) (*Lnk251)(); |
(void) (*Lnk277)(); |
1639 |
if(vs_base>=vs_top){vs_top=sup;goto T504;} |
if(vs_base>=vs_top){vs_top=sup;goto T508;} |
1640 |
V326= vs_base[0]; |
V297= vs_base[0]; |
1641 |
vs_base++; |
vs_base++; |
1642 |
if(vs_base>=vs_top){vs_top=sup;goto T505;} |
if(vs_base>=vs_top){vs_top=sup;goto T509;} |
1643 |
V327= vs_base[0]; |
V298= vs_base[0]; |
1644 |
vs_top=sup; |
vs_top=sup; |
1645 |
goto T506; |
goto T510; |
1646 |
goto T504; |
goto T508; |
1647 |
T504:; |
T508:; |
1648 |
V326= Cnil; |
V297= Cnil; |
1649 |
goto T505; |
goto T509; |
1650 |
T505:; |
T509:; |
1651 |
V327= Cnil; |
V298= Cnil; |
1652 |
goto T506; |
goto T510; |
1653 |
T506:; |
T510:; |
1654 |
V328 = (V277); |
V299= Ct; |
1655 |
V329 = (V327); |
STSET(object,(V260),40, (V298)); |
1656 |
V330= Ct; |
(void)((V298)); |
|
STSET(object,V328,40, V329); |
|
|
(void)(V329); |
|
|
V331 = (V277); |
|
1657 |
base[4]= VV[74]; |
base[4]= VV[74]; |
1658 |
base[5]= (V277); |
base[5]= (V260); |
1659 |
base[6]= base[1]; |
base[6]= base[1]; |
1660 |
base[7]= append((V322),(V326)); |
base[7]= append((V293),(V297)); |
1661 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1662 |
(void) (*Lnk249)(); |
(void) (*Lnk275)(); |
1663 |
vs_top=sup; |
vs_top=sup; |
1664 |
V332= vs_base[0]; |
V300= vs_base[0]; |
1665 |
V333= Ct; |
V301= Ct; |
1666 |
STSET(object,V331,44, V332); |
STSET(object,(V260),44, V300); |
1667 |
(void)(V332); |
(void)(V300); |
1668 |
goto T416;}} |
goto T420;}} |
1669 |
goto T486; |
goto T490; |
1670 |
T486:; |
T490:; |
1671 |
if((V280!= VV[75]))goto T513; |
if((V264!= VV[75]))goto T517; |
1672 |
V334 = (V277); |
V302= (*(LnkLI75))((V262)); |
1673 |
V335= (*(LnkLI75))((V279)); |
V303= Ct; |
1674 |
V336= Ct; |
STSET(object,(V260),52, /* INLINE-ARGS */V302); |
1675 |
STSET(object,V334,52, /* INLINE-ARGS */V335); |
(void)(/* INLINE-ARGS */V302); |
1676 |
(void)(/* INLINE-ARGS */V335); |
goto T420; |
1677 |
goto T416; |
goto T517; |
1678 |
goto T513; |
T517:; |
1679 |
T513:; |
if((V264!= VV[13]))goto T518; |
1680 |
if((V280!= VV[13]))goto T514; |
{object V304; |
1681 |
{object V337; |
object V305; |
1682 |
object V338; |
V304= (*(LnkLI278))((V262)); |
1683 |
V337= (*(LnkLI252))((V279)); |
{object V306; |
1684 |
{object V339; |
V306= STREF(object,(V260),52); |
1685 |
V339= STREF(object,(V277),52); |
if(!(((V306))==(VV[43]))){ |
1686 |
if(!(((V339))==(VV[43]))){ |
goto T523;} |
1687 |
goto T519;} |
(void)((*(LnkLI61))((V260),VV[75])); |
1688 |
(void)((*(LnkLI61))((V277),VV[75])); |
V305= STREF(object,(V260),52); |
1689 |
V338= STREF(object,(V277),52); |
goto T520; |
1690 |
goto T516; |
goto T523; |
1691 |
goto T519; |
T523:; |
1692 |
T519:; |
V305= (V306);} |
1693 |
V338= (V339);} |
goto T520; |
1694 |
goto T516; |
T520:; |
1695 |
T516:; |
V307= Ct; |
1696 |
V340 = (V277); |
STSET(object,(V260),48, (V304)); |
1697 |
V341 = (V337); |
(void)((V304)); |
1698 |
V342= Ct; |
if(((V305))==Cnil){ |
1699 |
STSET(object,V340,48, V341); |
goto T420;} |
1700 |
(void)(V341); |
{object V309; |
1701 |
if(((V338))==Cnil){ |
if((V304)!=Cnil){ |
1702 |
goto T416;} |
V309= (V304); |
1703 |
{object V344; |
goto T529;} |
1704 |
if((V337)!=Cnil){ |
V309= (VV[279]->s.s_gfdef); |
1705 |
V344= (V337); |
goto T529; |
1706 |
goto T525;} |
T529:; |
1707 |
V344= (VV[253]->s.s_gfdef); |
V310= ({object _tmp=get(VV[280],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[280])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[280])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
goto T525; |
|
|
T525:; |
|
|
V345= ({object _tmp=get(VV[254],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[254])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[254])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
|
V346 = (V344); |
|
|
V347 = V338; |
|
1708 |
(void)(( |
(void)(( |
1709 |
V348 = V345, |
V311 = V310, |
1710 |
(type_of(V348) == t_sfun ?(*((V348)->sfn.sfn_self)): |
(type_of(V311) == t_sfun ?(*((V311)->sfn.sfn_self)): |
1711 |
(fcall.argd=2,type_of(V348)==t_vfun) ? |
(fcall.argd=2,type_of(V311)==t_vfun) ? |
1712 |
(*((V348)->sfn.sfn_self)): |
(*((V311)->sfn.sfn_self)): |
1713 |
(fcall.fun=(V348),fcalln))(V346,V347))); |
(fcall.fun=(V311),fcalln))((V309),V305))); |
1714 |
goto T416;}} |
goto T420;}} |
1715 |
goto T514; |
goto T518; |
1716 |
T514:; |
T518:; |
1717 |
FEerror("The ECASE key value ~s is illegal.",1,V280); |
base[4]= VV[101]; |
1718 |
goto T416;}} |
base[5]= VV[102]; |
1719 |
goto T416; |
base[6]= VV[103]; |
1720 |
T416:; |
base[7]= VV[104]; |
1721 |
{object V349 = (V277); |
base[8]= V261; |
1722 |
VMR31(V349)} |
base[9]= VV[105]; |
1723 |
|
base[10]= VV[106]; |
1724 |
|
base[11]= VV[107]; |
1725 |
|
base[12]= VV[108]; |
1726 |
|
vs_top=(vs_base=base+4)+9; |
1727 |
|
(void) (*Lnk281)(); |
1728 |
|
vs_top=sup;}} |
1729 |
|
goto T420; |
1730 |
|
T420:; |
1731 |
|
{object V312 = (V260); |
1732 |
|
VMR31(V312)} |
1733 |
base[0]=base[0]; |
base[0]=base[0]; |
1734 |
return Cnil; |
return Cnil; |
1735 |
} |
} |
1736 |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION */ |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION */ |
1737 |
|
|
1738 |
static object LI33(V351) |
static object LI33(V314) |
1739 |
|
|
1740 |
object V351; |
object V314; |
1741 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1742 |
goto TTL; |
goto TTL; |
1743 |
TTL:; |
TTL:; |
1744 |
{register object V352; |
{register object V315; |
1745 |
object V353; |
object V316; |
1746 |
V352= CMPcar((V351)); |
V315= CMPcar((V314)); |
1747 |
V353= CMPcadr((V351)); |
V316= CMPcadr((V314)); |
1748 |
if(((VV[101]->s.s_dbind))==(VV[102])){ |
if(((VV[109]->s.s_dbind))==(VV[110])){ |
1749 |
goto T529;} |
goto T542;} |
1750 |
{object V354 = Cnil; |
{object V317 = Cnil; |
1751 |
VMR32(V354)} |
VMR32(V317)} |
1752 |
goto T529; |
goto T542; |
1753 |
T529:; |
T542:; |
1754 |
if(!(type_of((V352))==t_symbol)){ |
if(!(type_of((V315))==t_symbol)){ |
1755 |
goto T532;} |
goto T545;} |
1756 |
V352= (VFUN_NARGS=1,(*(LnkLI217))((V352))); |
V315= (VFUN_NARGS=1,(*(LnkLI243))((V315))); |
1757 |
goto T532; |
goto T545; |
1758 |
T532:; |
T545:; |
1759 |
base[2]= (V352); |
base[2]= (V315); |
1760 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1761 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk254)(Lclptr254); |
1762 |
vs_top=sup; |
vs_top=sup; |
1763 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1764 |
goto T536;} |
goto T549;} |
1765 |
base[2]= (V352); |
base[2]= (V315); |
1766 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1767 |
(void) (*Lnk255)(Lclptr255); |
(void) (*Lnk282)(Lclptr282); |
1768 |
vs_top=sup; |
vs_top=sup; |
1769 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1770 |
goto T536;} |
goto T549;} |
1771 |
base[2]= (V352); |
base[2]= (V315); |
1772 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1773 |
(void) (*Lnk256)(Lclptr256); |
(void) (*Lnk283)(Lclptr283); |
1774 |
vs_top=sup; |
vs_top=sup; |
1775 |
goto T536; |
goto T549; |
1776 |
T536:; |
T549:; |
1777 |
{register object V355; |
{register object V318; |
1778 |
object V356; |
object V319; |
1779 |
register object V357; |
register object V320; |
1780 |
object V358; |
object V321; |
1781 |
object V359; |
object V322; |
1782 |
object V360; |
object V323; |
1783 |
object V361; |
object V324; |
1784 |
register object V362; |
register object V325; |
1785 |
object V363; |
object V326; |
1786 |
object V364; |
object V327; |
1787 |
{object V365; |
{object V328; |
1788 |
object V366= (V353); |
object V329= (V316); |
1789 |
if(V366==Cnil){ |
if(V329==Cnil){ |
1790 |
V355= Cnil; |
V318= Cnil; |
1791 |
goto T544;} |
goto T557;} |
1792 |
base[13]=V365=MMcons(Cnil,Cnil); |
base[13]=V328=MMcons(Cnil,Cnil); |
1793 |
goto T545; |
goto T558; |
1794 |
T545:; |
T558:; |
1795 |
(V365->c.c_cdr)= list(2,(V366->c.c_car),Cnil); |
(V328->c.c_cdr)= list(2,(V329->c.c_car),Cnil); |
1796 |
while(MMcdr(V365)!=Cnil)V365=MMcdr(V365); |
while(MMcdr(V328)!=Cnil)V328=MMcdr(V328); |
1797 |
if((V366=MMcdr(V366))==Cnil){ |
if((V329=MMcdr(V329))==Cnil){ |
1798 |
base[13]=base[13]->c.c_cdr; |
base[13]=base[13]->c.c_cdr; |
1799 |
V355= base[13]; |
V318= base[13]; |
1800 |
goto T544;} |
goto T557;} |
1801 |
goto T545;} |
goto T558;} |
1802 |
goto T544; |
goto T557; |
1803 |
T544:; |
T557:; |
1804 |
V356= make_cons((V352),(V355)); |
V319= make_cons((V315),(V318)); |
1805 |
base[4]= (*(LnkLI254))(VV[9]); |
base[4]= (*(LnkLI280))(VV[9]); |
1806 |
base[4]=MMcons(base[4],Cnil); |
base[4]=MMcons(base[4],Cnil); |
1807 |
base[13]= (base[4]->c.c_car); |
base[13]= (base[4]->c.c_car); |
1808 |
base[14]= (V356); |
base[14]= (V319); |
1809 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1810 |
(void) (*Lnk257)(Lclptr257); |
(void) (*Lnk284)(Lclptr284); |
1811 |
vs_top=sup; |
vs_top=sup; |
1812 |
V357= vs_base[0]; |
V320= vs_base[0]; |
1813 |
V358= (*(LnkLI258))((V357),VV[103]); |
V321= (*(LnkLI285))((V320),VV[111]); |
1814 |
V359= list(2,(V352),(V355)); |
V322= list(2,(V315),(V318)); |
1815 |
V360= (*(LnkLI254))(VV[104]); |
V323= (*(LnkLI280))(VV[112]); |
1816 |
base[13]= (V360); |
base[13]= (V323); |
1817 |
base[14]= (V359); |
base[14]= (V322); |
1818 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1819 |
(void) (*Lnk257)(Lclptr257); |
(void) (*Lnk284)(Lclptr284); |
1820 |
vs_top=sup; |
vs_top=sup; |
1821 |
V361= vs_base[0]; |
V324= vs_base[0]; |
1822 |
base[13]= (V352); |
base[13]= (V315); |
1823 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1824 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk254)(Lclptr254); |
1825 |
vs_top=sup; |
vs_top=sup; |
1826 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1827 |
goto T559;} |
goto T572;} |
1828 |
V362= Cnil; |
V325= Cnil; |
1829 |
goto T558; |
goto T571; |
1830 |
goto T559; |
goto T572; |
1831 |
T559:; |
T572:; |
1832 |
base[13]= (V352); |
base[13]= (V315); |
1833 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1834 |
(void) (*Lnk250)(Lclptr250); |
(void) (*Lnk276)(Lclptr276); |
1835 |
vs_top=sup; |
vs_top=sup; |
1836 |
V362= vs_base[0]; |
V325= vs_base[0]; |
1837 |
goto T558; |
goto T571; |
1838 |
T558:; |
T571:; |
1839 |
if(((V362))==Cnil){ |
if(((V325))==Cnil){ |
1840 |
goto T565;} |
goto T578;} |
1841 |
base[13]= (*(LnkLI254))(VV[97]); |
base[13]= (*(LnkLI280))(VV[97]); |
1842 |
base[14]= make_cons((V362),(V355)); |
base[14]= make_cons((V325),(V318)); |
1843 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1844 |
(void) (*Lnk257)(Lclptr257); |
(void) (*Lnk284)(Lclptr284); |
1845 |
vs_top=sup; |
vs_top=sup; |
1846 |
V363= vs_base[0]; |
V326= vs_base[0]; |
1847 |
goto T563; |
goto T576; |
1848 |
goto T565; |
goto T578; |
1849 |
T565:; |
T578:; |
1850 |
V363= Cnil; |
V326= Cnil; |
1851 |
goto T563; |
goto T576; |
1852 |
T563:; |
T576:; |
1853 |
if(((V362))==Cnil){ |
if(((V325))==Cnil){ |
1854 |
goto T571;} |
goto T584;} |
1855 |
base[13]= (*(LnkLI254))(VV[98]); |
base[13]= (*(LnkLI280))(VV[98]); |
1856 |
base[14]= listA(3,(V362),Ct,(V355)); |
base[14]= listA(3,(V325),Ct,(V318)); |
1857 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1858 |
(void) (*Lnk257)(Lclptr257); |
(void) (*Lnk284)(Lclptr284); |
1859 |
vs_top=sup; |
vs_top=sup; |
1860 |
V364= vs_base[0]; |
V327= vs_base[0]; |
1861 |
goto T569; |
goto T582; |
1862 |
goto T571; |
goto T584; |
1863 |
T571:; |
T584:; |
1864 |
V364= Cnil; |
V327= Cnil; |
1865 |
goto T569; |
goto T582; |
1866 |
T569:; |
T582:; |
1867 |
if(((V357))!=Cnil){ |
if(((V320))!=Cnil){ |
1868 |
goto T575;} |
goto T588;} |
1869 |
{object V368 = |
{object V331 = |
1870 |
make_cclosure_new(LC66,Cnil,base[4],Cdata); |
make_cclosure_new(LC66,Cnil,base[4],Cdata); |
1871 |
VMR32(V368)} |
VMR32(V331)} |
1872 |
goto T575; |
goto T588; |
1873 |
T575:; |
T588:; |
1874 |
if((CMPcdr((V357)))!=Cnil){ |
if((CMPcdr((V320)))!=Cnil){ |
1875 |
goto T579;} |
goto T592;} |
1876 |
if(!((CMPcar((V357)))==((V358)))){ |
if(!((CMPcar((V320)))==((V321)))){ |
1877 |
goto T579;} |
goto T592;} |
1878 |
if((CMPcdr((V361)))!=Cnil){ |
if((CMPcdr((V324)))!=Cnil){ |
1879 |
goto T579;} |
goto T592;} |
1880 |
base[13]= CMPcar((V361)); |
base[13]= CMPcar((V324)); |
1881 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1882 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk286)(Lclptr286); |
1883 |
vs_top=sup; |
vs_top=sup; |
1884 |
V369= vs_base[0]; |
V332= vs_base[0]; |
1885 |
if(!((CMPcar(V369))==((VV[105]->s.s_dbind)))){ |
if(!((CMPcar(V332))==((VV[113]->s.s_dbind)))){ |
1886 |
goto T579;} |
goto T592;} |
1887 |
base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata); |
base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata); |
1888 |
base[13]=MMcons(base[13],base[4]); |
base[13]=MMcons(base[13],base[4]); |
1889 |
base[14]= (base[13]->c.c_car); |
base[14]= (base[13]->c.c_car); |
1890 |
base[15]= (V363); |
base[15]= (V326); |
1891 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1892 |
(void) (*Lnk260)(); |
(void) (*Lnk287)(); |
1893 |
vs_top=sup; |
vs_top=sup; |
1894 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1895 |
goto T591;} |
goto T604;} |
1896 |
goto T590; |
goto T603; |
1897 |
goto T591; |
goto T604; |
1898 |
T591:; |
T604:; |
1899 |
base[14]= (base[13]->c.c_car); |
base[14]= (base[13]->c.c_car); |
1900 |
base[15]= (V364); |
base[15]= (V327); |
1901 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1902 |
(void) (*Lnk260)(); |
(void) (*Lnk287)(); |
1903 |
vs_top=sup; |
vs_top=sup; |
1904 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1905 |
goto T578;} |
goto T591;} |
1906 |
goto T590; |
goto T603; |
1907 |
T590:; |
T603:; |
1908 |
goto T579; |
goto T592; |
1909 |
T579:; |
T592:; |
1910 |
{object V370 = Cnil; |
{object V333 = Cnil; |
1911 |
VMR32(V370)} |
VMR32(V333)} |
1912 |
goto T578; |
goto T591; |
1913 |
T578:; |
T591:; |
1914 |
V371 = (V352); |
base[13]= (V315); |
1915 |
V372 = (V351); |
base[14]= (V318); |
|
base[13]= (V352); |
|
|
base[14]= (V355); |
|
1916 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1917 |
(void) (*Lnk104)(Lclptr104); |
(void) (*Lnk112)(Lclptr112); |
1918 |
vs_top=sup; |
vs_top=sup; |
1919 |
V373= vs_base[0]; |
V334= vs_base[0]; |
1920 |
V374 = (V363); |
{object V335 = (*(LnkLI288))((V315),(V314),V334,(V326),(V327)); |
1921 |
V375 = (V364); |
VMR32(V335)}}} |
|
{object V376 = (*(LnkLI261))(V371,V372,V373,V374,V375); |
|
|
VMR32(V376)}}} |
|
1922 |
base[0]=base[0]; |
base[0]=base[0]; |
1923 |
return Cnil; |
return Cnil; |
1924 |
} |
} |
1925 |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL */ |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL */ |
1926 |
|
|
1927 |
static object LI35(V382,V383,V384,V385,V386) |
static object LI35(V341,V342,V343,V344,V345) |
1928 |
|
|
1929 |
register object V382;register object V383;object V384;register object V385;register object V386; |
register object V341;register object V342;object V343;register object V344;register object V345; |
1930 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1931 |
goto TTL; |
goto TTL; |
1932 |
TTL:; |
TTL:; |
1933 |
{object V387; |
{object V346; |
1934 |
object V388; |
object V347; |
1935 |
object V389; |
object V348; |
1936 |
V387= CMPcadr((V383)); |
V346= CMPcadr((V342)); |
1937 |
V388= CMPcaddr((V383)); |
V347= CMPcaddr((V342)); |
1938 |
base[3]= (*(LnkLI254))(VV[96]); |
base[3]= (*(LnkLI280))(VV[96]); |
1939 |
base[4]= make_cons((V382),(V384)); |
base[4]= make_cons((V341),(V343)); |
1940 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1941 |
(void) (*Lnk257)(Lclptr257); |
(void) (*Lnk284)(Lclptr284); |
1942 |
vs_top=sup; |
vs_top=sup; |
1943 |
V389= vs_base[0]; |
V348= vs_base[0]; |
1944 |
if(((V388))!=Cnil){ |
if(((V347))!=Cnil){ |
1945 |
goto T605;} |
goto T618;} |
1946 |
V390 = (V382); |
base[3]= (V348); |
1947 |
V391 = (V384); |
base[4]= (V344); |
1948 |
base[3]= (V389); |
base[5]= (V345); |
|
base[4]= (V385); |
|
|
base[5]= (V386); |
|
1949 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1950 |
Lappend(); |
Lappend(); |
1951 |
vs_top=sup; |
vs_top=sup; |
1952 |
V392= vs_base[0]; |
V349= vs_base[0]; |
1953 |
if(((VFUN_NARGS=5,(*(LnkLI262))(V390,V391,V392,Ct,Cnil)))!=Cnil){ |
if(((VFUN_NARGS=5,(*(LnkLI289))((V341),(V343),V349,Ct,Cnil)))!=Cnil){ |
1954 |
goto T605;} |
goto T618;} |
1955 |
{object V393 = Cnil; |
{object V350 = Cnil; |
1956 |
VMR33(V393)} |
VMR33(V350)} |
1957 |
goto T605; |
goto T618; |
1958 |
T605:; |
T618:; |
1959 |
if((CMPcdr((V389)))!=Cnil){ |
if((CMPcdr((V348)))!=Cnil){ |
1960 |
goto T614;} |
goto T627;} |
1961 |
base[3]= (VV[263]->s.s_gfdef); |
base[3]= (VV[290]->s.s_gfdef); |
1962 |
base[4]= (V385); |
base[4]= (V344); |
1963 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1964 |
(void) (*Lnk264)(); |
(void) (*Lnk291)(); |
1965 |
vs_top=sup; |
vs_top=sup; |
1966 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1967 |
goto T614;} |
goto T627;} |
1968 |
base[3]= (VV[263]->s.s_gfdef); |
base[3]= (VV[290]->s.s_gfdef); |
1969 |
base[4]= (V386); |
base[4]= (V345); |
1970 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1971 |
(void) (*Lnk264)(); |
(void) (*Lnk291)(); |
1972 |
vs_top=sup; |
vs_top=sup; |
1973 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1974 |
goto T615;} |
goto T628;} |
1975 |
goto T614; |
goto T627; |
1976 |
T614:; |
T627:; |
1977 |
{object V394 = (*(LnkLI265))((V383),(V382),(V387),(V385),(V386)); |
{object V351 = (*(LnkLI292))((V342),(V341),(V346),(V344),(V345)); |
1978 |
VMR33(V394)} |
VMR33(V351)} |
1979 |
goto T615; |
goto T628; |
1980 |
T615:; |
T628:; |
1981 |
{object V395 = (*(LnkLI266))((V383),(V382),(V387),(V385),(V386)); |
{object V352 = (*(LnkLI293))((V342),(V341),(V346),(V344),(V345)); |
1982 |
VMR33(V395)}} |
VMR33(V352)}} |
1983 |
base[0]=base[0]; |
base[0]=base[0]; |
1984 |
return Cnil; |
return Cnil; |
1985 |
} |
} |
1986 |
/* local entry for function COMPLICATED-INSTANCE-CREATION-METHOD */ |
/* local entry for function COMPLICATED-INSTANCE-CREATION-METHOD */ |
1987 |
|
|
1988 |
static object LI36(V397) |
static object LI36(V354) |
1989 |
|
|
1990 |
object V397; |
object V354; |
1991 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
1992 |
goto TTL; |
goto TTL; |
1993 |
TTL:; |
TTL:; |
1994 |
{object V398; |
{object V355; |
1995 |
base[0]= (V397); |
base[0]= (V354); |
1996 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1997 |
(void) (*Lnk267)(Lclptr267); |
(void) (*Lnk294)(Lclptr294); |
1998 |
vs_top=sup; |
vs_top=sup; |
1999 |
V398= vs_base[0]; |
V355= vs_base[0]; |
2000 |
if(((V398))==Cnil){ |
if(((V355))==Cnil){ |
2001 |
goto T628;} |
goto T641;} |
2002 |
if((CMPcdr((V398)))==Cnil){ |
if((CMPcdr((V355)))==Cnil){ |
2003 |
goto T631;} |
goto T644;} |
2004 |
V399= Cnil; |
V356= Cnil; |
2005 |
goto T630; |
goto T643; |
2006 |
goto T631; |
goto T644; |
2007 |
T631:; |
T644:; |
2008 |
V399= ((CMPcar((V398)))==(VV[107])?Ct:Cnil); |
V356= ((CMPcar((V355)))==(VV[115])?Ct:Cnil); |
2009 |
goto T630; |
goto T643; |
2010 |
T630:; |
T643:; |
2011 |
{object V400 = ((V399)==Cnil?Ct:Cnil); |
{object V357 = ((V356)==Cnil?Ct:Cnil); |
2012 |
VMR34(V400)} |
VMR34(V357)} |
2013 |
goto T628; |
goto T641; |
2014 |
T628:; |
T641:; |
2015 |
{object V401; |
{object V358; |
2016 |
base[0]= (V397); |
base[0]= (V354); |
2017 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2018 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk286)(Lclptr286); |
2019 |
vs_top=sup; |
vs_top=sup; |
2020 |
V402= vs_base[0]; |
V359= vs_base[0]; |
2021 |
V401= CMPcar(V402); |
V358= CMPcar(V359); |
2022 |
base[0]= (V401); |
base[0]= (V358); |
2023 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2024 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk254)(Lclptr254); |
2025 |
vs_top=sup; |
vs_top=sup; |
2026 |
V403= vs_base[0]; |
V360= vs_base[0]; |
2027 |
if(!((V403)==Cnil)){ |
if(!((V360)==Cnil)){ |
2028 |
goto T636;} |
goto T649;} |
2029 |
{object V404 = Ct; |
{object V361 = Ct; |
2030 |
VMR34(V404)} |
VMR34(V361)} |
2031 |
goto T636; |
goto T649; |
2032 |
T636:; |
T649:; |
2033 |
base[0]= (V401); |
base[0]= (V358); |
2034 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2035 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk255)(Lclptr255); |
2036 |
vs_top=sup; |
vs_top=sup; |
2037 |
V405= vs_base[0]; |
V362= vs_base[0]; |
2038 |
{object V406 = ((((VV[108])==(V405)?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V363 = ((((VV[116])==(V362)?Ct:Cnil))==Cnil?Ct:Cnil); |
2039 |
VMR34(V406)}}} |
VMR34(V363)}}} |
2040 |
base[0]=base[0]; |
base[0]=base[0]; |
2041 |
return Cnil; |
return Cnil; |
2042 |
} |
} |
2043 |
/* local entry for function FIND-STANDARD-II-METHOD */ |
/* local entry for function FIND-STANDARD-II-METHOD */ |
2044 |
|
|
2045 |
static object LI37(V409,V410) |
static object LI37(V366,V367) |
2046 |
|
|
2047 |
object V409;register object V410; |
object V366;register object V367; |
2048 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
2049 |
goto TTL; |
goto TTL; |
2050 |
TTL:; |
TTL:; |
2051 |
{register object V411; |
{register object V368; |
2052 |
register object V412; |
register object V369; |
2053 |
V411= (V409); |
V368= (V366); |
2054 |
V412= CMPcar((V411)); |
V369= CMPcar((V368)); |
2055 |
goto T645; |
goto T658; |
2056 |
T645:; |
T658:; |
2057 |
if(!(((V411))==Cnil)){ |
if(!(((V368))==Cnil)){ |
2058 |
goto T646;} |
goto T659;} |
2059 |
{object V413 = Cnil; |
{object V370 = Cnil; |
2060 |
VMR35(V413)} |
VMR35(V370)} |
2061 |
goto T646; |
goto T659; |
2062 |
T646:; |
T659:; |
2063 |
base[1]= (V412); |
base[1]= (V369); |
2064 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2065 |
(void) (*Lnk267)(Lclptr267); |
(void) (*Lnk294)(Lclptr294); |
2066 |
vs_top=sup; |
vs_top=sup; |
2067 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2068 |
goto T650;} |
goto T663;} |
2069 |
{register object V414; |
{register object V371; |
2070 |
base[1]= (V412); |
base[1]= (V369); |
2071 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2072 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk286)(Lclptr286); |
2073 |
vs_top=sup; |
vs_top=sup; |
2074 |
V415= vs_base[0]; |
V372= vs_base[0]; |
2075 |
V414= CMPcar(V415); |
V371= CMPcar(V372); |
2076 |
base[1]= (V414); |
base[1]= (V371); |
2077 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2078 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk254)(Lclptr254); |
2079 |
vs_top=sup; |
vs_top=sup; |
2080 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
|
goto T650;} |
|
|
if(!(type_of((V410))==t_cons||((V410))==Cnil)){ |
|
2081 |
goto T663;} |
goto T663;} |
2082 |
base[1]= (V414); |
if(!(type_of((V367))==t_cons||((V367))==Cnil)){ |
2083 |
|
goto T676;} |
2084 |
|
base[1]= (V371); |
2085 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2086 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk255)(Lclptr255); |
2087 |
vs_top=sup; |
vs_top=sup; |
2088 |
V417= vs_base[0]; |
V374= vs_base[0]; |
2089 |
V418 = (V410); |
{register object x= V374,V373= (V367); |
2090 |
{register object x= V417,V416= V418; |
while(V373!=Cnil) |
2091 |
while(V416!=Cnil) |
if(eql(x,V373->c.c_car)){ |
2092 |
if(eql(x,V416->c.c_car)){ |
goto T674; |
2093 |
goto T661; |
}else V373=V373->c.c_cdr; |
2094 |
}else V416=V416->c.c_cdr; |
goto T663;} |
2095 |
goto T650;} |
goto T676; |
2096 |
goto T663; |
T676:; |
2097 |
T663:; |
base[1]= (V371); |
|
base[1]= (V414); |
|
2098 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2099 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk255)(Lclptr255); |
2100 |
vs_top=sup; |
vs_top=sup; |
2101 |
V419= vs_base[0]; |
V375= vs_base[0]; |
2102 |
V420 = (V410); |
if(!((V375)==((V367)))){ |
2103 |
if(!((V419)==(V420))){ |
goto T663;} |
2104 |
goto T650;} |
goto T674; |
2105 |
goto T661; |
T674:; |
2106 |
T661:; |
{object V376 = (V369); |
2107 |
{object V421 = (V412); |
VMR35(V376)}} |
2108 |
VMR35(V421)}} |
goto T663; |
2109 |
goto T650; |
T663:; |
2110 |
T650:; |
V368= CMPcdr((V368)); |
2111 |
V411= CMPcdr((V411)); |
V369= CMPcar((V368)); |
2112 |
V412= CMPcar((V411)); |
goto T658;} |
|
goto T645;} |
|
2113 |
base[0]=base[0]; |
base[0]=base[0]; |
2114 |
return Cnil; |
return Cnil; |
2115 |
} |
} |
2121 |
vs_check; |
vs_check; |
2122 |
check_arg(2); |
check_arg(2); |
2123 |
vs_top=sup; |
vs_top=sup; |
2124 |
{object V422=base[0]->c.c_cdr; |
{object V377=base[0]->c.c_cdr; |
2125 |
if(endp(V422))invalid_macro_call(); |
if(endp(V377))invalid_macro_call(); |
2126 |
base[2]= (V422->c.c_car); |
base[2]= (V377->c.c_car); |
2127 |
V422=V422->c.c_cdr; |
V377=V377->c.c_cdr; |
2128 |
if(endp(V422))invalid_macro_call(); |
if(endp(V377))invalid_macro_call(); |
2129 |
base[3]= (V422->c.c_car); |
base[3]= (V377->c.c_car); |
2130 |
V422=V422->c.c_cdr; |
V377=V377->c.c_cdr; |
2131 |
if(endp(V422))invalid_macro_call(); |
if(endp(V377))invalid_macro_call(); |
2132 |
base[4]= (V422->c.c_car); |
base[4]= (V377->c.c_car); |
2133 |
V422=V422->c.c_cdr; |
V377=V377->c.c_cdr; |
2134 |
if(!endp(V422))invalid_macro_call();} |
if(!endp(V377))invalid_macro_call();} |
2135 |
V423= list(2,VV[109],base[2]); |
V378= list(2,VV[117],base[2]); |
2136 |
V424= make_cons(/* INLINE-ARGS */V423,Cnil); |
V379= make_cons(/* INLINE-ARGS */V378,Cnil); |
2137 |
V425= list(5,VV[111],VV[112],VV[113],base[3],base[4]); |
V380= list(5,VV[119],VV[120],VV[121],base[3],base[4]); |
2138 |
base[5]= list(3,VV[52],/* INLINE-ARGS */V424,list(4,VV[78],VV[110],/* INLINE-ARGS */V425,list(4,VV[114],VV[115],base[3],base[4]))); |
base[5]= list(3,VV[52],/* INLINE-ARGS */V379,list(4,VV[78],VV[118],/* INLINE-ARGS */V380,list(4,VV[122],VV[123],base[3],base[4]))); |
2139 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2140 |
return; |
return; |
2141 |
} |
} |
2147 |
vs_check; |
vs_check; |
2148 |
check_arg(2); |
check_arg(2); |
2149 |
vs_top=sup; |
vs_top=sup; |
2150 |
{object V426=base[0]->c.c_cdr; |
{object V381=base[0]->c.c_cdr; |
2151 |
if(endp(V426))invalid_macro_call(); |
if(endp(V381))invalid_macro_call(); |
2152 |
base[2]= (V426->c.c_car); |
base[2]= (V381->c.c_car); |
2153 |
V426=V426->c.c_cdr; |
V381=V381->c.c_cdr; |
2154 |
if(!endp(V426))invalid_macro_call();} |
if(!endp(V381))invalid_macro_call();} |
2155 |
base[3]= list(2,VV[116],base[2]); |
base[3]= list(2,VV[124],base[2]); |
2156 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2157 |
return; |
return; |
2158 |
} |
} |
2164 |
vs_check; |
vs_check; |
2165 |
check_arg(2); |
check_arg(2); |
2166 |
vs_top=sup; |
vs_top=sup; |
2167 |
{object V427=base[0]->c.c_cdr; |
{object V382=base[0]->c.c_cdr; |
2168 |
if(endp(V427))invalid_macro_call(); |
if(endp(V382))invalid_macro_call(); |
2169 |
base[2]= (V427->c.c_car); |
base[2]= (V382->c.c_car); |
2170 |
V427=V427->c.c_cdr; |
V382=V382->c.c_cdr; |
2171 |
if(endp(V427))invalid_macro_call(); |
if(endp(V382))invalid_macro_call(); |
2172 |
base[3]= (V427->c.c_car); |
base[3]= (V382->c.c_car); |
2173 |
V427=V427->c.c_cdr; |
V382=V382->c.c_cdr; |
2174 |
if(!endp(V427))invalid_macro_call();} |
if(!endp(V382))invalid_macro_call();} |
2175 |
V428= list(3,VV[62],VV[118],base[2]); |
V383= list(3,VV[62],VV[126],base[2]); |
2176 |
base[4]= list(5,VV[52],VV[117],/* INLINE-ARGS */V428,list(3,VV[62],VV[119],list(2,VV[120],base[3])),VV[121]); |
base[4]= list(5,VV[52],VV[125],/* INLINE-ARGS */V383,list(3,VV[62],VV[127],list(2,VV[128],base[3])),VV[129]); |
2177 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2178 |
return; |
return; |
2179 |
} |
} |
2185 |
vs_check; |
vs_check; |
2186 |
check_arg(2); |
check_arg(2); |
2187 |
vs_top=sup; |
vs_top=sup; |
2188 |
{object V429=base[0]->c.c_cdr; |
{object V384=base[0]->c.c_cdr; |
2189 |
if(endp(V429))invalid_macro_call(); |
if(endp(V384))invalid_macro_call(); |
2190 |
base[2]= (V429->c.c_car); |
base[2]= (V384->c.c_car); |
2191 |
V429=V429->c.c_cdr; |
V384=V384->c.c_cdr; |
2192 |
base[3]= V429;} |
base[3]= V384;} |
2193 |
V430= list(3,VV[124],VV[125],base[2]); |
V385= list(3,VV[132],VV[133],base[2]); |
2194 |
base[4]= list(3,VV[52],VV[122],list(4,VV[78],VV[123],/* INLINE-ARGS */V430,make_cons(VV[6],base[3]))); |
base[4]= list(3,VV[52],VV[130],list(4,VV[78],VV[131],/* INLINE-ARGS */V385,make_cons(VV[6],base[3]))); |
2195 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2196 |
return; |
return; |
2197 |
} |
} |
2201 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2202 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
2203 |
vs_check; |
vs_check; |
2204 |
{object V431; |
{object V386; |
2205 |
object V432; |
object V387; |
2206 |
check_arg(2); |
check_arg(2); |
2207 |
V431=(base[0]); |
V386=(base[0]); |
2208 |
V432=(base[1]); |
V387=(base[1]); |
2209 |
vs_top=sup; |
vs_top=sup; |
2210 |
goto TTL; |
goto TTL; |
2211 |
TTL:; |
TTL:; |
2212 |
{object V433; |
{object V388; |
2213 |
object V434; |
object V389; |
2214 |
V433= (VFUN_NARGS=2,(*(LnkLI39))((V431),(V432))); |
V388= (VFUN_NARGS=2,(*(LnkLI39))((V386),(V387))); |
2215 |
{object V435; |
{object V390; |
2216 |
V435= STREF(object,(V433),48); |
V390= STREF(object,(V388),48); |
2217 |
if(!(((V435))==(VV[43]))){ |
if(!(((V390))==(VV[43]))){ |
2218 |
goto T678;} |
goto T691;} |
2219 |
(void)((*(LnkLI61))((V433),VV[13])); |
(void)((*(LnkLI61))((V388),VV[13])); |
2220 |
V434= STREF(object,(V433),48); |
V389= STREF(object,(V388),48); |
2221 |
goto T675; |
goto T688; |
2222 |
goto T678; |
goto T691; |
2223 |
T678:; |
T691:; |
2224 |
V434= (V435);} |
V389= (V390);} |
2225 |
goto T675; |
goto T688; |
2226 |
T675:; |
T688:; |
2227 |
base[4]= (V431); |
base[4]= (V386); |
2228 |
base[5]= (V432); |
base[5]= (V387); |
2229 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2230 |
{object _funobj = (V434);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V389);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2231 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2232 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2233 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2236 |
} |
} |
2237 |
/* local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE */ |
/* local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE */ |
2238 |
|
|
2239 |
static object LI43(V441,V442,V443,V444,V445) |
static object LI43(V396,V397,V398,V399,V400) |
2240 |
|
|
2241 |
object V441;object V442;object V443;object V444;object V445; |
object V396;object V397;object V398;object V399;object V400; |
2242 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
2243 |
goto TTL; |
goto TTL; |
2244 |
TTL:; |
TTL:; |
2245 |
{object V446; |
{object V401; |
2246 |
object V447; |
object V402; |
2247 |
object V448; |
object V403; |
2248 |
object V449; |
object V404; |
2249 |
base[0]= CMPcar((V441)); |
base[0]= CMPcar((V396)); |
2250 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
2251 |
if(!(type_of((base[0]->c.c_car))==t_symbol)){ |
if(!(type_of((base[0]->c.c_car))==t_symbol)){ |
2252 |
goto T686;} |
goto T699;} |
2253 |
base[1]= (VFUN_NARGS=2,(*(LnkLI224))((base[0]->c.c_car),Cnil)); |
base[1]= (VFUN_NARGS=2,(*(LnkLI250))((base[0]->c.c_car),Cnil)); |
2254 |
goto T684; |
goto T697; |
2255 |
goto T686; |
goto T699; |
2256 |
T686:; |
T699:; |
2257 |
base[1]= Cnil; |
base[1]= Cnil; |
2258 |
goto T684; |
goto T697; |
2259 |
T684:; |
T697:; |
2260 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
2261 |
base[10]= (V442); |
base[10]= (V397); |
2262 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2263 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk269)(Lclptr269); |
2264 |
vs_top=sup; |
vs_top=sup; |
2265 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
2266 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
2267 |
V446= make_cons((base[2]->c.c_car),Cnil); |
V401= make_cons((base[2]->c.c_car),Cnil); |
2268 |
base[10]= (V442); |
base[10]= (V397); |
2269 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2270 |
(void) (*Lnk268)(Lclptr268); |
(void) (*Lnk295)(Lclptr295); |
2271 |
vs_top=sup; |
vs_top=sup; |
2272 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2273 |
goto T693;} |
goto T706;} |
2274 |
base[4]= (VV[269]->s.s_gfdef); |
base[4]= (VV[296]->s.s_gfdef); |
2275 |
goto T691; |
goto T704; |
2276 |
goto T693; |
goto T706; |
2277 |
T693:; |
T706:; |
2278 |
base[10]= (V442); |
base[10]= (V397); |
2279 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2280 |
(void) (*Lnk270)(Lclptr270); |
(void) (*Lnk297)(Lclptr297); |
2281 |
vs_top=sup; |
vs_top=sup; |
2282 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2283 |
goto T697;} |
goto T710;} |
2284 |
base[4]= (VV[271]->s.s_gfdef); |
base[4]= (VV[298]->s.s_gfdef); |
2285 |
goto T691; |
goto T704; |
2286 |
goto T697; |
goto T710; |
2287 |
T697:; |
T710:; |
2288 |
base[10]= (V442); |
base[10]= (V397); |
2289 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2290 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk299)(Lclptr299); |
2291 |
vs_top=sup; |
vs_top=sup; |
2292 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2293 |
goto T701;} |
goto T714;} |
2294 |
base[4]= (VV[273]->s.s_gfdef); |
base[4]= (VV[300]->s.s_gfdef); |
2295 |
goto T691; |
goto T704; |
2296 |
goto T701; |
goto T714; |
2297 |
T701:; |
T714:; |
2298 |
base[10]= VV[126]; |
base[10]= VV[134]; |
2299 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2300 |
Lerror(); |
Lerror(); |
2301 |
vs_top=sup; |
vs_top=sup; |
2302 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2303 |
goto T691; |
goto T704; |
2304 |
T691:; |
T704:; |
2305 |
base[4]=MMcons(base[4],base[2]); |
base[4]=MMcons(base[4],base[2]); |
2306 |
base[10]= (V442); |
base[10]= (V397); |
2307 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2308 |
(void) (*Lnk270)(Lclptr270); |
(void) (*Lnk297)(Lclptr297); |
2309 |
vs_top=sup; |
vs_top=sup; |
2310 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2311 |
goto T707;} |
goto T720;} |
2312 |
V447= VV[127]; |
V402= VV[135]; |
2313 |
goto T705; |
goto T718; |
2314 |
goto T707; |
goto T720; |
2315 |
T707:; |
T720:; |
2316 |
V447= Cnil; |
V402= Cnil; |
2317 |
goto T705; |
goto T718; |
2318 |
T705:; |
T718:; |
2319 |
V448= (*(LnkLI258))((V445),VV[108]); |
V403= (*(LnkLI285))((V400),VV[116]); |
2320 |
base[11]= (V448); |
base[11]= (V403); |
2321 |
base[12]= (V445); |
base[12]= (V400); |
2322 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
2323 |
(void) (*Lnk274)(); |
(void) (*Lnk301)(); |
2324 |
vs_top=sup; |
vs_top=sup; |
2325 |
V453= vs_base[0]; |
V408= vs_base[0]; |
2326 |
{object V451; |
{object V406; |
2327 |
object V452= V453; |
object V407= V408; |
2328 |
if(V452==Cnil){ |
if(V407==Cnil){ |
2329 |
V450= Cnil; |
V405= Cnil; |
2330 |
goto T712;} |
goto T725;} |
2331 |
base[10]=V451=MMcons(Cnil,Cnil); |
base[10]=V406=MMcons(Cnil,Cnil); |
2332 |
goto T713; |
goto T726; |
2333 |
T713:; |
T726:; |
2334 |
base[11]= (VV[98]->s.s_gfdef); |
base[11]= (VV[98]->s.s_gfdef); |
2335 |
base[12]= list(3,VV[128],(V452->c.c_car),Cnil); |
base[12]= list(3,VV[136],(V407->c.c_car),Cnil); |
2336 |
base[13]= Cnil; |
base[13]= Cnil; |
2337 |
base[14]= (V446); |
base[14]= (V401); |
2338 |
vs_top=(vs_base=base+11)+4; |
vs_top=(vs_base=base+11)+4; |
2339 |
(void) (*Lnk275)(); |
(void) (*Lnk302)(); |
2340 |
vs_top=sup; |
vs_top=sup; |
2341 |
(V451->c.c_car)= vs_base[0]; |
(V406->c.c_car)= vs_base[0]; |
2342 |
if((V452=MMcdr(V452))==Cnil){ |
if((V407=MMcdr(V407))==Cnil){ |
2343 |
V450= base[10]; |
V405= base[10]; |
2344 |
goto T712;} |
goto T725;} |
2345 |
V451=MMcdr(V451)=MMcons(Cnil,Cnil); |
V406=MMcdr(V406)=MMcons(Cnil,Cnil); |
2346 |
goto T713;} |
goto T726;} |
2347 |
goto T712; |
goto T725; |
2348 |
T712:; |
T725:; |
2349 |
base[7]= nreverse(V450); |
base[7]= nreverse(V405); |
2350 |
base[7]=MMcons(base[7],base[4]); |
base[7]=MMcons(base[7],base[4]); |
2351 |
V449= (*(LnkLI258))((V444),VV[108]); |
V404= (*(LnkLI285))((V399),VV[116]); |
2352 |
base[11]= (V449); |
base[11]= (V404); |
2353 |
base[12]= (V444); |
base[12]= (V399); |
2354 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
2355 |
(void) (*Lnk274)(); |
(void) (*Lnk301)(); |
2356 |
vs_top=sup; |
vs_top=sup; |
2357 |
V458= vs_base[0]; |
V413= vs_base[0]; |
2358 |
{object V456; |
{object V411; |
2359 |
object V457= V458; |
object V412= V413; |
2360 |
if(V457==Cnil){ |
if(V412==Cnil){ |
2361 |
V455= Cnil; |
V410= Cnil; |
2362 |
goto T724;} |
goto T737;} |
2363 |
base[10]=V456=MMcons(Cnil,Cnil); |
base[10]=V411=MMcons(Cnil,Cnil); |
2364 |
goto T725; |
goto T738; |
2365 |
T725:; |
T738:; |
2366 |
base[11]= (VV[97]->s.s_gfdef); |
base[11]= (VV[97]->s.s_gfdef); |
2367 |
base[12]= list(3,VV[128],(V457->c.c_car),Cnil); |
base[12]= list(3,VV[136],(V412->c.c_car),Cnil); |
2368 |
base[13]= Cnil; |
base[13]= Cnil; |
2369 |
base[14]= (V446); |
base[14]= (V401); |
2370 |
vs_top=(vs_base=base+11)+4; |
vs_top=(vs_base=base+11)+4; |
2371 |
(void) (*Lnk275)(); |
(void) (*Lnk302)(); |
2372 |
vs_top=sup; |
vs_top=sup; |
2373 |
(V456->c.c_car)= vs_base[0]; |
(V411->c.c_car)= vs_base[0]; |
2374 |
if((V457=MMcdr(V457))==Cnil){ |
if((V412=MMcdr(V412))==Cnil){ |
2375 |
V455= base[10]; |
V410= base[10]; |
2376 |
goto T724;} |
goto T737;} |
2377 |
V456=MMcdr(V456)=MMcons(Cnil,Cnil); |
V411=MMcdr(V411)=MMcons(Cnil,Cnil); |
2378 |
goto T725;} |
goto T738;} |
2379 |
goto T724; |
goto T737; |
2380 |
T724:; |
T737:; |
2381 |
base[9]= nreverse(V455); |
base[9]= nreverse(V410); |
2382 |
base[9]=MMcons(base[9],base[7]); |
base[9]=MMcons(base[9],base[7]); |
2383 |
base[12]= (V442); |
base[12]= (V397); |
2384 |
base[13]= (V443); |
base[13]= (V398); |
2385 |
base[14]= CMPcaddr((V441)); |
base[14]= CMPcaddr((V396)); |
2386 |
vs_top=(vs_base=base+12)+3; |
vs_top=(vs_base=base+12)+3; |
2387 |
(void) (*Lnk276)(); |
(void) (*Lnk303)(); |
2388 |
if(vs_base>=vs_top){vs_top=sup;goto T738;} |
if(vs_base>=vs_top){vs_top=sup;goto T751;} |
2389 |
base[10]=MMcons(vs_base[0],base[9]); |
base[10]=MMcons(vs_base[0],base[9]); |
2390 |
vs_base++; |
vs_base++; |
2391 |
if(vs_base>=vs_top){vs_top=sup;goto T739;} |
if(vs_base>=vs_top){vs_top=sup;goto T752;} |
2392 |
base[11]=MMcons(vs_base[0],base[10]); |
base[11]=MMcons(vs_base[0],base[10]); |
2393 |
vs_top=sup; |
vs_top=sup; |
2394 |
goto T740; |
goto T753; |
2395 |
goto T738; |
goto T751; |
2396 |
T738:; |
T751:; |
2397 |
base[10]=MMcons(Cnil,base[9]); |
base[10]=MMcons(Cnil,base[9]); |
2398 |
goto T739; |
goto T752; |
2399 |
T739:; |
T752:; |
2400 |
base[11]=MMcons(Cnil,base[10]); |
base[11]=MMcons(Cnil,base[10]); |
2401 |
goto T740; |
goto T753; |
2402 |
T740:; |
T753:; |
2403 |
if(!(((V447))==(VV[127]))){ |
if(!(((V402))==(VV[135]))){ |
2404 |
goto T742;} |
goto T755;} |
2405 |
{object V460 = |
{object V415 = |
2406 |
make_cclosure_new(LC67,Cnil,base[11],Cdata); |
make_cclosure_new(LC67,Cnil,base[11],Cdata); |
2407 |
VMR41(V460)} |
VMR41(V415)} |
2408 |
goto T742; |
goto T755; |
2409 |
T742:; |
T755:; |
2410 |
{object V461 = |
{object V416 = |
2411 |
make_cclosure_new(LC68,Cnil,base[11],Cdata); |
make_cclosure_new(LC68,Cnil,base[11],Cdata); |
2412 |
VMR41(V461)}} |
VMR41(V416)}} |
2413 |
base[0]=base[0]; |
base[0]=base[0]; |
2414 |
return Cnil; |
return Cnil; |
2415 |
} |
} |
2416 |
/* local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */ |
/* local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */ |
2417 |
|
|
2418 |
static object LI45(V467,V468,V469,V470,V471) |
static object LI45(V422,V423,V424,V425,V426) |
2419 |
|
|
2420 |
object V467;object V468;object V469;object V470;object V471; |
object V422;object V423;object V424;object V425;object V426; |
2421 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
2422 |
goto TTL; |
goto TTL; |
2423 |
TTL:; |
TTL:; |
2424 |
base[0]=MMcons((V468),Cnil); |
base[0]=MMcons((V423),Cnil); |
2425 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
2426 |
base[4]= (V469); |
base[4]= (V424); |
2427 |
base[5]= CMPcaddr((V467)); |
base[5]= CMPcaddr((V422)); |
2428 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2429 |
(void) (*Lnk277)(); |
(void) (*Lnk304)(); |
2430 |
if(vs_base>=vs_top){vs_top=sup;goto T748;} |
if(vs_base>=vs_top){vs_top=sup;goto T761;} |
2431 |
base[1]=MMcons(vs_base[0],base[0]); |
base[1]=MMcons(vs_base[0],base[0]); |
2432 |
vs_base++; |
vs_base++; |
2433 |
if(vs_base>=vs_top){vs_top=sup;goto T749;} |
if(vs_base>=vs_top){vs_top=sup;goto T762;} |
2434 |
base[2]=MMcons(vs_base[0],base[1]); |
base[2]=MMcons(vs_base[0],base[1]); |
2435 |
vs_top=sup; |
vs_top=sup; |
2436 |
goto T750; |
goto T763; |
2437 |
goto T748; |
goto T761; |
2438 |
T748:; |
T761:; |
2439 |
base[1]=MMcons(Cnil,base[0]); |
base[1]=MMcons(Cnil,base[0]); |
2440 |
goto T749; |
goto T762; |
2441 |
T749:; |
T762:; |
2442 |
base[2]=MMcons(Cnil,base[1]); |
base[2]=MMcons(Cnil,base[1]); |
2443 |
goto T750; |
goto T763; |
2444 |
T750:; |
T763:; |
2445 |
base[3]= CMPcar((V467)); |
base[3]= CMPcar((V422)); |
2446 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
2447 |
if(!(type_of((base[3]->c.c_car))==t_symbol)){ |
if(!(type_of((base[3]->c.c_car))==t_symbol)){ |
2448 |
goto T754;} |
goto T767;} |
2449 |
base[4]= (VFUN_NARGS=2,(*(LnkLI224))((base[3]->c.c_car),Cnil)); |
base[4]= (VFUN_NARGS=2,(*(LnkLI250))((base[3]->c.c_car),Cnil)); |
2450 |
goto T752; |
goto T765; |
2451 |
goto T754; |
goto T767; |
2452 |
T754:; |
T767:; |
2453 |
base[4]= Cnil; |
base[4]= Cnil; |
2454 |
goto T752; |
goto T765; |
2455 |
T752:; |
T765:; |
2456 |
base[4]=MMcons(base[4],base[3]); |
base[4]=MMcons(base[4],base[3]); |
2457 |
base[8]= (base[0]->c.c_car); |
base[8]= (base[0]->c.c_car); |
2458 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2459 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk269)(Lclptr269); |
2460 |
vs_top=sup; |
vs_top=sup; |
2461 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
2462 |
base[5]=MMcons(base[5],base[4]); |
base[5]=MMcons(base[5],base[4]); |
2463 |
base[8]= (VV[98]->s.s_gfdef); |
base[8]= (VV[98]->s.s_gfdef); |
2464 |
base[9]= (V471); |
base[9]= (V426); |
2465 |
V472= list(2,VV[138],(base[0]->c.c_car)); |
V427= list(2,VV[150],(base[0]->c.c_car)); |
2466 |
base[10]= make_cons(/* INLINE-ARGS */V472,VV[139]); |
base[10]= make_cons(/* INLINE-ARGS */V427,VV[151]); |
2467 |
V473= (*(LnkLI258))((V471),VV[108]); |
V428= (*(LnkLI285))((V426),VV[116]); |
2468 |
V474= |
V429= |
2469 |
make_cclosure_new(LC69,Cnil,base[5],Cdata); |
make_cclosure_new(LC69,Cnil,base[5],Cdata); |
2470 |
V475= list(2,/* INLINE-ARGS */V473,V474); |
V430= list(2,/* INLINE-ARGS */V428,V429); |
2471 |
base[11]= make_cons(/* INLINE-ARGS */V475,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V430,Cnil); |
2472 |
base[12]= list(3,(base[5]->c.c_car),(VV[140]->s.s_dbind),(VV[140]->s.s_dbind)); |
base[12]= list(3,(base[5]->c.c_car),(VV[152]->s.s_dbind),(VV[152]->s.s_dbind)); |
2473 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
2474 |
(void) (*Lnk278)(); |
(void) (*Lnk305)(); |
2475 |
vs_top=sup; |
vs_top=sup; |
2476 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2477 |
base[6]=MMcons(base[6],base[5]); |
base[6]=MMcons(base[6],base[5]); |
2478 |
base[8]= (VV[97]->s.s_gfdef); |
base[8]= (VV[97]->s.s_gfdef); |
2479 |
base[9]= (V470); |
base[9]= (V425); |
2480 |
base[10]= list(2,list(2,VV[138],(base[0]->c.c_car)),Ct); |
base[10]= list(2,list(2,VV[150],(base[0]->c.c_car)),Ct); |
2481 |
V476= (*(LnkLI258))((V470),VV[108]); |
V431= (*(LnkLI285))((V425),VV[116]); |
2482 |
V477= |
V432= |
2483 |
make_cclosure_new(LC70,Cnil,base[6],Cdata); |
make_cclosure_new(LC70,Cnil,base[6],Cdata); |
2484 |
V478= list(2,/* INLINE-ARGS */V476,V477); |
V433= list(2,/* INLINE-ARGS */V431,V432); |
2485 |
base[11]= make_cons(/* INLINE-ARGS */V478,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V433,Cnil); |
2486 |
base[12]= list(2,(base[5]->c.c_car),(VV[140]->s.s_dbind)); |
base[12]= list(2,(base[5]->c.c_car),(VV[152]->s.s_dbind)); |
2487 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
2488 |
(void) (*Lnk278)(); |
(void) (*Lnk305)(); |
2489 |
vs_top=sup; |
vs_top=sup; |
2490 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
2491 |
base[7]=MMcons(base[7],base[6]); |
base[7]=MMcons(base[7],base[6]); |
2492 |
{object V479 = |
{object V434 = |
2493 |
make_cclosure_new(LC71,Cnil,base[7],Cdata); |
make_cclosure_new(LC71,Cnil,base[7],Cdata); |
2494 |
VMR42(V479)} |
VMR42(V434)} |
2495 |
base[0]=base[0]; |
base[0]=base[0]; |
2496 |
return Cnil; |
return Cnil; |
2497 |
} |
} |
2501 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2502 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM43; VC43 |
2503 |
vs_check; |
vs_check; |
2504 |
{object V480; |
{object V435; |
2505 |
object V481; |
object V436; |
2506 |
object V482; |
object V437; |
2507 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
2508 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
2509 |
V480=(base[0]); |
V435=(base[0]); |
2510 |
V481=(base[1]); |
V436=(base[1]); |
2511 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
2512 |
if(vs_base>=vs_top){vs_top=sup;goto T772;} |
if(vs_base>=vs_top){vs_top=sup;goto T785;} |
2513 |
V482=(base[2]); |
V437=(base[2]); |
2514 |
vs_top=sup; |
vs_top=sup; |
2515 |
goto T773; |
goto T786; |
|
goto T772; |
|
|
T772:; |
|
|
V482= Cnil; |
|
|
goto T773; |
|
|
T773:; |
|
|
{register object V483; |
|
|
V483= (VFUN_NARGS=4,(*(LnkLI39))((V480),(V481),Cnil,(V482))); |
|
|
{object V484; |
|
|
V484= STREF(object,(V483),44); |
|
|
if(!(((V484))==(VV[43]))){ |
|
|
goto T779;} |
|
|
(void)((*(LnkLI61))((V483),VV[74])); |
|
|
base[3]= STREF(object,(V483),44); |
|
|
goto T776; |
|
|
goto T779; |
|
|
T779:; |
|
|
base[3]= (V484);} |
|
|
goto T776; |
|
|
T776:; |
|
|
{object V485; |
|
|
V485= STREF(object,(V483),40); |
|
|
if(!(((V485))==(VV[43]))){ |
|
|
goto T785;} |
|
|
(void)((*(LnkLI61))((V483),VV[73])); |
|
|
base[4]= STREF(object,(V483),40); |
|
|
goto T782; |
|
2516 |
goto T785; |
goto T785; |
2517 |
T785:; |
T785:; |
2518 |
base[4]= (V485);} |
V437= Cnil; |
2519 |
goto T782; |
goto T786; |
2520 |
T782:; |
T786:; |
2521 |
|
{register object V438; |
2522 |
|
V438= (VFUN_NARGS=4,(*(LnkLI39))((V435),(V436),Cnil,(V437))); |
2523 |
|
{object V439; |
2524 |
|
V439= STREF(object,(V438),44); |
2525 |
|
if(!(((V439))==(VV[43]))){ |
2526 |
|
goto T792;} |
2527 |
|
(void)((*(LnkLI61))((V438),VV[74])); |
2528 |
|
base[3]= STREF(object,(V438),44); |
2529 |
|
goto T789; |
2530 |
|
goto T792; |
2531 |
|
T792:; |
2532 |
|
base[3]= (V439);} |
2533 |
|
goto T789; |
2534 |
|
T789:; |
2535 |
|
{object V440; |
2536 |
|
V440= STREF(object,(V438),40); |
2537 |
|
if(!(((V440))==(VV[43]))){ |
2538 |
|
goto T798;} |
2539 |
|
(void)((*(LnkLI61))((V438),VV[73])); |
2540 |
|
base[4]= STREF(object,(V438),40); |
2541 |
|
goto T795; |
2542 |
|
goto T798; |
2543 |
|
T798:; |
2544 |
|
base[4]= (V440);} |
2545 |
|
goto T795; |
2546 |
|
T795:; |
2547 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2548 |
return;} |
return;} |
2549 |
} |
} |
2554 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2555 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM44; VC44 |
2556 |
vs_check; |
vs_check; |
2557 |
{register object V486; |
{register object V441; |
2558 |
object V487; |
object V442; |
2559 |
register object V488; |
register object V443; |
2560 |
object V489; |
object V444; |
2561 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
2562 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
2563 |
V486=(base[0]); |
V441=(base[0]); |
2564 |
V487=(base[1]); |
V442=(base[1]); |
2565 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
2566 |
if(vs_base>=vs_top){vs_top=sup;goto T788;} |
if(vs_base>=vs_top){vs_top=sup;goto T801;} |
2567 |
V488=(base[2]); |
V443=(base[2]); |
2568 |
vs_base++; |
vs_base++; |
2569 |
if(vs_base>=vs_top){vs_top=sup;goto T789;} |
if(vs_base>=vs_top){vs_top=sup;goto T802;} |
2570 |
V489=(base[3]); |
V444=(base[3]); |
2571 |
vs_top=sup; |
vs_top=sup; |
2572 |
goto T790; |
goto T803; |
2573 |
goto T788; |
goto T801; |
2574 |
T788:; |
T801:; |
2575 |
V488= Cnil; |
V443= Cnil; |
2576 |
goto T789; |
goto T802; |
2577 |
T789:; |
T802:; |
2578 |
V489= Cnil; |
V444= Cnil; |
2579 |
goto T790; |
goto T803; |
2580 |
T790:; |
T803:; |
2581 |
{register object V490; |
{register object V445; |
2582 |
object V491; |
object V446; |
2583 |
V490= (VFUN_NARGS=4,(*(LnkLI39))((V486),(V487),Cnil,(V488))); |
V445= (VFUN_NARGS=4,(*(LnkLI39))((V441),(V442),Cnil,(V443))); |
2584 |
{object V492; |
{object V447; |
2585 |
V492= STREF(object,(V490),28); |
V447= STREF(object,(V445),28); |
2586 |
if(!(((V492))==(VV[43]))){ |
if(!(((V447))==(VV[43]))){ |
2587 |
goto T797;} |
goto T810;} |
2588 |
(void)((*(LnkLI61))((V490),VV[70])); |
(void)((*(LnkLI61))((V445),VV[70])); |
2589 |
V491= STREF(object,(V490),28); |
V446= STREF(object,(V445),28); |
2590 |
goto T794; |
goto T807; |
2591 |
goto T797; |
goto T810; |
2592 |
T797:; |
T810:; |
2593 |
V491= (V492);} |
V446= (V447);} |
|
goto T794; |
|
|
T794:; |
|
|
if(((V489))==Cnil){ |
|
|
goto T801;} |
|
|
base[6]= (V491); |
|
|
{object V493; |
|
|
V493= STREF(object,(V490),32); |
|
|
if(!(((V493))==(VV[43]))){ |
|
|
goto T807;} |
|
|
(void)((*(LnkLI61))((V490),VV[71])); |
|
|
base[7]= STREF(object,(V490),32); |
|
|
goto T804; |
|
2594 |
goto T807; |
goto T807; |
2595 |
T807:; |
T807:; |
2596 |
base[7]= (V493);} |
if(((V444))==Cnil){ |
2597 |
goto T804; |
goto T814;} |
2598 |
T804:; |
base[6]= (V446); |
2599 |
|
{object V448; |
2600 |
|
V448= STREF(object,(V445),32); |
2601 |
|
if(!(((V448))==(VV[43]))){ |
2602 |
|
goto T820;} |
2603 |
|
(void)((*(LnkLI61))((V445),VV[71])); |
2604 |
|
base[7]= STREF(object,(V445),32); |
2605 |
|
goto T817; |
2606 |
|
goto T820; |
2607 |
|
T820:; |
2608 |
|
base[7]= (V448);} |
2609 |
|
goto T817; |
2610 |
|
T817:; |
2611 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2612 |
return; |
return; |
2613 |
goto T801; |
goto T814; |
2614 |
T801:; |
T814:; |
2615 |
base[6]= (V491); |
base[6]= (V446); |
2616 |
{object V494; |
{object V449; |
2617 |
V495 = (V486); |
{object V451; |
2618 |
{object V497; |
V451= STREF(object,(V445),24); |
2619 |
V497= STREF(object,(V490),24); |
if(!(((V451))==(VV[43]))){ |
2620 |
if(!(((V497))==(VV[43]))){ |
goto T829;} |
2621 |
goto T816;} |
(void)((*(LnkLI61))((V445),VV[69])); |
2622 |
(void)((*(LnkLI61))((V490),VV[69])); |
V450= STREF(object,(V445),24); |
|
V496= STREF(object,(V490),24); |
|
|
goto T813; |
|
|
goto T816; |
|
|
T816:; |
|
|
V496= (V497);} |
|
|
goto T813; |
|
|
T813:; |
|
|
V498 = (V488); |
|
|
V499= (VFUN_NARGS=4,(*(LnkLI39))(V495,V496,Cnil,V498)); |
|
|
V494= STREF(object,/* INLINE-ARGS */V499,32); |
|
|
if(!(((V494))==(VV[43]))){ |
|
|
goto T820;} |
|
|
V500 = (V486); |
|
|
{object V502; |
|
|
V502= STREF(object,(V490),24); |
|
|
if(!(((V502))==(VV[43]))){ |
|
|
goto T826;} |
|
|
(void)((*(LnkLI61))((V490),VV[69])); |
|
|
V501= STREF(object,(V490),24); |
|
|
goto T823; |
|
2623 |
goto T826; |
goto T826; |
|
T826:; |
|
|
V501= (V502);} |
|
|
goto T823; |
|
|
T823:; |
|
|
V503 = (V488); |
|
|
V504= (VFUN_NARGS=4,(*(LnkLI39))(V500,V501,Cnil,V503)); |
|
|
(void)((*(LnkLI61))(/* INLINE-ARGS */V504,VV[71])); |
|
|
V505 = (V486); |
|
|
{object V507; |
|
|
V507= STREF(object,(V490),24); |
|
|
if(!(((V507))==(VV[43]))){ |
|
|
goto T832;} |
|
|
(void)((*(LnkLI61))((V490),VV[69])); |
|
|
V506= STREF(object,(V490),24); |
|
|
goto T829; |
|
|
goto T832; |
|
|
T832:; |
|
|
V506= (V507);} |
|
2624 |
goto T829; |
goto T829; |
2625 |
T829:; |
T829:; |
2626 |
V508 = (V488); |
V450= (V451);} |
2627 |
V509= (VFUN_NARGS=4,(*(LnkLI39))(V505,V506,Cnil,V508)); |
goto T826; |
2628 |
base[7]= STREF(object,/* INLINE-ARGS */V509,32); |
T826:; |
2629 |
goto T811; |
V452= (VFUN_NARGS=4,(*(LnkLI39))((V441),V450,Cnil,(V443))); |
2630 |
goto T820; |
V449= STREF(object,/* INLINE-ARGS */V452,32); |
2631 |
T820:; |
if(!(((V449))==(VV[43]))){ |
2632 |
base[7]= (V494);} |
goto T833;} |
2633 |
goto T811; |
{object V454; |
2634 |
T811:; |
V454= STREF(object,(V445),24); |
2635 |
|
if(!(((V454))==(VV[43]))){ |
2636 |
|
goto T839;} |
2637 |
|
(void)((*(LnkLI61))((V445),VV[69])); |
2638 |
|
V453= STREF(object,(V445),24); |
2639 |
|
goto T836; |
2640 |
|
goto T839; |
2641 |
|
T839:; |
2642 |
|
V453= (V454);} |
2643 |
|
goto T836; |
2644 |
|
T836:; |
2645 |
|
V455= (VFUN_NARGS=4,(*(LnkLI39))((V441),V453,Cnil,(V443))); |
2646 |
|
(void)((*(LnkLI61))(/* INLINE-ARGS */V455,VV[71])); |
2647 |
|
{object V457; |
2648 |
|
V457= STREF(object,(V445),24); |
2649 |
|
if(!(((V457))==(VV[43]))){ |
2650 |
|
goto T845;} |
2651 |
|
(void)((*(LnkLI61))((V445),VV[69])); |
2652 |
|
V456= STREF(object,(V445),24); |
2653 |
|
goto T842; |
2654 |
|
goto T845; |
2655 |
|
T845:; |
2656 |
|
V456= (V457);} |
2657 |
|
goto T842; |
2658 |
|
T842:; |
2659 |
|
V458= (VFUN_NARGS=4,(*(LnkLI39))((V441),V456,Cnil,(V443))); |
2660 |
|
base[7]= STREF(object,/* INLINE-ARGS */V458,32); |
2661 |
|
goto T824; |
2662 |
|
goto T833; |
2663 |
|
T833:; |
2664 |
|
base[7]= (V449);} |
2665 |
|
goto T824; |
2666 |
|
T824:; |
2667 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2668 |
return;} |
return;} |
2669 |
} |
} |
2670 |
} |
} |
2671 |
/* local entry for function ADD-FORMS */ |
/* local entry for function ADD-FORMS */ |
2672 |
|
|
2673 |
static object LI48(V512,V513) |
static object LI48(V461,V462) |
2674 |
|
|
2675 |
register object V512;register object V513; |
register object V461;register object V462; |
2676 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
2677 |
goto TTL; |
goto TTL; |
2678 |
TTL:; |
TTL:; |
2679 |
if(((V512))==Cnil){ |
if(((V461))==Cnil){ |
2680 |
goto T835;} |
goto T848;} |
2681 |
base[0]= (V512); |
base[0]= (V461); |
2682 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2683 |
Lcopy_list(); |
Lcopy_list(); |
2684 |
vs_top=sup; |
vs_top=sup; |
2685 |
V512= vs_base[0]; |
V461= vs_base[0]; |
2686 |
if((CMPcar((V513)))!=Cnil){ |
if((CMPcar((V462)))!=Cnil){ |
2687 |
goto T843;} |
goto T856;} |
2688 |
(V513)->c.c_car = V512; |
(V462)->c.c_car = V461; |
2689 |
goto T841; |
goto T854; |
2690 |
goto T843; |
goto T856; |
2691 |
T843:; |
T856:; |
2692 |
(CMPcdr(V513))->c.c_cdr = V512; |
(CMPcdr(V462))->c.c_cdr = V461; |
2693 |
(void)(CMPcdr(V513)); |
(void)(CMPcdr(V462)); |
2694 |
goto T841; |
goto T854; |
2695 |
T841:; |
T854:; |
2696 |
{object V519; |
{object V468; |
2697 |
base[1]= (V512); |
base[1]= (V461); |
2698 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2699 |
Llast(); |
Llast(); |
2700 |
vs_top=sup; |
vs_top=sup; |
2701 |
V519= vs_base[0]; |
V468= vs_base[0]; |
2702 |
(V513)->c.c_cdr = (V519);} |
(V462)->c.c_cdr = (V468);} |
2703 |
goto T835; |
goto T848; |
2704 |
T835:; |
T848:; |
2705 |
{object V520 = CMPcar((V513)); |
{object V469 = CMPcar((V462)); |
2706 |
VMR45(V520)} |
VMR45(V469)} |
2707 |
base[0]=base[0]; |
base[0]=base[0]; |
2708 |
return Cnil; |
return Cnil; |
2709 |
} |
} |
2713 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2714 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
2715 |
vs_check; |
vs_check; |
2716 |
{object V521; |
{object V470; |
2717 |
object V522; |
object V471; |
2718 |
object V523; |
object V472; |
2719 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
2720 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
2721 |
V521=(base[0]); |
V470=(base[0]); |
2722 |
V522=(base[1]); |
V471=(base[1]); |
2723 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
2724 |
if(vs_base>=vs_top){vs_top=sup;goto T850;} |
if(vs_base>=vs_top){vs_top=sup;goto T863;} |
2725 |
V523=(base[2]); |
V472=(base[2]); |
2726 |
vs_top=sup; |
vs_top=sup; |
2727 |
goto T851; |
goto T864; |
2728 |
goto T850; |
goto T863; |
2729 |
T850:; |
T863:; |
2730 |
V523= Ct; |
V472= Ct; |
2731 |
goto T851; |
goto T864; |
2732 |
T851:; |
T864:; |
2733 |
{object V524; |
{object V473; |
2734 |
object V525; |
object V474; |
2735 |
object V526; |
object V475; |
2736 |
object V527; |
object V476; |
2737 |
register object V528; |
register object V477; |
2738 |
V524= make_cons(Cnil,Cnil); |
V473= make_cons(Cnil,Cnil); |
2739 |
base[3]= (V521); |
base[3]= (V470); |
2740 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2741 |
(void) (*Lnk279)(Lclptr279); |
(void) (*Lnk306)(Lclptr306); |
2742 |
vs_top=sup; |
vs_top=sup; |
2743 |
V525= vs_base[0]; |
V474= vs_base[0]; |
2744 |
base[4]= (V521); |
base[4]= (V470); |
2745 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2746 |
(void) (*Lnk280)(Lclptr280); |
(void) (*Lnk307)(Lclptr307); |
2747 |
vs_top=sup; |
vs_top=sup; |
2748 |
V531= vs_base[0]; |
V480= vs_base[0]; |
2749 |
{object V529; |
{object V478; |
2750 |
object V530= V531; |
object V479= V480; |
2751 |
if(V530==Cnil){ |
if(V479==Cnil){ |
2752 |
V527= Cnil; |
V476= Cnil; |
2753 |
goto T856;} |
goto T869;} |
2754 |
base[3]=V529=MMcons(Cnil,Cnil); |
base[3]=V478=MMcons(Cnil,Cnil); |
2755 |
goto T857; |
goto T870; |
2756 |
T857:; |
T870:; |
2757 |
base[5]= (V530->c.c_car); |
base[5]= (V479->c.c_car); |
2758 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2759 |
(void) (*Lnk281)(Lclptr281); |
(void) (*Lnk308)(Lclptr308); |
2760 |
vs_top=sup; |
vs_top=sup; |
2761 |
V535= vs_base[0]; |
V484= vs_base[0]; |
2762 |
{object V533; |
{object V482; |
2763 |
object V534= V535; |
object V483= V484; |
2764 |
if(V534==Cnil){ |
if(V483==Cnil){ |
2765 |
(V529->c.c_cdr)= Cnil; |
(V478->c.c_cdr)= Cnil; |
2766 |
goto T860;} |
goto T873;} |
2767 |
base[4]=V533=MMcons(Cnil,Cnil); |
base[4]=V482=MMcons(Cnil,Cnil); |
2768 |
goto T861; |
goto T874; |
2769 |
T861:; |
T874:; |
2770 |
(V533->c.c_car)= make_cons((V534->c.c_car),(V530->c.c_car)); |
(V482->c.c_car)= make_cons((V483->c.c_car),(V479->c.c_car)); |
2771 |
if((V534=MMcdr(V534))==Cnil){ |
if((V483=MMcdr(V483))==Cnil){ |
2772 |
(V529->c.c_cdr)= base[4]; |
(V478->c.c_cdr)= base[4]; |
2773 |
goto T860;} |
goto T873;} |
2774 |
V533=MMcdr(V533)=MMcons(Cnil,Cnil); |
V482=MMcdr(V482)=MMcons(Cnil,Cnil); |
2775 |
goto T861;} |
goto T874;} |
2776 |
goto T860; |
goto T873; |
2777 |
T860:; |
T873:; |
2778 |
while(MMcdr(V529)!=Cnil)V529=MMcdr(V529); |
while(MMcdr(V478)!=Cnil)V478=MMcdr(V478); |
2779 |
if((V530=MMcdr(V530))==Cnil){ |
if((V479=MMcdr(V479))==Cnil){ |
2780 |
base[3]=base[3]->c.c_cdr; |
base[3]=base[3]->c.c_cdr; |
2781 |
V527= base[3]; |
V476= base[3]; |
2782 |
goto T856;} |
goto T869;} |
2783 |
goto T857;} |
goto T870;} |
|
goto T856; |
|
|
T856:; |
|
|
V526= (V522); |
|
|
V528= Cnil; |
|
|
{register object V537; |
|
|
object V538; |
|
|
V537= (V526); |
|
|
V538= CMPcar((V537)); |
|
2784 |
goto T869; |
goto T869; |
2785 |
T869:; |
T869:; |
2786 |
if(!(((V537))==Cnil)){ |
V475= (V471); |
2787 |
goto T870;} |
V477= Cnil; |
2788 |
goto T865; |
{register object V486; |
2789 |
goto T870; |
object V487; |
2790 |
T870:; |
V486= (V475); |
2791 |
{object V539; |
V487= CMPcar((V486)); |
2792 |
{register object x= (V538),V541= (V527); |
goto T882; |
2793 |
while(V541!=Cnil) |
T882:; |
2794 |
if(eql(x,V541->c.c_car->c.c_car) &&V541->c.c_car != Cnil){ |
if(!(((V486))==Cnil)){ |
2795 |
V540= (V541->c.c_car); |
goto T883;} |
2796 |
goto T876; |
goto T878; |
2797 |
}else V541=V541->c.c_cdr; |
goto T883; |
2798 |
V540= Cnil;} |
T883:; |
2799 |
goto T876; |
{object V488; |
2800 |
T876:; |
{register object x= (V487),V490= (V476); |
2801 |
V539= CMPcdr(V540); |
while(V490!=Cnil) |
2802 |
base[5]= (V539); |
if(eql(x,V490->c.c_car->c.c_car) &&V490->c.c_car != Cnil){ |
2803 |
base[6]= (V528); |
V489= (V490->c.c_car); |
2804 |
|
goto T889; |
2805 |
|
}else V490=V490->c.c_cdr; |
2806 |
|
V489= Cnil;} |
2807 |
|
goto T889; |
2808 |
|
T889:; |
2809 |
|
V488= CMPcdr(V489); |
2810 |
|
base[5]= (V488); |
2811 |
|
base[6]= (V477); |
2812 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2813 |
Ladjoin(); |
Ladjoin(); |
2814 |
vs_top=sup; |
vs_top=sup; |
2815 |
V528= vs_base[0];} |
V477= vs_base[0];} |
2816 |
V537= CMPcdr((V537)); |
V486= CMPcdr((V486)); |
2817 |
V538= CMPcar((V537)); |
V487= CMPcar((V486)); |
2818 |
goto T869;} |
goto T882;} |
2819 |
goto T865; |
goto T878; |
2820 |
T865:; |
T878:; |
2821 |
{register object V542; |
{register object V491; |
2822 |
register object V543; |
register object V492; |
2823 |
V542= (V525); |
V491= (V474); |
2824 |
V543= CMPcar((V542)); |
V492= CMPcar((V491)); |
2825 |
goto T889; |
goto T902; |
2826 |
T889:; |
T902:; |
2827 |
if(!(((V542))==Cnil)){ |
if(!(((V491))==Cnil)){ |
2828 |
goto T890;} |
goto T903;} |
2829 |
goto T885; |
goto T898; |
2830 |
goto T890; |
goto T903; |
2831 |
T890:; |
T903:; |
2832 |
{register object V544; |
{register object V493; |
2833 |
register object V545; |
register object V494; |
2834 |
object V546; |
object V495; |
2835 |
V544= CMPcar((V543)); |
V493= CMPcar((V492)); |
2836 |
{register object x= (V544),V548= (V527); |
{register object x= (V493),V497= (V476); |
2837 |
while(V548!=Cnil) |
while(V497!=Cnil) |
2838 |
if(eql(x,V548->c.c_car->c.c_car) &&V548->c.c_car != Cnil){ |
if(eql(x,V497->c.c_car->c.c_car) &&V497->c.c_car != Cnil){ |
2839 |
V547= (V548->c.c_car); |
V496= (V497->c.c_car); |
2840 |
goto T897; |
goto T910; |
2841 |
}else V548=V548->c.c_cdr; |
}else V497=V497->c.c_cdr; |
2842 |
V547= Cnil;} |
V496= Cnil;} |
|
goto T897; |
|
|
T897:; |
|
|
V545= CMPcdr(V547); |
|
|
V546= CMPcadr((V543)); |
|
|
{register object x= (V545),V549= (V528); |
|
|
while(V549!=Cnil) |
|
|
if(eql(x,V549->c.c_car)){ |
|
|
goto T894; |
|
|
}else V549=V549->c.c_cdr;} |
|
|
V550= list(2,VV[114],(V546)); |
|
|
V551= list(2,/* INLINE-ARGS */V550,list(2,VV[145],(V544))); |
|
|
(void)((*(LnkLI282))(/* INLINE-ARGS */V551,(V524))); |
|
|
V526= make_cons(V544,(V526)); |
|
|
V528= make_cons(V545,(V528));} |
|
|
goto T894; |
|
|
T894:; |
|
|
V542= CMPcdr((V542)); |
|
|
V543= CMPcar((V542)); |
|
|
goto T889;} |
|
|
goto T885; |
|
|
T885:; |
|
|
if(((V523))==Cnil){ |
|
|
goto T910;} |
|
|
V554 = (V521); |
|
|
V555= list(3,VV[146],V554,(VFUN_NARGS=3,(*(LnkLI39))((V521),(V526),Cnil))); |
|
|
V556= make_cons(/* INLINE-ARGS */V555,Cnil); |
|
|
(void)((*(LnkLI282))(/* INLINE-ARGS */V556,(V524))); |
|
2843 |
goto T910; |
goto T910; |
2844 |
T910:; |
T910:; |
2845 |
(void)((*(LnkLI282))(VV[147],(V524))); |
V494= CMPcdr(V496); |
2846 |
base[3]= CMPcar((V524)); |
V495= CMPcadr((V492)); |
2847 |
base[4]= (V526); |
{register object x= (V494),V498= (V477); |
2848 |
|
while(V498!=Cnil) |
2849 |
|
if(eql(x,V498->c.c_car)){ |
2850 |
|
goto T907; |
2851 |
|
}else V498=V498->c.c_cdr;} |
2852 |
|
V499= list(2,VV[122],(V495)); |
2853 |
|
V500= list(2,/* INLINE-ARGS */V499,list(2,VV[161],(V493))); |
2854 |
|
(void)((*(LnkLI309))(/* INLINE-ARGS */V500,(V473))); |
2855 |
|
V475= make_cons(V493,(V475)); |
2856 |
|
V477= make_cons(V494,(V477));} |
2857 |
|
goto T907; |
2858 |
|
T907:; |
2859 |
|
V491= CMPcdr((V491)); |
2860 |
|
V492= CMPcar((V491)); |
2861 |
|
goto T902;} |
2862 |
|
goto T898; |
2863 |
|
T898:; |
2864 |
|
if(((V472))==Cnil){ |
2865 |
|
goto T923;} |
2866 |
|
V503= list(3,VV[162],(V470),(VFUN_NARGS=3,(*(LnkLI39))((V470),(V475),Cnil))); |
2867 |
|
V504= make_cons(/* INLINE-ARGS */V503,Cnil); |
2868 |
|
(void)((*(LnkLI309))(/* INLINE-ARGS */V504,(V473))); |
2869 |
|
goto T923; |
2870 |
|
T923:; |
2871 |
|
(void)((*(LnkLI309))(VV[163],(V473))); |
2872 |
|
base[3]= CMPcar((V473)); |
2873 |
|
base[4]= (V475); |
2874 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2875 |
return;} |
return;} |
2876 |
} |
} |
2881 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2882 |
register object *sup=base+VM47; VC47 |
register object *sup=base+VM47; VC47 |
2883 |
vs_check; |
vs_check; |
2884 |
{object V557; |
{object V505; |
2885 |
object V558; |
object V506; |
2886 |
object V559; |
object V507; |
2887 |
object V560; |
object V508; |
2888 |
check_arg(4); |
check_arg(4); |
2889 |
V557=(base[0]); |
V505=(base[0]); |
2890 |
V558=(base[1]); |
V506=(base[1]); |
2891 |
V559=(base[2]); |
V507=(base[2]); |
2892 |
V560=(base[3]); |
V508=(base[3]); |
2893 |
vs_top=sup; |
vs_top=sup; |
2894 |
goto TTL; |
goto TTL; |
2895 |
TTL:; |
TTL:; |
2896 |
{object V561; |
{object V509; |
2897 |
object V562; |
object V510; |
2898 |
object V563; |
object V511; |
2899 |
object V564; |
object V512; |
2900 |
object V565; |
object V513; |
2901 |
object V566; |
object V514; |
2902 |
object V567; |
object V515; |
2903 |
object V568; |
object V516; |
2904 |
V561= make_cons(Cnil,Cnil); |
V509= make_cons(Cnil,Cnil); |
2905 |
base[12]= (V557); |
base[12]= (V505); |
2906 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2907 |
(void) (*Lnk268)(Lclptr268); |
(void) (*Lnk295)(Lclptr295); |
2908 |
vs_top=sup; |
vs_top=sup; |
2909 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2910 |
goto T919;} |
goto T932;} |
2911 |
V562= VV[148]; |
V510= VV[164]; |
2912 |
goto T917; |
goto T930; |
2913 |
goto T919; |
goto T932; |
2914 |
T919:; |
T932:; |
2915 |
base[12]= (V557); |
base[12]= (V505); |
2916 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2917 |
(void) (*Lnk270)(Lclptr270); |
(void) (*Lnk297)(Lclptr297); |
2918 |
vs_top=sup; |
vs_top=sup; |
2919 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2920 |
goto T923;} |
goto T936;} |
2921 |
V562= VV[149]; |
V510= VV[165]; |
2922 |
goto T917; |
goto T930; |
2923 |
goto T923; |
goto T936; |
2924 |
T923:; |
T936:; |
2925 |
base[12]= (V557); |
base[12]= (V505); |
2926 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2927 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk299)(Lclptr299); |
2928 |
vs_top=sup; |
vs_top=sup; |
2929 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2930 |
goto T927;} |
goto T940;} |
2931 |
V562= VV[150]; |
V510= VV[166]; |
2932 |
goto T917; |
goto T930; |
2933 |
goto T927; |
goto T940; |
2934 |
T927:; |
T940:; |
2935 |
base[12]= VV[151]; |
base[12]= VV[167]; |
2936 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2937 |
Lerror(); |
Lerror(); |
2938 |
vs_top=sup; |
vs_top=sup; |
2939 |
V562= vs_base[0]; |
V510= vs_base[0]; |
2940 |
goto T917; |
goto T930; |
2941 |
T917:; |
T930:; |
2942 |
base[12]= (V557); |
base[12]= (V505); |
2943 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2944 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk269)(Lclptr269); |
2945 |
vs_top=sup; |
vs_top=sup; |
2946 |
V563= vs_base[0]; |
V511= vs_base[0]; |
2947 |
if(((V560))==Cnil){ |
if(((V508))==Cnil){ |
2948 |
goto T935;} |
goto T948;} |
2949 |
base[12]= ((V563))->v.v_self[12]; |
base[12]= ((V511))->v.v_self[12]; |
2950 |
base[13]= VV[152]; |
base[13]= VV[168]; |
2951 |
base[14]= (VV[153]->s.s_dbind); |
base[14]= (VV[169]->s.s_dbind); |
2952 |
vs_top=(vs_base=base+12)+3; |
vs_top=(vs_base=base+12)+3; |
2953 |
(void) (*Lnk283)(); |
(void) (*Lnk310)(); |
2954 |
vs_top=sup; |
vs_top=sup; |
2955 |
V564= vs_base[0]; |
V512= vs_base[0]; |
2956 |
goto T933; |
goto T946; |
2957 |
goto T935; |
goto T948; |
2958 |
T935:; |
T948:; |
2959 |
V564= Cnil; |
V512= Cnil; |
2960 |
goto T933; |
goto T946; |
2961 |
T933:; |
T946:; |
2962 |
base[12]= (V557); |
base[12]= (V505); |
2963 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2964 |
(void) (*Lnk280)(Lclptr280); |
(void) (*Lnk307)(Lclptr307); |
2965 |
vs_top=sup; |
vs_top=sup; |
2966 |
V565= vs_base[0]; |
V513= vs_base[0]; |
2967 |
base[13]=VV[284]->s.s_gfdef; |
base[13]=VV[311]->s.s_gfdef; |
2968 |
{object V569; |
{object V517; |
2969 |
object V570= (V565); |
object V518= (V513); |
2970 |
if(V570==Cnil){ |
if(V518==Cnil){ |
2971 |
V566= Cnil; |
V514= Cnil; |
2972 |
goto T942;} |
goto T955;} |
2973 |
base[12]=V569=MMcons(Cnil,Cnil); |
base[12]=V517=MMcons(Cnil,Cnil); |
2974 |
goto T943; |
goto T956; |
2975 |
T943:; |
T956:; |
2976 |
base[14]= (V570->c.c_car); |
base[14]= (V518->c.c_car); |
2977 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
2978 |
(void) (*Lnk284)(Lclptr284); |
(void) (*Lnk311)(Lclptr311); |
|
vs_top=sup; |
|
|
(V569->c.c_car)= vs_base[0]; |
|
|
if((V570=MMcdr(V570))==Cnil){ |
|
|
V566= base[12]; |
|
|
goto T942;} |
|
|
V569=MMcdr(V569)=MMcons(Cnil,Cnil); |
|
|
goto T943;} |
|
|
goto T942; |
|
|
T942:; |
|
|
{object V571; |
|
|
object V572= (V565); |
|
|
if(V572==Cnil){ |
|
|
V567= Cnil; |
|
|
goto T946;} |
|
|
base[12]=V571=MMcons(Cnil,Cnil); |
|
|
goto T947; |
|
|
T947:; |
|
|
{object V574; |
|
|
V574= VV[154]; |
|
|
{register object V575; |
|
|
object V576; |
|
|
base[15]= (V572->c.c_car); |
|
|
vs_top=(vs_base=base+15)+1; |
|
|
(void) (*Lnk281)(Lclptr281); |
|
2979 |
vs_top=sup; |
vs_top=sup; |
2980 |
V575= vs_base[0]; |
(V517->c.c_car)= vs_base[0]; |
2981 |
V576= CMPcar((V575)); |
if((V518=MMcdr(V518))==Cnil){ |
2982 |
goto T954; |
V514= base[12]; |
|
T954:; |
|
|
if(!(((V575))==Cnil)){ |
|
2983 |
goto T955;} |
goto T955;} |
2984 |
goto T949; |
V517=MMcdr(V517)=MMcons(Cnil,Cnil); |
2985 |
|
goto T956;} |
2986 |
goto T955; |
goto T955; |
2987 |
T955:; |
T955:; |
2988 |
{object V577; |
{object V519; |
2989 |
base[15]= (V576); |
object V520= (V513); |
2990 |
base[16]= (V558); |
if(V520==Cnil){ |
2991 |
|
V515= Cnil; |
2992 |
|
goto T959;} |
2993 |
|
base[12]=V519=MMcons(Cnil,Cnil); |
2994 |
|
goto T960; |
2995 |
|
T960:; |
2996 |
|
{object V522; |
2997 |
|
V522= VV[170]; |
2998 |
|
{register object V523; |
2999 |
|
object V524; |
3000 |
|
base[15]= (V520->c.c_car); |
3001 |
|
vs_top=(vs_base=base+15)+1; |
3002 |
|
(void) (*Lnk308)(Lclptr308); |
3003 |
|
vs_top=sup; |
3004 |
|
V523= vs_base[0]; |
3005 |
|
V524= CMPcar((V523)); |
3006 |
|
goto T967; |
3007 |
|
T967:; |
3008 |
|
if(!(((V523))==Cnil)){ |
3009 |
|
goto T968;} |
3010 |
|
goto T962; |
3011 |
|
goto T968; |
3012 |
|
T968:; |
3013 |
|
{object V525; |
3014 |
|
base[15]= (V524); |
3015 |
|
base[16]= (V506); |
3016 |
vs_top=(vs_base=base+15)+2; |
vs_top=(vs_base=base+15)+2; |
3017 |
(void) (*Lnk285)(); |
(void) (*Lnk312)(); |
3018 |
vs_top=sup; |
vs_top=sup; |
3019 |
V577= vs_base[0]; |
V525= vs_base[0]; |
3020 |
if(((V577))==Cnil){ |
if(((V525))==Cnil){ |
3021 |
|
goto T972;} |
3022 |
|
V522= (number_compare((V522),(V525))<=0?((V522)):(V525));} |
3023 |
|
goto T972; |
3024 |
|
T972:; |
3025 |
|
V523= CMPcdr((V523)); |
3026 |
|
V524= CMPcar((V523)); |
3027 |
|
goto T967;} |
3028 |
|
goto T962; |
3029 |
|
T962:; |
3030 |
|
(V519->c.c_car)= make_cons((V520->c.c_car),(V522));} |
3031 |
|
if((V520=MMcdr(V520))==Cnil){ |
3032 |
|
V515= base[12]; |
3033 |
goto T959;} |
goto T959;} |
3034 |
V574= (number_compare((V574),(V577))<=0?((V574)):(V577));} |
V519=MMcdr(V519)=MMcons(Cnil,Cnil); |
3035 |
|
goto T960;} |
3036 |
goto T959; |
goto T959; |
3037 |
T959:; |
T959:; |
3038 |
V575= CMPcdr((V575)); |
base[12]= (V515); |
3039 |
V576= CMPcar((V575)); |
base[13]= (VV[313]->s.s_gfdef); |
3040 |
goto T954;} |
base[14]= VV[171]; |
3041 |
goto T949; |
base[15]= (VV[207]->s.s_gfdef); |
|
T949:; |
|
|
(V571->c.c_car)= make_cons((V572->c.c_car),(V574));} |
|
|
if((V572=MMcdr(V572))==Cnil){ |
|
|
V567= base[12]; |
|
|
goto T946;} |
|
|
V571=MMcdr(V571)=MMcons(Cnil,Cnil); |
|
|
goto T947;} |
|
|
goto T946; |
|
|
T946:; |
|
|
base[12]= (V567); |
|
|
base[13]= (VV[286]->s.s_gfdef); |
|
|
base[14]= VV[155]; |
|
|
base[15]= (VV[189]->s.s_gfdef); |
|
3042 |
vs_top=(vs_base=base+12)+4; |
vs_top=(vs_base=base+12)+4; |
3043 |
(void) (*Lnk287)(); |
(void) (*Lnk314)(); |
3044 |
vs_top=sup; |
vs_top=sup; |
3045 |
V568= vs_base[0]; |
V516= vs_base[0]; |
3046 |
{long V578; |
{long V526; |
3047 |
V578= 0; |
V526= 0; |
3048 |
{register object V579; |
{register object V527; |
3049 |
register object V580; |
register object V528; |
3050 |
V579= (V568); |
V527= (V516); |
3051 |
V580= CMPcar((V579)); |
V528= CMPcar((V527)); |
3052 |
goto T981; |
goto T994; |
3053 |
T981:; |
T994:; |
3054 |
if(!(((V579))==Cnil)){ |
if(!(((V527))==Cnil)){ |
3055 |
goto T982;} |
goto T995;} |
3056 |
goto T976; |
goto T989; |
3057 |
goto T982; |
goto T995; |
3058 |
T982:; |
T995:; |
3059 |
{object V581; |
{object V529; |
3060 |
object V582; |
object V530; |
3061 |
register long V583; |
register long V531; |
3062 |
V581= CMPcar((V580)); |
V529= CMPcar((V528)); |
3063 |
base[15]= (V581); |
base[15]= (V529); |
3064 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
3065 |
(void) (*Lnk284)(Lclptr284); |
(void) (*Lnk311)(Lclptr311); |
3066 |
vs_top=sup; |
vs_top=sup; |
3067 |
V582= vs_base[0]; |
V530= vs_base[0]; |
3068 |
V584= CMPcdr((V580)); |
V532= CMPcdr((V528)); |
3069 |
V585 = CMPmake_fixnum(V578); |
V533 = CMPmake_fixnum(V526); |
3070 |
V586= number_minus(/* INLINE-ARGS */V584,V585); |
V534= number_minus(/* INLINE-ARGS */V532,V533); |
3071 |
V583= fix(one_plus(/* INLINE-ARGS */V586)); |
V531= fix(one_plus(/* INLINE-ARGS */V534)); |
3072 |
if(eql(CMPcdr((V580)),VV[154])){ |
if(eql(CMPcdr((V528)),VV[170])){ |
3073 |
goto T986;} |
goto T999;} |
3074 |
{object V587; |
{object V535; |
3075 |
base[16]= (V582); |
base[16]= (V530); |
3076 |
base[17]= (V566); |
base[17]= (V514); |
3077 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
3078 |
(void) (*Lnk285)(); |
(void) (*Lnk312)(); |
3079 |
vs_top=sup; |
vs_top=sup; |
3080 |
V588= vs_base[0]; |
V536= vs_base[0]; |
3081 |
V587= one_plus(V588); |
V535= one_plus(V536); |
3082 |
if(!((V583)>0)){ |
if(!((V531)>0)){ |
|
goto T1000;} |
|
|
V590 = CMPmake_fixnum((long)(2)*(V583)); |
|
|
V591= list(2,VV[156],V590); |
|
|
V589= make_cons(/* INLINE-ARGS */V591,Cnil); |
|
|
goto T998; |
|
|
goto T1000; |
|
|
T1000:; |
|
|
V589= Cnil; |
|
|
goto T998; |
|
|
T998:; |
|
|
V592= list(3,VV[157],(V587),(V581)); |
|
|
V593= make_cons(/* INLINE-ARGS */V592,Cnil); |
|
|
V594= append(V589,/* INLINE-ARGS */V593); |
|
|
(void)((*(LnkLI282))(/* INLINE-ARGS */V594,(V561)));} |
|
|
V578= (long)(V578)+(V583);} |
|
|
goto T986; |
|
|
T986:; |
|
|
V579= CMPcdr((V579)); |
|
|
V580= CMPcar((V579)); |
|
|
goto T981;}} |
|
|
goto T976; |
|
|
T976:; |
|
|
{register object V595; |
|
|
object V596; |
|
|
V595= (V568); |
|
|
V596= CMPcar((V595)); |
|
|
goto T1012; |
|
|
T1012:; |
|
|
if(!(((V595))==Cnil)){ |
|
3083 |
goto T1013;} |
goto T1013;} |
3084 |
goto T1008; |
V538 = CMPmake_fixnum((long)(2)*(V531)); |
3085 |
|
V539= list(2,VV[172],V538); |
3086 |
|
V537= make_cons(/* INLINE-ARGS */V539,Cnil); |
3087 |
|
goto T1011; |
3088 |
goto T1013; |
goto T1013; |
3089 |
T1013:; |
T1013:; |
3090 |
{register object V597; |
V537= Cnil; |
3091 |
object V598; |
goto T1011; |
3092 |
V597= CMPcar((V596)); |
T1011:; |
3093 |
base[15]= (V597); |
V540= list(3,VV[173],(V535),(V529)); |
3094 |
vs_top=(vs_base=base+15)+1; |
V541= make_cons(/* INLINE-ARGS */V540,Cnil); |
3095 |
(void) (*Lnk284)(Lclptr284); |
V542= append(V537,/* INLINE-ARGS */V541); |
3096 |
vs_top=sup; |
(void)((*(LnkLI309))(/* INLINE-ARGS */V542,(V509)));} |
3097 |
V598= vs_base[0]; |
V526= (long)(V526)+(V531);} |
3098 |
if(!(eql(CMPcdr((V596)),VV[154]))){ |
goto T999; |
3099 |
goto T1017;} |
T999:; |
3100 |
if(((V559))==(Ct)){ |
V527= CMPcdr((V527)); |
3101 |
goto T1021;} |
V528= CMPcar((V527)); |
3102 |
{register object x= (V598),V599= (V559); |
goto T994;}} |
3103 |
while(V599!=Cnil) |
goto T989; |
3104 |
if(eql(x,V599->c.c_car)){ |
T989:; |
3105 |
goto T1026; |
{register object V543; |
3106 |
}else V599=V599->c.c_cdr; |
object V544; |
3107 |
goto T1017;} |
V543= (V516); |
3108 |
|
V544= CMPcar((V543)); |
3109 |
|
goto T1025; |
3110 |
|
T1025:; |
3111 |
|
if(!(((V543))==Cnil)){ |
3112 |
|
goto T1026;} |
3113 |
|
goto T1021; |
3114 |
goto T1026; |
goto T1026; |
3115 |
T1026:; |
T1026:; |
3116 |
goto T1021; |
{register object V545; |
3117 |
T1021:; |
object V546; |
3118 |
{object V600; |
V545= CMPcar((V544)); |
3119 |
object V601; |
base[15]= (V545); |
3120 |
object V602; |
vs_top=(vs_base=base+15)+1; |
3121 |
register object V603; |
(void) (*Lnk311)(Lclptr311); |
3122 |
register object V604; |
vs_top=sup; |
3123 |
base[20]= (V597); |
V546= vs_base[0]; |
3124 |
|
if(!(eql(CMPcdr((V544)),VV[170]))){ |
3125 |
|
goto T1030;} |
3126 |
|
if(((V507))==(Ct)){ |
3127 |
|
goto T1034;} |
3128 |
|
{register object x= (V546),V547= (V507); |
3129 |
|
while(V547!=Cnil) |
3130 |
|
if(eql(x,V547->c.c_car)){ |
3131 |
|
goto T1039; |
3132 |
|
}else V547=V547->c.c_cdr; |
3133 |
|
goto T1030;} |
3134 |
|
goto T1039; |
3135 |
|
T1039:; |
3136 |
|
goto T1034; |
3137 |
|
T1034:; |
3138 |
|
{object V548; |
3139 |
|
object V549; |
3140 |
|
object V550; |
3141 |
|
register object V551; |
3142 |
|
register object V552; |
3143 |
|
base[20]= (V545); |
3144 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3145 |
(void) (*Lnk288)(Lclptr288); |
(void) (*Lnk315)(Lclptr315); |
3146 |
vs_top=sup; |
vs_top=sup; |
3147 |
V600= vs_base[0]; |
V548= vs_base[0]; |
3148 |
base[20]= (V597); |
base[20]= (V545); |
3149 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3150 |
(void) (*Lnk289)(Lclptr289); |
(void) (*Lnk316)(Lclptr316); |
3151 |
vs_top=sup; |
vs_top=sup; |
3152 |
V601= vs_base[0]; |
V549= vs_base[0]; |
3153 |
if(((V562))==(VV[148])){ |
if(((V510))==(VV[164])){ |
3154 |
goto T1033;} |
goto T1046;} |
3155 |
base[20]= (V597); |
base[20]= (V545); |
3156 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3157 |
(void) (*Lnk290)(Lclptr290); |
(void) (*Lnk317)(Lclptr317); |
3158 |
vs_top=sup; |
vs_top=sup; |
3159 |
V602= vs_base[0]; |
V550= vs_base[0]; |
3160 |
goto T1031; |
goto T1044; |
3161 |
goto T1033; |
goto T1046; |
3162 |
T1033:; |
T1046:; |
3163 |
V602= Cnil; |
V550= Cnil; |
3164 |
goto T1031; |
goto T1044; |
3165 |
T1031:; |
T1044:; |
3166 |
base[20]= (V598); |
base[20]= (V546); |
3167 |
base[21]= (V566); |
base[21]= (V514); |
3168 |
vs_top=(vs_base=base+20)+2; |
vs_top=(vs_base=base+20)+2; |
3169 |
(void) (*Lnk285)(); |
(void) (*Lnk312)(); |
3170 |
vs_top=sup; |
vs_top=sup; |
3171 |
V605= vs_base[0]; |
V553= vs_base[0]; |
3172 |
V603= one_plus(V605); |
V551= one_plus(V553); |
3173 |
if(((V601))!=Cnil){ |
if(((V549))!=Cnil){ |
3174 |
goto T1042;} |
goto T1055;} |
3175 |
V604= Cnil; |
V552= Cnil; |
3176 |
goto T1040; |
goto T1053; |
3177 |
goto T1042; |
goto T1055; |
3178 |
T1042:; |
T1055:; |
3179 |
base[20]= (V600); |
base[20]= (V548); |
3180 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3181 |
Lconstantp(); |
Lconstantp(); |
3182 |
vs_top=sup; |
vs_top=sup; |
3183 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3184 |
goto T1045;} |
goto T1058;} |
3185 |
{object V606; |
{object V554; |
3186 |
V606= ( |
V554= ( |
3187 |
(type_of((V601)) == t_sfun ?(*(((V601))->sfn.sfn_self)): |
(type_of((V549)) == t_sfun ?(*(((V549))->sfn.sfn_self)): |
3188 |
(fcall.argd=0,type_of((V601))==t_vfun) ? |
(fcall.argd=0,type_of((V549))==t_vfun) ? |
3189 |
(*(((V601))->sfn.sfn_self)): |
(*(((V549))->sfn.sfn_self)): |
3190 |
(fcall.fun=((V601)),fcalln))()); |
(fcall.fun=((V549)),fcalln))()); |
3191 |
if(((V560))==Cnil){ |
if(((V508))==Cnil){ |
3192 |
goto T1050;} |
goto T1063;} |
3193 |
if(!(type_of((V602))==t_fixnum||type_of((V602))==t_bignum)){ |
if(!(type_of((V550))==t_fixnum||type_of((V550))==t_bignum)){ |
3194 |
goto T1050;} |
goto T1063;} |
3195 |
(void)((((V564))->v.v_self[fix((V602))]=((V606)))); |
(void)((((V512))->v.v_self[fix((V550))]=((V554)))); |
3196 |
V604= Cnil; |
V552= Cnil; |
3197 |
goto T1040; |
goto T1053; |
3198 |
goto T1050; |
goto T1063; |
3199 |
T1050:; |
T1063:; |
3200 |
V607= list(2,VV[158],(V606)); |
V555= list(2,VV[174],(V554)); |
3201 |
V604= list(2,/* INLINE-ARGS */V607,list(3,VV[157],(V603),(V597))); |
V552= list(2,/* INLINE-ARGS */V555,list(3,VV[173],(V551),(V545))); |
3202 |
goto T1040;} |
goto T1053;} |
3203 |
goto T1045; |
goto T1058; |
3204 |
T1045:; |
T1058:; |
3205 |
base[20]= (V597); |
base[20]= (V545); |
3206 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3207 |
(void) (*Lnk289)(Lclptr289); |
(void) (*Lnk316)(Lclptr316); |
3208 |
vs_top=sup; |
vs_top=sup; |
3209 |
V608= vs_base[0]; |
V556= vs_base[0]; |
3210 |
V609= list(2,VV[114],V608); |
V557= list(2,VV[122],V556); |
3211 |
V604= list(2,/* INLINE-ARGS */V609,list(3,VV[157],(V603),(V597))); |
V552= list(2,/* INLINE-ARGS */V557,list(3,VV[173],(V551),(V545))); |
3212 |
goto T1040; |
goto T1053; |
3213 |
T1040:; |
T1053:; |
3214 |
if(((V560))!=Cnil){ |
if(((V508))!=Cnil){ |
3215 |
goto T1059;} |
goto T1072;} |
3216 |
if(((V604))==Cnil){ |
if(((V552))==Cnil){ |
3217 |
goto T1059;} |
goto T1072;} |
3218 |
V611 = CMPmake_fixnum((long)length((V604))); |
V559 = CMPmake_fixnum((long)length((V552))); |
3219 |
V612= list(4,VV[159],(V603),(V597),V611); |
V560= list(4,VV[175],(V551),(V545),V559); |
3220 |
V610= make_cons(/* INLINE-ARGS */V612,Cnil); |
V558= make_cons(/* INLINE-ARGS */V560,Cnil); |
3221 |
goto T1057; |
goto T1070; |
3222 |
goto T1059; |
goto T1072; |
3223 |
T1059:; |
T1072:; |
3224 |
V610= Cnil; |
V558= Cnil; |
3225 |
goto T1057; |
goto T1070; |
3226 |
T1057:; |
T1070:; |
3227 |
V613 = (V604); |
V561= append(V558,(V552)); |
3228 |
V614= append(V610,V613); |
(void)((*(LnkLI309))(/* INLINE-ARGS */V561,(V509)));}} |
3229 |
(void)((*(LnkLI282))(/* INLINE-ARGS */V614,(V561)));}} |
goto T1030; |
3230 |
goto T1017; |
T1030:; |
3231 |
T1017:; |
V543= CMPcdr((V543)); |
3232 |
V595= CMPcdr((V595)); |
V544= CMPcar((V543)); |
3233 |
V596= CMPcar((V595)); |
goto T1025;} |
3234 |
goto T1012;} |
goto T1021; |
3235 |
goto T1008; |
T1021:; |
3236 |
T1008:; |
base[12]= CMPcar((V509)); |
3237 |
base[12]= CMPcar((V561)); |
base[13]= (V512); |
|
base[13]= (V564); |
|
3238 |
vs_top=(vs_base=base+12)+2; |
vs_top=(vs_base=base+12)+2; |
3239 |
return;} |
return;} |
3240 |
} |
} |
3241 |
} |
} |
3242 |
/* local entry for function GET-PV-CELL-FOR-CLASS */ |
/* local entry for function GET-PV-CELL-FOR-CLASS */ |
3243 |
|
|
3244 |
static object LI51(V616) |
static object LI51(V563) |
3245 |
|
|
3246 |
register object V616; |
register object V563; |
3247 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
3248 |
goto TTL; |
goto TTL; |
3249 |
TTL:; |
TTL:; |
3250 |
{object V617; |
{object V564; |
3251 |
object V618; |
object V565; |
3252 |
register object V619; |
register object V566; |
3253 |
base[4]=VV[284]->s.s_gfdef; |
base[4]=VV[311]->s.s_gfdef; |
3254 |
base[5]= (V616); |
base[5]= (V563); |
3255 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3256 |
(void) (*Lnk280)(Lclptr280); |
(void) (*Lnk307)(Lclptr307); |
3257 |
vs_top=sup; |
vs_top=sup; |
3258 |
V622= vs_base[0]; |
V569= vs_base[0]; |
3259 |
{object V620; |
{object V567; |
3260 |
object V621= V622; |
object V568= V569; |
3261 |
if(V621==Cnil){ |
if(V568==Cnil){ |
3262 |
V617= Cnil; |
V564= Cnil; |
3263 |
goto T1070;} |
goto T1083;} |
3264 |
base[3]=V620=MMcons(Cnil,Cnil); |
base[3]=V567=MMcons(Cnil,Cnil); |
3265 |
goto T1071; |
goto T1084; |
3266 |
T1071:; |
T1084:; |
3267 |
base[5]= (V621->c.c_car); |
base[5]= (V568->c.c_car); |
3268 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3269 |
(void) (*Lnk284)(Lclptr284); |
(void) (*Lnk311)(Lclptr311); |
3270 |
vs_top=sup; |
vs_top=sup; |
3271 |
(V620->c.c_car)= vs_base[0]; |
(V567->c.c_car)= vs_base[0]; |
3272 |
if((V621=MMcdr(V621))==Cnil){ |
if((V568=MMcdr(V568))==Cnil){ |
3273 |
V617= base[3]; |
V564= base[3]; |
3274 |
goto T1070;} |
goto T1083;} |
3275 |
V620=MMcdr(V620)=MMcons(Cnil,Cnil); |
V567=MMcdr(V567)=MMcons(Cnil,Cnil); |
3276 |
goto T1071;} |
goto T1084;} |
3277 |
goto T1070; |
goto T1083; |
3278 |
T1070:; |
T1083:; |
3279 |
V623= make_cons(Cnil,(V617)); |
V570= make_cons(Cnil,(V564)); |
3280 |
V618= make_cons(/* INLINE-ARGS */V623,Cnil); |
V565= make_cons(/* INLINE-ARGS */V570,Cnil); |
3281 |
base[3]= (V616); |
base[3]= (V563); |
3282 |
base[4]= (VV[160]->s.s_dbind); |
base[4]= (VV[176]->s.s_dbind); |
3283 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3284 |
Lgethash(); |
Lgethash(); |
3285 |
vs_top=sup; |
vs_top=sup; |
3286 |
V619= vs_base[0]; |
V566= vs_base[0]; |
3287 |
if(((V619))==Cnil){ |
if(((V566))==Cnil){ |
3288 |
goto T1081;} |
goto T1094;} |
3289 |
if(equal((V618),STREF(object,(V619),8))){ |
if(equal((V565),STREF(object,(V566),8))){ |
3290 |
goto T1080;} |
goto T1093;} |
3291 |
goto T1081; |
goto T1094; |
3292 |
T1081:; |
T1094:; |
3293 |
V619= (VFUN_NARGS=2,(*(LnkLI291))(VV[162],(V618))); |
V566= (VFUN_NARGS=2,(*(LnkLI318))(VV[178],(V565))); |
3294 |
{object V625; |
{object V572; |
3295 |
V625= (VV[160]->s.s_dbind); |
V572= (VV[176]->s.s_dbind); |
3296 |
base[3]= V616; |
base[3]= V563; |
3297 |
base[4]= (V625); |
base[4]= (V572); |
3298 |
base[5]= V619; |
base[5]= V566; |
3299 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3300 |
siLhash_set(); |
siLhash_set(); |
3301 |
vs_top=sup;} |
vs_top=sup;} |
3302 |
goto T1080; |
goto T1093; |
3303 |
T1080:; |
T1093:; |
3304 |
V627 = (V619); |
base[3]= (V563); |
|
base[3]= (V616); |
|
3305 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3306 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk269)(Lclptr269); |
3307 |
vs_top=sup; |
vs_top=sup; |
3308 |
V628= vs_base[0]; |
V574= vs_base[0]; |
3309 |
{object V629 = (*(LnkLI292))(V627,V628); |
{object V575 = (*(LnkLI319))((V566),V574); |
3310 |
VMR48(V629)}} |
VMR48(V575)}} |
3311 |
base[0]=base[0]; |
base[0]=base[0]; |
3312 |
return Cnil; |
return Cnil; |
3313 |
} |
} |
3317 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3318 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM49; VC49 |
3319 |
vs_check; |
vs_check; |
3320 |
{object V630; |
{object V576; |
3321 |
object V631; |
object V577; |
3322 |
object V632; |
object V578; |
3323 |
object V633; |
object V579; |
3324 |
check_arg(4); |
check_arg(4); |
3325 |
V630=(base[0]); |
V576=(base[0]); |
3326 |
V631=(base[1]); |
V577=(base[1]); |
3327 |
V632=(base[2]); |
V578=(base[2]); |
3328 |
V633=(base[3]); |
V579=(base[3]); |
3329 |
vs_top=sup; |
vs_top=sup; |
3330 |
goto TTL; |
goto TTL; |
3331 |
TTL:; |
TTL:; |
3332 |
{object V634; |
{object V580; |
3333 |
object V635; |
object V581; |
3334 |
register object V636; |
register object V582; |
3335 |
V634= (*(LnkLI293))((V632)); |
V580= (*(LnkLI320))((V578)); |
3336 |
V635= STREF(object,(V631),0); |
V581= STREF(object,(V577),0); |
3337 |
V637 = (V630); |
base[7]= CMPcar((V581)); |
|
base[7]= CMPcar((V635)); |
|
3338 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3339 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk255)(Lclptr255); |
3340 |
vs_top=sup; |
vs_top=sup; |
3341 |
V638= vs_base[0]; |
V583= vs_base[0]; |
3342 |
V636= listA(3,V637,V638,CMPcdr((V635))); |
V582= listA(3,(V576),V583,CMPcdr((V581))); |
3343 |
if(((VV[163]->s.s_dbind))!=Cnil){ |
if(((VV[179]->s.s_dbind))!=Cnil){ |
3344 |
goto T1098;} |
goto T1111;} |
3345 |
base[7]= (V636); |
base[7]= (V582); |
3346 |
base[8]= (VV[164]->s.s_dbind); |
base[8]= (VV[180]->s.s_dbind); |
3347 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
3348 |
Lgethash(); |
Lgethash(); |
3349 |
vs_top=sup; |
vs_top=sup; |
3350 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3351 |
goto T1099;} |
goto T1112;} |
3352 |
goto T1098; |
goto T1111; |
3353 |
T1098:; |
T1111:; |
3354 |
{object V639; |
{object V584; |
3355 |
object V640; |
object V585; |
3356 |
base[7]= (V634); |
base[7]= (V580); |
3357 |
base[8]= (V633); |
base[8]= (V579); |
3358 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
3359 |
(void) (*Lnk294)(); |
(void) (*Lnk321)(); |
3360 |
if(vs_base>=vs_top){vs_top=sup;goto T1108;} |
if(vs_base>=vs_top){vs_top=sup;goto T1121;} |
3361 |
V639= vs_base[0]; |
V584= vs_base[0]; |
3362 |
vs_base++; |
vs_base++; |
3363 |
if(vs_base>=vs_top){vs_top=sup;goto T1109;} |
if(vs_base>=vs_top){vs_top=sup;goto T1122;} |
3364 |
V640= vs_base[0]; |
V585= vs_base[0]; |
3365 |
vs_top=sup; |
vs_top=sup; |
3366 |
goto T1110; |
goto T1123; |
3367 |
goto T1108; |
goto T1121; |
3368 |
T1108:; |
T1121:; |
3369 |
V639= Cnil; |
V584= Cnil; |
3370 |
goto T1109; |
goto T1122; |
3371 |
T1109:; |
T1122:; |
3372 |
V640= Cnil; |
V585= Cnil; |
3373 |
goto T1110; |
goto T1123; |
3374 |
T1110:; |
T1123:; |
3375 |
{register object V641; |
{register object V586; |
3376 |
{register object x= (V639),V642= (VV[165]->s.s_dbind); |
{register object x= (V584),V587= (VV[181]->s.s_dbind); |
3377 |
while(V642!=Cnil) |
while(V587!=Cnil) |
3378 |
if(equal(x,V642->c.c_car->c.c_car) &&V642->c.c_car != Cnil){ |
if(equal(x,V587->c.c_car->c.c_car) &&V587->c.c_car != Cnil){ |
3379 |
V641= (V642->c.c_car); |
V586= (V587->c.c_car); |
3380 |
goto T1111; |
goto T1124; |
3381 |
}else V642=V642->c.c_cdr; |
}else V587=V587->c.c_cdr; |
3382 |
V641= Cnil;} |
V586= Cnil;} |
3383 |
goto T1111; |
goto T1124; |
3384 |
T1111:; |
T1124:; |
3385 |
{object V644; |
{object V589; |
3386 |
V644= (VV[164]->s.s_dbind); |
V589= (VV[180]->s.s_dbind); |
3387 |
base[7]= V636; |
base[7]= V582; |
3388 |
base[8]= (V644); |
base[8]= (V589); |
3389 |
base[9]= Ct; |
base[9]= Ct; |
3390 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
3391 |
siLhash_set(); |
siLhash_set(); |
3392 |
vs_top=sup;} |
vs_top=sup;} |
3393 |
if(((V641))==Cnil){ |
if(((V586))==Cnil){ |
3394 |
goto T1119;} |
goto T1132;} |
3395 |
{object V647; |
{object V592; |
3396 |
base[8]= make_cons((V636),Cnil); |
base[8]= make_cons((V582),Cnil); |
3397 |
base[9]= CMPcdddr((V641)); |
base[9]= CMPcdddr((V586)); |
3398 |
base[10]= VV[12]; |
base[10]= VV[12]; |
3399 |
base[11]= (VV[225]->s.s_gfdef); |
base[11]= (VV[251]->s.s_gfdef); |
3400 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
3401 |
(void) (*Lnk295)(); |
(void) (*Lnk322)(); |
3402 |
vs_top=sup; |
vs_top=sup; |
3403 |
V647= vs_base[0]; |
V592= vs_base[0]; |
3404 |
(CMPcddr(V641))->c.c_cdr = (V647); |
(CMPcddr(V586))->c.c_cdr = (V592); |
3405 |
(void)(CMPcddr(V641)); |
(void)(CMPcddr(V586)); |
|
goto T1117;} |
|
|
goto T1119; |
|
|
T1119:; |
|
|
V641= listA(4,(V639),Cnil,Cnil,make_cons((V636),Cnil));{object V648; |
|
|
V648= (VV[165]->s.s_dbind); |
|
|
V649= make_cons((V641),Cnil); |
|
|
(VV[165]->s.s_dbind)= nconc(V648,/* INLINE-ARGS */V649);} |
|
|
goto T1117; |
|
|
T1117:; |
|
|
if(((VV[166]->s.s_dbind))!=Cnil){ |
|
|
goto T1130;} |
|
|
if((CMPcadr((V641)))!=Cnil){ |
|
3406 |
goto T1130;} |
goto T1130;} |
3407 |
{object V651; |
goto T1132; |
3408 |
base[8]= CMPcar((V641)); |
T1132:; |
3409 |
vs_top=(vs_base=base+8)+1; |
V586= listA(4,(V584),Cnil,Cnil,make_cons((V582),Cnil));{object V593; |
3410 |
(void) (*Lnk296)(); |
V593= (VV[181]->s.s_dbind); |
3411 |
vs_top=sup; |
V594= make_cons((V586),Cnil); |
3412 |
V651= vs_base[0]; |
(VV[181]->s.s_dbind)= nconc(V593,/* INLINE-ARGS */V594);} |
|
(CMPcdr(V641))->c.c_car = (V651); |
|
|
(void)(CMPcdr(V641));} |
|
3413 |
goto T1130; |
goto T1130; |
3414 |
T1130:; |
T1130:; |
3415 |
if((CMPcadr((V641)))==Cnil){ |
if(((VV[182]->s.s_dbind))!=Cnil){ |
3416 |
goto T1139;} |
goto T1143;} |
3417 |
base[7]= CMPcadr((V641)); |
if((CMPcadr((V586)))!=Cnil){ |
3418 |
{object V652; |
goto T1143;} |
3419 |
V652= (V640); |
{object V596; |
3420 |
|
base[8]= CMPcar((V586)); |
3421 |
|
vs_top=(vs_base=base+8)+1; |
3422 |
|
(void) (*Lnk323)(); |
3423 |
|
vs_top=sup; |
3424 |
|
V596= vs_base[0]; |
3425 |
|
(CMPcdr(V586))->c.c_car = (V596); |
3426 |
|
(void)(CMPcdr(V586));} |
3427 |
|
goto T1143; |
3428 |
|
T1143:; |
3429 |
|
if((CMPcadr((V586)))==Cnil){ |
3430 |
|
goto T1152;} |
3431 |
|
base[7]= CMPcadr((V586)); |
3432 |
|
{object V597; |
3433 |
|
V597= (V585); |
3434 |
vs_top=base+8; |
vs_top=base+8; |
3435 |
while(V652!=Cnil) |
while(V597!=Cnil) |
3436 |
{vs_push((V652)->c.c_car);V652=(V652)->c.c_cdr;} |
{vs_push((V597)->c.c_car);V597=(V597)->c.c_cdr;} |
3437 |
vs_base=base+8;} |
vs_base=base+8;} |
3438 |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3439 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3440 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3441 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3442 |
return; |
return; |
3443 |
goto T1139; |
goto T1152; |
3444 |
T1139:; |
T1152:; |
3445 |
base[7]= list(3,VV[130],(V634),(V633)); |
base[7]= list(3,VV[138],(V580),(V579)); |
3446 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3447 |
return;}} |
return;}} |
3448 |
goto T1099; |
goto T1112; |
3449 |
T1099:; |
T1112:; |
3450 |
base[7]= list(3,VV[130],(V634),(V633)); |
base[7]= list(3,VV[138],(V580),(V579)); |
3451 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3452 |
return;} |
return;} |
3453 |
} |
} |
3454 |
} |
} |
3455 |
/* local entry for function LOAD-PRECOMPILED-IIS-ENTRY */ |
/* local entry for function LOAD-PRECOMPILED-IIS-ENTRY */ |
3456 |
|
|
3457 |
static object LI53(V657,V658,V659,V660) |
static object LI53(V602,V603,V604,V605) |
3458 |
|
|
3459 |
object V657;object V658;object V659;object V660; |
object V602;object V603;object V604;object V605; |
3460 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
3461 |
goto TTL; |
goto TTL; |
3462 |
TTL:; |
TTL:; |
3463 |
{object V661; |
{object V606; |
3464 |
{register object x= (V657),V662= (VV[165]->s.s_dbind); |
{register object x= (V602),V607= (VV[181]->s.s_dbind); |
3465 |
while(V662!=Cnil) |
while(V607!=Cnil) |
3466 |
if(equal(x,V662->c.c_car->c.c_car) &&V662->c.c_car != Cnil){ |
if(equal(x,V607->c.c_car->c.c_car) &&V607->c.c_car != Cnil){ |
3467 |
V661= (V662->c.c_car); |
V606= (V607->c.c_car); |
3468 |
goto T1143; |
goto T1156; |
3469 |
}else V662=V662->c.c_cdr; |
}else V607=V607->c.c_cdr; |
3470 |
V661= Cnil;} |
V606= Cnil;} |
3471 |
goto T1143; |
goto T1156; |
3472 |
T1143:; |
T1156:; |
3473 |
if(((V661))!=Cnil){ |
if(((V606))!=Cnil){ |
3474 |
goto T1144;} |
goto T1157;} |
3475 |
V661= listA(4,(V657),Cnil,Cnil,Cnil);{object V663; |
V606= listA(4,(V602),Cnil,Cnil,Cnil);{object V608; |
3476 |
V663= (VV[165]->s.s_dbind); |
V608= (VV[181]->s.s_dbind); |
3477 |
V664= make_cons((V661),Cnil); |
V609= make_cons((V606),Cnil); |
3478 |
(VV[165]->s.s_dbind)= nconc(V663,/* INLINE-ARGS */V664);} |
(VV[181]->s.s_dbind)= nconc(V608,/* INLINE-ARGS */V609);} |
3479 |
goto T1144; |
goto T1157; |
3480 |
T1144:; |
T1157:; |
3481 |
(CMPcdr(V661))->c.c_car = V658; |
(CMPcdr(V606))->c.c_car = V603; |
3482 |
(void)(CMPcdr(V661)); |
(void)(CMPcdr(V606)); |
3483 |
(CMPcddr(V661))->c.c_car = V659; |
(CMPcddr(V606))->c.c_car = V604; |
3484 |
(void)(CMPcddr(V661)); |
(void)(CMPcddr(V606)); |
3485 |
{register object V669; |
{register object V614; |
3486 |
register object V670; |
register object V615; |
3487 |
V669= (V660); |
V614= (V605); |
3488 |
V670= CMPcar((V669)); |
V615= CMPcar((V614)); |
3489 |
goto T1158; |
goto T1171; |
3490 |
T1158:; |
T1171:; |
3491 |
if(!(((V669))==Cnil)){ |
if(!(((V614))==Cnil)){ |
3492 |
goto T1159;} |
goto T1172;} |
3493 |
goto T1154; |
goto T1167; |
3494 |
goto T1159; |
goto T1172; |
3495 |
T1159:; |
T1172:; |
3496 |
{register object V671; |
{register object V616; |
3497 |
register object V672; |
register object V617; |
3498 |
register object V673; |
register object V618; |
3499 |
V671= (V670); |
V616= (V615); |
3500 |
V672= (VV[164]->s.s_dbind); |
V617= (VV[180]->s.s_dbind); |
3501 |
V673= Ct; |
V618= Ct; |
3502 |
base[1]= (V671); |
base[1]= (V616); |
3503 |
base[2]= (V672); |
base[2]= (V617); |
3504 |
base[3]= (V673); |
base[3]= (V618); |
3505 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3506 |
siLhash_set(); |
siLhash_set(); |
3507 |
vs_top=sup;} |
vs_top=sup;} |
3508 |
V669= CMPcdr((V669)); |
V614= CMPcdr((V614)); |
3509 |
V670= CMPcar((V669)); |
V615= CMPcar((V614)); |
3510 |
goto T1158;} |
goto T1171;} |
3511 |
goto T1154; |
goto T1167; |
3512 |
T1154:; |
T1167:; |
3513 |
{object V675; |
{object V620; |
3514 |
base[1]= (V660); |
base[1]= (V605); |
3515 |
base[2]= CMPcdddr((V661)); |
base[2]= CMPcdddr((V606)); |
3516 |
base[3]= VV[12]; |
base[3]= VV[12]; |
3517 |
base[4]= (VV[225]->s.s_gfdef); |
base[4]= (VV[251]->s.s_gfdef); |
3518 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3519 |
(void) (*Lnk295)(); |
(void) (*Lnk322)(); |
3520 |
vs_top=sup; |
vs_top=sup; |
3521 |
V675= vs_base[0]; |
V620= vs_base[0]; |
3522 |
(CMPcddr(V661))->c.c_cdr = (V675); |
(CMPcddr(V606))->c.c_cdr = (V620); |
3523 |
(void)(CMPcddr(V661)); |
(void)(CMPcddr(V606)); |
3524 |
{object V676 = (V675); |
{object V621 = (V620); |
3525 |
VMR50(V676)}}} |
VMR50(V621)}}} |
3526 |
base[0]=base[0]; |
base[0]=base[0]; |
3527 |
return Cnil; |
return Cnil; |
3528 |
} |
} |
3534 |
vs_check; |
vs_check; |
3535 |
check_arg(2); |
check_arg(2); |
3536 |
vs_top=sup; |
vs_top=sup; |
3537 |
{object V677=base[0]->c.c_cdr; |
{object V622=base[0]->c.c_cdr; |
3538 |
if(endp(V677)){ |
if(endp(V622)){ |
3539 |
base[2]= Cnil; |
base[2]= Cnil; |
3540 |
} else { |
} else { |
3541 |
base[2]= (V677->c.c_car); |
base[2]= (V622->c.c_car); |
3542 |
V677=V677->c.c_cdr;} |
V622=V622->c.c_cdr;} |
3543 |
if(!endp(V677))invalid_macro_call();} |
if(!endp(V622))invalid_macro_call();} |
3544 |
{register object V678; |
{register object V623; |
3545 |
V678= small_fixnum(-1); |
V623= small_fixnum(-1); |
3546 |
{register object V680; |
{register object V625; |
3547 |
register object V681; |
register object V626; |
3548 |
V680= Cnil; |
V625= Cnil; |
3549 |
V681= Cnil; |
V626= Cnil; |
3550 |
{register object V682; |
{register object V627; |
3551 |
register object V683; |
register object V628; |
3552 |
V682= (VV[165]->s.s_dbind); |
V627= (VV[181]->s.s_dbind); |
3553 |
V683= CMPcar((V682)); |
V628= CMPcar((V627)); |
3554 |
goto T1189; |
goto T1202; |
3555 |
T1189:; |
T1202:; |
3556 |
if(!(((V682))==Cnil)){ |
if(!(((V627))==Cnil)){ |
3557 |
goto T1190;} |
goto T1203;} |
3558 |
goto T1185; |
goto T1198; |
3559 |
goto T1190; |
goto T1203; |
3560 |
T1190:; |
T1203:; |
3561 |
if((CMPcaddr((V683)))==Cnil){ |
if((CMPcaddr((V628)))==Cnil){ |
|
goto T1195;} |
|
|
if(!((CMPcaddr((V683)))==(base[2]))){ |
|
|
goto T1194;} |
|
|
goto T1195; |
|
|
T1195:; |
|
|
if((base[2])==Cnil){ |
|
|
goto T1199;} |
|
|
{register object V684; |
|
|
register object V685; |
|
|
V684= (V683); |
|
|
V685= base[2]; |
|
|
(CMPcddr((V684)))->c.c_car = (V685); |
|
|
(void)(CMPcddr((V684)));} |
|
|
goto T1199; |
|
|
T1199:; |
|
|
{register object V686; |
|
|
V687 = base[2]; |
|
|
V678= number_plus((V678),small_fixnum(1)); |
|
|
V688 = (V678); |
|
|
V689= list(3,VV[167],V687,V688); |
|
|
V690= list(2,VV[4],CMPcar((V683))); |
|
|
V691= list(2,VV[170],CMPcar((V683))); |
|
|
V692= list(2,VV[4],base[2]); |
|
|
V693= list(5,VV[169],/* INLINE-ARGS */V690,/* INLINE-ARGS */V691,/* INLINE-ARGS */V692,list(2,VV[4],CMPcdddr((V683)))); |
|
|
V686= (*(LnkLI297))(/* INLINE-ARGS */V689,VV[168],/* INLINE-ARGS */V693); |
|
|
if(((V680))!=Cnil){ |
|
3562 |
goto T1208;} |
goto T1208;} |
3563 |
V681= make_cons((V686),Cnil); |
if(!((CMPcaddr((V628)))==(base[2]))){ |
3564 |
V680= (V681); |
goto T1207;} |
|
goto T1194; |
|
3565 |
goto T1208; |
goto T1208; |
3566 |
T1208:; |
T1208:; |
3567 |
V695= make_cons((V686),Cnil); |
if((base[2])==Cnil){ |
3568 |
((V681))->c.c_cdr = /* INLINE-ARGS */V695; |
goto T1212;} |
3569 |
V694= (V681); |
{register object V629; |
3570 |
V681= CMPcdr(V694);} |
register object V630; |
3571 |
goto T1194; |
V629= (V628); |
3572 |
T1194:; |
V630= base[2]; |
3573 |
V682= CMPcdr((V682)); |
(CMPcddr((V629)))->c.c_car = (V630); |
3574 |
V683= CMPcar((V682)); |
(void)(CMPcddr((V629)));} |
3575 |
goto T1189;} |
goto T1212; |
3576 |
goto T1185; |
T1212:; |
3577 |
T1185:; |
{register object V631; |
3578 |
V679= (V680);} |
V623= number_plus((V623),small_fixnum(1)); |
3579 |
base[3]= make_cons(VV[6],V679); |
V632= list(3,VV[183],base[2],(V623)); |
3580 |
|
V633= list(2,VV[4],CMPcar((V628))); |
3581 |
|
V634= list(2,VV[186],CMPcar((V628))); |
3582 |
|
V635= list(2,VV[4],base[2]); |
3583 |
|
V636= list(5,VV[185],/* INLINE-ARGS */V633,/* INLINE-ARGS */V634,/* INLINE-ARGS */V635,list(2,VV[4],CMPcdddr((V628)))); |
3584 |
|
V631= (*(LnkLI324))(/* INLINE-ARGS */V632,VV[184],/* INLINE-ARGS */V636); |
3585 |
|
if(((V625))!=Cnil){ |
3586 |
|
goto T1221;} |
3587 |
|
V626= make_cons((V631),Cnil); |
3588 |
|
V625= (V626); |
3589 |
|
goto T1207; |
3590 |
|
goto T1221; |
3591 |
|
T1221:; |
3592 |
|
V638= make_cons((V631),Cnil); |
3593 |
|
((V626))->c.c_cdr = /* INLINE-ARGS */V638; |
3594 |
|
V637= (V626); |
3595 |
|
V626= CMPcdr(V637);} |
3596 |
|
goto T1207; |
3597 |
|
T1207:; |
3598 |
|
V627= CMPcdr((V627)); |
3599 |
|
V628= CMPcar((V627)); |
3600 |
|
goto T1202;} |
3601 |
|
goto T1198; |
3602 |
|
T1198:; |
3603 |
|
V624= (V625);} |
3604 |
|
base[3]= make_cons(VV[6],V624); |
3605 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3606 |
return;} |
return;} |
3607 |
} |
} |
3612 |
register object *sup=base+VM52; VC52 |
register object *sup=base+VM52; VC52 |
3613 |
vs_check; |
vs_check; |
3614 |
bds_check; |
bds_check; |
3615 |
{object V696; |
{object V639; |
3616 |
check_arg(1); |
check_arg(1); |
3617 |
V696=(base[0]); |
V639=(base[0]); |
3618 |
vs_top=sup; |
vs_top=sup; |
3619 |
goto TTL; |
goto TTL; |
3620 |
TTL:; |
TTL:; |
3621 |
base[3]= (((V696))==Cnil?Ct:Cnil); |
base[3]= (((V639))==Cnil?Ct:Cnil); |
3622 |
bds_bind(VV[163],Ct); |
bds_bind(VV[179],Ct); |
3623 |
bds_bind(VV[91],Ct); |
bds_bind(VV[91],Ct); |
3624 |
bds_bind(VV[166],base[3]); |
bds_bind(VV[182],base[3]); |
3625 |
if(!(((VV[101]->s.s_dbind))==(VV[102]))){ |
if(!(((VV[109]->s.s_dbind))==(VV[110]))){ |
3626 |
goto T1221;} |
goto T1234;} |
3627 |
vs_base=vs_top; |
vs_base=vs_top; |
3628 |
(void) (*Lnk298)(); |
(void) (*Lnk325)(); |
3629 |
bds_unwind1; |
bds_unwind1; |
3630 |
bds_unwind1; |
bds_unwind1; |
3631 |
bds_unwind1; |
bds_unwind1; |
3632 |
return; |
return; |
3633 |
goto T1221; |
goto T1234; |
3634 |
T1221:; |
T1234:; |
3635 |
base[4]= Cnil; |
base[4]= Cnil; |
3636 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3637 |
bds_unwind1; |
bds_unwind1; |
3642 |
} |
} |
3643 |
/* local entry for function INITIALIZE-INSTANCE-SIMPLE */ |
/* local entry for function INITIALIZE-INSTANCE-SIMPLE */ |
3644 |
|
|
3645 |
static object LI56(V701,V702,V703,V704) |
static object LI56(V644,V645,V646,V647) |
3646 |
|
|
3647 |
object V701;register object V702;object V703;register object V704; |
object V644;register object V645;object V646;register object V647; |
3648 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
3649 |
goto TTL; |
goto TTL; |
3650 |
TTL:; |
TTL:; |
3651 |
{object V705; |
{object V648; |
3652 |
register object V706; |
register object V649; |
3653 |
object V707; |
object V650; |
3654 |
object V708; |
object V651; |
3655 |
register object V709; |
register object V652; |
3656 |
V705= CMPcar((V701)); |
V648= CMPcar((V644)); |
3657 |
if(type_of(V703)==t_structure){ |
if(type_of(V646)==t_structure){ |
3658 |
goto T1228;} |
goto T1241;} |
3659 |
goto T1226; |
goto T1239; |
3660 |
goto T1228; |
goto T1241; |
3661 |
T1228:; |
T1241:; |
3662 |
if(!(((V703)->str.str_def)==(VV[171]))){ |
if(!(((V646)->str.str_def)==(VV[187]))){ |
3663 |
goto T1226;} |
goto T1239;} |
3664 |
V707= STREF(object,(V703),4); |
V650= STREF(object,(V646),4); |
3665 |
goto T1224; |
goto T1237; |
3666 |
goto T1226; |
goto T1239; |
3667 |
T1226:;{object V711; |
T1239:;{object V654; |
3668 |
V711= (VV[172]->s.s_dbind); |
V654= (VV[188]->s.s_dbind); |
3669 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3670 |
base[1]= (V703); |
base[1]= (V646); |
3671 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3672 |
(void) (*Lnk299)(); |
(void) (*Lnk326)(); |
3673 |
vs_top=sup; |
vs_top=sup; |
3674 |
V712= vs_base[0]; |
V655= vs_base[0]; |
3675 |
if(!((V711)==(CMPcar(V712)))){ |
if(!((V654)==(CMPcar(V655)))){ |
3676 |
goto T1231;}} |
goto T1244;}} |
3677 |
V707= CMPcar(((V703))->cc.cc_turbo[12]); |
V650= CMPcar(((V646))->cc.cc_turbo[12]); |
|
goto T1224; |
|
|
goto T1231; |
|
|
T1231:; |
|
|
V707= Cnil; |
|
|
goto T1224; |
|
|
T1224:; |
|
|
V708= (*(LnkLI301))((V703)); |
|
|
V706= (V704); |
|
|
V709= Cnil; |
|
|
goto T1239; |
|
|
T1239:; |
|
|
if(((V702))!=Cnil){ |
|
|
goto T1241;} |
|
3678 |
goto T1237; |
goto T1237; |
3679 |
goto T1241; |
goto T1244; |
3680 |
T1241:; |
T1244:; |
3681 |
{register object V713; |
V650= Cnil; |
3682 |
{object V714; |
goto T1237; |
3683 |
V714= CMPcar((V702)); |
T1237:; |
3684 |
V702= CMPcdr((V702)); |
V651= (*(LnkLI328))((V646)); |
3685 |
V713= (V714);} |
V649= (V647); |
3686 |
{object V715= CMPcar((V713)); |
V652= Cnil; |
3687 |
if((V715!= VV[145]))goto T1248; |
goto T1252; |
3688 |
V704= make_cons(V709,(V704)); |
T1252:; |
3689 |
{object V717; |
if(((V645))!=Cnil){ |
3690 |
V717= CMPcadr((V713)); |
goto T1254;} |
3691 |
V704= make_cons((V717),(V704)); |
goto T1250; |
3692 |
goto T1240;} |
goto T1254; |
3693 |
goto T1248; |
T1254:; |
3694 |
T1248:; |
{register object V656; |
3695 |
if((V715!= VV[158]))goto T1253; |
{object V657; |
3696 |
V709= CMPcadr((V713)); |
V657= CMPcar((V645)); |
3697 |
goto T1240; |
V645= CMPcdr((V645)); |
3698 |
|
V656= (V657);} |
3699 |
|
{object V658; |
3700 |
|
V658= CMPcar((V656)); |
3701 |
|
{object V659= (V658); |
3702 |
|
if((V659!= VV[161]))goto T1262; |
3703 |
|
V647= make_cons(V652,(V647)); |
3704 |
|
{object V661; |
3705 |
|
V661= CMPcadr((V656)); |
3706 |
|
V647= make_cons((V661),(V647)); |
3707 |
|
goto T1253;} |
3708 |
|
goto T1262; |
3709 |
|
T1262:; |
3710 |
|
if((V659!= VV[174]))goto T1267; |
3711 |
|
V652= CMPcadr((V656)); |
3712 |
goto T1253; |
goto T1253; |
|
T1253:; |
|
|
if((V715!= VV[114]))goto T1255; |
|
|
V709= ( |
|
|
V718 = CMPcadr((V713)), |
|
|
(type_of(V718) == t_sfun ?(*((V718)->sfn.sfn_self)): |
|
|
(fcall.argd=0,type_of(V718)==t_vfun) ? |
|
|
(*((V718)->sfn.sfn_self)): |
|
|
(fcall.fun=(V718),fcalln))()); |
|
|
goto T1240; |
|
|
goto T1255; |
|
|
T1255:; |
|
|
if((V715!= VV[156]))goto T1257; |
|
|
V719= one_minus(CMPcadr((V713))); |
|
|
V706= nthcdr(fix(/* INLINE-ARGS */V719),(V706)); |
|
|
{object V720; |
|
|
V720= CMPcar((V706)); |
|
|
V706= CMPcdr((V706)); |
|
|
V709= (V720);} |
|
|
goto T1240; |
|
|
goto T1257; |
|
|
T1257:; |
|
|
if((V715!= VV[157]))goto T1264; |
|
|
{object V721; |
|
|
V721= ((V705))->v.v_self[fix(CMPcadr((V713)))]; |
|
|
if(!(type_of(V721)==t_fixnum)){ |
|
|
goto T1267;} |
|
|
(void)(((V707))->v.v_self[fix((V721))]= ((V709))); |
|
|
goto T1240; |
|
3713 |
goto T1267; |
goto T1267; |
3714 |
T1267:; |
T1267:; |
3715 |
if(!(type_of(V721)==t_cons)){ |
if((V659!= VV[122]))goto T1269; |
3716 |
goto T1270;} |
V652= ( |
3717 |
(V721)->c.c_cdr = V709; |
V662 = CMPcadr((V656)), |
3718 |
goto T1240; |
(type_of(V662) == t_sfun ?(*((V662)->sfn.sfn_self)): |
3719 |
goto T1270; |
(fcall.argd=0,type_of(V662)==t_vfun) ? |
3720 |
T1270:; |
(*((V662)->sfn.sfn_self)): |
3721 |
{object V727; |
(fcall.fun=(V662),fcalln))()); |
3722 |
V727= CMPcaddr((V713)); |
goto T1253; |
3723 |
V729= ({object _tmp=get(VV[186],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[186])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[186])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
goto T1269; |
3724 |
V730 = V709; |
T1269:; |
3725 |
V731 = V708; |
if((V659!= VV[172]))goto T1271; |
3726 |
V732 = V703; |
V663= one_minus(CMPcadr((V656))); |
3727 |
V733 = (V727); |
V649= nthcdr(fix(/* INLINE-ARGS */V663),(V649)); |
3728 |
|
{object V664; |
3729 |
|
V664= CMPcar((V649)); |
3730 |
|
V649= CMPcdr((V649)); |
3731 |
|
V652= (V664);} |
3732 |
|
goto T1253; |
3733 |
|
goto T1271; |
3734 |
|
T1271:; |
3735 |
|
if((V659!= VV[173]))goto T1278; |
3736 |
|
{object V665; |
3737 |
|
V665= ((V648))->v.v_self[fix(CMPcadr((V656)))]; |
3738 |
|
if(!(type_of(V665)==t_fixnum)){ |
3739 |
|
goto T1281;} |
3740 |
|
(void)(((V650))->v.v_self[fix((V665))]= ((V652))); |
3741 |
|
goto T1253; |
3742 |
|
goto T1281; |
3743 |
|
T1281:; |
3744 |
|
if(!(type_of(V665)==t_cons)){ |
3745 |
|
goto T1284;} |
3746 |
|
(V665)->c.c_cdr = V652; |
3747 |
|
goto T1253; |
3748 |
|
goto T1284; |
3749 |
|
T1284:; |
3750 |
|
{object V671; |
3751 |
|
V671= CMPcaddr((V656)); |
3752 |
|
V673= ({object _tmp=get(VV[204],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[204])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[204])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
3753 |
(void)(( |
(void)(( |
3754 |
V734 = V729, |
V674 = V673, |
3755 |
(type_of(V734) == t_sfun ?(*((V734)->sfn.sfn_self)): |
(type_of(V674) == t_sfun ?(*((V674)->sfn.sfn_self)): |
3756 |
(fcall.argd=4,type_of(V734)==t_vfun) ? |
(fcall.argd=4,type_of(V674)==t_vfun) ? |
3757 |
(*((V734)->sfn.sfn_self)): |
(*((V674)->sfn.sfn_self)): |
3758 |
(fcall.fun=(V734),fcalln))(V730,V731,V732,V733))); |
(fcall.fun=(V674),fcalln))(V652,V651,V646,(V671)))); |
3759 |
goto T1240;}} |
goto T1253;}} |
3760 |
goto T1264; |
goto T1278; |
3761 |
T1264:; |
T1278:; |
3762 |
if((V715!= VV[159]))goto T1275; |
if((V659!= VV[175]))goto T1289; |
3763 |
{object V735; |
{object V675; |
3764 |
V735= ((V705))->v.v_self[fix(CMPcadr((V713)))]; |
V675= ((V648))->v.v_self[fix(CMPcadr((V656)))]; |
3765 |
if(!(type_of(V735)==t_fixnum)){ |
if(!(type_of(V675)==t_fixnum)){ |
3766 |
goto T1280;} |
goto T1294;} |
3767 |
if(!((((((V707))->v.v_self[fix((V735))])==(VV[173])?Ct:Cnil))==Cnil)){ |
if(!((((((V650))->v.v_self[fix((V675))])==(VV[189])?Ct:Cnil))==Cnil)){ |
3768 |
goto T1240;} |
goto T1253;} |
3769 |
goto T1277; |
goto T1291; |
3770 |
goto T1280; |
goto T1294; |
3771 |
T1280:; |
T1294:; |
3772 |
if(!(type_of(V735)==t_cons)){ |
if(!(type_of(V675)==t_cons)){ |
3773 |
goto T1283;} |
goto T1297;} |
3774 |
if(!((((CMPcdr((V735)))==(VV[173])?Ct:Cnil))==Cnil)){ |
if(!((((CMPcdr((V675)))==(VV[189])?Ct:Cnil))==Cnil)){ |
3775 |
goto T1240;} |
goto T1253;} |
3776 |
goto T1277; |
goto T1291; |
3777 |
goto T1283; |
goto T1297; |
3778 |
T1283:; |
T1297:; |
3779 |
base[0]= (V708); |
base[0]= (V651); |
3780 |
base[1]= (V703); |
base[1]= (V646); |
3781 |
base[2]= CMPcaddr((V713)); |
base[2]= CMPcaddr((V656)); |
3782 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3783 |
(void) (*Lnk195)(Lclptr195); |
(void) (*Lnk213)(Lclptr213); |
3784 |
vs_top=sup; |
vs_top=sup; |
3785 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3786 |
goto T1240;}} |
goto T1253;}} |
|
goto T1277; |
|
|
T1277:; |
|
|
{long V737; |
|
|
register long V738; |
|
|
V737= fix(CMPcadddr((V713))); |
|
|
V738= 0; |
|
3787 |
goto T1291; |
goto T1291; |
3788 |
T1291:; |
T1291:; |
3789 |
if(!((V738)>=(V737))){ |
{long V677; |
3790 |
goto T1292;} |
register long V678; |
3791 |
goto T1240; |
V677= fix(CMPcadddr((V656))); |
3792 |
goto T1292; |
V678= 0; |
3793 |
T1292:; |
goto T1305; |
3794 |
{object V739; |
T1305:; |
3795 |
V739= CMPcar((V702)); |
if(!((V678)>=(V677))){ |
3796 |
V702= CMPcdr((V702));} |
goto T1306;} |
3797 |
V738= (long)(V738)+1; |
goto T1253; |
3798 |
goto T1291;} |
goto T1306; |
3799 |
goto T1275; |
T1306:; |
3800 |
T1275:; |
{object V679; |
3801 |
if((V715!= VV[146]))goto T1302; |
V679= CMPcar((V645)); |
3802 |
if(!(type_of((V704))==t_cons)){ |
V645= CMPcdr((V645));} |
3803 |
goto T1303;} |
V678= (long)(V678)+1; |
3804 |
V704= make_cons(CMPcar((V704)),CMPcdr((V704))); |
goto T1305;} |
3805 |
goto T1303; |
goto T1289; |
3806 |
T1303:; |
T1289:; |
3807 |
(VV[93]->s.s_dbind)= CMPcadr((V713)); |
if((V659!= VV[162]))goto T1316; |
3808 |
(VV[94]->s.s_dbind)= (V704); |
if(!(type_of((V647))==t_cons)){ |
3809 |
(VV[95]->s.s_dbind)= CMPcaddr((V713)); |
goto T1317;} |
3810 |
goto T1240; |
V647= make_cons(CMPcar((V647)),CMPcdr((V647))); |
3811 |
goto T1302; |
goto T1317; |
3812 |
T1302:; |
T1317:; |
3813 |
if((V715!= VV[302]))goto T1312; |
(VV[93]->s.s_dbind)= CMPcadr((V656)); |
3814 |
V706= (V704); |
(VV[94]->s.s_dbind)= (V647); |
3815 |
goto T1240; |
(VV[95]->s.s_dbind)= CMPcaddr((V656)); |
3816 |
goto T1312; |
goto T1253; |
3817 |
T1312:; |
goto T1316; |
3818 |
FEerror("The ECASE key value ~s is illegal.",1,V715); |
T1316:; |
3819 |
goto T1240;}} |
if((V659!= VV[329]))goto T1326; |
3820 |
goto T1240; |
V649= (V647); |
3821 |
T1240:; |
goto T1253; |
3822 |
goto T1239; |
goto T1326; |
3823 |
goto T1237; |
T1326:; |
3824 |
T1237:; |
base[0]= VV[101]; |
3825 |
{object V740 = (V704); |
base[1]= VV[102]; |
3826 |
VMR53(V740)}} |
base[2]= VV[103]; |
3827 |
|
base[3]= VV[104]; |
3828 |
|
base[4]= (V658); |
3829 |
|
base[5]= VV[105]; |
3830 |
|
base[6]= VV[190]; |
3831 |
|
base[7]= VV[107]; |
3832 |
|
base[8]= VV[191]; |
3833 |
|
vs_top=(vs_base=base+0)+9; |
3834 |
|
(void) (*Lnk281)(); |
3835 |
|
vs_top=sup;}}} |
3836 |
|
goto T1253; |
3837 |
|
T1253:; |
3838 |
|
goto T1252; |
3839 |
|
goto T1250; |
3840 |
|
T1250:; |
3841 |
|
{object V680 = (V647); |
3842 |
|
VMR53(V680)}} |
3843 |
base[0]=base[0]; |
base[0]=base[0]; |
3844 |
return Cnil; |
return Cnil; |
3845 |
} |
} |
3846 |
/* local entry for function ADD-TO-CVECTOR */ |
/* local entry for function ADD-TO-CVECTOR */ |
3847 |
|
|
3848 |
static object LI57(V743,V744) |
static object LI57(V683,V684) |
3849 |
|
|
3850 |
register object V743;object V744; |
register object V683;object V684; |
3851 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
3852 |
goto TTL; |
goto TTL; |
3853 |
TTL:;{object V745; |
TTL:;{object V685; |
3854 |
base[0]= (V744); |
base[0]= (V684); |
3855 |
base[1]= (V743); |
base[1]= (V683); |
3856 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3857 |
(void) (*Lnk285)(); |
(void) (*Lnk312)(); |
3858 |
vs_top=sup; |
vs_top=sup; |
3859 |
V745= vs_base[0]; |
V685= vs_base[0]; |
3860 |
if(V745==Cnil)goto T1315; |
if(V685==Cnil)goto T1338; |
3861 |
{object V746 = V745; |
{object V686 = V685; |
3862 |
VMR54(V746)} |
VMR54(V686)} |
3863 |
goto T1315; |
goto T1338; |
3864 |
T1315:;} |
T1338:;} |
3865 |
{object V747; |
{object V687; |
3866 |
V747= CMPmake_fixnum((long)(((V743))->st.st_fillp)); |
V687= CMPmake_fixnum((long)(((V683))->st.st_fillp)); |
3867 |
{register object V749; |
{register object V689; |
3868 |
register long V750; |
register long V690; |
3869 |
long V751; |
long V691; |
3870 |
V749= (V743); |
V689= (V683); |
3871 |
V750= (long)(((V749))->st.st_fillp); |
V690= (long)(((V689))->st.st_fillp); |
3872 |
V751= (long)(((V749))->st.st_dim); |
V691= (long)(((V689))->st.st_dim); |
3873 |
if(!((V750)<(V751))){ |
if(!((V690)<(V691))){ |
3874 |
goto T1325;} |
goto T1348;} |
3875 |
(void)((((V749))->st.st_fillp)=((long)(1)+(V750))); |
(void)((((V689))->st.st_fillp)=((long)(1)+(V690))); |
3876 |
V752 = CMPmake_fixnum(V750); |
V692 = CMPmake_fixnum(V690); |
3877 |
(void)(aset1((V749),fix(V752),V744)); |
(void)(aset1((V689),fix(V692),V684)); |
3878 |
goto T1320; |
goto T1343; |
3879 |
goto T1325; |
goto T1348; |
3880 |
T1325:; |
T1348:; |
3881 |
base[0]= V744; |
base[0]= V684; |
3882 |
base[1]= (V749); |
base[1]= (V689); |
3883 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3884 |
(void) (*Lnk303)(); |
(void) (*Lnk330)(); |
3885 |
vs_top=sup;} |
vs_top=sup;} |
3886 |
goto T1320; |
goto T1343; |
3887 |
T1320:; |
T1343:; |
3888 |
{object V753 = (V747); |
{object V693 = (V687); |
3889 |
VMR54(V753)}} |
VMR54(V693)}} |
3890 |
base[0]=base[0]; |
base[0]=base[0]; |
3891 |
return Cnil; |
return Cnil; |
3892 |
} |
} |
3893 |
/* local entry for function FIRST-FORM-TO-LISP */ |
/* local entry for function FIRST-FORM-TO-LISP */ |
3894 |
|
|
3895 |
static object LI60(V757,V758,V759) |
static object LI60(V697,V698,V699) |
3896 |
|
|
3897 |
register object V757;object V758;register object V759; |
register object V697;object V698;register object V699; |
3898 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
3899 |
goto TTL; |
goto TTL; |
3900 |
TTL:; |
TTL:; |
3901 |
base[0]= (V758); |
base[0]= (V698); |
3902 |
{object V760; |
{object V700; |
3903 |
{object V762; |
{object V702; |
3904 |
V762= CMPcdr(CMPcar(V757)); |
V702= CMPcdr(CMPcar(V697)); |
3905 |
{object V763; |
{object V703; |
3906 |
V763= CMPcar(CMPcar(V757)); |
V703= CMPcar(CMPcar(V697)); |
3907 |
(V757)->c.c_car = (V762); |
(V697)->c.c_car = (V702); |
3908 |
V760= (V763);}} |
V700= (V703);}} |
3909 |
{object V764= CMPcar((V760)); |
{object V704; |
3910 |
if((V764!= VV[145]))goto T1336; |
V704= CMPcar((V700)); |
3911 |
base[1]= CMPcadr((V760)); |
{object V705= (V704); |
3912 |
|
if((V705!= VV[161]))goto T1360; |
3913 |
|
base[1]= CMPcadr((V700)); |
3914 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3915 |
L61(base); |
L61(base); |
3916 |
vs_top=sup; |
vs_top=sup; |
3917 |
V765= vs_base[0]; |
V706= vs_base[0]; |
3918 |
{object V766 = list(2,VV[174],list(3,VV[57],V765,VV[175])); |
{object V707 = list(2,VV[192],list(3,VV[57],V706,VV[193])); |
3919 |
VMR55(V766)} |
VMR55(V707)} |
3920 |
goto T1336; |
goto T1360; |
3921 |
T1336:; |
T1360:; |
3922 |
if((V764!= VV[158]))goto T1339; |
if((V705!= VV[174]))goto T1363; |
3923 |
base[1]= CMPcadr((V760)); |
base[1]= CMPcadr((V700)); |
3924 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3925 |
L61(base); |
L61(base); |
3926 |
vs_top=sup; |
vs_top=sup; |
3927 |
V767= vs_base[0]; |
V708= vs_base[0]; |
3928 |
V768= list(3,VV[176],VV[76],V767); |
V709= list(3,VV[194],VV[76],V708); |
3929 |
{object V769 = make_cons(/* INLINE-ARGS */V768,Cnil); |
{object V710 = make_cons(/* INLINE-ARGS */V709,Cnil); |
3930 |
VMR55(V769)} |
VMR55(V710)} |
3931 |
goto T1339; |
goto T1363; |
3932 |
T1339:; |
T1363:; |
3933 |
if((V764!= VV[114]))goto T1342; |
if((V705!= VV[122]))goto T1366; |
3934 |
base[1]= CMPcadr((V760)); |
base[1]= CMPcadr((V700)); |
3935 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3936 |
L61(base); |
L61(base); |
3937 |
vs_top=sup; |
vs_top=sup; |
3938 |
V770= vs_base[0]; |
V711= vs_base[0]; |
3939 |
V771= list(3,VV[176],VV[76],list(2,VV[114],list(3,VV[177],VV[170],V770))); |
V712= list(3,VV[194],VV[76],list(2,VV[122],list(3,VV[195],VV[186],V711))); |
3940 |
{object V772 = make_cons(/* INLINE-ARGS */V771,Cnil); |
{object V713 = make_cons(/* INLINE-ARGS */V712,Cnil); |
3941 |
VMR55(V772)} |
VMR55(V713)} |
3942 |
goto T1342; |
goto T1366; |
3943 |
T1342:; |
T1366:; |
3944 |
if((V764!= VV[156]))goto T1345; |
if((V705!= VV[172]))goto T1369; |
3945 |
{object V774; |
{object V715; |
3946 |
V774= one_minus(CMPcadr((V760))); |
V715= one_minus(CMPcadr((V700))); |
3947 |
{object V775= (V774); |
{object V716= (V715); |
3948 |
if(!eql(V775,VV[179]))goto T1348; |
if(!eql(V716,VV[197]))goto T1372; |
3949 |
V773= VV[180]; |
V714= VV[198]; |
3950 |
goto T1346; |
goto T1370; |
3951 |
goto T1348; |
goto T1372; |
3952 |
T1348:; |
T1372:; |
3953 |
if(!eql(V775,VV[181]))goto T1349; |
if(!eql(V716,VV[199]))goto T1373; |
3954 |
V773= VV[182]; |
V714= VV[200]; |
3955 |
goto T1346; |
goto T1370; |
3956 |
goto T1349; |
goto T1373; |
3957 |
T1349:; |
T1373:; |
3958 |
V773= list(2,VV[183],(V774));}} |
V714= list(2,VV[201],(V715));}} |
3959 |
goto T1346; |
goto T1370; |
3960 |
T1346:; |
T1370:; |
3961 |
{object V776 = list(2,list(3,VV[176],VV[178],append(V773,VV[184])),VV[185]); |
{object V717 = list(2,list(3,VV[194],VV[196],append(V714,VV[202])),VV[203]); |
3962 |
VMR55(V776)} |
VMR55(V717)} |
3963 |
goto T1345; |
goto T1369; |
3964 |
T1345:; |
T1369:; |
3965 |
if((V764!= VV[157]))goto T1350; |
if((V705!= VV[173]))goto T1374; |
3966 |
{object V777; |
{object V718; |
3967 |
object V778; |
object V719; |
3968 |
object V779; |
object V720; |
3969 |
V777= CMPcadr((V760)); |
V718= CMPcadr((V700)); |
3970 |
V778= ((V759))->v.v_self[fix((V777))]; |
V719= ((V699))->v.v_self[fix((V718))]; |
3971 |
base[4]= CMPcaddr((V760)); |
base[4]= CMPcaddr((V700)); |
3972 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3973 |
L61(base); |
L61(base); |
3974 |
vs_top=sup; |
vs_top=sup; |
3975 |
V780= vs_base[0]; |
V721= vs_base[0]; |
3976 |
V779= list(3,VV[62],list(4,VV[186],VV[103],VV[121],V780),VV[76]); |
V720= list(3,VV[62],list(4,VV[204],VV[111],VV[129],V721),VV[76]); |
3977 |
if(((VV[187]->s.s_dbind))==Cnil){ |
if(((VV[205]->s.s_dbind))==Cnil){ |
3978 |
goto T1357;} |
goto T1381;} |
3979 |
if(!(type_of(V778)==t_fixnum)){ |
if(!(type_of(V719)==t_fixnum)){ |
3980 |
goto T1360;} |
goto T1384;} |
3981 |
base[4]= (V778); |
base[4]= (V719); |
3982 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3983 |
L61(base); |
L61(base); |
3984 |
vs_top=sup; |
vs_top=sup; |
3985 |
V782= vs_base[0]; |
V723= vs_base[0]; |
3986 |
V783= list(3,VV[62],list(3,VV[188],VV[58],V782),VV[76]); |
V724= list(3,VV[62],list(3,VV[206],VV[58],V723),VV[76]); |
3987 |
{object V784 = make_cons(/* INLINE-ARGS */V783,Cnil); |
{object V725 = make_cons(/* INLINE-ARGS */V724,Cnil); |
3988 |
VMR55(V784)} |
VMR55(V725)} |
3989 |
goto T1360; |
goto T1384; |
3990 |
T1360:; |
T1384:; |
3991 |
if(!(type_of(V778)==t_cons)){ |
if(!(type_of(V719)==t_cons)){ |
3992 |
goto T1365;} |
goto T1389;} |
3993 |
base[4]= (V778); |
base[4]= (V719); |
3994 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3995 |
L61(base); |
L61(base); |
3996 |
vs_top=sup; |
vs_top=sup; |
3997 |
V785= vs_base[0]; |
V726= vs_base[0]; |
3998 |
V786= list(3,VV[62],list(2,VV[189],V785),VV[76]); |
V727= list(3,VV[62],list(2,VV[207],V726),VV[76]); |
3999 |
{object V787 = make_cons(/* INLINE-ARGS */V786,Cnil); |
{object V728 = make_cons(/* INLINE-ARGS */V727,Cnil); |
4000 |
VMR55(V787)} |
VMR55(V728)} |
4001 |
goto T1365; |
goto T1389; |
4002 |
T1365:; |
T1389:; |
4003 |
{object V788 = make_cons((V779),Cnil); |
{object V729 = make_cons((V720),Cnil); |
4004 |
VMR55(V788)} |
VMR55(V729)} |
4005 |
goto T1357; |
goto T1381; |
4006 |
T1357:; |
T1381:; |
4007 |
base[4]= (V777); |
base[4]= (V718); |
4008 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4009 |
L61(base); |
L61(base); |
4010 |
vs_top=sup; |
vs_top=sup; |
4011 |
V789= vs_base[0]; |
V730= vs_base[0]; |
4012 |
V790 = (V779); |
if(!(type_of(V719)==t_fixnum)){ |
4013 |
if(!(type_of(V778)==t_fixnum)){ |
goto T1397;} |
4014 |
goto T1373;} |
V731= VV[210]; |
4015 |
V791= VV[192]; |
goto T1395; |
4016 |
goto T1371; |
goto T1397; |
4017 |
goto T1373; |
T1397:; |
4018 |
T1373:; |
if(!(type_of(V719)==t_cons)){ |
4019 |
if(!(type_of(V778)==t_cons)){ |
goto T1400;} |
4020 |
goto T1376;} |
V731= VV[211]; |
4021 |
V791= VV[193]; |
goto T1395; |
4022 |
goto T1371; |
goto T1400; |
4023 |
goto T1376; |
T1400:; |
4024 |
T1376:; |
V731= VV[212]; |
4025 |
V791= VV[194]; |
goto T1395; |
4026 |
goto T1371; |
T1395:; |
4027 |
T1371:; |
V733= list(7,VV[208],VV[209],VV[58],V730,VV[76],(V720),V731); |
4028 |
V793= list(7,VV[190],VV[191],VV[58],V789,VV[76],V790,V791); |
{object V734 = make_cons(/* INLINE-ARGS */V733,Cnil); |
4029 |
{object V794 = make_cons(/* INLINE-ARGS */V793,Cnil); |
VMR55(V734)}} |
4030 |
VMR55(V794)}} |
goto T1374; |
4031 |
goto T1350; |
T1374:; |
4032 |
T1350:; |
if((V705!= VV[175]))goto T1402; |
4033 |
if((V764!= VV[159]))goto T1378; |
{object V735; |
4034 |
{object V795; |
object V736; |
4035 |
object V796; |
object V737; |
4036 |
object V797; |
V735= CMPcadr((V700)); |
4037 |
V795= CMPcadr((V760)); |
V736= ((V699))->v.v_self[fix((V735))]; |
4038 |
V796= ((V759))->v.v_self[fix((V795))]; |
base[4]= CMPcaddr((V700)); |
|
base[4]= CMPcaddr((V760)); |
|
4039 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4040 |
L61(base); |
L61(base); |
4041 |
vs_top=sup; |
vs_top=sup; |
4042 |
V798= vs_base[0]; |
V738= vs_base[0]; |
4043 |
V797= list(4,VV[195],VV[103],VV[121],V798); |
V737= list(4,VV[213],VV[111],VV[129],V738); |
4044 |
if(((VV[187]->s.s_dbind))==Cnil){ |
if(((VV[205]->s.s_dbind))==Cnil){ |
4045 |
goto T1386;} |
goto T1410;} |
4046 |
if(!(type_of(V796)==t_fixnum)){ |
if(!(type_of(V736)==t_fixnum)){ |
4047 |
goto T1389;} |
goto T1413;} |
4048 |
base[4]= (V796); |
base[4]= (V736); |
4049 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4050 |
L61(base); |
L61(base); |
4051 |
vs_top=sup; |
vs_top=sup; |
4052 |
V801= vs_base[0]; |
V741= vs_base[0]; |
4053 |
V802= list(3,VV[188],VV[58],V801); |
V742= list(3,VV[206],VV[58],V741); |
4054 |
V799= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V802,list(2,VV[4],(VV[153]->s.s_dbind)))); |
V739= list(2,VV[214],list(3,VV[55],/* INLINE-ARGS */V742,list(2,VV[4],(VV[169]->s.s_dbind)))); |
4055 |
goto T1384; |
goto T1408; |
4056 |
goto T1389; |
goto T1413; |
4057 |
T1389:; |
T1413:; |
4058 |
if(!(type_of(V796)==t_cons)){ |
if(!(type_of(V736)==t_cons)){ |
4059 |
goto T1394;} |
goto T1418;} |
4060 |
base[4]= (V796); |
base[4]= (V736); |
4061 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4062 |
L61(base); |
L61(base); |
4063 |
vs_top=sup; |
vs_top=sup; |
4064 |
V803= vs_base[0]; |
V743= vs_base[0]; |
4065 |
V804= list(2,VV[189],V803); |
V744= list(2,VV[207],V743); |
4066 |
V799= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V804,list(2,VV[4],(VV[153]->s.s_dbind)))); |
V739= list(2,VV[214],list(3,VV[55],/* INLINE-ARGS */V744,list(2,VV[4],(VV[169]->s.s_dbind)))); |
4067 |
goto T1384; |
goto T1408; |
4068 |
goto T1394; |
goto T1418; |
4069 |
T1394:; |
T1418:; |
4070 |
V799= (V797); |
V739= (V737); |
4071 |
goto T1384; |
goto T1408; |
4072 |
goto T1386; |
goto T1410; |
4073 |
T1386:; |
T1410:; |
4074 |
base[4]= (V795); |
base[4]= (V735); |
4075 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4076 |
L61(base); |
L61(base); |
4077 |
vs_top=sup; |
vs_top=sup; |
4078 |
V805= vs_base[0]; |
V745= vs_base[0]; |
4079 |
V806 = (V797); |
{object V747; |
4080 |
{object V808; |
V747= ((V699))->v.v_self[fix((V735))]; |
4081 |
V808= ((V759))->v.v_self[fix((V795))]; |
if(!(type_of((V747))==t_fixnum)){ |
4082 |
if(!(type_of((V808))==t_fixnum)){ |
goto T1427;} |
4083 |
goto T1403;} |
V746= VV[210]; |
4084 |
V807= VV[192]; |
goto T1424; |
4085 |
goto T1400; |
goto T1427; |
4086 |
goto T1403; |
T1427:; |
4087 |
T1403:; |
if(!(type_of((V747))==t_cons)){ |
4088 |
if(!(type_of((V808))==t_cons)){ |
goto T1430;} |
4089 |
goto T1406;} |
V746= VV[211]; |
4090 |
V807= VV[193]; |
goto T1424; |
4091 |
goto T1400; |
goto T1430; |
4092 |
goto T1406; |
T1430:; |
4093 |
T1406:; |
V746= VV[212];} |
4094 |
V807= VV[194];} |
goto T1424; |
4095 |
goto T1400; |
T1424:; |
4096 |
T1400:; |
V739= list(6,VV[215],VV[209],VV[58],V745,(V737),V746); |
|
V799= list(6,VV[197],VV[191],VV[58],V805,V806,V807); |
|
|
goto T1384; |
|
|
T1384:; |
|
|
{register object V810; |
|
|
V810= make_cons(Cnil,Cnil); |
|
|
{register long V811; |
|
|
register long V812; |
|
|
V811= fix(CMPcadddr((V760))); |
|
|
V812= 0; |
|
|
goto T1413; |
|
|
T1413:; |
|
|
if(!((V812)>=(V811))){ |
|
|
goto T1414;} |
|
|
V809= CMPcar((V810)); |
|
|
goto T1408; |
|
|
goto T1414; |
|
|
T1414:; |
|
|
V813= (*(LnkLI304))((V757),base[0],(V759)); |
|
|
V814 = (V810); |
|
|
(void)((*(LnkLI282))(/* INLINE-ARGS */V813,V814)); |
|
|
V812= (long)(V812)+1; |
|
|
goto T1413;}} |
|
4097 |
goto T1408; |
goto T1408; |
4098 |
T1408:; |
T1408:; |
4099 |
V815= listA(3,VV[54],V799,V809); |
{register object V749; |
4100 |
{object V816 = make_cons(/* INLINE-ARGS */V815,Cnil); |
V749= make_cons(Cnil,Cnil); |
4101 |
VMR55(V816)}} |
{long V750; |
4102 |
goto T1378; |
register long V751; |
4103 |
T1378:; |
V750= fix(CMPcadddr((V700))); |
4104 |
if((V764!= VV[146]))goto T1421; |
V751= 0; |
4105 |
base[1]= CMPcadr((V760)); |
goto T1437; |
4106 |
|
T1437:; |
4107 |
|
if(!((V751)>=(V750))){ |
4108 |
|
goto T1438;} |
4109 |
|
V748= CMPcar((V749)); |
4110 |
|
goto T1432; |
4111 |
|
goto T1438; |
4112 |
|
T1438:; |
4113 |
|
V752= (*(LnkLI331))((V697),base[0],(V699)); |
4114 |
|
(void)((*(LnkLI309))(/* INLINE-ARGS */V752,(V749))); |
4115 |
|
V751= (long)(V751)+1; |
4116 |
|
goto T1437;}} |
4117 |
|
goto T1432; |
4118 |
|
T1432:; |
4119 |
|
V753= listA(3,VV[54],V739,V748); |
4120 |
|
{object V754 = make_cons(/* INLINE-ARGS */V753,Cnil); |
4121 |
|
VMR55(V754)}} |
4122 |
|
goto T1402; |
4123 |
|
T1402:; |
4124 |
|
if((V705!= VV[162]))goto T1445; |
4125 |
|
base[1]= CMPcadr((V700)); |
4126 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4127 |
L61(base); |
L61(base); |
4128 |
vs_top=sup; |
vs_top=sup; |
4129 |
V817= vs_base[0]; |
V755= vs_base[0]; |
4130 |
V818= list(3,VV[176],VV[93],V817); |
V756= list(3,VV[194],VV[93],V755); |
4131 |
base[1]= CMPcaddr((V760)); |
base[1]= CMPcaddr((V700)); |
4132 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4133 |
L61(base); |
L61(base); |
4134 |
vs_top=sup; |
vs_top=sup; |
4135 |
V819= vs_base[0]; |
V757= vs_base[0]; |
4136 |
{object V820 = list(4,VV[198],/* INLINE-ARGS */V818,VV[199],list(3,VV[176],VV[95],V819)); |
{object V758 = list(4,VV[216],/* INLINE-ARGS */V756,VV[217],list(3,VV[194],VV[95],V757)); |
4137 |
VMR55(V820)} |
VMR55(V758)} |
4138 |
goto T1421; |
goto T1445; |
4139 |
T1421:; |
T1445:; |
4140 |
if((V764!= VV[302]))goto T1426; |
if((V705!= VV[329]))goto T1450; |
4141 |
{object V821 = VV[200]; |
{object V759 = VV[218]; |
4142 |
VMR55(V821)} |
VMR55(V759)} |
4143 |
goto T1426; |
goto T1450; |
4144 |
T1426:; |
T1450:; |
4145 |
FEerror("The ECASE key value ~s is illegal.",1,V764); |
base[1]= VV[101]; |
4146 |
{object V822 = Cnil; |
base[2]= VV[102]; |
4147 |
VMR55(V822)}}} |
base[3]= VV[103]; |
4148 |
|
base[4]= VV[104]; |
4149 |
|
base[5]= (V704); |
4150 |
|
base[6]= VV[105]; |
4151 |
|
base[7]= VV[227]; |
4152 |
|
base[8]= VV[107]; |
4153 |
|
base[9]= VV[228]; |
4154 |
|
vs_top=(vs_base=base+1)+9; |
4155 |
|
(void) (*Lnk281)(); |
4156 |
|
vs_top=sup; |
4157 |
|
{object V760 = vs_base[0]; |
4158 |
|
VMR55(V760)}}}} |
4159 |
base[0]=base[0]; |
base[0]=base[0]; |
4160 |
return Cnil; |
return Cnil; |
4161 |
} |
} |
4167 |
vs_check; |
vs_check; |
4168 |
check_arg(2); |
check_arg(2); |
4169 |
vs_top=sup; |
vs_top=sup; |
4170 |
{object V823=base[0]->c.c_cdr; |
{object V761=base[0]->c.c_cdr; |
4171 |
base[2]= V823;} |
base[2]= V761;} |
4172 |
V825= listA(3,VV[205],VV[206],base[2]); |
V763= listA(3,VV[231],VV[232],base[2]); |
4173 |
base[3]= listA(3,VV[52],VV[204],append(VV[203],/* INLINE-ARGS */V825)); |
base[3]= listA(3,VV[52],VV[230],append(VV[229],/* INLINE-ARGS */V763)); |
4174 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4175 |
return; |
return; |
4176 |
} |
} |
4180 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4181 |
register object *sup=base+VM57; VC57 |
register object *sup=base+VM57; VC57 |
4182 |
vs_check; |
vs_check; |
4183 |
{object V826; |
{object V764; |
4184 |
object V827; |
object V765; |
4185 |
check_arg(2); |
check_arg(2); |
4186 |
V826=(base[0]); |
V764=(base[0]); |
4187 |
V827=(base[1]); |
V765=(base[1]); |
4188 |
vs_top=sup; |
vs_top=sup; |
4189 |
goto TTL; |
goto TTL; |
4190 |
TTL:; |
TTL:; |
4191 |
{register object V828; |
{register object V766; |
4192 |
register object V829; |
register object V767; |
4193 |
register object V830; |
register object V768; |
4194 |
object V831; |
object V769; |
4195 |
object V832; |
object V770; |
4196 |
V828= make_cons((V827),Cnil); |
V766= make_cons((V765),Cnil); |
4197 |
base[8]= CMPmake_fixnum((long)length((V827))); |
base[8]= CMPmake_fixnum((long)length((V765))); |
4198 |
base[9]= small_fixnum(2); |
base[9]= small_fixnum(2); |
4199 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
4200 |
Lfloor(); |
Lfloor(); |
4201 |
vs_top=sup; |
vs_top=sup; |
4202 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
4203 |
base[8]= VV[207]; |
base[8]= VV[233]; |
4204 |
base[9]= small_fixnum(0); |
base[9]= small_fixnum(0); |
4205 |
base[10]= VV[208]; |
base[10]= VV[234]; |
4206 |
base[11]= Ct; |
base[11]= Ct; |
4207 |
vs_top=(vs_base=base+7)+5; |
vs_top=(vs_base=base+7)+5; |
4208 |
(void) (*Lnk283)(); |
(void) (*Lnk310)(); |
4209 |
vs_top=sup; |
vs_top=sup; |
4210 |
V829= vs_base[0]; |
V767= vs_base[0]; |
4211 |
V830= CMPcar((V826)); |
V768= CMPcar((V764)); |
4212 |
{register object V833; |
{register object V771; |
4213 |
V833= make_cons(Cnil,Cnil); |
V771= make_cons(Cnil,Cnil); |
4214 |
goto T1440; |
goto T1473; |
4215 |
T1440:; |
T1473:; |
4216 |
if((CMPcar((V828)))!=Cnil){ |
if((CMPcar((V766)))!=Cnil){ |
4217 |
goto T1442;} |
goto T1475;} |
4218 |
V831= CMPcar((V833)); |
V769= CMPcar((V771)); |
4219 |
goto T1437; |
goto T1470; |
4220 |
goto T1442; |
goto T1475; |
4221 |
T1442:; |
T1475:; |
4222 |
V834= (*(LnkLI304))((V828),(V829),(V830)); |
V772= (*(LnkLI331))((V766),(V767),(V768)); |
4223 |
V835 = (V833); |
(void)((*(LnkLI309))(/* INLINE-ARGS */V772,(V771))); |
4224 |
(void)((*(LnkLI282))(/* INLINE-ARGS */V834,V835)); |
goto T1473;} |
4225 |
goto T1440;} |
goto T1470; |
4226 |
goto T1437; |
T1470:; |
4227 |
T1437:; |
V773 = CMPmake_fixnum((long)length((V767))); |
4228 |
V836 = CMPmake_fixnum((long)length((V829))); |
V770= list(2,VV[235],V773); |
4229 |
V832= list(2,VV[209],V836); |
V774= list(2,VV[238],list(3,VV[239],(V770),VV[222])); |
4230 |
V837= list(2,VV[212],list(3,VV[213],(V832),VV[202])); |
base[7]= list(4,VV[236],VV[237],/* INLINE-ARGS */V774,list(2,VV[186],list(5,VV[236],VV[240],VV[241],make_cons(VV[242],(V769)),VV[193]))); |
4231 |
base[7]= list(4,VV[210],VV[211],/* INLINE-ARGS */V837,list(2,VV[170],list(5,VV[210],VV[214],VV[215],make_cons(VV[216],(V831)),VV[175]))); |
base[9]= (V767); |
4232 |
V838 = (V826); |
base[10]= (V770); |
|
base[9]= (V829); |
|
|
base[10]= (V832); |
|
4233 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
4234 |
(void) (*Lnk305)(); |
(void) (*Lnk332)(); |
4235 |
vs_top=sup; |
vs_top=sup; |
4236 |
V839= vs_base[0]; |
V775= vs_base[0]; |
4237 |
base[8]= list(2,V838,V839); |
base[8]= list(2,(V764),V775); |
4238 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
4239 |
return;} |
return;} |
4240 |
} |
} |
4241 |
} |
} |
4242 |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL */ |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL */ |
4243 |
|
|
4244 |
static object LI64(V841) |
static object LI64(V777) |
4245 |
|
|
4246 |
object V841; |
object V777; |
4247 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
4248 |
goto TTL; |
goto TTL; |
4249 |
TTL:; |
TTL:; |
4250 |
V842= make_cons((V841),Cnil); |
V778= make_cons((V777),Cnil); |
4251 |
(void)((*(LnkLI7))(/* INLINE-ARGS */V842)); |
(void)((*(LnkLI7))(/* INLINE-ARGS */V778)); |
4252 |
{object V843 = (*(LnkLI75))((V841)); |
{object V779 = (*(LnkLI75))((V777)); |
4253 |
VMR58(V843)} |
VMR58(V779)} |
4254 |
return Cnil; |
return Cnil; |
4255 |
} |
} |
4256 |
/* local function CONST */ |
/* local function CONST */ |
4260 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4261 |
register object *sup=base+VM59; VC59 |
register object *sup=base+VM59; VC59 |
4262 |
vs_check; |
vs_check; |
4263 |
{object V844; |
{object V780; |
4264 |
check_arg(1); |
check_arg(1); |
4265 |
V844=(base[0]); |
V780=(base[0]); |
4266 |
vs_top=sup; |
vs_top=sup; |
4267 |
goto TTL; |
goto TTL; |
4268 |
TTL:; |
TTL:; |
4269 |
if(type_of((V844))==t_fixnum|| |
if(type_of((V780))==t_fixnum|| |
4270 |
type_of((V844))==t_bignum|| |
type_of((V780))==t_bignum|| |
4271 |
type_of((V844))==t_ratio|| |
type_of((V780))==t_ratio|| |
4272 |
type_of((V844))==t_shortfloat|| |
type_of((V780))==t_shortfloat|| |
4273 |
type_of((V844))==t_longfloat|| |
type_of((V780))==t_longfloat|| |
4274 |
type_of((V844))==t_complex){ |
type_of((V780))==t_complex){ |
4275 |
goto T1453;} |
goto T1486;} |
4276 |
if(!(type_of((V844))==t_character)){ |
if(!(type_of((V780))==t_character)){ |
4277 |
goto T1454;} |
goto T1487;} |
4278 |
goto T1453; |
goto T1486; |
4279 |
T1453:; |
T1486:; |
4280 |
base[1]= (V844); |
base[1]= (V780); |
4281 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4282 |
return; |
return; |
4283 |
goto T1454; |
goto T1487; |
4284 |
T1454:; |
T1487:; |
4285 |
if(!(type_of((V844))==t_symbol)){ |
if(!(type_of((V780))==t_symbol)){ |
4286 |
goto T1459;} |
goto T1492;} |
4287 |
base[1]= (V844); |
base[1]= (V780); |
4288 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4289 |
Lsymbol_package(); |
Lsymbol_package(); |
4290 |
vs_top=sup; |
vs_top=sup; |
4291 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4292 |
goto T1459;} |
goto T1492;} |
4293 |
base[1]= list(2,VV[4],(V844)); |
base[1]= list(2,VV[4],(V780)); |
4294 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4295 |
return; |
return; |
4296 |
goto T1459; |
goto T1492; |
4297 |
T1459:; |
T1492:; |
4298 |
base[1]= list(3,VV[201],VV[202],(*(LnkLI306))(base0[0],(V844))); |
base[1]= list(3,VV[221],VV[222],(*(LnkLI333))(base0[0],(V780))); |
4299 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4300 |
return; |
return; |
4301 |
} |
} |
4307 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4308 |
register object *sup=base+VM60; VC60 |
register object *sup=base+VM60; VC60 |
4309 |
vs_check; |
vs_check; |
4310 |
{object V845; |
{object V781; |
4311 |
object V846; |
object V782; |
4312 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4313 |
V845=(base[0]); |
V781=(base[0]); |
4314 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4315 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4316 |
{object *p=vs_top; |
{object *p=vs_top; |
4317 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4318 |
V846=(base[1]); |
V782=(base[1]); |
4319 |
vs_top=sup; |
vs_top=sup; |
4320 |
{object V847; |
{object V783; |
4321 |
if(((base0[3]->c.c_car))==Cnil){ |
if(((base0[3]->c.c_car))==Cnil){ |
4322 |
goto T1466;} |
goto T1499;} |
4323 |
V847= (VFUN_NARGS=2,(*(LnkLI307))((base0[4]->c.c_car),(base0[3]->c.c_car))); |
V783= (VFUN_NARGS=2,(*(LnkLI334))((base0[4]->c.c_car),(base0[3]->c.c_car))); |
4324 |
goto T1464; |
goto T1497; |
4325 |
goto T1466; |
goto T1499; |
4326 |
T1466:; |
T1499:; |
4327 |
V847= (V845); |
V783= (V781); |
4328 |
goto T1464; |
goto T1497; |
4329 |
T1464:; |
T1497:; |
4330 |
if(!(((V847))==((V845)))){ |
if(!(((V783))==((V781)))){ |
4331 |
goto T1468;} |
goto T1501;} |
4332 |
if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4333 |
goto T1469;} |
goto T1502;} |
4334 |
goto T1468; |
goto T1501; |
4335 |
T1468:; |
T1501:; |
4336 |
base[2]= (V847); |
base[2]= (V783); |
4337 |
base[3]= (V846); |
base[3]= (V782); |
4338 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4339 |
(void) (*Lnk124)(); |
(void) (*Lnk132)(); |
4340 |
return; |
return; |
4341 |
goto T1469; |
goto T1502; |
4342 |
T1469:; |
T1502:; |
4343 |
{register object V848; |
{register object V784; |
4344 |
register object V849; |
register object V785; |
4345 |
{register object V850; |
{register object V786; |
4346 |
V850= (base0[6]->c.c_car); |
V786= (base0[6]->c.c_car); |
4347 |
if(!(type_of((V850))==t_cons)){ |
if(!(type_of((V786))==t_cons)){ |
4348 |
goto T1477;} |
goto T1510;} |
4349 |
if(!((CMPcar((V850)))==(VV[130]))){ |
if(!((CMPcar((V786)))==(VV[138]))){ |
4350 |
goto T1477;} |
goto T1510;} |
4351 |
V848= (*(LnkLI111))(CMPcadr((V850)),CMPcaddr((V850)),Cnil,(V846)); |
V784= (*(LnkLI119))(CMPcadr((V786)),CMPcaddr((V786)),Cnil,(V782)); |
4352 |
goto T1475; |
goto T1508; |
4353 |
goto T1477; |
goto T1510; |
4354 |
T1477:; |
T1510:; |
4355 |
V848= ( |
V784= ( |
4356 |
(type_of((V850)) == t_sfun ?(*(((V850))->sfn.sfn_self)): |
(type_of((V786)) == t_sfun ?(*(((V786))->sfn.sfn_self)): |
4357 |
(fcall.argd=2,type_of((V850))==t_vfun) ? |
(fcall.argd=2,type_of((V786))==t_vfun) ? |
4358 |
(*(((V850))->sfn.sfn_self)): |
(*(((V786))->sfn.sfn_self)): |
4359 |
(fcall.fun=((V850)),fcalln))(Cnil,(V846)));} |
(fcall.fun=((V786)),fcalln))(Cnil,(V782)));} |
4360 |
goto T1475; |
goto T1508; |
4361 |
T1475:; |
T1508:; |
4362 |
base[4]=VV[96]->s.s_gfdef; |
base[4]=VV[96]->s.s_gfdef; |
4363 |
base[5]= (base0[7]->c.c_car); |
base[5]= (base0[7]->c.c_car); |
4364 |
{object V851; |
{object V787; |
4365 |
V851= (V848); |
V787= (V784); |
4366 |
vs_top=base+6; |
vs_top=base+6; |
4367 |
while(V851!=Cnil) |
while(V787!=Cnil) |
4368 |
{vs_push((V851)->c.c_car);V851=(V851)->c.c_cdr;} |
{vs_push((V787)->c.c_car);V787=(V787)->c.c_cdr;} |
4369 |
vs_base=base+5;} |
vs_base=base+5;} |
4370 |
(void) (*Lnk96)(Lclptr96); |
(void) (*Lnk96)(Lclptr96); |
4371 |
vs_top=sup; |
vs_top=sup; |
4372 |
V849= vs_base[0]; |
V785= vs_base[0]; |
4373 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
4374 |
base[5]= VV[131]; |
base[5]= VV[139]; |
4375 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4376 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
4377 |
vs_top=sup; |
vs_top=sup; |
4378 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4379 |
goto T1487;} |
goto T1520;} |
4380 |
(void)(( |
(void)(( |
4381 |
V852 = STREF(object,(base0[0]->c.c_car),0), |
V788 = STREF(object,(base0[0]->c.c_car),0), |
4382 |
(type_of(V852) == t_sfun ?(*((V852)->sfn.sfn_self)): |
(type_of(V788) == t_sfun ?(*((V788)->sfn.sfn_self)): |
4383 |
(fcall.argd=4,type_of(V852)==t_vfun) ? |
(fcall.argd=4,type_of(V788)==t_vfun) ? |
4384 |
(*((V852)->sfn.sfn_self)): |
(*((V788)->sfn.sfn_self)): |
4385 |
(fcall.fun=(V852),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V849),(V848)))); |
(fcall.fun=(V788),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V785),(V784)))); |
4386 |
goto T1484; |
goto T1517; |
4387 |
goto T1487; |
goto T1520; |
4388 |
T1487:; |
T1520:; |
4389 |
{register object V853; |
{object V789; |
4390 |
V853= (base0[0]->c.c_car); |
V789= (base0[0]->c.c_car); |
4391 |
base[4]= (V853); |
{register object V790; |
4392 |
base[5]= VV[132]; |
V790= (V789); |
4393 |
|
base[4]= (V790); |
4394 |
|
base[5]= VV[140]; |
4395 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4396 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
4397 |
vs_top=sup; |
vs_top=sup; |
4398 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4399 |
goto T1492;} |
goto T1525;} |
4400 |
{object V854; |
{object V791; |
4401 |
object V855; |
object V792; |
4402 |
register object V856; |
register object V793; |
4403 |
V854= STREF(object,(base0[0]->c.c_car),0); |
V791= STREF(object,(base0[0]->c.c_car),0); |
4404 |
V855= make_cons((V849),(V848)); |
V792= make_cons((V785),(V784)); |
4405 |
V856= STREF(object,(base0[0]->c.c_car),4); |
V793= STREF(object,(base0[0]->c.c_car),4); |
4406 |
if(((V856))==Cnil){ |
if(((V793))==Cnil){ |
4407 |
goto T1500;} |
goto T1533;} |
4408 |
if((CMPcdr((V856)))!=Cnil){ |
if((CMPcdr((V793)))!=Cnil){ |
4409 |
goto T1500;} |
goto T1533;} |
4410 |
(void)(( |
(void)(( |
4411 |
(type_of((V854)) == t_sfun ?(*(((V854))->sfn.sfn_self)): |
(type_of((V791)) == t_sfun ?(*(((V791))->sfn.sfn_self)): |
4412 |
(fcall.argd=2,type_of((V854))==t_vfun) ? |
(fcall.argd=2,type_of((V791))==t_vfun) ? |
4413 |
(*(((V854))->sfn.sfn_self)): |
(*(((V791))->sfn.sfn_self)): |
4414 |
(fcall.fun=((V854)),fcalln))((V855),CMPcar((V856))))); |
(fcall.fun=((V791)),fcalln))((V792),CMPcar((V793))))); |
4415 |
goto T1484; |
goto T1517; |
4416 |
goto T1500; |
goto T1533; |
4417 |
T1500:; |
T1533:; |
4418 |
base[4]= (V854); |
base[4]= (V791); |
4419 |
base[5]= (V855); |
base[5]= (V792); |
4420 |
{object V857; |
{object V794; |
4421 |
V857= (V856); |
V794= (V793); |
4422 |
vs_top=base+6; |
vs_top=base+6; |
4423 |
while(V857!=Cnil) |
while(V794!=Cnil) |
4424 |
{vs_push((V857)->c.c_car);V857=(V857)->c.c_cdr;} |
{vs_push((V794)->c.c_car);V794=(V794)->c.c_cdr;} |
4425 |
vs_base=base+5;} |
vs_base=base+5;} |
4426 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4427 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4428 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4429 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4430 |
vs_top=sup; |
vs_top=sup; |
4431 |
goto T1484;} |
goto T1517;} |
4432 |
goto T1492; |
goto T1525; |
4433 |
T1492:; |
T1525:; |
4434 |
base[4]= (V853); |
base[4]= (V790); |
4435 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4436 |
Lfunctionp(); |
Lfunctionp(); |
4437 |
vs_top=sup; |
vs_top=sup; |
4438 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4439 |
goto T1508;} |
goto T1541;} |
4440 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
4441 |
base[5]= (V849); |
base[5]= (V785); |
4442 |
{object V858; |
{object V795; |
4443 |
V858= (V848); |
V795= (V784); |
4444 |
vs_top=base+6; |
vs_top=base+6; |
4445 |
while(V858!=Cnil) |
while(V795!=Cnil) |
4446 |
{vs_push((V858)->c.c_car);V858=(V858)->c.c_cdr;} |
{vs_push((V795)->c.c_car);V795=(V795)->c.c_cdr;} |
4447 |
vs_base=base+5;} |
vs_base=base+5;} |
4448 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4449 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4450 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4451 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4452 |
vs_top=sup; |
vs_top=sup; |
4453 |
goto T1484; |
goto T1517; |
4454 |
goto T1508; |
goto T1541; |
4455 |
T1508:; |
T1541:; |
4456 |
base[5]= VV[97]; |
base[4]= VV[101]; |
4457 |
base[6]= (V853); |
base[5]= VV[102]; |
4458 |
base[7]= VV[144]; |
base[6]= VV[141]; |
4459 |
vs_top=(vs_base=base+5)+3; |
base[7]= VV[104]; |
4460 |
(void) (*Lnk309)(); |
base[8]= (V789); |
4461 |
vs_top=sup; |
base[9]= VV[105]; |
4462 |
base[4]= vs_base[0]; |
base[10]= VV[159]; |
4463 |
vs_top=(vs_base=base+4)+1; |
base[11]= VV[107]; |
4464 |
Lerror(); |
base[12]= VV[160]; |
4465 |
vs_top=sup;} |
vs_top=(vs_base=base+4)+9; |
4466 |
goto T1484; |
(void) (*Lnk281)(); |
4467 |
T1484:; |
vs_top=sup;}} |
4468 |
base[4]= (V849); |
goto T1517; |
4469 |
|
T1517:; |
4470 |
|
base[4]= (V785); |
4471 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4472 |
return;}} |
return;}} |
4473 |
} |
} |
4479 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4480 |
register object *sup=base+VM61; VC61 |
register object *sup=base+VM61; VC61 |
4481 |
vs_check; |
vs_check; |
4482 |
{object V859; |
{object V796; |
4483 |
object V860; |
object V797; |
4484 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4485 |
V859=(base[0]); |
V796=(base[0]); |
4486 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4487 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4488 |
{object *p=vs_top; |
{object *p=vs_top; |
4489 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4490 |
V860=(base[1]); |
V797=(base[1]); |
4491 |
vs_top=sup; |
vs_top=sup; |
4492 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
4493 |
base[3]= VV[131]; |
base[3]= VV[139]; |
4494 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4495 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
4496 |
vs_top=sup; |
vs_top=sup; |
4497 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4498 |
goto T1520;} |
goto T1558;} |
4499 |
base[2]= STREF(object,(base0[0]->c.c_car),0); |
base[2]= STREF(object,(base0[0]->c.c_car),0); |
4500 |
base[3]= STREF(object,(base0[0]->c.c_car),4); |
base[3]= STREF(object,(base0[0]->c.c_car),4); |
4501 |
base[4]= STREF(object,(base0[0]->c.c_car),8); |
base[4]= STREF(object,(base0[0]->c.c_car),8); |
4502 |
base[5]= (V859); |
base[5]= (V796); |
4503 |
base[6]= Ct; |
base[6]= Ct; |
4504 |
base[7]= (V860); |
base[7]= (V797); |
4505 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
4506 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4507 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4508 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4509 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4510 |
return; |
return; |
4511 |
goto T1520; |
goto T1558; |
4512 |
T1520:; |
T1558:; |
4513 |
{register object V861; |
{object V798; |
4514 |
V861= (base0[0]->c.c_car); |
V798= (base0[0]->c.c_car); |
4515 |
base[2]= (V861); |
{register object V799; |
4516 |
base[3]= VV[132]; |
V799= (V798); |
4517 |
|
base[2]= (V799); |
4518 |
|
base[3]= VV[140]; |
4519 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4520 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
4521 |
vs_top=sup; |
vs_top=sup; |
4522 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4523 |
goto T1531;} |
goto T1569;} |
4524 |
{object V862; |
{object V800; |
4525 |
object V863; |
object V801; |
4526 |
register object V864; |
register object V802; |
4527 |
V862= STREF(object,(base0[0]->c.c_car),0); |
V800= STREF(object,(base0[0]->c.c_car),0); |
4528 |
V863= listA(3,(V859),Ct,(V860)); |
V801= listA(3,(V796),Ct,(V797)); |
4529 |
V864= STREF(object,(base0[0]->c.c_car),4); |
V802= STREF(object,(base0[0]->c.c_car),4); |
4530 |
if(((V864))==Cnil){ |
if(((V802))==Cnil){ |
4531 |
goto T1539;} |
goto T1577;} |
4532 |
if((CMPcdr((V864)))!=Cnil){ |
if((CMPcdr((V802)))!=Cnil){ |
4533 |
goto T1539;} |
goto T1577;} |
4534 |
base[2]= (V863); |
base[2]= (V801); |
4535 |
base[3]= CMPcar((V864)); |
base[3]= CMPcar((V802)); |
4536 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4537 |
{object _funobj = (V862);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V800);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4538 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4539 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4540 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4541 |
return; |
return; |
4542 |
goto T1539; |
goto T1577; |
4543 |
T1539:; |
T1577:; |
4544 |
base[2]= (V862); |
base[2]= (V800); |
4545 |
base[3]= (V863); |
base[3]= (V801); |
4546 |
{object V865; |
{object V803; |
4547 |
V865= (V864); |
V803= (V802); |
4548 |
vs_top=base+4; |
vs_top=base+4; |
4549 |
while(V865!=Cnil) |
while(V803!=Cnil) |
4550 |
{vs_push((V865)->c.c_car);V865=(V865)->c.c_cdr;} |
{vs_push((V803)->c.c_car);V803=(V803)->c.c_cdr;} |
4551 |
vs_base=base+3;} |
vs_base=base+3;} |
4552 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4553 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4554 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4555 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4556 |
return;} |
return;} |
4557 |
goto T1531; |
goto T1569; |
4558 |
T1531:; |
T1569:; |
4559 |
base[2]= (V861); |
base[2]= (V799); |
4560 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4561 |
Lfunctionp(); |
Lfunctionp(); |
4562 |
vs_top=sup; |
vs_top=sup; |
4563 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4564 |
goto T1549;} |
goto T1587;} |
4565 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
4566 |
base[3]= (V859); |
base[3]= (V796); |
4567 |
base[4]= Ct; |
base[4]= Ct; |
4568 |
{object V866; |
{object V804; |
4569 |
V866= (V860); |
V804= (V797); |
4570 |
vs_top=base+5; |
vs_top=base+5; |
4571 |
while(V866!=Cnil) |
while(V804!=Cnil) |
4572 |
{vs_push((V866)->c.c_car);V866=(V866)->c.c_cdr;} |
{vs_push((V804)->c.c_car);V804=(V804)->c.c_cdr;} |
4573 |
vs_base=base+3;} |
vs_base=base+3;} |
4574 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4575 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4576 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4577 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4578 |
return; |
return; |
4579 |
goto T1549; |
goto T1587; |
4580 |
T1549:; |
T1587:; |
4581 |
base[3]= VV[98]; |
base[2]= VV[101]; |
4582 |
base[4]= (V861); |
base[3]= VV[102]; |
4583 |
base[5]= VV[143]; |
base[4]= VV[141]; |
4584 |
vs_top=(vs_base=base+3)+3; |
base[5]= VV[104]; |
4585 |
(void) (*Lnk309)(); |
base[6]= (V798); |
4586 |
vs_top=sup; |
base[7]= VV[105]; |
4587 |
base[2]= vs_base[0]; |
base[8]= VV[157]; |
4588 |
vs_top=(vs_base=base+2)+1; |
base[9]= VV[107]; |
4589 |
Lerror(); |
base[10]= VV[158]; |
4590 |
return;} |
vs_top=(vs_base=base+2)+9; |
4591 |
|
(void) (*Lnk281)(); |
4592 |
|
return;}} |
4593 |
} |
} |
4594 |
} |
} |
4595 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
4599 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4600 |
register object *sup=base+VM62; VC62 |
register object *sup=base+VM62; VC62 |
4601 |
vs_check; |
vs_check; |
4602 |
{object V867; |
{object V805; |
4603 |
object V868; |
object V806; |
4604 |
object V869; |
object V807; |
4605 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
4606 |
V867=(base[0]); |
V805=(base[0]); |
4607 |
V868=(base[1]); |
V806=(base[1]); |
4608 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
4609 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4610 |
{object *p=vs_top; |
{object *p=vs_top; |
4611 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4612 |
V869=(base[2]); |
V807=(base[2]); |
4613 |
vs_top=sup; |
vs_top=sup; |
4614 |
{register object V870; |
{register object V808; |
4615 |
V870= (base0[3]->c.c_car); |
V808= (base0[3]->c.c_car); |
4616 |
if(!(type_of((V870))==t_cons)){ |
if(!(type_of((V808))==t_cons)){ |
4617 |
goto T1562;} |
goto T1605;} |
4618 |
if(!((CMPcar((V870)))==(VV[130]))){ |
if(!((CMPcar((V808)))==(VV[138]))){ |
4619 |
goto T1562;} |
goto T1605;} |
4620 |
(void)((*(LnkLI111))(CMPcadr((V870)),CMPcaddr((V870)),(V867),(V869))); |
(void)((*(LnkLI119))(CMPcadr((V808)),CMPcaddr((V808)),(V805),(V807))); |
4621 |
goto T1560; |
goto T1603; |
4622 |
goto T1562; |
goto T1605; |
4623 |
T1562:; |
T1605:; |
4624 |
(void)(( |
(void)(( |
4625 |
(type_of((V870)) == t_sfun ?(*(((V870))->sfn.sfn_self)): |
(type_of((V808)) == t_sfun ?(*(((V808))->sfn.sfn_self)): |
4626 |
(fcall.argd=2,type_of((V870))==t_vfun) ? |
(fcall.argd=2,type_of((V808))==t_vfun) ? |
4627 |
(*(((V870))->sfn.sfn_self)): |
(*(((V808))->sfn.sfn_self)): |
4628 |
(fcall.fun=((V870)),fcalln))((V867),(V869))));} |
(fcall.fun=((V808)),fcalln))((V805),(V807))));} |
4629 |
goto T1560; |
goto T1603; |
4630 |
T1560:; |
T1603:; |
4631 |
base[3]= (V867); |
base[3]= (V805); |
4632 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4633 |
return; |
return; |
4634 |
} |
} |
4640 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4641 |
register object *sup=base+VM63; VC63 |
register object *sup=base+VM63; VC63 |
4642 |
vs_check; |
vs_check; |
4643 |
{object V871; |
{object V809; |
4644 |
object V872; |
object V810; |
4645 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4646 |
V871=(base[0]); |
V809=(base[0]); |
4647 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4648 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4649 |
{object *p=vs_top; |
{object *p=vs_top; |
4650 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4651 |
V872=(base[1]); |
V810=(base[1]); |
4652 |
vs_top=sup; |
vs_top=sup; |
4653 |
{object V873; |
{object V811; |
4654 |
if(((base0[6]->c.c_car))==Cnil){ |
if(((base0[6]->c.c_car))==Cnil){ |
4655 |
goto T1568;} |
goto T1611;} |
4656 |
V873= (VFUN_NARGS=2,(*(LnkLI307))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
V811= (VFUN_NARGS=2,(*(LnkLI334))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
4657 |
goto T1566; |
goto T1609; |
4658 |
goto T1568; |
goto T1611; |
4659 |
T1568:; |
T1611:; |
4660 |
V873= (V871); |
V811= (V809); |
4661 |
goto T1566; |
goto T1609; |
4662 |
T1566:; |
T1609:; |
4663 |
if(!(((V873))==((V871)))){ |
if(!(((V811))==((V809)))){ |
4664 |
goto T1570;} |
goto T1613;} |
4665 |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4666 |
goto T1571;} |
goto T1614;} |
4667 |
goto T1570; |
goto T1613; |
4668 |
T1570:; |
T1613:; |
4669 |
base[2]= (V873); |
base[2]= (V811); |
4670 |
base[3]= (V872); |
base[3]= (V810); |
4671 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4672 |
(void) (*Lnk124)(); |
(void) (*Lnk132)(); |
4673 |
return; |
return; |
4674 |
goto T1571; |
goto T1614; |
4675 |
T1571:; |
T1614:; |
4676 |
{register object V874; |
{register object V812; |
4677 |
object V875; |
object V813; |
4678 |
V874= ( |
V812= ( |
4679 |
(type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
(type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
4680 |
(fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ? |
(fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ? |
4681 |
(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
4682 |
(fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car))); |
(fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car))); |
4683 |
{object V876; |
{object V814; |
4684 |
V876= (base0[1]->c.c_car); |
V814= (base0[1]->c.c_car); |
4685 |
if(!(type_of((V876))==t_cons)){ |
if(!(type_of((V814))==t_cons)){ |
4686 |
goto T1580;} |
goto T1623;} |
4687 |
if(!((CMPcar((V876)))==(VV[130]))){ |
if(!((CMPcar((V814)))==(VV[138]))){ |
4688 |
goto T1580;} |
goto T1623;} |
4689 |
V875= (*(LnkLI111))(CMPcadr((V876)),CMPcaddr((V876)),(V874),(V872)); |
V813= (*(LnkLI119))(CMPcadr((V814)),CMPcaddr((V814)),(V812),(V810)); |
4690 |
goto T1578; |
goto T1621; |
4691 |
goto T1580; |
goto T1623; |
4692 |
T1580:; |
T1623:; |
4693 |
V875= ( |
V813= ( |
4694 |
(type_of((V876)) == t_sfun ?(*(((V876))->sfn.sfn_self)): |
(type_of((V814)) == t_sfun ?(*(((V814))->sfn.sfn_self)): |
4695 |
(fcall.argd=2,type_of((V876))==t_vfun) ? |
(fcall.argd=2,type_of((V814))==t_vfun) ? |
4696 |
(*(((V876))->sfn.sfn_self)): |
(*(((V814))->sfn.sfn_self)): |
4697 |
(fcall.fun=((V876)),fcalln))((V874),(V872)));} |
(fcall.fun=((V814)),fcalln))((V812),(V810)));} |
4698 |
goto T1578; |
goto T1621; |
4699 |
T1578:; |
T1621:; |
4700 |
{object V877; |
{object V815; |
4701 |
register object V878; |
register object V816; |
4702 |
V877= (base0[3]->c.c_car); |
V815= (base0[3]->c.c_car); |
4703 |
V878= CMPcar((V877)); |
V816= CMPcar((V815)); |
4704 |
goto T1588; |
goto T1631; |
4705 |
T1588:; |
T1631:; |
4706 |
if(!(((V877))==Cnil)){ |
if(!(((V815))==Cnil)){ |
4707 |
goto T1589;} |
goto T1632;} |
4708 |
goto T1584; |
goto T1627; |
4709 |
goto T1589; |
goto T1632; |
4710 |
T1589:; |
T1632:; |
4711 |
base[5]= (V878); |
base[5]= (V816); |
4712 |
base[6]= VV[131]; |
base[6]= VV[139]; |
4713 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4714 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
4715 |
vs_top=sup; |
vs_top=sup; |
4716 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4717 |
goto T1596;} |
goto T1639;} |
4718 |
(void)(( |
(void)(( |
4719 |
V879 = STREF(object,(V878),0), |
V817 = STREF(object,(V816),0), |
4720 |
(type_of(V879) == t_sfun ?(*((V879)->sfn.sfn_self)): |
(type_of(V817) == t_sfun ?(*((V817)->sfn.sfn_self)): |
4721 |
(fcall.argd=5,type_of(V879)==t_vfun) ? |
(fcall.argd=5,type_of(V817)==t_vfun) ? |
4722 |
(*((V879)->sfn.sfn_self)): |
(*((V817)->sfn.sfn_self)): |
4723 |
(fcall.fun=(V879),fcalln))(STREF(object,(V878),4),STREF(object,(V878),8),(V874),Ct,(V875)))); |
(fcall.fun=(V817),fcalln))(STREF(object,(V816),4),STREF(object,(V816),8),(V812),Ct,(V813)))); |
4724 |
goto T1593; |
goto T1636; |
4725 |
goto T1596; |
goto T1639; |
4726 |
T1596:; |
T1639:; |
4727 |
base[5]= V878; |
base[5]= V816; |
4728 |
base[6]= VV[132]; |
base[6]= VV[140]; |
4729 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4730 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
4731 |
vs_top=sup; |
vs_top=sup; |
4732 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4733 |
goto T1601;} |
goto T1644;} |
4734 |
{object V881; |
{object V820; |
4735 |
object V882; |
object V821; |
4736 |
object V883; |
object V822; |
4737 |
V881= STREF(object,(V878),0); |
V820= STREF(object,(V816),0); |
4738 |
V882= listA(3,(V874),Ct,(V875)); |
V821= listA(3,(V812),Ct,(V813)); |
4739 |
V883= STREF(object,(V878),4); |
V822= STREF(object,(V816),4); |
4740 |
if(((V883))==Cnil){ |
if(((V822))==Cnil){ |
4741 |
goto T1609;} |
goto T1652;} |
4742 |
if((CMPcdr((V883)))!=Cnil){ |
if((CMPcdr((V822)))!=Cnil){ |
4743 |
goto T1609;} |
goto T1652;} |
4744 |
(void)(( |
(void)(( |
4745 |
(type_of((V881)) == t_sfun ?(*(((V881))->sfn.sfn_self)): |
(type_of((V820)) == t_sfun ?(*(((V820))->sfn.sfn_self)): |
4746 |
(fcall.argd=2,type_of((V881))==t_vfun) ? |
(fcall.argd=2,type_of((V820))==t_vfun) ? |
4747 |
(*(((V881))->sfn.sfn_self)): |
(*(((V820))->sfn.sfn_self)): |
4748 |
(fcall.fun=((V881)),fcalln))((V882),CMPcar((V883))))); |
(fcall.fun=((V820)),fcalln))((V821),CMPcar((V822))))); |
4749 |
goto T1593; |
goto T1636; |
4750 |
goto T1609; |
goto T1652; |
4751 |
T1609:; |
T1652:; |
4752 |
base[5]= (V881); |
base[5]= (V820); |
4753 |
base[6]= (V882); |
base[6]= (V821); |
4754 |
{object V884; |
{object V823; |
4755 |
V884= (V883); |
V823= (V822); |
4756 |
vs_top=base+7; |
vs_top=base+7; |
4757 |
while(V884!=Cnil) |
while(V823!=Cnil) |
4758 |
{vs_push((V884)->c.c_car);V884=(V884)->c.c_cdr;} |
{vs_push((V823)->c.c_car);V823=(V823)->c.c_cdr;} |
4759 |
vs_base=base+6;} |
vs_base=base+6;} |
4760 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4761 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4762 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4763 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4764 |
vs_top=sup; |
vs_top=sup; |
4765 |
goto T1593;} |
goto T1636;} |
4766 |
goto T1601; |
goto T1644; |
4767 |
T1601:; |
T1644:; |
4768 |
base[5]= V878; |
base[5]= V816; |
4769 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4770 |
Lfunctionp(); |
Lfunctionp(); |
4771 |
vs_top=sup; |
vs_top=sup; |
4772 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4773 |
goto T1617;} |
goto T1660;} |
4774 |
base[5]= (V878); |
base[5]= (V816); |
4775 |
base[6]= (V874); |
base[6]= (V812); |
4776 |
base[7]= Ct; |
base[7]= Ct; |
4777 |
{object V885; |
{object V824; |
4778 |
V885= (V875); |
V824= (V813); |
4779 |
vs_top=base+8; |
vs_top=base+8; |
4780 |
while(V885!=Cnil) |
while(V824!=Cnil) |
4781 |
{vs_push((V885)->c.c_car);V885=(V885)->c.c_cdr;} |
{vs_push((V824)->c.c_car);V824=(V824)->c.c_cdr;} |
4782 |
vs_base=base+6;} |
vs_base=base+6;} |
4783 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4784 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4785 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4786 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4787 |
vs_top=sup; |
vs_top=sup; |
4788 |
goto T1593; |
goto T1636; |
4789 |
goto T1617; |
goto T1660; |
4790 |
T1617:; |
T1660:; |
4791 |
base[6]= VV[133]; |
base[5]= VV[101]; |
4792 |
base[7]= V878; |
base[6]= VV[102]; |
4793 |
base[8]= VV[136]; |
base[7]= VV[141]; |
4794 |
vs_top=(vs_base=base+6)+3; |
base[8]= VV[104]; |
4795 |
(void) (*Lnk309)(); |
base[9]= V816; |
4796 |
vs_top=sup; |
base[10]= VV[105]; |
4797 |
base[5]= vs_base[0]; |
base[11]= VV[146]; |
4798 |
vs_top=(vs_base=base+5)+1; |
base[12]= VV[107]; |
4799 |
Lerror(); |
base[13]= VV[147]; |
4800 |
vs_top=sup; |
vs_top=(vs_base=base+5)+9; |
4801 |
goto T1593; |
(void) (*Lnk281)(); |
4802 |
T1593:; |
vs_top=sup; |
4803 |
V877= CMPcdr((V877)); |
goto T1636; |
4804 |
V878= CMPcar((V877)); |
T1636:; |
4805 |
goto T1588;} |
V815= CMPcdr((V815)); |
4806 |
goto T1584; |
V816= CMPcar((V815)); |
4807 |
T1584:; |
goto T1631;} |
4808 |
{object V886; |
goto T1627; |
4809 |
register object V887; |
T1627:; |
4810 |
V886= (base0[2]->c.c_car); |
{object V825; |
4811 |
V887= CMPcar((V886)); |
register object V826; |
4812 |
goto T1637; |
V825= (base0[2]->c.c_car); |
4813 |
T1637:; |
V826= CMPcar((V825)); |
4814 |
if(!(((V886))==Cnil)){ |
goto T1685; |
4815 |
goto T1638;} |
T1685:; |
4816 |
goto T1633; |
if(!(((V825))==Cnil)){ |
4817 |
goto T1638; |
goto T1686;} |
4818 |
T1638:; |
goto T1681; |
4819 |
base[5]= (V887); |
goto T1686; |
4820 |
base[6]= VV[131]; |
T1686:; |
4821 |
|
base[5]= (V826); |
4822 |
|
base[6]= VV[139]; |
4823 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4824 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
4825 |
vs_top=sup; |
vs_top=sup; |
4826 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4827 |
goto T1645;} |
goto T1693;} |
4828 |
(void)(( |
(void)(( |
4829 |
V888 = STREF(object,(V887),0), |
V827 = STREF(object,(V826),0), |
4830 |
(type_of(V888) == t_sfun ?(*((V888)->sfn.sfn_self)): |
(type_of(V827) == t_sfun ?(*((V827)->sfn.sfn_self)): |
4831 |
(fcall.argd=4,type_of(V888)==t_vfun) ? |
(fcall.argd=4,type_of(V827)==t_vfun) ? |
4832 |
(*((V888)->sfn.sfn_self)): |
(*((V827)->sfn.sfn_self)): |
4833 |
(fcall.fun=(V888),fcalln))(STREF(object,(V887),4),STREF(object,(V887),8),(V874),(V875)))); |
(fcall.fun=(V827),fcalln))(STREF(object,(V826),4),STREF(object,(V826),8),(V812),(V813)))); |
4834 |
goto T1642; |
goto T1690; |
4835 |
goto T1645; |
goto T1693; |
4836 |
T1645:; |
T1693:; |
4837 |
base[5]= V887; |
base[5]= V826; |
4838 |
base[6]= VV[132]; |
base[6]= VV[140]; |
4839 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4840 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
4841 |
vs_top=sup; |
vs_top=sup; |
4842 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4843 |
goto T1650;} |
goto T1698;} |
4844 |
{object V890; |
{object V830; |
4845 |
object V891; |
object V831; |
4846 |
object V892; |
object V832; |
4847 |
V890= STREF(object,(V887),0); |
V830= STREF(object,(V826),0); |
4848 |
V891= make_cons((V874),(V875)); |
V831= make_cons((V812),(V813)); |
4849 |
V892= STREF(object,(V887),4); |
V832= STREF(object,(V826),4); |
4850 |
if(((V892))==Cnil){ |
if(((V832))==Cnil){ |
4851 |
goto T1658;} |
goto T1706;} |
4852 |
if((CMPcdr((V892)))!=Cnil){ |
if((CMPcdr((V832)))!=Cnil){ |
4853 |
goto T1658;} |
goto T1706;} |
4854 |
(void)(( |
(void)(( |
4855 |
(type_of((V890)) == t_sfun ?(*(((V890))->sfn.sfn_self)): |
(type_of((V830)) == t_sfun ?(*(((V830))->sfn.sfn_self)): |
4856 |
(fcall.argd=2,type_of((V890))==t_vfun) ? |
(fcall.argd=2,type_of((V830))==t_vfun) ? |
4857 |
(*(((V890))->sfn.sfn_self)): |
(*(((V830))->sfn.sfn_self)): |
4858 |
(fcall.fun=((V890)),fcalln))((V891),CMPcar((V892))))); |
(fcall.fun=((V830)),fcalln))((V831),CMPcar((V832))))); |
4859 |
goto T1642; |
goto T1690; |
4860 |
goto T1658; |
goto T1706; |
4861 |
T1658:; |
T1706:; |
4862 |
base[5]= (V890); |
base[5]= (V830); |
4863 |
base[6]= (V891); |
base[6]= (V831); |
4864 |
{object V893; |
{object V833; |
4865 |
V893= (V892); |
V833= (V832); |
4866 |
vs_top=base+7; |
vs_top=base+7; |
4867 |
while(V893!=Cnil) |
while(V833!=Cnil) |
4868 |
{vs_push((V893)->c.c_car);V893=(V893)->c.c_cdr;} |
{vs_push((V833)->c.c_car);V833=(V833)->c.c_cdr;} |
4869 |
vs_base=base+6;} |
vs_base=base+6;} |
4870 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4871 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4872 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4873 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4874 |
vs_top=sup; |
vs_top=sup; |
4875 |
goto T1642;} |
goto T1690;} |
4876 |
goto T1650; |
goto T1698; |
4877 |
T1650:; |
T1698:; |
4878 |
base[5]= V887; |
base[5]= V826; |
4879 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4880 |
Lfunctionp(); |
Lfunctionp(); |
4881 |
vs_top=sup; |
vs_top=sup; |
4882 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4883 |
goto T1666;} |
goto T1714;} |
4884 |
base[5]= (V887); |
base[5]= (V826); |
4885 |
base[6]= (V874); |
base[6]= (V812); |
4886 |
{object V894; |
{object V834; |
4887 |
V894= (V875); |
V834= (V813); |
4888 |
vs_top=base+7; |
vs_top=base+7; |
4889 |
while(V894!=Cnil) |
while(V834!=Cnil) |
4890 |
{vs_push((V894)->c.c_car);V894=(V894)->c.c_cdr;} |
{vs_push((V834)->c.c_car);V834=(V834)->c.c_cdr;} |
4891 |
vs_base=base+6;} |
vs_base=base+6;} |
4892 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4893 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4894 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4895 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4896 |
vs_top=sup; |
vs_top=sup; |
4897 |
goto T1642; |
goto T1690; |
4898 |
goto T1666; |
goto T1714; |
4899 |
T1666:; |
T1714:; |
4900 |
base[6]= VV[133]; |
base[5]= VV[101]; |
4901 |
base[7]= V887; |
base[6]= VV[102]; |
4902 |
base[8]= VV[137]; |
base[7]= VV[141]; |
4903 |
vs_top=(vs_base=base+6)+3; |
base[8]= VV[104]; |
4904 |
(void) (*Lnk309)(); |
base[9]= V826; |
4905 |
vs_top=sup; |
base[10]= VV[105]; |
4906 |
base[5]= vs_base[0]; |
base[11]= VV[148]; |
4907 |
vs_top=(vs_base=base+5)+1; |
base[12]= VV[107]; |
4908 |
Lerror(); |
base[13]= VV[149]; |
4909 |
vs_top=sup; |
vs_top=(vs_base=base+5)+9; |
4910 |
goto T1642; |
(void) (*Lnk281)(); |
4911 |
T1642:; |
vs_top=sup; |
4912 |
V886= CMPcdr((V886)); |
goto T1690; |
4913 |
V887= CMPcar((V886)); |
T1690:; |
4914 |
goto T1637;} |
V825= CMPcdr((V825)); |
4915 |
goto T1633; |
V826= CMPcar((V825)); |
4916 |
T1633:; |
goto T1685;} |
4917 |
base[4]= (V874); |
goto T1681; |
4918 |
|
T1681:; |
4919 |
|
base[4]= (V812); |
4920 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4921 |
return;}} |
return;}} |
4922 |
} |
} |
4928 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4929 |
register object *sup=base+VM64; VC64 |
register object *sup=base+VM64; VC64 |
4930 |
vs_check; |
vs_check; |
4931 |
{object V895; |
{object V835; |
4932 |
register object V896; |
register object V836; |
4933 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4934 |
V895=(base[0]); |
V835=(base[0]); |
4935 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4936 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4937 |
{object *p=vs_top; |
{object *p=vs_top; |
4938 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4939 |
V896=(base[1]); |
V836=(base[1]); |
4940 |
vs_top=sup; |
vs_top=sup; |
4941 |
{object V897; |
{object V837; |
4942 |
if(((base0[6]->c.c_car))==Cnil){ |
if(((base0[6]->c.c_car))==Cnil){ |
4943 |
goto T1683;} |
goto T1736;} |
4944 |
V897= (VFUN_NARGS=2,(*(LnkLI307))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
V837= (VFUN_NARGS=2,(*(LnkLI334))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
4945 |
goto T1681; |
goto T1734; |
4946 |
goto T1683; |
goto T1736; |
4947 |
T1683:; |
T1736:; |
4948 |
V897= (V895); |
V837= (V835); |
4949 |
goto T1681; |
goto T1734; |
4950 |
T1681:; |
T1734:; |
4951 |
if(!(((V897))==((V895)))){ |
if(!(((V837))==((V835)))){ |
4952 |
goto T1685;} |
goto T1738;} |
4953 |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4954 |
goto T1686;} |
goto T1739;} |
4955 |
goto T1685; |
goto T1738; |
4956 |
T1685:; |
T1738:; |
4957 |
base[2]= (V897); |
base[2]= (V837); |
4958 |
base[3]= (V896); |
base[3]= (V836); |
4959 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4960 |
(void) (*Lnk124)(); |
(void) (*Lnk132)(); |
4961 |
return; |
return; |
4962 |
goto T1686; |
goto T1739; |
4963 |
T1686:; |
T1739:; |
4964 |
{register object V898; |
{register object V838; |
4965 |
{object V899; |
{object V839; |
4966 |
V899= (*(LnkLI310))(); |
V839= (*(LnkLI336))(); |
4967 |
V900 = (V899); |
V840= Ct; |
4968 |
V901 = (base0[5]->c.c_car); |
STSET(object,(V839),0, (base0[5]->c.c_car)); |
4969 |
V902= Ct; |
(void)((base0[5]->c.c_car)); |
|
STSET(object,V900,0, V901); |
|
|
(void)(V901); |
|
|
V903 = (V899); |
|
4970 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
4971 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4972 |
Lcopy_seq(); |
Lcopy_seq(); |
4973 |
vs_top=sup; |
vs_top=sup; |
4974 |
V904= vs_base[0]; |
V841= vs_base[0]; |
4975 |
V905= Ct; |
V842= Ct; |
4976 |
STSET(object,V903,4, V904); |
STSET(object,(V839),4, V841); |
4977 |
(void)(V904); |
(void)(V841); |
4978 |
V898= (V899);} |
V838= (V839);} |
4979 |
{object V906; |
{object V843; |
4980 |
V906= (base0[1]->c.c_car); |
V843= (base0[1]->c.c_car); |
4981 |
if(!(type_of((V906))==t_cons)){ |
if(!(type_of((V843))==t_cons)){ |
4982 |
goto T1700;} |
goto T1753;} |
4983 |
if(!((CMPcar((V906)))==(VV[130]))){ |
if(!((CMPcar((V843)))==(VV[138]))){ |
4984 |
goto T1700;} |
goto T1753;} |
4985 |
(void)((*(LnkLI111))(CMPcadr((V906)),CMPcaddr((V906)),(V898),(V896))); |
(void)((*(LnkLI119))(CMPcadr((V843)),CMPcaddr((V843)),(V838),(V836))); |
4986 |
goto T1698; |
goto T1751; |
4987 |
goto T1700; |
goto T1753; |
4988 |
T1700:; |
T1753:; |
4989 |
(void)(( |
(void)(( |
4990 |
(type_of((V906)) == t_sfun ?(*(((V906))->sfn.sfn_self)): |
(type_of((V843)) == t_sfun ?(*(((V843))->sfn.sfn_self)): |
4991 |
(fcall.argd=2,type_of((V906))==t_vfun) ? |
(fcall.argd=2,type_of((V843))==t_vfun) ? |
4992 |
(*(((V906))->sfn.sfn_self)): |
(*(((V843))->sfn.sfn_self)): |
4993 |
(fcall.fun=((V906)),fcalln))((V898),(V896))));} |
(fcall.fun=((V843)),fcalln))((V838),(V836))));} |
4994 |
goto T1698; |
goto T1751; |
4995 |
T1698:; |
T1751:; |
4996 |
{object V907; |
{object V844; |
4997 |
register object V908; |
register object V845; |
4998 |
V907= (base0[3]->c.c_car); |
V844= (base0[3]->c.c_car); |
4999 |
V908= CMPcar((V907)); |
V845= CMPcar((V844)); |
5000 |
goto T1708; |
goto T1761; |
5001 |
T1708:; |
T1761:; |
5002 |
if(!(((V907))==Cnil)){ |
if(!(((V844))==Cnil)){ |
5003 |
goto T1709;} |
goto T1762;} |
5004 |
goto T1704; |
goto T1757; |
5005 |
goto T1709; |
goto T1762; |
5006 |
T1709:; |
T1762:; |
5007 |
base[3]= (V908); |
base[3]= (V845); |
5008 |
base[4]= VV[131]; |
base[4]= VV[139]; |
5009 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5010 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
5011 |
vs_top=sup; |
vs_top=sup; |
5012 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5013 |
goto T1716;} |
goto T1769;} |
5014 |
(void)(( |
(void)(( |
5015 |
V909 = STREF(object,(V908),0), |
V846 = STREF(object,(V845),0), |
5016 |
(type_of(V909) == t_sfun ?(*((V909)->sfn.sfn_self)): |
(type_of(V846) == t_sfun ?(*((V846)->sfn.sfn_self)): |
5017 |
(fcall.argd=5,type_of(V909)==t_vfun) ? |
(fcall.argd=5,type_of(V846)==t_vfun) ? |
5018 |
(*((V909)->sfn.sfn_self)): |
(*((V846)->sfn.sfn_self)): |
5019 |
(fcall.fun=(V909),fcalln))(STREF(object,(V908),4),STREF(object,(V908),8),(V898),Ct,(V896)))); |
(fcall.fun=(V846),fcalln))(STREF(object,(V845),4),STREF(object,(V845),8),(V838),Ct,(V836)))); |
5020 |
goto T1713; |
goto T1766; |
5021 |
goto T1716; |
goto T1769; |
5022 |
T1716:; |
T1769:; |
5023 |
base[3]= V908; |
base[3]= V845; |
5024 |
base[4]= VV[132]; |
base[4]= VV[140]; |
5025 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5026 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
5027 |
vs_top=sup; |
vs_top=sup; |
5028 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5029 |
goto T1721;} |
goto T1774;} |
5030 |
{object V911; |
{object V849; |
5031 |
object V912; |
object V850; |
5032 |
object V913; |
object V851; |
5033 |
V911= STREF(object,(V908),0); |
V849= STREF(object,(V845),0); |
5034 |
V912= listA(3,(V898),Ct,(V896)); |
V850= listA(3,(V838),Ct,(V836)); |
5035 |
V913= STREF(object,(V908),4); |
V851= STREF(object,(V845),4); |
5036 |
if(((V913))==Cnil){ |
if(((V851))==Cnil){ |
5037 |
goto T1729;} |
goto T1782;} |
5038 |
if((CMPcdr((V913)))!=Cnil){ |
if((CMPcdr((V851)))!=Cnil){ |
5039 |
goto T1729;} |
goto T1782;} |
5040 |
(void)(( |
(void)(( |
5041 |
(type_of((V911)) == t_sfun ?(*(((V911))->sfn.sfn_self)): |
(type_of((V849)) == t_sfun ?(*(((V849))->sfn.sfn_self)): |
5042 |
(fcall.argd=2,type_of((V911))==t_vfun) ? |
(fcall.argd=2,type_of((V849))==t_vfun) ? |
5043 |
(*(((V911))->sfn.sfn_self)): |
(*(((V849))->sfn.sfn_self)): |
5044 |
(fcall.fun=((V911)),fcalln))((V912),CMPcar((V913))))); |
(fcall.fun=((V849)),fcalln))((V850),CMPcar((V851))))); |
5045 |
goto T1713; |
goto T1766; |
5046 |
goto T1729; |
goto T1782; |
5047 |
T1729:; |
T1782:; |
5048 |
base[3]= (V911); |
base[3]= (V849); |
5049 |
base[4]= (V912); |
base[4]= (V850); |
5050 |
{object V914; |
{object V852; |
5051 |
V914= (V913); |
V852= (V851); |
5052 |
vs_top=base+5; |
vs_top=base+5; |
5053 |
while(V914!=Cnil) |
while(V852!=Cnil) |
5054 |
{vs_push((V914)->c.c_car);V914=(V914)->c.c_cdr;} |
{vs_push((V852)->c.c_car);V852=(V852)->c.c_cdr;} |
5055 |
vs_base=base+4;} |
vs_base=base+4;} |
5056 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5057 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5058 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5059 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5060 |
vs_top=sup; |
vs_top=sup; |
5061 |
goto T1713;} |
goto T1766;} |
5062 |
goto T1721; |
goto T1774; |
5063 |
T1721:; |
T1774:; |
5064 |
base[3]= V908; |
base[3]= V845; |
5065 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5066 |
Lfunctionp(); |
Lfunctionp(); |
5067 |
vs_top=sup; |
vs_top=sup; |
5068 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5069 |
goto T1737;} |
goto T1790;} |
5070 |
base[3]= (V908); |
base[3]= (V845); |
5071 |
base[4]= (V898); |
base[4]= (V838); |
5072 |
base[5]= Ct; |
base[5]= Ct; |
5073 |
{object V915; |
{object V853; |
5074 |
V915= (V896); |
V853= (V836); |
5075 |
vs_top=base+6; |
vs_top=base+6; |
5076 |
while(V915!=Cnil) |
while(V853!=Cnil) |
5077 |
{vs_push((V915)->c.c_car);V915=(V915)->c.c_cdr;} |
{vs_push((V853)->c.c_car);V853=(V853)->c.c_cdr;} |
5078 |
vs_base=base+4;} |
vs_base=base+4;} |
5079 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5080 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5081 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5082 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5083 |
vs_top=sup; |
vs_top=sup; |
5084 |
goto T1713; |
goto T1766; |
5085 |
goto T1737; |
goto T1790; |
5086 |
T1737:; |
T1790:; |
5087 |
base[4]= VV[133]; |
base[3]= VV[101]; |
5088 |
base[5]= V908; |
base[4]= VV[102]; |
5089 |
base[6]= VV[134]; |
base[5]= VV[141]; |
5090 |
vs_top=(vs_base=base+4)+3; |
base[6]= VV[104]; |
5091 |
(void) (*Lnk309)(); |
base[7]= V845; |
5092 |
vs_top=sup; |
base[8]= VV[105]; |
5093 |
base[3]= vs_base[0]; |
base[9]= VV[142]; |
5094 |
vs_top=(vs_base=base+3)+1; |
base[10]= VV[107]; |
5095 |
Lerror(); |
base[11]= VV[143]; |
5096 |
vs_top=sup; |
vs_top=(vs_base=base+3)+9; |
5097 |
goto T1713; |
(void) (*Lnk281)(); |
5098 |
T1713:; |
vs_top=sup; |
5099 |
V907= CMPcdr((V907)); |
goto T1766; |
5100 |
V908= CMPcar((V907)); |
T1766:; |
5101 |
goto T1708;} |
V844= CMPcdr((V844)); |
5102 |
goto T1704; |
V845= CMPcar((V844)); |
5103 |
T1704:; |
goto T1761;} |
|
{object V916; |
|
|
register object V917; |
|
|
V916= (base0[2]->c.c_car); |
|
|
V917= CMPcar((V916)); |
|
5104 |
goto T1757; |
goto T1757; |
5105 |
T1757:; |
T1757:; |
5106 |
if(!(((V916))==Cnil)){ |
{object V854; |
5107 |
goto T1758;} |
register object V855; |
5108 |
goto T1753; |
V854= (base0[2]->c.c_car); |
5109 |
goto T1758; |
V855= CMPcar((V854)); |
5110 |
T1758:; |
goto T1815; |
5111 |
base[3]= (V917); |
T1815:; |
5112 |
base[4]= VV[131]; |
if(!(((V854))==Cnil)){ |
5113 |
|
goto T1816;} |
5114 |
|
goto T1811; |
5115 |
|
goto T1816; |
5116 |
|
T1816:; |
5117 |
|
base[3]= (V855); |
5118 |
|
base[4]= VV[139]; |
5119 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5120 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
5121 |
vs_top=sup; |
vs_top=sup; |
5122 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5123 |
goto T1765;} |
goto T1823;} |
5124 |
(void)(( |
(void)(( |
5125 |
V918 = STREF(object,(V917),0), |
V856 = STREF(object,(V855),0), |
5126 |
(type_of(V918) == t_sfun ?(*((V918)->sfn.sfn_self)): |
(type_of(V856) == t_sfun ?(*((V856)->sfn.sfn_self)): |
5127 |
(fcall.argd=4,type_of(V918)==t_vfun) ? |
(fcall.argd=4,type_of(V856)==t_vfun) ? |
5128 |
(*((V918)->sfn.sfn_self)): |
(*((V856)->sfn.sfn_self)): |
5129 |
(fcall.fun=(V918),fcalln))(STREF(object,(V917),4),STREF(object,(V917),8),(V898),(V896)))); |
(fcall.fun=(V856),fcalln))(STREF(object,(V855),4),STREF(object,(V855),8),(V838),(V836)))); |
5130 |
goto T1762; |
goto T1820; |
5131 |
goto T1765; |
goto T1823; |
5132 |
T1765:; |
T1823:; |
5133 |
base[3]= V917; |
base[3]= V855; |
5134 |
base[4]= VV[132]; |
base[4]= VV[140]; |
5135 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5136 |
(void) (*Lnk308)(); |
(void) (*Lnk335)(); |
5137 |
vs_top=sup; |
vs_top=sup; |
5138 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5139 |
goto T1770;} |
goto T1828;} |
5140 |
{object V920; |
{object V859; |
5141 |
object V921; |
object V860; |
5142 |
object V922; |
object V861; |
5143 |
V920= STREF(object,(V917),0); |
V859= STREF(object,(V855),0); |
5144 |
V921= make_cons((V898),(V896)); |
V860= make_cons((V838),(V836)); |
5145 |
V922= STREF(object,(V917),4); |
V861= STREF(object,(V855),4); |
5146 |
if(((V922))==Cnil){ |
if(((V861))==Cnil){ |
5147 |
goto T1778;} |
goto T1836;} |
5148 |
if((CMPcdr((V922)))!=Cnil){ |
if((CMPcdr((V861)))!=Cnil){ |
5149 |
goto T1778;} |
goto T1836;} |
5150 |
(void)(( |
(void)(( |
5151 |
(type_of((V920)) == t_sfun ?(*(((V920))->sfn.sfn_self)): |
(type_of((V859)) == t_sfun ?(*(((V859))->sfn.sfn_self)): |
5152 |
(fcall.argd=2,type_of((V920))==t_vfun) ? |
(fcall.argd=2,type_of((V859))==t_vfun) ? |
5153 |
(*(((V920))->sfn.sfn_self)): |
(*(((V859))->sfn.sfn_self)): |
5154 |
(fcall.fun=((V920)),fcalln))((V921),CMPcar((V922))))); |
(fcall.fun=((V859)),fcalln))((V860),CMPcar((V861))))); |
5155 |
goto T1762; |
goto T1820; |
5156 |
goto T1778; |
goto T1836; |
5157 |
T1778:; |
T1836:; |
5158 |
base[3]= (V920); |
base[3]= (V859); |
5159 |
base[4]= (V921); |
base[4]= (V860); |
5160 |
{object V923; |
{object V862; |
5161 |
V923= (V922); |
V862= (V861); |
5162 |
vs_top=base+5; |
vs_top=base+5; |
5163 |
while(V923!=Cnil) |
while(V862!=Cnil) |
5164 |
{vs_push((V923)->c.c_car);V923=(V923)->c.c_cdr;} |
{vs_push((V862)->c.c_car);V862=(V862)->c.c_cdr;} |
5165 |
vs_base=base+4;} |
vs_base=base+4;} |
5166 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5167 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5168 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5169 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5170 |
vs_top=sup; |
vs_top=sup; |
5171 |
goto T1762;} |
goto T1820;} |
5172 |
goto T1770; |
goto T1828; |
5173 |
T1770:; |
T1828:; |
5174 |
base[3]= V917; |
base[3]= V855; |
5175 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5176 |
Lfunctionp(); |
Lfunctionp(); |
5177 |
vs_top=sup; |
vs_top=sup; |
5178 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5179 |
goto T1786;} |
goto T1844;} |
5180 |
base[3]= (V917); |
base[3]= (V855); |
5181 |
base[4]= (V898); |
base[4]= (V838); |
5182 |
{object V924; |
{object V863; |
5183 |
V924= (V896); |
V863= (V836); |
5184 |
vs_top=base+5; |
vs_top=base+5; |
5185 |
while(V924!=Cnil) |
while(V863!=Cnil) |
5186 |
{vs_push((V924)->c.c_car);V924=(V924)->c.c_cdr;} |
{vs_push((V863)->c.c_car);V863=(V863)->c.c_cdr;} |
5187 |
vs_base=base+4;} |
vs_base=base+4;} |
5188 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5189 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5190 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5191 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5192 |
vs_top=sup; |
vs_top=sup; |
5193 |
goto T1762; |
goto T1820; |
5194 |
goto T1786; |
goto T1844; |
5195 |
T1786:; |
T1844:; |
5196 |
base[4]= VV[133]; |
base[3]= VV[101]; |
5197 |
base[5]= V917; |
base[4]= VV[102]; |
5198 |
base[6]= VV[135]; |
base[5]= VV[141]; |
5199 |
vs_top=(vs_base=base+4)+3; |
base[6]= VV[104]; |
5200 |
(void) (*Lnk309)(); |
base[7]= V855; |
5201 |
vs_top=sup; |
base[8]= VV[105]; |
5202 |
base[3]= vs_base[0]; |
base[9]= VV[144]; |
5203 |
vs_top=(vs_base=base+3)+1; |
base[10]= VV[107]; |
5204 |
Lerror(); |
base[11]= VV[145]; |
5205 |
|
vs_top=(vs_base=base+3)+9; |
5206 |
|
(void) (*Lnk281)(); |
5207 |
vs_top=sup; |
vs_top=sup; |
5208 |
goto T1762; |
goto T1820; |
5209 |
T1762:; |
T1820:; |
5210 |
V916= CMPcdr((V916)); |
V854= CMPcdr((V854)); |
5211 |
V917= CMPcar((V916)); |
V855= CMPcar((V854)); |
5212 |
goto T1757;} |
goto T1815;} |
5213 |
goto T1753; |
goto T1811; |
5214 |
T1753:; |
T1811:; |
5215 |
base[2]= (V898); |
base[2]= (V838); |
5216 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5217 |
return;}} |
return;}} |
5218 |
} |
} |
5224 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5225 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM65; VC65 |
5226 |
vs_check; |
vs_check; |
5227 |
{object V925; |
{object V864; |
5228 |
check_arg(1); |
check_arg(1); |
5229 |
V925=(base[0]); |
V864=(base[0]); |
5230 |
vs_top=sup; |
vs_top=sup; |
5231 |
{register object V926; |
{register object V865; |
5232 |
base[1]= (V925); |
base[1]= (V864); |
5233 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5234 |
(void) (*Lnk267)(Lclptr267); |
(void) (*Lnk294)(Lclptr294); |
5235 |
vs_top=sup; |
vs_top=sup; |
5236 |
V926= vs_base[0]; |
V865= vs_base[0]; |
5237 |
if(((V926))!=Cnil){ |
if(((V865))!=Cnil){ |
5238 |
goto T1804;} |
goto T1867;} |
5239 |
base[1]= (V925); |
base[1]= (V864); |
5240 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5241 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk286)(Lclptr286); |
5242 |
vs_top=sup; |
vs_top=sup; |
5243 |
V927= vs_base[0]; |
V866= vs_base[0]; |
5244 |
base[1]= ((CMPcar(V927))==((VV[1]->s.s_dbind))?Ct:Cnil); |
base[1]= ((CMPcar(V866))==((VV[1]->s.s_dbind))?Ct:Cnil); |
5245 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5246 |
return; |
return; |
5247 |
goto T1804; |
goto T1867; |
5248 |
T1804:; |
T1867:; |
5249 |
if((CMPcdr((V926)))==Cnil){ |
if((CMPcdr((V865)))==Cnil){ |
5250 |
goto T1808;} |
goto T1871;} |
5251 |
base[1]= Cnil; |
base[1]= Cnil; |
5252 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5253 |
return; |
return; |
5254 |
goto T1808; |
goto T1871; |
5255 |
T1808:; |
T1871:; |
5256 |
if(!((CMPcar((V926)))==(VV[106]))){ |
if(!((CMPcar((V865)))==(VV[114]))){ |
5257 |
goto T1810;} |
goto T1873;} |
5258 |
base[1]= Ct; |
base[1]= Ct; |
5259 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5260 |
return; |
return; |
5261 |
goto T1810; |
goto T1873; |
5262 |
T1810:; |
T1873:; |
5263 |
base[1]= ((CMPcar((V926)))==(VV[107])?Ct:Cnil); |
base[1]= ((CMPcar((V865)))==(VV[115])?Ct:Cnil); |
5264 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5265 |
return;} |
return;} |
5266 |
} |
} |
5272 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5273 |
register object *sup=base+VM66; VC66 |
register object *sup=base+VM66; VC66 |
5274 |
vs_check; |
vs_check; |
5275 |
{object V928; |
{object V867; |
5276 |
object V929; |
object V868; |
5277 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
5278 |
V928=(base[0]); |
V867=(base[0]); |
5279 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
5280 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
5281 |
{object *p=vs_top; |
{object *p=vs_top; |
5282 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
5283 |
V929=(base[1]); |
V868=(base[1]); |
5284 |
vs_top=sup; |
vs_top=sup; |
5285 |
base[2]=VV[311]->s.s_gfdef; |
base[2]=VV[337]->s.s_gfdef; |
5286 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
5287 |
base[4]= (V928); |
base[4]= (V867); |
5288 |
{object V930; |
{object V869; |
5289 |
V930= (V929); |
V869= (V868); |
5290 |
vs_top=base+5; |
vs_top=base+5; |
5291 |
while(V930!=Cnil) |
while(V869!=Cnil) |
5292 |
{vs_push((V930)->c.c_car);V930=(V930)->c.c_cdr;} |
{vs_push((V869)->c.c_car);V869=(V869)->c.c_cdr;} |
5293 |
vs_base=base+3;} |
vs_base=base+3;} |
5294 |
(void) (*Lnk311)(Lclptr311); |
(void) (*Lnk337)(Lclptr337); |
5295 |
return; |
return; |
5296 |
} |
} |
5297 |
} |
} |
5302 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5303 |
register object *sup=base+VM67; VC67 |
register object *sup=base+VM67; VC67 |
5304 |
vs_check; |
vs_check; |
5305 |
{object V931; |
{object V870; |
5306 |
check_arg(1); |
check_arg(1); |
5307 |
V931=(base[0]); |
V870=(base[0]); |
5308 |
vs_top=sup; |
vs_top=sup; |
5309 |
goto TTL; |
goto TTL; |
5310 |
TTL:; |
TTL:; |
5311 |
if(!((((base0[3])==Cnil?Ct:Cnil))==Cnil)){ |
if(!((((base0[3])==Cnil?Ct:Cnil))==Cnil)){ |
5312 |
goto T1815;} |
goto T1878;} |
5313 |
base[1]= Ct; |
base[1]= Ct; |
5314 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5315 |
return; |
return; |
5316 |
goto T1815; |
goto T1878; |
5317 |
T1815:; |
T1878:; |
5318 |
{register object V932; |
{register object V871; |
5319 |
object V933; |
object V872; |
5320 |
base[1]= base0[1]; |
base[1]= base0[1]; |
5321 |
base[2]= (V931); |
base[2]= (V870); |
5322 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5323 |
(void) (*Lnk312)(); |
(void) (*Lnk338)(); |
5324 |
if(vs_base>=vs_top){vs_top=sup;goto T1820;} |
if(vs_base>=vs_top){vs_top=sup;goto T1883;} |
5325 |
V932= vs_base[0]; |
V871= vs_base[0]; |
5326 |
vs_base++; |
vs_base++; |
5327 |
if(vs_base>=vs_top){vs_top=sup;goto T1821;} |
if(vs_base>=vs_top){vs_top=sup;goto T1884;} |
5328 |
V933= vs_base[0]; |
V872= vs_base[0]; |
5329 |
vs_top=sup; |
vs_top=sup; |
5330 |
goto T1822; |
goto T1885; |
5331 |
goto T1820; |
goto T1883; |
5332 |
T1820:; |
T1883:; |
5333 |
V932= Cnil; |
V871= Cnil; |
5334 |
goto T1821; |
goto T1884; |
5335 |
T1821:; |
T1884:; |
5336 |
V933= Cnil; |
V872= Cnil; |
5337 |
goto T1822; |
goto T1885; |
5338 |
T1822:; |
T1885:; |
5339 |
if(!(((((V933))==Cnil?Ct:Cnil))==Cnil)){ |
if(!(((((V872))==Cnil?Ct:Cnil))==Cnil)){ |
5340 |
goto T1823;} |
goto T1886;} |
5341 |
base[1]= Ct; |
base[1]= Ct; |
5342 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5343 |
return; |
return; |
5344 |
goto T1823; |
goto T1886; |
5345 |
T1823:; |
T1886:; |
5346 |
{register object V934; |
{register object V873; |
5347 |
register object V935; |
register object V874; |
5348 |
V934= base0[2]; |
V873= base0[2]; |
5349 |
V935= CMPcar((V934)); |
V874= CMPcar((V873)); |
5350 |
goto T1828; |
goto T1891; |
5351 |
T1828:; |
T1891:; |
5352 |
if(!(((V934))==Cnil)){ |
if(!(((V873))==Cnil)){ |
5353 |
goto T1829;} |
goto T1892;} |
5354 |
base[2]= Ct; |
base[2]= Ct; |
5355 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5356 |
return; |
return; |
5357 |
goto T1829; |
goto T1892; |
5358 |
T1829:; |
T1892:; |
5359 |
{register object x= (V935),V936= (V932); |
{register object x= (V874),V875= (V871); |
5360 |
while(V936!=Cnil) |
while(V875!=Cnil) |
5361 |
if(eql(x,V936->c.c_car)){ |
if(eql(x,V875->c.c_car)){ |
5362 |
goto T1833; |
goto T1896; |
5363 |
}else V936=V936->c.c_cdr;} |
}else V875=V875->c.c_cdr;} |
5364 |
base[2]= make_cons(VV[100],(V935)); |
if(((V874))==(VV[2])){ |
5365 |
|
goto T1896;} |
5366 |
|
base[2]= make_cons(VV[100],(V874)); |
5367 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5368 |
return; |
return; |
5369 |
goto T1833; |
goto T1896; |
5370 |
T1833:; |
T1896:; |
5371 |
V934= CMPcdr((V934)); |
V873= CMPcdr((V873)); |
5372 |
V935= CMPcar((V934)); |
V874= CMPcar((V873)); |
5373 |
goto T1828;}} |
goto T1891;}} |
5374 |
} |
} |
5375 |
} |
} |
5376 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
5380 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5381 |
register object *sup=base+VM68; VC68 |
register object *sup=base+VM68; VC68 |
5382 |
vs_check; |
vs_check; |
5383 |
{register object V937; |
{register object V876; |
5384 |
object V938; |
object V877; |
5385 |
object V939; |
object V878; |
5386 |
check_arg(3); |
check_arg(3); |
5387 |
V937=(base[0]); |
V876=(base[0]); |
5388 |
V938=(base[1]); |
V877=(base[1]); |
5389 |
V939=(base[2]); |
V878=(base[2]); |
5390 |
vs_top=sup;{object V940; |
vs_top=sup;{object V879; |
5391 |
if(((V938))==(VV[8])){ |
if(((V877))==(VV[8])){ |
5392 |
goto T1843;} |
goto T1908;} |
5393 |
V940= Cnil; |
V879= Cnil; |
5394 |
goto T1842; |
goto T1907; |
5395 |
goto T1843; |
goto T1908; |
5396 |
T1843:; |
T1908:; |
5397 |
if(type_of((V937))==t_cons){ |
if(type_of((V876))==t_cons){ |
5398 |
goto T1845;} |
goto T1910;} |
5399 |
V940= Cnil; |
V879= Cnil; |
5400 |
goto T1842; |
goto T1907; |
5401 |
goto T1845; |
goto T1910; |
5402 |
T1845:; |
T1910:; |
5403 |
if((CMPcar((V937)))==(VV[9])){ |
if((CMPcar((V876)))==(VV[9])){ |
5404 |
goto T1847;} |
goto T1912;} |
5405 |
V940= Cnil; |
V879= Cnil; |
5406 |
goto T1842; |
goto T1907; |
5407 |
goto T1847; |
goto T1912; |
5408 |
T1847:; |
T1912:; |
5409 |
V940= (*(LnkLI313))((V937)); |
V879= (*(LnkLI339))((V876)); |
5410 |
goto T1842; |
goto T1907; |
5411 |
T1842:; |
T1907:; |
5412 |
if(V940==Cnil)goto T1841; |
if(V879==Cnil)goto T1906; |
5413 |
base[3]= V940; |
base[3]= V879; |
5414 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5415 |
return; |
return; |
5416 |
goto T1841; |
goto T1906; |
5417 |
T1841:;} |
T1906:;} |
5418 |
base[3]= (V937); |
base[3]= (V876); |
5419 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5420 |
return; |
return; |
5421 |
} |
} |
5422 |
} |
} |
5423 |
static object LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)(void *)&LnkLI313,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */ |
static object LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[339],(void **)(void *)&LnkLI339,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */ |
5424 |
static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* CHECK-INITARGS-VALUES */ |
static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* CHECK-INITARGS-VALUES */ |
5425 |
static void LnkT311(ptr) object *ptr;{ call_or_link_closure(VV[311],(void **)(void *)&Lnk311,(void **)(void *)&Lclptr311);} /* NO-APPLICABLE-METHOD */ |
static void LnkT337(ptr) object *ptr;{ call_or_link_closure(VV[337],(void **)(void *)&Lnk337,(void **)(void *)&Lclptr337);} /* NO-APPLICABLE-METHOD */ |
5426 |
static object LnkTLI310(){return call_proc0(VV[310],(void **)(void *)&LnkLI310);} /* %%ALLOCATE-INSTANCE--CLASS */ |
static object LnkTLI336(){return call_proc0(VV[336],(void **)(void *)&LnkLI336);} /* %%ALLOCATE-INSTANCE--CLASS */ |
5427 |
static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* TYPECASE-ERROR-STRING */ |
static void LnkT335(){ call_or_link(VV[335],(void **)(void *)&Lnk335);} /* STRUCTURE-SUBTYPE-P */ |
|
static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* STRUCTURE-SUBTYPE-P */ |
|
5428 |
static void LnkT96(ptr) object *ptr;{ call_or_link_closure(VV[96],(void **)(void *)&Lnk96,(void **)(void *)&Lclptr96);} /* ALLOCATE-INSTANCE */ |
static void LnkT96(ptr) object *ptr;{ call_or_link_closure(VV[96],(void **)(void *)&Lnk96,(void **)(void *)&Lclptr96);} /* ALLOCATE-INSTANCE */ |
5429 |
static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */ |
static object LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[119],(void **)(void *)&LnkLI119,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */ |
5430 |
static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* MAKE-INSTANCE-FUNCTION-TRAP */ |
static void LnkT132(){ call_or_link(VV[132],(void **)(void *)&Lnk132);} /* MAKE-INSTANCE-FUNCTION-TRAP */ |
5431 |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[307],(void **)(void *)&LnkLI307,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ |
static object LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)(void *)&LnkLI334,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ |
5432 |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,2,first,ap);va_end(ap);return V1;} /* ADD-TO-CVECTOR */ |
static object LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)(void *)&LnkLI333,2,first,ap);va_end(ap);return V1;} /* ADD-TO-CVECTOR */ |
5433 |
static object LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[7],(void **)(void *)&LnkLI7,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTIONS */ |
static object LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[7],(void **)(void *)&LnkLI7,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTIONS */ |
5434 |
static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* COERCE */ |
static void LnkT332(){ call_or_link(VV[332],(void **)(void *)&Lnk332);} /* COERCE */ |
5435 |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,3,first,ap);va_end(ap);return V1;} /* FIRST-FORM-TO-LISP */ |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,3,first,ap);va_end(ap);return V1;} /* FIRST-FORM-TO-LISP */ |
5436 |
static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* VECTOR-PUSH-EXTEND */ |
static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* VECTOR-PUSH-EXTEND */ |
5437 |
static void LnkT195(ptr) object *ptr;{ call_or_link_closure(VV[195],(void **)(void *)&Lnk195,(void **)(void *)&Lclptr195);} /* SLOT-BOUNDP-USING-CLASS */ |
static void LnkT213(ptr) object *ptr;{ call_or_link_closure(VV[213],(void **)(void *)&Lnk213,(void **)(void *)&Lclptr213);} /* SLOT-BOUNDP-USING-CLASS */ |
5438 |
static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
static object LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
5439 |
static object LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[300],(void **)(void *)&LnkLI300,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)(void *)&LnkLI327,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
5440 |
static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* CCLOSURE-ENV-NTHCDR */ |
5441 |
static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */ |
static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */ |
5442 |
static object LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)(void *)&LnkLI297,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
static object LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
5443 |
static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* COMPILE-LAMBDA */ |
static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* COMPILE-LAMBDA */ |
5444 |
static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* UNION */ |
static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* UNION */ |
5445 |
static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* FORM-LIST-TO-LISP */ |
static void LnkT321(){ call_or_link(VV[321],(void **)(void *)&Lnk321);} /* FORM-LIST-TO-LISP */ |
5446 |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,1,first,ap);va_end(ap);return V1;} /* GET-PV-CELL-FOR-CLASS */ |
static object LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)(void *)&LnkLI320,1,first,ap);va_end(ap);return V1;} /* GET-PV-CELL-FOR-CLASS */ |
5447 |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */ |
static object LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */ |
5448 |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[291],(void **)(void *)&LnkLI291,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */ |
static object LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[318],(void **)(void *)&LnkLI318,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */ |
5449 |
static void LnkT290(ptr) object *ptr;{ call_or_link_closure(VV[290],(void **)(void *)&Lnk290,(void **)(void *)&Lclptr290);} /* SLOT-DEFINITION-LOCATION */ |
static void LnkT317(ptr) object *ptr;{ call_or_link_closure(VV[317],(void **)(void *)&Lnk317,(void **)(void *)&Lclptr317);} /* SLOT-DEFINITION-LOCATION */ |
5450 |
static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)(void *)&Lnk289,(void **)(void *)&Lclptr289);} /* SLOT-DEFINITION-INITFUNCTION */ |
static void LnkT316(ptr) object *ptr;{ call_or_link_closure(VV[316],(void **)(void *)&Lnk316,(void **)(void *)&Lclptr316);} /* SLOT-DEFINITION-INITFUNCTION */ |
5451 |
static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* SLOT-DEFINITION-INITFORM */ |
static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* SLOT-DEFINITION-INITFORM */ |
5452 |
static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* STABLE-SORT */ |
static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* STABLE-SORT */ |
5453 |
static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* POSITION */ |
static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* POSITION */ |
5454 |
static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* SLOT-DEFINITION-NAME */ |
static void LnkT311(ptr) object *ptr;{ call_or_link_closure(VV[311],(void **)(void *)&Lnk311,(void **)(void *)&Lclptr311);} /* SLOT-DEFINITION-NAME */ |
5455 |
static void LnkT283(){ call_or_link(VV[283],(void **)(void *)&Lnk283);} /* MAKE-ARRAY */ |
static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* MAKE-ARRAY */ |
5456 |
static object LnkTLI282(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[282],(void **)(void *)&LnkLI282,2,first,ap);va_end(ap);return V1;} /* ADD-FORMS */ |
static object LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,2,first,ap);va_end(ap);return V1;} /* ADD-FORMS */ |
5457 |
static void LnkT281(ptr) object *ptr;{ call_or_link_closure(VV[281],(void **)(void *)&Lnk281,(void **)(void *)&Lclptr281);} /* SLOT-DEFINITION-INITARGS */ |
static void LnkT308(ptr) object *ptr;{ call_or_link_closure(VV[308],(void **)(void *)&Lnk308,(void **)(void *)&Lclptr308);} /* SLOT-DEFINITION-INITARGS */ |
5458 |
static void LnkT280(ptr) object *ptr;{ call_or_link_closure(VV[280],(void **)(void *)&Lnk280,(void **)(void *)&Lclptr280);} /* CLASS-SLOTS */ |
static void LnkT307(ptr) object *ptr;{ call_or_link_closure(VV[307],(void **)(void *)&Lnk307,(void **)(void *)&Lclptr307);} /* CLASS-SLOTS */ |
5459 |
static void LnkT279(ptr) object *ptr;{ call_or_link_closure(VV[279],(void **)(void *)&Lnk279,(void **)(void *)&Lclptr279);} /* CLASS-DEFAULT-INITARGS */ |
static void LnkT306(ptr) object *ptr;{ call_or_link_closure(VV[306],(void **)(void *)&Lnk306,(void **)(void *)&Lclptr306);} /* CLASS-DEFAULT-INITARGS */ |
5460 |
static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* GET-SECONDARY-DISPATCH-FUNCTION */ |
static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* GET-SECONDARY-DISPATCH-FUNCTION */ |
5461 |
static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* GET-COMPLEX-INITIALIZATION-FUNCTIONS */ |
static void LnkT304(){ call_or_link(VV[304],(void **)(void *)&Lnk304);} /* GET-COMPLEX-INITIALIZATION-FUNCTIONS */ |
5462 |
static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* GET-SIMPLE-INITIALIZATION-FUNCTION */ |
static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* GET-SIMPLE-INITIALIZATION-FUNCTION */ |
5463 |
static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* MAKE-EFFECTIVE-METHOD-FUNCTION */ |
static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* MAKE-EFFECTIVE-METHOD-FUNCTION */ |
5464 |
static void LnkT274(){ call_or_link(VV[274],(void **)(void *)&Lnk274);} /* REMOVE */ |
static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* REMOVE */ |
5465 |
static void LnkT272(ptr) object *ptr;{ call_or_link_closure(VV[272],(void **)(void *)&Lnk272,(void **)(void *)&Lclptr272);} /* FUNCALLABLE-STANDARD-CLASS-P */ |
static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* FUNCALLABLE-STANDARD-CLASS-P */ |
5466 |
static void LnkT270(ptr) object *ptr;{ call_or_link_closure(VV[270],(void **)(void *)&Lnk270,(void **)(void *)&Lclptr270);} /* STANDARD-CLASS-P */ |
static void LnkT297(ptr) object *ptr;{ call_or_link_closure(VV[297],(void **)(void *)&Lnk297,(void **)(void *)&Lclptr297);} /* STANDARD-CLASS-P */ |
5467 |
static void LnkT268(ptr) object *ptr;{ call_or_link_closure(VV[268],(void **)(void *)&Lnk268,(void **)(void *)&Lclptr268);} /* STRUCTURE-CLASS-P */ |
static void LnkT295(ptr) object *ptr;{ call_or_link_closure(VV[295],(void **)(void *)&Lnk295,(void **)(void *)&Lclptr295);} /* STRUCTURE-CLASS-P */ |
5468 |
static void LnkT267(ptr) object *ptr;{ call_or_link_closure(VV[267],(void **)(void *)&Lnk267,(void **)(void *)&Lclptr267);} /* METHOD-QUALIFIERS */ |
static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* METHOD-QUALIFIERS */ |
5469 |
static object LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[266],(void **)(void *)&LnkLI266,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SIMPLE */ |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SIMPLE */ |
5470 |
static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[265],(void **)(void *)&LnkLI265,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-COMPLEX */ |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-COMPLEX */ |
5471 |
static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* SOME */ |
static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* SOME */ |
5472 |
static object LnkTLI262(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[262],(void **)(void *)&LnkLI262,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */ |
static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[289],(void **)(void *)&LnkLI289,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */ |
5473 |
static void LnkT104(ptr) object *ptr;{ call_or_link_closure(VV[104],(void **)(void *)&Lnk104,(void **)(void *)&Lclptr104);} /* DEFAULT-INITARGS */ |
static void LnkT112(ptr) object *ptr;{ call_or_link_closure(VV[112],(void **)(void *)&Lnk112,(void **)(void *)&Lclptr112);} /* DEFAULT-INITARGS */ |
5474 |
static object LnkTLI261(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[261],(void **)(void *)&LnkLI261,5,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION-INTERNAL */ |
static object LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)(void *)&LnkLI288,5,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION-INTERNAL */ |
5475 |
static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* EVERY */ |
static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* EVERY */ |
5476 |
static void LnkT259(ptr) object *ptr;{ call_or_link_closure(VV[259],(void **)(void *)&Lnk259,(void **)(void *)&Lclptr259);} /* METHOD-SPECIALIZERS */ |
static void LnkT286(ptr) object *ptr;{ call_or_link_closure(VV[286],(void **)(void *)&Lnk286,(void **)(void *)&Lclptr286);} /* METHOD-SPECIALIZERS */ |
5477 |
static object LnkTLI258(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[258],(void **)(void *)&LnkLI258,2,first,ap);va_end(ap);return V1;} /* FIND-STANDARD-II-METHOD */ |
static object LnkTLI285(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[285],(void **)(void *)&LnkLI285,2,first,ap);va_end(ap);return V1;} /* FIND-STANDARD-II-METHOD */ |
5478 |
static void LnkT257(ptr) object *ptr;{ call_or_link_closure(VV[257],(void **)(void *)&Lnk257,(void **)(void *)&Lclptr257);} /* COMPUTE-APPLICABLE-METHODS */ |
static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* COMPUTE-APPLICABLE-METHODS */ |
5479 |
static object LnkTLI254(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[254],(void **)(void *)&LnkLI254,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
static object LnkTLI280(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[280],(void **)(void *)&LnkLI280,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
5480 |
static void LnkT256(ptr) object *ptr;{ call_or_link_closure(VV[256],(void **)(void *)&Lnk256,(void **)(void *)&Lclptr256);} /* FINALIZE-INHERITANCE */ |
static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* FINALIZE-INHERITANCE */ |
5481 |
static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* CLASS-FINALIZED-P */ |
static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* CLASS-FINALIZED-P */ |
5482 |
static object LnkTLI252(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[252],(void **)(void *)&LnkLI252,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION */ |
static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* ERROR */ |
5483 |
static void LnkT251(){ call_or_link(VV[251],(void **)(void *)&Lnk251);} /* MAKE-SHARED-INITIALIZE-FORM-LIST */ |
static object LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION */ |
5484 |
static void LnkT250(ptr) object *ptr;{ call_or_link_closure(VV[250],(void **)(void *)&Lnk250,(void **)(void *)&Lclptr250);} /* CLASS-PROTOTYPE */ |
static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* MAKE-SHARED-INITIALIZE-FORM-LIST */ |
5485 |
static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* INITIALIZE-INSTANCE-SIMPLE-FUNCTION */ |
static void LnkT276(ptr) object *ptr;{ call_or_link_closure(VV[276],(void **)(void *)&Lnk276,(void **)(void *)&Lclptr276);} /* CLASS-PROTOTYPE */ |
5486 |
static void LnkT248(){ call_or_link(VV[248],(void **)(void *)&Lnk248);} /* MAKE-DEFAULT-INITARGS-FORM-LIST */ |
static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* INITIALIZE-INSTANCE-SIMPLE-FUNCTION */ |
5487 |
static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[247],(void **)(void *)&LnkLI247,first,ap);va_end(ap);return V1;} /* MAKE-INITIALIZE-INFO */ |
static void LnkT274(){ call_or_link(VV[274],(void **)(void *)&Lnk274);} /* MAKE-DEFAULT-INITARGS-FORM-LIST */ |
5488 |
static object LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,1,first,ap);va_end(ap);return V1;} /* RESET-INITIALIZE-INFO */ |
static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[273],(void **)(void *)&LnkLI273,first,ap);va_end(ap);return V1;} /* MAKE-INITIALIZE-INFO */ |
5489 |
static void LnkT245(ptr) object *ptr;{ call_or_link_closure(VV[245],(void **)(void *)&Lnk245,(void **)(void *)&Lclptr245);} /* CLASS-INITIALIZE-INFO */ |
static object LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* RESET-INITIALIZE-INFO */ |
5490 |
static object LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* RESET-CLASS-INITIALIZE-INFO-1 */ |
static void LnkT271(ptr) object *ptr;{ call_or_link_closure(VV[271],(void **)(void *)&Lnk271,(void **)(void *)&Lclptr271);} /* CLASS-INITIALIZE-INFO */ |
5491 |
|
static object LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)(void *)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* RESET-CLASS-INITIALIZE-INFO-1 */ |
5492 |
static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO-BOUND-SLOTS */ |
static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO-BOUND-SLOTS */ |
5493 |
static void LnkT243(ptr) object *ptr;{ call_or_link_closure(VV[243],(void **)(void *)&Lnk243,(void **)(void *)&Lclptr243);} /* CLASS-WRAPPER */ |
static void LnkT269(ptr) object *ptr;{ call_or_link_closure(VV[269],(void **)(void *)&Lnk269,(void **)(void *)&Lclptr269);} /* CLASS-WRAPPER */ |
5494 |
static void LnkT9(ptr) object *ptr;{ call_or_link_closure(VV[9],(void **)(void *)&Lnk9,(void **)(void *)&Lclptr9);} /* MAKE-INSTANCE */ |
static void LnkT9(ptr) object *ptr;{ call_or_link_closure(VV[9],(void **)(void *)&Lnk9,(void **)(void *)&Lclptr9);} /* MAKE-INSTANCE */ |
5495 |
static void LnkT229(ptr) object *ptr;{ call_or_link_closure(VV[229],(void **)(void *)&Lnk229,(void **)(void *)&Lclptr229);} /* CLASS-NAME */ |
static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* CLASS-NAME */ |
5496 |
static void LnkT228(ptr) object *ptr;{ call_or_link_closure(VV[228],(void **)(void *)&Lnk228,(void **)(void *)&Lclptr228);} /* CLASSP */ |
static void LnkT254(ptr) object *ptr;{ call_or_link_closure(VV[254],(void **)(void *)&Lnk254,(void **)(void *)&Lclptr254);} /* CLASSP */ |
5497 |
static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */ |
static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */ |
5498 |
static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */ |
static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */ |
5499 |
static void LnkT227(ptr) object *ptr;{ call_or_link_closure(VV[227],(void **)(void *)&Lnk227,(void **)(void *)&Lclptr227);} /* FORWARD-REFERENCED-CLASS-P */ |
static void LnkT253(ptr) object *ptr;{ call_or_link_closure(VV[253],(void **)(void *)&Lnk253,(void **)(void *)&Lclptr253);} /* FORWARD-REFERENCED-CLASS-P */ |
5500 |
static void LnkT226(){ call_or_link(VV[226],(void **)(void *)&Lnk226);} /* FIND */ |
static void LnkT252(){ call_or_link(VV[252],(void **)(void *)&Lnk252);} /* FIND */ |
5501 |
static object LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[224],(void **)(void *)&LnkLI224,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */ |
static object LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[250],(void **)(void *)&LnkLI250,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */ |
5502 |
static void LnkT223(){ call_or_link(VV[223],(void **)(void *)&Lnk223);} /* WALK-FORM */ |
static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* WALK-FORM */ |
5503 |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SYMBOL */ |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SYMBOL */ |
5504 |
static object LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,1,first,ap);va_end(ap);return V1;} /* CONSTANT-SYMBOL-P */ |
static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)(void *)&LnkLI247,1,first,ap);va_end(ap);return V1;} /* CONSTANT-SYMBOL-P */ |
5505 |
static void LnkT220(){ call_or_link(VV[220],(void **)(void *)&Lnk220);} /* MAP-ALL-CLASSES */ |
static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* MAP-ALL-CLASSES */ |
5506 |
static void LnkT218(ptr) object *ptr;{ call_or_link_closure(VV[218],(void **)(void *)&Lnk218,(void **)(void *)&Lclptr218);} /* CLASS-PRECEDENCE-LIST */ |
static void LnkT244(ptr) object *ptr;{ call_or_link_closure(VV[244],(void **)(void *)&Lnk244,(void **)(void *)&Lclptr244);} /* CLASS-PRECEDENCE-LIST */ |
5507 |
static object LnkTLI217(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[217],(void **)(void *)&LnkLI217,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static object LnkTLI243(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[243],(void **)(void *)&LnkLI243,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
5508 |
|
|
5509 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
5510 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |