/[gcl]/gcl/cmpnew/cmptop.c
ViewVC logotype

Diff of /gcl/cmpnew/cmptop.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by camm, Wed Feb 26 22:21:35 2003 UTC revision 1.11 by mjthomas, Tue Jul 8 06:50:01 2003 UTC
# Line 666  T348:; Line 666  T348:;
666          goto T352;          goto T352;
667          goto T353;          goto T353;
668  T353:;  T353:;
669          if((V63!= VV[43]))goto T355;          if((V63!= VV[285]))goto T355;
670          V60= Ct;          V59= Ct;
671          goto T352;          goto T352;
672          goto T355;          goto T355;
673  T355:;  T355:;
674          if((V63!= VV[285]))goto T357;          if((V63!= VV[43]))goto T357;
675            V60= Ct;
676          goto T352;          goto T352;
677          goto T357;          goto T357;
678  T357:;  T357:;
679            if((V63!= VV[286]))goto T359;
680            V60= Ct;
681            goto T352;
682            goto T359;
683    T359:;
684            if((V63!= VV[287]))goto T361;
685            goto T352;
686            goto T361;
687    T361:;
688            if((V63!= VV[288]))goto T362;
689            goto T352;
690            goto T362;
691    T362:;
692          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V62))));}          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V62))));}
693          goto T352;          goto T352;
694  T352:;  T352:;
# Line 686  T343:; Line 700  T343:;
700          base[1]= car((V58));          base[1]= car((V58));
701          bds_bind(VV[42],base[1]);          bds_bind(VV[42],base[1]);
702          if(((V59))==Cnil){          if(((V59))==Cnil){
703          goto T365;}          goto T370;}
704          base[2]= (*(LnkLI286))(cdr((V58)));          base[2]= (*(LnkLI289))(cdr((V58)));
705          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
706          bds_unwind1;          bds_unwind1;
707          return;          return;
708          goto T365;          goto T370;
709  T365:;  T370:;
710          if(((V60))==Cnil){          if(((V60))==Cnil){
711          goto T368;}          goto T373;}
712          base[2]= make_cons(VV[46],cdr((V58)));          base[2]= make_cons(VV[46],cdr((V58)));
713          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
714          (void) (*Lnk282)();          (void) (*Lnk282)();
715          bds_unwind1;          bds_unwind1;
716          return;          return;
717          goto T368;          goto T373;
718  T368:;  T373:;
719          base[2]= Cnil;          base[2]= Cnil;
720          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
721          bds_unwind1;          bds_unwind1;
# Line 718  object V65; Line 732  object V65;
732          goto TTL;          goto TTL;
733  TTL:;  TTL:;
734          if(!(equal(car((V65)),VV[47]))){          if(!(equal(car((V65)),VV[47]))){
735          goto T372;}          goto T377;}
736          bds_bind(VV[48],Ct);          bds_bind(VV[48],Ct);
737          {object V66 = (*(LnkLI286))(cdr((V65)));          {object V66 = (*(LnkLI289))(cdr((V65)));
738          bds_unwind1;          bds_unwind1;
739          VMR6(V66)}          VMR6(V66)}
740          goto T372;          goto T377;
741  T372:;  T377:;
742          {register object V67;          {register object V67;
743          register object V68;          register object V68;
744          V67= (V65);          V67= (V65);
745          V68= car((V67));          V68= car((V67));
746          goto T377;          goto T382;
747  T377:;  T382:;
748          if(!(endp_prop((V67)))){          if(!(endp_prop((V67)))){
749          goto T378;}          goto T383;}
750          {object V69 = Cnil;          {object V69 = Cnil;
751          VMR6(V69)}          VMR6(V69)}
752          goto T378;          goto T383;
753  T378:;  T383:;
754          base[1]= (V68);          base[1]= (V68);
755          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
756          (void) (*Lnk271)();          (void) (*Lnk271)();
757          vs_top=sup;          vs_top=sup;
758          V67= cdr((V67));          V67= cdr((V67));
759          V68= car((V67));          V68= car((V67));
760          goto T377;}          goto T382;}
761          base[0]=base[0];          base[0]=base[0];
762          return Cnil;          return Cnil;
763  }  }
# Line 767  TTL:; Line 781  TTL:;
781          register object V77;          register object V77;
782          V76= (V73);          V76= (V73);
783          V77= car((V76));          V77= car((V76));
784          goto T396;          goto T401;
785  T396:;  T401:;
786          if(!(endp_prop((V76)))){          if(!(endp_prop((V76)))){
787          goto T397;}          goto T402;}
         goto T392;  
788          goto T397;          goto T397;
789  T397:;          goto T402;
790    T402:;
791          {register object x= car((V77)),V78= (V75);          {register object x= car((V77)),V78= (V75);
792          while(!endp(V78))          while(!endp(V78))
793          if(eql(x,V78->c.c_car)){          if(eql(x,V78->c.c_car)){
794          V74= V78;          V74= V78;
795          goto T402;          goto T407;
796          }else V78=V78->c.c_cdr;          }else V78=V78->c.c_cdr;
797          V74= Cnil;}          V74= Cnil;}
798          goto T402;          goto T407;
799  T402:;  T407:;
800          if((V74)==Cnil){          if((V74)==Cnil){
801          goto T403;}          goto T408;}
802          {register object V79;          {register object V79;
803          register object V80;          register object V80;
804          V79= (V74);          V79= (V74);
805          V80= cadr((V77));          V80= cadr((V77));
806          if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));          if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));
807          ((V79))->c.c_car = (V80);}          ((V79))->c.c_car = (V80);}
808          goto T403;          goto T408;
809  T403:;  T408:;
810          V76= cdr((V76));          V76= cdr((V76));
811          V77= car((V76));          V77= car((V76));
812          goto T396;}          goto T401;}
813          goto T392;          goto T397;
814  T392:;  T397:;
815          {register object x= VV[49],V81= (V75);          {register object x= VV[49],V81= (V75);
816          while(!endp(V81))          while(!endp(V81))
817          if(eql(x,V81->c.c_car)){          if(eql(x,V81->c.c_car)){
818          V74= V81;          V74= V81;
819          goto T416;          goto T421;
820          }else V81=V81->c.c_cdr;          }else V81=V81->c.c_cdr;
821          V74= Cnil;}          V74= Cnil;}
822          goto T416;          goto T421;
823  T416:;  T421:;
824          if(((V74))==Cnil){          if(((V74))==Cnil){
825          goto T414;}          goto T419;}
826          {object V83;          {object V83;
827          V83= append((V73),cdr((V74)));          V83= append((V73),cdr((V74)));
828          if(type_of(V74)!=t_cons)FEwrong_type_argument(Scons,V74);          if(type_of(V74)!=t_cons)FEwrong_type_argument(Scons,V74);
829          (V74)->c.c_cdr = (V83);          (V74)->c.c_cdr = (V83);
830          goto T412;}          goto T417;}
831          goto T414;          goto T419;
832  T414:;  T419:;
833          V84= make_cons(VV[49],(V73));          V84= make_cons(VV[49],(V73));
834          V75= append((V75),/* INLINE-ARGS */V84);          V75= append((V75),/* INLINE-ARGS */V84);
835          goto T412;          goto T417;
836  T412:;  T417:;
837          {object V85 = listA(3,car((V72)),(V75),cddr((V72)));          {object V85 = listA(3,car((V72)),(V75),cddr((V72)));
838          VMR7(V85)}}          VMR7(V85)}}
839          base[0]=base[0];          base[0]=base[0];
# Line 838  TTL:; Line 852  TTL:;
852          V88= symbol_value(VV[50]);          V88= symbol_value(VV[50]);
853          bds_bind(VV[52],Cnil);          bds_bind(VV[52],Cnil);
854          if(endp_prop((V87))){          if(endp_prop((V87))){
855          goto T422;}          goto T427;}
856          if(!(endp_prop(cdr((V87))))){          if(!(endp_prop(cdr((V87))))){
857          goto T421;}          goto T426;}
858          goto T422;          goto T427;
859  T422:;  T427:;
860          V90 = make_fixnum((long)length((V87)));          V90 = make_fixnum((long)length((V87)));
861          (void)((*(LnkLI283))(VV[51],small_fixnum(2),V90));          (void)((*(LnkLI283))(VV[51],small_fixnum(2),V90));
         goto T421;  
 T421:;  
         if(type_of(car((V87)))==t_symbol){  
         goto T426;}  
         (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V87)))));  
862          goto T426;          goto T426;
863  T426:;  T426:;
864          V91= make_cons(VV[51],(V87));          if(type_of(car((V87)))==t_symbol){
865          (void)((*(LnkLI267))(Cnil,/* INLINE-ARGS */V91));          goto T431;}
866            (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V87)))));
867          goto T431;          goto T431;
868  T431:;  T431:;
869            V91= make_cons(VV[51],(V87));
870            (void)((*(LnkLI267))(Cnil,/* INLINE-ARGS */V91));
871            goto T436;
872    T436:;
873          setq(VV[6],Ct);          setq(VV[6],Ct);
874          setq(VV[54],Cnil);          setq(VV[54],Cnil);
875          {register object V92;          {register object V92;
# Line 863  T431:; Line 877  T431:;
877          object V94;          object V94;
878          register object V95;{object V96;          register object V95;{object V96;
879          V96= get(car((V87)),VV[60],Cnil);          V96= get(car((V87)),VV[60],Cnil);
880          if(V96==Cnil)goto T438;          if(V96==Cnil)goto T443;
881          V93= V96;          V93= V96;
882          goto T437;          goto T442;
883          goto T438;          goto T443;
884  T438:;}  T443:;}
885          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
886          V93= symbol_value(VV[61]);          V93= symbol_value(VV[61]);
887          goto T437;          goto T442;
888  T437:;  T442:;
889          V95= car((V87));          V95= car((V87));
890          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
891          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
# Line 880  T437:; Line 894  T437:;
894          V92= Cnil;          V92= Cnil;
895          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
896          V94= Cnil;          V94= Cnil;
897          V92= (VFUN_NARGS=2,(*(LnkLI287))(cdr((V87)),(V95)));          V92= (VFUN_NARGS=2,(*(LnkLI290))(cdr((V87)),(V95)));
898          if(!(eql((V88),symbol_value(VV[50])))){          if(!(eql((V88),symbol_value(VV[50])))){
899          goto T445;}          goto T450;}
900          goto T444;          goto T449;
901          goto T445;          goto T450;
902  T445:;  T450:;
903          (void)(structure_set(cadr((V92)),VV[62],4,Ct));          (void)(structure_set(cadr((V92)),VV[62],4,Ct));
904          goto T444;          goto T449;
905  T444:;  T449:;
906          V97= structure_ref(cadr((V92)),VV[62],1);          V97= structure_ref(cadr((V92)),VV[62],1);
907          (void)((*(LnkLI288))(/* INLINE-ARGS */V97));          (void)((*(LnkLI291))(/* INLINE-ARGS */V97));
908          if((get((V95),VV[63],Cnil))==Cnil){          if((get((V95),VV[63],Cnil))==Cnil){
909          goto T448;}          goto T453;}
910          {object V98;          {object V98;
911          V98= make_fixnum((long)length(car(caddr((V92)))));          V98= make_fixnum((long)length(car(caddr((V92)))));
912          (void)(sputprop((V95),VV[63],(V98)));          (void)(sputprop((V95),VV[63],(V98)));
# Line 904  T444:; Line 918  T444:;
918          vs_top=sup;          vs_top=sup;
919          V99= vs_base[0];          V99= vs_base[0];
920          V100= list(4,VV[64],(V95),V99,Ct);          V100= list(4,VV[64],(V95),V99,Ct);
921          (void)((*(LnkLI289))(/* INLINE-ARGS */V100));}          (void)((*(LnkLI292))(/* INLINE-ARGS */V100));}
922          goto T448;          goto T453;
923  T448:;  T453:;
924          if((get((V95),VV[66],Cnil))==Cnil){          if((get((V95),VV[66],Cnil))==Cnil){
925          goto T459;}          goto T464;}
926          {object V101;          {object V101;
927          register object V102;          register object V102;
928          V101= caddr((V92));          V101= caddr((V92));
929          V102= Cnil;          V102= Cnil;
930          if((cadr((V101)))==Cnil){          if((cadr((V101)))==Cnil){
931          goto T464;}          goto T469;}
         goto T459;  
932          goto T464;          goto T464;
933  T464:;          goto T469;
934    T469:;
935          if((caddr((V101)))==Cnil){          if((caddr((V101)))==Cnil){
936          goto T466;}          goto T471;}
937          goto T459;          goto T464;
938          goto T466;          goto T471;
939  T466:;  T471:;
940          if((cadddr((V101)))==Cnil){          if((cadddr((V101)))==Cnil){
941          goto T468;}          goto T473;}
942          goto T459;          goto T464;
943          goto T468;          goto T473;
944  T468:;  T473:;
945          if(((long)length(car((V101))))<(64)){          if(((long)length(car((V101))))<(64)){
946          goto T470;}          goto T475;}
947          goto T459;          goto T464;
948          goto T470;          goto T475;
949  T470:;  T475:;
950          {register object V103;          {register object V103;
951          register object V104;          register object V104;
952          object V105;          object V105;
953          V103= car((V101));          V103= car((V101));
954          V104= get((V95),VV[67],Cnil);          V104= get((V95),VV[67],Cnil);
955          V105= Cnil;          V105= Cnil;
956          goto T477;          goto T482;
957  T477:;  T482:;
958          if(!(endp_prop((V103)))){          if(!(endp_prop((V103)))){
959          goto T478;}          goto T483;}
960          if(endp_prop((V104))){          if(endp_prop((V104))){
961          goto T481;}          goto T486;}
962          goto T473;          goto T478;
963          goto T481;          goto T486;
964  T481:;  T486:;
965          if(((V102))==Cnil){          if(((V102))==Cnil){
966          goto T484;}          goto T489;}
967          V87= (*(LnkLI290))((V87),(V102));          V87= (*(LnkLI293))((V87),(V102));
968          bds_unwind1;          bds_unwind1;
969          bds_unwind1;          bds_unwind1;
970          bds_unwind1;          bds_unwind1;
971          bds_unwind1;          bds_unwind1;
972          bds_unwind1;          bds_unwind1;
973          goto T431;          goto T436;
974          goto T484;          goto T489;
975  T484:;  T489:;
976          if(((V105))==Cnil){          if(((V105))==Cnil){
977          goto T472;}          goto T477;}
         goto T473;  
978          goto T478;          goto T478;
979  T478:;          goto T483;
980    T483:;
981          {register object V106;          {register object V106;
982          V106= car((V103));          V106= car((V103));
983          if(!(equal(car((V104)),VV[68]))){          if(!(equal(car((V104)),VV[68]))){
984          goto T491;}          goto T496;}
985          goto T473;          goto T478;
986          goto T491;          goto T496;
987  T491:;  T496:;
988          V107= structure_ref((V106),VV[69],1);          V107= structure_ref((V106),VV[69],1);
989          if((/* INLINE-ARGS */V107)==(VV[70])){          if((/* INLINE-ARGS */V107)==(VV[70])){
990          goto T497;}          goto T502;}
991          V108= structure_ref((V106),VV[69],1);          V108= structure_ref((V106),VV[69],1);
992          if(!((/* INLINE-ARGS */V108)==(VV[71]))){          if(!((/* INLINE-ARGS */V108)==(VV[71]))){
993          goto T496;}          goto T501;}
994          if(!((car((V104)))==(Ct))){          if(!((car((V104)))==(Ct))){
995          goto T496;}          goto T501;}
996          goto T497;          goto T502;
997  T497:;  T502:;
998          if((structure_ref((V106),VV[69],3))!=Cnil){          if((structure_ref((V106),VV[69],3))!=Cnil){
999          goto T496;}          goto T501;}
1000          V109= structure_ref((V106),VV[69],4);          V109= structure_ref((V106),VV[69],4);
1001          if(!((/* INLINE-ARGS */V109)==(VV[72]))){          if(!((/* INLINE-ARGS */V109)==(VV[72]))){
1002          goto T495;}          goto T500;}
1003          goto T496;          goto T501;
1004  T496:;  T501:;
1005          {object V110;          {object V110;
1006          V111= structure_ref((V106),VV[69],0);          V111= structure_ref((V106),VV[69],0);
1007          vs_base=vs_top;          vs_base=vs_top;
# Line 996  T496:; Line 1010  T496:;
1010          V112= vs_base[0];          V112= vs_base[0];
1011          V110= list(2,/* INLINE-ARGS */V111,V112);          V110= list(2,/* INLINE-ARGS */V111,V112);
1012          V102= make_cons((V110),(V102));}          V102= make_cons((V110),(V102));}
1013          goto T495;          goto T500;
1014  T495:;  T500:;
1015          V113= car((V104));          V113= car((V104));
1016          V114= structure_ref((V106),VV[69],5);          V114= structure_ref((V106),VV[69],5);
1017          if(((*(LnkLI291))(/* INLINE-ARGS */V113,/* INLINE-ARGS */V114))==Cnil){          if(((*(LnkLI294))(/* INLINE-ARGS */V113,/* INLINE-ARGS */V114))==Cnil){
1018          goto T494;}          goto T499;}
1019          {register object x= car((V104)),V115= VV[73];          {register object x= car((V104)),V115= VV[73];
1020          while(!endp(V115))          while(!endp(V115))
1021          if(eql(x,V115->c.c_car)){          if(eql(x,V115->c.c_car)){
1022          goto T489;          goto T494;
1023          }else V115=V115->c.c_cdr;}          }else V115=V115->c.c_cdr;}
1024          V116= structure_ref((V106),VV[69],4);          V116= structure_ref((V106),VV[69],4);
1025          if((/* INLINE-ARGS */V116)==(VV[74])){          if((/* INLINE-ARGS */V116)==(VV[74])){
1026          goto T489;}          goto T494;}
1027          if((symbol_value(VV[75]))!=Cnil){          if((symbol_value(VV[75]))!=Cnil){
1028          goto T489;}          goto T494;}
1029          V118= structure_ref(cadr((V92)),VV[62],0);          V118= structure_ref(cadr((V92)),VV[62],0);
1030          {register object x= (V106),V117= /* INLINE-ARGS */V118;          {register object x= (V106),V117= /* INLINE-ARGS */V118;
1031          while(!endp(V117))          while(!endp(V117))
1032          if(eql(x,V117->c.c_car)){          if(eql(x,V117->c.c_car)){
1033          goto T519;          goto T524;
1034          }else V117=V117->c.c_cdr;          }else V117=V117->c.c_cdr;
1035          goto T489;}          goto T494;}
1036          goto T519;          goto T524;
1037  T519:;  T524:;
1038          goto T494;          goto T499;
1039  T494:;  T499:;
1040          if(((V102))!=Cnil){          if(((V102))!=Cnil){
1041          goto T520;}          goto T525;}
1042          V119= structure_ref((V106),VV[69],0);          V119= structure_ref((V106),VV[69],0);
1043          (void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V95),/* INLINE-ARGS */V119)));          (void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V95),/* INLINE-ARGS */V119)));
1044          goto T520;          goto T525;
1045  T520:;  T525:;
1046          V105= Ct;}          V105= Ct;}
1047          goto T489;          goto T494;
1048  T489:;  T494:;
1049          V103= cdr((V103));          V103= cdr((V103));
1050          V104= cdr((V104));          V104= cdr((V104));
1051          goto T477;}          goto T482;}
1052          goto T473;          goto T478;
1053  T473:;  T478:;
1054          goto T459;          goto T464;
1055          goto T472;          goto T477;
1056  T472:;  T477:;
1057          if(!(type_of((V93))==t_fixnum||          if(!(type_of((V93))==t_fixnum||
1058  type_of((V93))==t_bignum||  type_of((V93))==t_bignum||
1059  type_of((V93))==t_ratio||  type_of((V93))==t_ratio||
1060  type_of((V93))==t_shortfloat||  type_of((V93))==t_shortfloat||
1061  type_of((V93))==t_longfloat||  type_of((V93))==t_longfloat||
1062  type_of((V93))==t_complex)){  type_of((V93))==t_complex)){
1063          goto T459;}}          goto T464;}}
1064          {object V120;          {object V120;
1065          V121= get((V95),VV[67],Cnil);          V121= get((V95),VV[67],Cnil);
1066          V122= get((V95),VV[77],Cnil);          V122= get((V95),VV[77],Cnil);
1067          V123= get((V95),VV[67],Cnil);          V123= get((V95),VV[67],Cnil);
1068          V120= list(5,(V95),V121,V122,small_fixnum(3),(*(LnkLI292))((V93),V123));          V120= list(5,(V95),V121,V122,small_fixnum(3),(*(LnkLI295))((V93),V123));
1069          setq(VV[78],make_cons((V120),symbol_value(VV[78])));          setq(VV[78],make_cons((V120),symbol_value(VV[78])));
1070          goto T457;}          goto T462;}
1071          goto T459;          goto T464;
1072  T459:;  T464:;
1073          {object V124;          {object V124;
1074          V125= get((V95),VV[77],Cnil);          V125= get((V95),VV[77],Cnil);
1075          V124= ((V125)==(Ct)?Ct:Cnil);          V124= ((V125)==(Ct)?Ct:Cnil);
1076          if(((V124))==Cnil){          if(((V124))==Cnil){
1077          goto T457;}}          goto T462;}}
1078          goto T457;          goto T462;
1079  T457:;  T462:;
1080          if((cadddr((V92)))==Cnil){          if((cadddr((V92)))==Cnil){
1081          goto T537;}          goto T542;}
1082          V94= cadddr((V92));          V94= cadddr((V92));
1083          goto T537;          goto T542;
1084  T537:;  T542:;
1085          (void)((*(LnkLI293))());          (void)((*(LnkLI296))());
1086          {object V126;          {object V126;
1087          V126= list(6,VV[51],(V95),(V93),(V92),(V94),(VV[59]->s.s_dbind));          V126= list(6,VV[51],(V95),(V93),(V92),(V94),(VV[59]->s.s_dbind));
1088          setq(VV[24],make_cons((V126),symbol_value(VV[24])));}          setq(VV[24],make_cons((V126),symbol_value(VV[24])));}
# Line 1096  object V132;object V133; Line 1110  object V132;object V133;
1110          goto TTL;          goto TTL;
1111  TTL:;  TTL:;
1112          if(((V133))!=Cnil){          if(((V133))!=Cnil){
1113          goto T548;}          goto T553;}
1114          base[0]= Cnil;          base[0]= Cnil;
1115          base[1]= VV[80];          base[1]= VV[80];
1116          base[2]= (V132);          base[2]= (V132);
# Line 1105  TTL:; Line 1119  TTL:;
1119          vs_top=sup;          vs_top=sup;
1120          {object V134 = vs_base[0];          {object V134 = vs_base[0];
1121          VMR9(V134)}          VMR9(V134)}
1122          goto T548;          goto T553;
1123  T548:;  T553:;
1124          {register object V135;          {register object V135;
1125          V135= (VFUN_NARGS=7,(*(LnkLI294))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));          V135= (VFUN_NARGS=7,(*(LnkLI297))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));
1126          base[0]= (V135);          base[0]= (V135);
1127          base[1]= VV[85];          base[1]= VV[85];
1128          base[2]= (V132);          base[2]= (V132);
# Line 1119  T548:; Line 1133  T548:;
1133          register long V137;          register long V137;
1134          V137= 0;          V137= 0;
1135          V136= (V133);          V136= (V133);
1136          goto T561;          goto T566;
1137  T561:;  T566:;
1138          if(!(endp_prop(cdr((V136))))){          if(!(endp_prop(cdr((V136))))){
1139          goto T562;}          goto T567;}
1140          base[0]= (V135);          base[0]= (V135);
1141          base[1]= VV[86];          base[1]= VV[86];
1142          base[2]= make_fixnum(V137);          base[2]= make_fixnum(V137);
1143          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1144          Lformat();          Lformat();
1145          vs_top=sup;          vs_top=sup;
1146          goto T558;          goto T563;
1147          goto T562;          goto T567;
1148  T562:;  T567:;
1149          base[0]= (V135);          base[0]= (V135);
1150          base[1]= VV[87];          base[1]= VV[87];
1151          base[2]= make_fixnum(V137);          base[2]= make_fixnum(V137);
# Line 1140  T562:; Line 1154  T562:;
1154          vs_top=sup;          vs_top=sup;
1155          V136= cdr((V136));          V136= cdr((V136));
1156          V137= (long)(V137)+1;          V137= (long)(V137)+1;
1157          goto T561;}          goto T566;}
1158          goto T558;          goto T563;
1159  T558:;  T563:;
1160          {object V138 = (V135);          {object V138 = (V135);
1161          VMR9(V138)}}          VMR9(V138)}}
1162          base[0]=base[0];          base[0]=base[0];
# Line 1158  static object LI10(object first,...) Line 1172  static object LI10(object first,...)
1172          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1173          va_start(ap,first);          va_start(ap,first);
1174          narg = narg - 0;          narg = narg - 0;
1175          if (narg <= 0) goto T577;          if (narg <= 0) goto T582;
1176          else {          else {
1177          V139= first;}          V139= first;}
1178          --narg; goto T578;          --narg; goto T583;
1179          goto T577;          goto T582;
1180  T577:;  T582:;
1181          V139= Cnil;          V139= Cnil;
1182          goto T578;          goto T583;
1183  T578:;  T583:;
1184          {object V140;          {object V140;
1185          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
1186          V140= symbol_value(VV[88]);          V140= symbol_value(VV[88]);
1187          {object V141;          {object V141;
1188          if(((V139))==Cnil){          if(((V139))==Cnil){
1189          goto T585;}          goto T590;}
1190          V141= make_cons((V139),(V140));          V141= make_cons((V139),(V140));
1191          goto T583;          goto T588;
1192          goto T585;          goto T590;
1193  T585:;  T590:;
1194          V141= (V140);          V141= (V140);
1195          goto T583;          goto T588;
1196  T583:;  T588:;
1197          setq(VV[18],make_cons((V141),symbol_value(VV[18])));}          setq(VV[18],make_cons((V141),symbol_value(VV[18])));}
1198          {object V142 = (V140);          {object V142 = (V140);
1199          VMR10(V142)}}          VMR10(V142)}}
# Line 1198  TTL:; Line 1212  TTL:;
1212          base[0]= (V144);          base[0]= (V144);
1213          base[1]= VV[69];          base[1]= VV[69];
1214          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1215          (void) (*Lnk295)();          (void) (*Lnk298)();
1216          vs_top=sup;          vs_top=sup;
1217          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1218          goto T588;}          goto T593;}
1219          V144= structure_ref((V144),VV[69],5);          V144= structure_ref((V144),VV[69],5);
1220          goto T588;          goto T593;
1221  T588:;  T593:;
1222          if(((V144))==Cnil){          if(((V144))==Cnil){
1223          goto T595;}          goto T600;}
1224          base[0]= (V144);          base[0]= (V144);
1225          base[1]= VV[89];          base[1]= VV[89];
1226          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1227          (void) (*Lnk296)();          (void) (*Lnk299)();
1228          vs_top=sup;          vs_top=sup;
1229          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1230          goto T595;}          goto T600;}
1231          {long V145 = 1;          {long V145 = 1;
1232          VMR11((object)V145)}          VMR11((object)V145)}
1233          goto T595;          goto T600;
1234  T595:;  T600:;
1235          {long V146 = 0;          {long V146 = 0;
1236          VMR11((object)V146)}          VMR11((object)V146)}
1237          base[0]=base[0];          base[0]=base[0];
# Line 1236  TTL:; Line 1250  TTL:;
1250          register object V154;          register object V154;
1251          V151= (long)length((V149));          V151= (long)length((V149));
1252          V152= 8;          V152= 8;
1253          V153= make_fixnum((long)(*(LnkLI297))((V150)));          V153= make_fixnum((long)(*(LnkLI300))((V150)));
1254          V154= Ct;          V154= Ct;
1255          goto T605;          goto T610;
1256  T605:;  T610:;
1257          if(eql(small_fixnum(0),(V153))){          if(eql(small_fixnum(0),(V153))){
1258          goto T607;}          goto T612;}
1259          V151= (long)(V151)+((long)((fix((V153))) << (V152)));          V151= (long)(V151)+((long)((fix((V153))) << (V152)));
1260          goto T607;          goto T612;
1261  T607:;  T612:;
1262          if(((V154))==Cnil){          if(((V154))==Cnil){
1263          goto T611;}          goto T616;}
1264          V152= 10;          V152= 10;
1265          V154= Cnil;          V154= Cnil;
1266          goto T611;          goto T616;
1267  T611:;  T616:;
1268          if(((V149))!=Cnil){          if(((V149))!=Cnil){
1269          goto T617;}          goto T622;}
1270          {long V155 = V151;          {long V155 = V151;
1271          VMR12((object)V155)}          VMR12((object)V155)}
1272          goto T617;          goto T622;
1273  T617:;  T622:;
1274          V152= (long)(V152)+(2);          V152= (long)(V152)+(2);
1275          {register object V157;          {register object V157;
1276          V157= car((V149));          V157= car((V149));
1277          V149= cdr((V149));          V149= cdr((V149));
1278          V156= (V157);}          V156= (V157);}
1279          V153= make_fixnum((long)(*(LnkLI297))(V156));          V153= make_fixnum((long)(*(LnkLI300))(V156));
1280          goto T605;}          goto T610;}
1281  }  }
1282  /*      local entry for function WT-IF-PROCLAIMED       */  /*      local entry for function WT-IF-PROCLAIMED       */
1283    
# Line 1273  register object V161;object V162;object Line 1287  register object V161;object V162;object
1287  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1288          goto TTL;          goto TTL;
1289  TTL:;  TTL:;
1290          if(((VFUN_NARGS=1,(*(LnkLI299))((V161))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI302))((V161))))==Cnil){
1291          goto T629;}          goto T634;}
1292          {register object x= (V161),V164= symbol_value(VV[78]);          {register object x= (V161),V164= symbol_value(VV[78]);
1293          while(!endp(V164))          while(!endp(V164))
1294          if(type_of(V164->c.c_car)==t_cons &&eql(x,V164->c.c_car->c.c_car)){          if(type_of(V164->c.c_car)==t_cons &&eql(x,V164->c.c_car->c.c_car)){
1295          goto T633;          goto T638;
1296          }else V164=V164->c.c_cdr;          }else V164=V164->c.c_cdr;
1297          goto T632;}          goto T637;}
1298          goto T633;          goto T638;
1299  T633:;  T638:;
1300          V165= list(2,VV[91],(V161));          V165= list(2,VV[91],(V161));
1301          V166= (*(LnkLI301))(VV[92],(V162));          V166= (*(LnkLI304))(VV[92],(V162));
1302          V167= get((V161),VV[67],Cnil);          V167= get((V161),VV[67],Cnil);
1303          V168= get((V161),VV[77],Cnil);          V168= get((V161),VV[77],Cnil);
1304          V169 = make_fixnum((long)(*(LnkLI302))(V167,V168));          V169 = make_fixnum((long)(*(LnkLI305))(V167,V168));
1305          V170= list(4,VV[90],/* INLINE-ARGS */V165,/* INLINE-ARGS */V166,V169);          V170= list(4,VV[90],/* INLINE-ARGS */V165,/* INLINE-ARGS */V166,V169);
1306          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V170)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V170)));
1307          {object V171 = Ct;          {object V171 = Ct;
1308          VMR13(V171)}          VMR13(V171)}
1309          goto T632;          goto T637;
1310  T632:;  T637:;
1311          {register object V172;          {register object V172;
1312          register object V173;          register object V173;
1313          object V174;          object V174;
# Line 1305  T632:; Line 1319  T632:;
1319          while(!endp(V176))          while(!endp(V176))
1320          if(eql(x,V176->c.c_car)){          if(eql(x,V176->c.c_car)){
1321          V174= V176;          V174= V176;
1322          goto T641;          goto T646;
1323          }else V176=V176->c.c_cdr;          }else V176=V176->c.c_cdr;
1324          V174= Cnil;}          V174= Cnil;}
1325          goto T641;          goto T646;
1326  T641:;  T646:;
1327          if(((V174))==Cnil){          if(((V174))==Cnil){
1328          goto T644;}          goto T649;}
1329          base[0]= (V172);          base[0]= (V172);
1330          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1331          Lmonotonically_nonincreasing();          Lmonotonically_nonincreasing();
1332          vs_top=sup;          vs_top=sup;
1333          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1334          goto T646;}          goto T651;}
1335          goto T637;          goto T642;
1336          goto T646;          goto T651;
1337  T646:;{object V178;  T651:;{object V178;
1338          V179 = make_fixnum((long)length((V174)));          V179 = make_fixnum((long)length((V174)));
1339          V178= number_minus((V173),V179);          V178= number_minus((V173),V179);
1340          if(V178==Cnil)goto T649;          if(V178==Cnil)goto T654;
1341          goto T637;          goto T642;
1342          goto T649;          goto T654;
1343  T649:;}  T654:;}
1344          V180 = make_fixnum((long)length((V174)));          V180 = make_fixnum((long)length((V174)));
1345          V181= number_minus((V173),V180);          V181= number_minus((V173),V180);
1346          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V161),/* INLINE-ARGS */V181,(V172))));          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V161),/* INLINE-ARGS */V181,(V172))));
1347          goto T637;          goto T642;
1348          goto T644;          goto T649;
1349  T644:;  T649:;
1350          if(eql((V172),(V173))){          if(eql((V172),(V173))){
1351          goto T652;}          goto T657;}
1352          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V161),(V173),(V172))));          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V161),(V173),(V172))));
1353          goto T637;          goto T642;
1354          goto T652;          goto T657;
1355  T652:;  T657:;
1356          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V161))));}          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V161))));}
1357          goto T637;          goto T642;
1358  T637:;  T642:;
1359          {object V182 = Cnil;          {object V182 = Cnil;
1360          VMR13(V182)}          VMR13(V182)}
1361          goto T629;          goto T634;
1362  T629:;  T634:;
1363          {object V183 = Cnil;          {object V183 = Cnil;
1364          VMR13(V183)}          VMR13(V183)}
1365          base[0]=base[0];          base[0]=base[0];
# Line 1360  object V185; Line 1374  object V185;
1374          goto TTL;          goto TTL;
1375  TTL:;  TTL:;
1376          if((structure_ref((V185),VV[62],4))==Cnil){          if((structure_ref((V185),VV[62],4))==Cnil){
1377          goto T655;}          goto T660;}
1378          {object V186 = VV[96];          {object V186 = VV[96];
1379          VMR14(V186)}          VMR14(V186)}
1380          goto T655;          goto T660;
1381  T655:;  T660:;
1382          {object V187 = VV[97];          {object V187 = VV[97];
1383          VMR14(V187)}          VMR14(V187)}
1384          return Cnil;          return Cnil;
# Line 1378  object V189; Line 1392  object V189;
1392          goto TTL;          goto TTL;
1393  TTL:;  TTL:;
1394          if(!(equal(symbol_value(VV[20]),VV[98]))){          if(!(equal(symbol_value(VV[20]),VV[98]))){
1395          goto T658;}          goto T663;}
1396          {long V190= fix(structure_ref((V189),VV[69],6));          {long V190= fix(structure_ref((V189),VV[69],6));
1397          if(!((/* INLINE-ARGS */V190)>=(fix(symbol_value(VV[99]))))){          if(!((/* INLINE-ARGS */V190)>=(fix(symbol_value(VV[99]))))){
1398          goto T658;}}          goto T663;}}
1399          {object V191 = VV[100];          {object V191 = VV[100];
1400          VMR15(V191)}          VMR15(V191)}
1401          goto T658;          goto T663;
1402  T658:;  T663:;
1403          {object V192 = VV[101];          {object V192 = VV[101];
1404          VMR15(V192)}          VMR15(V192)}
1405          return Cnil;          return Cnil;
# Line 1400  object V194; Line 1414  object V194;
1414  TTL:;  TTL:;
1415          V195= get((V194),VV[77],Cnil);          V195= get((V194),VV[77],Cnil);
1416          if(equal(V195,Ct)){          if(equal(V195,Ct)){
1417          goto T662;}          goto T667;}
1418          {object V196 = Cnil;          {object V196 = Cnil;
1419          VMR16(V196)}          VMR16(V196)}
         goto T662;  
 T662:;  
         {register object V197;  
         V197= get((V194),VV[67],Cnil);  
1420          goto T667;          goto T667;
1421  T667:;  T667:;
1422            {register object V197;
1423            V197= get((V194),VV[67],Cnil);
1424            goto T672;
1425    T672:;
1426          if(((V197))!=Cnil){          if(((V197))!=Cnil){
1427          goto T668;}          goto T673;}
1428          {object V198 = Ct;          {object V198 = Ct;
1429          VMR16(V198)}          VMR16(V198)}
         goto T668;  
 T668:;  
         if(!(type_of((V197))==t_cons)){  
         goto T673;}  
         goto T672;  
1430          goto T673;          goto T673;
1431  T673:;  T673:;
1432            if(!(type_of((V197))==t_cons)){
1433            goto T678;}
1434            goto T677;
1435            goto T678;
1436    T678:;
1437          {object V199 = Cnil;          {object V199 = Cnil;
1438          VMR16(V199)}          VMR16(V199)}
1439          goto T672;          goto T677;
1440  T672:;  T677:;
1441          if(!((car((V197)))==(Ct))){          if(!((car((V197)))==(Ct))){
1442          goto T676;}          goto T681;}
1443          goto T675;          goto T680;
1444          goto T676;          goto T681;
1445  T676:;  T681:;
1446          if(!((car((V197)))==(VV[68]))){          if(!((car((V197)))==(VV[68]))){
1447          goto T678;}          goto T683;}
1448          goto T675;          goto T680;
1449          goto T678;          goto T683;
1450  T678:;  T683:;
1451          {object V200 = Cnil;          {object V200 = Cnil;
1452          VMR16(V200)}          VMR16(V200)}
1453          goto T675;          goto T680;
1454  T675:;  T680:;
1455          V197= cdr((V197));          V197= cdr((V197));
1456          goto T667;}          goto T672;}
1457          return Cnil;          return Cnil;
1458  }  }
1459  /*      local entry for function MAXARGS        */  /*      local entry for function MAXARGS        */
# Line 1451  register object V202; Line 1465  register object V202;
1465          goto TTL;          goto TTL;
1466  TTL:;  TTL:;
1467          if((cadddr((V202)))!=Cnil){          if((cadddr((V202)))!=Cnil){
1468          goto T683;}          goto T688;}
1469          if((caddr((V202)))==Cnil){          if((caddr((V202)))==Cnil){
1470          goto T684;}          goto T689;}
1471          goto T683;          goto T688;
1472  T683:;  T688:;
1473          {object V203 = small_fixnum(64);          {object V203 = small_fixnum(64);
1474          VMR17(V203)}          VMR17(V203)}
1475          goto T684;          goto T689;
1476  T684:;  T689:;
1477          base[0]= make_fixnum((long)length(car((V202))));          base[0]= make_fixnum((long)length(car((V202))));
1478          base[1]= make_fixnum((long)length(cadr((V202))));          base[1]= make_fixnum((long)length(cadr((V202))));
1479          V204 = make_fixnum((long)length(car(cddddr((V202)))));          V204 = make_fixnum((long)length(car(cddddr((V202)))));
# Line 1500  register object V218;register object V21 Line 1514  register object V218;register object V21
1514          goto TTL;          goto TTL;
1515  TTL:;  TTL:;
1516          if((get((V218),VV[102],Cnil))==Cnil){          if((get((V218),VV[102],Cnil))==Cnil){
1517          goto T696;}          goto T701;}
1518          {object V223 = Cnil;          {object V223 = Cnil;
1519          VMR19(V223)}          VMR19(V223)}
1520          goto T696;          goto T701;
1521  T696:;  T701:;
1522          if(((V221))==Cnil){          if(((V221))==Cnil){
1523          goto T699;}          goto T704;}
1524          V224= list(4,VV[103],list(2,VV[91],(V218)),(V221),VV[104]);          V224= list(4,VV[103],list(2,VV[91],(V218)),(V221),VV[104]);
1525          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V224)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V224)));
1526          goto T699;          goto T704;
1527  T699:;  T704:;
1528          {object V225;          {object V225;
1529          V225= (*(LnkLI303))((V218),(V219),(V220));          V225= (*(LnkLI306))((V218),(V219),(V220));
1530          if(((V225))==Cnil){          if(((V225))==Cnil){
1531          goto T705;}          goto T710;}
1532          goto T702;          goto T707;
1533          goto T705;          goto T710;
1534  T705:;  T710:;
1535          if(((*(LnkLI304))((V218)))==Cnil){          if(((*(LnkLI307))((V218)))==Cnil){
1536          goto T708;}          goto T713;}
1537          {object V226;          {object V226;
1538          V226= cadddr(caddr((V220)));          V226= cadddr(caddr((V220)));
1539          if(((V226))==Cnil){          if(((V226))==Cnil){
1540          goto T712;}          goto T717;}
1541          V227= list(2,VV[91],(V218));          V227= list(2,VV[91],(V218));
1542          V228= (*(LnkLI301))(VV[106],(V219));          V228= (*(LnkLI304))(VV[106],(V219));
1543          V229 = make_fixnum((long)length(car(caddr((V220)))));          V229 = make_fixnum((long)length(car(caddr((V220)))));
1544          V230= (*(LnkLI305))(caddr((V220)));          V230= (*(LnkLI308))(caddr((V220)));
1545          V231= (*(LnkLI298))(/* INLINE-ARGS */V230,small_fixnum(8));          V231= (*(LnkLI301))(/* INLINE-ARGS */V230,small_fixnum(8));
1546          V232= number_plus(V229,/* INLINE-ARGS */V231);          V232= number_plus(V229,/* INLINE-ARGS */V231);
1547          base[0]= Cnil;          base[0]= Cnil;
1548          base[1]= VV[107];          base[1]= VV[107];
# Line 1537  T705:; Line 1551  T705:;
1551          Lformat();          Lformat();
1552          vs_top=sup;          vs_top=sup;
1553          V233= vs_base[0];          V233= vs_base[0];
1554          V234= list(5,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,/* INLINE-ARGS */V232,(*(LnkLI301))(V233,VV[108]));          V234= list(5,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,/* INLINE-ARGS */V232,(*(LnkLI304))(V233,VV[108]));
1555          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V234)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V234)));
1556          goto T702;          goto T707;
1557          goto T712;          goto T717;
1558  T712:;  T717:;
1559          V235= list(2,VV[91],(V218));          V235= list(2,VV[91],(V218));
1560          V236= (*(LnkLI301))(VV[110],(V219));          V236= (*(LnkLI304))(VV[110],(V219));
1561          V237 = make_fixnum((long)length(car(caddr((V220)))));          V237 = make_fixnum((long)length(car(caddr((V220)))));
1562          V238= (*(LnkLI305))(caddr((V220)));          V238= (*(LnkLI308))(caddr((V220)));
1563          V239= (*(LnkLI298))(/* INLINE-ARGS */V238,small_fixnum(8));          V239= (*(LnkLI301))(/* INLINE-ARGS */V238,small_fixnum(8));
1564          V240= list(4,VV[109],/* INLINE-ARGS */V235,/* INLINE-ARGS */V236,number_plus(V237,/* INLINE-ARGS */V239));          V240= list(4,VV[109],/* INLINE-ARGS */V235,/* INLINE-ARGS */V236,number_plus(V237,/* INLINE-ARGS */V239));
1565          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V240)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V240)));
1566          goto T702;}          goto T707;}
1567          goto T708;          goto T713;
1568  T708:;  T713:;
1569          if(!(type_of((V219))==t_fixnum||          if(!(type_of((V219))==t_fixnum||
1570  type_of((V219))==t_bignum||  type_of((V219))==t_bignum||
1571  type_of((V219))==t_ratio||  type_of((V219))==t_ratio||
1572  type_of((V219))==t_shortfloat||  type_of((V219))==t_shortfloat||
1573  type_of((V219))==t_longfloat||  type_of((V219))==t_longfloat||
1574  type_of((V219))==t_complex)){  type_of((V219))==t_complex)){
1575          goto T719;}          goto T724;}
1576          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[31]);
1577          (void)((*(LnkLI277))((V219)));          (void)((*(LnkLI277))((V219)));
1578          princ_str("();",VV[31]);          princ_str("();",VV[31]);
1579          V241= list(2,VV[91],(V218));          V241= list(2,VV[91],(V218));
1580          V242= list(3,VV[111],/* INLINE-ARGS */V241,(*(LnkLI301))(VV[112],(V219)));          V242= list(3,VV[111],/* INLINE-ARGS */V241,(*(LnkLI304))(VV[112],(V219)));
1581          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V242)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V242)));
1582          goto T702;          goto T707;
1583          goto T719;          goto T724;
1584  T719:;  T724:;
1585          princ_char(10,VV[31]);          princ_char(10,VV[31]);
1586          (void)((*(LnkLI277))((V219)));          (void)((*(LnkLI277))((V219)));
1587          princ_str("();",VV[31]);          princ_str("();",VV[31]);
1588          V243= list(2,VV[91],(V218));          V243= list(2,VV[91],(V218));
1589          V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI301))(VV[113],(V219)));          V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI304))(VV[113],(V219)));
1590          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V244)));}          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V244)));}
1591          goto T702;          goto T707;
1592  T702:;  T707:;
1593          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){
1594          goto T730;}          goto T735;}
1595          {object V245 = sputprop((V218),VV[115],Ct);          {object V245 = sputprop((V218),VV[115],Ct);
1596          VMR19(V245)}          VMR19(V245)}
1597          goto T730;          goto T735;
1598  T730:;  T735:;
1599          {object V246 = Cnil;          {object V246 = Cnil;
1600          VMR19(V246)}          VMR19(V246)}
1601          base[0]=base[0];          base[0]=base[0];
# Line 1611  TTL:; Line 1625  TTL:;
1625          {register object V262;          {register object V262;
1626          V262= Cnil;          V262= Cnil;
1627          bds_bind(VV[0],list(2,VV[51],(V257)));          bds_bind(VV[0],list(2,VV[51],(V257)));
1628          bds_bind(VV[20],(*(LnkLI306))(cadr((V259))));          bds_bind(VV[20],(*(LnkLI309))(cadr((V259))));
1629          bds_bind(VV[117],Cnil);          bds_bind(VV[117],Cnil);
1630          {register object V263;          {register object V263;
1631          register object V264;          register object V264;
1632          V263= symbol_value(VV[78]);          V263= symbol_value(VV[78]);
1633          V264= car((V263));          V264= car((V263));
1634          goto T742;          goto T747;
1635  T742:;  T747:;
1636          if(!(endp_prop((V263)))){          if(!(endp_prop((V263)))){
1637          goto T743;}          goto T748;}
1638          goto T737;          goto T742;
1639          goto T743;          goto T748;
1640  T743:;{object V265;  T748:;{object V265;
1641          base[4]= cadddr((V264));          base[4]= cadddr((V264));
1642          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1643          (void) (*Lnk307)();          (void) (*Lnk310)();
1644          vs_top=sup;          vs_top=sup;
1645          V265= vs_base[0];          V265= vs_base[0];
1646          if(V265==Cnil)goto T748;          if(V265==Cnil)goto T753;
1647          goto T747;          goto T752;
1648          goto T748;          goto T753;
1649  T748:;}  T753:;}
1650          base[4]= VV[118];          base[4]= VV[118];
1651          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1652          Lerror();          Lerror();
1653          vs_top=sup;          vs_top=sup;
         goto T747;  
 T747:;  
         if((car((V264)))==((V257))){  
         goto T753;}  
1654          goto T752;          goto T752;
1655          goto T753;  T752:;
1656  T753:;          if((car((V264)))==((V257))){
1657            goto T758;}
1658            goto T757;
1659            goto T758;
1660    T758:;
1661          if((cadr(cddddr((V264))))==Cnil){          if((cadr(cddddr((V264))))==Cnil){
1662          goto T755;}          goto T760;}
1663          goto T752;          goto T757;
1664          goto T755;          goto T760;
1665  T755:;  T760:;
1666          V262= (V264);          V262= (V264);
1667          if(((V262))==Cnil){          if(((V262))==Cnil){
1668          goto T737;}          goto T742;}
1669          goto T738;          goto T743;
1670          goto T752;          goto T757;
1671  T752:;  T757:;
1672          V263= cdr((V263));          V263= cdr((V263));
1673          V264= car((V263));          V264= car((V263));
1674          goto T742;}          goto T747;}
1675          goto T738;          goto T743;
1676  T738:;  T743:;
1677          if(((VFUN_NARGS=1,(*(LnkLI299))((V257))))!=Cnil){          if(((VFUN_NARGS=1,(*(LnkLI302))((V257))))!=Cnil){
1678          goto T763;}          goto T768;}
1679          {object V266;          {object V266;
1680          V266= list(4,(V257),(V258),cadr((V262)),caddr((V262)));          V266= list(4,(V257),(V258),cadr((V262)),caddr((V262)));
1681          setq(VV[29],make_cons((V266),symbol_value(VV[29])));}          setq(VV[29],make_cons((V266),symbol_value(VV[29])));}
1682          goto T763;          goto T768;
1683  T763:;  T768:;
1684          V267= structure_ref(cadr((V259)),VV[62],1);          V267= structure_ref(cadr((V259)),VV[62],1);
1685          (void)((*(LnkLI308))(/* INLINE-ARGS */V267,small_fixnum(0)));          (void)((*(LnkLI311))(/* INLINE-ARGS */V267,small_fixnum(0)));
1686          base[3]= VV[119];          base[3]= VV[119];
1687          {object V268= caddr((V262));          {object V268= caddr((V262));
1688          if((V268!= VV[89]))goto T771;          if((V268!= VV[89]))goto T776;
1689          base[4]= VV[120];          base[4]= VV[120];
1690          goto T770;          goto T775;
1691          goto T771;          goto T776;
1692  T771:;  T776:;
1693          if((V268!= VV[142]))goto T772;          if((V268!= VV[142]))goto T777;
1694          base[4]= VV[121];          base[4]= VV[121];
1695          goto T770;          goto T775;
1696          goto T772;          goto T777;
1697  T772:;  T777:;
1698          if((V268!= VV[143]))goto T773;          if((V268!= VV[143]))goto T778;
1699          base[4]= VV[122];          base[4]= VV[122];
1700          goto T770;          goto T775;
1701          goto T773;          goto T778;
1702  T773:;  T778:;
1703          if((V268!= VV[144]))goto T774;          if((V268!= VV[144]))goto T779;
1704          base[4]= VV[123];          base[4]= VV[123];
1705          goto T770;          goto T775;
1706          goto T774;          goto T779;
1707  T774:;  T779:;
1708          base[4]= VV[124];}          base[4]= VV[124];}
1709          goto T770;          goto T775;
1710  T770:;  T775:;
1711          base[5]= (V257);          base[5]= (V257);
1712          base[6]= (V258);          base[6]= (V258);
1713          base[7]= (V259);          base[7]= (V259);
1714          base[8]= (V261);          base[8]= (V261);
1715          base[9]= (V262);          base[9]= (V262);
1716          vs_top=(vs_base=base+3)+7;          vs_top=(vs_base=base+3)+7;
1717          (void) (*Lnk309)();          (void) (*Lnk312)();
1718          vs_top=sup;          vs_top=sup;
1719          goto T735;          goto T740;
1720          goto T737;          goto T742;
1721  T737:;  T742:;
1722          if(((*(LnkLI304))((V257)))==Cnil){          if(((*(LnkLI307))((V257)))==Cnil){
1723          goto T781;}          goto T786;}
1724          V269= structure_ref(cadr((V259)),VV[62],1);          V269= structure_ref(cadr((V259)),VV[62],1);
1725          (void)((*(LnkLI308))(/* INLINE-ARGS */V269,small_fixnum(0)));          (void)((*(LnkLI311))(/* INLINE-ARGS */V269,small_fixnum(0)));
1726          base[3]= VV[125];          base[3]= VV[125];
1727          base[4]= VV[124];          base[4]= VV[124];
1728          base[5]= (V257);          base[5]= (V257);
# Line 1716  T737:; Line 1730  T737:;
1730          base[7]= (V259);          base[7]= (V259);
1731          base[8]= (V261);          base[8]= (V261);
1732          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1733          (void) (*Lnk309)();          (void) (*Lnk312)();
1734          vs_top=sup;          vs_top=sup;
1735          goto T735;          goto T740;
1736          goto T781;          goto T786;
1737  T781:;  T786:;
1738          V270= structure_ref(cadr((V259)),VV[62],1);          V270= structure_ref(cadr((V259)),VV[62],1);
1739          (void)((*(LnkLI308))(/* INLINE-ARGS */V270,small_fixnum(2)));          (void)((*(LnkLI311))(/* INLINE-ARGS */V270,small_fixnum(2)));
1740          base[3]= VV[126];          base[3]= VV[126];
1741          base[4]= VV[127];          base[4]= VV[127];
1742          base[5]= (V257);          base[5]= (V257);
# Line 1730  T781:; Line 1744  T781:;
1744          base[7]= (V259);          base[7]= (V259);
1745          base[8]= (V261);          base[8]= (V261);
1746          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1747          (void) (*Lnk309)();          (void) (*Lnk312)();
1748          vs_top=sup;          vs_top=sup;
1749          goto T735;          goto T740;
1750  T735:;  T740:;
1751          (void)((*(LnkLI310))((V258)));          (void)((*(LnkLI313))((V258)));
1752          {object V271 = (*(LnkLI311))((V257),(V259));          {object V271 = (*(LnkLI314))((V257),(V259));
1753          bds_unwind1;          bds_unwind1;
1754          bds_unwind1;          bds_unwind1;
1755          bds_unwind1;          bds_unwind1;
# Line 1817  TTL:; Line 1831  TTL:;
1831          object V288;          object V288;
1832          V288= cadr((V284));          V288= cadr((V284));
1833          V287= (V286);          V287= (V286);
1834          goto T808;          goto T813;
1835  T808:;  T813:;
1836          if(!(endp_prop((V287)))){          if(!(endp_prop((V287)))){
1837          goto T809;}          goto T814;}
1838          goto T805;          goto T810;
1839          goto T809;          goto T814;
1840  T809:;  T814:;
1841          V289= structure_ref(car((V287)),VV[69],1);          V289= structure_ref(car((V287)),VV[69],1);
1842          if(!((/* INLINE-ARGS */V289)==(VV[71]))){          if(!((/* INLINE-ARGS */V289)==(VV[71]))){
1843          goto T815;}          goto T820;}
1844          {object V290;          {object V290;
1845          V291= car((V287));          V291= car((V287));
1846          V292= structure_ref(car((V287)),VV[69],4);          V292= structure_ref(car((V287)),VV[69],4);
1847          V290= make_cons(/* INLINE-ARGS */V291,/* INLINE-ARGS */V292);          V290= make_cons(/* INLINE-ARGS */V291,/* INLINE-ARGS */V292);
1848          V285= make_cons((V290),(V285));          V285= make_cons((V290),(V285));
1849          goto T813;}          goto T818;}
1850          goto T815;          goto T820;
1851  T815:;  T820:;
1852          V293= car((V287));          V293= car((V287));
1853          {object V295= car((V288));          {object V295= car((V288));
1854          if((V295!= VV[89]))goto T820;          if((V295!= VV[89]))goto T825;
1855          V294= VV[89];          V294= VV[89];
1856          goto T819;          goto T824;
1857          goto T820;          goto T825;
1858  T820:;  T825:;
1859          if((V295!= VV[142]))goto T821;          if((V295!= VV[142]))goto T826;
1860          V294= VV[142];          V294= VV[142];
1861          goto T819;          goto T824;
1862          goto T821;          goto T826;
1863  T821:;  T826:;
1864          if((V295!= VV[143]))goto T822;          if((V295!= VV[143]))goto T827;
1865          V294= VV[143];          V294= VV[143];
1866          goto T819;          goto T824;
1867          goto T822;          goto T827;
1868  T822:;  T827:;
1869          if((V295!= VV[144]))goto T823;          if((V295!= VV[144]))goto T828;
1870          V294= VV[144];          V294= VV[144];
1871          goto T819;          goto T824;
1872          goto T823;          goto T828;
1873  T823:;  T828:;
1874          V294= VV[74];}          V294= VV[74];}
1875          goto T819;          goto T824;
1876  T819:;  T824:;
1877          (void)(structure_set(/* INLINE-ARGS */V293,VV[69],1,V294));          (void)(structure_set(/* INLINE-ARGS */V293,VV[69],1,V294));
1878          goto T813;          goto T818;
1879  T813:;  T818:;
1880          V296= car((V287));          V296= car((V287));
1881          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
1882          (void)(structure_set(/* INLINE-ARGS */V296,VV[69],4,symbol_value(VV[88])));          (void)(structure_set(/* INLINE-ARGS */V296,VV[69],4,symbol_value(VV[88])));
1883          V287= cdr((V287));          V287= cdr((V287));
1884          V288= cdr((V288));          V288= cdr((V288));
1885          goto T808;}          goto T813;}
1886          goto T805;          goto T810;
1887  T805:;  T810:;
1888          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[145],(V280))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[145],(V280))));
1889          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
1890          base[1]= (*(LnkLI280))(caddr((V284)));          base[1]= (*(LnkLI280))(caddr((V284)));
1891          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1892  T805:; Line 1906  T805:;
1906          princ_str("LI",VV[25]);          princ_str("LI",VV[25]);
1907          (void)((*(LnkLI274))((V281)));          (void)((*(LnkLI274))((V281)));
1908          princ_char(40,VV[25]);          princ_char(40,VV[25]);
1909          (void)((*(LnkLI313))((V286),cadr((V284))));          (void)((*(LnkLI316))((V286),cadr((V284))));
1910          {object V299;          {object V299;
1911          V299= symbol_value(VV[136]);          V299= symbol_value(VV[136]);
1912          if((symbol_value(VV[147]))==Cnil){          if((symbol_value(VV[147]))==Cnil){
1913          goto T851;}          goto T856;}
1914          base[1]= make_cons((V280),(V286));          base[1]= make_cons((V280),(V286));
1915          goto T849;          goto T854;
1916          goto T851;          goto T856;
1917  T851:;  T856:;
1918          base[1]= Cnil;          base[1]= Cnil;
1919          goto T849;          goto T854;
1920  T849:;  T854:;
1921          bds_bind(VV[146],base[1]);          bds_bind(VV[146],base[1]);
1922          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[134],symbol_value(VV[134]));
1923          princ_str("\n{  ",VV[25]);          princ_str("\n{  ",VV[25]);
1924          V300= structure_ref(cadr((V282)),VV[62],1);          V300= structure_ref(cadr((V282)),VV[62],1);
1925          (void)((*(LnkLI314))(/* INLINE-ARGS */V300,(V281),VV[148]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V300,(V281),VV[148]));
1926          princ_str(" VMB",VV[25]);          princ_str(" VMB",VV[25]);
1927          (void)((*(LnkLI274))((V299)));          (void)((*(LnkLI274))((V299)));
1928          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[25]);
# Line 1916  T849:; Line 1930  T849:;
1930          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[25]);
1931          (void)((*(LnkLI274))((V299)));          (void)((*(LnkLI274))((V299)));
1932          if(((V283))==Cnil){          if(((V283))==Cnil){
1933          goto T863;}          goto T868;}
1934          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
1935          goto T863;          goto T868;
1936  T863:;  T868:;
1937          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
1938          goto T867;}          goto T872;}
1939          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
1940          goto T867;          goto T872;
1941  T867:;  T872:;
1942          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[146]->s.s_dbind))==Cnil){
1943          goto T871;}          goto T876;}
1944          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));
1945          princ_str("\n   goto TTL;",VV[25]);          princ_str("\n   goto TTL;",VV[25]);
1946          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[25]);
1947          goto T871;          goto T876;
1948  T871:;  T876:;
1949          {register object V302;          {register object V302;
1950          register object V303;          register object V303;
1951          V302= (V285);          V302= (V285);
1952          V303= car((V302));          V303= car((V302));
1953          goto T883;          goto T888;
1954  T883:;  T888:;
1955          if(!(endp_prop((V302)))){          if(!(endp_prop((V302)))){
1956          goto T884;}          goto T889;}
         goto T879;  
1957          goto T884;          goto T884;
1958  T884:;          goto T889;
1959    T889:;
1960          princ_str("\n   bds_bind(VV[",VV[25]);          princ_str("\n   bds_bind(VV[",VV[25]);
1961          (void)((*(LnkLI274))(cdr((V303))));          (void)((*(LnkLI274))(cdr((V303))));
1962          princ_str("],V",VV[25]);          princ_str("],V",VV[25]);
# Line 1954  T884:; Line 1968  T884:;
1968          (void)(structure_set(car((V303)),VV[69],4,cdr((V303))));          (void)(structure_set(car((V303)),VV[69],4,cdr((V303))));
1969          V302= cdr((V302));          V302= cdr((V302));
1970          V303= car((V302));          V303= car((V302));
1971          goto T883;}          goto T888;}
1972          goto T879;          goto T884;
1973  T879:;  T884:;
1974          base[3]= caddr(cddr((V282)));          base[3]= caddr(cddr((V282)));
1975          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1976          (void) (*Lnk315)();          (void) (*Lnk318)();
1977          vs_top=sup;          vs_top=sup;
1978          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
1979          goto T907;}          goto T912;}
1980          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[138]))!=Cnil){
1981          goto T907;}          goto T912;}
1982          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
1983          goto T907;}          goto T912;}
1984          goto T905;          goto T910;
1985          goto T907;          goto T912;
1986  T907:;  T912:;
1987          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
1988          goto T905;          goto T910;
1989  T905:;  T910:;
1990          V306= (*(LnkLI280))(caddr((V284)));          V306= (*(LnkLI280))(caddr((V284)));
1991          if(!(equal(VV[152],/* INLINE-ARGS */V306))){          if(!(equal(VV[152],/* INLINE-ARGS */V306))){
1992          goto T914;}          goto T919;}
1993          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[25]);
1994          goto T914;          goto T919;
1995  T914:;  T919:;
1996          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
1997          {object V307 = (*(LnkLI316))((V299),caddr((V284)));          {object V307 = (*(LnkLI319))((V299),caddr((V284)));
1998          bds_unwind1;          bds_unwind1;
1999          bds_unwind1;          bds_unwind1;
2000          VMR23(V307)}}}          VMR23(V307)}}}
# Line 1996  object V309; Line 2010  object V309;
2010          goto TTL;          goto TTL;
2011  TTL:;  TTL:;
2012          if((symbol_value(VV[153]))==Cnil){          if((symbol_value(VV[153]))==Cnil){
2013          goto T921;}          goto T926;}
2014          V310= (*(LnkLI317))();          V310= (*(LnkLI320))();
2015          {object V311 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V310);          {object V311 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V310);
2016          VMR24(V311)}          VMR24(V311)}
2017          goto T921;          goto T926;
2018  T921:;  T926:;
2019          V312= (*(LnkLI318))();          V312= (*(LnkLI321))();
2020          {object V313 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V312);          {object V313 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V312);
2021          VMR24(V313)}          VMR24(V313)}
2022          return Cnil;          return Cnil;
# Line 2035  TTL:; Line 2049  TTL:;
2049          V327= caddr((V320));          V327= caddr((V320));
2050          V328= Cnil;{object V330;          V328= Cnil;{object V330;
2051          V330= caddr((V327));          V330= caddr((V327));
2052          if(V330==Cnil)goto T931;          if(V330==Cnil)goto T936;
2053          V329= V330;          V329= V330;
2054          goto T930;          goto T935;
2055          goto T931;          goto T936;
2056  T931:;}{object V331;  T936:;}{object V331;
2057          V331= cadr((V327));          V331= cadr((V327));
2058          if(V331==Cnil)goto T933;          if(V331==Cnil)goto T938;
2059          V329= V331;          V329= V331;
2060          goto T930;          goto T935;
2061          goto T933;          goto T938;
2062  T933:;}  T938:;}
2063          V329= cadddr((V327));          V329= cadddr((V327));
2064          goto T930;          goto T935;
2065  T930:;  T935:;
2066          {object V332;          {object V332;
2067          register object V333;          register object V333;
2068          V332= car((V327));          V332= car((V327));
2069          V333= car((V332));          V333= car((V332));
2070          goto T939;          goto T944;
2071  T939:;  T944:;
2072          if(!(endp_prop((V332)))){          if(!(endp_prop((V332)))){
2073          goto T940;}          goto T945;}
         goto T935;  
2074          goto T940;          goto T940;
2075  T940:;          goto T945;
2076    T945:;
2077          {object V334;          {object V334;
2078          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
2079          V334= list(2,VV[155],symbol_value(VV[88]));          V334= list(2,VV[155],symbol_value(VV[88]));
2080          V322= make_cons((V334),(V322));}          V322= make_cons((V334),(V322));}
2081          V332= cdr((V332));          V332= cdr((V332));
2082          V333= car((V332));          V333= car((V332));
2083          goto T939;}          goto T944;}
2084          goto T935;          goto T940;
2085  T935:;  T940:;
2086          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[156],(V318))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[156],(V318))));
2087          {object V335;          {object V335;
2088          V335= VV[157];          V335= VV[157];
2089          princ_str("\nstatic object LI",VV[25]);          princ_str("\nstatic object LI",VV[25]);
2090          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V319)));
2091          princ_char(40,VV[25]);          princ_char(40,VV[25]);
2092          if(((V322))==Cnil){          if(((V322))==Cnil){
2093          goto T959;}          goto T964;}
2094          {object V336;          {object V336;
2095          V336= (V322);          V336= (V322);
2096          goto T963;          goto T968;
2097  T963:;  T968:;
2098          if(((V336))!=Cnil){          if(((V336))!=Cnil){
2099          goto T964;}          goto T969;}
         goto T959;  
2100          goto T964;          goto T964;
2101  T964:;          goto T969;
2102    T969:;
2103          princ_str("object ",VV[25]);          princ_str("object ",VV[25]);
2104          (void)((*(LnkLI274))(car((V336))));          (void)((*(LnkLI274))(car((V336))));
2105          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[159]));          V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[159]));
2106          if(!((cdr((V336)))==Cnil)){          if(!((cdr((V336)))==Cnil)){
2107          goto T974;}          goto T979;}
2108          goto T973;          goto T978;
2109          goto T974;          goto T979;
2110  T974:;  T979:;
2111          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2112          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[160]));          V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[160]));
2113          goto T973;          goto T978;
2114  T973:;  T978:;
2115          V336= cdr((V336));          V336= cdr((V336));
2116          goto T963;}          goto T968;}
2117          goto T959;          goto T964;
2118  T959:;  T964:;
2119          if(((V329))==Cnil){          if(((V329))==Cnil){
2120          goto T982;}          goto T987;}
2121          if(((V322))==Cnil){          if(((V322))==Cnil){
2122          goto T985;}          goto T990;}
2123          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2124          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[161]));          V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[161]));
2125          goto T985;          goto T990;
2126  T985:;  T990:;
2127          princ_str("object first,...",VV[25]);          princ_str("object first,...",VV[25]);
2128          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[162]));          V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[162]));
2129          goto T982;          goto T987;
2130  T982:;  T987:;
2131          princ_char(41,VV[25]);          princ_char(41,VV[25]);
2132          princ_str("\nstatic object LI",VV[31]);          princ_str("\nstatic object LI",VV[31]);
2133          (void)((*(LnkLI277))((V319)));          (void)((*(LnkLI277))((V319)));
# Line 2124  T982:; Line 2138  T982:;
2138          V337= symbol_value(VV[136]);          V337= symbol_value(VV[136]);
2139          if(symbol_value(VV[147])==Cnil){          if(symbol_value(VV[147])==Cnil){
2140          base[5]= Cnil;          base[5]= Cnil;
2141          goto T1002;}          goto T1007;}
2142          if((caddr((V327)))==Cnil){          if((caddr((V327)))==Cnil){
2143          goto T1003;}          goto T1008;}
2144          base[5]= Cnil;          base[5]= Cnil;
2145          goto T1002;          goto T1007;
2146          goto T1003;          goto T1008;
2147  T1003:;  T1008:;
2148          {object V338;          {object V338;
2149          object V339;          object V339;
2150          V338= car((V327));          V338= car((V327));
2151          V339= car((V338));          V339= car((V338));
         goto T1010;  
 T1010:;  
         if(!(endp_prop((V338)))){  
         goto T1011;}  
         goto T1005;  
         goto T1011;  
 T1011:;  
         if((structure_ref((V339),VV[69],3))==Cnil){  
         goto T1015;}  
         goto T1006;  
2152          goto T1015;          goto T1015;
2153  T1015:;  T1015:;
2154            if(!(endp_prop((V338)))){
2155            goto T1016;}
2156            goto T1010;
2157            goto T1016;
2158    T1016:;
2159            if((structure_ref((V339),VV[69],3))==Cnil){
2160            goto T1020;}
2161            goto T1011;
2162            goto T1020;
2163    T1020:;
2164          V338= cdr((V338));          V338= cdr((V338));
2165          V339= car((V338));          V339= car((V338));
2166          goto T1010;}          goto T1015;}
2167          goto T1006;          goto T1011;
2168  T1006:;  T1011:;
2169          base[5]= Cnil;          base[5]= Cnil;
2170          goto T1002;          goto T1007;
2171          goto T1005;          goto T1010;
2172  T1005:;  T1010:;
2173          if((cadr((V327)))==Cnil){          if((cadr((V327)))==Cnil){
2174          goto T1023;}          goto T1028;}
2175          base[5]= Cnil;          base[5]= Cnil;
2176          goto T1002;          goto T1007;
2177          goto T1023;          goto T1028;
2178  T1023:;  T1028:;
2179          if((car(cddddr((V327))))==Cnil){          if((car(cddddr((V327))))==Cnil){
2180          goto T1025;}          goto T1030;}
2181          base[5]= Cnil;          base[5]= Cnil;
2182          goto T1002;          goto T1007;
2183          goto T1025;          goto T1030;
2184  T1025:;  T1030:;
2185          base[5]= make_cons((V318),car((V327)));          base[5]= make_cons((V318),car((V327)));
2186          goto T1002;          goto T1007;
2187  T1002:;  T1007:;
2188          bds_bind(VV[146],base[5]);          bds_bind(VV[146],base[5]);
2189          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[134],symbol_value(VV[134]));
2190          princ_str("\n{  ",VV[25]);          princ_str("\n{  ",VV[25]);
2191          if(((V329))==Cnil){          if(((V329))==Cnil){
2192          goto T1029;}          goto T1034;}
2193          princ_str("\n   va_list ap;",VV[25]);          princ_str("\n   va_list ap;",VV[25]);
2194          goto T1029;          goto T1034;
2195  T1029:;  T1034:;
2196          princ_str("\n   int narg = VFUN_NARGS;",VV[25]);          princ_str("\n   int narg = VFUN_NARGS;",VV[25]);
2197          V340= structure_ref(cadr((V320)),VV[62],1);          V340= structure_ref(cadr((V320)),VV[62],1);
2198          (void)((*(LnkLI314))(/* INLINE-ARGS */V340,(V319),VV[148]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V340,(V319),VV[148]));
2199          princ_str(" VMB",VV[25]);          princ_str(" VMB",VV[25]);
2200          (void)((*(LnkLI274))((V337)));          (void)((*(LnkLI274))((V337)));
2201          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[25]);
# Line 2189  T1029:; Line 2203  T1029:;
2203          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[25]);
2204          (void)((*(LnkLI274))((V337)));          (void)((*(LnkLI274))((V337)));
2205          if(((V321))==Cnil){          if(((V321))==Cnil){
2206          goto T1043;}          goto T1048;}
2207          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
2208          goto T1043;          goto T1048;
2209  T1043:;  T1048:;
2210          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
2211          goto T1047;}          goto T1052;}
2212          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
2213          goto T1047;          goto T1052;
2214  T1047:;  T1052:;
2215          if((V329)!=Cnil){          if((V329)!=Cnil){
2216          goto T1051;}          goto T1056;}
2217          princ_str("\n   if ( narg!= ",VV[25]);          princ_str("\n   if ( narg!= ",VV[25]);
2218          V341 = make_fixnum((long)length((V322)));          V341 = make_fixnum((long)length((V322)));
2219          (void)((*(LnkLI274))(V341));          (void)((*(LnkLI274))(V341));
# Line 2207  T1047:; Line 2221  T1047:;
2221          V342 = make_fixnum((long)length((V322)));          V342 = make_fixnum((long)length((V322)));
2222          (void)((*(LnkLI274))(V342));          (void)((*(LnkLI274))(V342));
2223          princ_str("));",VV[25]);          princ_str("));",VV[25]);
2224          goto T1051;          goto T1056;
2225  T1051:;  T1056:;
2226          {object V343;          {object V343;
2227          object V344;          object V344;
2228          V343= car((V327));          V343= car((V327));
2229          V344= car((V343));          V344= car((V343));
2230          goto T1062;          goto T1067;
2231  T1062:;  T1067:;
2232          if(!(endp_prop((V343)))){          if(!(endp_prop((V343)))){
2233          goto T1063;}          goto T1068;}
         goto T1058;  
2234          goto T1063;          goto T1063;
2235  T1063:;          goto T1068;
2236    T1068:;
2237          base[9]= (V344);          base[9]= (V344);
2238          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2239          L26(base);          L26(base);
2240          vs_top=sup;          vs_top=sup;
2241          V343= cdr((V343));          V343= cdr((V343));
2242          V344= car((V343));          V344= car((V343));
2243          goto T1062;}          goto T1067;}
2244          goto T1058;          goto T1063;
2245  T1058:;  T1063:;
2246          {object V345;          {object V345;
2247          object V346;          object V346;
2248          V345= cadr((V327));          V345= cadr((V327));
2249          V346= car((V345));          V346= car((V345));
2250          goto T1078;          goto T1083;
2251  T1078:;  T1083:;
2252          if(!(endp_prop((V345)))){          if(!(endp_prop((V345)))){
2253          goto T1079;}          goto T1084;}
         goto T1074;  
2254          goto T1079;          goto T1079;
2255  T1079:;          goto T1084;
2256    T1084:;
2257          base[9]= car((V346));          base[9]= car((V346));
2258          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2259          L26(base);          L26(base);
2260          vs_top=sup;          vs_top=sup;
2261          if((caddr((V346)))==Cnil){          if((caddr((V346)))==Cnil){
2262          goto T1085;}          goto T1090;}
2263          base[9]= caddr((V346));          base[9]= caddr((V346));
2264          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2265          L26(base);          L26(base);
2266          vs_top=sup;          vs_top=sup;
2267          goto T1085;          goto T1090;
2268  T1085:;  T1090:;
2269          V345= cdr((V345));          V345= cdr((V345));
2270          V346= car((V345));          V346= car((V345));
2271          goto T1078;}          goto T1083;}
2272          goto T1074;          goto T1079;
2273  T1074:;  T1079:;
2274          if((caddr((V327)))==Cnil){          if((caddr((V327)))==Cnil){
2275          goto T1094;}          goto T1099;}
2276          base[7]= caddr((V327));          base[7]= caddr((V327));
2277          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2278          L26(base);          L26(base);
2279          vs_top=sup;          vs_top=sup;
2280          goto T1094;          goto T1099;
2281  T1094:;  T1099:;
2282          {object V347;          {object V347;
2283          object V348;          object V348;
2284          V347= car(cddddr((V327)));          V347= car(cddddr((V327)));
2285          V348= car((V347));          V348= car((V347));
2286          goto T1101;          goto T1106;
2287  T1101:;  T1106:;
2288          if(!(endp_prop((V347)))){          if(!(endp_prop((V347)))){
2289          goto T1102;}          goto T1107;}
2290          goto T1057;          goto T1062;
2291          goto T1102;          goto T1107;
2292  T1102:;  T1107:;
2293          base[9]= cadr((V348));          base[9]= cadr((V348));
2294          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2295          L26(base);          L26(base);
2296          vs_top=sup;          vs_top=sup;
2297          if((cadddr((V348)))==Cnil){          if((cadddr((V348)))==Cnil){
2298          goto T1108;}          goto T1113;}
2299          base[9]= cadddr((V348));          base[9]= cadddr((V348));
2300          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2301          L26(base);          L26(base);
2302          vs_top=sup;          vs_top=sup;
2303          goto T1108;          goto T1113;
2304  T1108:;  T1113:;
2305          V347= cdr((V347));          V347= cdr((V347));
2306          V348= car((V347));          V348= car((V347));
2307          goto T1101;}          goto T1106;}
2308          goto T1057;          goto T1062;
2309  T1057:;  T1062:;
2310          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
2311          goto T1119;}          goto T1124;}
2312          goto T1117;          goto T1122;
2313          goto T1119;          goto T1124;
2314  T1119:;  T1124:;
2315          princ_str("\n   Vcs[0]=Vcs[0];",VV[25]);          princ_str("\n   Vcs[0]=Vcs[0];",VV[25]);
2316          goto T1117;          goto T1122;
2317  T1117:;  T1122:;
2318          if((cadr((V327)))!=Cnil){          if((cadr((V327)))!=Cnil){
2319          goto T1123;}          goto T1128;}
2320          if((caddr((V327)))!=Cnil){          if((caddr((V327)))!=Cnil){
2321          goto T1123;}          goto T1128;}
2322          if((cadddr((V327)))==Cnil){          if((cadddr((V327)))==Cnil){
2323          goto T1122;}          goto T1127;}
2324          goto T1123;          goto T1128;
2325  T1123:;  T1128:;
2326          if(((V328))!=Cnil){          if(((V328))!=Cnil){
2327          goto T1122;}          goto T1127;}
2328          V328= Ct;          V328= Ct;
2329          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2330          goto T1122;          goto T1127;
2331  T1122:;  T1127:;
2332          if((symbol_value(VV[163]))!=Cnil){          if((symbol_value(VV[163]))!=Cnil){
2333          goto T1136;}          goto T1141;}
2334          if((symbol_value(VV[164]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
2335          goto T1134;}          goto T1139;}
2336          goto T1136;          goto T1141;
2337  T1136:;  T1141:;
2338          if((car((V327)))==Cnil){          if((car((V327)))==Cnil){
2339          goto T1134;}          goto T1139;}
2340          princ_str("\n   if(narg <",VV[25]);          princ_str("\n   if(narg <",VV[25]);
2341          V349 = make_fixnum((long)length(car((V327))));          V349 = make_fixnum((long)length(car((V327))));
2342          (void)((*(LnkLI274))(V349));          (void)((*(LnkLI274))(V349));
2343          princ_str(") too_few_arguments();",VV[25]);          princ_str(") too_few_arguments();",VV[25]);
2344          goto T1134;          goto T1139;
2345  T1134:;  T1139:;
2346          {object V350;          {object V350;
2347          object V351;          object V351;
2348          V350= car((V327));          V350= car((V327));
2349          V351= car((V350));          V351= car((V350));
2350          goto T1148;          goto T1153;
2351  T1148:;  T1153:;
2352          if(!(endp_prop((V350)))){          if(!(endp_prop((V350)))){
2353          goto T1149;}          goto T1154;}
         goto T1144;  
2354          goto T1149;          goto T1149;
2355  T1149:;          goto T1154;
2356          (void)((*(LnkLI320))((V351)));  T1154:;
2357            (void)((*(LnkLI323))((V351)));
2358          V350= cdr((V350));          V350= cdr((V350));
2359          V351= car((V350));          V351= car((V350));
2360          goto T1148;}          goto T1153;}
2361          goto T1144;          goto T1149;
2362  T1144:;  T1149:;
2363          {object V352;          {object V352;
2364          object V353;          object V353;
2365          V352= cadr((V327));          V352= cadr((V327));
2366          V353= car((V352));          V353= car((V352));
2367          goto T1163;          goto T1168;
2368  T1163:;  T1168:;
2369          if(!(endp_prop((V352)))){          if(!(endp_prop((V352)))){
2370          goto T1164;}          goto T1169;}
         goto T1159;  
2371          goto T1164;          goto T1164;
2372  T1164:;          goto T1169;
2373          (void)((*(LnkLI320))(car((V353))));  T1169:;
2374            (void)((*(LnkLI323))(car((V353))));
2375          V352= cdr((V352));          V352= cdr((V352));
2376          V353= car((V352));          V353= car((V352));
2377          goto T1163;}          goto T1168;}
2378          goto T1159;          goto T1164;
2379  T1159:;  T1164:;
2380          if((caddr((V327)))==Cnil){          if((caddr((V327)))==Cnil){
2381          goto T1174;}          goto T1179;}
2382          (void)((*(LnkLI320))(caddr((V327))));          (void)((*(LnkLI323))(caddr((V327))));
2383          goto T1174;          goto T1179;
2384  T1174:;  T1179:;
2385          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
2386          goto T1180;}          goto T1185;}
2387          V325= symbol_value(VV[129]);          V325= symbol_value(VV[129]);
2388          goto T1178;          goto T1183;
2389          goto T1180;          goto T1185;
2390  T1180:;  T1185:;
2391          V325= symbol_value(VV[141]);          V325= symbol_value(VV[141]);
2392          goto T1178;          goto T1183;
2393  T1178:;  T1183:;
2394          {object V354;          {object V354;
2395          object V355;          object V355;
2396          V354= car(cddddr((V327)));          V354= car(cddddr((V327)));
2397          V355= car((V354));          V355= car((V354));
2398          goto T1186;          goto T1191;
2399  T1186:;  T1191:;
2400          if(!(endp_prop((V354)))){          if(!(endp_prop((V354)))){
2401          goto T1187;}          goto T1192;}
         goto T1182;  
2402          goto T1187;          goto T1187;
2403  T1187:;          goto T1192;
2404          (void)((*(LnkLI320))(cadr((V355))));  T1192:;
2405            (void)((*(LnkLI323))(cadr((V355))));
2406          V354= cdr((V354));          V354= cdr((V354));
2407          V355= car((V354));          V355= car((V354));
2408          goto T1186;}          goto T1191;}
2409          goto T1182;          goto T1187;
2410  T1182:;  T1187:;
2411          {object V356;          {object V356;
2412          object V357;          object V357;
2413          V356= car(cddddr((V327)));          V356= car(cddddr((V327)));
2414          V357= car((V356));          V357= car((V356));
2415          goto T1201;          goto T1206;
2416  T1201:;  T1206:;
2417          if(!(endp_prop((V356)))){          if(!(endp_prop((V356)))){
2418          goto T1202;}          goto T1207;}
         goto T1197;  
2419          goto T1202;          goto T1202;
2420  T1202:;          goto T1207;
2421          (void)((*(LnkLI320))(cadddr((V357))));  T1207:;
2422            (void)((*(LnkLI323))(cadddr((V357))));
2423          V356= cdr((V356));          V356= cdr((V356));
2424          V357= car((V356));          V357= car((V356));
2425          goto T1201;}          goto T1206;}
2426          goto T1197;          goto T1202;
2427  T1197:;  T1202:;
2428          {object V358;          {object V358;
2429          object V359;          object V359;
2430          V359= car((V327));          V359= car((V327));
2431          V358= (V322);          V358= (V322);
2432          goto T1215;          goto T1220;
2433  T1215:;  T1220:;
2434          if(((V358))!=Cnil){          if(((V358))!=Cnil){
2435          goto T1216;}          goto T1221;}
2436          goto T1212;          goto T1217;
2437          goto T1216;          goto T1221;
2438  T1216:;  T1221:;
2439          (void)((*(LnkLI321))(car((V359)),car((V358))));          (void)((*(LnkLI324))(car((V359)),car((V358))));
2440          V358= cdr((V358));          V358= cdr((V358));
2441          V359= cdr((V359));          V359= cdr((V359));
2442          goto T1215;}          goto T1220;}
2443          goto T1212;          goto T1217;
2444  T1212:;  T1217:;
2445          if((cadr((V327)))==Cnil){          if((cadr((V327)))==Cnil){
2446          goto T1225;}          goto T1230;}
2447          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],symbol_value(VV[133]));
2448          bds_bind(VV[134],(VV[134]->s.s_dbind));          bds_bind(VV[134],(VV[134]->s.s_dbind));
2449          bds_bind(VV[132],symbol_value(VV[132]));          bds_bind(VV[132],symbol_value(VV[132]));
# Line 2443  T1212:; Line 2457  T1212:;
2457          object V363;          object V363;
2458          V362= cadr((V327));          V362= cadr((V327));
2459          V363= car((V362));          V363= car((V362));
2460          goto T1236;          goto T1241;
2461  T1236:;  T1241:;
2462          if(!(endp_prop((V362)))){          if(!(endp_prop((V362)))){
2463          goto T1237;}          goto T1242;}
2464          bds_unwind1;          bds_unwind1;
2465          bds_unwind1;          bds_unwind1;
2466          bds_unwind1;          bds_unwind1;
2467          goto T1228;          goto T1233;
2468          goto T1237;          goto T1242;
2469  T1237:;  T1242:;
2470          {object V364;          {object V364;
2471          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));
2472          V364= make_cons(symbol_value(VV[165]),Cnil);          V364= make_cons(symbol_value(VV[165]),Cnil);
2473          V323= make_cons((V364),(V323));}          V323= make_cons((V364),(V323));}
2474          princ_str("\n   if (",VV[25]);          princ_str("\n   if (",VV[25]);
2475          if((cdr((V323)))==Cnil){          if((cdr((V323)))==Cnil){
2476          goto T1250;}          goto T1255;}
2477          V365= VV[166];          V365= VV[166];
2478          goto T1248;          goto T1253;
2479          goto T1250;          goto T1255;
2480  T1250:;  T1255:;
2481          V365= VV[167];          V365= VV[167];
2482          goto T1248;          goto T1253;
2483  T1248:;  T1253:;
2484          (void)((*(LnkLI274))(V365));          (void)((*(LnkLI274))(V365));
2485          princ_str("narg <= 0) ",VV[25]);          princ_str("narg <= 0) ",VV[25]);
2486          if(type_of(car((V323)))!=t_cons)FEwrong_type_argument(Scons,car((V323)));          if(type_of(car((V323)))!=t_cons)FEwrong_type_argument(Scons,car((V323)));
# Line 2477  T1248:; Line 2491  T1248:;
2491          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2492          princ_str("\n   else {",VV[25]);          princ_str("\n   else {",VV[25]);
2493          if(((V328))!=Cnil){          if(((V328))!=Cnil){
2494          goto T1260;}          goto T1265;}
2495          V328= Ct;          V328= Ct;
2496          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2497          goto T1260;          goto T1265;
2498  T1260:;  T1265:;
2499          V366= car((V363));          V366= car((V363));
2500          if(((V361))==Cnil){          if(((V361))==Cnil){
2501          goto T1269;}          goto T1274;}
2502          V367= make_cons(VV[168],Cnil);          V367= make_cons(VV[168],Cnil);
2503          goto T1267;          goto T1272;
2504          goto T1269;          goto T1274;
2505  T1269:;  T1274:;
2506          V367= make_cons(VV[169],Cnil);          V367= make_cons(VV[169],Cnil);
2507          goto T1267;          goto T1272;
2508  T1267:;  T1272:;
2509          (void)((*(LnkLI321))(/* INLINE-ARGS */V366,V367));          (void)((*(LnkLI324))(/* INLINE-ARGS */V366,V367));
2510          V361= Cnil;          V361= Cnil;
2511          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2512          if((caddr((V363)))==Cnil){          if((caddr((V363)))==Cnil){
2513          goto T1275;}          goto T1280;}
2514          (void)((*(LnkLI321))(caddr((V363)),Ct));          (void)((*(LnkLI324))(caddr((V363)),Ct));
2515          goto T1275;          goto T1280;
2516  T1275:;  T1280:;
2517          V362= cdr((V362));          V362= cdr((V362));
2518          V363= car((V362));          V363= car((V362));
2519          goto T1236;}}          goto T1241;}}
2520          goto T1228;          goto T1233;
2521  T1228:;  T1233:;
2522          V323= nreverse((V323));          V323= nreverse((V323));
2523          {object V368;          {object V368;
2524          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));
# Line 2519  T1228:; Line 2533  T1228:;
2533          object V370;          object V370;
2534          V369= cadr((V327));          V369= cadr((V327));
2535          V370= car((V369));          V370= car((V369));
2536          goto T1298;          goto T1303;
2537  T1298:;  T1303:;
2538          if(!(endp_prop((V369)))){          if(!(endp_prop((V369)))){
2539          goto T1299;}          goto T1304;}
         goto T1294;  
2540          goto T1299;          goto T1299;
2541  T1299:;          goto T1304;
2542    T1304:;
2543          if((cdr(car((V323))))==Cnil){          if((cdr(car((V323))))==Cnil){
2544          goto T1303;}          goto T1308;}
2545          princ_str("\n   goto T",VV[25]);          princ_str("\n   goto T",VV[25]);
2546          (void)((*(LnkLI274))(car(car((V323)))));          (void)((*(LnkLI274))(car(car((V323)))));
2547          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2548          princ_str("\nT",VV[25]);          princ_str("\nT",VV[25]);
2549          (void)((*(LnkLI274))(car(car((V323)))));          (void)((*(LnkLI274))(car(car((V323)))));
2550          princ_str(":;",VV[25]);          princ_str(":;",VV[25]);
2551          goto T1303;          goto T1308;
2552  T1303:;  T1308:;
2553          {object V371;          {object V371;
2554          V371= car((V323));          V371= car((V323));
2555          V323= cdr((V323));}          V323= cdr((V323));}
2556          (void)((*(LnkLI322))(car((V370)),cadr((V370))));          (void)((*(LnkLI325))(car((V370)),cadr((V370))));
2557          if((caddr((V370)))==Cnil){          if((caddr((V370)))==Cnil){
2558          goto T1318;}          goto T1323;}
2559          (void)((*(LnkLI321))(caddr((V370)),Cnil));          (void)((*(LnkLI324))(caddr((V370)),Cnil));
2560          goto T1318;          goto T1323;
2561  T1318:;  T1323:;
2562          V369= cdr((V369));          V369= cdr((V369));
2563          V370= car((V369));          V370= car((V369));
2564          goto T1298;}          goto T1303;}
2565          goto T1294;          goto T1299;
2566  T1294:;  T1299:;
2567          if((cdr((V368)))==Cnil){          if((cdr((V368)))==Cnil){
2568          goto T1225;}          goto T1230;}
2569          princ_str("\n   goto T",VV[25]);          princ_str("\n   goto T",VV[25]);
2570          (void)((*(LnkLI274))(car((V368))));          (void)((*(LnkLI274))(car((V368))));
2571          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2572          princ_str("\nT",VV[25]);          princ_str("\nT",VV[25]);
2573          (void)((*(LnkLI274))(car((V368))));          (void)((*(LnkLI274))(car((V368))));
2574          princ_str(":;",VV[25]);}          princ_str(":;",VV[25]);}
2575          goto T1225;          goto T1230;
2576  T1225:;  T1230:;
2577          if((caddr((V327)))==Cnil){          if((caddr((V327)))==Cnil){
2578          goto T1335;}          goto T1340;}
2579          V326= (VFUN_NARGS=0,(*(LnkLI323))());          V326= (VFUN_NARGS=0,(*(LnkLI326))());
2580          {object V372;          {object V372;
2581          V372= cadr((V327));          V372= cadr((V327));
2582          if(((V372))==Cnil){          if(((V372))==Cnil){
2583          goto T1343;}          goto T1348;}
2584          goto T1340;          goto T1345;
2585          goto T1343;          goto T1348;
2586  T1343:;  T1348:;
2587          princ_str("\n   narg= narg - ",VV[25]);          princ_str("\n   narg= narg - ",VV[25]);
2588          V373 = make_fixnum((long)length(car((V327))));          V373 = make_fixnum((long)length(car((V327))));
2589          (void)((*(LnkLI274))(V373));          (void)((*(LnkLI274))(V373));
2590          princ_char(59,VV[25]);}          princ_char(59,VV[25]);}
2591          goto T1340;          goto T1345;
2592  T1340:;  T1345:;
2593          if(((V328))!=Cnil){          if(((V328))!=Cnil){
2594          goto T1348;}          goto T1353;}
2595          V328= Ct;          V328= Ct;
2596          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2597          goto T1348;          goto T1353;
2598  T1348:;  T1353:;
2599          princ_str("\n   V",VV[25]);          princ_str("\n   V",VV[25]);
2600          (void)((*(LnkLI274))((V326)));          (void)((*(LnkLI274))((V326)));
2601          princ_str(" = ",VV[25]);          princ_str(" = ",VV[25]);
2602          V374= structure_ref(caddr((V327)),VV[69],5);          V374= structure_ref(caddr((V327)),VV[69],5);
2603          if(!((/* INLINE-ARGS */V374)==(VV[171]))){          if(!((/* INLINE-ARGS */V374)==(VV[171]))){
2604          goto T1359;}          goto T1364;}
2605          base[7]= Ct;          base[7]= Ct;
2606          goto T1358;          goto T1363;
2607          goto T1359;          goto T1364;
2608  T1359:;  T1364:;
2609          base[7]= symbol_value(VV[170]);          base[7]= symbol_value(VV[170]);
2610          goto T1358;          goto T1363;
2611  T1358:;  T1363:;
2612          bds_bind(VV[170],base[7]);          bds_bind(VV[170],base[7]);
2613          if((cadddr((V327)))==Cnil){          if((cadddr((V327)))==Cnil){
2614          goto T1363;}          goto T1368;}
2615          if(((VV[170]->s.s_dbind))==Cnil){          if(((VV[170]->s.s_dbind))==Cnil){
2616          goto T1366;}          goto T1371;}
2617          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]);
         goto T1361;  
2618          goto T1366;          goto T1366;
2619  T1366:;          goto T1371;
2620    T1371:;
2621          princ_str("make_list(narg);",VV[25]);          princ_str("make_list(narg);",VV[25]);
2622          goto T1361;          goto T1366;
2623          goto T1363;          goto T1368;
2624  T1363:;  T1368:;
2625          if(((VV[170]->s.s_dbind))==Cnil){          if(((VV[170]->s.s_dbind))==Cnil){
2626          goto T1371;}          goto T1376;}
2627          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]);
2628          goto T1361;          goto T1366;
2629          goto T1371;          goto T1376;
2630  T1371:;  T1376:;
2631          princ_str("list_vector_new(narg,first,ap);",VV[25]);          princ_str("list_vector_new(narg,first,ap);",VV[25]);
2632          goto T1361;          goto T1366;
2633  T1361:;  T1366:;
2634          V375= caddr((V327));          V375= caddr((V327));
2635          V376= list(2,VV[155],(V326));          V376= list(2,VV[155],(V326));
2636          V377= (*(LnkLI321))(/* INLINE-ARGS */V375,/* INLINE-ARGS */V376);          V377= (*(LnkLI324))(/* INLINE-ARGS */V375,/* INLINE-ARGS */V376);
2637          bds_unwind1;          bds_unwind1;
2638          goto T1335;          goto T1340;
2639  T1335:;  T1340:;
2640          if((cadddr((V327)))==Cnil){          if((cadddr((V327)))==Cnil){
2641          goto T1375;}          goto T1380;}
2642          {object V378;          {object V378;
2643          V378= caddr((V327));          V378= caddr((V327));
2644          if(((V378))==Cnil){          if(((V378))==Cnil){
2645          goto T1381;}          goto T1386;}
2646          goto T1378;          goto T1383;
2647          goto T1381;          goto T1386;
2648  T1381:;  T1386:;
2649          {object V379;          {object V379;
2650          V379= cadr((V327));          V379= cadr((V327));
2651          if(((V379))==Cnil){          if(((V379))==Cnil){
2652          goto T1385;}          goto T1390;}
2653          goto T1378;          goto T1383;
2654          goto T1385;          goto T1390;
2655  T1385:;  T1390:;
2656          princ_str("\n   narg= narg - ",VV[25]);          princ_str("\n   narg= narg - ",VV[25]);
2657          V380 = make_fixnum((long)length(car((V327))));          V380 = make_fixnum((long)length(car((V327))));
2658          (void)((*(LnkLI274))(V380));          (void)((*(LnkLI274))(V380));
2659          princ_char(59,VV[25]);}}          princ_char(59,VV[25]);}}
2660          goto T1378;          goto T1383;
2661  T1378:;  T1383:;
2662          if(((V328))!=Cnil){          if(((V328))!=Cnil){
2663          goto T1390;}          goto T1395;}
2664          V328= Ct;          V328= Ct;
2665          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2666          goto T1390;          goto T1395;
2667  T1390:;  T1395:;
2668          {object V381;          {object V381;
2669          object V382= car(cddddr((V327)));          object V382= car(cddddr((V327)));
2670          if(endp(V382)){          if(endp(V382)){
2671          V324= Cnil;          V324= Cnil;
2672          goto T1397;}          goto T1402;}
2673          base[7]=V381=MMcons(Cnil,Cnil);          base[7]=V381=MMcons(Cnil,Cnil);
2674          goto T1398;          goto T1403;
2675  T1398:;  T1403:;
2676          (V381->c.c_car)= caddr((V382->c.c_car));          (V381->c.c_car)= caddr((V382->c.c_car));
2677          V382=MMcdr(V382);          V382=MMcdr(V382);
2678          if(endp(V382)){          if(endp(V382)){
2679          V324= base[7];          V324= base[7];
2680          goto T1397;}          goto T1402;}
2681          V381=MMcdr(V381)=MMcons(Cnil,Cnil);          V381=MMcdr(V381)=MMcons(Cnil,Cnil);
2682          goto T1398;}          goto T1403;}
2683          goto T1397;          goto T1402;
2684  T1397:;  T1402:;
2685          {object V383;          {object V383;
2686          object V384;          object V384;
2687          V384= make_fixnum((long)length(car(cddddr((V327)))));          V384= make_fixnum((long)length(car(cddddr((V327)))));
# Line 2678  T1397:; Line 2692  T1397:;
2692          V385= (V324);          V385= (V324);
2693          V386= car(cddddr((V327)));          V386= car(cddddr((V327)));
2694          V387= car((V386));          V387= car((V386));
2695          goto T1406;          goto T1411;
2696  T1406:;  T1411:;
2697          if(((V385))!=Cnil){          if(((V385))!=Cnil){
         goto T1407;}  
         goto T1401;  
         goto T1407;  
 T1407:;  
         if(!((caar((V385)))==(VV[172]))){  
2698          goto T1412;}          goto T1412;}
2699          if((caddr(car((V385))))==(Cnil)){          goto T1406;
         goto T1411;}  
2700          goto T1412;          goto T1412;
2701  T1412:;  T1412:;
2702            if(!((caar((V385)))==(VV[172]))){
2703            goto T1417;}
2704            if((caddr(car((V385))))==(Cnil)){
2705            goto T1416;}
2706            goto T1417;
2707    T1417:;
2708          V383= Ct;          V383= Ct;
2709          goto T1411;          goto T1416;
2710  T1411:;  T1416:;
2711          if(!((caar((V385)))==(VV[172]))){          if(!((caar((V385)))==(VV[172]))){
2712          goto T1418;}          goto T1423;}
2713          {object V388;          {object V388;
2714          V388= caddr(car((V385)));          V388= caddr(car((V385)));
2715          if(!(((V388))==(Cnil))){          if(!(((V388))==(Cnil))){
2716          goto T1424;}          goto T1429;}
2717          goto T1422;          goto T1427;
2718          goto T1424;          goto T1429;
2719  T1424:;  T1429:;
2720          if(type_of((V388))==t_cons){          if(type_of((V388))==t_cons){
2721          goto T1426;}          goto T1431;}
2722          goto T1418;          goto T1423;
2723          goto T1426;          goto T1431;
2724  T1426:;  T1431:;
2725          {register object x= car((V388)),V389= VV[173];          {register object x= car((V388)),V389= VV[173];
2726          while(!endp(V389))          while(!endp(V389))
2727          if(eql(x,V389->c.c_car)){          if(eql(x,V389->c.c_car)){
2728          goto T1422;          goto T1427;
2729          }else V389=V389->c.c_cdr;          }else V389=V389->c.c_cdr;
2730          goto T1418;}}          goto T1423;}}
2731          goto T1422;          goto T1427;
2732  T1422:;  T1427:;
2733          V390= structure_ref(cadddr((V387)),VV[69],1);          V390= structure_ref(cadddr((V387)),VV[69],1);
2734          if((/* INLINE-ARGS */V390)==(VV[174])){          if((/* INLINE-ARGS */V390)==(VV[174])){
2735          goto T1417;}          goto T1422;}
2736          goto T1418;          goto T1423;
2737  T1418:;  T1423:;
2738          V383= Ct;          V383= Ct;
2739          if(type_of(V385)!=t_cons)FEwrong_type_argument(Scons,V385);          if(type_of(V385)!=t_cons)FEwrong_type_argument(Scons,V385);
2740          (V385)->c.c_car = small_fixnum(0);          (V385)->c.c_car = small_fixnum(0);
2741          goto T1417;          goto T1422;
2742  T1417:;  T1422:;
2743          V385= cdr((V385));          V385= cdr((V385));
2744          V386= cdr((V386));          V386= cdr((V386));
2745          V387= car((V386));          V387= car((V386));
2746          goto T1406;}          goto T1411;}
2747          goto T1401;          goto T1406;
2748  T1401:;  T1406:;
2749          if(!(((long)length((V324)))>(15))){          if(!(((long)length((V324)))>(15))){
2750          goto T1439;}          goto T1444;}
2751          V383= Ct;          V383= Ct;
2752          goto T1439;          goto T1444;
2753  T1439:;  T1444:;
2754          princ_str("\n   {",VV[25]);          princ_str("\n   {",VV[25]);
2755          vs_base=vs_top;          vs_base=vs_top;
2756          (void) (*Lnk324)();          (void) (*Lnk327)();
2757          vs_top=sup;          vs_top=sup;
2758          bds_bind(VV[25],symbol_value(VV[31]));          bds_bind(VV[25],symbol_value(VV[31]));
2759          if(((V383))==Cnil){          if(((V383))==Cnil){
2760          goto T1447;}          goto T1452;}
2761          princ_char(10,VV[31]);          princ_char(10,VV[31]);
2762          princ_str("static object VK",VV[25]);          princ_str("static object VK",VV[25]);
2763          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V319)));
# Line 2755  T1439:; Line 2769  T1439:;
2769          register object V395;          register object V395;
2770          V394= (V324);          V394= (V324);
2771          V395= Cnil;          V395= Cnil;
2772          goto T1459;          goto T1464;
2773  T1459:;  T1464:;
2774          if(((V394))!=Cnil){          if(((V394))!=Cnil){
2775          goto T1460;}          goto T1465;}
2776          goto T1457;          goto T1462;
2777          goto T1460;          goto T1465;
2778  T1460:;  T1465:;
2779          princ_str("(void *)",VV[25]);          princ_str("(void *)",VV[25]);
2780          if(!(eql(car((V394)),small_fixnum(0)))){          if(!(eql(car((V394)),small_fixnum(0)))){
2781          goto T1468;}          goto T1473;}
2782          princ_str("-1",VV[25]);          princ_str("-1",VV[25]);
2783          goto T1466;          goto T1471;
2784          goto T1468;          goto T1473;
2785  T1468:;  T1473:;
2786          V395= caddr(car((V394)));          V395= caddr(car((V394)));
2787          if(!(((V395))==(Cnil))){          if(!(((V395))==(Cnil))){
2788          goto T1472;}          goto T1477;}
2789          princ_str("-2",VV[25]);          princ_str("-2",VV[25]);
2790          goto T1466;          goto T1471;
2791          goto T1472;          goto T1477;
2792  T1472:;  T1477:;
2793          if(!(type_of((V395))==t_cons)){          if(!(type_of((V395))==t_cons)){
2794          goto T1477;}          goto T1482;}
2795          if(!((car((V395)))==(VV[175]))){          if(!((car((V395)))==(VV[175]))){
2796          goto T1477;}          goto T1482;}
2797          (void)((*(LnkLI274))(cadr((V395))));          (void)((*(LnkLI274))(cadr((V395))));
2798          goto T1466;          goto T1471;
2799          goto T1477;          goto T1482;
2800  T1477:;  T1482:;
2801          if(!(type_of((V395))==t_cons)){          if(!(type_of((V395))==t_cons)){
2802          goto T1483;}          goto T1488;}
2803          if(!((car((V395)))==(VV[176]))){          if(!((car((V395)))==(VV[176]))){
         goto T1483;}  
         V396= (*(LnkLI325))(caddr((V395)));  
         (void)((*(LnkLI274))(/* INLINE-ARGS */V396));  
         goto T1466;  
         goto T1483;  
 T1483:;  
         (void)((*(LnkLI326))());  
         goto T1466;  
 T1466:;  
         if((cdr((V394)))==Cnil){  
2804          goto T1488;}          goto T1488;}
2805          princ_char(44,VV[25]);          V396= (*(LnkLI328))(caddr((V395)));
2806            (void)((*(LnkLI274))(/* INLINE-ARGS */V396));
2807            goto T1471;
2808          goto T1488;          goto T1488;
2809  T1488:;  T1488:;
2810            (void)((*(LnkLI329))());
2811            goto T1471;
2812    T1471:;
2813            if((cdr((V394)))==Cnil){
2814            goto T1493;}
2815            princ_char(44,VV[25]);
2816            goto T1493;
2817    T1493:;
2818          V394= cdr((V394));          V394= cdr((V394));
2819          goto T1459;}          goto T1464;}
2820          goto T1457;          goto T1462;
2821  T1457:;  T1462:;
2822          princ_str("};",VV[25]);          princ_str("};",VV[25]);
2823          goto T1447;          goto T1452;
2824  T1447:;  T1452:;
2825          princ_char(10,VV[31]);          princ_char(10,VV[31]);
2826          princ_str("static struct { short n,allow_other_keys;",VV[25]);          princ_str("static struct { short n,allow_other_keys;",VV[25]);
2827          princ_str("object *defaults;",VV[25]);          princ_str("object *defaults;",VV[25]);
# Line 2822  T1447:; Line 2836  T1447:;
2836          (void)((*(LnkLI274))(V397));          (void)((*(LnkLI274))(V397));
2837          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2838          if((cadr(cddddr((V327))))==Cnil){          if((cadr(cddddr((V327))))==Cnil){
2839          goto T1515;}          goto T1520;}
2840          V398= small_fixnum(1);          V398= small_fixnum(1);
2841          goto T1513;          goto T1518;
2842          goto T1515;          goto T1520;
2843  T1515:;  T1520:;
2844          V398= small_fixnum(0);          V398= small_fixnum(0);
2845          goto T1513;          goto T1518;
2846  T1513:;  T1518:;
2847          (void)((*(LnkLI274))(V398));          (void)((*(LnkLI274))(V398));
2848          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2849          if(((V383))==Cnil){          if(((V383))==Cnil){
2850          goto T1520;}          goto T1525;}
2851          princ_str("VK",VV[25]);          princ_str("VK",VV[25]);
2852          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V319)));
2853          princ_str("defaults",VV[25]);          princ_str("defaults",VV[25]);
2854          goto T1518;          goto T1523;
2855          goto T1520;          goto T1525;
2856  T1520:;  T1525:;
2857          princ_str("Cstd_key_defaults",VV[25]);          princ_str("Cstd_key_defaults",VV[25]);
2858          goto T1518;          goto T1523;
2859  T1518:;  T1523:;
2860          if((car(cddddr((V327))))==Cnil){          if((car(cddddr((V327))))==Cnil){
2861          goto T1526;}          goto T1531;}
2862          princ_str(",{",VV[25]);          princ_str(",{",VV[25]);
2863          {object V399;          {object V399;
2864          V399= reverse(car(cddddr((V327))));          V399= reverse(car(cddddr((V327))));
2865          goto T1534;          goto T1539;
2866  T1534:;  T1539:;
2867          if(((V399))!=Cnil){          if(((V399))!=Cnil){
2868          goto T1535;}          goto T1540;}
2869          goto T1531;          goto T1536;
2870          goto T1535;          goto T1540;
2871  T1535:;  T1540:;
2872          princ_str("(void *)",VV[25]);          princ_str("(void *)",VV[25]);
2873          V400= (*(LnkLI327))(caar((V399)));          V400= (*(LnkLI330))(caar((V399)));
2874          (void)((*(LnkLI274))(/* INLINE-ARGS */V400));          (void)((*(LnkLI274))(/* INLINE-ARGS */V400));
2875          if((cdr((V399)))==Cnil){          if((cdr((V399)))==Cnil){
2876          goto T1543;}          goto T1548;}
2877          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2878          goto T1543;          goto T1548;
2879  T1543:;  T1548:;
2880          V399= cdr((V399));          V399= cdr((V399));
2881          goto T1534;}          goto T1539;}
2882            goto T1536;
2883    T1536:;
2884            princ_char(125,VV[25]);
2885          goto T1531;          goto T1531;
2886  T1531:;  T1531:;
         princ_char(125,VV[25]);  
         goto T1526;  
 T1526:;  
2887          princ_str("};",VV[25]);          princ_str("};",VV[25]);
2888          bds_unwind1;          bds_unwind1;
2889          if((caddr((V327)))==Cnil){          if((caddr((V327)))==Cnil){
2890          goto T1554;}          goto T1559;}
2891          princ_str("\n   parse_key_rest_new(",VV[25]);          princ_str("\n   parse_key_rest_new(",VV[25]);
2892          V401= list(2,VV[155],(V326));          V401= list(2,VV[155],(V326));
2893          (void)((*(LnkLI274))(/* INLINE-ARGS */V401));          (void)((*(LnkLI274))(/* INLINE-ARGS */V401));
2894          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2895          goto T1552;          goto T1557;
2896          goto T1554;          goto T1559;
2897  T1554:;  T1559:;
2898          princ_str("\n   parse_key_new_new(",VV[25]);          princ_str("\n   parse_key_new_new(",VV[25]);
2899          goto T1552;          goto T1557;
2900  T1552:;  T1557:;
2901          if(!(eql(small_fixnum(0),symbol_value(VV[141])))){          if(!(eql(small_fixnum(0),symbol_value(VV[141])))){
2902          goto T1560;}          goto T1565;}
2903          setq(VV[141],small_fixnum(1));          setq(VV[141],small_fixnum(1));
2904          goto T1560;          goto T1565;
2905  T1560:;  T1565:;
2906          princ_str("narg,",VV[25]);          princ_str("narg,",VV[25]);
2907          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
2908          goto T1568;}          goto T1573;}
2909          V402= VV[177];          V402= VV[177];
2910          goto T1566;          goto T1571;
2911          goto T1568;          goto T1573;
2912  T1568:;  T1573:;
2913          V402= VV[178];          V402= VV[178];
2914          goto T1566;          goto T1571;
2915  T1566:;  T1571:;
2916          (void)((*(LnkLI274))(V402));          (void)((*(LnkLI274))(V402));
2917          princ_char(43,VV[25]);          princ_char(43,VV[25]);
2918          (void)((*(LnkLI274))((V325)));          (void)((*(LnkLI274))((V325)));
2919          princ_str(",(struct key *)&LI",VV[25]);          princ_str(",(struct key *)&LI",VV[25]);
2920          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V319)));
2921          princ_str("key,first,ap);",VV[25]);}          princ_str("key,first,ap);",VV[25]);}
2922          goto T1375;          goto T1380;
2923  T1375:;  T1380:;
2924          {object V403;          {object V403;
2925          register object V404;          register object V404;
2926          V403= car(cddddr((V327)));          V403= car(cddddr((V327)));
2927          V404= car((V403));          V404= car((V403));
2928          goto T1579;          goto T1584;
2929  T1579:;  T1584:;
2930          if(!(endp_prop((V403)))){          if(!(endp_prop((V403)))){
2931          goto T1580;}          goto T1585;}
         goto T1575;  
2932          goto T1580;          goto T1580;
2933  T1580:;          goto T1585;
2934    T1585:;
2935          {object V406;          {object V406;
2936          V406= car((V324));          V406= car((V324));
2937          V324= cdr((V324));          V324= cdr((V324));
2938          V405= (V406);}          V405= (V406);}
2939          if(eql(small_fixnum(0),V405)){          if(eql(small_fixnum(0),V405)){
2940          goto T1586;}          goto T1591;}
2941          (void)((*(LnkLI328))(cadr((V404))));          (void)((*(LnkLI331))(cadr((V404))));
2942          goto T1584;          goto T1589;
2943          goto T1586;          goto T1591;
2944  T1586:;  T1591:;
2945          princ_str("\n   if(",VV[25]);          princ_str("\n   if(",VV[25]);
2946          V407= structure_ref(cadr((V404)),VV[69],2);          V407= structure_ref(cadr((V404)),VV[69],2);
2947          (void)((*(LnkLI329))(/* INLINE-ARGS */V407));          (void)((*(LnkLI332))(/* INLINE-ARGS */V407));
2948          princ_str("==0){",VV[25]);          princ_str("==0){",VV[25]);
2949          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],symbol_value(VV[133]));
2950          bds_bind(VV[134],(VV[134]->s.s_dbind));          bds_bind(VV[134],(VV[134]->s.s_dbind));
2951          bds_bind(VV[132],symbol_value(VV[132]));          bds_bind(VV[132],symbol_value(VV[132]));
2952          V408= (*(LnkLI322))(cadr((V404)),caddr((V404)));          V408= (*(LnkLI325))(cadr((V404)),caddr((V404)));
2953          bds_unwind1;          bds_unwind1;
2954          bds_unwind1;          bds_unwind1;
2955          bds_unwind1;          bds_unwind1;
2956          V409= structure_ref(cadddr((V404)),VV[69],1);          V409= structure_ref(cadddr((V404)),VV[69],1);
2957          if((/* INLINE-ARGS */V409)==(VV[174])){          if((/* INLINE-ARGS */V409)==(VV[174])){
2958          goto T1598;}          goto T1603;}
2959          (void)((*(LnkLI321))(cadddr((V404)),Cnil));          (void)((*(LnkLI324))(cadddr((V404)),Cnil));
2960          goto T1598;          goto T1603;
2961  T1598:;  T1603:;
2962          princ_str("\n   }else{",VV[25]);          princ_str("\n   }else{",VV[25]);
2963          (void)((*(LnkLI328))(cadr((V404))));          (void)((*(LnkLI331))(cadr((V404))));
2964          V410= structure_ref(cadddr((V404)),VV[69],1);          V410= structure_ref(cadddr((V404)),VV[69],1);
2965          if((/* INLINE-ARGS */V410)==(VV[174])){          if((/* INLINE-ARGS */V410)==(VV[174])){
2966          goto T1604;}          goto T1609;}
2967          (void)((*(LnkLI321))(cadddr((V404)),Ct));          (void)((*(LnkLI324))(cadddr((V404)),Ct));
2968          goto T1604;          goto T1609;
2969  T1604:;  T1609:;
2970          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2971          goto T1584;          goto T1589;
2972  T1584:;  T1589:;
2973          V403= cdr((V403));          V403= cdr((V403));
2974          V404= car((V403));          V404= car((V403));
2975          goto T1579;}          goto T1584;}
2976          goto T1575;          goto T1580;
2977  T1575:;  T1580:;
2978          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[146]->s.s_dbind))==Cnil){
2979          goto T1613;}          goto T1618;}
2980          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));
2981          princ_str("\n   goto TTL;",VV[25]);          princ_str("\n   goto TTL;",VV[25]);
2982          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[25]);
2983          goto T1613;          goto T1618;
2984  T1613:;  T1618:;
2985          base[7]= caddr(cddr((V320)));          base[7]= caddr(cddr((V320)));
2986          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2987          (void) (*Lnk315)();          (void) (*Lnk318)();
2988          vs_top=sup;          vs_top=sup;
2989          if(((V328))==Cnil){          if(((V328))==Cnil){
2990          goto T1623;}          goto T1628;}
2991          V328= Cnil;          V328= Cnil;
2992          princ_str("\n   va_end(ap);",VV[25]);          princ_str("\n   va_end(ap);",VV[25]);
2993          goto T1623;          goto T1628;
2994  T1623:;  T1628:;
2995          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
2996          goto T1631;}          goto T1636;}
2997          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[138]))!=Cnil){
2998          goto T1631;}          goto T1636;}
2999          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
3000          goto T1631;}          goto T1636;}
3001          goto T1629;          goto T1634;
3002          goto T1631;          goto T1636;
3003  T1631:;  T1636:;
3004          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
3005          goto T1629;          goto T1634;
3006  T1629:;  T1634:;
3007          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[25]);
3008          princ_char(125,VV[25]);          princ_char(125,VV[25]);
3009          if((base[1])==Cnil){          if((base[1])==Cnil){
3010          goto T1642;}          goto T1647;}
3011          princ_str("\n   }",VV[25]);          princ_str("\n   }",VV[25]);
3012          goto T1642;          goto T1647;
3013  T1642:;  T1647:;
3014          (void)((*(LnkLI330))());          (void)((*(LnkLI333))());
3015          V412= get((V318),VV[77],Cnil);          V412= get((V318),VV[77],Cnil);
3016          {object V413 = (*(LnkLI316))((V337),V412);          {object V413 = (*(LnkLI319))((V337),V412);
3017          bds_unwind1;          bds_unwind1;
3018          bds_unwind1;          bds_unwind1;
3019          bds_unwind1;          bds_unwind1;
# Line 3016  object V418;register object V419;object Line 3030  object V418;register object V419;object
3030  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
3031          goto TTL;          goto TTL;
3032  TTL:;  TTL:;
3033          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[179],(V418))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[179],(V418))));
3034          if(!(type_of((V419))==t_fixnum||          if(!(type_of((V419))==t_fixnum||
3035  type_of((V419))==t_bignum||  type_of((V419))==t_bignum||
3036  type_of((V419))==t_ratio||  type_of((V419))==t_ratio||
3037  type_of((V419))==t_shortfloat||  type_of((V419))==t_shortfloat||
3038  type_of((V419))==t_longfloat||  type_of((V419))==t_longfloat||
3039  type_of((V419))==t_complex)){  type_of((V419))==t_complex)){
3040          goto T1651;}          goto T1656;}
3041          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
3042          (void)((*(LnkLI274))((V419)));          (void)((*(LnkLI274))((V419)));
3043          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3044          goto T1649;          goto T1654;
3045          goto T1651;          goto T1656;
3046  T1651:;  T1656:;
3047          princ_char(10,VV[25]);          princ_char(10,VV[25]);
3048          (void)((*(LnkLI274))((V419)));          (void)((*(LnkLI274))((V419)));
3049          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3050          goto T1649;          goto T1654;
3051  T1649:;  T1654:;
3052          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
3053          princ_str("register object *",VV[25]);          princ_str("register object *",VV[25]);
3054          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI274))(symbol_value(VV[20])));
3055          princ_str("base=vs_base;",VV[25]);          princ_str("base=vs_base;",VV[25]);
3056          V422= structure_ref(cadr((V420)),VV[62],1);          V422= structure_ref(cadr((V420)),VV[62],1);
3057          (void)((*(LnkLI314))(/* INLINE-ARGS */V422,(V419),VV[148]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V422,(V419),VV[148]));
3058          princ_str("\n   register object *",VV[25]);          princ_str("\n   register object *",VV[25]);
3059          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI274))(symbol_value(VV[20])));
3060          princ_str("sup=base+VM",VV[25]);          princ_str("sup=base+VM",VV[25]);
# Line 3049  T1649:; Line 3063  T1649:;
3063          princ_str(" VC",VV[25]);          princ_str(" VC",VV[25]);
3064          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI274))(symbol_value(VV[136])));
3065          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
3066          goto T1676;}          goto T1681;}
3067          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[25]);
3068          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI274))(symbol_value(VV[136])));
3069          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3070          goto T1674;          goto T1679;
3071          goto T1676;          goto T1681;
3072  T1676:;  T1681:;
3073          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
3074          goto T1674;          goto T1679;
3075  T1674:;  T1679:;
3076          if(((V421))==Cnil){          if(((V421))==Cnil){
3077          goto T1682;}          goto T1687;}
3078          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
3079          goto T1682;          goto T1687;
3080  T1682:;  T1687:;
3081          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
3082          goto T1686;}          goto T1691;}
3083          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
3084          goto T1686;          goto T1691;
3085  T1686:;  T1691:;
3086          (void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V420)),caddr(cddr((V420))),(V418))));          (void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V420)),caddr(cddr((V420))),(V418))));
3087          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
3088          {object V423;          {object V423;
3089          V423= make_cons(symbol_value(VV[136]),symbol_value(VV[130]));          V423= make_cons(symbol_value(VV[136]),symbol_value(VV[130]));
3090          setq(VV[33],make_cons((V423),symbol_value(VV[33])));}          setq(VV[33],make_cons((V423),symbol_value(VV[33])));}
3091          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[31]);
3092          (void)((*(LnkLI277))(symbol_value(VV[136])));          (void)((*(LnkLI277))(symbol_value(VV[136])));
3093          {object V424 = (*(LnkLI332))();          {object V424 = (*(LnkLI335))();
3094          VMR26(V424)}          VMR26(V424)}
3095          base[0]=base[0];          base[0]=base[0];
3096          return Cnil;          return Cnil;
# Line 3093  TTL:; Line 3107  TTL:;
3107          V429= make_cons((V427),symbol_value(VV[130]));          V429= make_cons((V427),symbol_value(VV[130]));
3108          setq(VV[33],make_cons((V429),symbol_value(VV[33])));}          setq(VV[33],make_cons((V429),symbol_value(VV[33])));}
3109          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3110          goto T1704;}          goto T1709;}
3111          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[138]))!=Cnil){
3112          goto T1704;}          goto T1709;}
3113          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
3114          goto T1704;}          goto T1709;}
3115          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[31]);
3116          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3117          goto T1702;          goto T1707;
3118          goto T1704;          goto T1709;
3119  T1704:;  T1709:;
3120          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[31]);
3121          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3122          princ_char(32,VV[31]);          princ_char(32,VV[31]);
3123          princ_str("register object *",VV[31]);          princ_str("register object *",VV[31]);
3124          (void)((*(LnkLI277))(symbol_value(VV[20])));          (void)((*(LnkLI277))(symbol_value(VV[20])));
3125          princ_str("base=vs_top;",VV[31]);          princ_str("base=vs_top;",VV[31]);
3126          goto T1702;          goto T1707;
3127  T1702:;  T1707:;
3128          (void)((*(LnkLI332))());          (void)((*(LnkLI335))());
3129          if((symbol_value(VV[138]))==Cnil){          if((symbol_value(VV[138]))==Cnil){
3130          goto T1721;}          goto T1726;}
3131          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3132          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3133          princ_char(32,VV[31]);          princ_char(32,VV[31]);
# Line 3122  T1702:; Line 3136  T1702:;
3136          princ_str("sup=vs_top+",VV[31]);          princ_str("sup=vs_top+",VV[31]);
3137          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3138          princ_str(";vs_top=sup;",VV[31]);          princ_str(";vs_top=sup;",VV[31]);
3139          goto T1719;          goto T1724;
3140          goto T1721;          goto T1726;
3141  T1721:;  T1726:;
3142          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3143          goto T1732;}          goto T1737;}
3144          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3145          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3146          goto T1719;          goto T1724;
3147          goto T1732;          goto T1737;
3148  T1732:;  T1737:;
3149          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3150          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3151          princ_str(" vs_top += ",VV[31]);          princ_str(" vs_top += ",VV[31]);
3152          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3153          princ_char(59,VV[31]);          princ_char(59,VV[31]);
3154          goto T1719;          goto T1724;
3155  T1719:;  T1724:;
3156          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3157          goto T1743;}          goto T1748;}
3158          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3159          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3160          goto T1741;          goto T1746;
3161          goto T1743;          goto T1748;
3162  T1743:;  T1748:;
3163          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
3164          goto T1748;}          goto T1753;}
3165          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3166          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3167          princ_str(" vs_reserve(",VV[31]);          princ_str(" vs_reserve(",VV[31]);
3168          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3169          princ_str(");",VV[31]);          princ_str(");",VV[31]);
3170          goto T1741;          goto T1746;
3171          goto T1748;          goto T1753;
3172  T1748:;  T1753:;
3173          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3174          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3175          princ_str(" vs_check;",VV[31]);          princ_str(" vs_check;",VV[31]);
3176          goto T1741;          goto T1746;
3177  T1741:;  T1746:;
3178          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3179          goto T1759;}          goto T1764;}
3180          princ_str("\n#define VMR",VV[31]);          princ_str("\n#define VMR",VV[31]);
3181          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3182          princ_str("(VMT",VV[31]);          princ_str("(VMT",VV[31]);
# Line 3172  T1741:; Line 3186  T1741:;
3186          princ_str(");",VV[31]);          princ_str(");",VV[31]);
3187          {object V430 = Cnil;          {object V430 = Cnil;
3188          VMR27(V430)}          VMR27(V430)}
3189          goto T1759;          goto T1764;
3190  T1759:;  T1764:;
3191          princ_str("\n#define VMR",VV[31]);          princ_str("\n#define VMR",VV[31]);
3192          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3193          princ_str("(VMT",VV[31]);          princ_str("(VMT",VV[31]);
# Line 3196  object V434;object V435; Line 3210  object V434;object V435;
3210  TTL:;  TTL:;
3211          {register object V436;          {register object V436;
3212          V436= (V434);          V436= (V434);
3213          goto T1777;          goto T1782;
3214  T1777:;  T1782:;
3215          if(!(endp_prop((V436)))){          if(!(endp_prop((V436)))){
3216          goto T1778;}          goto T1783;}
3217          goto T1775;          goto T1780;
3218          goto T1778;          goto T1783;
3219  T1778:;  T1783:;
3220          {register object V437;          {register object V437;
3221          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
3222          V437= symbol_value(VV[88]);          V437= symbol_value(VV[88]);
# Line 3210  T1778:; Line 3224  T1778:;
3224          princ_char(86,VV[25]);          princ_char(86,VV[25]);
3225          (void)((*(LnkLI274))((V437)));}          (void)((*(LnkLI274))((V437)));}
3226          if(endp_prop(cdr((V436)))){          if(endp_prop(cdr((V436)))){
3227          goto T1788;}          goto T1793;}
3228          princ_char(44,VV[25]);          princ_char(44,VV[25]);
3229          goto T1788;          goto T1793;
3230  T1788:;  T1793:;
3231          V436= cdr((V436));          V436= cdr((V436));
3232          goto T1777;}          goto T1782;}
3233          goto T1775;          goto T1780;
3234  T1775:;  T1780:;
3235          princ_str(")\n",VV[25]);          princ_str(")\n",VV[25]);
3236          if(((V434))==Cnil){          if(((V434))==Cnil){
3237          goto T1798;}          goto T1803;}
3238          princ_char(10,VV[25]);          princ_char(10,VV[25]);
3239          {register object V438;          {register object V438;
3240          register object V439;          register object V439;
# Line 3228  T1775:; Line 3242  T1775:;
3242          V438= (V434);          V438= (V434);
3243          V439= (V435);          V439= (V435);
3244          V440= Cnil;          V440= Cnil;
3245          goto T1802;          goto T1807;
3246  T1802:;  T1807:;
3247          if(!(endp_prop((V438)))){          if(!(endp_prop((V438)))){
3248          goto T1803;}          goto T1808;}
3249          princ_char(59,VV[25]);          princ_char(59,VV[25]);
3250          {object V441 = Cnil;          {object V441 = Cnil;
3251          VMR28(V441)}          VMR28(V441)}
         goto T1803;  
 T1803:;  
         if(((V440))==Cnil){  
         goto T1808;}  
         princ_char(59,VV[25]);  
3252          goto T1808;          goto T1808;
3253  T1808:;  T1808:;
3254            if(((V440))==Cnil){
3255            goto T1813;}
3256            princ_char(59,VV[25]);
3257            goto T1813;
3258    T1813:;
3259          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI274))(symbol_value(VV[20])));
3260          V442= (*(LnkLI333))(car((V438)));          V442= (*(LnkLI336))(car((V438)));
3261          (void)((*(LnkLI274))(/* INLINE-ARGS */V442));          (void)((*(LnkLI274))(/* INLINE-ARGS */V442));
3262          V443= (*(LnkLI280))(car((V439)));          V443= (*(LnkLI280))(car((V439)));
3263          (void)((*(LnkLI274))(/* INLINE-ARGS */V443));          (void)((*(LnkLI274))(/* INLINE-ARGS */V443));
# Line 3253  T1808:; Line 3267  T1808:;
3267          (void)((*(LnkLI274))(/* INLINE-ARGS */V444));          (void)((*(LnkLI274))(/* INLINE-ARGS */V444));
3268          V438= cdr((V438));          V438= cdr((V438));
3269          V439= cdr((V439));          V439= cdr((V439));
3270          goto T1802;}          goto T1807;}
3271          goto T1798;          goto T1803;
3272  T1798:;  T1803:;
3273          {object V445 = Cnil;          {object V445 = Cnil;
3274          VMR28(V445)}          VMR28(V445)}
3275          return Cnil;          return Cnil;
# Line 3273  TTL:; Line 3287  TTL:;
3287          {object V451;          {object V451;
3288          V451= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil);          V451= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil);
3289          if(((V451))==Cnil){          if(((V451))==Cnil){
3290          goto T1828;}          goto T1833;}
3291          {object V452 = (V451);          {object V452 = (V451);
3292          VMR29(V452)}          VMR29(V452)}
3293          goto T1828;          goto T1833;
3294  T1828:;  T1833:;
3295          if((get((V448),VV[115],Cnil))!=Cnil){          if((get((V448),VV[115],Cnil))!=Cnil){
3296          goto T1831;}          goto T1836;}
3297          {object V453 = (VFUN_NARGS=2,(*(LnkLI334))(VV[180],(V448)));          {object V453 = (VFUN_NARGS=2,(*(LnkLI337))(VV[180],(V448)));
3298          VMR29(V453)}          VMR29(V453)}
3299          goto T1831;          goto T1836;
3300  T1831:;  T1836:;
3301          (void)(remprop((V448),VV[115]));          (void)(remprop((V448),VV[115]));
3302          {register object V454;          {register object V454;
3303          V454= small_fixnum(0);          V454= small_fixnum(0);
# Line 3291  T1831:; Line 3305  T1831:;
3305          register object V456;          register object V456;
3306          V455= structure_ref(cadr((V449)),VV[62],1);          V455= structure_ref(cadr((V449)),VV[62],1);
3307          V456= car((V455));          V456= car((V455));
3308          goto T1838;          goto T1843;
3309  T1838:;  T1843:;
3310          if(!(endp_prop((V455)))){          if(!(endp_prop((V455)))){
3311          goto T1839;}          goto T1844;}
         goto T1834;  
3312          goto T1839;          goto T1839;
3313  T1839:;          goto T1844;
3314    T1844:;
3315          V457= structure_ref((V456),VV[69],2);          V457= structure_ref((V456),VV[69],2);
3316          if(!(type_of(/* INLINE-ARGS */V457)==t_cons)){          if(!(type_of(/* INLINE-ARGS */V457)==t_cons)){
3317          goto T1843;}          goto T1848;}
3318          V458= structure_ref((V456),VV[69],2);          V458= structure_ref((V456),VV[69],2);
3319          if(!(type_of(cdr(/* INLINE-ARGS */V458))==t_fixnum)){          if(!(type_of(cdr(/* INLINE-ARGS */V458))==t_fixnum)){
3320          goto T1843;}          goto T1848;}
3321          V459= structure_ref((V456),VV[69],2);          V459= structure_ref((V456),VV[69],2);
3322          {object V460= cdr(/* INLINE-ARGS */V459);          {object V460= cdr(/* INLINE-ARGS */V459);
3323          V454= (number_compare((V454),V460)>=0?((V454)):V460);}          V454= (number_compare((V454),V460)>=0?((V454)):V460);}
3324          goto T1843;          goto T1848;
3325  T1843:;  T1848:;
3326          V455= cdr((V455));          V455= cdr((V455));
3327          V456= car((V455));          V456= car((V455));
3328          goto T1838;}          goto T1843;}
3329          goto T1834;          goto T1839;
3330  T1834:;  T1839:;
3331          base[0]= one_plus((V454));          base[0]= one_plus((V454));
3332          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3333          Lmake_list();          Lmake_list();
# Line 3323  T1834:; Line 3337  T1834:;
3337          register object V462;          register object V462;
3338          V461= structure_ref(cadr((V449)),VV[62],1);          V461= structure_ref(cadr((V449)),VV[62],1);
3339          V462= car((V461));          V462= car((V461));
3340          goto T1861;          goto T1866;
3341  T1861:;  T1866:;
3342          if(!(endp_prop((V461)))){          if(!(endp_prop((V461)))){
3343          goto T1862;}          goto T1867;}
         goto T1857;  
3344          goto T1862;          goto T1862;
3345  T1862:;          goto T1867;
3346    T1867:;
3347          V463= structure_ref((V462),VV[69],2);          V463= structure_ref((V462),VV[69],2);
3348          if(!(type_of(/* INLINE-ARGS */V463)==t_cons)){          if(!(type_of(/* INLINE-ARGS */V463)==t_cons)){
3349          goto T1866;}          goto T1871;}
3350          V464= structure_ref((V462),VV[69],2);          V464= structure_ref((V462),VV[69],2);
3351          if(!(type_of(cdr(/* INLINE-ARGS */V464))==t_fixnum)){          if(!(type_of(cdr(/* INLINE-ARGS */V464))==t_fixnum)){
3352          goto T1866;}          goto T1871;}
3353          {object V465;          {object V465;
3354          register object V467;          register object V467;
3355          V468= structure_ref((V462),VV[69],2);          V468= structure_ref((V462),VV[69],2);
# Line 3344  T1862:; Line 3358  T1862:;
3358          if(type_of(nthcdr(fixint((V465)),V450))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V465)),V450));          if(type_of(nthcdr(fixint((V465)),V450))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V465)),V450));
3359          (nthcdr(fixint((V465)),V450))->c.c_car = (V467);          (nthcdr(fixint((V465)),V450))->c.c_car = (V467);
3360          (void)(nthcdr(fixint((V465)),V450));}          (void)(nthcdr(fixint((V465)),V450));}
3361          goto T1866;          goto T1871;
3362  T1866:;  T1871:;
3363          V461= cdr((V461));          V461= cdr((V461));
3364          V462= car((V461));          V462= car((V461));
3365          goto T1861;}          goto T1866;}
3366          goto T1857;          goto T1862;
3367  T1857:;  T1862:;
3368          (void)(sputprop((V448),VV[116],(V450)));          (void)(sputprop((V448),VV[116],(V450)));
3369          {object V469;          {object V469;
3370          V469= get((V448),VV[116],Cnil);          V469= get((V448),VV[116],Cnil);
3371          if(((V469))==Cnil){          if(((V469))==Cnil){
3372          goto T1882;}          goto T1887;}
3373          if((cdr((V469)))!=Cnil){          if((cdr((V469)))!=Cnil){
3374          goto T1881;}          goto T1886;}
3375          if((car((V469)))==Cnil){          if((car((V469)))==Cnil){
3376          goto T1882;}          goto T1887;}
3377          goto T1881;          goto T1886;
3378  T1881:;  T1886:;
3379          V470= list(2,VV[91],(V448));          V470= list(2,VV[91],(V448));
3380          V471= list(3,VV[116],/* INLINE-ARGS */V470,list(2,VV[91],(V469)));          V471= list(3,VV[116],/* INLINE-ARGS */V470,list(2,VV[91],(V469)));
3381          {object V472 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V471));          {object V472 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V471));
3382          VMR29(V472)}          VMR29(V472)}
3383          goto T1882;          goto T1887;
3384  T1882:;  T1887:;
3385          {object V473 = Cnil;          {object V473 = Cnil;
3386          VMR29(V473)}}}}}          VMR29(V473)}}}}}
3387          base[0]=base[0];          base[0]=base[0];
# Line 3384  TTL:; Line 3398  TTL:;
3398          {object V478;          {object V478;
3399          V478= number_minus(symbol_value(VV[181]),(V477));          V478= number_minus(symbol_value(VV[181]),(V477));
3400          if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){
3401          goto T1890;}          goto T1895;}
3402          V479= (VFUN_NARGS=1,(*(LnkLI336))((V476)));          V479= (VFUN_NARGS=1,(*(LnkLI339))((V476)));
3403          {long V480 = (long)(*(LnkLI335))(/* INLINE-ARGS */V479,(V478));          {long V480 = (long)(*(LnkLI338))(/* INLINE-ARGS */V479,(V478));
3404          VMR30((object)V480)}          VMR30((object)V480)}
3405          goto T1890;          goto T1895;
3406  T1890:;  T1895:;
3407          {register object V481;          {register object V481;
3408          register object V482;          register object V482;
3409          V481= Cnil;          V481= Cnil;
# Line 3398  T1890:; Line 3412  T1890:;
3412          register object V484;          register object V484;
3413          V483= (V476);          V483= (V476);
3414          V484= car((V483));          V484= car((V483));
3415          goto T1896;          goto T1901;
3416  T1896:;  T1901:;
3417          if(!(endp_prop((V483)))){          if(!(endp_prop((V483)))){
3418          goto T1897;}          goto T1902;}
         goto T1892;  
3419          goto T1897;          goto T1897;
3420  T1897:;          goto T1902;
3421    T1902:;
3422          V486= structure_ref((V484),VV[69],5);          V486= structure_ref((V484),VV[69],5);
3423          {register object x= /* INLINE-ARGS */V486,V485= VV[183];          {register object x= /* INLINE-ARGS */V486,V485= VV[183];
3424          while(!endp(V485))          while(!endp(V485))
3425          if(x==(V485->c.c_car)){          if(x==(V485->c.c_car)){
3426          goto T1904;          goto T1909;
3427          }else V485=V485->c.c_cdr;          }else V485=V485->c.c_cdr;
3428          goto T1903;}          goto T1908;}
3429          goto T1904;          goto T1909;
3430  T1904:;{object V487;  T1909:;{object V487;
3431          {register object x= (V484),V488= (V482);          {register object x= (V484),V488= (V482);
3432          while(!endp(V488))          while(!endp(V488))
3433          if(eql(x,V488->c.c_car)){          if(eql(x,V488->c.c_car)){
3434          V487= V488;          V487= V488;
3435          goto T1906;          goto T1911;
3436          }else V488=V488->c.c_cdr;          }else V488=V488->c.c_cdr;
3437          V487= Cnil;}          V487= Cnil;}
3438            goto T1911;
3439    T1911:;
3440            if(V487==Cnil)goto T1910;
3441          goto T1906;          goto T1906;
3442  T1906:;          goto T1910;
3443          if(V487==Cnil)goto T1905;  T1910:;}
         goto T1901;  
         goto T1905;  
 T1905:;}  
3444          {register object V489;          {register object V489;
3445          V489= (V484);          V489= (V484);
3446          V482= make_cons((V489),(V482));          V482= make_cons((V489),(V482));
3447          goto T1901;}          goto T1906;}
3448          goto T1903;          goto T1908;
3449  T1903:;{object V490;  T1908:;{object V490;
3450          {register object x= (V484),V491= (V481);          {register object x= (V484),V491= (V481);
3451          while(!endp(V491))          while(!endp(V491))
3452          if(x==(V491->c.c_car)){          if(x==(V491->c.c_car)){
3453          V490= V491;          V490= V491;
3454          goto T1910;          goto T1915;
3455          }else V491=V491->c.c_cdr;          }else V491=V491->c.c_cdr;
3456          V490= Cnil;}          V490= Cnil;}
3457          goto T1910;          goto T1915;
3458  T1910:;  T1915:;
3459          if(V490==Cnil)goto T1909;          if(V490==Cnil)goto T1914;
3460          goto T1901;          goto T1906;
3461          goto T1909;          goto T1914;
3462  T1909:;}  T1914:;}
3463          {register object V492;          {register object V492;
3464          V492= (V484);          V492= (V484);
3465          V482= make_cons((V492),(V482));}          V482= make_cons((V492),(V482));}
3466          goto T1901;          goto T1906;
3467  T1901:;  T1906:;
3468          V483= cdr((V483));          V483= cdr((V483));
3469          V484= car((V483));          V484= car((V483));
3470          goto T1896;}          goto T1901;}
3471          goto T1892;          goto T1897;
3472  T1892:;  T1897:;
3473          (void)((*(LnkLI335))((V481),(V478)));          (void)((*(LnkLI338))((V481),(V478)));
3474          {long V493 = (long)(*(LnkLI335))((V482),symbol_value(VV[182]));          {long V493 = (long)(*(LnkLI338))((V482),symbol_value(VV[182]));
3475          VMR30((object)V493)}}}          VMR30((object)V493)}}}
3476          base[0]=base[0];          base[0]=base[0];
3477  }  }
# Line 3479  TTL:; Line 3493  TTL:;
3493          V500= 100000;          V500= 100000;
3494          V501= fix((V497));          V501= fix((V497));
3495          V502= 0;          V502= 0;
3496          V496= (VFUN_NARGS=1,(*(LnkLI336))((V496)));          V496= (VFUN_NARGS=1,(*(LnkLI339))((V496)));
3497          goto T1927;          goto T1932;
3498  T1927:;  T1932:;
3499          {register object V503;          {register object V503;
3500          object V504;          object V504;
3501          V503= (V496);          V503= (V496);
3502          V504= car((V503));          V504= car((V503));
3503          goto T1933;          goto T1938;
3504  T1933:;  T1938:;
3505          if(!(endp_prop((V503)))){          if(!(endp_prop((V503)))){
3506          goto T1934;}          goto T1939;}
         goto T1929;  
3507          goto T1934;          goto T1934;
3508  T1934:;          goto T1939;
3509    T1939:;
3510          V498= fix(structure_ref((V504),VV[69],6));          V498= fix(structure_ref((V504),VV[69],6));
3511          if(!((V498)>=(V499))){          if(!((V498)>=(V499))){
3512          goto T1940;}          goto T1945;}
3513          V502= (long)(V502)+(1);          V502= (long)(V502)+(1);
3514          if(!((V498)<(V500))){          if(!((V498)<(V500))){
3515          goto T1945;}          goto T1950;}
3516          V500= V498;          V500= V498;
3517            goto T1950;
3518    T1950:;
3519            if(!((V502)>(V501))){
3520            goto T1945;}
3521            goto T1933;
3522          goto T1945;          goto T1945;
3523  T1945:;  T1945:;
         if(!((V502)>(V501))){  
         goto T1940;}  
         goto T1928;  
         goto T1940;  
 T1940:;  
3524          V503= cdr((V503));          V503= cdr((V503));
3525          V504= car((V503));          V504= car((V503));
3526          goto T1933;}          goto T1938;}
3527          goto T1929;          goto T1934;
3528  T1929:;  T1934:;
3529          if(!((V502)<(V501))){          if(!((V502)<(V501))){
3530          goto T1956;}          goto T1961;}
3531          V499= (long)(V499)-(1);          V499= (long)(V499)-(1);
3532          goto T1956;          goto T1961;
3533  T1956:;  T1961:;
3534          {register object V505;          {register object V505;
3535          register object V506;          register object V506;
3536          V505= (V496);          V505= (V496);
3537          V506= car((V505));          V506= car((V505));
3538          goto T1964;          goto T1969;
3539  T1964:;  T1969:;
3540          if(!(endp_prop((V505)))){          if(!(endp_prop((V505)))){
3541          goto T1965;}          goto T1970;}
         goto T1960;  
3542          goto T1965;          goto T1965;
3543  T1965:;          goto T1970;
3544    T1970:;
3545          {long V507= fix(structure_ref((V506),VV[69],6));          {long V507= fix(structure_ref((V506),VV[69],6));
3546          if(!((/* INLINE-ARGS */V507)<(V499))){          if(!((/* INLINE-ARGS */V507)<(V499))){
3547          goto T1969;}}          goto T1974;}}
3548          (void)(structure_set((V506),VV[69],6,small_fixnum(0)));          (void)(structure_set((V506),VV[69],6,small_fixnum(0)));
3549          goto T1969;          goto T1974;
3550  T1969:;  T1974:;
3551          V505= cdr((V505));          V505= cdr((V505));
3552          V506= car((V505));          V506= car((V505));
3553          goto T1964;}          goto T1969;}
3554          goto T1960;          goto T1965;
3555  T1960:;  T1965:;
3556          {long V508 = V499;          {long V508 = V499;
3557          VMR31((object)V508)}          VMR31((object)V508)}
3558          goto T1928;          goto T1933;
3559  T1928:;  T1933:;
3560          V502= 0;          V502= 0;
3561          V499= (long)(V500)+(1);          V499= (long)(V500)+(1);
3562          V500= 1000000;          V500= 1000000;
3563          goto T1927;}          goto T1932;}
3564          base[0]=base[0];          base[0]=base[0];
3565  }  }
3566  /*      local entry for function WT-GLOBAL-ENTRY        */  /*      local entry for function WT-GLOBAL-ENTRY        */
# Line 3558  object V513;object V514;object V515;obje Line 3572  object V513;object V514;object V515;obje
3572          goto TTL;          goto TTL;
3573  TTL:;  TTL:;
3574          if((get((V513),VV[102],Cnil))==Cnil){          if((get((V513),VV[102],Cnil))==Cnil){
3575          goto T1984;}          goto T1989;}
3576          {object V517 = Cnil;          {object V517 = Cnil;
3577          VMR32(V517)}          VMR32(V517)}
3578          goto T1984;          goto T1989;
3579  T1984:;  T1989:;
3580          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[186],(V513))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[186],(V513))));
3581          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
3582          (void)((*(LnkLI274))((V514)));          (void)((*(LnkLI274))((V514)));
3583          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3584          princ_str("\n{  register object *base=vs_base;",VV[25]);          princ_str("\n{  register object *base=vs_base;",VV[25]);
3585          if((symbol_value(VV[163]))!=Cnil){          if((symbol_value(VV[163]))!=Cnil){
3586          goto T1995;}          goto T2000;}
3587          if((symbol_value(VV[164]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
3588          goto T1994;}          goto T1999;}
3589          goto T1995;          goto T2000;
3590  T1995:;  T2000:;
3591          princ_str("\n   check_arg(",VV[25]);          princ_str("\n   check_arg(",VV[25]);
3592          V518 = make_fixnum((long)length((V515)));          V518 = make_fixnum((long)length((V515)));
3593          (void)((*(LnkLI274))(V518));          (void)((*(LnkLI274))(V518));
3594          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3595          goto T1994;          goto T1999;
3596  T1994:;  T1999:;
3597          princ_str("\n   base[0]=",VV[25]);          princ_str("\n   base[0]=",VV[25]);
3598          {object V520= (V516);          {object V520= (V516);
3599          if((V520!= VV[89]))goto T2006;          if((V520!= VV[89]))goto T2011;
3600          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
3601          goto T2008;}          goto T2013;}
3602          V519= VV[187];          V519= VV[187];
3603          goto T2005;          goto T2010;
3604          goto T2008;          goto T2013;
3605  T2008:;  T2013:;
3606          V519= VV[188];          V519= VV[188];
         goto T2005;  
         goto T2006;  
 T2006:;  
         if((V520!= VV[142]))goto T2010;  
         V519= VV[189];  
         goto T2005;  
3607          goto T2010;          goto T2010;
 T2010:;  
         if((V520!= VV[143]))goto T2011;  
         V519= VV[190];  
         goto T2005;  
3608          goto T2011;          goto T2011;
3609  T2011:;  T2011:;
3610          if((V520!= VV[144]))goto T2012;          if((V520!= VV[142]))goto T2015;
3611            V519= VV[189];
3612            goto T2010;
3613            goto T2015;
3614    T2015:;
3615            if((V520!= VV[143]))goto T2016;
3616            V519= VV[190];
3617            goto T2010;
3618            goto T2016;
3619    T2016:;
3620            if((V520!= VV[144]))goto T2017;
3621          V519= VV[191];          V519= VV[191];
3622          goto T2005;          goto T2010;
3623          goto T2012;          goto T2017;
3624  T2012:;  T2017:;
3625          V519= VV[192];}          V519= VV[192];}
3626          goto T2005;          goto T2010;
3627  T2005:;  T2010:;
3628          (void)((*(LnkLI274))(V519));          (void)((*(LnkLI274))(V519));
3629          princ_str("(LI",VV[25]);          princ_str("(LI",VV[25]);
3630          (void)((*(LnkLI274))((V514)));          (void)((*(LnkLI274))((V514)));
# Line 3619  T2005:; Line 3633  T2005:;
3633          register long V522;          register long V522;
3634          V522= 0;          V522= 0;
3635          V521= (V515);          V521= (V515);
3636          goto T2019;          goto T2024;
3637  T2019:;  T2024:;
3638          if(!(endp_prop((V521)))){          if(!(endp_prop((V521)))){
3639          goto T2020;}          goto T2025;}
3640          goto T2016;          goto T2021;
3641          goto T2020;          goto T2025;
3642  T2020:;  T2025:;
3643          {object V524= car((V521));          {object V524= car((V521));
3644          if((V524!= VV[89]))goto T2027;          if((V524!= VV[89]))goto T2032;
3645          V523= VV[193];          V523= VV[193];
3646          goto T2026;          goto T2031;
3647          goto T2027;          goto T2032;
3648  T2027:;  T2032:;
3649          if((V524!= VV[142]))goto T2028;          if((V524!= VV[142]))goto T2033;
3650          V523= VV[194];          V523= VV[194];
3651          goto T2026;          goto T2031;
3652          goto T2028;          goto T2033;
3653  T2028:;  T2033:;
3654          if((V524!= VV[143]))goto T2029;          if((V524!= VV[143]))goto T2034;
3655          V523= VV[195];          V523= VV[195];
3656          goto T2026;          goto T2031;
3657          goto T2029;          goto T2034;
3658  T2029:;  T2034:;
3659          if((V524!= VV[144]))goto T2030;          if((V524!= VV[144]))goto T2035;
3660          V523= VV[196];          V523= VV[196];
3661          goto T2026;          goto T2031;
3662          goto T2030;          goto T2035;
3663  T2030:;  T2035:;
3664          V523= VV[197];}          V523= VV[197];}
3665          goto T2026;          goto T2031;
3666  T2026:;  T2031:;
3667          (void)((*(LnkLI274))(V523));          (void)((*(LnkLI274))(V523));
3668          princ_str("(base[",VV[25]);          princ_str("(base[",VV[25]);
3669          V525 = make_fixnum(V522);          V525 = make_fixnum(V522);
3670          (void)((*(LnkLI274))(V525));          (void)((*(LnkLI274))(V525));
3671          princ_str("])",VV[25]);          princ_str("])",VV[25]);
3672          if(endp_prop(cdr((V521)))){          if(endp_prop(cdr((V521)))){
3673          goto T2034;}          goto T2039;}
3674          princ_char(44,VV[25]);          princ_char(44,VV[25]);
3675          goto T2034;          goto T2039;
3676  T2034:;  T2039:;
3677          V521= cdr((V521));          V521= cdr((V521));
3678          V522= (long)(V522)+1;          V522= (long)(V522)+1;
3679          goto T2019;}          goto T2024;}
3680          goto T2016;          goto T2021;
3681  T2016:;  T2021:;
3682          princ_str("));",VV[25]);          princ_str("));",VV[25]);
3683          princ_str("\n   vs_top=(vs_base=base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=base)+1;",VV[25]);
3684          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
# Line 3681  object V528; Line 3695  object V528;
3695          goto TTL;          goto TTL;
3696  TTL:;  TTL:;
3697          {object V529= (V528);          {object V529= (V528);
3698          if((V529!= VV[89]))goto T2047;          if((V529!= VV[89]))goto T2052;
3699          {object V530 = VV[198];          {object V530 = VV[198];
3700          VMR33(V530)}          VMR33(V530)}
3701          goto T2047;          goto T2052;
3702  T2047:;  T2052:;
3703          if((V529!= VV[261]))goto T2048;          if((V529!= VV[261]))goto T2053;
3704          {object V531 = VV[199];          {object V531 = VV[199];
3705          VMR33(V531)}          VMR33(V531)}
3706          goto T2048;          goto T2053;
3707  T2048:;  T2053:;
3708          if((V529!= VV[142]))goto T2049;          if((V529!= VV[142]))goto T2054;
3709          {object V532 = VV[200];          {object V532 = VV[200];
3710          VMR33(V532)}          VMR33(V532)}
3711          goto T2049;          goto T2054;
3712  T2049:;  T2054:;
3713          if((V529!= VV[144]))goto T2050;          if((V529!= VV[144]))goto T2055;
3714          {object V533 = VV[201];          {object V533 = VV[201];
3715          VMR33(V533)}          VMR33(V533)}
3716          goto T2050;          goto T2055;
3717  T2050:;  T2055:;
3718          if((V529!= VV[143]))goto T2051;          if((V529!= VV[143]))goto T2056;
3719          {object V534 = VV[202];          {object V534 = VV[202];
3720          VMR33(V534)}          VMR33(V534)}
3721          goto T2051;          goto T2056;
3722  T2051:;  T2056:;
3723          {object V535 = VV[203];          {object V535 = VV[203];
3724          VMR33(V535)}}          VMR33(V535)}}
3725          return Cnil;          return Cnil;
# Line 3720  register object V537; Line 3734  register object V537;
3734          goto TTL;          goto TTL;
3735  TTL:;  TTL:;
3736          if(endp_prop((V537))){          if(endp_prop((V537))){
3737          goto T2053;}          goto T2058;}
3738          if(!(endp_prop(cdr((V537))))){          if(!(endp_prop(cdr((V537))))){
3739          goto T2052;}          goto T2057;}
3740          goto T2053;          goto T2058;
3741  T2053:;  T2058:;
3742          V538 = make_fixnum((long)length((V537)));          V538 = make_fixnum((long)length((V537)));
3743          (void)((*(LnkLI283))(VV[204],small_fixnum(2),V538));          (void)((*(LnkLI283))(VV[204],small_fixnum(2),V538));
         goto T2052;  
 T2052:;  
         if(type_of(car((V537)))==t_symbol){  
         goto T2057;}  
         (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V537)))));  
3744          goto T2057;          goto T2057;
3745  T2057:;  T2057:;
3746            if(type_of(car((V537)))==t_symbol){
3747            goto T2062;}
3748            (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V537)))));
3749            goto T2062;
3750    T2062:;
3751          V539= make_cons(VV[204],(V537));          V539= make_cons(VV[204],(V537));
3752          (void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V539));          (void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V539));
3753          setq(VV[6],Ct);          setq(VV[6],Ct);
# Line 3748  T2057:; Line 3762  T2057:;
3762          bds_bind(VV[52],Cnil);          bds_bind(VV[52],Cnil);
3763          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
3764          V540= Cnil;          V540= Cnil;
3765          V540= (*(LnkLI337))(car((V537)),cadr((V537)),cddr((V537)));          V540= (*(LnkLI340))(car((V537)),cadr((V537)),cddr((V537)));
3766          (void)((*(LnkLI293))());          (void)((*(LnkLI296))());
3767          {object V542;          {object V542;
3768          V542= list(7,VV[204],car((V537)),(V541),cddr((V540)),car((V540)),cadr((V540)),(VV[59]->s.s_dbind));          V542= list(7,VV[204],car((V537)),(V541),cddr((V540)),car((V540)),cadr((V540)),(VV[59]->s.s_dbind));
3769          setq(VV[24],make_cons((V542),symbol_value(VV[24])));          setq(VV[24],make_cons((V542),symbol_value(VV[24])));
# Line 3773  object V550;object V551;object V552;obje Line 3787  object V550;object V551;object V552;obje
3787          goto TTL;          goto TTL;
3788  TTL:;  TTL:;
3789          if(((V553))==Cnil){          if(((V553))==Cnil){
3790          goto T2070;}          goto T2075;}
3791          V556= list(4,VV[103],list(2,VV[91],(V550)),(V553),VV[206]);          V556= list(4,VV[103],list(2,VV[91],(V550)),(V553),VV[206]);
3792          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V556)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V556)));
3793          goto T2070;          goto T2075;
3794  T2070:;  T2075:;
3795          if(((V554))==Cnil){          if(((V554))==Cnil){
3796          goto T2073;}          goto T2078;}
3797          V557= list(2,VV[91],(V550));          V557= list(2,VV[91],(V550));
3798          V558= list(4,VV[103],/* INLINE-ARGS */V557,list(2,VV[91],(V554)),VV[207]);          V558= list(4,VV[103],/* INLINE-ARGS */V557,list(2,VV[91],(V554)),VV[207]);
3799          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V558)));          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V558)));
3800          goto T2073;          goto T2078;
3801  T2073:;  T2078:;
3802          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[31]);
3803          (void)((*(LnkLI277))((V551)));          (void)((*(LnkLI277))((V551)));
3804          princ_str("();",VV[31]);          princ_str("();",VV[31]);
3805          V559= list(2,VV[91],(V550));          V559= list(2,VV[91],(V550));
3806          V560= list(3,VV[208],/* INLINE-ARGS */V559,(*(LnkLI301))(VV[209],(V551)));          V560= list(3,VV[208],/* INLINE-ARGS */V559,(*(LnkLI304))(VV[209],(V551)));
3807          {object V561 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V560));          {object V561 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V560));
3808          VMR35(V561)}          VMR35(V561)}
3809          return Cnil;          return Cnil;
3810  }  }
# Line 3804  object V568;object V569;register object Line 3818  object V568;object V569;register object
3818          goto TTL;          goto TTL;
3819  TTL:;  TTL:;
3820          if((get((V568),VV[210],Cnil))==Cnil){          if((get((V568),VV[210],Cnil))==Cnil){
3821          goto T2082;}          goto T2087;}
3822          bds_bind(VV[20],VV[211]);          bds_bind(VV[20],VV[211]);
3823          goto T2080;          goto T2085;
3824          goto T2082;          goto T2087;
3825  T2082:;  T2087:;
3826          bds_bind(VV[20],VV[212]);          bds_bind(VV[20],VV[212]);
3827          goto T2080;          goto T2085;
3828  T2080:;  T2085:;
3829          bds_bind(VV[128],VV[127]);          bds_bind(VV[128],VV[127]);
3830          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
3831          bds_bind(VV[129],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
# Line 3827  T2080:; Line 3841  T2080:;
3841          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
3842          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
3843          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
3844          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[213],(V568))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[213],(V568))));
3845          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
3846          (void)((*(LnkLI274))((V569)));          (void)((*(LnkLI274))((V569)));
3847          princ_str("()",VV[25]);          princ_str("()",VV[25]);
# Line 3835  T2080:; Line 3849  T2080:;
3849          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
3850          princ_str("base=vs_base;",VV[25]);          princ_str("base=vs_base;",VV[25]);
3851          V574= structure_ref(car(cddddr((V570))),VV[62],1);          V574= structure_ref(car(cddddr((V570))),VV[62],1);
3852          (void)((*(LnkLI314))(/* INLINE-ARGS */V574,(V569),VV[148]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V574,(V569),VV[148]));
3853          princ_str("\n   register object *",VV[25]);          princ_str("\n   register object *",VV[25]);
3854          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
3855          princ_str("sup=base+VM",VV[25]);          princ_str("sup=base+VM",VV[25]);
# Line 3844  T2080:; Line 3858  T2080:;
3858          princ_str(" VC",VV[25]);          princ_str(" VC",VV[25]);
3859          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
3860          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
3861          goto T2108;}          goto T2113;}
3862          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[25]);
3863          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
3864          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3865          goto T2106;          goto T2111;
3866          goto T2108;          goto T2113;
3867  T2108:;  T2113:;
3868          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
3869          goto T2106;          goto T2111;
3870  T2106:;  T2111:;
3871          if(((V573))==Cnil){          if(((V573))==Cnil){
3872          goto T2114;}          goto T2119;}
3873          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
3874          goto T2114;          goto T2119;
3875  T2114:;  T2119:;
3876          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
3877          goto T2118;}          goto T2123;}
3878          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
3879          goto T2118;          goto T2123;
3880  T2118:;  T2123:;
3881          base[15]= car((V570));          base[15]= car((V570));
3882          base[16]= cadr((V570));          base[16]= cadr((V570));
3883          base[17]= caddr((V570));          base[17]= caddr((V570));
3884          base[18]= cadddr((V570));          base[18]= cadddr((V570));
3885          vs_top=(vs_base=base+15)+4;          vs_top=(vs_base=base+15)+4;
3886          (void) (*Lnk338)();          (void) (*Lnk341)();
3887          vs_top=sup;          vs_top=sup;
3888          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
3889          {object V575;          {object V575;
# Line 3877  T2118:; Line 3891  T2118:;
3891          setq(VV[33],make_cons((V575),symbol_value(VV[33])));}          setq(VV[33],make_cons((V575),symbol_value(VV[33])));}
3892          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[31]);
3893          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));
3894          {object V576 = (*(LnkLI332))();          {object V576 = (*(LnkLI335))();
3895          bds_unwind1;          bds_unwind1;
3896          bds_unwind1;          bds_unwind1;
3897          bds_unwind1;          bds_unwind1;
# Line 3910  TTL:; Line 3924  TTL:;
3924          V579= Cnil;          V579= Cnil;
3925          setq(VV[6],Ct);          setq(VV[6],Ct);
3926          if((symbol_value(VV[48]))==Cnil){          if((symbol_value(VV[48]))==Cnil){
3927          goto T2139;}          goto T2144;}
3928          (void)((*(LnkLI267))(Cnil,(V578)));          (void)((*(LnkLI267))(Cnil,(V578)));
3929          {object V580;          {object V580;
3930          base[0]= VV[214];          base[0]= VV[214];
# Line 3919  TTL:; Line 3933  TTL:;
3933          vs_top=sup;          vs_top=sup;
3934          V580= vs_base[0];          V580= vs_base[0];
3935          V581= listA(3,VV[64],(V580),VV[215]);          V581= listA(3,VV[64],(V580),VV[215]);
3936          (void)((*(LnkLI289))(/* INLINE-ARGS */V581));          (void)((*(LnkLI292))(/* INLINE-ARGS */V581));
3937          base[0]= list(5,VV[51],(V580),Cnil,(V578),Cnil);          base[0]= list(5,VV[51],(V580),Cnil,(V578),Cnil);
3938          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3939          (void) (*Lnk271)();          (void) (*Lnk271)();
# Line 3929  TTL:; Line 3943  TTL:;
3943          setq(VV[24],make_cons((V582),symbol_value(VV[24])));          setq(VV[24],make_cons((V582),symbol_value(VV[24])));
3944          {object V583 = symbol_value(VV[24]);          {object V583 = symbol_value(VV[24]);
3945          VMR37(V583)}}}          VMR37(V583)}}}
3946          goto T2139;          goto T2144;
3947  T2139:;  T2144:;
3948          {object V584;          {object V584;
3949          if(type_of((V578))==t_cons){          if(type_of((V578))==t_cons){
3950          goto T2150;}          goto T2155;}
3951          V584= Cnil;          V584= Cnil;
3952          goto T2149;          goto T2154;
3953          goto T2150;          goto T2155;
3954  T2150:;  T2155:;
3955          if(type_of(car((V578)))==t_symbol){          if(type_of(car((V578)))==t_symbol){
3956          goto T2152;}          goto T2157;}
3957          V584= Cnil;          V584= Cnil;
         goto T2149;  
         goto T2152;  
 T2152:;  
         if(!((car((V578)))==(VV[217]))){  
         goto T2156;}  
3958          goto T2154;          goto T2154;
3959          goto T2156;          goto T2157;
3960  T2156:;  T2157:;
3961            if(!((car((V578)))==(VV[217]))){
3962            goto T2161;}
3963            goto T2159;
3964            goto T2161;
3965    T2161:;
3966          base[0]= car((V578));          base[0]= car((V578));
3967          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3968          Lspecial_form_p();          Lspecial_form_p();
3969          vs_top=sup;          vs_top=sup;
3970          V585= vs_base[0];          V585= vs_base[0];
3971          if((V585)==Cnil){          if((V585)==Cnil){
3972          goto T2154;}          goto T2159;}
3973          V584= Cnil;          V584= Cnil;
         goto T2149;  
3974          goto T2154;          goto T2154;
3975  T2154:;          goto T2159;
3976    T2159:;
3977          {register object V586;          {register object V586;
3978          register long V587;          register long V587;
3979          V586= cdr((V578));          V586= cdr((V578));
3980          V587= 1;          V587= 1;
3981          goto T2163;          goto T2168;
3982  T2163:;  T2168:;
3983          if((V587)>=(1000)){          if((V587)>=(1000)){
3984          goto T2165;}          goto T2170;}
3985          if(type_of((V586))==t_cons){          if(type_of((V586))==t_cons){
3986          goto T2164;}          goto T2169;}
3987          goto T2165;          goto T2170;
3988  T2165:;  T2170:;
3989          V584= Cnil;          V584= Cnil;
3990          goto T2149;          goto T2154;
3991          goto T2164;          goto T2169;
3992  T2164:;  T2169:;
3993          if(!(type_of(car((V586)))==t_cons)){          if(!(type_of(car((V586)))==t_cons)){
3994          goto T2170;}          goto T2175;}
3995          if(!((caar((V586)))==(VV[64]))){          if(!((caar((V586)))==(VV[64]))){
3996          goto T2170;}          goto T2175;}
3997          V579= cadr(car((V586)));          V579= cadr(car((V586)));
3998          if(!(type_of((V579))==t_cons)){          if(!(type_of((V579))==t_cons)){
3999          goto T2170;}          goto T2175;}
4000          if(!((car((V579)))==(VV[218]))){          if(!((car((V579)))==(VV[218]))){
4001          goto T2170;}          goto T2175;}
4002          {register object V588;          {register object V588;
4003          vs_base=vs_top;          vs_base=vs_top;
4004          Lgensym();          Lgensym();
# Line 4011  T2164:; Line 4025  T2164:;
4025          vs_top=sup;          vs_top=sup;
4026          V578= vs_base[0];          V578= vs_base[0];
4027          goto TTL;}          goto TTL;}
4028          goto T2170;          goto T2175;
4029  T2170:;  T2175:;
4030          if(type_of((V586))==t_cons){          if(type_of((V586))==t_cons){
4031          goto T2193;}          goto T2198;}
4032          V586= Cnil;          V586= Cnil;
4033          goto T2192;          goto T2197;
4034          goto T2193;          goto T2198;
4035  T2193:;  T2198:;
4036          V586= cdr((V586));          V586= cdr((V586));
4037          goto T2192;          goto T2197;
4038  T2192:;  T2197:;
4039          V587= (long)(1)+(V587);          V587= (long)(1)+(V587);
4040          goto T2163;}          goto T2168;}
4041          goto T2149;          goto T2154;
4042  T2149:;  T2154:;
4043          if(((V584))==Cnil){          if(((V584))==Cnil){
4044          goto T2198;}          goto T2203;}
4045          {object V592 = (V584);          {object V592 = (V584);
4046          VMR37(V592)}          VMR37(V592)}
4047          goto T2198;          goto T2203;
4048  T2198:;  T2203:;
4049          (void)((*(LnkLI267))(Cnil,(V578)));          (void)((*(LnkLI267))(Cnil,(V578)));
4050          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
4051          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
# Line 4062  TTL:; Line 4076  TTL:;
4076          {object V597;          {object V597;
4077          V597= (type_of((V596))!=t_cons?Ct:Cnil);          V597= (type_of((V596))!=t_cons?Ct:Cnil);
4078          if(((V597))==Cnil){          if(((V597))==Cnil){
4079          goto T2206;}          goto T2211;}
4080          {object V598 = (V597);          {object V598 = (V597);
4081          VMR38(V598)}          VMR38(V598)}
4082          goto T2206;          goto T2211;
4083  T2206:;  T2211:;
4084          {object V599;          {object V599;
4085          base[0]= (V596);          base[0]= (V596);
4086          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 4074  T2206:; Line 4088  T2206:;
4088          vs_top=sup;          vs_top=sup;
4089          V599= vs_base[0];          V599= vs_base[0];
4090          if(((V599))==Cnil){          if(((V599))==Cnil){
4091          goto T2211;}          goto T2216;}
4092          {object V600 = (V599);          {object V600 = (V599);
4093          VMR38(V600)}          VMR38(V600)}
4094          goto T2211;          goto T2216;
4095  T2211:;  T2216:;
4096          {object V601 = (VFUN_NARGS=1,(*(LnkLI300))((V596)));          {object V601 = (VFUN_NARGS=1,(*(LnkLI303))((V596)));
4097          VMR38(V601)}}}          VMR38(V601)}}}
4098          base[0]=base[0];          base[0]=base[0];
4099          return Cnil;          return Cnil;
# Line 4095  TTL:; Line 4109  TTL:;
4109          register object V603;          register object V603;
4110          V602= reverse(symbol_value(VV[52]));          V602= reverse(symbol_value(VV[52]));
4111          V603= car((V602));          V603= car((V602));
4112          goto T2216;          goto T2221;
4113  T2216:;  T2221:;
4114          if(!(endp_prop((V602)))){          if(!(endp_prop((V602)))){
4115          goto T2217;}          goto T2222;}
4116          {object V604 = Cnil;          {object V604 = Cnil;
4117          VMR39(V604)}          VMR39(V604)}
4118          goto T2217;          goto T2222;
4119  T2217:;  T2222:;
4120          if(!(type_of((V603))!=t_cons)){          if(!(type_of((V603))!=t_cons)){
4121          goto T2221;}          goto T2226;}
4122          (void)((*(LnkLI339))());          (void)((*(LnkLI342))());
4123          goto T2221;          goto T2226;
4124  T2221:;  T2226:;
4125          {register object V605;          {register object V605;
4126          V605= make_cons(VV[220],(V603));          V605= make_cons(VV[220],(V603));
4127          setq(VV[24],make_cons((V605),symbol_value(VV[24])));}          setq(VV[24],make_cons((V605),symbol_value(VV[24])));}
4128          V602= cdr((V602));          V602= cdr((V602));
4129          V603= car((V602));          V603= car((V602));
4130          goto T2216;}          goto T2221;}
4131          base[0]=base[0];          base[0]=base[0];
4132          return Cnil;          return Cnil;
4133  }  }
# Line 4126  object V608;object V609; Line 4140  object V608;object V609;
4140          goto TTL;          goto TTL;
4141  TTL:;  TTL:;
4142          V610= list(3,VV[221],(V608),(V609));          V610= list(3,VV[221],(V608),(V609));
4143          {object V611 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V610));          {object V611 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V610));
4144          VMR40(V611)}          VMR40(V611)}
4145          return Cnil;          return Cnil;
4146  }  }
# Line 4138  object V613; Line 4152  object V613;
4152  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
4153          goto TTL;          goto TTL;
4154  TTL:;  TTL:;
4155          {object V614 = (*(LnkLI339))();          {object V614 = (*(LnkLI342))();
4156          VMR41(V614)}          VMR41(V614)}
4157          return Cnil;          return Cnil;
4158  }  }
# Line 4189  TTL:; Line 4203  TTL:;
4203          register object V631;          register object V631;
4204          V630= (V629);          V630= (V629);
4205          V631= car((V630));          V631= car((V630));
4206          goto T2243;          goto T2248;
4207  T2243:;  T2248:;
4208          if(!(endp_prop((V630)))){          if(!(endp_prop((V630)))){
4209          goto T2244;}          goto T2249;}
         goto T2239;  
4210          goto T2244;          goto T2244;
4211  T2244:;          goto T2249;
4212    T2249:;
4213          if(type_of((V631))==t_string){          if(type_of((V631))==t_string){
4214          goto T2248;}          goto T2253;}
4215          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V631))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V631))));
4216          goto T2248;          goto T2253;
4217  T2248:;  T2253:;
4218          V630= cdr((V630));          V630= cdr((V630));
4219          V631= car((V630));          V631= car((V630));
4220          goto T2243;}          goto T2248;}
4221          goto T2239;          goto T2244;
4222  T2239:;  T2244:;
4223          {object V632;          {object V632;
4224          V632= list(2,VV[224],(V629));          V632= list(2,VV[224],(V629));
4225          setq(VV[24],make_cons((V632),symbol_value(VV[24])));          setq(VV[24],make_cons((V632),symbol_value(VV[24])));
# Line 4226  TTL:; Line 4240  TTL:;
4240          register object V637;          register object V637;
4241          V636= (V635);          V636= (V635);
4242          V637= car((V636));          V637= car((V636));
4243          goto T2261;          goto T2266;
4244  T2261:;  T2266:;
4245          if(!(endp_prop((V636)))){          if(!(endp_prop((V636)))){
4246          goto T2262;}          goto T2267;}
4247          {object V638 = Cnil;          {object V638 = Cnil;
4248          VMR45(V638)}          VMR45(V638)}
4249          goto T2262;          goto T2267;
4250  T2262:;  T2267:;
4251          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4252          (void)((*(LnkLI274))((V637)));          (void)((*(LnkLI274))((V637)));
4253          V636= cdr((V636));          V636= cdr((V636));
4254          V637= car((V636));          V637= car((V636));
4255          goto T2261;}          goto T2266;}
4256          base[0]=base[0];          base[0]=base[0];
4257          return Cnil;          return Cnil;
4258  }  }
# Line 4253  TTL:; Line 4267  TTL:;
4267          {register object V641;          {register object V641;
4268          V641= Cnil;          V641= Cnil;
4269          if(endp_prop((V640))){          if(endp_prop((V640))){
4270          goto T2276;}          goto T2281;}
4271          if(!(endp_prop(cdr((V640))))){          if(!(endp_prop(cdr((V640))))){
4272          goto T2275;}          goto T2280;}
4273          goto T2276;          goto T2281;
4274  T2276:;  T2281:;
4275          V642 = make_fixnum((long)length((V640)));          V642 = make_fixnum((long)length((V640)));
4276          (void)((*(LnkLI283))(VV[225],small_fixnum(2),V642));          (void)((*(LnkLI283))(VV[225],small_fixnum(2),V642));
         goto T2275;  
 T2275:;  
         if(type_of(car((V640)))==t_string){  
         goto T2280;}  
         (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V640)))));  
4277          goto T2280;          goto T2280;
4278  T2280:;  T2280:;
4279            if(type_of(car((V640)))==t_string){
4280            goto T2285;}
4281            (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V640)))));
4282            goto T2285;
4283    T2285:;
4284          {object V643= cadr((V640));          {object V643= cadr((V640));
4285          if(type_of(V643)==t_fixnum||          if(type_of(V643)==t_fixnum||
4286  type_of(V643)==t_bignum||  type_of(V643)==t_bignum||
# Line 4274  type_of(V643)==t_ratio|| Line 4288  type_of(V643)==t_ratio||
4288  type_of(V643)==t_shortfloat||  type_of(V643)==t_shortfloat||
4289  type_of(V643)==t_longfloat||  type_of(V643)==t_longfloat||
4290  type_of(V643)==t_complex){  type_of(V643)==t_complex){
4291          goto T2283;}}          goto T2288;}}
4292          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V640)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V640)))));
4293          goto T2283;          goto T2288;
4294  T2283:;  T2288:;
4295          {register object V644;          {register object V644;
4296          register object V645;          register object V645;
4297          V644= cddr((V640));          V644= cddr((V640));
4298          V645= car((V644));          V645= car((V644));
4299          goto T2290;          goto T2295;
4300  T2290:;  T2295:;
4301          if(!(endp_prop((V644)))){          if(!(endp_prop((V644)))){
4302          goto T2291;}          goto T2296;}
         goto T2286;  
4303          goto T2291;          goto T2291;
4304  T2291:;          goto T2296;
4305    T2296:;
4306          if(!(type_of((V645))==t_string)){          if(!(type_of((V645))==t_string)){
4307          goto T2297;}          goto T2302;}
4308          {register object V646;          {register object V646;
4309          V646= (V645);          V646= (V645);
4310          V641= make_cons((V646),(V641));          V641= make_cons((V646),(V641));
4311          goto T2295;}          goto T2300;}
4312          goto T2297;          goto T2302;
4313  T2297:;  T2302:;
4314          if(!(type_of((V645))==t_cons)){          if(!(type_of((V645))==t_cons)){
4315          goto T2302;}          goto T2307;}
4316          if(!(type_of(car((V645)))==t_symbol)){          if(!(type_of(car((V645)))==t_symbol)){
4317          goto T2305;}          goto T2310;}
4318          base[2]= car((V645));          base[2]= car((V645));
4319          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4320          Lspecial_form_p();          Lspecial_form_p();
4321          vs_top=sup;          vs_top=sup;
4322          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4323          goto T2307;}          goto T2312;}
4324          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V645)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V645)))));
4325          goto T2307;          goto T2312;
4326  T2307:;  T2312:;
4327          {register object V647;          {register object V647;
4328          V648= car((V645));          V648= car((V645));
4329          V649= (*(LnkLI340))(cdr((V645)));          V649= (*(LnkLI343))(cdr((V645)));
4330          V650= make_cons(/* INLINE-ARGS */V648,/* INLINE-ARGS */V649);          V650= make_cons(/* INLINE-ARGS */V648,/* INLINE-ARGS */V649);
4331          V647= make_cons(/* INLINE-ARGS */V650,Cnil);          V647= make_cons(/* INLINE-ARGS */V650,Cnil);
4332          V641= make_cons((V647),(V641));          V641= make_cons((V647),(V641));
4333          goto T2295;}          goto T2300;}
4334          goto T2305;          goto T2310;
4335  T2305:;  T2310:;
4336          if(!(type_of(car((V645)))==t_cons)){          if(!(type_of(car((V645)))==t_cons)){
4337          goto T2314;}          goto T2319;}
4338          if(!(type_of(caar((V645)))==t_symbol)){          if(!(type_of(caar((V645)))==t_symbol)){
4339          goto T2314;}          goto T2319;}
4340          if(!((caar((V645)))==(VV[91]))){          if(!((caar((V645)))==(VV[91]))){
4341          goto T2321;}          goto T2326;}
4342          if(!(endp_prop(cdar((V645))))){          if(!(endp_prop(cdar((V645))))){
4343          goto T2323;}          goto T2328;}
4344          goto T2314;          goto T2319;
4345          goto T2323;          goto T2328;
4346  T2323:;  T2328:;
4347          if(!(((endp_prop(cddar((V645)))?Ct:Cnil))==Cnil)){          if(!(((endp_prop(cddar((V645)))?Ct:Cnil))==Cnil)){
4348          goto T2325;}          goto T2330;}
4349          goto T2314;          goto T2319;
4350          goto T2325;          goto T2330;
4351  T2325:;  T2330:;
4352          if(!(endp_prop(cdr((V645))))){          if(!(endp_prop(cdr((V645))))){
4353          goto T2327;}          goto T2332;}
         goto T2314;  
         goto T2327;  
 T2327:;  
         if(((endp_prop(cddr((V645)))?Ct:Cnil))==Cnil){  
         goto T2314;}  
4354          goto T2319;          goto T2319;
4355          goto T2321;          goto T2332;
4356  T2321:;  T2332:;
4357            if(((endp_prop(cddr((V645)))?Ct:Cnil))==Cnil){
4358            goto T2319;}
4359            goto T2324;
4360            goto T2326;
4361    T2326:;
4362          base[2]= caar((V645));          base[2]= caar((V645));
4363          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4364          Lspecial_form_p();          Lspecial_form_p();
4365          vs_top=sup;          vs_top=sup;
4366          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4367          goto T2314;}          goto T2319;}
4368          goto T2319;          goto T2324;
4369  T2319:;  T2324:;
4370          {register object V651;          {register object V651;
4371          V652= caar((V645));          V652= caar((V645));
4372          if(!((caar((V645)))==(VV[91]))){          if(!((caar((V645)))==(VV[91]))){
4373          goto T2333;}          goto T2338;}
4374          V654= (*(LnkLI325))(cadar((V645)));          V654= (*(LnkLI328))(cadar((V645)));
4375          V653= make_cons(/* INLINE-ARGS */V654,Cnil);          V653= make_cons(/* INLINE-ARGS */V654,Cnil);
4376          goto T2331;          goto T2336;
4377          goto T2333;          goto T2338;
4378  T2333:;  T2338:;
4379          V653= (*(LnkLI340))(cdar((V645)));          V653= (*(LnkLI343))(cdar((V645)));
4380          goto T2331;          goto T2336;
4381  T2331:;  T2336:;
4382          V655= make_cons(/* INLINE-ARGS */V652,V653);          V655= make_cons(/* INLINE-ARGS */V652,V653);
4383          V656= (*(LnkLI340))(cdr((V645)));          V656= (*(LnkLI343))(cdr((V645)));
4384          V651= make_cons(/* INLINE-ARGS */V655,/* INLINE-ARGS */V656);          V651= make_cons(/* INLINE-ARGS */V655,/* INLINE-ARGS */V656);
4385          V641= make_cons((V651),(V641));          V641= make_cons((V651),(V641));
4386          goto T2295;}          goto T2300;}
4387          goto T2314;          goto T2319;
4388  T2314:;  T2319:;
4389          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V645))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V645))));
4390          goto T2295;          goto T2300;
4391          goto T2302;          goto T2307;
4392  T2302:;  T2307:;
4393          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V645))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V645))));
4394          goto T2295;          goto T2300;
4395  T2295:;  T2300:;
4396          V644= cdr((V644));          V644= cdr((V644));
4397          V645= car((V644));          V645= car((V644));
4398          goto T2290;}          goto T2295;}
4399          goto T2286;          goto T2291;
4400  T2286:;  T2291:;
4401          {object V657;          {object V657;
4402          V658= car((V640));          V658= car((V640));
4403          V659= cadr((V640));          V659= cadr((V640));
# Line 4404  object V664;object V665;object V666; Line 4418  object V664;object V665;object V666;
4418  TTL:;  TTL:;
4419          {object V667;          {object V667;
4420          V667= Cnil;          V667= Cnil;
4421          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[231],VV[225])));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[231],VV[225])));
4422          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4423          (void)((*(LnkLI274))((V664)));          (void)((*(LnkLI274))((V664)));
4424          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
# Line 4413  TTL:; Line 4427  TTL:;
4427          (void)((*(LnkLI274))((V665)));          (void)((*(LnkLI274))((V665)));
4428          princ_char(59,VV[25]);          princ_char(59,VV[25]);
4429          if(!(number_compare((V665),small_fixnum(0))>0)){          if(!(number_compare((V665),small_fixnum(0))>0)){
4430          goto T2356;}          goto T2361;}
4431          princ_str("\n   vs_top=old_top;",VV[25]);          princ_str("\n   vs_top=old_top;",VV[25]);
4432          goto T2356;          goto T2361;
4433  T2356:;  T2361:;
4434          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
4435          {object V668;          {object V668;
4436          register object V669;          register object V669;
4437          V668= (V666);          V668= (V666);
4438          V669= car((V668));          V669= car((V668));
4439          goto T2366;          goto T2371;
4440  T2366:;  T2371:;
4441          if(!(endp_prop((V668)))){          if(!(endp_prop((V668)))){
4442          goto T2367;}          goto T2372;}
         goto T2362;  
4443          goto T2367;          goto T2367;
4444  T2367:;          goto T2372;
4445    T2372:;
4446          if(!(type_of((V669))==t_string)){          if(!(type_of((V669))==t_string)){
4447          goto T2373;}          goto T2378;}
4448          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4449          (void)((*(LnkLI274))((V669)));          (void)((*(LnkLI274))((V669)));
4450          goto T2371;          goto T2376;
4451          goto T2373;          goto T2378;
4452  T2373:;  T2378:;
4453          if(!((caar((V669)))==(VV[91]))){          if(!((caar((V669)))==(VV[91]))){
4454          goto T2378;}          goto T2383;}
4455          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4456          (void)((*(LnkLI274))(cadadr((V669))));          (void)((*(LnkLI274))(cadadr((V669))));
4457          {object V670= caadr((V669));          {object V670= caadr((V669));
4458          if((V670!= VV[74]))goto T2383;          if((V670!= VV[74]))goto T2388;
4459          princ_str("=VV[",VV[25]);          princ_str("=VV[",VV[25]);
4460          (void)((*(LnkLI274))(cadar((V669))));          (void)((*(LnkLI274))(cadar((V669))));
4461          princ_str("];",VV[25]);          princ_str("];",VV[25]);
4462          goto T2371;          goto T2376;
4463          goto T2383;          goto T2388;
4464  T2383:;  T2388:;
4465          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4466          base[1]= symbol_name(caadr((V669)));          base[1]= symbol_name(caadr((V669)));
4467          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 4458  T2383:; Line 4472  T2383:;
4472          princ_str("(VV[",VV[25]);          princ_str("(VV[",VV[25]);
4473          (void)((*(LnkLI274))(cadar((V669))));          (void)((*(LnkLI274))(cadar((V669))));
4474          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4475          goto T2371;}          goto T2376;}
4476          goto T2378;          goto T2383;
4477  T2378:;  T2383:;
4478          princ_str("\n{vs_base=vs_top=old_top;",VV[25]);          princ_str("\n{vs_base=vs_top=old_top;",VV[25]);
4479          {register object V672;          {register object V672;
4480          register object V673;          register object V673;
4481          V672= cdar((V669));          V672= cdar((V669));
4482          V673= car((V672));          V673= car((V672));
4483          goto T2400;          goto T2405;
4484  T2400:;  T2405:;
4485          if(!(endp_prop((V672)))){          if(!(endp_prop((V672)))){
4486          goto T2401;}          goto T2406;}
         goto T2396;  
4487          goto T2401;          goto T2401;
4488  T2401:;          goto T2406;
4489    T2406:;
4490          princ_str("\nvs_push(",VV[25]);          princ_str("\nvs_push(",VV[25]);
4491          {object V674= car((V673));          {object V674= car((V673));
4492          if((V674!= VV[74]))goto T2408;          if((V674!= VV[74]))goto T2413;
4493          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V673))));
4494          goto T2407;          goto T2412;
4495          goto T2408;          goto T2413;
4496  T2408:;  T2413:;
4497          if((V674!= VV[341]))goto T2410;          if((V674!= VV[344]))goto T2415;
4498          princ_str("code_char((long)",VV[25]);          princ_str("code_char((long)",VV[25]);
4499          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V673))));
4500          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4501          goto T2407;          goto T2412;
         goto T2410;  
 T2410:;  
         if((V674!= VV[342]))goto T2414;  
         if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){  
         goto T2415;}  
         princ_str("CMP",VV[25]);  
4502          goto T2415;          goto T2415;
4503  T2415:;  T2415:;
4504            if((V674!= VV[345]))goto T2419;
4505            if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
4506            goto T2420;}
4507            princ_str("CMP",VV[25]);
4508            goto T2420;
4509    T2420:;
4510          princ_str("make_fixnum((long)",VV[25]);          princ_str("make_fixnum((long)",VV[25]);
4511          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V673))));
4512          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4513          goto T2407;          goto T2412;
4514          goto T2414;          goto T2419;
4515  T2414:;  T2419:;
4516          if((V674!= VV[343]))goto T2422;          if((V674!= VV[346]))goto T2427;
4517          princ_str("make_shortfloat((double)",VV[25]);          princ_str("make_shortfloat((double)",VV[25]);
4518          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V673))));
4519          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4520          goto T2407;          goto T2412;
4521          goto T2422;          goto T2427;
4522  T2422:;  T2427:;
4523          if((V674!= VV[344]))goto T2426;          if((V674!= VV[347]))goto T2431;
4524          princ_str("make_longfloat((double)",VV[25]);          princ_str("make_longfloat((double)",VV[25]);
4525          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V673))));
4526          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4527          goto T2407;          goto T2412;
4528          goto T2426;          goto T2431;
4529  T2426:;}  T2431:;}
4530          goto T2407;          goto T2412;
4531  T2407:;  T2412:;
4532          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4533          V672= cdr((V672));          V672= cdr((V672));
4534          V673= car((V672));          V673= car((V672));
4535          goto T2400;}          goto T2405;}
4536          goto T2396;          goto T2401;
4537  T2396:;  T2401:;
4538          {register object x= caar((V669)),V675= symbol_value(VV[79]);          {register object x= caar((V669)),V675= symbol_value(VV[79]);
4539          while(!endp(V675))          while(!endp(V675))
4540          if(type_of(V675->c.c_car)==t_cons &&eql(x,V675->c.c_car->c.c_car)){          if(type_of(V675->c.c_car)==t_cons &&eql(x,V675->c.c_car->c.c_car)){
4541          V667= (V675->c.c_car);          V667= (V675->c.c_car);
4542          goto T2441;          goto T2446;
4543          }else V675=V675->c.c_cdr;          }else V675=V675->c.c_cdr;
4544          V667= Cnil;}          V667= Cnil;}
4545          goto T2441;          goto T2446;
4546  T2441:;  T2446:;
4547          if(((V667))==Cnil){          if(((V667))==Cnil){
4548          goto T2439;}          goto T2444;}
4549          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
4550          goto T2443;}          goto T2448;}
4551          princ_str("\nihs_push(VV[",VV[25]);          princ_str("\nihs_push(VV[",VV[25]);
4552          V676= (*(LnkLI327))(caar((V669)));          V676= (*(LnkLI330))(caar((V669)));
4553          (void)((*(LnkLI274))(/* INLINE-ARGS */V676));          (void)((*(LnkLI274))(/* INLINE-ARGS */V676));
4554          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4555          princ_str("\nL",VV[25]);          princ_str("\nL",VV[25]);
4556          (void)((*(LnkLI274))(cdr((V667))));          (void)((*(LnkLI274))(cdr((V667))));
4557          princ_str("();",VV[25]);          princ_str("();",VV[25]);
4558          princ_str("\nihs_pop();",VV[25]);          princ_str("\nihs_pop();",VV[25]);
4559          goto T2437;          goto T2442;
4560          goto T2443;          goto T2448;
4561  T2443:;  T2448:;
4562          princ_str("\nL",VV[25]);          princ_str("\nL",VV[25]);
4563          (void)((*(LnkLI274))(cdr((V667))));          (void)((*(LnkLI274))(cdr((V667))));
4564          princ_str("();",VV[25]);          princ_str("();",VV[25]);
4565          goto T2437;          goto T2442;
4566          goto T2439;          goto T2444;
4567  T2439:;  T2444:;
4568          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
4569          goto T2458;}          goto T2463;}
4570          princ_str("\nsuper_funcall(VV[",VV[25]);          princ_str("\nsuper_funcall(VV[",VV[25]);
4571          V677= (*(LnkLI327))(caar((V669)));          V677= (*(LnkLI330))(caar((V669)));
4572          (void)((*(LnkLI274))(/* INLINE-ARGS */V677));          (void)((*(LnkLI274))(/* INLINE-ARGS */V677));
4573          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4574          goto T2437;          goto T2442;
4575          goto T2458;          goto T2463;
4576  T2458:;  T2463:;
4577          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
4578          goto T2464;}          goto T2469;}
4579          princ_str("\nsuper_funcall_no_event(VV[",VV[25]);          princ_str("\nsuper_funcall_no_event(VV[",VV[25]);
4580          V678= (*(LnkLI327))(caar((V669)));          V678= (*(LnkLI330))(caar((V669)));
4581          (void)((*(LnkLI274))(/* INLINE-ARGS */V678));          (void)((*(LnkLI274))(/* INLINE-ARGS */V678));
4582          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4583          goto T2437;          goto T2442;
4584          goto T2464;          goto T2469;
4585  T2464:;  T2469:;
4586          princ_str("\nCMPfuncall(VV[",VV[25]);          princ_str("\nCMPfuncall(VV[",VV[25]);
4587          V679= (*(LnkLI327))(caar((V669)));          V679= (*(LnkLI330))(caar((V669)));
4588          (void)((*(LnkLI274))(/* INLINE-ARGS */V679));          (void)((*(LnkLI274))(/* INLINE-ARGS */V679));
4589          princ_str("]->s.s_gfdef);",VV[25]);          princ_str("]->s.s_gfdef);",VV[25]);
4590          goto T2437;          goto T2442;
4591  T2437:;  T2442:;
4592          if(endp_prop(cdr((V669)))){          if(endp_prop(cdr((V669)))){
4593          goto T2472;}          goto T2477;}
4594          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4595          (void)((*(LnkLI274))(cadadr((V669))));          (void)((*(LnkLI274))(cadadr((V669))));
4596          {object V680= caadr((V669));          {object V680= caadr((V669));
4597          if((V680!= VV[74]))goto T2479;          if((V680!= VV[74]))goto T2484;
4598          princ_str("=vs_base[0];",VV[25]);          princ_str("=vs_base[0];",VV[25]);
4599          goto T2478;          goto T2483;
4600          goto T2479;          goto T2484;
4601  T2479:;  T2484:;
4602          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4603          base[1]= symbol_name(caadr((V669)));          base[1]= symbol_name(caadr((V669)));
4604          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 4593  T2479:; Line 4607  T2479:;
4607          V681= vs_base[0];          V681= vs_base[0];
4608          (void)((*(LnkLI274))(V681));          (void)((*(LnkLI274))(V681));
4609          princ_str("(vs_base[0]);",VV[25]);}          princ_str("(vs_base[0]);",VV[25]);}
4610          goto T2478;          goto T2483;
4611  T2478:;  T2483:;
4612          {register object V682;          {register object V682;
4613          register object V683;          register object V683;
4614          V682= cddr((V669));          V682= cddr((V669));
4615          V683= car((V682));          V683= car((V682));
4616          goto T2489;          goto T2494;
4617  T2489:;  T2494:;
4618          if(!(endp_prop((V682)))){          if(!(endp_prop((V682)))){
4619          goto T2490;}          goto T2495;}
4620          goto T2472;          goto T2477;
4621          goto T2490;          goto T2495;
4622  T2490:;  T2495:;
4623          princ_str("\nvs_base++;",VV[25]);          princ_str("\nvs_base++;",VV[25]);
4624          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4625          (void)((*(LnkLI274))(cadr((V683))));          (void)((*(LnkLI274))(cadr((V683))));
4626          {object V684= car((V683));          {object V684= car((V683));
4627          if((V684!= VV[74]))goto T2500;          if((V684!= VV[74]))goto T2505;
4628          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]);          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]);
4629          goto T2499;          goto T2504;
4630          goto T2500;          goto T2505;
4631  T2500:;  T2505:;
4632          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4633          base[3]= symbol_name(car((V683)));          base[3]= symbol_name(car((V683)));
4634          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 4623  T2500:; Line 4637  T2500:;
4637          V685= vs_base[0];          V685= vs_base[0];
4638          (void)((*(LnkLI274))(V685));          (void)((*(LnkLI274))(V685));
4639          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);}          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);}
4640          goto T2499;          goto T2504;
4641  T2499:;  T2504:;
4642          V682= cdr((V682));          V682= cdr((V682));
4643          V683= car((V682));          V683= car((V682));
4644          goto T2489;}          goto T2494;}
4645          goto T2472;          goto T2477;
4646  T2472:;  T2477:;
4647          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4648          goto T2371;          goto T2376;
4649  T2371:;  T2376:;
4650          V668= cdr((V668));          V668= cdr((V668));
4651          V669= car((V668));          V669= car((V668));
4652          goto T2366;}          goto T2371;}
4653          goto T2362;          goto T2367;
4654  T2362:;  T2367:;
4655          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4656          princ_str("\nvs_top=vs;",VV[25]);          princ_str("\nvs_top=vs;",VV[25]);
4657          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
# Line 4664  TTL:; Line 4678  TTL:;
4678          V691= symbol_value(VV[61]);          V691= symbol_value(VV[61]);
4679          V692= Cnil;          V692= Cnil;
4680          if(endp_prop((V688))){          if(endp_prop((V688))){
4681          goto T2529;}          goto T2534;}
4682          if(endp_prop(cdr((V688)))){          if(endp_prop(cdr((V688)))){
4683          goto T2529;}          goto T2534;}
4684          if(!(endp_prop(cddr((V688))))){          if(!(endp_prop(cddr((V688))))){
4685          goto T2528;}          goto T2533;}
4686          goto T2529;          goto T2534;
4687  T2529:;  T2534:;
4688          V693 = make_fixnum((long)length((V688)));          V693 = make_fixnum((long)length((V688)));
4689          (void)((*(LnkLI283))(VV[232],small_fixnum(3),V693));          (void)((*(LnkLI283))(VV[232],small_fixnum(3),V693));
4690          goto T2528;          goto T2533;
4691  T2528:;  T2533:;
4692          if(type_of(car((V688)))==t_symbol){          if(type_of(car((V688)))==t_symbol){
4693          goto T2535;}          goto T2540;}
4694          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V688)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V688)))));
4695          goto T2535;          goto T2540;
4696  T2535:;  T2540:;
4697          {register object V694;          {register object V694;
4698          register object V695;          register object V695;
4699          V694= cadr((V688));          V694= cadr((V688));
4700          V695= car((V694));          V695= car((V694));
4701          goto T2542;          goto T2547;
4702  T2542:;  T2547:;
4703          if(!(endp_prop((V694)))){          if(!(endp_prop((V694)))){
4704          goto T2543;}          goto T2548;}
         goto T2538;  
4705          goto T2543;          goto T2543;
4706  T2543:;          goto T2548;
4707    T2548:;
4708          {register object x= (V695),V696= VV[234];          {register object x= (V695),V696= VV[234];
4709          while(!endp(V696))          while(!endp(V696))
4710          if(eql(x,V696->c.c_car)){          if(eql(x,V696->c.c_car)){
4711          goto T2547;          goto T2552;
4712          }else V696=V696->c.c_cdr;}          }else V696=V696->c.c_cdr;}
4713          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V695))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V695))));
4714          goto T2547;          goto T2552;
4715  T2547:;  T2552:;
4716          V694= cdr((V694));          V694= cdr((V694));
4717          V695= car((V694));          V695= car((V694));
4718          goto T2542;}          goto T2547;}
4719          goto T2538;          goto T2543;
4720  T2538:;  T2543:;
4721          V692= caddr((V688));          V692= caddr((V688));
4722          if(!(type_of((V692))==t_symbol)){          if(!(type_of((V692))==t_symbol)){
4723          goto T2559;}          goto T2564;}
4724          V689= VV[74];          V689= VV[74];
4725          base[1]= symbol_name((V692));          base[1]= symbol_name((V692));
4726          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4727          Lstring_downcase();          Lstring_downcase();
4728          vs_top=sup;          vs_top=sup;
4729          V690= vs_base[0];          V690= vs_base[0];
4730          goto T2557;          goto T2562;
4731          goto T2559;          goto T2564;
4732  T2559:;  T2564:;
4733          if(!(type_of((V692))==t_string)){          if(!(type_of((V692))==t_string)){
4734          goto T2566;}          goto T2571;}
4735          V689= VV[74];          V689= VV[74];
4736          V690= (V692);          V690= (V692);
4737          goto T2557;          goto T2562;
4738          goto T2566;          goto T2571;
4739  T2566:;  T2571:;
4740          if(!(type_of((V692))==t_cons)){          if(!(type_of((V692))==t_cons)){
4741          goto T2572;}          goto T2577;}
4742          {register object x= car((V692)),V697= VV[236];          {register object x= car((V692)),V697= VV[236];
4743          while(!endp(V697))          while(!endp(V697))
4744          if(eql(x,V697->c.c_car)){          if(eql(x,V697->c.c_car)){
4745          goto T2576;          goto T2581;
4746          }else V697=V697->c.c_cdr;          }else V697=V697->c.c_cdr;
4747          goto T2572;}          goto T2577;}
4748          goto T2576;          goto T2581;
4749  T2576:;  T2581:;
4750          if(!(type_of(cdr((V692)))==t_cons)){          if(!(type_of(cdr((V692)))==t_cons)){
4751          goto T2572;}          goto T2577;}
4752          if(type_of(cadr((V692)))==t_symbol){          if(type_of(cadr((V692)))==t_symbol){
4753          goto T2579;}          goto T2584;}
4754          if(!(type_of(cadr((V692)))==t_string)){          if(!(type_of(cadr((V692)))==t_string)){
4755          goto T2572;}          goto T2577;}
4756          goto T2579;          goto T2584;
4757  T2579:;  T2584:;
4758          if(!(endp_prop(cddr((V692))))){          if(!(endp_prop(cddr((V692))))){
4759          goto T2572;}          goto T2577;}
4760          if(!(type_of(cadr((V692)))==t_symbol)){          if(!(type_of(cadr((V692)))==t_symbol)){
4761          goto T2587;}          goto T2592;}
4762          base[1]= symbol_name(cadr((V692)));          base[1]= symbol_name(cadr((V692)));
4763          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4764          Lstring_downcase();          Lstring_downcase();
4765          vs_top=sup;          vs_top=sup;
4766          V690= vs_base[0];          V690= vs_base[0];
4767          goto T2585;          goto T2590;
4768          goto T2587;          goto T2592;
4769  T2587:;  T2592:;
4770          V690= cadr((V692));          V690= cadr((V692));
4771          goto T2585;          goto T2590;
4772  T2585:;  T2590:;
4773          V689= car((V692));          V689= car((V692));
4774          goto T2557;          goto T2562;
4775          goto T2572;          goto T2577;
4776  T2572:;  T2577:;
4777          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V692))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V692))));
4778          goto T2557;          goto T2562;
4779  T2557:;  T2562:;
4780          {object V698;          {object V698;
4781          V698= list(6,VV[232],car((V688)),(V691),cadr((V688)),(V689),(V690));          V698= list(6,VV[232],car((V688)),(V691),cadr((V688)),(V689),(V690));
4782          setq(VV[24],make_cons((V698),symbol_value(VV[24])));}          setq(VV[24],make_cons((V698),symbol_value(VV[24])));}
# Line 4786  TTL:; Line 4800  TTL:;
4800          (void)((*(LnkLI277))((V707)));          (void)((*(LnkLI277))((V707)));
4801          princ_str("();",VV[31]);          princ_str("();",VV[31]);
4802          V711= list(2,VV[91],(V706));          V711= list(2,VV[91],(V706));
4803          V712= list(3,VV[111],/* INLINE-ARGS */V711,(*(LnkLI301))(VV[238],(V707)));          V712= list(3,VV[111],/* INLINE-ARGS */V711,(*(LnkLI304))(VV[238],(V707)));
4804          {object V713 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V712));          {object V713 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V712));
4805          VMR49(V713)}          VMR49(V713)}
4806          return Cnil;          return Cnil;
4807  }  }
# Line 4799  object V719;object V720;object V721;regi Line 4813  object V719;object V720;object V721;regi
4813  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
4814          goto TTL;          goto TTL;
4815  TTL:;  TTL:;
4816          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[239],(V719))));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[239],(V719))));
4817          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
4818          (void)((*(LnkLI274))((V720)));          (void)((*(LnkLI274))((V720)));
4819          princ_str("()",VV[25]);          princ_str("()",VV[25]);
4820          princ_str("\n{  object *old_base=vs_base;",VV[25]);          princ_str("\n{  object *old_base=vs_base;",VV[25]);
4821          {object V724= (V722);          {object V724= (V722);
4822          if((V724!= VV[240]))goto T2608;          if((V724!= VV[240]))goto T2613;
4823          goto T2607;          goto T2612;
4824          goto T2608;          goto T2613;
4825  T2608:;  T2613:;
4826          if((V724!= VV[158]))goto T2609;          if((V724!= VV[158]))goto T2614;
4827          princ_str("\n   char *x;",VV[25]);          princ_str("\n   char *x;",VV[25]);
4828          goto T2607;          goto T2612;
4829          goto T2609;          goto T2614;
4830  T2609:;  T2614:;
4831          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
4832          base[0]= symbol_name((V722));          base[0]= symbol_name((V722));
4833          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 4822  T2609:; Line 4836  T2609:;
4836          V725= vs_base[0];          V725= vs_base[0];
4837          (void)((*(LnkLI274))(V725));          (void)((*(LnkLI274))(V725));
4838          princ_str(" x;",VV[25]);}          princ_str(" x;",VV[25]);}
4839          goto T2607;          goto T2612;
4840  T2607:;  T2612:;
4841          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
4842          goto T2616;}          goto T2621;}
4843          princ_str("\n   check_arg(",VV[25]);          princ_str("\n   check_arg(",VV[25]);
4844          V726 = make_fixnum((long)length((V721)));          V726 = make_fixnum((long)length((V721)));
4845          (void)((*(LnkLI274))(V726));          (void)((*(LnkLI274))(V726));
4846          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4847          goto T2616;          goto T2621;
4848  T2616:;  T2621:;
4849          if(((V722))==(VV[240])){          if(((V722))==(VV[240])){
4850          goto T2622;}          goto T2627;}
4851          princ_str("\n   x=",VV[25]);          princ_str("\n   x=",VV[25]);
4852          goto T2622;          goto T2627;
4853  T2622:;  T2627:;
4854          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
4855          (void)((*(LnkLI274))((V723)));          (void)((*(LnkLI274))((V723)));
4856          princ_char(40,VV[25]);          princ_char(40,VV[25]);
4857          if(endp_prop((V721))){          if(endp_prop((V721))){
4858          goto T2630;}          goto T2635;}
4859          {register object V727;          {register object V727;
4860          register long V728;          register long V728;
4861          V728= 0;          V728= 0;
4862          V727= (V721);          V727= (V721);
4863          goto T2635;          goto T2640;
4864  T2635:;  T2640:;
4865          {object V729= car((V727));          {object V729= car((V727));
4866          if((V729!= VV[74]))goto T2639;          if((V729!= VV[74]))goto T2644;
4867          princ_str("\n   vs_base[",VV[25]);          princ_str("\n   vs_base[",VV[25]);
4868          V730 = make_fixnum(V728);          V730 = make_fixnum(V728);
4869          (void)((*(LnkLI274))(V730));          (void)((*(LnkLI274))(V730));
4870          princ_char(93,VV[25]);          princ_char(93,VV[25]);
4871          goto T2638;          goto T2643;
4872          goto T2639;          goto T2644;
4873  T2639:;  T2644:;
4874          princ_str("\n   object_to_",VV[25]);          princ_str("\n   object_to_",VV[25]);
4875          base[0]= symbol_name(car((V727)));          base[0]= symbol_name(car((V727)));
4876          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 4868  T2639:; Line 4882  T2639:;
4882          V732 = make_fixnum(V728);          V732 = make_fixnum(V728);
4883          (void)((*(LnkLI274))(V732));          (void)((*(LnkLI274))(V732));
4884          princ_str("])",VV[25]);}          princ_str("])",VV[25]);}
4885          goto T2638;          goto T2643;
4886  T2638:;  T2643:;
4887          if(!(endp_prop(cdr((V727))))){          if(!(endp_prop(cdr((V727))))){
4888          goto T2650;}          goto T2655;}
4889          goto T2630;          goto T2635;
4890          goto T2650;          goto T2655;
4891  T2650:;  T2655:;
4892          princ_char(44,VV[25]);          princ_char(44,VV[25]);
4893          V727= cdr((V727));          V727= cdr((V727));
4894          V728= (long)(V728)+1;          V728= (long)(V728)+1;
4895          goto T2635;}          goto T2640;}
4896          goto T2630;          goto T2635;
4897  T2630:;  T2635:;
4898          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4899          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[25]);
4900          princ_str("\n   vs_base[0]=",VV[25]);          princ_str("\n   vs_base[0]=",VV[25]);
4901          {object V733= (V722);          {object V733= (V722);
4902          if((V733!= VV[240]))goto T2666;          if((V733!= VV[240]))goto T2671;
4903          princ_str("Cnil",VV[25]);          princ_str("Cnil",VV[25]);
4904          goto T2665;          goto T2670;
4905          goto T2666;          goto T2671;
4906  T2666:;  T2671:;
4907          if((V733!= VV[74]))goto T2668;          if((V733!= VV[74]))goto T2673;
4908          princ_char(120,VV[25]);          princ_char(120,VV[25]);
4909          goto T2665;          goto T2670;
4910          goto T2668;          goto T2673;
4911  T2668:;  T2673:;
4912          if((V733!= VV[341]))goto T2670;          if((V733!= VV[344]))goto T2675;
4913          princ_str("code_char(x)",VV[25]);          princ_str("code_char(x)",VV[25]);
         goto T2665;  
4914          goto T2670;          goto T2670;
4915  T2670:;          goto T2675;
4916          if((V733!= VV[342]))goto T2672;  T2675:;
4917            if((V733!= VV[345]))goto T2677;
4918          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
4919          goto T2673;}          goto T2678;}
4920          princ_str("CMP",VV[25]);          princ_str("CMP",VV[25]);
         goto T2673;  
 T2673:;  
         princ_str("make_fixnum(x)",VV[25]);  
         goto T2665;  
         goto T2672;  
 T2672:;  
         if((V733!= VV[158]))goto T2678;  
         princ_str("make_simple_string(x)",VV[25]);  
         goto T2665;  
4921          goto T2678;          goto T2678;
4922  T2678:;  T2678:;
4923          if((V733!= VV[343]))goto T2680;          princ_str("make_fixnum(x)",VV[25]);
4924            goto T2670;
4925            goto T2677;
4926    T2677:;
4927            if((V733!= VV[158]))goto T2683;
4928            princ_str("make_simple_string(x)",VV[25]);
4929            goto T2670;
4930            goto T2683;
4931    T2683:;
4932            if((V733!= VV[346]))goto T2685;
4933          princ_str("make_shortfloat(x)",VV[25]);          princ_str("make_shortfloat(x)",VV[25]);
4934          goto T2665;          goto T2670;
4935          goto T2680;          goto T2685;
4936  T2680:;  T2685:;
4937          if((V733!= VV[344]))goto T2682;          if((V733!= VV[347]))goto T2687;
4938          princ_str("make_longfloat(x)",VV[25]);          princ_str("make_longfloat(x)",VV[25]);
4939          goto T2665;          goto T2670;
4940          goto T2682;          goto T2687;
4941  T2682:;}  T2687:;}
4942          goto T2665;          goto T2670;
4943  T2665:;  T2670:;
4944          princ_char(59,VV[25]);          princ_char(59,VV[25]);
4945          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4946          {object V734 = Cnil;          {object V734 = Cnil;
# Line 4960  TTL:; Line 4974  TTL:;
4974          register object V742;          register object V742;
4975          V741= (V739);          V741= (V739);
4976          V742= car((V741));          V742= car((V741));
4977          goto T2691;          goto T2696;
4978  T2691:;  T2696:;
4979          if(!(endp_prop((V741)))){          if(!(endp_prop((V741)))){
4980          goto T2692;}          goto T2697;}
4981          {object V743 = reverse((V740));          {object V743 = reverse((V740));
4982          VMR52(V743)}          VMR52(V743)}
4983          goto T2692;          goto T2697;
4984  T2692:;  T2697:;
4985          if(!(type_of((V742))==t_symbol)){          if(!(type_of((V742))==t_symbol)){
4986          goto T2698;}          goto T2703;}
4987          {object V744;          {object V744;
4988          base[2]= symbol_name((V742));          base[2]= symbol_name((V742));
4989          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 4978  T2692:; Line 4992  T2692:;
4992          V745= vs_base[0];          V745= vs_base[0];
4993          V744= list(2,VV[74],V745);          V744= list(2,VV[74],V745);
4994          V740= make_cons((V744),(V740));          V740= make_cons((V744),(V740));
4995          goto T2696;}          goto T2701;}
4996          goto T2698;          goto T2703;
4997  T2698:;  T2703:;
4998          if(!(type_of((V742))==t_string)){          if(!(type_of((V742))==t_string)){
4999          goto T2705;}          goto T2710;}
5000          {object V746;          {object V746;
5001          V746= list(2,VV[74],(V742));          V746= list(2,VV[74],(V742));
5002          V740= make_cons((V746),(V740));          V740= make_cons((V746),(V740));
5003          goto T2696;}          goto T2701;}
5004          goto T2705;          goto T2710;
5005  T2705:;  T2710:;
5006          if(!(type_of((V742))==t_cons)){          if(!(type_of((V742))==t_cons)){
5007          goto T2710;}          goto T2715;}
5008          {register object x= car((V742)),V747= VV[241];          {register object x= car((V742)),V747= VV[241];
5009          while(!endp(V747))          while(!endp(V747))
5010          if(eql(x,V747->c.c_car)){          if(eql(x,V747->c.c_car)){
5011          goto T2713;          goto T2718;
5012          }else V747=V747->c.c_cdr;          }else V747=V747->c.c_cdr;
5013          goto T2710;}          goto T2715;}
5014          goto T2713;          goto T2718;
5015  T2713:;  T2718:;
5016          {register object V748;          {register object V748;
5017          register object V749;          register object V749;
5018          V748= cdr((V742));          V748= cdr((V742));
5019          V749= car((V748));          V749= car((V748));
5020          goto T2717;          goto T2722;
5021  T2717:;  T2722:;
5022          if(!(endp_prop((V748)))){          if(!(endp_prop((V748)))){
5023          goto T2718;}          goto T2723;}
5024          goto T2696;          goto T2701;
5025          goto T2718;          goto T2723;
5026  T2718:;  T2723:;
5027          {register object V750;          {register object V750;
5028          V751= car((V742));          V751= car((V742));
5029          if(!(type_of((V749))==t_symbol)){          if(!(type_of((V749))==t_symbol)){
5030          goto T2726;}          goto T2731;}
5031          base[4]= symbol_name((V749));          base[4]= symbol_name((V749));
5032          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5033          Lstring_downcase();          Lstring_downcase();
5034          vs_top=sup;          vs_top=sup;
5035          V752= vs_base[0];          V752= vs_base[0];
5036          goto T2724;          goto T2729;
5037          goto T2726;          goto T2731;
5038  T2726:;  T2731:;
5039          if(!(type_of((V749))==t_string)){          if(!(type_of((V749))==t_string)){
5040          goto T2730;}          goto T2735;}
5041          V752= (V749);          V752= (V749);
5042          goto T2724;          goto T2729;
5043          goto T2730;          goto T2735;
5044  T2730:;  T2735:;
5045          V752= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V749)));          V752= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V749)));
5046          goto T2724;          goto T2729;
5047  T2724:;  T2729:;
5048          V750= list(2,/* INLINE-ARGS */V751,V752);          V750= list(2,/* INLINE-ARGS */V751,V752);
5049          V740= make_cons((V750),(V740));}          V740= make_cons((V750),(V740));}
5050          V748= cdr((V748));          V748= cdr((V748));
5051          V749= car((V748));          V749= car((V748));
5052          goto T2717;}          goto T2722;}
5053          goto T2710;          goto T2715;
5054  T2710:;  T2715:;
5055          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V742))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V742))));
5056          goto T2696;          goto T2701;
5057  T2696:;  T2701:;
5058          V741= cdr((V741));          V741= cdr((V741));
5059          V742= car((V741));          V742= car((V741));
5060          goto T2691;}}          goto T2696;}}
5061          base[0]=base[0];          base[0]=base[0];
5062          return Cnil;          return Cnil;
5063  }  }
# Line 5060  TTL:; Line 5074  TTL:;
5074          register object V764;          register object V764;
5075          object V765;          object V765;
5076          if(((V758))==Cnil){          if(((V758))==Cnil){
5077          goto T2745;}          goto T2750;}
5078          V763= small_fixnum(0);          V763= small_fixnum(0);
5079          goto T2743;          goto T2748;
5080          goto T2745;          goto T2750;
5081  T2745:;  T2750:;
5082          V763= structure_ref((V761),VV[32],4);          V763= structure_ref((V761),VV[32],4);
5083          goto T2743;          goto T2748;
5084  T2743:;  T2748:;
5085          V764= Cnil;          V764= Cnil;
5086          bds_bind(VV[20],(*(LnkLI306))(cadr((V762))));          bds_bind(VV[20],(*(LnkLI309))(cadr((V762))));
5087          bds_bind(VV[117],Cnil);          bds_bind(VV[117],Cnil);
5088          V765= caaddr((V762));          V765= caaddr((V762));
5089          if((structure_ref((V761),VV[32],0))==Cnil){          if((structure_ref((V761),VV[32],0))==Cnil){
5090          goto T2753;}          goto T2758;}
5091          V766= structure_ref((V761),VV[32],0);          V766= structure_ref((V761),VV[32],0);
5092          goto T2751;          goto T2756;
5093          goto T2753;          goto T2758;
5094  T2753:;  T2758:;
5095          V766= Cnil;          V766= Cnil;
5096          goto T2751;          goto T2756;
5097  T2751:;  T2756:;
5098          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[244],V766)));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[244],V766)));
5099          princ_str("\nstatic void ",VV[25]);          princ_str("\nstatic void ",VV[25]);
5100          if(((V758))==Cnil){          if(((V758))==Cnil){
5101          goto T2760;}          goto T2765;}
5102          V767= VV[245];          V767= VV[245];
5103          goto T2758;          goto T2763;
5104          goto T2760;          goto T2765;
5105  T2760:;  T2765:;
5106          V767= VV[246];          V767= VV[246];
5107          goto T2758;          goto T2763;
5108  T2758:;  T2763:;
5109          (void)((*(LnkLI274))(V767));          (void)((*(LnkLI274))(V767));
5110          V768= structure_ref((V761),VV[32],3);          V768= structure_ref((V761),VV[32],3);
5111          (void)((*(LnkLI274))(/* INLINE-ARGS */V768));          (void)((*(LnkLI274))(/* INLINE-ARGS */V768));
5112          princ_char(40,VV[25]);          princ_char(40,VV[25]);
5113          princ_str("base0",VV[25]);          princ_str("base0",VV[25]);
5114          if(((V765))==Cnil){          if(((V765))==Cnil){
5115          goto T2769;}          goto T2774;}
5116          V769= VV[247];          V769= VV[247];
5117          goto T2767;          goto T2772;
5118          goto T2769;          goto T2774;
5119  T2769:;  T2774:;
5120          V769= VV[248];          V769= VV[248];
5121          goto T2767;          goto T2772;
5122  T2767:;  T2772:;
5123          (void)((*(LnkLI274))(V769));          (void)((*(LnkLI274))(V769));
5124          V770= structure_ref(cadr((V762)),VV[62],1);          V770= structure_ref(cadr((V762)),VV[62],1);
5125          (void)((*(LnkLI308))(/* INLINE-ARGS */V770,small_fixnum(2)));          (void)((*(LnkLI311))(/* INLINE-ARGS */V770,small_fixnum(2)));
5126          (void)((*(LnkLI313))(caaddr((V762)),Cnil));          (void)((*(LnkLI316))(caaddr((V762)),Cnil));
5127          princ_str("register object *",VV[25]);          princ_str("register object *",VV[25]);
5128          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5129          princ_str("base0;",VV[25]);          princ_str("base0;",VV[25]);
# Line 5133  T2767:; Line 5147  T2767:;
5147          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
5148          V771= structure_ref(cadr((V762)),VV[62],1);          V771= structure_ref(cadr((V762)),VV[62],1);
5149          V772= structure_ref((V761),VV[32],3);          V772= structure_ref((V761),VV[32],3);
5150          (void)((*(LnkLI314))(/* INLINE-ARGS */V771,/* INLINE-ARGS */V772,VV[250]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V771,/* INLINE-ARGS */V772,VV[250]));
5151          princ_str("\n   VMB",VV[25]);          princ_str("\n   VMB",VV[25]);
5152          (void)((*(LnkLI274))((V764)));          (void)((*(LnkLI274))((V764)));
5153          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[25]);
# Line 5141  T2767:; Line 5155  T2767:;
5155          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[25]);
5156          (void)((*(LnkLI274))((V764)));          (void)((*(LnkLI274))((V764)));
5157          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
5158          goto T2793;}          goto T2798;}
5159          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
5160          goto T2793;          goto T2798;
5161  T2793:;  T2798:;
5162          base[19]= caddr(cddr((V762)));          base[19]= caddr(cddr((V762)));
5163          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
5164          (void) (*Lnk315)();          (void) (*Lnk318)();
5165          vs_top=sup;          vs_top=sup;
5166          if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){          if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){
5167          goto T2801;}          goto T2806;}
5168          if(((VV[138]->s.s_dbind))!=Cnil){          if(((VV[138]->s.s_dbind))!=Cnil){
5169          goto T2801;}          goto T2806;}
5170          if(((VV[140]->s.s_dbind))!=Cnil){          if(((VV[140]->s.s_dbind))!=Cnil){
5171          goto T2801;}          goto T2806;}
5172          goto T2799;          goto T2804;
5173          goto T2801;          goto T2806;
5174  T2801:;  T2806:;
5175          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
5176          goto T2799;          goto T2804;
5177  T2799:;  T2804:;
5178          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
5179          (void)((*(LnkLI316))((V764),Ct));          (void)((*(LnkLI319))((V764),Ct));
5180          V773= structure_ref((V761),VV[32],3);          V773= structure_ref((V761),VV[32],3);
5181          {object V774 = (*(LnkLI310))(/* INLINE-ARGS */V773);          {object V774 = (*(LnkLI313))(/* INLINE-ARGS */V773);
5182          bds_unwind1;          bds_unwind1;
5183          bds_unwind1;          bds_unwind1;
5184          bds_unwind1;          bds_unwind1;
# Line 5197  object V780;object V781;object V782;obje Line 5211  object V780;object V781;object V782;obje
5211  TTL:;  TTL:;
5212          {long V785;          {long V785;
5213          if(((V780))==Cnil){          if(((V780))==Cnil){
5214          goto T2813;}          goto T2818;}
5215          V785= 0;          V785= 0;
5216          goto T2811;          goto T2816;
5217          goto T2813;          goto T2818;
5218  T2813:;  T2818:;
5219          V785= fix(structure_ref((V783),VV[32],4));          V785= fix(structure_ref((V783),VV[32],4));
5220          goto T2811;          goto T2816;
5221  T2811:;  T2816:;
5222          bds_bind(VV[20],(*(LnkLI306))(cadr((V784))));          bds_bind(VV[20],(*(LnkLI309))(cadr((V784))));
5223          bds_bind(VV[117],Cnil);          bds_bind(VV[117],Cnil);
5224          if(!(((V780))==(VV[251]))){          if(!(((V780))==(VV[251]))){
5225          goto T2816;}          goto T2821;}
5226          {object V786 = (*(LnkLI250))((V780),(V781),(V782),(V783),(V784));          {object V786 = (*(LnkLI250))((V780),(V781),(V782),(V783),(V784));
5227          bds_unwind1;          bds_unwind1;
5228          bds_unwind1;          bds_unwind1;
5229          VMR54(V786)}          VMR54(V786)}
5230          goto T2816;          goto T2821;
5231  T2816:;  T2821:;
5232          if((structure_ref((V783),VV[32],0))==Cnil){          if((structure_ref((V783),VV[32],0))==Cnil){
5233          goto T2822;}          goto T2827;}
5234          V787= structure_ref((V783),VV[32],0);          V787= structure_ref((V783),VV[32],0);
5235          goto T2820;          goto T2825;
5236          goto T2822;          goto T2827;
5237  T2822:;  T2827:;
5238          V787= Cnil;          V787= Cnil;
5239          goto T2820;          goto T2825;
5240  T2820:;  T2825:;
5241          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[252],V787)));          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[252],V787)));
5242          princ_str("\nstatic void ",VV[31]);          princ_str("\nstatic void ",VV[31]);
5243          if(((V780))==Cnil){          if(((V780))==Cnil){
5244          goto T2829;}          goto T2834;}
5245          V788= VV[253];          V788= VV[253];
5246          goto T2827;          goto T2832;
5247          goto T2829;          goto T2834;
5248  T2829:;  T2834:;
5249          V788= VV[254];          V788= VV[254];
5250          goto T2827;          goto T2832;
5251  T2827:;  T2832:;
5252          (void)((*(LnkLI277))(V788));          (void)((*(LnkLI277))(V788));
5253          V789= structure_ref((V783),VV[32],3);          V789= structure_ref((V783),VV[32],3);
5254          (void)((*(LnkLI277))(/* INLINE-ARGS */V789));          (void)((*(LnkLI277))(/* INLINE-ARGS */V789));
5255          princ_str("();",VV[31]);          princ_str("();",VV[31]);
5256          princ_str("\nstatic void ",VV[25]);          princ_str("\nstatic void ",VV[25]);
5257          if(((V780))==Cnil){          if(((V780))==Cnil){
5258          goto T2838;}          goto T2843;}
5259          V790= VV[255];          V790= VV[255];
5260          goto T2836;          goto T2841;
5261          goto T2838;          goto T2843;
5262  T2838:;  T2843:;
5263          V790= VV[256];          V790= VV[256];
5264          goto T2836;          goto T2841;
5265  T2836:;  T2841:;
5266          (void)((*(LnkLI274))(V790));          (void)((*(LnkLI274))(V790));
5267          V791= structure_ref((V783),VV[32],3);          V791= structure_ref((V783),VV[32],3);
5268          (void)((*(LnkLI274))(/* INLINE-ARGS */V791));          (void)((*(LnkLI274))(/* INLINE-ARGS */V791));
# Line 5257  T2836:; Line 5271  T2836:;
5271          register long V793;          register long V793;
5272          V792= make_fixnum(V785);          V792= make_fixnum(V785);
5273          V793= 0;          V793= 0;
5274          goto T2846;          goto T2851;
5275  T2846:;  T2851:;
5276          V794 = make_fixnum(V793);          V794 = make_fixnum(V793);
5277          if(!(number_compare(V794,(V792))>=0)){          if(!(number_compare(V794,(V792))>=0)){
5278          goto T2847;}          goto T2852;}
5279          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5280          V795 = make_fixnum(V793);          V795 = make_fixnum(V793);
5281          (void)((*(LnkLI274))(V795));          (void)((*(LnkLI274))(V795));
5282          princ_char(41,VV[25]);          princ_char(41,VV[25]);
         goto T2842;  
5283          goto T2847;          goto T2847;
5284  T2847:;          goto T2852;
5285    T2852:;
5286          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5287          V796 = make_fixnum(V793);          V796 = make_fixnum(V793);
5288          (void)((*(LnkLI274))(V796));          (void)((*(LnkLI274))(V796));
5289          princ_char(44,VV[25]);          princ_char(44,VV[25]);
5290          V793= (long)(V793)+1;          V793= (long)(V793)+1;
5291          goto T2846;}          goto T2851;}
5292          goto T2842;          goto T2847;
5293  T2842:;  T2847:;
5294          princ_str("\nregister object ",VV[25]);          princ_str("\nregister object ",VV[25]);
5295          {register object V797;          {register object V797;
5296          register long V798;          register long V798;
5297          V797= make_fixnum(V785);          V797= make_fixnum(V785);
5298          V798= 0;          V798= 0;
5299          goto T2867;          goto T2872;
5300  T2867:;  T2872:;
5301          V799 = make_fixnum(V798);          V799 = make_fixnum(V798);
5302          if(!(number_compare(V799,(V797))>=0)){          if(!(number_compare(V799,(V797))>=0)){
5303          goto T2868;}          goto T2873;}
5304          princ_char(42,VV[25]);          princ_char(42,VV[25]);
5305          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5306          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5307          V800 = make_fixnum(V798);          V800 = make_fixnum(V798);
5308          (void)((*(LnkLI274))(V800));          (void)((*(LnkLI274))(V800));
5309          princ_char(59,VV[25]);          princ_char(59,VV[25]);
         goto T2863;  
5310          goto T2868;          goto T2868;
5311  T2868:;          goto T2873;
5312    T2873:;
5313          princ_char(42,VV[25]);          princ_char(42,VV[25]);
5314          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5315          princ_str("base",VV[25]);          princ_str("base",VV[25]);
# Line 5303  T2868:; Line 5317  T2868:;
5317          (void)((*(LnkLI274))(V801));          (void)((*(LnkLI274))(V801));
5318          princ_char(44,VV[25]);          princ_char(44,VV[25]);
5319          V798= (long)(V798)+1;          V798= (long)(V798)+1;
5320          goto T2867;}          goto T2872;}
5321          goto T2863;          goto T2868;
5322  T2863:;  T2868:;
5323          V802= structure_ref(cadr((V784)),VV[62],1);          V802= structure_ref(cadr((V784)),VV[62],1);
5324          (void)((*(LnkLI308))(/* INLINE-ARGS */V802,small_fixnum(2)));          (void)((*(LnkLI311))(/* INLINE-ARGS */V802,small_fixnum(2)));
5325          bds_bind(VV[128],VV[127]);          bds_bind(VV[128],VV[127]);
5326          bds_bind(VV[249],(V782));          bds_bind(VV[249],(V782));
5327          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
# Line 5335  T2863:; Line 5349  T2863:;
5349          princ_char(59,VV[25]);          princ_char(59,VV[25]);
5350          V804= structure_ref(cadr((V784)),VV[62],1);          V804= structure_ref(cadr((V784)),VV[62],1);
5351          V805= structure_ref((V783),VV[32],3);          V805= structure_ref((V783),VV[32],3);
5352          (void)((*(LnkLI314))(/* INLINE-ARGS */V804,/* INLINE-ARGS */V805,VV[257]));          (void)((*(LnkLI317))(/* INLINE-ARGS */V804,/* INLINE-ARGS */V805,VV[257]));
5353          princ_str(" VC",VV[25]);          princ_str(" VC",VV[25]);
5354          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
5355          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
5356          goto T2908;}          goto T2913;}
5357          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[25]);
5358          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
5359          princ_str(");",VV[25]);          princ_str(");",VV[25]);
5360          goto T2906;          goto T2911;
5361          goto T2908;          goto T2913;
5362  T2908:;  T2913:;
5363          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
5364          goto T2906;          goto T2911;
5365  T2906:;  T2911:;
5366          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
5367          goto T2914;}          goto T2919;}
5368          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
5369          goto T2914;          goto T2919;
5370  T2914:;  T2919:;
5371          if(((V780))==Cnil){          if(((V780))==Cnil){
5372          goto T2920;}          goto T2925;}
5373          (void)((VFUN_NARGS=2,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784))))));          (void)((VFUN_NARGS=2,(*(LnkLI334))(caddr((V784)),caddr(cddr((V784))))));
5374          goto T2918;          goto T2923;
5375          goto T2920;          goto T2925;
5376  T2920:;  T2925:;
5377          (void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784))),(V783))));          (void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V784)),caddr(cddr((V784))),(V783))));
5378          goto T2918;          goto T2923;
5379  T2918:;  T2923:;
5380          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
5381          {object V806;          {object V806;
5382          V806= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));          V806= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));
5383          setq(VV[33],make_cons((V806),symbol_value(VV[33])));}          setq(VV[33],make_cons((V806),symbol_value(VV[33])));}
5384          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[31]);
5385          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));
5386          V807= (*(LnkLI332))();          V807= (*(LnkLI335))();
5387          bds_unwind1;          bds_unwind1;
5388          bds_unwind1;          bds_unwind1;
5389          bds_unwind1;          bds_unwind1;
# Line 5386  T2918:; Line 5400  T2918:;
5400          bds_unwind1;          bds_unwind1;
5401          bds_unwind1;          bds_unwind1;
5402          V808= structure_ref((V783),VV[32],3);          V808= structure_ref((V783),VV[32],3);
5403          {object V809 = (*(LnkLI310))(/* INLINE-ARGS */V808);          {object V809 = (*(LnkLI313))(/* INLINE-ARGS */V808);
5404          bds_unwind1;          bds_unwind1;
5405          bds_unwind1;          bds_unwind1;
5406          VMR54(V809)}}          VMR54(V809)}}
# Line 5406  TTL:; Line 5420  TTL:;
5420          register object V812;          register object V812;
5421          V811= symbol_value(VV[18]);          V811= symbol_value(VV[18]);
5422          V812= car((V811));          V812= car((V811));
5423          goto T2935;          goto T2940;
5424  T2935:;  T2940:;
5425          if(!(endp_prop((V811)))){          if(!(endp_prop((V811)))){
5426          goto T2936;}          goto T2941;}
         goto T2931;  
5427          goto T2936;          goto T2936;
5428  T2936:;          goto T2941;
5429    T2941:;
5430          {register object V813;          {register object V813;
5431          if(!(type_of((V812))==t_cons)){          if(!(type_of((V812))==t_cons)){
5432          goto T2943;}          goto T2948;}
5433          {register object V814;          {register object V814;
5434          V814= car((V812));          V814= car((V812));
5435          V812= cdr((V812));          V812= cdr((V812));
5436          V813= (V814);          V813= (V814);
5437          goto T2941;}          goto T2946;}
5438          goto T2943;          goto T2948;
5439  T2943:;  T2948:;
5440          V813= Ct;          V813= Ct;
5441          goto T2941;          goto T2946;
5442  T2941:;  T2946:;
5443          if(!(((V810))==((V813)))){          if(!(((V810))==((V813)))){
5444          goto T2950;}          goto T2955;}
5445          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5446          base[2]= VV[258];          base[2]= VV[258];
5447          base[3]= (V812);          base[3]= (V812);
5448          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5449          Lformat();          Lformat();
5450          vs_top=sup;          vs_top=sup;
5451          goto T2948;          goto T2953;
         goto T2950;  
 T2950:;  
         if(!(((V810))==Cnil)){  
         goto T2956;}  
5452          goto T2955;          goto T2955;
5453          goto T2956;  T2955:;
5454  T2956:;          if(!(((V810))==Cnil)){
5455            goto T2961;}
5456            goto T2960;
5457            goto T2961;
5458    T2961:;
5459          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5460          base[2]= VV[259];          base[2]= VV[259];
5461          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5462          Lformat();          Lformat();
5463          vs_top=sup;          vs_top=sup;
5464          goto T2955;          goto T2960;
5465  T2955:;  T2960:;
5466          V810= (V813);          V810= (V813);
5467          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5468          base[2]= VV[260];          base[2]= VV[260];
# Line 5457  T2955:; Line 5471  T2955:;
5471          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
5472          Lformat();          Lformat();
5473          vs_top=sup;          vs_top=sup;
5474          goto T2948;          goto T2953;
5475  T2948:;  T2953:;
5476          if(!(((V810))==(VV[261]))){          if(!(((V810))==(VV[261]))){
5477          goto T2940;}          goto T2945;}
5478          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5479          base[2]= VV[262];          base[2]= VV[262];
5480          base[3]= (V812);          base[3]= (V812);
5481          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5482          Lformat();          Lformat();
5483          vs_top=sup;}          vs_top=sup;}
5484          goto T2940;          goto T2945;
5485  T2940:;  T2945:;
5486          V811= cdr((V811));          V811= cdr((V811));
5487          V812= car((V811));          V812= car((V811));
5488          goto T2935;}          goto T2940;}
5489          goto T2931;          goto T2936;
5490  T2931:;  T2936:;
5491          if(symbol_value(VV[18])==Cnil){          if(symbol_value(VV[18])==Cnil){
5492          goto T2976;}          goto T2981;}
5493          base[0]= symbol_value(VV[31]);          base[0]= symbol_value(VV[31]);
5494          base[1]= VV[263];          base[1]= VV[263];
5495          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5496          Lformat();          Lformat();
5497          vs_top=sup;          vs_top=sup;
5498          goto T2976;          goto T2981;
5499  T2976:;  T2981:;
5500          if(eql(symbol_value(VV[141]),small_fixnum(0))){          if(eql(symbol_value(VV[141]),small_fixnum(0))){
5501          goto T2980;}          goto T2985;}
5502          base[0]= symbol_value(VV[31]);          base[0]= symbol_value(VV[31]);
5503          base[1]= VV[264];          base[1]= VV[264];
5504          base[2]= symbol_value(VV[141]);          base[2]= symbol_value(VV[141]);
# Line 5493  T2976:; Line 5507  T2976:;
5507          vs_top=sup;          vs_top=sup;
5508          {object V815 = vs_base[0];          {object V815 = vs_base[0];
5509          VMR55(V815)}          VMR55(V815)}
5510          goto T2980;          goto T2985;
5511  T2980:;  T2985:;
5512          {object V816 = Cnil;          {object V816 = Cnil;
5513          VMR55(V816)}}          VMR55(V816)}}
5514          base[0]=base[0];          base[0]=base[0];
# Line 5515  register object *base0; Line 5529  register object *base0;
5529  TTL:;  TTL:;
5530          V818= structure_ref((V817),VV[69],4);          V818= structure_ref((V817),VV[69],4);
5531          if(eql(/* INLINE-ARGS */V818,VV[72])){          if(eql(/* INLINE-ARGS */V818,VV[72])){
5532          goto T2986;}          goto T2991;}
5533          goto T2985;          goto T2990;
5534          goto T2986;          goto T2991;
5535  T2986:;  T2991:;
5536          (VV[153]->s.s_dbind)= Ct;          (VV[153]->s.s_dbind)= Ct;
5537          goto T2985;          goto T2990;
5538  T2985:;  T2990:;
5539          {object V819;          {object V819;
5540          V819= (*(LnkLI345))((V817));          V819= (*(LnkLI348))((V817));
5541          if(((V819))==Cnil){          if(((V819))==Cnil){
5542          goto T2991;}          goto T2996;}
5543          {object V820;          {object V820;
5544          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
5545          V820= symbol_value(VV[88]);          V820= symbol_value(VV[88]);
# Line 5533  T2985:; Line 5547  T2985:;
5547          (void)(structure_set((V817),VV[69],4,(V820)));          (void)(structure_set((V817),VV[69],4,(V820)));
5548          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
5549          if((base0[1])!=Cnil){          if((base0[1])!=Cnil){
5550          goto T2998;}          goto T3003;}
5551          princ_char(123,VV[25]);          princ_char(123,VV[25]);
5552          base0[1]= Ct;          base0[1]= Ct;
5553          goto T2998;          goto T3003;
5554  T2998:;  T3003:;
5555          base[1]= (V817);          base[1]= (V817);
5556          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5557          (void) (*Lnk346)();          (void) (*Lnk349)();
5558          return;}          return;}
5559          goto T2991;          goto T2996;
5560  T2991:;  T2996:;
5561          base[1]= Cnil;          base[1]= Cnil;
5562          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5563          return;}          return;}
5564          }          }
5565  }  }
5566  static void LnkT346(){ call_or_link(VV[346],(void **)&Lnk346);} /* WT-VAR-DECL */  static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* WT-VAR-DECL */
5567  static object  LnkTLI345(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[345],(void **)&LnkLI345,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */  static object  LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)&LnkLI348,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
5568  static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)&LnkLI250,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */  static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)&LnkLI250,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */
5569  static object  LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)&LnkLI340,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */  static object  LnkTLI343(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[343],(void **)&LnkLI343,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */
5570  static object  LnkTLI339(){return call_proc0(VV[339],(void **)&LnkLI339);} /* WFS-ERROR */  static object  LnkTLI342(){return call_proc0(VV[342],(void **)&LnkLI342);} /* WFS-ERROR */
5571  static void LnkT338(){ call_or_link(VV[338],(void **)&Lnk338);} /* C2DM */  static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* C2DM */
5572  static object  LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[337],(void **)&LnkLI337,3,first,ap);va_end(ap);return V1;} /* C1DM */  static object  LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)&LnkLI340,3,first,ap);va_end(ap);return V1;} /* C1DM */
5573  static object  LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[336],(void **)&LnkLI336,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */  static object  LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[339],(void **)&LnkLI339,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */
5574  static object  LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[335],(void **)&LnkLI335,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */  static object  LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)&LnkLI338,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */
5575  static object  LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)&LnkLI334,first,ap);va_end(ap);return V1;} /* WARN */  static object  LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[337],(void **)&LnkLI337,first,ap);va_end(ap);return V1;} /* WARN */
5576  static object  LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)&LnkLI333,1,first,ap);va_end(ap);return V1;} /* REGISTER */  static object  LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)&LnkLI336,1,first,ap);va_end(ap);return V1;} /* REGISTER */
5577  static object  LnkTLI332(){return call_proc0(VV[332],(void **)&LnkLI332);} /* WT-CVARS */  static object  LnkTLI335(){return call_proc0(VV[335],(void **)&LnkLI335);} /* WT-CVARS */
5578  static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[331],(void **)&LnkLI331,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */  static object  LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)&LnkLI334,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */
5579  static object  LnkTLI330(){return call_proc0(VV[330],(void **)&LnkLI330);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI333(){return call_proc0(VV[333],(void **)&LnkLI333);} /* CLOSE-INLINE-BLOCKS */
5580  static object  LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)&LnkLI329,1,first,ap);va_end(ap);return V1;} /* WT-VS */  static object  LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* WT-VS */
5581  static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* C2BIND */  static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* C2BIND */
5582  static object  LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)&LnkLI327,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */  static object  LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)&LnkLI330,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
5583  static object  LnkTLI326(){return call_proc0(VV[326],(void **)&LnkLI326);} /* BABOON */  static object  LnkTLI329(){return call_proc0(VV[329],(void **)&LnkLI329);} /* BABOON */
5584  static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)&LnkLI325,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */  static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
5585  static void LnkT324(){ call_or_link(VV[324],(void **)&Lnk324);} /* INC-INLINE-BLOCKS */  static void LnkT327(){ call_or_link(VV[327],(void **)&Lnk327);} /* INC-INLINE-BLOCKS */
5586  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[323],(void **)&LnkLI323,first,ap);va_end(ap);return V1;} /* CS-PUSH */  static object  LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[326],(void **)&LnkLI326,first,ap);va_end(ap);return V1;} /* CS-PUSH */
5587  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)&LnkLI322,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */  static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)&LnkLI325,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
5588  static object  LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)&LnkLI321,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */  static object  LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)&LnkLI324,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
5589  static object  LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)&LnkLI320,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)&LnkLI323,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */
5590  static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[319],(void **)&LnkLI319,first,ap);va_end(ap);return V1;} /* CONCATENATE */  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[322],(void **)&LnkLI322,first,ap);va_end(ap);return V1;} /* CONCATENATE */
5591  static object  LnkTLI318(){return call_proc0(VV[318],(void **)&LnkLI318);} /* CVS-PUSH */  static object  LnkTLI321(){return call_proc0(VV[321],(void **)&LnkLI321);} /* CVS-PUSH */
5592  static object  LnkTLI317(){return call_proc0(VV[317],(void **)&LnkLI317);} /* VS-PUSH */  static object  LnkTLI320(){return call_proc0(VV[320],(void **)&LnkLI320);} /* VS-PUSH */
5593  static object  LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */  static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)&LnkLI319,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */
5594  static void LnkT315(){ call_or_link(VV[315],(void **)&Lnk315);} /* C2EXPR */  static void LnkT318(){ call_or_link(VV[318],(void **)&Lnk318);} /* C2EXPR */
5595  static object  LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)&LnkLI314,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */  static object  LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)&LnkLI317,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */
5596  static object  LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)&LnkLI313,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */  static object  LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */
5597  static object  LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[312],(void **)&LnkLI312,first,ap);va_end(ap);return V1;} /* WT-COMMENT */  static object  LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[315],(void **)&LnkLI315,first,ap);va_end(ap);return V1;} /* WT-COMMENT */
5598  static object  LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)&LnkLI311,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */  static object  LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */
5599  static object  LnkTLI310(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[310],(void **)&LnkLI310,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */  static object  LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)&LnkLI313,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */
5600  static void LnkT309(){ call_or_link(VV[309],(void **)&Lnk309);} /* T3DEFUN-AUX */  static void LnkT312(){ call_or_link(VV[312],(void **)&Lnk312);} /* T3DEFUN-AUX */
5601  static object  LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)&LnkLI308,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */  static object  LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)&LnkLI311,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */
5602  static void LnkT307(){ call_or_link(VV[307],(void **)&Lnk307);} /* FIXNUMP */  static void LnkT310(){ call_or_link(VV[310],(void **)&Lnk310);} /* FIXNUMP */
5603  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* VOLATILE */  static object  LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)&LnkLI309,1,first,ap);va_end(ap);return V1;} /* VOLATILE */
5604  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* MAXARGS */  static object  LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)&LnkLI308,1,first,ap);va_end(ap);return V1;} /* MAXARGS */
5605  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)&LnkLI304,1,first,ap);va_end(ap);return V1;} /* VARARG-P */  static object  LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)&LnkLI307,1,first,ap);va_end(ap);return V1;} /* VARARG-P */
5606  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)&LnkLI303,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)&LnkLI306,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */
5607  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)&LnkLI302,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)&LnkLI305,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
5608  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)&LnkLI304,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */
5609  static object  LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[300],(void **)&LnkLI300,first,ap);va_end(ap);return V1;} /* ADD-INIT */  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[303],(void **)&LnkLI303,first,ap);va_end(ap);return V1;} /* ADD-INIT */
5610  static object  LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[299],(void **)&LnkLI299,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[302],(void **)&LnkLI302,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
5611  static object  LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[298],(void **)&LnkLI298,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */
5612  static object  LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)&LnkLI297,257,first,ap);va_end(ap);return V1;} /* F-TYPE */  static object  LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[300],(void **)&LnkLI300,257,first,ap);va_end(ap);return V1;} /* F-TYPE */
5613  static void LnkT296(){ call_or_link(VV[296],(void **)&Lnk296);} /* SUBTYPEP */  static void LnkT299(){ call_or_link(VV[299],(void **)&Lnk299);} /* SUBTYPEP */
5614  static void LnkT295(){ call_or_link(VV[295],(void **)&Lnk295);} /* STRUCTURE-SUBTYPE-P */  static void LnkT298(){ call_or_link(VV[298],(void **)&Lnk298);} /* STRUCTURE-SUBTYPE-P */
5615  static object  LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[294],(void **)&LnkLI294,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */  static object  LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[297],(void **)&LnkLI297,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
5616  static object  LnkTLI293(){return call_proc0(VV[293],(void **)&LnkLI293);} /* ADD-LOAD-TIME-SHARP-COMMA */  static object  LnkTLI296(){return call_proc0(VV[296],(void **)&LnkLI296);} /* ADD-LOAD-TIME-SHARP-COMMA */
5617  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */  static object  LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[295],(void **)&LnkLI295,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */
5618  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)&LnkLI291,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */  static object  LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)&LnkLI294,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
5619  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)&LnkLI290,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */  static object  LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)&LnkLI293,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */
5620  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)&LnkLI292,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */
5621  static object  LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)&LnkLI288,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)&LnkLI291,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */
5622  static object  LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[287],(void **)&LnkLI287,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[290],(void **)&LnkLI290,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
5623  static object  LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)&LnkLI286,1,first,ap);va_end(ap);return V1;} /* T1PROGN */  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* T1PROGN */
5624  static object  LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)&LnkLI283,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */  static object  LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)&LnkLI283,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
5625  static void LnkT282(){ call_or_link(VV[282],(void **)&Lnk282);} /* CMP-EVAL */  static void LnkT282(){ call_or_link(VV[282],(void **)&Lnk282);} /* CMP-EVAL */
5626  static void LnkT281(){ call_or_link(VV[281],(void **)&Lnk281);} /* DECLARATION-TYPE */  static void LnkT281(){ call_or_link(VV[281],(void **)&Lnk281);} /* DECLARATION-TYPE */
# Line 5631  static object  LnkTLI265(object first,.. Line 5645  static object  LnkTLI265(object first,..
5645  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
5646  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT
5647  #endif  #endif
5648    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26