469 |
goto T178;} |
goto T178;} |
470 |
if(!((car((V45)))==(VV[21]))){ |
if(!((car((V45)))==(VV[21]))){ |
471 |
goto T178;} |
goto T178;} |
472 |
|
princ_str("(long)",VV[0]); |
473 |
base[1]= caddr((V45)); |
base[1]= caddr((V45)); |
474 |
base[2]= cadddr((V45)); |
base[2]= cadddr((V45)); |
475 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
478 |
goto T178; |
goto T178; |
479 |
T178:; |
T178:; |
480 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
481 |
goto T185;} |
goto T187;} |
482 |
if(!((car((V45)))==(VV[22]))){ |
if(!((car((V45)))==(VV[22]))){ |
483 |
goto T185;} |
goto T187;} |
484 |
(void)((*(LnkLI36))(caddr((V45)))); |
(void)((*(LnkLI36))(caddr((V45)))); |
485 |
base[1]= Cnil; |
base[1]= Cnil; |
486 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
487 |
return; |
return; |
488 |
goto T185; |
goto T187; |
489 |
T185:; |
T187:; |
490 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
491 |
goto T191;} |
goto T193;} |
492 |
{register object x= car((V45)),V48= VV[23]; |
{register object x= car((V45)),V48= VV[23]; |
493 |
while(!endp(V48)) |
while(!endp(V48)) |
494 |
if(eql(x,V48->c.c_car)){ |
if(eql(x,V48->c.c_car)){ |
495 |
goto T194; |
goto T196; |
496 |
}else V48=V48->c.c_cdr; |
}else V48=V48->c.c_cdr; |
497 |
goto T191;} |
goto T193;} |
498 |
goto T194; |
goto T196; |
499 |
T194:; |
T196:; |
500 |
princ_str("((int)(",VV[0]); |
princ_str("((long)(",VV[0]); |
501 |
base[1]= caddr((V45)); |
base[1]= caddr((V45)); |
502 |
base[2]= cadddr((V45)); |
base[2]= cadddr((V45)); |
503 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
507 |
base[1]= Cnil; |
base[1]= Cnil; |
508 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
509 |
return; |
return; |
510 |
goto T191; |
goto T193; |
511 |
T191:; |
T193:; |
512 |
princ_str("fix(",VV[0]); |
princ_str("fix(",VV[0]); |
513 |
(void)((*(LnkLI36))((V45))); |
(void)((*(LnkLI36))((V45))); |
514 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
529 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
530 |
V49=(base[0]); |
V49=(base[0]); |
531 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
532 |
if(vs_base>=vs_top){vs_top=sup;goto T204;} |
if(vs_base>=vs_top){vs_top=sup;goto T206;} |
533 |
V50=(base[1]); |
V50=(base[1]); |
534 |
vs_top=sup; |
vs_top=sup; |
535 |
goto T205; |
goto T207; |
536 |
goto T204; |
goto T206; |
537 |
T204:; |
T206:; |
538 |
V50= Cnil; |
V50= Cnil; |
539 |
goto T205; |
goto T207; |
540 |
T205:; |
T207:; |
541 |
{object V51; |
{object V51; |
542 |
object V52; |
object V52; |
543 |
V51= Ct; |
V51= Ct; |
544 |
if(type_of((V49))==t_cons){ |
if(type_of((V49))==t_cons){ |
545 |
goto T209;} |
goto T211;} |
546 |
V52= Cnil; |
V52= Cnil; |
547 |
goto T208; |
goto T210; |
548 |
goto T209; |
goto T211; |
549 |
T209:; |
T211:; |
550 |
V52= car((V49)); |
V52= car((V49)); |
551 |
goto T208; |
goto T210; |
552 |
T208:; |
T210:; |
553 |
{object V53= (V52); |
{object V53= (V52); |
554 |
if((V53!= VV[21]))goto T212; |
if((V53!= VV[21]))goto T214; |
555 |
princ_str("stoi(",VV[0]); |
princ_str("stoi(",VV[0]); |
556 |
base[3]= caddr((V49)); |
base[3]= caddr((V49)); |
557 |
base[4]= cadddr((V49)); |
base[4]= cadddr((V49)); |
559 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
560 |
vs_top=sup; |
vs_top=sup; |
561 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
562 |
goto T211; |
goto T213; |
563 |
goto T212; |
goto T214; |
564 |
T212:; |
T214:; |
565 |
if((V53!= VV[46]))goto T219; |
if((V53!= VV[46]))goto T221; |
566 |
V51= Cnil; |
V51= Cnil; |
567 |
base[3]= caddr((V49)); |
base[3]= caddr((V49)); |
568 |
base[4]= cadddr((V49)); |
base[4]= cadddr((V49)); |
569 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
570 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
571 |
vs_top=sup; |
vs_top=sup; |
572 |
goto T211; |
goto T213; |
573 |
goto T219; |
goto T221; |
574 |
T219:; |
T221:; |
575 |
if((V53!= VV[22]))goto T224; |
if((V53!= VV[22]))goto T226; |
576 |
princ_str("stoi(",VV[0]); |
princ_str("stoi(",VV[0]); |
577 |
(void)((*(LnkLI36))(caddr((V49)))); |
(void)((*(LnkLI36))(caddr((V49)))); |
578 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
579 |
goto T211; |
goto T213; |
580 |
goto T224; |
goto T226; |
581 |
T224:; |
T226:; |
582 |
if((V53!= VV[17]))goto T228; |
if((V53!= VV[17]))goto T230; |
583 |
V55= structure_ref(cadr((V49)),VV[17],1); |
V55= structure_ref(cadr((V49)),VV[17],1); |
584 |
{object V54= /* INLINE-ARGS */V55; |
{object V54= /* INLINE-ARGS */V55; |
585 |
if((V54!= VV[47]))goto T229; |
if((V54!= VV[47]))goto T231; |
586 |
V51= Cnil; |
V51= Cnil; |
587 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
588 |
V56= structure_ref(cadr((V49)),VV[17],4); |
V56= structure_ref(cadr((V49)),VV[17],4); |
589 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V56)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V56)); |
590 |
goto T211; |
goto T213; |
591 |
goto T229; |
goto T231; |
592 |
T229:; |
T231:; |
593 |
if((V54!= VV[20]))goto T234; |
if((V54!= VV[20]))goto T236; |
594 |
princ_str("stoi(V",VV[0]); |
princ_str("stoi(V",VV[0]); |
595 |
V57= structure_ref(cadr((V49)),VV[17],4); |
V57= structure_ref(cadr((V49)),VV[17],4); |
596 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V57)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V57)); |
597 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
598 |
goto T211; |
goto T213; |
599 |
goto T234; |
goto T236; |
600 |
T234:; |
T236:; |
601 |
princ_str("otoi(",VV[0]); |
princ_str("otoi(",VV[0]); |
602 |
(void)((*(LnkLI36))((V49))); |
(void)((*(LnkLI36))((V49))); |
603 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
604 |
goto T211;} |
goto T213;} |
605 |
goto T228; |
goto T230; |
606 |
T228:; |
T230:; |
607 |
princ_str("otoi(",VV[0]); |
princ_str("otoi(",VV[0]); |
608 |
(void)((*(LnkLI36))((V49))); |
(void)((*(LnkLI36))((V49))); |
609 |
princ_char(41,VV[0]);} |
princ_char(41,VV[0]);} |
610 |
goto T211; |
goto T213; |
611 |
T211:; |
T213:; |
612 |
if((V51)==Cnil){ |
if((V51)==Cnil){ |
613 |
base[3]= Cnil; |
base[3]= Cnil; |
614 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
615 |
return;} |
return;} |
616 |
if((symbol_value(VV[24]))==Cnil){ |
if((symbol_value(VV[24]))==Cnil){ |
617 |
goto T244;} |
goto T246;} |
618 |
base[3]= Cnil; |
base[3]= Cnil; |
619 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
620 |
return; |
return; |
621 |
goto T244; |
goto T246; |
622 |
T244:; |
T246:; |
623 |
base[3]= (*(LnkLI48))(); |
base[3]= (*(LnkLI48))(); |
624 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
625 |
return;} |
return;} |
634 |
goto TTL; |
goto TTL; |
635 |
TTL:; |
TTL:; |
636 |
if(type_of((V59))==t_cons){ |
if(type_of((V59))==t_cons){ |
637 |
goto T246;} |
goto T248;} |
638 |
{object V60 = Cnil; |
{object V60 = Cnil; |
639 |
VMR14(V60)} |
VMR14(V60)} |
640 |
goto T246; |
goto T248; |
641 |
T246:;{object V61; |
T248:;{object V61; |
642 |
if((car((V59)))==(VV[17])){ |
if((car((V59)))==(VV[17])){ |
643 |
goto T250;} |
goto T252;} |
644 |
V61= Cnil; |
V61= Cnil; |
645 |
goto T249; |
goto T251; |
646 |
goto T250; |
goto T252; |
647 |
T250:; |
T252:; |
648 |
V62= structure_ref(cadr((V59)),VV[17],1); |
V62= structure_ref(cadr((V59)),VV[17],1); |
649 |
V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil); |
V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil); |
650 |
goto T249; |
goto T251; |
651 |
T249:; |
T251:; |
652 |
if(V61==Cnil)goto T248; |
if(V61==Cnil)goto T250; |
653 |
{object V63 = V61; |
{object V63 = V61; |
654 |
VMR14(V63)} |
VMR14(V63)} |
655 |
goto T248; |
goto T250; |
656 |
T248:;} |
T250:;} |
657 |
if(!((car((V59)))==(VV[21]))){ |
if(!((car((V59)))==(VV[21]))){ |
658 |
goto T252;} |
goto T254;} |
659 |
{object V64 = Ct; |
{object V64 = Ct; |
660 |
VMR14(V64)} |
VMR14(V64)} |
661 |
goto T252; |
goto T254; |
662 |
T252:; |
T254:; |
663 |
{object V65 = ((car((V59)))==(VV[22])?Ct:Cnil); |
{object V65 = ((car((V59)))==(VV[22])?Ct:Cnil); |
664 |
VMR14(V65)} |
VMR14(V65)} |
665 |
return Cnil; |
return Cnil; |
673 |
goto TTL; |
goto TTL; |
674 |
TTL:; |
TTL:; |
675 |
if(((V68))==Cnil){ |
if(((V68))==Cnil){ |
676 |
goto T255;} |
goto T257;} |
677 |
princ_str("VV[",VV[0]); |
princ_str("VV[",VV[0]); |
678 |
(void)((*(LnkLI36))((V68))); |
(void)((*(LnkLI36))((V68))); |
679 |
princ_char(93,VV[0]); |
princ_char(93,VV[0]); |
680 |
{object V70 = Cnil; |
{object V70 = Cnil; |
681 |
VMR15(V70)} |
VMR15(V70)} |
682 |
goto T255; |
goto T257; |
683 |
T255:; |
T257:; |
684 |
princ_str("small_fixnum(",VV[0]); |
princ_str("small_fixnum(",VV[0]); |
685 |
(void)((*(LnkLI36))((V69))); |
(void)((*(LnkLI36))((V69))); |
686 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
701 |
goto TTL; |
goto TTL; |
702 |
TTL:; |
TTL:; |
703 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
704 |
goto T264;} |
goto T266;} |
705 |
if(!((car((V72)))==(VV[17]))){ |
if(!((car((V72)))==(VV[17]))){ |
706 |
goto T264;} |
goto T266;} |
707 |
V73= structure_ref(cadr((V72)),VV[17],1); |
V73= structure_ref(cadr((V72)),VV[17],1); |
708 |
if(!((/* INLINE-ARGS */V73)==(VV[25]))){ |
if(!((/* INLINE-ARGS */V73)==(VV[25]))){ |
709 |
goto T264;} |
goto T266;} |
710 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
711 |
V74= structure_ref(cadr((V72)),VV[17],4); |
V74= structure_ref(cadr((V72)),VV[17],4); |
712 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V74)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V74)); |
713 |
base[1]= Cnil; |
base[1]= Cnil; |
714 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
715 |
return; |
return; |
716 |
goto T264; |
goto T266; |
717 |
T264:; |
T266:; |
718 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
719 |
goto T273;} |
goto T275;} |
720 |
if(!((car((V72)))==(VV[26]))){ |
if(!((car((V72)))==(VV[26]))){ |
721 |
goto T273;} |
goto T275;} |
722 |
base[1]= caddr((V72)); |
base[1]= caddr((V72)); |
723 |
base[2]= cadddr((V72)); |
base[2]= cadddr((V72)); |
724 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
725 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
726 |
return; |
return; |
727 |
goto T273; |
goto T275; |
728 |
T273:; |
T275:; |
729 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
730 |
goto T280;} |
goto T282;} |
731 |
if(!((car((V72)))==(VV[27]))){ |
if(!((car((V72)))==(VV[27]))){ |
732 |
goto T280;} |
goto T282;} |
733 |
(void)((*(LnkLI36))(caddr((V72)))); |
(void)((*(LnkLI36))(caddr((V72)))); |
734 |
base[1]= Cnil; |
base[1]= Cnil; |
735 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
736 |
return; |
return; |
737 |
goto T280; |
goto T282; |
738 |
T280:; |
T282:; |
739 |
princ_str("char_code(",VV[0]); |
princ_str("char_code(",VV[0]); |
740 |
(void)((*(LnkLI36))((V72))); |
(void)((*(LnkLI36))((V72))); |
741 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
753 |
goto TTL; |
goto TTL; |
754 |
TTL:; |
TTL:; |
755 |
if(type_of((V76))==t_cons){ |
if(type_of((V76))==t_cons){ |
756 |
goto T288;} |
goto T290;} |
757 |
{object V77 = Cnil; |
{object V77 = Cnil; |
758 |
VMR17(V77)} |
VMR17(V77)} |
759 |
goto T288; |
goto T290; |
760 |
T288:;{object V78; |
T290:;{object V78; |
761 |
if((car((V76)))==(VV[17])){ |
if((car((V76)))==(VV[17])){ |
762 |
goto T292;} |
goto T294;} |
763 |
V78= Cnil; |
V78= Cnil; |
764 |
goto T291; |
goto T293; |
765 |
goto T292; |
goto T294; |
766 |
T292:; |
T294:; |
767 |
V79= structure_ref(cadr((V76)),VV[17],1); |
V79= structure_ref(cadr((V76)),VV[17],1); |
768 |
V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil); |
V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil); |
769 |
goto T291; |
goto T293; |
770 |
T291:; |
T293:; |
771 |
if(V78==Cnil)goto T290; |
if(V78==Cnil)goto T292; |
772 |
{object V80 = V78; |
{object V80 = V78; |
773 |
VMR17(V80)} |
VMR17(V80)} |
774 |
goto T290; |
goto T292; |
775 |
T290:;} |
T292:;} |
776 |
if(!((car((V76)))==(VV[26]))){ |
if(!((car((V76)))==(VV[26]))){ |
777 |
goto T294;} |
goto T296;} |
778 |
{object V81 = Ct; |
{object V81 = Ct; |
779 |
VMR17(V81)} |
VMR17(V81)} |
780 |
goto T294; |
goto T296; |
781 |
T294:; |
T296:; |
782 |
{object V82 = ((car((V76)))==(VV[27])?Ct:Cnil); |
{object V82 = ((car((V76)))==(VV[27])?Ct:Cnil); |
783 |
VMR17(V82)} |
VMR17(V82)} |
784 |
return Cnil; |
return Cnil; |
811 |
goto TTL; |
goto TTL; |
812 |
TTL:; |
TTL:; |
813 |
if(!(type_of((V88))==t_cons)){ |
if(!(type_of((V88))==t_cons)){ |
814 |
goto T300;} |
goto T302;} |
815 |
if(!((car((V88)))==(VV[17]))){ |
if(!((car((V88)))==(VV[17]))){ |
816 |
goto T300;} |
goto T302;} |
817 |
V89= structure_ref(cadr((V88)),VV[17],1); |
V89= structure_ref(cadr((V88)),VV[17],1); |
818 |
if(!((/* INLINE-ARGS */V89)==(VV[28]))){ |
if(!((/* INLINE-ARGS */V89)==(VV[28]))){ |
819 |
goto T300;} |
goto T302;} |
820 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
821 |
V90= structure_ref(cadr((V88)),VV[17],4); |
V90= structure_ref(cadr((V88)),VV[17],4); |
822 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V90)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V90)); |
823 |
base[1]= Cnil; |
base[1]= Cnil; |
824 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
825 |
return; |
return; |
826 |
goto T300; |
goto T302; |
827 |
T300:; |
T302:; |
828 |
if(!(type_of((V88))==t_cons)){ |
if(!(type_of((V88))==t_cons)){ |
829 |
goto T309;} |
goto T311;} |
830 |
if(!((car((V88)))==(VV[29]))){ |
if(!((car((V88)))==(VV[29]))){ |
831 |
goto T309;} |
goto T311;} |
832 |
base[1]= caddr((V88)); |
base[1]= caddr((V88)); |
833 |
base[2]= cadddr((V88)); |
base[2]= cadddr((V88)); |
834 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
835 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
836 |
return; |
return; |
837 |
goto T309; |
goto T311; |
838 |
T309:; |
T311:; |
839 |
if(!(type_of((V88))==t_cons)){ |
if(!(type_of((V88))==t_cons)){ |
840 |
goto T316;} |
goto T318;} |
841 |
if(!((car((V88)))==(VV[30]))){ |
if(!((car((V88)))==(VV[30]))){ |
842 |
goto T316;} |
goto T318;} |
843 |
(void)((*(LnkLI36))(caddr((V88)))); |
(void)((*(LnkLI36))(caddr((V88)))); |
844 |
base[1]= Cnil; |
base[1]= Cnil; |
845 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
846 |
return; |
return; |
847 |
goto T316; |
goto T318; |
848 |
T316:; |
T318:; |
849 |
princ_str("lf(",VV[0]); |
princ_str("lf(",VV[0]); |
850 |
(void)((*(LnkLI36))((V88))); |
(void)((*(LnkLI36))((V88))); |
851 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
863 |
goto TTL; |
goto TTL; |
864 |
TTL:; |
TTL:; |
865 |
if(type_of((V92))==t_cons){ |
if(type_of((V92))==t_cons){ |
866 |
goto T324;} |
goto T326;} |
867 |
{object V93 = Cnil; |
{object V93 = Cnil; |
868 |
VMR20(V93)} |
VMR20(V93)} |
869 |
goto T324; |
goto T326; |
870 |
T324:;{object V94; |
T326:;{object V94; |
871 |
if((car((V92)))==(VV[17])){ |
if((car((V92)))==(VV[17])){ |
872 |
goto T328;} |
goto T330;} |
873 |
V94= Cnil; |
V94= Cnil; |
874 |
goto T327; |
goto T329; |
875 |
goto T328; |
goto T330; |
876 |
T328:; |
T330:; |
877 |
V95= structure_ref(cadr((V92)),VV[17],1); |
V95= structure_ref(cadr((V92)),VV[17],1); |
878 |
V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil); |
V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil); |
879 |
goto T327; |
goto T329; |
880 |
T327:; |
T329:; |
881 |
if(V94==Cnil)goto T326; |
if(V94==Cnil)goto T328; |
882 |
{object V96 = V94; |
{object V96 = V94; |
883 |
VMR20(V96)} |
VMR20(V96)} |
884 |
goto T326; |
goto T328; |
885 |
T326:;} |
T328:;} |
886 |
if(!((car((V92)))==(VV[29]))){ |
if(!((car((V92)))==(VV[29]))){ |
887 |
goto T330;} |
goto T332;} |
888 |
{object V97 = Ct; |
{object V97 = Ct; |
889 |
VMR20(V97)} |
VMR20(V97)} |
890 |
goto T330; |
goto T332; |
891 |
T330:; |
T332:; |
892 |
{object V98 = ((car((V92)))==(VV[30])?Ct:Cnil); |
{object V98 = ((car((V92)))==(VV[30])?Ct:Cnil); |
893 |
VMR20(V98)} |
VMR20(V98)} |
894 |
return Cnil; |
return Cnil; |
921 |
goto TTL; |
goto TTL; |
922 |
TTL:; |
TTL:; |
923 |
if(!(type_of((V104))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
924 |
goto T336;} |
goto T338;} |
925 |
if(!((car((V104)))==(VV[17]))){ |
if(!((car((V104)))==(VV[17]))){ |
926 |
goto T336;} |
goto T338;} |
927 |
V105= structure_ref(cadr((V104)),VV[17],1); |
V105= structure_ref(cadr((V104)),VV[17],1); |
928 |
if(!((/* INLINE-ARGS */V105)==(VV[31]))){ |
if(!((/* INLINE-ARGS */V105)==(VV[31]))){ |
929 |
goto T336;} |
goto T338;} |
930 |
princ_char(86,VV[0]); |
princ_char(86,VV[0]); |
931 |
V106= structure_ref(cadr((V104)),VV[17],4); |
V106= structure_ref(cadr((V104)),VV[17],4); |
932 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V106)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V106)); |
933 |
base[1]= Cnil; |
base[1]= Cnil; |
934 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
935 |
return; |
return; |
936 |
goto T336; |
goto T338; |
937 |
T336:; |
T338:; |
938 |
if(!(type_of((V104))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
939 |
goto T345;} |
goto T347;} |
940 |
if(!((car((V104)))==(VV[32]))){ |
if(!((car((V104)))==(VV[32]))){ |
941 |
goto T345;} |
goto T347;} |
942 |
base[1]= caddr((V104)); |
base[1]= caddr((V104)); |
943 |
base[2]= cadddr((V104)); |
base[2]= cadddr((V104)); |
944 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
945 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
946 |
return; |
return; |
947 |
goto T345; |
goto T347; |
948 |
T345:; |
T347:; |
949 |
if(!(type_of((V104))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
950 |
goto T352;} |
goto T354;} |
951 |
if(!((car((V104)))==(VV[33]))){ |
if(!((car((V104)))==(VV[33]))){ |
952 |
goto T352;} |
goto T354;} |
953 |
(void)((*(LnkLI36))(caddr((V104)))); |
(void)((*(LnkLI36))(caddr((V104)))); |
954 |
base[1]= Cnil; |
base[1]= Cnil; |
955 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
956 |
return; |
return; |
957 |
goto T352; |
goto T354; |
958 |
T352:; |
T354:; |
959 |
princ_str("sf(",VV[0]); |
princ_str("sf(",VV[0]); |
960 |
(void)((*(LnkLI36))((V104))); |
(void)((*(LnkLI36))((V104))); |
961 |
princ_char(41,VV[0]); |
princ_char(41,VV[0]); |
973 |
goto TTL; |
goto TTL; |
974 |
TTL:; |
TTL:; |
975 |
if(type_of((V108))==t_cons){ |
if(type_of((V108))==t_cons){ |
976 |
goto T360;} |
goto T362;} |
977 |
{object V109 = Cnil; |
{object V109 = Cnil; |
978 |
VMR23(V109)} |
VMR23(V109)} |
979 |
goto T360; |
goto T362; |
980 |
T360:;{object V110; |
T362:;{object V110; |
981 |
if((car((V108)))==(VV[17])){ |
if((car((V108)))==(VV[17])){ |
982 |
goto T364;} |
goto T366;} |
983 |
V110= Cnil; |
V110= Cnil; |
984 |
goto T363; |
goto T365; |
985 |
goto T364; |
goto T366; |
986 |
T364:; |
T366:; |
987 |
V111= structure_ref(cadr((V108)),VV[17],1); |
V111= structure_ref(cadr((V108)),VV[17],1); |
988 |
V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil); |
V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil); |
989 |
goto T363; |
goto T365; |
990 |
T363:; |
T365:; |
991 |
if(V110==Cnil)goto T362; |
if(V110==Cnil)goto T364; |
992 |
{object V112 = V110; |
{object V112 = V110; |
993 |
VMR23(V112)} |
VMR23(V112)} |
994 |
goto T362; |
goto T364; |
995 |
T362:;} |
T364:;} |
996 |
if(!((car((V108)))==(VV[32]))){ |
if(!((car((V108)))==(VV[32]))){ |
997 |
goto T366;} |
goto T368;} |
998 |
{object V113 = Ct; |
{object V113 = Ct; |
999 |
VMR23(V113)} |
VMR23(V113)} |
1000 |
goto T366; |
goto T368; |
1001 |
T366:; |
T368:; |
1002 |
{object V114 = ((car((V108)))==(VV[33])?Ct:Cnil); |
{object V114 = ((car((V108)))==(VV[33])?Ct:Cnil); |
1003 |
VMR23(V114)} |
VMR23(V114)} |
1004 |
return Cnil; |
return Cnil; |
1021 |
static object LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* WFS-ERROR */ |
static object LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* WFS-ERROR */ |
1022 |
static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* WT-INLINE-LOC */ |
static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* WT-INLINE-LOC */ |
1023 |
static object LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* VS-PUSH */ |
static object LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* VS-PUSH */ |
1024 |
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],(void **)&LnkLI43,1,ap);} /* WT-VS */ |
static object LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,1,ap);va_end(ap);return V1;} /* WT-VS */ |
1025 |
static object LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* BABOON */ |
static object LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* BABOON */ |
1026 |
static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* SET-RETURN-SHORT-FLOAT */ |
static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* SET-RETURN-SHORT-FLOAT */ |
1027 |
static void LnkT40(){ call_or_link(VV[40],(void **)&Lnk40);} /* SET-RETURN-LONG-FLOAT */ |
static void LnkT40(){ call_or_link(VV[40],(void **)&Lnk40);} /* SET-RETURN-LONG-FLOAT */ |
1028 |
static void LnkT39(){ call_or_link(VV[39],(void **)&Lnk39);} /* SET-RETURN-CHARACTER */ |
static void LnkT39(){ call_or_link(VV[39],(void **)&Lnk39);} /* SET-RETURN-CHARACTER */ |
1029 |
static void LnkT38(){ call_or_link(VV[38],(void **)&Lnk38);} /* SET-RETURN-FIXNUM */ |
static void LnkT38(){ call_or_link(VV[38],(void **)&Lnk38);} /* SET-RETURN-FIXNUM */ |
1030 |
static object LnkTLI37(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[37],(void **)&LnkLI37,1,ap);} /* SET-TOP */ |
static object LnkTLI37(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[37],(void **)&LnkLI37,1,ap);va_end(ap);return V1;} /* SET-TOP */ |
1031 |
static object LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],(void **)&LnkLI36,1,ap);} /* WT1 */ |
static object LnkTLI36(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[36],(void **)&LnkLI36,1,ap);va_end(ap);return V1;} /* WT1 */ |
1032 |
static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* WT-INLINE */ |
static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* WT-INLINE */ |
1033 |
static object LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],(void **)&LnkLI34,1,ap);} /* SET-RETURN */ |
static object LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,1,ap);va_end(ap);return V1;} /* SET-RETURN */ |
1034 |
|
|
1035 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1036 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |