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

Diff of /gcl/lsp/setf.c

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

revision 1.5 by camm, Fri Aug 2 22:23:59 2002 UTC revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 32  T1:; Line 32  T1:;
32          V4= list(3,VV[5],list(2,VV[3],base[2]),VV[6]);          V4= list(3,VV[5],list(2,VV[3],base[2]),VV[6]);
33          V5= list(3,VV[5],list(2,VV[3],base[2]),VV[7]);          V5= list(3,VV[5],list(2,VV[3],base[2]),VV[7]);
34          V6= list(2,VV[3],base[2]);          V6= list(2,VV[3],base[2]);
35          if(endp(cdr(base[3]))){          if(endp_prop(cdr(base[3]))){
36          goto T11;}          goto T11;}
37          if(type_of(cadr(base[3]))==t_string){          if(type_of(cadr(base[3]))==t_string){
38          goto T13;}          goto T13;}
# Line 42  T1:; Line 42  T1:;
42          vs_top=sup;          vs_top=sup;
43  goto T13;  goto T13;
44  T13:;  T13:;
45          if(endp(cddr(base[3]))){          if(endp_prop(cddr(base[3]))){
46          goto T17;}          goto T17;}
47          base[4]= VV[9];          base[4]= VV[9];
48          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 350  T117:; Line 350  T117:;
350          Lgensym();          Lgensym();
351          vs_top=sup;          vs_top=sup;
352          (V43->c.c_car)= vs_base[0];          (V43->c.c_car)= vs_base[0];
353          if(endp(V44=MMcdr(V44))){          V44=MMcdr(V44);
354            if(endp(V44)){
355          V41= base[2];          V41= base[2];
356          goto T116;}          goto T116;}
357          V43=MMcdr(V43)=MMcons(Cnil,Cnil);          V43=MMcdr(V43)=MMcons(Cnil,Cnil);
# Line 399  T133:; Line 400  T133:;
400          Lgensym();          Lgensym();
401          vs_top=sup;          vs_top=sup;
402          (V53->c.c_car)= vs_base[0];          (V53->c.c_car)= vs_base[0];
403          if(endp(V54=MMcdr(V54))){          V54=MMcdr(V54);
404            if(endp(V54)){
405          V49= base[6];          V49= base[6];
406          goto T132;}          goto T132;}
407          V53=MMcdr(V53)=MMcons(Cnil,Cnil);          V53=MMcdr(V53)=MMcons(Cnil,Cnil);
# Line 1177  T349:; Line 1179  T349:;
1179  goto T351;  goto T351;
1180  T351:;  T351:;
1181          (V164->c.c_car)= list(2,(V165->c.c_car),(V166->c.c_car));          (V164->c.c_car)= list(2,(V165->c.c_car),(V166->c.c_car));
1182          if(endp(V165=MMcdr(V165))||endp(V166=MMcdr(V166))){          V165=MMcdr(V165);
1183            V166=MMcdr(V166);
1184            if(endp(V165)||endp(V166)){
1185          V163= base[0];          V163= base[0];
1186          goto T350;}          goto T350;}
1187          V164=MMcdr(V164)=MMcons(Cnil,Cnil);          V164=MMcdr(V164)=MMcons(Cnil,Cnil);
# Line 1220  register object V185;object V186; Line 1224  register object V185;object V186;
1224  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1225  goto TTL;  goto TTL;
1226  TTL:;  TTL:;
1227          if(!(endp((V185)))){          if(!(endp_prop((V185)))){
1228          goto T356;}          goto T356;}
1229          {object V187 = Cnil;          {object V187 = Cnil;
1230          VMR14(V187)}          VMR14(V187)}
1231  goto T356;  goto T356;
1232  T356:;  T356:;
1233          if(!(endp(cdr((V185))))){          if(!(endp_prop(cdr((V185))))){
1234          goto T359;}          goto T359;}
1235          base[0]= VV[55];          base[0]= VV[55];
1236          base[1]= (V185);          base[1]= (V185);
# Line 1253  register object V194;object V195; Line 1257  register object V194;object V195;
1257  goto TTL;  goto TTL;
1258  TTL:;  TTL:;
1259          V194= cdr((V194));          V194= cdr((V194));
1260          if(!(endp((V194)))){          if(!(endp_prop((V194)))){
1261          goto T366;}          goto T366;}
1262          {object V196 = Cnil;          {object V196 = Cnil;
1263          VMR15(V196)}          VMR15(V196)}
1264  goto T366;  goto T366;
1265  T366:;  T366:;
1266          if(!(endp(cdr((V194))))){          if(!(endp_prop(cdr((V194))))){
1267          goto T369;}          goto T369;}
1268          base[0]= VV[56];          base[0]= VV[56];
1269          base[1]= (V194);          base[1]= (V194);
# Line 1270  T366:; Line 1274  T366:;
1274          VMR15(V197)}          VMR15(V197)}
1275  goto T369;  goto T369;
1276  T369:;  T369:;
1277          if(!(endp(cddr((V194))))){          if(!(endp_prop(cddr((V194))))){
1278          goto T374;}          goto T374;}
1279          {object V198 = (*(LnkLI99))(car((V194)),cadr((V194)),(V195));          {object V198 = (*(LnkLI99))(car((V194)),cadr((V194)),(V195));
1280          VMR15(V198)}          VMR15(V198)}
# Line 1292  static void L16() Line 1296  static void L16()
1296          vs_top=sup;          vs_top=sup;
1297          {object V201=base[0]->c.c_cdr;          {object V201=base[0]->c.c_cdr;
1298          base[2]= V201;}          base[2]= V201;}
1299          if(!(endp(base[2]))){          if(!(endp_prop(base[2]))){
1300          goto T377;}          goto T377;}
1301          base[3]= Cnil;          base[3]= Cnil;
1302          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1303          return;          return;
1304  goto T377;  goto T377;
1305  T377:;  T377:;
1306          if(!(endp(cdr(base[2])))){          if(!(endp_prop(cdr(base[2])))){
1307          goto T380;}          goto T380;}
1308          base[3]= VV[58];          base[3]= VV[58];
1309          base[4]= base[2];          base[4]= base[2];
# Line 1308  T377:; Line 1312  T377:;
1312          return;          return;
1313  goto T380;  goto T380;
1314  T380:;  T380:;
1315          if(!(endp(cddr(base[2])))){          if(!(endp_prop(cddr(base[2])))){
1316          goto T385;}          goto T385;}
1317          V202= (*(LnkLI99))(car(base[2]),cadr(base[2]),base[1]);          V202= (*(LnkLI99))(car(base[2]),cadr(base[2]),base[1]);
1318          base[3]= list(3,VV[57],/* INLINE-ARGS */V202,Cnil);          base[3]= list(3,VV[57],/* INLINE-ARGS */V202,Cnil);
# Line 1324  T385:; Line 1328  T385:;
1328          V205= Cnil;          V205= Cnil;
1329  goto T388;  goto T388;
1330  T388:;  T388:;
1331          if(!(endp((V203)))){          if(!(endp_prop((V203)))){
1332          goto T389;}          goto T389;}
1333          V206= nreverse((V205));          V206= nreverse((V205));
1334          base[3]= listA(3,VV[51],(V204),append(/* INLINE-ARGS */V206,VV[59]));          base[3]= listA(3,VV[51],(V204),append(/* INLINE-ARGS */V206,VV[59]));
# Line 1332  T388:; Line 1336  T388:;
1336          return;          return;
1337  goto T389;  goto T389;
1338  T389:;  T389:;
1339          if(!(endp(cdr((V203))))){          if(!(endp_prop(cdr((V203))))){
1340          goto T393;}          goto T393;}
1341          base[3]= VV[60];          base[3]= VV[60];
1342          base[4]= base[2];          base[4]= base[2];
# Line 1397  T407:; Line 1401  T407:;
1401  goto T412;  goto T412;
1402  T412:;  T412:;
1403          (V213->c.c_car)= list(2,(V214->c.c_car),(V215->c.c_car));          (V213->c.c_car)= list(2,(V214->c.c_car),(V215->c.c_car));
1404          if(endp(V214=MMcdr(V214))||endp(V215=MMcdr(V215))){          V214=MMcdr(V214);
1405            V215=MMcdr(V215);
1406            if(endp(V214)||endp(V215)){
1407          V212= base[3];          V212= base[3];
1408          goto T411;}          goto T411;}
1409          V213=MMcdr(V213)=MMcons(Cnil,Cnil);          V213=MMcdr(V213)=MMcons(Cnil,Cnil);
# Line 1435  static void L17() Line 1441  static void L17()
1441          V225= Cnil;          V225= Cnil;
1442  goto T419;  goto T419;
1443  T419:;  T419:;
1444          if(!(endp(cdr((V220))))){          if(!(endp_prop(cdr((V220))))){
1445          goto T420;}          goto T420;}
1446          V222= nreverse((V222));          V222= nreverse((V222));
1447          V223= nreverse((V223));          V223= nreverse((V223));
# Line 1453  T419:; Line 1459  T419:;
1459  goto T433;  goto T433;
1460  T433:;  T433:;
1461          (V228->c.c_car)= list(2,(V229->c.c_car),(V230->c.c_car));          (V228->c.c_car)= list(2,(V229->c.c_car),(V230->c.c_car));
1462          if(endp(V229=MMcdr(V229))||endp(V230=MMcdr(V230))){          V229=MMcdr(V229);
1463            V230=MMcdr(V230);
1464            if(endp(V229)||endp(V230)){
1465          base[5]= base[6];          base[5]= base[6];
1466          goto T432;}          goto T432;}
1467          V228=MMcdr(V228)=MMcons(Cnil,Cnil);          V228=MMcdr(V228)=MMcons(Cnil,Cnil);
# Line 1529  T448:; Line 1537  T448:;
1537  goto T452;  goto T452;
1538  T452:;  T452:;
1539          (V240->c.c_car)= list(2,(V241->c.c_car),(V242->c.c_car));          (V240->c.c_car)= list(2,(V241->c.c_car),(V242->c.c_car));
1540          if(endp(V241=MMcdr(V241))||endp(V242=MMcdr(V242))){          V241=MMcdr(V241);
1541            V242=MMcdr(V242);
1542            if(endp(V241)||endp(V242)){
1543          V239= base[3];          V239= base[3];
1544          goto T451;}          goto T451;}
1545          V240=MMcdr(V240)=MMcons(Cnil,Cnil);          V240=MMcdr(V240)=MMcons(Cnil,Cnil);
# Line 1565  static void L18() Line 1575  static void L18()
1575          V248= Cnil;          V248= Cnil;
1576  goto T463;  goto T463;
1577  T463:;  T463:;
1578          if(!(endp((V244)))){          if(!(endp_prop((V244)))){
1579          goto T464;}          goto T464;}
1580          V246= nreverse((V246));          V246= nreverse((V246));
1581          V247= nreverse((V247));          V247= nreverse((V247));
# Line 1581  T463:; Line 1591  T463:;
1591  goto T476;  goto T476;
1592  T476:;  T476:;
1593          (V250->c.c_car)= list(2,(V251->c.c_car),(V252->c.c_car));          (V250->c.c_car)= list(2,(V251->c.c_car),(V252->c.c_car));
1594          if(endp(V251=MMcdr(V251))||endp(V252=MMcdr(V252))){          V251=MMcdr(V251);
1595            V252=MMcdr(V252);
1596            if(endp(V251)||endp(V252)){
1597          base[4]= base[5];          base[4]= base[5];
1598          goto T475;}          goto T475;}
1599          V250=MMcdr(V250)=MMcons(Cnil,Cnil);          V250=MMcdr(V250)=MMcons(Cnil,Cnil);
# Line 1656  T491:; Line 1668  T491:;
1668  goto T495;  goto T495;
1669  T495:;  T495:;
1670          (V261->c.c_car)= list(2,(V262->c.c_car),(V263->c.c_car));          (V261->c.c_car)= list(2,(V262->c.c_car),(V263->c.c_car));
1671          if(endp(V262=MMcdr(V262))||endp(V263=MMcdr(V263))){          V262=MMcdr(V262);
1672            V263=MMcdr(V263);
1673            if(endp(V262)||endp(V263)){
1674          V260= base[3];          V260= base[3];
1675          goto T494;}          goto T494;}
1676          V261=MMcdr(V261)=MMcons(Cnil,Cnil);          V261=MMcdr(V261)=MMcons(Cnil,Cnil);
# Line 1816  T539:; Line 1830  T539:;
1830  goto T541;  goto T541;
1831  T541:;  T541:;
1832          (V283->c.c_car)= list(2,(V284->c.c_car),(V285->c.c_car));          (V283->c.c_car)= list(2,(V284->c.c_car),(V285->c.c_car));
1833          if(endp(V284=MMcdr(V284))||endp(V285=MMcdr(V285))){          V284=MMcdr(V284);
1834            V285=MMcdr(V285);
1835            if(endp(V284)||endp(V285)){
1836          V282= base[4];          V282= base[4];
1837          goto T540;}          goto T540;}
1838          V283=MMcdr(V283)=MMcons(Cnil,Cnil);          V283=MMcdr(V283)=MMcons(Cnil,Cnil);
# Line 1909  T555:; Line 1925  T555:;
1925  goto T557;  goto T557;
1926  T557:;  T557:;
1927          (V295->c.c_car)= list(2,(V296->c.c_car),(V297->c.c_car));          (V295->c.c_car)= list(2,(V296->c.c_car),(V297->c.c_car));
1928          if(endp(V296=MMcdr(V296))||endp(V297=MMcdr(V297))){          V296=MMcdr(V296);
1929            V297=MMcdr(V297);
1930            if(endp(V296)||endp(V297)){
1931          V294= base[4];          V294= base[4];
1932          goto T556;}          goto T556;}
1933          V295=MMcdr(V295)=MMcons(Cnil,Cnil);          V295=MMcdr(V295)=MMcons(Cnil,Cnil);
# Line 2001  T571:; Line 2019  T571:;
2019  goto T573;  goto T573;
2020  T573:;  T573:;
2021          (V310->c.c_car)= list(2,(V311->c.c_car),(V312->c.c_car));          (V310->c.c_car)= list(2,(V311->c.c_car),(V312->c.c_car));
2022          if(endp(V311=MMcdr(V311))||endp(V312=MMcdr(V312))){          V311=MMcdr(V311);
2023            V312=MMcdr(V312);
2024            if(endp(V311)||endp(V312)){
2025          V309= base[4];          V309= base[4];
2026          goto T572;}          goto T572;}
2027          V310=MMcdr(V310)=MMcons(Cnil,Cnil);          V310=MMcdr(V310)=MMcons(Cnil,Cnil);
# Line 2091  T586:; Line 2111  T586:;
2111  goto T588;  goto T588;
2112  T588:;  T588:;
2113          (V324->c.c_car)= list(2,(V325->c.c_car),(V326->c.c_car));          (V324->c.c_car)= list(2,(V325->c.c_car),(V326->c.c_car));
2114          if(endp(V325=MMcdr(V325))||endp(V326=MMcdr(V326))){          V325=MMcdr(V325);
2115            V326=MMcdr(V326);
2116            if(endp(V325)||endp(V326)){
2117          V323= base[4];          V323= base[4];
2118          goto T587;}          goto T587;}
2119          V324=MMcdr(V324)=MMcons(Cnil,Cnil);          V324=MMcdr(V324)=MMcons(Cnil,Cnil);
# Line 2181  T601:; Line 2203  T601:;
2203  goto T603;  goto T603;
2204  T603:;  T603:;
2205          (V338->c.c_car)= list(2,(V339->c.c_car),(V340->c.c_car));          (V338->c.c_car)= list(2,(V339->c.c_car),(V340->c.c_car));
2206          if(endp(V339=MMcdr(V339))||endp(V340=MMcdr(V340))){          V339=MMcdr(V339);
2207            V340=MMcdr(V340);
2208            if(endp(V339)||endp(V340)){
2209          V337= base[5];          V337= base[5];
2210          goto T602;}          goto T602;}
2211          V338=MMcdr(V338)=MMcons(Cnil,Cnil);          V338=MMcdr(V338)=MMcons(Cnil,Cnil);
# Line 2275  T617:; Line 2299  T617:;
2299  goto T619;  goto T619;
2300  T619:;  T619:;
2301          (V355->c.c_car)= list(2,(V356->c.c_car),(V357->c.c_car));          (V355->c.c_car)= list(2,(V356->c.c_car),(V357->c.c_car));
2302          if(endp(V356=MMcdr(V356))||endp(V357=MMcdr(V357))){          V356=MMcdr(V356);
2303            V357=MMcdr(V357);
2304            if(endp(V356)||endp(V357)){
2305          V354= base[3];          V354= base[3];
2306          goto T618;}          goto T618;}
2307          V355=MMcdr(V355)=MMcons(Cnil,Cnil);          V355=MMcdr(V355)=MMcons(Cnil,Cnil);

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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