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

Diff of /gcl/lsp/loop.c

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

revision 1.10 by camm, Sun Nov 17 21:43:01 2002 UTC revision 1.11 by camm, Wed Nov 27 04:09:41 2002 UTC
# Line 334  TTL:; Line 334  TTL:;
334          base[2]= (V34);          base[2]= (V34);
335          base[3]= symbol_value(VV[19]);          base[3]= symbol_value(VV[19]);
336          base[4]= VV[20];          base[4]= VV[20];
337          base[5]= symbol_function(VV[324]);          base[5]= symbol_function(VV[326]);
338          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
339          Lassoc();          Lassoc();
340          vs_top=sup;          vs_top=sup;
# Line 347  TTL:; Line 347  TTL:;
347          base[6]= VV[23];          base[6]= VV[23];
348          base[8]= VV[24];          base[8]= VV[24];
349          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
350          (void) (*Lnk325)();          (void) (*Lnk327)();
351          vs_top=sup;          vs_top=sup;
352          base[7]= vs_base[0];          base[7]= vs_base[0];
353          base[8]= VV[25];          base[8]= VV[25];
# Line 359  goto T76; Line 359  goto T76;
359  T76:;  T76:;
360          base[10]= VV[26];          base[10]= VV[26];
361          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
362          (void) (*Lnk325)();          (void) (*Lnk327)();
363          vs_top=sup;          vs_top=sup;
364          base[9]= vs_base[0];          base[9]= vs_base[0];
365  goto T75;  goto T75;
# Line 369  T75:; Line 369  T75:;
369          base[12]= VV[28];          base[12]= VV[28];
370          base[13]= (V35);          base[13]= (V35);
371          vs_top=(vs_base=base+2)+12;          vs_top=(vs_base=base+2)+12;
372          (void) (*Lnk326)();          (void) (*Lnk328)();
373          return;}          return;}
374          }          }
375  }  }
# Line 402  TTL:; Line 402  TTL:;
402          goto T87;}          goto T87;}
403          base[2]= VV[26];          base[2]= VV[26];
404          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
405          (void) (*Lnk325)();          (void) (*Lnk327)();
406          vs_top=sup;          vs_top=sup;
407          V43= vs_base[0];          V43= vs_base[0];
408          (void)(structure_set((V38),VV[18],3,V43));          (void)(structure_set((V38),VV[18],3,V43));
# Line 435  static void L13() Line 435  static void L13()
435          object V51;          object V51;
436          base[4]= structure_ref(base[2],VV[18],1);          base[4]= structure_ref(base[2],VV[18],1);
437          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
438          (void) (*Lnk327)();          (void) (*Lnk329)();
439          vs_top=sup;          vs_top=sup;
440          V45= vs_base[0];          V45= vs_base[0];
441          V52= structure_ref(base[2],VV[18],4);          V52= structure_ref(base[2],VV[18],4);
# Line 504  static void L14() Line 504  static void L14()
504          goto T116;          goto T116;
505  goto T117;  goto T117;
506  T117:;  T117:;
507          if((V65!= VV[328]))goto T118;          if((V65!= VV[330]))goto T118;
508          V64= VV[34];          V64= VV[34];
509          goto T116;          goto T116;
510  goto T118;  goto T118;
# Line 516  goto T116; Line 516  goto T116;
516  T116:;  T116:;
517          base[11]= list(3,V64,(V61),(V60));          base[11]= list(3,V64,(V61),(V60));
518          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
519          (void) (*Lnk329)();          (void) (*Lnk331)();
520          vs_top=sup;          vs_top=sup;
521          V63= vs_base[0];          V63= vs_base[0];
522          V66= list(3,VV[11],(V61),base[4]);          V66= list(3,VV[11],(V61),base[4]);
# Line 593  T128:; Line 593  T128:;
593          base[2]= (V73);          base[2]= (V73);
594          base[3]= (V74);          base[3]= (V74);
595          base[4]= VV[20];          base[4]= VV[20];
596          base[5]= symbol_function(VV[330]);          base[5]= symbol_function(VV[332]);
597          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
598          Lassoc();          Lassoc();
599          return;          return;
# Line 623  T134:; Line 623  T134:;
623          base[2]= (V75);          base[2]= (V75);
624          base[3]= (V76);          base[3]= (V76);
625          base[4]= VV[20];          base[4]= VV[20];
626          base[5]= symbol_function(VV[330]);          base[5]= symbol_function(VV[332]);
627          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
628          Lmember();          Lmember();
629          return;          return;
# Line 750  T155:; Line 750  T155:;
750          goto T154;          goto T154;
751  goto T156;  goto T156;
752  T156:;  T156:;
753          if((V92!= VV[305]))goto T157;          if((V92!= VV[307]))goto T157;
754          V91= VV[42];          V91= VV[42];
755          goto T154;          goto T154;
756  goto T157;  goto T157;
# Line 801  T165:; Line 801  T165:;
801          base[16]= (V100);          base[16]= (V100);
802          base[17]= VV[46];          base[17]= VV[46];
803          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
804          (void) (*Lnk331)();          (void) (*Lnk333)();
805          vs_top=sup;          vs_top=sup;
806          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
807          goto T166;}          goto T166;}
# Line 889  T217:; Line 889  T217:;
889  goto T215;  goto T215;
890  T215:;  T215:;
891          base[34]= VV[20];          base[34]= VV[20];
892          base[35]= symbol_function(VV[332]);          base[35]= symbol_function(VV[334]);
893          vs_top=(vs_base=base+32)+4;          vs_top=(vs_base=base+32)+4;
894          Lmake_hash_table();          Lmake_hash_table();
895          vs_top=sup;          vs_top=sup;
# Line 935  goto T221; Line 935  goto T221;
935  T221:;  T221:;
936          base[29]= (V102);}          base[29]= (V102);}
937          vs_top=(vs_base=base+14)+16;          vs_top=(vs_base=base+14)+16;
938          (void) (*Lnk333)();          (void) (*Lnk335)();
939          return;          return;
940          }          }
941  }  }
# Line 965  T250:; Line 965  T250:;
965          V114= cadr((V111));          V114= cadr((V111));
966          base[2]= cddr((V111));          base[2]= cddr((V111));
967          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
968          (void) (*Lnk334)();          (void) (*Lnk336)();
969          vs_top=sup;          vs_top=sup;
970          V115= vs_base[0];          V115= vs_base[0];
971          V113= list(3,VV[62],/* INLINE-ARGS */V114,V115);          V113= list(3,VV[62],/* INLINE-ARGS */V114,V115);
# Line 973  goto T248; Line 973  goto T248;
973  T248:;  T248:;
974          base[1]= list(2,/* INLINE-ARGS */V112,V113);          base[1]= list(2,/* INLINE-ARGS */V112,V113);
975          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
976          (void) (*Lnk335)();          (void) (*Lnk337)();
977          return;          return;
978          }          }
979  }  }
# Line 1104  T287:; Line 1104  T287:;
1104          base[2]= (V127);          base[2]= (V127);
1105          base[3]= (V124);          base[3]= (V124);
1106          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1107          (void) (*Lnk331)();          (void) (*Lnk333)();
1108          vs_top=sup;          vs_top=sup;
1109          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1110          goto T294;}          goto T294;}
# Line 1113  T287:; Line 1113  T287:;
1113          base[4]= (V127);          base[4]= (V127);
1114          base[5]= (V124);          base[5]= (V124);
1115          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1116          (void) (*Lnk336)();          (void) (*Lnk338)();
1117          vs_top=sup;          vs_top=sup;
1118          V126= Cnil;          V126= Cnil;
1119          V127= Cnil;          V127= Cnil;
# Line 1160  TTL:; Line 1160  TTL:;
1160          object V131;          object V131;
1161          base[1]= (V129);          base[1]= (V129);
1162          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1163          (void) (*Lnk337)();          (void) (*Lnk339)();
1164          if(vs_base>=vs_top){vs_top=sup;goto T317;}          if(vs_base>=vs_top){vs_top=sup;goto T317;}
1165          V130= vs_base[0];          V130= vs_base[0];
1166          vs_base++;          vs_base++;
# Line 1235  T331:; Line 1235  T331:;
1235          {register long V135;          {register long V135;
1236          base[10]= base[1];          base[10]= base[1];
1237          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1238          (void) (*Lnk338)();          (void) (*Lnk340)();
1239          vs_top=sup;          vs_top=sup;
1240          V135= fix(vs_base[0]);          V135= fix(vs_base[0]);
1241  goto T339;  goto T339;
# Line 1465  T459:; Line 1465  T459:;
1465          V165= cdr((V162));          V165= cdr((V162));
1466          base[1]= car((V162));          base[1]= car((V162));
1467          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1468          (void) (*Lnk339)();          (void) (*Lnk341)();
1469          vs_top=sup;          vs_top=sup;
1470          V166= vs_base[0];          V166= vs_base[0];
1471          V163= number_plus(V166,(V163));          V163= number_plus(V166,(V163));
# Line 1495  TTL:; Line 1495  TTL:;
1495          base[2]= (V167);          base[2]= (V167);
1496          base[3]= (V168);          base[3]= (V168);
1497          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1498          (void) (*Lnk340)();          (void) (*Lnk342)();
1499          frs_pop();          frs_pop();
1500          return;}          return;}
1501          }          }
# Line 1660  T548:; Line 1660  T548:;
1660          base[2]= make_fixnum(V174);          base[2]= make_fixnum(V174);
1661          base[4]= car((V184));          base[4]= car((V184));
1662          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1663          (void) (*Lnk339)();          (void) (*Lnk341)();
1664          vs_top=sup;          vs_top=sup;
1665          base[3]= vs_base[0];          base[3]= vs_base[0];
1666          base[5]= cadr((V184));          base[5]= cadr((V184));
1667          base[6]= base[1];          base[6]= base[1];
1668          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1669          (void) (*Lnk340)();          (void) (*Lnk342)();
1670          vs_top=sup;          vs_top=sup;
1671          base[4]= vs_base[0];          base[4]= vs_base[0];
1672          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
# Line 1700  T569:; Line 1700  T569:;
1700          base[4]= cadr((V186));          base[4]= cadr((V186));
1701          base[5]= base[1];          base[5]= base[1];
1702          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1703          (void) (*Lnk340)();          (void) (*Lnk342)();
1704          vs_top=sup;          vs_top=sup;
1705          base[3]= vs_base[0];          base[3]= vs_base[0];
1706          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
# Line 1760  T598:; Line 1760  T598:;
1760          base[2]= caddr((V169));          base[2]= caddr((V169));
1761          base[3]= base[1];          base[3]= base[1];
1762          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1763          (void) (*Lnk340)();          (void) (*Lnk342)();
1764          vs_top=sup;          vs_top=sup;
1765          V189= vs_base[0];          V189= vs_base[0];
1766          base[2]= one_plus(V189);          base[2]= one_plus(V189);
# Line 1770  goto T603; Line 1770  goto T603;
1770  T603:;  T603:;
1771          base[2]= (V172);          base[2]= (V172);
1772          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1773          (void) (*Lnk341)();          (void) (*Lnk343)();
1774          vs_top=sup;          vs_top=sup;
1775          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1776          goto T608;}          goto T608;}
# Line 1887  static void L42() Line 1887  static void L42()
1887          base[4]= (V197);          base[4]= (V197);
1888          base[5]= (V198);          base[5]= (V198);
1889          vs_base=vs_top;          vs_base=vs_top;
1890          (void) (*Lnk342)();          (void) (*Lnk344)();
1891          vs_top=sup;          vs_top=sup;
1892          base[6]= vs_base[0];          base[6]= vs_base[0];
1893          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1894          (void) (*Lnk343)();          (void) (*Lnk345)();
1895          return;          return;
1896          }          }
1897  }  }
# Line 1912  static void L43() Line 1912  static void L43()
1912          V200=(base[1]);          V200=(base[1]);
1913          vs_top=sup;          vs_top=sup;
1914          vs_base=vs_top;          vs_base=vs_top;
1915          (void) (*Lnk342)();          (void) (*Lnk344)();
1916          vs_top=sup;          vs_top=sup;
1917          V201= vs_base[0];          V201= vs_base[0];
1918          base[2]= (VFUN_NARGS=4,(*(LnkLI344))(VV[92],(V199),(V200),V201));          base[2]= (VFUN_NARGS=4,(*(LnkLI346))(VV[92],(V199),(V200),V201));
1919          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1920          return;          return;
1921          }          }
# Line 1955  T650:; Line 1955  T650:;
1955          base[3]= (V202);          base[3]= (V202);
1956          base[4]= (V203);          base[4]= (V203);
1957          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1958          (void) (*Lnk324)();          (void) (*Lnk326)();
1959          if(vs_base>=vs_top){vs_top=sup;goto T655;}          if(vs_base>=vs_top){vs_top=sup;goto T655;}
1960          V205= vs_base[0];          V205= vs_base[0];
1961          vs_base++;          vs_base++;
# Line 1977  T657:; Line 1977  T657:;
1977          base[4]= (V202);          base[4]= (V202);
1978          base[5]= (V203);          base[5]= (V203);
1979          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1980          (void) (*Lnk336)();          (void) (*Lnk338)();
1981          vs_top=sup;          vs_top=sup;
1982          goto T658;          goto T658;
1983  goto T660;  goto T660;
# Line 1988  T660:; Line 1988  T660:;
1988          base[4]= (V202);          base[4]= (V202);
1989          base[5]= (V203);          base[5]= (V203);
1990          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1991          (void) (*Lnk345)();          (void) (*Lnk347)();
1992          vs_top=sup;          vs_top=sup;
1993  goto T658;  goto T658;
1994  T658:;  T658:;
# Line 2048  TTL:; Line 2048  TTL:;
2048          bds_bind(VV[117],Cnil);          bds_bind(VV[117],Cnil);
2049          bds_bind(VV[118],Cnil);          bds_bind(VV[118],Cnil);
2050          bds_bind(VV[119],Cnil);          bds_bind(VV[119],Cnil);
2051            bds_bind(VV[120],Cnil);
2052          vs_base=vs_top;          vs_base=vs_top;
2053          (void) (*Lnk346)();          (void) (*Lnk348)();
2054          vs_top=sup;          vs_top=sup;
2055          vs_base=vs_top;          vs_base=vs_top;
2056          (void) (*Lnk347)();          (void) (*Lnk349)();
2057          vs_top=sup;          vs_top=sup;
2058          {register object V208;          {register object V208;
2059          V209= nreverse((VV[106]->s.s_dbind));          V209= nreverse((VV[106]->s.s_dbind));
2060          V210= nreverse((VV[108]->s.s_dbind));          V210= nreverse((VV[108]->s.s_dbind));
2061          V211= nreverse((VV[109]->s.s_dbind));          V211= nreverse((VV[109]->s.s_dbind));
2062          V212= nreverse((VV[111]->s.s_dbind));          V212= nreverse((VV[111]->s.s_dbind));
2063          base[26]= (VV[112]->s.s_dbind);          base[27]= (VV[112]->s.s_dbind);
2064          base[27]= nreverse((VV[113]->s.s_dbind));          base[28]= nreverse((VV[113]->s.s_dbind));
2065          vs_top=(vs_base=base+26)+2;          vs_top=(vs_base=base+27)+2;
2066          Lreconc();          Lreconc();
2067          vs_top=sup;          vs_top=sup;
2068          V213= vs_base[0];          V213= vs_base[0];
2069          V208= list(6,VV[120],/* INLINE-ARGS */V209,/* INLINE-ARGS */V210,/* INLINE-ARGS */V211,/* INLINE-ARGS */V212,V213);          V208= list(6,VV[121],/* INLINE-ARGS */V209,/* INLINE-ARGS */V210,/* INLINE-ARGS */V211,/* INLINE-ARGS */V212,V213);
2070  goto T678;          {register object V214;
2071  T678:;          register object V215;
2072          {object V215;          V214= (VV[105]->s.s_dbind);
2073          V215= car((VV[118]->s.s_dbind));          V215= car((V214));
2074          (VV[118]->s.s_dbind)= cdr((VV[118]->s.s_dbind));  goto T680;
2075          V214= (V215);}  T680:;
2076          V208= list(3,VV[121],V214,(V208));          if(!(endp_prop((V214)))){
2077          if(((VV[118]->s.s_dbind))!=Cnil){          goto T681;}
         goto T687;}  
2078          goto T676;          goto T676;
2079  goto T687;  goto T681;
2080  T687:;  T681:;
2081          goto T678;          {object V216;
2082  goto T676;          object V217;
2083  T676:;          object V218;
         {register object V216;  
         register object V217;  
         V216= (VV[105]->s.s_dbind);  
         V217= car((V216));  
 goto T696;  
 T696:;  
         if(!(endp_prop((V216)))){  
         goto T697;}  
         goto T692;  
 goto T697;  
 T697:;  
         {object V218;  
2084          object V219;          object V219;
2085          object V220;          V216= car((V215));
2086          object V221;          V217= cadr((V215));
2087          V218= car((V217));          V218= caddr((V215));
2088          V219= cadr((V217));          V219= cadddr((V215));
2089          V220= caddr((V217));          {register object V220;
2090          V221= cadddr((V217));          register object V221;
2091          {register object V222;          V220= (V219);
2092          register object V223;          V221= car((V220));
2093          V222= (V221);  goto T694;
2094          V223= car((V222));  T694:;
2095  goto T710;          if(!(endp_prop((V220)))){
2096  T710:;          goto T695;}
2097          if(!(endp_prop((V222)))){          goto T690;
2098          goto T711;}  goto T695;
2099          goto T706;  T695:;
2100  goto T711;          V222= make_cons((V208),Cnil);
2101  T711:;          V208= append((V221),/* INLINE-ARGS */V222);
2102          V224= make_cons((V208),Cnil);          V220= cdr((V220));
2103          V208= append((V223),/* INLINE-ARGS */V224);          V221= car((V220));
2104          V222= cdr((V222));          goto T694;}
2105          V223= car((V222));  goto T690;
2106          goto T710;}  T690:;
2107            if(((V216))!=Cnil){
2108            goto T706;}
2109            if(((V217))!=Cnil){
2110            goto T706;}
2111            if(((V218))==Cnil){
2112            goto T685;}
2113  goto T706;  goto T706;
2114  T706:;  T706:;
2115          if(((V218))!=Cnil){          {register object V223;
2116          goto T722;}          V223= make_cons((V208),Cnil);
2117          if(((V219))!=Cnil){          if(((V217))==Cnil){
2118          goto T722;}          goto T713;}
2119          if(((V220))==Cnil){          {object V224;
2120          goto T701;}          V224= make_cons(VV[30],(V217));
2121  goto T722;          V223= make_cons((V224),(V223));}
2122  T722:;  goto T713;
2123          {register object V225;  T713:;
2124          V225= make_cons((V208),Cnil);          if(((V216))!=Cnil){
2125          if(((V219))==Cnil){          goto T721;}
2126          goto T729;}          V225= VV[122];
2127          {object V226;          goto T719;
2128          V226= make_cons(VV[30],(V219));  goto T721;
2129          V225= make_cons((V226),(V225));}  T721:;
 goto T729;  
 T729:;  
         if(((V218))!=Cnil){  
         goto T737;}  
         V227= VV[122];  
         goto T735;  
 goto T737;  
 T737:;  
2130          if((symbol_value(VV[63]))==Cnil){          if((symbol_value(VV[63]))==Cnil){
2131          goto T740;}          goto T724;}
2132          V227= car(symbol_value(VV[63]));          V225= car(symbol_value(VV[63]));
2133          goto T735;          goto T719;
2134  goto T740;  goto T724;
2135  T740:;  T724:;
2136          V227= VV[29];          V225= VV[29];
2137  goto T735;  goto T719;
2138  T735:;  T719:;
2139          if(((V220))==Cnil){          if(((V218))==Cnil){
2140          goto T744;}          goto T728;}
2141          V229= append((V220),(V225));          V227= append((V218),(V223));
2142          V230= make_cons(VV[123],/* INLINE-ARGS */V229);          V228= make_cons(VV[123],/* INLINE-ARGS */V227);
2143          V228= make_cons(/* INLINE-ARGS */V230,Cnil);          V226= make_cons(/* INLINE-ARGS */V228,Cnil);
2144          goto T742;          goto T726;
2145  goto T744;  goto T728;
2146  T744:;  T728:;
2147          V228= (V225);          V226= (V223);
2148  goto T742;  goto T726;
2149  T742:;  T726:;
2150          V208= listA(3,V227,(V218),V228);}}          V208= listA(3,V225,(V216),V226);}}
2151  goto T701;  goto T685;
2152  T701:;  T685:;
2153          V216= cdr((V216));          V214= cdr((V214));
2154          V217= car((V216));          V215= car((V214));
2155          goto T696;}          goto T680;}
2156  goto T692;  goto T676;
2157  T692:;  T676:;
2158          base[26]= (V208);          V208= list(3,VV[124],car((VV[118]->s.s_dbind)),(V208));
2159          vs_top=(vs_base=base+26)+1;          base[27]= (V208);
2160            vs_top=(vs_base=base+27)+1;
2161            bds_unwind1;
2162          bds_unwind1;          bds_unwind1;
2163          bds_unwind1;          bds_unwind1;
2164          bds_unwind1;          bds_unwind1;
# Line 2209  static void L47() Line 2197  static void L47()
2197          vs_top=sup;          vs_top=sup;
2198  goto TTL;  goto TTL;
2199  TTL:;  TTL:;
2200  goto T752;  goto T738;
2201  T752:;  T738:;
2202          if((symbol_value(VV[89]))!=Cnil){          if((symbol_value(VV[89]))!=Cnil){
2203          goto T753;}          goto T739;}
2204          base[0]= Cnil;          base[0]= Cnil;
2205          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2206          return;          return;
2207  goto T753;  goto T739;
2208  T753:;  T739:;
2209          {register object V231;          {register object V229;
2210          register object V232;          register object V230;
2211          V231= car(symbol_value(VV[89]));          V229= car(symbol_value(VV[89]));
2212          V232= Cnil;          V230= Cnil;
2213          if(type_of((V231))==t_symbol){          if(type_of((V229))==t_symbol){
2214          goto T760;}          goto T746;}
2215          base[0]= VV[124];          base[0]= VV[125];
2216          base[1]= (V231);          base[1]= (V229);
2217          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2218          (void) (*Lnk345)();          (void) (*Lnk347)();
2219          vs_top=sup;          vs_top=sup;
2220          goto T757;          goto T743;
2221  goto T760;  goto T746;
2222  T760:;  T746:;
2223          setq(VV[88],symbol_value(VV[89]));          setq(VV[88],symbol_value(VV[89]));
2224          vs_base=vs_top;          vs_base=vs_top;
2225          (void) (*Lnk348)();          (void) (*Lnk350)();
2226          vs_top=sup;          vs_top=sup;
2227          base[0]= (V231);          base[0]= (V229);
2228          base[1]= structure_ref(symbol_value(VV[97]),VV[39],0);          base[1]= structure_ref(symbol_value(VV[97]),VV[39],0);
2229          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2230          (void) (*Lnk349)();          (void) (*Lnk351)();
2231          vs_top=sup;          vs_top=sup;
2232          V232= vs_base[0];          V230= vs_base[0];
2233          if(((V232))==Cnil){          if(((V230))==Cnil){
2234          goto T768;}          goto T754;}
2235          base[1]= car((V232));          base[1]= car((V230));
2236          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2237          Lsymbol_function();          Lsymbol_function();
2238          vs_top=sup;          vs_top=sup;
2239          base[0]= vs_base[0];          base[0]= vs_base[0];
2240          {object V233;          {object V231;
2241          V233= cdr((V232));          V231= cdr((V230));
2242           vs_top=base+1;           vs_top=base+1;
2243           while(!endp(V233))           while(!endp(V231))
2244           {vs_push(car(V233));V233=cdr(V233);}           {vs_push(car(V231));V231=cdr(V231);}
2245          vs_base=base+1;}          vs_base=base+1;}
2246          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
2247          vs_top=sup;          vs_top=sup;
2248          goto T757;          goto T743;
2249  goto T768;  goto T754;
2250  T768:;  T754:;
2251          base[0]= (V231);          base[0]= (V229);
2252          base[1]= structure_ref(symbol_value(VV[97]),VV[39],1);          base[1]= structure_ref(symbol_value(VV[97]),VV[39],1);
2253          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2254          (void) (*Lnk349)();          (void) (*Lnk351)();
2255          vs_top=sup;          vs_top=sup;
2256          V232= vs_base[0];          V230= vs_base[0];
2257          if(((V232))==Cnil){          if(((V230))==Cnil){
2258          goto T777;}          goto T763;}
2259          base[0]= (V232);          base[0]= (V230);
2260          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2261          (void) (*Lnk350)();          (void) (*Lnk352)();
2262          vs_top=sup;          vs_top=sup;
2263          goto T757;          goto T743;
2264  goto T777;  goto T763;
2265  T777:;  T763:;
2266          base[0]= (V231);          base[0]= (V229);
2267          base[1]= VV[125];          base[1]= VV[126];
2268          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2269          (void) (*Lnk351)();          (void) (*Lnk353)();
2270          vs_top=sup;          vs_top=sup;
2271          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2272          goto T784;}          goto T770;}
2273          base[0]= VV[126];          base[0]= VV[127];
2274          base[1]= (V231);          base[1]= (V229);
2275          base[2]= car(symbol_value(VV[89]));          base[2]= car(symbol_value(VV[89]));
2276          base[3]= cadr(symbol_value(VV[89]));          base[3]= cadr(symbol_value(VV[89]));
2277          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
2278          (void) (*Lnk345)();          (void) (*Lnk347)();
2279          vs_top=sup;          vs_top=sup;
2280          goto T757;          goto T743;
2281  goto T784;  goto T770;
2282  T784:;  T770:;
2283          base[0]= VV[127];          base[0]= VV[128];
2284          base[1]= (V231);          base[1]= (V229);
2285          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2286          (void) (*Lnk345)();          (void) (*Lnk347)();
2287          vs_top=sup;}          vs_top=sup;}
2288  goto T757;  goto T743;
2289  T757:;  T743:;
2290          goto T752;          goto T738;
2291  }  }
2292  /*      function definition for LOOP-POP-SOURCE */  /*      function definition for LOOP-POP-SOURCE */
2293    
# Line 2312  static void L48() Line 2300  static void L48()
2300  goto TTL;  goto TTL;
2301  TTL:;  TTL:;
2302          if((symbol_value(VV[89]))==Cnil){          if((symbol_value(VV[89]))==Cnil){
2303          goto T797;}          goto T783;}
2304          {object V234;          {object V232;
2305          V234= car(symbol_value(VV[89]));          V232= car(symbol_value(VV[89]));
2306          setq(VV[89],cdr(symbol_value(VV[89])));          setq(VV[89],cdr(symbol_value(VV[89])));
2307          base[0]= (V234);          base[0]= (V232);
2308          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2309          return;}          return;}
2310  goto T797;  goto T783;
2311  T797:;  T783:;
2312          base[0]= VV[128];          base[0]= VV[129];
2313          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2314          (void) (*Lnk345)();          (void) (*Lnk347)();
2315          return;          return;
2316  }  }
2317  /*      function definition for LOOP-GET-PROGN  */  /*      function definition for LOOP-GET-PROGN  */
# Line 2336  static void L49() Line 2324  static void L49()
2324          vs_top=sup;          vs_top=sup;
2325  goto TTL;  goto TTL;
2326  TTL:;  TTL:;
2327          {register object V235;          {register object V233;
2328          register object V236;          register object V234;
2329          vs_base=vs_top;          vs_base=vs_top;
2330          (void) (*Lnk348)();          (void) (*Lnk350)();
2331          vs_top=sup;          vs_top=sup;
2332          V237= vs_base[0];          V235= vs_base[0];
2333          V235= make_cons(V237,Cnil);          V233= make_cons(V235,Cnil);
2334          V236= car(symbol_value(VV[89]));          V234= car(symbol_value(VV[89]));
2335  goto T807;  goto T793;
2336  T807:;  T793:;
2337          if(!(type_of((V236))!=t_cons)){          if(!(type_of((V234))!=t_cons)){
2338          goto T808;}          goto T794;}
2339          if((cdr((V235)))!=Cnil){          if((cdr((V233)))!=Cnil){
2340          goto T812;}          goto T798;}
2341          base[0]= car((V235));          base[0]= car((V233));
2342          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2343          return;          return;
2344  goto T812;  goto T798;
2345  T812:;  T798:;
2346          V238= nreverse((V235));          V236= nreverse((V233));
2347          base[0]= make_cons(VV[14],/* INLINE-ARGS */V238);          base[0]= make_cons(VV[14],/* INLINE-ARGS */V236);
2348          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2349          return;          return;
2350  goto T808;  goto T794;
2351  T808:;  T794:;
2352          vs_base=vs_top;          vs_base=vs_top;
2353          (void) (*Lnk348)();          (void) (*Lnk350)();
2354          vs_top=sup;          vs_top=sup;
2355          V239= vs_base[0];          V237= vs_base[0];
2356          V235= make_cons(V239,(V235));          V233= make_cons(V237,(V233));
2357          V236= car(symbol_value(VV[89]));          V234= car(symbol_value(VV[89]));
2358          goto T807;}          goto T793;}
2359  }  }
2360  /*      function definition for LOOP-GET-FORM   */  /*      function definition for LOOP-GET-FORM   */
2361    
# Line 2380  static void L50() Line 2368  static void L50()
2368  goto TTL;  goto TTL;
2369  TTL:;  TTL:;
2370          if((symbol_value(VV[89]))==Cnil){          if((symbol_value(VV[89]))==Cnil){
2371          goto T821;}          goto T807;}
2372          vs_base=vs_top;          vs_base=vs_top;
2373          (void) (*Lnk348)();          (void) (*Lnk350)();
2374          return;          return;
2375  goto T821;  goto T807;
2376  T821:;  T807:;
2377          base[0]= VV[129];          base[0]= VV[130];
2378          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2379          (void) (*Lnk345)();          (void) (*Lnk347)();
2380          return;          return;
2381  }  }
2382  /*      function definition for LOOP-CONSTRUCT-RETURN   */  /*      function definition for LOOP-CONSTRUCT-RETURN   */
# Line 2397  static void L51() Line 2385  static void L51()
2385  {register object *base=vs_base;  {register object *base=vs_base;
2386          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
2387          vs_reserve(VM43);          vs_reserve(VM43);
2388          {object V240;          {object V238;
2389          check_arg(1);          check_arg(1);
2390          V240=(base[0]);          V238=(base[0]);
2391          vs_top=sup;          vs_top=sup;
2392  goto TTL;  goto TTL;
2393  TTL:;  TTL:;
2394          base[1]= list(3,VV[86],car(symbol_value(VV[118])),(V240));          base[1]= list(3,VV[86],car(symbol_value(VV[118])),(V238));
2395          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2396          return;          return;
2397          }          }
# Line 2414  static void L52() Line 2402  static void L52()
2402  {register object *base=vs_base;  {register object *base=vs_base;
2403          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
2404          vs_reserve(VM44);          vs_reserve(VM44);
2405          {object V241;          {object V239;
2406          check_arg(1);          check_arg(1);
2407          V241=(base[0]);          V239=(base[0]);
2408          vs_top=sup;          vs_top=sup;
2409  goto TTL;  goto TTL;
2410  TTL:;  TTL:;
2411          if((symbol_value(VV[110]))!=Cnil){          if((symbol_value(VV[110]))!=Cnil){
2412          goto T824;}          goto T810;}
2413          if((symbol_value(VV[115]))==Cnil){          if((symbol_value(VV[115]))==Cnil){
2414          goto T825;}          goto T811;}
2415  goto T824;  goto T810;
2416  T824:;  T810:;
2417          setq(VV[109],make_cons(V241,symbol_value(VV[109])));          setq(VV[109],make_cons(V239,symbol_value(VV[109])));
2418          base[1]= symbol_value(VV[109]);          base[1]= symbol_value(VV[109]);
2419          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2420          return;          return;
2421  goto T825;  goto T811;
2422  T825:;  T811:;
2423          setq(VV[108],make_cons(V241,symbol_value(VV[108])));          setq(VV[108],make_cons(V239,symbol_value(VV[108])));
2424          setq(VV[111],make_cons(V241,symbol_value(VV[111])));          setq(VV[111],make_cons(V239,symbol_value(VV[111])));
2425          base[1]= symbol_value(VV[111]);          base[1]= symbol_value(VV[111]);
2426          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2427          return;          return;
# Line 2445  static void L53() Line 2433  static void L53()
2433  {register object *base=vs_base;  {register object *base=vs_base;
2434          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
2435          vs_reserve(VM45);          vs_reserve(VM45);
2436          {object V245;          {object V243;
2437          check_arg(1);          check_arg(1);
2438          V245=(base[0]);          V243=(base[0]);
2439          vs_top=sup;          vs_top=sup;
2440  goto TTL;  goto TTL;
2441  TTL:;  TTL:;
2442          setq(VV[110],Ct);          setq(VV[110],Ct);
2443          base[1]= (V245);          base[1]= (V243);
2444          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2445          (void) (*Lnk352)();          (void) (*Lnk354)();
2446          return;          return;
2447          }          }
2448  }  }
# Line 2464  static void L54() Line 2452  static void L54()
2452  {register object *base=vs_base;  {register object *base=vs_base;
2453          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
2454          vs_reserve(VM46);          vs_reserve(VM46);
2455          {object V246;          {object V244;
2456          check_arg(1);          check_arg(1);
2457          V246=(base[0]);          V244=(base[0]);
2458          vs_top=sup;          vs_top=sup;
2459  goto TTL;  goto TTL;
2460  TTL:;  TTL:;
2461          {object V247;          {object V245;
2462          base[2]= (V246);          base[2]= (V244);
2463          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2464          (void) (*Lnk353)();          (void) (*Lnk355)();
2465          vs_top=sup;          vs_top=sup;
2466          V247= vs_base[0];          V245= vs_base[0];
2467          setq(VV[113],make_cons((V247),symbol_value(VV[113])));}          setq(VV[113],make_cons((V245),symbol_value(VV[113])));}
2468          if((symbol_value(VV[114]))==Cnil){          if((symbol_value(VV[114]))==Cnil){
2469          goto T840;}          goto T826;}
2470          base[1]= VV[130];          if((symbol_value(VV[119]))==Cnil){
2471            goto T830;}
2472            base[1]= VV[90];
2473            base[2]= VV[131];
2474            base[3]= symbol_value(VV[114]);
2475            vs_top=(vs_base=base+1)+3;
2476            (void) (*Lnk345)();
2477            vs_top=sup;
2478            goto T826;
2479    goto T830;
2480    T830:;
2481            base[1]= VV[132];
2482          base[2]= symbol_value(VV[114]);          base[2]= symbol_value(VV[114]);
2483          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2484          (void) (*Lnk336)();          (void) (*Lnk338)();
2485          vs_top=sup;          vs_top=sup;
2486  goto T840;  goto T826;
2487  T840:;  T826:;
2488          setq(VV[114],car(symbol_value(VV[88])));          setq(VV[114],car(symbol_value(VV[88])));
2489          base[1]= symbol_value(VV[114]);          base[1]= symbol_value(VV[114]);
2490          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2498  static void L55() Line 2497  static void L55()
2497  {register object *base=vs_base;  {register object *base=vs_base;
2498          register object *sup=base+VM47; VC47          register object *sup=base+VM47; VC47
2499          vs_reserve(VM47);          vs_reserve(VM47);
2500          {object V248;          {object V246;
2501          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
2502          if(vs_base>=vs_top){vs_top=sup;goto T846;}          if(vs_base>=vs_top){vs_top=sup;goto T838;}
2503          V248=(base[0]);          V246=(base[0]);
2504          vs_top=sup;          vs_top=sup;
2505          goto T847;          goto T839;
2506  goto T846;  goto T838;
2507  T846:;  T838:;
2508          V248= Cnil;          V246= Cnil;
2509  goto T847;  goto T839;
2510  T847:;  T839:;
2511          if((symbol_value(VV[115]))==Cnil){          if((symbol_value(VV[115]))==Cnil){
2512          goto T850;}          goto T842;}
2513          base[1]= VV[131];          base[1]= VV[133];
2514          base[2]= (V248);          base[2]= (V246);
2515          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2516          (void) (*Lnk345)();          (void) (*Lnk347)();
2517          return;          return;
2518  goto T850;  goto T842;
2519  T850:;  T842:;
2520          base[1]= Cnil;          base[1]= Cnil;
2521          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2522          return;          return;
# Line 2529  static void L56() Line 2528  static void L56()
2528  {register object *base=vs_base;  {register object *base=vs_base;
2529          register object *sup=base+VM48; VC48          register object *sup=base+VM48; VC48
2530          vs_reserve(VM48);          vs_reserve(VM48);
2531          {register object V249;          {register object V247;
2532          check_arg(1);          check_arg(1);
2533          V249=(base[0]);          V247=(base[0]);
2534          vs_top=sup;          vs_top=sup;
2535  goto TTL;  goto TTL;
2536  TTL:;  TTL:;
2537          if(((V249))==Cnil){          if(((V247))==Cnil){
2538          goto T855;}          goto T847;}
2539          base[1]= (V249);          base[1]= (V247);
2540          base[2]= VV[132];          base[2]= VV[134];
2541          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2542          (void) (*Lnk324)();          (void) (*Lnk326)();
2543          vs_top=sup;          vs_top=sup;
2544          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2545          goto T855;}          goto T847;}
2546          base[1]= (V249);          base[1]= (V247);
2547          base[2]= VV[133];          base[2]= VV[135];
2548          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2549          (void) (*Lnk324)();          (void) (*Lnk326)();
2550          vs_top=sup;          vs_top=sup;
2551          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2552          goto T861;}          goto T853;}
2553          base[1]= (V249);          base[1]= (V247);
2554          base[2]= VV[134];          base[2]= VV[136];
2555          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2556          (void) (*Lnk324)();          (void) (*Lnk326)();
2557          vs_top=sup;          vs_top=sup;
2558          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2559          goto T862;}          goto T854;}
2560  goto T861;  goto T853;
2561  T861:;  T853:;
2562          base[1]= (*(LnkLI354))(small_fixnum(0),(V249));          base[1]= (*(LnkLI356))(small_fixnum(0),(V247));
2563          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2564          return;          return;
2565  goto T862;  goto T854;
2566  T862:;  T854:;
2567          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
2568          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2569          return;          return;
2570  goto T855;  goto T847;
2571  T855:;  T847:;
2572          base[1]= Cnil;          base[1]= Cnil;
2573          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2574          return;          return;
# Line 2582  static void L57() Line 2581  static void L57()
2581          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
2582          vs_reserve(VM49);          vs_reserve(VM49);
2583          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
2584          if(vs_base>=vs_top){vs_top=sup;goto T870;}          if(vs_base>=vs_top){vs_top=sup;goto T862;}
2585          vs_top=sup;          vs_top=sup;
2586          goto T871;          goto T863;
2587  goto T870;  goto T862;
2588  T870:;  T862:;
2589          base[0]= Cnil;          base[0]= Cnil;
2590  goto T871;  goto T863;
2591  T871:;  T863:;
2592          if(symbol_value(VV[89])==Cnil){          if(symbol_value(VV[89])==Cnil){
2593          base[1]= Cnil;          base[1]= Cnil;
2594          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2595          return;}          return;}
2596          base[1]= car(symbol_value(VV[89]));          base[1]= car(symbol_value(VV[89]));
2597          base[2]= base[1];          base[2]= base[1];
2598          base[3]= VV[135];          base[3]= VV[137];
2599          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2600          (void) (*Lnk355)();          (void) (*Lnk357)();
2601          vs_top=sup;          vs_top=sup;
2602          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2603          goto T875;}          goto T867;}
2604          vs_base=vs_top;          vs_base=vs_top;
2605          (void) (*Lnk348)();          (void) (*Lnk350)();
2606          vs_top=sup;          vs_top=sup;
2607          vs_base=vs_top;          vs_base=vs_top;
2608          (void) (*Lnk348)();          (void) (*Lnk350)();
2609          return;          return;
2610  goto T875;  goto T867;
2611  T875:;  T867:;
2612          if(!(type_of(base[1])==t_symbol)){          if(!(type_of(base[1])==t_symbol)){
2613          goto T881;}          goto T873;}
2614          {object V250;{object V251;          {object V248;{object V249;
2615          base[2]= base[1];          base[2]= base[1];
2616          base[3]= structure_ref(symbol_value(VV[97]),VV[39],4);          base[3]= structure_ref(symbol_value(VV[97]),VV[39],4);
2617          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2618          Lgethash();          Lgethash();
2619          vs_top=sup;          vs_top=sup;
2620          V251= vs_base[0];          V249= vs_base[0];
2621          if(V251==Cnil)goto T884;          if(V249==Cnil)goto T876;
2622          V250= V251;          V248= V249;
2623          goto T883;          goto T875;
2624  goto T884;  goto T876;
2625  T884:;}  T876:;}
2626          base[2]= symbol_name(base[1]);          base[2]= symbol_name(base[1]);
2627          base[3]= structure_ref(symbol_value(VV[97]),VV[39],5);          base[3]= structure_ref(symbol_value(VV[97]),VV[39],5);
2628          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2629          Lgethash();          Lgethash();
2630          vs_top=sup;          vs_top=sup;
2631          V250= vs_base[0];          V248= vs_base[0];
2632  goto T883;  goto T875;
2633  T883:;  T875:;
2634          if(((V250))==Cnil){          if(((V248))==Cnil){
2635          goto T891;}          goto T883;}
2636          vs_base=vs_top;          vs_base=vs_top;
2637          (void) (*Lnk348)();          (void) (*Lnk350)();
2638          vs_top=sup;          vs_top=sup;
2639          base[2]= (V250);          base[2]= (V248);
2640          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2641          return;          return;
2642  goto T891;  goto T883;
2643  T891:;  T883:;
2644          base[2]= Cnil;          base[2]= Cnil;
2645          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2646          return;}          return;}
2647  goto T881;  goto T873;
2648  T881:;  T873:;
2649          if(!(type_of(base[0])==t_cons)){          if(!(type_of(base[0])==t_cons)){
2650          goto T896;}          goto T888;}
2651          if(type_of(base[1])==t_cons){          if(type_of(base[1])==t_cons){
2652          goto T894;}          goto T886;}
2653          base[2]= VV[136];          base[2]= VV[138];
2654          base[3]= base[1];          base[3]= base[1];
2655          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2656          (void) (*Lnk345)();          (void) (*Lnk347)();
2657          vs_top=sup;          vs_top=sup;
2658          goto T894;          goto T886;
2659  goto T896;  goto T888;
2660  T896:;  T888:;
2661          base[2]= VV[137];          base[2]= VV[139];
2662          base[3]= base[1];          base[3]= base[1];
2663          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2664          (void) (*Lnk345)();          (void) (*Lnk347)();
2665          vs_top=sup;          vs_top=sup;
2666  goto T894;  goto T886;
2667  T894:;  T886:;
2668          vs_base=vs_top;          vs_base=vs_top;
2669          (void) (*Lnk348)();          (void) (*Lnk350)();
2670          vs_top=sup;          vs_top=sup;
2671          base[2]= base[1];          base[2]= base[1];
2672          base[3]= base[0];          base[3]= base[0];
# Line 2686  static void L60() Line 2685  static void L60()
2685  goto TTL;  goto TTL;
2686  TTL:;  TTL:;
2687          if((symbol_value(VV[100]))!=Cnil){          if((symbol_value(VV[100]))!=Cnil){
2688          goto T907;}          goto T899;}
2689          if((symbol_value(VV[103]))!=Cnil){          if((symbol_value(VV[103]))!=Cnil){
2690          goto T907;}          goto T899;}
2691          if((symbol_value(VV[107]))==Cnil){          if((symbol_value(VV[107]))==Cnil){
2692          goto T908;}          goto T900;}
2693  goto T907;  goto T899;
2694  T907:;  T899:;
2695          {object V252;          {object V250;
2696          V253= nreverse(symbol_value(VV[100]));          V251= nreverse(symbol_value(VV[100]));
2697          V252= list(4,/* INLINE-ARGS */V253,symbol_value(VV[103]),symbol_value(VV[104]),symbol_value(VV[107]));          V250= list(4,/* INLINE-ARGS */V251,symbol_value(VV[103]),symbol_value(VV[104]),symbol_value(VV[107]));
2698          setq(VV[105],make_cons((V252),symbol_value(VV[105])));}          setq(VV[105],make_cons((V250),symbol_value(VV[105])));}
2699          setq(VV[100],Cnil);          setq(VV[100],Cnil);
2700          setq(VV[103],Cnil);          setq(VV[103],Cnil);
2701          setq(VV[104],Cnil);          setq(VV[104],Cnil);
# Line 2704  T907:; Line 2703  T907:;
2703          base[0]= Cnil;          base[0]= Cnil;
2704          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2705          return;          return;
2706  goto T908;  goto T900;
2707  T908:;  T900:;
2708          base[0]= Cnil;          base[0]= Cnil;
2709          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2710          return;          return;
# Line 2716  static void L61() Line 2715  static void L61()
2715  {register object *base=vs_base;  {register object *base=vs_base;
2716          register object *sup=base+VM51; VC51          register object *sup=base+VM51; VC51
2717          vs_reserve(VM51);          vs_reserve(VM51);
2718          {register object V254;          {register object V252;
2719          register object V255;          register object V253;
2720          register object V256;          register object V254;
2721          object V257;          object V255;
2722          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
2723          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
2724          V254=(base[0]);          V252=(base[0]);
2725          V255=(base[1]);          V253=(base[1]);
2726          V256=(base[2]);          V254=(base[2]);
2727          vs_base=vs_base+3;          vs_base=vs_base+3;
2728          if(vs_base>=vs_top){vs_top=sup;goto T924;}          if(vs_base>=vs_top){vs_top=sup;goto T916;}
2729          V257=(base[3]);          V255=(base[3]);
2730          vs_top=sup;          vs_top=sup;
2731          goto T925;          goto T917;
2732  goto T924;  goto T916;
2733  T924:;  T916:;
2734          V257= Cnil;          V255= Cnil;
2735  goto T925;  goto T917;
2736  T925:;  T917:;
2737          if(((V254))!=Cnil){          if(((V252))!=Cnil){
2738          goto T929;}          goto T921;}
2739          if(((V255))==Cnil){          if(((V253))==Cnil){
2740          goto T927;}          goto T919;}
2741          {object V258;          {object V256;
2742          base[5]= VV[140];          base[5]= VV[142];
2743          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2744          (void) (*Lnk325)();          (void) (*Lnk327)();
2745          vs_top=sup;          vs_top=sup;
2746          V254= vs_base[0];          V252= vs_base[0];
2747          V258= list(2,(V254),(V255));          V256= list(2,(V252),(V253));
2748          setq(VV[100],make_cons((V258),symbol_value(VV[100])));}          setq(VV[100],make_cons((V256),symbol_value(VV[100])));}
2749          {object V259;          {object V257;
2750          V259= list(2,VV[141],(V254));          V257= list(2,VV[143],(V252));
2751          setq(VV[103],make_cons((V259),symbol_value(VV[103])));          setq(VV[103],make_cons((V257),symbol_value(VV[103])));
2752          goto T927;}          goto T919;}
2753  goto T929;  goto T921;
2754  T929:;  T921:;
2755          if(!(type_of((V254))!=t_cons)){          if(!(type_of((V252))!=t_cons)){
2756          goto T941;}          goto T933;}
2757          if(((V257))==Cnil){          if(((V255))==Cnil){
2758          goto T945;}          goto T937;}
2759          {register object x= (V254),V260= symbol_value(VV[99]);          {register object x= (V252),V258= symbol_value(VV[99]);
2760            while(!endp(V258))
2761            if(eql(x,V258->c.c_car)){
2762            goto T941;
2763            }else V258=V258->c.c_cdr;
2764            goto T940;}
2765    goto T941;
2766    T941:;
2767            base[4]= VV[144];
2768            base[5]= (V252);
2769            vs_top=(vs_base=base+4)+2;
2770            (void) (*Lnk347)();
2771            vs_top=sup;
2772            goto T935;
2773    goto T940;
2774    T940:;
2775            setq(VV[99],make_cons(V252,symbol_value(VV[99])));
2776            goto T935;
2777    goto T937;
2778    T937:;
2779            {register object x= (V252),V260= symbol_value(VV[100]);
2780          while(!endp(V260))          while(!endp(V260))
2781          if(eql(x,V260->c.c_car)){          if(type_of(V260->c.c_car)==t_cons &&eql(x,V260->c.c_car->c.c_car)){
2782          goto T949;          goto T946;
2783          }else V260=V260->c.c_cdr;          }else V260=V260->c.c_cdr;
2784          goto T948;}          goto T935;}
2785    goto T946;
2786    T946:;
2787            base[4]= VV[145];
2788            base[5]= (V252);
2789            vs_top=(vs_base=base+4)+2;
2790            (void) (*Lnk347)();
2791            vs_top=sup;
2792    goto T935;
2793    T935:;
2794            if(type_of((V252))==t_symbol){
2795            goto T949;}
2796            base[4]= VV[146];
2797            base[5]= (V252);
2798            vs_top=(vs_base=base+4)+2;
2799            (void) (*Lnk347)();
2800            vs_top=sup;
2801  goto T949;  goto T949;
2802  T949:;  T949:;
2803          base[4]= VV[142];          base[4]= (V252);
2804          base[5]= (V254);          base[5]= (V254);
2805          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2806          (void) (*Lnk345)();          (void) (*Lnk358)();
2807          vs_top=sup;          vs_top=sup;
2808          goto T943;          {object V261;
2809  goto T948;          if((V253)!=Cnil){
2810  T948:;          V262= (V253);
2811          setq(VV[99],make_cons(V254,symbol_value(VV[99])));          goto T958;}
         goto T943;  
 goto T945;  
 T945:;  
         {register object x= (V254),V262= symbol_value(VV[100]);  
         while(!endp(V262))  
         if(type_of(V262->c.c_car)==t_cons &&eql(x,V262->c.c_car->c.c_car)){  
         goto T954;  
         }else V262=V262->c.c_cdr;  
         goto T943;}  
 goto T954;  
 T954:;  
         base[4]= VV[143];  
2812          base[5]= (V254);          base[5]= (V254);
2813          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+5)+1;
2814          (void) (*Lnk345)();          (void) (*Lnk329)();
2815          vs_top=sup;          vs_top=sup;
2816  goto T943;          V262= vs_base[0];
2817  T943:;  goto T958;
2818          if(type_of((V254))==t_symbol){  T958:;
2819          goto T957;}          V261= list(2,(V252),V262);
2820          base[4]= VV[144];          setq(VV[100],make_cons((V261),symbol_value(VV[100])));
2821            goto T919;}
2822    goto T933;
2823    T933:;
2824            if(((V253))==Cnil){
2825            goto T962;}
2826            if((symbol_value(VV[63]))==Cnil){
2827            goto T965;}
2828            base[4]= (V252);
2829          base[5]= (V254);          base[5]= (V254);
2830          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2831          (void) (*Lnk345)();          (void) (*Lnk358)();
         vs_top=sup;  
 goto T957;  
 T957:;  
         base[4]= (V254);  
         base[5]= (V256);  
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk356)();  
2832          vs_top=sup;          vs_top=sup;
2833          {object V263;          {object V263;
2834          if((V255)!=Cnil){          V263= list(2,(V252),(V253));
2835          V264= (V255);          setq(VV[100],make_cons((V263),symbol_value(VV[100])));
2836          goto T966;}          goto T919;}
2837          base[5]= (V256);  goto T965;
2838          vs_top=(vs_base=base+5)+1;  T965:;
2839            {object V264;
2840            base[4]= VV[147];
2841            vs_top=(vs_base=base+4)+1;
2842          (void) (*Lnk327)();          (void) (*Lnk327)();
2843          vs_top=sup;          vs_top=sup;
2844          V264= vs_base[0];          V264= vs_base[0];
 goto T966;  
 T966:;  
         V263= list(2,(V254),V264);  
         setq(VV[100],make_cons((V263),symbol_value(VV[100])));  
         goto T927;}  
 goto T941;  
 T941:;  
         if(((V255))==Cnil){  
         goto T970;}  
         if((symbol_value(VV[63]))==Cnil){  
         goto T973;}  
         base[4]= (V254);  
         base[5]= (V256);  
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk356)();  
         vs_top=sup;  
2845          {object V265;          {object V265;
2846          V265= list(2,(V254),(V255));          V265= list(2,(V264),(V253));
2847          setq(VV[100],make_cons((V265),symbol_value(VV[100])));          setq(VV[100],make_cons((V265),symbol_value(VV[100])));}
2848          goto T927;}          setq(VV[104],listA(3,(V252),(V264),symbol_value(VV[104])));
2849  goto T973;          goto T919;}
2850  T973:;  goto T962;
2851    T962:;
2852          {object V266;          {object V266;
2853          base[4]= VV[145];          object V267;
2854          vs_top=(vs_base=base+4)+1;          V266= Cnil;
2855          (void) (*Lnk325)();          V267= Cnil;
2856          vs_top=sup;          if(!(type_of((V254))!=t_cons)){
2857          V266= vs_base[0];          goto T980;}
2858          {object V267;          V267= (V254);
2859          V267= list(2,(V266),(V255));          V266= (V267);
2860          setq(VV[100],make_cons((V267),symbol_value(VV[100])));}          goto T978;
2861          setq(VV[104],listA(3,(V254),(V266),symbol_value(VV[104])));  goto T980;
2862          goto T927;}  T980:;
2863  goto T970;          V266= car((V254));
2864  T970:;          V267= cdr((V254));
2865          {object V268;  goto T978;
2866          object V269;  T978:;
2867          V268= Cnil;          base[4]= car((V252));
         V269= Cnil;  
         if(!(type_of((V256))!=t_cons)){  
         goto T988;}  
         V269= (V256);  
         V268= (V269);  
         goto T986;  
 goto T988;  
 T988:;  
         V268= car((V256));  
         V269= cdr((V256));  
 goto T986;  
 T986:;  
         base[4]= car((V254));  
2868          base[5]= Cnil;          base[5]= Cnil;
2869          base[6]= (V268);          base[6]= (V266);
2870          base[7]= (V257);          base[7]= (V255);
2871          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2872          (void) (*Lnk357)();          (void) (*Lnk359)();
2873          vs_top=sup;          vs_top=sup;
2874          base[4]= cdr((V254));          base[4]= cdr((V252));
2875          base[5]= Cnil;          base[5]= Cnil;
2876          base[6]= (V269);          base[6]= (V267);
2877          base[7]= (V257);          base[7]= (V255);
2878          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2879          (void) (*Lnk357)();          (void) (*Lnk359)();
2880          vs_top=sup;}          vs_top=sup;}
2881  goto T927;  goto T919;
2882  T927:;  T919:;
2883          base[4]= (V254);          base[4]= (V252);
2884          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2885          return;          return;
2886          }          }
# Line 2892  static void L62() Line 2891  static void L62()
2891  {register object *base=vs_base;  {register object *base=vs_base;
2892          register object *sup=base+VM52; VC52          register object *sup=base+VM52; VC52
2893          vs_reserve(VM52);          vs_reserve(VM52);
2894          {object V270;          {object V268;
2895          object V271;          object V269;
2896          object V272;          object V270;
2897          check_arg(3);          check_arg(3);
2898          V270=(base[0]);          V268=(base[0]);
2899          V271=(base[1]);          V269=(base[1]);
2900          V272=(base[2]);          V270=(base[2]);
2901          vs_top=sup;          vs_top=sup;
2902  goto TTL;  goto TTL;
2903  TTL:;  TTL:;
2904          base[3]= (V270);          base[3]= (V268);
2905          base[4]= (V271);          base[4]= (V269);
2906          base[5]= (V272);          base[5]= (V270);
2907          base[6]= Ct;          base[6]= Ct;
2908          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
2909          (void) (*Lnk357)();          (void) (*Lnk359)();
2910          return;          return;
2911          }          }
2912  }  }
# Line 2917  static void L63() Line 2916  static void L63()
2916  {register object *base=vs_base;  {register object *base=vs_base;
2917          register object *sup=base+VM53; VC53          register object *sup=base+VM53; VC53
2918          vs_reserve(VM53);          vs_reserve(VM53);
2919          {register object V273;          {register object V271;
2920          register object V274;          register object V272;
2921          check_arg(2);          check_arg(2);
2922          V273=(base[0]);          V271=(base[0]);
2923          V274=(base[1]);          V272=(base[1]);
2924          vs_top=sup;          vs_top=sup;
2925  goto TTL;  goto TTL;
2926  TTL:;  TTL:;
2927          if(((V273))==Cnil){          if(((V271))==Cnil){
2928          goto T1008;}          goto T1000;}
2929          if(((V274))==Cnil){          if(((V272))==Cnil){
2930          goto T1008;}          goto T1000;}
2931          if(!(((V274))==(Ct))){          if(!(((V272))==(Ct))){
2932          goto T1009;}          goto T1001;}
2933  goto T1008;  goto T1000;
2934  T1008:;  T1000:;
2935          base[2]= Cnil;          base[2]= Cnil;
2936          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2937          return;          return;
2938  goto T1009;  goto T1001;
2939  T1009:;  T1001:;
2940          if(!(type_of((V273))==t_symbol)){          if(!(type_of((V271))==t_symbol)){
2941          goto T1016;}          goto T1008;}
2942          if(((V274))==(Ct)){          if(((V272))==(Ct)){
2943          goto T1019;}          goto T1011;}
2944          {register object x= (V273),V275= symbol_value(VV[101]);          {register object x= (V271),V273= symbol_value(VV[101]);
2945          while(!endp(V275))          while(!endp(V273))
2946          if(eql(x,V275->c.c_car)){          if(eql(x,V273->c.c_car)){
2947          goto T1019;          goto T1011;
2948          }else V275=V275->c.c_cdr;}          }else V273=V273->c.c_cdr;}
2949          {object V277;          {object V275;
2950          V277= list(3,VV[31],V274,(V273));          V275= list(3,VV[31],V272,(V271));
2951          setq(VV[103],make_cons((V277),symbol_value(VV[103])));          setq(VV[103],make_cons((V275),symbol_value(VV[103])));
2952          base[3]= symbol_value(VV[103]);          base[3]= symbol_value(VV[103]);
2953          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2954          return;}          return;}
2955  goto T1019;  goto T1011;
2956  T1019:;  T1011:;
2957          base[2]= Cnil;          base[2]= Cnil;
2958          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2959          return;          return;
2960  goto T1016;  goto T1008;
2961  T1016:;  T1008:;
2962          if(!(type_of((V273))==t_cons)){          if(!(type_of((V271))==t_cons)){
2963          goto T1026;}          goto T1018;}
2964          if(!(type_of((V274))==t_cons)){          if(!(type_of((V272))==t_cons)){
2965          goto T1029;}          goto T1021;}
2966          base[2]= car((V273));          base[2]= car((V271));
2967          base[3]= car((V274));          base[3]= car((V272));
2968          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2969          (void) (*Lnk356)();          (void) (*Lnk358)();
2970          vs_top=sup;          vs_top=sup;
2971          V273= cdr((V273));          V271= cdr((V271));
2972          V274= cdr((V274));          V272= cdr((V272));
2973          goto TTL;          goto TTL;
2974  goto T1029;  goto T1021;
2975  T1029:;  T1021:;
2976          base[2]= car((V273));          base[2]= car((V271));
2977          base[3]= (V274);          base[3]= (V272);
2978          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2979          (void) (*Lnk356)();          (void) (*Lnk358)();
2980          vs_top=sup;          vs_top=sup;
2981          V273= cdr((V273));          V271= cdr((V271));
2982          goto TTL;          goto TTL;
2983  goto T1026;  goto T1018;
2984  T1026:;  T1018:;
2985          base[2]= VV[146];          base[2]= VV[148];
2986          base[3]= (V273);          base[3]= (V271);
2987          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2988          Lerror();          Lerror();
2989          return;          return;
# Line 2996  static void L64() Line 2995  static void L64()
2995  {register object *base=vs_base;  {register object *base=vs_base;
2996          register object *sup=base+VM54; VC54          register object *sup=base+VM54; VC54
2997          vs_reserve(VM54);          vs_reserve(VM54);
2998          {object V278;          {object V276;
2999          object V279;          object V277;
3000          check_arg(2);          check_arg(2);
3001          V278=(base[0]);          V276=(base[0]);
3002          V279=(base[1]);          V277=(base[1]);
3003          vs_top=sup;          vs_top=sup;
3004  goto TTL;  goto TTL;
3005  TTL:;  TTL:;
3006          base[2]= (V278);          base[2]= (V276);
3007          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3008          (void) (*Lnk358)();          (void) (*Lnk360)();
3009          vs_top=sup;          vs_top=sup;
3010          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3011          goto T1046;}          goto T1038;}
3012          base[2]= (V278);          base[2]= (V276);
3013          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3014          return;          return;
3015  goto T1046;  goto T1038;
3016  T1046:;  T1038:;
3017          base[3]= VV[147];          base[3]= VV[149];
3018          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3019          (void) (*Lnk325)();          (void) (*Lnk327)();
3020          vs_top=sup;          vs_top=sup;
3021          base[2]= vs_base[0];          base[2]= vs_base[0];
3022          base[3]= (V278);          base[3]= (V276);
3023          base[4]= (V279);          base[4]= (V277);
3024          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
3025          (void) (*Lnk357)();          (void) (*Lnk359)();
3026          return;          return;
3027          }          }
3028  }  }
# Line 3034  static void L65() Line 3033  static void L65()
3033          register object *sup=base+VM55; VC55          register object *sup=base+VM55; VC55
3034          vs_reserve(VM55);          vs_reserve(VM55);
3035          bds_check;          bds_check;
3036          {object V280;          {object V278;
3037          object V281;          object V279;
3038          check_arg(2);          check_arg(2);
3039          V280=(base[0]);          V278=(base[0]);
3040          V281=(base[1]);          V279=(base[1]);
3041          vs_top=sup;          vs_top=sup;
3042  goto TTL;  goto TTL;
3043  TTL:;  TTL:;
3044          {object V282;          {object V280;
3045          vs_base=vs_top;          vs_base=vs_top;
3046          (void) (*Lnk359)();          (void) (*Lnk361)();
3047          vs_top=sup;          vs_top=sup;
3048          V282= vs_base[0];          V280= vs_base[0];
3049          bds_bind(VV[115],Ct);          bds_bind(VV[115],Ct);
3050          base[3]= Cnil;          base[3]= Cnil;
3051          {object V283;          {object V281;
3052          object V284;          object V282;
3053          base[4]= (V280);          base[4]= (V278);
3054          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3055          L66(base);          L66(base);
3056          vs_top=sup;          vs_top=sup;
3057          V283= vs_base[0];          V281= vs_base[0];
3058          base[4]= car(symbol_value(VV[89]));          base[4]= car(symbol_value(VV[89]));
3059          base[5]= VV[148];          base[5]= VV[150];
3060          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3061          (void) (*Lnk355)();          (void) (*Lnk357)();
3062          vs_top=sup;          vs_top=sup;
3063          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3064          goto T1058;}          goto T1050;}
3065          vs_base=vs_top;          vs_base=vs_top;
3066          (void) (*Lnk348)();          (void) (*Lnk350)();
3067          vs_top=sup;          vs_top=sup;
3068          base[4]= VV[148];          base[4]= VV[150];
3069          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3070          L66(base);          L66(base);
3071          vs_top=sup;          vs_top=sup;
3072          V285= vs_base[0];          V283= vs_base[0];
3073          V284= make_cons(V285,Cnil);          V282= make_cons(V283,Cnil);
3074          goto T1056;          goto T1048;
3075  goto T1058;  goto T1050;
3076  T1058:;  T1050:;
3077          V284= Cnil;          V282= Cnil;
3078  goto T1056;  goto T1048;
3079  T1056:;  T1048:;
3080          base[4]= car(symbol_value(VV[89]));          base[4]= car(symbol_value(VV[89]));
3081          base[5]= VV[149];          base[5]= VV[151];
3082          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3083          (void) (*Lnk355)();          (void) (*Lnk357)();
3084          vs_top=sup;          vs_top=sup;
3085          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3086          goto T1065;}          goto T1057;}
3087          vs_base=vs_top;          vs_base=vs_top;
3088          (void) (*Lnk348)();          (void) (*Lnk350)();
3089          vs_top=sup;          vs_top=sup;
3090  goto T1065;  goto T1057;
3091  T1065:;  T1057:;
3092          if((base[3])==Cnil){          if((base[3])==Cnil){
3093          goto T1070;}          goto T1062;}
3094          V282= list(3,VV[11],base[3],(V282));          V280= list(3,VV[11],base[3],(V280));
3095  goto T1070;  goto T1062;
3096  T1070:;  T1062:;
3097          if(((V281))==Cnil){          if(((V279))==Cnil){
3098          goto T1077;}          goto T1069;}
3099          V286= list(2,VV[36],(V282));          V284= list(2,VV[36],(V280));
3100          goto T1075;          goto T1067;
3101  goto T1077;  goto T1069;
3102  T1077:;  T1069:;
3103          V286= (V282);          V284= (V280);
3104  goto T1075;  goto T1067;
3105  T1075:;  T1067:;
3106          base[4]= listA(4,VV[71],V286,(V283),(V284));          base[4]= listA(4,VV[71],V284,(V281),(V282));
3107          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3108          (void) (*Lnk352)();          (void) (*Lnk354)();
3109          bds_unwind1;          bds_unwind1;
3110          return;}}          return;}}
3111          }          }
# Line 3121  static void L67() Line 3120  static void L67()
3120          vs_top=sup;          vs_top=sup;
3121  goto TTL;  goto TTL;
3122  TTL:;  TTL:;
3123          base[0]= VV[154];          base[0]= VV[156];
3124          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3125          (void) (*Lnk360)();          (void) (*Lnk362)();
3126          vs_top=sup;          vs_top=sup;
3127          {object V287;          {object V285;
3128          vs_base=vs_top;          vs_base=vs_top;
3129          (void) (*Lnk361)();          (void) (*Lnk363)();
3130          vs_top=sup;          vs_top=sup;
3131          V287= vs_base[0];          V285= vs_base[0];
3132          setq(VV[106],make_cons((V287),symbol_value(VV[106])));          setq(VV[106],make_cons((V285),symbol_value(VV[106])));
3133          base[1]= symbol_value(VV[106]);          base[1]= symbol_value(VV[106]);
3134          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3135          return;}          return;}
# Line 3145  static void L68() Line 3144  static void L68()
3144          vs_top=sup;          vs_top=sup;
3145  goto TTL;  goto TTL;
3146  TTL:;  TTL:;
3147          base[0]= VV[155];          base[0]= VV[157];
3148          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3149          (void) (*Lnk360)();          (void) (*Lnk362)();
3150          vs_top=sup;          vs_top=sup;
3151          {object V288;          {object V286;
3152          vs_base=vs_top;          vs_base=vs_top;
3153          (void) (*Lnk361)();          (void) (*Lnk363)();
3154          vs_top=sup;          vs_top=sup;
3155          V288= vs_base[0];          V286= vs_base[0];
3156          setq(VV[112],make_cons((V288),symbol_value(VV[112])));          setq(VV[112],make_cons((V286),symbol_value(VV[112])));
3157          base[1]= symbol_value(VV[112]);          base[1]= symbol_value(VV[112]);
3158          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3159          return;}          return;}
# Line 3170  static void L69() Line 3169  static void L69()
3169  goto TTL;  goto TTL;
3170  TTL:;  TTL:;
3171          vs_base=vs_top;          vs_base=vs_top;
3172          (void) (*Lnk361)();          (void) (*Lnk363)();
3173          vs_top=sup;          vs_top=sup;
3174          base[0]= vs_base[0];          base[0]= vs_base[0];
3175          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3176          (void) (*Lnk362)();          (void) (*Lnk364)();
3177          return;          return;
3178  }  }
3179  /*      function definition for LOOP-DO-NAMED   */  /*      function definition for LOOP-DO-NAMED   */
# Line 3187  static void L70() Line 3186  static void L70()
3186          vs_top=sup;          vs_top=sup;
3187  goto TTL;  goto TTL;
3188  TTL:;  TTL:;
3189          {register object V289;          {register object V287;
3190          vs_base=vs_top;          vs_base=vs_top;
3191          (void) (*Lnk348)();          (void) (*Lnk350)();
3192          vs_top=sup;          vs_top=sup;
3193          V289= vs_base[0];          V287= vs_base[0];
3194          if(type_of((V289))==t_symbol){          if(type_of((V287))==t_symbol){
3195          goto T1089;}          goto T1081;}
3196          base[0]= VV[156];          base[0]= VV[158];
3197          base[1]= (V289);          base[1]= (V287);
3198          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3199          (void) (*Lnk345)();          (void) (*Lnk347)();
3200          vs_top=sup;          vs_top=sup;
3201  goto T1089;  goto T1081;
3202  T1089:;  T1081:;
3203          if((symbol_value(VV[108]))!=Cnil){          if((symbol_value(VV[108]))!=Cnil){
3204          goto T1095;}          goto T1087;}
3205          if((symbol_value(VV[109]))!=Cnil){          if((symbol_value(VV[109]))!=Cnil){
3206          goto T1095;}          goto T1087;}
3207          if((symbol_value(VV[113]))!=Cnil){          if((symbol_value(VV[113]))!=Cnil){
3208          goto T1095;}          goto T1087;}
3209          if((symbol_value(VV[115]))==Cnil){          if((symbol_value(VV[115]))==Cnil){
3210          goto T1094;}          goto T1086;}
3211  goto T1095;  goto T1087;
3212  T1095:;  T1087:;
3213          base[0]= VV[157];          base[0]= VV[159];
3214          base[1]= (V289);          base[1]= (V287);
3215          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3216          (void) (*Lnk345)();          (void) (*Lnk347)();
3217          vs_top=sup;          vs_top=sup;
3218  goto T1094;  goto T1086;
3219  T1094:;  T1086:;
3220          if((symbol_value(VV[118]))==Cnil){          if((symbol_value(VV[118]))==Cnil){
3221          goto T1105;}          goto T1097;}
3222          base[0]= VV[158];          base[0]= VV[160];
3223          base[1]= car(symbol_value(VV[118]));          base[1]= car(symbol_value(VV[118]));
3224          base[2]= (V289);          base[2]= (V287);
3225          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3226          (void) (*Lnk345)();          (void) (*Lnk347)();
3227          vs_top=sup;          vs_top=sup;
3228  goto T1105;  goto T1097;
3229  T1105:;  T1097:;
3230          setq(VV[118],list(2,(V289),Cnil));          setq(VV[118],list(2,(V287),Cnil));
3231          base[0]= symbol_value(VV[118]);          base[0]= symbol_value(VV[118]);
3232          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3233          return;}          return;}
# Line 3244  static void L71() Line 3243  static void L71()
3243  goto TTL;  goto TTL;
3244  TTL:;  TTL:;
3245          vs_base=vs_top;          vs_base=vs_top;
3246          (void) (*Lnk359)();          (void) (*Lnk361)();
3247          vs_top=sup;          vs_top=sup;
3248          base[1]= vs_base[0];          base[1]= vs_base[0];
3249          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3250          (void) (*Lnk353)();          (void) (*Lnk355)();
3251          vs_top=sup;          vs_top=sup;
3252          base[0]= vs_base[0];          base[0]= vs_base[0];
3253          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3254          (void) (*Lnk352)();          (void) (*Lnk354)();
3255          return;          return;
3256  }  }
3257  /*      function definition for MAKE-LOOP-COLLECTOR     */  /*      function definition for MAKE-LOOP-COLLECTOR     */
# Line 3261  static void L72() Line 3260  static void L72()
3260  {register object *base=vs_base;  {register object *base=vs_base;
3261          register object *sup=base+VM61; VC61          register object *sup=base+VM61; VC61
3262          vs_reserve(VM61);          vs_reserve(VM61);
3263          {object V290;          {object V288;
3264            object V289;
3265            object V290;
3266          object V291;          object V291;
3267          object V292;          object V292;
3268          object V293;          object V293;
3269          object V294;          parse_key(vs_base,FALSE,FALSE,6,VV[165],VV[166],VV[167],VV[365],VV[168],VV[366]);
         object V295;  
         parse_key(vs_base,FALSE,FALSE,6,VV[163],VV[164],VV[165],VV[363],VV[166],VV[364]);  
3270          vs_top=sup;          vs_top=sup;
3271          V290=(base[0]);          V288=(base[0]);
3272          V291=(base[1]);          V289=(base[1]);
3273          V292=(base[2]);          V290=(base[2]);
3274          V293=(base[3]);          V291=(base[3]);
3275          V294=(base[4]);          V292=(base[4]);
3276          V295=(base[5]);          V293=(base[5]);
3277          base[12]= VV[159];          base[12]= VV[161];
3278          base[13]= (V290);          base[13]= (V288);
3279          base[14]= (V291);          base[14]= (V289);
3280          base[15]= (V292);          base[15]= (V290);
3281          base[16]= (V293);          base[16]= (V291);
3282          base[17]= (V294);          base[17]= (V292);
3283          base[18]= (V295);          base[18]= (V293);
3284          vs_top=(vs_base=base+12)+7;          vs_top=(vs_base=base+12)+7;
3285          siLmake_structure();          siLmake_structure();
3286          return;          return;
# Line 3293  static void L73() Line 3292  static void L73()
3292  {register object *base=vs_base;  {register object *base=vs_base;
3293          register object *sup=base+VM62; VC62          register object *sup=base+VM62; VC62
3294          vs_reserve(VM62);          vs_reserve(VM62);
3295          {object V296;          {object V294;
3296          object V297;          object V295;
3297          object V298;          object V296;
3298          check_arg(3);          check_arg(3);
3299          V296=(base[0]);          V294=(base[0]);
3300          V297=(base[1]);          V295=(base[1]);
3301          V298=(base[2]);          V296=(base[2]);
3302          vs_top=sup;          vs_top=sup;
3303  goto TTL;  goto TTL;
3304  TTL:;  TTL:;
3305          {object V299;          base[3]= car(symbol_value(VV[89]));
3306          register object V300;          base[4]= VV[162];
3307          register object V301;          vs_top=(vs_base=base+3)+2;
3308          vs_base=vs_top;          (void) (*Lnk357)();
         (void) (*Lnk359)();  
3309          vs_top=sup;          vs_top=sup;
3310          V299= vs_base[0];          if((vs_base[0])!=Cnil){
3311          V302= structure_ref(symbol_value(VV[97]),VV[39],6);          goto T1113;}
3312          if((/* INLINE-ARGS */V302)==Cnil){          setq(VV[119],Ct);
3313          goto T1123;}  goto T1113;
3314          V300= Cnil;  T1113:;
3315          goto T1122;          {object V297;
3316  goto T1123;          register object V298;
3317  T1123:;          register object V299;
3318          vs_base=vs_top;          vs_base=vs_top;
3319          (void) (*Lnk365)();          (void) (*Lnk361)();
3320          vs_top=sup;          vs_top=sup;
3321          V300= vs_base[0];          V297= vs_base[0];
3322  goto T1122;          V300= structure_ref(symbol_value(VV[97]),VV[39],6);
3323  T1122:;          if((/* INLINE-ARGS */V300)==Cnil){
3324            goto T1121;}
3325            V298= Cnil;
3326            goto T1120;
3327    goto T1121;
3328    T1121:;
3329            vs_base=vs_top;
3330            (void) (*Lnk367)();
3331            vs_top=sup;
3332            V298= vs_base[0];
3333    goto T1120;
3334    T1120:;
3335          base[3]= car(symbol_value(VV[89]));          base[3]= car(symbol_value(VV[89]));
3336          base[4]= VV[160];          base[4]= VV[162];
3337          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3338          (void) (*Lnk355)();          (void) (*Lnk357)();
3339          vs_top=sup;          vs_top=sup;
3340          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3341          goto T1127;}          goto T1125;}
3342          vs_base=vs_top;          vs_base=vs_top;
3343          (void) (*Lnk348)();          (void) (*Lnk350)();
3344          vs_top=sup;          vs_top=sup;
3345          vs_base=vs_top;          vs_base=vs_top;
3346          (void) (*Lnk348)();          (void) (*Lnk350)();
3347          vs_top=sup;          vs_top=sup;
3348          V301= vs_base[0];          V299= vs_base[0];
3349          goto T1125;          goto T1123;
 goto T1127;  
 T1127:;  
         V301= Cnil;  
3350  goto T1125;  goto T1125;
3351  T1125:;  T1125:;
3352          if(type_of((V301))==t_symbol){          V299= Cnil;
3353          goto T1132;}  goto T1123;
3354          base[3]= VV[161];  T1123:;
3355          base[4]= (V301);          if(type_of((V299))==t_symbol){
3356            goto T1130;}
3357            base[3]= VV[163];
3358            base[4]= (V299);
3359          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3360          (void) (*Lnk345)();          (void) (*Lnk347)();
3361          vs_top=sup;          vs_top=sup;
3362  goto T1132;  goto T1130;
3363  T1132:;  T1130:;
3364          if(((V300))!=Cnil){          if(((V298))!=Cnil){
3365          goto T1137;}{object V303;          goto T1135;}{object V301;
3366          vs_base=vs_top;          vs_base=vs_top;
3367          (void) (*Lnk365)();          (void) (*Lnk367)();
         vs_top=sup;  
         V303= vs_base[0];  
         if(V303==Cnil)goto T1141;  
         V300= V303;  
         goto T1140;  
 goto T1141;  
 T1141:;}  
         V300= (V298);  
 goto T1140;  
 T1140:;  
 goto T1137;  
 T1137:;  
         {register object V304;{object V305;  
         V305= symbol_value(VV[119]);  
         V306= symbol_function(VV[367]);  
         V304= (VFUN_NARGS=4,(*(LnkLI366))((V301),V305,VV[162],V306));}  
         if(((V304))!=Cnil){  
         goto T1147;}  
         {object V307;  
         base[4]= VV[163];  
         base[5]= (V301);  
         base[6]= VV[164];  
         base[7]= (V297);  
         base[8]= VV[165];  
         base[9]= make_cons((V296),Cnil);  
         base[10]= VV[166];  
         base[11]= (V300);  
         vs_top=(vs_base=base+4)+8;  
         (void) (*Lnk368)();  
3368          vs_top=sup;          vs_top=sup;
3369          V304= vs_base[0];          V301= vs_base[0];
3370          V307= (V304);          if(V301==Cnil)goto T1139;
3371          setq(VV[119],make_cons((V307),symbol_value(VV[119])));          V298= V301;
3372            goto T1138;
3373    goto T1139;
3374    T1139:;}
3375            V298= (V296);
3376    goto T1138;
3377    T1138:;
3378    goto T1135;
3379    T1135:;
3380            {register object V302;{object V303;
3381            V303= symbol_value(VV[120]);
3382            V304= symbol_function(VV[369]);
3383            V302= (VFUN_NARGS=4,(*(LnkLI368))((V299),V303,VV[164],V304));}
3384            if(((V302))!=Cnil){
3385          goto T1145;}          goto T1145;}
3386  goto T1147;          {object V305;
3387  T1147:;          base[4]= VV[165];
3388          V308= structure_ref((V304),VV[159],1);          base[5]= (V299);
3389          if((/* INLINE-ARGS */V308)==((V297))){          base[6]= VV[166];
3390          goto T1160;}          base[7]= (V295);
3391          base[3]= VV[167];          base[8]= VV[167];
3392          base[4]= (V301);          base[9]= make_cons((V294),Cnil);
3393          V309= structure_ref((V304),VV[159],2);          base[10]= VV[168];
3394          base[5]= car(/* INLINE-ARGS */V309);          base[11]= (V298);
3395          base[6]= (V296);          vs_top=(vs_base=base+4)+8;
3396          vs_top=(vs_base=base+3)+4;          (void) (*Lnk370)();
         (void) (*Lnk345)();  
         vs_top=sup;  
 goto T1160;  
 T1160:;  
         V310= structure_ref((V304),VV[159],4);  
         if(equal((V300),/* INLINE-ARGS */V310)){  
         goto T1167;}  
         base[3]= VV[168];  
         base[4]= (V301);  
         base[5]= (V300);  
         base[6]= structure_ref((V304),VV[159],4);  
         vs_top=(vs_base=base+3)+4;  
         (void) (*Lnk336)();  
3397          vs_top=sup;          vs_top=sup;
3398          V311= structure_ref((V304),VV[159],4);          V302= vs_base[0];
3399          if(!((/* INLINE-ARGS */V311)==(Ct))){          V305= (V302);
3400          goto T1167;}          setq(VV[120],make_cons((V305),symbol_value(VV[120])));
3401          (void)(structure_set((V304),VV[159],4,(V300)));          goto T1143;}
 goto T1167;  
 T1167:;  
         {object V314;  
         V315= structure_ref(V304,VV[159],2);  
         V314= make_cons(V296,/* INLINE-ARGS */V315);  
         (void)(structure_set(V304,VV[159],2,(V314)));}  
3402  goto T1145;  goto T1145;
3403  T1145:;  T1145:;
3404          base[3]= (V304);          V306= structure_ref((V302),VV[161],1);
3405            if((/* INLINE-ARGS */V306)==((V295))){
3406            goto T1158;}
3407            base[3]= VV[169];
3408            base[4]= (V299);
3409            V307= structure_ref((V302),VV[161],2);
3410            base[5]= car(/* INLINE-ARGS */V307);
3411            base[6]= (V294);
3412            vs_top=(vs_base=base+3)+4;
3413            (void) (*Lnk347)();
3414            vs_top=sup;
3415    goto T1158;
3416    T1158:;
3417            V308= structure_ref((V302),VV[161],4);
3418            if(equal((V298),/* INLINE-ARGS */V308)){
3419            goto T1165;}
3420            base[3]= VV[170];
3421          base[4]= (V299);          base[4]= (V299);
3422            base[5]= (V298);
3423            base[6]= structure_ref((V302),VV[161],4);
3424            vs_top=(vs_base=base+3)+4;
3425            (void) (*Lnk338)();
3426            vs_top=sup;
3427            V309= structure_ref((V302),VV[161],4);
3428            if(!((/* INLINE-ARGS */V309)==(Ct))){
3429            goto T1165;}
3430            (void)(structure_set((V302),VV[161],4,(V298)));
3431    goto T1165;
3432    T1165:;
3433            {object V312;
3434            V313= structure_ref(V302,VV[161],2);
3435            V312= make_cons(V294,/* INLINE-ARGS */V313);
3436            (void)(structure_set(V302,VV[161],2,(V312)));}
3437    goto T1143;
3438    T1143:;
3439            base[3]= (V302);
3440            base[4]= (V297);
3441          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3442          return;}}          return;}}
3443          }          }
# Line 3439  static void L74() Line 3448  static void L74()
3448  {register object *base=vs_base;  {register object *base=vs_base;
3449          register object *sup=base+VM63; VC63          register object *sup=base+VM63; VC63
3450          vs_reserve(VM63);          vs_reserve(VM63);
3451          {object V316;          {object V314;
3452          check_arg(1);          check_arg(1);
3453          V316=(base[0]);          V314=(base[0]);
3454          vs_top=sup;          vs_top=sup;
3455  goto TTL;  goto TTL;
3456  TTL:;  TTL:;
3457          {register object V317;          {register object V315;
3458          register object V318;          register object V316;
3459          base[1]= (V316);          base[1]= (V314);
3460          base[2]= VV[5];          base[2]= VV[5];
3461          base[3]= VV[5];          base[3]= VV[5];
3462          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3463          (void) (*Lnk369)();          (void) (*Lnk371)();
3464          if(vs_base>=vs_top){vs_top=sup;goto T1184;}          if(vs_base>=vs_top){vs_top=sup;goto T1182;}
3465          V317= vs_base[0];          V315= vs_base[0];
3466          vs_base++;          vs_base++;
3467          if(vs_base>=vs_top){vs_top=sup;goto T1185;}          if(vs_base>=vs_top){vs_top=sup;goto T1183;}
3468          V318= vs_base[0];          V316= vs_base[0];
3469          vs_top=sup;          vs_top=sup;
3470          goto T1186;          goto T1184;
3471    goto T1182;
3472    T1182:;
3473            V315= Cnil;
3474    goto T1183;
3475    T1183:;
3476            V316= Cnil;
3477  goto T1184;  goto T1184;
3478  T1184:;  T1184:;
3479          V317= Cnil;          {register object V317;
3480  goto T1185;          V317= structure_ref((V315),VV[161],3);
3481  T1185:;          if(((V317))!=Cnil){
3482          V318= Cnil;          goto T1186;}
3483  goto T1186;          base[1]= VV[171];
 T1186:;  
         {register object V319;  
         V319= structure_ref((V317),VV[159],3);  
         if(((V319))!=Cnil){  
         goto T1188;}  
         base[1]= VV[169];  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk325)();  
         vs_top=sup;  
         V320= vs_base[0];  
         base[1]= VV[170];  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk325)();  
         vs_top=sup;  
         V321= vs_base[0];  
         if((structure_ref((V317),VV[159],0))!=Cnil){  
         goto T1198;}  
         V322= Cnil;  
         goto T1197;  
 goto T1198;  
 T1198:;  
         V323= structure_ref((V317),VV[159],0);  
         V322= make_cons(/* INLINE-ARGS */V323,Cnil);  
 goto T1197;  
 T1197:;  
         V319= listA(3,V320,V321,V322);  
         (void)(structure_set((V317),VV[159],3,(V319)));  
         {object V324;  
         V324= list(2,VV[171],(V319));  
         setq(VV[107],make_cons((V324),symbol_value(VV[107])));}  
         if((structure_ref((V317),VV[159],0))!=Cnil){  
         goto T1188;}  
         base[1]= listA(3,VV[172],car((V319)),cddr((V319)));  
3484          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3485          (void) (*Lnk370)();          (void) (*Lnk327)();
3486          vs_top=sup;          vs_top=sup;
3487  goto T1188;          V318= vs_base[0];
3488  T1188:;          base[1]= VV[172];
3489          {object V325= (V316);          vs_top=(vs_base=base+1)+1;
3490          if((V325!= VV[5]))goto T1207;          (void) (*Lnk327)();
3491          V318= list(2,VV[5],(V318));          vs_top=sup;
3492          goto T1206;          V319= vs_base[0];
3493            if((structure_ref((V315),VV[161],0))!=Cnil){
3494            goto T1196;}
3495            V320= Cnil;
3496            goto T1195;
3497    goto T1196;
3498    T1196:;
3499            V321= structure_ref((V315),VV[161],0);
3500            V320= make_cons(/* INLINE-ARGS */V321,Cnil);
3501    goto T1195;
3502    T1195:;
3503            V317= listA(3,V318,V319,V320);
3504            (void)(structure_set((V315),VV[161],3,(V317)));
3505            {object V322;
3506            V322= list(2,VV[173],(V317));
3507            setq(VV[107],make_cons((V322),symbol_value(VV[107])));}
3508            if((structure_ref((V315),VV[161],0))!=Cnil){
3509            goto T1186;}
3510            base[1]= listA(3,VV[174],car((V317)),cddr((V317)));
3511            vs_top=(vs_base=base+1)+1;
3512            (void) (*Lnk372)();
3513            vs_top=sup;
3514    goto T1186;
3515    T1186:;
3516            {object V323= (V314);
3517            if((V323!= VV[5]))goto T1205;
3518            V316= list(2,VV[5],(V316));
3519            goto T1204;
3520    goto T1205;
3521    T1205:;
3522            if((V323!= VV[373]))goto T1207;
3523            goto T1204;
3524  goto T1207;  goto T1207;
3525  T1207:;  T1207:;
3526          if((V325!= VV[371]))goto T1209;          if((V323!= VV[374]))goto T1208;
3527          goto T1206;          if(!(type_of((V316))==t_cons)){
3528            goto T1209;}
3529            if((car((V316)))==(VV[5])){
3530            goto T1204;}
3531  goto T1209;  goto T1209;
3532  T1209:;  T1209:;
3533          if((V325!= VV[372]))goto T1210;          V316= list(2,VV[175],(V316));
3534          if(!(type_of((V318))==t_cons)){          goto T1204;
3535          goto T1211;}  goto T1208;
3536          if((car((V318)))==(VV[5])){  T1208:;
3537          goto T1206;}          FEerror("The ECASE key value ~s is illegal.",1,V323);
3538  goto T1211;          goto T1204;}
3539  T1211:;  goto T1204;
3540          V318= list(2,VV[173],(V318));  T1204:;
3541          goto T1206;          base[1]= list(3,VV[176],(V317),(V316));
 goto T1210;  
 T1210:;  
         FEerror("The ECASE key value ~s is illegal.",1,V325);  
         goto T1206;}  
 goto T1206;  
 T1206:;  
         base[1]= list(3,VV[174],(V319),(V318));  
3542          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3543          (void) (*Lnk362)();          (void) (*Lnk364)();
3544          return;}}          return;}}
3545          }          }
3546  }  }
# Line 3541  static void L75() Line 3550  static void L75()
3550  {register object *base=vs_base;  {register object *base=vs_base;
3551          register object *sup=base+VM64; VC64          register object *sup=base+VM64; VC64
3552          vs_reserve(VM64);          vs_reserve(VM64);
3553          {object V326;          {object V324;
3554          object V327;          object V325;
3555          object V328;          object V326;
3556          check_arg(3);          check_arg(3);
3557          V326=(base[0]);          V324=(base[0]);
3558          V327=(base[1]);          V325=(base[1]);
3559          V328=(base[2]);          V326=(base[2]);
3560          vs_top=sup;          vs_top=sup;
3561  goto TTL;  goto TTL;
3562  TTL:;  TTL:;
3563          {register object V329;          {register object V327;
3564          object V330;          object V328;
3565          base[3]= (V326);          base[3]= (V324);
3566          base[4]= VV[175];          base[4]= VV[177];
3567          base[5]= (V328);          base[5]= (V326);
3568          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3569          (void) (*Lnk369)();          (void) (*Lnk371)();
3570          if(vs_base>=vs_top){vs_top=sup;goto T1221;}          if(vs_base>=vs_top){vs_top=sup;goto T1219;}
3571          V329= vs_base[0];          V327= vs_base[0];
3572          vs_base++;          vs_base++;
3573          if(vs_base>=vs_top){vs_top=sup;goto T1222;}          if(vs_base>=vs_top){vs_top=sup;goto T1220;}
3574          V330= vs_base[0];          V328= vs_base[0];
3575          vs_top=sup;          vs_top=sup;
3576          goto T1223;          goto T1221;
3577    goto T1219;
3578    T1219:;
3579            V327= Cnil;
3580    goto T1220;
3581    T1220:;
3582            V328= Cnil;
3583  goto T1221;  goto T1221;
3584  T1221:;  T1221:;
3585          V329= Cnil;          base[3]= structure_ref((V327),VV[161],4);
3586  goto T1222;          base[4]= (V325);
 T1222:;  
         V330= Cnil;  
 goto T1223;  
 T1223:;  
         base[3]= structure_ref((V329),VV[159],4);  
         base[4]= (V327);  
3587          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3588          (void) (*Lnk373)();          (void) (*Lnk375)();
3589          vs_top=sup;          vs_top=sup;
3590          {register object V331;          {register object V329;
3591          V331= structure_ref((V329),VV[159],3);          V329= structure_ref((V327),VV[161],3);
3592          if(((V331))!=Cnil){          if(((V329))!=Cnil){
3593          goto T1228;}{object V333;          goto T1226;}{object V331;
3594          V333= structure_ref((V329),VV[159],0);          V331= structure_ref((V327),VV[161],0);
3595          if(V333==Cnil)goto T1235;          if(V331==Cnil)goto T1233;
3596          base[3]= V333;          base[3]= V331;
3597          goto T1234;          goto T1232;
3598  goto T1235;  goto T1233;
3599  T1235:;}  T1233:;}
3600          base[4]= VV[176];          base[4]= VV[178];
3601          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3602          (void) (*Lnk325)();          (void) (*Lnk327)();
3603          vs_top=sup;          vs_top=sup;
3604          base[3]= vs_base[0];          base[3]= vs_base[0];
3605  goto T1234;  goto T1232;
3606  T1234:;  T1232:;
3607          base[4]= Cnil;          base[4]= Cnil;
3608          base[5]= structure_ref((V329),VV[159],4);          base[5]= structure_ref((V327),VV[161],4);
3609          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3610          (void) (*Lnk357)();          (void) (*Lnk359)();
3611          vs_top=sup;          vs_top=sup;
3612          V332= vs_base[0];          V330= vs_base[0];
3613          V331= make_cons(V332,Cnil);          V329= make_cons(V330,Cnil);
3614          (void)(structure_set((V329),VV[159],3,(V331)));          (void)(structure_set((V327),VV[161],3,(V329)));
3615          if((structure_ref((V329),VV[159],0))!=Cnil){          if((structure_ref((V327),VV[161],0))!=Cnil){
3616          goto T1228;}          goto T1226;}
3617          V334= structure_ref((V329),VV[159],3);          V332= structure_ref((V327),VV[161],3);
3618          base[3]= car(/* INLINE-ARGS */V334);          base[3]= car(/* INLINE-ARGS */V332);
3619          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3620          (void) (*Lnk370)();          (void) (*Lnk372)();
3621          vs_top=sup;          vs_top=sup;
3622  goto T1228;  goto T1226;
3623  T1228:;  T1226:;
3624          if(!(((V326))==(VV[177]))){          if(!(((V324))==(VV[179]))){
3625          goto T1245;}          goto T1243;}
3626          V335= car((V331));          V333= car((V329));
3627          base[4]= Ct;          base[4]= Ct;
3628          base[5]= car((V331));          base[5]= car((V329));
3629          base[6]= list(2,VV[178],car((V331)));          base[6]= list(2,VV[180],car((V329)));
3630          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3631          (void) (*Lnk329)();          (void) (*Lnk331)();
3632          vs_top=sup;          vs_top=sup;
3633          V336= vs_base[0];          V334= vs_base[0];
3634          base[3]= list(3,VV[8],(V330),list(3,VV[11],/* INLINE-ARGS */V335,V336));          base[3]= list(3,VV[8],(V328),list(3,VV[11],/* INLINE-ARGS */V333,V334));
3635          goto T1243;          goto T1241;
3636  goto T1245;  goto T1243;
3637  T1245:;  T1243:;
3638          V337= car((V331));          V335= car((V329));
3639          base[4]= Ct;          base[4]= Ct;
3640          base[5]= car((V331));          base[5]= car((V329));
3641          base[6]= car((V331));          base[6]= car((V329));
3642          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3643          (void) (*Lnk329)();          (void) (*Lnk331)();
3644          vs_top=sup;          vs_top=sup;
3645          V338= vs_base[0];          V336= vs_base[0];
3646          base[3]= list(3,VV[11],/* INLINE-ARGS */V337,list(3,VV[179],V338,(V330)));          base[3]= list(3,VV[11],/* INLINE-ARGS */V335,list(3,VV[181],V336,(V328)));
3647  goto T1243;  goto T1241;
3648  T1243:;  T1241:;
3649          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3650          (void) (*Lnk362)();          (void) (*Lnk364)();
3651          return;}}          return;}}
3652          }          }
3653  }  }
# Line 3648  static void L76() Line 3657  static void L76()
3657  {register object *base=vs_base;  {register object *base=vs_base;
3658          register object *sup=base+VM65; VC65          register object *sup=base+VM65; VC65
3659          vs_reserve(VM65);          vs_reserve(VM65);
3660          {object V339;          {object V337;
3661          check_arg(1);          check_arg(1);
3662          V339=(base[0]);          V337=(base[0]);
3663          vs_top=sup;          vs_top=sup;
3664  goto TTL;  goto TTL;
3665  TTL:;  TTL:;
3666          {register object V340;          {register object V338;
3667          object V341;          object V339;
3668          base[1]= (V339);          base[1]= (V337);
3669          base[2]= VV[180];          base[2]= VV[182];
3670          base[3]= symbol_value(VV[181]);          base[3]= symbol_value(VV[183]);
3671          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3672          (void) (*Lnk369)();          (void) (*Lnk371)();
3673          if(vs_base>=vs_top){vs_top=sup;goto T1259;}          if(vs_base>=vs_top){vs_top=sup;goto T1257;}
3674          V340= vs_base[0];          V338= vs_base[0];
3675          vs_base++;          vs_base++;
3676          if(vs_base>=vs_top){vs_top=sup;goto T1260;}          if(vs_base>=vs_top){vs_top=sup;goto T1258;}
3677          V341= vs_base[0];          V339= vs_base[0];
3678          vs_top=sup;          vs_top=sup;
3679          goto T1261;          goto T1259;
3680    goto T1257;
3681    T1257:;
3682            V338= Cnil;
3683    goto T1258;
3684    T1258:;
3685            V339= Cnil;
3686  goto T1259;  goto T1259;
3687  T1259:;  T1259:;
3688          V340= Cnil;          base[1]= structure_ref((V338),VV[161],4);
3689  goto T1260;          base[2]= symbol_value(VV[183]);
 T1260:;  
         V341= Cnil;  
 goto T1261;  
 T1261:;  
         base[1]= structure_ref((V340),VV[159],4);  
         base[2]= symbol_value(VV[181]);  
3690          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3691          (void) (*Lnk373)();          (void) (*Lnk375)();
3692          vs_top=sup;          vs_top=sup;
3693          {register object V342;          {register object V340;
3694          V342= structure_ref((V340),VV[159],5);          V340= structure_ref((V338),VV[161],5);
3695          if(((V342))!=Cnil){          if(((V340))!=Cnil){
3696          goto T1266;}{object V343;          goto T1264;}{object V341;
3697          V343= structure_ref((V340),VV[159],0);          V341= structure_ref((V338),VV[161],0);
3698          if(V343==Cnil)goto T1272;          if(V341==Cnil)goto T1270;
3699          base[1]= V343;          base[1]= V341;
3700          goto T1271;          goto T1269;
3701  goto T1272;  goto T1270;
3702  T1272:;}  T1270:;}
3703          base[2]= VV[182];          base[2]= VV[184];
3704          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3705          (void) (*Lnk325)();          (void) (*Lnk327)();
3706          vs_top=sup;          vs_top=sup;
3707          base[1]= vs_base[0];          base[1]= vs_base[0];
3708  goto T1271;  goto T1269;
3709  T1271:;  T1269:;
3710          base[2]= structure_ref((V340),VV[159],4);          base[2]= structure_ref((V338),VV[161],4);
3711          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3712          (void) (*Lnk374)();          (void) (*Lnk376)();
         vs_top=sup;  
         V342= vs_base[0];  
         (void)(structure_set((V340),VV[159],5,(V342)));  
         if((structure_ref((V340),VV[159],0))!=Cnil){  
         goto T1266;}  
         base[1]= structure_ref((V342),VV[18],0);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk370)();  
3713          vs_top=sup;          vs_top=sup;
3714  goto T1266;          V340= vs_base[0];
3715  T1266:;          (void)(structure_set((V338),VV[161],5,(V340)));
3716          base[1]= (V339);          if((structure_ref((V338),VV[161],0))!=Cnil){
3717          base[2]= (V342);          goto T1264;}
3718            base[1]= structure_ref((V340),VV[18],0);
3719            vs_top=(vs_base=base+1)+1;
3720            (void) (*Lnk372)();
3721            vs_top=sup;
3722    goto T1264;
3723    T1264:;
3724            base[1]= (V337);
3725            base[2]= (V340);
3726          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3727          (void) (*Lnk375)();          (void) (*Lnk377)();
3728          vs_top=sup;          vs_top=sup;
3729          {object V344;          {object V342;
3730          V344= list(2,VV[183],(V342));          V342= list(2,VV[185],(V340));
3731          setq(VV[107],make_cons((V344),symbol_value(VV[107])));}          setq(VV[107],make_cons((V342),symbol_value(VV[107])));}
3732          base[1]= list(4,VV[184],(V342),(V339),(V341));          base[1]= list(4,VV[186],(V340),(V337),(V339));
3733          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3734          (void) (*Lnk362)();          (void) (*Lnk364)();
3735          return;}}          return;}}
3736          }          }
3737  }  }
# Line 3732  static void L77() Line 3741  static void L77()
3741  {register object *base=vs_base;  {register object *base=vs_base;
3742          register object *sup=base+VM66; VC66          register object *sup=base+VM66; VC66
3743          vs_reserve(VM66);          vs_reserve(VM66);
3744          {object V345;          {object V343;
3745          object V346;          object V344;
3746          check_arg(2);          check_arg(2);
3747          V345=(base[0]);          V343=(base[0]);
3748          V346=(base[1]);          V344=(base[1]);
3749          vs_top=sup;          vs_top=sup;
3750  goto TTL;  goto TTL;
3751  TTL:;  TTL:;
3752          {object V347;          {object V345;
3753          vs_base=vs_top;          vs_base=vs_top;
3754          (void) (*Lnk359)();          (void) (*Lnk361)();
3755          vs_top=sup;          vs_top=sup;
3756          V347= vs_base[0];          V345= vs_base[0];
3757          if(((V345))==Cnil){          if(((V343))==Cnil){
3758          goto T1287;}          goto T1285;}
3759          vs_base=vs_top;          vs_base=vs_top;
3760          (void) (*Lnk360)();          (void) (*Lnk362)();
3761          vs_top=sup;          vs_top=sup;
3762  goto T1287;  goto T1285;
3763  T1287:;  T1285:;
3764          if(((V346))==Cnil){          if(((V344))==Cnil){
3765          goto T1294;}          goto T1292;}
3766          V348= VV[8];          V346= VV[8];
3767          goto T1292;          goto T1290;
 goto T1294;  
 T1294:;  
         V348= VV[185];  
3768  goto T1292;  goto T1292;
3769  T1292:;  T1292:;
3770            V346= VV[187];
3771    goto T1290;
3772    T1290:;
3773          base[3]= Cnil;          base[3]= Cnil;
3774          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3775          (void) (*Lnk353)();          (void) (*Lnk355)();
3776          vs_top=sup;          vs_top=sup;
3777          V349= vs_base[0];          V347= vs_base[0];
3778          base[2]= list(3,V348,(V347),V349);          base[2]= list(3,V346,(V345),V347);
3779          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3780          (void) (*Lnk362)();          (void) (*Lnk364)();
3781          vs_top=sup;          vs_top=sup;
3782          base[2]= Ct;          base[2]= Ct;
3783          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3784          (void) (*Lnk370)();          (void) (*Lnk372)();
3785          return;}          return;}
3786          }          }
3787  }  }
# Line 3782  static void L78() Line 3791  static void L78()
3791  {register object *base=vs_base;  {register object *base=vs_base;
3792          register object *sup=base+VM67; VC67          register object *sup=base+VM67; VC67
3793          vs_reserve(VM67);          vs_reserve(VM67);
3794          {object V350;          {object V348;
3795          check_arg(1);          check_arg(1);
3796          V350=(base[0]);          V348=(base[0]);
3797          vs_top=sup;          vs_top=sup;
3798  goto TTL;  goto TTL;
3799  TTL:;  TTL:;
3800          if(((V350))==Cnil){          if(((V348))==Cnil){
3801          goto T1299;}          goto T1297;}
3802          vs_base=vs_top;          vs_base=vs_top;
3803          (void) (*Lnk360)();          (void) (*Lnk362)();
3804          vs_top=sup;          vs_top=sup;
3805  goto T1299;  goto T1297;
3806  T1299:;  T1297:;
3807          vs_base=vs_top;          vs_base=vs_top;
3808          (void) (*Lnk376)();          (void) (*Lnk378)();
3809          vs_top=sup;          vs_top=sup;
3810          V351= vs_base[0];          V349= vs_base[0];
3811          vs_base=vs_top;          vs_base=vs_top;
3812          (void) (*Lnk359)();          (void) (*Lnk361)();
3813          vs_top=sup;          vs_top=sup;
3814          V352= vs_base[0];          V350= vs_base[0];
3815          V353= list(3,VV[11],V351,V352);          V351= list(3,VV[11],V349,V350);
3816          base[2]= symbol_value(VV[116]);          base[2]= symbol_value(VV[116]);
3817          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3818          (void) (*Lnk353)();          (void) (*Lnk355)();
3819          vs_top=sup;          vs_top=sup;
3820          V354= vs_base[0];          V352= vs_base[0];
3821          base[1]= list(3,VV[8],/* INLINE-ARGS */V353,V354);          base[1]= list(3,VV[8],/* INLINE-ARGS */V351,V352);
3822          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3823          (void) (*Lnk362)();          (void) (*Lnk364)();
3824            vs_top=sup;
3825            base[1]= Cnil;
3826            vs_top=(vs_base=base+1)+1;
3827            (void) (*Lnk372)();
3828          return;          return;
3829          }          }
3830  }  }
# Line 3821  static void L79() Line 3834  static void L79()
3834  {register object *base=vs_base;  {register object *base=vs_base;
3835          register object *sup=base+VM68; VC68          register object *sup=base+VM68; VC68
3836          vs_reserve(VM68);          vs_reserve(VM68);
3837          {object V355;          {object V353;
3838          object V356;          object V354;
3839          check_arg(2);          check_arg(2);
3840          V355=(base[0]);          V353=(base[0]);
3841          V356=(base[1]);          V354=(base[1]);
3842          vs_top=sup;          vs_top=sup;
3843  goto TTL;  goto TTL;
3844  TTL:;  TTL:;
3845          {object V357;          {object V355;
3846          vs_base=vs_top;          vs_base=vs_top;
3847          (void) (*Lnk359)();          (void) (*Lnk361)();
3848          vs_top=sup;          vs_top=sup;
3849          V357= vs_base[0];          V355= vs_base[0];
3850          base[3]= (V356);          base[3]= (V354);
3851          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3852          (void) (*Lnk360)();          (void) (*Lnk362)();
3853          vs_top=sup;          vs_top=sup;
3854          if(((V355))==Cnil){          if(((V353))==Cnil){
3855          goto T1313;}          goto T1313;}
3856          V358= VV[8];          V356= VV[8];
3857          goto T1311;          goto T1311;
3858  goto T1313;  goto T1313;
3859  T1313:;  T1313:;
3860          V358= VV[185];          V356= VV[187];
3861  goto T1311;  goto T1311;
3862  T1311:;  T1311:;
3863          base[3]= list(3,V358,(V357),VV[186]);          base[3]= list(3,V356,(V355),VV[188]);
3864          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3865          (void) (*Lnk352)();          (void) (*Lnk354)();
3866          return;}          return;}
3867          }          }
3868  }  }
# Line 3863  static void L80() Line 3876  static void L80()
3876          vs_top=sup;          vs_top=sup;
3877  goto TTL;  goto TTL;
3878  TTL:;  TTL:;
3879          base[0]= VV[187];          base[0]= VV[189];
3880          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3881          (void) (*Lnk360)();          (void) (*Lnk362)();
3882          vs_top=sup;          vs_top=sup;
3883          {register object V359;          {register object V357;
3884          register object V360;          register object V358;
3885          register object V361;          register object V359;
3886            V357= Cnil;
3887            V358= Cnil;
3888          V359= Cnil;          V359= Cnil;
         V360= Cnil;  
         V361= Cnil;  
3889  goto T1318;  goto T1318;
3890  T1318:;  T1318:;
3891          vs_base=vs_top;          vs_base=vs_top;
3892          (void) (*Lnk348)();          (void) (*Lnk350)();
3893          vs_top=sup;          vs_top=sup;
3894          V359= vs_base[0];          V357= vs_base[0];
3895          base[0]= (V359);          base[0]= (V357);
3896          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3897          (void) (*Lnk365)();          (void) (*Lnk367)();
3898          vs_top=sup;          vs_top=sup;
3899          V361= vs_base[0];          V359= vs_base[0];
3900          base[0]= car(symbol_value(VV[89]));          base[0]= car(symbol_value(VV[89]));
3901          base[1]= VV[188];          base[1]= VV[190];
3902          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3903          (void) (*Lnk355)();          (void) (*Lnk357)();
3904          vs_top=sup;          vs_top=sup;
3905          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3906          goto T1329;}          goto T1329;}
3907          vs_base=vs_top;          vs_base=vs_top;
3908          (void) (*Lnk348)();          (void) (*Lnk350)();
3909          vs_top=sup;          vs_top=sup;
3910          vs_base=vs_top;          vs_base=vs_top;
3911          (void) (*Lnk359)();          (void) (*Lnk361)();
3912          vs_top=sup;          vs_top=sup;
3913          V360= vs_base[0];          V358= vs_base[0];
3914          goto T1327;          goto T1327;
3915  goto T1329;  goto T1329;
3916  T1329:;  T1329:;
3917          V360= Cnil;          V358= Cnil;
3918  goto T1327;  goto T1327;
3919  T1327:;  T1327:;
3920          base[0]= (V359);          base[0]= (V357);
3921          base[1]= (V360);          base[1]= (V358);
3922          base[2]= (V361);          base[2]= (V359);
3923          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3924          (void) (*Lnk357)();          (void) (*Lnk359)();
3925          vs_top=sup;          vs_top=sup;
3926          base[0]= car(symbol_value(VV[89]));          base[0]= car(symbol_value(VV[89]));
3927          base[1]= VV[153];          base[1]= VV[155];
3928          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3929          (void) (*Lnk355)();          (void) (*Lnk357)();
3930          vs_top=sup;          vs_top=sup;
3931          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3932          goto T1340;}          goto T1340;}
3933          vs_base=vs_top;          vs_base=vs_top;
3934          (void) (*Lnk348)();          (void) (*Lnk350)();
3935          vs_top=sup;          vs_top=sup;
3936          goto T1338;          goto T1338;
3937  goto T1340;  goto T1340;
3938  T1340:;  T1340:;
3939          vs_base=vs_top;          vs_base=vs_top;
3940          (void) (*Lnk347)();          (void) (*Lnk349)();
3941          return;          return;
3942  goto T1338;  goto T1338;
3943  T1338:;  T1338:;
# Line 3936  static void L81() Line 3949  static void L81()
3949  {register object *base=vs_base;  {register object *base=vs_base;
3950          register object *sup=base+VM70; VC70          register object *sup=base+VM70; VC70
3951          vs_reserve(VM70);          vs_reserve(VM70);
3952          {register object V362;          {register object V360;
3953          check_arg(1);          check_arg(1);
3954          V362=(base[0]);          V360=(base[0]);
3955          vs_top=sup;          vs_top=sup;
3956  goto TTL;  goto TTL;
3957  TTL:;  TTL:;
3958          {register object V363;          {register object V361;
3959            register object V362;
3960            register object V363;
3961          register object V364;          register object V364;
3962          register object V365;          register object V365;
3963          register object V366;          register object V366;
3964          register object V367;          register object V367;
3965          register object V368;          register object V368;
3966          register object V369;          register object V369;
3967          register object V370;          object V370;
3968          register object V371;          V361= Cnil;
3969          object V372;          V362= Cnil;
3970          V363= Cnil;          V363= Cnil;
3971          V364= Cnil;          V364= Cnil;
3972          V365= Cnil;          V365= Cnil;
# Line 3960  TTL:; Line 3975  TTL:;
3975          V368= Cnil;          V368= Cnil;
3976          V369= Cnil;          V369= Cnil;
3977          V370= Cnil;          V370= Cnil;
         V371= Cnil;  
         V372= Cnil;  
3978  goto T1347;  goto T1347;
3979  T1347:;  T1347:;
3980          base[2]= car((V362));          base[2]= car((V360));
3981          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3982          Lsymbol_function();          Lsymbol_function();
3983          vs_top=sup;          vs_top=sup;
3984          base[1]= vs_base[0];          base[1]= vs_base[0];
3985          {object V373;          {object V371;
3986          V373= cdr((V362));          V371= cdr((V360));
3987           vs_top=base+2;           vs_top=base+2;
3988           while(!endp(V373))           while(!endp(V371))
3989           {vs_push(car(V373));V373=cdr(V373);}           {vs_push(car(V371));V371=cdr(V371);}
3990          vs_base=base+2;}          vs_base=base+2;}
3991          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
3992          vs_top=sup;          vs_top=sup;
3993          V372= vs_base[0];          V370= vs_base[0];
3994          V371= (V372);          V369= (V370);
3995          if((car((V371)))!=Cnil){          if((car((V369)))!=Cnil){
3996          goto T1357;}          goto T1357;}
3997          goto T1356;          goto T1356;
3998  goto T1357;  goto T1357;
3999  T1357:;  T1357:;
4000          {object V374;          {object V372;
4001          V374= car((V371));          V372= car((V369));
4002          V363= make_cons((V374),(V363));}          V361= make_cons((V372),(V361));}
4003  goto T1356;  goto T1356;
4004  T1356:;  T1356:;
4005          V371= cdr((V371));          V369= cdr((V369));
4006          base[1]= car((V371));          base[1]= car((V369));
4007          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4008          Lcopy_list();          Lcopy_list();
4009          vs_top=sup;          vs_top=sup;
4010          V375= vs_base[0];          V373= vs_base[0];
4011          V364= nconc((V364),V375);          V362= nconc((V362),V373);
4012          V371= cdr((V371));          V369= cdr((V369));
4013          if((car((V371)))!=Cnil){          if((car((V369)))!=Cnil){
4014          goto T1367;}          goto T1367;}
4015          goto T1366;          goto T1366;
4016  goto T1367;  goto T1367;
4017  T1367:;  T1367:;
4018          {object V376;          {object V374;
4019          V376= car((V371));          V374= car((V369));
4020          V365= make_cons((V376),(V365));}          V363= make_cons((V374),(V363));}
4021  goto T1366;  goto T1366;
4022  T1366:;  T1366:;
4023          V371= cdr((V371));          V369= cdr((V369));
4024          base[1]= car((V371));          base[1]= car((V369));
4025          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4026          Lcopy_list();          Lcopy_list();
4027          vs_top=sup;          vs_top=sup;
4028          V377= vs_base[0];          V375= vs_base[0];
4029          V366= nconc((V366),V377);          V364= nconc((V364),V375);
4030          V371= cdr((V371));          V369= cdr((V369));
4031          if((symbol_value(VV[110]))==Cnil){          if((symbol_value(VV[110]))==Cnil){
4032          goto T1379;}          goto T1379;}
4033          base[1]= VV[189];          base[1]= VV[191];
4034          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4035          (void) (*Lnk345)();          (void) (*Lnk347)();
4036          vs_top=sup;          vs_top=sup;
4037  goto T1379;  goto T1379;
4038  T1379:;  T1379:;
4039          if(((V371))!=Cnil){          if(((V369))!=Cnil){
4040          goto T1383;}          goto T1383;}
4041          V371= (V372);          V369= (V370);
4042  goto T1383;  goto T1383;
4043  T1383:;  T1383:;
4044          if((car((V371)))==Cnil){          if((car((V369)))==Cnil){
4045          goto T1387;}          goto T1387;}
4046          {object V378;          {object V376;
4047          V378= car((V371));          V376= car((V369));
4048          V367= make_cons((V378),(V367));}          V365= make_cons((V376),(V365));}
4049  goto T1387;  goto T1387;
4050  T1387:;  T1387:;
4051          V371= cdr((V371));          V369= cdr((V369));
4052          base[1]= car((V371));          base[1]= car((V369));
4053          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4054          Lcopy_list();          Lcopy_list();
4055          vs_top=sup;          vs_top=sup;
4056          V379= vs_base[0];          V377= vs_base[0];
4057          V368= nconc((V368),V379);          V366= nconc((V366),V377);
4058          V371= cdr((V371));          V369= cdr((V369));
4059          if((car((V371)))==Cnil){          if((car((V369)))==Cnil){
4060          goto T1397;}          goto T1397;}
4061          {object V380;          {object V378;
4062          V380= car((V371));          V378= car((V369));
4063          V369= make_cons((V380),(V369));}          V367= make_cons((V378),(V367));}
4064  goto T1397;  goto T1397;
4065  T1397:;  T1397:;
4066          base[1]= cadr((V371));          base[1]= cadr((V369));
4067          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4068          Lcopy_list();          Lcopy_list();
4069          vs_top=sup;          vs_top=sup;
4070          V381= vs_base[0];          V379= vs_base[0];
4071          V370= nconc((V370),V381);          V368= nconc((V368),V379);
4072          base[1]= car(symbol_value(VV[89]));          base[1]= car(symbol_value(VV[89]));
4073          base[2]= VV[153];          base[2]= VV[155];
4074          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4075          (void) (*Lnk355)();          (void) (*Lnk357)();
4076          vs_top=sup;          vs_top=sup;
4077          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4078          goto T1407;}          goto T1407;}
         base[1]= (V370);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk335)();  
         vs_top=sup;  
         V382= vs_base[0];  
         base[1]= (V369);  
         vs_top=(vs_base=base+1)+1;  
         L82(base);  
         vs_top=sup;  
         V383= vs_base[0];  
4079          base[1]= (V368);          base[1]= (V368);
4080          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4081          (void) (*Lnk334)();          (void) (*Lnk337)();
4082          vs_top=sup;          vs_top=sup;
4083          V384= vs_base[0];          V380= vs_base[0];
4084          base[1]= (V367);          base[1]= (V367);
4085          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4086          L82(base);          L82(base);
4087          vs_top=sup;          vs_top=sup;
4088          V385= vs_base[0];          V381= vs_base[0];
         setq(VV[108],listA(5,V382,V383,V384,V385,symbol_value(VV[108])));  
4089          base[1]= (V366);          base[1]= (V366);
4090          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4091          (void) (*Lnk335)();          (void) (*Lnk336)();
4092          vs_top=sup;          vs_top=sup;
4093          V386= vs_base[0];          V382= vs_base[0];
4094          base[1]= (V365);          base[1]= (V365);
4095          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4096          L82(base);          L82(base);
4097          vs_top=sup;          vs_top=sup;
4098          V387= vs_base[0];          V383= vs_base[0];
4099            setq(VV[108],listA(5,V380,V381,V382,V383,symbol_value(VV[108])));
4100          base[1]= (V364);          base[1]= (V364);
4101          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4102          (void) (*Lnk334)();          (void) (*Lnk337)();
4103          vs_top=sup;          vs_top=sup;
4104          V388= vs_base[0];          V384= vs_base[0];
4105          base[1]= (V363);          base[1]= (V363);
4106          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4107          L82(base);          L82(base);
4108          vs_top=sup;          vs_top=sup;
4109          V389= vs_base[0];          V385= vs_base[0];
4110          setq(VV[111],listA(5,V386,V387,V388,V389,symbol_value(VV[111])));          base[1]= (V362);
4111            vs_top=(vs_base=base+1)+1;
4112            (void) (*Lnk336)();
4113            vs_top=sup;
4114            V386= vs_base[0];
4115            base[1]= (V361);
4116            vs_top=(vs_base=base+1)+1;
4117            L82(base);
4118            vs_top=sup;
4119            V387= vs_base[0];
4120            setq(VV[111],listA(5,V384,V385,V386,V387,symbol_value(VV[111])));
4121          vs_base=vs_top;          vs_base=vs_top;
4122          (void) (*Lnk347)();          (void) (*Lnk349)();
4123          vs_top=sup;          vs_top=sup;
4124          base[1]= Cnil;          base[1]= Cnil;
4125          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 4114  T1397:; Line 4127  T1397:;
4127  goto T1407;  goto T1407;
4128  T1407:;  T1407:;
4129          vs_base=vs_top;          vs_base=vs_top;
4130          (void) (*Lnk348)();          (void) (*Lnk350)();
4131          vs_top=sup;          vs_top=sup;
4132          if((structure_ref(symbol_value(VV[97]),VV[39],7))!=Cnil){          if((structure_ref(symbol_value(VV[97]),VV[39],7))!=Cnil){
4133          goto T1434;}          goto T1434;}
4134          base[1]= car(symbol_value(VV[89]));          base[1]= car(symbol_value(VV[89]));
4135          base[2]= structure_ref(symbol_value(VV[97]),VV[39],1);          base[2]= structure_ref(symbol_value(VV[97]),VV[39],1);
4136          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4137          (void) (*Lnk349)();          (void) (*Lnk351)();
4138          vs_top=sup;          vs_top=sup;
4139          V371= vs_base[0];          V369= vs_base[0];
4140          if(((V371))==Cnil){          if(((V369))==Cnil){
4141          goto T1434;}          goto T1434;}
4142          vs_base=vs_top;          vs_base=vs_top;
4143          (void) (*Lnk348)();          (void) (*Lnk350)();
4144          vs_top=sup;          vs_top=sup;
4145          V362= (V371);          V360= (V369);
4146  goto T1434;  goto T1434;
4147  T1434:;  T1434:;
4148          goto T1347;}          goto T1347;}
# Line 4145  static void L83() Line 4158  static void L83()
4158          vs_top=sup;          vs_top=sup;
4159  goto TTL;  goto TTL;
4160  TTL:;  TTL:;
4161          {object V390;          {object V388;
4162            object V389;
4163            object V390;
4164          object V391;          object V391;
4165          object V392;          object V392;
         object V393;  
         object V394;  
4166          vs_base=vs_top;          vs_base=vs_top;
4167          (void) (*Lnk348)();          (void) (*Lnk350)();
4168          vs_top=sup;          vs_top=sup;
4169          V390= vs_base[0];          V388= vs_base[0];
4170          base[3]= (V390);          base[3]= (V388);
4171          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4172          (void) (*Lnk365)();          (void) (*Lnk367)();
4173          vs_top=sup;          vs_top=sup;
4174          V391= vs_base[0];          V389= vs_base[0];
4175          vs_base=vs_top;          vs_base=vs_top;
4176          (void) (*Lnk348)();          (void) (*Lnk350)();
4177          vs_top=sup;          vs_top=sup;
4178          V392= vs_base[0];          V390= vs_base[0];
4179          V393= Cnil;          V391= Cnil;
4180          V394= Cnil;          V392= Cnil;
4181          vs_base=vs_top;          vs_base=vs_top;
4182          (void) (*Lnk359)();          (void) (*Lnk361)();
4183          vs_top=sup;          vs_top=sup;
4184          V393= vs_base[0];          V391= vs_base[0];
4185          if(!(type_of((V392))==t_symbol)){          if(!(type_of((V390))==t_symbol)){
4186          goto T1455;}          goto T1455;}
4187          base[3]= (V392);          base[3]= (V390);
4188          base[4]= structure_ref(symbol_value(VV[97]),VV[39],2);          base[4]= structure_ref(symbol_value(VV[97]),VV[39],2);
4189          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4190          (void) (*Lnk349)();          (void) (*Lnk351)();
4191          vs_top=sup;          vs_top=sup;
4192          V394= vs_base[0];          V392= vs_base[0];
4193          if(((V394))!=Cnil){          if(((V392))!=Cnil){
4194          goto T1454;}          goto T1454;}
4195  goto T1455;  goto T1455;
4196  T1455:;  T1455:;
4197          base[3]= VV[192];          base[3]= VV[194];
4198          base[4]= (V392);          base[4]= (V390);
4199          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4200          (void) (*Lnk345)();          (void) (*Lnk347)();
4201          vs_top=sup;          vs_top=sup;
4202  goto T1454;  goto T1454;
4203  T1454:;  T1454:;
4204          base[3]= car((V394));          base[3]= car((V392));
4205          base[4]= (V390);          base[4]= (V388);
4206          base[5]= (V393);          base[5]= (V391);
4207          base[6]= (V391);          base[6]= (V389);
4208          {object V395;          {object V393;
4209          V395= cdr((V394));          V393= cdr((V392));
4210           vs_top=base+7;           vs_top=base+7;
4211           while(!endp(V395))           while(!endp(V393))
4212           {vs_push(car(V395));V395=cdr(V395);}           {vs_push(car(V393));V393=cdr(V393);}
4213          vs_base=base+4;}          vs_base=base+4;}
4214          super_funcall_no_event(base[3]);          super_funcall_no_event(base[3]);
4215          return;}          return;}
# Line 4211  static void L84() Line 4224  static void L84()
4224          vs_top=sup;          vs_top=sup;
4225  goto TTL;  goto TTL;
4226  TTL:;  TTL:;
4227          {register object V396;          {register object V394;
4228          register object V397;          register object V395;
4229          vs_base=vs_top;          vs_base=vs_top;
4230          (void) (*Lnk359)();          (void) (*Lnk361)();
4231          vs_top=sup;          vs_top=sup;
4232          V396= vs_base[0];          V394= vs_base[0];
4233          vs_base=vs_top;          vs_base=vs_top;
4234          (void) (*Lnk365)();          (void) (*Lnk367)();
4235          vs_top=sup;          vs_top=sup;
4236          base[0]= vs_base[0];          base[0]= vs_base[0];
4237          base[1]= symbol_value(VV[181]);          base[1]= symbol_value(VV[183]);
4238          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4239          (void) (*Lnk373)();          (void) (*Lnk375)();
4240          vs_top=sup;          vs_top=sup;
4241          V397= vs_base[0];          V395= vs_base[0];
4242          if(!(type_of((V396))==t_cons)){          if(!(type_of((V394))==t_cons)){
4243          goto T1473;}          goto T1473;}
4244          if(!((car((V396)))==(VV[193]))){          if(!((car((V394)))==(VV[195]))){
4245          goto T1473;}          goto T1473;}
4246          base[0]= cadr((V396));          base[0]= cadr((V394));
4247          base[1]= (V397);          base[1]= (V395);
4248          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4249          (void) (*Lnk324)();          (void) (*Lnk326)();
4250          vs_top=sup;          vs_top=sup;
4251          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4252          goto T1473;}          goto T1473;}
4253          V397= cadr((V396));          V395= cadr((V394));
4254  goto T1473;  goto T1473;
4255  T1473:;  T1473:;
4256          {object V398;          {object V396;
4257          object V399;          object V397;
4258          object V400;          object V398;
4259          base[0]= (V396);          base[0]= (V394);
4260          base[1]= (V397);          base[1]= (V395);
4261          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4262          (void) (*Lnk377)();          (void) (*Lnk379)();
4263          if(vs_base>=vs_top){vs_top=sup;goto T1486;}          if(vs_base>=vs_top){vs_top=sup;goto T1486;}
4264          V398= vs_base[0];          V396= vs_base[0];
4265          vs_base++;          vs_base++;
4266          if(vs_base>=vs_top){vs_top=sup;goto T1487;}          if(vs_base>=vs_top){vs_top=sup;goto T1487;}
4267          V399= vs_base[0];          V397= vs_base[0];
4268          vs_base++;          vs_base++;
4269          if(vs_base>=vs_top){vs_top=sup;goto T1488;}          if(vs_base>=vs_top){vs_top=sup;goto T1488;}
4270          V400= vs_base[0];          V398= vs_base[0];
4271          vs_top=sup;          vs_top=sup;
4272          goto T1489;          goto T1489;
4273  goto T1486;  goto T1486;
4274  T1486:;  T1486:;
4275          V398= Cnil;          V396= Cnil;
4276  goto T1487;  goto T1487;
4277  T1487:;  T1487:;
4278          V399= Cnil;          V397= Cnil;
4279  goto T1488;  goto T1488;
4280  T1488:;  T1488:;
4281          V400= Cnil;          V398= Cnil;
4282  goto T1489;  goto T1489;
4283  T1489:;  T1489:;
4284          if(((V399))==Cnil){          if(((V397))==Cnil){
4285          goto T1491;}          goto T1491;}
4286          if(!(number_compare((V400),small_fixnum(1))<=0)){          if(!(number_compare((V398),small_fixnum(1))<=0)){
4287          goto T1491;}          goto T1491;}
4288          base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V400),small_fixnum(0))<=0?Ct:Cnil),VV[194]);          base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V398),small_fixnum(0))<=0?Ct:Cnil),VV[196]);
4289          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4290          return;          return;
4291  goto T1491;  goto T1491;
4292  T1491:;  T1491:;
4293          {register object V401;          {register object V399;
4294          base[1]= VV[195];          base[1]= VV[197];
4295          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4296          (void) (*Lnk325)();          (void) (*Lnk327)();
4297          vs_top=sup;          vs_top=sup;
4298          base[0]= vs_base[0];          base[0]= vs_base[0];
4299          base[1]= (V398);          base[1]= (V396);
4300          base[2]= (V397);          base[2]= (V395);
4301          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
4302          (void) (*Lnk357)();          (void) (*Lnk359)();
4303          vs_top=sup;          vs_top=sup;
4304          V401= vs_base[0];          V399= vs_base[0];
4305          if(((V399))==Cnil){          if(((V397))==Cnil){
4306          goto T1501;}          goto T1501;}
4307          V402= list(2,VV[36],list(2,VV[196],list(3,VV[11],(V401),list(2,VV[197],(V401)))));          V400= list(2,VV[36],list(2,VV[198],list(3,VV[11],(V399),list(2,VV[199],(V399)))));
4308          base[0]= make_cons(/* INLINE-ARGS */V402,VV[198]);          base[0]= make_cons(/* INLINE-ARGS */V400,VV[200]);
4309          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4310          return;          return;
4311  goto T1501;  goto T1501;
4312  T1501:;  T1501:;
4313          V403= list(2,VV[199],list(3,VV[11],(V401),list(2,VV[197],(V401))));          V401= list(2,VV[201],list(3,VV[11],(V399),list(2,VV[199],(V399))));
4314          base[0]= make_cons(/* INLINE-ARGS */V403,VV[200]);          base[0]= make_cons(/* INLINE-ARGS */V401,VV[202]);
4315          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4316          return;}}}          return;}}}
4317  }  }
# Line 4316  TTL:; Line 4329  TTL:;
4329          base[0]= symbol_value(VV[116]);          base[0]= symbol_value(VV[116]);
4330          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4331          return;}          return;}
4332          base[1]= VV[201];          base[1]= VV[203];
4333          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4334          (void) (*Lnk325)();          (void) (*Lnk327)();
4335          vs_top=sup;          vs_top=sup;
4336          base[0]= vs_base[0];          base[0]= vs_base[0];
4337          base[1]= Cnil;          base[1]= Cnil;
4338          base[2]= Cnil;          base[2]= Cnil;
4339          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
4340          (void) (*Lnk357)();          (void) (*Lnk359)();
4341          vs_top=sup;          vs_top=sup;
4342          setq(VV[116],vs_base[0]);          setq(VV[116],vs_base[0]);
4343          base[0]= symbol_value(VV[116]);          base[0]= symbol_value(VV[116]);
# Line 4337  static void L86() Line 4350  static void L86()
4350  {register object *base=vs_base;  {register object *base=vs_base;
4351          register object *sup=base+VM74; VC74          register object *sup=base+VM74; VC74
4352          vs_reserve(VM74);          vs_reserve(VM74);
4353          {register object V404;          {register object V402;
4354          object V405;          object V403;
4355          object V406;          object V404;
4356          check_arg(3);          check_arg(3);
4357          V404=(base[0]);          V402=(base[0]);
4358          V405=(base[1]);          V403=(base[1]);
4359          V406=(base[2]);          V404=(base[2]);
4360          vs_top=sup;          vs_top=sup;
4361  goto TTL;  goto TTL;
4362  TTL:;  TTL:;
4363          base[3]= (V404);          base[3]= (V402);
4364          base[4]= Cnil;          base[4]= Cnil;
4365          base[5]= (V406);          base[5]= (V404);
4366          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4367          (void) (*Lnk378)();          (void) (*Lnk380)();
4368          vs_top=sup;          vs_top=sup;
4369          base[3]= car(symbol_value(VV[89]));          base[3]= car(symbol_value(VV[89]));
4370          base[4]= VV[202];          base[4]= VV[204];
4371          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4372          (void) (*Lnk355)();          (void) (*Lnk357)();
4373          vs_top=sup;          vs_top=sup;
4374          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4375          goto T1513;}          goto T1513;}
4376          vs_base=vs_top;          vs_base=vs_top;
4377          (void) (*Lnk348)();          (void) (*Lnk350)();
4378          vs_top=sup;          vs_top=sup;
4379          vs_base=vs_top;          vs_base=vs_top;
4380          (void) (*Lnk359)();          (void) (*Lnk361)();
4381          vs_top=sup;          vs_top=sup;
4382          V407= vs_base[0];          V405= vs_base[0];
4383          V408= list(2,(V404),V407);          V406= list(2,(V402),V405);
4384          base[3]= listA(7,Cnil,/* INLINE-ARGS */V408,Cnil,Cnil,Cnil,list(2,(V404),(V405)),VV[203]);          base[3]= listA(7,Cnil,/* INLINE-ARGS */V406,Cnil,Cnil,Cnil,list(2,(V402),(V403)),VV[205]);
4385          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4386          return;          return;
4387  goto T1513;  goto T1513;
4388  T1513:;  T1513:;
4389          base[3]= listA(3,Cnil,list(2,(V404),(V405)),VV[204]);          base[3]= listA(3,Cnil,list(2,(V402),(V403)),VV[206]);
4390          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4391          return;          return;
4392          }          }
# Line 4384  static void L87() Line 4397  static void L87()
4397  {register object *base=vs_base;  {register object *base=vs_base;
4398          register object *sup=base+VM75; VC75          register object *sup=base+VM75; VC75
4399          vs_reserve(VM75);          vs_reserve(VM75);
4400          {object V409;          {object V407;
4401          object V410;          object V408;
4402          object V411;          object V409;
4403          check_arg(3);          check_arg(3);
4404          V409=(base[0]);          V407=(base[0]);
4405          V410=(base[1]);          V408=(base[1]);
4406          V411=(base[2]);          V409=(base[2]);
4407          vs_top=sup;          vs_top=sup;
4408  goto TTL;  goto TTL;
4409  TTL:;  TTL:;
4410          base[3]= (V409);          base[3]= (V407);
4411          base[4]= Cnil;          base[4]= Cnil;
4412          base[5]= (V411);          base[5]= (V409);
4413          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4414          (void) (*Lnk378)();          (void) (*Lnk380)();
4415          vs_top=sup;          vs_top=sup;
4416          {object V412;          {object V410;
4417          register object V413;          register object V411;
4418          base[3]= VV[205];          base[3]= VV[207];
4419          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4420          (void) (*Lnk325)();          (void) (*Lnk327)();
4421          vs_top=sup;          vs_top=sup;
4422          V412= vs_base[0];          V410= vs_base[0];
4423          base[3]= VV[206];          base[3]= VV[208];
4424          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4425          (void) (*Lnk325)();          (void) (*Lnk327)();
4426          vs_top=sup;          vs_top=sup;
4427          V413= vs_base[0];          V411= vs_base[0];
4428          {register object V414;          {register object V412;
4429          object V415;          object V413;
4430          object V416;          object V414;
4431          base[3]= (V410);          base[3]= (V408);
4432          base[4]= VV[207];          base[4]= VV[209];
4433          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4434          (void) (*Lnk377)();          (void) (*Lnk379)();
4435          if(vs_base>=vs_top){vs_top=sup;goto T1530;}          if(vs_base>=vs_top){vs_top=sup;goto T1530;}
4436          V414= vs_base[0];          V412= vs_base[0];
4437          vs_base++;          vs_base++;
4438          if(vs_base>=vs_top){vs_top=sup;goto T1531;}          if(vs_base>=vs_top){vs_top=sup;goto T1531;}
4439          V415= vs_base[0];          V413= vs_base[0];
4440          vs_base++;          vs_base++;
4441          if(vs_base>=vs_top){vs_top=sup;goto T1532;}          if(vs_base>=vs_top){vs_top=sup;goto T1532;}
4442          V416= vs_base[0];          V414= vs_base[0];
4443          vs_top=sup;          vs_top=sup;
4444          goto T1533;          goto T1533;
4445  goto T1530;  goto T1530;
4446  T1530:;  T1530:;
4447          V414= Cnil;          V412= Cnil;
4448  goto T1531;  goto T1531;
4449  T1531:;  T1531:;
4450          V415= Cnil;          V413= Cnil;
4451  goto T1532;  goto T1532;
4452  T1532:;  T1532:;
4453          V416= Cnil;          V414= Cnil;
4454  goto T1533;  goto T1533;
4455  T1533:;  T1533:;
4456          base[3]= (V412);          base[3]= (V410);
4457          base[4]= (V414);          base[4]= (V412);
4458          if(!(type_of((V414))==t_cons)){          if(!(type_of((V412))==t_cons)){
4459          goto T1539;}          goto T1539;}
4460          if(!((car((V414)))==(VV[193]))){          if(!((car((V412)))==(VV[195]))){
4461          goto T1539;}          goto T1539;}
4462          base[5]= cadr((V414));          base[5]= cadr((V412));
4463          goto T1537;          goto T1537;
4464  goto T1539;  goto T1539;
4465  T1539:;  T1539:;
4466          base[5]= VV[207];          base[5]= VV[209];
4467  goto T1537;  goto T1537;
4468  T1537:;  T1537:;
4469          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4470          (void) (*Lnk357)();          (void) (*Lnk359)();
4471          vs_top=sup;          vs_top=sup;
4472          base[3]= (V413);          base[3]= (V411);
4473          base[4]= small_fixnum(0);          base[4]= small_fixnum(0);
4474          base[5]= VV[208];          base[5]= VV[210];
4475          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4476          (void) (*Lnk357)();          (void) (*Lnk359)();
4477          vs_top=sup;          vs_top=sup;
4478          {long V417;          {long V415;
4479            object V416;
4480            register object V417;
4481          object V418;          object V418;
4482          register object V419;          object V419;
4483          object V420;          object V420;
4484          object V421;          V415= 0;
4485          object V422;          if(((V413))!=Cnil){
         V417= 0;  
         if(((V415))!=Cnil){  
4486          goto T1550;}          goto T1550;}
4487          {object V423;          {object V421;
4488          base[7]= VV[209];          base[7]= VV[211];
4489          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4490          (void) (*Lnk325)();          (void) (*Lnk327)();
4491          vs_top=sup;          vs_top=sup;
4492          V423= vs_base[0];          V421= vs_base[0];
4493          {object V424;          {object V422;
4494          V424= list(3,VV[11],(V423),list(2,VV[210],(V412)));          V422= list(3,VV[11],(V421),list(2,VV[212],(V410)));
4495          setq(VV[106],make_cons((V424),symbol_value(VV[106])));}          setq(VV[106],make_cons((V422),symbol_value(VV[106])));}
4496          base[7]= (V423);          base[7]= (V421);
4497          base[8]= small_fixnum(0);          base[8]= small_fixnum(0);
4498          base[9]= VV[208];          base[9]= VV[210];
4499          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
4500          (void) (*Lnk357)();          (void) (*Lnk359)();
4501          vs_top=sup;          vs_top=sup;
4502          V418= vs_base[0];          V416= vs_base[0];
4503          goto T1548;}          goto T1548;}
4504  goto T1550;  goto T1550;
4505  T1550:;  T1550:;
4506          V417= (long)length((V416));          V415= (long)length((V414));
4507          V418= make_fixnum(V417);          V416= make_fixnum(V415);
4508  goto T1548;  goto T1548;
4509  T1548:;  T1548:;
4510          V419= list(3,VV[211],(V413),(V418));          V417= list(3,VV[213],(V411),(V416));
4511          V420= (V419);          V418= (V417);
4512          V421= list(2,(V409),list(3,VV[212],(V412),(V413)));          V419= list(2,(V407),list(3,VV[214],(V410),(V411)));
4513          V422= list(2,(V413),list(2,VV[178],(V413)));          V420= list(2,(V411),list(2,VV[180],(V411)));
4514          if(((V415))==Cnil){          if(((V413))==Cnil){
4515          goto T1565;}          goto T1565;}
4516          V419= ((V417)==(0)?Ct:Cnil);          V417= ((V415)==(0)?Ct:Cnil);
4517          if(!((V417)<=(1))){          if(!((V415)<=(1))){
4518          goto T1565;}          goto T1565;}
4519          V420= Ct;          V418= Ct;
4520  goto T1565;  goto T1565;
4521  T1565:;  T1565:;
4522          if(((((V419))==((V420))?Ct:Cnil))==Cnil){          if(((((V417))==((V418))?Ct:Cnil))==Cnil){
4523          goto T1574;}          goto T1574;}
4524          V425= Cnil;          V423= Cnil;
4525          goto T1573;          goto T1573;
4526  goto T1574;  goto T1574;
4527  T1574:;  T1574:;
4528          V425= list(4,(V419),(V421),Cnil,(V422));          V423= list(4,(V417),(V419),Cnil,(V420));
4529  goto T1573;  goto T1573;
4530  T1573:;  T1573:;
4531          base[7]= listA(5,(V420),(V421),Cnil,(V422),V425);          base[7]= listA(5,(V418),(V419),Cnil,(V420),V423);
4532          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4533          return;}}}          return;}}}
4534          }          }
# Line 4526  static void L88() Line 4539  static void L88()
4539  {register object *base=vs_base;  {register object *base=vs_base;
4540          register object *sup=base+VM76; VC76          register object *sup=base+VM76; VC76
4541          vs_reserve(VM76);          vs_reserve(VM76);
4542          {object V426;          {object V424;
4543          check_arg(1);          check_arg(1);
4544          V426=(base[0]);          V424=(base[0]);
4545          vs_top=sup;          vs_top=sup;
4546  goto TTL;  goto TTL;
4547  TTL:;  TTL:;
4548          {register object V427;          {register object V425;
4549          base[1]= car(symbol_value(VV[89]));          base[1]= car(symbol_value(VV[89]));
4550          base[2]= VV[213];          base[2]= VV[215];
4551          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4552          (void) (*Lnk355)();          (void) (*Lnk357)();
4553          vs_top=sup;          vs_top=sup;
4554          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4555          goto T1578;}          goto T1578;}
4556          vs_base=vs_top;          vs_base=vs_top;
4557          (void) (*Lnk348)();          (void) (*Lnk350)();
4558          vs_top=sup;          vs_top=sup;
4559          vs_base=vs_top;          vs_base=vs_top;
4560          (void) (*Lnk359)();          (void) (*Lnk361)();
4561          vs_top=sup;          vs_top=sup;
4562          V427= vs_base[0];          V425= vs_base[0];
4563          goto T1576;          goto T1576;
4564  goto T1578;  goto T1578;
4565  T1578:;  T1578:;
4566          V427= VV[214];          V425= VV[216];
4567  goto T1576;  goto T1576;
4568  T1576:;  T1576:;
4569          if(!(type_of((V427))==t_cons)){          if(!(type_of((V425))==t_cons)){
4570          goto T1584;}          goto T1584;}
4571          if(!((car((V427)))==(VV[215]))){          if(!((car((V425)))==(VV[217]))){
4572          goto T1584;}          goto T1584;}
4573          base[1]= VV[216];          base[1]= VV[218];
4574          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4575          (void) (*Lnk336)();          (void) (*Lnk338)();
4576          vs_top=sup;          vs_top=sup;
4577          base[1]= list(3,VV[217],(V427),(V426));          base[1]= list(3,VV[219],(V425),(V424));
4578          base[2]= Cnil;          base[2]= Cnil;
4579          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4580          return;          return;
4581  goto T1584;  goto T1584;
4582  T1584:;  T1584:;
4583          if(!(type_of((V427))==t_cons)){          if(!(type_of((V425))==t_cons)){
4584          goto T1593;}          goto T1593;}
4585          if(!((car((V427)))==(VV[83]))){          if(!((car((V425)))==(VV[83]))){
4586          goto T1593;}          goto T1593;}
4587          base[1]= list(2,cadr((V427)),(V426));          base[1]= list(2,cadr((V425)),(V424));
4588          base[2]= cadr((V427));          base[2]= cadr((V425));
4589          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4590          return;          return;
4591  goto T1593;  goto T1593;
4592  T1593:;  T1593:;
4593          base[3]= VV[218];          base[3]= VV[220];
4594          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4595          (void) (*Lnk325)();          (void) (*Lnk327)();
4596          vs_top=sup;          vs_top=sup;
4597          base[2]= vs_base[0];          base[2]= vs_base[0];
4598          base[3]= (V427);          base[3]= (V425);
4599          base[4]= VV[83];          base[4]= VV[83];
4600          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
4601          (void) (*Lnk357)();          (void) (*Lnk359)();
4602          vs_top=sup;          vs_top=sup;
4603          V428= vs_base[0];          V426= vs_base[0];
4604          base[1]= list(3,VV[217],V428,(V426));          base[1]= list(3,VV[219],V426,(V424));
4605          base[2]= Cnil;          base[2]= Cnil;
4606          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4607          return;}          return;}
# Line 4600  static void L89() Line 4613  static void L89()
4613  {register object *base=vs_base;  {register object *base=vs_base;
4614          register object *sup=base+VM77; VC77          register object *sup=base+VM77; VC77
4615          vs_reserve(VM77);          vs_reserve(VM77);
4616          {register object V429;          {register object V427;
4617          object V430;          object V428;
4618          object V431;          object V429;
4619          check_arg(3);          check_arg(3);
4620          V429=(base[0]);          V427=(base[0]);
4621          V430=(base[1]);          V428=(base[1]);
4622          V431=(base[2]);          V429=(base[2]);
4623          vs_top=sup;          vs_top=sup;
4624  goto TTL;  goto TTL;
4625  TTL:;  TTL:;
4626          {object V432;          {object V430;
4627          object V433;          object V431;
4628          object V434;          object V432;
4629          base[3]= (V430);          base[3]= (V428);
4630          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4631          (void) (*Lnk377)();          (void) (*Lnk379)();
4632          if(vs_base>=vs_top){vs_top=sup;goto T1608;}          if(vs_base>=vs_top){vs_top=sup;goto T1608;}
4633          V432= vs_base[0];          V430= vs_base[0];
4634          vs_base++;          vs_base++;
4635          if(vs_base>=vs_top){vs_top=sup;goto T1609;}          if(vs_base>=vs_top){vs_top=sup;goto T1609;}
4636          V433= vs_base[0];          V431= vs_base[0];
4637          vs_base++;          vs_base++;
4638          if(vs_base>=vs_top){vs_top=sup;goto T1610;}          if(vs_base>=vs_top){vs_top=sup;goto T1610;}
4639          V434= vs_base[0];          V432= vs_base[0];
4640          vs_top=sup;          vs_top=sup;
4641          goto T1611;          goto T1611;
4642  goto T1608;  goto T1608;
4643  T1608:;  T1608:;
4644          V432= Cnil;          V430= Cnil;
4645  goto T1609;  goto T1609;
4646  T1609:;  T1609:;
4647          V433= Cnil;          V431= Cnil;
4648  goto T1610;  goto T1610;
4649  T1610:;  T1610:;
4650          V434= Cnil;          V432= Cnil;
4651  goto T1611;  goto T1611;
4652  T1611:;  T1611:;
4653          {register object V435;          {register object V433;
4654          V435= (V429);          V433= (V427);
4655          if(((V429))==Cnil){          if(((V427))==Cnil){
4656          goto T1614;}          goto T1614;}
4657          if(!(type_of((V429))==t_symbol)){          if(!(type_of((V427))==t_symbol)){
4658          goto T1614;}          goto T1614;}
4659          base[3]= (V429);          base[3]= (V427);
4660          base[4]= (V432);          base[4]= (V430);
4661          base[5]= (V431);          base[5]= (V429);
4662          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4663          (void) (*Lnk378)();          (void) (*Lnk380)();
4664          vs_top=sup;          vs_top=sup;
4665          goto T1612;          goto T1612;
4666  goto T1614;  goto T1614;
4667  T1614:;  T1614:;
4668          vs_base=vs_top;          vs_base=vs_top;
4669          (void) (*Lnk325)();          (void) (*Lnk327)();
4670          vs_top=sup;          vs_top=sup;
4671          V435= vs_base[0];          V433= vs_base[0];
4672          base[3]= (V435);          base[3]= (V433);
4673          base[4]= (V432);          base[4]= (V430);
4674          base[5]= VV[5];          base[5]= VV[5];
4675          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4676          (void) (*Lnk357)();          (void) (*Lnk359)();
4677          vs_top=sup;          vs_top=sup;
4678          base[3]= (V429);          base[3]= (V427);
4679          base[4]= Cnil;          base[4]= Cnil;
4680          base[5]= (V431);          base[5]= (V429);
4681          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4682          (void) (*Lnk378)();          (void) (*Lnk380)();
4683          vs_top=sup;          vs_top=sup;
4684  goto T1612;  goto T1612;
4685  T1612:;  T1612:;
4686          {object V436;          {object V434;
4687          object V437;          object V435;
4688          base[3]= (V435);          base[3]= (V433);
4689          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4690          (void) (*Lnk379)();          (void) (*Lnk381)();
4691          if(vs_base>=vs_top){vs_top=sup;goto T1631;}          if(vs_base>=vs_top){vs_top=sup;goto T1631;}
4692          V436= vs_base[0];          V434= vs_base[0];
4693          vs_base++;          vs_base++;
4694          if(vs_base>=vs_top){vs_top=sup;goto T1632;}          if(vs_base>=vs_top){vs_top=sup;goto T1632;}
4695          V437= vs_base[0];          V435= vs_base[0];
4696          vs_top=sup;          vs_top=sup;
4697          goto T1633;          goto T1633;
4698  goto T1631;  goto T1631;
4699  T1631:;  T1631:;
4700          V436= Cnil;          V434= Cnil;
4701  goto T1632;  goto T1632;
4702  T1632:;  T1632:;
4703          V437= Cnil;          V435= Cnil;
4704  goto T1633;  goto T1633;
4705  T1633:;  T1633:;
4706          {register object V438;          {register object V436;
4707          object V439;          object V437;
4708          base[4]= (((V429))==((V435))?Ct:Cnil);          base[4]= (((V427))==((V433))?Ct:Cnil);
4709          base[5]= (V435);          base[5]= (V433);
4710          base[6]= list(2,VV[219],(V435));          base[6]= list(2,VV[221],(V433));
4711          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4712          (void) (*Lnk329)();          (void) (*Lnk331)();
4713          vs_top=sup;          vs_top=sup;
4714          V438= vs_base[0];          V436= vs_base[0];
4715          V439= (V438);          V437= (V436);
4716          if(((V433))==Cnil){          if(((V431))==Cnil){
4717          goto T1639;}          goto T1639;}
4718          if(!(type_of((V434))==t_cons||((V434))==Cnil)){          if(!(type_of((V432))==t_cons||((V432))==Cnil)){
4719          goto T1639;}          goto T1639;}
4720          V438= (((V434))==Cnil?Ct:Cnil);          V436= (((V432))==Cnil?Ct:Cnil);
4721  goto T1639;  goto T1639;
4722  T1639:;  T1639:;
4723          if(!(((V429))==((V435)))){          if(!(((V427))==((V433)))){
4724          goto T1646;}          goto T1646;}
4725          base[4]= Ct;          base[4]= Ct;
4726          base[5]= (V435);          base[5]= (V433);
4727          base[6]= (V436);          base[6]= (V434);
4728          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4729          (void) (*Lnk329)();          (void) (*Lnk331)();
4730          vs_top=sup;          vs_top=sup;
4731          V440= vs_base[0];          V438= vs_base[0];
4732          base[4]= list(8,Cnil,list(2,(V435),V440),(V439),Cnil,Cnil,Cnil,(V438),Cnil);          base[4]= list(8,Cnil,list(2,(V433),V438),(V437),Cnil,Cnil,Cnil,(V436),Cnil);
4733          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4734          return;          return;
4735  goto T1646;  goto T1646;
4736  T1646:;  T1646:;
4737          {object V441;          {object V439;
4738          object V442;          object V440;
4739          V441= list(2,(V429),(V435));          V439= list(2,(V427),(V433));
4740          V442= list(2,(V435),(V436));          V440= list(2,(V433),(V434));
4741          if(((((V438))==((V439))?Ct:Cnil))==Cnil){          if(((((V436))==((V437))?Ct:Cnil))==Cnil){
4742          goto T1655;}          goto T1655;}
4743          V443= Cnil;          V441= Cnil;
4744          goto T1654;          goto T1654;
4745  goto T1655;  goto T1655;
4746  T1655:;  T1655:;
4747          V443= list(4,(V438),(V441),Cnil,(V442));          V441= list(4,(V436),(V439),Cnil,(V440));
4748  goto T1654;  goto T1654;
4749  T1654:;  T1654:;
4750          base[4]= listA(5,(V439),(V441),Cnil,(V442),V443);          base[4]= listA(5,(V437),(V439),Cnil,(V440),V441);
4751          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4752          return;}}}}}          return;}}}}}
4753          }          }
# Line 4745  static void L90() Line 4758  static void L90()
4758  {register object *base=vs_base;  {register object *base=vs_base;
4759          register object *sup=base+VM78; VC78          register object *sup=base+VM78; VC78
4760          vs_reserve(VM78);          vs_reserve(VM78);
4761          {object V444;          {object V442;
4762          object V445;          object V443;
4763          object V446;          object V444;
4764          check_arg(3);          check_arg(3);
4765          V444=(base[0]);          V442=(base[0]);
4766          V445=(base[1]);          V443=(base[1]);
4767          V446=(base[2]);          V444=(base[2]);
4768          vs_top=sup;          vs_top=sup;
4769  goto TTL;  goto TTL;
4770  TTL:;  TTL:;
4771          {object V447;          {object V445;
4772          object V448;          object V446;
4773          object V449;          object V447;
4774          base[3]= (V445);          base[3]= (V443);
4775          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4776          (void) (*Lnk377)();          (void) (*Lnk379)();
4777          if(vs_base>=vs_top){vs_top=sup;goto T1659;}          if(vs_base>=vs_top){vs_top=sup;goto T1659;}
4778          V447= vs_base[0];          V445= vs_base[0];
4779          vs_base++;          vs_base++;
4780          if(vs_base>=vs_top){vs_top=sup;goto T1660;}          if(vs_base>=vs_top){vs_top=sup;goto T1660;}
4781          V448= vs_base[0];          V446= vs_base[0];
4782          vs_base++;          vs_base++;
4783          if(vs_base>=vs_top){vs_top=sup;goto T1661;}          if(vs_base>=vs_top){vs_top=sup;goto T1661;}
4784          V449= vs_base[0];          V447= vs_base[0];
4785          vs_top=sup;          vs_top=sup;
4786          goto T1662;          goto T1662;
4787  goto T1659;  goto T1659;
4788  T1659:;  T1659:;
4789          V447= Cnil;          V445= Cnil;
4790  goto T1660;  goto T1660;
4791  T1660:;  T1660:;
4792          V448= Cnil;          V446= Cnil;
4793  goto T1661;  goto T1661;
4794  T1661:;  T1661:;
4795          V449= Cnil;          V447= Cnil;
4796  goto T1662;  goto T1662;
4797  T1662:;  T1662:;
4798          {register object V450;          {register object V448;
4799          base[3]= VV[220];          base[3]= VV[222];
4800          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4801          (void) (*Lnk325)();          (void) (*Lnk327)();
4802          vs_top=sup;          vs_top=sup;
4803          V450= vs_base[0];          V448= vs_base[0];
4804          base[3]= (V444);          base[3]= (V442);
4805          base[4]= Cnil;          base[4]= Cnil;
4806          base[5]= (V446);          base[5]= (V444);
4807          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4808          (void) (*Lnk378)();          (void) (*Lnk380)();
4809          vs_top=sup;          vs_top=sup;
4810          base[3]= (V450);          base[3]= (V448);
4811          base[4]= (V447);          base[4]= (V445);
4812          base[5]= VV[5];          base[5]= VV[5];
4813          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4814          (void) (*Lnk357)();          (void) (*Lnk359)();
4815          vs_top=sup;          vs_top=sup;
4816          {object V451;          {object V449;
4817          object V452;          object V450;
4818          base[3]= (V450);          base[3]= (V448);
4819          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4820          (void) (*Lnk379)();          (void) (*Lnk381)();
4821          if(vs_base>=vs_top){vs_top=sup;goto T1675;}          if(vs_base>=vs_top){vs_top=sup;goto T1675;}
4822          V451= vs_base[0];          V449= vs_base[0];
4823          vs_base++;          vs_base++;
4824          if(vs_base>=vs_top){vs_top=sup;goto T1676;}          if(vs_base>=vs_top){vs_top=sup;goto T1676;}
4825          V452= vs_base[0];          V450= vs_base[0];
4826          vs_top=sup;          vs_top=sup;
4827          goto T1677;          goto T1677;
4828  goto T1675;  goto T1675;
4829  T1675:;  T1675:;
4830          V451= Cnil;          V449= Cnil;
4831  goto T1676;  goto T1676;
4832  T1676:;  T1676:;
4833          V452= Cnil;          V450= Cnil;
4834  goto T1677;  goto T1677;
4835  T1677:;  T1677:;
4836          {register object V453;          {register object V451;
4837            object V452;
4838            object V453;
4839          object V454;          object V454;
4840          object V455;          V451= list(2,VV[223],(V448));
4841          object V456;          V452= (V451);
4842          V453= list(2,VV[221],(V450));          V453= list(2,(V442),list(2,VV[65],(V448)));
4843          V454= (V453);          V454= list(2,(V448),(V449));
4844          V455= list(2,(V444),list(2,VV[65],(V450)));          if(((V446))==Cnil){
         V456= list(2,(V450),(V451));  
         if(((V448))==Cnil){  
4845          goto T1682;}          goto T1682;}
4846          if(!(type_of((V449))==t_cons||((V449))==Cnil)){          if(!(type_of((V447))==t_cons||((V447))==Cnil)){
4847          goto T1682;}          goto T1682;}
4848          V453= (((V449))==Cnil?Ct:Cnil);          V451= (((V447))==Cnil?Ct:Cnil);
4849  goto T1682;  goto T1682;
4850  T1682:;  T1682:;
4851          if(((((V453))==((V454))?Ct:Cnil))==Cnil){          if(((((V451))==((V452))?Ct:Cnil))==Cnil){
4852          goto T1689;}          goto T1689;}
4853          V457= Cnil;          V455= Cnil;
4854          goto T1688;          goto T1688;
4855  goto T1689;  goto T1689;
4856  T1689:;  T1689:;
4857          V457= list(4,(V453),(V455),Cnil,(V456));          V455= list(4,(V451),(V453),Cnil,(V454));
4858  goto T1688;  goto T1688;
4859  T1688:;  T1688:;
4860          base[6]= listA(5,(V454),(V455),Cnil,(V456),V457);          base[6]= listA(5,(V452),(V453),Cnil,(V454),V455);
4861          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
4862          return;}}}}          return;}}}}
4863          }          }
# Line 4855  static void L91() Line 4868  static void L91()
4868  {register object *base=vs_base;  {register object *base=vs_base;
4869          register object *sup=base+VM79; VC79          register object *sup=base+VM79; VC79
4870          vs_reserve(VM79);          vs_reserve(VM79);
4871          {object V458;          {object V456;
4872            object V457;
4873            object V458;
4874          object V459;          object V459;
4875          object V460;          object V460;
4876          object V461;          parse_key(vs_base,FALSE,FALSE,5,VV[226],VV[229],VV[230],VV[227],VV[228]);
         object V462;  
         parse_key(vs_base,FALSE,FALSE,5,VV[224],VV[227],VV[228],VV[225],VV[226]);  
4877          vs_top=sup;          vs_top=sup;
4878          V458=(base[0]);          V456=(base[0]);
4879          V459=(base[1]);          V457=(base[1]);
4880          V460=(base[2]);          V458=(base[2]);
4881          V461=(base[3]);          V459=(base[3]);
4882          V462=(base[4]);          V460=(base[4]);
4883          base[10]= VV[222];          base[10]= VV[224];
4884          base[11]= (V458);          base[11]= (V456);
4885          base[12]= (V459);          base[12]= (V457);
4886          base[13]= (V460);          base[13]= (V458);
4887          base[14]= (V461);          base[14]= (V459);
4888          base[15]= (V462);          base[15]= (V460);
4889          vs_top=(vs_base=base+10)+6;          vs_top=(vs_base=base+10)+6;
4890          siLmake_structure();          siLmake_structure();
4891          return;          return;
# Line 4885  static void L92() Line 4898  static void L92()
4898          register object *sup=base+VM80; VC80          register object *sup=base+VM80; VC80
4899          vs_reserve(VM80);          vs_reserve(VM80);
4900          bds_check;          bds_check;
4901          {object V463;          {object V461;
4902            object V462;
4903            register object V463;
4904          object V464;          object V464;
4905          register object V465;          object V465;
4906          object V466;          object V466;
         object V467;  
         object V468;  
4907          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
4908          parse_key(vs_base+3,FALSE,FALSE,3,VV[227],VV[228],VV[226]);          parse_key(vs_base+3,FALSE,FALSE,3,VV[229],VV[230],VV[228]);
4909          V463=(base[0]);          V461=(base[0]);
4910          V464=(base[1]);          V462=(base[1]);
4911          V465=(base[2]);          V463=(base[2]);
4912          vs_top=sup;          vs_top=sup;
4913          V466=(base[3]);          V464=(base[3]);
4914          V467=(base[4]);          V465=(base[4]);
4915          V468=(base[5]);          V466=(base[5]);
4916          if(type_of((V463))==t_cons||((V463))==Cnil){          if(type_of((V461))==t_cons||((V461))==Cnil){
4917          goto T1697;}          goto T1697;}
4918          V463= make_cons((V463),Cnil);          V461= make_cons((V461),Cnil);
4919  goto T1697;  goto T1697;
4920  T1697:;  T1697:;
4921          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
4922          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
4923  goto T1703;  goto T1703;
4924  T1703:;  T1703:;
4925          base[11]= (V465);          base[11]= (V463);
4926          base[12]= VV[39];          base[12]= VV[39];
4927          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
4928          (void) (*Lnk380)();          (void) (*Lnk382)();
4929          vs_top=sup;          vs_top=sup;
4930          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4931          goto T1704;}          goto T1704;}
# Line 4923  goto T1704; Line 4936  goto T1704;
4936  T1704:;  T1704:;
4937          base[11]= VV[47];          base[11]= VV[47];
4938          base[12]= VV[48];          base[12]= VV[48];
4939          base[13]= VV[223];          base[13]= VV[225];
4940          base[14]= (V465);          base[14]= (V463);
4941          base[15]= VV[39];          base[15]= VV[39];
4942          vs_top=(vs_base=base+11)+5;          vs_top=(vs_base=base+11)+5;
4943          Lcerror();          Lcerror();
4944          vs_top=sup;          vs_top=sup;
4945          base[11]= symbol_value(VV[50]);          base[11]= symbol_value(VV[50]);
4946          base[12]= VV[51];          base[12]= VV[51];
4947          base[13]= VV[223];          base[13]= VV[225];
4948          vs_top=(vs_base=base+11)+3;          vs_top=(vs_base=base+11)+3;
4949          Lformat();          Lformat();
4950          vs_top=sup;          vs_top=sup;
# Line 4942  T1704:; Line 4955  T1704:;
4955          vs_base=vs_top;          vs_base=vs_top;
4956          Lread();          Lread();
4957          vs_top=sup;          vs_top=sup;
4958          V465= vs_base[0];          V463= vs_base[0];
4959          base[11]= symbol_value(VV[50]);          base[11]= symbol_value(VV[50]);
4960          base[12]= VV[52];          base[12]= VV[52];
4961          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
# Line 4951  T1704:; Line 4964  T1704:;
4964          goto T1703;          goto T1703;
4965  goto T1701;  goto T1701;
4966  T1701:;  T1701:;
4967            {object V467;
4968            object V468;
4969            V467= structure_ref((V463),VV[39],3);
4970            base[9]= VV[226];
4971          {object V469;          {object V469;
4972          object V470;          object V470= (V461);
4973          V469= structure_ref((V465),VV[39],3);          if(endp(V470)){
         base[9]= VV[224];  
         {object V471;  
         object V472= (V463);  
         if(endp(V472)){  
4974          base[10]= Cnil;          base[10]= Cnil;
4975          goto T1732;}          goto T1732;}
4976          base[11]=V471=MMcons(Cnil,Cnil);          base[11]=V469=MMcons(Cnil,Cnil);
4977  goto T1733;  goto T1733;
4978  T1733:;  T1733:;
4979          (V471->c.c_car)= symbol_name((V472->c.c_car));          (V469->c.c_car)= symbol_name((V470->c.c_car));
4980          V472=MMcdr(V472);          V470=MMcdr(V470);
4981          if(endp(V472)){          if(endp(V470)){
4982          base[10]= base[11];          base[10]= base[11];
4983          goto T1732;}          goto T1732;}
4984          V471=MMcdr(V471)=MMcons(Cnil,Cnil);          V469=MMcdr(V469)=MMcons(Cnil,Cnil);
4985          goto T1733;}          goto T1733;}
4986  goto T1732;  goto T1732;
4987  T1732:;  T1732:;
4988          base[11]= VV[225];          base[11]= VV[227];
4989          base[12]= (V464);          base[12]= (V462);
4990          base[13]= VV[226];          base[13]= VV[228];
4991          base[14]= (V468);          base[14]= (V466);
4992          base[15]= VV[227];          base[15]= VV[229];
4993          {object V473;          {object V471;
4994          object V474= (V466);          object V472= (V464);
4995          if(endp(V474)){          if(endp(V472)){
4996          base[16]= Cnil;          base[16]= Cnil;
4997          goto T1740;}          goto T1740;}
4998          base[17]=V473=MMcons(Cnil,Cnil);          base[17]=V471=MMcons(Cnil,Cnil);
4999  goto T1741;  goto T1741;
5000  T1741:;  T1741:;
5001          if(!(type_of((V474->c.c_car))==t_cons||((V474->c.c_car))==Cnil)){          if(!(type_of((V472->c.c_car))==t_cons||((V472->c.c_car))==Cnil)){
5002          goto T1744;}          goto T1744;}
5003          (V473->c.c_car)= (V474->c.c_car);          (V471->c.c_car)= (V472->c.c_car);
5004          goto T1742;          goto T1742;
5005  goto T1744;  goto T1744;
5006  T1744:;  T1744:;
5007          (V473->c.c_car)= make_cons((V474->c.c_car),Cnil);          (V471->c.c_car)= make_cons((V472->c.c_car),Cnil);
5008  goto T1742;  goto T1742;
5009  T1742:;  T1742:;
5010          V474=MMcdr(V474);          V472=MMcdr(V472);
5011          if(endp(V474)){          if(endp(V472)){
5012          base[16]= base[17];          base[16]= base[17];
5013          goto T1740;}          goto T1740;}
5014          V473=MMcdr(V473)=MMcons(Cnil,Cnil);          V471=MMcdr(V471)=MMcons(Cnil,Cnil);
5015          goto T1741;}          goto T1741;}
5016  goto T1740;  goto T1740;
5017  T1740:;  T1740:;
5018          base[17]= VV[228];          base[17]= VV[230];
5019          base[18]= (V467);          base[18]= (V465);
5020          vs_top=(vs_base=base+9)+10;          vs_top=(vs_base=base+9)+10;
5021          (void) (*Lnk381)();          (void) (*Lnk383)();
5022          vs_top=sup;          vs_top=sup;
5023          V470= vs_base[0];          V468= vs_base[0];
5024          {register object V476;          {register object V474;
5025          register object V477;          register object V475;
5026          V476= (V463);          V474= (V461);
5027          V477= car((V476));          V475= car((V474));
5028  goto T1752;  goto T1752;
5029  T1752:;  T1752:;
5030          if(!(endp_prop((V476)))){          if(!(endp_prop((V474)))){
5031          goto T1753;}          goto T1753;}
5032          goto T1748;          goto T1748;
5033  goto T1753;  goto T1753;
5034  T1753:;  T1753:;
5035          {register object V478;          {register object V476;
5036          register object V479;          register object V477;
5037          register object V480;          register object V478;
5038          V478= symbol_name((V477));          V476= symbol_name((V475));
5039          V479= (V469);          V477= (V467);
5040          V480= (V470);          V478= (V468);
5041          base[11]= (V478);          base[11]= (V476);
5042          base[12]= (V479);          base[12]= (V477);
5043          base[13]= (V480);          base[13]= (V478);
5044          vs_top=(vs_base=base+11)+3;          vs_top=(vs_base=base+11)+3;
5045          siLhash_set();          siLhash_set();
5046          vs_top=sup;}          vs_top=sup;}
5047          V476= cdr((V476));          V474= cdr((V474));
5048          V477= car((V476));          V475= car((V474));
5049          goto T1752;}          goto T1752;}
5050  goto T1748;  goto T1748;
5051  T1748:;  T1748:;
5052          base[9]= (V470);          base[9]= (V468);
5053          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
5054          return;}          return;}
5055          }          }
# Line 5047  static void L93() Line 5060  static void L93()
5060  {register object *base=vs_base;  {register object *base=vs_base;
5061          register object *sup=base+VM81; VC81          register object *sup=base+VM81; VC81
5062          vs_reserve(VM81);          vs_reserve(VM81);
5063          {object V481;          {object V479;
5064          object V482;          object V480;
5065          object V483;          object V481;
5066          check_arg(3);          check_arg(3);
5067          V481=(base[0]);          V479=(base[0]);
5068          V482=(base[1]);          V480=(base[1]);
5069          V483=(base[2]);          V481=(base[2]);
5070          vs_top=sup;          vs_top=sup;
5071  goto TTL;  goto TTL;
5072  TTL:;  TTL:;
5073          {register object V484;          {register object V482;
5074            object V483;
5075            object V484;
5076          object V485;          object V485;
5077          object V486;          object V486;
5078          object V487;          V482= Cnil;
5079          object V488;          V483= Cnil;
5080          V484= Cnil;          V484= Cnil;
5081          V485= Cnil;          V485= Cnil;
5082          V486= Cnil;          V486= Cnil;
5083          V487= Cnil;          base[3]= (V480);
5084          V488= Cnil;          base[4]= VV[231];
         base[3]= (V482);  
         base[4]= VV[229];  
5085          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5086          (void) (*Lnk351)();          (void) (*Lnk353)();
5087          vs_top=sup;          vs_top=sup;
5088          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5089          goto T1771;}          goto T1771;}
5090          vs_base=vs_top;          vs_base=vs_top;
5091          (void) (*Lnk348)();          (void) (*Lnk350)();
5092          vs_top=sup;          vs_top=sup;
5093          V484= vs_base[0];          V482= vs_base[0];
5094          goto T1769;          goto T1769;
5095  goto T1771;  goto T1771;
5096  T1771:;  T1771:;
5097          base[3]= car(symbol_value(VV[89]));          base[3]= car(symbol_value(VV[89]));
5098          base[4]= VV[153];          base[4]= VV[155];
5099          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5100          (void) (*Lnk355)();          (void) (*Lnk357)();
5101          vs_top=sup;          vs_top=sup;
5102          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5103          goto T1777;}          goto T1777;}
5104          vs_base=vs_top;          vs_base=vs_top;
5105          (void) (*Lnk348)();          (void) (*Lnk350)();
5106          vs_top=sup;          vs_top=sup;
5107          V486= Ct;          V484= Ct;
5108          base[3]= car(symbol_value(VV[89]));          base[3]= car(symbol_value(VV[89]));
5109          base[4]= VV[230];          base[4]= VV[232];
5110          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5111          (void) (*Lnk351)();          (void) (*Lnk353)();
5112          vs_top=sup;          vs_top=sup;
5113          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5114          goto T1784;}          goto T1784;}
5115          base[3]= VV[231];          base[3]= VV[233];
5116          base[4]= car(symbol_value(VV[89]));          base[4]= car(symbol_value(VV[89]));
5117          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5118          (void) (*Lnk345)();          (void) (*Lnk347)();
5119          vs_top=sup;          vs_top=sup;
5120  goto T1784;  goto T1784;
5121  T1784:;  T1784:;
5122          vs_base=vs_top;          vs_base=vs_top;
5123          (void) (*Lnk348)();          (void) (*Lnk350)();
5124          vs_top=sup;          vs_top=sup;
5125          vs_base=vs_top;          vs_base=vs_top;
5126          (void) (*Lnk348)();          (void) (*Lnk350)();
5127          vs_top=sup;          vs_top=sup;
5128          V484= vs_base[0];          V482= vs_base[0];
5129          V489= list(2,VV[232],(V482));          V487= list(2,VV[234],(V480));
5130          V488= make_cons(/* INLINE-ARGS */V489,Cnil);          V486= make_cons(/* INLINE-ARGS */V487,Cnil);
5131          goto T1769;          goto T1769;
5132  goto T1777;  goto T1777;
5133  T1777:;  T1777:;
5134          base[3]= VV[233];          base[3]= VV[235];
5135          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5136          (void) (*Lnk345)();          (void) (*Lnk347)();
5137          vs_top=sup;          vs_top=sup;
5138  goto T1769;  goto T1769;
5139  T1769:;  T1769:;
5140          if(type_of((V484))==t_symbol){          if(type_of((V482))==t_symbol){
5141          goto T1798;}          goto T1798;}
5142          base[3]= VV[234];          base[3]= VV[236];
5143          base[4]= (V484);          base[4]= (V482);
5144          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5145          (void) (*Lnk345)();          (void) (*Lnk347)();
5146          vs_top=sup;          vs_top=sup;
5147          goto T1796;          goto T1796;
5148  goto T1798;  goto T1798;
5149  T1798:;  T1798:;
5150          base[3]= (V484);          base[3]= (V482);
5151          base[4]= structure_ref(symbol_value(VV[97]),VV[39],3);          base[4]= structure_ref(symbol_value(VV[97]),VV[39],3);
5152          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5153          (void) (*Lnk349)();          (void) (*Lnk351)();
5154          vs_top=sup;          vs_top=sup;
5155          V485= vs_base[0];          V483= vs_base[0];
5156          if(((V485))!=Cnil){          if(((V483))!=Cnil){
5157          goto T1803;}          goto T1803;}
5158          base[3]= VV[235];          base[3]= VV[237];
5159          base[4]= (V484);          base[4]= (V482);
5160          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5161          (void) (*Lnk345)();          (void) (*Lnk347)();
5162          vs_top=sup;          vs_top=sup;
5163          goto T1796;          goto T1796;
5164  goto T1803;  goto T1803;
5165  T1803:;  T1803:;
5166          if(((V486))==Cnil){          if(((V484))==Cnil){
5167          goto T1796;}          goto T1796;}
5168          if((structure_ref((V485),VV[222],2))!=Cnil){          if((structure_ref((V483),VV[224],2))!=Cnil){
5169          goto T1796;}          goto T1796;}
5170          base[3]= VV[236];          base[3]= VV[238];
5171          base[4]= (V484);          base[4]= (V482);
5172          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5173          (void) (*Lnk345)();          (void) (*Lnk347)();
5174          vs_top=sup;          vs_top=sup;
5175  goto T1796;  goto T1796;
5176  T1796:;  T1796:;
5177          {object V490;          {object V488;
5178          object V491;          object V489;
5179          object V492;          object V490;
5180          V490= structure_ref((V485),VV[222],3);          V488= structure_ref((V483),VV[224],3);
5181          base[3]= structure_ref((V485),VV[222],1);          base[3]= structure_ref((V483),VV[224],1);
5182          base[4]= Ct;          base[4]= Ct;
5183          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5184          (void) (*Lnk382)();          (void) (*Lnk384)();
5185          vs_top=sup;          vs_top=sup;
5186          V493= vs_base[0];          V491= vs_base[0];
5187          V491= nconc((V488),V493);          V489= nconc((V486),V491);
5188          V492= structure_ref((V485),VV[222],4);          V490= structure_ref((V483),VV[224],4);
5189          if(!(type_of((V490))==t_symbol)){          if(!(type_of((V488))==t_symbol)){
5190          goto T1823;}          goto T1823;}
5191          base[3]= (V490);          base[3]= (V488);
5192          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5193          Lsymbol_function();          Lsymbol_function();
5194          vs_top=sup;          vs_top=sup;
5195          V490= vs_base[0];          V488= vs_base[0];
5196  goto T1823;  goto T1823;
5197  T1823:;  T1823:;
5198          if(((V486))==Cnil){          if(((V484))==Cnil){
5199          goto T1830;}          goto T1830;}
5200          base[3]= (V490);          base[3]= (V488);
5201          base[4]= (V481);          base[4]= (V479);
5202          base[5]= (V483);          base[5]= (V481);
5203          base[6]= (V491);          base[6]= (V489);
5204          base[7]= VV[237];          base[7]= VV[239];
5205          base[8]= Ct;          base[8]= Ct;
5206          {object V494;          {object V492;
5207          V494= (V492);          V492= (V490);
5208           vs_top=base+9;           vs_top=base+9;
5209           while(!endp(V494))           while(!endp(V492))
5210           {vs_push(car(V494));V494=cdr(V494);}           {vs_push(car(V492));V492=cdr(V492);}
5211          vs_base=base+4;}          vs_base=base+4;}
5212          super_funcall_no_event(base[3]);          super_funcall_no_event(base[3]);
5213          vs_top=sup;          vs_top=sup;
5214          V487= vs_base[0];          V485= vs_base[0];
5215          goto T1828;          goto T1828;
5216  goto T1830;  goto T1830;
5217  T1830:;  T1830:;
5218          base[3]= (V490);          base[3]= (V488);
5219          base[4]= (V481);          base[4]= (V479);
5220          base[5]= (V483);          base[5]= (V481);
5221          base[6]= (V491);          base[6]= (V489);
5222          {object V495;          {object V493;
5223          V495= (V492);          V493= (V490);
5224           vs_top=base+7;           vs_top=base+7;
5225           while(!endp(V495))           while(!endp(V493))
5226           {vs_push(car(V495));V495=cdr(V495);}           {vs_push(car(V493));V493=cdr(V493);}
5227          vs_base=base+4;}          vs_base=base+4;}
5228          super_funcall_no_event(base[3]);          super_funcall_no_event(base[3]);
5229          vs_top=sup;          vs_top=sup;
5230          V487= vs_base[0];          V485= vs_base[0];
5231  goto T1828;  goto T1828;
5232  T1828:;}  T1828:;}
5233          if((symbol_value(VV[102]))==Cnil){          if((symbol_value(VV[102]))==Cnil){
5234          goto T1844;}          goto T1844;}
5235          base[3]= VV[238];          base[3]= VV[240];
5236          base[4]= symbol_value(VV[102]);          base[4]= symbol_value(VV[102]);
5237          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5238          (void) (*Lnk345)();          (void) (*Lnk347)();
5239          vs_top=sup;          vs_top=sup;
5240  goto T1844;  goto T1844;
5241  T1844:;  T1844:;
5242          V497 = make_fixnum((long)length((V487)));          V495 = make_fixnum((long)length((V485)));
5243          {register object x= V497,V496= VV[239];          {register object x= V495,V494= VV[241];
5244          while(!endp(V496))          while(!endp(V494))
5245          if(eql(x,V496->c.c_car)){          if(eql(x,V494->c.c_car)){
5246          goto T1849;          goto T1849;
5247          }else V496=V496->c.c_cdr;}          }else V494=V494->c.c_cdr;}
5248          base[3]= VV[240];          base[3]= VV[242];
5249          base[4]= (V484);          base[4]= (V482);
5250          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5251          (void) (*Lnk345)();          (void) (*Lnk347)();
5252          vs_top=sup;          vs_top=sup;
5253  goto T1849;  goto T1849;
5254  T1849:;  T1849:;
5255          {register object V498;          {register object V496;
5256          register object V499;          register object V497;
5257          V498= car((V487));          V496= car((V485));
5258          V499= Cnil;          V497= Cnil;
5259  goto T1857;  goto T1857;
5260  T1857:;  T1857:;
5261          if(((V498))!=Cnil){          if(((V496))!=Cnil){
5262          goto T1858;}          goto T1858;}
5263          goto T1854;          goto T1854;
5264  goto T1858;  goto T1858;
5265  T1858:;  T1858:;
5266          V499= car((V498));          V497= car((V496));
5267          if(!(type_of((V499))!=t_cons)){          if(!(type_of((V497))!=t_cons)){
5268          goto T1864;}          goto T1864;}
5269          base[3]= (V499);          base[3]= (V497);
5270          base[4]= Cnil;          base[4]= Cnil;
5271          base[5]= Cnil;          base[5]= Cnil;
5272          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
5273          (void) (*Lnk378)();          (void) (*Lnk380)();
5274          vs_top=sup;          vs_top=sup;
5275          goto T1862;          goto T1862;
5276  goto T1864;  goto T1864;
5277  T1864:;  T1864:;
5278          base[3]= car((V499));          base[3]= car((V497));
5279          base[4]= cadr((V499));          base[4]= cadr((V497));
5280          base[5]= caddr((V499));          base[5]= caddr((V497));
5281          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
5282          (void) (*Lnk378)();          (void) (*Lnk380)();
5283          vs_top=sup;          vs_top=sup;
5284  goto T1862;  goto T1862;
5285  T1862:;  T1862:;
5286          V498= cdr((V498));          V496= cdr((V496));
5287          goto T1857;}          goto T1857;}
5288  goto T1854;  goto T1854;
5289  T1854:;  T1854:;
5290          V500= reverse(cadr((V487)));          V498= reverse(cadr((V485)));
5291          setq(VV[106],nconc(/* INLINE-ARGS */V500,symbol_value(VV[106])));          setq(VV[106],nconc(/* INLINE-ARGS */V498,symbol_value(VV[106])));
5292          base[3]= cddr((V487));          base[3]= cddr((V485));
5293          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5294          return;}          return;}
5295          }          }
# Line 5287  static void L94() Line 5300  static void L94()
5300  {register object *base=vs_base;  {register object *base=vs_base;
5301          register object *sup=base+VM82; VC82          register object *sup=base+VM82; VC82
5302          vs_reserve(VM82);          vs_reserve(VM82);
5303          {object V501;          {object V499;
5304          check_arg(1);          check_arg(1);
5305          V501=(base[0]);          V499=(base[0]);
5306          vs_top=sup;          vs_top=sup;
5307  goto TTL;  goto TTL;
5308  TTL:;  TTL:;
5309          {object V502;          {object V500;
5310          base[1]= (V501);          base[1]= (V499);
5311          base[2]= symbol_value(VV[102]);          base[2]= symbol_value(VV[102]);
5312          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5313          (void) (*Lnk383)();          (void) (*Lnk385)();
5314          vs_top=sup;          vs_top=sup;
5315          V502= vs_base[0];          V500= vs_base[0];
5316          if(((V502))!=Cnil){          if(((V500))!=Cnil){
5317          goto T1882;}          goto T1882;}
5318          vs_base=vs_top;          vs_base=vs_top;
5319          (void) (*Lnk325)();          (void) (*Lnk327)();
5320          vs_top=sup;          vs_top=sup;
5321          base[1]= vs_base[0];          base[1]= vs_base[0];
5322          base[2]= Cnil;          base[2]= Cnil;
# Line 5311  TTL:; Line 5324  TTL:;
5324          return;          return;
5325  goto T1882;  goto T1882;
5326  T1882:;  T1882:;
5327          setq(VV[102],(VFUN_NARGS=2,(*(LnkLI384))((V502),symbol_value(VV[102]))));          setq(VV[102],(VFUN_NARGS=2,(*(LnkLI386))((V500),symbol_value(VV[102]))));
5328          base[1]= cdr((V502));          base[1]= cdr((V500));
5329          base[2]= Ct;          base[2]= Ct;
5330          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5331          return;}          return;}
# Line 5324  static void L95() Line 5337  static void L95()
5337  {register object *base=vs_base;  {register object *base=vs_base;
5338          register object *sup=base+VM83; VC83          register object *sup=base+VM83; VC83
5339          vs_reserve(VM83);          vs_reserve(VM83);
5340          {object V503;          {object V501;
5341          object V504;          object V502;
5342          object V505;          object V503;
5343          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
5344          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
5345          V503=(base[0]);          V501=(base[0]);
5346          vs_base=vs_base+1;          vs_base=vs_base+1;
5347          if(vs_base>=vs_top){vs_top=sup;goto T1890;}          if(vs_base>=vs_top){vs_top=sup;goto T1890;}
5348          V504=(base[1]);          V502=(base[1]);
5349          vs_base++;          vs_base++;
5350          if(vs_base>=vs_top){vs_top=sup;goto T1891;}          if(vs_base>=vs_top){vs_top=sup;goto T1891;}
5351          V505=(base[2]);          V503=(base[2]);
5352          vs_top=sup;          vs_top=sup;
5353          goto T1892;          goto T1892;
5354  goto T1890;  goto T1890;
5355  T1890:;  T1890:;
5356          V504= Cnil;          V502= Cnil;
5357  goto T1891;  goto T1891;
5358  T1891:;  T1891:;
5359          V505= Cnil;          V503= Cnil;
5360  goto T1892;  goto T1892;
5361  T1892:;  T1892:;
5362          base[3]=make_cclosure_new(LC96,Cnil,Cnil,Cdata);          base[3]=make_cclosure_new(LC96,Cnil,Cnil,Cdata);
5363          base[3]=MMcons(base[3],Cnil);          base[3]=MMcons(base[3],Cnil);
5364          {object V506;          {object V504;
5365          object V507;          object V505;
5366          register object V508;          register object V506;
5367          register object V509;          register object V507;
5368          object V510;          object V508;
5369          object V511;          object V509;
5370          {object V512;          {object V510;
5371          object V513= (V505);          object V511= (V503);
5372          if(endp(V513)){          if(endp(V511)){
5373          V510= Cnil;          V508= Cnil;
5374          goto T1895;}          goto T1895;}
5375          base[4]=V512=MMcons(Cnil,Cnil);          base[4]=V510=MMcons(Cnil,Cnil);
5376  goto T1896;  goto T1896;
5377  T1896:;  T1896:;
5378          V515= car((V513->c.c_car));          V513= car((V511->c.c_car));
5379          V516= (base[3]->c.c_car);          V514= (base[3]->c.c_car);
5380          base[5]= (VFUN_NARGS=4,(*(LnkLI366))(/* INLINE-ARGS */V515,(V503),VV[20],V516));          base[5]= (VFUN_NARGS=4,(*(LnkLI368))(/* INLINE-ARGS */V513,(V501),VV[20],V514));
5381          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
5382          Lcopy_list();          Lcopy_list();
5383          vs_top=sup;          vs_top=sup;
5384          (V512->c.c_cdr)= vs_base[0];          (V510->c.c_cdr)= vs_base[0];
5385          {object cdr_V512=MMcdr(V512);while(!endp(cdr_V512)) {cdr_V512=MMcdr(cdr_V512);V512=MMcdr(V512);}}          {object cdr_V510=MMcdr(V510);while(!endp(cdr_V510)) {cdr_V510=MMcdr(cdr_V510);V510=MMcdr(V510);}}
5386          V513=MMcdr(V513);          V511=MMcdr(V511);
5387          if(endp(V513)){          if(endp(V511)){
5388          base[4]=base[4]->c.c_cdr;          base[4]=base[4]->c.c_cdr;
5389          V510= base[4];          V508= base[4];
5390          goto T1895;}          goto T1895;}
5391          goto T1896;}          goto T1896;}
5392  goto T1895;  goto T1895;
5393  T1895:;  T1895:;
5394          {object V517;          {object V515;
5395          object V518= (V505);          object V516= (V503);
5396          if(endp(V518)){          if(endp(V516)){
5397          V511= Cnil;          V509= Cnil;
5398          goto T1900;}          goto T1900;}
5399          base[4]=V517=MMcons(Cnil,Cnil);          base[4]=V515=MMcons(Cnil,Cnil);
5400  goto T1901;  goto T1901;
5401  T1901:;  T1901:;
5402          (V517->c.c_car)= car((V518->c.c_car));          (V515->c.c_car)= car((V516->c.c_car));
5403          V518=MMcdr(V518);          V516=MMcdr(V516);
5404          if(endp(V518)){          if(endp(V516)){
5405          V511= base[4];          V509= base[4];
5406          goto T1900;}          goto T1900;}
5407          V517=MMcdr(V517)=MMcons(Cnil,Cnil);          V515=MMcdr(V515)=MMcons(Cnil,Cnil);
5408          goto T1901;}          goto T1901;}
5409  goto T1900;  goto T1900;
5410  T1900:;  T1900:;
5411            V504= Cnil;
5412            V505= (V503);
5413          V506= Cnil;          V506= Cnil;
5414          V507= (V505);          V507= Cnil;
         V508= Cnil;  
         V509= Cnil;  
5415  goto T1904;  goto T1904;
5416  T1904:;  T1904:;
5417          if((symbol_value(VV[89]))!=Cnil){          if((symbol_value(VV[89]))!=Cnil){
5418          goto T1905;}          goto T1905;}
5419          base[4]= nreverse((V507));          base[4]= nreverse((V505));
5420          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5421          return;          return;
5422  goto T1905;  goto T1905;
5423  T1905:;  T1905:;
5424          V506= car(symbol_value(VV[89]));          V504= car(symbol_value(VV[89]));
5425          {register object V519;          {register object V517;
5426          register object V520;          register object V518;
5427          V519= (V503);          V517= (V501);
5428          V520= car((V519));          V518= car((V517));
5429  goto T1915;  goto T1915;
5430  T1915:;  T1915:;
5431          if(!(endp_prop((V519)))){          if(!(endp_prop((V517)))){
5432          goto T1916;}          goto T1916;}
5433          goto T1911;          goto T1911;
5434  goto T1916;  goto T1916;
5435  T1916:;  T1916:;
5436          base[5]= (V506);          base[5]= (V504);
5437          base[6]= (V520);          base[6]= (V518);
5438          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
5439          L96(base);          L96(base);
5440          vs_top=sup;          vs_top=sup;
5441          V509= vs_base[0];          V507= vs_base[0];
5442          if(((V509))==Cnil){          if(((V507))==Cnil){
5443          goto T1920;}          goto T1920;}
5444          V508= (V520);          V506= (V518);
5445          goto T1911;          goto T1911;
5446  goto T1920;  goto T1920;
5447  T1920:;  T1920:;
5448          V519= cdr((V519));          V517= cdr((V517));
5449          V520= car((V519));          V518= car((V517));
5450          goto T1915;}          goto T1915;}
5451  goto T1911;  goto T1911;
5452  T1911:;  T1911:;
5453          if(((V508))==Cnil){          if(((V506))==Cnil){
5454          goto T1934;}          goto T1934;}
5455          {register object x= (V509),V521= (V510);          {register object x= (V507),V519= (V508);
5456          while(!endp(V521))          while(!endp(V519))
5457          if(eql(x,V521->c.c_car)){          if(eql(x,V519->c.c_car)){
5458          goto T1938;          goto T1938;
5459          }else V521=V521->c.c_cdr;          }else V519=V519->c.c_cdr;
5460          goto T1936;}          goto T1936;}
5461  goto T1938;  goto T1938;
5462  T1938:;  T1938:;
5463          {register object x= (V509),V522= (V511);          {register object x= (V507),V520= (V509);
5464          while(!endp(V522))          while(!endp(V520))
5465          if(eql(x,V522->c.c_car)){          if(eql(x,V520->c.c_car)){
5466          goto T1942;          goto T1942;
5467          }else V522=V522->c.c_cdr;          }else V520=V520->c.c_cdr;
5468          goto T1941;}          goto T1941;}
5469  goto T1942;  goto T1942;
5470  T1942:;  T1942:;
5471          base[4]= VV[241];          base[4]= VV[243];
5472          goto T1939;          goto T1939;
5473  goto T1941;  goto T1941;
5474  T1941:;  T1941:;
5475          base[4]= VV[242];          base[4]= VV[244];
5476  goto T1939;  goto T1939;
5477  T1939:;  T1939:;
5478          base[5]= (V506);          base[5]= (V504);
5479          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5480          (void) (*Lnk345)();          (void) (*Lnk347)();
5481          vs_top=sup;          vs_top=sup;
5482  goto T1936;  goto T1936;
5483  T1936:;  T1936:;
5484          if(!(type_of((V508))==t_cons||((V508))==Cnil)){          if(!(type_of((V506))==t_cons||((V506))==Cnil)){
5485          goto T1947;}          goto T1947;}
5486          V511= append((V508),(V511));          V509= append((V506),(V509));
5487          goto T1945;          goto T1945;
5488  goto T1947;  goto T1947;
5489  T1947:;  T1947:;
5490          V511= make_cons((V508),(V511));          V509= make_cons((V506),(V509));
5491  goto T1945;  goto T1945;
5492  T1945:;  T1945:;
5493          vs_base=vs_top;          vs_base=vs_top;
5494          (void) (*Lnk348)();          (void) (*Lnk350)();
5495          vs_top=sup;          vs_top=sup;
5496          {object V523;          {object V521;
5497          vs_base=vs_top;          vs_base=vs_top;
5498          (void) (*Lnk359)();          (void) (*Lnk361)();
5499          vs_top=sup;          vs_top=sup;
5500          V524= vs_base[0];          V522= vs_base[0];
5501          V523= list(2,(V509),V524);          V521= list(2,(V507),V522);
5502          V507= make_cons((V523),(V507));          V505= make_cons((V521),(V505));
5503          goto T1932;}          goto T1932;}
5504  goto T1934;  goto T1934;
5505  T1934:;  T1934:;
5506          if(((V504))==Cnil){          if(((V502))==Cnil){
5507          goto T1954;}          goto T1954;}
5508          base[4]= (V506);          base[4]= (V504);
5509          base[5]= VV[243];          base[5]= VV[245];
5510          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5511          (void) (*Lnk355)();          (void) (*Lnk357)();
5512          vs_top=sup;          vs_top=sup;
5513          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5514          goto T1954;}          goto T1954;}
5515          vs_base=vs_top;          vs_base=vs_top;
5516          (void) (*Lnk348)();          (void) (*Lnk350)();
5517          vs_top=sup;          vs_top=sup;
5518          {register object V525;          {register object V523;
5519          object V526;          object V524;
5520          vs_base=vs_top;          vs_base=vs_top;
5521          (void) (*Lnk348)();          (void) (*Lnk350)();
5522          vs_top=sup;          vs_top=sup;
5523          V525= vs_base[0];          V523= vs_base[0];
5524          V526= Cnil;          V524= Cnil;
5525  goto T1963;  goto T1963;
5526  T1963:;  T1963:;
5527          if(type_of((V525))!=t_cons){          if(type_of((V523))!=t_cons){
5528          goto T1967;}          goto T1967;}
5529          if(type_of(cdr((V525)))!=t_cons){          if(type_of(cdr((V523)))!=t_cons){
5530          goto T1967;}          goto T1967;}
5531          if((cddr((V525)))!=Cnil){          if((cddr((V523)))!=Cnil){
5532          goto T1967;}          goto T1967;}
5533          if(!(type_of(car((V525)))==t_symbol)){          if(!(type_of(car((V523)))==t_symbol)){
5534          goto T1967;}          goto T1967;}
5535          if((cadr((V525)))==Cnil){          if((cadr((V523)))==Cnil){
5536          goto T1966;}          goto T1966;}
5537          if(type_of(cadr((V525)))==t_symbol){          if(type_of(cadr((V523)))==t_symbol){
5538          goto T1966;}          goto T1966;}
5539  goto T1967;  goto T1967;
5540  T1967:;  T1967:;
5541          base[4]= VV[244];          base[4]= VV[246];
5542          base[5]= (V525);          base[5]= (V523);
5543          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5544          (void) (*Lnk345)();          (void) (*Lnk347)();
5545          vs_top=sup;          vs_top=sup;
5546  goto T1966;  goto T1966;
5547  T1966:;  T1966:;
5548          if((cadr((V525)))==Cnil){          if((cadr((V523)))==Cnil){
5549          goto T1981;}          goto T1981;}
5550          base[4]= car((V525));          base[4]= car((V523));
5551          base[5]= symbol_value(VV[102]);          base[5]= symbol_value(VV[102]);
5552          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5553          (void) (*Lnk383)();          (void) (*Lnk385)();
5554          vs_top=sup;          vs_top=sup;
5555          V526= vs_base[0];          V524= vs_base[0];
5556          if(((V526))==Cnil){          if(((V524))==Cnil){
5557          goto T1985;}          goto T1985;}
5558          base[4]= VV[245];          base[4]= VV[247];
5559          base[5]= car((V525));          base[5]= car((V523));
5560          base[6]= cadr((V525));          base[6]= cadr((V523));
5561          base[7]= cadr((V526));          base[7]= cadr((V524));
5562          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
5563          (void) (*Lnk345)();          (void) (*Lnk347)();
5564          vs_top=sup;          vs_top=sup;
5565          goto T1981;          goto T1981;
5566  goto T1985;  goto T1985;
5567  T1985:;  T1985:;
5568          {object V527;          {object V525;
5569          V527= make_cons(car((V525)),cadr((V525)));          V525= make_cons(car((V523)),cadr((V523)));
5570          setq(VV[102],make_cons((V527),symbol_value(VV[102])));}          setq(VV[102],make_cons((V525),symbol_value(VV[102])));}
5571  goto T1981;  goto T1981;
5572  T1981:;  T1981:;
5573          if((symbol_value(VV[89]))==Cnil){          if((symbol_value(VV[89]))==Cnil){
# Line 5567  T1997:; Line 5580  T1997:;
5580  goto T1996;  goto T1996;
5581  T1996:;  T1996:;
5582          vs_base=vs_top;          vs_base=vs_top;
5583          (void) (*Lnk348)();          (void) (*Lnk350)();
5584          vs_top=sup;          vs_top=sup;
5585          V525= vs_base[0];          V523= vs_base[0];
5586          goto T1963;}          goto T1963;}
5587  goto T1954;  goto T1954;
5588  T1954:;  T1954:;
5589          base[4]= nreverse((V507));          base[4]= nreverse((V505));
5590          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5591          return;          return;
5592  goto T1932;  goto T1932;
5593  T1932:;  T1932:;
5594          V508= Cnil;          V506= Cnil;
5595          V509= Cnil;          V507= Cnil;
5596          goto T1904;}          goto T1904;}
5597          }          }
5598  }  }
# Line 5589  static void L97() Line 5602  static void L97()
5602  {register object *base=vs_base;  {register object *base=vs_base;
5603          register object *sup=base+VM84; VC84          register object *sup=base+VM84; VC84
5604          vs_reserve(VM84);          vs_reserve(VM84);
5605          {object V528;          {object V526;
5606          register object V529;          register object V527;
5607            object V528;
5608            object V529;
5609          object V530;          object V530;
5610          object V531;          object V531;
5611          object V532;          object V532;
5612          object V533;          object V533;
5613          object V534;          object V534;
5614          object V535;          object V535;
         object V536;  
         object V537;  
5615          check_arg(10);          check_arg(10);
5616          V528=(base[0]);          V526=(base[0]);
5617          V529=(base[1]);          V527=(base[1]);
5618          V530=(base[2]);          V528=(base[2]);
5619          V531=(base[3]);          V529=(base[3]);
5620          V532=(base[4]);          V530=(base[4]);
5621          V533=(base[5]);          V531=(base[5]);
5622          V534=(base[6]);          V532=(base[6]);
5623          V535=(base[7]);          V533=(base[7]);
5624          V536=(base[8]);          V534=(base[8]);
5625          V537=(base[9]);          V535=(base[9]);
5626          vs_top=sup;          vs_top=sup;
5627  goto TTL;  goto TTL;
5628  TTL:;  TTL:;
5629          {object V538;          {object V536;
5630            object V537;
5631            object V538;
5632          object V539;          object V539;
5633          object V540;          object V540;
5634          object V541;          object V541;
5635          object V542;          object V542;
5636          object V543;          register object V543;
5637          object V544;          register object V544;
5638          register object V545;          object V545;
5639          register object V546;          object V546;
5640          object V547;          object V547;
5641          object V548;          object V548;
5642          object V549;          object V549;
5643          object V550;          object V550;{object V552;
5644          object V551;          base[10]= (V527);
         object V552;{object V554;  
         base[10]= (V529);  
5645          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5646          (void) (*Lnk327)();          (void) (*Lnk329)();
5647          vs_top=sup;          vs_top=sup;
5648          V554= vs_base[0];          V552= vs_base[0];
5649          if(V554==Cnil)goto T2010;          if(V552==Cnil)goto T2010;
5650          V553= V554;          V551= V552;
5651          goto T2009;          goto T2009;
5652  goto T2010;  goto T2010;
5653  T2010:;}  T2010:;}
5654          V553= small_fixnum(0);          V551= small_fixnum(0);
5655  goto T2009;  goto T2009;
5656  T2009:;  T2009:;
5657          V542= one_plus(V553);          V540= one_plus(V551);
5658            V536= Cnil;
5659            V537= Cnil;
5660          V538= Cnil;          V538= Cnil;
5661          V539= Cnil;          V539= Cnil;
5662          V540= Cnil;          V541= Ct;
5663          V541= Cnil;          V542= Cnil;
5664          V543= Ct;          V543= Cnil;
5665          V544= Cnil;          V544= Cnil;
5666          V545= Cnil;          V545= Cnil;
5667          V546= Cnil;          V546= Cnil;
# Line 5654  T2009:; Line 5669  T2009:;
5669          V548= Cnil;          V548= Cnil;
5670          V549= Cnil;          V549= Cnil;
5671          V550= Cnil;          V550= Cnil;
5672          V551= Cnil;          if(((V529))==Cnil){
         V552= Cnil;  
         if(((V531))==Cnil){  
5673          goto T2013;}          goto T2013;}
5674          base[10]= (V531);          base[10]= (V529);
5675          base[11]= Cnil;          base[11]= Cnil;
5676          base[12]= (V532);          base[12]= (V530);
5677          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5678          (void) (*Lnk378)();          (void) (*Lnk380)();
5679          vs_top=sup;          vs_top=sup;
5680  goto T2013;  goto T2013;
5681  T2013:;  T2013:;
5682          {register object V555;          {register object V553;
5683          register object V556;          register object V554;
5684          register object V557;          register object V555;
5685          object V558;          object V556;
5686          V555= (V537);          V553= (V535);
5687            V554= Cnil;
5688            V555= Cnil;
5689          V556= Cnil;          V556= Cnil;
         V557= Cnil;  
         V558= Cnil;  
5690  goto T2021;  goto T2021;
5691  T2021:;  T2021:;
5692          if(((V555))!=Cnil){          if(((V553))!=Cnil){
5693          goto T2022;}          goto T2022;}
5694          goto T2019;          goto T2019;
5695  goto T2022;  goto T2022;
5696  T2022:;  T2022:;
5697          V556= caar((V555));          V554= caar((V553));
5698          V557= cadar((V555));          V555= cadar((V553));
5699          {object V559= (V556);          {object V557= (V554);
5700          if((V559!= VV[385])          if((V557!= VV[387])
5701          && (V559!= VV[232]))goto T2031;          && (V557!= VV[234]))goto T2031;
5702          V539= Ct;          V537= Ct;
5703          base[10]= (V533);          base[10]= (V531);
5704          base[11]= (V557);          base[11]= (V555);
5705          base[12]= (V534);          base[12]= (V532);
5706          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5707          (void) (*Lnk357)();          (void) (*Lnk359)();
5708          vs_top=sup;          vs_top=sup;
5709          goto T2030;          goto T2030;
5710  goto T2031;  goto T2031;
5711  T2031:;  T2031:;
5712          if((V559!= VV[386])          if((V557!= VV[388])
5713          && (V559!= VV[246])          && (V557!= VV[248])
5714          && (V559!= VV[248]))goto T2037;          && (V557!= VV[250]))goto T2037;
5715          V547= Ct;          V545= Ct;
5716          if(!(((V556))==(VV[246]))){          if(!(((V554))==(VV[248]))){
5717          goto T2042;}          goto T2042;}
5718          V545= VV[247];          V543= VV[249];
5719          goto T2040;          goto T2040;
5720  goto T2042;  goto T2042;
5721  T2042:;  T2042:;
5722          if(!(((V556))==(VV[248]))){          if(!(((V554))==(VV[250]))){
5723          goto T2040;}          goto T2040;}
5724          V545= VV[249];          V543= VV[251];
5725  goto T2040;  goto T2040;
5726  T2040:;  T2040:;
5727          base[10]= (V557);          base[10]= (V555);
5728          base[11]= (V529);          base[11]= (V527);
5729          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5730          (void) (*Lnk377)();          (void) (*Lnk379)();
5731          if(vs_base<vs_top){          if(vs_base<vs_top){
5732          V557= vs_base[0];          V555= vs_base[0];
5733          vs_base++;          vs_base++;
5734          }else{          }else{
5735          V557= Cnil;}          V555= Cnil;}
5736          if(vs_base<vs_top){          if(vs_base<vs_top){
5737          V549= vs_base[0];          V547= vs_base[0];
5738          vs_base++;          vs_base++;
5739          }else{          }else{
5740          V549= Cnil;}          V547= Cnil;}
5741          if(vs_base<vs_top){          if(vs_base<vs_top){
5742          V548= vs_base[0];          V546= vs_base[0];
5743          }else{          }else{
5744          V548= Cnil;}          V546= Cnil;}
5745          vs_top=sup;          vs_top=sup;
5746          base[10]= (V528);          base[10]= (V526);
5747          base[11]= (V557);          base[11]= (V555);
5748          base[12]= (V529);          base[12]= (V527);
5749          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5750          (void) (*Lnk378)();          (void) (*Lnk380)();
5751          vs_top=sup;          vs_top=sup;
5752          goto T2030;          goto T2030;
5753  goto T2037;  goto T2037;
5754  T2037:;  T2037:;
5755          if((V559!= VV[250])          if((V557!= VV[252])
5756          && (V559!= VV[251])          && (V557!= VV[253])
5757          && (V559!= VV[252])          && (V557!= VV[254])
5758          && (V559!= VV[253])          && (V557!= VV[255])
5759          && (V559!= VV[254]))goto T2055;          && (V557!= VV[256]))goto T2055;
5760          base[10]= (V556);          base[10]= (V554);
5761          base[11]= VV[250];          base[11]= VV[252];
5762          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5763          (void) (*Lnk355)();          (void) (*Lnk357)();
5764          vs_top=sup;          vs_top=sup;
5765          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5766          goto T2058;}          goto T2058;}
5767          V545= VV[249];          V543= VV[251];
5768          V546= VV[249];          V544= VV[251];
5769          goto T2056;          goto T2056;
5770  goto T2058;  goto T2058;
5771  T2058:;  T2058:;
5772          base[10]= (V556);          base[10]= (V554);
5773          base[11]= VV[251];          base[11]= VV[253];
5774          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5775          (void) (*Lnk355)();          (void) (*Lnk357)();
5776          vs_top=sup;          vs_top=sup;
5777          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5778          goto T2065;}          goto T2065;}
5779          V546= Ct;          V544= Ct;
5780          goto T2056;          goto T2056;
5781  goto T2065;  goto T2065;
5782  T2065:;  T2065:;
5783          base[10]= (V556);          base[10]= (V554);
5784          base[11]= VV[252];          base[11]= VV[254];
5785          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5786          (void) (*Lnk355)();          (void) (*Lnk357)();
5787          vs_top=sup;          vs_top=sup;
5788          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5789          goto T2071;}          goto T2071;}
5790          V545= VV[247];          V543= VV[249];
5791          V546= VV[247];          V544= VV[249];
5792          goto T2056;          goto T2056;
5793  goto T2071;  goto T2071;
5794  T2071:;  T2071:;
5795          base[10]= (V556);          base[10]= (V554);
5796          base[11]= VV[253];          base[11]= VV[255];
5797          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5798          (void) (*Lnk355)();          (void) (*Lnk357)();
5799          vs_top=sup;          vs_top=sup;
5800          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5801          goto T2078;}          goto T2078;}
5802          V545= VV[247];          V543= VV[249];
5803          goto T2056;          goto T2056;
5804  goto T2078;  goto T2078;
5805  T2078:;  T2078:;
5806          base[10]= (V556);          base[10]= (V554);
5807          base[11]= VV[254];          base[11]= VV[256];
5808          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5809          (void) (*Lnk355)();          (void) (*Lnk357)();
5810          vs_top=sup;          vs_top=sup;
5811          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5812          goto T2056;}          goto T2056;}
5813          V545= VV[249];          V543= VV[251];
5814  goto T2056;  goto T2056;
5815  T2056:;  T2056:;
5816          V550= Ct;          V548= Ct;
5817          base[10]= (V557);          base[10]= (V555);
5818          base[11]= (V529);          base[11]= (V527);
5819          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5820          (void) (*Lnk377)();          (void) (*Lnk379)();
5821          if(vs_base<vs_top){          if(vs_base<vs_top){
5822          V557= vs_base[0];          V555= vs_base[0];
5823          vs_base++;          vs_base++;
5824          }else{          }else{
5825          V557= Cnil;}          V555= Cnil;}
5826          if(vs_base<vs_top){          if(vs_base<vs_top){
5827          V551= vs_base[0];          V549= vs_base[0];
5828          vs_base++;          vs_base++;
5829          }else{          }else{
5830          V551= Cnil;}          V549= Cnil;}
5831          if(vs_base<vs_top){          if(vs_base<vs_top){
5832          V552= vs_base[0];          V550= vs_base[0];
5833          }else{          }else{
5834          V552= Cnil;}          V550= Cnil;}
5835          vs_top=sup;          vs_top=sup;
5836          if(((V551))==Cnil){          if(((V549))==Cnil){
5837          goto T2096;}          goto T2096;}
5838          V538= list(2,VV[215],(V552));          V536= list(2,VV[217],(V550));
5839          goto T2094;          goto T2094;
5840  goto T2096;  goto T2096;
5841  T2096:;  T2096:;
5842          base[11]= VV[255];          base[11]= VV[257];
5843          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
5844          (void) (*Lnk325)();          (void) (*Lnk327)();
5845          vs_top=sup;          vs_top=sup;
5846          base[10]= vs_base[0];          base[10]= vs_base[0];
5847          base[11]= (V557);          base[11]= (V555);
5848          base[12]= (V529);          base[12]= (V527);
5849          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5850          (void) (*Lnk357)();          (void) (*Lnk359)();
5851          vs_top=sup;          vs_top=sup;
5852          V538= vs_base[0];          V536= vs_base[0];
5853  goto T2094;  goto T2094;
5854  T2094:;  T2094:;
5855          goto T2030;          goto T2030;
5856  goto T2055;  goto T2055;
5857  T2055:;  T2055:;
5858          if((V559!= VV[213]))goto T2102;          if((V557!= VV[215]))goto T2102;
5859          base[10]= (V557);          base[10]= (V555);
5860          base[11]= (V529);          base[11]= (V527);
5861          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5862          (void) (*Lnk377)();          (void) (*Lnk379)();
5863          if(vs_base<vs_top){          if(vs_base<vs_top){
5864          V557= vs_base[0];          V555= vs_base[0];
5865          vs_base++;          vs_base++;
5866          }else{          }else{
5867          V557= Cnil;}          V555= Cnil;}
5868          if(vs_base<vs_top){          if(vs_base<vs_top){
5869          V543= vs_base[0];          V541= vs_base[0];
5870          vs_base++;          vs_base++;
5871          }else{          }else{
5872          V543= Cnil;}          V541= Cnil;}
5873          if(vs_base<vs_top){          if(vs_base<vs_top){
5874          V542= vs_base[0];          V540= vs_base[0];
5875          }else{          }else{
5876          V542= Cnil;}          V540= Cnil;}
5877          vs_top=sup;          vs_top=sup;
5878          if(((V543))!=Cnil){          if(((V541))!=Cnil){
5879          goto T2030;}          goto T2030;}
5880          base[11]= VV[256];          base[11]= VV[258];
5881          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
5882          (void) (*Lnk325)();          (void) (*Lnk327)();
5883          vs_top=sup;          vs_top=sup;
5884          V542= vs_base[0];          V540= vs_base[0];
5885          base[10]= (V542);          base[10]= (V540);
5886          base[11]= (V557);          base[11]= (V555);
5887          base[12]= (V529);          base[12]= (V527);
5888          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5889          (void) (*Lnk357)();          (void) (*Lnk359)();
5890          vs_top=sup;          vs_top=sup;
5891          goto T2030;          goto T2030;
5892  goto T2102;  goto T2102;
5893  T2102:;  T2102:;
5894          base[10]= VV[257];          base[10]= VV[259];
5895          base[11]= (V556);          base[11]= (V554);
5896          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5897          (void) (*Lnk345)();          (void) (*Lnk347)();
5898          vs_top=sup;}          vs_top=sup;}
5899  goto T2030;  goto T2030;
5900  T2030:;  T2030:;
5901          if(((V558))==Cnil){          if(((V556))==Cnil){
5902          goto T2116;}          goto T2116;}
5903          if(((V545))==Cnil){          if(((V543))==Cnil){
5904          goto T2116;}          goto T2116;}
5905          if(((V545))==((V558))){          if(((V543))==((V556))){
5906          goto T2116;}          goto T2116;}
5907          base[10]= VV[258];          base[10]= VV[260];
5908          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5909          (void) (*Lnk345)();          (void) (*Lnk347)();
5910          vs_top=sup;          vs_top=sup;
5911  goto T2116;  goto T2116;
5912  T2116:;  T2116:;
5913          V558= (V545);          V556= (V543);
5914          V555= cdr((V555));          V553= cdr((V553));
5915          goto T2021;}          goto T2021;}
5916  goto T2019;  goto T2019;
5917  T2019:;  T2019:;
5918          if(((V533))==Cnil){          if(((V531))==Cnil){
5919          goto T2129;}          goto T2129;}
5920          if(((V539))!=Cnil){          if(((V537))!=Cnil){
5921          goto T2129;}          goto T2129;}
5922          base[10]= VV[259];          base[10]= VV[261];
5923          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5924          (void) (*Lnk345)();          (void) (*Lnk347)();
5925          vs_top=sup;          vs_top=sup;
5926  goto T2129;  goto T2129;
5927  T2129:;  T2129:;
5928          if(((V547))!=Cnil){          if(((V545))!=Cnil){
5929          goto T2135;}          goto T2135;}
5930          base[10]= (V528);          base[10]= (V526);
5931          V549= Ct;{object V560;          V547= Ct;{object V558;
5932          base[12]= (V529);          base[12]= (V527);
5933          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
5934          (void) (*Lnk327)();          (void) (*Lnk329)();
5935          vs_top=sup;          vs_top=sup;
5936          V560= vs_base[0];          V558= vs_base[0];
5937          if(V560==Cnil)goto T2143;          if(V558==Cnil)goto T2143;
5938          V548= V560;          V546= V558;
5939          goto T2142;          goto T2142;
5940  goto T2143;  goto T2143;
5941  T2143:;}  T2143:;}
5942          V548= small_fixnum(0);          V546= small_fixnum(0);
5943  goto T2142;  goto T2142;
5944  T2142:;  T2142:;
5945          base[11]= (V548);          base[11]= (V546);
5946          base[12]= (V529);          base[12]= (V527);
5947          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5948          (void) (*Lnk378)();          (void) (*Lnk380)();
5949          vs_top=sup;          vs_top=sup;
5950  goto T2135;  goto T2135;
5951  T2135:;  T2135:;
5952          {register object x= (V545),V561= VV[260];          {register object x= (V543),V559= VV[262];
5953          while(!endp(V561))          while(!endp(V559))
5954          if(eql(x,V561->c.c_car)){          if(eql(x,V559->c.c_car)){
5955          goto T2150;          goto T2150;
5956          }else V561=V561->c.c_cdr;          }else V559=V559->c.c_cdr;
5957          goto T2149;}          goto T2149;}
5958  goto T2150;  goto T2150;
5959  T2150:;  T2150:;
5960          if(((V550))!=Cnil){          if(((V548))!=Cnil){
5961          goto T2152;}          goto T2152;}
5962          if(((V536))==Cnil){          if(((V534))==Cnil){
5963          goto T2151;}          goto T2151;}
5964  goto T2152;  goto T2152;
5965  T2152:;  T2152:;
5966          if(((V550))!=Cnil){          if(((V548))!=Cnil){
5967          goto T2156;}          goto T2156;}
5968          base[11]= VV[261];          base[11]= VV[263];
5969          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
5970          (void) (*Lnk325)();          (void) (*Lnk327)();
5971          vs_top=sup;          vs_top=sup;
5972          V538= vs_base[0];          V536= vs_base[0];
5973          base[10]= (V538);          base[10]= (V536);
5974          base[11]= Cnil;          base[11]= Cnil;
5975          base[12]= (V529);          base[12]= (V527);
5976          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5977          (void) (*Lnk357)();          (void) (*Lnk359)();
5978          vs_top=sup;          vs_top=sup;
5979          {object V562;          {object V560;
5980          V562= list(3,VV[11],(V538),(V536));          V560= list(3,VV[11],(V536),(V534));
5981          setq(VV[106],make_cons((V562),symbol_value(VV[106])));}          setq(VV[106],make_cons((V560),symbol_value(VV[106])));}
5982  goto T2156;  goto T2156;
5983  T2156:;  T2156:;
5984          if(((V546))==Cnil){          if(((V544))==Cnil){
5985          goto T2169;}          goto T2169;}
5986          V540= VV[34];          V538= VV[34];
5987          goto T2167;          goto T2167;
5988  goto T2169;  goto T2169;
5989  T2169:;  T2169:;
5990          V540= VV[211];          V538= VV[213];
5991  goto T2167;  goto T2167;
5992  T2167:;  T2167:;
5993  goto T2151;  goto T2151;
5994  T2151:;  T2151:;
5995          if(!(eql((V542),small_fixnum(1)))){          if(!(eql((V540),small_fixnum(1)))){
5996          goto T2173;}          goto T2173;}
5997          V544= list(2,VV[178],(V528));          V542= list(2,VV[180],(V526));
5998          goto T2171;          goto T2171;
5999  goto T2173;  goto T2173;
6000  T2173:;  T2173:;
6001          V544= list(3,VV[179],(V528),(V542));          V542= list(3,VV[181],(V526),(V540));
6002  goto T2171;  goto T2171;
6003  T2171:;  T2171:;
6004          goto T2147;          goto T2147;
6005  goto T2149;  goto T2149;
6006  T2149:;  T2149:;
6007          if(((V547))!=Cnil){          if(((V545))!=Cnil){
6008          goto T2175;}          goto T2175;}
6009          if(((V536))!=Cnil){          if(((V534))!=Cnil){
6010          goto T2178;}          goto T2178;}
6011          base[10]= VV[262];          base[10]= VV[264];
6012          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6013          (void) (*Lnk345)();          (void) (*Lnk347)();
6014          vs_top=sup;          vs_top=sup;
6015  goto T2178;  goto T2178;
6016  T2178:;  T2178:;
6017          {object V563;          {object V561;
6018          V563= list(3,VV[11],(V528),list(2,VV[197],(V536)));          V561= list(3,VV[11],(V526),list(2,VV[199],(V534)));
6019          setq(VV[106],make_cons((V563),symbol_value(VV[106])));}          setq(VV[106],make_cons((V561),symbol_value(VV[106])));}
6020  goto T2175;  goto T2175;
6021  T2175:;  T2175:;
6022          if(((V536))==Cnil){          if(((V534))==Cnil){
6023          goto T2184;}          goto T2184;}
6024          if(((V538))!=Cnil){          if(((V536))!=Cnil){
6025          goto T2184;}          goto T2184;}
6026          base[10]= (V529);          base[10]= (V527);
6027          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6028          (void) (*Lnk327)();          (void) (*Lnk329)();
6029          vs_top=sup;          vs_top=sup;
6030          V538= vs_base[0];          V536= vs_base[0];
6031          V546= Ct;          V544= Ct;
6032  goto T2184;  goto T2184;
6033  T2184:;  T2184:;
6034          if(((V538))==Cnil){          if(((V536))==Cnil){
6035          goto T2193;}          goto T2193;}
6036          if(((V546))==Cnil){          if(((V544))==Cnil){
6037          goto T2198;}          goto T2198;}
6038          V540= VV[33];          V538= VV[33];
6039          goto T2196;          goto T2196;
6040  goto T2198;  goto T2198;
6041  T2198:;  T2198:;
6042          V540= VV[263];          V538= VV[265];
6043  goto T2196;  goto T2196;
6044  T2196:;  T2196:;
6045  goto T2193;  goto T2193;
6046  T2193:;  T2193:;
6047          if(!(eql((V542),small_fixnum(1)))){          if(!(eql((V540),small_fixnum(1)))){
6048          goto T2202;}          goto T2202;}
6049          V544= list(2,VV[197],(V528));          V542= list(2,VV[199],(V526));
6050          goto T2200;          goto T2200;
6051  goto T2202;  goto T2202;
6052  T2202:;  T2202:;
6053          V544= list(3,VV[264],(V528),(V542));          V542= list(3,VV[266],(V526),(V540));
6054  goto T2200;  goto T2200;
6055  T2200:;  T2200:;
6056  goto T2147;  goto T2147;
6057  T2147:;  T2147:;
6058          if(((V540))==Cnil){          if(((V538))==Cnil){
6059          goto T2204;}          goto T2204;}
6060          base[10]= Ct;          base[10]= Ct;
6061          base[11]= (V528);          base[11]= (V526);
6062          base[12]= list(3,(V540),(V528),(V538));          base[12]= list(3,(V538),(V526),(V536));
6063          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
6064          (void) (*Lnk329)();          (void) (*Lnk331)();
6065          vs_top=sup;          vs_top=sup;
6066          V541= vs_base[0];          V539= vs_base[0];
6067  goto T2204;  goto T2204;
6068  T2204:;  T2204:;
6069          if(((V535))==Cnil){          if(((V533))==Cnil){
6070          goto T2211;}          goto T2211;}
6071          base[10]= (V530);          base[10]= (V528);
6072          base[11]= (V528);          base[11]= (V526);
6073          base[12]= (V535);          base[12]= (V533);
6074          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
6075          (void) (*Lnk329)();          (void) (*Lnk331)();
6076          vs_top=sup;          vs_top=sup;
6077          V564= vs_base[0];          V562= vs_base[0];
6078          V535= list(2,(V531),V564);          V533= list(2,(V529),V562);
6079  goto T2211;  goto T2211;
6080  T2211:;  T2211:;
6081          {object V565;          {object V563;
6082          object V566;          object V564;
6083          V565= (V541);          V563= (V539);
6084          V566= (V541);          V564= (V539);
6085          if(((V543))==Cnil){          if(((V541))==Cnil){
6086          goto T2219;}          goto T2219;}
6087          if(((V549))==Cnil){          if(((V547))==Cnil){
6088          goto T2219;}          goto T2219;}
6089          if(((V551))==Cnil){          if(((V549))==Cnil){
6090          goto T2219;}          goto T2219;}
6091          base[10]= (V540);          base[10]= (V538);
6092          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6093          Lsymbol_function();          Lsymbol_function();
6094          vs_top=sup;          vs_top=sup;
6095          V567= vs_base[0];          V565= vs_base[0];
6096          V565= (          V563= (
6097          V568 = V567,          V566 = V565,
6098          (type_of(V568) == t_sfun ?(*((V568)->sfn.sfn_self)):          (type_of(V566) == t_sfun ?(*((V566)->sfn.sfn_self)):
6099          (fcall.fun=(V568),fcall.argd=2,fcalln))((V548),(V552)));          (fcall.fun=(V566),fcall.argd=2,fcalln))((V546),(V550)));
6100          if(((V565))==Cnil){          if(((V563))==Cnil){
6101          goto T2219;}          goto T2219;}
6102          V566= Ct;          V564= Ct;
6103  goto T2219;  goto T2219;
6104  T2219:;  T2219:;
6105          base[10]= Ct;          base[10]= Ct;
6106          base[11]= (V528);          base[11]= (V526);
6107          base[12]= (V544);          base[12]= (V542);
6108          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
6109          (void) (*Lnk329)();          (void) (*Lnk331)();
6110          vs_top=sup;          vs_top=sup;
6111          V569= vs_base[0];          V567= vs_base[0];
6112          base[10]= list(8,Cnil,list(2,(V528),V569),(V566),(V535),Cnil,Cnil,(V565),(V535));          base[10]= list(8,Cnil,list(2,(V526),V567),(V564),(V533),Cnil,Cnil,(V563),(V533));
6113          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6114          return;}}          return;}}
6115          }          }
# Line 6107  static void L98() Line 6120  static void L98()
6120  {register object *base=vs_base;  {register object *base=vs_base;
6121          register object *sup=base+VM85; VC85          register object *sup=base+VM85; VC85
6122          vs_reserve(VM85);          vs_reserve(VM85);
6123          {object V570;          {object V568;
6124            object V569;
6125            object V570;
6126          object V571;          object V571;
         object V572;  
         object V573;  
6127          check_arg(4);          check_arg(4);
6128          V570=(base[0]);          V568=(base[0]);
6129          V571=(base[1]);          V569=(base[1]);
6130          V572=(base[2]);          V570=(base[2]);
6131          V573=(base[3]);          V571=(base[3]);
6132          vs_top=sup;          vs_top=sup;
6133  goto TTL;  goto TTL;
6134  TTL:;  TTL:;
6135          base[4]= (V570);          base[4]= (V568);
6136          base[6]= (V572);          base[6]= (V570);
6137          base[7]= symbol_value(VV[181]);          base[7]= symbol_value(VV[183]);
6138          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
6139          (void) (*Lnk373)();          (void) (*Lnk375)();
6140          vs_top=sup;          vs_top=sup;
6141          base[5]= vs_base[0];          base[5]= vs_base[0];
6142          base[6]= Ct;          base[6]= Ct;
# Line 6133  TTL:; Line 6146  TTL:;
6146          base[10]= Cnil;          base[10]= Cnil;
6147          base[11]= Cnil;          base[11]= Cnil;
6148          base[12]= Cnil;          base[12]= Cnil;
6149          base[14]= VV[265];          base[14]= VV[267];
6150          base[15]= Cnil;          base[15]= Cnil;
6151          V574= list(2,(V573),(V571));          V572= list(2,(V571),(V569));
6152          base[16]= make_cons(/* INLINE-ARGS */V574,Cnil);          base[16]= make_cons(/* INLINE-ARGS */V572,Cnil);
6153          vs_top=(vs_base=base+14)+3;          vs_top=(vs_base=base+14)+3;
6154          (void) (*Lnk382)();          (void) (*Lnk384)();
6155          vs_top=sup;          vs_top=sup;
6156          base[13]= vs_base[0];          base[13]= vs_base[0];
6157          vs_top=(vs_base=base+4)+10;          vs_top=(vs_base=base+4)+10;
6158          (void) (*Lnk387)();          (void) (*Lnk389)();
6159          return;          return;
6160          }          }
6161  }  }
# Line 6152  static void L99() Line 6165  static void L99()
6165  {register object *base=vs_base;  {register object *base=vs_base;
6166          register object *sup=base+VM86; VC86          register object *sup=base+VM86; VC86
6167          vs_reserve(VM86);          vs_reserve(VM86);
6168          {object V575;          {object V573;
6169            object V574;
6170            object V575;
6171          object V576;          object V576;
6172          object V577;          object V577;
6173          object V578;          object V578;
6174          object V579;          object V579;
         object V580;  
         object V581;  
6175          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
6176          parse_key(vs_base+3,FALSE,FALSE,4,VV[388],VV[389],VV[390],VV[391]);          parse_key(vs_base+3,FALSE,FALSE,4,VV[390],VV[391],VV[392],VV[393]);
6177          V575=(base[0]);          V573=(base[0]);
6178          V576=(base[1]);          V574=(base[1]);
6179          V577=(base[2]);          V575=(base[2]);
6180          vs_top=sup;          vs_top=sup;
6181          V578=(base[3]);          V576=(base[3]);
6182          V579=(base[4]);          V577=(base[4]);
6183          V580=(base[5]);          V578=(base[5]);
6184          V581=(base[6]);          V579=(base[6]);
6185          {object V582;          {object V580;
6186          object V583;          object V581;
6187          base[11]= VV[266];          base[11]= VV[268];
6188          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
6189          (void) (*Lnk392)();          (void) (*Lnk394)();
6190          if(vs_base>=vs_top){vs_top=sup;goto T2253;}          if(vs_base>=vs_top){vs_top=sup;goto T2253;}
6191          V582= vs_base[0];          V580= vs_base[0];
6192          vs_base++;          vs_base++;
6193          if(vs_base>=vs_top){vs_top=sup;goto T2254;}          if(vs_base>=vs_top){vs_top=sup;goto T2254;}
6194          V583= vs_base[0];          V581= vs_base[0];
6195          vs_top=sup;          vs_top=sup;
6196          goto T2255;          goto T2255;
6197  goto T2253;  goto T2253;
6198  T2253:;  T2253:;
6199          V582= Cnil;          V580= Cnil;
6200  goto T2254;  goto T2254;
6201  T2254:;  T2254:;
6202          V583= Cnil;          V581= Cnil;
6203  goto T2255;  goto T2255;
6204  T2255:;  T2255:;
6205          {object V584;          {object V582;
6206          base[11]= VV[267];          base[11]= VV[269];
6207          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
6208          (void) (*Lnk392)();          (void) (*Lnk394)();
6209          vs_top=sup;          vs_top=sup;
6210          V584= vs_base[0];          V582= vs_base[0];
6211          base[11]= (V582);          base[11]= (V580);
6212          base[12]= VV[208];          base[12]= VV[210];
6213          base[13]= (V583);          base[13]= (V581);
6214          base[14]= (V575);          base[14]= (V573);
6215          if((V576)!=Cnil){          if((V574)!=Cnil){
6216          base[15]= (V576);          base[15]= (V574);
6217          goto T2263;}          goto T2263;}
6218          base[15]= (V581);          base[15]= (V579);
6219  goto T2263;  goto T2263;
6220  T2263:;  T2263:;
6221          base[16]= (V584);          base[16]= (V582);
6222          base[17]= (V580);          base[17]= (V578);
6223          base[18]= list(3,(V578),(V584),(V582));          base[18]= list(3,(V576),(V582),(V580));
6224          base[19]= list(2,(V579),(V584));          base[19]= list(2,(V577),(V582));
6225          base[20]= (V577);          base[20]= (V575);
6226          vs_top=(vs_base=base+11)+10;          vs_top=(vs_base=base+11)+10;
6227          (void) (*Lnk387)();          (void) (*Lnk389)();
6228          vs_top=sup;          vs_top=sup;
6229          V585= vs_base[0];          V583= vs_base[0];
6230          base[11]= listA(3,Cnil,Cnil,V585);          base[11]= listA(3,Cnil,Cnil,V583);
6231          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
6232          return;}}          return;}}
6233          }          }
# Line 6226  static void L100() Line 6239  static void L100()
6239          register object *sup=base+VM87; VC87          register object *sup=base+VM87; VC87
6240          vs_reserve(VM87);          vs_reserve(VM87);
6241          bds_check;          bds_check;
6242          {object V586;          {object V584;
6243          object V587;          object V585;
6244          object V588;          object V586;
6245          register object V589;          register object V587;
6246          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
6247          parse_key(vs_base+3,FALSE,FALSE,1,VV[393]);          parse_key(vs_base+3,FALSE,FALSE,1,VV[395]);
6248          V586=(base[0]);          V584=(base[0]);
6249          V587=(base[1]);          V585=(base[1]);
6250          V588=(base[2]);          V586=(base[2]);
6251          vs_top=sup;          vs_top=sup;
6252          V589=(base[3]);          V587=(base[3]);
6253          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
6254          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
6255  goto T2271;  goto T2271;
6256  T2271:;  T2271:;
6257          base[7]= (V589);          base[7]= (V587);
6258          base[8]= VV[268];          base[8]= VV[270];
6259          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
6260          (void) (*Lnk331)();          (void) (*Lnk333)();
6261          vs_top=sup;          vs_top=sup;
6262          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6263          goto T2272;}          goto T2272;}
# Line 6255  goto T2272; Line 6268  goto T2272;
6268  T2272:;  T2272:;
6269          base[7]= VV[47];          base[7]= VV[47];
6270          base[8]= VV[48];          base[8]= VV[48];
6271          base[9]= VV[269];          base[9]= VV[271];
6272          base[10]= (V589);          base[10]= (V587);
6273          base[11]= VV[268];          base[11]= VV[270];
6274          vs_top=(vs_base=base+7)+5;          vs_top=(vs_base=base+7)+5;
6275          Lcerror();          Lcerror();
6276          vs_top=sup;          vs_top=sup;
6277          base[7]= symbol_value(VV[50]);          base[7]= symbol_value(VV[50]);
6278          base[8]= VV[51];          base[8]= VV[51];
6279          base[9]= VV[269];          base[9]= VV[271];
6280          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
6281          Lformat();          Lformat();
6282          vs_top=sup;          vs_top=sup;
# Line 6274  T2272:; Line 6287  T2272:;
6287          vs_base=vs_top;          vs_base=vs_top;
6288          Lread();          Lread();
6289          vs_top=sup;          vs_top=sup;
6290          V589= vs_base[0];          V587= vs_base[0];
6291          base[7]= symbol_value(VV[50]);          base[7]= symbol_value(VV[50]);
6292          base[8]= VV[52];          base[8]= VV[52];
6293          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
# Line 6283  T2272:; Line 6296  T2272:;
6296          goto T2271;          goto T2271;
6297  goto T2269;  goto T2269;
6298  T2269:;  T2269:;
6299          if((cdr((V588)))!=Cnil){          if((cdr((V586)))!=Cnil){
6300          goto T2298;}          goto T2298;}
6301          {register object x= caar((V588)),V590= VV[270];          {register object x= caar((V586)),V588= VV[272];
6302          while(!endp(V590))          while(!endp(V588))
6303          if(eql(x,V590->c.c_car)){          if(eql(x,V588->c.c_car)){
6304          goto T2299;          goto T2299;
6305          }else V590=V590->c.c_cdr;}          }else V588=V588->c.c_cdr;}
6306  goto T2298;  goto T2298;
6307  T2298:;  T2298:;
6308          base[5]= VV[271];          base[5]= VV[273];
6309          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6310          (void) (*Lnk345)();          (void) (*Lnk347)();
6311          vs_top=sup;          vs_top=sup;
6312          goto T2297;          goto T2297;
6313  goto T2299;  goto T2299;
6314  T2299:;  T2299:;
6315          if(((V588))!=Cnil){          if(((V586))!=Cnil){
6316          goto T2297;}          goto T2297;}
6317          base[5]= VV[272];          base[5]= VV[274];
6318          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6319          (void) (*Lnk345)();          (void) (*Lnk347)();
6320          vs_top=sup;          vs_top=sup;
6321  goto T2297;  goto T2297;
6322  T2297:;  T2297:;
6323          {object V591;          {object V589;
6324          object V592;          object V590;
6325          object V593;          object V591;
6326          register object V594;          register object V592;
6327          base[5]= VV[273];          base[5]= VV[275];
6328          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6329          (void) (*Lnk325)();          (void) (*Lnk327)();
6330          vs_top=sup;          vs_top=sup;
6331          V591= vs_base[0];          V589= vs_base[0];
6332          base[5]= VV[274];          base[5]= VV[276];
6333          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6334          (void) (*Lnk325)();          (void) (*Lnk327)();
6335          vs_top=sup;          vs_top=sup;
6336          V592= vs_base[0];          V590= vs_base[0];
6337          V593= Cnil;          V591= Cnil;
6338          V594= Cnil;          V592= Cnil;
6339          {object V595;          {object V593;
6340          object V596;          object V594;
6341          if(!(((V589))==(VV[275]))){          if(!(((V587))==(VV[277]))){
6342          goto T2314;}          goto T2314;}
6343          base[5]= VV[276];          base[5]= VV[278];
6344          goto T2312;          goto T2312;
6345  goto T2314;  goto T2314;
6346  T2314:;  T2314:;
6347          base[5]= VV[275];          base[5]= VV[277];
6348  goto T2312;  goto T2312;
6349  T2312:;  T2312:;
6350          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6351          (void) (*Lnk392)();          (void) (*Lnk394)();
6352          if(vs_base>=vs_top){vs_top=sup;goto T2316;}          if(vs_base>=vs_top){vs_top=sup;goto T2316;}
6353          V595= vs_base[0];          V593= vs_base[0];
6354          vs_base++;          vs_base++;
6355          if(vs_base>=vs_top){vs_top=sup;goto T2317;}          if(vs_base>=vs_top){vs_top=sup;goto T2317;}
6356          V596= vs_base[0];          V594= vs_base[0];
6357          vs_top=sup;          vs_top=sup;
6358          goto T2318;          goto T2318;
6359  goto T2316;  goto T2316;
6360  T2316:;  T2316:;
6361          V595= Cnil;          V593= Cnil;
6362  goto T2317;  goto T2317;
6363  T2317:;  T2317:;
6364          V596= Cnil;          V594= Cnil;
6365  goto T2318;  goto T2318;
6366  T2318:;  T2318:;
6367          V596= Ct;          V594= Ct;
6368          vs_base=vs_top;          vs_base=vs_top;
6369          (void) (*Lnk376)();          (void) (*Lnk378)();
6370          vs_top=sup;          vs_top=sup;
6371          V593= vs_base[0];          V591= vs_base[0];
6372          {register object V597;          {register object V595;
6373          register object V598;          register object V596;
6374          register object V599;          register object V597;
6375          V600= list(3,(V586),Cnil,(V587));          V598= list(3,(V584),Cnil,(V585));
6376          V601= list(2,(V591),cadar((V588)));          V599= list(2,(V589),cadar((V586)));
6377          if((V596)==Cnil){          if((V594)==Cnil){
6378          V602= Cnil;          V600= Cnil;
6379          goto T2324;}          goto T2324;}
6380          if((V595)==Cnil){          if((V593)==Cnil){
6381          V602= Cnil;          V600= Cnil;
6382          goto T2324;}          goto T2324;}
6383          V603= list(2,(V595),Cnil);          V601= list(2,(V593),Cnil);
6384          V602= make_cons(/* INLINE-ARGS */V603,Cnil);          V600= make_cons(/* INLINE-ARGS */V601,Cnil);
6385  goto T2324;  goto T2324;
6386  T2324:;  T2324:;
6387          V599= listA(3,/* INLINE-ARGS */V600,/* INLINE-ARGS */V601,V602);          V597= listA(3,/* INLINE-ARGS */V598,/* INLINE-ARGS */V599,V600);
6388          V597= Cnil;          V595= Cnil;
6389          V598= Cnil;          V596= Cnil;
6390          if(!(((V589))==(VV[275]))){          if(!(((V587))==(VV[277]))){
6391          goto T2327;}          goto T2327;}
6392          V597= (V586);          V595= (V584);
6393          if((V596)==Cnil){          if((V594)==Cnil){
6394          V598= Cnil;          V596= Cnil;
6395          goto T2331;}          goto T2331;}
6396          V598= (V595);          V596= (V593);
6397  goto T2331;  goto T2331;
6398  T2331:;  T2331:;
6399          goto T2325;          goto T2325;
6400  goto T2327;  goto T2327;
6401  T2327:;  T2327:;
6402          if((V596)==Cnil){          if((V594)==Cnil){
6403          V597= Cnil;          V595= Cnil;
6404          goto T2333;}          goto T2333;}
6405          V597= (V595);          V595= (V593);
6406  goto T2333;  goto T2333;
6407  T2333:;  T2333:;
6408          V598= (V586);          V596= (V584);
6409  goto T2325;  goto T2325;
6410  T2325:;  T2325:;
6411          {object V604;          {object V602;
6412          V604= list(2,VV[277],list(2,(V592),(V591)));          V602= list(2,VV[279],list(2,(V590),(V589)));
6413          setq(VV[107],make_cons((V604),symbol_value(VV[107])));}          setq(VV[107],make_cons((V602),symbol_value(VV[107])));}
6414          if(!(type_of((V597))==t_cons)){          if(!(type_of((V595))==t_cons)){
6415          goto T2338;}{object V605;          goto T2338;}{object V603;
6416          V605= (V597);          V603= (V595);
6417          base[5]= VV[278];          base[5]= VV[280];
6418          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6419          (void) (*Lnk325)();          (void) (*Lnk327)();
6420          vs_top=sup;          vs_top=sup;
6421          V597= vs_base[0];          V595= vs_base[0];
6422          V594= listA(3,V605,(V597),(V594));}          V592= listA(3,V603,(V595),(V592));}
6423          {object V606;          {object V604;
6424          V606= list(2,(V597),Cnil);          V604= list(2,(V595),Cnil);
6425          V599= make_cons((V606),(V599));}          V597= make_cons((V604),(V597));}
6426  goto T2338;  goto T2338;
6427  T2338:;  T2338:;
6428          if(!(type_of((V598))==t_cons)){          if(!(type_of((V596))==t_cons)){
6429          goto T2347;}{object V607;          goto T2347;}{object V605;
6430          V607= (V598);          V605= (V596);
6431          base[5]= VV[279];          base[5]= VV[281];
6432          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6433          (void) (*Lnk325)();          (void) (*Lnk327)();
6434          vs_top=sup;          vs_top=sup;
6435          V598= vs_base[0];          V596= vs_base[0];
6436          V594= listA(3,V607,(V598),(V594));}          V592= listA(3,V605,(V596),(V592));}
6437          {object V608;          {object V606;
6438          V608= list(2,(V598),Cnil);          V606= list(2,(V596),Cnil);
6439          V599= make_cons((V608),(V599));}          V597= make_cons((V606),(V597));}
6440  goto T2347;  goto T2347;
6441  T2347:;  T2347:;
6442          V609= list(3,(V593),(V597),(V598));          V607= list(3,(V591),(V595),(V596));
6443          base[5]= list(6,(V599),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V609,make_cons((V592),Cnil))),(V594));          base[5]= list(6,(V597),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V607,make_cons((V590),Cnil))),(V592));
6444          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6445          return;}}}          return;}}}
6446          }          }
# Line 6438  static void L101() Line 6451  static void L101()
6451  {register object *base=vs_base;  {register object *base=vs_base;
6452          register object *sup=base+VM88; VC88          register object *sup=base+VM88; VC88
6453          vs_reserve(VM88);          vs_reserve(VM88);
6454          {object V610;          {object V608;
6455            object V609;
6456            register object V610;
6457          object V611;          object V611;
         register object V612;  
         object V613;  
6458          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
6459          parse_key(vs_base+3,FALSE,FALSE,1,VV[394]);          parse_key(vs_base+3,FALSE,FALSE,1,VV[396]);
6460          V610=(base[0]);          V608=(base[0]);
6461          V611=(base[1]);          V609=(base[1]);
6462          V612=(base[2]);          V610=(base[2]);
6463          vs_top=sup;          vs_top=sup;
6464          V613=(base[3]);          V611=(base[3]);
6465          if((cdr((V612)))!=Cnil){          if((cdr((V610)))!=Cnil){
6466          goto T2357;}          goto T2357;}
6467          {register object x= caar((V612)),V614= VV[280];          {register object x= caar((V610)),V612= VV[282];
6468          while(!endp(V614))          while(!endp(V612))
6469          if(eql(x,V614->c.c_car)){          if(eql(x,V612->c.c_car)){
6470          goto T2358;          goto T2358;
6471          }else V614=V614->c.c_cdr;}          }else V612=V612->c.c_cdr;}
6472  goto T2357;  goto T2357;
6473  T2357:;  T2357:;
6474          base[5]= VV[281];          base[5]= VV[283];
6475          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6476          (void) (*Lnk345)();          (void) (*Lnk347)();
6477          vs_top=sup;          vs_top=sup;
6478          goto T2356;          goto T2356;
6479  goto T2358;  goto T2358;
6480  T2358:;  T2358:;
6481          if(((V612))!=Cnil){          if(((V610))!=Cnil){
6482          goto T2356;}          goto T2356;}
6483          base[5]= VV[282];          base[5]= VV[284];
6484          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6485          (void) (*Lnk345)();          (void) (*Lnk347)();
6486          vs_top=sup;          vs_top=sup;
6487  goto T2356;  goto T2356;
6488  T2356:;  T2356:;
6489          if(type_of((V610))==t_symbol){          if(type_of((V608))==t_symbol){
6490          goto T2366;}          goto T2366;}
6491          base[5]= VV[283];          base[5]= VV[285];
6492          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6493          (void) (*Lnk345)();          (void) (*Lnk347)();
6494          vs_top=sup;          vs_top=sup;
6495  goto T2366;  goto T2366;
6496  T2366:;  T2366:;
6497          {object V615;          {object V613;
6498          object V616;          object V614;
6499          base[5]= VV[284];          base[5]= VV[286];
6500          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6501          (void) (*Lnk325)();          (void) (*Lnk327)();
6502          vs_top=sup;          vs_top=sup;
6503          V615= vs_base[0];          V613= vs_base[0];
6504          base[5]= VV[285];          base[5]= VV[287];
6505          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6506          (void) (*Lnk325)();          (void) (*Lnk327)();
6507          vs_top=sup;          vs_top=sup;
6508          V616= vs_base[0];          V614= vs_base[0];
6509          {object V617;          {object V615;
6510          V617= list(2,VV[286],listA(3,(V616),(V615),(V613)));          V615= list(2,VV[288],listA(3,(V614),(V613),(V611)));
6511          setq(VV[107],make_cons((V617),symbol_value(VV[107])));}          setq(VV[107],make_cons((V615),symbol_value(VV[107])));}
6512          V618= list(3,(V610),Cnil,(V611));          V616= list(3,(V608),Cnil,(V609));
6513          V619= list(2,/* INLINE-ARGS */V618,list(2,(V615),cadar((V612))));          V617= list(2,/* INLINE-ARGS */V616,list(2,(V613),cadar((V610))));
6514          vs_base=vs_top;          vs_base=vs_top;
6515          (void) (*Lnk376)();          (void) (*Lnk378)();
6516          vs_top=sup;          vs_top=sup;
6517          V620= vs_base[0];          V618= vs_base[0];
6518          V621= list(2,V620,(V610));          V619= list(2,V618,(V608));
6519          base[5]= list(6,/* INLINE-ARGS */V619,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V621,make_cons((V616),Cnil))),Cnil);          base[5]= list(6,/* INLINE-ARGS */V617,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V619,make_cons((V614),Cnil))),Cnil);
6520          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6521          return;}          return;}
6522          }          }
# Line 6514  static void L102() Line 6527  static void L102()
6527  {register object *base=vs_base;  {register object *base=vs_base;
6528          register object *sup=base+VM89; VC89          register object *sup=base+VM89; VC89
6529          vs_reserve(VM89);          vs_reserve(VM89);
6530          {object V622;          {object V620;
6531          check_arg(1);          check_arg(1);
6532          V622=(base[0]);          V620=(base[0]);
6533          vs_top=sup;          vs_top=sup;
6534  goto TTL;  goto TTL;
6535  TTL:;  TTL:;
6536          {register object V623;          {register object V621;
6537          base[1]= VV[53];          base[1]= VV[53];
6538          base[3]= VV[287];          base[3]= VV[289];
6539          base[4]= VV[288];          base[4]= VV[290];
6540          base[5]= VV[289];          base[5]= VV[291];
6541          base[6]= VV[290];          base[6]= VV[292];
6542          base[7]= VV[291];          base[7]= VV[293];
6543          base[8]= VV[292];          base[8]= VV[294];
6544          base[9]= VV[293];          base[9]= VV[295];
6545          base[10]= VV[294];          base[10]= VV[296];
6546          base[11]= VV[295];          base[11]= VV[297];
6547          base[12]= VV[296];          base[12]= VV[298];
6548          base[13]= VV[297];          base[13]= VV[299];
6549          base[14]= VV[298];          base[14]= VV[300];
6550          base[15]= list(2,VV[177],list(4,VV[299],VV[177],symbol_value(VV[181]),VV[208]));          base[15]= list(2,VV[179],list(4,VV[301],VV[179],symbol_value(VV[183]),VV[210]));
6551          base[16]= list(2,VV[300],list(4,VV[299],VV[177],symbol_value(VV[181]),VV[208]));          base[16]= list(2,VV[302],list(4,VV[301],VV[179],symbol_value(VV[183]),VV[210]));
6552          base[17]= VV[301];          base[17]= VV[303];
6553          vs_top=(vs_base=base+3)+15;          vs_top=(vs_base=base+3)+15;
6554          LlistA();          LlistA();
6555          vs_top=sup;          vs_top=sup;
6556          base[2]= vs_base[0];          base[2]= vs_base[0];
6557          base[3]= VV[54];          base[3]= VV[54];
6558          base[4]= VV[302];          base[4]= VV[304];
6559          base[5]= VV[55];          base[5]= VV[55];
6560          base[6]= VV[303];          base[6]= VV[305];
6561          base[7]= VV[60];          base[7]= VV[60];
6562          base[8]= VV[304];          base[8]= VV[306];
6563          base[9]= VV[59];          base[9]= VV[59];
6564          base[10]= Cnil;          base[10]= Cnil;
6565          base[11]= VV[57];          base[11]= VV[57];
6566          if(((V622))==Cnil){          if(((V620))==Cnil){
6567          goto T2407;}          goto T2407;}
6568          base[12]= VV[305];          base[12]= VV[307];
6569          goto T2405;          goto T2405;
6570  goto T2407;  goto T2407;
6571  T2407:;  T2407:;
# Line 6560  T2407:; Line 6573  T2407:;
6573  goto T2405;  goto T2405;
6574  T2405:;  T2405:;
6575          vs_top=(vs_base=base+1)+12;          vs_top=(vs_base=base+1)+12;
6576          (void) (*Lnk395)();          (void) (*Lnk397)();
6577          vs_top=sup;          vs_top=sup;
6578          V623= vs_base[0];          V621= vs_base[0];
6579          base[1]= VV[306];          base[1]= VV[308];
6580          base[2]= VV[307];          base[2]= VV[309];
6581          base[3]= (V623);          base[3]= (V621);
6582          base[4]= VV[227];          base[4]= VV[229];
6583          base[5]= VV[308];          base[5]= VV[310];
6584          base[6]= VV[228];          base[6]= VV[230];
6585          base[7]= Cnil;          base[7]= Cnil;
6586          base[8]= VV[226];          base[8]= VV[228];
6587          base[9]= VV[309];          base[9]= VV[311];
6588          vs_top=(vs_base=base+1)+9;          vs_top=(vs_base=base+1)+9;
6589          (void) (*Lnk396)();          (void) (*Lnk398)();
6590          vs_top=sup;          vs_top=sup;
6591          base[1]= VV[310];          base[1]= VV[312];
6592          base[2]= VV[307];          base[2]= VV[309];
6593          base[3]= (V623);          base[3]= (V621);
6594          base[4]= VV[227];          base[4]= VV[229];
6595          base[5]= VV[311];          base[5]= VV[313];
6596          base[6]= VV[228];          base[6]= VV[230];
6597          base[7]= Cnil;          base[7]= Cnil;
6598          base[8]= VV[226];          base[8]= VV[228];
6599          base[9]= VV[312];          base[9]= VV[314];
6600          vs_top=(vs_base=base+1)+9;          vs_top=(vs_base=base+1)+9;
6601          (void) (*Lnk396)();          (void) (*Lnk398)();
6602          vs_top=sup;          vs_top=sup;
6603          base[1]= VV[313];          base[1]= VV[315];
6604          base[2]= VV[314];          base[2]= VV[316];
6605          base[3]= (V623);          base[3]= (V621);
6606          base[4]= VV[227];          base[4]= VV[229];
6607          base[5]= VV[315];          base[5]= VV[317];
6608          base[6]= VV[228];          base[6]= VV[230];
6609          base[7]= Cnil;          base[7]= Cnil;
6610          base[8]= VV[226];          base[8]= VV[228];
6611          base[9]= VV[316];          base[9]= VV[318];
6612          vs_top=(vs_base=base+1)+9;          vs_top=(vs_base=base+1)+9;
6613          (void) (*Lnk396)();          (void) (*Lnk398)();
6614          vs_top=sup;          vs_top=sup;
6615          base[1]= VV[317];          base[1]= VV[319];
6616          base[2]= VV[314];          base[2]= VV[316];
6617          base[3]= (V623);          base[3]= (V621);
6618          base[4]= VV[227];          base[4]= VV[229];
6619          base[5]= VV[318];          base[5]= VV[320];
6620          base[6]= VV[228];          base[6]= VV[230];
6621          base[7]= Cnil;          base[7]= Cnil;
6622          base[8]= VV[226];          base[8]= VV[228];
6623          base[9]= VV[319];          base[9]= VV[321];
6624          vs_top=(vs_base=base+1)+9;          vs_top=(vs_base=base+1)+9;
6625          (void) (*Lnk396)();          (void) (*Lnk398)();
6626          vs_top=sup;          vs_top=sup;
6627          base[1]= VV[320];          base[1]= VV[322];
6628          base[2]= VV[314];          base[2]= VV[316];
6629          base[3]= (V623);          base[3]= (V621);
6630          base[4]= VV[227];          base[4]= VV[229];
6631          base[5]= VV[321];          base[5]= VV[323];
6632          base[6]= VV[228];          base[6]= VV[230];
6633          base[7]= Cnil;          base[7]= Cnil;
6634          base[8]= VV[226];          base[8]= VV[228];
6635          base[9]= VV[322];          base[9]= VV[324];
6636          vs_top=(vs_base=base+1)+9;          vs_top=(vs_base=base+1)+9;
6637          (void) (*Lnk396)();          (void) (*Lnk398)();
6638          vs_top=sup;          vs_top=sup;
6639          base[1]= (V623);          base[1]= (V621);
6640          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6641          return;}          return;}
6642          }          }
# Line 6634  static void L103() Line 6647  static void L103()
6647  {register object *base=vs_base;  {register object *base=vs_base;
6648          register object *sup=base+VM90; VC90          register object *sup=base+VM90; VC90
6649          vs_reserve(VM90);          vs_reserve(VM90);
6650          {register object V624;          {register object V622;
6651          object V625;          object V623;
6652          object V626;          object V624;
6653          check_arg(3);          check_arg(3);
6654          V624=(base[0]);          V622=(base[0]);
6655          V625=(base[1]);          V623=(base[1]);
6656          V626=(base[2]);          V624=(base[2]);
6657          vs_top=sup;          vs_top=sup;
6658  goto TTL;  goto TTL;
6659  TTL:;  TTL:;
6660          if(((V624))==Cnil){          if(((V622))==Cnil){
6661          goto T2460;}          goto T2460;}
6662          if(!(type_of(car((V624)))==t_symbol)){          if(!(type_of(car((V622)))==t_symbol)){
6663          goto T2460;}          goto T2460;}
6664          base[3]= (V624);          base[3]= (V622);
6665          base[4]= (V625);          base[4]= (V623);
6666          base[5]= (V626);          base[5]= (V624);
6667          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
6668          (void) (*Lnk397)();          (void) (*Lnk399)();
6669          return;          return;
6670  goto T2460;  goto T2460;
6671  T2460:;  T2460:;
6672          {object V627;          {object V625;
6673          vs_base=vs_top;          vs_base=vs_top;
6674          Lgensym();          Lgensym();
6675          vs_top=sup;          vs_top=sup;
6676          V627= vs_base[0];          V625= vs_base[0];
6677          V628= make_cons(VV[14],(V624));          V626= make_cons(VV[14],(V622));
6678          base[3]= list(3,VV[121],Cnil,list(4,VV[73],(V627),/* INLINE-ARGS */V628,list(2,VV[82],(V627))));          base[3]= list(3,VV[124],Cnil,list(4,VV[73],(V625),/* INLINE-ARGS */V626,list(2,VV[82],(V625))));
6679          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6680          return;}          return;}
6681          }          }
# Line 6675  static void L104() Line 6688  static void L104()
6688          vs_reserve(VM91);          vs_reserve(VM91);
6689          check_arg(2);          check_arg(2);
6690          vs_top=sup;          vs_top=sup;
6691          {object V629=base[0]->c.c_cdr;          {object V627=base[0]->c.c_cdr;
6692          base[2]= V629;}          base[2]= V627;}
6693          base[3]= base[2];          base[3]= base[2];
6694          base[4]= base[1];          base[4]= base[1];
6695          base[5]= symbol_value(VV[323]);          base[5]= symbol_value(VV[325]);
6696          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
6697          (void) (*Lnk398)();          (void) (*Lnk400)();
6698          return;          return;
6699  }  }
6700  /*      local function IN-GROUP-P       */  /*      local function IN-GROUP-P       */
# Line 6691  register object *base0; Line 6704  register object *base0;
6704  {       register object *base=vs_base;  {       register object *base=vs_base;
6705          register object *sup=base+VM92; VC92          register object *sup=base+VM92; VC92
6706          vs_reserve(VM92);          vs_reserve(VM92);
6707          {object V630;          {object V628;
6708          object V631;          object V629;
6709          check_arg(2);          check_arg(2);
6710          V630=(base[0]);          V628=(base[0]);
6711          V631=(base[1]);          V629=(base[1]);
6712          vs_top=sup;          vs_top=sup;
6713          base[2]= (V630);          base[2]= (V628);
6714          base[3]= (V631);          base[3]= (V629);
6715          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6716          (void) (*Lnk351)();          (void) (*Lnk353)();
6717          vs_top=sup;          vs_top=sup;
6718          V632= vs_base[0];          V630= vs_base[0];
6719          base[2]= car(V632);          base[2]= car(V630);
6720          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6721          return;          return;
6722          }          }
# Line 6715  register object *base0; Line 6728  register object *base0;
6728  {       register object *base=vs_base;  {       register object *base=vs_base;
6729          register object *sup=base+VM93; VC93          register object *sup=base+VM93; VC93
6730          vs_reserve(VM93);          vs_reserve(VM93);
6731          {object V633;          {object V631;
6732          object V634;          object V632;
6733          check_arg(2);          check_arg(2);
6734          V633=(base[0]);          V631=(base[0]);
6735          V634=(base[1]);          V632=(base[1]);
6736          vs_top=sup;          vs_top=sup;
6737  goto TTL;  goto TTL;
6738  TTL:;  TTL:;
6739          base[2]= (V633);          base[2]= (V631);
6740          base[3]= (V634);          base[3]= (V632);
6741          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6742          (void) (*Lnk351)();          (void) (*Lnk353)();
6743          vs_top=sup;          vs_top=sup;
6744          V635= vs_base[0];          V633= vs_base[0];
6745          base[2]= car(V635);          base[2]= car(V633);
6746          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6747          return;          return;
6748          }          }
# Line 6741  register object *base0; Line 6754  register object *base0;
6754  {       register object *base=vs_base;  {       register object *base=vs_base;
6755          register object *sup=base+VM94; VC94          register object *sup=base+VM94; VC94
6756          vs_reserve(VM94);          vs_reserve(VM94);
6757          {object V636;          {object V634;
6758          check_arg(1);          check_arg(1);
6759          V636=(base[0]);          V634=(base[0]);
6760          vs_top=sup;          vs_top=sup;
6761  goto TTL;  goto TTL;
6762  TTL:;  TTL:;
6763          if(((V636))!=Cnil){          if(((V634))!=Cnil){
6764          goto T2478;}          goto T2478;}
6765          base[1]= Cnil;          base[1]= Cnil;
6766          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6767          return;          return;
6768  goto T2478;  goto T2478;
6769  T2478:;  T2478:;
6770          {register object x= Ct,V637= (V636);          {register object x= Ct,V635= (V634);
6771          while(!endp(V637))          while(!endp(V635))
6772          if(eql(x,V637->c.c_car)){          if(eql(x,V635->c.c_car)){
6773          goto T2482;          goto T2482;
6774          }else V637=V637->c.c_cdr;          }else V635=V635->c.c_cdr;
6775          goto T2481;}          goto T2481;}
6776  goto T2482;  goto T2482;
6777  T2482:;  T2482:;
6778          base[1]= VV[190];          base[1]= VV[192];
6779          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6780          return;          return;
6781  goto T2481;  goto T2481;
6782  T2481:;  T2481:;
6783          V636= nreverse((V636));          V634= nreverse((V634));
6784          if((cdr((V636)))!=Cnil){          if((cdr((V634)))!=Cnil){
6785          goto T2485;}          goto T2485;}
6786          V638= car((V636));          V636= car((V634));
6787          goto T2483;          goto T2483;
6788  goto T2485;  goto T2485;
6789  T2485:;  T2485:;
6790          V638= make_cons(VV[35],(V636));          V636= make_cons(VV[35],(V634));
6791  goto T2483;  goto T2483;
6792  T2483:;  T2483:;
6793          base[1]= list(3,VV[8],V638,VV[191]);          base[1]= list(3,VV[8],V636,VV[193]);
6794          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6795          return;          return;
6796          }          }
# Line 6789  register object *base0; Line 6802  register object *base0;
6802  {       register object *base=vs_base;  {       register object *base=vs_base;
6803          register object *sup=base+VM95; VC95          register object *sup=base+VM95; VC95
6804          vs_reserve(VM95);          vs_reserve(VM95);
6805          {object V639;          {object V637;
6806          check_arg(1);          check_arg(1);
6807          V639=(base[0]);          V637=(base[0]);
6808          vs_top=sup;          vs_top=sup;
6809  goto TTL;  goto TTL;
6810  TTL:;  TTL:;
6811          {register object V640;          {register object V638;
6812          V640= Cnil;          V638= Cnil;
6813  goto T2489;  goto T2489;
6814  T2489:;  T2489:;
6815          {register object V641;          {register object V639;
6816          register object V642;          register object V640;
6817          V641= car(symbol_value(VV[89]));          V639= car(symbol_value(VV[89]));
6818          bds_bind(VV[109],Cnil);          bds_bind(VV[109],Cnil);
6819          V642= Cnil;          V640= Cnil;
6820          if(type_of((V641))==t_symbol){          if(type_of((V639))==t_symbol){
6821          goto T2495;}          goto T2495;}
6822          base[2]= VV[150];          base[2]= VV[152];
6823          base[3]= (V641);          base[3]= (V639);
6824          base[4]= (V639);          base[4]= (V637);
6825          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
6826          (void) (*Lnk345)();          (void) (*Lnk347)();
6827          vs_top=sup;          vs_top=sup;
6828          bds_unwind1;          bds_unwind1;
6829          goto T2492;          goto T2492;
# Line 6818  goto T2495; Line 6831  goto T2495;
6831  T2495:;  T2495:;
6832          setq(VV[88],symbol_value(VV[89]));          setq(VV[88],symbol_value(VV[89]));
6833          vs_base=vs_top;          vs_base=vs_top;
6834          (void) (*Lnk348)();          (void) (*Lnk350)();
6835          vs_top=sup;          vs_top=sup;
6836          base[2]= car(symbol_value(VV[89]));          base[2]= car(symbol_value(VV[89]));
6837          base[3]= VV[151];          base[3]= VV[153];
6838          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6839          (void) (*Lnk355)();          (void) (*Lnk357)();
6840          vs_top=sup;          vs_top=sup;
6841          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6842          goto T2503;}          goto T2503;}
6843          if(base0[3]!=Cnil){          if(base0[3]!=Cnil){
6844          V643= base0[3];          V641= base0[3];
6845          goto T2509;}          goto T2509;}
6846          vs_base=vs_top;          vs_base=vs_top;
6847          (void) (*Lnk376)();          (void) (*Lnk378)();
6848          vs_top=sup;          vs_top=sup;
6849          base0[3]= vs_base[0];          base0[3]= vs_base[0];
6850          V643= base0[3];          V641= base0[3];
6851  goto T2509;  goto T2509;
6852  T2509:;  T2509:;
6853          setq(VV[89],make_cons(V643,cdr(symbol_value(VV[89]))));          setq(VV[89],make_cons(V641,cdr(symbol_value(VV[89]))));
6854  goto T2503;  goto T2503;
6855  T2503:;  T2503:;
6856          base[2]= (V641);          base[2]= (V639);
6857          base[3]= structure_ref(symbol_value(VV[97]),VV[39],0);          base[3]= structure_ref(symbol_value(VV[97]),VV[39],0);
6858          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6859          (void) (*Lnk349)();          (void) (*Lnk351)();
6860          vs_top=sup;          vs_top=sup;
6861          V642= vs_base[0];          V640= vs_base[0];
6862          if(((V642))==Cnil){          if(((V640))==Cnil){
6863          goto T2511;}          goto T2511;}
6864          base[3]= car((V642));          base[3]= car((V640));
6865          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6866          Lsymbol_function();          Lsymbol_function();
6867          vs_top=sup;          vs_top=sup;
6868          base[2]= vs_base[0];          base[2]= vs_base[0];
6869          {object V644;          {object V642;
6870          V644= cdr((V642));          V642= cdr((V640));
6871           vs_top=base+3;           vs_top=base+3;
6872           while(!endp(V644))           while(!endp(V642))
6873           {vs_push(car(V644));V644=cdr(V644);}           {vs_push(car(V642));V642=cdr(V642);}
6874          vs_base=base+3;}          vs_base=base+3;}
6875          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
6876          vs_top=sup;          vs_top=sup;
# Line 6865  T2503:; Line 6878  T2503:;
6878          goto T2512;}          goto T2512;}
6879  goto T2511;  goto T2511;
6880  T2511:;  T2511:;
6881          base[2]= VV[152];          base[2]= VV[154];
6882          base[3]= (V641);          base[3]= (V639);
6883          base[4]= (V639);          base[4]= (V637);
6884          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
6885          (void) (*Lnk345)();          (void) (*Lnk347)();
6886          vs_top=sup;          vs_top=sup;
6887          bds_unwind1;          bds_unwind1;
6888          goto T2492;          goto T2492;
6889  goto T2512;  goto T2512;
6890  T2512:;  T2512:;
6891          base[2]= (VV[109]->s.s_dbind);          base[2]= (VV[109]->s.s_dbind);
6892          base[3]= (V640);          base[3]= (V638);
6893          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6894          Lreconc();          Lreconc();
6895          vs_top=sup;          vs_top=sup;
6896          V640= vs_base[0];          V638= vs_base[0];
6897          bds_unwind1;}          bds_unwind1;}
6898  goto T2492;  goto T2492;
6899  T2492:;  T2492:;
6900          base[1]= car(symbol_value(VV[89]));          base[1]= car(symbol_value(VV[89]));
6901          base[2]= VV[153];          base[2]= VV[155];
6902          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6903          (void) (*Lnk355)();          (void) (*Lnk357)();
6904          vs_top=sup;          vs_top=sup;
6905          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6906          goto T2531;}          goto T2531;}
6907          vs_base=vs_top;          vs_base=vs_top;
6908          (void) (*Lnk348)();          (void) (*Lnk350)();
6909          vs_top=sup;          vs_top=sup;
6910          goto T2529;          goto T2529;
6911  goto T2531;  goto T2531;
6912  T2531:;  T2531:;
6913          if((cdr((V640)))==Cnil){          if((cdr((V638)))==Cnil){
6914          goto T2536;}          goto T2536;}
6915          V645= nreverse((V640));          V643= nreverse((V638));
6916          base[1]= make_cons(VV[14],/* INLINE-ARGS */V645);          base[1]= make_cons(VV[14],/* INLINE-ARGS */V643);
6917          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6918          return;          return;
6919  goto T2536;  goto T2536;
6920  T2536:;  T2536:;
6921          base[1]= car((V640));          base[1]= car((V638));
6922          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6923          return;          return;
6924  goto T2529;  goto T2529;
# Line 6920  register object *base0; Line 6933  register object *base0;
6933  {       register object *base=vs_base;  {       register object *base=vs_base;
6934          register object *sup=base+VM96; VC96          register object *sup=base+VM96; VC96
6935          vs_reserve(VM96);          vs_reserve(VM96);
6936          {object V646;          {object V644;
6937          object V647;          object V645;
6938          check_arg(2);          check_arg(2);
6939          V646=(base[0]);          V644=(base[0]);
6940          V647=(base[1]);          V645=(base[1]);
6941          vs_top=sup;          vs_top=sup;
6942  goto TTL;  goto TTL;
6943  TTL:;  TTL:;
6944          if(!(type_of((V647))!=t_cons)){          if(!(type_of((V645))!=t_cons)){
6945          goto T2541;}          goto T2541;}
6946          base[2]= (V646);          base[2]= (V644);
6947          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6948          return;          return;
6949  goto T2541;  goto T2541;
6950  T2541:;  T2541:;
6951          base[2]= (V646);          base[2]= (V644);
6952          base[3]= car((V647));          base[3]= car((V645));
6953          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6954          L59(base0);          L59(base0);
6955          vs_top=sup;          vs_top=sup;
6956          V648= vs_base[0];          V646= vs_base[0];
6957          base[2]= (V646);          base[2]= (V644);
6958          base[3]= cdr((V647));          base[3]= cdr((V645));
6959          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6960          L59(base0);          L59(base0);
6961          vs_top=sup;          vs_top=sup;
6962          V649= vs_base[0];          V647= vs_base[0];
6963          base[2]= make_cons(V648,V649);          base[2]= make_cons(V646,V647);
6964          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6965          return;          return;
6966          }          }
# Line 6959  register object *base0; Line 6972  register object *base0;
6972  {       register object *base=vs_base;  {       register object *base=vs_base;
6973          register object *sup=base+VM97; VC97          register object *sup=base+VM97; VC97
6974          vs_reserve(VM97);          vs_reserve(VM97);
6975          {register object V650;          {register object V648;
6976          register object V651;          register object V649;
6977          check_arg(2);          check_arg(2);
6978          V650=(base[0]);          V648=(base[0]);
6979          V651=(base[1]);          V649=(base[1]);
6980          vs_top=sup;          vs_top=sup;
6981  goto TTL;  goto TTL;
6982  TTL:;  TTL:;
6983          if(((V650))!=Cnil){          if(((V648))!=Cnil){
6984          goto T2550;}          goto T2550;}
6985          base[2]= Cnil;          base[2]= Cnil;
6986          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6987          return;          return;
6988  goto T2550;  goto T2550;
6989  T2550:;  T2550:;
6990          if(!(type_of((V650))!=t_cons)){          if(!(type_of((V648))!=t_cons)){
6991          goto T2553;}{object V652;          goto T2553;}{object V650;
6992          base[3]= (V650);          base[3]= (V648);
6993          base[4]= structure_ref(symbol_value(VV[97]),VV[39],4);          base[4]= structure_ref(symbol_value(VV[97]),VV[39],4);
6994          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6995          Lgethash();          Lgethash();
6996          vs_top=sup;          vs_top=sup;
6997          V652= vs_base[0];          V650= vs_base[0];
6998          if(V652==Cnil)goto T2556;          if(V650==Cnil)goto T2556;
6999          base[2]= V652;          base[2]= V650;
7000          goto T2555;          goto T2555;
7001  goto T2556;  goto T2556;
7002  T2556:;}{object V653;  T2556:;}{object V651;
7003          base[3]= symbol_name((V650));          base[3]= symbol_name((V648));
7004          base[4]= structure_ref(symbol_value(VV[97]),VV[39],5);          base[4]= structure_ref(symbol_value(VV[97]),VV[39],5);
7005          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7006          Lgethash();          Lgethash();
7007          vs_top=sup;          vs_top=sup;
7008          V653= vs_base[0];          V651= vs_base[0];
7009          if(V653==Cnil)goto T2560;          if(V651==Cnil)goto T2560;
7010          base[2]= V653;          base[2]= V651;
7011          goto T2555;          goto T2555;
7012  goto T2560;  goto T2560;
7013  T2560:;}  T2560:;}
7014          base[3]= VV[138];          base[3]= VV[140];
7015          base[4]= base0[1];          base[4]= base0[1];
7016          base[5]= (V650);          base[5]= (V648);
7017          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7018          (void) (*Lnk345)();          (void) (*Lnk347)();
7019          vs_top=sup;          vs_top=sup;
7020          base[2]= vs_base[0];          base[2]= vs_base[0];
7021  goto T2555;  goto T2555;
7022  T2555:;  T2555:;
7023          base[3]= (V651);          base[3]= (V649);
7024          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7025          L59(base0);          L59(base0);
7026          return;          return;
7027  goto T2553;  goto T2553;
7028  T2553:;  T2553:;
7029          if(!(type_of((V651))!=t_cons)){          if(!(type_of((V649))!=t_cons)){
7030          goto T2569;}          goto T2569;}
7031          base[2]= VV[139];          base[2]= VV[141];
7032          base[3]= base0[1];          base[3]= base0[1];
7033          base[4]= base0[0];          base[4]= base0[0];
7034          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7035          (void) (*Lnk345)();          (void) (*Lnk347)();
7036          return;          return;
7037  goto T2569;  goto T2569;
7038  T2569:;  T2569:;
7039          base[2]= car((V650));          base[2]= car((V648));
7040          base[3]= car((V651));          base[3]= car((V649));
7041          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7042          L58(base0);          L58(base0);
7043          vs_top=sup;          vs_top=sup;
7044          V654= vs_base[0];          V652= vs_base[0];
7045          base[2]= cdr((V650));          base[2]= cdr((V648));
7046          base[3]= cdr((V651));          base[3]= cdr((V649));
7047          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7048          L58(base0);          L58(base0);
7049          vs_top=sup;          vs_top=sup;
7050          V655= vs_base[0];          V653= vs_base[0];
7051          base[2]= make_cons(V654,V655);          base[2]= make_cons(V652,V653);
7052          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7053          return;          return;
7054          }          }
# Line 7047  register object *base0; Line 7060  register object *base0;
7060  {       register object *base=vs_base;  {       register object *base=vs_base;
7061          register object *sup=base+VM98; VC98          register object *sup=base+VM98; VC98
7062          vs_reserve(VM98);          vs_reserve(VM98);
7063          {object V656;          {object V654;
7064          check_arg(1);          check_arg(1);
7065          V656=(base[0]);          V654=(base[0]);
7066          vs_top=sup;          vs_top=sup;
7067  goto TTL;  goto TTL;
7068  TTL:;  TTL:;
7069          {long V657;          {long V655;
7070          V657= 0;          V655= 0;
7071          {register object V658;          {register object V656;
7072          object V659;          object V657;
7073          V658= (V656);          V656= (V654);
7074          V659= car((V658));          V657= car((V656));
7075  goto T2584;  goto T2584;
7076  T2584:;  T2584:;
7077          if(!(endp_prop((V658)))){          if(!(endp_prop((V656)))){
7078          goto T2585;}          goto T2585;}
7079          base[2]= make_fixnum(V657);          base[2]= make_fixnum(V655);
7080          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7081          return;          return;
7082  goto T2585;  goto T2585;
7083  T2585:;  T2585:;
7084          V660 = make_fixnum(V657);          V658 = make_fixnum(V655);
7085          base[2]= (V659);          base[2]= (V657);
7086          base[3]= base0[1];          base[3]= base0[1];
7087          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7088          (void) (*Lnk340)();          (void) (*Lnk342)();
7089          vs_top=sup;          vs_top=sup;
7090          V661= vs_base[0];          V659= vs_base[0];
7091          V657= fix(number_plus(V660,V661));          V655= fix(number_plus(V658,V659));
7092          V658= cdr((V658));          V656= cdr((V656));
7093          V659= car((V658));          V657= car((V656));
7094          goto T2584;}}          goto T2584;}}
7095          }          }
7096  }  }
# Line 7092  register object *base0; Line 7105  register object *base0;
7105          vs_top=sup;          vs_top=sup;
7106  goto TTL;  goto TTL;
7107  TTL:;  TTL:;
7108          {object V662;          {object V660;
7109          V664= nreverse(base0[7]);          V662= nreverse(base0[7]);
7110          base[0]= append(base0[2],/* INLINE-ARGS */V664);          base[0]= append(base0[2],/* INLINE-ARGS */V662);
7111          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7112          L33(base0);          L33(base0);
7113          vs_top=sup;          vs_top=sup;
7114          V663= vs_base[0];          V661= vs_base[0];
7115          base[1]= base0[8];          base[1]= base0[8];
7116          base[2]= VV[75];          base[2]= VV[75];
7117          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7118          Lreconc();          Lreconc();
7119          vs_top=sup;          vs_top=sup;
7120          V666= vs_base[0];          V664= vs_base[0];
7121          base[0]= append(base0[4],V666);          base[0]= append(base0[4],V664);
7122          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7123          L33(base0);          L33(base0);
7124          vs_top=sup;          vs_top=sup;
7125          V665= vs_base[0];          V663= vs_base[0];
7126          base[0]= base0[6];          base[0]= base0[6];
7127          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7128          L33(base0);          L33(base0);
7129          vs_top=sup;          vs_top=sup;
7130          V667= vs_base[0];          V665= vs_base[0];
7131          V668= make_cons(VV[76],V667);          V666= make_cons(VV[76],V665);
7132          V669= append(V665,/* INLINE-ARGS */V668);          V667= append(V663,/* INLINE-ARGS */V666);
7133          V670= make_cons(VV[74],/* INLINE-ARGS */V669);          V668= make_cons(VV[74],/* INLINE-ARGS */V667);
7134          V671= append(V663,/* INLINE-ARGS */V670);          V669= append(V661,/* INLINE-ARGS */V668);
7135          V662= make_cons(VV[73],/* INLINE-ARGS */V671);          V660= make_cons(VV[73],/* INLINE-ARGS */V669);
7136          if((base0[9])==Cnil){          if((base0[9])==Cnil){
7137          goto T2610;}          goto T2610;}
7138          V672= list(2,base0[9],Cnil);          V670= list(2,base0[9],Cnil);
7139          base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V672,Cnil),(V662));          base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V670,Cnil),(V660));
7140          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7141          return;          return;
7142  goto T2610;  goto T2610;
7143  T2610:;  T2610:;
7144          base[0]= (V662);          base[0]= (V660);
7145          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7146          return;}          return;}
7147  }  }
# Line 7139  register object *base0; Line 7152  register object *base0;
7152  {       register object *base=vs_base;  {       register object *base=vs_base;
7153          register object *sup=base+VM100; VC100          register object *sup=base+VM100; VC100
7154          vs_reserve(VM100);          vs_reserve(VM100);
7155          {object V673;          {object V671;
7156          check_arg(1);          check_arg(1);
7157          V673=(base[0]);          V671=(base[0]);
7158          vs_top=sup;          vs_top=sup;
7159  goto TTL;  goto TTL;
7160  TTL:;  TTL:;
7161          if((cdr((V673)))!=Cnil){          if((cdr((V671)))!=Cnil){
7162          goto T2613;}          goto T2613;}
7163          base[1]= car((V673));          base[1]= car((V671));
7164          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7165          return;          return;
7166  goto T2613;  goto T2613;
7167  T2613:;  T2613:;
7168          base[1]= make_cons(VV[14],(V673));          base[1]= make_cons(VV[14],(V671));
7169          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7170          return;          return;
7171          }          }
# Line 7164  register object *base0; Line 7177  register object *base0;
7177  {       register object *base=vs_base;  {       register object *base=vs_base;
7178          register object *sup=base+VM101; VC101          register object *sup=base+VM101; VC101
7179          vs_reserve(VM101);          vs_reserve(VM101);
7180          {object V674;          {object V672;
7181          check_arg(1);          check_arg(1);
7182          V674=(base[0]);          V672=(base[0]);
7183          vs_top=sup;          vs_top=sup;
7184  goto TTL;  goto TTL;
7185  TTL:;  TTL:;
7186          {register object V675;          {register object V673;
7187          V675= Cnil;          V673= Cnil;
7188          {register object V676;          {register object V674;
7189          register object V677;          register object V675;
7190          V676= (V674);          V674= (V672);
7191          V677= car((V676));          V675= car((V674));
7192  goto T2619;  goto T2619;
7193  T2619:;  T2619:;
7194          if(!(endp_prop((V676)))){          if(!(endp_prop((V674)))){
7195          goto T2620;}          goto T2620;}
7196          goto T2615;          goto T2615;
7197  goto T2620;  goto T2620;
7198  T2620:;  T2620:;
7199          if(((V677))==Cnil){          if(((V675))==Cnil){
7200          goto T2624;}          goto T2624;}
7201          {register object V678;          {register object V676;
7202          V678= (V677);          V676= (V675);
7203          V675= make_cons((V678),(V675));}          V673= make_cons((V676),(V673));}
7204          if(!(type_of((V677))==t_cons)){          if(!(type_of((V675))==t_cons)){
7205          goto T2624;}          goto T2624;}
7206          {register object x= car((V677)),V679= VV[72];          {register object x= car((V675)),V677= VV[72];
7207          while(!endp(V679))          while(!endp(V677))
7208          if(eql(x,V679->c.c_car)){          if(eql(x,V677->c.c_car)){
7209          goto T2633;          goto T2633;
7210          }else V679=V679->c.c_cdr;          }else V677=V677->c.c_cdr;
7211          goto T2624;}          goto T2624;}
7212  goto T2633;  goto T2633;
7213  T2633:;  T2633:;
7214          goto T2615;          goto T2615;
7215  goto T2624;  goto T2624;
7216  T2624:;  T2624:;
7217          V676= cdr((V676));          V674= cdr((V674));
7218          V677= car((V676));          V675= car((V674));
7219          goto T2619;}          goto T2619;}
7220  goto T2615;  goto T2615;
7221  T2615:;  T2615:;
7222          base[1]= nreverse((V675));          base[1]= nreverse((V673));
7223          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7224          return;}          return;}
7225          }          }
# Line 7218  register object *base0; Line 7231  register object *base0;
7231  {       register object *base=vs_base;  {       register object *base=vs_base;
7232          register object *sup=base+VM102; VC102          register object *sup=base+VM102; VC102
7233          vs_reserve(VM102);          vs_reserve(VM102);
7234          {object V680;          {object V678;
7235          check_arg(1);          check_arg(1);
7236          V680=(base[0]);          V678=(base[0]);
7237          vs_top=sup;          vs_top=sup;
7238  goto TTL;  goto TTL;
7239  TTL:;  TTL:;
7240          {register object V681;          {register object V679;
7241          V681= (V680);          V679= (V678);
7242  goto T2640;  goto T2640;
7243  T2640:;  T2640:;
7244          if(type_of((V681))==t_cons){          if(type_of((V679))==t_cons){
7245          goto T2641;}          goto T2641;}
7246          base[1]= (V681);          base[1]= (V679);
7247          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7248          return;          return;
7249  goto T2641;  goto T2641;
7250  T2641:;  T2641:;
7251          {register object V682;          {register object V680;
7252          V682= car((V681));          V680= car((V679));
7253          V681= cdr((V681));          V679= cdr((V679));
7254          base[1]= (V682);}          base[1]= (V680);}
7255          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7256          L27(base0);          L27(base0);
7257          vs_top=sup;          vs_top=sup;
# Line 7259  register object *base0; Line 7272  register object *base0;
7272  {       register object *base=vs_base;  {       register object *base=vs_base;
7273          register object *sup=base+VM103; VC103          register object *sup=base+VM103; VC103
7274          vs_reserve(VM103);          vs_reserve(VM103);
7275          {register object V683;          {register object V681;
7276          register object V684;          register object V682;
7277          object V685;          object V683;
7278          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
7279          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
7280          V683=(base[0]);          V681=(base[0]);
7281          V684=(base[1]);          V682=(base[1]);
7282          vs_base=vs_base+2;          vs_base=vs_base+2;
7283          if(vs_base>=vs_top){vs_top=sup;goto T2654;}          if(vs_base>=vs_top){vs_top=sup;goto T2654;}
7284          V685=(base[2]);          V683=(base[2]);
7285          vs_top=sup;          vs_top=sup;
7286          goto T2655;          goto T2655;
7287  goto T2654;  goto T2654;
7288  T2654:;  T2654:;
7289          V685= Cnil;          V683= Cnil;
7290  goto T2655;  goto T2655;
7291  T2655:;  T2655:;
7292          {register object V686;          {register object V684;
7293          V686= (V683);          V684= (V681);
7294          if(!(((V686))==Cnil)){          if(!(((V684))==Cnil)){
7295          goto T2658;}          goto T2658;}
7296          if(!(type_of((V684))==t_cons)){          if(!(type_of((V682))==t_cons)){
7297          goto T2661;}          goto T2661;}
7298          if(!((car((V684)))==(VV[62]))){          if(!((car((V682)))==(VV[62]))){
7299          goto T2664;}          goto T2664;}
7300          {object V687;          {object V685;
7301          object V688= cdr((V684));          object V686= cdr((V682));
7302          if(endp(V688)){          if(endp(V686)){
7303          base[4]= Cnil;          base[4]= Cnil;
7304          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7305          return;}          return;}
7306          base[3]=V687=MMcons(Cnil,Cnil);          base[3]=V685=MMcons(Cnil,Cnil);
7307  goto T2666;  goto T2666;
7308  T2666:;  T2666:;
7309          {register object V689;          {register object V687;
7310          V689= (V688->c.c_car);          V687= (V686->c.c_car);
7311          if(type_of((V689))==t_cons){          if(type_of((V687))==t_cons){
7312          goto T2668;}          goto T2668;}
7313          (V687->c.c_cdr)= Cnil;          (V685->c.c_cdr)= Cnil;
7314          goto T2667;          goto T2667;
7315  goto T2668;  goto T2668;
7316  T2668:;  T2668:;
7317          if(!((((car((V689)))==(VV[65])?Ct:Cnil))==Cnil)){          if(!((((car((V687)))==(VV[65])?Ct:Cnil))==Cnil)){
7318          goto T2672;}          goto T2672;}
7319          goto T2670;          goto T2670;
7320  goto T2672;  goto T2672;
7321  T2672:;  T2672:;
7322          if(!(((type_of(cadr((V689)))==t_symbol?Ct:Cnil))==Cnil)){          if(!(((type_of(cadr((V687)))==t_symbol?Ct:Cnil))==Cnil)){
7323          goto T2674;}          goto T2674;}
7324          goto T2670;          goto T2670;
7325  goto T2674;  goto T2674;
7326  T2674:;  T2674:;
7327          base[4]= (V689);          base[4]= (V687);
7328          base[5]= base0[1];          base[5]= base0[1];
7329          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7330          Lmacroexpand();          Lmacroexpand();
7331          vs_top=sup;          vs_top=sup;
7332          V689= vs_base[0];          V687= vs_base[0];
7333          if(((type_of((V689))==t_symbol?Ct:Cnil))==Cnil){          if(((type_of((V687))==t_symbol?Ct:Cnil))==Cnil){
7334          goto T2670;}          goto T2670;}
7335          (V687->c.c_cdr)= Cnil;          (V685->c.c_cdr)= Cnil;
7336          goto T2667;          goto T2667;
7337  goto T2670;  goto T2670;
7338  T2670:;  T2670:;
7339          (V687->c.c_cdr)= make_cons((V689),Cnil);}          (V685->c.c_cdr)= make_cons((V687),Cnil);}
7340  goto T2667;  goto T2667;
7341  T2667:;  T2667:;
7342          {object cdr_V687=MMcdr(V687);while(!endp(cdr_V687)) {cdr_V687=MMcdr(cdr_V687);V687=MMcdr(V687);}}          {object cdr_V685=MMcdr(V685);while(!endp(cdr_V685)) {cdr_V685=MMcdr(cdr_V685);V685=MMcdr(V685);}}
7343          V688=MMcdr(V688);          V686=MMcdr(V686);
7344          if(endp(V688)){          if(endp(V686)){
7345          base[3]=base[3]->c.c_cdr;          base[3]=base[3]->c.c_cdr;
7346          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7347          return;}          return;}
7348          goto T2666;}          goto T2666;}
7349  goto T2664;  goto T2664;
7350  T2664:;  T2664:;
7351          base[3]= make_cons((V684),Cnil);          base[3]= make_cons((V682),Cnil);
7352          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7353          return;          return;
7354  goto T2661;  goto T2661;
# Line 7345  T2661:; Line 7358  T2661:;
7358          return;          return;
7359  goto T2658;  goto T2658;
7360  T2658:;  T2658:;
7361          if(!(type_of((V686))==t_cons)){          if(!(type_of((V684))==t_cons)){
7362          goto T2680;}          goto T2680;}
7363          {object V690;          {object V688;
7364            object V689;
7365            object V690;
7366          object V691;          object V691;
7367          object V692;          V688= car((V681));
7368          object V693;          V689= cdr((V681));
7369          V690= car((V683));          base[7]= (V688);
         V691= cdr((V683));  
         base[7]= (V690);  
7370          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
7371          L27(base0);          L27(base0);
7372          vs_top=sup;          vs_top=sup;
7373          V692= vs_base[0];          V690= vs_base[0];
7374          base[7]= (V691);          base[7]= (V689);
7375          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
7376          L27(base0);          L27(base0);
7377          vs_top=sup;          vs_top=sup;
7378          V693= vs_base[0];          V691= vs_base[0];
7379          if(((V692))!=Cnil){          if(((V690))!=Cnil){
7380          goto T2688;}          goto T2688;}
7381          if(((V693))==Cnil){          if(((V691))==Cnil){
7382          goto T2689;}          goto T2689;}
7383  goto T2688;  goto T2688;
7384  T2688:;  T2688:;
7385          if(((V693))==Cnil){          if(((V691))==Cnil){
7386          goto T2694;}          goto T2694;}
7387          {register object V695;          {register object V693;
7388          object V696;          object V694;
7389          if((V685)!=Cnil){          if((V683)!=Cnil){
7390          V695= (V685);          V693= (V683);
7391          goto T2696;}          goto T2696;}
7392          V695= symbol_value(VV[66]);          V693= symbol_value(VV[66]);
7393  goto T2696;  goto T2696;
7394  T2696:;  T2696:;
7395          base[9]= (V690);          base[9]= (V688);
7396          base[10]= list(2,VV[65],(V695));          base[10]= list(2,VV[65],(V693));
7397          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
7398          L28(base0);          L28(base0);
7399          vs_top=sup;          vs_top=sup;
7400          V697= vs_base[0];          V695= vs_base[0];
7401          V698= list(3,VV[11],(V695),list(2,VV[10],(V695)));          V696= list(3,VV[11],(V693),list(2,VV[10],(V693)));
7402          base[9]= (V691);          base[9]= (V689);
7403          base[10]= (V695);          base[10]= (V693);
7404          base[11]= (V695);          base[11]= (V693);
7405          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
7406          L28(base0);          L28(base0);
7407          vs_top=sup;          vs_top=sup;
7408          V699= vs_base[0];          V697= vs_base[0];
7409          V700= make_cons(/* INLINE-ARGS */V698,V699);          V698= make_cons(/* INLINE-ARGS */V696,V697);
7410          V696= append(V697,/* INLINE-ARGS */V700);          V694= append(V695,/* INLINE-ARGS */V698);
7411          if((V685)==Cnil){          if((V683)==Cnil){
7412          goto T2706;}          goto T2706;}
7413          if(((V695))==((V684))){          if(((V693))==((V682))){
7414          goto T2710;}          goto T2710;}
7415          V702= list(3,VV[11],(V695),(V684));          V700= list(3,VV[11],(V693),(V682));
7416          V701= make_cons(/* INLINE-ARGS */V702,Cnil);          V699= make_cons(/* INLINE-ARGS */V700,Cnil);
7417          goto T2708;          goto T2708;
7418  goto T2710;  goto T2710;
7419  T2710:;  T2710:;
7420          V701= Cnil;          V699= Cnil;
7421  goto T2708;  goto T2708;
7422  T2708:;  T2708:;
7423          base[9]= append(V701,(V696));          base[9]= append(V699,(V694));
7424          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7425          return;          return;
7426  goto T2706;  goto T2706;
7427  T2706:;  T2706:;
7428          V703= list(2,(V695),(V684));          V701= list(2,(V693),(V682));
7429          V704= listA(3,VV[29],make_cons(/* INLINE-ARGS */V703,Cnil),(V696));          V702= listA(3,VV[29],make_cons(/* INLINE-ARGS */V701,Cnil),(V694));
7430          base[9]= make_cons(/* INLINE-ARGS */V704,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V702,Cnil);
7431          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7432          return;}          return;}
7433  goto T2694;  goto T2694;
7434  T2694:;  T2694:;
7435          base[7]= (V690);          base[7]= (V688);
7436          base[8]= list(2,VV[65],(V684));          base[8]= list(2,VV[65],(V682));
7437          base[9]= (V685);          base[9]= (V683);
7438          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
7439          L28(base0);          L28(base0);
7440          return;          return;
# Line 7432  T2689:; Line 7445  T2689:;
7445          return;}          return;}
7446  goto T2680;  goto T2680;
7447  T2680:;  T2680:;
7448          if(((V683))==((V684))){          if(((V681))==((V682))){
7449          goto T2716;}          goto T2716;}
7450          V705= list(3,VV[11],(V683),(V684));          V703= list(3,VV[11],(V681),(V682));
7451          base[3]= make_cons(/* INLINE-ARGS */V705,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V703,Cnil);
7452          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7453          return;          return;
7454  goto T2716;  goto T2716;
# Line 7452  register object *base0; Line 7465  register object *base0;
7465  {       register object *base=vs_base;  {       register object *base=vs_base;
7466          register object *sup=base+VM104; VC104          register object *sup=base+VM104; VC104
7467          vs_reserve(VM104);          vs_reserve(VM104);
7468          {object V706;          {object V704;
7469          check_arg(1);          check_arg(1);
7470          V706=(base[0]);          V704=(base[0]);
7471          vs_top=sup;          vs_top=sup;
7472  goto TTL;  goto TTL;
7473  TTL:;  TTL:;
7474          {object V707;          {object V705;
7475          object V708;          object V706;
7476          V707= make_fixnum((long)length((V706)));          V705= make_fixnum((long)length((V704)));
7477          base[3]= VV[61];          base[3]= VV[61];
7478          if(!(number_compare((V707),small_fixnum(10))<0)){          if(!(number_compare((V705),small_fixnum(10))<0)){
7479          goto T2723;}          goto T2723;}
7480          base[4]= small_fixnum(10);          base[4]= small_fixnum(10);
7481          goto T2721;          goto T2721;
7482  goto T2723;  goto T2723;
7483  T2723:;  T2723:;
7484          base[4]= (V707);          base[4]= (V705);
7485  goto T2721;  goto T2721;
7486  T2721:;  T2721:;
7487          base[5]= VV[20];          base[5]= VV[20];
7488          base[6]= symbol_function(VV[399]);          base[6]= symbol_function(VV[401]);
7489          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
7490          Lmake_hash_table();          Lmake_hash_table();
7491          vs_top=sup;          vs_top=sup;
7492          V708= vs_base[0];          V706= vs_base[0];
7493          {register object V709;          {register object V707;
7494          register object V710;          register object V708;
7495          V709= (V706);          V707= (V704);
7496          V710= car((V709));          V708= car((V707));
7497  goto T2731;  goto T2731;
7498  T2731:;  T2731:;
7499          if(!(endp_prop((V709)))){          if(!(endp_prop((V707)))){
7500          goto T2732;}          goto T2732;}
7501          goto T2727;          goto T2727;
7502  goto T2732;  goto T2732;
7503  T2732:;  T2732:;
7504          {object V711;          {object V709;
7505          object V713;          object V711;
7506          V711= symbol_name(car((V710)));          V709= symbol_name(car((V708)));
7507          V713= cadr((V710));          V711= cadr((V708));
7508          base[6]= (V711);          base[6]= (V709);
7509          base[7]= V708;          base[7]= V706;
7510          base[8]= (V713);          base[8]= (V711);
7511          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
7512          siLhash_set();          siLhash_set();
7513          vs_top=sup;}          vs_top=sup;}
7514          V709= cdr((V709));          V707= cdr((V707));
7515          V710= car((V709));          V708= car((V707));
7516          goto T2731;}          goto T2731;}
7517  goto T2727;  goto T2727;
7518  T2727:;  T2727:;
7519          base[3]= (V708);          base[3]= (V706);
7520          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7521          return;}          return;}
7522          }          }
# Line 7515  register object *base0; Line 7528  register object *base0;
7528  {       register object *base=vs_base;  {       register object *base=vs_base;
7529          register object *sup=base+VM105; VC105          register object *sup=base+VM105; VC105
7530          vs_reserve(VM105);          vs_reserve(VM105);
7531          {register object V714;          {register object V712;
7532          register long V715;          register long V713;
7533          check_arg(2);          check_arg(2);
7534          V714=(base[0]);          V712=(base[0]);
7535          V715=fix(base[1]);          V713=fix(base[1]);
7536          vs_top=sup;          vs_top=sup;
7537  goto TTL;  goto TTL;
7538  TTL:;  TTL:;
7539  goto T2748;  goto T2748;
7540  T2748:;  T2748:;
7541          if(!((V715)<=(4))){          if(!((V713)<=(4))){
7542          goto T2749;}switch(V715){          goto T2749;}switch(V713){
7543          case 1:          case 1:
7544  goto T2755;  goto T2755;
7545  T2755:;  T2755:;
7546          V716= VV[10];          V714= VV[10];
7547          goto T2753;          goto T2753;
7548          case 2:          case 2:
7549  goto T2756;  goto T2756;
7550  T2756:;  T2756:;
7551          V716= VV[15];          V714= VV[15];
7552          goto T2753;          goto T2753;
7553          case 3:          case 3:
7554  goto T2757;  goto T2757;
7555  T2757:;  T2757:;
7556          V716= VV[16];          V714= VV[16];
7557          goto T2753;          goto T2753;
7558          case 4:          case 4:
7559  goto T2758;  goto T2758;
7560  T2758:;  T2758:;
7561          V716= VV[17];          V714= VV[17];
7562          goto T2753;          goto T2753;
7563          default:          default:
7564  goto T2759;  goto T2759;
7565  T2759:;  T2759:;
7566          V716= Cnil;          V714= Cnil;
7567          goto T2753;}          goto T2753;}
7568          V716= Cnil;          V714= Cnil;
7569  goto T2753;  goto T2753;
7570  T2753:;  T2753:;
7571          V714= list(2,V716,(V714));          V712= list(2,V714,(V712));
7572          base[2]= (V714);          base[2]= (V712);
7573          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7574          return;          return;
7575  goto T2749;  goto T2749;
7576  T2749:;  T2749:;
7577          V714= list(2,VV[17],(V714));          V712= list(2,VV[17],(V712));
7578          V715= (long)(V715)-(4);          V713= (long)(V713)-(4);
7579          goto T2748;          goto T2748;
7580          }          }
7581  }  }
7582  static void LnkT398(){ call_or_link(VV[398],(void **)&Lnk398);} /* LOOP-STANDARD-EXPANSION */  static void LnkT400(){ call_or_link(VV[400],(void **)&Lnk400);} /* LOOP-STANDARD-EXPANSION */
7583  static void LnkT397(){ call_or_link(VV[397],(void **)&Lnk397);} /* LOOP-TRANSLATE */  static void LnkT399(){ call_or_link(VV[399],(void **)&Lnk399);} /* LOOP-TRANSLATE */
7584  static void LnkT396(){ call_or_link(VV[396],(void **)&Lnk396);} /* ADD-LOOP-PATH */  static void LnkT398(){ call_or_link(VV[398],(void **)&Lnk398);} /* ADD-LOOP-PATH */
7585  static void LnkT395(){ call_or_link(VV[395],(void **)&Lnk395);} /* MAKE-STANDARD-LOOP-UNIVERSE */  static void LnkT397(){ call_or_link(VV[397],(void **)&Lnk397);} /* MAKE-STANDARD-LOOP-UNIVERSE */
7586  static void LnkT392(){ call_or_link(VV[392],(void **)&Lnk392);} /* NAMED-VARIABLE */  static void LnkT394(){ call_or_link(VV[394],(void **)&Lnk394);} /* NAMED-VARIABLE */
7587  static void LnkT387(){ call_or_link(VV[387],(void **)&Lnk387);} /* LOOP-SEQUENCER */  static void LnkT389(){ call_or_link(VV[389],(void **)&Lnk389);} /* LOOP-SEQUENCER */
7588  static object  LnkTLI384(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[384],(void **)&LnkLI384,ap);va_end(ap);return V1;} /* DELETE */  static object  LnkTLI386(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[386],(void **)&LnkLI386,ap);va_end(ap);return V1;} /* DELETE */
7589  static void LnkT383(){ call_or_link(VV[383],(void **)&Lnk383);} /* LOOP-TASSOC */  static void LnkT385(){ call_or_link(VV[385],(void **)&Lnk385);} /* LOOP-TASSOC */
7590  static void LnkT382(){ call_or_link(VV[382],(void **)&Lnk382);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */  static void LnkT384(){ call_or_link(VV[384],(void **)&Lnk384);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */
7591  static void LnkT381(){ call_or_link(VV[381],(void **)&Lnk381);} /* MAKE-LOOP-PATH */  static void LnkT383(){ call_or_link(VV[383],(void **)&Lnk383);} /* MAKE-LOOP-PATH */
7592  static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* STRUCTURE-SUBTYPE-P */  static void LnkT382(){ call_or_link(VV[382],(void **)&Lnk382);} /* STRUCTURE-SUBTYPE-P */
7593  static void LnkT379(){ call_or_link(VV[379],(void **)&Lnk379);} /* LOOP-LIST-STEP */  static void LnkT381(){ call_or_link(VV[381],(void **)&Lnk381);} /* LOOP-LIST-STEP */
7594  static void LnkT378(){ call_or_link(VV[378],(void **)&Lnk378);} /* LOOP-MAKE-ITERATION-VARIABLE */  static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* LOOP-MAKE-ITERATION-VARIABLE */
7595  static void LnkT377(){ call_or_link(VV[377],(void **)&Lnk377);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */  static void LnkT379(){ call_or_link(VV[379],(void **)&Lnk379);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */
7596  static void LnkT376(){ call_or_link(VV[376],(void **)&Lnk376);} /* LOOP-WHEN-IT-VARIABLE */  static void LnkT378(){ call_or_link(VV[378],(void **)&Lnk378);} /* LOOP-WHEN-IT-VARIABLE */
7597  static void LnkT375(){ call_or_link(VV[375],(void **)&Lnk375);} /* LOOP-NOTE-MINIMAX-OPERATION */  static void LnkT377(){ call_or_link(VV[377],(void **)&Lnk377);} /* LOOP-NOTE-MINIMAX-OPERATION */
7598  static void LnkT374(){ call_or_link(VV[374],(void **)&Lnk374);} /* MAKE-LOOP-MINIMAX */  static void LnkT376(){ call_or_link(VV[376],(void **)&Lnk376);} /* MAKE-LOOP-MINIMAX */
7599  static void LnkT373(){ call_or_link(VV[373],(void **)&Lnk373);} /* LOOP-CHECK-DATA-TYPE */  static void LnkT375(){ call_or_link(VV[375],(void **)&Lnk375);} /* LOOP-CHECK-DATA-TYPE */
7600  static void LnkT370(){ call_or_link(VV[370],(void **)&Lnk370);} /* LOOP-EMIT-FINAL-VALUE */  static void LnkT372(){ call_or_link(VV[372],(void **)&Lnk372);} /* LOOP-EMIT-FINAL-VALUE */
7601  static void LnkT369(){ call_or_link(VV[369],(void **)&Lnk369);} /* LOOP-GET-COLLECTION-INFO */  static void LnkT371(){ call_or_link(VV[371],(void **)&Lnk371);} /* LOOP-GET-COLLECTION-INFO */
7602  static void LnkT368(){ call_or_link(VV[368],(void **)&Lnk368);} /* MAKE-LOOP-COLLECTOR */  static void LnkT370(){ call_or_link(VV[370],(void **)&Lnk370);} /* MAKE-LOOP-COLLECTOR */
7603  static object  LnkTLI366(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[366],(void **)&LnkLI366,ap);va_end(ap);return V1;} /* FIND */  static object  LnkTLI368(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[368],(void **)&LnkLI368,ap);va_end(ap);return V1;} /* FIND */
7604  static void LnkT365(){ call_or_link(VV[365],(void **)&Lnk365);} /* LOOP-OPTIONAL-TYPE */  static void LnkT367(){ call_or_link(VV[367],(void **)&Lnk367);} /* LOOP-OPTIONAL-TYPE */
7605  static void LnkT362(){ call_or_link(VV[362],(void **)&Lnk362);} /* LOOP-EMIT-BODY */  static void LnkT364(){ call_or_link(VV[364],(void **)&Lnk364);} /* LOOP-EMIT-BODY */
7606  static void LnkT361(){ call_or_link(VV[361],(void **)&Lnk361);} /* LOOP-GET-PROGN */  static void LnkT363(){ call_or_link(VV[363],(void **)&Lnk363);} /* LOOP-GET-PROGN */
7607  static void LnkT360(){ call_or_link(VV[360],(void **)&Lnk360);} /* LOOP-DISALLOW-CONDITIONAL */  static void LnkT362(){ call_or_link(VV[362],(void **)&Lnk362);} /* LOOP-DISALLOW-CONDITIONAL */
7608  static void LnkT359(){ call_or_link(VV[359],(void **)&Lnk359);} /* LOOP-GET-FORM */  static void LnkT361(){ call_or_link(VV[361],(void **)&Lnk361);} /* LOOP-GET-FORM */
7609  static void LnkT358(){ call_or_link(VV[358],(void **)&Lnk358);} /* LOOP-CONSTANTP */  static void LnkT360(){ call_or_link(VV[360],(void **)&Lnk360);} /* LOOP-CONSTANTP */
7610  static void LnkT357(){ call_or_link(VV[357],(void **)&Lnk357);} /* LOOP-MAKE-VARIABLE */  static void LnkT359(){ call_or_link(VV[359],(void **)&Lnk359);} /* LOOP-MAKE-VARIABLE */
7611  static void LnkT356(){ call_or_link(VV[356],(void **)&Lnk356);} /* LOOP-DECLARE-VARIABLE */  static void LnkT358(){ call_or_link(VV[358],(void **)&Lnk358);} /* LOOP-DECLARE-VARIABLE */
7612  static void LnkT355(){ call_or_link(VV[355],(void **)&Lnk355);} /* LOOP-TEQUAL */  static void LnkT357(){ call_or_link(VV[357],(void **)&Lnk357);} /* LOOP-TEQUAL */
7613  static object  LnkTLI354(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[354],(void **)&LnkLI354,2,ap);va_end(ap);return V1;} /* COERCE */  static object  LnkTLI356(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[356],(void **)&LnkLI356,2,ap);va_end(ap);return V1;} /* COERCE */
7614  static void LnkT353(){ call_or_link(VV[353],(void **)&Lnk353);} /* LOOP-CONSTRUCT-RETURN */  static void LnkT355(){ call_or_link(VV[355],(void **)&Lnk355);} /* LOOP-CONSTRUCT-RETURN */
7615  static void LnkT352(){ call_or_link(VV[352],(void **)&Lnk352);} /* LOOP-PSEUDO-BODY */  static void LnkT354(){ call_or_link(VV[354],(void **)&Lnk354);} /* LOOP-PSEUDO-BODY */
7616  static void LnkT351(){ call_or_link(VV[351],(void **)&Lnk351);} /* LOOP-TMEMBER */  static void LnkT353(){ call_or_link(VV[353],(void **)&Lnk353);} /* LOOP-TMEMBER */
7617  static void LnkT350(){ call_or_link(VV[350],(void **)&Lnk350);} /* LOOP-HACK-ITERATION */  static void LnkT352(){ call_or_link(VV[352],(void **)&Lnk352);} /* LOOP-HACK-ITERATION */
7618  static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* LOOP-LOOKUP-KEYWORD */  static void LnkT351(){ call_or_link(VV[351],(void **)&Lnk351);} /* LOOP-LOOKUP-KEYWORD */
7619  static void LnkT348(){ call_or_link(VV[348],(void **)&Lnk348);} /* LOOP-POP-SOURCE */  static void LnkT350(){ call_or_link(VV[350],(void **)&Lnk350);} /* LOOP-POP-SOURCE */
7620  static void LnkT347(){ call_or_link(VV[347],(void **)&Lnk347);} /* LOOP-BIND-BLOCK */  static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* LOOP-BIND-BLOCK */
7621  static void LnkT346(){ call_or_link(VV[346],(void **)&Lnk346);} /* LOOP-ITERATION-DRIVER */  static void LnkT348(){ call_or_link(VV[348],(void **)&Lnk348);} /* LOOP-ITERATION-DRIVER */
7622  static void LnkT345(){ call_or_link(VV[345],(void **)&Lnk345);} /* LOOP-ERROR */  static void LnkT347(){ call_or_link(VV[347],(void **)&Lnk347);} /* LOOP-ERROR */
7623  static void LnkT324(){ call_or_link(VV[324],(void **)&Lnk324);} /* SUBTYPEP */  static void LnkT326(){ call_or_link(VV[326],(void **)&Lnk326);} /* SUBTYPEP */
7624  static object  LnkTLI344(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[344],(void **)&LnkLI344,ap);va_end(ap);return V1;} /* WARN */  static object  LnkTLI346(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[346],(void **)&LnkLI346,ap);va_end(ap);return V1;} /* WARN */
7625  static void LnkT343(){ call_or_link(VV[343],(void **)&Lnk343);} /* SPECIFIC-ERROR */  static void LnkT345(){ call_or_link(VV[345],(void **)&Lnk345);} /* SPECIFIC-ERROR */
7626  static void LnkT342(){ call_or_link(VV[342],(void **)&Lnk342);} /* LOOP-CONTEXT */  static void LnkT344(){ call_or_link(VV[344],(void **)&Lnk344);} /* LOOP-CONTEXT */
7627  static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* SPECIAL-OPERATOR-P */  static void LnkT343(){ call_or_link(VV[343],(void **)&Lnk343);} /* SPECIAL-OPERATOR-P */
7628  static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* ESTIMATE-CODE-SIZE-1 */  static void LnkT342(){ call_or_link(VV[342],(void **)&Lnk342);} /* ESTIMATE-CODE-SIZE-1 */
7629  static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* DESTRUCTURING-SIZE */  static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* DESTRUCTURING-SIZE */
7630  static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* ESTIMATE-CODE-SIZE */  static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* ESTIMATE-CODE-SIZE */
7631  static void LnkT338(){ call_or_link(VV[338],(void **)&Lnk338);} /* LOOP-CODE-DUPLICATION-THRESHOLD */  static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* LOOP-CODE-DUPLICATION-THRESHOLD */
7632  static void LnkT337(){ call_or_link(VV[337],(void **)&Lnk337);} /* LOOP-OPTIMIZATION-QUANTITIES */  static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* LOOP-OPTIMIZATION-QUANTITIES */
7633  static void LnkT336(){ call_or_link(VV[336],(void **)&Lnk336);} /* LOOP-WARN */  static void LnkT338(){ call_or_link(VV[338],(void **)&Lnk338);} /* LOOP-WARN */
7634  static void LnkT335(){ call_or_link(VV[335],(void **)&Lnk335);} /* LOOP-MAKE-DESETQ */  static void LnkT337(){ call_or_link(VV[337],(void **)&Lnk337);} /* LOOP-MAKE-DESETQ */
7635  static void LnkT334(){ call_or_link(VV[334],(void **)&Lnk334);} /* LOOP-MAKE-PSETQ */  static void LnkT336(){ call_or_link(VV[336],(void **)&Lnk336);} /* LOOP-MAKE-PSETQ */
7636  static void LnkT333(){ call_or_link(VV[333],(void **)&Lnk333);} /* MAKE-LOOP-UNIVERSE */  static void LnkT335(){ call_or_link(VV[335],(void **)&Lnk335);} /* MAKE-LOOP-UNIVERSE */
7637  static void LnkT331(){ call_or_link(VV[331],(void **)&Lnk331);} /* TYPEP */  static void LnkT333(){ call_or_link(VV[333],(void **)&Lnk333);} /* TYPEP */
7638  static void LnkT329(){ call_or_link(VV[329],(void **)&Lnk329);} /* HIDE-VARIABLE-REFERENCE */  static void LnkT331(){ call_or_link(VV[331],(void **)&Lnk331);} /* HIDE-VARIABLE-REFERENCE */
7639  static void LnkT327(){ call_or_link(VV[327],(void **)&Lnk327);} /* LOOP-TYPED-INIT */  static void LnkT329(){ call_or_link(VV[329],(void **)&Lnk329);} /* LOOP-TYPED-INIT */
7640  static void LnkT326(){ call_or_link(VV[326],(void **)&Lnk326);} /* MAKE-LOOP-MINIMAX-INTERNAL */  static void LnkT328(){ call_or_link(VV[328],(void **)&Lnk328);} /* MAKE-LOOP-MINIMAX-INTERNAL */
7641  static void LnkT325(){ call_or_link(VV[325],(void **)&Lnk325);} /* LOOP-GENTEMP */  static void LnkT327(){ call_or_link(VV[327],(void **)&Lnk327);} /* LOOP-GENTEMP */
7642    
7643  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
7644  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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