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

Diff of /gcl/lsp/defpackage.c

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

revision 1.10 by camm, Tue Oct 15 14:51:51 2002 UTC revision 1.11 by camm, Thu Oct 24 22:10:45 2002 UTC
# Line 72  T24:; Line 72  T24:;
72          {register object V8;          {register object V8;
73          V8= car((V7));          V8= car((V7));
74          V6= (V8);}          V6= (V8);}
75          V9= symbol_function(VV[64]);          V9= symbol_function(VV[71]);
76          V10= (VFUN_NARGS=4,(*(LnkLI63))((V6),base[3],VV[4],V9));          V10= (VFUN_NARGS=4,(*(LnkLI70))((V6),base[3],VV[4],V9));
77          if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){          if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){
78          goto T30;}          goto T30;}
79          base[5]= VV[5];          base[5]= VV[5];
80          base[6]= VV[6];          base[6]= VV[6];
81          base[7]= (V6);          base[7]= (V6);
82          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
83          (void) (*Lnk65)();          (void) (*Lnk72)();
84          vs_top=sup;          vs_top=sup;
85  goto T30;  goto T30;
86  T30:;  T30:;
# Line 620  T228:; Line 620  T228:;
620  goto T224;  goto T224;
621  T224:;  T224:;
622          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
623          (void) (*Lnk65)();          (void) (*Lnk72)();
624          vs_top=sup;          vs_top=sup;
625          V62= cdr((V62));          V62= cdr((V62));
626          goto T212;          goto T212;
# Line 721  T278:; Line 721  T278:;
721  goto T274;  goto T274;
722  T274:;  T274:;
723          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
724          (void) (*Lnk65)();          (void) (*Lnk72)();
725          vs_top=sup;          vs_top=sup;
726          V90= cdr((V90));          V90= cdr((V90));
727          goto T262;          goto T262;
# Line 746  T306:; Line 746  T306:;
746          base[5]= VV[31];          base[5]= VV[31];
747          base[6]= base[3];          base[6]= base[3];
748          base[7]= VV[4];          base[7]= VV[4];
749          base[8]= symbol_function(VV[64]);          base[8]= symbol_function(VV[71]);
750          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
751          Lmember();          Lmember();
752          vs_top=sup;          vs_top=sup;
# Line 802  T326:; Line 802  T326:;
802          base[7]=V118=MMcons(Cnil,Cnil);          base[7]=V118=MMcons(Cnil,Cnil);
803  goto T334;  goto T334;
804  T334:;  T334:;
805          V121= list(2,VV[48],list(3,VV[49],VV[50],list(3,VV[51],VV[52],car((V119->c.c_car)))));          {register object V120;
806          (V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V121,list(2,VV[30],cdr((V119->c.c_car)))));          V120= (V119->c.c_car);
807            V121= list(3,VV[51],VV[52],car((V120)));
808            V122= list(3,VV[53],VV[52],car((V120)));
809            V123= list(2,VV[48],list(3,VV[49],VV[50],list(4,VV[26],/* INLINE-ARGS */V121,/* INLINE-ARGS */V122,list(5,VV[54],VV[55],VV[56],car((V120)),VV[57]))));
810            (V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V123,list(2,VV[30],cdr((V120)))));}
811          V119=MMcdr(V119);          V119=MMcdr(V119);
812          if(endp(V119)){          if(endp(V119)){
813          base[6]= base[7];          base[6]= base[7];
# Line 829  T330:; Line 833  T330:;
833          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
834          L5(base);          L5(base);
835          vs_top=sup;          vs_top=sup;
836          V125= vs_base[0];          V127= vs_base[0];
837          {object V123;          {object V125;
838          object V124= V125;          object V126= V127;
839          if(endp(V124)){          if(endp(V126)){
840          V122= Cnil;          V124= Cnil;
841          goto T337;}          goto T337;}
842          base[8]=V123=MMcons(Cnil,Cnil);          base[8]=V125=MMcons(Cnil,Cnil);
843  goto T345;  goto T345;
844  T345:;  T345:;
845          (V123->c.c_car)= coerce_to_string((V124->c.c_car));          (V125->c.c_car)= coerce_to_string((V126->c.c_car));
846          V124=MMcdr(V124);          V126=MMcdr(V126);
847          if(endp(V124)){          if(endp(V126)){
848          V122= base[8];          V124= base[8];
849          goto T337;}          goto T337;}
850          V123=MMcdr(V123)=MMcons(Cnil,Cnil);          V125=MMcdr(V125)=MMcons(Cnil,Cnil);
851          goto T345;}          goto T345;}
852  goto T339;  goto T339;
853  T339:;  T339:;
854          V122= VV[54];          V124= VV[59];
855  goto T337;  goto T337;
856  T337:;  T337:;
857          V126= list(2,VV[53],list(2,VV[30],V122));          V128= list(2,VV[58],list(2,VV[30],V124));
858          if(((V18))==Cnil){          if(((V18))==Cnil){
859          goto T353;}          goto T353;}
860          {object V128;          {object V130;
861          object V129= (V18);          object V131= (V18);
862          if(endp(V129)){          if(endp(V131)){
863          base[8]= Cnil;          base[8]= Cnil;
864          goto T351;}          goto T351;}
865          base[9]=V128=MMcons(Cnil,Cnil);          base[9]=V130=MMcons(Cnil,Cnil);
866  goto T355;  goto T355;
867  T355:;  T355:;
868          V131= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[51],VV[52],car((V129->c.c_car)))));          {register object V132;
869          (V128->c.c_car)= list(2,VV[55],list(3,VV[45],/* INLINE-ARGS */V131,list(2,VV[30],cdr((V129->c.c_car)))));          V132= (V131->c.c_car);
870          V129=MMcdr(V129);          V133= list(3,VV[51],VV[52],car((V132)));
871          if(endp(V129)){          V134= list(3,VV[53],VV[52],car((V132)));
872            V135= list(2,VV[48],list(3,VV[49],VV[61],list(4,VV[26],/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,list(5,VV[54],VV[55],VV[62],car((V132)),VV[63]))));
873            (V130->c.c_car)= list(2,VV[60],list(3,VV[45],/* INLINE-ARGS */V135,list(2,VV[30],cdr((V132)))));}
874            V131=MMcdr(V131);
875            if(endp(V131)){
876          base[8]= base[9];          base[8]= base[9];
877          goto T351;}          goto T351;}
878          V128=MMcdr(V128)=MMcons(Cnil,Cnil);          V130=MMcdr(V130)=MMcons(Cnil,Cnil);
879          goto T355;}          goto T355;}
880  goto T353;  goto T353;
881  T353:;  T353:;
# Line 876  goto T351; Line 884  goto T351;
884  T351:;  T351:;
885          if(((V15))==Cnil){          if(((V15))==Cnil){
886          goto T359;}          goto T359;}
887          V132= list(3,VV[45],VV[57],list(2,VV[30],(V15)));          V136= list(3,VV[45],VV[64],list(2,VV[30],(V15)));
888          base[9]= make_cons(/* INLINE-ARGS */V132,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V136,Cnil);
889          goto T357;          goto T357;
890  goto T359;  goto T359;
891  T359:;  T359:;
# Line 886  goto T357; Line 894  goto T357;
894  T357:;  T357:;
895          if(((V16))==Cnil){          if(((V16))==Cnil){
896          goto T363;}          goto T363;}
897          V133= list(2,VV[58],list(3,VV[45],VV[59],list(2,VV[30],(V16))));          V137= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V16))));
898          base[10]= make_cons(/* INLINE-ARGS */V133,Cnil);          base[10]= make_cons(/* INLINE-ARGS */V137,Cnil);
899          goto T361;          goto T361;
900  goto T363;  goto T363;
901  T363:;  T363:;
# Line 896  goto T361; Line 904  goto T361;
904  T361:;  T361:;
905          if(((V19))==Cnil){          if(((V19))==Cnil){
906          goto T367;}          goto T367;}
907          V134= list(3,VV[60],list(2,VV[61],list(2,VV[30],(V19))),VV[62]);          V138= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V19))),VV[69]);
908          base[11]= make_cons(/* INLINE-ARGS */V134,Cnil);          base[11]= make_cons(/* INLINE-ARGS */V138,Cnil);
909          goto T365;          goto T365;
910  goto T367;  goto T367;
911  T367:;  T367:;
# Line 907  T365:; Line 915  T365:;
915          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
916          Lappend();          Lappend();
917          vs_top=sup;          vs_top=sup;
918          V127= vs_base[0];          V129= vs_base[0];
919          base[7]= make_cons(/* INLINE-ARGS */V126,V127);          base[7]= make_cons(/* INLINE-ARGS */V128,V129);
920          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
921          Lappend();          Lappend();
922          vs_top=sup;          vs_top=sup;
923          V116= vs_base[0];          V116= vs_base[0];
924          V135= listA(3,VV[42],/* INLINE-ARGS */V115,V116);          V139= listA(3,VV[42],/* INLINE-ARGS */V115,V116);
925          V136= list(2,/* INLINE-ARGS */V135,list(2,VV[27],base[2]));          V140= list(2,/* INLINE-ARGS */V139,list(2,VV[27],base[2]));
926          base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V136));          base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V140));
927          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
928          return;}          return;}
929  }  }
# Line 926  register object *base0; Line 934  register object *base0;
934  {       register object *base=vs_base;  {       register object *base=vs_base;
935          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
936          vs_reserve(VM2);          vs_reserve(VM2);
937          {object V137;          {object V141;
938          vs_top[0]=Cnil;          vs_top[0]=Cnil;
939          {object *p=vs_top;          {object *p=vs_top;
940           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
941          V137=(base[0]);          V141=(base[0]);
942          vs_top=sup;          vs_top=sup;
943          {object V138;          {object V142;
944          V138= Cnil;          V142= Cnil;
945          {object V139;          {object V143;
946          object V140;          object V144;
947          V139= Cnil;          V143= Cnil;
948          V140= (V137);          V144= (V141);
949          {object V141;          {object V145;
950          V141= cdr((V137));          V145= cdr((V141));
951          {register long V142;          {register long V146;
952          V142= 1;          V146= 1;
953  goto T373;  goto T373;
954  T373:;  T373:;
955          if(((V141))==Cnil){          if(((V145))==Cnil){
956          goto T376;}          goto T376;}
957          goto T375;          goto T375;
958  goto T376;  goto T376;
# Line 952  T376:; Line 960  T376:;
960          goto T374;          goto T374;
961  goto T375;  goto T375;
962  T375:;  T375:;
963          if(((V140))==Cnil){          if(((V144))==Cnil){
964          goto T379;}          goto T379;}
965          goto T378;          goto T378;
966  goto T379;  goto T379;
# Line 960  T379:; Line 968  T379:;
968          goto T374;          goto T374;
969  goto T378;  goto T378;
970  T378:;  T378:;
971          {object V143;          {object V147;
972          V143= car((V140));          V147= car((V144));
973          V139= (V143);}          V143= (V147);}
974          {register object V144;          {register object V148;
975          register object V145;          register object V149;
976          V144= Cnil;          V148= Cnil;
977          V145= (V139);          V149= (V143);
978          {register object V146;          {register object V150;
979          V146= Cnil;          V150= Cnil;
980  goto T386;  goto T386;
981  T386:;  T386:;
982          if(((V145))==Cnil){          if(((V149))==Cnil){
983          goto T389;}          goto T389;}
984          goto T388;          goto T388;
985  goto T389;  goto T389;
# Line 979  T389:; Line 987  T389:;
987          goto T387;          goto T387;
988  goto T388;  goto T388;
989  T388:;  T388:;
990          {object V147;          {object V151;
991          V147= car((V145));          V151= car((V149));
992          V144= (V147);}          V148= (V151);}
993          {object V148;          {object V152;
994          V149= symbol_function(VV[64]);          V153= symbol_function(VV[71]);
995          V150= symbol_function(VV[67]);          V154= symbol_function(VV[74]);
996          V148= (VFUN_NARGS=6,(*(LnkLI66))((V144),(V138),VV[4],V149,VV[22],V150));          V152= (VFUN_NARGS=6,(*(LnkLI73))((V148),(V142),VV[4],V153,VV[22],V154));
997          V146= (V148);}          V150= (V152);}
998          V152 = make_fixnum(V142);          V156 = make_fixnum(V146);
999          {register object x= V152,V151= (V146);          {register object x= V156,V155= (V150);
1000          while(!endp(V151))          while(!endp(V155))
1001          if(eql(x,V151->c.c_car)){          if(eql(x,V155->c.c_car)){
1002          goto T399;          goto T399;
1003          }else V151=V151->c.c_cdr;}          }else V155=V155->c.c_cdr;}
1004          {object V153;          {object V157;
1005          register object V154;          register object V158;
1006          V153= Cnil;          V157= Cnil;
1007          V154= (V141);          V158= (V145);
1008          {register long V155;          {register long V159;
1009          {object V156;          {object V160;
1010          V157 = make_fixnum(V142);          V161 = make_fixnum(V146);
1011          V156= one_plus(V157);{object V158;          V160= one_plus(V161);{object V162;
1012          V158= (type_of((V156))==t_fixnum?Ct:Cnil);          V162= (type_of((V160))==t_fixnum?Ct:Cnil);
1013          if(V158==Cnil)goto T405;          if(V162==Cnil)goto T405;
1014          goto T404;          goto T404;
1015  goto T405;  goto T405;
1016  T405:;}  T405:;}
1017          (void)((*(LnkLI68))());          (void)((*(LnkLI75))());
1018  goto T404;  goto T404;
1019  T404:;  T404:;
1020          V155= fix((V156));}          V159= fix((V160));}
1021  goto T408;  goto T408;
1022  T408:;  T408:;
1023          if(((V154))==Cnil){          if(((V158))==Cnil){
1024          goto T411;}          goto T411;}
1025          goto T410;          goto T410;
1026  goto T411;  goto T411;
# Line 1020  T411:; Line 1028  T411:;
1028          goto T409;          goto T409;
1029  goto T410;  goto T410;
1030  T410:;  T410:;
1031          {object V159;          {object V163;
1032          V159= car((V154));          V163= car((V158));
1033          V153= (V159);}          V157= (V163);}
1034          base[1]= (V144);          base[1]= (V148);
1035          base[2]= (V153);          base[2]= (V157);
1036          base[3]= VV[22];          base[3]= VV[22];
1037          base[4]= symbol_function(VV[67]);          base[4]= symbol_function(VV[74]);
1038          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1039          Lmember();          Lmember();
1040          vs_top=sup;          vs_top=sup;
1041          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1042          goto T416;}          goto T416;}
1043          if(((V146))==Cnil){          if(((V150))==Cnil){
1044          goto T424;}          goto T424;}
1045          V160 = make_fixnum(V155);          V164 = make_fixnum(V159);
1046          V161= make_cons(V160,Cnil);          V165= make_cons(V164,Cnil);
1047          (void)(nconc((V146),/* INLINE-ARGS */V161));          (void)(nconc((V150),/* INLINE-ARGS */V165));
1048          goto T416;          goto T416;
1049  goto T424;  goto T424;
1050  T424:;  T424:;
1051          {object V163;          {object V167;
1052          V164 = make_fixnum(V142);          V168 = make_fixnum(V146);
1053          V165 = make_fixnum(V155);          V169 = make_fixnum(V159);
1054          V163= list(3,(V144),V164,V165);          V167= list(3,(V148),V168,V169);
1055          V138= make_cons((V163),(V138));          V142= make_cons((V167),(V142));
1056          V162= (V138);}          V166= (V142);}
1057          V146= car(V162);          V150= car(V166);
1058  goto T416;  goto T416;
1059  T416:;  T416:;
1060          V154= cdr((V154));          V158= cdr((V158));
1061          if(!((V155)<(2147483646))){          if(!((V159)<(2147483646))){
1062          goto T433;}          goto T433;}
1063          goto T432;          goto T432;
1064  goto T433;  goto T433;
1065  T433:;  T433:;
1066          (void)((*(LnkLI68))());          (void)((*(LnkLI75))());
1067  goto T432;  goto T432;
1068  T432:;  T432:;
1069          V155= (long)(V155)+(1);          V159= (long)(V159)+(1);
1070          goto T408;          goto T408;
1071  goto T409;  goto T409;
1072  T409:;  T409:;
# Line 1066  T409:; Line 1074  T409:;
1074          goto T399;}}          goto T399;}}
1075  goto T399;  goto T399;
1076  T399:;  T399:;
1077          V145= cdr((V145));          V149= cdr((V149));
1078          goto T386;          goto T386;
1079  goto T387;  goto T387;
1080  T387:;  T387:;
# Line 1074  T387:; Line 1082  T387:;
1082          goto T384;}}          goto T384;}}
1083  goto T384;  goto T384;
1084  T384:;  T384:;
1085          V140= cdr((V140));          V144= cdr((V144));
1086          V141= cdr((V141));          V145= cdr((V145));
1087          if(!((V142)<(2147483646))){          if(!((V146)<(2147483646))){
1088          goto T446;}          goto T446;}
1089          goto T445;          goto T445;
1090  goto T446;  goto T446;
1091  T446:;  T446:;
1092          (void)((*(LnkLI68))());          (void)((*(LnkLI75))());
1093  goto T445;  goto T445;
1094  T445:;  T445:;
1095          V142= (long)(V142)+(1);          V146= (long)(V146)+(1);
1096          goto T373;          goto T373;
1097  goto T374;  goto T374;
1098  T374:;  T374:;
# Line 1092  T374:; Line 1100  T374:;
1100          goto T369;}}}          goto T369;}}}
1101  goto T369;  goto T369;
1102  T369:;  T369:;
1103          base[1]= (V138);          base[1]= (V142);
1104          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1105          return;}          return;}
1106          }          }
# Line 1104  register object *base0; Line 1112  register object *base0;
1112  {       register object *base=vs_base;  {       register object *base=vs_base;
1113          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
1114          vs_reserve(VM3);          vs_reserve(VM3);
1115          {object V166;          {object V170;
1116          object V167;          object V171;
1117          check_arg(2);          check_arg(2);
1118          V166=(base[0]);          V170=(base[0]);
1119          V167=(base[1]);          V171=(base[1]);
1120          vs_top=sup;          vs_top=sup;
1121          if(!(type_of((V167))==t_cons)){          if(!(type_of((V171))==t_cons)){
1122          goto T452;}          goto T452;}
1123          base[2]= (equal(car((V167)),(V166))?Ct:Cnil);          base[2]= (equal(car((V171)),(V170))?Ct:Cnil);
1124          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1125          return;          return;
1126  goto T452;  goto T452;
# Line 1129  register object *base0; Line 1137  register object *base0;
1137  {       register object *base=vs_base;  {       register object *base=vs_base;
1138          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
1139          vs_reserve(VM4);          vs_reserve(VM4);
1140          {object V168;          {object V172;
1141          object V169;          object V173;
1142          check_arg(2);          check_arg(2);
1143          V168=(base[0]);          V172=(base[0]);
1144          V169=(base[1]);          V173=(base[1]);
1145          vs_top=sup;          vs_top=sup;
1146  goto TTL;  goto TTL;
1147  TTL:;  TTL:;
1148          {register object V170;          {register object V174;
1149          V170= Cnil;          V174= Cnil;
1150          {object V171;          {object V175;
1151          register object V172;          register object V176;
1152          register object V173;          register object V177;
1153          V171= Cnil;          V175= Cnil;
1154          V172= Cnil;          V176= Cnil;
1155          V173= Cnil;          V177= Cnil;
1156          {object V174;          {object V178;
1157          base[2]= (V168);          base[2]= (V172);
1158          base[3]= (V169);          base[3]= (V173);
1159          base[4]= VV[22];          base[4]= VV[22];
1160          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1161          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1162          Lmember();          Lmember();
1163          vs_top=sup;          vs_top=sup;
1164          V174= vs_base[0];          V178= vs_base[0];
1165          V170= (V174);}          V174= (V178);}
1166  goto T455;  goto T455;
1167  T455:;  T455:;
1168          if(((V170))==Cnil){          if(((V174))==Cnil){
1169          goto T464;}          goto T464;}
1170          goto T463;          goto T463;
1171  goto T464;  goto T464;
# Line 1165  T464:; Line 1173  T464:;
1173          goto T456;          goto T456;
1174  goto T463;  goto T463;
1175  T463:;  T463:;
1176          if(((V170))==Cnil){          if(((V174))==Cnil){
1177          goto T466;}          goto T466;}
1178          base[2]= cdr(car((V170)));          base[2]= cdr(car((V174)));
1179          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1180          Lcopy_list();          Lcopy_list();
1181          vs_top=sup;          vs_top=sup;
1182          V173= vs_base[0];          V177= vs_base[0];
1183          if(((V172))==Cnil){          if(((V176))==Cnil){
1184          goto T473;}          goto T473;}
1185          {register object V175;          {register object V179;
1186          register object V176;          register object V180;
1187          V175= (V172);          V179= (V176);
1188          V176= (V173);          V180= (V177);
1189          if(type_of((V175))!=t_cons)FEwrong_type_argument(Scons,(V175));          if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179));
1190          ((V175))->c.c_cdr = (V176);          ((V179))->c.c_cdr = (V180);
1191          if(((V176))!=Cnil){          if(((V180))!=Cnil){
1192          goto T475;}}          goto T475;}}
1193          goto T466;          goto T466;
1194  goto T475;  goto T475;
1195  T475:;  T475:;
1196          base[2]= cdr((V172));          base[2]= cdr((V176));
1197          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1198          Llast();          Llast();
1199          vs_top=sup;          vs_top=sup;
1200          V172= vs_base[0];          V176= vs_base[0];
1201          goto T466;          goto T466;
1202  goto T473;  goto T473;
1203  T473:;  T473:;
1204          V171= (V173);          V175= (V177);
1205          base[2]= (V171);          base[2]= (V175);
1206          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1207          Llast();          Llast();
1208          vs_top=sup;          vs_top=sup;
1209          V172= vs_base[0];          V176= vs_base[0];
1210  goto T466;  goto T466;
1211  T466:;  T466:;
1212          {register object V177;          {register object V181;
1213          base[2]= (V168);          base[2]= (V172);
1214          base[3]= cdr((V170));          base[3]= cdr((V174));
1215          base[4]= VV[22];          base[4]= VV[22];
1216          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1217          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1218          Lmember();          Lmember();
1219          vs_top=sup;          vs_top=sup;
1220          V177= vs_base[0];          V181= vs_base[0];
1221          V170= (V177);}          V174= (V181);}
1222          goto T455;          goto T455;
1223  goto T456;  goto T456;
1224  T456:;  T456:;
1225          base[2]= (V171);          base[2]= (V175);
1226          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1227          return;          return;
1228          base[2]= Cnil;          base[2]= Cnil;
# Line 1232  register object *base0; Line 1240  register object *base0;
1240  {       register object *base=vs_base;  {       register object *base=vs_base;
1241          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
1242          vs_reserve(VM5);          vs_reserve(VM5);
1243          {object V178;          {object V182;
1244          object V179;          object V183;
1245          check_arg(2);          check_arg(2);
1246          V178=(base[0]);          V182=(base[0]);
1247          V179=(base[1]);          V183=(base[1]);
1248          vs_top=sup;          vs_top=sup;
1249  goto TTL;  goto TTL;
1250  TTL:;  TTL:;
1251          {register object V180;          {register object V184;
1252          V180= Cnil;          V184= Cnil;
1253          {object V181;          {object V185;
1254          register object V182;          register object V186;
1255          register object V183;          register object V187;
1256          V181= Cnil;          V185= Cnil;
1257          V182= Cnil;          V186= Cnil;
1258          V183= Cnil;          V187= Cnil;
1259          {object V184;          {object V188;
1260          base[2]= (V178);          base[2]= (V182);
1261          base[3]= (V179);          base[3]= (V183);
1262          base[4]= VV[22];          base[4]= VV[22];
1263          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1264          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1265          Lmember();          Lmember();
1266          vs_top=sup;          vs_top=sup;
1267          V184= vs_base[0];          V188= vs_base[0];
1268          V180= (V184);}          V184= (V188);}
1269  goto T495;  goto T495;
1270  T495:;  T495:;
1271          if(((V180))==Cnil){          if(((V184))==Cnil){
1272          goto T504;}          goto T504;}
1273          goto T503;          goto T503;
1274  goto T504;  goto T504;
# Line 1268  T504:; Line 1276  T504:;
1276          goto T496;          goto T496;
1277  goto T503;  goto T503;
1278  T503:;  T503:;
1279          if(((V180))==Cnil){          if(((V184))==Cnil){
1280          goto T506;}          goto T506;}
1281          V183= cdr(car((V180)));          V187= cdr(car((V184)));
1282          if(((V182))==Cnil){          if(((V186))==Cnil){
1283          goto T512;}          goto T512;}
1284          {register object V185;          {register object V189;
1285          register object V186;          register object V190;
1286          V185= (V182);          V189= (V186);
1287          V182= make_cons((V183),Cnil);          V186= make_cons((V187),Cnil);
1288          V186= (V182);          V190= (V186);
1289          if(type_of((V185))!=t_cons)FEwrong_type_argument(Scons,(V185));          if(type_of((V189))!=t_cons)FEwrong_type_argument(Scons,(V189));
1290          ((V185))->c.c_cdr = (V186);          ((V189))->c.c_cdr = (V190);
1291          goto T506;}          goto T506;}
1292  goto T512;  goto T512;
1293  T512:;  T512:;
1294          V182= make_cons((V183),Cnil);          V186= make_cons((V187),Cnil);
1295          V181= (V182);          V185= (V186);
1296  goto T506;  goto T506;
1297  T506:;  T506:;
1298          {register object V187;          {register object V191;
1299          base[2]= (V178);          base[2]= (V182);
1300          base[3]= cdr((V180));          base[3]= cdr((V184));
1301          base[4]= VV[22];          base[4]= VV[22];
1302          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1303          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1304          Lmember();          Lmember();
1305          vs_top=sup;          vs_top=sup;
1306          V187= vs_base[0];          V191= vs_base[0];
1307          V180= (V187);}          V184= (V191);}
1308          goto T495;          goto T495;
1309  goto T496;  goto T496;
1310  T496:;  T496:;
1311          base[2]= (V181);          base[2]= (V185);
1312          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1313          return;          return;
1314          base[2]= Cnil;          base[2]= Cnil;
# Line 1311  T496:; Line 1319  T496:;
1319          return;}}          return;}}
1320          }          }
1321  }  }
1322  static object  LnkTLI68(){return call_proc0(VV[68],(void **)&LnkLI68);} /* TYPE-ERROR */  static object  LnkTLI75(){return call_proc0(VV[75],(void **)&LnkLI75);} /* TYPE-ERROR */
1323  static object  LnkTLI66(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[66],(void **)&LnkLI66,ap);va_end(ap);return V1;} /* FIND */  static object  LnkTLI73(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[73],(void **)&LnkLI73,ap);va_end(ap);return V1;} /* FIND */
1324  static void LnkT65(){ call_or_link(VV[65],(void **)&Lnk65);} /* SPECIFIC-ERROR */  static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* SPECIFIC-ERROR */
1325  static object  LnkTLI63(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[63],(void **)&LnkLI63,ap);va_end(ap);return V1;} /* COUNT */  static object  LnkTLI70(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[70],(void **)&LnkLI70,ap);va_end(ap);return V1;} /* COUNT */
1326    
1327  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1328  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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