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

Diff of /gcl/cmpnew/cmpif.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, Mon Oct 14 05:24:42 2002 UTC
# Line 1081  goto T539; Line 1081  goto T539;
1081  T539:;  T539:;
1082          if(!(type_of(car((V163)))==t_fixnum)){          if(!(type_of(car((V163)))==t_fixnum)){
1083          goto T545;}          goto T545;}
1084          V160= make_cons(car((V163)),(V160));          {object V164;
1085          goto T543;          V164= car((V163));
1086            V160= make_cons((V164),(V160));
1087            goto T543;}
1088  goto T545;  goto T545;
1089  T545:;  T545:;
1090          if(!(type_of(car((V163)))==t_cons)){          if(!(type_of(car((V163)))==t_cons)){
1091          goto T549;}          goto T550;}
1092          {register object V164;          {register object V165;
1093          register object V165;          register object V166;
1094          V164= car((V163));          V165= car((V163));
1095          V165= car((V164));          V166= car((V165));
 goto T554;  
 T554:;  
         if(!(endp_prop((V164)))){  
         goto T555;}  
         goto T543;  
1096  goto T555;  goto T555;
1097  T555:;  T555:;
1098          V160= make_cons((V165),(V160));          if(!(endp_prop((V165)))){
1099          V164= cdr((V164));          goto T556;}
1100          V165= car((V164));          goto T543;
1101          goto T554;}  goto T556;
1102  goto T549;  T556:;
1103  T549:;          V160= make_cons(V166,(V160));
1104          {register object x= car((V163)),V166= VV[26];          V165= cdr((V165));
1105          while(!endp(V166))          V166= car((V165));
1106          if(eql(x,V166->c.c_car)){          goto T555;}
1107          goto T567;  goto T550;
1108          }else V166=V166->c.c_cdr;  T550:;
1109            {register object x= car((V163)),V168= VV[26];
1110            while(!endp(V168))
1111            if(eql(x,V168->c.c_car)){
1112            goto T568;
1113            }else V168=V168->c.c_cdr;
1114          goto T543;}          goto T543;}
1115  goto T567;  goto T568;
1116  T567:;  T568:;
1117          if((V158)==Cnil){          if((V158)==Cnil){
1118          goto T568;}          goto T569;}
1119          base[2]= VV[27];          base[2]= VV[27];
1120          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1121          (void) (*Lnk66)();          (void) (*Lnk66)();
1122          vs_top=sup;          vs_top=sup;
1123  goto T568;  goto T569;
1124  T568:;  T569:;
1125          V160= make_cons(Ct,(V160));          V160= make_cons(Ct,(V160));
1126  goto T543;  goto T543;
1127  T543:;  T543:;
1128          V167= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163))));          {object V170;
1129          V160= make_cons(/* INLINE-ARGS */V167,(V160));          V170= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163))));
1130            V160= make_cons((V170),(V160));}
1131          V162= cdr((V162));          V162= cdr((V162));
1132          V163= car((V162));          V163= car((V162));
1133          goto T538;}          goto T538;}
1134  goto T534;  goto T534;
1135  T534:;  T534:;
1136          if(((V158))==Cnil){          if(((V158))==Cnil){
1137          goto T578;}          goto T580;}
1138          V160= make_cons(Ct,(V160));          V160= make_cons(Ct,(V160));
1139          {register object V168;          {register object V172;
1140          object V169;          object V173;
1141          V168= cdr((V157));          V172= cdr((V157));
1142          V169= car((V168));          V173= car((V172));
1143  goto T587;  goto T589;
1144  T587:;  T589:;
1145          if(!(endp_prop((V168)))){          if(!(endp_prop((V172)))){
1146          goto T588;}          goto T590;}
1147          goto T583;          goto T585;
1148  goto T588;  goto T590;
1149  T588:;  T590:;
1150          if(!(type_of(car((V169)))!=t_cons)){          if(!(type_of(car((V173)))!=t_cons)){
1151            goto T596;}
1152            {object V174;
1153            V174= car((V173));
1154            V161= make_cons((V174),(V161));
1155          goto T594;}          goto T594;}
1156          V161= make_cons(car((V169)),(V161));  goto T596;
1157          goto T592;  T596:;
1158            V161= append(car((V173)),(V161));
1159  goto T594;  goto T594;
1160  T594:;  T594:;
1161          V161= append(car((V169)),(V161));          V172= cdr((V172));
1162  goto T592;          V173= car((V172));
1163  T592:;          goto T589;}
1164          V168= cdr((V168));  goto T585;
1165          V169= car((V168));  T585:;
1166          goto T587;}          {object V175;
1167  goto T583;          V176= car((V157));
1168  T583:;          V175= list(4,VV[30],VV[31],/* INLINE-ARGS */V176,list(2,VV[32],(V161)));
1169          V170= car((V157));          V160= make_cons((V175),(V160));}
1170          V171= list(4,VV[30],VV[31],/* INLINE-ARGS */V170,list(2,VV[32],(V161)));  goto T580;
1171          V160= make_cons(/* INLINE-ARGS */V171,(V160));  T580:;
1172  goto T578;          V177= car((V157));
1173  T578:;          {object V178 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V177,nreverse((V160))));
1174          V172= car((V157));          VMR14(V178)}}
         {object V173 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V172,nreverse((V160))));  
         VMR14(V173)}}  
1175          base[0]=base[0];          base[0]=base[0];
1176          return Cnil;          return Cnil;
1177  }  }
1178  /*      local entry for function C1CASE */  /*      local entry for function C1CASE */
1179    
1180  static object LI15(V174,va_alist)  static object LI15(V179,va_alist)
1181          object V174;          object V179;
1182          va_dcl          va_dcl
1183  {        {      
1184          va_list ap;          va_list ap;
1185          int narg = VFUN_NARGS; VMB15 VMS15 VMV15          int narg = VFUN_NARGS; VMB15 VMS15 VMV15
1186          {object V175;          {object V180;
1187          register object V176;          register object V181;
1188          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1189          va_start(ap);          va_start(ap);
1190          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1191          V175= V174;          V180= V179;
1192          narg = narg - 1;          narg = narg - 1;
1193          if (narg <= 0) goto T604;          if (narg <= 0) goto T608;
1194          else {          else {
1195          V176= va_arg(ap,object);}          V181= va_arg(ap,object);}
1196          --narg; goto T605;          --narg; goto T609;
1197  goto T604;  goto T608;
1198  T604:;  T608:;
1199          V176= Cnil;          V181= Cnil;
1200  goto T605;  goto T609;
1201  T605:;  T609:;
1202          if(!(endp_prop((V175)))){          if(!(endp_prop((V180)))){
1203          goto T607;}          goto T611;}
1204          (void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0)));
1205  goto T607;  goto T611;
1206  T607:;  T611:;
1207          {register object V177;          {register object V182;
1208          object V178;          object V183;
1209          object V179;          object V184;
1210          V177= (VFUN_NARGS=0,(*(LnkLI48))());          V182= (VFUN_NARGS=0,(*(LnkLI48))());
1211          V178= (*(LnkLI50))(car((V175)),(V177));          V183= (*(LnkLI50))(car((V180)),(V182));
1212          V179= Cnil;          V184= Cnil;
1213          base[2]= structure_ref(cadr((V178)),VV[36],2);          base[2]= structure_ref(cadr((V183)),VV[36],2);
1214          base[3]= VV[37];          base[3]= VV[37];
1215          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1216          (void) (*Lnk67)();          (void) (*Lnk67)();
1217          vs_top=sup;          vs_top=sup;
1218          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1219          goto T613;}          goto T617;}
1220          V180= (*(LnkLI68))((V175),(V176));          V185= (*(LnkLI68))((V180),(V181));
1221          {object V181 = (*(LnkLI46))(/* INLINE-ARGS */V180);          {object V186 = (*(LnkLI46))(/* INLINE-ARGS */V185);
1222          VMR15(V181)}          VMR15(V186)}
1223  goto T613;  goto T617;
1224  T613:;  T617:;
1225          {register object V182;          {register object V187;
1226          register object V183;          register object V188;
1227          V182= cdr((V175));          V187= cdr((V180));
1228          V183= car((V182));          V188= car((V187));
1229  goto T622;  goto T626;
1230  T622:;  T626:;
1231          if(!(endp_prop((V182)))){          if(!(endp_prop((V187)))){
         goto T623;}  
         goto T618;  
 goto T623;  
 T623:;  
         if(!(endp_prop((V183)))){  
1232          goto T627;}          goto T627;}
1233          (void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V183))));          goto T622;
1234  goto T627;  goto T627;
1235  T627:;  T627:;
1236          {object V184= car((V183));          if(!(endp_prop((V188)))){
1237          if((V184!= Cnil))goto T631;          goto T631;}
1238          goto T630;          (void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V188))));
1239  goto T631;  goto T631;
1240  T631:;  T631:;
1241          if((V184!= Ct)          {object V189= car((V188));
1242          && (V184!= VV[70]))goto T632;          if((V189!= Cnil))goto T635;
1243          if(((V176))==Cnil){          goto T634;
1244          goto T633;}  goto T635;
1245          if(!(((V176))==(Ct))){  T635:;
1246          goto T638;}          if((V189!= Ct)
1247          V185= VV[39];          && (V189!= VV[70]))goto T636;
1248          goto T636;          if(((V181))==Cnil){
1249  goto T638;          goto T637;}
1250  T638:;          if(!(((V181))==(Ct))){
1251          V185= VV[40];          goto T642;}
1252            V190= VV[39];
1253            goto T640;
1254    goto T642;
1255    T642:;
1256            V190= VV[40];
1257    goto T640;
1258    T640:;
1259            (void)((VFUN_NARGS=1,(*(LnkLI69))(V190)));
1260    goto T637;
1261    T637:;
1262            V181= (*(LnkLI71))(cdr((V188)));
1263            (void)((*(LnkLI72))((V182),cadr((V181))));
1264            goto T634;
1265  goto T636;  goto T636;
1266  T636:;  T636:;
1267          (void)((VFUN_NARGS=1,(*(LnkLI69))(V185)));          {object V191;
1268  goto T633;          register object V192;
1269  T633:;          if(!(type_of(car((V188)))==t_cons)){
1270          V176= (*(LnkLI71))(cdr((V183)));          goto T648;}
1271          (void)((*(LnkLI72))((V177),cadr((V176))));          {object V193;
1272          goto T630;          object V194= car((V188));
1273  goto T632;          if(endp(V194)){
1274  T632:;          V191= Cnil;
1275          {object V186;          goto T646;}
1276          register object V187;          base[6]=V193=MMcons(Cnil,Cnil);
1277          if(!(type_of(car((V183)))==t_cons)){  goto T650;
1278          goto T644;}  T650:;
1279          {object V188;          {register object V195;
1280          object V189= car((V183));          V195= (V194->c.c_car);
1281          if(endp(V189)){          if(!(type_of((V195))==t_symbol)){
1282          V186= Cnil;          goto T653;}
1283          goto T642;}          (V193->c.c_car)= (V195);
1284          base[6]=V188=MMcons(Cnil,Cnil);          goto T651;
1285    goto T653;
1286    T653:;
1287            (V193->c.c_car)= (*(LnkLI73))((V195));}
1288    goto T651;
1289    T651:;
1290            V194=MMcdr(V194);
1291            if(endp(V194)){
1292            V191= base[6];
1293            goto T646;}
1294            V193=MMcdr(V193)=MMcons(Cnil,Cnil);
1295            goto T650;}
1296    goto T648;
1297    T648:;
1298            if(!(type_of(car((V188)))==t_symbol)){
1299            goto T656;}
1300            V191= make_cons(car((V188)),Cnil);
1301            goto T646;
1302    goto T656;
1303    T656:;
1304            V196= (*(LnkLI73))(car((V188)));
1305            V191= make_cons(/* INLINE-ARGS */V196,Cnil);
1306  goto T646;  goto T646;
1307  T646:;  T646:;
1308          {register object V190;          V192= (*(LnkLI71))(cdr((V188)));
1309          V190= (V189->c.c_car);          (void)((*(LnkLI72))((V182),cadr((V192))));
1310          if(!(type_of((V190))==t_symbol)){          {object V197;
1311          goto T649;}          V197= make_cons((V191),(V192));
1312          (V188->c.c_car)= (V190);          V184= make_cons((V197),(V184));}}}
1313          goto T647;  goto T634;
1314  goto T649;  T634:;
1315  T649:;          V187= cdr((V187));
1316          (V188->c.c_car)= (*(LnkLI73))((V190));}          V188= car((V187));
1317  goto T647;          goto T626;}
1318  T647:;  goto T622;
1319          V189=MMcdr(V189);  T622:;
1320          if(endp(V189)){          V198= reverse((V184));
1321          V186= base[6];          if((V181)!=Cnil){
1322          goto T642;}          V199= (V181);
1323          V188=MMcdr(V188)=MMcons(Cnil,Cnil);          goto T667;}
1324          goto T646;}          V199= (*(LnkLI47))();
1325  goto T644;  goto T667;
1326  T644:;  T667:;
1327          if(!(type_of(car((V183)))==t_symbol)){          {object V200 = list(5,VV[35],(V182),(V183),/* INLINE-ARGS */V198,V199);
1328          goto T652;}          VMR15(V200)}}
         V186= make_cons(car((V183)),Cnil);  
         goto T642;  
 goto T652;  
 T652:;  
         V191= (*(LnkLI73))(car((V183)));  
         V186= make_cons(/* INLINE-ARGS */V191,Cnil);  
 goto T642;  
 T642:;  
         V187= (*(LnkLI71))(cdr((V183)));  
         (void)((*(LnkLI72))((V177),cadr((V187))));  
         V192= make_cons((V186),(V187));  
         V179= make_cons(/* INLINE-ARGS */V192,(V179));}}  
 goto T630;  
 T630:;  
         V182= cdr((V182));  
         V183= car((V182));  
         goto T622;}  
 goto T618;  
 T618:;  
         V193= reverse((V179));  
         if((V176)!=Cnil){  
         V194= (V176);  
         goto T662;}  
         V194= (*(LnkLI47))();  
 goto T662;  
 T662:;  
         {object V195 = list(5,VV[35],(V177),(V178),/* INLINE-ARGS */V193,V194);  
         VMR15(V195)}}  
1329          va_end(ap);          va_end(ap);
1330          base[0]=base[0];          base[0]=base[0];
1331          return Cnil;}          return Cnil;}
1332          }          }
1333  /*      local entry for function C2CASE */  /*      local entry for function C2CASE */
1334    
1335  static object LI16(V199,V200,V201)  static object LI16(V204,V205,V206)
1336    
1337  object V199;object V200;object V201;  object V204;object V205;object V206;
1338  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1339          bds_check;          bds_check;
1340  goto TTL;  goto TTL;
1341  TTL:;  TTL:;
1342          {register object V202;          {register object V207;
1343          setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1)));          setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1)));
1344          V202= symbol_value(VV[41]);          V207= symbol_value(VV[41]);
1345          bds_bind(VV[21],symbol_value(VV[21]));          bds_bind(VV[21],symbol_value(VV[21]));
1346          bds_bind(VV[24],small_fixnum(0));          bds_bind(VV[24],small_fixnum(0));
1347          V203= make_cons((V199),Cnil);          V208= make_cons((V204),Cnil);
1348          V204= (VFUN_NARGS=2,(*(LnkLI74))(/* INLINE-ARGS */V203,VV[42]));          V209= (VFUN_NARGS=2,(*(LnkLI74))(/* INLINE-ARGS */V208,VV[42]));
1349          V199= car(/* INLINE-ARGS */V204);          V204= car(/* INLINE-ARGS */V209);
1350          princ_str("\n   {object V",VV[16]);          princ_str("\n   {object V",VV[16]);
1351          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V207)));
1352          princ_str("= ",VV[16]);          princ_str("= ",VV[16]);
1353          (void)((*(LnkLI54))((V199)));          (void)((*(LnkLI54))((V204)));
1354          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1355          {object V205;          {object V210;
1356          object V206;          object V211;
1357          V205= (V200);          V210= (V205);
1358          V206= car((V205));          V211= car((V210));
1359  goto T677;  goto T682;
1360  T677:;  T682:;
1361          if(!(endp_prop((V205)))){          if(!(endp_prop((V210)))){
1362          goto T678;}          goto T683;}
1363          goto T673;          goto T678;
1364  goto T678;  goto T683;
1365  T678:;  T683:;
1366          {object V207;          {object V212;
1367          register object V208;          register object V213;
1368          register object V209;          register object V214;
         setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));  
         V207= make_cons(symbol_value(VV[9]),Cnil);  
         V208= car((V206));  
         V209= Cnil;  
 goto T689;  
 T689:;  
         if(!(((long)length((V208)))<=(5))){  
         goto T690;}  
         goto T687;  
 goto T690;  
 T690:;  
         if(((V209))!=Cnil){  
         goto T694;}  
1369          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
1370          V209= make_cons(symbol_value(VV[9]),Cnil);          V212= make_cons(symbol_value(VV[9]),Cnil);
1371            V213= car((V211));
1372            V214= Cnil;
1373  goto T694;  goto T694;
1374  T694:;  T694:;
1375            if(!(((long)length((V213)))<=(5))){
1376            goto T695;}
1377            goto T692;
1378    goto T695;
1379    T695:;
1380            if(((V214))!=Cnil){
1381            goto T699;}
1382            setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
1383            V214= make_cons(symbol_value(VV[9]),Cnil);
1384    goto T699;
1385    T699:;
1386          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
1387          {register object V211;          {register object V216;
1388          V211= small_fixnum(0);          V216= small_fixnum(0);
1389  goto T704;  goto T709;
1390  T704:;  T709:;
1391          if(!(number_compare((V211),small_fixnum(5))>=0)){          if(!(number_compare((V216),small_fixnum(5))>=0)){
1392          goto T705;}          goto T710;}
1393          goto T701;          goto T706;
1394  goto T705;  goto T710;
1395  T705:;  T710:;
1396          if(!(type_of(car((V208)))==t_symbol)){          if(!(type_of(car((V213)))==t_symbol)){
1397          goto T711;}          goto T716;}
1398          princ_str("(V",VV[16]);          princ_str("(V",VV[16]);
1399          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V207)));
1400          princ_str("== ",VV[16]);          princ_str("== ",VV[16]);
1401          {object V212= car((V208));          {object V217= car((V213));
1402          if((V212!= Ct))goto T718;          if((V217!= Ct))goto T723;
1403          princ_str("Ct",VV[16]);          princ_str("Ct",VV[16]);
1404          goto T717;          goto T722;
1405  goto T718;  goto T723;
1406  T718:;  T723:;
1407          if((V212!= Cnil))goto T720;          if((V217!= Cnil))goto T725;
1408          princ_str("Cnil",VV[16]);          princ_str("Cnil",VV[16]);
1409          goto T717;          goto T722;
1410  goto T720;  goto T725;
1411  T720:;  T725:;
1412          princ_str("VV[",VV[16]);          princ_str("VV[",VV[16]);
1413          V213= (*(LnkLI75))(car((V208)));          V218= (*(LnkLI75))(car((V213)));
1414          (void)((*(LnkLI54))(/* INLINE-ARGS */V213));          (void)((*(LnkLI54))(/* INLINE-ARGS */V218));
1415          princ_char(93,VV[16]);}          princ_char(93,VV[16]);}
1416  goto T717;  goto T722;
1417  T717:;  T722:;
1418          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1419          goto T709;          goto T714;
1420  goto T711;  goto T716;
1421  T711:;  T716:;
1422          princ_str("eql(V",VV[16]);          princ_str("eql(V",VV[16]);
1423          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V207)));
1424          princ_str(",VV[",VV[16]);          princ_str(",VV[",VV[16]);
1425          (void)((*(LnkLI54))(car((V208))));          (void)((*(LnkLI54))(car((V213))));
1426          princ_str("])",VV[16]);          princ_str("])",VV[16]);
1427  goto T709;  goto T714;
1428  T709:;  T714:;
1429          if(!(number_compare((V211),small_fixnum(4))<0)){          if(!(number_compare((V216),small_fixnum(4))<0)){
1430          goto T731;}          goto T736;}
1431          princ_str("\n   || ",VV[16]);          princ_str("\n   || ",VV[16]);
1432  goto T731;  goto T736;
1433  T731:;  T736:;
1434          {object V214;          {object V219;
1435          V214= car((V208));          V219= car((V213));
1436          V208= cdr((V208));}          V213= cdr((V213));}
1437          V211= one_plus((V211));          V216= one_plus((V216));
1438          goto T704;}          goto T709;}
1439  goto T701;  goto T706;
1440  T701:;  T706:;
1441          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1442          if(type_of((V209))!=t_cons)FEwrong_type_argument(Scons,(V209));          if(type_of((V214))!=t_cons)FEwrong_type_argument(Scons,(V214));
1443          ((V209))->c.c_cdr = Ct;          ((V214))->c.c_cdr = Ct;
1444          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
1445          (void)((*(LnkLI54))(car((V209))));          (void)((*(LnkLI54))(car((V214))));
1446          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1447          goto T689;          goto T694;
1448  goto T687;  goto T692;
1449  T687:;  T692:;
1450          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
1451  goto T755;  goto T760;
1452  T755:;  T760:;
1453          if(!(endp_prop((V208)))){          if(!(endp_prop((V213)))){
1454          goto T756;}          goto T761;}
1455          goto T753;          goto T758;
1456  goto T756;  goto T761;
1457  T756:;  T761:;
1458          if(!(type_of(car((V208)))==t_symbol)){          if(!(type_of(car((V213)))==t_symbol)){
1459          goto T762;}          goto T767;}
1460          princ_str("(V",VV[16]);          princ_str("(V",VV[16]);
1461          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V207)));
1462          princ_str("!= ",VV[16]);          princ_str("!= ",VV[16]);
1463          {object V215= car((V208));          {object V220= car((V213));
1464          if((V215!= Ct))goto T769;          if((V220!= Ct))goto T774;
1465          princ_str("Ct",VV[16]);          princ_str("Ct",VV[16]);
1466          goto T768;          goto T773;
1467  goto T769;  goto T774;
1468  T769:;  T774:;
1469          if((V215!= Cnil))goto T771;          if((V220!= Cnil))goto T776;
1470          princ_str("Cnil",VV[16]);          princ_str("Cnil",VV[16]);
1471          goto T768;          goto T773;
1472  goto T771;  goto T776;
1473  T771:;  T776:;
1474          princ_str("VV[",VV[16]);          princ_str("VV[",VV[16]);
1475          V216= (*(LnkLI75))(car((V208)));          V221= (*(LnkLI75))(car((V213)));
1476          (void)((*(LnkLI54))(/* INLINE-ARGS */V216));          (void)((*(LnkLI54))(/* INLINE-ARGS */V221));
1477          princ_char(93,VV[16]);}          princ_char(93,VV[16]);}
1478  goto T768;  goto T773;
1479  T768:;  T773:;
1480          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1481          goto T760;          goto T765;
1482  goto T762;  goto T767;
1483  T762:;  T767:;
1484          princ_str("!eql(V",VV[16]);          princ_str("!eql(V",VV[16]);
1485          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V207)));
1486          princ_str(",VV[",VV[16]);          princ_str(",VV[",VV[16]);
1487          (void)((*(LnkLI54))(car((V208))));          (void)((*(LnkLI54))(car((V213))));
1488          princ_str("])",VV[16]);          princ_str("])",VV[16]);
1489  goto T760;  goto T765;
1490  T760:;  T765:;
1491          if(endp_prop(cdr((V208)))){          if(endp_prop(cdr((V213)))){
1492          goto T782;}          goto T787;}
1493          princ_str("\n   && ",VV[16]);          princ_str("\n   && ",VV[16]);
1494  goto T782;  goto T787;
1495  T782:;  T787:;
1496          {object V217;          {object V222;
1497          V217= car((V208));          V222= car((V213));
1498          V208= cdr((V208));}          V213= cdr((V213));}
1499          goto T755;          goto T760;
1500  goto T753;  goto T758;
1501  T753:;  T758:;
1502          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1503          if(type_of((V207))!=t_cons)FEwrong_type_argument(Scons,(V207));          if(type_of((V212))!=t_cons)FEwrong_type_argument(Scons,(V212));
1504          ((V207))->c.c_cdr = Ct;          ((V212))->c.c_cdr = Ct;
1505          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
1506          (void)((*(LnkLI54))(car((V207))));          (void)((*(LnkLI54))(car((V212))));
1507          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1508          if(((V209))==Cnil){          if(((V214))==Cnil){
1509          goto T799;}          goto T804;}
1510          if((cdr((V209)))==Cnil){          if((cdr((V214)))==Cnil){
1511          goto T799;}          goto T804;}
1512          princ_str("\ngoto T",VV[16]);          princ_str("\ngoto T",VV[16]);
1513          (void)((*(LnkLI54))(car((V209))));          (void)((*(LnkLI54))(car((V214))));
1514          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1515          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
1516          (void)((*(LnkLI54))(car((V209))));          (void)((*(LnkLI54))(car((V214))));
1517          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
1518  goto T799;  goto T804;
1519  T799:;  T804:;
1520          base[6]= make_cons(VV[17],symbol_value(VV[15]));          base[6]= make_cons(VV[17],symbol_value(VV[15]));
1521          bds_bind(VV[15],base[6]);          bds_bind(VV[15],base[6]);
1522          base[7]= cdr((V206));          base[7]= cdr((V211));
1523          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1524          (void) (*Lnk55)();          (void) (*Lnk55)();
1525          vs_top=sup;          vs_top=sup;
1526          bds_unwind1;          bds_unwind1;
1527          if((cdr((V207)))==Cnil){          if((cdr((V212)))==Cnil){
1528          goto T682;}          goto T687;}
1529          princ_str("\ngoto T",VV[16]);          princ_str("\ngoto T",VV[16]);
1530          (void)((*(LnkLI54))(car((V207))));          (void)((*(LnkLI54))(car((V212))));
1531          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1532          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
1533          (void)((*(LnkLI54))(car((V207))));          (void)((*(LnkLI54))(car((V212))));
1534          princ_str(":;",VV[16]);}          princ_str(":;",VV[16]);}
1535  goto T682;  goto T687;
1536  T682:;  T687:;
1537          V205= cdr((V205));          V210= cdr((V210));
1538          V206= car((V205));          V211= car((V210));
1539          goto T677;}          goto T682;}
1540  goto T673;  goto T678;
1541  T673:;  T678:;
1542          if(!(((V201))==(Ct))){          if(!(((V206))==(Ct))){
1543          goto T830;}          goto T835;}
1544          princ_str("\n   FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]);          princ_str("\n   FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]);
1545          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V207)));
1546          princ_str(");",VV[16]);          princ_str(");",VV[16]);
1547          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
1548          goto T828;          goto T833;
1549  goto T830;  goto T835;
1550  T830:;  T835:;
1551          base[3]= (V201);          base[3]= (V206);
1552          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1553          (void) (*Lnk55)();          (void) (*Lnk55)();
1554          vs_top=sup;          vs_top=sup;
1555  goto T828;  goto T833;
1556  T828:;  T833:;
1557          princ_char(125,VV[16]);          princ_char(125,VV[16]);
1558          {object V218 = (*(LnkLI63))();          {object V223 = (*(LnkLI63))();
1559          bds_unwind1;          bds_unwind1;
1560          bds_unwind1;          bds_unwind1;
1561          VMR16(V218)}}          VMR16(V223)}}
1562          base[0]=base[0];          base[0]=base[0];
1563          return Cnil;          return Cnil;
1564  }  }

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