/[gcl]/gcl/lsp/defstruct.c
ViewVC logotype

Diff of /gcl/lsp/defstruct.c

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

revision 1.7 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.8 by camm, Sat Oct 5 18:34:15 2002 UTC
# Line 51  T2:; Line 51  T2:;
51          base[1]= coerce_to_string((V13));          base[1]= coerce_to_string((V13));
52          base[2]= coerce_to_string((V18));          base[2]= coerce_to_string((V18));
53          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
54          (void) (*Lnk109)();          (void) (*Lnk107)();
55          vs_top=sup;          vs_top=sup;
56          base[0]= vs_base[0];          base[0]= vs_base[0];
57          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 87  T8:; Line 87  T8:;
87  goto T16;  goto T16;
88  T16:;  T16:;
89          V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10));          V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10));
90          (void)((VFUN_NARGS=2,(*(LnkLI110))((V24),/* INLINE-ARGS */V28)));          (void)((VFUN_NARGS=2,(*(LnkLI108))((V24),/* INLINE-ARGS */V28)));
91  goto T15;  goto T15;
92  T15:;  T15:;
93          if(((V25))!=Cnil){          if(((V25))!=Cnil){
# Line 97  T15:; Line 97  T15:;
97          base[2]= VV[4];          base[2]= VV[4];
98          base[3]= (V20);          base[3]= (V20);
99          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
100          (void) (*Lnk111)();          (void) (*Lnk109)();
101          vs_top=sup;          vs_top=sup;
102          if((V17)!=Cnil){          if((V17)!=Cnil){
103          goto T18;}{object V29;          goto T18;}{object V29;
# Line 182  T49:; Line 182  T49:;
182          base[0]= (V16);          base[0]= (V16);
183          base[1]= car((V34));          base[1]= car((V34));
184          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
185          (void) (*Lnk112)();          (void) (*Lnk110)();
186          vs_top=sup;          vs_top=sup;
187          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
188          goto T57;}          goto T57;}
# Line 448  T152:; Line 448  T152:;
448          goto T160;}          goto T160;}
449  goto T161;  goto T161;
450  T161:;  T161:;
451          (void)((*(LnkLI113))());          (void)((*(LnkLI111))());
452  goto T160;  goto T160;
453  T160:;  T160:;
454          V59= make_cons(car((V66)),(V59));          V59= make_cons(car((V66)),(V59));
# Line 507  goto T153; Line 507  goto T153;
507  T153:;  T153:;
508          if((car((V66)))==(VV[12])){          if((car((V66)))==(VV[12])){
509          goto T186;}          goto T186;}
510          (void)((*(LnkLI113))());          (void)((*(LnkLI111))());
511  goto T186;  goto T186;
512  T186:;  T186:;
513          V58= make_cons(VV[12],(V58));          V58= make_cons(VV[12],(V58));
# Line 541  T208:; Line 541  T208:;
541          goto T201;          goto T201;
542  goto T209;  goto T209;
543  T209:;  T209:;
544          (void)((*(LnkLI113))());          (void)((*(LnkLI111))());
545  goto T201;  goto T201;
546  T201:;  T201:;
547          V80= cdr((V80));          V80= cdr((V80));
# Line 615  T236:; Line 615  T236:;
615          base[0]= (V67);          base[0]= (V67);
616          base[1]= (V49);          base[1]= (V49);
617          base[2]= VV[16];          base[2]= VV[16];
618          base[3]= VV[114];          base[3]= VV[112];
619          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
620          Lmember();          Lmember();
621          vs_top=sup;          vs_top=sup;
# Line 633  T232:; Line 633  T232:;
633          goto T257;}          goto T257;}
634          if(type_of(car((V66)))==t_symbol){          if(type_of(car((V66)))==t_symbol){
635          goto T259;}          goto T259;}
636          (void)((*(LnkLI113))());          (void)((*(LnkLI111))());
637  goto T259;  goto T259;
638  T259:;  T259:;
639          V59= make_cons(car((V66)),(V59));          V59= make_cons(car((V66)),(V59));
# Line 642  goto T257; Line 642  goto T257;
642  T257:;  T257:;
643          if(type_of(caar((V66)))==t_symbol){          if(type_of(caar((V66)))==t_symbol){
644          goto T264;}          goto T264;}
645          (void)((*(LnkLI113))());          (void)((*(LnkLI111))());
646          goto T255;          goto T255;
647  goto T264;  goto T264;
648  T264:;  T264:;
# Line 658  goto T267; Line 658  goto T267;
658  T267:;  T267:;
659          if(type_of(caddar((V66)))==t_symbol){          if(type_of(caddar((V66)))==t_symbol){
660          goto T273;}          goto T273;}
661          (void)((*(LnkLI113))());          (void)((*(LnkLI111))());
662          goto T255;          goto T255;
663  goto T273;  goto T273;
664  T273:;  T273:;
665          if(endp_prop(cdddar((V66)))){          if(endp_prop(cdddar((V66)))){
666          goto T276;}          goto T276;}
667          (void)((*(LnkLI113))());          (void)((*(LnkLI111))());
668          goto T255;          goto T255;
669  goto T276;  goto T276;
670  T276:;  T276:;
# Line 681  goto T125; Line 681  goto T125;
681  T125:;  T125:;
682          if(type_of(car((V57)))==t_symbol){          if(type_of(car((V57)))==t_symbol){
683          goto T284;}          goto T284;}
684          (void)((*(LnkLI113))());          (void)((*(LnkLI111))());
685  goto T284;  goto T284;
686  T284:;  T284:;
687          V58= make_cons(car((V57)),(V58));          V58= make_cons(car((V57)),(V58));
# Line 809  T333:; Line 809  T333:;
809          VMR4(V108)}          VMR4(V108)}
810  goto T338;  goto T338;
811  T338:;  T338:;
812          V109= list(3,VV[38],(V102),VV[39]);          V109= list(2,list(3,VV[38],(V102),VV[39]),VV[40]);
813          base[0]= cdr(symbol_value(VV[40]));          {object V110 = list(4,VV[3],(V99),VV[36],listA(4,VV[37],/* INLINE-ARGS */V109,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V98))))),VV[44]));
814          vs_top=(vs_base=base+0)+1;          VMR4(V110)}
         (void) (*Lnk115)();  
         vs_top=sup;  
         V110= vs_base[0];  
         V111= list(2,/* INLINE-ARGS */V109,V110);  
         V112= make_cons(VV[42],Cnil);  
         V113= make_cons(VV[43],Cnil);  
         V114= list(2,VV[41],list(3,VV[25],/* INLINE-ARGS */V112,list(3,VV[29],/* INLINE-ARGS */V113,list(2,VV[11],(V98)))));  
         {object V115 = list(4,VV[3],(V99),VV[36],list(5,VV[37],/* INLINE-ARGS */V111,/* INLINE-ARGS */V114,VV[44],list(3,VV[45],make_cons(VV[42],Cnil),VV[46])));  
         VMR4(V115)}  
815  goto T331;  goto T331;
816  T331:;  T331:;
817          {object V116;          {object V111;
818          base[0]= VV[47];          base[0]= VV[45];
819          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
820          Lerror();          Lerror();
821          vs_top=sup;          vs_top=sup;
822          V116= vs_base[0];          V111= vs_base[0];
823          if(((V116))==Cnil){          if(((V111))==Cnil){
824          goto T345;}          goto T343;}
825          {object V117 = (V116);          {object V112 = (V111);
826          VMR4(V117)}          VMR4(V112)}
827  goto T345;  goto T343;
828  T345:;  T343:;
829          {object V118 = Cnil;          {object V113 = Cnil;
830          VMR4(V118)}}}          VMR4(V113)}}}
831          base[0]=base[0];          base[0]=base[0];
832          return Cnil;          return Cnil;
833  }  }
834  /*      local entry for function PARSE-SLOT-DESCRIPTION */  /*      local entry for function PARSE-SLOT-DESCRIPTION */
835    
836  static object LI5(V121,V122)  static object LI5(V116,V117)
837    
838  register object V121;object V122;  register object V116;object V117;
839  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
840  goto TTL;  goto TTL;
841  TTL:;  TTL:;
842          {object V123;          {object V118;
843          object V124;          object V119;
844          register object V125;          register object V120;
845          register object V126;          register object V121;
846            V118= Cnil;
847            V119= Cnil;
848            V120= Cnil;
849            V121= Cnil;
850            if(!(type_of((V116))!=t_cons)){
851            goto T347;}
852            V118= (V116);
853            goto T345;
854    goto T347;
855    T347:;
856            if(!(endp_prop(cdr((V116))))){
857            goto T351;}
858            V118= car((V116));
859            goto T345;
860    goto T351;
861    T351:;
862            V118= car((V116));
863            V119= cadr((V116));
864            {register object V122;
865            register object V123;
866            register object V124;
867            V122= cddr((V116));
868          V123= Cnil;          V123= Cnil;
869          V124= Cnil;          V124= Cnil;
870          V125= Cnil;  goto T360;
871          V126= Cnil;  T360:;
872          if(!(type_of((V121))!=t_cons)){          if(!(endp_prop((V122)))){
873          goto T349;}          goto T361;}
874          V123= (V121);          goto T345;
875          goto T347;  goto T361;
876  goto T349;  T361:;
877  T349:;          V123= car((V122));
878          if(!(endp_prop(cdr((V121))))){          if(!(endp_prop(cdr((V122))))){
879          goto T353;}          goto T367;}
880          V123= car((V121));          base[0]= VV[46];
881          goto T347;          base[1]= (V122);
 goto T353;  
 T353:;  
         V123= car((V121));  
         V124= cadr((V121));  
         {register object V127;  
         register object V128;  
         register object V129;  
         V127= cddr((V121));  
         V128= Cnil;  
         V129= Cnil;  
 goto T362;  
 T362:;  
         if(!(endp_prop((V127)))){  
         goto T363;}  
         goto T347;  
 goto T363;  
 T363:;  
         V128= car((V127));  
         if(!(endp_prop(cdr((V127))))){  
         goto T369;}  
         base[0]= VV[48];  
         base[1]= (V127);  
882          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
883          Lerror();          Lerror();
884          vs_top=sup;          vs_top=sup;
885  goto T369;  goto T367;
886  T369:;  T367:;
887          V129= cadr((V127));          V124= cadr((V122));
888          {object V130= (V128);          {object V125= (V123);
889          if((V130!= VV[77]))goto T377;          if((V125!= VV[75]))goto T375;
890          V125= (V129);          V120= (V124);
891          goto T376;          goto T374;
892    goto T375;
893    T375:;
894            if((V125!= VV[113]))goto T377;
895            V121= (V124);
896            goto T374;
897  goto T377;  goto T377;
898  T377:;  T377:;
899          if((V130!= VV[116]))goto T379;          base[0]= VV[47];
900          V126= (V129);          base[1]= (V122);
         goto T376;  
 goto T379;  
 T379:;  
         base[0]= VV[49];  
         base[1]= (V127);  
901          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
902          Lerror();          Lerror();
903          vs_top=sup;}          vs_top=sup;}
904  goto T376;  goto T374;
905  T376:;  T374:;
906          V127= cddr((V127));          V122= cddr((V122));
907          goto T362;}          goto T360;}
908  goto T347;  goto T345;
909  T347:;  T345:;
910          {object V131 = list(5,(V123),(V124),(V125),(V126),(V122));          {object V126 = list(5,(V118),(V119),(V120),(V121),(V117));
911          VMR5(V131)}}          VMR5(V126)}}
912          base[0]=base[0];          base[0]=base[0];
913          return Cnil;          return Cnil;
914  }  }
915  /*      local entry for function OVERWRITE-SLOT-DESCRIPTIONS    */  /*      local entry for function OVERWRITE-SLOT-DESCRIPTIONS    */
916    
917  static object LI6(V134,V135)  static object LI6(V129,V130)
918    
919  object V134;register object V135;  object V129;register object V130;
920  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
921  goto TTL;  goto TTL;
922  TTL:;  TTL:;
923          if(((V135))!=Cnil){          if(((V130))!=Cnil){
924          goto T387;}          goto T385;}
925          {object V136 = Cnil;          {object V131 = Cnil;
926          VMR6(V136)}          VMR6(V131)}
927  goto T387;  goto T385;
928  T387:;  T385:;
929          {register object V137;          {register object V132;
930          base[0]= caar((V135));          base[0]= caar((V130));
931          base[1]= (V134);          base[1]= (V129);
932          base[2]= VV[16];          base[2]= VV[16];
933          base[3]= symbol_function(VV[43]);          base[3]= symbol_function(VV[114]);
934          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
935          Lmember();          Lmember();
936          vs_top=sup;          vs_top=sup;
937          V137= vs_base[0];          V132= vs_base[0];
938          if(((V137))==Cnil){          if(((V132))==Cnil){
939            goto T393;}
940            if((cadddr(car((V132))))!=Cnil){
941            goto T395;}
942            if((cadddr(car((V130))))==Cnil){
943          goto T395;}          goto T395;}
944          if((cadddr(car((V137))))!=Cnil){          base[0]= VV[48];
945          goto T397;}          base[1]= (V132);
         if((cadddr(car((V135))))==Cnil){  
         goto T397;}  
         base[0]= VV[50];  
         base[1]= (V137);  
946          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
947          Lerror();          Lerror();
948          vs_top=sup;          vs_top=sup;
949  goto T397;  goto T395;
950  T397:;  T395:;
951          {object V138;          {object V133;
952          object V139;          object V134;
953          V138= car((V137));          V133= car((V132));
954          V139= (*(LnkLI117))(caddr(car((V137))));          V134= (*(LnkLI115))(caddr(car((V132))));
955          if(type_of(cddr((V138)))!=t_cons)FEwrong_type_argument(Scons,cddr((V138)));          if(type_of(cddr((V133)))!=t_cons)FEwrong_type_argument(Scons,cddr((V133)));
956          (cddr((V138)))->c.c_car = (V139);          (cddr((V133)))->c.c_car = (V134);
957          (void)(cddr((V138)));}{object V141;          (void)(cddr((V133)));}{object V136;
958          V141= caddr(car((V137)));          V136= caddr(car((V132)));
959          if(V141==Cnil)goto T412;          if(V136==Cnil)goto T410;
960          V140= V141;          V135= V136;
961          goto T411;          goto T409;
962    goto T410;
963    T410:;}
964            V135= Ct;
965    goto T409;
966    T409:;
967            V137= (*(LnkLI116))(V135);{object V139;
968            V139= caddr(car((V130)));
969            if(V139==Cnil)goto T413;
970            V138= V139;
971            goto T412;
972    goto T413;
973    T413:;}
974            V138= Ct;
975  goto T412;  goto T412;
976  T412:;}  T412:;
977          V140= Ct;          V140= (*(LnkLI116))(V138);
978  goto T411;          if(equal(/* INLINE-ARGS */V137,/* INLINE-ARGS */V140)){
979  T411:;          goto T406;}
980          V142= (*(LnkLI118))(V140);{object V144;          base[0]= VV[49];
981          V144= caddr(car((V135)));          base[1]= car((V132));
         if(V144==Cnil)goto T415;  
         V143= V144;  
         goto T414;  
 goto T415;  
 T415:;}  
         V143= Ct;  
 goto T414;  
 T414:;  
         V145= (*(LnkLI118))(V143);  
         if(equal(/* INLINE-ARGS */V142,/* INLINE-ARGS */V145)){  
         goto T408;}  
         base[0]= VV[51];  
         base[1]= car((V137));  
982          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
983          Lerror();          Lerror();
984          vs_top=sup;          vs_top=sup;
985  goto T408;  goto T406;
986  T408:;  T406:;
987          V146= list(5,caar((V137)),cadar((V137)),caddar((V137)),cadddr(car((V137))),car(cddddr(car((V135)))));          V141= list(5,caar((V132)),cadar((V132)),caddar((V132)),cadddr(car((V132))),car(cddddr(car((V130)))));
988          V147= (*(LnkLI119))((V134),cdr((V135)));          V142= (*(LnkLI117))((V129),cdr((V130)));
989          {object V148 = make_cons(/* INLINE-ARGS */V146,/* INLINE-ARGS */V147);          {object V143 = make_cons(/* INLINE-ARGS */V141,/* INLINE-ARGS */V142);
990          VMR6(V148)}          VMR6(V143)}
991  goto T395;  goto T393;
992  T395:;  T393:;
993          V149= car((V135));          V144= car((V130));
994          V150= (*(LnkLI119))((V134),cdr((V135)));          V145= (*(LnkLI117))((V129),cdr((V130)));
995          {object V151 = make_cons(/* INLINE-ARGS */V149,/* INLINE-ARGS */V150);          {object V146 = make_cons(/* INLINE-ARGS */V144,/* INLINE-ARGS */V145);
996          VMR6(V151)}}          VMR6(V146)}}
997          base[0]=base[0];          base[0]=base[0];
998          return Cnil;          return Cnil;
999  }  }
1000  /*      local entry for function MAKE-T-TYPE    */  /*      local entry for function MAKE-T-TYPE    */
1001    
1002  static object LI7(V155,V156,V157)  static object LI7(V150,V151,V152)
1003    
1004  object V155;object V156;object V157;  object V150;object V151;object V152;
1005  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
1006  goto TTL;  goto TTL;
1007  TTL:;  TTL:;
1008          {object V158;          {object V153;
1009          V158= Cnil;          V153= Cnil;
1010          {register object V159;          {register object V154;
1011          V159= (VFUN_NARGS=5,(*(LnkLI120))((V155),VV[52],VV[53],VV[54],Ct));          V154= (VFUN_NARGS=5,(*(LnkLI118))((V150),VV[50],VV[51],VV[52],Ct));
1012          if(((V156))==Cnil){          if(((V151))==Cnil){
1013          goto T421;}          goto T419;}
1014          {object V160;          {object V155;
1015          object V161;          object V156;
1016          V160= get((V156),VV[55],Cnil);          V155= get((V151),VV[53],Cnil);
1017          V161= Cnil;          V156= Cnil;
1018          if((V160)!=Cnil){          if((V155)!=Cnil){
1019          goto T425;}          goto T423;}
1020          base[0]= VV[56];          base[0]= VV[54];
1021          base[1]= (V156);          base[1]= (V151);
1022          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1023          Lerror();          Lerror();
1024          vs_top=sup;          vs_top=sup;
1025  goto T425;  goto T423;
1026  T425:;  T423:;
1027          V161= structure_ref((V160),VV[55],2);          V156= structure_ref((V155),VV[53],2);
1028          {object V162;          {object V157;
1029          register object V163;          register object V158;
1030          V164 = make_fixnum((long)length((V161)));          V159 = make_fixnum((long)length((V156)));
1031          V162= (number_compare((V155),V164)<=0?((V155)):V164);          V157= (number_compare((V150),V159)<=0?((V150)):V159);
1032          V163= small_fixnum(0);          V158= small_fixnum(0);
1033  goto T433;  goto T431;
1034  T433:;  T431:;
1035          if(!(number_compare((V163),(V162))>=0)){          if(!(number_compare((V158),(V157))>=0)){
1036          goto T434;}          goto T432;}
1037          goto T421;          goto T419;
1038  goto T434;  goto T432;
1039  T434:;  T432:;
1040          V165= aref1((V161),fixint((V163)));          V160= aref1((V156),fixint((V158)));
1041          (void)(aset1((V159),fixint((V163)),/* INLINE-ARGS */V165));          (void)(aset1((V154),fixint((V158)),/* INLINE-ARGS */V160));
1042          V163= one_plus((V163));          V158= one_plus((V158));
1043          goto T433;}}          goto T431;}}
1044  goto T421;  goto T419;
1045  T421:;  T419:;
1046          {register object V166;          {register object V161;
1047          register object V167;          register object V162;
1048          V166= (V157);          V161= (V152);
1049          V167= car((V166));          V162= car((V161));
1050  goto T446;  goto T444;
1051  T446:;  T444:;
1052          if(!(endp_prop((V166)))){          if(!(endp_prop((V161)))){
1053          goto T447;}          goto T445;}
1054          goto T442;          goto T440;
1055  goto T447;  goto T445;
1056  T447:;  T445:;
1057          V158= car(cddddr((V167)));          V153= car(cddddr((V162)));
1058          {register object V168;          {register object V163;
1059          V168= caddr((V167));          V163= caddr((V162));
1060          base[1]= (V168);          base[1]= (V163);
1061          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1062          (void) (*Lnk121)();          (void) (*Lnk119)();
1063          vs_top=sup;          vs_top=sup;
1064          V169= vs_base[0];          V164= vs_base[0];
1065          if(!(number_compare(V169,symbol_value(VV[57]))<=0)){          if(!(number_compare(V164,symbol_value(VV[55]))<=0)){
1066          goto T453;}          goto T451;}
1067          base[1]= (V168);          base[1]= (V163);
1068          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1069          (void) (*Lnk122)();          (void) (*Lnk120)();
1070          vs_top=sup;          vs_top=sup;
1071          V170= vs_base[0];          V165= vs_base[0];
1072          (void)(aset1((V159),fixint((V158)),V170));}          (void)(aset1((V154),fixint((V153)),V165));}
1073  goto T453;  goto T451;
1074  T453:;  T451:;
1075          V166= cdr((V166));          V161= cdr((V161));
1076          V167= car((V166));          V162= car((V161));
1077          goto T446;}          goto T444;}
1078  goto T442;  goto T440;
1079  T442:;  T440:;
1080          V171 = make_fixnum((long)length(symbol_value(VV[58])));          V166 = make_fixnum((long)length(symbol_value(VV[56])));
1081          if(!(number_compare((V155),V171)<0)){          if(!(number_compare((V150),V166)<0)){
1082          goto T467;}          goto T465;}
1083          {register object V173;          {register object V168;
1084          V173= small_fixnum(0);          V168= small_fixnum(0);
1085  goto T472;  goto T470;
1086  T472:;  T470:;
1087          if(!(number_compare((V173),V155)>=0)){          if(!(number_compare((V168),V150)>=0)){
1088          goto T473;}          goto T471;}
1089          goto T469;          goto T467;
1090  goto T473;  goto T471;
1091  T473:;  T471:;
1092          {long V174= fix(aref1((V159),fixint((V173))));          {long V169= fix(aref1((V154),fixint((V168))));
1093          if((/* INLINE-ARGS */V174)==(0)){          if((/* INLINE-ARGS */V169)==(0)){
1094          goto T477;}}          goto T475;}}
1095          {object V175 = (V159);          {object V170 = (V154);
1096          VMR7(V175)}          VMR7(V170)}
1097  goto T477;  goto T475;
1098  T477:;  T475:;
1099          V173= one_plus((V173));          V168= one_plus((V168));
1100          goto T472;}          goto T470;}
 goto T469;  
 T469:;  
         {object V176 = symbol_value(VV[58]);  
         VMR7(V176)}  
1101  goto T467;  goto T467;
1102  T467:;  T467:;
1103          {object V177 = (V159);          {object V171 = symbol_value(VV[56]);
1104          VMR7(V177)}}}          VMR7(V171)}
1105    goto T465;
1106    T465:;
1107            {object V172 = (V154);
1108            VMR7(V172)}}}
1109          base[0]=base[0];          base[0]=base[0];
1110          return Cnil;          return Cnil;
1111  }  }
1112  /*      local entry for function ROUND-UP       */  /*      local entry for function ROUND-UP       */
1113    
1114  static object LI8(V180,V181)  static object LI8(V175,V176)
1115    
1116  long V180;long V181;  long V175;long V176;
1117  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
1118  goto TTL;  goto TTL;
1119  TTL:;  TTL:;
1120          base[0]= make_fixnum(V180);          base[0]= make_fixnum(V175);
1121          base[1]= make_fixnum(V181);          base[1]= make_fixnum(V176);
1122          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1123          Lceiling();          Lceiling();
1124          vs_top=sup;          vs_top=sup;
1125          V180= fix(vs_base[0]);          V175= fix(vs_base[0]);
1126          {long V182 = (long)(V180)*(V181);          {long V177 = (long)(V175)*(V176);
1127          VMR8((object)V182)}          VMR8((object)V177)}
1128          base[0]=base[0];          base[0]=base[0];
1129  }  }
1130  /*      local entry for function GET-SLOT-POS   */  /*      local entry for function GET-SLOT-POS   */
1131    
1132  static object LI9(V186,V187,V188)  static object LI9(V181,V182,V183)
1133    
1134  object V186;object V187;object V188;  object V181;object V182;object V183;
1135  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
1136  goto TTL;  goto TTL;
1137  TTL:;  TTL:;
1138          {register object V189;          {register object V184;
1139          object V190;          object V185;
1140          object V191;          object V186;
1141          V189= Cnil;          V184= Cnil;
1142          V190= Cnil;          V185= Cnil;
1143          V191= Cnil;          V186= Cnil;
1144          {register object V192;          {register object V187;
1145          register object V193;          register object V188;
1146          V192= (V188);          V187= (V183);
1147          V193= car((V192));          V188= car((V187));
1148  goto T495;  goto T493;
1149  T495:;  T493:;
1150          if(!(endp_prop((V192)))){          if(!(endp_prop((V187)))){
1151          goto T496;}          goto T494;}
1152          goto T491;          goto T489;
1153  goto T496;  goto T494;
1154  T496:;  T494:;
1155          if(((V193))==Cnil){          if(((V188))==Cnil){
1156          goto T500;}          goto T498;}
1157          if((car((V193)))==Cnil){          if((car((V188)))==Cnil){
1158          goto T500;}          goto T498;}
1159          V189= (*(LnkLI117))(caddr((V193)));          V184= (*(LnkLI115))(caddr((V188)));
1160          if(type_of(cddr(V193))!=t_cons)FEwrong_type_argument(Scons,cddr(V193));          if(type_of(cddr(V188))!=t_cons)FEwrong_type_argument(Scons,cddr(V188));
1161          (cddr(V193))->c.c_car = V189;          (cddr(V188))->c.c_car = V184;
1162          (void)(cddr(V193));          (void)(cddr(V188));
1163          {register object V196;          {register object V191;
1164          V196= cadr((V193));          V191= cadr((V188));
1165          base[1]= (V196);          base[1]= (V191);
1166          base[2]= (V189);          base[2]= (V184);
1167          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1168          (void) (*Lnk123)();          (void) (*Lnk121)();
1169          vs_top=sup;          vs_top=sup;
1170          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1171          goto T509;}          goto T507;}
1172          if(!(type_of((V196))==t_symbol)){          if(!(type_of((V191))==t_symbol)){
1173          goto T515;}          goto T513;}
1174          base[1]= (V196);          base[1]= (V191);
1175          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1176          Lconstantp();          Lconstantp();
1177          vs_top=sup;          vs_top=sup;
1178          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1179          goto T515;}          goto T513;}
1180          base[1]= (V196);          base[1]= (V191);
1181          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1182          Lsymbol_value();          Lsymbol_value();
1183          vs_top=sup;          vs_top=sup;
1184          V196= vs_base[0];          V191= vs_base[0];
1185  goto T515;  goto T513;
1186  T515:;  T513:;
1187          base[1]= (V196);          base[1]= (V191);
1188          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1189          Lconstantp();          Lconstantp();
1190          vs_top=sup;          vs_top=sup;
1191          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1192          goto T523;}          goto T521;}
1193          goto T509;          goto T507;
1194  goto T523;  goto T521;
1195  T523:;  T521:;
1196          {object V198;          {object V193;
1197          V198= (*(LnkLI124))((V196),(V189));          V193= (*(LnkLI122))((V191),(V184));
1198          if(type_of(cdr(V193))!=t_cons)FEwrong_type_argument(Scons,cdr(V193));          if(type_of(cdr(V188))!=t_cons)FEwrong_type_argument(Scons,cdr(V188));
1199          (cdr(V193))->c.c_car = (V198);          (cdr(V188))->c.c_car = (V193);
1200          (void)(cdr(V193));}}          (void)(cdr(V188));}}
1201  goto T509;  goto T507;
1202  T509:;  T507:;
1203          {register object x= (V189),V199= VV[60];          {register object x= (V184),V194= VV[58];
1204          while(!endp(V199))          while(!endp(V194))
1205          if(x==(V199->c.c_car)){          if(x==(V194->c.c_car)){
1206          goto T529;          goto T527;
1207          }else V199=V199->c.c_cdr;          }else V194=V194->c.c_cdr;
1208          goto T500;}          goto T498;}
1209  goto T529;  goto T527;
1210  T529:;  T527:;
1211          V190= Ct;          V185= Ct;
1212  goto T500;  goto T498;
1213  T500:;  T498:;
1214          V192= cdr((V192));          V187= cdr((V187));
1215          V193= car((V192));          V188= car((V187));
1216          goto T495;}          goto T493;}
1217  goto T491;  goto T489;
1218  T491:;  T489:;
1219          {object V200;          {object V195;
1220          if(((V190))==Cnil){          if(((V185))==Cnil){
1221            goto T535;}
1222            V195= Cnil;
1223            goto T534;
1224    goto T535;
1225    T535:;
1226            V196 = make_fixnum((long)length(symbol_value(VV[57])));
1227            if(number_compare((V181),V196)<0){
1228          goto T537;}          goto T537;}
1229          V200= Cnil;          V195= Cnil;
1230          goto T536;          goto T534;
1231  goto T537;  goto T537;
1232  T537:;  T537:;{object V197;
1233          V201 = make_fixnum((long)length(symbol_value(VV[59])));          V197= symbol_value(VV[57]);
         if(number_compare((V186),V201)<0){  
         goto T539;}  
         V200= Cnil;  
         goto T536;  
 goto T539;  
 T539:;{object V202;  
         V202= symbol_value(VV[59]);  
1234          base[0]= Ct;          base[0]= Ct;
1235          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1236          (void) (*Lnk125)();          (void) (*Lnk123)();
1237          vs_top=sup;          vs_top=sup;
1238          V203= vs_base[0];          V198= vs_base[0];
1239          V200= list(3,V202,number_times((V186),V203),Cnil);}          V195= list(3,V197,number_times((V181),V198),Cnil);}
1240  goto T536;  goto T534;
1241  T536:;  T534:;
1242          if(((V200))==Cnil){          if(((V195))==Cnil){
1243          goto T544;}          goto T542;}
1244          {object V204 = (V200);          {object V199 = (V195);
1245          VMR9(V204)}          VMR9(V199)}
1246  goto T544;  goto T542;
1247  T544:;  T542:;
1248          {object V205;          {object V200;
1249          register long V206;          register long V201;
1250          long V207;          long V202;
1251          long V208;          long V203;
1252          object V209;          object V204;
1253          long V210;          long V205;
1254          V205= (VFUN_NARGS=5,(*(LnkLI120))((V186),VV[52],VV[61],VV[54],Ct));          V200= (VFUN_NARGS=5,(*(LnkLI118))((V181),VV[50],VV[59],VV[52],Ct));
1255          V206= 0;          V201= 0;
1256          V207= 0;          V202= 0;
1257          V208= 0;          V203= 0;
1258          V210= 0;          V205= 0;
1259          V209= Cnil;          V204= Cnil;
1260          {register object V211;          {register object V206;
1261          register object V212;          register object V207;
1262          V211= (V188);          V206= (V183);
1263          V212= car((V211));          V207= car((V206));
1264  goto T555;  goto T553;
1265  T555:;  T553:;
1266          if(!(endp_prop((V211)))){          if(!(endp_prop((V206)))){
1267          goto T556;}          goto T554;}
1268          goto T551;          goto T549;
1269  goto T556;  goto T554;
1270  T556:;  T554:;
1271          V209= caddr((V212));          V204= caddr((V207));
1272          base[1]= (V209);          base[1]= (V204);
1273          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1274          (void) (*Lnk121)();          (void) (*Lnk119)();
1275          vs_top=sup;          vs_top=sup;
1276          V208= fix(vs_base[0]);          V203= fix(vs_base[0]);
1277          V213 = make_fixnum(V208);          V208 = make_fixnum(V203);
1278          if(number_compare(V213,symbol_value(VV[57]))<=0){          if(number_compare(V208,symbol_value(VV[55]))<=0){
1279          goto T565;}          goto T563;}
1280          V209= Ct;          V204= Ct;
1281          if(type_of(cddr(V212))!=t_cons)FEwrong_type_argument(Scons,cddr(V212));          if(type_of(cddr(V207))!=t_cons)FEwrong_type_argument(Scons,cddr(V207));
1282          (cddr(V212))->c.c_car = Ct;          (cddr(V207))->c.c_car = Ct;
1283          (void)(cddr(V212));          (void)(cddr(V207));
1284          V208= fix(symbol_value(VV[57]));          V203= fix(symbol_value(VV[55]));
1285          V212= nconc((V212),VV[62]);          V207= nconc((V207),VV[60]);
1286  goto T565;  goto T563;
1287  T565:;  T563:;
1288          V210= (long)(*(LnkLI126))(V206,V208);          V205= (long)(*(LnkLI124))(V201,V203);
1289          if(!((V206)==(V210))){          if(!((V201)==(V205))){
1290          goto T578;}          goto T576;}
1291          goto T577;          goto T575;
1292  goto T578;  goto T576;
1293  T578:;  T576:;
1294          V191= Ct;          V186= Ct;
1295  goto T577;  goto T575;
1296  T577:;  T575:;
1297          V206= V210;          V201= V205;
1298          V216 = make_fixnum(V206);          V211 = make_fixnum(V201);
1299          (void)(aset1((V205),V207,V216));          (void)(aset1((V200),V202,V211));
1300          V217 = make_fixnum(V206);          V212 = make_fixnum(V201);
1301          base[1]= (V209);          base[1]= (V204);
1302          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1303          (void) (*Lnk125)();          (void) (*Lnk123)();
1304          vs_top=sup;          vs_top=sup;
1305          V218= vs_base[0];          V213= vs_base[0];
1306          V206= fix(number_plus(V217,V218));          V201= fix(number_plus(V212,V213));
1307          V207= (long)(V207)+(1);          V202= (long)(V202)+(1);
1308          V211= cdr((V211));          V206= cdr((V206));
1309          V212= car((V211));          V207= car((V206));
1310          goto T555;}          goto T553;}
1311  goto T551;  goto T549;
1312  T551:;  T549:;
1313          base[0]= Ct;          base[0]= Ct;
1314          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1315          (void) (*Lnk125)();          (void) (*Lnk123)();
1316          vs_top=sup;          vs_top=sup;
1317          V219= vs_base[0];          V214= vs_base[0];
1318          V220 = make_fixnum((long)(*(LnkLI126))(V206,fix(V219)));          V215 = make_fixnum((long)(*(LnkLI124))(V201,fix(V214)));
1319          {object V221 = list(3,(V205),V220,(V191));          {object V216 = list(3,(V200),V215,(V186));
1320          VMR9(V221)}}}}          VMR9(V216)}}}}
1321          base[0]=base[0];          base[0]=base[0];
1322          return Cnil;          return Cnil;
1323  }  }
1324  /*      local entry for function DEFINE-STRUCTURE       */  /*      local entry for function DEFINE-STRUCTURE       */
1325    
1326  static object LI10(V233,V232,V231,V230,V229,V228,V227,V226,V225,V224,V223,V222,va_alist)  static object LI10(V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218,V217,va_alist)
1327          object V233,V232,V231,V230,V229,V228,V227,V226,V225,V224,V223,V222;          object V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218,V217;
1328          va_dcl          va_dcl
1329  {        {      
1330          va_list ap;          va_list ap;
1331          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
1332          {object V234;          {object V229;
1333            register object V230;
1334            object V231;
1335            object V232;
1336            object V233;
1337            object V234;
1338          register object V235;          register object V235;
1339          object V236;          object V236;
1340          object V237;          object V237;
1341          object V238;          object V238;
1342          object V239;          object V239;
1343          register object V240;          object V240;
1344          object V241;          register object V241;
         object V242;  
         object V243;  
         object V244;  
         object V245;  
         register object V246;  
1345          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1346          va_start(ap);          va_start(ap);
1347          if(narg <12) too_few_arguments();          if(narg <12) too_few_arguments();
1348          Vcs[0]=MMcons(V233,Cnil);          Vcs[0]=MMcons(V228,Cnil);
1349          V234= V232;          V229= V227;
1350          V235= V231;          V230= V226;
1351          V236= V230;          V231= V225;
1352          V237= V229;          V232= V224;
1353          V238= V228;          V233= V223;
1354          V239= V227;          V234= V222;
1355          V240= V226;          V235= V221;
1356          V241= V225;          V236= V220;
1357          V242= V224;          V237= V219;
1358          V243= V223;          V238= V218;
1359          V244= V222;          V239= V217;
1360          narg = narg - 12;          narg = narg - 12;
1361          if (narg <= 0) goto T597;          if (narg <= 0) goto T595;
1362          else {          else {
1363          V245= va_arg(ap,object);}          V240= va_arg(ap,object);}
1364          if (--narg <= 0) goto T598;          if (--narg <= 0) goto T596;
1365          else {          else {
1366          V246= va_arg(ap,object);}          V241= va_arg(ap,object);}
1367          --narg; goto T599;          --narg; goto T597;
1368    goto T595;
1369    T595:;
1370            V240= Cnil;
1371    goto T596;
1372    T596:;
1373            V241= Cnil;
1374  goto T597;  goto T597;
1375  T597:;  T597:;
1376          V245= Cnil;          {object V242;
1377  goto T598;          object V243;
1378  T598:;          V242= Cnil;
1379          V246= Cnil;          V243= Cnil;
1380  goto T599;          if(type_of((V230))==t_cons){
1381  T599:;          goto T603;}
1382          {object V247;          goto T602;
1383          object V248;  goto T603;
1384          V247= Cnil;  T603:;
1385          V248= Cnil;          if((car((V230)))==(VV[19])){
         if(type_of((V235))==t_cons){  
1386          goto T605;}          goto T605;}
1387          goto T604;          goto T602;
1388  goto T605;  goto T605;
1389  T605:;  T605:;
1390          if((car((V235)))==(VV[19])){          V230= VV[19];
1391          goto T607;}  goto T602;
1392          goto T604;  T602:;
1393  goto T607;          V243= make_fixnum((long)length((V232)));
1394  T607:;          {register object V244;
1395          V235= VV[19];          register object V245;
1396  goto T604;          V244= (V232);
1397  T604:;          V245= car((V244));
1398          V248= make_fixnum((long)length((V237)));  goto T614;
1399          {register object V249;  T614:;
1400          register object V250;          if(!(endp_prop((V244)))){
1401          V249= (V237);          goto T615;}
1402          V250= car((V249));          goto T610;
1403  goto T616;  goto T615;
1404  T616:;  T615:;
1405          if(!(endp_prop((V249)))){          if((V245)==Cnil){
1406          goto T617;}          goto T619;}
1407          goto T612;          if((car((V245)))!=Cnil){
1408  goto T617;          goto T620;}
1409  T617:;          goto T619;
1410          if((V250)==Cnil){  goto T620;
1411          goto T621;}  T620:;
         if((car((V250)))!=Cnil){  
         goto T622;}  
         goto T621;  
 goto T622;  
 T622:;  
1412          base[1]= (Vcs[0]->c.c_car);          base[1]= (Vcs[0]->c.c_car);
1413          base[2]= (V234);          base[2]= (V229);
1414          base[3]= (V235);          base[3]= (V230);
1415          base[4]= (V236);          base[4]= (V231);
1416          base[5]= (V240);          base[5]= (V235);
1417          base[6]= (V246);          base[6]= (V241);
1418          {object V251;          {object V246;
1419          V251= (V250);          V246= (V245);
1420           vs_top=base+7;           vs_top=base+7;
1421           while(!endp(V251))           while(!endp(V246))
1422           {vs_push(car(V251));V251=cdr(V251);}           {vs_push(car(V246));V246=cdr(V246);}
1423          vs_base=base+1;}          vs_base=base+1;}
1424          (void) (*Lnk127)();          (void) (*Lnk125)();
1425          vs_top=sup;          vs_top=sup;
1426  goto T621;  goto T619;
1427  T621:;  T619:;
1428          V249= cdr((V249));          V244= cdr((V244));
1429          V250= car((V249));          V245= car((V244));
1430          goto T616;}          goto T614;}
1431  goto T612;  goto T610;
1432  T612:;  T610:;
1433          if(((V238))==Cnil){          if(((V233))==Cnil){
1434          goto T636;}          goto T634;}
1435          if(((V246))!=Cnil){          if(((V241))!=Cnil){
1436          goto T636;}          goto T634;}
1437          base[0]= (V238);          base[0]= (V233);
1438          {object V252= (V235);          {object V247= (V230);
1439          if((V252!= Cnil))goto T643;          if((V247!= Cnil))goto T641;
1440            base[1]= symbol_function(VV[126]);
1441            goto T640;
1442    goto T641;
1443    T641:;
1444            if((V247!= VV[20]))goto T642;
1445            base[1]= symbol_function(VV[127]);
1446            goto T640;
1447    goto T642;
1448    T642:;
1449            if((V247!= VV[19]))goto T643;
1450          base[1]= symbol_function(VV[128]);          base[1]= symbol_function(VV[128]);
1451          goto T642;          goto T640;
1452  goto T643;  goto T643;
1453  T643:;  T643:;
1454          if((V252!= VV[20]))goto T644;          FEerror("The ECASE key value ~s is illegal.",1,V247);
         base[1]= symbol_function(VV[129]);  
         goto T642;  
 goto T644;  
 T644:;  
         if((V252!= VV[19]))goto T645;  
         base[1]= symbol_function(VV[130]);  
         goto T642;  
 goto T645;  
 T645:;  
         FEerror("The ECASE key value ~s is illegal.",1,V252);  
1455          base[1]= Cnil;          base[1]= Cnil;
1456          goto T642;}          goto T640;}
1457  goto T642;  goto T640;
1458  T642:;  T640:;
1459          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1460          siLfset();          siLfset();
1461          vs_top=sup;          vs_top=sup;
1462  goto T636;  goto T634;
1463  T636:;  T634:;
1464          if(((V235))!=Cnil){          if(((V230))!=Cnil){
1465          goto T648;}          goto T646;}
1466          if(!(((Vcs[0]->c.c_car))==(VV[55]))){          if(!(((Vcs[0]->c.c_car))==(VV[53]))){
1467          goto T648;}          goto T646;}
1468          base[1]= Ct;          base[1]= Ct;
1469          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1470          (void) (*Lnk125)();          (void) (*Lnk123)();
1471          vs_top=sup;          vs_top=sup;
1472          V253= vs_base[0];          V248= vs_base[0];
1473          V254= number_times((V248),V253);          V249= number_times((V243),V248);
1474          base[0]= (VFUN_NARGS=5,(*(LnkLI120))(/* INLINE-ARGS */V254,VV[52],VV[63],VV[54],Ct));          base[0]= (VFUN_NARGS=5,(*(LnkLI118))(/* INLINE-ARGS */V249,VV[50],VV[61],VV[52],Ct));
1475          base[1]= (*(LnkLI131))((V248),Cnil,(V237));          base[1]= (*(LnkLI129))((V243),Cnil,(V232));
1476          base[2]= symbol_value(VV[59]);          base[2]= symbol_value(VV[57]);
1477          base[3]= (V237);          base[3]= (V232);
1478          base[4]= Ct;          base[4]= Ct;
1479          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1480          (void) (*Lnk132)();          (void) (*Lnk130)();
1481          vs_top=sup;          vs_top=sup;
1482          V247= vs_base[0];          V242= vs_base[0];
1483          goto T646;          goto T644;
1484  goto T648;  goto T646;
1485  T648:;  T646:;
1486          {object V255;          {object V250;
1487          object V256;          object V251;
1488          object V257;          object V252;
1489          object V258;          object V253;
1490          if((V240)==Cnil){          if((V235)==Cnil){
1491          V258= Cnil;          V253= Cnil;
1492          goto T660;}          goto T658;}
1493          V258= get((V240),VV[55],Cnil);          V253= get((V235),VV[53],Cnil);
1494  goto T660;  goto T658;
1495  T660:;  T658:;
1496          V255= Cnil;          V250= Cnil;
1497          V256= small_fixnum(0);          V251= small_fixnum(0);
1498          V257= Cnil;          V252= Cnil;
1499          if(((V258))==Cnil){          if(((V253))==Cnil){
1500          goto T661;}          goto T659;}
1501          if((structure_ref((V258),VV[55],11))==Cnil){          if((structure_ref((V253),VV[53],11))==Cnil){
1502          goto T664;}          goto T662;}
1503          if((structure_ref((V258),VV[55],3))==Cnil){          if((structure_ref((V253),VV[53],3))==Cnil){
1504          goto T665;}          goto T663;}
1505          {object V259;          {object V254;
1506          V259= get((Vcs[0]->c.c_car),VV[55],Cnil);          V254= get((Vcs[0]->c.c_car),VV[53],Cnil);
1507          if((V259)==Cnil){          if((V254)==Cnil){
1508          goto T670;}          goto T668;}
1509          V260= structure_ref((V259),VV[55],4);          V255= structure_ref((V254),VV[53],4);
1510          if((/* INLINE-ARGS */V260)==((V258))){          if((/* INLINE-ARGS */V255)==((V253))){
1511          goto T664;}}          goto T662;}}
1512  goto T670;  goto T668;
1513  T670:;  T668:;
1514  goto T665;  goto T663;
1515  T665:;  T663:;
1516          (void)((VFUN_NARGS=2,(*(LnkLI133))(VV[64],(V240))));          (void)((VFUN_NARGS=2,(*(LnkLI131))(VV[62],(V235))));
1517  goto T664;  goto T662;
1518  T664:;  T662:;
1519          {object V262;          {object V257;
1520          base[1]= (Vcs[0]->c.c_car);          base[1]= (Vcs[0]->c.c_car);
1521          base[2]= structure_ref(V258,VV[55],3);          base[2]= structure_ref(V253,VV[53],3);
1522          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1523          Ladjoin();          Ladjoin();
1524          vs_top=sup;          vs_top=sup;
1525          V262= vs_base[0];          V257= vs_base[0];
1526          (void)(structure_set(V258,VV[55],3,(V262)));}          (void)(structure_set(V253,VV[53],3,(V257)));}
1527  goto T661;  goto T659;
1528  T661:;  T659:;
1529          if(((V235))!=Cnil){          if(((V230))!=Cnil){
1530          goto T675;}          goto T673;}
1531          V255= (*(LnkLI134))((V248),(V240),(V237));          V250= (*(LnkLI132))((V243),(V235),(V232));
1532          V256= cadr((V255));          V251= cadr((V250));
1533          V257= caddr((V255));          V252= caddr((V250));
1534          V255= car((V255));          V250= car((V250));
1535  goto T675;  goto T673;
1536  T675:;  T673:;
1537          if(((V235))==Cnil){          if(((V230))==Cnil){
1538          goto T687;}          goto T685;}
1539          V263= Cnil;          V258= Cnil;
1540          goto T686;          goto T684;
1541  goto T687;  goto T685;
1542  T687:;  T685:;
1543          V263= (*(LnkLI131))((V248),(V240),(V237));          V258= (*(LnkLI129))((V243),(V235),(V232));
1544  goto T686;  goto T684;
1545  T686:;  T684:;
1546          V247= (VFUN_NARGS=32,(*(LnkLI135))(VV[65],(Vcs[0]->c.c_car),VV[66],(V248),VV[67],V263,VV[68],(V255),VV[69],(V256),VV[70],(V257),VV[71],(V239),VV[72],(V258),VV[73],(V241),VV[74],(V237),VV[75],(V242),VV[76],(V243),VV[77],(V235),VV[78],(V236),VV[79],(V245),VV[80],(V234)));}          V242= (VFUN_NARGS=32,(*(LnkLI133))(VV[63],(Vcs[0]->c.c_car),VV[64],(V243),VV[65],V258,VV[66],(V250),VV[67],(V251),VV[68],(V252),VV[69],(V234),VV[70],(V253),VV[71],(V236),VV[72],(V232),VV[73],(V237),VV[74],(V238),VV[75],(V230),VV[76],(V231),VV[77],(V240),VV[78],(V229)));}
1547  goto T646;  goto T644;
1548  T646:;  T644:;
1549          {object V264;          {object V259;
1550          V264= get((Vcs[0]->c.c_car),VV[55],Cnil);          V259= get((Vcs[0]->c.c_car),VV[53],Cnil);
1551          if(!(((Vcs[0]->c.c_car))==(VV[55]))){          if(!(((Vcs[0]->c.c_car))==(VV[53]))){
         goto T693;}  
         if(((V264))==Cnil){  
         goto T695;}  
         (void)((VFUN_NARGS=1,(*(LnkLI133))(VV[81])));  
 goto T695;  
 T695:;  
         if((V264)!=Cnil){  
1552          goto T691;}          goto T691;}
1553          (void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));          if(((V259))==Cnil){
1554          goto T691;          goto T693;}
1555            (void)((VFUN_NARGS=1,(*(LnkLI131))(VV[79])));
1556  goto T693;  goto T693;
1557  T693:;  T693:;
1558          if(((V264))==Cnil){          if((V259)!=Cnil){
1559            goto T689;}
1560            (void)(sputprop((Vcs[0]->c.c_car),VV[53],(V242)));
1561            goto T689;
1562    goto T691;
1563    T691:;
1564            if(((V259))==Cnil){
1565            goto T697;}
1566            (void)((*(LnkLI134))((V259),(V242),(Vcs[0]->c.c_car)));
1567            goto T689;
1568    goto T697;
1569    T697:;
1570            (void)(sputprop((Vcs[0]->c.c_car),VV[53],(V242)));
1571    goto T689;
1572    T689:;
1573            if(((V240))==Cnil){
1574          goto T699;}          goto T699;}
1575          (void)((*(LnkLI136))((V264),(V247),(Vcs[0]->c.c_car)));          (void)(sputprop((Vcs[0]->c.c_car),VV[80],(V240)));
         goto T691;  
1576  goto T699;  goto T699;
1577  T699:;  T699:;
1578          (void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));          if(((V230))!=Cnil){
1579  goto T691;          goto T687;}
1580  T691:;          if(((V239))==Cnil){
1581          if(((V245))==Cnil){          goto T687;}
1582          goto T701;}          base[0]= (V239);
         (void)(sputprop((Vcs[0]->c.c_car),VV[82],(V245)));  
 goto T701;  
 T701:;  
         if(((V235))!=Cnil){  
         goto T689;}  
         if(((V244))==Cnil){  
         goto T689;}  
         base[0]= (V244);  
1583          base[1]= VV[3];          base[1]= VV[3];
1584          base[2]= VV[83];          base[2]= VV[81];
1585          base[3]= Ct;          base[3]= Ct;
1586          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1587          (void) (*Lnk111)();          (void) (*Lnk109)();
1588          vs_top=sup;          vs_top=sup;
1589          if((V246)!=Cnil){          if((V241)!=Cnil){
1590          goto T713;}          goto T711;}
1591          base[0]= (V244);          base[0]= (V239);
1592          base[1]=          base[1]=
1593          make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);          make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);
1594          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1595          siLfset();          siLfset();
1596          vs_top=sup;          vs_top=sup;
1597  goto T713;  goto T711;
1598  T713:;  T711:;
1599          (void)(sputprop((V244),VV[84],VV[85]));          (void)(sputprop((V239),VV[82],VV[83]));
1600          (void)(sputprop((V244),VV[86],(Vcs[0]->c.c_car)));}          (void)(sputprop((V239),VV[84],(Vcs[0]->c.c_car)));}
1601  goto T689;  goto T687;
1602  T689:;  T687:;
1603          {object V265 = Cnil;          {object V260 = Cnil;
1604          VMR10(V265)}}          VMR10(V260)}}
1605          va_end(ap);          va_end(ap);
1606          base[0]=base[0];          base[0]=base[0];
1607          return Cnil;}          return Cnil;}
# Line 1623  static void L11() Line 1614  static void L11()
1614          vs_reserve(VM11);          vs_reserve(VM11);
1615          check_arg(2);          check_arg(2);
1616          vs_top=sup;          vs_top=sup;
1617          {object V266=base[0]->c.c_cdr;          {object V261=base[0]->c.c_cdr;
1618          if(endp(V266))invalid_macro_call();          if(endp(V261))invalid_macro_call();
1619          base[2]= (V266->c.c_car);          base[2]= (V261->c.c_car);
1620          V266=V266->c.c_cdr;          V261=V261->c.c_cdr;
1621          base[3]= V266;}          base[3]= V261;}
1622          {register object V267;          {register object V262;
1623          object V268;          object V263;
1624            register object V264;
1625            register object V265;
1626            register object V266;
1627            register object V267;
1628            register object V268;
1629          register object V269;          register object V269;
1630          register object V270;          register object V270;
1631          register object V271;          register object V271;
# Line 1638  static void L11() Line 1634  static void L11()
1634          register object V274;          register object V274;
1635          register object V275;          register object V275;
1636          register object V276;          register object V276;
1637          register object V277;          object V277;
1638          register object V278;          object V278;
1639          register object V279;          register object V279;
1640          register object V280;          V262= base[3];
1641          register object V281;          V263= Cnil;
1642          object V282;          V264= Cnil;
1643          object V283;          V265= Cnil;
1644          register object V284;          V266= Cnil;
1645          V267= base[3];          V267= Cnil;
1646          V268= Cnil;          V268= Cnil;
1647          V269= Cnil;          V269= Cnil;
1648          V270= Cnil;          V270= Cnil;
# Line 1659  static void L11() Line 1655  static void L11()
1655          V277= Cnil;          V277= Cnil;
1656          V278= Cnil;          V278= Cnil;
1657          V279= Cnil;          V279= Cnil;
         V280= Cnil;  
         V281= Cnil;  
         V282= Cnil;  
         V283= Cnil;  
         V284= Cnil;  
1658          if(!(type_of(base[2])==t_cons)){          if(!(type_of(base[2])==t_cons)){
1659          goto T717;}          goto T715;}
1660          V268= cdr(base[2]);          V263= cdr(base[2]);
1661          base[2]= car(base[2]);          base[2]= car(base[2]);
1662  goto T717;  goto T715;
1663  T717:;  T715:;
1664          base[4]= coerce_to_string(base[2]);          base[4]= coerce_to_string(base[2]);
1665          base[5]= VV[87];          base[5]= VV[85];
1666          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1667          (void) (*Lnk109)();          (void) (*Lnk107)();
1668          vs_top=sup;          vs_top=sup;
1669          V269= vs_base[0];          V264= vs_base[0];
1670          base[5]= VV[88];          base[5]= VV[86];
1671          base[6]= coerce_to_string(base[2]);          base[6]= coerce_to_string(base[2]);
1672          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1673          (void) (*Lnk109)();          (void) (*Lnk107)();
1674          vs_top=sup;          vs_top=sup;
1675          base[4]= vs_base[0];          base[4]= vs_base[0];
1676          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1677          Lintern();          Lintern();
1678          vs_top=sup;          vs_top=sup;
1679          V271= vs_base[0];          V266= vs_base[0];
1680          base[5]= VV[89];          base[5]= VV[87];
1681          base[6]= coerce_to_string(base[2]);          base[6]= coerce_to_string(base[2]);
1682          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1683          (void) (*Lnk109)();          (void) (*Lnk107)();
1684          vs_top=sup;          vs_top=sup;
1685          base[4]= vs_base[0];          base[4]= vs_base[0];
1686          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1687          Lintern();          Lintern();
1688          vs_top=sup;          vs_top=sup;
1689          V273= vs_base[0];          V268= vs_base[0];
1690          base[5]= coerce_to_string(base[2]);          base[5]= coerce_to_string(base[2]);
1691          base[6]= VV[90];          base[6]= VV[88];
1692          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1693          (void) (*Lnk109)();          (void) (*Lnk107)();
1694          vs_top=sup;          vs_top=sup;
1695          base[4]= vs_base[0];          base[4]= vs_base[0];
1696          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1697          Lintern();          Lintern();
1698          vs_top=sup;          vs_top=sup;
1699          V274= vs_base[0];          V269= vs_base[0];
1700          {register object V285;          {register object V280;
1701          register object V286;          register object V281;
1702          register object V287;          register object V282;
1703          V285= (V268);          V280= (V263);
1704          V286= Cnil;          V281= Cnil;
1705          V287= Cnil;          V282= Cnil;
1706  goto T744;  goto T742;
1707  T744:;  T742:;
1708          if(!(endp_prop((V285)))){          if(!(endp_prop((V280)))){
1709          goto T745;}          goto T743;}
1710          goto T742;          goto T740;
1711  goto T745;  goto T743;
1712  T745:;  T743:;
1713          if(!(type_of(car((V285)))==t_cons)){          if(!(type_of(car((V280)))==t_cons)){
1714          goto T751;}          goto T749;}
1715          if(endp_prop(cdar((V285)))){          if(endp_prop(cdar((V280)))){
1716          goto T751;}          goto T749;}
1717          V286= caar((V285));          V281= caar((V280));
1718          V287= cadar((V285));          V282= cadar((V280));
1719          {object V288= (V286);          {object V283= (V281);
1720          if((V288!= VV[80]))goto T759;          if((V283!= VV[78]))goto T757;
1721          if(((V287))!=Cnil){          if(((V282))!=Cnil){
1722          goto T761;}          goto T759;}
1723          V269= VV[91];          V264= VV[89];
1724          goto T749;          goto T747;
 goto T761;  
 T761:;  
         V269= (V287);  
         goto T749;  
1725  goto T759;  goto T759;
1726  T759:;  T759:;
1727          if((V288!= VV[137]))goto T765;          V264= (V282);
1728          if(((V287))!=Cnil){          goto T747;
1729          goto T767;}  goto T757;
1730          V272= Ct;  T757:;
1731          goto T749;          if((V283!= VV[135]))goto T763;
1732  goto T767;          if(((V282))!=Cnil){
1733  T767:;          goto T765;}
1734          if(!(endp_prop(cddar((V285))))){          V267= Ct;
1735          goto T771;}          goto T747;
         V270= make_cons((V287),(V270));  
         goto T749;  
 goto T771;  
 T771:;  
         V270= make_cons(cdar((V285)),(V270));  
         goto T749;  
1736  goto T765;  goto T765;
1737  T765:;  T765:;
1738          if((V288!= VV[138]))goto T775;          if(!(endp_prop(cddar((V280))))){
1739          V273= (V287);          goto T769;}
1740          goto T749;          V265= make_cons((V282),(V265));
1741            goto T747;
1742    goto T769;
1743    T769:;
1744            V265= make_cons(cdar((V280)),(V265));
1745            goto T747;
1746    goto T763;
1747    T763:;
1748            if((V283!= VV[136]))goto T773;
1749            V268= (V282);
1750            goto T747;
1751    goto T773;
1752    T773:;
1753            if((V283!= VV[52]))goto T775;
1754            V279= (V282);
1755            goto T747;
1756  goto T775;  goto T775;
1757  T775:;  T775:;
1758          if((V288!= VV[54]))goto T777;          if((V283!= VV[137]))goto T777;
1759          V284= (V287);          V269= (V282);
1760          goto T749;          V270= Ct;
1761            goto T747;
1762  goto T777;  goto T777;
1763  T777:;  T777:;
1764          if((V288!= VV[139]))goto T779;          if((V283!= VV[138]))goto T781;
1765          V274= (V287);          V271= cdar((V280));
1766          V275= Ct;          if((get((V282),VV[53],Cnil))!=Cnil){
1767          goto T749;          goto T747;}
1768  goto T779;          base[4]= VV[90];
1769  T779:;          base[5]= (V282);
         if((V288!= VV[140]))goto T783;  
         V276= cdar((V285));  
         if((get((V287),VV[55],Cnil))!=Cnil){  
         goto T749;}  
         base[4]= VV[92];  
         base[5]= (V287);  
1770          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1771          Lerror();          Lerror();
1772          vs_top=sup;          vs_top=sup;
1773          goto T749;          goto T747;
1774  goto T783;  goto T781;
1775  T783:;  T781:;
1776          if((V288!= VV[73]))goto T790;          if((V283!= VV[71]))goto T788;
1777          if(type_of((V287))==t_cons){          if(type_of((V282))==t_cons){
1778            goto T790;}
1779            goto T789;
1780    goto T790;
1781    T790:;
1782            if((car((V282)))==(VV[91])){
1783          goto T792;}          goto T792;}
1784          goto T791;          goto T789;
1785  goto T792;  goto T792;
1786  T792:;  T792:;
1787          if((car((V287)))==(VV[93])){          V282= cadr((V282));
1788          goto T794;}  goto T789;
1789          goto T791;  T789:;
1790  goto T794;          V272= (V282);
1791  T794:;          goto T747;
1792          V287= cadr((V287));  goto T788;
1793  goto T791;  T788:;
1794  T791:;          if((V283!= VV[75]))goto T796;
1795          V277= (V287);          V273= (V282);
1796          goto T749;          goto T747;
1797  goto T790;  goto T796;
1798  T790:;  T796:;
1799          if((V288!= VV[77]))goto T798;          if((V283!= VV[139]))goto T798;
1800          V278= (V287);          V275= (V282);
1801          goto T749;          goto T747;
1802  goto T798;  goto T798;
1803  T798:;  T798:;
1804          if((V288!= VV[141]))goto T800;          base[4]= VV[92];
1805          V280= (V287);          base[5]= (V281);
         goto T749;  
 goto T800;  
 T800:;  
         base[4]= VV[94];  
         base[5]= (V286);  
1806          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1807          Lerror();          Lerror();
1808          vs_top=sup;          vs_top=sup;
1809          goto T749;}          goto T747;}
1810  goto T751;  goto T749;
1811  T751:;  T749:;
1812          if(!(type_of(car((V285)))==t_cons)){          if(!(type_of(car((V280)))==t_cons)){
1813          goto T806;}          goto T804;}
1814          V286= caar((V285));          V281= caar((V280));
1815          goto T804;          goto T802;
 goto T806;  
 T806:;  
         V286= car((V285));  
1816  goto T804;  goto T804;
1817  T804:;  T804:;
1818          {object V289= (V286);          V281= car((V280));
1819          if((V289!= VV[137]))goto T810;  goto T802;
1820          V270= make_cons((V271),(V270));  T802:;
1821          goto T749;          {object V284= (V281);
1822            if((V284!= VV[135]))goto T808;
1823            V265= make_cons((V266),(V265));
1824            goto T747;
1825    goto T808;
1826    T808:;
1827            if((V284!= VV[78])
1828            && (V284!= VV[136])
1829            && (V284!= VV[137])
1830            && (V284!= VV[71]))goto T810;
1831            goto T747;
1832  goto T810;  goto T810;
1833  T810:;  T810:;
1834          if((V289!= VV[80])          if((V284!= VV[76]))goto T811;
1835          && (V289!= VV[138])          V274= Ct;
1836          && (V289!= VV[139])          goto T747;
1837          && (V289!= VV[73]))goto T812;  goto T811;
1838          goto T749;  T811:;
1839  goto T812;          base[4]= VV[93];
1840  T812:;          base[5]= (V281);
         if((V289!= VV[78]))goto T813;  
         V279= Ct;  
         goto T749;  
 goto T813;  
 T813:;  
         base[4]= VV[95];  
         base[5]= (V286);  
1841          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1842          Lerror();          Lerror();
1843          vs_top=sup;}          vs_top=sup;}
1844  goto T749;  goto T747;
1845  T749:;  T747:;
1846          V285= cdr((V285));          V280= cdr((V280));
1847          goto T744;}          goto T742;}
1848  goto T742;  goto T740;
1849  T742:;  T740:;
1850          base[4]= coerce_to_string((V269));          base[4]= coerce_to_string((V264));
1851          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1852          Lintern();          Lintern();
1853          vs_top=sup;          vs_top=sup;
1854          V269= vs_base[0];          V264= vs_base[0];
1855          if((V276)==Cnil){          if((V271)==Cnil){
1856          goto T823;}          goto T821;}
1857          if(((V277))==Cnil){          if(((V272))==Cnil){
1858          goto T824;}          goto T822;}
1859          goto T823;          goto T821;
1860  goto T824;  goto T822;
1861  T824:;  T822:;
1862          V290= get(car((V276)),VV[55],Cnil);          V285= get(car((V271)),VV[53],Cnil);
1863          V277= structure_ref(V290,VV[55],6);          V272= structure_ref(V285,VV[53],6);
1864  goto T823;  goto T821;
1865  T823:;  T821:;
1866          if(endp_prop((V267))){          if(endp_prop((V262))){
1867          goto T828;}          goto T826;}
1868          if(!(type_of(car((V267)))==t_string)){          if(!(type_of(car((V262)))==t_string)){
1869          goto T828;}          goto T826;}
1870          V283= car((V267));          V278= car((V262));
1871          V267= cdr((V267));          V262= cdr((V262));
1872  goto T828;  goto T826;
1873  T828:;  T826:;
1874          if(((V276))==Cnil){          if(((V271))==Cnil){
1875          goto T836;}          goto T834;}
1876          V291= get(car((V276)),VV[55],Cnil);          V286= get(car((V271)),VV[53],Cnil);
1877          V292= structure_ref(V291,VV[55],16);          V287= structure_ref(V286,VV[53],16);
1878          if(equal((V278),/* INLINE-ARGS */V292)){          if(equal((V273),/* INLINE-ARGS */V287)){
1879          goto T836;}          goto T834;}
1880          base[4]= VV[96];          base[4]= VV[94];
1881          base[5]= car((V276));          base[5]= car((V271));
1882          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1883          Lerror();          Lerror();
1884          vs_top=sup;          vs_top=sup;
1885  goto T836;  goto T834;
1886  T836:;  T834:;
1887          if(((V276))!=Cnil){          if(((V271))!=Cnil){
1888          goto T846;}          goto T844;}
1889          V281= small_fixnum(0);          V276= small_fixnum(0);
1890          goto T844;          goto T842;
 goto T846;  
 T846:;  
         V293= get(car((V276)),VV[55],Cnil);  
         V281= structure_ref(V293,VV[55],14);  
1891  goto T844;  goto T844;
1892  T844:;  T844:;
1893          if(((V278))==Cnil){          V288= get(car((V271)),VV[53],Cnil);
1894          goto T851;}          V276= structure_ref(V288,VV[53],14);
1895          if(((V280))==Cnil){  goto T842;
1896          goto T851;}  T842:;
1897          V281= number_plus((V281),(V280));          if(((V273))==Cnil){
1898  goto T851;          goto T849;}
1899  T851:;          if(((V275))==Cnil){
1900          if(((V278))==Cnil){          goto T849;}
1901          goto T857;}          V276= number_plus((V276),(V275));
1902          if(((V279))==Cnil){  goto T849;
1903          goto T857;}  T849:;
1904          V282= (V281);          if(((V273))==Cnil){
1905          V281= one_plus((V281));          goto T855;}
1906  goto T857;          if(((V274))==Cnil){
1907  T857:;          goto T855;}
1908          {register object V294;          V277= (V276);
1909          register object V295;          V276= one_plus((V276));
1910          V294= (V267);  goto T855;
1911          V295= Cnil;  T855:;
1912  goto T867;          {register object V289;
1913  T867:;          register object V290;
1914          if(!(endp_prop((V294)))){          V289= (V262);
1915          goto T868;}          V290= Cnil;
         V267= nreverse((V295));  
         goto T865;  
 goto T868;  
 T868:;  
         V296= (*(LnkLI142))(car((V294)),(V281));  
         V295= make_cons(/* INLINE-ARGS */V296,(V295));  
         V281= one_plus((V281));  
         V294= cdr((V294));  
         goto T867;}  
1916  goto T865;  goto T865;
1917  T865:;  T865:;
1918          if(((V278))==Cnil){          if(!(endp_prop((V289)))){
1919          goto T880;}          goto T866;}
1920          if(((V279))==Cnil){          V262= nreverse((V290));
1921          goto T880;}          goto T863;
1922          V297= list(2,Cnil,base[2]);  goto T866;
1923          V267= make_cons(/* INLINE-ARGS */V297,(V267));  T866:;
1924  goto T880;          V291= (*(LnkLI140))(car((V289)),(V276));
1925  T880:;          V290= make_cons(/* INLINE-ARGS */V291,(V290));
1926          if(((V278))==Cnil){          V276= one_plus((V276));
1927          goto T886;}          V289= cdr((V289));
1928          if(((V280))==Cnil){          goto T865;}
1929          goto T886;}  goto T863;
1930          base[4]= (V280);  T863:;
1931            if(((V273))==Cnil){
1932            goto T878;}
1933            if(((V274))==Cnil){
1934            goto T878;}
1935            V292= list(2,Cnil,base[2]);
1936            V262= make_cons(/* INLINE-ARGS */V292,(V262));
1937    goto T878;
1938    T878:;
1939            if(((V273))==Cnil){
1940            goto T884;}
1941            if(((V275))==Cnil){
1942            goto T884;}
1943            base[4]= (V275);
1944          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1945          Lmake_list();          Lmake_list();
1946          vs_top=sup;          vs_top=sup;
1947          V298= vs_base[0];          V293= vs_base[0];
1948          V267= append(V298,(V267));          V262= append(V293,(V262));
1949  goto T886;  goto T884;
1950  T886:;  T884:;
1951          {object V299;          {object V294;
1952          V299= (((V276))==Cnil?Ct:Cnil);          V294= (((V271))==Cnil?Ct:Cnil);
1953          if(((V299))==Cnil){          if(((V294))==Cnil){
1954          goto T897;}          goto T895;}
1955          goto T894;          goto T892;
1956  goto T897;  goto T895;
1957  T897:;  T895:;
1958          if(!(endp_prop(cdr((V276))))){          if(!(endp_prop(cdr((V271))))){
1959          goto T900;}          goto T898;}
1960          V300= get(car((V276)),VV[55],Cnil);          V295= get(car((V271)),VV[53],Cnil);
1961          V301= structure_ref(V300,VV[55],7);          V296= structure_ref(V295,VV[53],7);
1962          V267= append(/* INLINE-ARGS */V301,(V267));          V262= append(/* INLINE-ARGS */V296,(V262));
1963          goto T894;          goto T892;
1964  goto T900;  goto T898;
1965  T900:;  T898:;
1966          {object V303;          {object V298;
1967          object V304= cdr((V276));          object V299= cdr((V271));
1968          if(endp(V304)){          if(endp(V299)){
1969          V302= Cnil;          V297= Cnil;
1970          goto T905;}          goto T903;}
1971          base[4]=V303=MMcons(Cnil,Cnil);          base[4]=V298=MMcons(Cnil,Cnil);
1972  goto T906;  goto T904;
1973  T906:;  T904:;
1974          (V303->c.c_car)= (*(LnkLI142))((V304->c.c_car),small_fixnum(0));          (V298->c.c_car)= (*(LnkLI140))((V299->c.c_car),small_fixnum(0));
1975          V304=MMcdr(V304);          V299=MMcdr(V299);
1976          if(endp(V304)){          if(endp(V299)){
1977          V302= base[4];          V297= base[4];
1978          goto T905;}          goto T903;}
1979          V303=MMcdr(V303)=MMcons(Cnil,Cnil);          V298=MMcdr(V298)=MMcons(Cnil,Cnil);
1980          goto T906;}          goto T904;}
1981  goto T905;  goto T903;
1982  T905:;  T903:;
1983          V306= get(car((V276)),VV[55],Cnil);          V301= get(car((V271)),VV[53],Cnil);
1984          V307= structure_ref(V306,VV[55],7);          V302= structure_ref(V301,VV[53],7);
1985          V308= (*(LnkLI119))(V302,/* INLINE-ARGS */V307);          V303= (*(LnkLI117))(V297,/* INLINE-ARGS */V302);
1986          V267= append(/* INLINE-ARGS */V308,(V267));}          V262= append(/* INLINE-ARGS */V303,(V262));}
1987  goto T894;  goto T892;
1988  T894:;  T892:;
1989          if(((V272))==Cnil){          if(((V267))==Cnil){
         goto T911;}  
         if(((V270))==Cnil){  
1990          goto T909;}          goto T909;}
1991          base[4]= VV[97];          if(((V265))==Cnil){
1992            goto T907;}
1993            base[4]= VV[95];
1994          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1995          Lerror();          Lerror();
1996          vs_top=sup;          vs_top=sup;
1997          goto T909;          goto T907;
 goto T911;  
 T911:;  
         if(((V270))!=Cnil){  
         goto T909;}  
         V270= make_cons((V271),Cnil);  
1998  goto T909;  goto T909;
1999  T909:;{object V309;  T909:;
2000          {object V312;          if(((V265))!=Cnil){
2001          object V313= (V270);          goto T907;}
2002          if(endp(V313)){          V265= make_cons((V266),Cnil);
2003          V311= Cnil;  goto T907;
2004          goto T922;}  T907:;{object V304;
2005          base[4]=V312=MMcons(Cnil,Cnil);          {object V307;
2006  goto T923;          object V308= (V265);
2007  T923:;          if(endp(V308)){
2008          base[5]= (V313->c.c_car);          V306= Cnil;
2009            goto T920;}
2010            base[4]=V307=MMcons(Cnil,Cnil);
2011    goto T921;
2012    T921:;
2013            base[5]= (V308->c.c_car);
2014          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2015          Lsymbolp();          Lsymbolp();
2016          vs_top=sup;          vs_top=sup;
2017          (V312->c.c_car)= vs_base[0];          (V307->c.c_car)= vs_base[0];
2018          V313=MMcdr(V313);          V308=MMcdr(V308);
2019          if(endp(V313)){          if(endp(V308)){
2020          V311= base[4];          V306= base[4];
2021          goto T922;}          goto T920;}
2022          V312=MMcdr(V312)=MMcons(Cnil,Cnil);          V307=MMcdr(V307)=MMcons(Cnil,Cnil);
2023          goto T923;}          goto T921;}
 goto T922;  
 T922:;  
         {register object x= Ct,V310= V311;  
         while(!endp(V310))  
         if(eql(x,V310->c.c_car)){  
         V309= V310;  
         goto T921;  
         }else V310=V310->c.c_cdr;  
         V309= Cnil;}  
 goto T921;  
 T921:;  
         if(V309==Cnil)goto T920;  
         goto T919;  
2024  goto T920;  goto T920;
2025  T920:;}  T920:;
2026          base[5]= VV[98];          {register object x= Ct,V305= V306;
2027          base[6]= (V271);          while(!endp(V305))
2028            if(eql(x,V305->c.c_car)){
2029            V304= V305;
2030            goto T919;
2031            }else V305=V305->c.c_cdr;
2032            V304= Cnil;}
2033    goto T919;
2034    T919:;
2035            if(V304==Cnil)goto T918;
2036            goto T917;
2037    goto T918;
2038    T918:;}
2039            base[5]= VV[96];
2040            base[6]= (V266);
2041          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2042          (void) (*Lnk109)();          (void) (*Lnk107)();
2043          vs_top=sup;          vs_top=sup;
2044          base[4]= vs_base[0];          base[4]= vs_base[0];
2045          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2046          Lintern();          Lintern();
2047          vs_top=sup;          vs_top=sup;
2048          V314= vs_base[0];          V309= vs_base[0];
2049          V270= make_cons(V314,(V270));          V265= make_cons(V309,(V265));
2050  goto T919;  goto T917;
2051  T919:;  T917:;
2052          if(((V278))==Cnil){          if(((V273))==Cnil){
2053          goto T931;}          goto T929;}
2054          if(((V279))!=Cnil){          if(((V274))!=Cnil){
2055          goto T931;}          goto T929;}
2056          if(((V275))==Cnil){          if(((V270))==Cnil){
2057          goto T936;}          goto T934;}
2058          base[4]= VV[99];          base[4]= VV[97];
2059          base[5]= (V274);          base[5]= (V269);
2060          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2061          Lerror();          Lerror();
2062          vs_top=sup;          vs_top=sup;
2063  goto T936;  goto T934;
2064  T936:;  T934:;
2065          V274= Cnil;          V269= Cnil;
2066  goto T931;  goto T929;
2067  T931:;  T929:;
2068          if(((V276))==Cnil){          if(((V271))==Cnil){
2069          goto T942;}          goto T940;}
2070          V276= car((V276));          V271= car((V271));
2071  goto T942;  goto T940;
2072  T942:;  T940:;
2073          if(((V277))==Cnil){          if(((V272))==Cnil){
2074          goto T946;}          goto T944;}
2075          if(((V278))==Cnil){          if(((V273))==Cnil){
2076          goto T946;}          goto T944;}
2077          base[4]= VV[100];          base[4]= VV[98];
2078          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2079          Lerror();          Lerror();
2080          vs_top=sup;          vs_top=sup;
2081  goto T946;  goto T944;
2082  T946:;  T944:;
2083          base[4]= VV[102];          base[4]= VV[100];
2084          base[5]= list(2,VV[11],base[2]);          base[5]= list(2,VV[11],base[2]);
2085          base[6]= list(2,VV[11],(V269));          base[6]= list(2,VV[11],(V264));
2086          base[7]= list(2,VV[11],(V278));          base[7]= list(2,VV[11],(V273));
2087          base[8]= list(2,VV[11],(V279));          base[8]= list(2,VV[11],(V274));
2088          base[9]= list(2,VV[11],(V267));          base[9]= list(2,VV[11],(V262));
2089          base[10]= list(2,VV[11],(V273));          base[10]= list(2,VV[11],(V268));
2090          base[11]= list(2,VV[11],(V284));          base[11]= list(2,VV[11],(V279));
2091          base[12]= list(2,VV[11],(V276));          base[12]= list(2,VV[11],(V271));
2092          base[13]= list(2,VV[11],(V277));          base[13]= list(2,VV[11],(V272));
2093          base[14]= list(2,VV[11],(V270));          base[14]= list(2,VV[11],(V265));
2094          base[15]= list(2,VV[11],(V281));          base[15]= list(2,VV[11],(V276));
2095          base[16]= list(2,VV[11],(V274));          base[16]= list(2,VV[11],(V269));
2096          base[17]= list(2,VV[11],(V283));          base[17]= list(2,VV[11],(V278));
2097          vs_top=(vs_base=base+4)+14;          vs_top=(vs_base=base+4)+14;
2098          Llist();          Llist();
2099          vs_top=sup;          vs_top=sup;
2100          V315= vs_base[0];          V310= vs_base[0];
2101          {object V317;          {object V312;
2102          object V318= (V270);          object V313= (V265);
2103          if(endp(V318)){          if(endp(V313)){
2104          base[4]= Cnil;          base[4]= Cnil;
2105          goto T968;}          goto T966;}
2106          base[5]=V317=MMcons(Cnil,Cnil);          base[5]=V312=MMcons(Cnil,Cnil);
2107  goto T969;  goto T967;
2108  T969:;  T967:;
2109          (V317->c.c_car)= (*(LnkLI143))(base[2],(V318->c.c_car),(V278),(V279),(V267));          (V312->c.c_car)= (*(LnkLI141))(base[2],(V313->c.c_car),(V273),(V274),(V262));
2110          V318=MMcdr(V318);          V313=MMcdr(V313);
2111          if(endp(V318)){          if(endp(V313)){
2112          base[4]= base[5];          base[4]= base[5];
2113          goto T968;}          goto T966;}
2114          V317=MMcdr(V317)=MMcons(Cnil,Cnil);          V312=MMcdr(V312)=MMcons(Cnil,Cnil);
2115          goto T969;}          goto T967;}
2116  goto T968;  goto T966;
2117  T968:;  T966:;
2118          if(((V278))==Cnil){          if(((V273))==Cnil){
2119          goto T973;}          goto T971;}
2120          if(((V274))==Cnil){          if(((V269))==Cnil){
2121          goto T973;}          goto T971;}
2122          V320= (*(LnkLI144))(base[2],(V274),(V278),(V279),(V282));          V315= (*(LnkLI142))(base[2],(V269),(V273),(V274),(V277));
2123          base[5]= make_cons(/* INLINE-ARGS */V320,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V315,Cnil);
2124          goto T971;          goto T969;
 goto T973;  
 T973:;  
         base[5]= Cnil;  
2125  goto T971;  goto T971;
2126  T971:;  T971:;
2127          V321= list(2,VV[11],base[2]);          base[5]= Cnil;
2128          base[6]= make_cons(/* INLINE-ARGS */V321,Cnil);  goto T969;
2129    T969:;
2130            V316= list(2,VV[11],base[2]);
2131            base[6]= make_cons(/* INLINE-ARGS */V316,Cnil);
2132          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2133          Lappend();          Lappend();
2134          vs_top=sup;          vs_top=sup;
2135          V316= vs_base[0];          V311= vs_base[0];
2136          base[4]= listA(3,VV[101],V315,V316);          base[4]= listA(3,VV[99],V310,V311);
2137          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2138          return;}          return;}
2139  }  }
# Line 2153  static object LI12(va_alist) Line 2144  static object LI12(va_alist)
2144  {        {      
2145          va_list ap;          va_list ap;
2146          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
2147          {object V322;          {object V317;
2148            object V318;
2149            object V319;
2150            object V320;
2151            object V321;
2152            object V322;
2153          object V323;          object V323;
2154          object V324;          object V324;
2155          object V325;          object V325;
# Line 2166  static object LI12(va_alist) Line 2162  static object LI12(va_alist)
2162          object V332;          object V332;
2163          object V333;          object V333;
2164          object V334;          object V334;
         object V335;  
         object V336;  
         object V337;  
         object V338;  
         object V339;  
2165          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2166          va_start(ap);          va_start(ap);
2167          narg= narg - 0;          narg= narg - 0;
2168          {          {
2169          parse_key_new(narg,Vcs +0,(struct key *)&LI12key,ap);          parse_key_new(narg,Vcs +0,(struct key *)&LI12key,ap);
2170          V322=(Vcs[0]);          V317=(Vcs[0]);
2171          V323=(Vcs[1]);          V318=(Vcs[1]);
2172          V324=(Vcs[2]);          V319=(Vcs[2]);
2173          V325=(Vcs[3]);          V320=(Vcs[3]);
2174          V326=(Vcs[4]);          V321=(Vcs[4]);
2175          V327=(Vcs[5]);          V322=(Vcs[5]);
2176          V328=(Vcs[6]);          V323=(Vcs[6]);
2177          V329=(Vcs[7]);          V324=(Vcs[7]);
2178          V330=(Vcs[8]);          V325=(Vcs[8]);
2179          V331=(Vcs[9]);          V326=(Vcs[9]);
2180          V332=(Vcs[10]);          V327=(Vcs[10]);
2181          V333=(Vcs[11]);          V328=(Vcs[11]);
2182          V334=(Vcs[12]);          V329=(Vcs[12]);
2183          V335=(Vcs[13]);          V330=(Vcs[13]);
2184          V336=(Vcs[14]);          V331=(Vcs[14]);
2185          V337=(Vcs[15]);          V332=(Vcs[15]);
2186          V338=(Vcs[16]);          V333=(Vcs[16]);
2187          V339=(Vcs[17]);          V334=(Vcs[17]);
2188          base[0]= VV[55];          base[0]= VV[53];
2189          base[1]= (V322);          base[1]= (V317);
2190          base[2]= (V323);          base[2]= (V318);
2191          base[3]= (V324);          base[3]= (V319);
2192          base[4]= (V325);          base[4]= (V320);
2193          base[5]= (V326);          base[5]= (V321);
2194          base[6]= (V327);          base[6]= (V322);
2195          base[7]= (V328);          base[7]= (V323);
2196          base[8]= (V329);          base[8]= (V324);
2197          base[9]= (V330);          base[9]= (V325);
2198          base[10]= (V331);          base[10]= (V326);
2199          base[11]= (V332);          base[11]= (V327);
2200          base[12]= (V333);          base[12]= (V328);
2201          base[13]= (V334);          base[13]= (V329);
2202          base[14]= (V335);          base[14]= (V330);
2203          base[15]= (V336);          base[15]= (V331);
2204          base[16]= (V337);          base[16]= (V332);
2205          base[17]= (V338);          base[17]= (V333);
2206          base[18]= (V339);          base[18]= (V334);
2207          vs_top=(vs_base=base+0)+19;          vs_top=(vs_base=base+0)+19;
2208          siLmake_structure();          siLmake_structure();
2209          vs_top=sup;          vs_top=sup;
2210          {object V340 = vs_base[0];          {object V335 = vs_base[0];
2211          VMR12(V340)}          VMR12(V335)}
2212          va_end(ap);          va_end(ap);
2213          base[0]=base[0];          base[0]=base[0];
2214          return Cnil;}          return Cnil;}
2215          }}          }}
2216  /*      local entry for function CHECK-S-DATA   */  /*      local entry for function CHECK-S-DATA   */
2217    
2218  static object LI13(V344,V345,V346)  static object LI13(V339,V340,V341)
2219    
2220  register object V344;register object V345;object V346;  register object V339;register object V340;object V341;
2221  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
2222  goto TTL;  goto TTL;
2223  TTL:;  TTL:;
2224          if((structure_ref((V344),VV[55],3))==Cnil){          if((structure_ref((V339),VV[53],3))==Cnil){
2225          goto T997;}          goto T995;}
2226          V347= structure_ref((V344),VV[55],3);          V342= structure_ref((V339),VV[53],3);
2227          (void)(structure_set((V345),VV[55],3,/* INLINE-ARGS */V347));          (void)(structure_set((V340),VV[53],3,/* INLINE-ARGS */V342));
2228  goto T997;  goto T995;
2229  T997:;  T995:;
2230          if((structure_ref((V344),VV[55],11))==Cnil){          if((structure_ref((V339),VV[53],11))==Cnil){
2231          goto T1000;}          goto T998;}
2232          (void)(structure_set((V345),VV[55],11,Ct));          (void)(structure_set((V340),VV[53],11,Ct));
2233  goto T1000;  goto T998;
2234  T1000:;  T998:;
2235          if(equalp((V345),(V344))){          if(equalp((V340),(V339))){
2236          goto T1004;}          goto T1002;}
2237          (void)((VFUN_NARGS=2,(*(LnkLI133))(VV[103],(V346))));          (void)((VFUN_NARGS=2,(*(LnkLI131))(VV[101],(V341))));
2238          {object V348 = sputprop((V346),VV[55],(V345));          {object V343 = sputprop((V341),VV[53],(V340));
2239          VMR13(V348)}          VMR13(V343)}
2240  goto T1004;  goto T1002;
2241  T1004:;  T1002:;
2242          {object V349 = Cnil;          {object V344 = Cnil;
2243          VMR13(V349)}          VMR13(V344)}
2244          return Cnil;          return Cnil;
2245  }  }
2246  /*      local entry for function FREEZE-DEFSTRUCT       */  /*      local entry for function FREEZE-DEFSTRUCT       */
2247    
2248  static object LI14(V351)  static object LI14(V346)
2249    
2250  object V351;  object V346;
2251  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
2252  goto TTL;  goto TTL;
2253  TTL:;  TTL:;
2254          {object V352;          {object V347;
2255          if(type_of((V351))==t_symbol){          if(type_of((V346))==t_symbol){
2256          goto T1008;}          goto T1006;}
2257          V352= Cnil;          V347= Cnil;
2258          goto T1007;          goto T1005;
2259  goto T1008;  goto T1006;
2260  T1008:;  T1006:;
2261          V352= get((V351),VV[55],Cnil);          V347= get((V346),VV[53],Cnil);
2262  goto T1007;  goto T1005;
2263  T1007:;  T1005:;
2264          if(((V352))==Cnil){          if(((V347))==Cnil){
2265          goto T1011;}          goto T1009;}
2266          {object V353 = structure_set((V352),VV[55],11,Ct);          {object V348 = structure_set((V347),VV[53],11,Ct);
2267          VMR14(V353)}          VMR14(V348)}
2268  goto T1011;  goto T1009;
2269  T1011:;  T1009:;
2270          {object V354 = Cnil;          {object V349 = Cnil;
2271          VMR14(V354)}}          VMR14(V349)}}
2272          return Cnil;          return Cnil;
2273  }  }
2274  /*      function definition for SHARP-S-READER  */  /*      function definition for SHARP-S-READER  */
# Line 2286  static void L15() Line 2277  static void L15()
2277  {register object *base=vs_base;  {register object *base=vs_base;
2278          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
2279          vs_reserve(VM15);          vs_reserve(VM15);
2280          {object V355;          {object V350;
2281          object V356;          object V351;
2282          object V357;          object V352;
2283          check_arg(3);          check_arg(3);
2284          V355=(base[0]);          V350=(base[0]);
2285          V356=(base[1]);          V351=(base[1]);
2286          V357=(base[2]);          V352=(base[2]);
2287          vs_top=sup;          vs_top=sup;
2288  goto TTL;  goto TTL;
2289  TTL:;  TTL:;
2290          if(((V357))==Cnil){          if(((V352))==Cnil){
2291          goto T1013;}          goto T1011;}
2292          if((symbol_value(VV[104]))!=Cnil){          if((symbol_value(VV[102]))!=Cnil){
2293          goto T1013;}          goto T1011;}
2294          base[3]= VV[105];          base[3]= VV[103];
2295          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2296          Lerror();          Lerror();
2297          vs_top=sup;          vs_top=sup;
2298  goto T1013;  goto T1011;
2299  T1013:;  T1011:;
2300          {register object V358;          {register object V353;
2301          register object V359;          register object V354;
2302          {object V360;          {object V355;
2303          base[5]= (V355);          base[5]= (V350);
2304          base[6]= Ct;          base[6]= Ct;
2305          base[7]= Cnil;          base[7]= Cnil;
2306          base[8]= Ct;          base[8]= Ct;
2307          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2308          Lread();          Lread();
2309          vs_top=sup;          vs_top=sup;
2310          V360= vs_base[0];          V355= vs_base[0];
2311          if((symbol_value(VV[104]))==Cnil){          if((symbol_value(VV[102]))==Cnil){
2312          goto T1025;}          goto T1023;}
2313          base[5]= Cnil;          base[5]= Cnil;
2314          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2315          return;          return;
2316  goto T1025;  goto T1023;
2317  T1025:;  T1023:;
2318          V358= (V360);}{object V361;          V353= (V355);}{object V356;
2319          V361= get(car((V358)),VV[55],Cnil);          V356= get(car((V353)),VV[53],Cnil);
2320          if(V361==Cnil)goto T1029;          if(V356==Cnil)goto T1027;
2321          V359= V361;          V354= V356;
2322          goto T1028;          goto T1026;
2323  goto T1029;  goto T1027;
2324  T1029:;}  T1027:;}
2325          base[5]= VV[106];          base[5]= VV[104];
2326          base[6]= car((V358));          base[6]= car((V353));
2327          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2328          Lerror();          Lerror();
2329          vs_top=sup;          vs_top=sup;
2330          V359= vs_base[0];          V354= vs_base[0];
2331  goto T1028;  goto T1026;
2332  T1028:;  T1026:;
2333          {register object V362;          {register object V357;
2334          V362= cdr((V358));          V357= cdr((V353));
2335  goto T1035;  goto T1033;
2336  T1035:;  T1033:;
2337          if(!(endp_prop((V362)))){          if(!(endp_prop((V357)))){
2338          goto T1036;}          goto T1034;}
2339          {register object V363;          {register object V358;
2340          V363= structure_ref((V359),VV[55],13);          V358= structure_ref((V354),VV[53],13);
2341  goto T1041;  goto T1039;
2342  T1041:;  T1039:;
2343          if(!(endp_prop((V363)))){          if(!(endp_prop((V358)))){
2344          goto T1042;}          goto T1040;}
2345          base[5]= VV[107];          base[5]= VV[105];
2346          base[6]= car((V358));          base[6]= car((V353));
2347          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2348          Lerror();          Lerror();
2349          return;          return;
2350  goto T1042;  goto T1040;
2351  T1042:;  T1040:;
2352          if(!(type_of(car((V363)))==t_symbol)){          if(!(type_of(car((V358)))==t_symbol)){
2353          goto T1048;}          goto T1046;}
2354          base[5]= car((V363));          base[5]= car((V358));
2355          {object V364;          {object V359;
2356          V364= cdr((V358));          V359= cdr((V353));
2357           vs_top=base+6;           vs_top=base+6;
2358           while(!endp(V364))           while(!endp(V359))
2359           {vs_push(car(V364));V364=cdr(V364);}           {vs_push(car(V359));V359=cdr(V359);}
2360          vs_base=base+6;}          vs_base=base+6;}
2361          super_funcall_no_event(base[5]);          super_funcall_no_event(base[5]);
2362          return;          return;
2363  goto T1048;  goto T1046;
2364  T1048:;  T1046:;
2365          V363= cdr((V363));          V358= cdr((V358));
2366          goto T1041;}          goto T1039;}
2367  goto T1036;  goto T1034;
2368  T1036:;  T1034:;
2369          base[5]= coerce_to_string(car((V362)));          base[5]= coerce_to_string(car((V357)));
2370          base[6]= VV[108];          base[6]= VV[106];
2371          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2372          Lintern();          Lintern();
2373          vs_top=sup;          vs_top=sup;
2374          V365= vs_base[0];          V360= vs_base[0];
2375          if(type_of((V362))!=t_cons)FEwrong_type_argument(Scons,(V362));          if(type_of((V357))!=t_cons)FEwrong_type_argument(Scons,(V357));
2376          ((V362))->c.c_car = V365;          ((V357))->c.c_car = V360;
2377          V362= cddr((V362));          V357= cddr((V357));
2378          goto T1035;}}          goto T1033;}}
2379          }          }
2380  }  }
2381  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 2394  register object *base0; Line 2385  register object *base0;
2385  {       register object *base=vs_base;  {       register object *base=vs_base;
2386          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
2387          vs_reserve(VM16);          vs_reserve(VM16);
2388          {object V366;          {object V361;
2389          check_arg(1);          check_arg(1);
2390          V366=(base[0]);          V361=(base[0]);
2391          vs_top=sup;          vs_top=sup;
2392          base[1]= (V366);          base[1]= (V361);
2393          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
2394          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2395          (void) (*Lnk148)();          (void) (*Lnk146)();
2396          return;          return;
2397          }          }
2398  }  }
# Line 2412  register object *base0; Line 2403  register object *base0;
2403  {       register object *base=vs_base;  {       register object *base=vs_base;
2404          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
2405          vs_reserve(VM17);          vs_reserve(VM17);
2406          {object V367;          {object V362;
2407          check_arg(1);          check_arg(1);
2408          V367=(base[0]);          V362=(base[0]);
2409          vs_top=sup;          vs_top=sup;
2410          if(!(type_of((V367))==t_cons)){          if(!(type_of((V362))==t_cons)){
2411          goto T1067;}          goto T1065;}
2412          base[1]= car((V367));          base[1]= car((V362));
2413          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2414          return;          return;
2415  goto T1067;  goto T1065;
2416  T1067:;  T1065:;
2417          base[1]= Cnil;          base[1]= Cnil;
2418          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2419          return;          return;
# Line 2435  register object *base0; Line 2426  register object *base0;
2426  {       register object *base=vs_base;  {       register object *base=vs_base;
2427          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
2428          vs_reserve(VM18);          vs_reserve(VM18);
2429          {object V368;          {object V363;
2430          check_arg(1);          check_arg(1);
2431          V368=(base[0]);          V363=(base[0]);
2432          vs_top=sup;          vs_top=sup;
2433          base[1]= aref1((V368),fixint((base0[0]->c.c_car)));          base[1]= aref1((V363),fixint((base0[0]->c.c_car)));
2434          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2435          return;          return;
2436          }          }
# Line 2451  register object *base0; Line 2442  register object *base0;
2442  {       register object *base=vs_base;  {       register object *base=vs_base;
2443          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
2444          vs_reserve(VM19);          vs_reserve(VM19);
2445          {object V369;          {object V364;
2446          check_arg(1);          check_arg(1);
2447          V369=(base[0]);          V364=(base[0]);
2448          vs_top=sup;          vs_top=sup;
2449          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
2450          base[2]= (V369);          base[2]= (V364);
2451          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2452          siLlist_nth();          siLlist_nth();
2453          return;          return;
# Line 2469  register object *base0; Line 2460  register object *base0;
2460  {       register object *base=vs_base;  {       register object *base=vs_base;
2461          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
2462          vs_reserve(VM20);          vs_reserve(VM20);
2463          {object V370;          {object V365;
2464          check_arg(1);          check_arg(1);
2465          V370=(base[0]);          V365=(base[0]);
2466          vs_top=sup;          vs_top=sup;
2467          if(!(type_of((V370))==t_structure)){          if(!(type_of((V365))==t_structure)){
2468          goto T1072;}          goto T1070;}
2469          goto T1071;          goto T1069;
2470  goto T1072;  goto T1070;
2471  T1072:;  T1070:;
2472          base[1]= VV[5];          base[1]= VV[5];
2473          base[2]= (V370);          base[2]= (V365);
2474          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2475          Lerror();          Lerror();
2476          vs_top=sup;          vs_top=sup;
2477  goto T1071;  goto T1069;
2478  T1071:;  T1069:;
2479          base[1]= (V370);          base[1]= (V365);
2480          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
2481          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2482          (void) (*Lnk149)();          (void) (*Lnk147)();
2483          return;          return;
2484          }          }
2485  }  }
2486  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* STRUCTURE-REF1 */  static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* STRUCTURE-REF1 */
2487  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* STRUCTURE-SUBTYPE-P */  static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* STRUCTURE-SUBTYPE-P */
2488  static object  LnkTLI144(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[144],(void **)&LnkLI144,5,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */  static object  LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,5,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */
2489  static object  LnkTLI143(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[143],(void **)&LnkLI143,5,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */  static object  LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,5,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */
2490  static object  LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,2,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */  static object  LnkTLI140(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[140],(void **)&LnkLI140,2,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */
2491  static object  LnkTLI136(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[136],(void **)&LnkLI136,3,ap);va_end(ap);return V1;} /* CHECK-S-DATA */  static object  LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,3,ap);va_end(ap);return V1;} /* CHECK-S-DATA */
2492  static object  LnkTLI135(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[135],(void **)&LnkLI135,ap);va_end(ap);return V1;} /* MAKE-S-DATA */  static object  LnkTLI133(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[133],(void **)&LnkLI133,ap);va_end(ap);return V1;} /* MAKE-S-DATA */
2493  static object  LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,3,ap);va_end(ap);return V1;} /* GET-SLOT-POS */  static object  LnkTLI132(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[132],(void **)&LnkLI132,3,ap);va_end(ap);return V1;} /* GET-SLOT-POS */
2494  static object  LnkTLI133(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[133],(void **)&LnkLI133,ap);va_end(ap);return V1;} /* WARN */  static object  LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[131],(void **)&LnkLI131,ap);va_end(ap);return V1;} /* WARN */
2495  static void LnkT132(){ call_or_link(VV[132],(void **)&Lnk132);} /* MAKE-S-DATA-STRUCTURE */  static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* MAKE-S-DATA-STRUCTURE */
2496  static object  LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[131],(void **)&LnkLI131,3,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */  static object  LnkTLI129(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[129],(void **)&LnkLI129,3,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */
2497  static void LnkT127(){ call_or_link(VV[127],(void **)&Lnk127);} /* MAKE-ACCESS-FUNCTION */  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* MAKE-ACCESS-FUNCTION */
2498  static object  LnkTLI126(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[126],(void **)&LnkLI126,20738,ap);va_end(ap);return V1;} /* ROUND-UP */  static object  LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,20738,ap);va_end(ap);return V1;} /* ROUND-UP */
2499  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* SIZE-OF */  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* SIZE-OF */
2500  static object  LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,2,ap);va_end(ap);return V1;} /* COERCE */  static object  LnkTLI122(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[122],(void **)&LnkLI122,2,ap);va_end(ap);return V1;} /* COERCE */
2501  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* TYPEP */  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* TYPEP */
2502  static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* AET-TYPE */  static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* AET-TYPE */
2503  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ALIGNMENT */  static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ALIGNMENT */
2504  static object  LnkTLI120(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[120],(void **)&LnkLI120,ap);va_end(ap);return V1;} /* MAKE-ARRAY */  static object  LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[118],(void **)&LnkLI118,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
2505  static object  LnkTLI119(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[119],(void **)&LnkLI119,2,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */  static object  LnkTLI117(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[117],(void **)&LnkLI117,2,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */
2506  static object  LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[118],(void **)&LnkLI118,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */  static object  LnkTLI116(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[116],(void **)&LnkLI116,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
2507  static object  LnkTLI117(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[117],(void **)&LnkLI117,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI115(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[115],(void **)&LnkLI115,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
2508  static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* X */  static object  LnkTLI111(){return call_proc0(VV[111],(void **)&LnkLI111);} /* ILLEGAL-BOA */
2509  static object  LnkTLI113(){return call_proc0(VV[113],(void **)&LnkLI113);} /* ILLEGAL-BOA */  static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* SUBTYPEP */
2510  static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* SUBTYPEP */  static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* RECORD-FN */
2511  static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* RECORD-FN */  static object  LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[108],(void **)&LnkLI108,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */
2512  static object  LnkTLI110(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[110],(void **)&LnkLI110,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */  static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* STRING-CONCATENATE */
 static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* STRING-CONCATENATE */  
2513    
2514  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2515  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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