/[gcl]/gcl/pcl/pcl_macros.c
ViewVC logotype

Diff of /gcl/pcl/pcl_macros.c

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

revision 1.5 by camm, Fri Oct 3 16:03:18 2003 UTC revision 1.6 by camm, Tue Oct 7 21:07:36 2003 UTC
# Line 244  TTL:; Line 244  TTL:;
244  T17:;  T17:;
245          V32= CMPcar((V29));          V32= CMPcar((V29));
246          V33= CMPcar((V30));          V33= CMPcar((V30));
247          {object V34 = listA(3,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,(*(LnkLI130))(CMPcdr((V29)),CMPcdr((V30))));          {object V34 = listA(3,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,(*(LnkLI123))(CMPcdr((V29)),CMPcdr((V30))));
248          VMR13(V34)}          VMR13(V34)}
249          return Cnil;          return Cnil;
250  }  }
# Line 263  TTL:; Line 263  TTL:;
263          goto T20;          goto T20;
264  T20:;  T20:;
265          V40= CMPcar((V37));          V40= CMPcar((V37));
266          V41= (*(LnkLI131))(CMPcdr((V37)),(V38));          V41= (*(LnkLI124))(CMPcdr((V37)),(V38));
267          {object V42 = make_cons(/* INLINE-ARGS */V40,/* INLINE-ARGS */V41);          {object V42 = make_cons(/* INLINE-ARGS */V40,/* INLINE-ARGS */V41);
268          VMR14(V42)}          VMR14(V42)}
269          return Cnil;          return Cnil;
# Line 587  static object LI19(object first,...) Line 587  static object LI19(object first,...)
587  T154:;  T154:;
588          if(((V94))!=Cnil){          if(((V94))!=Cnil){
589          goto T155;}          goto T155;}
590          base[0]=VV[132]->s.s_gfdef;          base[0]=VV[125]->s.s_gfdef;
591          base[1]= VV[36];          base[1]= VV[36];
592          {object V95;          {object V95;
593          V95= (V92);          V95= (V92);
# Line 595  T154:; Line 595  T154:;
595           while(V95!=Cnil)           while(V95!=Cnil)
596           {vs_push((V95)->c.c_car);V95=(V95)->c.c_cdr;}           {vs_push((V95)->c.c_car);V95=(V95)->c.c_cdr;}
597          vs_base=base+1;}          vs_base=base+1;}
598          (void) (*Lnk132)();          (void) (*Lnk125)();
599          vs_top=sup;          vs_top=sup;
600          {object V96 = vs_base[0];          {object V96 = vs_base[0];
601          VMR19(V96)}          VMR19(V96)}
# Line 632  T165:; Line 632  T165:;
632          V100= (VV[37]->s.s_dbind);          V100= (VV[37]->s.s_dbind);
633          goto T166;          goto T166;
634  T166:;  T166:;
635          base[3]= (VFUN_NARGS=2,(*(LnkLI133))((V98),(V99)));          base[3]= (VFUN_NARGS=2,(*(LnkLI126))((V98),(V99)));
636          base[4]= (V100);          base[4]= (V100);
637          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
638          Lintern();          Lintern();
# Line 656  static void L21() Line 656  static void L21()
656          V101=V101->c.c_cdr;          V101=V101->c.c_cdr;
657          {object V102=getf(V101,VV[39],OBJNULL);          {object V102=getf(V101,VV[39],OBJNULL);
658          if(V102==OBJNULL){          if(V102==OBJNULL){
659          base[4]= (VV[134]->s.s_gfdef);} else {          base[4]= (VV[127]->s.s_gfdef);} else {
660          base[4]= V102;          base[4]= V102;
661          }}          }}
662          {object V103=getf(V101,VV[135],OBJNULL);          {object V103=getf(V101,VV[128],OBJNULL);
663          if(V103==OBJNULL){          if(V103==OBJNULL){
664          base[5]= base[2];} else {          base[5]= base[2];} else {
665          base[5]= V103;          base[5]= V103;
666          }}          }}
667          check_other_key(V101,2,VV[39],VV[135]);}          check_other_key(V101,2,VV[39],VV[128]);}
668          {register object V104;          {register object V104;
669          register object V105;          register object V105;
670          object V106;          object V106;
# Line 912  static void L23() Line 912  static void L23()
912          object V151;          object V151;
913          base[5]= base[4];          base[5]= base[4];
914          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
915          (void) (*Lnk136)();          (void) (*Lnk129)();
916          if(vs_base>=vs_top){vs_top=sup;goto T246;}          if(vs_base>=vs_top){vs_top=sup;goto T246;}
917          V149= vs_base[0];          V149= vs_base[0];
918          vs_base++;          vs_base++;
# Line 939  T249:; Line 939  T249:;
939          base[5]= base[2];          base[5]= base[2];
940          base[6]= base[3];          base[6]= base[3];
941          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
942          (void) (*Lnk137)();          (void) (*Lnk130)();
943          if(vs_base>=vs_top){vs_top=sup;goto T253;}          if(vs_base>=vs_top){vs_top=sup;goto T253;}
944          V152= vs_base[0];          V152= vs_base[0];
945          vs_base++;          vs_base++;
# Line 990  TTL:; Line 990  TTL:;
990          V158= make_cons(/* INLINE-ARGS */V159,Cnil);          V158= make_cons(/* INLINE-ARGS */V159,Cnil);
991          V157= VV[51];          V157= VV[51];
992          V160 = (V158);          V160 = (V158);
993          V161= (*(LnkLI138))((V156),(V157));          V161= (*(LnkLI131))((V156),(V157));
994          V162= nreverse(/* INLINE-ARGS */V161);          V162= nreverse(/* INLINE-ARGS */V161);
995          base[3]= nconc(V160,/* INLINE-ARGS */V162);          base[3]= nconc(V160,/* INLINE-ARGS */V162);
996          base[5]= Cnil;          base[5]= Cnil;
# Line 1147  T337:; Line 1147  T337:;
1147          goto T335;          goto T335;
1148  T335:;  T335:;
1149          V186 = (V167);          V186 = (V167);
1150          V187= (*(LnkLI138))(V185,V186);          V187= (*(LnkLI131))(V185,V186);
1151          V181= listA(4,VV[24],/* INLINE-ARGS */V183,V184,nreverse(/* INLINE-ARGS */V187));          V181= listA(4,VV[24],/* INLINE-ARGS */V183,V184,nreverse(/* INLINE-ARGS */V187));
1152          V169= make_cons((V181),(V169));}          V169= make_cons((V181),(V169));}
1153          if(!(type_of(CMPcdr((V170)))==t_symbol)){          if(!(type_of(CMPcdr((V170)))==t_symbol)){
# Line 1176  static void L27() Line 1176  static void L27()
1176          check_arg(2);          check_arg(2);
1177          vs_top=sup;          vs_top=sup;
1178          {object V190=base[0]->c.c_cdr;          {object V190=base[0]->c.c_cdr;
1179          {object V191=getf(V190,VV[139],OBJNULL);          {object V191=getf(V190,VV[132],OBJNULL);
1180          if(V191==OBJNULL){          if(V191==OBJNULL){
1181          base[2]= Cnil;} else {          base[2]= Cnil;} else {
1182          base[2]= V191;          base[2]= V191;
1183          }}          }}
1184          check_other_key(V190,1,VV[139]);}          check_other_key(V190,1,VV[132]);}
1185          V192= list(2,VV[57],base[2]);          V192= list(2,VV[57],base[2]);
1186          if(base[2]==Cnil){          if(base[2]==Cnil){
1187          V193= Cnil;          V193= Cnil;
# Line 1222  static void L28() Line 1222  static void L28()
1222          base[6]= base[5];          base[6]= base[5];
1223          base[7]= base[1];          base[7]= base[1];
1224          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1225          (void) (*Lnk136)();          (void) (*Lnk129)();
1226          if(vs_base>=vs_top){vs_top=sup;goto T353;}          if(vs_base>=vs_top){vs_top=sup;goto T353;}
1227          V196= vs_base[0];          V196= vs_base[0];
1228          vs_base++;          vs_base++;
# Line 1717  T450:;{object V273; Line 1717  T450:;{object V273;
1717  T452:;}  T452:;}
1718          if(((V272))!=Cnil){          if(((V272))!=Cnil){
1719          goto T457;}          goto T457;}
1720          if(((*(LnkLI140))((V271)))!=Cnil){          if(((*(LnkLI133))((V271)))!=Cnil){
1721          goto T459;}          goto T459;}
1722          base[0]= VV[83];          base[0]= VV[83];
1723          base[1]= (V271);          base[1]= (V271);
# Line 1729  T459:; Line 1729  T459:;
1729          {object V276;          {object V276;
1730          object V277;          object V277;
1731          V276= (VV[82]->s.s_dbind);          V276= (VV[82]->s.s_dbind);
1732          V278= (VV[141]->s.s_gfdef);          V278= (VV[134]->s.s_gfdef);
1733          V277= listA(3,Cnil,V278,Cnil);          V277= listA(3,Cnil,V278,Cnil);
1734          base[1]= V271;          base[1]= V271;
1735          base[2]= (V276);          base[2]= (V276);
# Line 1779  T473:;}{object V288; Line 1779  T473:;}{object V288;
1779          if((VV[84]->s.s_dbind)==Cnil){          if((VV[84]->s.s_dbind)==Cnil){
1780          V288= Cnil;          V288= Cnil;
1781          goto T476;}          goto T476;}
1782          if(((*(LnkLI142))((V283)))!=Cnil){          if(((*(LnkLI135))((V283)))!=Cnil){
1783          goto T477;}          goto T477;}
1784          V288= Cnil;          V288= Cnil;
1785          goto T476;          goto T476;
# Line 1787  T473:;}{object V288; Line 1787  T473:;}{object V288;
1787  T477:;  T477:;
1788          base[0]= (V283);          base[0]= (V283);
1789          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1790          (void) (*Lnk143)();          (void) (*Lnk136)();
1791          vs_top=sup;          vs_top=sup;
1792          V288= vs_base[0];          V288= vs_base[0];
1793          goto T476;          goto T476;
# Line 1803  T475:;} Line 1803  T475:;}
1803          VMR42(V290)}          VMR42(V290)}
1804          goto T481;          goto T481;
1805  T481:;  T481:;
1806          if(((*(LnkLI140))((V283)))==Cnil){          if(((*(LnkLI133))((V283)))==Cnil){
1807          goto T484;}          goto T484;}
1808          base[0]= VV[85];          base[0]= VV[85];
1809          base[1]= (V283);          base[1]= (V283);
# Line 1850  T490:; Line 1850  T490:;
1850  T491:;  T491:;
1851          if((CMPcar((V296)))!=Cnil){          if((CMPcar((V296)))!=Cnil){
1852          goto T493;}          goto T493;}
1853          (void)((VFUN_NARGS=3,(*(LnkLI144))((V295),(V296),(V297))));          (void)((VFUN_NARGS=3,(*(LnkLI137))((V295),(V296),(V297))));
1854          goto T493;          goto T493;
1855  T493:;  T493:;
1856          {object V298 = CMPcadr((V296));          {object V298 = CMPcadr((V296));
# Line 1905  T499:; Line 1905  T499:;
1905          goto T500;          goto T500;
1906  T500:;  T500:;
1907          V307 = (V304);          V307 = (V304);
1908          V308= (VFUN_NARGS=2,(*(LnkLI145))((V304),(V305)));          V308= (VFUN_NARGS=2,(*(LnkLI138))((V304),(V305)));
1909          V309 = (V305);          V309 = (V305);
1910          {object V310 = (VFUN_NARGS=3,(*(LnkLI144))(V307,/* INLINE-ARGS */V308,V309));          {object V310 = (VFUN_NARGS=3,(*(LnkLI137))(V307,/* INLINE-ARGS */V308,V309));
1911          VMR45(V310)}          VMR45(V310)}
1912          va_end(ap);          va_end(ap);
1913          return Cnil;}          return Cnil;}
# Line 1941  T504:; Line 1941  T504:;
1941          goto T505;          goto T505;
1942  T505:;  T505:;
1943          V315 = (V312);          V315 = (V312);
1944          V316= (VFUN_NARGS=2,(*(LnkLI145))((V312),(V313)));          V316= (VFUN_NARGS=2,(*(LnkLI138))((V312),(V313)));
1945          V317 = (V313);          V317 = (V313);
1946          {object V318 = (VFUN_NARGS=3,(*(LnkLI146))(V315,/* INLINE-ARGS */V316,V317));          {object V318 = (VFUN_NARGS=3,(*(LnkLI139))(V315,/* INLINE-ARGS */V316,V317));
1947          VMR46(V318)}          VMR46(V318)}
1948          va_end(ap);          va_end(ap);
1949          return Cnil;}          return Cnil;}
1950          }          }
1951  /*      local entry for function SETF PCL FIND-CLASS    */  /*      function definition for G2035   */
   
 static object LI49(V321,V322)  
1952    
1953  register object V321;object V322;  static void L49()
1954  {        VMB47 VMS47 VMV47  {register object *base=vs_base;
1955            register object *sup=base+VM47; VC47
1956            vs_check;
1957            {register object V319;
1958            object V320;
1959            check_arg(2);
1960            V319=(base[0]);
1961            V320=(base[1]);
1962            vs_top=sup;
1963          goto TTL;          goto TTL;
1964  TTL:;  TTL:;
1965          if(((*(LnkLI140))((V322)))==Cnil){          if(((*(LnkLI133))((V320)))==Cnil){
1966          goto T509;}          goto T509;}
1967          {object V323;          {object V321;
1968          V323= (VFUN_NARGS=1,(*(LnkLI145))((V322)));          V321= (VFUN_NARGS=1,(*(LnkLI138))((V320)));
1969          (V323)->c.c_car = V321;          (V321)->c.c_car = V319;
1970          if(((VV[87]->s.s_dbind))==(VV[88])){          if(((VV[87]->s.s_dbind))==(VV[88])){
1971          goto T514;}          goto T514;}
1972          if(!(((VV[87]->s.s_dbind))==(VV[89]))){          if(!(((VV[87]->s.s_dbind))==(VV[89]))){
1973          goto T515;}          goto T515;}
1974          goto T514;          goto T514;
1975  T514:;  T514:;
1976          {object V327;          {object V325;
1977          base[2]= (V321);          base[4]= (V319);
1978          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+4)+1;
1979          (void) (*Lnk147)(Lclptr147);          (void) (*Lnk140)(Lclptr140);
1980          vs_top=sup;          vs_top=sup;
1981          base[1]= vs_base[0];          base[3]= vs_base[0];
1982          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+3)+1;
1983          Lsymbol_function();          Lsymbol_function();
1984          vs_top=sup;          vs_top=sup;
1985          V327= vs_base[0];          V325= vs_base[0];
1986          (CMPcdr(V323))->c.c_car = (V327);          (CMPcdr(V321))->c.c_car = (V325);
1987          (void)(CMPcdr(V323));}          (void)(CMPcdr(V321));}
1988          if(((V321))==Cnil){          if(((V319))==Cnil){
1989          goto T525;}          goto T525;}
1990          base[0]= (V321);          base[2]= (V319);
1991          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+2)+1;
1992          (void) (*Lnk148)(Lclptr148);          (void) (*Lnk141)(Lclptr141);
1993          vs_top=sup;          vs_top=sup;
1994          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1995          goto T525;}          goto T525;}
1996          {register object V328;          {register object V326;
1997          register object V329;          register object V327;
1998          V328= CMPcddr((V323));          V326= CMPcddr((V321));
1999          V329= CMPcar((V328));          V327= CMPcar((V326));
2000          goto T533;          goto T533;
2001  T533:;  T533:;
2002          if(!(((V328))==Cnil)){          if(!(((V326))==Cnil)){
2003          goto T534;}          goto T534;}
2004          {object V330 = Cnil;          base[4]= Cnil;
2005          VMR47(V330)}          vs_top=(vs_base=base+4)+1;
2006            return;
2007          goto T534;          goto T534;
2008  T534:;  T534:;
2009          V331= (VFUN_NARGS=4,(*(LnkLI150))((V321),CMPcar((V329)),Cnil,CMPcdr((V329))));          V328= (VFUN_NARGS=4,(*(LnkLI143))((V319),CMPcar((V327)),Cnil,CMPcdr((V327))));
2010          (void)((*(LnkLI149))(/* INLINE-ARGS */V331,VV[90]));          (void)((*(LnkLI142))(/* INLINE-ARGS */V328,VV[90]));
2011          V328= CMPcdr((V328));          V326= CMPcdr((V326));
2012          V329= CMPcar((V328));          V327= CMPcar((V326));
2013          goto T533;}          goto T533;}
2014          goto T525;          goto T525;
2015  T525:;  T525:;
2016          {object V332 = Cnil;          base[2]= Cnil;
2017          VMR47(V332)}          vs_top=(vs_base=base+2)+1;
2018            return;
2019          goto T515;          goto T515;
2020  T515:;  T515:;
2021          {object V333 = Cnil;          base[2]= Cnil;
2022          VMR47(V333)}}          vs_top=(vs_base=base+2)+1;
2023            return;}
2024          goto T509;          goto T509;
2025  T509:;  T509:;
2026          base[0]= VV[91];          base[2]= VV[91];
2027          base[1]= (V322);          base[3]= (V320);
2028          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+2)+2;
2029          Lerror();          Lerror();
2030          vs_top=sup;          return;
2031          {object V334 = vs_base[0];          }
         VMR47(V334)}  
         base[0]=base[0];  
         return Cnil;  
2032  }  }
2033  /*      local entry for function SETF PCL FIND-CLASS-PREDICATE  */  /*      function definition for G2044   */
2034    
2035  static object LI50(V337,V338)  static void L50()
2036    {register object *base=vs_base;
2037  object V337;object V338;          register object *sup=base+VM48; VC48
2038  {        VMB48 VMS48 VMV48          vs_check;
2039            {object V329;
2040            object V330;
2041            check_arg(2);
2042            V329=(base[0]);
2043            V330=(base[1]);
2044            vs_top=sup;
2045          goto TTL;          goto TTL;
2046  TTL:;  TTL:;
2047          if(((*(LnkLI140))((V338)))==Cnil){          if(((*(LnkLI133))((V330)))==Cnil){
2048          goto T547;}          goto T547;}
2049          {object V339;          {object V331;
2050          V339= (VFUN_NARGS=1,(*(LnkLI145))((V338)));          V331= (VFUN_NARGS=1,(*(LnkLI138))((V330)));
2051          (CMPcdr((V339)))->c.c_car = V337;          (CMPcdr((V331)))->c.c_car = V329;
2052          (void)(CMPcdr((V339)));          (void)(CMPcdr((V331)));
2053          {object V341 = V337;          base[3]= V329;
2054          VMR48(V341)}}          vs_top=(vs_base=base+3)+1;
2055            return;}
2056          goto T547;          goto T547;
2057  T547:;  T547:;
2058          base[0]= VV[92];          base[2]= VV[92];
2059          base[1]= (V338);          base[3]= (V330);
2060          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+2)+2;
2061          Lerror();          Lerror();
2062          vs_top=sup;          return;
2063          {object V342 = vs_base[0];          }
         VMR48(V342)}  
         base[0]=base[0];  
         return Cnil;  
2064  }  }
2065  /*      function definition for FIND-WRAPPER    */  /*      function definition for FIND-WRAPPER    */
2066    
# Line 2058  static void L51() Line 2068  static void L51()
2068  {register object *base=vs_base;  {register object *base=vs_base;
2069          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
2070          vs_check;          vs_check;
2071          {object V343;          {object V333;
2072          check_arg(1);          check_arg(1);
2073          V343=(base[0]);          V333=(base[0]);
2074          vs_top=sup;          vs_top=sup;
2075          goto TTL;          goto TTL;
2076  TTL:;  TTL:;
2077          base[1]= (VFUN_NARGS=1,(*(LnkLI151))((V343)));          base[1]= (VFUN_NARGS=1,(*(LnkLI144))((V333)));
2078          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2079          (void) (*Lnk152)(Lclptr152);          (void) (*Lnk145)(Lclptr145);
2080          return;          return;
2081          }          }
2082  }  }
# Line 2078  static void L52() Line 2088  static void L52()
2088          vs_check;          vs_check;
2089          check_arg(2);          check_arg(2);
2090          vs_top=sup;          vs_top=sup;
2091          {object V344=base[0]->c.c_cdr;          {object V334=base[0]->c.c_cdr;
2092          if(endp(V344))invalid_macro_call();          if(endp(V334))invalid_macro_call();
2093          base[2]= (V344->c.c_car);          base[2]= (V334->c.c_car);
2094          V344=V344->c.c_cdr;          V334=V334->c.c_cdr;
2095          base[3]= V344;}          base[3]= V334;}
2096          V345= list(2,VV[94],base[2]);          V335= list(2,VV[94],base[2]);
2097          V346= make_cons(/* INLINE-ARGS */V345,Cnil);          V336= make_cons(/* INLINE-ARGS */V335,Cnil);
2098          base[4]= list(3,VV[93],/* INLINE-ARGS */V346,listA(3,VV[95],VV[96],base[3]));          base[4]= list(3,VV[93],/* INLINE-ARGS */V336,listA(3,VV[95],VV[96],base[3]));
2099          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2100          return;          return;
2101  }  }
# Line 2097  static void L53() Line 2107  static void L53()
2107          vs_check;          vs_check;
2108          check_arg(2);          check_arg(2);
2109          vs_top=sup;          vs_top=sup;
2110          {object V347=base[0]->c.c_cdr;          {object V337=base[0]->c.c_cdr;
2111          {object V348=getf(V347,VV[153],OBJNULL);          {object V338=getf(V337,VV[146],OBJNULL);
2112          if(V348==OBJNULL){          if(V338==OBJNULL){
2113          base[2]= small_fixnum(0);} else {          base[2]= small_fixnum(0);} else {
2114          base[2]= V348;          base[2]= V338;
2115          }}          }}
2116          check_other_key(V347,1,VV[153]);}          check_other_key(V337,1,VV[146]);}
2117          V349= list(2,VV[97],base[2]);          V339= list(2,VV[97],base[2]);
2118          base[3]= list(3,VV[27],make_cons(/* INLINE-ARGS */V349,VV[98]),VV[99]);          base[3]= list(3,VV[27],make_cons(/* INLINE-ARGS */V339,VV[98]),VV[99]);
2119          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2120          return;          return;
2121  }  }
# Line 2117  static void L54() Line 2127  static void L54()
2127          vs_check;          vs_check;
2128          check_arg(2);          check_arg(2);
2129          vs_top=sup;          vs_top=sup;
2130          {object V350=base[0]->c.c_cdr;          {object V340=base[0]->c.c_cdr;
2131          if(endp(V350))invalid_macro_call();          if(endp(V340))invalid_macro_call();
2132          base[2]= (V350->c.c_car);          base[2]= (V340->c.c_car);
2133          V350=V350->c.c_cdr;          V340=V340->c.c_cdr;
2134          {object V351=getf(V350,VV[154],OBJNULL);          {object V341=getf(V340,VV[147],OBJNULL);
2135          if(V351==OBJNULL){          if(V341==OBJNULL){
2136          base[3]= (VV[55]->s.s_gfdef);} else {          base[3]= (VV[55]->s.s_gfdef);} else {
2137          base[3]= V351;          base[3]= V341;
2138          }}          }}
2139          check_other_key(V350,1,VV[154]);}          check_other_key(V340,1,VV[147]);}
2140          V352= list(2,VV[58],base[2]);          V342= list(2,VV[58],base[2]);
2141          V353= make_cons(/* INLINE-ARGS */V352,Cnil);          V343= make_cons(/* INLINE-ARGS */V342,Cnil);
2142          base[4]= list(3,VV[24],/* INLINE-ARGS */V353,list(2,VV[100],list(3,VV[101],VV[102],list(4,VV[16],VV[103],VV[104],list(3,VV[105],VV[106],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58])))))));          base[4]= list(3,VV[24],/* INLINE-ARGS */V343,list(2,VV[100],list(3,VV[101],VV[102],list(4,VV[16],VV[103],VV[104],list(3,VV[105],VV[106],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58])))))));
2143          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2144          return;          return;
2145  }  }
# Line 2141  static void L55() Line 2151  static void L55()
2151          vs_check;          vs_check;
2152          check_arg(2);          check_arg(2);
2153          vs_top=sup;          vs_top=sup;
2154          {object V354=base[0]->c.c_cdr;          {object V344=base[0]->c.c_cdr;
2155          if(endp(V354))invalid_macro_call();          if(endp(V344))invalid_macro_call();
2156          base[2]= (V354->c.c_car);          base[2]= (V344->c.c_car);
2157          V354=V354->c.c_cdr;          V344=V344->c.c_cdr;
2158          {object V355=getf(V354,VV[154],OBJNULL);          {object V345=getf(V344,VV[147],OBJNULL);
2159          if(V355==OBJNULL){          if(V345==OBJNULL){
2160          base[3]= (VV[55]->s.s_gfdef);} else {          base[3]= (VV[55]->s.s_gfdef);} else {
2161          base[3]= V355;          base[3]= V345;
2162          }}          }}
2163          check_other_key(V354,1,VV[154]);}          check_other_key(V344,1,VV[147]);}
2164          V356= list(2,VV[58],base[2]);          V346= list(2,VV[58],base[2]);
2165          V357= make_cons(/* INLINE-ARGS */V356,Cnil);          V347= make_cons(/* INLINE-ARGS */V346,Cnil);
2166          base[4]= list(3,VV[24],/* INLINE-ARGS */V357,list(2,VV[100],list(3,VV[101],VV[108],list(3,VV[105],VV[109],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58]))))));          base[4]= list(3,VV[24],/* INLINE-ARGS */V347,list(2,VV[100],list(3,VV[101],VV[108],list(3,VV[105],VV[109],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58]))))));
2167          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2168          return;          return;
2169  }  }
# Line 2165  static void L56() Line 2175  static void L56()
2175          vs_check;          vs_check;
2176          check_arg(2);          check_arg(2);
2177          vs_top=sup;          vs_top=sup;
2178          {object V358=base[0]->c.c_cdr;          {object V348=base[0]->c.c_cdr;
2179          if(endp(V358))invalid_macro_call();          if(endp(V348))invalid_macro_call();
2180          base[2]= (V358->c.c_car);          base[2]= (V348->c.c_car);
2181          V358=V358->c.c_cdr;          V348=V348->c.c_cdr;
2182          base[3]= V358;}          base[3]= V348;}
2183          base[4]= listA(3,VV[107],base[2],base[3]);          base[4]= listA(3,VV[107],base[2],base[3]);
2184          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2185          return;          return;
# Line 2182  static void L57() Line 2192  static void L57()
2192          vs_check;          vs_check;
2193          check_arg(2);          check_arg(2);
2194          vs_top=sup;          vs_top=sup;
2195          {object V359=base[0]->c.c_cdr;          {object V349=base[0]->c.c_cdr;
2196          if(endp(V359))invalid_macro_call();          if(endp(V349))invalid_macro_call();
2197          base[2]= (V359->c.c_car);          base[2]= (V349->c.c_car);
2198          V359=V359->c.c_cdr;          V349=V349->c.c_cdr;
2199          base[3]= V359;}          base[3]= V349;}
2200          base[4]= listA(3,VV[110],base[2],base[3]);          base[4]= listA(3,VV[110],base[2],base[3]);
2201          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2202          return;          return;
2203  }  }
2204  /*      local entry for function GET-SETF-FUNCTION-NAME */  /*      local entry for function GET-SETF-FUNCTION-NAME */
2205    
2206  static object LI58(V361)  static object LI58(V351)
2207    
2208  register object V361;  object V351;
2209  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
2210          goto TTL;          goto TTL;
2211  TTL:;{object V362;  TTL:;
2212          base[0]= (V361);          {object V352 = list(2,VV[45],(V351));
2213          base[1]= (VV[111]->s.s_dbind);          VMR56(V352)}
         vs_top=(vs_base=base+0)+2;  
         Lgethash();  
         vs_top=sup;  
         V362= vs_base[0];  
         if(V362==Cnil)goto T557;  
         {object V363 = V362;  
         VMR56(V363)}  
         goto T557;  
 T557:;}  
         {object V365;  
         object V366;  
         V365= (VV[111]->s.s_dbind);  
         {object V367;  
         base[1]= (V361);  
         vs_top=(vs_base=base+1)+1;  
         Lsymbol_package();  
         vs_top=sup;  
         V367= vs_base[0];  
         if(((V367))==Cnil){  
         goto T566;}  
         base[2]= Cnil;  
         base[3]= VV[112];  
         base[5]= (V367);  
         vs_top=(vs_base=base+5)+1;  
         Lpackage_name();  
         vs_top=sup;  
         base[4]= vs_base[0];  
         base[5]= symbol_name((V361));  
         vs_top=(vs_base=base+2)+4;  
         Lformat();  
         vs_top=sup;  
         base[1]= vs_base[0];  
         base[2]= (VV[113]->s.s_dbind);  
         vs_top=(vs_base=base+1)+2;  
         Lintern();  
         vs_top=sup;  
         V366= vs_base[0];  
         goto T562;  
         goto T566;  
 T566:;  
         base[2]= Cnil;  
         base[3]= VV[114];  
         base[4]= symbol_name((V361));  
         vs_top=(vs_base=base+2)+3;  
         Lformat();  
         vs_top=sup;  
         base[1]= vs_base[0];  
         vs_top=(vs_base=base+1)+1;  
         Lmake_symbol();  
         vs_top=sup;  
         V366= vs_base[0];}  
         goto T562;  
 T562:;  
         base[1]= V361;  
         base[2]= (V365);  
         base[3]= (V366);  
         vs_top=(vs_base=base+1)+3;  
         siLhash_set();  
         vs_top=sup;  
         {object V368 = vs_base[0];  
         VMR56(V368)}}  
         base[0]=base[0];  
2214          return Cnil;          return Cnil;
2215  }  }
2216  /*      macro definition for DO-STANDARD-DEFSETF        */  /*      macro definition for DO-STANDARD-DEFSETF        */
# Line 2273  static void L59() Line 2221  static void L59()
2221          vs_check;          vs_check;
2222          check_arg(2);          check_arg(2);
2223          vs_top=sup;          vs_top=sup;
2224          {object V369=base[0]->c.c_cdr;          {object V353=base[0]->c.c_cdr;
2225          base[2]= V369;}          base[2]= V353;}
2226          base[3]= list(3,VV[115],VV[116],list(3,VV[117],list(2,VV[118],list(2,VV[42],base[2])),VV[119]));          base[3]= list(3,VV[111],VV[112],list(3,VV[113],list(2,VV[114],list(2,VV[42],base[2])),VV[115]));
2227          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2228          return;          return;
2229  }  }
2230  /*      local entry for function DO-STANDARD-DEFSETFS-FOR-DEFCLASS      */  /*      local entry for function DO-STANDARD-DEFSETFS-FOR-DEFCLASS      */
2231    
2232  static object LI60(V371)  static object LI60(V355)
2233    
2234  object V371;  object V355;
2235  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
2236          goto TTL;          goto TTL;
2237  TTL:;  TTL:;
2238          {register object V372;          {register object V356;
2239          register object V373;          register object V357;
2240          V372= (V371);          V356= (V355);
2241          V373= CMPcar((V372));          V357= CMPcar((V356));
2242          goto T585;          goto T560;
2243  T585:;  T560:;
2244          if(!(((V372))==Cnil)){          if(!(((V356))==Cnil)){
2245          goto T586;}          goto T561;}
2246          {object V374 = Cnil;          {object V358 = Cnil;
2247          VMR58(V374)}          VMR58(V358)}
2248          goto T586;          goto T561;
2249  T586:;  T561:;
2250          (void)((*(LnkLI155))((V373)));          (void)((*(LnkLI148))((V357)));
2251          V372= CMPcdr((V372));          V356= CMPcdr((V356));
2252          V373= CMPcar((V372));          V357= CMPcar((V356));
2253          goto T585;}          goto T560;}
2254          base[0]=base[0];          base[0]=base[0];
2255          return Cnil;          return Cnil;
2256  }  }
2257  /*      local entry for function DO-STANDARD-DEFSETF-1  */  /*      local entry for function DO-STANDARD-DEFSETF-1  */
2258    
2259  static object LI61(V376)  static object LI61(V360)
2260    
2261  register object V376;  object V360;
2262  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
2263          goto TTL;          goto TTL;
2264  TTL:;  TTL:;
2265          if(((*(LnkLI156))((V376)))==Cnil){          {object V361 = Cnil;
2266          goto T596;}          VMR59(V361)}
         {object V377 =((V376))->s.s_plist;  
          object ind= VV[120];  
         while(V377!=Cnil){  
         if(V377->c.c_car==ind){  
         if(((V377->c.c_cdr->c.c_car))!=Cnil){  
         goto T597;}  
         goto T600;  
         }else V377=V377->c.c_cdr->c.c_cdr;}}  
         goto T600;  
 T600:;  
         goto T596;  
 T596:;  
         (void)(sputprop((V376),VV[120],Ct));  
         base[0]= (*(LnkLI157))((V376));  
         base[0]=MMcons(base[0],Cnil);  
         {object V378;  
         vs_base=vs_top;  
         Lgensym();  
         vs_top=sup;  
         V378= vs_base[0];  
         {object V380;  
         V380=  
         make_cclosure_new(LC66,Cnil,base[0],Cdata);  
         base[2]= V378;  
         base[3]= make_cons(VV[121],(V380));  
         vs_top=(vs_base=base+2)+2;  
         siLfset();  
         vs_top=sup;}  
         base[1]= list(3,VV[122],(V376),(V378));  
         vs_top=(vs_base=base+1)+1;  
         Leval();  
         vs_top=sup;  
         {object V381 = vs_base[0];  
         VMR59(V381)}}  
         goto T597;  
 T597:;  
         {object V382 = Cnil;  
         VMR59(V382)}  
         base[0]=base[0];  
2267          return Cnil;          return Cnil;
2268  }  }
2269  /*      local entry for function SETFBOUNDP     */  /*      local entry for function SETFBOUNDP     */
2270    
2271  static object LI62(V384)  static object LI62(V363)
2272    
2273  object V384;  object V363;
2274  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
2275          goto TTL;          goto TTL;
2276  TTL:;{object V385;  TTL:;{object V364;
2277          {object V386 =((V384))->s.s_plist;          {object V365 =((V363))->s.s_plist;
2278           object ind= VV[123];           object ind= VV[116];
2279          while(V386!=Cnil){          while(V365!=Cnil){
2280          if(V386->c.c_car==ind){          if(V365->c.c_car==ind){
2281          V385= (V386->c.c_cdr->c.c_car);          V364= (V365->c.c_cdr->c.c_car);
2282          goto T611;          goto T572;
2283          }else V386=V386->c.c_cdr->c.c_cdr;}          }else V365=V365->c.c_cdr->c.c_cdr;}
2284          V385= Cnil;}          V364= Cnil;}
2285          goto T611;          goto T572;
2286  T611:;  T572:;
2287          if(V385==Cnil)goto T610;          if(V364==Cnil)goto T571;
2288          {object V387 = V385;          {object V366 = V364;
2289          VMR60(V387)}          VMR60(V366)}
2290          goto T610;          goto T571;
2291  T610:;}{object V388;  T571:;}{object V367;
2292          {object V389 =((V384))->s.s_plist;          {object V368 =((V363))->s.s_plist;
2293           object ind= VV[124];           object ind= VV[117];
2294          while(V389!=Cnil){          while(V368!=Cnil){
2295          if(V389->c.c_car==ind){          if(V368->c.c_car==ind){
2296          V388= (V389->c.c_cdr->c.c_car);          V367= (V368->c.c_cdr->c.c_car);
2297          goto T613;          goto T574;
2298          }else V389=V389->c.c_cdr->c.c_cdr;}          }else V368=V368->c.c_cdr->c.c_cdr;}
2299          V388= Cnil;}          V367= Cnil;}
2300          goto T613;          goto T574;
2301  T613:;  T574:;
2302          if(V388==Cnil)goto T612;          if(V367==Cnil)goto T573;
2303          {object V390 = V388;          {object V369 = V367;
2304          VMR60(V390)}          VMR60(V369)}
2305          goto T612;          goto T573;
2306  T612:;}  T573:;}
2307          {object V391 =((V384))->s.s_plist;          {object V370 =((V363))->s.s_plist;
2308           object ind= VV[125];           object ind= VV[118];
2309          while(V391!=Cnil){          while(V370!=Cnil){
2310          if(V391->c.c_car==ind){          if(V370->c.c_car==ind){
2311          {object V392 = (V391->c.c_cdr->c.c_car);          {object V371 = (V370->c.c_cdr->c.c_car);
2312          VMR60(V392)}          VMR60(V371)}
2313          }else V391=V391->c.c_cdr->c.c_cdr;}          }else V370=V370->c.c_cdr->c.c_cdr;}
2314          {object V393 = Cnil;          {object V372 = Cnil;
2315          VMR60(V393)}}          VMR60(V372)}}
2316          return Cnil;          return Cnil;
2317  }  }
2318  /*      macro definition for ORIGINAL-DEFINITION        */  /*      macro definition for ORIGINAL-DEFINITION        */
# Line 2414  static void L63() Line 2323  static void L63()
2323          vs_check;          vs_check;
2324          check_arg(2);          check_arg(2);
2325          vs_top=sup;          vs_top=sup;
2326          {object V394=base[0]->c.c_cdr;          {object V373=base[0]->c.c_cdr;
2327          if(endp(V394))invalid_macro_call();          if(endp(V373))invalid_macro_call();
2328          base[2]= (V394->c.c_car);          base[2]= (V373->c.c_car);
2329          V394=V394->c.c_cdr;          V373=V373->c.c_cdr;
2330          if(!endp(V394))invalid_macro_call();}          if(!endp(V373))invalid_macro_call();}
2331          base[3]= list(3,VV[126],base[2],VV[127]);          base[3]= list(3,VV[119],base[2],VV[120]);
2332          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2333          return;          return;
2334  }  }
2335  /*      local entry for function REDEFINE-FUNCTION      */  /*      local entry for function REDEFINE-FUNCTION      */
2336    
2337  static object LI64(V397,V398)  static object LI64(V376,V377)
2338    
2339  register object V397;object V398;  register object V376;object V377;
2340  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
2341          goto TTL;          goto TTL;
2342  TTL:;  TTL:;
2343          base[0]= V397;          base[0]= V376;
2344          base[1]= (VV[128]->s.s_dbind);          base[1]= (VV[121]->s.s_dbind);
2345          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2346          Ladjoin();          Ladjoin();
2347          vs_top=sup;          vs_top=sup;
2348          (VV[128]->s.s_dbind)= vs_base[0];          (VV[121]->s.s_dbind)= vs_base[0];
2349          {object V400 =((V397))->s.s_plist;          {object V379 =((V376))->s.s_plist;
2350           object ind= VV[129];           object ind= VV[122];
2351          while(V400!=Cnil){          while(V379!=Cnil){
2352          if(V400->c.c_car==ind){          if(V379->c.c_car==ind){
2353          if(((V400->c.c_cdr->c.c_car))!=Cnil){          if(((V379->c.c_cdr->c.c_car))!=Cnil){
2354          goto T618;}          goto T579;}
2355          goto T620;          goto T581;
2356          }else V400=V400->c.c_cdr->c.c_cdr;}}          }else V379=V379->c.c_cdr->c.c_cdr;}}
2357          goto T620;          goto T581;
2358  T620:;  T581:;
2359          V401 = (V397);          V380 = (V376);
2360          base[0]= (V397);          base[0]= (V376);
2361          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2362          Lsymbol_function();          Lsymbol_function();
2363          vs_top=sup;          vs_top=sup;
2364          V402= vs_base[0];          V381= vs_base[0];
2365          (void)(sputprop(V401,VV[129],V402));          (void)(sputprop(V380,VV[122],V381));
2366          goto T618;          goto T579;
2367  T618:;  T579:;
2368          base[0]= (V397);          base[0]= (V376);
2369          base[2]= (V398);          base[2]= (V377);
2370          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2371          Lsymbol_function();          Lsymbol_function();
2372          vs_top=sup;          vs_top=sup;
# Line 2465  T618:; Line 2374  T618:;
2374          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2375          siLfset();          siLfset();
2376          vs_top=sup;          vs_top=sup;
2377          {object V403 = vs_base[0];          {object V382 = vs_base[0];
2378          VMR62(V403)}          VMR62(V382)}
2379          base[0]=base[0];          base[0]=base[0];
2380          return Cnil;          return Cnil;
2381  }  }
2382  /*      local function CLOSURE  */  /*      local function CLOSURE  */
2383    
 static void LC66(base0)  
 register object *base0;  
 {       register object *base=vs_base;  
         register object *sup=base+VM63; VC63  
         vs_check;  
         {object V404;  
         object V405;  
         check_arg(2);  
         V404=(base[0]);  
         V405=(base[1]);  
         vs_top=sup;  
         {object V406;  
         object V407;  
         object V408;  
         base[5]= CMPcdr((V404));  
         vs_top=(vs_base=base+5)+1;  
         Lbutlast();  
         vs_top=sup;  
         V406= vs_base[0];  
         {object V409;  
         object V410= (V406);  
         if(V410==Cnil){  
         V407= Cnil;  
         goto T628;}  
         base[5]=V409=MMcons(Cnil,Cnil);  
         goto T629;  
 T629:;  
         vs_base=vs_top;  
         Lgensym();  
         vs_top=sup;  
         V412= vs_base[0];  
         V413 = (V410->c.c_car);  
         (V409->c.c_car)= list(2,V412,V413);  
         if((V410=MMcdr(V410))==Cnil){  
         V407= base[5];  
         goto T628;}  
         V409=MMcdr(V409)=MMcons(Cnil,Cnil);  
         goto T629;}  
         goto T628;  
 T628:;  
         {object V414;  
         object V415= (V407);  
         if(V415==Cnil){  
         V408= Cnil;  
         goto T632;}  
         base[5]=V414=MMcons(Cnil,Cnil);  
         goto T633;  
 T633:;  
         (V414->c.c_car)= CMPcar((V415->c.c_car));  
         if((V415=MMcdr(V415))==Cnil){  
         V408= base[5];  
         goto T632;}  
         V414=MMcdr(V414)=MMcons(Cnil,Cnil);  
         goto T633;}  
         goto T632;  
 T632:;  
         base[5]= (V404);  
         vs_top=(vs_base=base+5)+1;  
         Llast();  
         vs_top=sup;  
         V416= vs_base[0];  
         base[5]= list(3,VV[24],(V407),listA(3,(base0[0]->c.c_car),CMPcar(V416),(V408)));  
         vs_top=(vs_base=base+5)+1;  
         return;}  
         }  
 }  
 /*      local function CLOSURE  */  
   
2384  static void LC65(base0)  static void LC65(base0)
2385  register object *base0;  register object *base0;
2386  {       register object *base=vs_base;  {       register object *base=vs_base;
2387          register object *sup=base+VM64; VC64          register object *sup=base+VM63; VC63
2388          vs_check;          vs_check;
2389          {object V417;          {object V383;
2390          check_arg(1);          check_arg(1);
2391          V417=(base[0]);          V383=(base[0]);
2392          vs_top=sup;          vs_top=sup;
2393          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
2394          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2559  register object *base0; Line 2400  register object *base0;
2400  static void L26(base0)  static void L26(base0)
2401  register object *base0;  register object *base0;
2402  {       register object *base=vs_base;  {       register object *base=vs_base;
2403          register object *sup=base+VM65; VC65          register object *sup=base+VM64; VC64
2404          vs_check;          vs_check;
2405          {object V418;          {object V384;
2406          object V419;          object V385;
2407          object V420;          object V386;
2408          check_arg(3);          check_arg(3);
2409          V418=(base[0]);          V384=(base[0]);
2410          V419=(base[1]);          V385=(base[1]);
2411          V420=(base[2]);          V386=(base[2]);
2412          vs_top=sup;          vs_top=sup;
2413          goto TTL;          goto TTL;
2414  TTL:;  TTL:;
2415          {object V421;          {object V387;
2416          if(!(number_compare(small_fixnum(0),base0[0])==0)){          if(!(number_compare(small_fixnum(0),base0[0])==0)){
2417          goto T639;}          goto T589;}
2418          if((V418)==Cnil){          if((V384)==Cnil){
2419          V422= Cnil;          V388= Cnil;
2420          goto T641;}          goto T591;}
2421          V422= list(3,VV[50],(V418),list(2,VV[22],(V419)));          V388= list(3,VV[50],(V384),list(2,VV[22],(V385)));
2422          goto T641;          goto T591;
2423  T641:;  T591:;
2424          if((V420)==Cnil){          if((V386)==Cnil){
2425          V423= Cnil;          V389= Cnil;
2426          goto T642;}          goto T592;}
2427          V423= list(3,VV[50],(V420),list(2,VV[55],(V419)));          V389= list(3,VV[50],(V386),list(2,VV[55],(V385)));
2428          goto T642;          goto T592;
2429  T642:;  T592:;
2430          V421= list(3,VV[44],V422,V423);          V387= list(3,VV[44],V388,V389);
2431          goto T637;          goto T587;
2432          goto T639;          goto T589;
2433  T639:;  T589:;
2434          if(((V420))!=Cnil){          if(((V386))!=Cnil){
2435          goto T644;}          goto T594;}
2436          if((V418)==Cnil){          if((V384)==Cnil){
2437          V421= Cnil;          V387= Cnil;
2438          goto T637;}          goto T587;}
2439          V424 = (V418);          V390 = (V384);
2440          V421= list(3,VV[50],V424,(*(LnkLI158))(base0[0],(V419)));          V387= list(3,VV[50],V390,(*(LnkLI149))(base0[0],(V385)));
2441          goto T637;          goto T587;
2442          goto T644;          goto T594;
2443  T644:;  T594:;
2444          V425 = (V420);          V391 = (V386);
2445          V426= list(3,VV[50],V425,(*(LnkLI159))(base0[0],(V419)));          V392= list(3,VV[50],V391,(*(LnkLI150))(base0[0],(V385)));
2446          if((V418)==Cnil){          if((V384)==Cnil){
2447          V427= Cnil;          V393= Cnil;
2448          goto T646;}          goto T596;}
2449          V427= list(3,VV[50],(V418),list(2,VV[56],(V420)));          V393= list(3,VV[50],(V384),list(2,VV[56],(V386)));
2450          goto T646;          goto T596;
2451  T646:;  T596:;
2452          V421= list(3,VV[44],/* INLINE-ARGS */V426,V427);          V387= list(3,VV[44],/* INLINE-ARGS */V392,V393);
2453          goto T637;          goto T587;
2454  T637:;  T587:;
2455          base0[0]= small_fixnum(0);          base0[0]= small_fixnum(0);
2456          base[3]= (V421);          base[3]= (V387);
2457          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2458          return;}          return;}
2459          }          }
2460  }  }
2461  static object  LnkTLI159(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[159],(void **)(void *)&LnkLI159,2,first,ap);va_end(ap);return V1;} /* MAKE-CDXR */  static object  LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[150],(void **)(void *)&LnkLI150,2,first,ap);va_end(ap);return V1;} /* MAKE-CDXR */
2462  static object  LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,2,first,ap);va_end(ap);return V1;} /* MAKE-CAXR */  static object  LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,2,first,ap);va_end(ap);return V1;} /* MAKE-CAXR */
2463  static object  LnkTLI157(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[157],(void **)(void *)&LnkLI157,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */  static object  LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)(void *)&LnkLI148,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */
2464  static object  LnkTLI156(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[156],(void **)(void *)&LnkLI156,1,first,ap);va_end(ap);return V1;} /* SETFBOUNDP */  static void LnkT145(ptr) object *ptr;{ call_or_link_closure(VV[145],(void **)(void *)&Lnk145,(void **)(void *)&Lclptr145);} /* CLASS-WRAPPER */
2465  static object  LnkTLI155(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[155],(void **)(void *)&LnkLI155,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */  static object  LnkTLI144(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[144],(void **)(void *)&LnkLI144,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
2466  static void LnkT152(ptr) object *ptr;{ call_or_link_closure(VV[152],(void **)(void *)&Lnk152,(void **)(void *)&Lclptr152);} /* CLASS-WRAPPER */  static object  LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[143],(void **)(void *)&LnkLI143,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */
2467  static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[151],(void **)(void *)&LnkLI151,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */
2468  static object  LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[150],(void **)(void *)&LnkLI150,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */  static void LnkT141(ptr) object *ptr;{ call_or_link_closure(VV[141],(void **)(void *)&Lnk141,(void **)(void *)&Lclptr141);} /* FORWARD-REFERENCED-CLASS-P */
2469  static object  LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */  static void LnkT140(ptr) object *ptr;{ call_or_link_closure(VV[140],(void **)(void *)&Lnk140,(void **)(void *)&Lclptr140);} /* CLASS-PREDICATE-NAME */
2470  static void LnkT148(ptr) object *ptr;{ call_or_link_closure(VV[148],(void **)(void *)&Lnk148,(void **)(void *)&Lclptr148);} /* FORWARD-REFERENCED-CLASS-P */  static object  LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[139],(void **)(void *)&LnkLI139,first,ap);va_end(ap);return V1;} /* FIND-CLASS-PREDICATE-FROM-CELL */
2471  static void LnkT147(ptr) object *ptr;{ call_or_link_closure(VV[147],(void **)(void *)&Lnk147,(void **)(void *)&Lclptr147);} /* CLASS-PREDICATE-NAME */  static object  LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[138],(void **)(void *)&LnkLI138,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */
2472  static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[146],(void **)(void *)&LnkLI146,first,ap);va_end(ap);return V1;} /* FIND-CLASS-PREDICATE-FROM-CELL */  static object  LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[137],(void **)(void *)&LnkLI137,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */
2473  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[145],(void **)(void *)&LnkLI145,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */  static void LnkT136(){ call_or_link(VV[136],(void **)(void *)&Lnk136);} /* FIND-STRUCTURE-CLASS */
2474  static object  LnkTLI144(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[144],(void **)(void *)&LnkLI144,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */  static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */
2475  static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* FIND-STRUCTURE-CLASS */  static object  LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[133],(void **)(void *)&LnkLI133,1,first,ap);va_end(ap);return V1;} /* LEGAL-CLASS-NAME-P */
 static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */  
 static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* LEGAL-CLASS-NAME-P */  
2476  static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* DELETE */  static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* DELETE */
2477  static object  LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)(void *)&LnkLI138,2,first,ap);va_end(ap);return V1;} /* DESTRUCTURE-INTERNAL */  static object  LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[131],(void **)(void *)&LnkLI131,2,first,ap);va_end(ap);return V1;} /* DESTRUCTURE-INTERNAL */
2478  static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* DESTRUCTURE */  static void LnkT130(){ call_or_link(VV[130],(void **)(void *)&Lnk130);} /* DESTRUCTURE */
2479  static void LnkT136(){ call_or_link(VV[136],(void **)(void *)&Lnk136);} /* EXTRACT-DECLARATIONS */  static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* EXTRACT-DECLARATIONS */
2480  static object  LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[133],(void **)(void *)&LnkLI133,first,ap);va_end(ap);return V1;} /* STRING-APPEND */  static object  LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[126],(void **)(void *)&LnkLI126,first,ap);va_end(ap);return V1;} /* STRING-APPEND */
2481  static void LnkT132(){ call_or_link(VV[132],(void **)(void *)&Lnk132);} /* CONCATENATE */  static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* CONCATENATE */
2482  static object  LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[131],(void **)(void *)&LnkLI131,2,first,ap);va_end(ap);return V1;} /* REMTAIL */  static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,2,first,ap);va_end(ap);return V1;} /* REMTAIL */
2483  static object  LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,2,first,ap);va_end(ap);return V1;} /* MAKE-PLIST */  static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,2,first,ap);va_end(ap);return V1;} /* MAKE-PLIST */
2484    
2485  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2486  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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