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

Diff of /gcl/pcl/pcl_methods.c

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

revision 1.3 by camm, Tue Sep 2 20:32:44 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:18 2003 UTC
# Line 2000  T798:; Line 2000  T798:;
2000          V416= Cnil;          V416= Cnil;
2001          goto T791;          goto T791;
2002  T791:;  T791:;
2003          {object V421;          V420 = (V411);
2004          V421= ((V414))->v.v_self[1];          V421 = (V412);
2005          if(!(type_of(V421)==t_fixnum)){          {object V423;
2006            V423= ((V414))->v.v_self[1];
2007            if(!(type_of(V423)==t_fixnum)){
2008          goto T810;}          goto T810;}
2009          if(!((((((V416))->v.v_self[fix((V421))])==(VV[14])?Ct:Cnil))==Cnil)){          if(!((((((V416))->v.v_self[fix((V423))])==(VV[14])?Ct:Cnil))==Cnil)){
2010          goto T806;}          goto T806;}
2011          goto T807;          goto T807;
2012          goto T810;          goto T810;
# Line 2022  T807:; Line 2024  T807:;
2024          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2025          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
2026          vs_top=sup;          vs_top=sup;
2027          V423= vs_base[0];          V425= vs_base[0];
2028          V424 = CMPmake_fixnum((long)length(V423));          V426 = CMPmake_fixnum((long)length(V425));
2029          V420= make_cons(V424,Cnil);          V422= make_cons(V426,Cnil);
2030          goto T804;          goto T804;
2031          goto T806;          goto T806;
2032  T806:;  T806:;
2033          V420= VV[68];          V422= VV[68];
2034          goto T804;          goto T804;
2035  T804:;  T804:;
2036          {object V425 = (VFUN_NARGS=3,(*(LnkLI212))((V411),(V412),V420));          {object V427 = (VFUN_NARGS=3,(*(LnkLI212))(V420,V421,V422));
2037          VMR28(V425)}}}          VMR28(V427)}}}
2038          base[0]=base[0];          base[0]=base[0];
2039          return Cnil;          return Cnil;
2040  }  }
# Line 2042  static void L32() Line 2044  static void L32()
2044  {register object *base=vs_base;  {register object *base=vs_base;
2045          register object *sup=base+VM29; VC29          register object *sup=base+VM29; VC29
2046          vs_check;          vs_check;
2047          {object V426;          {object V428;
         object V427;  
         object V428;  
2048          object V429;          object V429;
2049            object V430;
2050            object V431;
2051          check_arg(5);          check_arg(5);
2052          V426=(base[0]);          V428=(base[0]);
2053          V427=(base[1]);          V429=(base[1]);
2054          V428=(base[3]);          V430=(base[3]);
2055          V429=(base[4]);          V431=(base[4]);
2056          vs_top=sup;          vs_top=sup;
2057          goto TTL;          goto TTL;
2058  TTL:;  TTL:;
2059          {register object V430;          {register object V432;
         object V431;  
2060          object V433;          object V433;
2061          object V434;          object V435;
2062          object V436;          object V436;
         object V437;  
2063          object V438;          object V438;
2064          object V439;          object V439;
2065          object V440;          object V440;
2066          register object V442;          object V441;
2067          object V443;          object V442;
2068            register object V444;
2069          object V445;          object V445;
2070          V430= (V429);          object V447;
2071          V431= (*(LnkLI220))(VV[69],(V430));          V432= (V431);
2072          if(!(type_of((V431))==t_cons)){          V433= (*(LnkLI220))(VV[69],(V432));
2073            if(!(type_of((V433))==t_cons)){
2074          goto T822;}          goto T822;}
2075          V433= CMPcar((V431));          V435= CMPcar((V433));
2076          goto T820;          goto T820;
2077          goto T822;          goto T822;
2078  T822:;  T822:;
2079          V433= Cnil;          V435= Cnil;
2080          goto T820;          goto T820;
2081  T820:;  T820:;
2082          V434= (*(LnkLI220))(VV[52],(V430));          V436= (*(LnkLI220))(VV[52],(V432));
2083          if(!(type_of((V434))==t_cons)){          if(!(type_of((V436))==t_cons)){
2084          goto T827;}          goto T827;}
2085          V436= CMPcar((V434));          V438= CMPcar((V436));
2086          goto T825;          goto T825;
2087          goto T827;          goto T827;
2088  T827:;  T827:;
2089          V436= Cnil;          V438= Cnil;
2090          goto T825;          goto T825;
2091  T825:;  T825:;
2092          V437= (*(LnkLI239))(VV[70],(V430));          V439= (*(LnkLI239))(VV[70],(V432));
2093          V438= (*(LnkLI239))(VV[71],(V430));          V440= (*(LnkLI239))(VV[71],(V432));
2094          V439= (*(LnkLI239))(VV[56],(V430));          V441= (*(LnkLI239))(VV[56],(V432));
2095          V440= (*(LnkLI220))(VV[72],(V430));          V442= (*(LnkLI220))(VV[72],(V432));
2096          if(!(type_of((V440))==t_cons)){          if(!(type_of((V442))==t_cons)){
2097          goto T835;}          goto T835;}
2098          V442= CMPcar((V440));          V444= CMPcar((V442));
2099          goto T833;          goto T833;
2100          goto T835;          goto T835;
2101  T835:;  T835:;
2102          V442= Cnil;          V444= Cnil;
2103          goto T833;          goto T833;
2104  T833:;  T833:;
2105          V443= (*(LnkLI220))(VV[73],(V430));          V445= (*(LnkLI220))(VV[73],(V432));
2106          if(!(type_of((V443))==t_cons)){          if(!(type_of((V445))==t_cons)){
2107          goto T840;}          goto T840;}
2108          V445= CMPcar((V443));          V447= CMPcar((V445));
2109          goto T838;          goto T838;
2110          goto T840;          goto T840;
2111  T840:;  T840:;
2112          V445= Cnil;          V447= Cnil;
2113          goto T838;          goto T838;
2114  T838:;  T838:;
2115          {register object V446;          {register object V448;
2116          object V447;          object V449;
2117          V446= CMPcar((V426));          V448= CMPcar((V428));
2118          V447= CMPcdr((V426));          V449= CMPcdr((V428));
2119          {object V448;          {object V450;
2120          if(type_of(base[2])==t_structure){          if(type_of(base[2])==t_structure){
2121          goto T850;}          goto T850;}
2122          goto T848;          goto T848;
# Line 2122  T838:; Line 2124  T838:;
2124  T850:;  T850:;
2125          if(!(((base[2])->str.str_def)==(VV[74]))){          if(!(((base[2])->str.str_def)==(VV[74]))){
2126          goto T848;}          goto T848;}
2127          V448= STREF(object,base[2],4);          V450= STREF(object,base[2],4);
2128          goto T846;          goto T846;
2129          goto T848;          goto T848;
2130  T848:;{object V450;  T848:;{object V452;
2131          V450= (VV[13]->s.s_dbind);          V452= (VV[13]->s.s_dbind);
2132          base[16]= small_fixnum(14);          base[16]= small_fixnum(14);
2133          base[17]= base[2];          base[17]= base[2];
2134          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
2135          (void) (*Lnk215)();          (void) (*Lnk215)();
2136          vs_top=sup;          vs_top=sup;
2137          V451= vs_base[0];          V453= vs_base[0];
2138          if(!((V450)==(CMPcar(V451)))){          if(!((V452)==(CMPcar(V453)))){
2139          goto T853;}}          goto T853;}}
2140          V448= CMPcar((base[2])->cc.cc_turbo[12]);          V450= CMPcar((base[2])->cc.cc_turbo[12]);
2141          goto T846;          goto T846;
2142          goto T853;          goto T853;
2143  T853:;  T853:;
2144          V448= Cnil;          V450= Cnil;
2145          goto T846;          goto T846;
2146  T846:;  T846:;
2147          if((V431)==Cnil){          if((V433)==Cnil){
2148          goto T859;}          goto T859;}
2149          base[16]= base[2];          base[16]= base[2];
2150          base[17]= (V433);          base[17]= (V435);
2151          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
2152          (void) (*Lnk259)();          (void) (*Lnk259)();
2153          vs_top=sup;          vs_top=sup;
2154          goto T859;          goto T859;
2155  T859:;  T859:;
2156          if((V440)==Cnil){          if((V442)==Cnil){
2157          goto T866;}          goto T866;}
2158          if(!(type_of((V442))==t_symbol)){          if(!(type_of((V444))==t_symbol)){
2159          goto T868;}          goto T868;}
2160          V442= (VFUN_NARGS=1,(*(LnkLI260))((V442)));          V444= (VFUN_NARGS=1,(*(LnkLI260))((V444)));
2161          goto T868;          goto T868;
2162  T868:;  T868:;
2163          base[16]= (V442);          base[16]= (V444);
2164          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
2165          (void) (*Lnk237)(Lclptr237);          (void) (*Lnk237)(Lclptr237);
2166          vs_top=sup;          vs_top=sup;
2167          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2168          goto T873;}          goto T873;}
2169          base[17]= (V442);          base[17]= (V444);
2170          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
2171          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk261)(Lclptr261);
2172          vs_top=sup;          vs_top=sup;
# Line 2178  T868:; Line 2180  T868:;
2180          goto T873;          goto T873;
2181  T873:;  T873:;
2182          base[16]= VV[72];          base[16]= VV[72];
2183          base[17]= (V442);          base[17]= (V444);
2184          base[18]= VV[76];          base[18]= VV[76];
2185          vs_top=(vs_base=base+16)+3;          vs_top=(vs_base=base+16)+3;
2186          L33(base);          L33(base);
2187          vs_top=sup;          vs_top=sup;
2188          goto T872;          goto T872;
2189  T872:;  T872:;
2190          {object V453;          {object V455;
2191          V453= ((V446))->v.v_self[2];          V455= ((V448))->v.v_self[2];
2192          if(!(type_of(V453)==t_fixnum)){          if(!(type_of(V455)==t_fixnum)){
2193          goto T886;}          goto T886;}
2194          (void)(((V448))->v.v_self[fix((V453))]= (V442));          (void)(((V450))->v.v_self[fix((V455))]= (V444));
2195          goto T864;          goto T864;
2196          goto T886;          goto T886;
2197  T886:;  T886:;
2198          base[16]= V442;          base[16]= V444;
2199          base[17]= base[2];          base[17]= base[2];
2200          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
2201          (void) (*Lnk263)(Lclptr263);          (void) (*Lnk263)(Lclptr263);
# Line 2201  T886:; Line 2203  T886:;
2203          goto T864;}          goto T864;}
2204          goto T866;          goto T866;
2205  T866:;  T866:;
2206          {object V455;          {object V457;
2207          {object V456;          {object V458;
2208          V456= ((V446))->v.v_self[2];          V458= ((V448))->v.v_self[2];
2209          if(!(type_of(V456)==t_fixnum)){          if(!(type_of(V458)==t_fixnum)){
2210          goto T893;}          goto T893;}
2211          V455= ((((((V448))->v.v_self[fix((V456))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil);          V457= ((((((V450))->v.v_self[fix((V458))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil);
2212          goto T890;          goto T890;
2213          goto T893;          goto T893;
2214  T893:;  T893:;
# Line 2215  T893:; Line 2217  T893:;
2217          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
2218          (void) (*Lnk226)();          (void) (*Lnk226)();
2219          vs_top=sup;          vs_top=sup;
2220          V455= vs_base[0];}          V457= vs_base[0];}
2221          goto T890;          goto T890;
2222  T890:;  T890:;
2223          if(((V455))==Cnil){          if(((V457))==Cnil){
2224          goto T898;}          goto T898;}
2225          goto T864;          goto T864;
2226          goto T898;          goto T898;
# Line 2231  T898:; Line 2233  T898:;
2233          vs_top=sup;}          vs_top=sup;}
2234          goto T864;          goto T864;
2235  T864:;  T864:;
2236          if((V443)==Cnil){          if((V445)==Cnil){
2237          goto T904;}          goto T904;}
2238          base[16]= (V445);          base[16]= (V447);
2239          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
2240          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
2241          vs_top=sup;          vs_top=sup;
2242          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2243          goto T907;}          goto T907;}
2244          base[16]= VV[73];          base[16]= VV[73];
2245          base[17]= (V445);          base[17]= (V447);
2246          base[18]= VV[80];          base[18]= VV[80];
2247          vs_top=(vs_base=base+16)+3;          vs_top=(vs_base=base+16)+3;
2248          L33(base);          L33(base);
# Line 2252  T907:; Line 2254  T907:;
2254          return;          return;
2255          goto T904;          goto T904;
2256  T904:;  T904:;
2257          {object V458;          {object V460;
2258          {object V459;          {object V461;
2259          V459= ((V446))->v.v_self[1];          V461= ((V448))->v.v_self[1];
2260          if(!(type_of(V459)==t_fixnum)){          if(!(type_of(V461)==t_fixnum)){
2261          goto T916;}          goto T916;}
2262          V458= ((((((V448))->v.v_self[fix((V459))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil);          V460= ((((((V450))->v.v_self[fix((V461))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil);
2263          goto T913;          goto T913;
2264          goto T916;          goto T916;
2265  T916:;  T916:;
# Line 2266  T916:; Line 2268  T916:;
2268          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
2269          (void) (*Lnk226)();          (void) (*Lnk226)();
2270          vs_top=sup;          vs_top=sup;
2271          V458= vs_base[0];}          V460= vs_base[0];}
2272          goto T913;          goto T913;
2273  T913:;  T913:;
2274          if(((V458))==Cnil){          if(((V460))==Cnil){
2275          goto T921;}          goto T921;}
2276          base[16]= (V458);          base[16]= (V460);
2277          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
2278          return;          return;
2279          goto T921;          goto T921;
# Line 2286  T921:; Line 2288  T921:;
2288  }  }
2289  /*      local entry for function (FAST-METHOD REMOVE-NAMED-METHOD (T T))        */  /*      local entry for function (FAST-METHOD REMOVE-NAMED-METHOD (T T))        */
2290    
2291  static object LI34(V466,V467,V468,V469,V470)  static object LI34(V468,V469,V470,V471,V472)
2292    
2293  object V466;object V467;object V468;object V469;object V470;  object V468;object V469;object V470;object V471;object V472;
2294  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
2295          goto TTL;          goto TTL;
2296  TTL:;  TTL:;
2297          {register object V471;          {register object V473;
2298          object V472;          object V474;
2299          V471= (V470);          V473= (V472);
2300          if(((V471))==Cnil){          if(((V473))==Cnil){
2301          goto T931;}          goto T931;}
2302          {object V473;          {object V475;
2303          V473= CMPcar((V471));          V475= CMPcar((V473));
2304          V471= CMPcdr((V471));          V473= CMPcdr((V473));
2305          V472= (V473);          V474= (V475);
2306          goto T929;}          goto T929;}
2307          goto T931;          goto T931;
2308  T931:;  T931:;
2309          V472= Cnil;          V474= Cnil;
2310          goto T929;          goto T929;
2311  T929:;  T929:;
2312          {register object V474;          {register object V476;
2313          object V475;          object V477;
2314          V474= Cnil;          V476= Cnil;
2315          V475= Cnil;          V477= Cnil;
2316          base[1]= (V468);          base[1]= (V470);
2317          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2318          Lfboundp();          Lfboundp();
2319          vs_top=sup;          vs_top=sup;
2320          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2321          goto T937;}          goto T937;}
2322          base[2]= (V468);          base[2]= (V470);
2323          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2324          Lsymbol_function();          Lsymbol_function();
2325          vs_top=sup;          vs_top=sup;
2326          V474= vs_base[0];          V476= vs_base[0];
2327          base[1]= (V474);          base[1]= (V476);
2328          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2329          (void) (*Lnk265)(Lclptr265);          (void) (*Lnk265)(Lclptr265);
2330          vs_top=sup;          vs_top=sup;
# Line 2331  T929:; Line 2333  T929:;
2333          goto T937;          goto T937;
2334  T937:;  T937:;
2335          base[1]= VV[85];          base[1]= VV[85];
2336          base[2]= (V468);          base[2]= (V470);
2337          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2338          Lerror();          Lerror();
2339          vs_top=sup;          vs_top=sup;
2340          {object V476 = vs_base[0];          {object V478 = vs_base[0];
2341          VMR30(V476)}          VMR30(V478)}
2342          goto T938;          goto T938;
2343  T938:;  T938:;
2344          V477= (*(LnkLI267))((V469));          V479 = (V476);
2345          V475= (VFUN_NARGS=4,(*(LnkLI266))((V474),(V472),/* INLINE-ARGS */V477,Cnil));          V480 = (V474);
2346          if(((V475))!=Cnil){          V481= (*(LnkLI267))((V471));
2347            V477= (VFUN_NARGS=4,(*(LnkLI266))(V479,V480,/* INLINE-ARGS */V481,Cnil));
2348            if(((V477))!=Cnil){
2349          goto T949;}          goto T949;}
2350          base[1]= VV[86];          base[1]= VV[86];
2351          base[2]= (V474);          base[2]= (V476);
2352          base[3]= (V469);          base[3]= (V471);
2353          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2354          Lerror();          Lerror();
2355          vs_top=sup;          vs_top=sup;
2356          {object V478 = vs_base[0];          {object V482 = vs_base[0];
2357          VMR30(V478)}          VMR30(V482)}
2358          goto T949;          goto T949;
2359  T949:;  T949:;
2360          base[1]= (V474);          base[1]= (V476);
2361          base[2]= (V475);          base[2]= (V477);
2362          {object V479 = simple_symlispcall(VV[268],base+1,2);          {object V483 = simple_symlispcall(VV[268],base+1,2);
2363          VMR30(V479)}}}          VMR30(V483)}}}
2364          base[0]=base[0];          base[0]=base[0];
2365          return Cnil;          return Cnil;
2366  }  }
2367  /*      local entry for function REAL-ADD-NAMED-METHOD  */  /*      local entry for function REAL-ADD-NAMED-METHOD  */
2368    
2369  static object LI35(object V483,object V482,object V481,object V480,object first,...)  static object LI35(object V487,object V486,object V485,object V484,object first,...)
2370  {        {      
2371          va_list ap;          va_list ap;
2372          int narg = VFUN_NARGS; VMB31 VMS31 VMV31          int narg = VFUN_NARGS; VMB31 VMS31 VMV31
2373          {object V484;          {object V488;
2374          object V485;          object V489;
2375          object V486;          object V490;
2376          object V487;          object V491;
2377          object V488;          object V492;
2378          va_start(ap,first);          va_start(ap,first);
2379          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
2380          V484= V483;          V488= V487;
2381          V485= V482;          V489= V486;
2382          V486= V481;          V490= V485;
2383          V487= V480;          V491= V484;
2384          narg= narg - 4;          narg= narg - 4;
2385          V489 = list_vector_new(narg,first,ap);          V493 = list_vector_new(narg,first,ap);
2386          V488= V489;          V492= V493;
2387          {object V490;          {object V494;
2388          object V491;          object V495;
2389          object V492;          object V496;
2390          object V493;          object V497;
2391          base[4]= (V484);          base[4]= (V488);
2392          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2393          (void) (*Lnk269)();          (void) (*Lnk269)();
2394          vs_top=sup;          vs_top=sup;
2395          V490= vs_base[0];          V494= vs_base[0];
2396          V491= (*(LnkLI267))((V486));          V495= (*(LnkLI267))((V490));
2397          base[4]= (V484);          base[4]= (V488);
2398          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2399          (void) (*Lnk270)();          (void) (*Lnk270)();
2400          vs_top=sup;          vs_top=sup;
2401          V492= vs_base[0];          V496= vs_base[0];
2402          base[4]=VV[271]->s.s_gfdef;          base[4]=VV[271]->s.s_gfdef;
2403          base[5]= (*(LnkLI149))((V492));          base[5]= (*(LnkLI149))((V496));
2404          base[6]= VV[51];          base[6]= VV[51];
2405          base[7]= (V485);          base[7]= (V489);
2406          base[8]= VV[53];          base[8]= VV[53];
2407          base[9]= (V491);          base[9]= (V495);
2408          base[10]= VV[52];          base[10]= VV[52];
2409          base[11]= (V487);          base[11]= (V491);
2410          {object V494;          {object V498;
2411          V494= (V488);          V498= (V492);
2412           vs_top=base+12;           vs_top=base+12;
2413           while(V494!=Cnil)           while(V498!=Cnil)
2414           {vs_push((V494)->c.c_car);V494=(V494)->c.c_cdr;}           {vs_push((V498)->c.c_car);V498=(V498)->c.c_cdr;}
2415          vs_base=base+5;}          vs_base=base+5;}
2416          (void) (*Lnk271)(Lclptr271);          (void) (*Lnk271)(Lclptr271);
2417          vs_top=sup;          vs_top=sup;
2418          V493= vs_base[0];          V497= vs_base[0];
2419          base[4]= (V490);          base[4]= (V494);
2420          base[5]= (V493);          base[5]= (V497);
2421          {object V495 = simple_symlispcall(VV[272],base+4,2);          {object V499 = simple_symlispcall(VV[272],base+4,2);
2422          VMR31(V495)}}          VMR31(V499)}}
2423          va_end(ap);          va_end(ap);
2424          base[0]=base[0];          base[0]=base[0];
2425          return Cnil;}          return Cnil;}
2426          }          }
2427  /*      local entry for function MAKE-SPECIALIZABLE     */  /*      local entry for function MAKE-SPECIALIZABLE     */
2428    
2429  static object LI36(object V496,object first,...)  static object LI36(object V500,object first,...)
2430  {        {      
2431          va_list ap;          va_list ap;
2432          int narg = VFUN_NARGS; VMB32 VMS32 VMV32          int narg = VFUN_NARGS; VMB32 VMS32 VMV32
2433          {register object V497;          {register object V501;
2434          register object V498;          register object V502;
2435          object V499;          object V503;
2436          va_start(ap,first);          va_start(ap,first);
2437          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2438          V497= V496;          V501= V500;
2439          narg= narg - 1;          narg= narg - 1;
2440          {          {
2441          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI36key,first,ap);          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI36key,first,ap);
2442          if(Vcs[1]==0){          if(Vcs[1]==0){
2443          V498= Cnil;          V502= Cnil;
2444          V499= Cnil;          V503= Cnil;
2445          }else{          }else{
2446          V498=(Vcs[1]);          V502=(Vcs[1]);
2447          V499= Ct;}          V503= Ct;}
2448          {object V500;          {object V504;
2449          V500= (((((V499))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          V504= (((((V503))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
2450          if(((V500))==Cnil){          if(((V504))==Cnil){
2451          goto T977;}          goto T977;}
2452          goto T974;          goto T974;
2453          goto T977;          goto T977;
2454  T977:;  T977:;
2455          {object V501;          {object V505;
2456          base[0]= (V497);          base[0]= (V501);
2457          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2458          Lfboundp();          Lfboundp();
2459          vs_top=sup;          vs_top=sup;
2460          V502= vs_base[0];          V506= vs_base[0];
2461          V501= ((V502)==Cnil?Ct:Cnil);          V505= ((V506)==Cnil?Ct:Cnil);
2462          if(((V501))==Cnil){          if(((V505))==Cnil){
2463          goto T983;}          goto T983;}
2464          goto T974;          goto T974;
2465          goto T983;          goto T983;
# Line 2466  T983:; Line 2470  T983:;
2470          vs_top=sup;          vs_top=sup;
2471          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2472          goto T986;}          goto T986;}
2473          base[0]= (V497);          base[0]= (V501);
2474          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2475          (void) (*Lnk87)();          (void) (*Lnk87)();
2476          vs_top=sup;          vs_top=sup;
2477          V498= vs_base[0];          V502= vs_base[0];
2478          goto T974;          goto T974;
2479          goto T986;          goto T986;
2480  T986:;  T986:;
# Line 2480  T986:; Line 2484  T986:;
2484          vs_top=sup;}}          vs_top=sup;}}
2485          goto T974;          goto T974;
2486  T974:;  T974:;
2487          {register object V503;          {register object V507;
2488          register object V504;          register object V508;
2489          base[1]= (V497);          base[1]= (V501);
2490          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2491          Lfboundp();          Lfboundp();
2492          vs_top=sup;          vs_top=sup;
# Line 2492  T974:; Line 2496  T974:;
2496          goto T992;          goto T992;
2497          goto T993;          goto T993;
2498  T993:;  T993:;
2499          base[1]= (V497);          base[1]= (V501);
2500          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2501          Lsymbol_function();          Lsymbol_function();
2502          vs_top=sup;          vs_top=sup;
# Line 2501  T993:; Line 2505  T993:;
2505  T992:;  T992:;
2506          base[1]= VV[89];          base[1]= VV[89];
2507          base[2]= VV[69];          base[2]= VV[69];
2508          base[3]= (V497);          base[3]= (V501);
2509          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2510          (void) (*Lnk271)(Lclptr271);          (void) (*Lnk271)(Lclptr271);
2511          vs_top=sup;          vs_top=sup;
2512          V503= vs_base[0];          V507= vs_base[0];
2513          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
2514          V504= small_fixnum(0);          V508= small_fixnum(0);
2515          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
2516          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2517          (void) (*Lnk265)(Lclptr265);          (void) (*Lnk265)(Lclptr265);
2518          vs_top=sup;          vs_top=sup;
2519          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2520          goto T1002;}          goto T1002;}
2521          {object V505 = (base[0]->c.c_car);          {object V509 = (base[0]->c.c_car);
2522          VMR32(V505)}          VMR32(V509)}
2523          goto T1002;          goto T1002;
2524  T1002:;  T1002:;
2525          {register object V506;          {register object V510;
2526          register object V507;          register object V511;
2527          V506= (V498);          V510= (V502);
2528          V507= CMPcar((V506));          V511= CMPcar((V510));
2529          goto T1009;          goto T1009;
2530  T1009:;  T1009:;
2531          if(!(((V506))==Cnil)){          if(!(((V510))==Cnil)){
2532          goto T1010;}          goto T1010;}
2533          goto T1005;          goto T1005;
2534          goto T1010;          goto T1010;
2535  T1010:;  T1010:;
2536          {register object x= (V507),V508= VV[90];          {register object x= (V511),V512= VV[90];
2537          while(V508!=Cnil)          while(V512!=Cnil)
2538          if(x==(V508->c.c_car)){          if(x==(V512->c.c_car)){
2539          goto T1017;          goto T1017;
2540          }else V508=V508->c.c_cdr;          }else V512=V512->c.c_cdr;
2541          goto T1016;}          goto T1016;}
2542          goto T1017;          goto T1017;
2543  T1017:;  T1017:;
2544          goto T1005;          goto T1005;
2545          goto T1016;          goto T1016;
2546  T1016:;  T1016:;
2547          V504= number_plus((V504),small_fixnum(1));          V508= number_plus((V508),small_fixnum(1));
2548          V506= CMPcdr((V506));          V510= CMPcdr((V510));
2549          V507= CMPcar((V506));          V511= CMPcar((V510));
2550          goto T1009;}          goto T1009;}
2551          goto T1005;          goto T1005;
2552  T1005:;  T1005:;
2553          (void)((*(LnkLI274))((V503),V497));          (void)((*(LnkLI274))((V507),V501));
2554          base[1]= (V503);          base[1]= (V507);
2555          base[2]= (V497);          base[2]= (V501);
2556          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2557          (void) (*Lnk259)();          (void) (*Lnk259)();
2558          vs_top=sup;          vs_top=sup;
2559          if(((V499))==Cnil){          if(((V503))==Cnil){
2560          goto T1028;}          goto T1028;}
2561          base[1]= (V498);          base[1]= (V502);
2562          base[2]= V503;          base[2]= V507;
2563          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2564          (void) (*Lnk275)(Lclptr275);          (void) (*Lnk275)(Lclptr275);
2565          vs_top=sup;          vs_top=sup;
# Line 2564  T1028:; Line 2568  T1028:;
2568          if(((base[0]->c.c_car))==Cnil){          if(((base[0]->c.c_car))==Cnil){
2569          goto T1033;}          goto T1033;}
2570          base[1]=(VV[276]->s.s_gfdef);          base[1]=(VV[276]->s.s_gfdef);
2571          base[2]= (V497);          base[2]= (V501);
2572          base[3]= Cnil;          base[3]= Cnil;
2573          base[5]= (V504);          base[5]= (V508);
2574          base[6]= VV[91];          base[6]= VV[91];
2575          base[7]= Ct;          base[7]= Ct;
2576          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2577          Lmake_list();          Lmake_list();
2578          vs_top=sup;          vs_top=sup;
2579          base[4]= vs_base[0];          base[4]= vs_base[0];
2580          base[5]= (V498);          base[5]= (V502);
2581          V511=          V515=
2582          make_cclosure_new(LC123,Cnil,base[0],Cdata);          make_cclosure_new(LC123,Cnil,base[0],Cdata);
2583          base[6]= list(2,VV[54],V511);          base[6]= list(2,VV[54],V515);
2584          (void)simple_lispcall(base+1,5);          (void)simple_lispcall(base+1,5);
2585          goto T1033;          goto T1033;
2586  T1033:;  T1033:;
2587          {object V512 = (V503);          {object V516 = (V507);
2588          VMR32(V512)}}          VMR32(V516)}}
2589          va_end(ap);          va_end(ap);
2590          base[0]=base[0];          base[0]=base[0];
2591          return Cnil;}          return Cnil;}
2592          }}          }}
2593  /*      local entry for function REAL-GET-METHOD        */  /*      local entry for function REAL-GET-METHOD        */
2594    
2595  static object LI37(object V515,object V514,object V513,object first,...)  static object LI37(object V519,object V518,object V517,object first,...)
2596  {        {      
2597          va_list ap;          va_list ap;
2598          int narg = VFUN_NARGS; VMB33 VMS33 VMV33          int narg = VFUN_NARGS; VMB33 VMS33 VMV33
2599          {object V516;          {object V520;
2600          register object V517;          register object V521;
2601          register object V518;          register object V522;
2602          object V519;          object V523;
2603          va_start(ap,first);          va_start(ap,first);
2604          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
2605          V516= V515;          V520= V519;
2606          V517= V514;          V521= V518;
2607          V518= V513;          V522= V517;
2608          narg = narg - 3;          narg = narg - 3;
2609          if (narg <= 0) goto T1045;          if (narg <= 0) goto T1045;
2610          else {          else {
2611          V519= first;}          V523= first;}
2612          --narg; goto T1046;          --narg; goto T1046;
2613          goto T1045;          goto T1045;
2614  T1045:;  T1045:;
2615          V519= Ct;          V523= Ct;
2616          goto T1046;          goto T1046;
2617  T1046:;  T1046:;
2618          {object V520;          {object V524;
2619          {register object V521;          {register object V525;
2620          register object V522;          register object V526;
2621          base[2]= (V516);          base[2]= (V520);
2622          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2623          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
2624          vs_top=sup;          vs_top=sup;
2625          V521= vs_base[0];          V525= vs_base[0];
2626          V522= CMPcar((V521));          V526= CMPcar((V525));
2627          goto T1053;          goto T1053;
2628  T1053:;  T1053:;
2629          if(!(((V521))==Cnil)){          if(!(((V525))==Cnil)){
2630          goto T1054;}          goto T1054;}
2631          V520= Cnil;          V524= Cnil;
2632          goto T1048;          goto T1048;
2633          goto T1054;          goto T1054;
2634  T1054:;  T1054:;
2635          base[2]= (V522);          V527 = (V521);
2636            base[2]= (V526);
2637          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2638          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk229)(Lclptr229);
2639          vs_top=sup;          vs_top=sup;
2640          V523= vs_base[0];          V528= vs_base[0];
2641          if(!(equal((V517),V523))){          if(!(equal(V527,V528))){
2642          goto T1058;}          goto T1058;}
2643          base[2]= (VV[277]->s.s_gfdef);          base[2]= (VV[277]->s.s_gfdef);
2644          base[3]= (V518);          base[3]= (V522);
2645          base[5]= (V522);          base[5]= (V526);
2646          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2647          (void) (*Lnk278)(Lclptr278);          (void) (*Lnk278)(Lclptr278);
2648          vs_top=sup;          vs_top=sup;
# Line 2647  T1054:; Line 2652  T1054:;
2652          vs_top=sup;          vs_top=sup;
2653          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2654          goto T1058;}          goto T1058;}
2655          V520= (V522);          V524= (V526);
2656          goto T1048;          goto T1048;
2657          goto T1058;          goto T1058;
2658  T1058:;  T1058:;
2659          V521= CMPcdr((V521));          V525= CMPcdr((V525));
2660          V522= CMPcar((V521));          V526= CMPcar((V525));
2661          goto T1053;}          goto T1053;}
2662          goto T1048;          goto T1048;
2663  T1048:;  T1048:;
2664          if(((V520))==Cnil){          if(((V524))==Cnil){
2665          goto T1075;}          goto T1075;}
2666          {object V524 = (V520);          {object V529 = (V524);
2667          VMR33(V524)}          VMR33(V529)}
2668          goto T1075;          goto T1075;
2669  T1075:;  T1075:;
2670          if(((V519))!=Cnil){          if(((V523))!=Cnil){
2671          goto T1078;}          goto T1078;}
2672          {object V525 = Cnil;          {object V530 = Cnil;
2673          VMR33(V525)}          VMR33(V530)}
2674          goto T1078;          goto T1078;
2675  T1078:;  T1078:;
2676          base[0]= VV[92];          base[0]= VV[92];
2677          base[1]= (V516);          base[1]= (V520);
2678          base[2]= (V517);          base[2]= (V521);
2679          base[3]= (V518);          base[3]= (V522);
2680          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
2681          Lerror();          Lerror();
2682          vs_top=sup;          vs_top=sup;
2683          {object V526 = vs_base[0];          {object V531 = vs_base[0];
2684          VMR33(V526)}}          VMR33(V531)}}
2685          va_end(ap);          va_end(ap);
2686          base[0]=base[0];          base[0]=base[0];
2687          return Cnil;}          return Cnil;}
# Line 2687  static void L38() Line 2692  static void L38()
2692  {register object *base=vs_base;  {register object *base=vs_base;
2693          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
2694          vs_check;          vs_check;
2695          {object V527;          {object V532;
2696          object V528;          object V533;
2697          register object V529;          register object V534;
2698          check_arg(3);          check_arg(3);
2699          V527=(base[0]);          V532=(base[0]);
2700          V528=(base[1]);          V533=(base[1]);
2701          V529=(base[2]);          V534=(base[2]);
2702          vs_top=sup;          vs_top=sup;
2703          goto TTL;          goto TTL;
2704  TTL:;  TTL:;
2705          {register object V531;          {register object V536;
2706          register object V532;          register object V537;
2707          register object V533;          register object V538;
2708          object V534;          object V539;
2709          base[3]= (V529);          base[3]= (V534);
2710          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2711          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
2712          vs_top=sup;          vs_top=sup;
2713          V534= vs_base[0];          V539= vs_base[0];
2714          V531= Cnil;          V536= Cnil;
2715          V532= Cnil;          V537= Cnil;
2716          V533= Cnil;          V538= Cnil;
2717          {register object V535;          {register object V540;
2718          register object V536;          register object V541;
2719          V535= (V534);          V540= (V539);
2720          V536= CMPcar((V535));          V541= CMPcar((V540));
2721          goto T1093;          goto T1093;
2722  T1093:;  T1093:;
2723          if(!(((V535))==Cnil)){          if(!(((V540))==Cnil)){
2724          goto T1094;}          goto T1094;}
2725          goto T1089;          goto T1089;
2726          goto T1094;          goto T1094;
2727  T1094:;  T1094:;
2728          base[4]= (V529);          base[4]= (V534);
2729          base[5]= (V536);          base[5]= (V541);
2730          base[6]= (V531);          base[6]= (V536);
2731          base[7]= (V532);          base[7]= (V537);
2732          base[8]= (V533);          base[8]= (V538);
2733          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
2734          (void) (*Lnk280)();          (void) (*Lnk280)();
2735          if(vs_base<vs_top){          if(vs_base<vs_top){
2736          V531= vs_base[0];          V536= vs_base[0];
2737          vs_base++;          vs_base++;
2738          }else{          }else{
2739          V531= Cnil;}          V536= Cnil;}
2740          if(vs_base<vs_top){          if(vs_base<vs_top){
2741          V532= vs_base[0];          V537= vs_base[0];
2742          vs_base++;          vs_base++;
2743          }else{          }else{
2744          V532= Cnil;}          V537= Cnil;}
2745          if(vs_base<vs_top){          if(vs_base<vs_top){
2746          V533= vs_base[0];          V538= vs_base[0];
2747          }else{          }else{
2748          V533= Cnil;}          V538= Cnil;}
2749          vs_top=sup;          vs_top=sup;
2750          V535= CMPcdr((V535));          V540= CMPcdr((V540));
2751          V536= CMPcar((V535));          V541= CMPcar((V540));
2752          goto T1093;}          goto T1093;}
2753          goto T1089;          goto T1089;
2754  T1089:;  T1089:;
2755          base[3]= (V531);          base[3]= (V536);
2756          base[4]= (V532);          base[4]= (V537);
2757          base[6]= (V533);          base[6]= (V538);
2758          base[7]= (VV[281]->s.s_gfdef);          base[7]= (VV[281]->s.s_gfdef);
2759          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
2760          (void) (*Lnk282)();          (void) (*Lnk282)();
# Line 2765  static void L39() Line 2770  static void L39()
2770  {register object *base=vs_base;  {register object *base=vs_base;
2771          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
2772          vs_check;          vs_check;
2773          {object V537;          {object V542;
2774          object V538;          object V543;
2775          object V539;          object V544;
2776          object V540;          object V545;
2777          object V541;          object V546;
2778          check_arg(5);          check_arg(5);
2779          V537=(base[0]);          V542=(base[0]);
2780          V538=(base[1]);          V543=(base[1]);
2781          V539=(base[2]);          V544=(base[2]);
2782          V540=(base[3]);          V545=(base[3]);
2783          V541=(base[4]);          V546=(base[4]);
2784          vs_top=sup;          vs_top=sup;
2785          goto TTL;          goto TTL;
2786  TTL:;  TTL:;
2787          {long V542;          {long V547;
2788          V542= 0;          V547= 0;
2789          {register object V543;          {register object V548;
2790          register object V544;          register object V549;
2791          base[7]= (V538);          base[7]= (V543);
2792          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2793          (void) (*Lnk283)(Lclptr283);          (void) (*Lnk283)(Lclptr283);
2794          vs_top=sup;          vs_top=sup;
2795          V543= vs_base[0];          V548= vs_base[0];
2796          V544= CMPcar((V543));          V549= CMPcar((V548));
2797          goto T1121;          goto T1121;
2798  T1121:;  T1121:;
2799          if(!(((V543))==Cnil)){          if(!(((V548))==Cnil)){
2800          goto T1122;}          goto T1122;}
2801          goto T1116;          goto T1116;
2802          goto T1122;          goto T1122;
2803  T1122:;  T1122:;
2804          if(!(((V544))==(VV[93]))){          if(!(((V549))==(VV[93]))){
2805          goto T1128;}          goto T1128;}
2806          goto T1116;          goto T1116;
2807          goto T1128;          goto T1128;
2808  T1128:;  T1128:;
2809          {register object x= (V544),V545= VV[94];          {register object x= (V549),V550= VV[94];
2810          while(V545!=Cnil)          while(V550!=Cnil)
2811          if(x==(V545->c.c_car)){          if(x==(V550->c.c_car)){
2812          goto T1132;          goto T1132;
2813          }else V545=V545->c.c_cdr;          }else V550=V550->c.c_cdr;
2814          goto T1131;}          goto T1131;}
2815          goto T1132;          goto T1132;
2816  T1132:;  T1132:;
2817          V540= Ct;          V545= Ct;
2818          goto T1116;          goto T1116;
2819          goto T1131;          goto T1131;
2820  T1131:;  T1131:;
2821          {register object V546;          {register object V551;
2822          {register object x= (V544),V547= VV[90];          {register object x= (V549),V552= VV[90];
2823          while(V547!=Cnil)          while(V552!=Cnil)
2824          if(x==(V547->c.c_car)){          if(x==(V552->c.c_car)){
2825          V546= V547;          V551= V552;
2826          goto T1134;          goto T1134;
2827          }else V547=V547->c.c_cdr;          }else V552=V552->c.c_cdr;
2828          V546= Cnil;}          V551= Cnil;}
2829          goto T1134;          goto T1134;
2830  T1134:;  T1134:;
2831          if(((V546))==Cnil){          if(((V551))==Cnil){
2832          goto T1136;}          goto T1136;}
2833          goto T1126;          goto T1126;
2834          goto T1136;          goto T1136;
2835  T1136:;  T1136:;
2836          V542= (long)(V542)+(1);}          V547= (long)(V547)+(1);}
2837          goto T1126;          goto T1126;
2838  T1126:;  T1126:;
2839          V543= CMPcdr((V543));          V548= CMPcdr((V548));
2840          V544= CMPcar((V543));          V549= CMPcar((V548));
2841          goto T1121;}          goto T1121;}
2842          goto T1116;          goto T1116;
2843  T1116:;  T1116:;
2844          {register object V548;          {register object V553;
2845          object V549;          object V554;
2846          register object V550;          register object V555;
2847          object V551;          object V556;
2848          base[6]= (V538);          base[6]= (V543);
2849          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
2850          (void) (*Lnk278)(Lclptr278);          (void) (*Lnk278)(Lclptr278);
2851          vs_top=sup;          vs_top=sup;
2852          V548= vs_base[0];          V553= vs_base[0];
2853          V549= Cnil;          V554= Cnil;
2854          V550= small_fixnum(0);          V555= small_fixnum(0);
2855          V551= Cnil;          V556= Cnil;
2856          goto T1151;          goto T1151;
2857  T1151:;  T1151:;
2858          {object V552;          {object V557;
2859          if(!(((V548))==Cnil)){          if(!(((V553))==Cnil)){
2860          goto T1157;}          goto T1157;}
2861          goto T1144;          goto T1144;
2862          goto T1157;          goto T1157;
2863  T1157:;  T1157:;
2864          V552= CMPcar((V548));          V557= CMPcar((V553));
2865          V548= CMPcdr((V548));          V553= CMPcdr((V553));
2866          V549= (V552);}          V554= (V557);}
2867          {object V553;          {object V558;
2868          V553= (V550);          V558= (V555);
2869          V550= number_plus((V550),small_fixnum(1));          V555= number_plus((V555),small_fixnum(1));
2870          V551= (V553);}          V556= (V558);}
2871          if(((V549))==((VV[95]->s.s_dbind))){          if(((V554))==((VV[95]->s.s_dbind))){
2872          goto T1152;}          goto T1152;}
2873          base[6]= V551;          base[6]= V556;
2874          base[7]= (V541);          base[7]= (V546);
2875          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
2876          Ladjoin();          Ladjoin();
2877          vs_top=sup;          vs_top=sup;
2878          V541= vs_base[0];          V546= vs_base[0];
2879          goto T1152;          goto T1152;
2880  T1152:;  T1152:;
2881          goto T1151;}          goto T1151;}
2882          goto T1144;          goto T1144;
2883  T1144:;  T1144:;
2884          if((V539)!=Cnil){          if((V544)!=Cnil){
2885          V555= (V539);          V560= (V544);
2886          goto T1172;}          goto T1172;}
2887          V555= CMPmake_fixnum(V542);          V560= CMPmake_fixnum(V547);
2888          goto T1172;          goto T1172;
2889  T1172:;  T1172:;
2890          V556 = CMPmake_fixnum(V542);          V561 = CMPmake_fixnum(V547);
2891          base[5]= (number_compare(V555,V556)<=0?(V555):V556);          base[5]= (number_compare(V560,V561)<=0?(V560):V561);
2892          if((V540)!=Cnil){          if((V545)!=Cnil){
2893          base[6]= (V540);          base[6]= (V545);
2894          goto T1173;}          goto T1173;}
2895          if((V539)==Cnil){          if((V544)==Cnil){
2896          base[6]= Cnil;          base[6]= Cnil;
2897          goto T1173;}          goto T1173;}
2898          V557 = CMPmake_fixnum(V542);          V562 = CMPmake_fixnum(V547);
2899          base[6]= (number_compare((V539),V557)!=0?Ct:Cnil);          base[6]= (number_compare((V544),V562)!=0?Ct:Cnil);
2900          goto T1173;          goto T1173;
2901  T1173:;  T1173:;
2902          base[7]= (V541);          base[7]= (V546);
2903          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2904          return;}          return;}
2905          }          }
2906  }  }
2907  /*      local entry for function MAKE-DISCRIMINATING-FUNCTION-ARGLIST   */  /*      local entry for function MAKE-DISCRIMINATING-FUNCTION-ARGLIST   */
2908    
2909  static object LI40(V560,V561)  static object LI40(V565,V566)
2910    
2911  object V560;object V561;  object V565;object V566;
2912  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
2913          goto TTL;          goto TTL;
2914  TTL:;  TTL:;
2915          {register object V563;          {register object V568;
2916          register object V564;          register object V569;
2917          V563= Cnil;          V568= Cnil;
2918          V564= Cnil;          V569= Cnil;
2919          {register object V565;          {register object V570;
2920          register object V567;          register object V572;
2921          V565= small_fixnum(0);          V570= small_fixnum(0);
2922          V567= Cnil;          V572= Cnil;
2923          goto T1182;          goto T1182;
2924  T1182:;  T1182:;
2925          {register object V568;          {register object V573;
2926          if(!(number_compare((V565),V560)<0)){          if(!(number_compare((V570),V565)<0)){
2927          goto T1188;}          goto T1188;}
2928          V568= (V565);          V573= (V570);
2929          goto T1186;          goto T1186;
2930          goto T1188;          goto T1188;
2931  T1188:;  T1188:;
2932          goto T1178;          goto T1178;
2933          goto T1186;          goto T1186;
2934  T1186:;  T1186:;
2935          V565= number_plus((V565),small_fixnum(1));          V570= number_plus((V570),small_fixnum(1));
2936          V567= (V568);}          V572= (V573);}
2937          {register object V569;          {register object V574;
2938          base[1]= Cnil;          base[1]= Cnil;
2939          base[2]= VV[96];          base[2]= VV[96];
2940          base[3]= (V567);          base[3]= (V572);
2941          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2942          Lformat();          Lformat();
2943          vs_top=sup;          vs_top=sup;
# Line 2940  T1186:; Line 2945  T1186:;
2945          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2946          Lintern();          Lintern();
2947          vs_top=sup;          vs_top=sup;
2948          V569= vs_base[0];          V574= vs_base[0];
2949          if(((V563))!=Cnil){          if(((V568))!=Cnil){
2950          goto T1198;}          goto T1198;}
2951          V564= make_cons((V569),Cnil);          V569= make_cons((V574),Cnil);
2952          V563= (V564);          V568= (V569);
2953          goto T1183;          goto T1183;
2954          goto T1198;          goto T1198;
2955  T1198:;  T1198:;
2956          V571= make_cons((V569),Cnil);          V576= make_cons((V574),Cnil);
2957          ((V564))->c.c_cdr = /* INLINE-ARGS */V571;          ((V569))->c.c_cdr = /* INLINE-ARGS */V576;
2958          V570= (V564);          V575= (V569);
2959          V564= CMPcdr(V570);}          V569= CMPcdr(V575);}
2960          goto T1183;          goto T1183;
2961  T1183:;  T1183:;
2962          goto T1182;}          goto T1182;}
2963          goto T1178;          goto T1178;
2964  T1178:;  T1178:;
2965          V562= (V563);}          V567= (V568);}
2966          if(((V561))==Cnil){          if(((V566))==Cnil){
2967          goto T1207;}          goto T1207;}
2968          base[0]= VV[98];          base[0]= VV[98];
2969          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2970          Lintern();          Lintern();
2971          vs_top=sup;          vs_top=sup;
2972          V573= vs_base[0];          V578= vs_base[0];
2973          V572= list(2,VV[97],V573);          V577= list(2,VV[97],V578);
2974          goto T1205;          goto T1205;
2975          goto T1207;          goto T1207;
2976  T1207:;  T1207:;
2977          V572= Cnil;          V577= Cnil;
2978          goto T1205;          goto T1205;
2979  T1205:;  T1205:;
2980          {object V574 = nconc(V562,V572);          {object V579 = nconc(V567,V577);
2981          VMR36(V574)}          VMR36(V579)}
2982          base[0]=base[0];          base[0]=base[0];
2983          return Cnil;          return Cnil;
2984  }  }
2985  /*      local entry for function (FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION))  */  /*      local entry for function (FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION))  */
2986    
2987  static object LI41(V578,V579,V580)  static object LI41(V583,V584,V585)
2988    
2989  object V578;object V579;object V580;  object V583;object V584;object V585;
2990  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
2991          goto TTL;          goto TTL;
2992  TTL:;  TTL:;
2993          {object V582 = (*(LnkLI284))((V580));          {object V587 = (*(LnkLI284))((V585));
2994          VMR37(V582)}          VMR37(V587)}
2995          return Cnil;          return Cnil;
2996  }  }
2997  /*      local entry for function (FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION))    */  /*      local entry for function (FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION))    */
2998    
2999  static object LI42(V586,V587,V588)  static object LI42(V591,V592,V593)
3000    
3001  object V586;object V587;register object V588;  object V591;object V592;register object V593;
3002  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
3003          goto TTL;          goto TTL;
3004  TTL:;  TTL:;
3005          {object V590;          {object V595;
3006          object V591;          object V596;
3007          V590= CMPcar((V586));          V595= CMPcar((V591));
3008          V591= CMPcdr((V586));          V596= CMPcdr((V591));
3009          {object V592;          {object V597;
3010          if(type_of(V588)==t_structure){          if(type_of(V593)==t_structure){
3011          goto T1224;}          goto T1224;}
3012          goto T1222;          goto T1222;
3013          goto T1224;          goto T1224;
3014  T1224:;  T1224:;
3015          if(!(((V588)->str.str_def)==(VV[99]))){          if(!(((V593)->str.str_def)==(VV[99]))){
3016          goto T1222;}          goto T1222;}
3017          V592= STREF(object,(V588),4);          V597= STREF(object,(V593),4);
3018          goto T1220;          goto T1220;
3019          goto T1222;          goto T1222;
3020  T1222:;{object V594;  T1222:;{object V599;
3021          V594= (VV[13]->s.s_dbind);          V599= (VV[13]->s.s_dbind);
3022          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
3023          base[1]= (V588);          base[1]= (V593);
3024          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3025          (void) (*Lnk215)();          (void) (*Lnk215)();
3026          vs_top=sup;          vs_top=sup;
3027          V595= vs_base[0];          V600= vs_base[0];
3028          if(!((V594)==(CMPcar(V595)))){          if(!((V599)==(CMPcar(V600)))){
3029          goto T1227;}}          goto T1227;}}
3030          V592= CMPcar(((V588))->cc.cc_turbo[12]);          V597= CMPcar(((V593))->cc.cc_turbo[12]);
3031          goto T1220;          goto T1220;
3032          goto T1227;          goto T1227;
3033  T1227:;  T1227:;
3034          V592= Cnil;          V597= Cnil;
3035          goto T1220;          goto T1220;
3036  T1220:;  T1220:;
3037          {register object V597;          {register object V602;
3038          V597= ((V590))->v.v_self[1];          V602= ((V595))->v.v_self[1];
3039          if(!(type_of(V597)==t_fixnum)){          if(!(type_of(V602)==t_fixnum)){
3040          goto T1238;}          goto T1238;}
3041          V597= ((V592))->v.v_self[fix((V597))];          V602= ((V597))->v.v_self[fix((V602))];
3042          goto T1236;          goto T1236;
3043          goto T1238;          goto T1238;
3044  T1238:;  T1238:;
3045          V597= VV[14];          V602= VV[14];
3046          goto T1236;          goto T1236;
3047  T1236:;  T1236:;
3048          if(!(((V597))==(VV[14]))){          if(!(((V602))==(VV[14]))){
3049          goto T1241;}          goto T1241;}
3050          base[0]= (V588);          base[0]= (V593);
3051          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3052          (void) (*Lnk285)(Lclptr285);          (void) (*Lnk285)(Lclptr285);
3053          vs_top=sup;          vs_top=sup;
3054          V596= vs_base[0];          V601= vs_base[0];
3055          goto T1233;          goto T1233;
3056          goto T1241;          goto T1241;
3057  T1241:;  T1241:;
3058          V596= (V597);}          V601= (V602);}
3059          goto T1233;          goto T1233;
3060  T1233:;  T1233:;
3061          {object V599 = STREF(object,V596,40);          {object V604 = STREF(object,V601,40);
3062          VMR38(V599)}}}          VMR38(V604)}}}
3063          base[0]=base[0];          base[0]=base[0];
3064          return Cnil;          return Cnil;
3065  }  }
3066  /*      local entry for function (FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))   */  /*      local entry for function (FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))   */
3067    
3068  static object LI43(V604,V605,V606,V607)  static object LI43(V609,V610,V611,V612)
3069    
3070  object V604;object V605;register object V606;object V607;  object V609;object V610;register object V611;object V612;
3071  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
3072          goto TTL;          goto TTL;
3073  TTL:;  TTL:;
3074          {object V609;          {object V614;
3075          object V611;          object V616;
3076          object V612;          object V617;
3077          V609= (*(LnkLI220))(VV[52],V607);          V614= (*(LnkLI220))(VV[52],V612);
3078          if(!(type_of((V609))==t_cons)){          if(!(type_of((V614))==t_cons)){
3079          goto T1249;}          goto T1249;}
3080          V611= CMPcar((V609));          V616= CMPcar((V614));
3081          goto T1247;          goto T1247;
3082          goto T1249;          goto T1249;
3083  T1249:;  T1249:;
3084          V611= Cnil;          V616= Cnil;
3085          goto T1247;          goto T1247;
3086  T1247:;  T1247:;
3087          V612= (*(LnkLI239))(VV[70],V607);          V617= (*(LnkLI239))(VV[70],V612);
3088          {object V613;          {object V618;
3089          object V614;          object V619;
3090          V613= CMPcar((V604));          V618= CMPcar((V609));
3091          V614= CMPcdr((V604));          V619= CMPcdr((V609));
3092          {object V615;          {object V620;
3093          if(type_of(V606)==t_structure){          if(type_of(V611)==t_structure){
3094          goto T1260;}          goto T1260;}
3095          goto T1258;          goto T1258;
3096          goto T1260;          goto T1260;
3097  T1260:;  T1260:;
3098          if(!(((V606)->str.str_def)==(VV[101]))){          if(!(((V611)->str.str_def)==(VV[101]))){
3099          goto T1258;}          goto T1258;}
3100          V615= STREF(object,(V606),4);          V620= STREF(object,(V611),4);
3101          goto T1256;          goto T1256;
3102          goto T1258;          goto T1258;
3103  T1258:;{object V617;  T1258:;{object V622;
3104          V617= (VV[13]->s.s_dbind);          V622= (VV[13]->s.s_dbind);
3105          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
3106          base[4]= (V606);          base[4]= (V611);
3107          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3108          (void) (*Lnk215)();          (void) (*Lnk215)();
3109          vs_top=sup;          vs_top=sup;
3110          V618= vs_base[0];          V623= vs_base[0];
3111          if(!((V617)==(CMPcar(V618)))){          if(!((V622)==(CMPcar(V623)))){
3112          goto T1263;}}          goto T1263;}}
3113          V615= CMPcar(((V606))->cc.cc_turbo[12]);          V620= CMPcar(((V611))->cc.cc_turbo[12]);
3114          goto T1256;          goto T1256;
3115          goto T1263;          goto T1263;
3116  T1263:;  T1263:;
3117          V615= Cnil;          V620= Cnil;
3118          goto T1256;          goto T1256;
3119  T1256:;  T1256:;
3120          if((V609)==Cnil){          if((V614)==Cnil){
3121          goto T1272;}          goto T1272;}
3122          (void)((VFUN_NARGS=5,(*(LnkLI286))((V606),VV[52],(V611),VV[70],(V612))));          (void)((VFUN_NARGS=5,(*(LnkLI286))((V611),VV[52],(V616),VV[70],(V617))));
3123          goto T1270;          goto T1270;
3124          goto T1272;          goto T1272;
3125  T1272:;  T1272:;
3126          (void)((VFUN_NARGS=1,(*(LnkLI286))((V606))));          (void)((VFUN_NARGS=1,(*(LnkLI286))((V611))));
3127          goto T1270;          goto T1270;
3128  T1270:;  T1270:;
3129          {register object V621;          {register object V626;
3130          V621= ((V613))->v.v_self[1];          V626= ((V618))->v.v_self[1];
3131          if(!(type_of(V621)==t_fixnum)){          if(!(type_of(V626)==t_fixnum)){
3132          goto T1282;}          goto T1282;}
3133          V621= ((V615))->v.v_self[fix((V621))];          V626= ((V620))->v.v_self[fix((V626))];
3134          goto T1280;          goto T1280;
3135          goto T1282;          goto T1282;
3136  T1282:;  T1282:;
3137          V621= VV[14];          V626= VV[14];
3138          goto T1280;          goto T1280;
3139  T1280:;  T1280:;
3140          if(!(((V621))==(VV[14]))){          if(!(((V626))==(VV[14]))){
3141          goto T1285;}          goto T1285;}
3142          base[3]= (V606);          base[3]= (V611);
3143          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3144          (void) (*Lnk285)(Lclptr285);          (void) (*Lnk285)(Lclptr285);
3145          vs_top=sup;          vs_top=sup;
3146          V620= vs_base[0];          V625= vs_base[0];
3147          goto T1277;          goto T1277;
3148          goto T1285;          goto T1285;
3149  T1285:;  T1285:;
3150          V620= (V621);}          V625= (V626);}
3151          goto T1277;          goto T1277;
3152  T1277:;  T1277:;
3153          if(((*(LnkLI287))(V620))==Cnil){          if(((*(LnkLI287))(V625))==Cnil){
3154          goto T1275;}          goto T1275;}
3155          {object V623 = (VFUN_NARGS=1,(*(LnkLI288))((V606)));          {object V628 = (VFUN_NARGS=1,(*(LnkLI288))((V611)));
3156          VMR39(V623)}          VMR39(V628)}
3157          goto T1275;          goto T1275;
3158  T1275:;  T1275:;
3159          {object V624 = Cnil;          {object V629 = Cnil;
3160          VMR39(V624)}}}}          VMR39(V629)}}}}
3161          base[0]=base[0];          base[0]=base[0];
3162          return Cnil;          return Cnil;
3163  }  }
3164  /*      local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) */  /*      local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) */
3165    
3166  static object LI44(V629,V630,V631,V632)  static object LI44(V634,V635,V636,V637)
3167    
3168  object V629;object V630;register object V631;object V632;  object V634;object V635;register object V636;object V637;
3169  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
3170          goto TTL;          goto TTL;
3171  TTL:;  TTL:;
3172          {object V635;          {object V640;
3173          object V637;          object V642;
3174          object V638;          object V643;
3175          object V640;          object V645;
3176          V635= (*(LnkLI220))(VV[52],V632);          V640= (*(LnkLI220))(VV[52],V637);
3177          if(!(type_of((V635))==t_cons)){          if(!(type_of((V640))==t_cons)){
3178          goto T1293;}          goto T1293;}
3179          V637= CMPcar((V635));          V642= CMPcar((V640));
3180          goto T1291;          goto T1291;
3181          goto T1293;          goto T1293;
3182  T1293:;  T1293:;
3183          V637= Cnil;          V642= Cnil;
3184          goto T1291;          goto T1291;
3185  T1291:;  T1291:;
3186          V638= (*(LnkLI220))(VV[70],V632);          V643= (*(LnkLI220))(VV[70],V637);
3187          if(!(type_of((V638))==t_cons)){          if(!(type_of((V643))==t_cons)){
3188          goto T1298;}          goto T1298;}
3189          V640= CMPcar((V638));          V645= CMPcar((V643));
3190          goto T1296;          goto T1296;
3191          goto T1298;          goto T1298;
3192  T1298:;  T1298:;
3193          V640= Cnil;          V645= Cnil;
3194          goto T1296;          goto T1296;
3195  T1296:;  T1296:;
3196          {object V641;          {object V646;
3197          object V642;          object V647;
3198          V641= CMPcar((V629));          V646= CMPcar((V634));
3199          V642= CMPcdr((V629));          V647= CMPcdr((V634));
3200          {object V643;          {object V648;
3201          if(type_of(V631)==t_structure){          if(type_of(V636)==t_structure){
3202          goto T1308;}          goto T1308;}
3203          goto T1306;          goto T1306;
3204          goto T1308;          goto T1308;
3205  T1308:;  T1308:;
3206          if(!(((V631)->str.str_def)==(VV[102]))){          if(!(((V636)->str.str_def)==(VV[102]))){
3207          goto T1306;}          goto T1306;}
3208          V643= STREF(object,(V631),4);          V648= STREF(object,(V636),4);
3209          goto T1304;          goto T1304;
3210          goto T1306;          goto T1306;
3211  T1306:;{object V645;  T1306:;{object V650;
3212          V645= (VV[13]->s.s_dbind);          V650= (VV[13]->s.s_dbind);
3213          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
3214          base[5]= (V631);          base[5]= (V636);
3215          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3216          (void) (*Lnk215)();          (void) (*Lnk215)();
3217          vs_top=sup;          vs_top=sup;
3218          V646= vs_base[0];          V651= vs_base[0];
3219          if(!((V645)==(CMPcar(V646)))){          if(!((V650)==(CMPcar(V651)))){
3220          goto T1311;}}          goto T1311;}}
3221          V643= CMPcar(((V631))->cc.cc_turbo[12]);          V648= CMPcar(((V636))->cc.cc_turbo[12]);
3222          goto T1304;          goto T1304;
3223          goto T1311;          goto T1311;
3224  T1311:;  T1311:;
3225          V643= Cnil;          V648= Cnil;
3226          goto T1304;          goto T1304;
3227  T1304:;  T1304:;
3228          if((V635)==Cnil){          if((V640)==Cnil){
3229          goto T1320;}          goto T1320;}
3230          if((V638)==Cnil){          if((V643)==Cnil){
3231          goto T1323;}          goto T1323;}
3232          (void)((VFUN_NARGS=5,(*(LnkLI286))((V631),VV[52],(V637),VV[70],(V640))));          (void)((VFUN_NARGS=5,(*(LnkLI286))((V636),VV[52],(V642),VV[70],(V645))));
3233          goto T1318;          goto T1318;
3234          goto T1323;          goto T1323;
3235  T1323:;  T1323:;
3236          (void)((VFUN_NARGS=3,(*(LnkLI286))((V631),VV[52],(V637))));          (void)((VFUN_NARGS=3,(*(LnkLI286))((V636),VV[52],(V642))));
3237          goto T1318;          goto T1318;
3238          goto T1320;          goto T1320;
3239  T1320:;  T1320:;
3240          (void)((VFUN_NARGS=1,(*(LnkLI286))((V631))));          (void)((VFUN_NARGS=1,(*(LnkLI286))((V636))));
3241          goto T1318;          goto T1318;
3242  T1318:;  T1318:;
3243          {register object V649;          {register object V654;
3244          V649= ((V641))->v.v_self[1];          V654= ((V646))->v.v_self[1];
3245          if(!(type_of(V649)==t_fixnum)){          if(!(type_of(V654)==t_fixnum)){
3246          goto T1336;}          goto T1336;}
3247          V649= ((V643))->v.v_self[fix((V649))];          V654= ((V648))->v.v_self[fix((V654))];
3248          goto T1334;          goto T1334;
3249          goto T1336;          goto T1336;
3250  T1336:;  T1336:;
3251          V649= VV[14];          V654= VV[14];
3252          goto T1334;          goto T1334;
3253  T1334:;  T1334:;
3254          if(!(((V649))==(VV[14]))){          if(!(((V654))==(VV[14]))){
3255          goto T1339;}          goto T1339;}
3256          base[4]= (V631);          base[4]= (V636);
3257          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3258          (void) (*Lnk285)(Lclptr285);          (void) (*Lnk285)(Lclptr285);
3259          vs_top=sup;          vs_top=sup;
3260          V648= vs_base[0];          V653= vs_base[0];
3261          goto T1331;          goto T1331;
3262          goto T1339;          goto T1339;
3263  T1339:;  T1339:;
3264          V648= (V649);}          V653= (V654);}
3265          goto T1331;          goto T1331;
3266  T1331:;  T1331:;
3267          if(((*(LnkLI287))(V648))==Cnil){          if(((*(LnkLI287))(V653))==Cnil){
3268          goto T1329;}          goto T1329;}
3269          if((V632)==Cnil){          if((V637)==Cnil){
3270          goto T1343;}          goto T1343;}
3271          if(V635!=Cnil){          if(V640!=Cnil){
3272          if((V635)==Cnil){          if((V640)==Cnil){
3273          goto T1326;}          goto T1326;}
3274          goto T1327;}          goto T1327;}
3275          if((CMPcddr(V632))==Cnil){          if((CMPcddr(V637))==Cnil){
3276          goto T1326;}          goto T1326;}
3277          goto T1327;          goto T1327;
3278          goto T1343;          goto T1343;
# Line 3278  T1329:; Line 3283  T1329:;
3283          goto T1326;          goto T1326;
3284          goto T1327;          goto T1327;
3285  T1327:;  T1327:;
3286          {object V651 = (VFUN_NARGS=1,(*(LnkLI288))((V631)));          {object V656 = (VFUN_NARGS=1,(*(LnkLI288))((V636)));
3287          VMR40(V651)}          VMR40(V656)}
3288          goto T1326;          goto T1326;
3289  T1326:;  T1326:;
3290          {object V652 = Cnil;          {object V657 = Cnil;
3291          VMR40(V652)}}}}          VMR40(V657)}}}}
3292          base[0]=base[0];          base[0]=base[0];
3293          return Cnil;          return Cnil;
3294  }  }
3295  /*      local entry for function SET-METHODS    */  /*      local entry for function SET-METHODS    */
3296    
3297  static object LI45(V655,V656)  static object LI45(V660,V661)
3298    
3299  register object V655;register object V656;  register object V660;register object V661;
3300  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
3301          goto TTL;          goto TTL;
3302  TTL:;  TTL:;
3303          base[0]= Cnil;          base[0]= Cnil;
3304          base[1]= V655;          base[1]= V660;
3305          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3306          (void) (*Lnk289)(Lclptr289);          (void) (*Lnk289)(Lclptr289);
3307          vs_top=sup;          vs_top=sup;
3308          goto T1349;          goto T1349;
3309  T1349:;  T1349:;
3310          if(((V656))!=Cnil){          if(((V661))!=Cnil){
3311          goto T1351;}          goto T1351;}
3312          {object V658 = (V655);          {object V663 = (V660);
3313          VMR41(V658)}          VMR41(V663)}
3314          goto T1351;          goto T1351;
3315  T1351:;  T1351:;
3316          {register object V660;          V664 = (V660);
3317          V660= CMPcar((V656));          {register object V666;
3318          V656= CMPcdr((V656));          V666= CMPcar((V661));
3319          V659= (V660);}          V661= CMPcdr((V661));
3320          (void)((VFUN_NARGS=3,(*(LnkLI290))((V655),V659,(V656))));          V665= (V666);}
3321            V667 = (V661);
3322            (void)((VFUN_NARGS=3,(*(LnkLI290))(V664,V665,V667)));
3323          goto T1349;          goto T1349;
3324          base[0]=base[0];          base[0]=base[0];
3325          return Cnil;          return Cnil;
3326  }  }
3327  /*      local entry for function REAL-ADD-METHOD        */  /*      local entry for function REAL-ADD-METHOD        */
3328    
3329  static object LI46(object V662,object V661,object first,...)  static object LI46(object V669,object V668,object first,...)
3330  {        {      
3331          va_list ap;          va_list ap;
3332          int narg = VFUN_NARGS; VMB42 VMS42 VMV42          int narg = VFUN_NARGS; VMB42 VMS42 VMV42
3333          {register object V663;          {register object V670;
3334          register object V664;          register object V671;
3335          object V665;          object V672;
3336          va_start(ap,first);          va_start(ap,first);
3337          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
3338          V663= V662;          V670= V669;
3339          V664= V661;          V671= V668;
3340          narg = narg - 2;          narg = narg - 2;
3341          if (narg <= 0) goto T1359;          if (narg <= 0) goto T1359;
3342          else {          else {
3343          V665= first;}          V672= first;}
3344          --narg; goto T1360;          --narg; goto T1360;
3345          goto T1359;          goto T1359;
3346  T1359:;  T1359:;
3347          V665= Cnil;          V672= Cnil;
3348          goto T1360;          goto T1360;
3349  T1360:;  T1360:;
3350          base[0]= (V664);          base[0]= (V671);
3351          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3352          (void) (*Lnk227)(Lclptr227);          (void) (*Lnk227)(Lclptr227);
3353          vs_top=sup;          vs_top=sup;
3354          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3355          goto T1363;}          goto T1363;}
3356          base[0]= VV[103];          base[0]= VV[103];
3357          base[1]= (V664);          base[1]= (V671);
3358          base[3]= (V664);          base[3]= (V671);
3359          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3360          (void) (*Lnk227)(Lclptr227);          (void) (*Lnk227)(Lclptr227);
3361          vs_top=sup;          vs_top=sup;
# Line 3356  T1360:; Line 3363  T1360:;
3363          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3364          Lerror();          Lerror();
3365          vs_top=sup;          vs_top=sup;
3366          {object V666 = vs_base[0];          {object V673 = vs_base[0];
3367          VMR42(V666)}          VMR42(V673)}
3368          goto T1363;          goto T1363;
3369  T1363:;  T1363:;
3370          {object V667;          {object V674;
3371          object V668;          object V675;
3372          object V669;          object V676;
3373          object V670;          object V677;
3374          base[4]= (V663);          base[4]= (V670);
3375          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3376          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
3377          vs_top=sup;          vs_top=sup;
3378          V667= vs_base[0];          V674= vs_base[0];
3379          base[4]= (V664);          base[4]= (V671);
3380          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3381          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk229)(Lclptr229);
3382          vs_top=sup;          vs_top=sup;
3383          V668= vs_base[0];          V675= vs_base[0];
3384          base[4]= (V664);          base[4]= (V671);
3385          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3386          (void) (*Lnk278)(Lclptr278);          (void) (*Lnk278)(Lclptr278);
3387          vs_top=sup;          vs_top=sup;
3388          V669= vs_base[0];          V676= vs_base[0];
3389          V670= (VFUN_NARGS=4,(*(LnkLI266))((V663),(V668),(V669),Cnil));          V677= (VFUN_NARGS=4,(*(LnkLI266))((V670),(V675),(V676),Cnil));
3390          if(((V670))==Cnil){          if(((V677))==Cnil){
3391          goto T1377;}          goto T1377;}
3392          base[4]= (V663);          base[4]= (V670);
3393          base[5]= (V670);          base[5]= (V677);
3394          (void)simple_symlispcall(VV[268],base+4,2);          (void)simple_symlispcall(VV[268],base+4,2);
3395          goto T1377;          goto T1377;
3396  T1377:;  T1377:;
3397          base[4]= (V663);          base[4]= (V670);
3398          base[5]= V664;          base[5]= V671;
3399          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3400          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
3401          vs_top=sup;          vs_top=sup;
3402          {object V674;          {object V681;
3403          base[5]= V664;          base[5]= V671;
3404          base[7]= V663;          base[7]= V670;
3405          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3406          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
3407          vs_top=sup;          vs_top=sup;
# Line 3402  T1377:; Line 3409  T1377:;
3409          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3410          Ladjoin();          Ladjoin();
3411          vs_top=sup;          vs_top=sup;
3412          V674= vs_base[0];          V681= vs_base[0];
3413          base[5]= (V674);          base[5]= (V681);
3414          base[6]= V663;          base[6]= V670;
3415          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3416          (void) (*Lnk289)(Lclptr289);          (void) (*Lnk289)(Lclptr289);
3417          vs_top=sup;}          vs_top=sup;}
3418          {register object V676;          {register object V683;
3419          register object V677;          register object V684;
3420          V676= (V669);          V683= (V676);
3421          V677= CMPcar((V676));          V684= CMPcar((V683));
3422          goto T1396;          goto T1396;
3423  T1396:;  T1396:;
3424          if(!(((V676))==Cnil)){          if(!(((V683))==Cnil)){
3425          goto T1397;}          goto T1397;}
3426          goto T1392;          goto T1392;
3427          goto T1397;          goto T1397;
3428  T1397:;  T1397:;
3429          base[5]= (V677);          base[5]= (V684);
3430          base[6]= (V664);          base[6]= (V671);
3431          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3432          (void) (*Lnk292)(Lclptr292);          (void) (*Lnk292)(Lclptr292);
3433          vs_top=sup;          vs_top=sup;
3434          V676= CMPcdr((V676));          V683= CMPcdr((V683));
3435          V677= CMPcar((V676));          V684= CMPcar((V683));
3436          goto T1396;}          goto T1396;}
3437          goto T1392;          goto T1392;
3438  T1392:;  T1392:;
3439          (void)((VFUN_NARGS=3,(*(LnkLI286))((V663),VV[104],(V664))));          (void)((VFUN_NARGS=3,(*(LnkLI286))((V670),VV[104],(V671))));
3440          if(((V665))!=Cnil){          if(((V672))!=Cnil){
3441          goto T1410;}          goto T1410;}
3442          {register object x= (V667),V678= VV[105];          {register object x= (V674),V685= VV[105];
3443          while(V678!=Cnil)          while(V685!=Cnil)
3444          if(eql(x,V678->c.c_car)){          if(eql(x,V685->c.c_car)){
3445          goto T1415;          goto T1415;
3446          }else V678=V678->c.c_cdr;          }else V685=V685->c.c_cdr;
3447          goto T1413;}          goto T1413;}
3448          goto T1415;          goto T1415;
3449  T1415:;  T1415:;
3450          base[4]= (*(LnkLI293))(CMPcar((V669)));          base[4]= (*(LnkLI293))(CMPcar((V676)));
3451          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3452          (void) (*Lnk294)();          (void) (*Lnk294)();
3453          vs_top=sup;          vs_top=sup;
3454          goto T1413;          goto T1413;
3455  T1413:;  T1413:;
3456          (void)((VFUN_NARGS=1,(*(LnkLI288))((V663))));          (void)((VFUN_NARGS=1,(*(LnkLI288))((V670))));
3457          goto T1410;          goto T1410;
3458  T1410:;  T1410:;
3459          {object V679 = (V664);          {object V686 = (V671);
3460          VMR42(V679)}}          VMR42(V686)}}
3461          va_end(ap);          va_end(ap);
3462          base[0]=base[0];          base[0]=base[0];
3463          return Cnil;}          return Cnil;}
3464          }          }
3465  /*      local entry for function REAL-REMOVE-METHOD     */  /*      local entry for function REAL-REMOVE-METHOD     */
3466    
3467  static object LI47(V682,V683)  static object LI47(V689,V690)
3468    
3469  register object V682;register object V683;  register object V689;register object V690;
3470  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
3471          goto TTL;          goto TTL;
3472  TTL:;  TTL:;
3473          base[0]= (V683);          V691 = (V689);
3474            base[0]= (V690);
3475          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3476          (void) (*Lnk227)(Lclptr227);          (void) (*Lnk227)(Lclptr227);
3477          vs_top=sup;          vs_top=sup;
3478          V684= vs_base[0];          V692= vs_base[0];
3479          if(!(((((V682))==(V684)?Ct:Cnil))==Cnil)){          if(!((((V691)==(V692)?Ct:Cnil))==Cnil)){
3480          goto T1418;}          goto T1418;}
3481          base[0]= VV[106];          base[0]= VV[106];
3482          base[1]= (V683);          base[1]= (V690);
3483          base[3]= (V683);          base[3]= (V690);
3484          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3485          (void) (*Lnk227)(Lclptr227);          (void) (*Lnk227)(Lclptr227);
3486          vs_top=sup;          vs_top=sup;
# Line 3480  TTL:; Line 3488  TTL:;
3488          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3489          Lerror();          Lerror();
3490          vs_top=sup;          vs_top=sup;
3491          {object V685 = vs_base[0];          {object V693 = vs_base[0];
3492          VMR43(V685)}          VMR43(V693)}
3493          goto T1418;          goto T1418;
3494  T1418:;  T1418:;
3495          {object V686;          {object V694;
3496          object V687;          object V695;
3497          object V688;          object V696;
3498          object V689;          object V697;
3499          base[4]= (V682);          base[4]= (V689);
3500          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3501          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
3502          vs_top=sup;          vs_top=sup;
3503          V686= vs_base[0];          V694= vs_base[0];
3504          base[4]= (V683);          base[4]= (V690);
3505          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3506          (void) (*Lnk278)(Lclptr278);          (void) (*Lnk278)(Lclptr278);
3507          vs_top=sup;          vs_top=sup;
3508          V687= vs_base[0];          V695= vs_base[0];
3509          base[4]= (V682);          base[4]= (V689);
3510          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3511          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
3512          vs_top=sup;          vs_top=sup;
3513          V688= vs_base[0];          V696= vs_base[0];
3514          base[4]= (V683);          base[4]= (V690);
3515          base[5]= (V688);          base[5]= (V696);
3516          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3517          (void) (*Lnk295)();          (void) (*Lnk295)();
3518          vs_top=sup;          vs_top=sup;
3519          V689= vs_base[0];          V697= vs_base[0];
3520          base[4]= Cnil;          base[4]= Cnil;
3521          base[5]= V683;          base[5]= V690;
3522          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3523          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
3524          vs_top=sup;          vs_top=sup;
3525          base[4]= (V689);          base[4]= (V697);
3526          base[5]= V682;          base[5]= V689;
3527          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3528          (void) (*Lnk289)(Lclptr289);          (void) (*Lnk289)(Lclptr289);
3529          vs_top=sup;          vs_top=sup;
3530          {register object V692;          {register object V700;
3531          register object V693;          register object V701;
3532          base[6]= (V683);          base[6]= (V690);
3533          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3534          (void) (*Lnk278)(Lclptr278);          (void) (*Lnk278)(Lclptr278);
3535          vs_top=sup;          vs_top=sup;
3536          V692= vs_base[0];          V700= vs_base[0];
3537          V693= CMPcar((V692));          V701= CMPcar((V700));
3538          goto T1446;          goto T1446;
3539  T1446:;  T1446:;
3540          if(!(((V692))==Cnil)){          if(!(((V700))==Cnil)){
3541          goto T1447;}          goto T1447;}
3542          goto T1441;          goto T1441;
3543          goto T1447;          goto T1447;
3544  T1447:;  T1447:;
3545          base[6]= (V693);          base[6]= (V701);
3546          base[7]= (V683);          base[7]= (V690);
3547          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
3548          (void) (*Lnk296)(Lclptr296);          (void) (*Lnk296)(Lclptr296);
3549          vs_top=sup;          vs_top=sup;
3550          V692= CMPcdr((V692));          V700= CMPcdr((V700));
3551          V693= CMPcar((V692));          V701= CMPcar((V700));
3552          goto T1446;}          goto T1446;}
3553          goto T1441;          goto T1441;
3554  T1441:;  T1441:;
3555          (void)((VFUN_NARGS=1,(*(LnkLI286))((V682))));          (void)((VFUN_NARGS=1,(*(LnkLI286))((V689))));
3556          {register object x= (V686),V694= VV[107];          {register object x= (V694),V702= VV[107];
3557          while(V694!=Cnil)          while(V702!=Cnil)
3558          if(eql(x,V694->c.c_car)){          if(eql(x,V702->c.c_car)){
3559          goto T1462;          goto T1462;
3560          }else V694=V694->c.c_cdr;          }else V702=V702->c.c_cdr;
3561          goto T1460;}          goto T1460;}
3562          goto T1462;          goto T1462;
3563  T1462:;  T1462:;
3564          base[4]= (*(LnkLI293))(CMPcar((V687)));          base[4]= (*(LnkLI293))(CMPcar((V695)));
3565          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3566          (void) (*Lnk294)();          (void) (*Lnk294)();
3567          vs_top=sup;          vs_top=sup;
3568          goto T1460;          goto T1460;
3569  T1460:;  T1460:;
3570          (void)((VFUN_NARGS=1,(*(LnkLI288))((V682))));          (void)((VFUN_NARGS=1,(*(LnkLI288))((V689))));
3571          {object V695 = (V682);          {object V703 = (V689);
3572          VMR43(V695)}}          VMR43(V703)}}
3573          base[0]=base[0];          base[0]=base[0];
3574          return Cnil;          return Cnil;
3575  }  }
3576  /*      local entry for function COMPUTE-APPLICABLE-METHODS-FUNCTION    */  /*      local entry for function COMPUTE-APPLICABLE-METHODS-FUNCTION    */
3577    
3578  static object LI48(V698,V699)  static object LI48(V706,V707)
3579    
3580  object V698;object V699;  object V706;object V707;
3581  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
3582          goto TTL;          goto TTL;
3583  TTL:;  TTL:;
3584          base[1]= (V698);          base[1]= (V706);
3585          base[3]= (V698);          base[3]= (V706);
3586          base[4]= (V699);          base[4]= (V707);
3587          base[5]= VV[108];          base[5]= VV[108];
3588          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3589          (void) (*Lnk297)();          (void) (*Lnk297)();
# Line 3587  TTL:; Line 3595  TTL:;
3595          base[0]= vs_base[0];          base[0]= vs_base[0];
3596          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3597          vs_top=sup;          vs_top=sup;
3598          {object V700 = vs_base[0];          {object V708 = vs_base[0];
3599          VMR44(V700)}          VMR44(V708)}
3600          base[0]=base[0];          base[0]=base[0];
3601          return Cnil;          return Cnil;
3602  }  }
3603  /*      local entry for function (FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T))  */  /*      local entry for function (FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T))  */
3604    
3605  static object LI49(V705,V706,V707,V708)  static object LI49(V713,V714,V715,V716)
3606    
3607  object V705;object V706;object V707;object V708;  object V713;object V714;object V715;object V716;
3608  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
3609          goto TTL;          goto TTL;
3610  TTL:;  TTL:;
3611          base[1]= (V707);          base[1]= (V715);
3612          base[3]= (V707);          base[3]= (V715);
3613          base[4]= (V708);          base[4]= (V716);
3614          base[5]= VV[108];          base[5]= VV[108];
3615          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3616          (void) (*Lnk297)();          (void) (*Lnk297)();
# Line 3614  TTL:; Line 3622  TTL:;
3622          base[0]= vs_base[0];          base[0]= vs_base[0];
3623          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3624          vs_top=sup;          vs_top=sup;
3625          {object V710 = vs_base[0];          {object V718 = vs_base[0];
3626          VMR45(V710)}          VMR45(V718)}
3627          base[0]=base[0];          base[0]=base[0];
3628          return Cnil;          return Cnil;
3629  }  }
# Line 3625  static void L50() Line 3633  static void L50()
3633  {register object *base=vs_base;  {register object *base=vs_base;
3634          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
3635          vs_check;          vs_check;
3636          {object V711;          {object V719;
3637          object V712;          object V720;
3638          object V713;          object V721;
3639          object V714;          object V722;
3640          check_arg(4);          check_arg(4);
3641          V711=(base[0]);          V719=(base[0]);
3642          V712=(base[1]);          V720=(base[1]);
3643          V713=(base[2]);          V721=(base[2]);
3644          V714=(base[3]);          V722=(base[3]);
3645          vs_top=sup;          vs_top=sup;
3646          goto TTL;          goto TTL;
3647  TTL:;  TTL:;
3648          base[4]= (V713);          base[4]= (V721);
3649          base[6]= (V713);          base[6]= (V721);
3650          base[7]= (V714);          base[7]= (V722);
3651          base[8]= VV[109];          base[8]= VV[109];
3652          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3653          (void) (*Lnk297)();          (void) (*Lnk297)();
# Line 3652  TTL:; Line 3660  TTL:;
3660  }  }
3661  /*      local entry for function PROCLAIM-INCOMPATIBLE-SUPERCLASSES     */  /*      local entry for function PROCLAIM-INCOMPATIBLE-SUPERCLASSES     */
3662    
3663  static object LI51(V717)  static object LI51(V725)
3664    
3665  object V717;  object V725;
3666  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
3667          goto TTL;          goto TTL;
3668  TTL:;  TTL:;
3669          {object V718;          {object V726;
3670          object V719= (V717);          object V727= (V725);
3671          if(V719==Cnil){          if(V727==Cnil){
3672          V717= Cnil;          V725= Cnil;
3673          goto T1489;}          goto T1489;}
3674          base[0]=V718=MMcons(Cnil,Cnil);          base[0]=V726=MMcons(Cnil,Cnil);
3675          goto T1490;          goto T1490;
3676  T1490:;  T1490:;
3677          if(!(type_of((V719->c.c_car))==t_symbol)){          if(!(type_of((V727->c.c_car))==t_symbol)){
3678          goto T1493;}          goto T1493;}
3679          (V718->c.c_car)= (VFUN_NARGS=1,(*(LnkLI260))((V719->c.c_car)));          (V726->c.c_car)= (VFUN_NARGS=1,(*(LnkLI260))((V727->c.c_car)));
3680          goto T1491;          goto T1491;
3681          goto T1493;          goto T1493;
3682  T1493:;  T1493:;
3683          (V718->c.c_car)= (V719->c.c_car);          (V726->c.c_car)= (V727->c.c_car);
3684          goto T1491;          goto T1491;
3685  T1491:;  T1491:;
3686          if((V719=MMcdr(V719))==Cnil){          if((V727=MMcdr(V727))==Cnil){
3687          V717= base[0];          V725= base[0];
3688          goto T1489;}          goto T1489;}
3689          V718=MMcdr(V718)=MMcons(Cnil,Cnil);          V726=MMcdr(V726)=MMcons(Cnil,Cnil);
3690          goto T1490;}          goto T1490;}
3691          goto T1489;          goto T1489;
3692  T1489:;  T1489:;
3693          {register object V721;          {register object V729;
3694          register object V722;          register object V730;
3695          V721= (V717);          V729= (V725);
3696          V722= CMPcar((V721));          V730= CMPcar((V729));
3697          goto T1498;          goto T1498;
3698  T1498:;  T1498:;
3699          if(!(((V721))==Cnil)){          if(!(((V729))==Cnil)){
3700          goto T1499;}          goto T1499;}
3701          {object V723 = Cnil;          {object V731 = Cnil;
3702          VMR47(V723)}          VMR47(V731)}
3703          goto T1499;          goto T1499;
3704  T1499:;  T1499:;
3705          {register object V724;          {register object V732;
3706          register object V725;          register object V733;
3707          V724= (V717);          V732= (V725);
3708          V725= CMPcar((V724));          V733= CMPcar((V732));
3709          goto T1507;          goto T1507;
3710  T1507:;  T1507:;
3711          if(!(((V724))==Cnil)){          if(!(((V732))==Cnil)){
3712          goto T1508;}          goto T1508;}
3713          goto T1503;          goto T1503;
3714          goto T1508;          goto T1508;
3715  T1508:;  T1508:;
3716          if(((V722))==((V725))){          if(((V730))==((V733))){
3717          goto T1512;}          goto T1512;}
3718          {register object V726;          {register object V734;
3719          register object V727;          register object V735;
3720          register object V728;          register object V736;
3721          V726= (V725);          V734= (V733);
3722          V727= (V722);          V735= (V730);
3723          base[3]= (V726);          base[3]= (V734);
3724          base[5]= (V727);          base[5]= (V735);
3725          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3726          (void) (*Lnk299)(Lclptr299);          (void) (*Lnk299)(Lclptr299);
3727          vs_top=sup;          vs_top=sup;
# Line 3721  T1508:; Line 3729  T1508:;
3729          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3730          Ladjoin();          Ladjoin();
3731          vs_top=sup;          vs_top=sup;
3732          V728= vs_base[0];          V736= vs_base[0];
3733          {register object V729;          {register object V737;
3734          V729= (V727);          V737= (V735);
3735          base[3]= (V728);          base[3]= (V736);
3736          base[4]= (V729);          base[4]= (V737);
3737          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3738          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk300)(Lclptr300);
3739          vs_top=sup;}}          vs_top=sup;}}
3740          goto T1512;          goto T1512;
3741  T1512:;  T1512:;
3742          V724= CMPcdr((V724));          V732= CMPcdr((V732));
3743          V725= CMPcar((V724));          V733= CMPcar((V732));
3744          goto T1507;}          goto T1507;}
3745          goto T1503;          goto T1503;
3746  T1503:;  T1503:;
3747          V721= CMPcdr((V721));          V729= CMPcdr((V729));
3748          V722= CMPcar((V721));          V730= CMPcar((V729));
3749          goto T1498;}          goto T1498;}
3750          base[0]=base[0];          base[0]=base[0];
3751          return Cnil;          return Cnil;
3752  }  }
3753  /*      local entry for function SUPERCLASSES-COMPATIBLE-P      */  /*      local entry for function SUPERCLASSES-COMPATIBLE-P      */
3754    
3755  static object LI52(V732,V733)  static object LI52(V740,V741)
3756    
3757  object V732;object V733;  object V740;object V741;
3758  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3759          goto TTL;          goto TTL;
3760  TTL:;  TTL:;
3761          {object V734;          {object V742;
3762          register object V735;          register object V743;
3763          base[0]= (V732);          base[0]= (V740);
3764          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3765          (void) (*Lnk155)(Lclptr155);          (void) (*Lnk155)(Lclptr155);
3766          vs_top=sup;          vs_top=sup;
3767          V734= vs_base[0];          V742= vs_base[0];
3768          base[0]= (V733);          base[0]= (V741);
3769          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3770          (void) (*Lnk155)(Lclptr155);          (void) (*Lnk155)(Lclptr155);
3771          vs_top=sup;          vs_top=sup;
3772          V735= vs_base[0];          V743= vs_base[0];
3773          {register object V736;          {register object V744;
3774          register object V737;          register object V745;
3775          V736= (V734);          V744= (V742);
3776          V737= CMPcar((V736));          V745= CMPcar((V744));
3777          goto T1540;          goto T1540;
3778  T1540:;  T1540:;
3779          if(!(((V736))==Cnil)){          if(!(((V744))==Cnil)){
3780          goto T1541;}          goto T1541;}
3781          {object V738 = Ct;          {object V746 = Ct;
3782          VMR48(V738)}          VMR48(V746)}
3783          goto T1541;          goto T1541;
3784  T1541:;  T1541:;
3785          {register object V739;          {register object V747;
3786          register object V740;          register object V748;
3787          base[3]= (V737);          base[3]= (V745);
3788          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3789          (void) (*Lnk299)(Lclptr299);          (void) (*Lnk299)(Lclptr299);
3790          vs_top=sup;          vs_top=sup;
3791          V739= vs_base[0];          V747= vs_base[0];
3792          V740= CMPcar((V739));          V748= CMPcar((V747));
3793          goto T1550;          goto T1550;
3794  T1550:;  T1550:;
3795          if(!(((V739))==Cnil)){          if(!(((V747))==Cnil)){
3796          goto T1551;}          goto T1551;}
3797          goto T1545;          goto T1545;
3798          goto T1551;          goto T1551;
3799  T1551:;  T1551:;
3800          {register object x= (V740),V741= (V735);          {register object x= (V748),V749= (V743);
3801          while(V741!=Cnil)          while(V749!=Cnil)
3802          if(x==(V741->c.c_car)){          if(x==(V749->c.c_car)){
3803          goto T1557;          goto T1557;
3804          }else V741=V741->c.c_cdr;          }else V749=V749->c.c_cdr;
3805          goto T1555;}          goto T1555;}
3806          goto T1557;          goto T1557;
3807  T1557:;  T1557:;
3808          {object V742 = Cnil;          {object V750 = Cnil;
3809          VMR48(V742)}          VMR48(V750)}
3810          goto T1555;          goto T1555;
3811  T1555:;  T1555:;
3812          V739= CMPcdr((V739));          V747= CMPcdr((V747));
3813          V740= CMPcar((V739));          V748= CMPcar((V747));
3814          goto T1550;}          goto T1550;}
3815          goto T1545;          goto T1545;
3816  T1545:;  T1545:;
3817          V736= CMPcdr((V736));          V744= CMPcdr((V744));
3818          V737= CMPcar((V736));          V745= CMPcar((V744));
3819          goto T1540;}}          goto T1540;}}
3820          base[0]=base[0];          base[0]=base[0];
3821          return Cnil;          return Cnil;
3822  }  }
3823  /*      local entry for function (FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))     */  /*      local entry for function (FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))     */
3824    
3825  static object LI53(V747,V748,V749,V750)  static object LI53(V755,V756,V757,V758)
3826    
3827  object V747;object V748;object V749;object V750;  object V755;object V756;object V757;object V758;
3828  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
3829          goto TTL;          goto TTL;
3830  TTL:;  TTL:;
3831          {object V752 = Cnil;          {object V760 = Cnil;
3832          VMR49(V752)}          VMR49(V760)}
3833          return Cnil;          return Cnil;
3834  }  }
3835  /*      local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS)) */  /*      local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS)) */
3836    
3837  static object LI54(V757,V758,V759,V760)  static object LI54(V765,V766,V767,V768)
3838    
3839  object V757;object V758;object V759;object V760;  object V765;object V766;object V767;object V768;
3840  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
3841          goto TTL;          goto TTL;
3842  TTL:;  TTL:;
3843          {object V762 = (((V759))==((V760))?Ct:Cnil);          {object V770 = (((V767))==((V768))?Ct:Cnil);
3844          VMR50(V762)}          VMR50(V770)}
3845          return Cnil;          return Cnil;
3846  }  }
3847  /*      local entry for function (FAST-METHOD SPECIALIZER-CLASS (CLASS))        */  /*      local entry for function (FAST-METHOD SPECIALIZER-CLASS (CLASS))        */
3848    
3849  static object LI55(V766,V767,V768)  static object LI55(V774,V775,V776)
3850    
3851  object V766;object V767;object V768;  object V774;object V775;object V776;
3852  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
3853          goto TTL;          goto TTL;
3854  TTL:;  TTL:;
3855          {object V770 = (V768);          {object V778 = (V776);
3856          VMR51(V770)}          VMR51(V778)}
3857          return Cnil;          return Cnil;
3858  }  }
3859  /*      local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))   */  /*      local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))   */
3860    
3861  static object LI56(V775,V776,V777,V778)  static object LI56(V783,V784,V785,V786)
3862    
3863  object V775;object V776;object V777;object V778;  object V783;object V784;object V785;object V786;
3864  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
3865          goto TTL;          goto TTL;
3866  TTL:;  TTL:;
3867          base[0]= (V777);          base[0]= (V785);
3868          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3869          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
3870          vs_top=sup;          vs_top=sup;
3871          V780= vs_base[0];          V788= vs_base[0];
3872          base[0]= (V778);          base[0]= (V786);
3873          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3874          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
3875          vs_top=sup;          vs_top=sup;
3876          V781= vs_base[0];          V789= vs_base[0];
3877          {object V782 = ((V780)==(V781)?Ct:Cnil);          {object V790 = ((V788)==(V789)?Ct:Cnil);
3878          VMR52(V782)}          VMR52(V790)}
3879          base[0]=base[0];          base[0]=base[0];
3880          return Cnil;          return Cnil;
3881  }  }
3882  /*      local entry for function (FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER))     */  /*      local entry for function (FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER))     */
3883    
3884  static object LI57(V787,V788,V789,V790)  static object LI57(V795,V796,V797,V798)
3885    
3886  object V787;object V788;object V789;object V790;  object V795;object V796;object V797;object V798;
3887  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3888          goto TTL;          goto TTL;
3889  TTL:;  TTL:;
3890          base[0]= (V789);          base[0]= (V797);
3891          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3892          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk302)(Lclptr302);
3893          vs_top=sup;          vs_top=sup;
3894          V792= vs_base[0];          V800= vs_base[0];
3895          base[0]= (V790);          base[0]= (V798);
3896          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3897          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk302)(Lclptr302);
3898          vs_top=sup;          vs_top=sup;
3899          V793= vs_base[0];          V801= vs_base[0];
3900          {object V794 = ((V792)==(V793)?Ct:Cnil);          {object V802 = ((V800)==(V801)?Ct:Cnil);
3901          VMR53(V794)}          VMR53(V802)}
3902          base[0]=base[0];          base[0]=base[0];
3903          return Cnil;          return Cnil;
3904  }  }
3905  /*      local entry for function (FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))      */  /*      local entry for function (FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))      */
3906    
3907  static object LI58(V798,V799,V800)  static object LI58(V806,V807,V808)
3908    
3909  object V798;object V799;register object V800;  object V806;object V807;register object V808;
3910  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3911          goto TTL;          goto TTL;
3912  TTL:;  TTL:;
3913          {object V802;          {object V810;
3914          object V803;          object V811;
3915          V802= CMPcar((V798));          V810= CMPcar((V806));
3916          V803= CMPcdr((V798));          V811= CMPcdr((V806));
3917          {object V804;          {object V812;
3918          if(type_of(V800)==t_structure){          if(type_of(V808)==t_structure){
3919          goto T1605;}          goto T1605;}
3920          goto T1603;          goto T1603;
3921          goto T1605;          goto T1605;
3922  T1605:;  T1605:;
3923          if(!(((V800)->str.str_def)==(VV[110]))){          if(!(((V808)->str.str_def)==(VV[110]))){
3924          goto T1603;}          goto T1603;}
3925          V804= STREF(object,(V800),4);          V812= STREF(object,(V808),4);
3926          goto T1601;          goto T1601;
3927          goto T1603;          goto T1603;
3928  T1603:;{object V806;  T1603:;{object V814;
3929          V806= (VV[13]->s.s_dbind);          V814= (VV[13]->s.s_dbind);
3930          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
3931          base[1]= (V800);          base[1]= (V808);
3932          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3933          (void) (*Lnk215)();          (void) (*Lnk215)();
3934          vs_top=sup;          vs_top=sup;
3935          V807= vs_base[0];          V815= vs_base[0];
3936          if(!((V806)==(CMPcar(V807)))){          if(!((V814)==(CMPcar(V815)))){
3937          goto T1608;}}          goto T1608;}}
3938          V804= CMPcar(((V800))->cc.cc_turbo[12]);          V812= CMPcar(((V808))->cc.cc_turbo[12]);
3939          goto T1601;          goto T1601;
3940          goto T1608;          goto T1608;
3941  T1608:;  T1608:;
3942          V804= Cnil;          V812= Cnil;
3943          goto T1601;          goto T1601;
3944  T1601:;  T1601:;
3945          {register object V809;          {register object V817;
3946          V809= ((V802))->v.v_self[1];          V817= ((V810))->v.v_self[1];
3947          if(!(type_of(V809)==t_fixnum)){          if(!(type_of(V817)==t_fixnum)){
3948          goto T1619;}          goto T1619;}
3949          V809= ((V804))->v.v_self[fix((V809))];          V817= ((V812))->v.v_self[fix((V817))];
3950          goto T1617;          goto T1617;
3951          goto T1619;          goto T1619;
3952  T1619:;  T1619:;
3953          V809= VV[14];          V817= VV[14];
3954          goto T1617;          goto T1617;
3955  T1617:;  T1617:;
3956          if(!(((V809))==(VV[14]))){          if(!(((V817))==(VV[14]))){
3957          goto T1622;}          goto T1622;}
3958          base[0]= (V800);          base[0]= (V808);
3959          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3960          (void) (*Lnk303)(Lclptr303);          (void) (*Lnk303)(Lclptr303);
3961          vs_top=sup;          vs_top=sup;
3962          V808= vs_base[0];          V816= vs_base[0];
3963          goto T1614;          goto T1614;
3964          goto T1622;          goto T1622;
3965  T1622:;  T1622:;
3966          V808= (V809);}          V816= (V817);}
3967          goto T1614;          goto T1614;
3968  T1614:;  T1614:;
3969          {object V811 = (*(LnkLI149))(V808);          {object V819 = (*(LnkLI149))(V816);
3970          VMR54(V811)}}}          VMR54(V819)}}}
3971          base[0]=base[0];          base[0]=base[0];
3972          return Cnil;          return Cnil;
3973  }  }
# Line 3969  static void L59() Line 3977  static void L59()
3977  {register object *base=vs_base;  {register object *base=vs_base;
3978          register object *sup=base+VM55; VC55          register object *sup=base+VM55; VC55
3979          vs_check;          vs_check;
3980          {object V812;          {object V820;
3981          register object V813;          register object V821;
3982          register object V814;          register object V822;
3983          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3984          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
3985          V812=(base[0]);          V820=(base[0]);
3986          V813=(base[1]);          V821=(base[1]);
3987          vs_base=vs_base+2;          vs_base=vs_base+2;
3988          if(vs_base>=vs_top){vs_top=sup;goto T1625;}          if(vs_base>=vs_top){vs_top=sup;goto T1625;}
3989          V814=(base[2]);          V822=(base[2]);
3990          vs_top=sup;          vs_top=sup;
3991          goto T1626;          goto T1626;
3992          goto T1625;          goto T1625;
3993  T1625:;  T1625:;
3994          V814= Cnil;          V822= Cnil;
3995          goto T1626;          goto T1626;
3996  T1626:;  T1626:;
3997          {object V815;          {object V823;
3998          object V816;          object V824;
3999          object V817;          object V825;
4000          object V818;          object V826;
4001          object V819;          object V827;
4002          base[3]= (V812);          base[3]= (V820);
4003          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4004          (void) (*Lnk304)();          (void) (*Lnk304)();
4005          if(vs_base>=vs_top){vs_top=sup;goto T1630;}          if(vs_base>=vs_top){vs_top=sup;goto T1630;}
4006          V815= vs_base[0];          V823= vs_base[0];
4007          vs_base++;          vs_base++;
4008          if(vs_base>=vs_top){vs_top=sup;goto T1631;}          if(vs_base>=vs_top){vs_top=sup;goto T1631;}
4009          V816= vs_base[0];          V824= vs_base[0];
4010          vs_base++;          vs_base++;
4011          if(vs_base>=vs_top){vs_top=sup;goto T1632;}          if(vs_base>=vs_top){vs_top=sup;goto T1632;}
4012          V817= vs_base[0];          V825= vs_base[0];
4013          vs_base++;          vs_base++;
4014          if(vs_base>=vs_top){vs_top=sup;goto T1633;}          if(vs_base>=vs_top){vs_top=sup;goto T1633;}
4015          V818= vs_base[0];          V826= vs_base[0];
4016          vs_base++;          vs_base++;
4017          if(vs_base>=vs_top){vs_top=sup;goto T1634;}          if(vs_base>=vs_top){vs_top=sup;goto T1634;}
4018          V819= vs_base[0];          V827= vs_base[0];
4019          vs_top=sup;          vs_top=sup;
4020          goto T1635;          goto T1635;
4021          goto T1630;          goto T1630;
4022  T1630:;  T1630:;
4023          V815= Cnil;          V823= Cnil;
4024          goto T1631;          goto T1631;
4025  T1631:;  T1631:;
4026          V816= Cnil;          V824= Cnil;
4027          goto T1632;          goto T1632;
4028  T1632:;  T1632:;
4029          V817= Cnil;          V825= Cnil;
4030          goto T1633;          goto T1633;
4031  T1633:;  T1633:;
4032          V818= Cnil;          V826= Cnil;
4033          goto T1634;          goto T1634;
4034  T1634:;  T1634:;
4035          V819= Cnil;          V827= Cnil;
4036          goto T1635;          goto T1635;
4037  T1635:;  T1635:;
4038          {register object V820;          {register object V828;
4039          V820= Cnil;          V828= Cnil;
4040          {long V821;          {long V829;
4041          register long V822;          register long V830;
4042          V821= fix((V815));          V829= fix((V823));
4043          V822= 0;          V830= 0;
4044          goto T1640;          goto T1640;
4045  T1640:;  T1640:;
4046          if(!((V822)>=(V821))){          if(!((V830)>=(V829))){
4047          goto T1641;}          goto T1641;}
4048          goto T1636;          goto T1636;
4049          goto T1641;          goto T1641;
4050  T1641:;  T1641:;
4051          if(((V813))!=Cnil){          if(((V821))!=Cnil){
4052          goto T1644;}          goto T1644;}
4053          base[3]= VV[111];          base[3]= VV[111];
4054          base[5]= (V812);          base[5]= (V820);
4055          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4056          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
4057          vs_top=sup;          vs_top=sup;
4058          base[4]= vs_base[0];          base[4]= vs_base[0];
4059          base[5]= (V815);          base[5]= (V823);
4060          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4061          Lerror();          Lerror();
4062          vs_top=sup;          vs_top=sup;
4063          goto T1644;          goto T1644;
4064  T1644:;  T1644:;
4065          {register object V823;          {register object V831;
4066          {register object V824;          {register object V832;
4067          V824= CMPcar((V813));          V832= CMPcar((V821));
4068          V813= CMPcdr((V813));          V821= CMPcdr((V821));
4069          V823= (V824);}          V831= (V832);}
4070          {register object V825;          {register object V833;
4071          if(((V814))==Cnil){          if(((V822))==Cnil){
4072          goto T1658;}          goto T1658;}
4073          V825= list(2,(V814),(V823));          V833= list(2,(V822),(V831));
4074          goto T1656;          goto T1656;
4075          goto T1658;          goto T1658;
4076  T1658:;  T1658:;
4077          V825= (V823);          V833= (V831);
4078          goto T1656;          goto T1656;
4079  T1656:;  T1656:;
4080          V820= make_cons((V825),(V820));}}          V828= make_cons((V833),(V828));}}
4081          V822= (long)(V822)+1;          V830= (long)(V830)+1;
4082          goto T1640;}          goto T1640;}
4083          goto T1636;          goto T1636;
4084  T1636:;  T1636:;
4085          base[3]= nreverse((V820));          base[3]= nreverse((V828));
4086          base[4]= (V819);          base[4]= (V827);
4087          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4088          return;}}          return;}}
4089          }          }
4090  }  }
4091  /*      local entry for function GET-WRAPPERS-FROM-CLASSES      */  /*      local entry for function GET-WRAPPERS-FROM-CLASSES      */
4092    
4093  static object LI60(V830,V831,V832,V833)  static object LI60(V838,V839,V840,V841)
4094    
4095  object V830;object V831;object V832;object V833;  object V838;object V839;object V840;object V841;
4096  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
4097          goto TTL;          goto TTL;
4098  TTL:;  TTL:;
4099          {object V834;          {object V842;
4100          register object V835;          register object V843;
4101          register object V836;          register object V844;
4102          V834= (V831);          V842= (V839);
4103          V835= (V834);          V843= (V842);
4104          V836= (V833);          V844= (V841);
4105          {register object V837;          {register object V845;
4106          register object V838;          register object V846;
4107          if(!(type_of((V832))==t_cons||((V832))==Cnil)){          if(!(type_of((V840))==t_cons||((V840))==Cnil)){
4108          goto T1672;}          goto T1672;}
4109          V837= (V832);          V845= (V840);
4110          goto T1670;          goto T1670;
4111          goto T1672;          goto T1672;
4112  T1672:;  T1672:;
4113          V837= make_cons((V832),Cnil);          V845= make_cons((V840),Cnil);
4114          goto T1670;          goto T1670;
4115  T1670:;  T1670:;
4116          V838= CMPcar((V837));          V846= CMPcar((V845));
4117          goto T1676;          goto T1676;
4118  T1676:;  T1676:;
4119          if(!(((V837))==Cnil)){          if(!(((V845))==Cnil)){
4120          goto T1677;}          goto T1677;}
4121          goto T1669;          goto T1669;
4122          goto T1677;          goto T1677;
4123  T1677:;  T1677:;
4124          if((Ct)==(CMPcar((V836)))){          if((Ct)==(CMPcar((V844)))){
4125          goto T1681;}          goto T1681;}
4126          {register object V839;          {register object V847;
4127          base[2]= (V838);          base[2]= (V846);
4128          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4129          (void) (*Lnk305)(Lclptr305);          (void) (*Lnk305)(Lclptr305);
4130          vs_top=sup;          vs_top=sup;
4131          V839= vs_base[0];          V847= vs_base[0];
4132          if(((V839))!=Cnil){          if(((V847))!=Cnil){
4133          goto T1686;}          goto T1686;}
4134          {object V840 = Cnil;          {object V848 = Cnil;
4135          VMR56(V840)}          VMR56(V848)}
4136          goto T1686;          goto T1686;
4137  T1686:;  T1686:;
4138          if(!(eql((V830),small_fixnum(1)))){          if(!(eql((V838),small_fixnum(1)))){
4139          goto T1690;}          goto T1690;}
4140          V834= (V839);          V842= (V847);
4141          goto T1681;          goto T1681;
4142          goto T1690;          goto T1690;
4143  T1690:;  T1690:;
4144          {register object V842;          {register object V850;
4145          V842= (V839);          V850= (V847);
4146          (V835)->c.c_car = (V842);}          (V843)->c.c_car = (V850);}
4147          V835= CMPcdr((V835));}          V843= CMPcdr((V843));}
4148          goto T1681;          goto T1681;
4149  T1681:;  T1681:;
4150          V836= CMPcdr((V836));          V844= CMPcdr((V844));
4151          V837= CMPcdr((V837));          V845= CMPcdr((V845));
4152          V838= CMPcar((V837));          V846= CMPcar((V845));
4153          goto T1676;}          goto T1676;}
4154          goto T1669;          goto T1669;
4155  T1669:;  T1669:;
4156          {object V843 = (V834);          {object V851 = (V842);
4157          VMR56(V843)}}          VMR56(V851)}}
4158          base[0]=base[0];          base[0]=base[0];
4159          return Cnil;          return Cnil;
4160  }  }
# Line 4156  static void L61() Line 4164  static void L61()
4164  {register object *base=vs_base;  {register object *base=vs_base;
4165          register object *sup=base+VM57; VC57          register object *sup=base+VM57; VC57
4166          vs_check;          vs_check;
4167          {object V844;          {object V852;
4168          object V845;          object V853;
4169          check_arg(2);          check_arg(2);
4170          V844=(base[0]);          V852=(base[0]);
4171          V845=(base[1]);          V853=(base[1]);
4172          vs_top=sup;          vs_top=sup;
4173          goto TTL;          goto TTL;
4174  TTL:;  TTL:;
4175          {object V846;          {object V854;
4176          base[3]=VV[306]->s.s_gfdef;          base[3]=VV[306]->s.s_gfdef;
4177          {object V847;          {object V855;
4178          object V848= (V845);          object V856= (V853);
4179          if(V848==Cnil){          if(V856==Cnil){
4180          V846= Cnil;          V854= Cnil;
4181          goto T1704;}          goto T1704;}
4182          base[2]=V847=MMcons(Cnil,Cnil);          base[2]=V855=MMcons(Cnil,Cnil);
4183          goto T1705;          goto T1705;
4184  T1705:;  T1705:;
4185          base[4]= (V848->c.c_car);          base[4]= (V856->c.c_car);
4186          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4187          (void) (*Lnk306)();          (void) (*Lnk306)();
4188          vs_top=sup;          vs_top=sup;
4189          (V847->c.c_car)= vs_base[0];          (V855->c.c_car)= vs_base[0];
4190          if((V848=MMcdr(V848))==Cnil){          if((V856=MMcdr(V856))==Cnil){
4191          V846= base[2];          V854= base[2];
4192          goto T1704;}          goto T1704;}
4193          V847=MMcdr(V847)=MMcons(Cnil,Cnil);          V855=MMcdr(V855)=MMcons(Cnil,Cnil);
4194          goto T1705;}          goto T1705;}
4195          goto T1704;          goto T1704;
4196  T1704:;  T1704:;
4197          {object V849;          {object V857;
4198          object V850;          object V858;
4199          base[2]= (V844);          base[2]= (V852);
4200          base[3]= (V846);          base[3]= (V854);
4201          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4202          (void) (*Lnk298)();          (void) (*Lnk298)();
4203          if(vs_base>=vs_top){vs_top=sup;goto T1711;}          if(vs_base>=vs_top){vs_top=sup;goto T1711;}
4204          V849= vs_base[0];          V857= vs_base[0];
4205          vs_base++;          vs_base++;
4206          if(vs_base>=vs_top){vs_top=sup;goto T1712;}          if(vs_base>=vs_top){vs_top=sup;goto T1712;}
4207          V850= vs_base[0];          V858= vs_base[0];
4208          vs_top=sup;          vs_top=sup;
4209          goto T1713;          goto T1713;
4210          goto T1711;          goto T1711;
4211  T1711:;  T1711:;
4212          V849= Cnil;          V857= Cnil;
4213          goto T1712;          goto T1712;
4214  T1712:;  T1712:;
4215          V850= Cnil;          V858= Cnil;
4216          goto T1713;          goto T1713;
4217  T1713:;  T1713:;
4218          base[2]= (VFUN_NARGS=6,(*(LnkLI307))((V844),(V849),(V846),Cnil,Ct,(V850)));          base[2]= (VFUN_NARGS=6,(*(LnkLI307))((V852),(V857),(V854),Cnil,Ct,(V858)));
4219          base[3]= Cnil;          base[3]= Cnil;
4220          base[6]=VV[305]->s.s_gfdef;          base[6]=VV[305]->s.s_gfdef;
4221          {object V851;          {object V859;
4222          object V852= (V845);          object V860= (V853);
4223          if(V852==Cnil){          if(V860==Cnil){
4224          base[4]= Cnil;          base[4]= Cnil;
4225          goto T1716;}          goto T1716;}
4226          base[5]=V851=MMcons(Cnil,Cnil);          base[5]=V859=MMcons(Cnil,Cnil);
4227          goto T1717;          goto T1717;
4228  T1717:;  T1717:;
4229          base[7]= (V852->c.c_car);          base[7]= (V860->c.c_car);
4230          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4231          (void) (*Lnk305)(Lclptr305);          (void) (*Lnk305)(Lclptr305);
4232          vs_top=sup;          vs_top=sup;
4233          (V851->c.c_car)= vs_base[0];          (V859->c.c_car)= vs_base[0];
4234          if((V852=MMcdr(V852))==Cnil){          if((V860=MMcdr(V860))==Cnil){
4235          base[4]= base[5];          base[4]= base[5];
4236          goto T1716;}          goto T1716;}
4237          V851=MMcdr(V851)=MMcons(Cnil,Cnil);          V859=MMcdr(V859)=MMcons(Cnil,Cnil);
4238          goto T1717;}          goto T1717;}
4239          goto T1716;          goto T1716;
4240  T1716:;  T1716:;
# Line 4240  T1716:; Line 4248  T1716:;
4248  }  }
4249  /*      local entry for function VALUE-FOR-CACHING      */  /*      local entry for function VALUE-FOR-CACHING      */
4250    
4251  static object LI62(V855,V856)  static object LI62(V863,V864)
4252    
4253  object V855;object V856;  object V863;object V864;
4254  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
4255          goto TTL;          goto TTL;
4256  TTL:;  TTL:;
4257          {object V857;          {object V865;
4258          base[0]= (V855);          base[0]= (V863);
4259          base[3]=VV[306]->s.s_gfdef;          base[3]=VV[306]->s.s_gfdef;
4260          {object V858;          {object V866;
4261          object V859= (V856);          object V867= (V864);
4262          if(V859==Cnil){          if(V867==Cnil){
4263          base[1]= Cnil;          base[1]= Cnil;
4264          goto T1722;}          goto T1722;}
4265          base[2]=V858=MMcons(Cnil,Cnil);          base[2]=V866=MMcons(Cnil,Cnil);
4266          goto T1723;          goto T1723;
4267  T1723:;  T1723:;
4268          base[4]= (V859->c.c_car);          base[4]= (V867->c.c_car);
4269          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4270          (void) (*Lnk306)();          (void) (*Lnk306)();
4271          vs_top=sup;          vs_top=sup;
4272          (V858->c.c_car)= vs_base[0];          (V866->c.c_car)= vs_base[0];
4273          if((V859=MMcdr(V859))==Cnil){          if((V867=MMcdr(V867))==Cnil){
4274          base[1]= base[2];          base[1]= base[2];
4275          goto T1722;}          goto T1722;}
4276          V858=MMcdr(V858)=MMcons(Cnil,Cnil);          V866=MMcdr(V866)=MMcons(Cnil,Cnil);
4277          goto T1723;}          goto T1723;}
4278          goto T1722;          goto T1722;
4279  T1722:;  T1722:;
4280          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4281          (void) (*Lnk298)();          (void) (*Lnk298)();
4282          vs_top=sup;          vs_top=sup;
4283          V857= vs_base[0];{object V861;          V865= vs_base[0];{object V869;
4284          base[0]= CMPcar((V857));          base[0]= CMPcar((V865));
4285          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4286          (void) (*Lnk309)(Lclptr309);          (void) (*Lnk309)(Lclptr309);
4287          vs_top=sup;          vs_top=sup;
4288          V861= vs_base[0];          V869= vs_base[0];
4289          if(V861==Cnil)goto T1727;          if(V869==Cnil)goto T1727;
4290          V860= V861;          V868= V869;
4291          goto T1726;          goto T1726;
4292          goto T1727;          goto T1727;
4293  T1727:;}  T1727:;}
4294          base[0]= CMPcar((V857));          base[0]= CMPcar((V865));
4295          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4296          (void) (*Lnk310)(Lclptr310);          (void) (*Lnk310)(Lclptr310);
4297          vs_top=sup;          vs_top=sup;
4298          V860= vs_base[0];          V868= vs_base[0];
4299          goto T1726;          goto T1726;
4300  T1726:;  T1726:;
4301          {object V862 = (VFUN_NARGS=2,(*(LnkLI308))(V860,VV[112]));          {object V870 = (VFUN_NARGS=2,(*(LnkLI308))(V868,VV[112]));
4302          VMR58(V862)}}          VMR58(V870)}}
4303          base[0]=base[0];          base[0]=base[0];
4304          return Cnil;          return Cnil;
4305  }  }
4306  /*      local entry for function DEFAULT-SECONDARY-DISPATCH-FUNCTION    */  /*      local entry for function DEFAULT-SECONDARY-DISPATCH-FUNCTION    */
4307    
4308  static object LI64(V864)  static object LI64(V872)
4309    
4310  object V864;  object V872;
4311  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
4312          goto TTL;          goto TTL;
4313  TTL:;  TTL:;
4314          base[0]=MMcons((V864),Cnil);          base[0]=MMcons((V872),Cnil);
4315          {object V865 =          {object V873 =
4316          make_cclosure_new(LC124,Cnil,base[0],Cdata);          make_cclosure_new(LC124,Cnil,base[0],Cdata);
4317          VMR59(V865)}          VMR59(V873)}
4318          base[0]=base[0];          base[0]=base[0];
4319          return Cnil;          return Cnil;
4320  }  }
4321  /*      local entry for function LIST-EQ        */  /*      local entry for function LIST-EQ        */
4322    
4323  static object LI65(V868,V869)  static object LI65(V876,V877)
4324    
4325  register object V868;register object V869;  register object V876;register object V877;
4326  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
4327          goto TTL;          goto TTL;
4328  TTL:;  TTL:;
4329          goto T1732;          goto T1732;
4330  T1732:;  T1732:;
4331          if(!(type_of((V868))!=t_cons)){          if(!(type_of((V876))!=t_cons)){
4332          goto T1734;}          goto T1734;}
4333          {object V870 = (((V868))==((V869))?Ct:Cnil);          {object V878 = (((V876))==((V877))?Ct:Cnil);
4334          VMR60(V870)}          VMR60(V878)}
4335          goto T1734;          goto T1734;
4336  T1734:;  T1734:;
4337          if(!(type_of((V869))!=t_cons)){          if(!(type_of((V877))!=t_cons)){
4338          goto T1737;}          goto T1737;}
4339          {object V871 = Cnil;          {object V879 = Cnil;
4340          VMR60(V871)}          VMR60(V879)}
4341          goto T1737;          goto T1737;
4342  T1737:;  T1737:;
4343          if((CMPcar((V868)))==(CMPcar((V869)))){          if((CMPcar((V876)))==(CMPcar((V877)))){
4344          goto T1740;}          goto T1740;}
4345          {object V872 = Cnil;          {object V880 = Cnil;
4346          VMR60(V872)}          VMR60(V880)}
4347          goto T1740;          goto T1740;
4348  T1740:;  T1740:;
4349          V868= CMPcdr((V868));          V876= CMPcdr((V876));
4350          V869= CMPcdr((V869));          V877= CMPcdr((V877));
4351          goto T1732;          goto T1732;
4352          return Cnil;          return Cnil;
4353  }  }
# Line 4349  static void L66() Line 4357  static void L66()
4357  {register object *base=vs_base;  {register object *base=vs_base;
4358          register object *sup=base+VM61; VC61          register object *sup=base+VM61; VC61
4359          vs_check;          vs_check;
4360          {object V873;          {object V881;
4361          check_arg(1);          check_arg(1);
4362          V873=(base[0]);          V881=(base[0]);
4363          vs_top=sup;          vs_top=sup;
4364          goto TTL;          goto TTL;
4365  TTL:;  TTL:;
4366          if(!(((VV[113]->s.s_dbind))==(VV[114]))){          if(!(((VV[113]->s.s_dbind))==(VV[114]))){
4367          goto T1748;}          goto T1748;}
4368          {register object V874;          {register object V882;
4369          object V875;          object V883;
4370          V874= (*(LnkLI311))(VV[115]);          V882= (*(LnkLI311))(VV[115]);
4371          base[3]= (V874);          base[3]= (V882);
4372          base[4]= list(2,list(2,VV[108],(V873)),Ct);          base[4]= list(2,list(2,VV[108],(V881)),Ct);
4373          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4374          (void) (*Lnk298)();          (void) (*Lnk298)();
4375          vs_top=sup;          vs_top=sup;
4376          V875= vs_base[0];          V883= vs_base[0];
4377          base[4]= (V874);          base[4]= (V882);
4378          base[5]= (V875);          base[5]= (V883);
4379          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4380          (void) (*Lnk312)();          (void) (*Lnk312)();
4381          vs_top=sup;          vs_top=sup;
4382          base[3]= vs_base[0];          base[3]= vs_base[0];
4383            V884 = (V883);
4384          if((VV[116]->s.s_dbind)!=Cnil){          if((VV[116]->s.s_dbind)!=Cnil){
4385          V876= (VV[116]->s.s_dbind);          V885= (VV[116]->s.s_dbind);
4386          goto T1758;}          goto T1758;}
4387          base[5]= (V874);          base[5]= (V882);
4388          base[6]= list(2,list(2,VV[108],(V874)),Ct);          base[6]= list(2,list(2,VV[108],(V882)),Ct);
4389          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4390          (void) (*Lnk298)();          (void) (*Lnk298)();
4391          vs_top=sup;          vs_top=sup;
4392          (VV[116]->s.s_dbind)= vs_base[0];          (VV[116]->s.s_dbind)= vs_base[0];
4393          V876= (VV[116]->s.s_dbind);          V885= (VV[116]->s.s_dbind);
4394          goto T1758;          goto T1758;
4395  T1758:;  T1758:;
4396          base[4]= (*(LnkLI313))((V875),V876);          base[4]= (*(LnkLI313))(V884,V885);
4397          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4398          return;}          return;}
4399          goto T1748;          goto T1748;
# Line 4397  T1748:; Line 4406  T1748:;
4406  }  }
4407  /*      local entry for function COMPUTE-APPLICABLE-METHODS-EMF-STD-P   */  /*      local entry for function COMPUTE-APPLICABLE-METHODS-EMF-STD-P   */
4408    
4409  static object LI67(V878)  static object LI67(V887)
4410    
4411  object V878;  object V887;
4412  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
4413          goto TTL;          goto TTL;
4414  TTL:;  TTL:;
4415          base[0]= (V878);          base[0]= (V887);
4416          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4417          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
4418          vs_top=sup;          vs_top=sup;
4419          V879= vs_base[0];          V888= vs_base[0];
4420          {object V880 = STREF(object,V879,36);          {object V889 = STREF(object,V888,36);
4421          VMR62(V880)}          VMR62(V889)}
4422          base[0]=base[0];          base[0]=base[0];
4423          return Cnil;          return Cnil;
4424  }  }
4425  /*      local entry for function UPDATE-ALL-C-A-M-GF-INFO       */  /*      local entry for function UPDATE-ALL-C-A-M-GF-INFO       */
4426    
4427  static object LI68(V882)  static object LI68(V891)
4428    
4429  object V882;  object V891;
4430  {        VMB63 VMS63 VMV63  {        VMB63 VMS63 VMV63
4431          goto TTL;          goto TTL;
4432  TTL:;  TTL:;
4433          base[1]= (V882);          base[1]= (V891);
4434          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4435          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
4436          vs_top=sup;          vs_top=sup;
# Line 4439  TTL:; Line 4448  TTL:;
4448          goto T1770;}          goto T1770;}
4449          base[1]=MMcons(Cnil,base[0]);          base[1]=MMcons(Cnil,base[0]);
4450          base[2]=MMcons(Cnil,base[1]);          base[2]=MMcons(Cnil,base[1]);
4451          {register object V883;          {register object V892;
4452          register object V884;          register object V893;
4453          V883= (base[0]->c.c_car);          V892= (base[0]->c.c_car);
4454          V884= CMPcar((V883));          V893= CMPcar((V892));
4455          goto T1780;          goto T1780;
4456  T1780:;  T1780:;
4457          if(!(((V883))==Cnil)){          if(!(((V892))==Cnil)){
4458          goto T1781;}          goto T1781;}
4459          goto T1776;          goto T1776;
4460          goto T1781;          goto T1781;
4461  T1781:;  T1781:;
4462          {register object x= (V884),V885= (VV[117]->s.s_dbind);          {register object x= (V893),V894= (VV[117]->s.s_dbind);
4463          while(V885!=Cnil)          while(V894!=Cnil)
4464          if(eql(x,V885->c.c_car)){          if(eql(x,V894->c.c_car)){
4465          goto T1785;          goto T1785;
4466          }else V885=V885->c.c_cdr;}          }else V894=V894->c.c_cdr;}
4467          {register object V886;          {register object V895;
4468          base[4]= (V884);          base[4]= (V893);
4469          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4470          (void) (*Lnk278)(Lclptr278);          (void) (*Lnk278)(Lclptr278);
4471          vs_top=sup;          vs_top=sup;
4472          V887= vs_base[0];          V896= vs_base[0];
4473          V886= CMPcar(V887);          V895= CMPcar(V896);
4474          base[4]= (V886);          base[4]= (V895);
4475          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4476          (void) (*Lnk238)(Lclptr238);          (void) (*Lnk238)(Lclptr238);
4477          vs_top=sup;          vs_top=sup;
4478          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4479          goto T1792;}          goto T1792;}
4480          {object V888;          {object V897;
4481          base[5]= (V886);          base[5]= (V895);
4482          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4483          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk302)(Lclptr302);
4484          vs_top=sup;          vs_top=sup;
4485          V888= vs_base[0];          V897= vs_base[0];
4486          base[5]= (V888);          base[5]= (V897);
4487          base[6]= (base[1]->c.c_car);          base[6]= (base[1]->c.c_car);
4488          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4489          Ladjoin();          Ladjoin();
# Line 4483  T1781:; Line 4492  T1781:;
4492          goto T1785;}          goto T1785;}
4493          goto T1792;          goto T1792;
4494  T1792:;  T1792:;
4495          {object V889;          {object V898;
4496          base[5]= (V886);          base[5]= (V895);
4497          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4498          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
4499          vs_top=sup;          vs_top=sup;
4500          V889= vs_base[0];          V898= vs_base[0];
4501          base[5]= (V889);          base[5]= (V898);
4502          base[6]= (base[2]->c.c_car);          base[6]= (base[2]->c.c_car);
4503          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4504          Ladjoin();          Ladjoin();
# Line 4497  T1792:; Line 4506  T1792:;
4506          (base[2]->c.c_car)= vs_base[0];}}          (base[2]->c.c_car)= vs_base[0];}}
4507          goto T1785;          goto T1785;
4508  T1785:;  T1785:;
4509          V883= CMPcdr((V883));          V892= CMPcdr((V892));
4510          V884= CMPcar((V883));          V893= CMPcar((V892));
4511          goto T1780;}          goto T1780;}
4512          goto T1776;          goto T1776;
4513  T1776:;  T1776:;
4514          V890=          V899=
4515          make_cclosure_new(LC126,Cnil,base[2],Cdata);          make_cclosure_new(LC126,Cnil,base[2],Cdata);
4516          (void)((*(LnkLI316))(V890));          (void)((*(LnkLI316))(V899));
4517          goto T1768;          goto T1768;
4518          goto T1770;          goto T1770;
4519  T1770:;  T1770:;
4520          V891= (VV[317]->s.s_gfdef);          V900= (VV[317]->s.s_gfdef);
4521          (void)((*(LnkLI316))(V891));          (void)((*(LnkLI316))(V900));
4522          goto T1768;          goto T1768;
4523  T1768:;  T1768:;
4524          (VV[117]->s.s_dbind)= (base[0]->c.c_car);          (VV[117]->s.s_dbind)= (base[0]->c.c_car);
4525          {object V892 = (VV[117]->s.s_dbind);          {object V901 = (VV[117]->s.s_dbind);
4526          VMR63(V892)}          VMR63(V901)}
4527          base[0]=base[0];          base[0]=base[0];
4528          return Cnil;          return Cnil;
4529  }  }
4530  /*      local entry for function UPDATE-GF-INFO */  /*      local entry for function UPDATE-GF-INFO */
4531    
4532  static object LI69(V894)  static object LI69(V903)
4533    
4534  object V894;  object V903;
4535  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
4536          goto TTL;          goto TTL;
4537  TTL:;  TTL:;
4538          (void)((*(LnkLI317))((V894)));          (void)((*(LnkLI317))((V903)));
4539          {object V895 = (*(LnkLI318))((V894));          {object V904 = (*(LnkLI318))((V903));
4540          VMR64(V895)}          VMR64(V904)}
4541          return Cnil;          return Cnil;
4542  }  }
4543  /*      local entry for function UPDATE-C-A-M-GF-INFO   */  /*      local entry for function UPDATE-C-A-M-GF-INFO   */
4544    
4545  static object LI70(V897)  static object LI70(V906)
4546    
4547  object V897;  object V906;
4548  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
4549          goto TTL;          goto TTL;
4550  TTL:;  TTL:;
4551          if(((*(LnkLI319))((V897)))!=Cnil){          if(((*(LnkLI319))((V906)))!=Cnil){
4552          goto T1815;}          goto T1815;}
4553          {object V898;          {object V907;
4554          object V899;          object V908;
4555          base[0]= (V897);          base[0]= (V906);
4556          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4557          (void) (*Lnk320)();          (void) (*Lnk320)();
4558          if(vs_base>=vs_top){vs_top=sup;goto T1819;}          if(vs_base>=vs_top){vs_top=sup;goto T1819;}
4559          V898= vs_base[0];          V907= vs_base[0];
4560          vs_base++;          vs_base++;
4561          if(vs_base>=vs_top){vs_top=sup;goto T1820;}          if(vs_base>=vs_top){vs_top=sup;goto T1820;}
4562          V899= vs_base[0];          V908= vs_base[0];
4563          vs_top=sup;          vs_top=sup;
4564          goto T1821;          goto T1821;
4565          goto T1819;          goto T1819;
4566  T1819:;  T1819:;
4567          V898= Cnil;          V907= Cnil;
4568          goto T1820;          goto T1820;
4569  T1820:;  T1820:;
4570          V899= Cnil;          V908= Cnil;
4571          goto T1821;          goto T1821;
4572  T1821:;  T1821:;
4573          {object V900;          {object V909;
4574          base[0]= (V897);          base[0]= (V906);
4575          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4576          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
4577          vs_top=sup;          vs_top=sup;
4578          V900= vs_base[0];          V909= vs_base[0];
4579          V901= Ct;          V910 = (V909);
4580          STSET(object,(V900),32, (V898));          V911 = (V907);
4581          (void)((V898));          V912= Ct;
4582          V902= Ct;          STSET(object,V910,32, V911);
4583          STSET(object,(V900),36, (V899));          (void)(V911);
4584          {object V903 = (V899);          V913 = (V909);
4585          VMR65(V903)}}}          V914 = (V908);
4586            V915= Ct;
4587            STSET(object,V913,36, V914);
4588            {object V916 = V914;
4589            VMR65(V916)}}}
4590          goto T1815;          goto T1815;
4591  T1815:;  T1815:;
4592          {object V904 = Cnil;          {object V917 = Cnil;
4593          VMR65(V904)}          VMR65(V917)}
4594          base[0]=base[0];          base[0]=base[0];
4595          return Cnil;          return Cnil;
4596  }  }
4597  /*      local entry for function UPDATE-GF-SIMPLE-ACCESSOR-TYPE */  /*      local entry for function UPDATE-GF-SIMPLE-ACCESSOR-TYPE */
4598    
4599  static object LI71(V906)  static object LI71(V919)
4600    
4601  object V906;  object V919;
4602  {        VMB66 VMS66 VMV66  {        VMB66 VMS66 VMV66
4603          goto TTL;          goto TTL;
4604  TTL:;  TTL:;
4605          {object V907;          {object V920;
4606          base[0]= (V906);          base[0]= (V919);
4607          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4608          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
4609          vs_top=sup;          vs_top=sup;
4610          V907= vs_base[0];          V920= vs_base[0];
4611          {object V909;          V921 = (V920);
4612          register object V910;          {object V923;
4613          object V911;          register object V924;
4614          base[3]= (V906);          object V925;
4615            base[3]= (V919);
4616          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4617          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
4618          vs_top=sup;          vs_top=sup;
4619          V909= vs_base[0];          V923= vs_base[0];
4620          if((V909)==Cnil){          if((V923)==Cnil){
4621          V910= Cnil;          V924= Cnil;
4622          goto T1830;}          goto T1830;}
4623          V910= (*(LnkLI149))(CMPcar((V909)));          V924= (*(LnkLI149))(CMPcar((V923)));
4624          goto T1830;          goto T1830;
4625  T1830:;  T1830:;
4626          if((V910)==Cnil){          if((V924)==Cnil){
4627          V911= Cnil;          V925= Cnil;
4628          goto T1831;}          goto T1831;}
4629          if(!(((V910))==((VV[118]->s.s_dbind)))){          if(!(((V924))==((VV[118]->s.s_dbind)))){
4630          goto T1833;}          goto T1833;}
4631          V911= VV[119];          V925= VV[119];
4632          goto T1831;          goto T1831;
4633          goto T1833;          goto T1833;
4634  T1833:;  T1833:;
4635          if(!(((V910))==((VV[120]->s.s_dbind)))){          if(!(((V924))==((VV[120]->s.s_dbind)))){
4636          goto T1836;}          goto T1836;}
4637          V911= VV[121];          V925= VV[121];
4638          goto T1831;          goto T1831;
4639          goto T1836;          goto T1836;
4640  T1836:;  T1836:;
4641          if(!(((V910))==((VV[122]->s.s_dbind)))){          if(!(((V924))==((VV[122]->s.s_dbind)))){
4642          goto T1839;}          goto T1839;}
4643          V911= VV[123];          V925= VV[123];
4644          goto T1831;          goto T1831;
4645          goto T1839;          goto T1839;
4646  T1839:;  T1839:;
4647          V911= Cnil;          V925= Cnil;
4648          goto T1831;          goto T1831;
4649  T1831:;  T1831:;
4650          if((STREF(object,(V907),36))==Cnil){          if((STREF(object,(V920),36))==Cnil){
4651          goto T1842;}          goto T1842;}
4652          if(((V911))==Cnil){          if(((V925))==Cnil){
4653          goto T1842;}          goto T1842;}
4654          {register object V912;          {register object V926;
4655          register object V913;          register object V927;
4656          V912= CMPcdr((V909));          V926= CMPcdr((V923));
4657          V913= CMPcar((V912));          V927= CMPcar((V926));
4658          goto T1852;          goto T1852;
4659  T1852:;  T1852:;
4660          if(!(((V912))==Cnil)){          if(!(((V926))==Cnil)){
4661          goto T1853;}          goto T1853;}
4662          goto T1848;          goto T1848;
4663          goto T1853;          goto T1853;
4664  T1853:;  T1853:;
4665          V914= (*(LnkLI149))((V913));          V928 = (V924);
4666          if(((V910))==(/* INLINE-ARGS */V914)){          V929= (*(LnkLI149))((V927));
4667            if((V928)==(/* INLINE-ARGS */V929)){
4668          goto T1857;}          goto T1857;}
4669          goto T1842;          goto T1842;
4670          goto T1857;          goto T1857;
4671  T1857:;  T1857:;
4672          V912= CMPcdr((V912));          V926= CMPcdr((V926));
4673          V913= CMPcar((V912));          V927= CMPcar((V926));
4674          goto T1852;}          goto T1852;}
4675          goto T1848;          goto T1848;
4676  T1848:;  T1848:;
4677          base[3]= (V906);          base[3]= (V919);
4678          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4679          (void) (*Lnk321)(Lclptr321);          (void) (*Lnk321)(Lclptr321);
4680          vs_top=sup;          vs_top=sup;
4681          V915= vs_base[0];          V930= vs_base[0];
4682          if(!((V915)==((VV[124]->s.s_dbind)))){          V931 = (VV[124]->s.s_dbind);
4683            if(!((V930)==(V931))){
4684          goto T1842;}          goto T1842;}
4685          V908= (V911);          V922= (V925);
4686          goto T1827;          goto T1827;
4687          goto T1842;          goto T1842;
4688  T1842:;  T1842:;
4689          V908= Cnil;}          V922= Cnil;}
4690          goto T1827;          goto T1827;
4691  T1827:;  T1827:;
4692          V916= Ct;          V932= Ct;
4693          STSET(object,(V907),24, V908);          STSET(object,V921,24, V922);
4694          {object V917 = V908;          {object V933 = V922;
4695          VMR66(V917)}}          VMR66(V933)}}
4696          base[0]=base[0];          base[0]=base[0];
4697          return Cnil;          return Cnil;
4698  }  }
# Line 4686  static void L72() Line 4702  static void L72()
4702  {register object *base=vs_base;  {register object *base=vs_base;
4703          register object *sup=base+VM67; VC67          register object *sup=base+VM67; VC67
4704          vs_check;          vs_check;
4705          {object V918;          {object V934;
4706          register object V919;          register object V935;
4707          register object V920;          register object V936;
4708          register object V921;          register object V937;
4709          check_arg(4);          check_arg(4);
4710          V918=(base[0]);          V934=(base[0]);
4711          V919=(base[1]);          V935=(base[1]);
4712          V920=(base[2]);          V936=(base[2]);
4713          V921=(base[3]);          V937=(base[3]);
4714          vs_top=sup;          vs_top=sup;
4715          goto TTL;          goto TTL;
4716  TTL:;  TTL:;
4717          {object V922;          {object V938;
4718          object V923;          object V939;
4719          object V924;          object V940;
4720          object V925;          object V941;
4721          register object V926;          register object V942;
4722          object V927;          object V943;
4723          V922= (*(LnkLI322))((V919));          V938= (*(LnkLI322))((V935));
4724          V923= (*(LnkLI323))((V919));          V939= (*(LnkLI323))((V935));
4725          V928= list(2,VV[108],(V920));          V944= list(2,VV[108],(V936));
4726          V929= list(2,VV[109],(V920));          V945= list(2,VV[109],(V936));
4727          V924= list(3,/* INLINE-ARGS */V928,/* INLINE-ARGS */V929,list(2,VV[108],(V921)));          V940= list(3,/* INLINE-ARGS */V944,/* INLINE-ARGS */V945,list(2,VV[108],(V937)));
4728          if(!(((V919))==(VV[121]))){          if(!(((V935))==(VV[121]))){
4729          goto T1873;}          goto T1873;}
4730          V925= make_cons(Ct,(V924));          V941= make_cons(Ct,(V940));
4731          goto T1871;          goto T1871;
4732          goto T1873;          goto T1873;
4733  T1873:;  T1873:;
4734          V925= (V924);          V941= (V940);
4735          goto T1871;          goto T1871;
4736  T1871:;  T1871:;
4737          base[10]= (V918);          base[10]= (V934);
4738          base[11]= (V925);          base[11]= (V941);
4739          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
4740          (void) (*Lnk298)();          (void) (*Lnk298)();
4741          vs_top=sup;          vs_top=sup;
4742          V926= vs_base[0];          V942= vs_base[0];
4743          V927= ((CMPcdr((V926)))==Cnil?Ct:Cnil);          V943= ((CMPcdr((V942)))==Cnil?Ct:Cnil);
4744          if(((V927))==Cnil){          if(((V943))==Cnil){
4745          goto T1881;}          goto T1881;}
4746          base[11]= (V920);          base[11]= (V936);
4747          base[12]= (V921);          base[12]= (V937);
4748          base[13]= (V919);          base[13]= (V935);
4749          vs_top=(vs_base=base+11)+3;          vs_top=(vs_base=base+11)+3;
4750          (void) (*Lnk324)();          (void) (*Lnk324)();
4751          vs_top=sup;          vs_top=sup;
# Line 4737  T1871:; Line 4753  T1871:;
4753          goto T1879;          goto T1879;
4754          goto T1881;          goto T1881;
4755  T1881:;  T1881:;
4756          base[11]= (V920);          base[11]= (V936);
4757          base[12]= (V921);          base[12]= (V937);
4758          base[14]= (V918);          base[14]= (V934);
4759          base[15]= (V926);          base[15]= (V942);
4760          base[16]= (V925);{object V931;          base[16]= (V941);{object V947;
4761          {register object x= (V922),V932= (V926);          {register object x= (V938),V948= (V942);
4762          while(V932!=Cnil)          while(V948!=Cnil)
4763          if(eql(x,V932->c.c_car)){          if(eql(x,V948->c.c_car)){
4764          V931= V932;          V947= V948;
4765          goto T1895;          goto T1895;
4766          }else V932=V932->c.c_cdr;          }else V948=V948->c.c_cdr;
4767          V931= Cnil;}          V947= Cnil;}
4768          goto T1895;          goto T1895;
4769  T1895:;  T1895:;
4770          if(V931==Cnil)goto T1894;          if(V947==Cnil)goto T1894;
4771          V930= V931;          V946= V947;
4772          goto T1893;          goto T1893;
4773          goto T1894;          goto T1894;
4774  T1894:;}{object V933;  T1894:;}{object V949;
4775          {register object x= (V923),V934= (V926);          {register object x= (V939),V950= (V942);
4776          while(V934!=Cnil)          while(V950!=Cnil)
4777          if(eql(x,V934->c.c_car)){          if(eql(x,V950->c.c_car)){
4778          V933= V934;          V949= V950;
4779          goto T1897;          goto T1897;
4780          }else V934=V934->c.c_cdr;          }else V950=V950->c.c_cdr;
4781          V933= Cnil;}          V949= Cnil;}
4782          goto T1897;          goto T1897;
4783  T1897:;  T1897:;
4784          if(V933==Cnil)goto T1896;          if(V949==Cnil)goto T1896;
4785          V930= V933;          V946= V949;
4786          goto T1893;          goto T1893;
4787          goto T1896;          goto T1896;
4788  T1896:;}  T1896:;}
# Line 4774  T1896:;} Line 4790  T1896:;}
4790          vs_top=(vs_base=base+18)+1;          vs_top=(vs_base=base+18)+1;
4791          Lerror();          Lerror();
4792          vs_top=sup;          vs_top=sup;
4793          V930= vs_base[0];          V946= vs_base[0];
4794          goto T1893;          goto T1893;
4795  T1893:;  T1893:;
4796          V935= CMPcar(V930);          V951= CMPcar(V946);
4797          base[18]= (V920);          base[18]= (V936);
4798          base[19]= (V921);          base[19]= (V937);
4799          base[20]= (V919);          base[20]= (V935);
4800          vs_top=(vs_base=base+18)+3;          vs_top=(vs_base=base+18)+3;
4801          (void) (*Lnk325)();          (void) (*Lnk325)();
4802          vs_top=sup;          vs_top=sup;
4803          V936= vs_base[0];          V952= vs_base[0];
4804          V937= list(2,/* INLINE-ARGS */V935,V936);          V953= list(2,/* INLINE-ARGS */V951,V952);
4805          base[17]= make_cons(/* INLINE-ARGS */V937,Cnil);          base[17]= make_cons(/* INLINE-ARGS */V953,Cnil);
4806          if(!(((V919))==(VV[121]))){          if(!(((V935))==(VV[121]))){
4807          goto T1904;}          goto T1904;}
4808          {register object V938;          {register object V954;
4809          register object V939;          register object V955;
4810          V938= (V926);          V954= (V942);
4811          V939= CMPcar((V938));          V955= CMPcar((V954));
4812          goto T1912;          goto T1912;
4813  T1912:;  T1912:;
4814          if(!(((V938))==Cnil)){          if(!(((V954))==Cnil)){
4815          goto T1913;}          goto T1913;}
4816          goto T1905;          goto T1905;
4817          goto T1913;          goto T1913;
4818  T1913:;  T1913:;
4819          base[20]= (V939);          base[20]= (V955);
4820          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
4821          (void) (*Lnk278)(Lclptr278);          (void) (*Lnk278)(Lclptr278);
4822          vs_top=sup;          vs_top=sup;
4823          V940= vs_base[0];          V956= vs_base[0];
4824          if((CMPcar(V940))==((VV[95]->s.s_dbind))){          if((CMPcar(V956))==((VV[95]->s.s_dbind))){
4825          goto T1917;}          goto T1917;}
4826          goto T1908;          goto T1908;
4827          goto T1917;          goto T1917;
4828  T1917:;  T1917:;
4829          V938= CMPcdr((V938));          V954= CMPcdr((V954));
4830          V939= CMPcar((V938));          V955= CMPcar((V954));
4831          goto T1912;}          goto T1912;}
4832          goto T1908;          goto T1908;
4833  T1908:;  T1908:;
4834          goto T1904;          goto T1904;
4835  T1904:;  T1904:;
4836          {object V941;          {object V957;
4837          V942= (*(LnkLI326))((V920));          V958= (*(LnkLI326))((V936));
4838          base[19]= (V920);          base[19]= (V936);
4839          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
4840          (void) (*Lnk305)(Lclptr305);          (void) (*Lnk305)(Lclptr305);
4841          vs_top=sup;          vs_top=sup;
4842          V943= vs_base[0];          V959= vs_base[0];
4843          V941= list(3,/* INLINE-ARGS */V942,V943,(*(LnkLI326))((V921)));          V957= list(3,/* INLINE-ARGS */V958,V959,(*(LnkLI326))((V937)));
4844          if(!(((V919))==(VV[121]))){          if(!(((V935))==(VV[121]))){
4845          goto T1931;}          goto T1931;}
4846          base[19]= (VV[95]->s.s_dbind);          base[19]= (VV[95]->s.s_dbind);
4847          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
4848          (void) (*Lnk305)(Lclptr305);          (void) (*Lnk305)(Lclptr305);
4849          vs_top=sup;          vs_top=sup;
4850          V944= vs_base[0];          V960= vs_base[0];
4851          base[18]= make_cons(V944,(V941));          V961 = (V957);
4852            base[18]= make_cons(V960,V961);
4853          goto T1903;          goto T1903;
4854          goto T1931;          goto T1931;
4855  T1931:;  T1931:;
4856          base[18]= (V941);          base[18]= (V957);
4857          goto T1903;}          goto T1903;}
4858          goto T1905;          goto T1905;
4859  T1905:;  T1905:;
# Line 4847  T1903:; Line 4864  T1903:;
4864          (void) (*Lnk327)();          (void) (*Lnk327)();
4865          vs_top=sup;          vs_top=sup;
4866          base[13]= vs_base[0];          base[13]= vs_base[0];
4867          base[14]= (V919);          base[14]= (V935);
4868          vs_top=(vs_base=base+11)+4;          vs_top=(vs_base=base+11)+4;
4869          (void) (*Lnk328)();          (void) (*Lnk328)();
4870          vs_top=sup;          vs_top=sup;
4871          base[10]= vs_base[0];          base[10]= vs_base[0];
4872          goto T1879;          goto T1879;
4873  T1879:;  T1879:;
4874          base[11]= (V927);          base[11]= (V943);
4875          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
4876          return;}          return;}
4877          }          }
# Line 4901  T1941:; Line 4918  T1941:;
4918  }  }
4919  /*      local entry for function STANDARD-SVUC-METHOD   */  /*      local entry for function STANDARD-SVUC-METHOD   */
4920    
4921  static object LI75(V946)  static object LI75(V963)
4922    
4923  object V946;  object V963;
4924  {        VMB69 VMS69 VMV69  {        VMB69 VMS69 VMV69
4925          goto TTL;          goto TTL;
4926  TTL:;  TTL:;
4927          {object V947= (V946);          {object V964= (V963);
4928          if((V947!= VV[119]))goto T1951;          if((V964!= VV[119]))goto T1951;
4929          {object V948 = (VV[128]->s.s_dbind);          {object V965 = (VV[128]->s.s_dbind);
4930          VMR69(V948)}          VMR69(V965)}
4931          goto T1951;          goto T1951;
4932  T1951:;  T1951:;
4933          if((V947!= VV[121]))goto T1952;          if((V964!= VV[121]))goto T1952;
4934          {object V949 = (VV[129]->s.s_dbind);          {object V966 = (VV[129]->s.s_dbind);
4935          VMR69(V949)}          VMR69(V966)}
4936          goto T1952;          goto T1952;
4937  T1952:;  T1952:;
4938          if((V947!= VV[123]))goto T1953;          if((V964!= VV[123]))goto T1953;
4939          {object V950 = (VV[130]->s.s_dbind);          {object V967 = (VV[130]->s.s_dbind);
4940          VMR69(V950)}          VMR69(V967)}
4941          goto T1953;          goto T1953;
4942  T1953:;  T1953:;
4943          {object V951 = Cnil;          {object V968 = Cnil;
4944          VMR69(V951)}}          VMR69(V968)}}
4945          return Cnil;          return Cnil;
4946  }  }
4947  /*      local entry for function SET-STANDARD-SVUC-METHOD       */  /*      local entry for function SET-STANDARD-SVUC-METHOD       */
4948    
4949  static object LI76(V954,V955)  static object LI76(V971,V972)
4950    
4951  object V954;object V955;  object V971;object V972;
4952  {        VMB70 VMS70 VMV70  {        VMB70 VMS70 VMV70
4953          goto TTL;          goto TTL;
4954  TTL:;  TTL:;
4955          {object V956= (V954);          {object V973= (V971);
4956          if((V956!= VV[119]))goto T1954;          if((V973!= VV[119]))goto T1954;
4957          (VV[128]->s.s_dbind)= (V955);          (VV[128]->s.s_dbind)= (V972);
4958          {object V957 = (VV[128]->s.s_dbind);          {object V974 = (VV[128]->s.s_dbind);
4959          VMR70(V957)}          VMR70(V974)}
4960          goto T1954;          goto T1954;
4961  T1954:;  T1954:;
4962          if((V956!= VV[121]))goto T1956;          if((V973!= VV[121]))goto T1956;
4963          (VV[129]->s.s_dbind)= (V955);          (VV[129]->s.s_dbind)= (V972);
4964          {object V958 = (VV[129]->s.s_dbind);          {object V975 = (VV[129]->s.s_dbind);
4965          VMR70(V958)}          VMR70(V975)}
4966          goto T1956;          goto T1956;
4967  T1956:;  T1956:;
4968          if((V956!= VV[123]))goto T1958;          if((V973!= VV[123]))goto T1958;
4969          (VV[130]->s.s_dbind)= (V955);          (VV[130]->s.s_dbind)= (V972);
4970          {object V959 = (VV[130]->s.s_dbind);          {object V976 = (VV[130]->s.s_dbind);
4971          VMR70(V959)}          VMR70(V976)}
4972          goto T1958;          goto T1958;
4973  T1958:;  T1958:;
4974          {object V960 = Cnil;          {object V977 = Cnil;
4975          VMR70(V960)}}          VMR70(V977)}}
4976          return Cnil;          return Cnil;
4977  }  }
4978  /*      local entry for function STRUCTURE-SVUC-METHOD  */  /*      local entry for function STRUCTURE-SVUC-METHOD  */
4979    
4980  static object LI77(V962)  static object LI77(V979)
4981    
4982  object V962;  object V979;
4983  {        VMB71 VMS71 VMV71  {        VMB71 VMS71 VMV71
4984          goto TTL;          goto TTL;
4985  TTL:;  TTL:;
4986          {object V963= (V962);          {object V980= (V979);
4987          if((V963!= VV[119]))goto T1960;          if((V980!= VV[119]))goto T1960;
4988          {object V964 = (VV[131]->s.s_dbind);          {object V981 = (VV[131]->s.s_dbind);
4989          VMR71(V964)}          VMR71(V981)}
4990          goto T1960;          goto T1960;
4991  T1960:;  T1960:;
4992          if((V963!= VV[121]))goto T1961;          if((V980!= VV[121]))goto T1961;
4993          {object V965 = (VV[132]->s.s_dbind);          {object V982 = (VV[132]->s.s_dbind);
4994          VMR71(V965)}          VMR71(V982)}
4995          goto T1961;          goto T1961;
4996  T1961:;  T1961:;
4997          if((V963!= VV[123]))goto T1962;          if((V980!= VV[123]))goto T1962;
4998          {object V966 = (VV[133]->s.s_dbind);          {object V983 = (VV[133]->s.s_dbind);
4999          VMR71(V966)}          VMR71(V983)}
5000          goto T1962;          goto T1962;
5001  T1962:;  T1962:;
5002          {object V967 = Cnil;          {object V984 = Cnil;
5003          VMR71(V967)}}          VMR71(V984)}}
5004          return Cnil;          return Cnil;
5005  }  }
5006  /*      local entry for function SET-STRUCTURE-SVUC-METHOD      */  /*      local entry for function SET-STRUCTURE-SVUC-METHOD      */
5007    
5008  static object LI78(V970,V971)  static object LI78(V987,V988)
5009    
5010  object V970;object V971;  object V987;object V988;
5011  {        VMB72 VMS72 VMV72  {        VMB72 VMS72 VMV72
5012          goto TTL;          goto TTL;
5013  TTL:;  TTL:;
5014          {object V972= (V970);          {object V989= (V987);
5015          if((V972!= VV[119]))goto T1963;          if((V989!= VV[119]))goto T1963;
5016          (VV[131]->s.s_dbind)= (V971);          (VV[131]->s.s_dbind)= (V988);
5017          {object V973 = (VV[131]->s.s_dbind);          {object V990 = (VV[131]->s.s_dbind);
5018          VMR72(V973)}          VMR72(V990)}
5019          goto T1963;          goto T1963;
5020  T1963:;  T1963:;
5021          if((V972!= VV[121]))goto T1965;          if((V989!= VV[121]))goto T1965;
5022          (VV[132]->s.s_dbind)= (V971);          (VV[132]->s.s_dbind)= (V988);
5023          {object V974 = (VV[132]->s.s_dbind);          {object V991 = (VV[132]->s.s_dbind);
5024          VMR72(V974)}          VMR72(V991)}
5025          goto T1965;          goto T1965;
5026  T1965:;  T1965:;
5027          if((V972!= VV[123]))goto T1967;          if((V989!= VV[123]))goto T1967;
5028          (VV[133]->s.s_dbind)= (V971);          (VV[133]->s.s_dbind)= (V988);
5029          {object V975 = (VV[133]->s.s_dbind);          {object V992 = (VV[133]->s.s_dbind);
5030          VMR72(V975)}          VMR72(V992)}
5031          goto T1967;          goto T1967;
5032  T1967:;  T1967:;
5033          {object V976 = Cnil;          {object V993 = Cnil;
5034          VMR72(V976)}}          VMR72(V993)}}
5035          return Cnil;          return Cnil;
5036  }  }
5037  /*      local entry for function UPDATE-STD-OR-STR-METHODS      */  /*      local entry for function UPDATE-STD-OR-STR-METHODS      */
5038    
5039  static object LI79(V979,V980)  static object LI79(V996,V997)
5040    
5041  object V979;register object V980;  object V996;register object V997;
5042  {        VMB73 VMS73 VMV73  {        VMB73 VMS73 VMV73
5043          goto TTL;          goto TTL;
5044  TTL:;  TTL:;
5045          {register object V981;          {register object V998;
5046          register object V982;          register object V999;
5047          base[2]= (V979);          base[2]= (V996);
5048          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5049          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
5050          vs_top=sup;          vs_top=sup;
5051          V981= vs_base[0];          V998= vs_base[0];
5052          V982= CMPcar((V981));          V999= CMPcar((V998));
5053          goto T1973;          goto T1973;
5054  T1973:;  T1973:;
5055          if(!(((V981))==Cnil)){          if(!(((V998))==Cnil)){
5056          goto T1974;}          goto T1974;}
5057          {object V983 = Cnil;          {object V1000 = Cnil;
5058          VMR73(V983)}          VMR73(V1000)}
5059          goto T1974;          goto T1974;
5060  T1974:;  T1974:;
5061          {register object V984;          {register object V1001;
5062          base[2]= (V982);          base[2]= (V999);
5063          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5064          (void) (*Lnk278)(Lclptr278);          (void) (*Lnk278)(Lclptr278);
5065          vs_top=sup;          vs_top=sup;
5066          V984= vs_base[0];          V1001= vs_base[0];
5067          if(!(((V980))==(VV[121]))){          if(!(((V997))==(VV[121]))){
5068          goto T1982;}          goto T1982;}
5069          {register object V986;          {register object V1003;
5070          V986= CMPcar((V984));          V1003= CMPcar((V1001));
5071          V984= CMPcdr((V984));          V1001= CMPcdr((V1001));
5072          V985= (V986);}          V1002= (V1003);}
5073          if(!((V985)==((VV[95]->s.s_dbind)))){          V1004 = (VV[95]->s.s_dbind);
5074            if(!((V1002)==(V1004))){
5075          goto T1978;}          goto T1978;}
5076          goto T1982;          goto T1982;
5077  T1982:;  T1982:;
5078          base[2]= (VV[237]->s.s_gfdef);          base[2]= (VV[237]->s.s_gfdef);
5079          base[3]= (V984);          base[3]= (V1001);
5080          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5081          (void) (*Lnk279)();          (void) (*Lnk279)();
5082          vs_top=sup;          vs_top=sup;
5083          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5084          goto T1978;}          goto T1978;}
5085          base[2]= CMPcar((V984));          base[2]= CMPcar((V1001));
5086          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5087          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
5088          vs_top=sup;          vs_top=sup;
5089          V987= vs_base[0];          V1005= vs_base[0];
5090          if(!((V987)==(VV[134]))){          if(!((V1005)==(VV[134]))){
5091          goto T1994;}          goto T1994;}
5092          base[2]= CMPcadr((V984));          base[2]= CMPcadr((V1001));
5093          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5094          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
5095          vs_top=sup;          vs_top=sup;
5096          V988= vs_base[0];          V1006= vs_base[0];
5097          if(!((V988)==(VV[135]))){          if(!((V1006)==(VV[135]))){
5098          goto T1994;}          goto T1994;}
5099          base[2]= CMPcaddr((V984));          base[2]= CMPcaddr((V1001));
5100          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5101          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
5102          vs_top=sup;          vs_top=sup;
5103          V989= vs_base[0];          V1007= vs_base[0];
5104          if(!((V989)==(VV[136]))){          if(!((V1007)==(VV[136]))){
5105          goto T1994;}          goto T1994;}
5106          (void)((*(LnkLI331))((V980),(V982)));          (void)((*(LnkLI331))((V997),(V999)));
5107          goto T1978;          goto T1978;
5108          goto T1994;          goto T1994;
5109  T1994:;  T1994:;
5110          base[2]= CMPcar((V984));          base[2]= CMPcar((V1001));
5111          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5112          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
5113          vs_top=sup;          vs_top=sup;
5114          V990= vs_base[0];          V1008= vs_base[0];
5115          if(!((V990)==(VV[137]))){          if(!((V1008)==(VV[137]))){
5116          goto T1978;}          goto T1978;}
5117          base[2]= CMPcadr((V984));          base[2]= CMPcadr((V1001));
5118          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5119          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
5120          vs_top=sup;          vs_top=sup;
5121          V991= vs_base[0];          V1009= vs_base[0];
5122          if(!((V991)==(VV[138]))){          if(!((V1009)==(VV[138]))){
5123          goto T1978;}          goto T1978;}
5124          base[2]= CMPcaddr((V984));          base[2]= CMPcaddr((V1001));
5125          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5126          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
5127          vs_top=sup;          vs_top=sup;
5128          V992= vs_base[0];          V1010= vs_base[0];
5129          if(!((V992)==(VV[139]))){          if(!((V1010)==(VV[139]))){
5130          goto T1978;}          goto T1978;}
5131          (void)((*(LnkLI332))((V980),(V982)));}          (void)((*(LnkLI332))((V997),(V999)));}
5132          goto T1978;          goto T1978;
5133  T1978:;  T1978:;
5134          V981= CMPcdr((V981));          V998= CMPcdr((V998));
5135          V982= CMPcar((V981));          V999= CMPcar((V998));
5136          goto T1973;}          goto T1973;}
5137          base[0]=base[0];          base[0]=base[0];
5138          return Cnil;          return Cnil;
5139  }  }
5140  /*      local entry for function MEC-ALL-CLASSES-INTERNAL       */  /*      local entry for function MEC-ALL-CLASSES-INTERNAL       */
5141    
5142  static object LI80(V995,V996)  static object LI80(V1013,V1014)
5143    
5144  register object V995;object V996;  register object V1013;object V1014;
5145  {        VMB74 VMS74 VMV74  {        VMB74 VMS74 VMV74
5146          goto TTL;          goto TTL;
5147  TTL:;  TTL:;
5148          base[0]= (V995);          base[0]= (V1013);
5149          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5150          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
5151          vs_top=sup;          vs_top=sup;
5152          V997= vs_base[0];          V1015= vs_base[0];
5153          base[0]= (V995);          base[0]= (V1013);
5154          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5155          (void) (*Lnk237)(Lclptr237);          (void) (*Lnk237)(Lclptr237);
5156          vs_top=sup;          vs_top=sup;
5157          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5158          goto T2026;}          goto T2026;}
5159          V998= Cnil;          V1016= Cnil;
5160          goto T2025;          goto T2025;
5161          goto T2026;          goto T2026;
5162  T2026:;  T2026:;
5163          if((V996)==Cnil){          if((V1014)==Cnil){
5164          V998= Cnil;          V1016= Cnil;
5165          goto T2025;}          goto T2025;}
5166          if(!(((V995))==((VV[95]->s.s_dbind)))){          if(!(((V1013))==((VV[95]->s.s_dbind)))){
5167          goto T2032;}          goto T2032;}
5168          V999= Ct;          V1017= Ct;
5169          goto T2031;          goto T2031;
5170          goto T2032;          goto T2032;
5171  T2032:;  T2032:;
5172          if(!(((V995))==((VV[140]->s.s_dbind)))){          if(!(((V1013))==((VV[140]->s.s_dbind)))){
5173          goto T2034;}          goto T2034;}
5174          V999= Ct;          V1017= Ct;
5175          goto T2031;          goto T2031;
5176          goto T2034;          goto T2034;
5177  T2034:;  T2034:;
5178          if(!(((V995))==((VV[141]->s.s_dbind)))){          if(!(((V1013))==((VV[141]->s.s_dbind)))){
5179          goto T2036;}          goto T2036;}
5180          V999= Ct;          V1017= Ct;
5181          goto T2031;          goto T2031;
5182          goto T2036;          goto T2036;
5183  T2036:;  T2036:;
5184          V999= (((V995))==((VV[142]->s.s_dbind))?Ct:Cnil);          V1017= (((V1013))==((VV[142]->s.s_dbind))?Ct:Cnil);
5185          goto T2031;          goto T2031;
5186  T2031:;  T2031:;
5187          if((V999)==Cnil){          if((V1017)==Cnil){
5188          goto T2029;}          goto T2029;}
5189          V998= Cnil;          V1016= Cnil;
5190          goto T2025;          goto T2025;
5191          goto T2029;          goto T2029;
5192  T2029:;  T2029:;
5193          {object V1000;          {object V1018;
5194          base[0]= (V995);          base[0]= (V1013);
5195          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5196          (void) (*Lnk333)(Lclptr333);          (void) (*Lnk333)(Lclptr333);
5197          vs_top=sup;          vs_top=sup;
5198          V1000= vs_base[0];          V1018= vs_base[0];
5199          if(((V1000))==Cnil){          if(((V1018))==Cnil){
5200          goto T2041;}          goto T2041;}
5201          {object V1001;          {object V1019;
5202          object V1002= (V1000);          object V1020= (V1018);
5203          if(V1002==Cnil){          if(V1020==Cnil){
5204          V998= Cnil;          V1016= Cnil;
5205          goto T2025;}          goto T2025;}
5206          base[0]=V1001=MMcons(Cnil,Cnil);          base[0]=V1019=MMcons(Cnil,Cnil);
5207          goto T2043;          goto T2043;
5208  T2043:;  T2043:;
5209          (V1001->c.c_cdr)= (*(LnkLI334))((V1002->c.c_car),(V996));          (V1019->c.c_cdr)= (*(LnkLI334))((V1020->c.c_car),(V1014));
5210          while(MMcdr(V1001)!=Cnil)V1001=MMcdr(V1001);          while(MMcdr(V1019)!=Cnil)V1019=MMcdr(V1019);
5211          if((V1002=MMcdr(V1002))==Cnil){          if((V1020=MMcdr(V1020))==Cnil){
5212          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
5213          V998= base[0];          V1016= base[0];
5214          goto T2025;}          goto T2025;}
5215          goto T2043;}          goto T2043;}
5216          goto T2041;          goto T2041;
5217  T2041:;  T2041:;
5218          V998= Cnil;}          V1016= Cnil;}
5219          goto T2025;          goto T2025;
5220  T2025:;  T2025:;
5221          {object V1004 = make_cons(V997,V998);          {object V1022 = make_cons(V1015,V1016);
5222          VMR74(V1004)}          VMR74(V1022)}
5223          base[0]=base[0];          base[0]=base[0];
5224          return Cnil;          return Cnil;
5225  }  }
5226  /*      local entry for function MEC-ALL-CLASSES        */  /*      local entry for function MEC-ALL-CLASSES        */
5227    
5228  static object LI81(V1007,V1008)  static object LI81(V1025,V1026)
5229    
5230  object V1007;object V1008;  object V1025;object V1026;
5231  {        VMB75 VMS75 VMV75  {        VMB75 VMS75 VMV75
5232          goto TTL;          goto TTL;
5233  TTL:;  TTL:;
5234          {object V1009;          {object V1027;
5235          V1009= (*(LnkLI334))((V1007),(V1008));          V1027= (*(LnkLI334))((V1025),(V1026));
5236          if((CMPcdr((V1009)))!=Cnil){          if((CMPcdr((V1027)))!=Cnil){
5237          goto T2047;}          goto T2047;}
5238          {object V1010 = (V1009);          {object V1028 = (V1027);
5239          VMR75(V1010)}          VMR75(V1028)}
5240          goto T2047;          goto T2047;
5241  T2047:;  T2047:;
5242          {object V1011;          {object V1029;
5243          register object V1012;          register object V1030;
5244          V1011= make_cons(Cnil,(V1009));          V1029= make_cons(Cnil,(V1027));
5245          V1012= (V1009);          V1030= (V1027);
5246          goto T2052;          goto T2052;
5247  T2052:;  T2052:;
5248          if((CMPcdr((V1012)))!=Cnil){          if((CMPcdr((V1030)))!=Cnil){
5249          goto T2054;}          goto T2054;}
5250          {object V1013 = CMPcdr((V1011));          {object V1031 = CMPcdr((V1029));
5251          VMR75(V1013)}          VMR75(V1031)}
5252          goto T2054;          goto T2054;
5253  T2054:;  T2054:;
5254          {register object V1014;          {register object V1032;
5255          register object V1015;          register object V1033;
5256          V1014= CMPcadr((V1012));          V1032= CMPcadr((V1030));
5257          V1015= CMPcddr((V1012));          V1033= CMPcddr((V1030));
5258          {register object V1016;          {register object V1034;
5259          register object V1017;          register object V1035;
5260          V1016= (V1015);          V1034= (V1033);
5261          V1017= CMPcar((V1016));          V1035= CMPcar((V1034));
5262          goto T2065;          goto T2065;
5263  T2065:;  T2065:;
5264          if(!(((V1016))==Cnil)){          if(!(((V1034))==Cnil)){
5265          goto T2066;}          goto T2066;}
5266          goto T2060;          goto T2060;
5267          goto T2066;          goto T2066;
5268  T2066:;  T2066:;
5269          if(!(((V1014))==((V1017)))){          if(!(((V1032))==((V1035)))){
5270          goto T2070;}          goto T2070;}
5271          goto T2061;          goto T2061;
5272          goto T2070;          goto T2070;
5273  T2070:;  T2070:;
5274          V1016= CMPcdr((V1016));          V1034= CMPcdr((V1034));
5275          V1017= CMPcar((V1016));          V1035= CMPcar((V1034));
5276          goto T2065;}          goto T2065;}
5277          goto T2061;          goto T2061;
5278  T2061:;  T2061:;
5279          {register object V1018;          {register object V1036;
5280          register object V1019;          register object V1037;
5281          V1018= (V1012);          V1036= (V1030);
5282          V1019= CMPcddr((V1012));          V1037= CMPcddr((V1030));
5283          ((V1018))->c.c_cdr = (V1019);          ((V1036))->c.c_cdr = (V1037);
5284          goto T2053;}          goto T2053;}
5285          goto T2060;          goto T2060;
5286  T2060:;  T2060:;
5287          V1012= CMPcdr((V1012));}          V1030= CMPcdr((V1030));}
5288          goto T2053;          goto T2053;
5289  T2053:;  T2053:;
5290          goto T2052;}}          goto T2052;}}
# Line 5275  T2053:; Line 5293  T2053:;
5293  }  }
5294  /*      local entry for function MEC-ALL-CLASS-LISTS    */  /*      local entry for function MEC-ALL-CLASS-LISTS    */
5295    
5296  static object LI82(V1022,V1023)  static object LI82(V1040,V1041)
5297    
5298  object V1022;object V1023;  object V1040;object V1041;
5299  {        VMB76 VMS76 VMV76  {        VMB76 VMS76 VMV76
5300          goto TTL;          goto TTL;
5301  TTL:;  TTL:;
5302          if(((V1022))!=Cnil){          if(((V1040))!=Cnil){
5303          goto T2084;}          goto T2084;}
5304          {object V1024 = make_cons(Cnil,Cnil);          {object V1042 = make_cons(Cnil,Cnil);
5305          VMR76(V1024)}          VMR76(V1042)}
5306          goto T2084;          goto T2084;
5307  T2084:;  T2084:;
5308          {object V1025;          {object V1043;
5309          object V1026;          object V1044;
5310          V1025= (*(LnkLI335))(CMPcar((V1022)),(V1023));          V1043= (*(LnkLI335))(CMPcar((V1040)),(V1041));
5311          V1026= (*(LnkLI336))(CMPcdr((V1022)),(V1023));          V1044= (*(LnkLI336))(CMPcdr((V1040)),(V1041));
5312          {object V1027;          {object V1045;
5313          object V1028= (V1026);          object V1046= (V1044);
5314          if(V1028==Cnil){          if(V1046==Cnil){
5315          {object V1029 = Cnil;          {object V1047 = Cnil;
5316          VMR76(V1029)}}          VMR76(V1047)}}
5317          base[2]=V1027=MMcons(Cnil,Cnil);          base[2]=V1045=MMcons(Cnil,Cnil);
5318          goto T2088;          goto T2088;
5319  T2088:;  T2088:;
5320          {object V1031;          {object V1049;
5321          object V1032= (V1025);          object V1050= (V1043);
5322          if(V1032==Cnil){          if(V1050==Cnil){
5323          (V1027->c.c_cdr)= Cnil;          (V1045->c.c_cdr)= Cnil;
5324          goto T2089;}          goto T2089;}
5325          base[3]=V1031=MMcons(Cnil,Cnil);          base[3]=V1049=MMcons(Cnil,Cnil);
5326          goto T2090;          goto T2090;
5327  T2090:;  T2090:;
5328          (V1031->c.c_car)= make_cons((V1032->c.c_car),(V1028->c.c_car));          (V1049->c.c_car)= make_cons((V1050->c.c_car),(V1046->c.c_car));
5329          if((V1032=MMcdr(V1032))==Cnil){          if((V1050=MMcdr(V1050))==Cnil){
5330          (V1027->c.c_cdr)= base[3];          (V1045->c.c_cdr)= base[3];
5331          goto T2089;}          goto T2089;}
5332          V1031=MMcdr(V1031)=MMcons(Cnil,Cnil);          V1049=MMcdr(V1049)=MMcons(Cnil,Cnil);
5333          goto T2090;}          goto T2090;}
5334          goto T2089;          goto T2089;
5335  T2089:;  T2089:;
5336          while(MMcdr(V1027)!=Cnil)V1027=MMcdr(V1027);          while(MMcdr(V1045)!=Cnil)V1045=MMcdr(V1045);
5337          if((V1028=MMcdr(V1028))==Cnil){          if((V1046=MMcdr(V1046))==Cnil){
5338          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
5339          {object V1034 = base[2];          {object V1052 = base[2];
5340          VMR76(V1034)}}          VMR76(V1052)}}
5341          goto T2088;}}          goto T2088;}}
5342          base[0]=base[0];          base[0]=base[0];
5343          return Cnil;          return Cnil;
5344  }  }
5345  /*      local entry for function MAKE-EMF-CACHE */  /*      local entry for function MAKE-EMF-CACHE */
5346    
5347  static object LI85(V1040,V1041,V1042,V1043,V1044)  static object LI85(V1058,V1059,V1060,V1061,V1062)
5348    
5349  object V1040;object V1041;object V1042;object V1043;object V1044;  object V1058;object V1059;object V1060;object V1061;object V1062;
5350  {        VMB77 VMS77 VMV77  {        VMB77 VMS77 VMV77
5351          goto TTL;          goto TTL;
5352  TTL:;  TTL:;
5353          base[0]= (V1044);          base[0]= (V1062);
5354          base[1]= (V1042);          base[1]= (V1060);
5355          base[2]= (V1041);          base[2]= (V1059);
5356          base[3]= (V1040);          base[3]= (V1058);
5357          {object V1045;          {object V1063;
5358          register object V1046;          register object V1064;
5359          base[10]= base[3];          base[10]= base[3];
5360          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5361          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
5362          vs_top=sup;          vs_top=sup;
5363          V1045= vs_base[0];          V1063= vs_base[0];
5364          base[5]= (*(LnkLI337))((V1045));          base[5]= (*(LnkLI337))((V1063));
5365          base[6]= STREF(object,(V1045),8);          base[6]= STREF(object,(V1063),8);
5366          if((base[5])==(small_fixnum(1))){          if((base[5])==(small_fixnum(1))){
5367          goto T2098;}          goto T2098;}
5368          base[10]= base[5];          base[10]= base[5];
# Line 5358  T2098:; Line 5376  T2098:;
5376          base[7]= Cnil;          base[7]= Cnil;
5377          goto T2096;          goto T2096;
5378  T2096:;  T2096:;
5379          V1046= STREF(object,(V1045),28);          V1064= STREF(object,(V1063),28);
5380          base[9]= VV[143];          base[9]= VV[143];
5381          if(((V1043))==Cnil){          if(((V1061))==Cnil){
5382          goto T2104;}          goto T2104;}
5383          {          {
5384          object V1047= (V1043);          object V1065= (V1061);
5385          if(V1047==Cnil){          if(V1065==Cnil){
5386          goto T2102;}          goto T2102;}
5387          goto T2106;          goto T2106;
5388  T2106:;  T2106:;
5389          base[10]= (V1047->c.c_car);          base[10]= (V1065->c.c_car);
5390          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5391          L86(base);          L86(base);
5392          vs_top=sup;          vs_top=sup;
5393          if((V1047=MMcdr(V1047))==Cnil){          if((V1065=MMcdr(V1065))==Cnil){
5394          goto T2102;}          goto T2102;}
5395          goto T2106;}          goto T2106;}
5396          goto T2104;          goto T2104;
5397  T2104:;  T2104:;
5398          {register object V1048;          {register object V1066;
5399          register object V1049;          register object V1067;
5400          base[12]= base[3];          base[12]= base[3];
5401          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
5402          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
5403          vs_top=sup;          vs_top=sup;
5404          V1048= vs_base[0];          V1066= vs_base[0];
5405          V1049= CMPcar((V1048));          V1067= CMPcar((V1066));
5406          goto T2113;          goto T2113;
5407  T2113:;  T2113:;
5408          if(!(((V1048))==Cnil)){          if(!(((V1066))==Cnil)){
5409          goto T2114;}          goto T2114;}
5410          goto T2102;          goto T2102;
5411          goto T2114;          goto T2114;
5412  T2114:;  T2114:;
5413          base[12]= (V1049);          base[12]= (V1067);
5414          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
5415          (void) (*Lnk278)(Lclptr278);          (void) (*Lnk278)(Lclptr278);
5416          vs_top=sup;          vs_top=sup;
5417          V1051= vs_base[0];          V1069= vs_base[0];
5418          V1052= (*(LnkLI336))(V1051,(V1046));          V1070 = (V1064);
5419            V1071= (*(LnkLI336))(V1069,V1070);
5420          {          {
5421          object V1050= /* INLINE-ARGS */V1052;          object V1068= /* INLINE-ARGS */V1071;
5422          if(V1050==Cnil){          if(V1068==Cnil){
5423          goto T2118;}          goto T2118;}
5424          goto T2119;          goto T2119;
5425  T2119:;  T2119:;
5426          base[12]= (V1050->c.c_car);          base[12]= (V1068->c.c_car);
5427          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
5428          L86(base);          L86(base);
5429          vs_top=sup;          vs_top=sup;
5430          if((V1050=MMcdr(V1050))==Cnil){          if((V1068=MMcdr(V1068))==Cnil){
5431          goto T2118;}          goto T2118;}
5432          goto T2119;}          goto T2119;}
5433          goto T2118;          goto T2118;
5434  T2118:;  T2118:;
5435          V1048= CMPcdr((V1048));          V1066= CMPcdr((V1066));
5436          V1049= CMPcar((V1048));          V1067= CMPcar((V1066));
5437          goto T2113;}          goto T2113;}
5438          goto T2102;          goto T2102;
5439  T2102:;  T2102:;
5440          {object V1053 = base[1];          {object V1072 = base[1];
5441          VMR77(V1053)}}          VMR77(V1072)}}
5442          base[0]=base[0];          base[0]=base[0];
5443          return Cnil;          return Cnil;
5444  }  }
# Line 5431  static void L87() Line 5450  static void L87()
5450          vs_check;          vs_check;
5451          check_arg(2);          check_arg(2);
5452          vs_top=sup;          vs_top=sup;
5453          {object V1054=base[0]->c.c_cdr;          {object V1073=base[0]->c.c_cdr;
5454          if(endp(V1054))invalid_macro_call();          if(endp(V1073))invalid_macro_call();
5455          base[2]= (V1054->c.c_car);          base[2]= (V1073->c.c_car);
5456          V1054=V1054->c.c_cdr;          V1073=V1073->c.c_cdr;
5457          if(endp(V1054))invalid_macro_call();          if(endp(V1073))invalid_macro_call();
5458          base[3]= (V1054->c.c_car);          base[3]= (V1073->c.c_car);
5459          V1054=V1054->c.c_cdr;          V1073=V1073->c.c_cdr;
5460          if(!endp(V1054))invalid_macro_call();}          if(!endp(V1073))invalid_macro_call();}
5461          if(!((base[3])==((VV[95]->s.s_dbind)))){          if(!((base[3])==((VV[95]->s.s_dbind)))){
5462          goto T2130;}          goto T2130;}
5463          base[4]= Ct;          base[4]= Ct;
# Line 5455  T2130:; Line 5474  T2130:;
5474  T2133:;  T2133:;
5475          if(!((base[3])==((VV[141]->s.s_dbind)))){          if(!((base[3])==((VV[141]->s.s_dbind)))){
5476          goto T2136;}          goto T2136;}
5477          V1055= list(2,VV[151],base[2]);          V1074= list(2,VV[151],base[2]);
5478          base[4]= list(3,VV[150],/* INLINE-ARGS */V1055,list(2,VV[152],base[2]));          base[4]= list(3,VV[150],/* INLINE-ARGS */V1074,list(2,VV[152],base[2]));
5479          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5480          return;          return;
5481          goto T2136;          goto T2136;
5482  T2136:;  T2136:;
5483          if(!((base[3])==((VV[142]->s.s_dbind)))){          if(!((base[3])==((VV[142]->s.s_dbind)))){
5484          goto T2139;}          goto T2139;}
5485          V1056= list(2,VV[154],base[3]);          V1075= list(2,VV[154],base[3]);
5486          base[4]= list(3,VV[153],/* INLINE-ARGS */V1056,list(2,VV[155],list(2,VV[149],base[2])));          base[4]= list(3,VV[153],/* INLINE-ARGS */V1075,list(2,VV[155],list(2,VV[149],base[2])));
5487          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5488          return;          return;
5489          goto T2139;          goto T2139;
# Line 5473  T2139:; Line 5492  T2139:;
5492          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5493          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
5494          vs_top=sup;          vs_top=sup;
5495          V1057= vs_base[0];          V1076= vs_base[0];
5496          base[4]= list(3,VV[156],base[2],list(2,VV[154],V1057));          base[4]= list(3,VV[156],base[2],list(2,VV[154],V1076));
5497          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5498          return;          return;
5499  }  }
# Line 5486  static void L88() Line 5505  static void L88()
5505          vs_check;          vs_check;
5506          check_arg(2);          check_arg(2);
5507          vs_top=sup;          vs_top=sup;
5508          {object V1058=base[0]->c.c_cdr;          {object V1077=base[0]->c.c_cdr;
5509          if(endp(V1058))invalid_macro_call();          if(endp(V1077))invalid_macro_call();
5510          base[2]= (V1058->c.c_car);          base[2]= (V1077->c.c_car);
5511          V1058=V1058->c.c_cdr;          V1077=V1077->c.c_cdr;
5512          if(endp(V1058))invalid_macro_call();          if(endp(V1077))invalid_macro_call();
5513          base[3]= (V1058->c.c_car);          base[3]= (V1077->c.c_car);
5514          V1058=V1058->c.c_cdr;          V1077=V1077->c.c_cdr;
5515          if(!endp(V1058))invalid_macro_call();}          if(!endp(V1077))invalid_macro_call();}
5516          V1059= list(2,VV[149],base[2]);          V1078= list(2,VV[149],base[2]);
5517          base[4]= list(3,VV[145],/* INLINE-ARGS */V1059,list(2,VV[154],base[3]));          base[4]= list(3,VV[145],/* INLINE-ARGS */V1078,list(2,VV[154],base[3]));
5518          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5519          return;          return;
5520  }  }
# Line 5507  static void L89() Line 5526  static void L89()
5526          vs_check;          vs_check;
5527          check_arg(2);          check_arg(2);
5528          vs_top=sup;          vs_top=sup;
5529          {object V1060=base[0]->c.c_cdr;          {object V1079=base[0]->c.c_cdr;
5530          if(endp(V1060))invalid_macro_call();          if(endp(V1079))invalid_macro_call();
5531          base[2]= (V1060->c.c_car);          base[2]= (V1079->c.c_car);
5532          V1060=V1060->c.c_cdr;          V1079=V1079->c.c_cdr;
5533          if(endp(V1060))invalid_macro_call();          if(endp(V1079))invalid_macro_call();
5534          base[3]= (V1060->c.c_car);          base[3]= (V1079->c.c_car);
5535          V1060=V1060->c.c_cdr;          V1079=V1079->c.c_cdr;
5536          if(!endp(V1060))invalid_macro_call();}          if(!endp(V1079))invalid_macro_call();}
5537          base[4]= list(3,VV[108],base[2],list(2,VV[154],base[3]));          base[4]= list(3,VV[108],base[2],list(2,VV[154],base[3]));
5538          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5539          return;          return;
5540  }  }
5541  /*      local entry for function DNET-METHODS-P */  /*      local entry for function DNET-METHODS-P */
5542    
5543  static object LI90(V1062)  static object LI90(V1081)
5544    
5545  object V1062;  object V1081;
5546  {        VMB81 VMS81 VMV81  {        VMB81 VMS81 VMV81
5547          goto TTL;          goto TTL;
5548  TTL:;  TTL:;
5549          if(type_of((V1062))==t_cons){          if(type_of((V1081))==t_cons){
5550          goto T2143;}          goto T2143;}
5551          {object V1063 = Cnil;          {object V1082 = Cnil;
5552          VMR81(V1063)}          VMR81(V1082)}
5553          goto T2143;          goto T2143;
5554  T2143:;  T2143:;
5555          if(!((CMPcar((V1062)))==(VV[67]))){          if(!((CMPcar((V1081)))==(VV[67]))){
5556          goto T2145;}          goto T2145;}
5557          {object V1064 = Ct;          {object V1083 = Ct;
5558          VMR81(V1064)}          VMR81(V1083)}
5559          goto T2145;          goto T2145;
5560  T2145:;  T2145:;
5561          {object V1065 = ((CMPcar((V1062)))==(VV[157])?Ct:Cnil);          {object V1084 = ((CMPcar((V1081)))==(VV[157])?Ct:Cnil);
5562          VMR81(V1065)}          VMR81(V1084)}
5563          return Cnil;          return Cnil;
5564  }  }
5565  /*      macro definition for SCASE      */  /*      macro definition for SCASE      */
# Line 5551  static void L91() Line 5570  static void L91()
5570          vs_check;          vs_check;
5571          check_arg(2);          check_arg(2);
5572          vs_top=sup;          vs_top=sup;
5573          {object V1066=base[0]->c.c_cdr;          {object V1085=base[0]->c.c_cdr;
5574          if(endp(V1066))invalid_macro_call();          if(endp(V1085))invalid_macro_call();
5575          base[2]= (V1066->c.c_car);          base[2]= (V1085->c.c_car);
5576          V1066=V1066->c.c_cdr;          V1085=V1085->c.c_cdr;
5577          base[3]= V1066;}          base[3]= V1085;}
5578          V1067= list(2,VV[159],base[2]);          V1086= list(2,VV[159],base[2]);
5579          V1068= make_cons(/* INLINE-ARGS */V1067,Cnil);          V1087= make_cons(/* INLINE-ARGS */V1086,Cnil);
5580          {object V1070;          {object V1089;
5581          object V1071= base[3];          object V1090= base[3];
5582          if(V1071==Cnil){          if(V1090==Cnil){
5583          V1069= Cnil;          V1088= Cnil;
5584          goto T2147;}          goto T2147;}
5585          base[4]=V1070=MMcons(Cnil,Cnil);          base[4]=V1089=MMcons(Cnil,Cnil);
5586          goto T2148;          goto T2148;
5587  T2148:;  T2148:;
5588          {register object V1072;          {register object V1091;
5589          V1072= (V1071->c.c_car);          V1091= (V1090->c.c_car);
5590          if((CMPcar((V1072)))!=Cnil){          if((CMPcar((V1091)))!=Cnil){
5591          goto T2152;}          goto T2152;}
5592          V1073= Cnil;          V1092= Cnil;
5593          goto T2150;          goto T2150;
5594          goto T2152;          goto T2152;
5595  T2152:;  T2152:;
5596          if(!(type_of(CMPcar((V1072)))==t_cons)){          if(!(type_of(CMPcar((V1091)))==t_cons)){
5597          goto T2155;}          goto T2155;}
5598          if((CMPcdar((V1072)))!=Cnil){          if((CMPcdar((V1091)))!=Cnil){
5599          goto T2158;}          goto T2158;}
5600          V1073= list(3,VV[108],VV[159],list(2,VV[154],CMPcaar((V1072))));          V1092= list(3,VV[108],VV[159],list(2,VV[154],CMPcaar((V1091))));
5601          goto T2150;          goto T2150;
5602          goto T2158;          goto T2158;
5603  T2158:;  T2158:;
5604          V1073= list(3,VV[161],VV[159],list(2,VV[154],CMPcar((V1072))));          V1092= list(3,VV[161],VV[159],list(2,VV[154],CMPcar((V1091))));
5605          goto T2150;          goto T2150;
5606          goto T2155;          goto T2155;
5607  T2155:;  T2155:;
5608          {register object x= CMPcar((V1072)),V1074= VV[162];          {register object x= CMPcar((V1091)),V1093= VV[162];
5609          while(V1074!=Cnil)          while(V1093!=Cnil)
5610          if(eql(x,V1074->c.c_car)){          if(eql(x,V1093->c.c_car)){
5611          goto T2162;          goto T2162;
5612          }else V1074=V1074->c.c_cdr;          }else V1093=V1093->c.c_cdr;
5613          goto T2161;}          goto T2161;}
5614          goto T2162;          goto T2162;
5615  T2162:;  T2162:;
5616          V1073= Ct;          V1092= Ct;
5617          goto T2150;          goto T2150;
5618          goto T2161;          goto T2161;
5619  T2161:;  T2161:;
5620          V1073= list(3,VV[108],VV[159],list(2,VV[154],CMPcar((V1072))));          V1092= list(3,VV[108],VV[159],list(2,VV[154],CMPcar((V1091))));
5621          goto T2150;          goto T2150;
5622  T2150:;  T2150:;
5623          (V1070->c.c_car)= listA(3,V1073,Cnil,CMPcdr((V1072)));}          (V1089->c.c_car)= listA(3,V1092,Cnil,CMPcdr((V1091)));}
5624          if((V1071=MMcdr(V1071))==Cnil){          if((V1090=MMcdr(V1090))==Cnil){
5625          V1069= base[4];          V1088= base[4];
5626          goto T2147;}          goto T2147;}
5627          V1070=MMcdr(V1070)=MMcons(Cnil,Cnil);          V1089=MMcdr(V1089)=MMcons(Cnil,Cnil);
5628          goto T2148;}          goto T2148;}
5629          goto T2147;          goto T2147;
5630  T2147:;  T2147:;
5631          base[4]= list(3,VV[158],/* INLINE-ARGS */V1068,make_cons(VV[160],V1069));          base[4]= list(3,VV[158],/* INLINE-ARGS */V1087,make_cons(VV[160],V1088));
5632          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5633          return;          return;
5634  }  }
# Line 5621  static void L92() Line 5640  static void L92()
5640          vs_check;          vs_check;
5641          check_arg(2);          check_arg(2);
5642          vs_top=sup;          vs_top=sup;
5643          {object V1075=base[0]->c.c_cdr;          {object V1094=base[0]->c.c_cdr;
5644          if(endp(V1075))invalid_macro_call();          if(endp(V1094))invalid_macro_call();
5645          base[2]= (V1075->c.c_car);          base[2]= (V1094->c.c_car);
5646          V1075=V1075->c.c_cdr;          V1094=V1094->c.c_cdr;
5647          base[3]= V1075;}          base[3]= V1094;}
5648          base[4]= listA(3,VV[163],base[2],base[3]);          base[4]= listA(3,VV[163],base[2],base[3]);
5649          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5650          return;          return;
# Line 5636  static void L93() Line 5655  static void L93()
5655  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
5656          register object *VOL sup=base+VM84; VC84          register object *VOL sup=base+VM84; VC84
5657          vs_check;          vs_check;
5658          {VOL object V1076;          {VOL object V1095;
5659          VOL object V1077;          VOL object V1096;
5660          VOL object V1078;          VOL object V1097;
5661          check_arg(4);          check_arg(4);
5662          V1076=(base[0]);          V1095=(base[0]);
5663          V1077=(base[1]);          V1096=(base[1]);
5664          V1078=(base[2]);          V1097=(base[2]);
5665          base[3]=MMcons(base[3],Cnil);          base[3]=MMcons(base[3],Cnil);
5666          vs_top=sup;          vs_top=sup;
5667          {VOL object V1079;          {VOL object V1098;
5668          base[6]= (V1076);          base[6]= (V1095);
5669          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
5670          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
5671          vs_top=sup;          vs_top=sup;
5672          V1079= vs_base[0];          V1098= vs_base[0];
5673          base[5]= STREF(object,(V1079),4);          base[5]= STREF(object,(V1098),4);
5674          base[5]=MMcons(base[5],base[3]);          base[5]=MMcons(base[5],base[3]);
5675          base[6]= (V1076);          base[6]= (V1095);
5676          base[7]= (V1077);          base[7]= (V1096);
5677          base[8]= (V1078);          base[8]= (V1097);
5678          base[9]=          base[9]=
5679          make_cclosure_new(LC127,Cnil,base[5],Cdata);          make_cclosure_new(LC127,Cnil,base[5],Cdata);
5680          base[10]=          base[10]=
# Line 5668  static void L93() Line 5687  static void L93()
5687  }  }
5688  /*      local entry for function CLASS-FROM-TYPE        */  /*      local entry for function CLASS-FROM-TYPE        */
5689    
5690  static object LI94(V1081)  static object LI94(V1100)
5691    
5692  register object V1081;  register object V1100;
5693  {        VMB85 VMS85 VMV85  {        VMB85 VMS85 VMV85
5694          goto TTL;          goto TTL;
5695  TTL:;  TTL:;
5696          if(type_of((V1081))!=t_cons){          if(type_of((V1100))!=t_cons){
5697          goto T2172;}          goto T2172;}
5698          if(!((CMPcar((V1081)))==(Ct))){          if(!((CMPcar((V1100)))==(Ct))){
5699          goto T2173;}          goto T2173;}
5700          goto T2172;          goto T2172;
5701  T2172:;  T2172:;
5702          {object V1082 = (VV[95]->s.s_dbind);          {object V1101 = (VV[95]->s.s_dbind);
5703          VMR85(V1082)}          VMR85(V1101)}
5704          goto T2173;          goto T2173;
5705  T2173:;  T2173:;
5706          {object V1083= CMPcar((V1081));          {object V1102= CMPcar((V1100));
5707          if((V1083!= VV[169]))goto T2177;          if((V1102!= VV[169]))goto T2177;
5708          {register object V1084;          {register object V1103;
5709          register object V1085;          register object V1104;
5710          V1084= CMPcdr((V1081));          V1103= CMPcdr((V1100));
5711          V1085= CMPcar((V1084));          V1104= CMPcar((V1103));
5712          goto T2181;          goto T2181;
5713  T2181:;  T2181:;
5714          if(!(((V1084))==Cnil)){          if(!(((V1103))==Cnil)){
5715          goto T2182;}          goto T2182;}
5716          {object V1086 = (VV[95]->s.s_dbind);          {object V1105 = (VV[95]->s.s_dbind);
5717          VMR85(V1086)}          VMR85(V1105)}
5718          goto T2182;          goto T2182;
5719  T2182:;  T2182:;
5720          if(!(type_of((V1085))==t_cons)){          if(!(type_of((V1104))==t_cons)){
5721          goto T2186;}          goto T2186;}
5722          if((CMPcar((V1085)))==(VV[144])){          if((CMPcar((V1104)))==(VV[144])){
5723          goto T2186;}          goto T2186;}
5724          V1081= (V1085);          V1100= (V1104);
5725          goto TTL;          goto TTL;
5726          goto T2186;          goto T2186;
5727  T2186:;  T2186:;
5728          V1084= CMPcdr((V1084));          V1103= CMPcdr((V1103));
5729          V1085= CMPcar((V1084));          V1104= CMPcar((V1103));
5730          goto T2181;}          goto T2181;}
5731          goto T2177;          goto T2177;
5732  T2177:;  T2177:;
5733          if((V1083!= VV[144]))goto T2198;          if((V1102!= VV[144]))goto T2198;
5734          {object V1087 = (VV[95]->s.s_dbind);          {object V1106 = (VV[95]->s.s_dbind);
5735          VMR85(V1087)}          VMR85(V1106)}
5736          goto T2198;          goto T2198;
5737  T2198:;  T2198:;
5738          if((V1083!= VV[108]))goto T2199;          if((V1102!= VV[108]))goto T2199;
5739          {object V1088 = (*(LnkLI149))(CMPcadr((V1081)));          {object V1107 = (*(LnkLI149))(CMPcadr((V1100)));
5740          VMR85(V1088)}          VMR85(V1107)}
5741          goto T2199;          goto T2199;
5742  T2199:;  T2199:;
5743          if((V1083!= VV[109]))goto T2200;          if((V1102!= VV[109]))goto T2200;
5744          {object V1089 = CMPcadr((V1081));          {object V1108 = CMPcadr((V1100));
5745          VMR85(V1089)}          VMR85(V1108)}
5746          goto T2200;          goto T2200;
5747  T2200:;  T2200:;
5748          if((V1083!= VV[340]))goto T2201;          if((V1102!= VV[340]))goto T2201;
5749          {object V1090 = CMPcadr((V1081));          {object V1109 = CMPcadr((V1100));
5750          VMR85(V1090)}          VMR85(V1109)}
5751          goto T2201;          goto T2201;
5752  T2201:;  T2201:;
5753          {object V1091 = Cnil;          {object V1110 = Cnil;
5754          VMR85(V1091)}}          VMR85(V1110)}}
5755          base[0]=base[0];          base[0]=base[0];
5756          return Cnil;          return Cnil;
5757  }  }
5758  /*      local entry for function PRECOMPUTE-EFFECTIVE-METHODS   */  /*      local entry for function PRECOMPUTE-EFFECTIVE-METHODS   */
5759    
5760  static object LI95(object V1093,object V1092,object first,...)  static object LI95(object V1112,object V1111,object first,...)
5761  {        {      
5762          va_list ap;          va_list ap;
5763          int narg = VFUN_NARGS; VMB86 VMS86 VMV86          int narg = VFUN_NARGS; VMB86 VMS86 VMV86
5764          bds_check;          bds_check;
5765          va_start(ap,first);          va_start(ap,first);
5766          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
5767          Vcs[0]=MMcons(V1093,Cnil);          Vcs[0]=MMcons(V1112,Cnil);
5768          Vcs[1]=MMcons(V1092,Vcs[0]);          Vcs[1]=MMcons(V1111,Vcs[0]);
5769          narg = narg - 2;          narg = narg - 2;
5770          if (narg <= 0) goto T2202;          if (narg <= 0) goto T2202;
5771          else {          else {
# Line 5758  T2202:; Line 5777  T2202:;
5777          Vcs[2]=MMcons(Vcs[2],Vcs[1]);          Vcs[2]=MMcons(Vcs[2],Vcs[1]);
5778          goto T2203;          goto T2203;
5779  T2203:;  T2203:;
5780          {object V1094;          {object V1113;
5781          object V1095;          object V1114;
5782          base[5]= (Vcs[0]->c.c_car);          base[5]= (Vcs[0]->c.c_car);
5783          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
5784          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
5785          vs_top=sup;          vs_top=sup;
5786          V1094= vs_base[0];          V1113= vs_base[0];
5787          base[5]= (Vcs[0]->c.c_car);          base[5]= (Vcs[0]->c.c_car);
5788          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
5789          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
5790          vs_top=sup;          vs_top=sup;
5791          V1095= vs_base[0];          V1114= vs_base[0];
5792          base[2]= STREF(object,(V1094),4);          base[2]= STREF(object,(V1113),4);
5793          base[2]=MMcons(base[2],Vcs[2]);          base[2]=MMcons(base[2],Vcs[2]);
5794          bds_bind(VV[168],Ct);          bds_bind(VV[168],Ct);
5795          base[4]=MMcons(Cnil,base[2]);          base[4]=MMcons(Cnil,base[2]);
5796          base[5]= (Vcs[0]->c.c_car);          base[5]= (Vcs[0]->c.c_car);
5797          base[6]= (V1095);          base[6]= (V1114);
5798          base[7]= Cnil;          base[7]= Cnil;
5799          base[8]=          base[8]=
5800          make_cclosure_new(LC129,Cnil,base[4],Cdata);          make_cclosure_new(LC129,Cnil,base[4],Cdata);
# Line 5786  T2203:; Line 5805  T2203:;
5805          vs_top=(vs_base=base+5)+6;          vs_top=(vs_base=base+5)+6;
5806          (void) (*Lnk339)();          (void) (*Lnk339)();
5807          vs_top=sup;          vs_top=sup;
5808          {object V1096 = (base[4]->c.c_car);          {object V1115 = (base[4]->c.c_car);
5809          bds_unwind1;          bds_unwind1;
5810          VMR86(V1096)}}          VMR86(V1115)}}
5811          va_end(ap);          va_end(ap);
5812          base[0]=base[0];          base[0]=base[0];
5813          return Cnil;}          return Cnil;}
5814  /*      local entry for function AUGMENT-TYPE   */  /*      local entry for function AUGMENT-TYPE   */
5815    
5816  static object LI96(V1099,V1100)  static object LI96(V1118,V1119)
5817    
5818  register object V1099;register object V1100;  register object V1118;register object V1119;
5819  {        VMB87 VMS87 VMV87  {        VMB87 VMS87 VMV87
5820          goto TTL;          goto TTL;
5821  TTL:;  TTL:;
5822          if(((V1100))==(Ct)){          if(((V1119))==(Ct)){
5823          goto T2217;}          goto T2217;}
5824          if(!((CMPcar((V1099)))==(VV[108]))){          if(!((CMPcar((V1118)))==(VV[108]))){
5825          goto T2218;}          goto T2218;}
5826          goto T2217;          goto T2217;
5827  T2217:;  T2217:;
5828          {object V1101 = (V1099);          {object V1120 = (V1118);
5829          VMR87(V1101)}          VMR87(V1120)}
5830          goto T2218;          goto T2218;
5831  T2218:;  T2218:;
5832          {register object V1102;          {register object V1121;
5833          if(!(type_of((V1100))==t_cons)){          if(!(type_of((V1119))==t_cons)){
5834          goto T2224;}          goto T2224;}
5835          if(!((CMPcar((V1100)))==(VV[169]))){          if(!((CMPcar((V1119)))==(VV[169]))){
5836          goto T2224;}          goto T2224;}
5837          V1102= CMPcdr((V1100));          V1121= CMPcdr((V1119));
5838          goto T2222;          goto T2222;
5839          goto T2224;          goto T2224;
5840  T2224:;  T2224:;
5841          V1102= make_cons((V1100),Cnil);          V1121= make_cons((V1119),Cnil);
5842          goto T2222;          goto T2222;
5843  T2222:;  T2222:;
5844          if((CMPcar((V1099)))==(VV[144])){          if((CMPcar((V1118)))==(VV[144])){
5845          goto T2228;}          goto T2228;}
5846          {object V1103;          {object V1122;
5847          object V1104= (V1102);          object V1123= (V1121);
5848          if(V1104==Cnil){          if(V1123==Cnil){
5849          V1102= Cnil;          V1121= Cnil;
5850          goto T2231;}          goto T2231;}
5851          base[0]=V1103=MMcons(Cnil,Cnil);          base[0]=V1122=MMcons(Cnil,Cnil);
5852          goto T2232;          goto T2232;
5853  T2232:;  T2232:;
5854          base[1]= (V1099);          base[1]= (V1118);
5855          base[2]= (V1104->c.c_car);          base[2]= (V1123->c.c_car);
5856          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5857          (void) (*Lnk262)();          (void) (*Lnk262)();
5858          vs_top=sup;          vs_top=sup;
5859          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5860          goto T2235;}          goto T2235;}
5861          (V1103->c.c_cdr)= make_cons((V1104->c.c_car),Cnil);          (V1122->c.c_cdr)= make_cons((V1123->c.c_car),Cnil);
5862          goto T2233;          goto T2233;
5863          goto T2235;          goto T2235;
5864  T2235:;  T2235:;
5865          (V1103->c.c_cdr)= Cnil;          (V1122->c.c_cdr)= Cnil;
5866          goto T2233;          goto T2233;
5867  T2233:;  T2233:;
5868          while(MMcdr(V1103)!=Cnil)V1103=MMcdr(V1103);          while(MMcdr(V1122)!=Cnil)V1122=MMcdr(V1122);
5869          if((V1104=MMcdr(V1104))==Cnil){          if((V1123=MMcdr(V1123))==Cnil){
5870          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
5871          V1102= base[0];          V1121= base[0];
5872          goto T2231;}          goto T2231;}
5873          goto T2232;}          goto T2232;}
5874          goto T2231;          goto T2231;
5875  T2231:;  T2231:;
5876          goto T2228;          goto T2228;
5877  T2228:;  T2228:;
5878          if(((V1102))!=Cnil){          if(((V1121))!=Cnil){
5879          goto T2240;}          goto T2240;}
5880          {object V1106 = (V1099);          {object V1125 = (V1118);
5881          VMR87(V1106)}          VMR87(V1125)}
5882          goto T2240;          goto T2240;
5883  T2240:;  T2240:;
5884          {object V1107 = listA(3,VV[169],(V1099),(V1102));          {object V1126 = listA(3,VV[169],(V1118),(V1121));
5885          VMR87(V1107)}}          VMR87(V1126)}}
5886          base[0]=base[0];          base[0]=base[0];
5887          return Cnil;          return Cnil;
5888  }  }
# Line 5873  static void L97() Line 5892  static void L97()
5892  {register object *base=vs_base;  {register object *base=vs_base;
5893          register object *sup=base+VM88; VC88          register object *sup=base+VM88; VC88
5894          vs_check;          vs_check;
5895          {object V1108;          {object V1127;
5896          object V1109;          object V1128;
5897          check_arg(6);          check_arg(6);
5898          V1108=(base[0]);          V1127=(base[0]);
5899          V1109=(base[1]);          V1128=(base[1]);
5900          vs_top=sup;          vs_top=sup;
5901          goto TTL;          goto TTL;
5902  TTL:;  TTL:;
5903          {object V1110;          {object V1129;
5904          object V1111;          object V1130;
5905          base[10]= (V1108);          base[10]= (V1127);
5906          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5907          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
5908          vs_top=sup;          vs_top=sup;
5909          V1110= vs_base[0];          V1129= vs_base[0];
5910          V1111= STREF(object,(V1110),4);          V1130= STREF(object,(V1129),4);
5911          base[8]= CMPmake_fixnum((long)(*(LnkLI341))((V1110)));          base[8]= CMPmake_fixnum((long)(*(LnkLI341))((V1129)));
5912          base[9]= STREF(object,(V1110),8);          base[9]= STREF(object,(V1129),8);
5913          base[10]= (V1111);          base[10]= (V1130);
5914          base[11]= (V1109);          base[11]= (V1128);
5915          base[12]= Cnil;          base[12]= Cnil;
5916          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5917          L100(base);          L100(base);
# Line 5905  static void L102() Line 5924  static void L102()
5924  {register object *base=vs_base;  {register object *base=vs_base;
5925          register object *sup=base+VM89; VC89          register object *sup=base+VM89; VC89
5926          vs_check;          vs_check;
5927          {object V1112;          {object V1131;
5928          object V1113;          object V1132;
5929          object V1114;          object V1133;
5930          object V1115;          object V1134;
5931          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
5932          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
5933          V1112=(base[0]);          V1131=(base[0]);
5934          V1113=(base[1]);          V1132=(base[1]);
5935          vs_base=vs_base+2;          vs_base=vs_base+2;
5936          if(vs_base>=vs_top){vs_top=sup;goto T2250;}          if(vs_base>=vs_top){vs_top=sup;goto T2250;}
5937          V1114=(base[2]);          V1133=(base[2]);
5938          vs_base++;          vs_base++;
5939          if(vs_base>=vs_top){vs_top=sup;goto T2251;}          if(vs_base>=vs_top){vs_top=sup;goto T2251;}
5940          V1115=(base[3]);          V1134=(base[3]);
5941          vs_top=sup;          vs_top=sup;
5942          goto T2252;          goto T2252;
5943          goto T2250;          goto T2250;
5944  T2250:;  T2250:;
5945          V1114= Cnil;          V1133= Cnil;
5946          goto T2251;          goto T2251;
5947  T2251:;  T2251:;
5948          V1115= Cnil;          V1134= Cnil;
5949          goto T2252;          goto T2252;
5950  T2252:;  T2252:;
5951          base[4]= (VFUN_NARGS=2,(*(LnkLI342))((V1112),(V1113)));          base[4]= (VFUN_NARGS=2,(*(LnkLI342))((V1131),(V1132)));
5952          base[5]= (V1114);          base[5]= (V1133);
5953          base[6]= (V1115);          base[6]= (V1134);
5954          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
5955          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5956                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5942  T2252:; Line 5961  T2252:;
5961  }  }
5962  /*      local entry for function COMPUTE-MCASE-PARAMETERS       */  /*      local entry for function COMPUTE-MCASE-PARAMETERS       */
5963    
5964  static object LI103(V1117)  static object LI103(V1136)
5965    
5966  object V1117;  object V1136;
5967  {        VMB90 VMS90 VMV90  {        VMB90 VMS90 VMV90
5968          goto TTL;          goto TTL;
5969  TTL:;  TTL:;
5970          base[0]= (V1117);          base[0]= (V1136);
5971          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5972          Llast();          Llast();
5973          vs_top=sup;          vs_top=sup;
5974          V1118= vs_base[0];          V1137= vs_base[0];
5975          if((Ct)==(CMPcaar(V1118))){          if((Ct)==(CMPcaar(V1137))){
5976          goto T2258;}          goto T2258;}
5977          base[0]= VV[170];          base[0]= VV[170];
5978          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 5961  TTL:; Line 5980  TTL:;
5980          vs_top=sup;          vs_top=sup;
5981          goto T2258;          goto T2258;
5982  T2258:;  T2258:;
5983          {object V1119;          {object V1138;
5984          object V1120;          object V1139;
5985          object V1121;          object V1140;
5986          {register object V1122;          {register object V1141;
5987          register object V1123;          register object V1142;
5988          V1122= (V1117);          V1141= (V1136);
5989          V1123= CMPcar((V1122));          V1142= CMPcar((V1141));
5990          goto T2268;          goto T2268;
5991  T2268:;  T2268:;
5992          if(!(((V1122))==Cnil)){          if(!(((V1141))==Cnil)){
5993          goto T2269;}          goto T2269;}
5994          V1119= Ct;          V1138= Ct;
5995          goto T2264;          goto T2264;
5996          goto T2269;          goto T2269;
5997  T2269:;  T2269:;
5998          if((CMPcar((V1123)))==(Ct)){          if((CMPcar((V1142)))==(Ct)){
5999          goto T2273;}          goto T2273;}
6000          if(type_of(CMPcaar((V1123)))==t_symbol){          if(type_of(CMPcaar((V1142)))==t_symbol){
6001          goto T2273;}          goto T2273;}
6002          V1119= Cnil;          V1138= Cnil;
6003          goto T2264;          goto T2264;
6004          goto T2273;          goto T2273;
6005  T2273:;  T2273:;
6006          V1122= CMPcdr((V1122));          V1141= CMPcdr((V1141));
6007          V1123= CMPcar((V1122));          V1142= CMPcar((V1141));
6008          goto T2268;}          goto T2268;}
6009          goto T2264;          goto T2264;
6010  T2264:;  T2264:;
6011          V1124 = CMPmake_fixnum((long)length((V1117)));          V1143 = CMPmake_fixnum((long)length((V1136)));
6012          V1120= one_minus(V1124);          V1139= one_minus(V1143);
6013          if(!(number_compare((V1120),small_fixnum(1))==0)){          if(!(number_compare((V1139),small_fixnum(1))==0)){
6014          goto T2286;}          goto T2286;}
6015          V1121= VV[171];          V1140= VV[171];
6016          goto T2284;          goto T2284;
6017          goto T2286;          goto T2286;
6018  T2286:;  T2286:;
6019          if(((V1119))==Cnil){          V1144 = (V1139);
6020            if(((V1138))==Cnil){
6021          goto T2293;}          goto T2293;}
6022          V1125= (VV[172]->s.s_dbind);          V1145= (VV[172]->s.s_dbind);
6023          goto T2291;          goto T2291;
6024          goto T2293;          goto T2293;
6025  T2293:;  T2293:;
6026          V1125= (VV[173]->s.s_dbind);          V1145= (VV[173]->s.s_dbind);
6027          goto T2291;          goto T2291;
6028  T2291:;  T2291:;
6029          if(!(number_compare((V1120),V1125)<=0)){          if(!(number_compare(V1144,V1145)<=0)){
6030          goto T2289;}          goto T2289;}
6031          V1121= VV[174];          V1140= VV[174];
6032          goto T2284;          goto T2284;
6033          goto T2289;          goto T2289;
6034  T2289:;  T2289:;
6035          V1121= VV[175];          V1140= VV[175];
6036          goto T2284;          goto T2284;
6037  T2284:;  T2284:;
6038          {object V1126 = list(2,(V1119),(V1121));          {object V1146 = list(2,(V1138),(V1140));
6039          VMR90(V1126)}}          VMR90(V1146)}}
6040          base[0]=base[0];          base[0]=base[0];
6041          return Cnil;          return Cnil;
6042  }  }
# Line 6028  static void L104() Line 6048  static void L104()
6048          vs_check;          vs_check;
6049          check_arg(2);          check_arg(2);
6050          vs_top=sup;          vs_top=sup;
6051          {object V1127=base[0]->c.c_cdr;          {object V1147=base[0]->c.c_cdr;
6052          if(endp(V1127))invalid_macro_call();          if(endp(V1147))invalid_macro_call();
6053          base[2]= (V1127->c.c_car);          base[2]= (V1147->c.c_car);
6054          V1127=V1127->c.c_cdr;          V1147=V1147->c.c_cdr;
6055          if(endp(V1127))invalid_macro_call();          if(endp(V1147))invalid_macro_call();
6056          base[3]= (V1127->c.c_car);          base[3]= (V1147->c.c_car);
6057          V1127=V1127->c.c_cdr;          V1147=V1147->c.c_cdr;
6058          if(endp(V1127))invalid_macro_call();          if(endp(V1147))invalid_macro_call();
6059          base[4]= (V1127->c.c_car);          base[4]= (V1147->c.c_car);
6060          V1127=V1127->c.c_cdr;          V1147=V1147->c.c_cdr;
6061          if(endp(V1127)){          if(endp(V1147)){
6062          base[5]= Cnil;          base[5]= Cnil;
6063          } else {          } else {
6064          base[5]= (V1127->c.c_car);          base[5]= (V1147->c.c_car);
6065          V1127=V1127->c.c_cdr;}          V1147=V1147->c.c_cdr;}
6066          if(endp(V1127)){          if(endp(V1147)){
6067          base[6]= Cnil;          base[6]= Cnil;
6068          } else {          } else {
6069          base[6]= (V1127->c.c_car);          base[6]= (V1147->c.c_car);
6070          V1127=V1127->c.c_cdr;}          V1147=V1147->c.c_cdr;}
6071          if(!endp(V1127))invalid_macro_call();}          if(!endp(V1147))invalid_macro_call();}
6072          if((base[5])==(Ct)){          if((base[5])==(Ct)){
6073          goto T2297;}          goto T2297;}
6074          if((base[5])==Cnil){          if((base[5])==Cnil){
# Line 6059  static void L104() Line 6079  static void L104()
6079          vs_top=sup;          vs_top=sup;
6080          goto T2297;          goto T2297;
6081  T2297:;  T2297:;
6082          {object V1128= base[6];          {object V1148= base[6];
6083          if((V1128!= VV[171]))goto T2303;          if((V1148!= VV[171]))goto T2303;
6084          if((base[5])==Cnil){          if((base[5])==Cnil){
6085          goto T2306;}          goto T2306;}
6086          V1129= VV[145];          V1149= VV[145];
6087          goto T2304;          goto T2304;
6088          goto T2306;          goto T2306;
6089  T2306:;  T2306:;
6090          V1129= VV[108];          V1149= VV[108];
6091          goto T2304;          goto T2304;
6092  T2304:;  T2304:;
6093          V1130= list(3,V1129,base[2],list(2,VV[177],base[3]));          V1150 = base[2];
6094          base[7]= list(4,VV[165],/* INLINE-ARGS */V1130,list(2,VV[178],base[3]),base[4]);          V1151= list(3,V1149,V1150,list(2,VV[177],base[3]));
6095            base[7]= list(4,VV[165],/* INLINE-ARGS */V1151,list(2,VV[178],base[3]),base[4]);
6096          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6097          return;          return;
6098          goto T2303;          goto T2303;
6099  T2303:;  T2303:;
6100          if((V1128!= VV[174]))goto T2308;          if((V1148!= VV[174]))goto T2308;
6101          V1131= list(3,VV[180],base[3],base[4]);          V1152= list(3,VV[180],base[3],base[4]);
6102          if((base[5])==Cnil){          if((base[5])==Cnil){
6103          goto T2311;}          goto T2311;}
6104          V1132= VV[145];          V1153= VV[145];
6105          goto T2309;          goto T2309;
6106          goto T2311;          goto T2311;
6107  T2311:;  T2311:;
6108          V1132= VV[108];          V1153= VV[108];
6109          goto T2309;          goto T2309;
6110  T2309:;  T2309:;
6111          base[7]= list(3,VV[179],/* INLINE-ARGS */V1131,list(3,VV[181],list(3,V1132,VV[182],base[2]),VV[183]));          V1154 = base[2];
6112            base[7]= list(3,VV[179],/* INLINE-ARGS */V1152,list(3,VV[181],list(3,V1153,VV[182],V1154),VV[183]));
6113          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6114          return;          return;
6115          goto T2308;          goto T2308;
6116  T2308:;  T2308:;
6117          if((V1128!= VV[175]))goto T2313;          if((V1148!= VV[175]))goto T2313;
6118          base[7]= list(4,VV[184],base[2],base[3],base[4]);          base[7]= list(4,VV[184],base[2],base[3],base[4]);
6119          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6120          return;          return;
6121          goto T2313;          goto T2313;
6122  T2313:;  T2313:;
6123          FEerror("The ECASE key value ~s is illegal.",1,V1128);          FEerror("The ECASE key value ~s is illegal.",1,V1148);
6124          base[7]= Cnil;          base[7]= Cnil;
6125          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6126          return;}          return;}
6127  }  }
6128  /*      local entry for function NET-TEST-CONVERTER     */  /*      local entry for function NET-TEST-CONVERTER     */
6129    
6130  static object LI105(V1134)  static object LI105(V1156)
6131    
6132  register object V1134;  register object V1156;
6133  {        VMB92 VMS92 VMV92  {        VMB92 VMS92 VMV92
6134          goto TTL;          goto TTL;
6135  TTL:;  TTL:;
6136          if(!(type_of((V1134))!=t_cons)){          if(!(type_of((V1156))!=t_cons)){
6137          goto T2315;}          goto T2315;}
6138          {object V1135 = (*(LnkLI343))((V1134));          {object V1157 = (*(LnkLI343))((V1156));
6139          VMR92(V1135)}          VMR92(V1157)}
6140          goto T2315;          goto T2315;
6141  T2315:;  T2315:;
6142          {object V1136= CMPcar((V1134));          {object V1158= CMPcar((V1156));
6143          if((V1136!= VV[344])          if((V1158!= VV[344])
6144          && (V1136!= VV[345]))goto T2317;          && (V1158!= VV[345]))goto T2317;
6145          {object V1137 = VV[185];          {object V1159 = VV[185];
6146          VMR92(V1137)}          VMR92(V1159)}
6147          goto T2317;          goto T2317;
6148  T2317:;  T2317:;
6149          if((V1136!= VV[67]))goto T2318;          if((V1158!= VV[67]))goto T2318;
6150          {object V1138 = VV[186];          {object V1160 = VV[186];
6151          VMR92(V1138)}          VMR92(V1160)}
6152          goto T2318;          goto T2318;
6153  T2318:;  T2318:;
6154          if((V1136!= VV[157]))goto T2319;          if((V1158!= VV[157]))goto T2319;
6155          {object V1139 = VV[187];          {object V1161 = VV[187];
6156          VMR92(V1139)}          VMR92(V1161)}
6157          goto T2319;          goto T2319;
6158  T2319:;  T2319:;
6159          if((V1136!= VV[164]))goto T2320;          if((V1158!= VV[164]))goto T2320;
6160          V1140= CMPcadr((V1134));          V1162= CMPcadr((V1156));
6161          {object V1141 = listA(5,VV[188],/* INLINE-ARGS */V1140,Cnil,Cnil,(*(LnkLI346))(CMPcddr((V1134))));          {object V1163 = listA(5,VV[188],/* INLINE-ARGS */V1162,Cnil,Cnil,(*(LnkLI346))(CMPcddr((V1156))));
6162          VMR92(V1141)}          VMR92(V1163)}
6163          goto T2320;          goto T2320;
6164  T2320:;  T2320:;
6165          {object V1142 = (*(LnkLI343))((V1134));          {object V1164 = (*(LnkLI343))((V1156));
6166          VMR92(V1142)}}          VMR92(V1164)}}
6167          return Cnil;          return Cnil;
6168  }  }
6169  /*      function definition for NET-CODE-CONVERTER      */  /*      function definition for NET-CODE-CONVERTER      */
# Line 6150  static void L106() Line 6172  static void L106()
6172  {register object *base=vs_base;  {register object *base=vs_base;
6173          register object *sup=base+VM93; VC93          register object *sup=base+VM93; VC93
6174          vs_check;          vs_check;
6175          {register object V1143;          {register object V1165;
6176          check_arg(1);          check_arg(1);
6177          V1143=(base[0]);          V1165=(base[0]);
6178          vs_top=sup;          vs_top=sup;
6179          goto TTL;          goto TTL;
6180  TTL:;  TTL:;
6181          if(!(type_of((V1143))!=t_cons)){          if(!(type_of((V1165))!=t_cons)){
6182          goto T2322;}          goto T2322;}
6183          base[1]= (V1143);          base[1]= (V1165);
6184          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6185          (void) (*Lnk347)();          (void) (*Lnk347)();
6186          return;          return;
6187          goto T2322;          goto T2322;
6188  T2322:;  T2322:;
6189          {object V1144= CMPcar((V1143));          {object V1166= CMPcar((V1165));
6190          if((V1144!= VV[67])          if((V1166!= VV[67])
6191          && (V1144!= VV[157]))goto T2325;          && (V1166!= VV[157]))goto T2325;
6192          {object V1145;          {object V1167;
6193          vs_base=vs_top;          vs_base=vs_top;
6194          Lgensym();          Lgensym();
6195          vs_top=sup;          vs_top=sup;
6196          V1145= vs_base[0];          V1167= vs_base[0];
6197          base[1]= (V1145);          base[1]= (V1167);
6198          base[2]= make_cons((V1145),Cnil);          base[2]= make_cons((V1167),Cnil);
6199          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6200          return;}          return;}
6201          goto T2325;          goto T2325;
6202  T2325:;  T2325:;
6203          if((V1144!= VV[164]))goto T2329;          if((V1166!= VV[164]))goto T2329;
6204          {object V1146;          {object V1168;
6205          object V1147;          object V1169;
6206          object V1148;          object V1170;
6207          V1146= (*(LnkLI346))(CMPcddr((V1143)));          V1168= (*(LnkLI346))(CMPcddr((V1165)));
6208          vs_base=vs_top;          vs_base=vs_top;
6209          Lgensym();          Lgensym();
6210          vs_top=sup;          vs_top=sup;
6211          V1147= vs_base[0];          V1169= vs_base[0];
6212          vs_base=vs_top;          vs_base=vs_top;
6213          Lgensym();          Lgensym();
6214          vs_top=sup;          vs_top=sup;
6215          V1148= vs_base[0];          V1170= vs_base[0];
6216          base[1]= listA(5,VV[188],CMPcadr((V1143)),(V1147),(V1148),(V1146));          base[1]= listA(5,VV[188],CMPcadr((V1165)),(V1169),(V1170),(V1168));
6217          base[2]= list(2,(V1147),(V1148));          base[2]= list(2,(V1169),(V1170));
6218          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6219          return;}          return;}
6220          goto T2329;          goto T2329;
6221  T2329:;  T2329:;
6222          base[1]= (V1143);          base[1]= (V1165);
6223          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6224          (void) (*Lnk347)();          (void) (*Lnk347)();
6225          return;}          return;}
# Line 6205  T2329:; Line 6227  T2329:;
6227  }  }
6228  /*      local entry for function NET-CONSTANT-CONVERTER */  /*      local entry for function NET-CONSTANT-CONVERTER */
6229    
6230  static object LI107(V1151,V1152)  static object LI107(V1173,V1174)
6231    
6232  register object V1151;object V1152;  register object V1173;object V1174;
6233  {        VMB94 VMS94 VMV94  {        VMB94 VMS94 VMV94
6234          goto TTL;          goto TTL;
6235  TTL:;{object V1153;  TTL:;{object V1175;
6236          {object V1154;          {object V1176;
6237          V1154= (*(LnkLI348))((V1151),(V1152));          V1176= (*(LnkLI348))((V1173),(V1174));
6238          if(((V1154))==Cnil){          if(((V1176))==Cnil){
6239          goto T2340;}          goto T2340;}
6240          V1153= make_cons((V1154),Cnil);          V1175= make_cons((V1176),Cnil);
6241          goto T2337;          goto T2337;
6242          goto T2340;          goto T2340;
6243  T2340:;  T2340:;
6244          V1153= Cnil;}          V1175= Cnil;}
6245          goto T2337;          goto T2337;
6246  T2337:;  T2337:;
6247          if(V1153==Cnil)goto T2336;          if(V1175==Cnil)goto T2336;
6248          {object V1155 = V1153;          {object V1177 = V1175;
6249          VMR94(V1155)}          VMR94(V1177)}
6250          goto T2336;          goto T2336;
6251  T2336:;}  T2336:;}
6252          if(!(type_of((V1151))!=t_cons)){          if(!(type_of((V1173))!=t_cons)){
6253          goto T2343;}          goto T2343;}
6254          {object V1156 = (*(LnkLI349))((V1151));          {object V1178 = (*(LnkLI349))((V1173));
6255          VMR94(V1156)}          VMR94(V1178)}
6256          goto T2343;          goto T2343;
6257  T2343:;  T2343:;
6258          {object V1157= CMPcar((V1151));          {object V1179= CMPcar((V1173));
6259          if((V1157!= VV[164]))goto T2345;          if((V1179!= VV[164]))goto T2345;
6260          {object V1158;          {object V1180;
6261          object V1159;          object V1181;
6262          object V1160;          object V1182;
6263          V1158= (*(LnkLI346))(CMPcddr((V1151)));          V1180= (*(LnkLI346))(CMPcddr((V1173)));
6264          {object V1161;          {object V1183;
6265          object V1162= CMPcddr((V1151));          object V1184= CMPcddr((V1173));
6266          if(V1162==Cnil){          if(V1184==Cnil){
6267          V1159= Cnil;          V1181= Cnil;
6268          goto T2347;}          goto T2347;}
6269          base[3]=V1161=MMcons(Cnil,Cnil);          base[3]=V1183=MMcons(Cnil,Cnil);
6270          goto T2348;          goto T2348;
6271  T2348:;  T2348:;
6272          {object V1164;          {object V1186;
6273          object V1165;          object V1187;
6274          V1164= CMPcar((V1162->c.c_car));          V1186= CMPcar((V1184->c.c_car));
6275          V1165= CMPcadr((V1162->c.c_car));          V1187= CMPcadr((V1184->c.c_car));
6276          if(!(type_of((V1164))==t_cons)){          if(!(type_of((V1186))==t_cons)){
6277          goto T2354;}          goto T2354;}
6278          V1166= CMPcar((V1164));          V1188= CMPcar((V1186));
6279          goto T2352;          goto T2352;
6280          goto T2354;          goto T2354;
6281  T2354:;  T2354:;
6282          V1166= (V1164);          V1188= (V1186);
6283          goto T2352;          goto T2352;
6284  T2352:;  T2352:;
6285          V1167= (*(LnkLI348))((V1165),(V1152));          V1189= (*(LnkLI348))((V1187),(V1174));
6286          (V1161->c.c_car)= make_cons(V1166,/* INLINE-ARGS */V1167);}          (V1183->c.c_car)= make_cons(V1188,/* INLINE-ARGS */V1189);}
6287          if((V1162=MMcdr(V1162))==Cnil){          if((V1184=MMcdr(V1184))==Cnil){
6288          V1159= base[3];          V1181= base[3];
6289          goto T2347;}          goto T2347;}
6290          V1161=MMcdr(V1161)=MMcons(Cnil,Cnil);          V1183=MMcdr(V1183)=MMcons(Cnil,Cnil);
6291          goto T2348;}          goto T2348;}
6292          goto T2347;          goto T2347;
6293  T2347:;  T2347:;
6294          base[3]= (V1159);          base[3]= (V1181);
6295          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6296          Llast();          Llast();
6297          vs_top=sup;          vs_top=sup;
6298          V1168= vs_base[0];          V1190= vs_base[0];
6299          V1160= CMPcar(V1168);          V1182= CMPcar(V1190);
6300          base[3]= (V1159);          V1191 = (V1180);
6301            base[3]= (V1181);
6302          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6303          Lnbutlast();          Lnbutlast();
6304          vs_top=sup;          vs_top=sup;
6305          V1169= vs_base[0];          V1192= vs_base[0];
6306          {object V1170 = list(2,listA(3,VV[189],(V1158),V1169),CMPcdr((V1160)));          {object V1193 = list(2,listA(3,VV[189],V1191,V1192),CMPcdr((V1182)));
6307          VMR94(V1170)}}          VMR94(V1193)}}
6308          goto T2345;          goto T2345;
6309  T2345:;  T2345:;
6310          {object V1171 = (*(LnkLI349))((V1151));          {object V1194 = (*(LnkLI349))((V1173));
6311          VMR94(V1171)}}          VMR94(V1194)}}
6312          base[0]=base[0];          base[0]=base[0];
6313          return Cnil;          return Cnil;
6314  }  }
6315  /*      local entry for function METHODS-CONVERTER      */  /*      local entry for function METHODS-CONVERTER      */
6316    
6317  static object LI108(V1174,V1175)  static object LI108(V1197,V1198)
6318    
6319  register object V1174;object V1175;  register object V1197;object V1198;
6320  {        VMB95 VMS95 VMV95  {        VMB95 VMS95 VMV95
6321          goto TTL;          goto TTL;
6322  TTL:;  TTL:;
6323          if(!(type_of((V1174))==t_cons)){          if(!(type_of((V1197))==t_cons)){
6324          goto T2362;}          goto T2362;}
6325          if(!((CMPcar((V1174)))==(VV[67]))){          if(!((CMPcar((V1197)))==(VV[67]))){
6326          goto T2362;}          goto T2362;}
6327          V1176= (VFUN_NARGS=2,(*(LnkLI350))((V1175),CMPcadr((V1174))));          V1199= (VFUN_NARGS=2,(*(LnkLI350))((V1198),CMPcadr((V1197))));
6328          {object V1177 = make_cons(VV[186],/* INLINE-ARGS */V1176);          {object V1200 = make_cons(VV[186],/* INLINE-ARGS */V1199);
6329          VMR95(V1177)}          VMR95(V1200)}
6330          goto T2362;          goto T2362;
6331  T2362:;  T2362:;
6332          if(!(type_of((V1174))==t_cons)){          if(!(type_of((V1197))==t_cons)){
6333          goto T2367;}          goto T2367;}
6334          if(!((CMPcar((V1174)))==(VV[157]))){          if(!((CMPcar((V1197)))==(VV[157]))){
6335          goto T2367;}          goto T2367;}
6336          {object V1178 = (*(LnkLI351))((V1175));          {object V1201 = (*(LnkLI351))((V1198));
6337          VMR95(V1178)}          VMR95(V1201)}
6338          goto T2367;          goto T2367;
6339  T2367:;  T2367:;
6340          {object V1179 = Cnil;          {object V1202 = Cnil;
6341          VMR95(V1179)}          VMR95(V1202)}
6342          return Cnil;          return Cnil;
6343  }  }
6344  /*      function definition for CONVERT-METHODS */  /*      function definition for CONVERT-METHODS */
# Line 6324  static void L109() Line 6347  static void L109()
6347  {register object *base=vs_base;  {register object *base=vs_base;
6348          register object *sup=base+VM96; VC96          register object *sup=base+VM96; VC96
6349          vs_check;          vs_check;
6350          {register object V1180;          {register object V1203;
6351          object V1181;          object V1204;
6352          object V1182;          object V1205;
6353          check_arg(3);          check_arg(3);
6354          V1180=(base[0]);          V1203=(base[0]);
6355          V1181=(base[1]);          V1204=(base[1]);
6356          V1182=(base[2]);          V1205=(base[2]);
6357          vs_top=sup;          vs_top=sup;
6358          goto TTL;          goto TTL;
6359  TTL:;  TTL:;
6360          if(!(type_of((V1180))==t_cons)){          if(!(type_of((V1203))==t_cons)){
6361          goto T2372;}          goto T2372;}
6362          if(!((CMPcar((V1180)))==(VV[186]))){          if(!((CMPcar((V1203)))==(VV[186]))){
6363          goto T2372;}          goto T2372;}
6364          base[3]= CMPcdr((V1180));          base[3]= CMPcdr((V1203));
6365          base[4]= (V1181);          base[4]= (V1204);
6366          base[5]= (V1182);          base[5]= (V1205);
6367          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
6368          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6369                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6349  TTL:; Line 6372  TTL:;
6372          return;          return;
6373          goto T2372;          goto T2372;
6374  T2372:;  T2372:;
6375          base[3]= (V1180);          base[3]= (V1203);
6376          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6377          return;          return;
6378          }          }
6379  }  }
6380  /*      local entry for function CONVERT-TABLE  */  /*      local entry for function CONVERT-TABLE  */
6381    
6382  static object LI110(V1186,V1187,V1188)  static object LI110(V1209,V1210,V1211)
6383    
6384  object V1186;object V1187;object V1188;  object V1209;object V1210;object V1211;
6385  {        VMB97 VMS97 VMV97  {        VMB97 VMS97 VMV97
6386          goto TTL;          goto TTL;
6387  TTL:;  TTL:;
6388          if(!(type_of((V1186))==t_cons)){          if(!(type_of((V1209))==t_cons)){
6389          goto T2380;}          goto T2380;}
6390          if(!((CMPcar((V1186)))==(VV[189]))){          if(!((CMPcar((V1209)))==(VV[189]))){
6391          goto T2380;}          goto T2380;}
6392          {object V1189;          {object V1212;
6393          object V1190;          object V1213;
6394          {object V1191;          {object V1214;
6395          object V1192= CMPcddr((V1186));          object V1215= CMPcddr((V1209));
6396          if(V1192==Cnil){          if(V1215==Cnil){
6397          V1189= Cnil;          V1212= Cnil;
6398          goto T2384;}          goto T2384;}
6399          base[0]=V1191=MMcons(Cnil,Cnil);          base[0]=V1214=MMcons(Cnil,Cnil);
6400          goto T2385;          goto T2385;
6401  T2385:;  T2385:;
6402          V1194= CMPcar((V1192->c.c_car));          V1217= CMPcar((V1215->c.c_car));
6403          base[1]= CMPcdr((V1192->c.c_car));          base[1]= CMPcdr((V1215->c.c_car));
6404          base[2]= (V1187);          base[2]= (V1210);
6405          base[3]= (V1188);          base[3]= (V1211);
6406          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6407          (void) (*Lnk352)();          (void) (*Lnk352)();
6408          vs_top=sup;          vs_top=sup;
6409          V1195= vs_base[0];          V1218= vs_base[0];
6410          (V1191->c.c_car)= make_cons(/* INLINE-ARGS */V1194,V1195);          (V1214->c.c_car)= make_cons(/* INLINE-ARGS */V1217,V1218);
6411          if((V1192=MMcdr(V1192))==Cnil){          if((V1215=MMcdr(V1215))==Cnil){
6412          V1189= base[0];          V1212= base[0];
6413          goto T2384;}          goto T2384;}
6414          V1191=MMcdr(V1191)=MMcons(Cnil,Cnil);          V1214=MMcdr(V1214)=MMcons(Cnil,Cnil);
6415          goto T2385;}          goto T2385;}
6416          goto T2384;          goto T2384;
6417  T2384:;  T2384:;
6418          V1190= CMPcadr((V1186));          V1213= CMPcadr((V1209));
6419          {object V1196= CMPcadr((V1190));          {object V1219= CMPcadr((V1213));
6420          if((V1196!= VV[171]))goto T2392;          if((V1219!= VV[171]))goto T2392;
6421          {object V1197 = CMPcar((V1189));          {object V1220 = CMPcar((V1212));
6422          VMR97(V1197)}          VMR97(V1220)}
6423          goto T2392;          goto T2392;
6424  T2392:;  T2392:;
6425          if((V1196!= VV[174]))goto T2393;          if((V1219!= VV[174]))goto T2393;
6426          {object V1198 = (V1189);          {object V1221 = (V1212);
6427          VMR97(V1198)}          VMR97(V1221)}
6428          goto T2393;          goto T2393;
6429  T2393:;  T2393:;
6430          if((V1196!= VV[175]))goto T2394;          if((V1219!= VV[175]))goto T2394;
6431          {register object V1199;          {register object V1222;
6432          base[0]= VV[190];          base[0]= VV[190];
6433          if((CMPcar((V1190)))==Cnil){          if((CMPcar((V1213)))==Cnil){
6434          goto T2399;}          goto T2399;}
6435          base[1]= VV[145];          base[1]= VV[145];
6436          goto T2397;          goto T2397;
# Line 6419  T2397:; Line 6442  T2397:;
6442          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6443          Lmake_hash_table();          Lmake_hash_table();
6444          vs_top=sup;          vs_top=sup;
6445          V1199= vs_base[0];          V1222= vs_base[0];
6446          {register object V1200;          {register object V1223;
6447          register object V1201;          register object V1224;
6448          V1200= (V1189);          V1223= (V1212);
6449          V1201= CMPcar((V1200));          V1224= CMPcar((V1223));
6450          goto T2405;          goto T2405;
6451  T2405:;  T2405:;
6452          if(!(((V1200))==Cnil)){          if(!(((V1223))==Cnil)){
6453          goto T2406;}          goto T2406;}
6454          goto T2401;          goto T2401;
6455          goto T2406;          goto T2406;
6456  T2406:;  T2406:;
6457          {register object V1202;          {register object V1225;
6458          register object V1203;          register object V1226;
6459          register object V1204;          register object V1227;
6460          V1202= CMPcar((V1201));          V1225= CMPcar((V1224));
6461          V1203= (V1199);          V1226= (V1222);
6462          V1204= CMPcdr((V1201));          V1227= CMPcdr((V1224));
6463          base[3]= (V1202);          base[3]= (V1225);
6464          base[4]= (V1203);          base[4]= (V1226);
6465          base[5]= (V1204);          base[5]= (V1227);
6466          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
6467          siLhash_set();          siLhash_set();
6468          vs_top=sup;}          vs_top=sup;}
6469          V1200= CMPcdr((V1200));          V1223= CMPcdr((V1223));
6470          V1201= CMPcar((V1200));          V1224= CMPcar((V1223));
6471          goto T2405;}          goto T2405;}
6472          goto T2401;          goto T2401;
6473  T2401:;  T2401:;
6474          {object V1205 = (V1199);          {object V1228 = (V1222);
6475          VMR97(V1205)}}          VMR97(V1228)}}
6476          goto T2394;          goto T2394;
6477  T2394:;  T2394:;
6478          FEerror("The ECASE key value ~s is illegal.",1,V1196);          FEerror("The ECASE key value ~s is illegal.",1,V1219);
6479          {object V1206 = Cnil;          {object V1229 = Cnil;
6480          VMR97(V1206)}}}          VMR97(V1229)}}}
6481          goto T2380;          goto T2380;
6482  T2380:;  T2380:;
6483          {object V1207 = Cnil;          {object V1230 = Cnil;
6484          VMR97(V1207)}          VMR97(V1230)}
6485          base[0]=base[0];          base[0]=base[0];
6486          return Cnil;          return Cnil;
6487  }  }
6488  /*      local entry for function COMPUTE-SECONDARY-DISPATCH-FUNCTION1   */  /*      local entry for function COMPUTE-SECONDARY-DISPATCH-FUNCTION1   */
6489    
6490  static object LI111(object V1209,object V1208,object first,...)  static object LI111(object V1232,object V1231,object first,...)
6491  {        {      
6492          va_list ap;          va_list ap;
6493          int narg = VFUN_NARGS; VMB98 VMS98 VMV98          int narg = VFUN_NARGS; VMB98 VMS98 VMV98
6494          {object V1210;          {object V1233;
6495          va_start(ap,first);          va_start(ap,first);
6496          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
6497          Vcs[0]=MMcons(V1209,Cnil);          Vcs[0]=MMcons(V1232,Cnil);
6498          V1210= V1208;          V1233= V1231;
6499          narg = narg - 2;          narg = narg - 2;
6500          if (narg <= 0) goto T2422;          if (narg <= 0) goto T2422;
6501          else {          else {
# Line 6484  T2422:; Line 6507  T2422:;
6507          Vcs[2]=MMcons(Vcs[2],Vcs[0]);          Vcs[2]=MMcons(Vcs[2],Vcs[0]);
6508          goto T2423;          goto T2423;
6509  T2423:;  T2423:;
6510          if(!((CMPcar((V1210)))==(VV[67]))){          if(!((CMPcar((V1233)))==(VV[67]))){
6511          goto T2426;}          goto T2426;}
6512          if(((Vcs[2]->c.c_car))!=Cnil){          if(((Vcs[2]->c.c_car))!=Cnil){
6513          goto T2426;}          goto T2426;}
6514          {object V1211 = (VFUN_NARGS=2,(*(LnkLI350))((Vcs[0]->c.c_car),CMPcadr((V1210))));          {object V1234 = (VFUN_NARGS=2,(*(LnkLI350))((Vcs[0]->c.c_car),CMPcadr((V1233))));
6515          VMR98(V1211)}          VMR98(V1234)}
6516          goto T2426;          goto T2426;
6517  T2426:;  T2426:;
6518          {object V1212;          {object V1235;
6519          object V1213;          object V1236;
6520          object V1214;          object V1237;
6521          base[5]= (Vcs[0]->c.c_car);          base[5]= (Vcs[0]->c.c_car);
6522          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6523          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
# Line 6505  T2426:; Line 6528  T2426:;
6528          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6529          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
6530          vs_top=sup;          vs_top=sup;
6531          V1212= vs_base[0];          V1235= vs_base[0];
6532          V1213= STREF(object,(V1212),8);          V1236= STREF(object,(V1235),8);
6533          V1214= (*(LnkLI353))((V1212));          V1237= (*(LnkLI353))((V1235));
6534          V1215 = CMPmake_fixnum((long)length((V1213)));          V1238 = CMPmake_fixnum((long)length((V1236)));
6535          base[4]= make_cons(V1215,(V1214));          base[4]= make_cons(V1238,(V1237));
6536          base[4]=MMcons(base[4],base[0]);          base[4]=MMcons(base[4],base[0]);
6537          V1216= list(2,VV[193],(V1210));          V1239= list(2,VV[193],(V1233));
6538          V1217= make_cons(/* INLINE-ARGS */V1216,Cnil);          V1240= make_cons(/* INLINE-ARGS */V1239,Cnil);
6539          V1218= list(3,VV[191],VV[192],list(3,VV[158],/* INLINE-ARGS */V1217,(VFUN_NARGS=3,(*(LnkLI355))((V1213),(V1214),VV[193]))));          V1241= list(3,VV[191],VV[192],list(3,VV[158],/* INLINE-ARGS */V1240,(VFUN_NARGS=3,(*(LnkLI355))((V1236),(V1237),VV[193]))));
6540          V1219= make_cons(/* INLINE-ARGS */V1218,Cnil);          V1242= make_cons(/* INLINE-ARGS */V1241,Cnil);
6541          base[7]= (*(LnkLI354))((Vcs[2]->c.c_car),(V1213),(V1214),/* INLINE-ARGS */V1219);          base[7]= (*(LnkLI354))((Vcs[2]->c.c_car),(V1236),(V1237),/* INLINE-ARGS */V1242);
6542          base[8]= (VV[356]->s.s_gfdef);          base[8]= (VV[356]->s.s_gfdef);
6543          base[9]= (VV[357]->s.s_gfdef);          base[9]= (VV[357]->s.s_gfdef);
6544          base[10]=          base[10]=
# Line 6537  T2443:; Line 6560  T2443:;
6560          base[6]=MMcons(Cnil,base[5]);          base[6]=MMcons(Cnil,base[5]);
6561          goto T2444;          goto T2444;
6562  T2444:;  T2444:;
6563          {object V1220 =          {object V1243 =
6564          make_cclosure_new(LC133,Cnil,base[6],Cdata);          make_cclosure_new(LC133,Cnil,base[6],Cdata);
6565          VMR98(V1220)}}          VMR98(V1243)}}
6566          va_end(ap);          va_end(ap);
6567          base[0]=base[0];          base[0]=base[0];
6568          return Cnil;}          return Cnil;}
6569          }          }
6570  /*      local entry for function MAKE-UNORDERED-METHODS-EMF     */  /*      local entry for function MAKE-UNORDERED-METHODS-EMF     */
6571    
6572  static object LI113(V1223,V1224)  static object LI113(V1246,V1247)
6573    
6574  object V1223;object V1224;  object V1246;object V1247;
6575  {        VMB99 VMS99 VMV99  {        VMB99 VMS99 VMV99
6576          goto TTL;          goto TTL;
6577  TTL:;  TTL:;
6578          base[0]=MMcons((V1224),Cnil);          base[0]=MMcons((V1247),Cnil);
6579          base[1]=MMcons((V1223),base[0]);          base[1]=MMcons((V1246),base[0]);
6580          if(((VV[196]->s.s_dbind))==Cnil){          if(((VV[196]->s.s_dbind))==Cnil){
6581          goto T2445;}          goto T2445;}
6582          base[2]= Ct;          base[2]= Ct;
# Line 6568  TTL:; Line 6591  TTL:;
6591          vs_top=sup;          vs_top=sup;
6592          goto T2445;          goto T2445;
6593  T2445:;  T2445:;
6594          {object V1225 =          {object V1248 =
6595          make_cclosure_new(LC134,Cnil,base[1],Cdata);          make_cclosure_new(LC134,Cnil,base[1],Cdata);
6596          VMR99(V1225)}          VMR99(V1248)}
6597          base[0]=base[0];          base[0]=base[0];
6598          return Cnil;          return Cnil;
6599  }  }
# Line 6580  static void L114() Line 6603  static void L114()
6603  {register object *base=vs_base;  {register object *base=vs_base;
6604          register object *sup=base+VM100; VC100          register object *sup=base+VM100; VC100
6605          vs_check;          vs_check;
6606          {object V1226;          {object V1249;
6607          object V1227;          object V1250;
6608          object V1228;          object V1251;
6609          check_arg(3);          check_arg(3);
6610          V1226=(base[0]);          V1249=(base[0]);
6611          V1227=(base[1]);          V1250=(base[1]);
6612          V1228=(base[2]);          V1251=(base[2]);
6613          vs_top=sup;          vs_top=sup;
6614          goto TTL;          goto TTL;
6615  TTL:;  TTL:;
6616          base[4]= (V1228);          base[4]= (V1251);
6617          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6618          (void) (*Lnk359)(Lclptr359);          (void) (*Lnk359)(Lclptr359);
6619          vs_top=sup;          vs_top=sup;
6620          base[3]= vs_base[0];          base[3]= vs_base[0];
6621          base[4]= (V1227);          base[4]= (V1250);
6622          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6623          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6624                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6610  static void L115() Line 6633  static void L115()
6633  {register object *base=vs_base;  {register object *base=vs_base;
6634          register object *sup=base+VM101; VC101          register object *sup=base+VM101; VC101
6635          vs_check;          vs_check;
6636          {object V1229;          {object V1252;
6637          object V1230;          object V1253;
6638          object V1231;          object V1254;
6639          object V1232;          object V1255;
6640          check_arg(4);          check_arg(4);
6641          V1229=(base[0]);          V1252=(base[0]);
6642          V1230=(base[1]);          V1253=(base[1]);
6643          V1231=(base[2]);          V1254=(base[2]);
6644          V1232=(base[3]);          V1255=(base[3]);
6645          vs_top=sup;          vs_top=sup;
6646          goto TTL;          goto TTL;
6647  TTL:;  TTL:;
6648          base[5]= (V1232);          base[5]= (V1255);
6649          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6650          (void) (*Lnk360)(Lclptr360);          (void) (*Lnk360)(Lclptr360);
6651          vs_top=sup;          vs_top=sup;
6652          base[4]= vs_base[0];          base[4]= vs_base[0];
6653          base[5]= (V1229);          base[5]= (V1252);
6654          base[6]= (V1231);          base[6]= (V1254);
6655          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
6656          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6657                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6643  static void L116() Line 6666  static void L116()
6666  {register object *base=vs_base;  {register object *base=vs_base;
6667          register object *sup=base+VM102; VC102          register object *sup=base+VM102; VC102
6668          vs_check;          vs_check;
6669          {object V1233;          {object V1256;
6670          object V1234;          object V1257;
6671          object V1235;          object V1258;
6672          check_arg(3);          check_arg(3);
6673          V1233=(base[0]);          V1256=(base[0]);
6674          V1234=(base[1]);          V1257=(base[1]);
6675          V1235=(base[2]);          V1258=(base[2]);
6676          vs_top=sup;          vs_top=sup;
6677          goto TTL;          goto TTL;
6678  TTL:;  TTL:;
6679          base[4]= (V1235);          base[4]= (V1258);
6680          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6681          (void) (*Lnk361)(Lclptr361);          (void) (*Lnk361)(Lclptr361);
6682          vs_top=sup;          vs_top=sup;
6683          base[3]= vs_base[0];          base[3]= vs_base[0];
6684          base[4]= (V1234);          base[4]= (V1257);
6685          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6686          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6687                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6673  static void L117() Line 6696  static void L117()
6696  {register object *base=vs_base;  {register object *base=vs_base;
6697          register object *sup=base+VM103; VC103          register object *sup=base+VM103; VC103
6698          vs_check;          vs_check;
6699          {object V1236;          {object V1259;
6700          object V1237;          object V1260;
6701          register object V1238;          register object V1261;
6702          check_arg(3);          check_arg(3);
6703          V1236=(base[0]);          V1259=(base[0]);
6704          V1237=(base[1]);          V1260=(base[1]);
6705          V1238=(base[2]);          V1261=(base[2]);
6706          vs_top=sup;          vs_top=sup;
6707          goto TTL;          goto TTL;
6708  TTL:;  TTL:;
6709          {register object V1240;          {register object V1263;
6710          object V1241;          object V1264;
6711          V1240= CMPcar((V1236));          V1263= CMPcar((V1259));
6712          V1241= CMPcdr((V1236));          V1264= CMPcdr((V1259));
6713          {object V1242;          {object V1265;
6714          if(type_of(V1238)==t_structure){          if(type_of(V1261)==t_structure){
6715          goto T2472;}          goto T2472;}
6716          goto T2470;          goto T2470;
6717          goto T2472;          goto T2472;
6718  T2472:;  T2472:;
6719          if(!(((V1238)->str.str_def)==(VV[198]))){          if(!(((V1261)->str.str_def)==(VV[198]))){
6720          goto T2470;}          goto T2470;}
6721          V1242= STREF(object,(V1238),4);          V1265= STREF(object,(V1261),4);
6722          goto T2468;          goto T2468;
6723          goto T2470;          goto T2470;
6724  T2470:;{object V1244;  T2470:;{object V1267;
6725          V1244= (VV[13]->s.s_dbind);          V1267= (VV[13]->s.s_dbind);
6726          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
6727          base[4]= (V1238);          base[4]= (V1261);
6728          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6729          (void) (*Lnk215)();          (void) (*Lnk215)();
6730          vs_top=sup;          vs_top=sup;
6731          V1245= vs_base[0];          V1268= vs_base[0];
6732          if(!((V1244)==(CMPcar(V1245)))){          if(!((V1267)==(CMPcar(V1268)))){
6733          goto T2475;}}          goto T2475;}}
6734          V1242= CMPcar(((V1238))->cc.cc_turbo[12]);          V1265= CMPcar(((V1261))->cc.cc_turbo[12]);
6735          goto T2468;          goto T2468;
6736          goto T2475;          goto T2475;
6737  T2475:;  T2475:;
6738          V1242= Cnil;          V1265= Cnil;
6739          goto T2468;          goto T2468;
6740  T2468:;  T2468:;
6741          {register object V1247;          {register object V1270;
6742          {register object V1248;          {register object V1271;
6743          V1248= ((V1240))->v.v_self[2];          V1271= ((V1263))->v.v_self[2];
6744          if(!(type_of(V1248)==t_fixnum)){          if(!(type_of(V1271)==t_fixnum)){
6745          goto T2487;}          goto T2487;}
6746          V1248= ((V1242))->v.v_self[fix((V1248))];          V1271= ((V1265))->v.v_self[fix((V1271))];
6747          goto T2485;          goto T2485;
6748          goto T2487;          goto T2487;
6749  T2487:;  T2487:;
6750          V1248= VV[14];          V1271= VV[14];
6751          goto T2485;          goto T2485;
6752  T2485:;  T2485:;
6753          if(!(((V1248))==(VV[14]))){          if(!(((V1271))==(VV[14]))){
6754          goto T2490;}          goto T2490;}
6755          base[3]= (V1238);          base[3]= (V1261);
6756          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6757          (void) (*Lnk362)(Lclptr362);          (void) (*Lnk362)(Lclptr362);
6758          vs_top=sup;          vs_top=sup;
6759          V1247= vs_base[0];          V1270= vs_base[0];
6760          goto T2482;          goto T2482;
6761          goto T2490;          goto T2490;
6762  T2490:;  T2490:;
6763          V1247= (V1248);}          V1270= (V1271);}
6764          goto T2482;          goto T2482;
6765  T2482:;  T2482:;
6766          if(!(((V1247))==Cnil)){          if(!(((V1270))==Cnil)){
6767          goto T2494;}          goto T2494;}
6768          {object V1250;          {object V1273;
6769          base[3]= (V1238);          base[3]= (V1261);
6770          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6771          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
6772          vs_top=sup;          vs_top=sup;
6773          V1250= vs_base[0];          V1273= vs_base[0];
6774          if(!(((V1250))==(VV[115]))){          if(!(((V1273))==(VV[115]))){
6775          goto T2498;}          goto T2498;}
6776          (void)((*(LnkLI363))((V1238)));          (void)((*(LnkLI363))((V1261)));
6777          goto T2498;          goto T2498;
6778  T2498:;  T2498:;
6779          if(!(((V1250))==(VV[199]))){          if(!(((V1273))==(VV[199]))){
6780          goto T2502;}          goto T2502;}
6781          base[3]= (V1238);          base[3]= (V1261);
6782          base[4]= VV[119];          base[4]= VV[119];
6783          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6784          (void) (*Lnk364)();          (void) (*Lnk364)();
# Line 6765  T2498:; Line 6788  T2498:;
6788          return;          return;
6789          goto T2502;          goto T2502;
6790  T2502:;  T2502:;
6791          if(!(equal((V1250),VV[200]))){          if(!(equal((V1273),VV[200]))){
6792          goto T2508;}          goto T2508;}
6793          base[3]= (V1238);          base[3]= (V1261);
6794          base[4]= VV[121];          base[4]= VV[121];
6795          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6796          (void) (*Lnk364)();          (void) (*Lnk364)();
# Line 6777  T2502:; Line 6800  T2502:;
6800          return;          return;
6801          goto T2508;          goto T2508;
6802  T2508:;  T2508:;
6803          if(!(((V1250))==(VV[201]))){          if(!(((V1273))==(VV[201]))){
6804          goto T2514;}          goto T2514;}
6805          base[3]= (V1238);          base[3]= (V1261);
6806          base[4]= VV[123];          base[4]= VV[123];
6807          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6808          (void) (*Lnk364)();          (void) (*Lnk364)();
# Line 6789  T2508:; Line 6812  T2508:;
6812          return;          return;
6813          goto T2514;          goto T2514;
6814  T2514:;  T2514:;
6815          {register object V1252;          {register object V1275;
6816          V1252= ((V1240))->v.v_self[1];          V1275= ((V1263))->v.v_self[1];
6817          if(!(type_of(V1252)==t_fixnum)){          if(!(type_of(V1275)==t_fixnum)){
6818          goto T2527;}          goto T2527;}
6819          V1252= ((V1242))->v.v_self[fix((V1252))];          V1275= ((V1265))->v.v_self[fix((V1275))];
6820          goto T2525;          goto T2525;
6821          goto T2527;          goto T2527;
6822  T2527:;  T2527:;
6823          V1252= VV[14];          V1275= VV[14];
6824          goto T2525;          goto T2525;
6825  T2525:;  T2525:;
6826          if(!(((V1252))==(VV[14]))){          if(!(((V1275))==(VV[14]))){
6827          goto T2530;}          goto T2530;}
6828          base[3]= (V1238);          base[3]= (V1261);
6829          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6830          (void) (*Lnk285)(Lclptr285);          (void) (*Lnk285)(Lclptr285);
6831          vs_top=sup;          vs_top=sup;
6832          V1251= vs_base[0];          V1274= vs_base[0];
6833          goto T2522;          goto T2522;
6834          goto T2530;          goto T2530;
6835  T2530:;  T2530:;
6836          V1251= (V1252);}          V1274= (V1275);}
6837          goto T2522;          goto T2522;
6838  T2522:;  T2522:;
6839          if((STREF(object,V1251,28))==Cnil){          if((STREF(object,V1274,28))==Cnil){
6840          goto T2520;}          goto T2520;}
6841          base[3]= (VFUN_NARGS=1,(*(LnkLI368))((V1238)));          base[3]= (VFUN_NARGS=1,(*(LnkLI368))((V1261)));
6842          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6843          return;          return;
6844          goto T2520;          goto T2520;
6845  T2520:;  T2520:;
6846          base[3]= (*(LnkLI369))((V1238));          base[3]= (*(LnkLI369))((V1261));
6847          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6848          return;}          return;}
6849          goto T2494;          goto T2494;
6850  T2494:;  T2494:;
6851          base[3]= (V1247);          base[3]= (V1270);
6852          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6853          Lfunctionp();          Lfunctionp();
6854          vs_top=sup;          vs_top=sup;
6855          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6856          goto T2534;}          goto T2534;}
6857          {register object V1254;          {register object V1277;
6858          V1254= ((V1240))->v.v_self[2];          V1277= ((V1263))->v.v_self[2];
6859          if(!(type_of(V1254)==t_fixnum)){          if(!(type_of(V1277)==t_fixnum)){
6860          goto T2541;}          goto T2541;}
6861          V1254= ((V1242))->v.v_self[fix((V1254))];          V1277= ((V1265))->v.v_self[fix((V1277))];
6862          goto T2539;          goto T2539;
6863          goto T2541;          goto T2541;
6864  T2541:;  T2541:;
6865          V1254= VV[14];          V1277= VV[14];
6866          goto T2539;          goto T2539;
6867  T2539:;  T2539:;
6868          if(!(((V1254))==(VV[14]))){          if(!(((V1277))==(VV[14]))){
6869          goto T2544;}          goto T2544;}
6870          base[3]= (V1238);          base[3]= (V1261);
6871          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6872          (void) (*Lnk362)(Lclptr362);          (void) (*Lnk362)(Lclptr362);
6873          return;          return;
6874          goto T2544;          goto T2544;
6875  T2544:;  T2544:;
6876          base[3]= (V1254);          base[3]= (V1277);
6877          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6878          return;}          return;}
6879          goto T2534;          goto T2534;
6880  T2534:;  T2534:;
6881          if(!(type_of((V1247))==t_cons)){          if(!(type_of((V1270))==t_cons)){
6882          goto T2548;}          goto T2548;}
6883          {register object V1257;          {register object V1280;
6884          V1257= ((V1240))->v.v_self[2];          V1280= ((V1263))->v.v_self[2];
6885          if(!(type_of(V1257)==t_fixnum)){          if(!(type_of(V1280)==t_fixnum)){
6886          goto T2555;}          goto T2555;}
6887          V1257= ((V1242))->v.v_self[fix((V1257))];          V1280= ((V1265))->v.v_self[fix((V1280))];
6888          goto T2553;          goto T2553;
6889          goto T2555;          goto T2555;
6890  T2555:;  T2555:;
6891          V1257= VV[14];          V1280= VV[14];
6892          goto T2553;          goto T2553;
6893  T2553:;  T2553:;
6894          if(!(((V1257))==(VV[14]))){          if(!(((V1280))==(VV[14]))){
6895          goto T2558;}          goto T2558;}
6896          base[3]= (V1238);          base[3]= (V1261);
6897          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6898          (void) (*Lnk362)(Lclptr362);          (void) (*Lnk362)(Lclptr362);
6899          vs_top=sup;          vs_top=sup;
6900          V1256= vs_base[0];          V1279= vs_base[0];
6901          goto T2550;          goto T2550;
6902          goto T2558;          goto T2558;
6903  T2558:;  T2558:;
6904          V1256= (V1257);}          V1279= (V1280);}
6905          goto T2550;          goto T2550;
6906  T2550:;  T2550:;
6907          base[3]= CMPcar(V1256);          base[3]= CMPcar(V1279);
6908          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6909          return;          return;
6910          goto T2548;          goto T2548;
# Line 6893  T2548:; Line 6916  T2548:;
6916  }  }
6917  /*      local entry for function (FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T))     */  /*      local entry for function (FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T))     */
6918    
6919  static object LI118(V1263,V1264,V1265,V1266)  static object LI118(V1286,V1287,V1288,V1289)
6920    
6921  object V1263;object V1264;object V1265;register object V1266;  object V1286;object V1287;object V1288;register object V1289;
6922  {        VMB104 VMS104 VMV104  {        VMB104 VMS104 VMV104
6923          bds_check;          bds_check;
6924          goto TTL;          goto TTL;
6925  TTL:;  TTL:;
6926          {object V1268;          {object V1291;
6927          base[1]= (V1266);          base[1]= (V1289);
6928          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6929          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
6930          vs_top=sup;          vs_top=sup;
6931          V1268= vs_base[0];          V1291= vs_base[0];
6932          bds_bind(VV[126],(V1265));          bds_bind(VV[126],(V1288));
6933          if((STREF(object,(V1268),28))==Cnil){          if((STREF(object,(V1291),28))==Cnil){
6934          goto T2567;}          goto T2567;}
6935          {object V1269;          {object V1292;
6936          object V1270;          object V1293;
6937          object V1271;          object V1294;
6938          base[1]= (V1266);          base[1]= (V1289);
6939          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6940          (void) (*Lnk370)();          (void) (*Lnk370)();
6941          if(vs_base>=vs_top){vs_top=sup;goto T2571;}          if(vs_base>=vs_top){vs_top=sup;goto T2571;}
6942          V1269= vs_base[0];          V1292= vs_base[0];
6943          vs_base++;          vs_base++;
6944          if(vs_base>=vs_top){vs_top=sup;goto T2572;}          if(vs_base>=vs_top){vs_top=sup;goto T2572;}
6945          V1270= vs_base[0];          V1293= vs_base[0];
6946          vs_base++;          vs_base++;
6947          if(vs_base>=vs_top){vs_top=sup;goto T2573;}          if(vs_base>=vs_top){vs_top=sup;goto T2573;}
6948          V1271= vs_base[0];          V1294= vs_base[0];
6949          vs_top=sup;          vs_top=sup;
6950          goto T2574;          goto T2574;
6951          goto T2571;          goto T2571;
6952  T2571:;  T2571:;
6953          V1269= Cnil;          V1292= Cnil;
6954          goto T2572;          goto T2572;
6955  T2572:;  T2572:;
6956          V1270= Cnil;          V1293= Cnil;
6957          goto T2573;          goto T2573;
6958  T2573:;  T2573:;
6959          V1271= Cnil;          V1294= Cnil;
6960          goto T2574;          goto T2574;
6961  T2574:;  T2574:;
6962          (void)((VFUN_NARGS=4,(*(LnkLI371))((V1266),(V1269),(V1270),(V1271))));          (void)((VFUN_NARGS=4,(*(LnkLI371))((V1289),(V1292),(V1293),(V1294))));
6963          {object V1272 = (VFUN_NARGS=4,(*(LnkLI288))((V1266),(V1269),(V1270),(V1271)));          {object V1295 = (VFUN_NARGS=4,(*(LnkLI288))((V1289),(V1292),(V1293),(V1294)));
6964          bds_unwind1;          bds_unwind1;
6965          VMR104(V1272)}}          VMR104(V1295)}}
6966          goto T2567;          goto T2567;
6967  T2567:;  T2567:;
6968          {object V1273 = Cnil;          {object V1296 = Cnil;
6969          bds_unwind1;          bds_unwind1;
6970          VMR104(V1273)}}          VMR104(V1296)}}
6971          base[0]=base[0];          base[0]=base[0];
6972          return Cnil;          return Cnil;
6973  }  }
# Line 6954  static void L119() Line 6977  static void L119()
6977  {register object *base=vs_base;  {register object *base=vs_base;
6978          register object *sup=base+VM105; VC105          register object *sup=base+VM105; VC105
6979          vs_check;          vs_check;
6980          {object V1274;          {object V1297;
6981          object V1275;          object V1298;
6982          register object V1276;          register object V1299;
6983          check_arg(3);          check_arg(3);
6984          V1274=(base[0]);          V1297=(base[0]);
6985          V1275=(base[1]);          V1298=(base[1]);
6986          V1276=(base[2]);          V1299=(base[2]);
6987          vs_top=sup;          vs_top=sup;
6988          goto TTL;          goto TTL;
6989  TTL:;  TTL:;
6990          {object V1278;          {object V1301;
6991          object V1279;          object V1302;
6992          object V1280;          object V1303;
6993          object V1281;          object V1304;
6994          object V1282;          object V1305;
6995          object V1283;          object V1306;
6996          if(!(type_of((V1276))==t_cons)){          if(!(type_of((V1299))==t_cons)){
6997          goto T2582;}          goto T2582;}
6998          base[3]= (*(LnkLI372))((V1276));          base[3]= (*(LnkLI372))((V1299));
6999          goto T2580;          goto T2580;
7000          goto T2582;          goto T2582;
7001  T2582:;  T2582:;
7002          base[4]= (V1276);          base[4]= (V1299);
7003          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7004          (void) (*Lnk283)(Lclptr283);          (void) (*Lnk283)(Lclptr283);
7005          vs_top=sup;          vs_top=sup;
# Line 6986  T2580:; Line 7009  T2580:;
7009          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7010          (void) (*Lnk373)();          (void) (*Lnk373)();
7011          if(vs_base>=vs_top){vs_top=sup;goto T2585;}          if(vs_base>=vs_top){vs_top=sup;goto T2585;}
7012          V1278= vs_base[0];          V1301= vs_base[0];
7013          vs_base++;          vs_base++;
7014          if(vs_base>=vs_top){vs_top=sup;goto T2586;}          if(vs_base>=vs_top){vs_top=sup;goto T2586;}
7015          V1279= vs_base[0];          V1302= vs_base[0];
7016          vs_base++;          vs_base++;
7017          if(vs_base>=vs_top){vs_top=sup;goto T2587;}          if(vs_base>=vs_top){vs_top=sup;goto T2587;}
7018          V1280= vs_base[0];          V1303= vs_base[0];
7019          vs_base++;          vs_base++;
7020          if(vs_base>=vs_top){vs_top=sup;goto T2588;}          if(vs_base>=vs_top){vs_top=sup;goto T2588;}
7021          V1281= vs_base[0];          V1304= vs_base[0];
7022          vs_base++;          vs_base++;
7023          if(vs_base>=vs_top){vs_top=sup;goto T2589;}          if(vs_base>=vs_top){vs_top=sup;goto T2589;}
7024          V1282= vs_base[0];          V1305= vs_base[0];
7025          vs_base++;          vs_base++;
7026          if(vs_base>=vs_top){vs_top=sup;goto T2590;}          if(vs_base>=vs_top){vs_top=sup;goto T2590;}
7027          V1283= vs_base[0];          V1306= vs_base[0];
7028          vs_top=sup;          vs_top=sup;
7029          goto T2591;          goto T2591;
7030          goto T2585;          goto T2585;
7031  T2585:;  T2585:;
7032          V1278= Cnil;          V1301= Cnil;
7033          goto T2586;          goto T2586;
7034  T2586:;  T2586:;
7035          V1279= Cnil;          V1302= Cnil;
7036          goto T2587;          goto T2587;
7037  T2587:;  T2587:;
7038          V1280= Cnil;          V1303= Cnil;
7039          goto T2588;          goto T2588;
7040  T2588:;  T2588:;
7041          V1281= Cnil;          V1304= Cnil;
7042          goto T2589;          goto T2589;
7043  T2589:;  T2589:;
7044          V1282= Cnil;          V1305= Cnil;
7045          goto T2590;          goto T2590;
7046  T2590:;  T2590:;
7047          V1283= Cnil;          V1306= Cnil;
7048          goto T2591;          goto T2591;
7049  T2591:;  T2591:;
7050          base[3]= (V1283);          base[3]= (V1306);
7051          base[4]= (V1282);          base[4]= (V1305);
7052          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7053          return;}          return;}
7054          }          }
7055  }  }
7056  /*      local entry for function METHOD-LL->GENERIC-FUNCTION-LL */  /*      local entry for function METHOD-LL->GENERIC-FUNCTION-LL */
7057    
7058  static object LI120(V1285)  static object LI120(V1308)
7059    
7060  object V1285;  object V1308;
7061  {        VMB106 VMS106 VMV106  {        VMB106 VMS106 VMV106
7062          goto TTL;          goto TTL;
7063  TTL:;  TTL:;
7064          {object V1286;          {object V1309;
7065          object V1287;          object V1310;
7066          object V1288;          object V1311;
7067          object V1289;          object V1312;
7068          object V1290;          object V1313;
7069          object V1291;          object V1314;
7070          base[1]= (V1285);          base[1]= (V1308);
7071          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7072          (void) (*Lnk373)();          (void) (*Lnk373)();
7073          if(vs_base>=vs_top){vs_top=sup;goto T2596;}          if(vs_base>=vs_top){vs_top=sup;goto T2596;}
7074          V1286= vs_base[0];          V1309= vs_base[0];
7075          vs_base++;          vs_base++;
7076          if(vs_base>=vs_top){vs_top=sup;goto T2597;}          if(vs_base>=vs_top){vs_top=sup;goto T2597;}
7077          V1287= vs_base[0];          V1310= vs_base[0];
7078          vs_base++;          vs_base++;
7079          if(vs_base>=vs_top){vs_top=sup;goto T2598;}          if(vs_base>=vs_top){vs_top=sup;goto T2598;}
7080          V1288= vs_base[0];          V1311= vs_base[0];
7081          vs_base++;          vs_base++;
7082          if(vs_base>=vs_top){vs_top=sup;goto T2599;}          if(vs_base>=vs_top){vs_top=sup;goto T2599;}
7083          V1289= vs_base[0];          V1312= vs_base[0];
7084          vs_base++;          vs_base++;
7085          if(vs_base>=vs_top){vs_top=sup;goto T2600;}          if(vs_base>=vs_top){vs_top=sup;goto T2600;}
7086          V1290= vs_base[0];          V1313= vs_base[0];
7087          vs_base++;          vs_base++;
7088          if(vs_base>=vs_top){vs_top=sup;goto T2601;}          if(vs_base>=vs_top){vs_top=sup;goto T2601;}
7089          V1291= vs_base[0];          V1314= vs_base[0];
7090          vs_base++;          vs_base++;
7091          if(vs_base>=vs_top){vs_top=sup;goto T2602;}          if(vs_base>=vs_top){vs_top=sup;goto T2602;}
7092          base[0]=MMcons(vs_base[0],Cnil);          base[0]=MMcons(vs_base[0],Cnil);
# Line 7071  TTL:; Line 7094  TTL:;
7094          goto T2603;          goto T2603;
7095          goto T2596;          goto T2596;
7096  T2596:;  T2596:;
7097          V1286= Cnil;          V1309= Cnil;
7098          goto T2597;          goto T2597;
7099  T2597:;  T2597:;
7100          V1287= Cnil;          V1310= Cnil;
7101          goto T2598;          goto T2598;
7102  T2598:;  T2598:;
7103          V1288= Cnil;          V1311= Cnil;
7104          goto T2599;          goto T2599;
7105  T2599:;  T2599:;
7106          V1289= Cnil;          V1312= Cnil;
7107          goto T2600;          goto T2600;
7108  T2600:;  T2600:;
7109          V1290= Cnil;          V1313= Cnil;
7110          goto T2601;          goto T2601;
7111  T2601:;  T2601:;
7112          V1291= Cnil;          V1314= Cnil;
7113          goto T2602;          goto T2602;
7114  T2602:;  T2602:;
7115          base[0]=MMcons(Cnil,Cnil);          base[0]=MMcons(Cnil,Cnil);
# Line 7094  T2602:; Line 7117  T2602:;
7117  T2603:;  T2603:;
7118          base[1]=          base[1]=
7119          make_cclosure_new(LC135,Cnil,base[0],Cdata);          make_cclosure_new(LC135,Cnil,base[0],Cdata);
7120          base[2]= (V1285);          base[2]= (V1308);
7121          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7122          (void) (*Lnk374)();          (void) (*Lnk374)();
7123          vs_top=sup;          vs_top=sup;
7124          {object V1292 = vs_base[0];          {object V1315 = vs_base[0];
7125          VMR106(V1292)}}          VMR106(V1315)}}
7126          base[0]=base[0];          base[0]=base[0];
7127          return Cnil;          return Cnil;
7128  }  }
7129  /*      local entry for function (FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))      */  /*      local entry for function (FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))      */
7130    
7131  static object LI121(V1296,V1297,V1298)  static object LI121(V1319,V1320,V1321)
7132    
7133  object V1296;object V1297;object V1298;  object V1319;object V1320;object V1321;
7134  {        VMB107 VMS107 VMV107  {        VMB107 VMS107 VMV107
7135          goto TTL;          goto TTL;
7136  TTL:;  TTL:;
7137          {object V1300;          {object V1323;
7138          object V1301;          object V1324;
7139          base[0]= (V1298);          base[0]= (V1321);
7140          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7141          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
7142          vs_top=sup;          vs_top=sup;
7143          V1300= vs_base[0];          V1323= vs_base[0];
7144          V1301= Cnil;          V1324= Cnil;
7145          if(((V1300))==Cnil){          if(((V1323))==Cnil){
7146          goto T2612;}          goto T2612;}
7147          {object V1302;          {object V1325;
7148          object V1303;          object V1326;
7149          object V1304;          object V1327;
7150          register object V1305;          register object V1328;
7151          register object V1306;          register object V1329;
7152          base[0]= CMPcar((V1300));          base[0]= CMPcar((V1323));
7153          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7154          (void) (*Lnk375)(Lclptr375);          (void) (*Lnk375)(Lclptr375);
7155          if(vs_base>=vs_top){vs_top=sup;goto T2616;}          if(vs_base>=vs_top){vs_top=sup;goto T2616;}
7156          V1302= vs_base[0];          V1325= vs_base[0];
7157          vs_base++;          vs_base++;
7158          if(vs_base>=vs_top){vs_top=sup;goto T2617;}          if(vs_base>=vs_top){vs_top=sup;goto T2617;}
7159          V1303= vs_base[0];          V1326= vs_base[0];
7160          vs_base++;          vs_base++;
7161          if(vs_base>=vs_top){vs_top=sup;goto T2618;}          if(vs_base>=vs_top){vs_top=sup;goto T2618;}
7162          V1304= vs_base[0];          V1327= vs_base[0];
7163          vs_base++;          vs_base++;
7164          if(vs_base>=vs_top){vs_top=sup;goto T2619;}          if(vs_base>=vs_top){vs_top=sup;goto T2619;}
7165          V1305= vs_base[0];          V1328= vs_base[0];
7166          vs_base++;          vs_base++;
7167          if(vs_base>=vs_top){vs_top=sup;goto T2620;}          if(vs_base>=vs_top){vs_top=sup;goto T2620;}
7168          V1306= vs_base[0];          V1329= vs_base[0];
7169          vs_top=sup;          vs_top=sup;
7170          goto T2621;          goto T2621;
7171          goto T2616;          goto T2616;
7172  T2616:;  T2616:;
7173          V1302= Cnil;          V1325= Cnil;
7174          goto T2617;          goto T2617;
7175  T2617:;  T2617:;
7176          V1303= Cnil;          V1326= Cnil;
7177          goto T2618;          goto T2618;
7178  T2618:;  T2618:;
7179          V1304= Cnil;          V1327= Cnil;
7180          goto T2619;          goto T2619;
7181  T2619:;  T2619:;
7182          V1305= Cnil;          V1328= Cnil;
7183          goto T2620;          goto T2620;
7184  T2620:;  T2620:;
7185          V1306= Cnil;          V1329= Cnil;
7186          goto T2621;          goto T2621;
7187  T2621:;  T2621:;
7188          {register object V1307;          {register object V1330;
7189          register object V1308;          register object V1331;
7190          V1307= CMPcdr((V1300));          V1330= CMPcdr((V1323));
7191          V1308= CMPcar((V1307));          V1331= CMPcar((V1330));
7192          goto T2626;          goto T2626;
7193  T2626:;  T2626:;
7194          if(!(((V1307))==Cnil)){          if(!(((V1330))==Cnil)){
7195          goto T2627;}          goto T2627;}
7196          goto T2622;          goto T2622;
7197          goto T2627;          goto T2627;
7198  T2627:;  T2627:;
7199          {register object V1309;          {register object V1332;
7200          register object V1310;          register object V1333;
7201          register object V1311;          register object V1334;
7202          base[2]= (V1308);          base[2]= (V1331);
7203          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7204          (void) (*Lnk376)(Lclptr376);          (void) (*Lnk376)(Lclptr376);
7205          if(vs_base>=vs_top){vs_top=sup;goto T2634;}          if(vs_base>=vs_top){vs_top=sup;goto T2634;}
7206          V1309= vs_base[0];          V1332= vs_base[0];
7207          vs_base++;          vs_base++;
7208          if(vs_base>=vs_top){vs_top=sup;goto T2635;}          if(vs_base>=vs_top){vs_top=sup;goto T2635;}
7209          V1310= vs_base[0];          V1333= vs_base[0];
7210          vs_base++;          vs_base++;
7211          if(vs_base>=vs_top){vs_top=sup;goto T2636;}          if(vs_base>=vs_top){vs_top=sup;goto T2636;}
7212          V1311= vs_base[0];          V1334= vs_base[0];
7213          vs_top=sup;          vs_top=sup;
7214          goto T2637;          goto T2637;
7215          goto T2634;          goto T2634;
7216  T2634:;  T2634:;
7217          V1309= Cnil;          V1332= Cnil;
7218          goto T2635;          goto T2635;
7219  T2635:;  T2635:;
7220          V1310= Cnil;          V1333= Cnil;
7221          goto T2636;          goto T2636;
7222  T2636:;  T2636:;
7223          V1311= Cnil;          V1334= Cnil;
7224          goto T2637;          goto T2637;
7225  T2637:;  T2637:;
7226          base[2]= (V1305);          base[2]= (V1328);
7227          base[3]= (V1311);          base[3]= (V1334);
7228          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7229          (void) (*Lnk377)();          (void) (*Lnk377)();
7230          vs_top=sup;          vs_top=sup;
7231          V1305= vs_base[0];          V1328= vs_base[0];
7232          if((V1306)!=Cnil){          if((V1329)!=Cnil){
7233          goto T2642;}          goto T2642;}
7234          V1306= (V1310);          V1329= (V1333);
7235          goto T2642;          goto T2642;
7236  T2642:;}  T2642:;}
7237          V1307= CMPcdr((V1307));          V1330= CMPcdr((V1330));
7238          V1308= CMPcar((V1307));          V1331= CMPcar((V1330));
7239          goto T2626;}          goto T2626;}
7240          goto T2622;          goto T2622;
7241  T2622:;  T2622:;
7242          if(((V1306))==Cnil){          if(((V1329))==Cnil){
7243          goto T2648;}          goto T2648;}
7244          V1301= VV[203];          V1324= VV[203];
7245          goto T2648;          goto T2648;
7246  T2648:;  T2648:;
7247          if(((V1305))==Cnil){          if(((V1328))==Cnil){
7248          goto T2652;}          goto T2652;}
7249          base[0]= make_cons(VV[204],Cnil);          base[0]= make_cons(VV[204],Cnil);
7250          base[1]= (V1305);          base[1]= (V1328);
7251          base[2]= (V1301);          base[2]= (V1324);
7252          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
7253          Lnconc();          Lnconc();
7254          vs_top=sup;          vs_top=sup;
7255          V1301= vs_base[0];          V1324= vs_base[0];
7256          goto T2652;          goto T2652;
7257  T2652:;  T2652:;
7258          if(((V1304))==Cnil){          if(((V1327))==Cnil){
7259          goto T2659;}          goto T2659;}
7260          V1312= list(2,VV[97],(V1304));          V1335= list(2,VV[97],(V1327));
7261          V1301= nconc(/* INLINE-ARGS */V1312,(V1301));          V1324= nconc(/* INLINE-ARGS */V1335,(V1324));
7262          goto T2659;          goto T2659;
7263  T2659:;  T2659:;
7264          if(((V1303))==Cnil){          if(((V1326))==Cnil){
7265          goto T2663;}          goto T2663;}
7266          base[0]= make_cons(VV[205],Cnil);          base[0]= make_cons(VV[205],Cnil);
7267          base[1]= (V1303);          base[1]= (V1326);
7268          base[2]= (V1301);          base[2]= (V1324);
7269          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
7270          Lnconc();          Lnconc();
7271          vs_top=sup;          vs_top=sup;
7272          V1301= vs_base[0];          V1324= vs_base[0];
7273          goto T2663;          goto T2663;
7274  T2663:;  T2663:;
7275          {object V1313 = nconc((V1302),(V1301));          {object V1336 = nconc((V1325),(V1324));
7276          VMR107(V1313)}}          VMR107(V1336)}}
7277          goto T2612;          goto T2612;
7278  T2612:;  T2612:;
7279          {object V1314 = Cnil;          {object V1337 = Cnil;
7280          VMR107(V1314)}}          VMR107(V1337)}}
7281          base[0]=base[0];          base[0]=base[0];
7282          return Cnil;          return Cnil;
7283  }  }
# Line 7264  static void L122() Line 7287  static void L122()
7287  {register object *base=vs_base;  {register object *base=vs_base;
7288          register object *sup=base+VM108; VC108          register object *sup=base+VM108; VC108
7289          vs_check;          vs_check;
7290          {object V1315;          {object V1338;
7291          object V1316;          object V1339;
7292          object V1317;          object V1340;
7293          check_arg(3);          check_arg(3);
7294          V1315=(base[0]);          V1338=(base[0]);
7295          V1316=(base[1]);          V1339=(base[1]);
7296          V1317=(base[2]);          V1340=(base[2]);
7297          vs_top=sup;          vs_top=sup;
7298          goto TTL;          goto TTL;
7299  TTL:;  TTL:;
7300          {register object V1319;          {register object V1342;
7301          register object V1320;          register object V1343;
7302          object V1321;          object V1344;
7303          register object V1322;          register object V1345;
7304          object V1323;          object V1346;
7305          register object V1324;          register object V1347;
7306          object V1325;          object V1348;
7307          base[3]= (V1317);          base[3]= (V1340);
7308          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7309          (void) (*Lnk283)(Lclptr283);          (void) (*Lnk283)(Lclptr283);
7310          vs_top=sup;          vs_top=sup;
7311          V1325= vs_base[0];          V1348= vs_base[0];
7312          V1319= Cnil;          V1342= Cnil;
7313          V1320= Cnil;          V1343= Cnil;
7314          V1321= Cnil;          V1344= Cnil;
7315          V1322= Cnil;          V1345= Cnil;
7316          V1323= Cnil;          V1346= Cnil;
7317          V1324= VV[206];          V1347= VV[206];
7318          {register object V1326;          {register object V1349;
7319          register object V1327;          register object V1350;
7320          V1326= (V1325);          V1349= (V1348);
7321          V1327= CMPcar((V1326));          V1350= CMPcar((V1349));
7322          goto T2679;          goto T2679;
7323  T2679:;  T2679:;
7324          if(!(((V1326))==Cnil)){          if(!(((V1349))==Cnil)){
7325          goto T2680;}          goto T2680;}
7326          goto T2675;          goto T2675;
7327          goto T2680;          goto T2680;
7328  T2680:;  T2680:;
7329          if(!(((V1327))==(VV[205]))){          if(!(((V1350))==(VV[205]))){
7330          goto T2686;}          goto T2686;}
7331          V1324= VV[207];          V1347= VV[207];
7332          goto T2684;          goto T2684;
7333          goto T2686;          goto T2686;
7334  T2686:;  T2686:;
7335          if(!(((V1327))==(VV[97]))){          if(!(((V1350))==(VV[97]))){
7336          goto T2690;}          goto T2690;}
7337          V1324= VV[208];          V1347= VV[208];
7338          goto T2684;          goto T2684;
7339          goto T2690;          goto T2690;
7340  T2690:;  T2690:;
7341          if(!(((V1327))==(VV[204]))){          if(!(((V1350))==(VV[204]))){
7342          goto T2694;}          goto T2694;}
7343          V1324= VV[209];          V1347= VV[209];
7344          goto T2684;          goto T2684;
7345          goto T2694;          goto T2694;
7346  T2694:;  T2694:;
7347          if(!(((V1327))==(VV[202]))){          if(!(((V1350))==(VV[202]))){
7348          goto T2698;}          goto T2698;}
7349          V1323= Ct;          V1346= Ct;
7350          goto T2684;          goto T2684;
7351          goto T2698;          goto T2698;
7352  T2698:;  T2698:;
7353          {register object V1328;          {register object V1351;
7354          {register object x= (V1327),V1329= VV[90];          {register object x= (V1350),V1352= VV[90];
7355          while(V1329!=Cnil)          while(V1352!=Cnil)
7356          if(x==(V1329->c.c_car)){          if(x==(V1352->c.c_car)){
7357          V1328= V1329;          V1351= V1352;
7358          goto T2701;          goto T2701;
7359          }else V1329=V1329->c.c_cdr;          }else V1352=V1352->c.c_cdr;
7360          V1328= Cnil;}          V1351= Cnil;}
7361          goto T2701;          goto T2701;
7362  T2701:;  T2701:;
7363          if(((V1328))==Cnil){          if(((V1351))==Cnil){
7364          goto T2703;}          goto T2703;}
7365          goto T2684;          goto T2684;
7366          goto T2703;          goto T2703;
7367  T2703:;  T2703:;
7368          {object V1330= (V1324);          {object V1353= (V1347);
7369          if((V1330!= VV[206]))goto T2705;          if((V1353!= VV[206]))goto T2705;
7370          V1319= make_cons(V1327,(V1319));          V1342= make_cons(V1350,(V1342));
7371          goto T2684;          goto T2684;
7372          goto T2705;          goto T2705;
7373  T2705:;  T2705:;
7374          if((V1330!= VV[207]))goto T2707;          if((V1353!= VV[207]))goto T2707;
7375          V1320= make_cons(V1327,(V1320));          V1343= make_cons(V1350,(V1343));
7376          goto T2684;          goto T2684;
7377          goto T2707;          goto T2707;
7378  T2707:;  T2707:;
7379          if((V1330!= VV[209]))goto T2709;          if((V1353!= VV[209]))goto T2709;
7380          V1322= make_cons(V1327,(V1322));          V1345= make_cons(V1350,(V1345));
7381          goto T2684;          goto T2684;
7382          goto T2709;          goto T2709;
7383  T2709:;  T2709:;
7384          if((V1330!= VV[208]))goto T2711;          if((V1353!= VV[208]))goto T2711;
7385          V1321= (V1327);          V1344= (V1350);
7386          goto T2684;          goto T2684;
7387          goto T2711;          goto T2711;
7388  T2711:;  T2711:;
7389          FEerror("The ECASE key value ~s is illegal.",1,V1330);          FEerror("The ECASE key value ~s is illegal.",1,V1353);
7390          goto T2684;}}          goto T2684;}}
7391          goto T2684;          goto T2684;
7392  T2684:;  T2684:;
7393          V1326= CMPcdr((V1326));          V1349= CMPcdr((V1349));
7394          V1327= CMPcar((V1326));          V1350= CMPcar((V1349));
7395          goto T2679;}          goto T2679;}
7396          goto T2675;          goto T2675;
7397  T2675:;  T2675:;
7398          base[3]= nreverse((V1319));          base[3]= nreverse((V1342));
7399          base[4]= nreverse((V1320));          base[4]= nreverse((V1343));
7400          base[5]= (V1321);          base[5]= (V1344);
7401          base[6]= nreverse((V1322));          base[6]= nreverse((V1345));
7402          base[7]= (V1323);          base[7]= (V1346);
7403          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
7404          return;}          return;}
7405          }          }
# Line 7388  register object *base0; Line 7411  register object *base0;
7411  {       register object *base=vs_base;  {       register object *base=vs_base;
7412          register object *sup=base+VM109; VC109          register object *sup=base+VM109; VC109
7413          vs_check;          vs_check;
7414          {object V1334;          {object V1357;
7415          check_arg(1);          check_arg(1);
7416          V1334=(base[0]);          V1357=(base[0]);
7417          vs_top=sup;{object V1335;          vs_top=sup;{object V1358;
7418          {register object x= (V1334),V1336= (base0[0]->c.c_car);          {register object x= (V1357),V1359= (base0[0]->c.c_car);
7419          while(V1336!=Cnil)          while(V1359!=Cnil)
7420          if(x==(V1336->c.c_car)){          if(x==(V1359->c.c_car)){
7421          V1335= V1336;          V1358= V1359;
7422          goto T2724;          goto T2724;
7423          }else V1336=V1336->c.c_cdr;          }else V1359=V1359->c.c_cdr;
7424          V1335= Cnil;}          V1358= Cnil;}
7425          goto T2724;          goto T2724;
7426  T2724:;  T2724:;
7427          if(V1335==Cnil)goto T2723;          if(V1358==Cnil)goto T2723;
7428          base[1]= V1335;          base[1]= V1358;
7429          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7430          return;          return;
7431          goto T2723;          goto T2723;
7432  T2723:;}  T2723:;}
7433          base[1]= (((V1334))==(VV[202])?Ct:Cnil);          base[1]= (((V1357))==(VV[202])?Ct:Cnil);
7434          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7435          return;          return;
7436          }          }
# Line 7419  register object *base0; Line 7442  register object *base0;
7442  {       register object *base=vs_base;  {       register object *base=vs_base;
7443          register object *sup=base+VM110; VC110          register object *sup=base+VM110; VC110
7444          vs_check;          vs_check;
7445          {object V1337;          {object V1360;
7446          vs_top[0]=Cnil;          vs_top[0]=Cnil;
7447          {object *p=vs_top;          {object *p=vs_top;
7448           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
7449          V1337=(base[0]);          V1360=(base[0]);
7450          vs_top=sup;          vs_top=sup;
7451          {object V1338;          {object V1361;
7452          object V1339;          object V1362;
7453          object V1340;          object V1363;
7454          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
7455          base[5]= (V1337);          base[5]= (V1360);
7456          base[6]= VV[108];          base[6]= VV[108];
7457          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
7458          (void) (*Lnk297)();          (void) (*Lnk297)();
7459          vs_top=sup;          vs_top=sup;
7460          V1338= vs_base[0];          V1361= vs_base[0];
7461          V1339= (*(LnkLI378))((base0[0]->c.c_car),(base0[1]->c.c_car),(V1338));          V1362= (*(LnkLI378))((base0[0]->c.c_car),(base0[1]->c.c_car),(V1361));
7462          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
7463          base[5]= (V1339);          base[5]= (V1362);
7464          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7465          (void) (*Lnk312)();          (void) (*Lnk312)();
7466          vs_top=sup;          vs_top=sup;
7467          V1340= vs_base[0];          V1363= vs_base[0];
7468          base[4]= (V1340);          base[4]= (V1363);
7469          base[5]= (V1337);          base[5]= (V1360);
7470          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7471          (void) (*Lnk379)();          (void) (*Lnk379)();
7472          return;}          return;}
# Line 7456  register object *base0; Line 7479  register object *base0;
7479  {       register object *base=vs_base;  {       register object *base=vs_base;
7480          register object *sup=base+VM111; VC111          register object *sup=base+VM111; VC111
7481          vs_check;          vs_check;
7482          {object V1341;          {object V1364;
7483          object V1342;          object V1365;
7484          check_arg(2);          check_arg(2);
7485          V1341=(base[0]);          V1364=(base[0]);
7486          V1342=(base[1]);          V1365=(base[1]);
7487          vs_top=sup;          vs_top=sup;
7488          {object V1343;          {object V1366;
7489          object V1344;          object V1367;
7490          V1343= make_cons(Cnil,Cnil);          V1366= make_cons(Cnil,Cnil);
7491          V1344= (V1343);          V1367= (V1366);
7492          {register object V1345;          {register object V1368;
7493          register object V1346;          register object V1369;
7494          V1345= (base0[0]->c.c_car);          V1368= (base0[0]->c.c_car);
7495          V1346= CMPcar((V1345));          V1369= CMPcar((V1368));
7496          goto T2741;          goto T2741;
7497  T2741:;  T2741:;
7498          if(!(((V1345))==Cnil)){          if(!(((V1368))==Cnil)){
7499          goto T2742;}          goto T2742;}
7500          goto T2737;          goto T2737;
7501          goto T2742;          goto T2742;
7502  T2742:;  T2742:;
7503          {object V1347;          {object V1370;
7504          register object V1348;{object V1349;          register object V1371;{object V1372;
7505          {register object V1350;          {register object V1373;
7506          register object V1351;          register object V1374;
7507          V1350= (V1343);          V1373= (V1366);
7508          V1351= CMPcar((V1350));          V1374= CMPcar((V1373));
7509          goto T2753;          goto T2753;
7510  T2753:;  T2753:;
7511          if(!(((V1350))==Cnil)){          if(!(((V1373))==Cnil)){
7512          goto T2754;}          goto T2754;}
7513          V1349= Cnil;          V1372= Cnil;
7514          goto T2749;          goto T2749;
7515          goto T2754;          goto T2754;
7516  T2754:;  T2754:;
7517          if(!((CMPcar((V1351)))==((V1346)))){          if(!((CMPcar((V1374)))==((V1369)))){
7518          goto T2758;}          goto T2758;}
7519          V1349= (V1351);          V1372= (V1374);
7520          goto T2749;          goto T2749;
7521          goto T2758;          goto T2758;
7522  T2758:;  T2758:;
7523          V1350= CMPcdr((V1350));          V1373= CMPcdr((V1373));
7524          V1351= CMPcar((V1350));          V1374= CMPcar((V1373));
7525          goto T2753;}          goto T2753;}
7526          goto T2749;          goto T2749;
7527  T2749:;  T2749:;
7528          if(V1349==Cnil)goto T2748;          if(V1372==Cnil)goto T2748;
7529          V1347= V1349;          V1370= V1372;
7530          goto T2747;          goto T2747;
7531          goto T2748;          goto T2748;
7532  T2748:;}{object V1353;  T2748:;}
7533          V1353= (*(LnkLI380))((V1346),(V1341),(V1342));          V1375 = (V1369);{object V1377;
7534          if(V1353==Cnil)goto T2767;          V1377= (*(LnkLI380))((V1369),(V1364),(V1365));
7535          V1352= V1353;          if(V1377==Cnil)goto T2767;
7536            V1376= V1377;
7537          goto T2766;          goto T2766;
7538          goto T2767;          goto T2767;
7539  T2767:;}  T2767:;}
7540          base[6]= (V1346);          base[6]= (V1369);
7541          base[7]= (V1341);          base[7]= (V1364);
7542          base[8]= (V1342);          base[8]= (V1365);
7543          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
7544          (void) (*Lnk352)();          (void) (*Lnk352)();
7545          vs_top=sup;          vs_top=sup;
7546          V1352= vs_base[0];          V1376= vs_base[0];
7547          goto T2766;          goto T2766;
7548  T2766:;  T2766:;
7549          V1347= make_cons((V1346),V1352);          V1370= make_cons(V1375,V1376);
7550          goto T2747;          goto T2747;
7551  T2747:;  T2747:;
7552          V1348= make_cons((V1347),Cnil);          V1371= make_cons((V1370),Cnil);
7553          {register object V1355;          {register object V1379;
7554          V1355= (V1348);          V1379= (V1371);
7555          (V1344)->c.c_cdr = (V1355);}          (V1367)->c.c_cdr = (V1379);}
7556          V1344= (V1348);}          V1367= (V1371);}
7557          V1345= CMPcdr((V1345));          V1368= CMPcdr((V1368));
7558          V1346= CMPcar((V1345));          V1369= CMPcar((V1368));
7559          goto T2741;}          goto T2741;}
7560          goto T2737;          goto T2737;
7561  T2737:;  T2737:;
7562          {object V1356;          {object V1380;
7563          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
7564          {object V1357;          {object V1381;
7565          {object V1358;          {object V1382;
7566          object V1359= CMPcdr((V1343));          object V1383= CMPcdr((V1366));
7567          if(V1359==Cnil){          if(V1383==Cnil){
7568          V1357= Cnil;          V1381= Cnil;
7569          goto T2784;}          goto T2784;}
7570          base[4]=V1358=MMcons(Cnil,Cnil);          base[4]=V1382=MMcons(Cnil,Cnil);
7571          goto T2785;          goto T2785;
7572  T2785:;  T2785:;
7573          (V1358->c.c_car)= CMPcdr((V1359->c.c_car));          (V1382->c.c_car)= CMPcdr((V1383->c.c_car));
7574          if((V1359=MMcdr(V1359))==Cnil){          if((V1383=MMcdr(V1383))==Cnil){
7575          V1357= base[4];          V1381= base[4];
7576          goto T2784;}          goto T2784;}
7577          V1358=MMcdr(V1358)=MMcons(Cnil,Cnil);          V1382=MMcdr(V1382)=MMcons(Cnil,Cnil);
7578          goto T2785;}          goto T2785;}
7579          goto T2784;          goto T2784;
7580  T2784:;  T2784:;
7581           vs_top=base+4;           vs_top=base+4;
7582           while(V1357!=Cnil)           while(V1381!=Cnil)
7583           {vs_push((V1357)->c.c_car);V1357=(V1357)->c.c_cdr;}           {vs_push((V1381)->c.c_car);V1381=(V1381)->c.c_cdr;}
7584          vs_base=base+4;}          vs_base=base+4;}
7585          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7586                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7587                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7588                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
7589          vs_top=sup;          vs_top=sup;
7590          V1356= vs_base[0];          V1380= vs_base[0];
7591          if(((base0[4]->c.c_car))==Cnil){          if(((base0[4]->c.c_car))==Cnil){
7592          goto T2788;}          goto T2788;}
7593          base[3]= (V1356);          base[3]= (V1380);
7594          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7595          return;          return;
7596          goto T2788;          goto T2788;
7597  T2788:;  T2788:;
7598          base[3]= (V1356);          base[3]= (V1380);
7599          base[4]= list(2,VV[194],(base0[3]->c.c_car));          base[4]= list(2,VV[194],(base0[3]->c.c_car));
7600          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7601          (void) (*Lnk259)();          (void) (*Lnk259)();
7602          vs_top=sup;          vs_top=sup;
7603          V1360= vs_base[0];          V1384= vs_base[0];
7604          base[3]= (VFUN_NARGS=4,(*(LnkLI381))(VV[54],V1360,VV[195],(base0[2]->c.c_car)));          V1385 = (base0[2]->c.c_car);
7605            base[3]= (VFUN_NARGS=4,(*(LnkLI381))(VV[54],V1384,VV[195],V1385));
7606          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7607          return;}}          return;}}
7608          }          }
# Line 7589  register object *base0; Line 7614  register object *base0;
7614  {       register object *base=vs_base;  {       register object *base=vs_base;
7615          register object *sup=base+VM112; VC112          register object *sup=base+VM112; VC112
7616          vs_check;          vs_check;
7617          {object V1361;          {object V1386;
7618          check_arg(1);          check_arg(1);
7619          V1361=(base[0]);          V1386=(base[0]);
7620          vs_top=sup;          vs_top=sup;
7621          base[1]= (*(LnkLI382))((V1361),(base0[3]->c.c_car));          base[1]= (*(LnkLI382))((V1386),(base0[3]->c.c_car));
7622          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7623          return;          return;
7624          }          }
# Line 7613  TTL:; Line 7638  TTL:;
7638          goto T2794;}          goto T2794;}
7639          base[5]= CMPcdr(base[0]);          base[5]= CMPcdr(base[0]);
7640          base[6]= base[3];          base[6]= base[3];
7641          V1362= make_cons(CMPcar(base[0]),base[2]);          V1387= make_cons(CMPcar(base[0]),base[2]);
7642          base[7]= make_cons(/* INLINE-ARGS */V1362,base[4]);          base[7]= make_cons(/* INLINE-ARGS */V1387,base[4]);
7643          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
7644          L100(base0);          L100(base0);
7645          return;          return;
7646          goto T2794;          goto T2794;
7647  T2794:;  T2794:;
7648          {object V1363;          {object V1388;
7649          object V1364;          object V1389;
7650          V1363= CMPcar(base[0]);          V1388= CMPcar(base[0]);
7651          base[6]= CMPcar(base[1]);          base[6]= CMPcar(base[1]);
7652            V1390 = (V1388);
7653          base[9]= base[6];          base[9]= base[6];
7654          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7655          (void) (*Lnk278)(Lclptr278);          (void) (*Lnk278)(Lclptr278);
7656          vs_top=sup;          vs_top=sup;
7657          V1365= vs_base[0];          V1391= vs_base[0];
7658          V1364= nth(fix((V1363)),V1365);          V1389= nth(fix(V1390),V1391);
7659          base[10]= (V1364);          base[10]= (V1389);
7660          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
7661          (void) (*Lnk383)();          (void) (*Lnk383)();
7662          vs_top=sup;          vs_top=sup;
# Line 7687  T2814:; Line 7713  T2814:;
7713          return;          return;
7714          goto T2820;          goto T2820;
7715  T2820:;  T2820:;
7716          base[11]= (V1363);          base[11]= (V1388);
7717          base[12]= base[8];          base[12]= base[8];
7718          base[14]= Ct;          base[14]= Ct;
7719          vs_top=(vs_base=base+14)+1;          vs_top=(vs_base=base+14)+1;
# Line 7713  register object *base0,*base1; Line 7739  register object *base0,*base1;
7739  {       register object *base=vs_base;  {       register object *base=vs_base;
7740          register object *sup=base+VM114; VC114          register object *sup=base+VM114; VC114
7741          vs_check;          vs_check;
7742          {object V1366;          {object V1392;
7743          object V1367;          object V1393;
7744          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
7745          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
7746          V1366=(base[0]);          V1392=(base[0]);
7747          vs_base=vs_base+1;          vs_base=vs_base+1;
7748          if(vs_base>=vs_top){vs_top=sup;goto T2831;}          if(vs_base>=vs_top){vs_top=sup;goto T2831;}
7749          V1367=(base[1]);          V1393=(base[1]);
7750          vs_top=sup;          vs_top=sup;
7751          goto T2832;          goto T2832;
7752          goto T2831;          goto T2831;
7753  T2831:;  T2831:;
7754          V1367= Cnil;          V1393= Cnil;
7755          goto T2832;          goto T2832;
7756  T2832:;  T2832:;
7757          {object V1368;          {object V1394;
7758          if(((V1366))==Cnil){          if(((V1392))==Cnil){
7759          goto T2836;}          goto T2836;}
7760          V1368= base1[8];          V1394= base1[8];
7761          goto T2834;          goto T2834;
7762          goto T2836;          goto T2836;
7763  T2836:;  T2836:;
7764          V1368= list(2,VV[144],base1[8]);          V1394= list(2,VV[144],base1[8]);
7765          goto T2834;          goto T2834;
7766  T2834:;  T2834:;
7767          base[2]= base1[0];          base[2]= base1[0];
7768          base[3]= CMPcdr(base1[1]);          base[3]= CMPcdr(base1[1]);
7769          if(((V1367))==Cnil){          if(((V1393))==Cnil){
7770          goto T2842;}          goto T2842;}
7771          base[4]= base1[2];          base[4]= base1[2];
7772          goto T2840;          goto T2840;
7773          goto T2842;          goto T2842;
7774  T2842:;  T2842:;
7775          base[4]= (*(LnkLI385))((V1368),base1[2]);          base[4]= (*(LnkLI385))((V1394),base1[2]);
7776          goto T2840;          goto T2840;
7777  T2840:;  T2840:;
7778          if(((V1366))==Cnil){          if(((V1392))==Cnil){
7779          goto T2846;}          goto T2846;}
7780          V1369= make_cons(base1[6],Cnil);          V1395= make_cons(base1[6],Cnil);
7781          base[5]= append(base1[3],/* INLINE-ARGS */V1369);          base[5]= append(base1[3],/* INLINE-ARGS */V1395);
7782          goto T2844;          goto T2844;
7783          goto T2846;          goto T2846;
7784  T2846:;  T2846:;
# Line 7772  register object *base0,*base1; Line 7798  register object *base0,*base1;
7798  {       register object *base=vs_base;  {       register object *base=vs_base;
7799          register object *sup=base+VM115; VC115          register object *sup=base+VM115; VC115
7800          vs_check;          vs_check;
7801          {object V1370;          {object V1396;
7802          check_arg(1);          check_arg(1);
7803          V1370=(base[0]);          V1396=(base[0]);
7804          vs_top=sup;          vs_top=sup;
7805          goto TTL;          goto TTL;
7806  TTL:;  TTL:;
7807          if(((V1370))==Cnil){          if(((V1396))==Cnil){
7808          goto T2850;}          goto T2850;}
7809          base[1]= base1[9];          base[1]= base1[9];
7810          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 7797  register object *base0; Line 7823  register object *base0;
7823  {       register object *base=vs_base;  {       register object *base=vs_base;
7824          register object *sup=base+VM116; VC116          register object *sup=base+VM116; VC116
7825          vs_check;          vs_check;
7826          {object V1371;          {object V1397;
7827          object V1372;          object V1398;
7828          object V1373;          object V1399;
7829          check_arg(3);          check_arg(3);
7830          V1371=(base[0]);          V1397=(base[0]);
7831          V1372=(base[1]);          V1398=(base[1]);
7832          V1373=(base[2]);          V1399=(base[2]);
7833          vs_top=sup;          vs_top=sup;
7834          goto TTL;          goto TTL;
7835  TTL:;  TTL:;
7836          if(((V1371))==Cnil){          if(((V1397))==Cnil){
7837          goto T2853;}          goto T2853;}
7838          {object V1374;          {object V1400;
7839          object V1375;          object V1401;
7840          V1374= CMPcar((V1371));{object V1376;          V1400= CMPcar((V1397));{object V1402;
7841          V1376= nth(fix((V1374)),base0[2]);          V1402= nth(fix((V1400)),base0[2]);
7842          if(V1376==Cnil)goto T2857;          if(V1402==Cnil)goto T2857;
7843          V1375= V1376;          V1401= V1402;
7844          goto T2856;          goto T2856;
7845          goto T2857;          goto T2857;
7846  T2857:;}  T2857:;}
7847          V1375= Ct;          V1401= Ct;
7848          goto T2856;          goto T2856;
7849  T2856:;  T2856:;
7850          if(!((nth(fix((V1374)),base0[9]))==(Ct))){          if(!((nth(fix((V1400)),base0[9]))==(Ct))){
7851          goto T2860;}          goto T2860;}
7852          V1371= CMPcdr((V1371));          V1397= CMPcdr((V1397));
7853          V1377= make_cons((V1374),(V1375));          V1403= make_cons((V1400),(V1401));
7854          V1373= make_cons(/* INLINE-ARGS */V1377,(V1373));          V1399= make_cons(/* INLINE-ARGS */V1403,(V1399));
7855          goto TTL;          goto TTL;
7856          return;          return;
7857          goto T2860;          goto T2860;
7858  T2860:;  T2860:;
7859          base[5]= (V1371);          base[5]= (V1397);
7860          base[6]= (V1372);          base[6]= (V1398);
7861          base[7]= (V1375);          base[7]= (V1401);
7862          base[8]= Cnil;          base[8]= Cnil;
7863          base[9]= (V1373);          base[9]= (V1399);
7864          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
7865          L101(base0);          L101(base0);
7866          return;}          return;}
7867          goto T2853;          goto T2853;
7868  T2853:;  T2853:;
7869          base[3]= (V1372);          base[3]= (V1398);
7870          {register object V1378;          {register object V1404;
7871          base[5]= base0[8];          base[5]= base0[8];
7872          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7873          Lmake_list();          Lmake_list();
7874          vs_top=sup;          vs_top=sup;
7875          V1378= vs_base[0];          V1404= vs_base[0];
7876          {register object V1379;          {register object V1405;
7877          register object V1380;          register object V1406;
7878          V1379= (V1373);          V1405= (V1399);
7879          V1380= CMPcar((V1379));          V1406= CMPcar((V1405));
7880          goto T2879;          goto T2879;
7881  T2879:;  T2879:;
7882          if(!(((V1379))==Cnil)){          if(!(((V1405))==Cnil)){
7883          goto T2880;}          goto T2880;}
7884          goto T2875;          goto T2875;
7885          goto T2880;          goto T2880;
7886  T2880:;  T2880:;
7887          {register object V1381;          {register object V1407;
7888          register object V1382;          register object V1408;
7889          register object V1383;          register object V1409;
7890          V1381= CMPcar((V1380));          V1407= CMPcar((V1406));
7891          V1382= (V1378);          V1408= (V1404);
7892          V1383= CMPcdr((V1380));          V1409= CMPcdr((V1406));
7893          (nthcdr(fix((V1381)),(V1382)))->c.c_car = (V1383);          (nthcdr(fix((V1407)),(V1408)))->c.c_car = (V1409);
7894          (void)(nthcdr(fix((V1381)),(V1382)));}          (void)(nthcdr(fix((V1407)),(V1408)));}
7895          V1379= CMPcdr((V1379));          V1405= CMPcdr((V1405));
7896          V1380= CMPcar((V1379));          V1406= CMPcar((V1405));
7897          goto T2879;}          goto T2879;}
7898          goto T2875;          goto T2875;
7899  T2875:;  T2875:;
7900          base[4]= (V1378);}          base[4]= (V1404);}
7901          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7902          {object _funobj = base0[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base0[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7903                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7887  register object *base0; Line 7913  register object *base0;
7913  {       register object *base=vs_base;  {       register object *base=vs_base;
7914          register object *sup=base+VM117; VC117          register object *sup=base+VM117; VC117
7915          vs_check;          vs_check;
7916          {register object V1384;          {register object V1410;
7917          check_arg(1);          check_arg(1);
7918          V1384=(base[0]);          V1410=(base[0]);
7919          vs_top=sup;          vs_top=sup;
7920          if(!(type_of((V1384))==t_cons)){          if(!(type_of((V1410))==t_cons)){
7921          goto T2895;}          goto T2895;}
7922          if(!((CMPcar((V1384)))==(VV[108]))){          if(!((CMPcar((V1410)))==(VV[108]))){
7923          goto T2895;}          goto T2895;}
7924          base[1]= list(2,VV[109],(*(LnkLI149))(CMPcadr((V1384))));          base[1]= list(2,VV[109],(*(LnkLI149))(CMPcadr((V1410))));
7925          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7926          return;          return;
7927          goto T2895;          goto T2895;
7928  T2895:;  T2895:;
7929          base[1]= (V1384);          base[1]= (V1410);
7930          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7931          return;          return;
7932          }          }
# Line 7912  register object *base0; Line 7938  register object *base0;
7938  {       register object *base=vs_base;  {       register object *base=vs_base;
7939          register object *sup=base+VM118; VC118          register object *sup=base+VM118; VC118
7940          vs_check;          vs_check;
7941          {object V1385;          {object V1411;
7942          object V1386;          object V1412;
7943          object V1387;          object V1413;
7944          object V1388;          object V1414;
7945          check_arg(4);          check_arg(4);
7946          V1385=(base[0]);          V1411=(base[0]);
7947          V1386=(base[1]);          V1412=(base[1]);
7948          V1387=(base[2]);          V1413=(base[2]);
7949          V1388=(base[3]);          V1414=(base[3]);
7950          vs_top=sup;          vs_top=sup;
7951          base[4]= Cnil;          base[4]= Cnil;
7952          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 7934  register object *base0; Line 7960  register object *base0;
7960  {       register object *base=vs_base;  {       register object *base=vs_base;
7961          register object *sup=base+VM119; VC119          register object *sup=base+VM119; VC119
7962          vs_check;          vs_check;
7963          {object V1389;          {object V1415;
7964          check_arg(2);          check_arg(2);
7965          V1389=(base[0]);          V1415=(base[0]);
7966          base[1]=MMcons(base[1],base0[0]);          base[1]=MMcons(base[1],base0[0]);
7967          vs_top=sup;          vs_top=sup;
7968          if(((V1389))==Cnil){          if(((V1415))==Cnil){
7969          goto T2900;}          goto T2900;}
7970          if(((base0[2]->c.c_car))==Cnil){          if(((base0[2]->c.c_car))==Cnil){
7971          goto T2902;}          goto T2902;}
7972          {object V1390;          {object V1416;
7973          {object V1391;          {object V1417;
7974          object V1392= (base[1]->c.c_car);          object V1418= (base[1]->c.c_car);
7975          if(V1392==Cnil){          if(V1418==Cnil){
7976          V1390= Cnil;          V1416= Cnil;
7977          goto T2905;}          goto T2905;}
7978          base[3]=V1391=MMcons(Cnil,Cnil);          base[3]=V1417=MMcons(Cnil,Cnil);
7979          goto T2906;          goto T2906;
7980  T2906:;  T2906:;
7981          (V1391->c.c_car)= (*(LnkLI386))((V1392->c.c_car));          (V1417->c.c_car)= (*(LnkLI386))((V1418->c.c_car));
7982          if((V1392=MMcdr(V1392))==Cnil){          if((V1418=MMcdr(V1418))==Cnil){
7983          V1390= base[3];          V1416= base[3];
7984          goto T2905;}          goto T2905;}
7985          V1391=MMcdr(V1391)=MMcons(Cnil,Cnil);          V1417=MMcdr(V1417)=MMcons(Cnil,Cnil);
7986          goto T2906;}          goto T2906;}
7987          goto T2905;          goto T2905;
7988  T2905:;  T2905:;
7989          (base0[0]->c.c_car)= make_cons((V1390),(base0[0]->c.c_car));}          (base0[0]->c.c_car)= make_cons((V1416),(base0[0]->c.c_car));}
7990          goto T2902;          goto T2902;
7991  T2902:;  T2902:;
7992          V1393= (*(LnkLI387))((V1389));          V1419= (*(LnkLI387))((V1415));
7993          base[2]= ((/* INLINE-ARGS */V1393)==Cnil?Ct:Cnil);          base[2]= ((/* INLINE-ARGS */V1419)==Cnil?Ct:Cnil);
7994          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
7995          V1394=          V1420 = (V1415);
7996            V1421 = (base0[1]->c.c_car);
7997            V1422=
7998          make_cclosure_new(LC136,Cnil,base[2],Cdata);          make_cclosure_new(LC136,Cnil,base[2],Cdata);
7999          base[3]= (*(LnkLI388))((V1389),(base0[1]->c.c_car),V1394);          base[3]= (*(LnkLI388))(V1420,V1421,V1422);
8000          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8001          return;          return;
8002          goto T2900;          goto T2900;
# Line 7985  register object *base0; Line 8013  register object *base0;
8013  {       register object *base=vs_base;  {       register object *base=vs_base;
8014          register object *sup=base+VM120; VC120          register object *sup=base+VM120; VC120
8015          vs_check;          vs_check;
8016          {object V1395;          {object V1423;
8017          check_arg(1);          check_arg(1);
8018          V1395=(base[0]);          V1423=(base[0]);
8019          vs_top=sup;          vs_top=sup;
8020          base[1]= (VFUN_NARGS=6,(*(LnkLI307))((base0[6]->c.c_car),(V1395),(base0[1]->c.c_car),Cnil,(base0[5]->c.c_car),(base0[0]->c.c_car)));          base[1]= (VFUN_NARGS=6,(*(LnkLI307))((base0[6]->c.c_car),(V1423),(base0[1]->c.c_car),Cnil,(base0[5]->c.c_car),(base0[0]->c.c_car)));
8021          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8022          return;          return;
8023          }          }
# Line 8001  register object *base0; Line 8029  register object *base0;
8029  {       register object *base=vs_base;  {       register object *base=vs_base;
8030          register object *sup=base+VM121; VC121          register object *sup=base+VM121; VC121
8031          vs_check;          vs_check;
8032          {object V1396;          {object V1424;
8033          register object V1397;          register object V1425;
8034          object V1398;          object V1426;
8035          register object V1399;          register object V1427;
8036          check_arg(4);          check_arg(4);
8037          V1396=(base[0]);          V1424=(base[0]);
8038          V1397=(base[1]);          V1425=(base[1]);
8039          V1398=(base[2]);          V1426=(base[2]);
8040          V1399=(base[3]);          V1427=(base[3]);
8041          vs_top=sup;          vs_top=sup;
8042          {object V1400;          {object V1428;
8043          V1400= (*(LnkLI389))((V1396));          V1428= (*(LnkLI389))((V1424));
8044          if(!((CMPcar((V1397)))==(VV[108]))){          if(!((CMPcar((V1425)))==(VV[108]))){
8045          goto T2913;}          goto T2913;}
8046          {object V1401;          {object V1429;
8047          object V1402;          object V1430;
8048          object V1403;          object V1431;
8049          object V1404;          object V1432;
8050          if(type_of((V1399))==t_cons){          if(type_of((V1427))==t_cons){
8051          goto T2916;}          goto T2916;}
8052          V1401= Cnil;          V1429= Cnil;
8053          goto T2915;          goto T2915;
8054          goto T2916;          goto T2916;
8055  T2916:;  T2916:;
8056          if(!((CMPcar((V1399)))==(VV[163]))){          if(!((CMPcar((V1427)))==(VV[163]))){
8057          goto T2920;}          goto T2920;}
8058          goto T2918;          goto T2918;
8059          goto T2920;          goto T2920;
8060  T2920:;  T2920:;
8061          if((CMPcar((V1399)))==(VV[164])){          if((CMPcar((V1427)))==(VV[164])){
8062          goto T2918;}          goto T2918;}
8063          V1401= Cnil;          V1429= Cnil;
8064          goto T2915;          goto T2915;
8065          goto T2918;          goto T2918;
8066  T2918:;  T2918:;
8067          V1401= (((V1400))==(CMPcadr((V1399)))?Ct:Cnil);          V1429= (((V1428))==(CMPcadr((V1427)))?Ct:Cnil);
8068          goto T2915;          goto T2915;
8069  T2915:;  T2915:;
8070          if(((V1401))==Cnil){          if(((V1429))==Cnil){
8071          goto T2924;}          goto T2924;}
8072          V1402= CMPcddr((V1399));          V1430= CMPcddr((V1427));
8073          goto T2922;          goto T2922;
8074          goto T2924;          goto T2924;
8075  T2924:;  T2924:;
8076          V1405= list(2,Ct,(V1399));          V1433= list(2,Ct,(V1427));
8077          V1402= make_cons(/* INLINE-ARGS */V1405,Cnil);          V1430= make_cons(/* INLINE-ARGS */V1433,Cnil);
8078          goto T2922;          goto T2922;
8079  T2922:;  T2922:;
8080          if(((*(LnkLI390))((V1398)))==Cnil){          if(((*(LnkLI390))((V1426)))==Cnil){
8081          goto T2928;}          goto T2928;}
8082          if(((V1401))==Cnil){          if(((V1429))==Cnil){
8083          goto T2933;}          goto T2933;}
8084          if(!((CMPcar((V1399)))==(VV[164]))){          if(!((CMPcar((V1427)))==(VV[164]))){
8085          goto T2928;}          goto T2928;}
8086          goto T2931;          goto T2931;
8087          goto T2933;          goto T2933;
8088  T2933:;  T2933:;
8089          if(((*(LnkLI390))((V1399)))==Cnil){          if(((*(LnkLI390))((V1427)))==Cnil){
8090          goto T2928;}          goto T2928;}
8091          goto T2931;          goto T2931;
8092  T2931:;  T2931:;
8093          V1403= VV[164];          V1431= VV[164];
8094          goto T2926;          goto T2926;
8095          goto T2928;          goto T2928;
8096  T2928:;  T2928:;
8097          V1403= VV[163];          V1431= VV[163];
8098          goto T2926;          goto T2926;
8099  T2926:;  T2926:;
8100          V1404= make_cons(CMPcadr((V1397)),Cnil);          V1432= make_cons(CMPcadr((V1425)),Cnil);
8101          base[8]= listA(4,(V1403),(V1400),list(2,(V1404),(V1398)),(V1402));          base[8]= listA(4,(V1431),(V1428),list(2,(V1432),(V1426)),(V1430));
8102          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
8103          return;}          return;}
8104          goto T2913;          goto T2913;
8105  T2913:;  T2913:;
8106          {object V1407;          {object V1435;
8107          V1407= (*(LnkLI389))((V1396));          V1435= (*(LnkLI389))((V1424));
8108          {object V1408= CMPcar((V1397));          {object V1436= CMPcar((V1425));
8109          if((V1408!= VV[340]))goto T2938;          if((V1436!= VV[340]))goto T2938;
8110          V1406= list(3,VV[166],(V1407),CMPcadr((V1397)));          V1434= list(3,VV[166],(V1435),CMPcadr((V1425)));
8111          goto T2936;          goto T2936;
8112          goto T2938;          goto T2938;
8113  T2938:;  T2938:;
8114          if((V1408!= VV[109]))goto T2939;          if((V1436!= VV[109]))goto T2939;
8115          V1406= list(3,VV[167],(V1407),CMPcadr((V1397)));          V1434= list(3,VV[167],(V1435),CMPcadr((V1425)));
8116          goto T2936;          goto T2936;
8117          goto T2939;          goto T2939;
8118  T2939:;  T2939:;
8119          V1406= Cnil;}}          V1434= Cnil;}}
8120          goto T2936;          goto T2936;
8121  T2936:;  T2936:;
8122          base[4]= list(4,VV[165],V1406,(V1398),(V1399));          V1437 = (V1426);
8123            V1438 = (V1427);
8124            base[4]= list(4,VV[165],V1434,V1437,V1438);
8125          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8126          return;}          return;}
8127          }          }
# Line 8103  register object *base0; Line 8133  register object *base0;
8133  {       register object *base=vs_base;  {       register object *base=vs_base;
8134          register object *sup=base+VM122; VC122          register object *sup=base+VM122; VC122
8135          vs_check;          vs_check;
8136          {VOL object V1409;          {register object V1439;
8137          object V1410;          object V1440;
8138          check_arg(2);          check_arg(2);
8139          V1409=(base[0]);          V1439=(base[0]);
8140          V1410=(base[1]);          V1440=(base[1]);
8141          vs_top=sup;          vs_top=sup;
8142          if(((base0[1]->c.c_car))!=Cnil){          if(((base0[1]->c.c_car))!=Cnil){
8143          goto T2940;}          goto T2940;}
# Line 8122  register object *base0; Line 8152  register object *base0;
8152          goto T2944;}          goto T2944;}
8153          else{          else{
8154          base[3]=MMcons(Cnil,base[2]);          base[3]=MMcons(Cnil,base[2]);
8155          base[4]= (V1409);          base[4]= (V1439);
8156          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8157          Lcopy_list();          Lcopy_list();
8158          vs_top=sup;          vs_top=sup;
8159          V1411= vs_base[0];          V1441= vs_base[0];
8160          V1412=          V1442 = (base0[0]->c.c_car);
8161            V1443=
8162          make_cclosure_new(LC137,Cnil,base[3],Cdata);          make_cclosure_new(LC137,Cnil,base[3],Cdata);
8163          (void)((*(LnkLI388))(V1411,(base0[0]->c.c_car),V1412));          (void)((*(LnkLI388))(V1441,V1442,V1443));
8164          V1409= (base[3]->c.c_car);          V1439= (base[3]->c.c_car);
8165          frs_pop();          frs_pop();
8166          }          }
8167          goto T2944;          goto T2944;
8168  T2944:;  T2944:;
8169          goto T2940;          goto T2940;
8170  T2940:;  T2940:;
8171          base[2]= list(3,VV[67],(V1409),(V1410));          base[2]= list(3,VV[67],(V1439),(V1440));
8172          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8173          return;          return;
8174          goto T2941;          goto T2941;
8175  T2941:;  T2941:;
8176          base[2]= list(3,VV[157],(V1409),(V1410));          base[2]= list(3,VV[157],(V1439),(V1440));
8177          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8178          return;          return;
8179          }          }
# Line 8154  register object *base0; Line 8185  register object *base0;
8185  {       register object *base=vs_base;  {       register object *base=vs_base;
8186          register object *sup=base+VM123; VC123          register object *sup=base+VM123; VC123
8187          vs_check;          vs_check;
8188          {object V1413;          {object V1444;
8189          check_arg(1);          check_arg(1);
8190          V1413=(base[0]);          V1444=(base[0]);
8191          vs_top=sup;          vs_top=sup;
8192          if(((base0[0]->c.c_car))==Cnil){          if(((base0[0]->c.c_car))==Cnil){
8193          goto T2951;}          goto T2951;}
# Line 8168  register object *base0; Line 8199  register object *base0;
8199          unwind(fr,Cnil);}          unwind(fr,Cnil);}
8200          goto T2951;          goto T2951;
8201  T2951:;  T2951:;
8202          (base0[0]->c.c_car)= (V1413);          (base0[0]->c.c_car)= (V1444);
8203          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
8204          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8205          return;          return;
# Line 8181  register object *base0; Line 8212  register object *base0;
8212  {       register object *base=vs_base;  {       register object *base=vs_base;
8213          register object *sup=base+VM124; VC124          register object *sup=base+VM124; VC124
8214          vs_check;          vs_check;
8215          {register object V1414;          {register object V1445;
8216          check_arg(1);          check_arg(1);
8217          V1414=(base[0]);          V1445=(base[0]);
8218          vs_top=sup;          vs_top=sup;
8219          goto TTL;          goto TTL;
8220  TTL:;  TTL:;
8221          if((base0[0])==Cnil){          if((base0[0])==Cnil){
8222          goto T2956;}          goto T2956;}
8223          {register object x= base0[0],V1415= (V1414);          {register object x= base0[0],V1446= (V1445);
8224          while(V1415!=Cnil)          while(V1446!=Cnil)
8225          if(x==(V1415->c.c_car)){          if(x==(V1446->c.c_car)){
8226          goto T2960;          goto T2960;
8227          }else V1415=V1415->c.c_cdr;          }else V1446=V1446->c.c_cdr;
8228          goto T2957;}          goto T2957;}
8229          goto T2960;          goto T2960;
8230  T2960:;  T2960:;
8231          goto T2956;          goto T2956;
8232  T2956:;  T2956:;
8233          {object V1416;          {object V1447;
8234          V1416= (*(LnkLI392))(base0[5],base0[7],(V1414),base0[6]);          V1447= (*(LnkLI392))(base0[5],base0[7],(V1445),base0[6]);
8235          if(((V1416))==Cnil){          if(((V1447))==Cnil){
8236          goto T2963;}          goto T2963;}
8237          V1417= (VFUN_NARGS=3,(*(LnkLI393))(base0[1],(V1416),base0[9]));          V1448 = base0[9];
8238          if(!((base0[9])==(/* INLINE-ARGS */V1417))){          V1449= (VFUN_NARGS=3,(*(LnkLI393))(base0[1],(V1447),base0[9]));
8239            if(!((V1448)==(/* INLINE-ARGS */V1449))){
8240          goto T2963;}          goto T2963;}
8241          {object V1418;          {object V1450;
8242          if(!((base0[2])==(Ct))){          if(!((base0[2])==(Ct))){
8243          goto T2969;}          goto T2969;}
8244          base[1]= base0[3];          base[1]= base0[3];
8245          base[2]= (V1414);          base[2]= (V1445);
8246          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8247          (void) (*Lnk394)();          (void) (*Lnk394)();
8248          vs_top=sup;          vs_top=sup;
8249          V1418= vs_base[0];          V1450= vs_base[0];
8250          goto T2967;          goto T2967;
8251          goto T2969;          goto T2969;
8252  T2969:;  T2969:;
8253          if(!((base0[2])==(VV[112]))){          if(!((base0[2])==(VV[112]))){
8254          goto T2974;}          goto T2974;}
8255          V1418= (*(LnkLI395))(base0[3],(V1414));          V1450= (*(LnkLI395))(base0[3],(V1445));
8256          goto T2967;          goto T2967;
8257          goto T2974;          goto T2974;
8258  T2974:;  T2974:;
8259          V1418= Cnil;          V1450= Cnil;
8260          goto T2967;          goto T2967;
8261  T2967:;  T2967:;
8262          base0[1]= (VFUN_NARGS=4,(*(LnkLI396))(base0[1],(V1416),(V1418),Ct));          base0[1]= (VFUN_NARGS=4,(*(LnkLI396))(base0[1],(V1447),(V1450),Ct));
8263          base[1]= base0[1];          base[1]= base0[1];
8264          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8265          return;}          return;}
# Line 8250  register object *base0; Line 8282  register object *base0;
8282  {       register object *base=vs_base;  {       register object *base=vs_base;
8283          register object *sup=base+VM125; VC125          register object *sup=base+VM125; VC125
8284          vs_check;          vs_check;
8285          {object V1419;          {object V1451;
8286          check_arg(1);          check_arg(1);
8287          V1419=(base[0]);          V1451=(base[0]);
8288          vs_top=sup;          vs_top=sup;
8289          base[1]= (V1419);          base[1]= (V1451);
8290          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8291          (void) (*Lnk397)(Lclptr397);          (void) (*Lnk397)(Lclptr397);
8292          vs_top=sup;          vs_top=sup;
8293          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8294          goto T2978;}          goto T2978;}
8295          {register object V1420;          {register object V1452;
8296          register object V1421;          register object V1453;
8297          base[3]= (V1419);          base[3]= (V1451);
8298          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8299          (void) (*Lnk398)(Lclptr398);          (void) (*Lnk398)(Lclptr398);
8300          vs_top=sup;          vs_top=sup;
8301          V1420= vs_base[0];          V1452= vs_base[0];
8302          V1421= CMPcar((V1420));          V1453= CMPcar((V1452));
8303          goto T2985;          goto T2985;
8304  T2985:;  T2985:;
8305          if(!(((V1420))==Cnil)){          if(!(((V1452))==Cnil)){
8306          goto T2986;}          goto T2986;}
8307          base[3]= Cnil;          base[3]= Cnil;
8308          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8309          return;          return;
8310          goto T2986;          goto T2986;
8311  T2986:;  T2986:;
8312          base[3]= (V1421);          base[3]= (V1453);
8313          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
8314          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
8315          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
8316          (void) (*Lnk399)(Lclptr399);          (void) (*Lnk399)(Lclptr399);
8317          vs_top=sup;          vs_top=sup;
8318          V1420= CMPcdr((V1420));          V1452= CMPcdr((V1452));
8319          V1421= CMPcar((V1420));          V1453= CMPcar((V1452));
8320          goto T2985;}          goto T2985;}
8321          goto T2978;          goto T2978;
8322  T2978:;  T2978:;
# Line 8300  register object *base0; Line 8332  register object *base0;
8332  {       register object *base=vs_base;  {       register object *base=vs_base;
8333          register object *sup=base+VM126; VC126          register object *sup=base+VM126; VC126
8334          vs_check;          vs_check;
8335          {object V1422;          {object V1454;
8336          check_arg(1);          check_arg(1);
8337          V1422=(base[0]);          V1454=(base[0]);
8338          vs_top=sup;          vs_top=sup;
8339          goto TTL;          goto TTL;
8340  TTL:;  TTL:;
8341          base[1]= (V1422);          base[1]= (V1454);
8342          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8343          (void) (*Lnk397)(Lclptr397);          (void) (*Lnk397)(Lclptr397);
8344          vs_top=sup;          vs_top=sup;
8345          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8346          goto T3000;}          goto T3000;}
8347          {register object V1423;          {register object V1455;
8348          register object V1424;          register object V1456;
8349          base[3]= (V1422);          base[3]= (V1454);
8350          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8351          (void) (*Lnk398)(Lclptr398);          (void) (*Lnk398)(Lclptr398);
8352          vs_top=sup;          vs_top=sup;
8353          V1423= vs_base[0];          V1455= vs_base[0];
8354          V1424= CMPcar((V1423));          V1456= CMPcar((V1455));
8355          goto T3007;          goto T3007;
8356  T3007:;  T3007:;
8357          if(!(((V1423))==Cnil)){          if(!(((V1455))==Cnil)){
8358          goto T3008;}          goto T3008;}
8359          base[3]= Cnil;          base[3]= Cnil;
8360          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8361          return;          return;
8362          goto T3008;          goto T3008;
8363  T3008:;  T3008:;
8364          base[3]= (V1424);          base[3]= (V1456);
8365          base[4]= (base0[1]->c.c_car);          base[4]= (base0[1]->c.c_car);
8366          base[5]= (base0[0]->c.c_car);          base[5]= (base0[0]->c.c_car);
8367          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
8368          (void) (*Lnk399)(Lclptr399);          (void) (*Lnk399)(Lclptr399);
8369          vs_top=sup;          vs_top=sup;
8370          V1423= CMPcdr((V1423));          V1455= CMPcdr((V1455));
8371          V1424= CMPcar((V1423));          V1456= CMPcar((V1455));
8372          goto T3007;}          goto T3007;}
8373          goto T3000;          goto T3000;
8374  T3000:;  T3000:;
# Line 8352  register object *base0; Line 8384  register object *base0;
8384  {       register object *base=vs_base;  {       register object *base=vs_base;
8385          register object *sup=base+VM127; VC127          register object *sup=base+VM127; VC127
8386          vs_check;          vs_check;
8387          {object V1425;          {object V1457;
8388          check_arg(1);          check_arg(1);
8389          V1425=(base[0]);          V1457=(base[0]);
8390          vs_top=sup;          vs_top=sup;
8391          {register object x= (V1425),V1426= (base0[1]->c.c_car);          {register object x= (V1457),V1458= (base0[1]->c.c_car);
8392          while(V1426!=Cnil)          while(V1458!=Cnil)
8393          if(eql(x,V1426->c.c_car)){          if(eql(x,V1458->c.c_car)){
8394          goto T3021;          goto T3021;
8395          }else V1426=V1426->c.c_cdr;}          }else V1458=V1458->c.c_cdr;}
8396          {register object V1427;          {register object V1459;
8397          register object V1428;          register object V1460;
8398          V1427= (base0[0]->c.c_car);          V1459= (base0[0]->c.c_car);
8399          V1428= CMPcar((V1427));          V1460= CMPcar((V1459));
8400          goto T3029;          goto T3029;
8401  T3029:;  T3029:;
8402          if(!(((V1427))==Cnil)){          if(!(((V1459))==Cnil)){
8403          goto T3030;}          goto T3030;}
8404          goto T3022;          goto T3022;
8405          goto T3030;          goto T3030;
8406  T3030:;  T3030:;
8407          base[2]= (*(LnkLI149))((V1425));          V1462 = (V1460);
8408            base[2]= (*(LnkLI149))((V1457));
8409          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8410          (void) (*Lnk155)(Lclptr155);          (void) (*Lnk155)(Lclptr155);
8411          vs_top=sup;          vs_top=sup;
8412          V1430= vs_base[0];          V1463= vs_base[0];
8413          {register object x= (V1428),V1429= V1430;          {register object x= V1462,V1461= V1463;
8414          while(V1429!=Cnil)          while(V1461!=Cnil)
8415          if(eql(x,V1429->c.c_car)){          if(eql(x,V1461->c.c_car)){
8416          goto T3034;          goto T3034;
8417          }else V1429=V1429->c.c_cdr;}          }else V1461=V1461->c.c_cdr;}
8418          goto T3034;          goto T3034;
8419  T3034:;  T3034:;
8420          V1427= CMPcdr((V1427));          V1459= CMPcdr((V1459));
8421          V1428= CMPcar((V1427));          V1460= CMPcar((V1459));
8422          goto T3029;}          goto T3029;}
8423          goto T3021;          goto T3021;
8424  T3021:;  T3021:;
8425          base[1]= (*(LnkLI317))((V1425));          base[1]= (*(LnkLI317))((V1457));
8426          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8427          return;          return;
8428          goto T3022;          goto T3022;
# Line 8406  register object *base0; Line 8439  register object *base0;
8439  {       register object *base=vs_base;  {       register object *base=vs_base;
8440          register object *sup=base+VM128; VC128          register object *sup=base+VM128; VC128
8441          vs_check;          vs_check;
8442          {object V1431;          {object V1464;
8443          check_arg(1);          check_arg(1);
8444          V1431=(base[0]);          V1464=(base[0]);
8445          vs_top=sup;          vs_top=sup;
8446          {register object x= (V1431),V1432= (base0[0]->c.c_car);          {register object x= (V1464),V1465= (base0[0]->c.c_car);
8447          while(V1432!=Cnil)          while(V1465!=Cnil)
8448          if(eql(x,V1432->c.c_car)){          if(eql(x,V1465->c.c_car)){
8449          base[1]= V1432;          base[1]= V1465;
8450          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8451          return;          return;
8452          }else V1432=V1432->c.c_cdr;          }else V1465=V1465->c.c_cdr;
8453          base[1]= Cnil;          base[1]= Cnil;
8454          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8455          return;}          return;}
# Line 8429  register object *base0; Line 8462  register object *base0;
8462  {       register object *base=vs_base;  {       register object *base=vs_base;
8463          register object *sup=base+VM129; VC129          register object *sup=base+VM129; VC129
8464          vs_check;          vs_check;
8465          {object V1433;          {object V1466;
8466          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8467          {object *p=vs_top;          {object *p=vs_top;
8468           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8469          V1433=(base[0]);          V1466=(base[0]);
8470          vs_top=sup;          vs_top=sup;
8471          {object V1434;          {object V1467;
8472          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
8473          base[2]= (V1433);          base[2]= (V1466);
8474          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8475          (void) (*Lnk115)(Lclptr115);          (void) (*Lnk115)(Lclptr115);
8476          vs_top=sup;          vs_top=sup;
8477          V1434= vs_base[0];          V1467= vs_base[0];
8478          if(((V1434))==Cnil){          if(((V1467))==Cnil){
8479          goto T3046;}          goto T3046;}
8480          {object V1435;          {object V1468;
8481          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
8482          base[2]= (V1434);          base[2]= (V1467);
8483          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8484          (void) (*Lnk312)();          (void) (*Lnk312)();
8485          vs_top=sup;          vs_top=sup;
8486          V1435= vs_base[0];          V1468= vs_base[0];
8487          base[1]= (V1435);          base[1]= (V1468);
8488          base[2]= (V1433);          base[2]= (V1466);
8489          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8490          (void) (*Lnk379)();          (void) (*Lnk379)();
8491          return;}          return;}
# Line 8460  register object *base0; Line 8493  register object *base0;
8493  T3046:;  T3046:;
8494          base[1]=VV[400]->s.s_gfdef;          base[1]=VV[400]->s.s_gfdef;
8495          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
8496          {object V1436;          {object V1469;
8497          V1436= (V1433);          V1469= (V1466);
8498           vs_top=base+3;           vs_top=base+3;
8499           while(V1436!=Cnil)           while(V1469!=Cnil)
8500           {vs_push((V1436)->c.c_car);V1436=(V1436)->c.c_cdr;}           {vs_push((V1469)->c.c_car);V1469=(V1469)->c.c_cdr;}
8501          vs_base=base+2;}          vs_base=base+2;}
8502          (void) (*Lnk400)(Lclptr400);          (void) (*Lnk400)(Lclptr400);
8503          return;}          return;}
# Line 8477  register object *base0; Line 8510  register object *base0;
8510  {       register object *base=vs_base;  {       register object *base=vs_base;
8511          register object *sup=base+VM130; VC130          register object *sup=base+VM130; VC130
8512          vs_check;          vs_check;
8513          {object V1437;          {object V1470;
8514          object V1438;          object V1471;
8515          check_arg(2);          check_arg(2);
8516          V1437=(base[0]);          V1470=(base[0]);
8517          V1438=(base[1]);          V1471=(base[1]);
8518          vs_top=sup;          vs_top=sup;
8519          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
8520          {object V1439;          {object V1472;
8521          V1439= (V1437);          V1472= (V1470);
8522           vs_top=base+3;           vs_top=base+3;
8523           while(V1439!=Cnil)           while(V1472!=Cnil)
8524           {vs_push((V1439)->c.c_car);V1439=(V1439)->c.c_cdr;}           {vs_push((V1472)->c.c_car);V1472=(V1472)->c.c_cdr;}
8525          vs_base=base+3;}          vs_base=base+3;}
8526          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8527                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8504  register object *base0; Line 8537  register object *base0;
8537  {       register object *base=vs_base;  {       register object *base=vs_base;
8538          register object *sup=base+VM131; VC131          register object *sup=base+VM131; VC131
8539          vs_check;          vs_check;
8540          {object V1440;          {object V1473;
8541          object V1441;          object V1474;
8542          object V1442;          object V1475;
8543          check_arg(3);          check_arg(3);
8544          V1440=(base[0]);          V1473=(base[0]);
8545          V1441=(base[1]);          V1474=(base[1]);
8546          V1442=(base[2]);          V1475=(base[2]);
8547          vs_top=sup;          vs_top=sup;
8548          goto TTL;          goto TTL;
8549  TTL:;  TTL:;
8550          base[3]= VV[84];          base[3]= VV[84];
8551          base[4]= base0[2];          base[4]= base0[2];
8552          base[5]= (V1440);          base[5]= (V1473);
8553          base[6]= (V1441);          base[6]= (V1474);
8554          base[7]= (V1442);          base[7]= (V1475);
8555          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
8556          Lerror();          Lerror();
8557          return;          return;
# Line 8531  register object *base0; Line 8564  register object *base0;
8564  {       register object *base=vs_base;  {       register object *base=vs_base;
8565          register object *sup=base+VM132; VC132          register object *sup=base+VM132; VC132
8566          vs_check;          vs_check;
8567          {object V1443;          {object V1476;
8568          object V1444;          object V1477;
8569          object V1445;          object V1478;
8570          check_arg(3);          check_arg(3);
8571          V1443=(base[0]);          V1476=(base[0]);
8572          V1444=(base[1]);          V1477=(base[1]);
8573          V1445=(base[2]);          V1478=(base[2]);
8574          vs_top=sup;          vs_top=sup;
8575          goto TTL;          goto TTL;
8576  TTL:;  TTL:;
8577          base[3]= VV[57];          base[3]= VV[57];
8578          base[4]= base0[2];          base[4]= base0[2];
8579          base[5]= (V1443);          base[5]= (V1476);
8580          base[6]= (V1444);          base[6]= (V1477);
8581          base[7]= (V1445);          base[7]= (V1478);
8582          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
8583          Lerror();          Lerror();
8584          return;          return;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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