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

Diff of /gcl/lsp/describe.c

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

revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.7 by camm, Mon Oct 14 05:24:43 2002 UTC
# Line 1784  T702:; Line 1784  T702:;
1784  goto T701;  goto T701;
1785  T701:;  T701:;
1786          (VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1));          (VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1));
1787          setq(VV[103],make_cons((V125),symbol_value(VV[103])));          setq(VV[103],make_cons(V125,symbol_value(VV[103])));
1788          frs_push(FRS_CATCH,VV[17]);          frs_push(FRS_CATCH,VV[17]);
1789          if(nlj_active)          if(nlj_active)
1790          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
# Line 1793  T701:; Line 1793  T701:;
1793          else{          else{
1794          if(!(type_of((V125))==t_symbol)){          if(!(type_of((V125))==t_symbol)){
1795          goto T715;}          goto T715;}
1796          V127= (*(LnkLI182))((V125));          V128= (*(LnkLI182))((V125));
1797          frs_pop();          frs_pop();
1798          base[2]= V127;          base[2]= V128;
1799          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1800          bds_unwind1;          bds_unwind1;
1801          return;          return;
# Line 1807  T715:; Line 1807  T715:;
1807          vs_top=sup;          vs_top=sup;
1808          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1809          goto T718;}          goto T718;}
1810          V128= (*(LnkLI183))((V125));          V129= (*(LnkLI183))((V125));
1811          frs_pop();          frs_pop();
1812          base[2]= V128;          base[2]= V129;
1813          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1814          bds_unwind1;          bds_unwind1;
1815          return;          return;
# Line 1817  goto T718; Line 1817  goto T718;
1817  T718:;  T718:;
1818          if(!(type_of((V125))==t_character)){          if(!(type_of((V125))==t_character)){
1819          goto T722;}          goto T722;}
1820          V129= (*(LnkLI184))((V125));          V130= (*(LnkLI184))((V125));
1821          frs_pop();          frs_pop();
1822          base[2]= V129;          base[2]= V130;
1823          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1824          bds_unwind1;          bds_unwind1;
1825          return;          return;
# Line 1832  type_of((V125))==t_shortfloat|| Line 1832  type_of((V125))==t_shortfloat||
1832  type_of((V125))==t_longfloat||  type_of((V125))==t_longfloat||
1833  type_of((V125))==t_complex)){  type_of((V125))==t_complex)){
1834          goto T725;}          goto T725;}
1835          V130= (*(LnkLI185))((V125));          V131= (*(LnkLI185))((V125));
1836          frs_pop();          frs_pop();
1837          base[2]= V130;          base[2]= V131;
1838          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1839          bds_unwind1;          bds_unwind1;
1840          return;          return;
# Line 1842  goto T725; Line 1842  goto T725;
1842  T725:;  T725:;
1843          if(!(type_of((V125))==t_cons)){          if(!(type_of((V125))==t_cons)){
1844          goto T728;}          goto T728;}
1845          V131= (*(LnkLI186))((V125));          V132= (*(LnkLI186))((V125));
1846          frs_pop();          frs_pop();
1847          base[2]= V131;          base[2]= V132;
1848          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1849          bds_unwind1;          bds_unwind1;
1850          return;          return;
# Line 1852  goto T728; Line 1852  goto T728;
1852  T728:;  T728:;
1853          if(!(type_of((V125))==t_string)){          if(!(type_of((V125))==t_string)){
1854          goto T731;}          goto T731;}
1855          V132= (*(LnkLI187))((V125));          V133= (*(LnkLI187))((V125));
1856          frs_pop();          frs_pop();
1857          base[2]= V132;          base[2]= V133;
1858          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1859          bds_unwind1;          bds_unwind1;
1860          return;          return;
# Line 1864  T731:; Line 1864  T731:;
1864  type_of((V125))==t_string||  type_of((V125))==t_string||
1865  type_of((V125))==t_bitvector)){  type_of((V125))==t_bitvector)){
1866          goto T734;}          goto T734;}
1867          V133= (*(LnkLI188))((V125));          V134= (*(LnkLI188))((V125));
1868          frs_pop();          frs_pop();
1869          base[2]= V133;          base[2]= V134;
1870          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1871          bds_unwind1;          bds_unwind1;
1872          return;          return;
# Line 1877  type_of((V125))==t_vector|| Line 1877  type_of((V125))==t_vector||
1877  type_of((V125))==t_string||  type_of((V125))==t_string||
1878  type_of((V125))==t_bitvector)){  type_of((V125))==t_bitvector)){
1879          goto T737;}          goto T737;}
1880          V134= (*(LnkLI189))((V125));          V135= (*(LnkLI189))((V125));
1881          frs_pop();          frs_pop();
1882          base[2]= V134;          base[2]= V135;
1883          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1884          bds_unwind1;          bds_unwind1;
1885          return;          return;
# Line 1887  goto T737; Line 1887  goto T737;
1887  T737:;  T737:;
1888          if(!(type_of((V125))==t_structure)){          if(!(type_of((V125))==t_structure)){
1889          goto T740;}          goto T740;}
1890          V135= (*(LnkLI190))((V125));          V136= (*(LnkLI190))((V125));
1891          frs_pop();          frs_pop();
1892          base[2]= V135;          base[2]= V136;
1893          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1894          bds_unwind1;          bds_unwind1;
1895          return;          return;
# Line 1917  static void L17() Line 1917  static void L17()
1917          register object *VOL sup=base+VM18; VC18          register object *VOL sup=base+VM18; VC18
1918          vs_reserve(VM18);          vs_reserve(VM18);
1919          bds_check;          bds_check;
1920          {VOL object V136;          {VOL object V137;
1921          check_arg(1);          check_arg(1);
1922          V136=(base[0]);          V137=(base[0]);
1923          vs_top=sup;          vs_top=sup;
1924  goto TTL;  goto TTL;
1925  TTL:;  TTL:;
# Line 1935  TTL:; Line 1935  TTL:;
1935          vs_top=sup;          vs_top=sup;
1936          goto T748;}          goto T748;}
1937          else{          else{
1938          base[6]= (V136);          base[6]= (V137);
1939          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1940          (void) (*Lnk159)();          (void) (*Lnk159)();
1941          vs_top=sup;          vs_top=sup;
# Line 1960  static void L18() Line 1960  static void L18()
1960          register object *VOL sup=base+VM19; VC19          register object *VOL sup=base+VM19; VC19
1961          vs_reserve(VM19);          vs_reserve(VM19);
1962          bds_check;          bds_check;
1963          {VOL object V137;          {VOL object V138;
1964          check_arg(1);          check_arg(1);
1965          V137=(base[0]);          V138=(base[0]);
1966          vs_top=sup;          vs_top=sup;
1967  goto TTL;  goto TTL;
1968  TTL:;  TTL:;
# Line 1984  TTL:; Line 1984  TTL:;
1984          vs_top=sup;          vs_top=sup;
1985          goto T755;}          goto T755;}
1986          else{          else{
1987          base[8]= (V137);          base[8]= (V138);
1988          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1989          (void) (*Lnk159)();          (void) (*Lnk159)();
1990          vs_top=sup;          vs_top=sup;
# Line 2011  static void L19() Line 2011  static void L19()
2011          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
2012          vs_reserve(VM20);          vs_reserve(VM20);
2013          bds_check;          bds_check;
2014          {object V138;          {object V139;
2015          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
2016          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
2017          vs_base=vs_base+1;          vs_base=vs_base+1;
2018          if(vs_base>=vs_top){vs_top=sup;goto T759;}          if(vs_base>=vs_top){vs_top=sup;goto T759;}
2019          V138=(base[1]);          V139=(base[1]);
2020          vs_top=sup;          vs_top=sup;
2021          goto T760;          goto T760;
2022  goto T759;  goto T759;
2023  T759:;  T759:;
2024          V138= Cnil;          V139= Cnil;
2025  goto T760;  goto T760;
2026  T760:;  T760:;
2027          {register object V139;          {register object V140;
2028          base[2]= Cnil;          base[2]= Cnil;
2029          V139= Cnil;          V140= Cnil;
2030          base[3]= base[0];          base[3]= base[0];
2031          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2032          Lspecial_form_p();          Lspecial_form_p();
2033          vs_top=sup;          vs_top=sup;
2034          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2035          goto T766;}{object V140;          goto T766;}{object V141;
2036          V140= (*(LnkLI191))(base[0],VV[105]);          V141= (*(LnkLI191))(base[0],VV[105]);
2037          if(V140==Cnil)goto T770;          if(V141==Cnil)goto T770;
2038          base[3]= V140;          base[3]= V141;
2039          goto T769;          goto T769;
2040  goto T770;  goto T770;
2041  T770:;}  T770:;}
# Line 2066  T766:; Line 2066  T766:;
2066          Lmacro_function();          Lmacro_function();
2067          vs_top=sup;          vs_top=sup;
2068          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2069          goto T778;}{object V141;          goto T778;}{object V142;
2070          V141= (*(LnkLI191))(base[0],VV[105]);          V142= (*(LnkLI191))(base[0],VV[105]);
2071          if(V141==Cnil)goto T782;          if(V142==Cnil)goto T782;
2072          base[3]= V141;          base[3]= V142;
2073          goto T781;          goto T781;
2074  goto T782;  goto T782;
2075  T782:;}  T782:;}
# Line 2088  T778:; Line 2088  T778:;
2088          Lfboundp();          Lfboundp();
2089          vs_top=sup;          vs_top=sup;
2090          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2091          goto T786;}{object V142;          goto T786;}{object V143;
2092          V142= (*(LnkLI191))(base[0],VV[105]);          V143= (*(LnkLI191))(base[0],VV[105]);
2093          if(V142==Cnil)goto T790;          if(V143==Cnil)goto T790;
2094          base[3]= V142;          base[3]= V143;
2095          goto T789;          goto T789;
2096  goto T790;  goto T790;
2097  T790:;}  T790:;}
# Line 2099  T790:;} Line 2099  T790:;}
2099          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2100          Lsymbol_function();          Lsymbol_function();
2101          vs_top=sup;          vs_top=sup;
2102          V139= vs_base[0];          V140= vs_base[0];
2103          if(!(type_of((V139))==t_cons)){          if(!(type_of((V140))==t_cons)){
2104          goto T793;}          goto T793;}
2105          {object V143= car((V139));          {object V144= car((V140));
2106          if((V143!= VV[173]))goto T797;          if((V144!= VV[173]))goto T797;
2107          base[4]= Cnil;          base[4]= Cnil;
2108          base[5]= VV[111];          base[5]= VV[111];
2109          base[6]= cadr((V139));          base[6]= cadr((V140));
2110          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2111          Lformat();          Lformat();
2112          vs_top=sup;          vs_top=sup;
# Line 2114  T790:;} Line 2114  T790:;}
2114          goto T789;          goto T789;
2115  goto T797;  goto T797;
2116  T797:;  T797:;
2117          if((V143!= VV[174]))goto T801;          if((V144!= VV[174]))goto T801;
2118          base[4]= Cnil;          base[4]= Cnil;
2119          base[5]= VV[112];          base[5]= VV[112];
2120          base[6]= caddr((V139));          base[6]= caddr((V140));
2121          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2122          Lformat();          Lformat();
2123          vs_top=sup;          vs_top=sup;
# Line 2125  T797:; Line 2125  T797:;
2125          goto T789;          goto T789;
2126  goto T801;  goto T801;
2127  T801:;  T801:;
2128          if((V143!= VV[175]))goto T805;          if((V144!= VV[175]))goto T805;
2129          base[4]= Cnil;          base[4]= Cnil;
2130          base[5]= VV[113];          base[5]= VV[113];
2131          base[6]= car(cddddr((V139)));          base[6]= car(cddddr((V140)));
2132          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2133          Lformat();          Lformat();
2134          vs_top=sup;          vs_top=sup;
# Line 2136  T801:; Line 2136  T801:;
2136          goto T789;          goto T789;
2137  goto T805;  goto T805;
2138  T805:;  T805:;
2139          if((V143!= VV[176]))goto T809;          if((V144!= VV[176]))goto T809;
2140          base[4]= Cnil;          base[4]= Cnil;
2141          base[5]= VV[114];          base[5]= VV[114];
2142          base[6]= cadr(cddddr((V139)));          base[6]= cadr(cddddr((V140)));
2143          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2144          Lformat();          Lformat();
2145          vs_top=sup;          vs_top=sup;
# Line 2161  T789:; Line 2161  T789:;
2161          goto T764;          goto T764;
2162  goto T786;  goto T786;
2163  T786:;  T786:;
2164          V139= (*(LnkLI191))(base[0],VV[105]);          V140= (*(LnkLI191))(base[0],VV[105]);
2165          if(((V139))==Cnil){          if(((V140))==Cnil){
2166          goto T764;}          goto T764;}
2167          base[3]= (V139);          base[3]= (V140);
2168          base[4]= VV[118];          base[4]= VV[118];
2169          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2170          L20(base);          L20(base);
# Line 2181  T764:; Line 2181  T764:;
2181          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2182          Lsymbol_package();          Lsymbol_package();
2183          vs_top=sup;          vs_top=sup;
2184          V144= vs_base[0];          V145= vs_base[0];
2185          base[3]= VV[119];          base[3]= VV[119];
2186          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2187          Lfind_package();          Lfind_package();
2188          vs_top=sup;          vs_top=sup;
2189          V145= vs_base[0];          V146= vs_base[0];
2190          if(!((V144)==(V145))){          if(!((V145)==(V146))){
2191          goto T824;}          goto T824;}
2192          if(((*(LnkLI191))(base[0],VV[120]))==Cnil){          if(((*(LnkLI191))(base[0],VV[120]))==Cnil){
2193          goto T819;}          goto T819;}
2194  goto T824;  goto T824;
2195  T824:;{object V146;  T824:;{object V147;
2196          V146= (*(LnkLI191))(base[0],VV[120]);          V147= (*(LnkLI191))(base[0],VV[120]);
2197          if(V146==Cnil)goto T833;          if(V147==Cnil)goto T833;
2198          base[3]= V146;          base[3]= V147;
2199          goto T832;          goto T832;
2200  goto T833;  goto T833;
2201  T833:;}  T833:;}
# Line 2214  T821:; Line 2214  T821:;
2214          siLspecialp();          siLspecialp();
2215          vs_top=sup;          vs_top=sup;
2216          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2217          goto T837;}{object V147;          goto T837;}{object V148;
2218          V147= (*(LnkLI191))(base[0],VV[120]);          V148= (*(LnkLI191))(base[0],VV[120]);
2219          if(V147==Cnil)goto T841;          if(V148==Cnil)goto T841;
2220          base[3]= V147;          base[3]= V148;
2221          goto T840;          goto T840;
2222  goto T841;  goto T841;
2223  T841:;}  T841:;}
# Line 2231  T840:; Line 2231  T840:;
2231          goto T819;          goto T819;
2232  goto T837;  goto T837;
2233  T837:;  T837:;
2234          V139= (*(LnkLI191))(base[0],VV[120]);          V140= (*(LnkLI191))(base[0],VV[120]);
2235          if(((V139))!=Cnil){          if(((V140))!=Cnil){
2236          goto T844;}          goto T844;}
2237          base[3]= base[0];          base[3]= base[0];
2238          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2242  T837:; Line 2242  T837:;
2242          goto T819;}          goto T819;}
2243  goto T844;  goto T844;
2244  T844:;  T844:;
2245          if((V139)!=Cnil){          if((V140)!=Cnil){
2246          base[3]= (V139);          base[3]= (V140);
2247          goto T850;}          goto T850;}
2248          base[3]= VV[125];          base[3]= VV[125];
2249  goto T850;  goto T850;
# Line 2254  T850:; Line 2254  T850:;
2254          vs_top=sup;          vs_top=sup;
2255  goto T819;  goto T819;
2256  T819:;  T819:;
2257          V139= (*(LnkLI191))(base[0],VV[127]);          V140= (*(LnkLI191))(base[0],VV[127]);
2258          if(((V139))==Cnil){          if(((V140))==Cnil){
2259          goto T854;}          goto T854;}
2260          base[3]= (V139);          base[3]= (V140);
2261          base[4]= VV[128];          base[4]= VV[128];
2262          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2263          L20(base);          L20(base);
# Line 2265  T819:; Line 2265  T819:;
2265          goto T852;          goto T852;
2266  goto T854;  goto T854;
2267  T854:;  T854:;
2268          V139= get(base[0],VV[129],Cnil);          V140= get(base[0],VV[129],Cnil);
2269          if(((V139))==Cnil){          if(((V140))==Cnil){
2270          goto T852;}          goto T852;}
2271          vs_base=vs_top;          vs_base=vs_top;
2272          L21(base);          L21(base);
# Line 2275  T854:; Line 2275  T854:;
2275          bds_bind(VV[130],base[3]);          bds_bind(VV[130],base[3]);
2276          base[5]= Cnil;          base[5]= Cnil;
2277          base[6]= VV[131];          base[6]= VV[131];
2278          base[7]= (V139);          base[7]= (V140);
2279          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2280          Lformat();          Lformat();
2281          vs_top=sup;          vs_top=sup;
# Line 2287  T854:; Line 2287  T854:;
2287          bds_unwind1;          bds_unwind1;
2288  goto T852;  goto T852;
2289  T852:;  T852:;
2290          V139= (*(LnkLI191))(base[0],VV[133]);          V140= (*(LnkLI191))(base[0],VV[133]);
2291          if(((V139))==Cnil){          if(((V140))==Cnil){
2292          goto T870;}          goto T870;}
2293          base[3]= (V139);          base[3]= (V140);
2294          base[4]= VV[134];          base[4]= VV[134];
2295          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2296          L20(base);          L20(base);
# Line 2298  T852:; Line 2298  T852:;
2298          goto T868;          goto T868;
2299  goto T870;  goto T870;
2300  T870:;  T870:;
2301          V139= get(base[0],VV[135],Cnil);          V140= get(base[0],VV[135],Cnil);
2302          if(((V139))==Cnil){          if(((V140))==Cnil){
2303          goto T868;}          goto T868;}
2304          base[4]= Cnil;          base[4]= Cnil;
2305          base[5]= VV[136];          base[5]= VV[136];
2306          base[6]= (V139);          base[6]= (V140);
2307          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2308          Lformat();          Lformat();
2309          vs_top=sup;          vs_top=sup;
# Line 2314  T870:; Line 2314  T870:;
2314          vs_top=sup;          vs_top=sup;
2315  goto T868;  goto T868;
2316  T868:;  T868:;
2317          V139= (*(LnkLI191))(base[0],VV[35]);          V140= (*(LnkLI191))(base[0],VV[35]);
2318          if(((V139))==Cnil){          if(((V140))==Cnil){
2319          goto T884;}          goto T884;}
2320          base[3]= (V139);          base[3]= (V140);
2321          base[4]= VV[138];          base[4]= VV[138];
2322          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2323          L20(base);          L20(base);
# Line 2325  T868:; Line 2325  T868:;
2325          goto T763;          goto T763;
2326  goto T884;  goto T884;
2327  T884:;  T884:;
2328          V139= get(base[0],VV[139],Cnil);          V140= get(base[0],VV[139],Cnil);
2329          if(((V139))==Cnil){          if(((V140))==Cnil){
2330          goto T890;}          goto T890;}
2331          vs_base=vs_top;          vs_base=vs_top;
2332          L21(base);          L21(base);
# Line 2335  T884:; Line 2335  T884:;
2335          bds_bind(VV[130],base[3]);          bds_bind(VV[130],base[3]);
2336          base[5]= Cnil;          base[5]= Cnil;
2337          base[6]= VV[140];          base[6]= VV[140];
2338          V148= get(base[0],VV[139],Cnil);          V149= get(base[0],VV[139],Cnil);
2339          base[7]= list(3,VV[141],base[0],V148);          base[7]= list(3,VV[141],base[0],V149);
2340          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2341          Lformat();          Lformat();
2342          vs_top=sup;          vs_top=sup;
# Line 2349  T884:; Line 2349  T884:;
2349          goto T763;          goto T763;
2350  goto T890;  goto T890;
2351  T890:;  T890:;
2352          V139= get(base[0],VV[143],Cnil);          V140= get(base[0],VV[143],Cnil);
2353          if(((V139))==Cnil){          if(((V140))==Cnil){
2354          goto T901;}          goto T901;}
2355          vs_base=vs_top;          vs_base=vs_top;
2356          L21(base);          L21(base);
# Line 2359  T890:; Line 2359  T890:;
2359          bds_bind(VV[130],base[3]);          bds_bind(VV[130],base[3]);
2360          base[5]= Cnil;          base[5]= Cnil;
2361          base[6]= VV[144];          base[6]= VV[144];
2362          V149= get(base[0],VV[143],Cnil);          V150= get(base[0],VV[143],Cnil);
2363          base[7]= listA(3,VV[141],base[0],V149);          base[7]= listA(3,VV[141],base[0],V150);
2364          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2365          Lformat();          Lformat();
2366          vs_top=sup;          vs_top=sup;
# Line 2373  T890:; Line 2373  T890:;
2373          goto T763;          goto T763;
2374  goto T901;  goto T901;
2375  T901:;  T901:;
2376          V139= get(base[0],VV[146],Cnil);          V140= get(base[0],VV[146],Cnil);
2377          if(((V139))==Cnil){          if(((V140))==Cnil){
2378          goto T763;}          goto T763;}
2379          vs_base=vs_top;          vs_base=vs_top;
2380          L21(base);          L21(base);
# Line 2383  T901:; Line 2383  T901:;
2383          bds_bind(VV[130],base[3]);          bds_bind(VV[130],base[3]);
2384          base[5]= Cnil;          base[5]= Cnil;
2385          base[6]= VV[147];          base[6]= VV[147];
2386          if(!(type_of((V139))==t_cons)){          if(!(type_of((V140))==t_cons)){
2387          goto T920;}          goto T920;}
2388          {object V150= car((V139));          {object V151= car((V140));
2389          if((V150!= VV[173]))goto T922;          if((V151!= VV[173]))goto T922;
2390          base[7]= make_cons(VV[148],cdr((V139)));          base[7]= make_cons(VV[148],cdr((V140)));
2391          goto T918;          goto T918;
2392  goto T922;  goto T922;
2393  T922:;  T922:;
2394          if((V150!= VV[174]))goto T923;          if((V151!= VV[174]))goto T923;
2395          base[7]= make_cons(VV[148],cddr((V139)));          base[7]= make_cons(VV[148],cddr((V140)));
2396          goto T918;          goto T918;
2397  goto T923;  goto T923;
2398  T923:;  T923:;
2399          if((V150!= VV[175]))goto T924;          if((V151!= VV[175]))goto T924;
2400          base[7]= make_cons(VV[148],cddddr((V139)));          base[7]= make_cons(VV[148],cddddr((V140)));
2401          goto T918;          goto T918;
2402  goto T924;  goto T924;
2403  T924:;  T924:;
2404          if((V150!= VV[176]))goto T925;          if((V151!= VV[176]))goto T925;
2405          base[7]= make_cons(VV[148],cdr(cddddr((V139))));          base[7]= make_cons(VV[148],cdr(cddddr((V140))));
2406          goto T918;          goto T918;
2407  goto T925;  goto T925;
2408  T925:;  T925:;
# Line 2428  T763:; Line 2428  T763:;
2428          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2429          (void) (*Lnk192)();          (void) (*Lnk192)();
2430          vs_top=sup;          vs_top=sup;
2431          if(((V138))==Cnil){          if(((V139))==Cnil){
2432          goto T930;}          goto T930;}
2433          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2434          return;          return;
# Line 2463  static void L22() Line 2463  static void L22()
2463  {register object *base=vs_base;  {register object *base=vs_base;
2464          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
2465          vs_reserve(VM21);          vs_reserve(VM21);
2466          {object V151;          {object V152;
2467          object V152;          object V153;
2468          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
2469          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
2470          V151=(base[0]);          V152=(base[0]);
2471          vs_base=vs_base+1;          vs_base=vs_base+1;
2472          if(vs_base>=vs_top){vs_top=sup;goto T941;}          if(vs_base>=vs_top){vs_top=sup;goto T941;}
2473          V152=(base[1]);          V153=(base[1]);
2474          vs_top=sup;          vs_top=sup;
2475          goto T942;          goto T942;
2476  goto T941;  goto T941;
2477  T941:;  T941:;
2478          V152= VV[155];          V153= VV[155];
2479  goto T942;  goto T942;
2480  T942:;  T942:;
2481          {register object V153;          {register object V154;
2482          V153= Cnil;          V154= Cnil;
2483          V151= coerce_to_string((V151));          V152= coerce_to_string((V152));
2484          if(((V152))==Cnil){          if(((V153))==Cnil){
2485          goto T949;}          goto T949;}
2486          {object V154;          {object V155;
         register object V155;  
2487          register object V156;          register object V156;
2488          base[2]= V152;          register object V157;
2489            base[2]= V153;
2490          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2491          Lpackagep();          Lpackagep();
2492          vs_top=sup;          vs_top=sup;
2493          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2494          goto T953;}          goto T953;}
2495          V154= V152;          V155= V153;
2496          goto T951;          goto T951;
2497  goto T953;  goto T953;
2498  T953:;  T953:;
2499          base[2]= coerce_to_string(V152);          base[2]= coerce_to_string(V153);
2500          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2501          Lfind_package();          Lfind_package();
2502          vs_top=sup;          vs_top=sup;
2503          V154= vs_base[0];          V155= vs_base[0];
2504  goto T951;  goto T951;
2505  T951:;  T951:;
         V155= Cnil;  
2506          V156= Cnil;          V156= Cnil;
2507          {long V158;          V157= Cnil;
2508          long V159;          {long V159;
2509          base[2]= (V154);          long V160;
2510            base[2]= (V155);
2511          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2512          (void) (*Lnk193)();          (void) (*Lnk193)();
2513          if(vs_base>=vs_top){vs_top=sup;goto T959;}          if(vs_base>=vs_top){vs_top=sup;goto T959;}
2514          V158= fix(vs_base[0]);          V159= fix(vs_base[0]);
2515          vs_base++;          vs_base++;
2516          if(vs_base>=vs_top){vs_top=sup;goto T960;}          if(vs_base>=vs_top){vs_top=sup;goto T960;}
2517          V159= fix(vs_base[0]);          V160= fix(vs_base[0]);
2518          vs_top=sup;          vs_top=sup;
2519          goto T961;          goto T961;
2520  goto T959;  goto T959;
2521  T959:;  T959:;
2522          V158= fix(Cnil);          V159= fix(Cnil);
2523  goto T960;  goto T960;
2524  T960:;  T960:;
2525          V159= fix(Cnil);          V160= fix(Cnil);
2526  goto T961;  goto T961;
2527  T961:;  T961:;
2528          {object V160;          {object V161;
2529          object V161;          object V162;
2530          V162 = make_fixnum(V159);          V163 = make_fixnum(V160);
2531          V163 = make_fixnum(V158);          V164 = make_fixnum(V159);
2532          V160= number_plus(V162,V163);          V161= number_plus(V163,V164);
2533          V161= small_fixnum(0);          V162= small_fixnum(0);
2534  goto T965;  goto T965;
2535  T965:;  T965:;
2536          if(!(number_compare((V161),(V160))>=0)){          if(!(number_compare((V162),(V161))>=0)){
2537          goto T966;}          goto T966;}
2538          V155= Cnil;          V156= Cnil;
2539          goto T947;          goto T947;
2540  goto T966;  goto T966;
2541  T966:;  T966:;
2542          V164 = make_fixnum(V159);          V165 = make_fixnum(V160);
2543          if(!(number_compare((V161),V164)<0)){          if(!(number_compare((V162),V165)<0)){
2544          goto T977;}          goto T977;}
2545          base[3]= (V154);          base[3]= (V155);
2546          base[4]= (V161);          base[4]= (V162);
2547          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2548          siLpackage_internal();          siLpackage_internal();
2549          vs_top=sup;          vs_top=sup;
2550          V156= vs_base[0];          V157= vs_base[0];
2551          goto T975;          goto T975;
2552  goto T977;  goto T977;
2553  T977:;  T977:;
2554          base[3]= (V154);          base[3]= (V155);
2555          V165 = make_fixnum(V159);          V166 = make_fixnum(V160);
2556          base[4]= number_minus((V161),V165);          base[4]= number_minus((V162),V166);
2557          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2558          siLpackage_external();          siLpackage_external();
2559          vs_top=sup;          vs_top=sup;
2560          V156= vs_base[0];          V157= vs_base[0];
2561  goto T975;  goto T975;
2562  T975:;  T975:;
2563  goto T973;  goto T973;
2564  T973:;  T973:;
2565          if(((V156))!=Cnil){          if(((V157))!=Cnil){
2566          goto T983;}          goto T983;}
2567          goto T974;          goto T974;
2568  goto T983;  goto T983;
2569  T983:;  T983:;
2570          V155= car((V156));          V156= car((V157));
2571          V166= coerce_to_string((V155));          V167= coerce_to_string((V156));
2572          if(((*(LnkLI194))((V151),/* INLINE-ARGS */V166))==Cnil){          if(((*(LnkLI194))((V152),/* INLINE-ARGS */V167))==Cnil){
2573          goto T988;}{object V167;          goto T988;}{object V168;
2574          base[3]= (V155);          base[3]= (V156);
2575          base[4]= Ct;          base[4]= Ct;
2576          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2577          (void) (*Lnk163)();          (void) (*Lnk163)();
2578          vs_top=sup;          vs_top=sup;
2579          V167= vs_base[0];          V168= vs_base[0];
2580          if(V167==Cnil)goto T992;          if(V168==Cnil)goto T992;
2581          V153= V167;          V154= V168;
2582          goto T991;          goto T991;
2583  goto T992;  goto T992;
2584  T992:;}  T992:;}
# Line 2586  goto T991; Line 2586  goto T991;
2586  T991:;  T991:;
2587  goto T988;  goto T988;
2588  T988:;  T988:;
2589          V156= cdr((V156));          V157= cdr((V157));
2590          goto T973;          goto T973;
2591  goto T974;  goto T974;
2592  T974:;  T974:;
2593          goto T971;          goto T971;
2594  goto T971;  goto T971;
2595  T971:;  T971:;
2596          V161= one_plus((V161));          V162= one_plus((V162));
2597          goto T965;}}}          goto T965;}}}
2598  goto T949;  goto T949;
2599  T949:;  T949:;
2600          {object V168;          {object V169;
2601          object V169;          object V170;
2602          vs_base=vs_top;          vs_base=vs_top;
2603          Llist_all_packages();          Llist_all_packages();
2604          vs_top=sup;          vs_top=sup;
2605          V168= vs_base[0];          V169= vs_base[0];
2606          V169= car((V168));          V170= car((V169));
2607  goto T1004;  goto T1004;
2608  T1004:;  T1004:;
2609          if(!(endp_prop((V168)))){          if(!(endp_prop((V169)))){
2610          goto T1005;}          goto T1005;}
2611          goto T947;          goto T947;
2612  goto T1005;  goto T1005;
2613  T1005:;  T1005:;
2614          {object V170;          {object V171;
         register object V171;  
2615          register object V172;          register object V172;
2616          base[4]= V169;          register object V173;
2617            base[4]= V170;
2618          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2619          Lpackagep();          Lpackagep();
2620          vs_top=sup;          vs_top=sup;
2621          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2622          goto T1012;}          goto T1012;}
2623          V170= V169;          V171= V170;
2624          goto T1010;          goto T1010;
2625  goto T1012;  goto T1012;
2626  T1012:;  T1012:;
2627          base[4]= coerce_to_string(V169);          base[4]= coerce_to_string(V170);
2628          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2629          Lfind_package();          Lfind_package();
2630          vs_top=sup;          vs_top=sup;
2631          V170= vs_base[0];          V171= vs_base[0];
2632  goto T1010;  goto T1010;
2633  T1010:;  T1010:;
         V171= Cnil;  
2634          V172= Cnil;          V172= Cnil;
2635          {long V174;          V173= Cnil;
2636          long V175;          {long V175;
2637          base[4]= (V170);          long V176;
2638            base[4]= (V171);
2639          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2640          (void) (*Lnk193)();          (void) (*Lnk193)();
2641          if(vs_base>=vs_top){vs_top=sup;goto T1018;}          if(vs_base>=vs_top){vs_top=sup;goto T1018;}
2642          V174= fix(vs_base[0]);          V175= fix(vs_base[0]);
2643          vs_base++;          vs_base++;
2644          if(vs_base>=vs_top){vs_top=sup;goto T1019;}          if(vs_base>=vs_top){vs_top=sup;goto T1019;}
2645          V175= fix(vs_base[0]);          V176= fix(vs_base[0]);
2646          vs_top=sup;          vs_top=sup;
2647          goto T1020;          goto T1020;
2648  goto T1018;  goto T1018;
2649  T1018:;  T1018:;
2650          V174= fix(Cnil);          V175= fix(Cnil);
2651  goto T1019;  goto T1019;
2652  T1019:;  T1019:;
2653          V175= fix(Cnil);          V176= fix(Cnil);
2654  goto T1020;  goto T1020;
2655  T1020:;  T1020:;
2656          {object V176;          {object V177;
2657          register object V177;          register object V178;
2658          V178 = make_fixnum(V175);          V179 = make_fixnum(V176);
2659          V179 = make_fixnum(V174);          V180 = make_fixnum(V175);
2660          V176= number_plus(V178,V179);          V177= number_plus(V179,V180);
2661          V177= small_fixnum(0);          V178= small_fixnum(0);
2662  goto T1024;  goto T1024;
2663  T1024:;  T1024:;
2664          if(!(number_compare((V177),(V176))>=0)){          if(!(number_compare((V178),(V177))>=0)){
2665          goto T1025;}          goto T1025;}
2666          V171= Cnil;          V172= Cnil;
2667          goto T1009;          goto T1009;
2668  goto T1025;  goto T1025;
2669  T1025:;  T1025:;
2670          V180 = make_fixnum(V175);          V181 = make_fixnum(V176);
2671          if(!(number_compare((V177),V180)<0)){          if(!(number_compare((V178),V181)<0)){
2672          goto T1036;}          goto T1036;}
2673          base[5]= (V170);          base[5]= (V171);
2674          base[6]= (V177);          base[6]= (V178);
2675          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2676          siLpackage_internal();          siLpackage_internal();
2677          vs_top=sup;          vs_top=sup;
2678          V172= vs_base[0];          V173= vs_base[0];
2679          goto T1034;          goto T1034;
2680  goto T1036;  goto T1036;
2681  T1036:;  T1036:;
2682          base[5]= (V170);          base[5]= (V171);
2683          V181 = make_fixnum(V175);          V182 = make_fixnum(V176);
2684          base[6]= number_minus((V177),V181);          base[6]= number_minus((V178),V182);
2685          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2686          siLpackage_external();          siLpackage_external();
2687          vs_top=sup;          vs_top=sup;
2688          V172= vs_base[0];          V173= vs_base[0];
2689  goto T1034;  goto T1034;
2690  T1034:;  T1034:;
2691  goto T1032;  goto T1032;
2692  T1032:;  T1032:;
2693          if(((V172))!=Cnil){          if(((V173))!=Cnil){
2694          goto T1042;}          goto T1042;}
2695          goto T1033;          goto T1033;
2696  goto T1042;  goto T1042;
2697  T1042:;  T1042:;
2698          V171= car((V172));          V172= car((V173));
2699          V182= coerce_to_string((V171));          V183= coerce_to_string((V172));
2700          if(((*(LnkLI194))((V151),/* INLINE-ARGS */V182))==Cnil){          if(((*(LnkLI194))((V152),/* INLINE-ARGS */V183))==Cnil){
2701          goto T1047;}{object V183;          goto T1047;}{object V184;
2702          base[5]= (V171);          base[5]= (V172);
2703          base[6]= Ct;          base[6]= Ct;
2704          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2705          (void) (*Lnk163)();          (void) (*Lnk163)();
2706          vs_top=sup;          vs_top=sup;
2707          V183= vs_base[0];          V184= vs_base[0];
2708          if(V183==Cnil)goto T1051;          if(V184==Cnil)goto T1051;
2709          V153= V183;          V154= V184;
2710          goto T1050;          goto T1050;
2711  goto T1051;  goto T1051;
2712  T1051:;}  T1051:;}
# Line 2714  goto T1050; Line 2714  goto T1050;
2714  T1050:;  T1050:;
2715  goto T1047;  goto T1047;
2716  T1047:;  T1047:;
2717          V172= cdr((V172));          V173= cdr((V173));
2718          goto T1032;          goto T1032;
2719  goto T1033;  goto T1033;
2720  T1033:;  T1033:;
2721          goto T1030;          goto T1030;
2722  goto T1030;  goto T1030;
2723  T1030:;  T1030:;
2724          V177= one_plus((V177));          V178= one_plus((V178));
2725          goto T1024;}}}          goto T1024;}}}
2726  goto T1009;  goto T1009;
2727  T1009:;  T1009:;
2728          V168= cdr((V168));          V169= cdr((V169));
2729          V169= car((V168));          V170= car((V169));
2730          goto T1004;}          goto T1004;}
2731  goto T947;  goto T947;
2732  T947:;  T947:;
2733          if(((V153))==Cnil){          if(((V154))==Cnil){
2734          goto T1067;}          goto T1067;}
2735          base[2]= Ct;          base[2]= Ct;
2736          base[3]= VV[156];          base[3]= VV[156];
# Line 2742  goto T1067; Line 2742  goto T1067;
2742  T1067:;  T1067:;
2743          base[2]= Ct;          base[2]= Ct;
2744          base[3]= VV[157];          base[3]= VV[157];
2745          base[4]= (V151);          base[4]= (V152);
2746          base[5]= (V152);          base[5]= (V153);
2747          if((V152)==Cnil){          if((V153)==Cnil){
2748          base[6]= Cnil;          base[6]= Cnil;
2749          goto T1075;}          goto T1075;}
2750          base[8]= V152;          base[8]= V153;
2751          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2752          Lpackagep();          Lpackagep();
2753          vs_top=sup;          vs_top=sup;
2754          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2755          goto T1078;}          goto T1078;}
2756          base[7]= V152;          base[7]= V153;
2757          goto T1076;          goto T1076;
2758  goto T1078;  goto T1078;
2759  T1078:;  T1078:;
2760          base[8]= coerce_to_string(V152);          base[8]= coerce_to_string(V153);
2761          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2762          Lfind_package();          Lfind_package();
2763          vs_top=sup;          vs_top=sup;
# Line 2795  TTL:; Line 2795  TTL:;
2795          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2796          Lsymbol_package();          Lsymbol_package();
2797          vs_top=sup;          vs_top=sup;
2798          V185= vs_base[0];          V186= vs_base[0];
2799          base[0]= VV[151];          base[0]= VV[151];
2800          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2801          Lfind_package();          Lfind_package();
2802          vs_top=sup;          vs_top=sup;
2803          V186= vs_base[0];          V187= vs_base[0];
2804          if(!((V185)==(V186))){          if(!((V186)==(V187))){
2805          goto T1083;}          goto T1083;}
2806          base[0]= VV[152];          base[0]= VV[152];
2807          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2820  register object *base0; Line 2820  register object *base0;
2820  {       register object *base=vs_base;  {       register object *base=vs_base;
2821          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
2822          vs_reserve(VM23);          vs_reserve(VM23);
2823          {object V187;          {object V188;
2824          object V188;          object V189;
2825          check_arg(2);          check_arg(2);
2826          V187=(base[0]);          V188=(base[0]);
2827          V188=(base[1]);          V189=(base[1]);
2828          vs_top=sup;          vs_top=sup;
2829  goto TTL;  goto TTL;
2830  TTL:;  TTL:;
# Line 2832  TTL:; Line 2832  TTL:;
2832          base[2]= Ct;          base[2]= Ct;
2833          base[3]= VV[150];          base[3]= VV[150];
2834          base[4]= base0[0];          base[4]= base0[0];
2835          base[5]= (V188);          base[5]= (V189);
2836          base[6]= (V187);          base[6]= (V188);
2837          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
2838          Lformat();          Lformat();
2839          return;          return;

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

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