/[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.7 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.8 by camm, Fri Jan 24 18:38:28 2003 UTC
# Line 65  goto TTL; Line 65  goto TTL;
65  TTL:;  TTL:;
66          if((symbol_value(VV[3]))!=Cnil){          if((symbol_value(VV[3]))!=Cnil){
67          goto T19;}          goto T19;}
68          (void)((*(LnkLI158))());          (void)((*(LnkLI159))());
69          if(((V5))==Cnil){          if(((V5))==Cnil){
70          goto T25;}          goto T25;}
71          (void)(princ((V3),Cnil));          (void)(princ((V3),Cnil));
72          base[3]= (V4);          base[3]= (V4);
73          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
74          (void) (*Lnk159)();          (void) (*Lnk160)();
75          vs_top=sup;          vs_top=sup;
76          goto T23;          goto T23;
77  goto T25;  goto T25;
# Line 91  goto T19; Line 91  goto T19;
91  T19:;  T19:;
92  goto T33;  goto T33;
93  T33:;  T33:;
94          (void)((*(LnkLI158))());          (void)((*(LnkLI159))());
95          if(((V5))==Cnil){          if(((V5))==Cnil){
96          goto T38;}          goto T38;}
97          (void)(princ((V3),Cnil));          (void)(princ((V3),Cnil));
98          (void)((*(LnkLI160))());          (void)((*(LnkLI161))());
99          (void)(prin1((V4),Cnil));          (void)(prin1((V4),Cnil));
100          goto T36;          goto T36;
101  goto T38;  goto T38;
# Line 155  T48:; Line 155  T48:;
155          goto T67;}          goto T67;}
156          base[3]= (V4);          base[3]= (V4);
157          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
158          (void) (*Lnk159)();          (void) (*Lnk160)();
159          vs_top=sup;          vs_top=sup;
160  goto T67;  goto T67;
161  T67:;  T67:;
# Line 166  goto T66; Line 166  goto T66;
166  T66:;  T66:;
167          if(!eql(V6,VV[6])          if(!eql(V6,VV[6])
168          && !eql(V6,VV[7]))goto T71;          && !eql(V6,VV[7]))goto T71;
169          (void)((*(LnkLI161))());          (void)((*(LnkLI162))());
170          if(((V5))==Cnil){          if(((V5))==Cnil){
171          goto T73;}          goto T73;}
172          base[3]= (V4);          base[3]= (V4);
173          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
174          (void) (*Lnk159)();          (void) (*Lnk160)();
175          vs_top=sup;          vs_top=sup;
176  goto T73;  goto T73;
177  T73:;  T73:;
# Line 182  goto T71; Line 182  goto T71;
182  T71:;  T71:;
183          if(!eql(V6,VV[8])          if(!eql(V6,VV[8])
184          && !eql(V6,VV[9]))goto T77;          && !eql(V6,VV[9]))goto T77;
185          (void)((*(LnkLI161))());          (void)((*(LnkLI162))());
186          base[3]= Cnil;          base[3]= Cnil;
187          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
188          return;          return;
# Line 190  goto T77; Line 190  goto T77;
190  T77:;  T77:;
191          if(!eql(V6,VV[10])          if(!eql(V6,VV[10])
192          && !eql(V6,VV[11]))goto T79;          && !eql(V6,VV[11]))goto T79;
193          (void)((*(LnkLI161))());          (void)((*(LnkLI162))());
194          bds_bind(VV[12],Ct);          bds_bind(VV[12],Ct);
195          bds_bind(VV[13],Cnil);          bds_bind(VV[13],Cnil);
196          bds_bind(VV[14],Cnil);          bds_bind(VV[14],Cnil);
# Line 204  goto T79; Line 204  goto T79;
204  T79:;  T79:;
205          if(!eql(V6,VV[15])          if(!eql(V6,VV[15])
206          && !eql(V6,VV[16]))goto T82;          && !eql(V6,VV[16]))goto T82;
207          (void)((*(LnkLI161))());          (void)((*(LnkLI162))());
208          {frame_ptr fr;          {frame_ptr fr;
209          fr=frs_sch_catch(VV[17]);          fr=frs_sch_catch(VV[17]);
210          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[17]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[17]);
# Line 219  T82:; Line 219  T82:;
219          {object V9;          {object V9;
220          base[6]= symbol_value(VV[0]);          base[6]= symbol_value(VV[0]);
221          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
222          (void) (*Lnk162)();          (void) (*Lnk163)();
223          vs_top=sup;          vs_top=sup;
224          base[5]= vs_base[0];          base[5]= vs_base[0];
225          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
226          Leval();          Leval();
227          vs_top=sup;          vs_top=sup;
228          V9= vs_base[0];          V9= vs_base[0];
229          (void)((*(LnkLI161))());          (void)((*(LnkLI162))());
230          base[4]= (V9);}          base[4]= (V9);}
231          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
232          return;          return;
# Line 238  T85:; Line 238  T85:;
238          register object V11;          register object V11;
239          base[6]= symbol_value(VV[0]);          base[6]= symbol_value(VV[0]);
240          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
241          (void) (*Lnk162)();          (void) (*Lnk163)();
242          vs_top=sup;          vs_top=sup;
243          base[5]= vs_base[0];          base[5]= vs_base[0];
244          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 251  T85:; Line 251  T85:;
251          base[0]=base[0];          base[0]=base[0];
252          vs_reserve(VM3);          vs_reserve(VM3);
253          vs_top=sup;          vs_top=sup;
254          (void)((*(LnkLI161))());          (void)((*(LnkLI162))());
255          }}          }}
256          vs_base=V12;vs_top=V13;}          vs_base=V12;vs_top=V13;}
257          Llist();          Llist();
# Line 281  goto T92; Line 281  goto T92;
281  T92:;  T92:;
282          if(!eql(V6,VV[26])          if(!eql(V6,VV[26])
283          && !eql(V6,VV[27]))goto T118;          && !eql(V6,VV[27]))goto T118;
284          (void)((*(LnkLI161))());          (void)((*(LnkLI162))());
285          {frame_ptr fr;          {frame_ptr fr;
286          fr=frs_sch_catch(VV[28]);          fr=frs_sch_catch(VV[28]);
287          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[28]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[28]);
# Line 290  T92:; Line 290  T92:;
290          unwind(fr,VV[28]);}          unwind(fr,VV[28]);}
291  goto T118;  goto T118;
292  T118:;  T118:;
293          (void)((*(LnkLI161))());          (void)((*(LnkLI162))());
294          princ_char(10,Cnil);          princ_char(10,Cnil);
295          base[3]= Ct;          base[3]= Ct;
296          base[4]= VV[29];          base[4]= VV[29];
# Line 701  T210:; Line 701  T210:;
701          base[0]= (V24);          base[0]= (V24);
702          base[1]= Ct;          base[1]= Ct;
703          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
704          (void) (*Lnk163)();          (void) (*Lnk164)();
705          vs_top=sup;          vs_top=sup;
706          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
707          goto T265;}          goto T265;}
# Line 801  goto T297; Line 801  goto T297;
801  T297:;  T297:;
802          base[0]= (V45);          base[0]= (V45);
803          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
804          (void) (*Lnk164)();          (void) (*Lnk165)();
805          vs_top=sup;          vs_top=sup;
806          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
807          goto T309;}          goto T309;}
808          base[0]= VV[59];          base[0]= VV[59];
809          base[2]= (V45);          base[2]= (V45);
810          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
811          (void) (*Lnk164)();          (void) (*Lnk165)();
812          vs_top=sup;          vs_top=sup;
813          base[1]= vs_base[0];          base[1]= vs_base[0];
814          base[2]= Cnil;          base[2]= Cnil;
# Line 935  TTL:; Line 935  TTL:;
935          vs_top=sup;          vs_top=sup;
936          V56= vs_base[0];          V56= vs_base[0];
937          {object V55= V56;          {object V55= V56;
938          if((V55!= VV[165]))goto T358;          if((V55!= VV[166]))goto T358;
939          base[0]= Ct;          base[0]= Ct;
940          base[1]= VV[66];          base[1]= VV[66];
941          base[2]= (V54);          base[2]= (V54);
# Line 946  TTL:; Line 946  TTL:;
946          VMR11(V57)}          VMR11(V57)}
947  goto T358;  goto T358;
948  T358:;  T358:;
949          if((V55!= VV[166]))goto T362;          if((V55!= VV[167]))goto T362;
950          base[0]= Ct;          base[0]= Ct;
951          base[1]= VV[67];          base[1]= VV[67];
952          base[2]= (V54);          base[2]= (V54);
# Line 957  T358:; Line 957  T358:;
957          VMR11(V58)}          VMR11(V58)}
958  goto T362;  goto T362;
959  T362:;  T362:;
960          if((V55!= VV[167]))goto T366;          if((V55!= VV[168]))goto T366;
961          base[0]= Ct;          base[0]= Ct;
962          base[1]= VV[68];          base[1]= VV[68];
963          base[2]= (V54);          base[2]= (V54);
# Line 1001  T380:; Line 1001  T380:;
1001          VMR11(V60)}          VMR11(V60)}
1002  goto T366;  goto T366;
1003  T366:;  T366:;
1004          if((V55!= VV[168]))goto T387;          if((V55!= VV[169]))goto T387;
1005          base[0]= Ct;          base[0]= Ct;
1006          base[1]= VV[71];          base[1]= VV[71];
1007          base[2]= (V54);          base[2]= (V54);
# Line 1045  T401:; Line 1045  T401:;
1045          VMR11(V62)}          VMR11(V62)}
1046  goto T387;  goto T387;
1047  T387:;  T387:;
1048          if((V55!= VV[169])          if((V55!= VV[170])
1049          && (V55!= VV[170]))goto T408;          && (V55!= VV[171]))goto T408;
1050          base[0]= Ct;          base[0]= Ct;
1051          base[1]= VV[74];          base[1]= VV[74];
1052          base[2]= (V54);          base[2]= (V54);
# Line 1109  T427:; Line 1109  T427:;
1109          VMR11(V67)}}          VMR11(V67)}}
1110  goto T408;  goto T408;
1111  T408:;  T408:;
1112          if((V55!= VV[171])          if((V55!= VV[172])
1113          && (V55!= VV[172]))goto T433;          && (V55!= VV[173]))goto T433;
1114          base[0]= Ct;          base[0]= Ct;
1115          base[1]= VV[77];          base[1]= VV[77];
1116          base[2]= (V54);          base[2]= (V54);
# Line 1188  goto TTL; Line 1188  goto TTL;
1188  TTL:;  TTL:;
1189          base[0]= Ct;          base[0]= Ct;
1190          {object V76= car((V75));          {object V76= car((V75));
1191          if((V76!= VV[173])          if((V76!= VV[174])
         && (V76!= VV[174])  
1192          && (V76!= VV[175])          && (V76!= VV[175])
1193          && (V76!= VV[176]))goto T461;          && (V76!= VV[176])
1194            && (V76!= VV[177]))goto T461;
1195          base[1]= VV[80];          base[1]= VV[80];
1196          goto T460;          goto T460;
1197  goto T461;  goto T461;
1198  T461:;  T461:;
1199          if((V76!= VV[177]))goto T462;          if((V76!= VV[178]))goto T462;
1200          base[1]= VV[81];          base[1]= VV[81];
1201          goto T460;          goto T460;
1202  goto T462;  goto T462;
# Line 1359  goto T518; Line 1359  goto T518;
1359  T518:;  T518:;
1360          base[0]= (V93);          base[0]= (V93);
1361          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1362          (void) (*Lnk178)();          (void) (*Lnk179)();
1363          vs_top=sup;          vs_top=sup;
1364          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1365          goto T527;}          goto T527;}
# Line 1504  goto T580; Line 1504  goto T580;
1504  T580:;  T580:;
1505          base[0]= (V103);          base[0]= (V103);
1506          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1507          (void) (*Lnk178)();          (void) (*Lnk179)();
1508          vs_top=sup;          vs_top=sup;
1509          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1510          goto T589;}          goto T589;}
# Line 1647  T636:; Line 1647  T636:;
1647  goto T642;  goto T642;
1648  T642:;  T642:;
1649          base[0]= VV[98];          base[0]= VV[98];
1650          base[1]= (*(LnkLI179))((V113));          base[1]= (*(LnkLI180))((V113));
1651          base[2]= Cnil;          base[2]= Cnil;
1652          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1653          (void) (*Lnk32)();          (void) (*Lnk32)();
# Line 1661  T650:; Line 1661  T650:;
1661          base[0]= VV[99];          base[0]= VV[99];
1662          base[2]= (V113);          base[2]= (V113);
1663          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1664          (void) (*Lnk180)();          (void) (*Lnk181)();
1665          vs_top=sup;          vs_top=sup;
1666          base[1]= vs_base[0];          base[1]= vs_base[0];
1667          base[2]= Cnil;          base[2]= Cnil;
# Line 1735  T686:; Line 1735  T686:;
1735          base[10]= (V117);          base[10]= (V117);
1736          base[11]= car(cddddr((V122)));          base[11]= car(cddddr((V122)));
1737          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
1738          (void) (*Lnk181)();          (void) (*Lnk182)();
1739          vs_top=sup;          vs_top=sup;
1740          base[9]= vs_base[0];          base[9]= vs_base[0];
1741          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
# Line 1761  static void L16() Line 1761  static void L16()
1761  goto TTL;  goto TTL;
1762  TTL:;  TTL:;
1763          bds_bind(VV[41],symbol_value(VV[41]));          bds_bind(VV[41],symbol_value(VV[41]));
1764          (void)((*(LnkLI160))());          (void)((*(LnkLI161))());
1765          if((symbol_value(VV[3]))!=Cnil){          if((symbol_value(VV[3]))!=Cnil){
1766          goto T701;}          goto T701;}
1767          if(number_compare((VV[41]->s.s_dbind),small_fixnum(5))>0){          if(number_compare((VV[41]->s.s_dbind),small_fixnum(5))>0){
# 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          V128= (*(LnkLI182))((V125));          V128= (*(LnkLI183))((V125));
1797          frs_pop();          frs_pop();
1798          base[2]= V128;          base[2]= V128;
1799          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# 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          V129= (*(LnkLI183))((V125));          V129= (*(LnkLI184))((V125));
1811          frs_pop();          frs_pop();
1812          base[2]= V129;          base[2]= V129;
1813          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# 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          V130= (*(LnkLI184))((V125));          V130= (*(LnkLI185))((V125));
1821          frs_pop();          frs_pop();
1822          base[2]= V130;          base[2]= V130;
1823          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# 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          V131= (*(LnkLI185))((V125));          V131= (*(LnkLI186))((V125));
1836          frs_pop();          frs_pop();
1837          base[2]= V131;          base[2]= V131;
1838          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# 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          V132= (*(LnkLI186))((V125));          V132= (*(LnkLI187))((V125));
1846          frs_pop();          frs_pop();
1847          base[2]= V132;          base[2]= V132;
1848          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# 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          V133= (*(LnkLI187))((V125));          V133= (*(LnkLI188))((V125));
1856          frs_pop();          frs_pop();
1857          base[2]= V133;          base[2]= V133;
1858          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# 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          V134= (*(LnkLI188))((V125));          V134= (*(LnkLI189))((V125));
1868          frs_pop();          frs_pop();
1869          base[2]= V134;          base[2]= V134;
1870          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# 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          V135= (*(LnkLI189))((V125));          V135= (*(LnkLI190))((V125));
1881          frs_pop();          frs_pop();
1882          base[2]= V135;          base[2]= V135;
1883          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# 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          V136= (*(LnkLI190))((V125));          V136= (*(LnkLI191))((V125));
1891          frs_pop();          frs_pop();
1892          base[2]= V136;          base[2]= V136;
1893          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1937  TTL:; Line 1937  TTL:;
1937          else{          else{
1938          base[6]= (V137);          base[6]= (V137);
1939          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1940          (void) (*Lnk159)();          (void) (*Lnk160)();
1941          vs_top=sup;          vs_top=sup;
1942          frs_pop();}          frs_pop();}
1943  goto T748;  goto T748;
# Line 1986  TTL:; Line 1986  TTL:;
1986          else{          else{
1987          base[8]= (V138);          base[8]= (V138);
1988          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1989          (void) (*Lnk159)();          (void) (*Lnk160)();
1990          vs_top=sup;          vs_top=sup;
1991          frs_pop();}          frs_pop();}
1992  goto T755;  goto T755;
# Line 2033  T760:; Line 2033  T760:;
2033          vs_top=sup;          vs_top=sup;
2034          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2035          goto T766;}{object V141;          goto T766;}{object V141;
2036          V141= (*(LnkLI191))(base[0],VV[105]);          V141= (*(LnkLI192))(base[0],VV[105]);
2037          if(V141==Cnil)goto T770;          if(V141==Cnil)goto T770;
2038          base[3]= V141;          base[3]= V141;
2039          goto T769;          goto T769;
# Line 2067  T766:; Line 2067  T766:;
2067          vs_top=sup;          vs_top=sup;
2068          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2069          goto T778;}{object V142;          goto T778;}{object V142;
2070          V142= (*(LnkLI191))(base[0],VV[105]);          V142= (*(LnkLI192))(base[0],VV[105]);
2071          if(V142==Cnil)goto T782;          if(V142==Cnil)goto T782;
2072          base[3]= V142;          base[3]= V142;
2073          goto T781;          goto T781;
# Line 2089  T778:; Line 2089  T778:;
2089          vs_top=sup;          vs_top=sup;
2090          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2091          goto T786;}{object V143;          goto T786;}{object V143;
2092          V143= (*(LnkLI191))(base[0],VV[105]);          V143= (*(LnkLI192))(base[0],VV[105]);
2093          if(V143==Cnil)goto T790;          if(V143==Cnil)goto T790;
2094          base[3]= V143;          base[3]= V143;
2095          goto T789;          goto T789;
# Line 2103  T790:;} Line 2103  T790:;}
2103          if(!(type_of((V140))==t_cons)){          if(!(type_of((V140))==t_cons)){
2104          goto T793;}          goto T793;}
2105          {object V144= car((V140));          {object V144= car((V140));
2106          if((V144!= VV[173]))goto T797;          if((V144!= VV[174]))goto T797;
2107          base[4]= Cnil;          base[4]= Cnil;
2108          base[5]= VV[111];          base[5]= VV[111];
2109          base[6]= cadr((V140));          base[6]= cadr((V140));
# Line 2114  T790:;} Line 2114  T790:;}
2114          goto T789;          goto T789;
2115  goto T797;  goto T797;
2116  T797:;  T797:;
2117          if((V144!= VV[174]))goto T801;          if((V144!= VV[175]))goto T801;
2118          base[4]= Cnil;          base[4]= Cnil;
2119          base[5]= VV[112];          base[5]= VV[112];
2120          base[6]= caddr((V140));          base[6]= caddr((V140));
# Line 2125  T797:; Line 2125  T797:;
2125          goto T789;          goto T789;
2126  goto T801;  goto T801;
2127  T801:;  T801:;
2128          if((V144!= VV[175]))goto T805;          if((V144!= VV[176]))goto T805;
2129          base[4]= Cnil;          base[4]= Cnil;
2130          base[5]= VV[113];          base[5]= VV[113];
2131          base[6]= car(cddddr((V140)));          base[6]= car(cddddr((V140)));
# Line 2136  T801:; Line 2136  T801:;
2136          goto T789;          goto T789;
2137  goto T805;  goto T805;
2138  T805:;  T805:;
2139          if((V144!= VV[176]))goto T809;          if((V144!= VV[177]))goto T809;
2140          base[4]= Cnil;          base[4]= Cnil;
2141          base[5]= VV[114];          base[5]= VV[114];
2142          base[6]= cadr(cddddr((V140)));          base[6]= cadr(cddddr((V140)));
# Line 2161  T789:; Line 2161  T789:;
2161          goto T764;          goto T764;
2162  goto T786;  goto T786;
2163  T786:;  T786:;
2164          V140= (*(LnkLI191))(base[0],VV[105]);          V140= (*(LnkLI192))(base[0],VV[105]);
2165          if(((V140))==Cnil){          if(((V140))==Cnil){
2166          goto T764;}          goto T764;}
2167          base[3]= (V140);          base[3]= (V140);
# Line 2189  T764:; Line 2189  T764:;
2189          V146= vs_base[0];          V146= vs_base[0];
2190          if(!((V145)==(V146))){          if(!((V145)==(V146))){
2191          goto T824;}          goto T824;}
2192          if(((*(LnkLI191))(base[0],VV[120]))==Cnil){          if(((*(LnkLI192))(base[0],VV[120]))==Cnil){
2193          goto T819;}          goto T819;}
2194  goto T824;  goto T824;
2195  T824:;{object V147;  T824:;{object V147;
2196          V147= (*(LnkLI191))(base[0],VV[120]);          V147= (*(LnkLI192))(base[0],VV[120]);
2197          if(V147==Cnil)goto T833;          if(V147==Cnil)goto T833;
2198          base[3]= V147;          base[3]= V147;
2199          goto T832;          goto T832;
# Line 2215  T821:; Line 2215  T821:;
2215          vs_top=sup;          vs_top=sup;
2216          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2217          goto T837;}{object V148;          goto T837;}{object V148;
2218          V148= (*(LnkLI191))(base[0],VV[120]);          V148= (*(LnkLI192))(base[0],VV[120]);
2219          if(V148==Cnil)goto T841;          if(V148==Cnil)goto T841;
2220          base[3]= V148;          base[3]= V148;
2221          goto T840;          goto T840;
# Line 2231  T840:; Line 2231  T840:;
2231          goto T819;          goto T819;
2232  goto T837;  goto T837;
2233  T837:;  T837:;
2234          V140= (*(LnkLI191))(base[0],VV[120]);          V140= (*(LnkLI192))(base[0],VV[120]);
2235          if(((V140))!=Cnil){          if(((V140))!=Cnil){
2236          goto T844;}          goto T844;}
2237          base[3]= base[0];          base[3]= base[0];
# Line 2254  T850:; Line 2254  T850:;
2254          vs_top=sup;          vs_top=sup;
2255  goto T819;  goto T819;
2256  T819:;  T819:;
2257          V140= (*(LnkLI191))(base[0],VV[127]);          V140= (*(LnkLI192))(base[0],VV[127]);
2258          if(((V140))==Cnil){          if(((V140))==Cnil){
2259          goto T854;}          goto T854;}
2260          base[3]= (V140);          base[3]= (V140);
# Line 2287  T854:; Line 2287  T854:;
2287          bds_unwind1;          bds_unwind1;
2288  goto T852;  goto T852;
2289  T852:;  T852:;
2290          V140= (*(LnkLI191))(base[0],VV[133]);          V140= (*(LnkLI192))(base[0],VV[133]);
2291          if(((V140))==Cnil){          if(((V140))==Cnil){
2292          goto T870;}          goto T870;}
2293          base[3]= (V140);          base[3]= (V140);
# Line 2314  T870:; Line 2314  T870:;
2314          vs_top=sup;          vs_top=sup;
2315  goto T868;  goto T868;
2316  T868:;  T868:;
2317          V140= (*(LnkLI191))(base[0],VV[35]);          V140= (*(LnkLI192))(base[0],VV[35]);
2318          if(((V140))==Cnil){          if(((V140))==Cnil){
2319          goto T884;}          goto T884;}
2320          base[3]= (V140);          base[3]= (V140);
# Line 2386  T901:; Line 2386  T901:;
2386          if(!(type_of((V140))==t_cons)){          if(!(type_of((V140))==t_cons)){
2387          goto T920;}          goto T920;}
2388          {object V151= car((V140));          {object V151= car((V140));
2389          if((V151!= VV[173]))goto T922;          if((V151!= VV[174]))goto T922;
2390          base[7]= make_cons(VV[148],cdr((V140)));          base[7]= make_cons(VV[148],cdr((V140)));
2391          goto T918;          goto T918;
2392  goto T922;  goto T922;
2393  T922:;  T922:;
2394          if((V151!= VV[174]))goto T923;          if((V151!= VV[175]))goto T923;
2395          base[7]= make_cons(VV[148],cddr((V140)));          base[7]= make_cons(VV[148],cddr((V140)));
2396          goto T918;          goto T918;
2397  goto T923;  goto T923;
2398  T923:;  T923:;
2399          if((V151!= VV[175]))goto T924;          if((V151!= VV[176]))goto T924;
2400          base[7]= make_cons(VV[148],cddddr((V140)));          base[7]= make_cons(VV[148],cddddr((V140)));
2401          goto T918;          goto T918;
2402  goto T924;  goto T924;
2403  T924:;  T924:;
2404          if((V151!= VV[176]))goto T925;          if((V151!= VV[177]))goto T925;
2405          base[7]= make_cons(VV[148],cdr(cddddr((V140))));          base[7]= make_cons(VV[148],cdr(cddddr((V140))));
2406          goto T918;          goto T918;
2407  goto T925;  goto T925;
# Line 2426  goto T763; Line 2426  goto T763;
2426  T763:;  T763:;
2427          base[3]= symbol_name(base[0]);          base[3]= symbol_name(base[0]);
2428          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2429          (void) (*Lnk192)();          (void) (*Lnk193)();
2430          vs_top=sup;          vs_top=sup;
2431          if(((V139))==Cnil){          if(((V139))==Cnil){
2432          goto T930;}          goto T930;}
# Line 2484  T942:; Line 2484  T942:;
2484          if(((V153))==Cnil){          if(((V153))==Cnil){
2485          goto T949;}          goto T949;}
2486          {object V155;          {object V155;
2487          register object V156;          object V156;
2488          register object V157;          register object V157;
2489          base[2]= V153;          base[2]= V153;
2490          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 2505  goto T951; Line 2505  goto T951;
2505  T951:;  T951:;
2506          V156= Cnil;          V156= Cnil;
2507          V157= Cnil;          V157= Cnil;
2508          {long V159;          {object V159;
2509          long V160;          object V160;
2510          base[2]= (V155);          base[4]= (V155);
2511          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+4)+1;
2512          (void) (*Lnk193)();          Lpackage_use_list();
         if(vs_base>=vs_top){vs_top=sup;goto T959;}  
         V159= fix(vs_base[0]);  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T960;}  
         V160= fix(vs_base[0]);  
2513          vs_top=sup;          vs_top=sup;
2514          goto T961;          V161= vs_base[0];
2515  goto T959;          V159= make_cons((V155),V161);
2516  T959:;          V160= car((V159));
2517          V159= fix(Cnil);  goto T962;
2518  goto T960;  T962:;
2519  T960:;          if(!(endp_prop((V159)))){
2520          V160= fix(Cnil);          goto T963;}
 goto T961;  
 T961:;  
         {object V161;  
         object V162;  
         V163 = make_fixnum(V160);  
         V164 = make_fixnum(V159);  
         V161= number_plus(V163,V164);  
         V162= small_fixnum(0);  
 goto T965;  
 T965:;  
         if(!(number_compare((V162),(V161))>=0)){  
         goto T966;}  
2521          V156= Cnil;          V156= Cnil;
2522          goto T947;          goto T947;
2523  goto T966;  goto T963;
2524  T966:;  T963:;
2525          V165 = make_fixnum(V160);          {long V162;
2526          if(!(number_compare((V162),V165)<0)){          long V163;
2527          goto T977;}          base[4]= (V160);
2528          base[3]= (V155);          vs_top=(vs_base=base+4)+1;
2529          base[4]= (V162);          (void) (*Lnk194)();
2530          vs_top=(vs_base=base+3)+2;          if(vs_base>=vs_top){vs_top=sup;goto T972;}
2531          siLpackage_internal();          V162= fix(vs_base[0]);
2532          vs_top=sup;          vs_base++;
2533          V157= vs_base[0];          if(vs_base>=vs_top){vs_top=sup;goto T973;}
2534          goto T975;          V163= fix(vs_base[0]);
 goto T977;  
 T977:;  
         base[3]= (V155);  
         V166 = make_fixnum(V160);  
         base[4]= number_minus((V162),V166);  
         vs_top=(vs_base=base+3)+2;  
         siLpackage_external();  
2535          vs_top=sup;          vs_top=sup;
2536          V157= vs_base[0];          goto T974;
2537  goto T975;  goto T972;
2538  T975:;  T972:;
2539            V162= fix(Cnil);
2540  goto T973;  goto T973;
2541  T973:;  T973:;
2542          if(((V157))!=Cnil){          V163= fix(Cnil);
2543    goto T974;
2544    T974:;
2545            if(((V155))==((V160))){
2546            goto T975;}
2547            V163= 0;
2548    goto T975;
2549    T975:;
2550            {object V164;
2551            object V165;
2552            V166 = make_fixnum(V163);
2553            V167 = make_fixnum(V162);
2554            V164= number_plus(V166,V167);
2555            V165= small_fixnum(0);
2556    goto T982;
2557    T982:;
2558            if(!(number_compare((V165),(V164))>=0)){
2559          goto T983;}          goto T983;}
2560          goto T974;          goto T969;
2561  goto T983;  goto T983;
2562  T983:;  T983:;
2563          V156= car((V157));          V168 = make_fixnum(V163);
2564          V167= coerce_to_string((V156));          if(!(number_compare((V165),V168)<0)){
2565          if(((*(LnkLI194))((V152),/* INLINE-ARGS */V167))==Cnil){          goto T992;}
2566          goto T988;}{object V168;          base[5]= (V160);
2567          base[3]= (V156);          base[6]= (V165);
2568          base[4]= Ct;          vs_top=(vs_base=base+5)+2;
2569          vs_top=(vs_base=base+3)+2;          siLpackage_internal();
         (void) (*Lnk163)();  
2570          vs_top=sup;          vs_top=sup;
2571          V168= vs_base[0];          V157= vs_base[0];
2572          if(V168==Cnil)goto T992;          goto T990;
         V154= V168;  
         goto T991;  
2573  goto T992;  goto T992;
2574  T992:;}  T992:;
2575  goto T991;          base[5]= (V160);
2576  T991:;          V169 = make_fixnum(V163);
2577            base[6]= number_minus((V165),V169);
2578            vs_top=(vs_base=base+5)+2;
2579            siLpackage_external();
2580            vs_top=sup;
2581            V157= vs_base[0];
2582    goto T990;
2583    T990:;
2584  goto T988;  goto T988;
2585  T988:;  T988:;
2586            if(((V157))!=Cnil){
2587            goto T998;}
2588            goto T989;
2589    goto T998;
2590    T998:;
2591            V156= car((V157));
2592            if(((V160))==((V155))){
2593            goto T1004;}
2594            base[6]= symbol_name((V156));
2595            base[7]= (V155);
2596            vs_top=(vs_base=base+6)+2;
2597            Lfind_symbol();
2598            Llist();
2599            vs_top=sup;
2600            base[5]= vs_base[0];
2601            vs_top=(vs_base=base+5)+1;
2602            Llast();
2603            vs_top=sup;
2604            V170= vs_base[0];
2605            if(!((VV[156])==(car(V170)))){
2606            goto T1003;}
2607    goto T1004;
2608    T1004:;
2609            V171= coerce_to_string((V156));
2610            if(((*(LnkLI195))((V152),/* INLINE-ARGS */V171))==Cnil){
2611            goto T1013;}{object V172;
2612            base[5]= (V156);
2613            base[6]= Ct;
2614            vs_top=(vs_base=base+5)+2;
2615            (void) (*Lnk164)();
2616            vs_top=sup;
2617            V172= vs_base[0];
2618            if(V172==Cnil)goto T1017;
2619            V154= V172;
2620            goto T1016;
2621    goto T1017;
2622    T1017:;}
2623    goto T1016;
2624    T1016:;
2625    goto T1013;
2626    T1013:;
2627    goto T1003;
2628    T1003:;
2629          V157= cdr((V157));          V157= cdr((V157));
2630          goto T973;          goto T988;
2631  goto T974;  goto T989;
2632  T974:;  T989:;
2633          goto T971;          goto T986;
2634  goto T971;  goto T986;
2635  T971:;  T986:;
2636          V162= one_plus((V162));          V165= one_plus((V165));
2637          goto T965;}}}          goto T982;}}
2638    goto T969;
2639    T969:;
2640            V159= cdr((V159));
2641            V160= car((V159));
2642            goto T962;}}
2643  goto T949;  goto T949;
2644  T949:;  T949:;
2645          {object V169;          {object V173;
2646          object V170;          object V174;
2647          vs_base=vs_top;          vs_base=vs_top;
2648          Llist_all_packages();          Llist_all_packages();
2649          vs_top=sup;          vs_top=sup;
2650          V169= vs_base[0];          V173= vs_base[0];
2651          V170= car((V169));          V174= car((V173));
2652  goto T1004;  goto T1034;
2653  T1004:;  T1034:;
2654          if(!(endp_prop((V169)))){          if(!(endp_prop((V173)))){
2655          goto T1005;}          goto T1035;}
2656          goto T947;          goto T947;
2657  goto T1005;  goto T1035;
2658  T1005:;  T1035:;
2659          {object V171;          {object V175;
2660          register object V172;          register object V176;
2661          register object V173;          register object V177;
2662          base[4]= V170;          base[4]= V174;
2663          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2664          Lpackagep();          Lpackagep();
2665          vs_top=sup;          vs_top=sup;
2666          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2667          goto T1012;}          goto T1042;}
2668          V171= V170;          V175= V174;
2669          goto T1010;          goto T1040;
2670  goto T1012;  goto T1042;
2671  T1012:;  T1042:;
2672          base[4]= coerce_to_string(V170);          base[4]= coerce_to_string(V174);
2673          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2674          Lfind_package();          Lfind_package();
2675          vs_top=sup;          vs_top=sup;
2676          V171= vs_base[0];          V175= vs_base[0];
2677  goto T1010;  goto T1040;
2678  T1010:;  T1040:;
2679          V172= Cnil;          V176= Cnil;
2680          V173= Cnil;          V177= Cnil;
2681          {long V175;          {object V179;
2682          long V176;          register object V180;
2683          base[4]= (V171);          base[6]= (V175);
2684          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+6)+1;
2685          (void) (*Lnk193)();          Lpackage_use_list();
2686          if(vs_base>=vs_top){vs_top=sup;goto T1018;}          vs_top=sup;
2687          V175= fix(vs_base[0]);          V181= vs_base[0];
2688            V179= make_cons((V175),V181);
2689            V180= car((V179));
2690    goto T1051;
2691    T1051:;
2692            if(!(endp_prop((V179)))){
2693            goto T1052;}
2694            V176= Cnil;
2695            goto T1039;
2696    goto T1052;
2697    T1052:;
2698            {long V182;
2699            long V183;
2700            base[6]= (V180);
2701            vs_top=(vs_base=base+6)+1;
2702            (void) (*Lnk194)();
2703            if(vs_base>=vs_top){vs_top=sup;goto T1061;}
2704            V182= fix(vs_base[0]);
2705          vs_base++;          vs_base++;
2706          if(vs_base>=vs_top){vs_top=sup;goto T1019;}          if(vs_base>=vs_top){vs_top=sup;goto T1062;}
2707          V176= fix(vs_base[0]);          V183= fix(vs_base[0]);
2708          vs_top=sup;          vs_top=sup;
2709          goto T1020;          goto T1063;
2710  goto T1018;  goto T1061;
2711  T1018:;  T1061:;
2712          V175= fix(Cnil);          V182= fix(Cnil);
2713  goto T1019;  goto T1062;
2714  T1019:;  T1062:;
2715          V176= fix(Cnil);          V183= fix(Cnil);
2716  goto T1020;  goto T1063;
2717  T1020:;  T1063:;
2718          {object V177;          if(((V175))==((V180))){
2719          register object V178;          goto T1064;}
2720          V179 = make_fixnum(V176);          V183= 0;
2721          V180 = make_fixnum(V175);  goto T1064;
2722          V177= number_plus(V179,V180);  T1064:;
2723          V178= small_fixnum(0);          {object V184;
2724  goto T1024;          register object V185;
2725  T1024:;          V186 = make_fixnum(V183);
2726          if(!(number_compare((V178),(V177))>=0)){          V187 = make_fixnum(V182);
2727          goto T1025;}          V184= number_plus(V186,V187);
2728          V172= Cnil;          V185= small_fixnum(0);
2729          goto T1009;  goto T1071;
2730  goto T1025;  T1071:;
2731  T1025:;          if(!(number_compare((V185),(V184))>=0)){
2732          V181 = make_fixnum(V176);          goto T1072;}
2733          if(!(number_compare((V178),V181)<0)){          goto T1058;
2734          goto T1036;}  goto T1072;
2735          base[5]= (V171);  T1072:;
2736          base[6]= (V178);          V188 = make_fixnum(V183);
2737          vs_top=(vs_base=base+5)+2;          if(!(number_compare((V185),V188)<0)){
2738            goto T1081;}
2739            base[7]= (V180);
2740            base[8]= (V185);
2741            vs_top=(vs_base=base+7)+2;
2742          siLpackage_internal();          siLpackage_internal();
2743          vs_top=sup;          vs_top=sup;
2744          V173= vs_base[0];          V177= vs_base[0];
2745          goto T1034;          goto T1079;
2746  goto T1036;  goto T1081;
2747  T1036:;  T1081:;
2748          base[5]= (V171);          base[7]= (V180);
2749          V182 = make_fixnum(V176);          V189 = make_fixnum(V183);
2750          base[6]= number_minus((V178),V182);          base[8]= number_minus((V185),V189);
2751          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+7)+2;
2752          siLpackage_external();          siLpackage_external();
2753          vs_top=sup;          vs_top=sup;
2754          V173= vs_base[0];          V177= vs_base[0];
2755  goto T1034;  goto T1079;
2756  T1034:;  T1079:;
2757  goto T1032;  goto T1077;
2758  T1032:;  T1077:;
2759          if(((V173))!=Cnil){          if(((V177))!=Cnil){
2760          goto T1042;}          goto T1087;}
2761          goto T1033;          goto T1078;
2762  goto T1042;  goto T1087;
2763  T1042:;  T1087:;
2764          V172= car((V173));          V176= car((V177));
2765          V183= coerce_to_string((V172));          if(((V180))==((V175))){
2766          if(((*(LnkLI194))((V152),/* INLINE-ARGS */V183))==Cnil){          goto T1093;}
2767          goto T1047;}{object V184;          base[8]= symbol_name((V176));
2768          base[5]= (V172);          base[9]= (V175);
2769          base[6]= Ct;          vs_top=(vs_base=base+8)+2;
2770          vs_top=(vs_base=base+5)+2;          Lfind_symbol();
2771          (void) (*Lnk163)();          Llist();
2772          vs_top=sup;          vs_top=sup;
2773          V184= vs_base[0];          base[7]= vs_base[0];
2774          if(V184==Cnil)goto T1051;          vs_top=(vs_base=base+7)+1;
2775          V154= V184;          Llast();
2776          goto T1050;          vs_top=sup;
2777  goto T1051;          V190= vs_base[0];
2778  T1051:;}          if(!((VV[156])==(car(V190)))){
2779  goto T1050;          goto T1092;}
2780  T1050:;  goto T1093;
2781  goto T1047;  T1093:;
2782  T1047:;          V191= coerce_to_string((V176));
2783            if(((*(LnkLI195))((V152),/* INLINE-ARGS */V191))==Cnil){
2784            goto T1103;}{object V192;
2785            base[7]= (V176);
2786            base[8]= Ct;
2787            vs_top=(vs_base=base+7)+2;
2788            (void) (*Lnk164)();
2789            vs_top=sup;
2790            V192= vs_base[0];
2791            if(V192==Cnil)goto T1107;
2792            V154= V192;
2793            goto T1106;
2794    goto T1107;
2795    T1107:;}
2796    goto T1106;
2797    T1106:;
2798    goto T1103;
2799    T1103:;
2800    goto T1092;
2801    T1092:;
2802            V177= cdr((V177));
2803            goto T1077;
2804    goto T1078;
2805    T1078:;
2806            goto T1075;
2807    goto T1075;
2808    T1075:;
2809            V185= one_plus((V185));
2810            goto T1071;}}
2811    goto T1058;
2812    T1058:;
2813            V179= cdr((V179));
2814            V180= car((V179));
2815            goto T1051;}}
2816    goto T1039;
2817    T1039:;
2818          V173= cdr((V173));          V173= cdr((V173));
2819          goto T1032;          V174= car((V173));
2820  goto T1033;          goto T1034;}
 T1033:;  
         goto T1030;  
 goto T1030;  
 T1030:;  
         V178= one_plus((V178));  
         goto T1024;}}}  
 goto T1009;  
 T1009:;  
         V169= cdr((V169));  
         V170= car((V169));  
         goto T1004;}  
2821  goto T947;  goto T947;
2822  T947:;  T947:;
2823          if(((V154))==Cnil){          if(((V154))==Cnil){
2824          goto T1067;}          goto T1128;}
2825          base[2]= Ct;          base[2]= Ct;
2826          base[3]= VV[156];          base[3]= VV[157];
2827          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2828          Lformat();          Lformat();
2829          vs_top=sup;          vs_top=sup;
2830          goto T1065;          goto T1126;
2831  goto T1067;  goto T1128;
2832  T1067:;  T1128:;
2833          base[2]= Ct;          base[2]= Ct;
2834          base[3]= VV[157];          base[3]= VV[158];
2835          base[4]= (V152);          base[4]= (V152);
2836          base[5]= (V153);          base[5]= (V153);
2837          if((V153)==Cnil){          if((V153)==Cnil){
2838          base[6]= Cnil;          base[6]= Cnil;
2839          goto T1075;}          goto T1136;}
2840          base[8]= V153;          base[8]= V153;
2841          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2842          Lpackagep();          Lpackagep();
2843          vs_top=sup;          vs_top=sup;
2844          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2845          goto T1078;}          goto T1139;}
2846          base[7]= V153;          base[7]= V153;
2847          goto T1076;          goto T1137;
2848  goto T1078;  goto T1139;
2849  T1078:;  T1139:;
2850          base[8]= coerce_to_string(V153);          base[8]= coerce_to_string(V153);
2851          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2852          Lfind_package();          Lfind_package();
2853          vs_top=sup;          vs_top=sup;
2854          base[7]= vs_base[0];          base[7]= vs_base[0];
2855  goto T1076;  goto T1137;
2856  T1076:;  T1137:;
2857          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2858          Lpackage_name();          Lpackage_name();
2859          vs_top=sup;          vs_top=sup;
2860          base[6]= vs_base[0];          base[6]= vs_base[0];
2861  goto T1075;  goto T1136;
2862  T1075:;  T1136:;
2863          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
2864          Lformat();          Lformat();
2865          vs_top=sup;          vs_top=sup;
2866  goto T1065;  goto T1126;
2867  T1065:;  T1126:;
2868          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
2869          vs_base[0]=Cnil;          vs_base[0]=Cnil;
2870          return;}          return;}
# Line 2795  TTL:; Line 2885  TTL:;
2885          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2886          Lsymbol_package();          Lsymbol_package();
2887          vs_top=sup;          vs_top=sup;
2888          V186= vs_base[0];          V194= vs_base[0];
2889          base[0]= VV[151];          base[0]= VV[151];
2890          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2891          Lfind_package();          Lfind_package();
2892          vs_top=sup;          vs_top=sup;
2893          V187= vs_base[0];          V195= vs_base[0];
2894          if(!((V186)==(V187))){          if(!((V194)==(V195))){
2895          goto T1083;}          goto T1144;}
2896          base[0]= VV[152];          base[0]= VV[152];
2897          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2898          Lfind_package();          Lfind_package();
2899          return;          return;
2900  goto T1083;  goto T1144;
2901  T1083:;  T1144:;
2902          base[0]= symbol_value(VV[130]);          base[0]= symbol_value(VV[130]);
2903          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2904          return;          return;
# Line 2820  register object *base0; Line 2910  register object *base0;
2910  {       register object *base=vs_base;  {       register object *base=vs_base;
2911          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
2912          vs_reserve(VM23);          vs_reserve(VM23);
2913          {object V188;          {object V196;
2914          object V189;          object V197;
2915          check_arg(2);          check_arg(2);
2916          V188=(base[0]);          V196=(base[0]);
2917          V189=(base[1]);          V197=(base[1]);
2918          vs_top=sup;          vs_top=sup;
2919  goto TTL;  goto TTL;
2920  TTL:;  TTL:;
# Line 2832  TTL:; Line 2922  TTL:;
2922          base[2]= Ct;          base[2]= Ct;
2923          base[3]= VV[150];          base[3]= VV[150];
2924          base[4]= base0[0];          base[4]= base0[0];
2925          base[5]= (V189);          base[5]= (V197);
2926          base[6]= (V188);          base[6]= (V196);
2927          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
2928          Lformat();          Lformat();
2929          return;          return;
2930          }          }
2931  }  }
2932  static object  LnkTLI194(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[194],(void **)&LnkLI194,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */  static object  LnkTLI195(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[195],(void **)&LnkLI195,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */
2933  static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* PACKAGE-SIZE */  static void LnkT194(){ call_or_link(VV[194],(void **)&Lnk194);} /* PACKAGE-SIZE */
2934  static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* IDESCRIBE */  static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* IDESCRIBE */
2935  static object  LnkTLI191(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[191],(void **)&LnkLI191,2,ap);va_end(ap);return V1;} /* DOCUMENTATION */  static object  LnkTLI192(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[192],(void **)&LnkLI192,2,ap);va_end(ap);return V1;} /* DOCUMENTATION */
2936  static object  LnkTLI190(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[190],(void **)&LnkLI190,1,ap);va_end(ap);return V1;} /* INSPECT-STRUCTURE */  static object  LnkTLI191(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[191],(void **)&LnkLI191,1,ap);va_end(ap);return V1;} /* INSPECT-STRUCTURE */
2937  static object  LnkTLI189(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[189],(void **)&LnkLI189,1,ap);va_end(ap);return V1;} /* INSPECT-ARRAY */  static object  LnkTLI190(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[190],(void **)&LnkLI190,1,ap);va_end(ap);return V1;} /* INSPECT-ARRAY */
2938  static object  LnkTLI188(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[188],(void **)&LnkLI188,1,ap);va_end(ap);return V1;} /* INSPECT-VECTOR */  static object  LnkTLI189(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[189],(void **)&LnkLI189,1,ap);va_end(ap);return V1;} /* INSPECT-VECTOR */
2939  static object  LnkTLI187(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[187],(void **)&LnkLI187,1,ap);va_end(ap);return V1;} /* INSPECT-STRING */  static object  LnkTLI188(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[188],(void **)&LnkLI188,1,ap);va_end(ap);return V1;} /* INSPECT-STRING */
2940  static object  LnkTLI186(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[186],(void **)&LnkLI186,1,ap);va_end(ap);return V1;} /* INSPECT-CONS */  static object  LnkTLI187(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[187],(void **)&LnkLI187,1,ap);va_end(ap);return V1;} /* INSPECT-CONS */
2941  static object  LnkTLI185(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[185],(void **)&LnkLI185,1,ap);va_end(ap);return V1;} /* INSPECT-NUMBER */  static object  LnkTLI186(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[186],(void **)&LnkLI186,1,ap);va_end(ap);return V1;} /* INSPECT-NUMBER */
2942  static object  LnkTLI184(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[184],(void **)&LnkLI184,1,ap);va_end(ap);return V1;} /* INSPECT-CHARACTER */  static object  LnkTLI185(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[185],(void **)&LnkLI185,1,ap);va_end(ap);return V1;} /* INSPECT-CHARACTER */
2943  static object  LnkTLI183(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[183],(void **)&LnkLI183,1,ap);va_end(ap);return V1;} /* INSPECT-PACKAGE */  static object  LnkTLI184(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[184],(void **)&LnkLI184,1,ap);va_end(ap);return V1;} /* INSPECT-PACKAGE */
2944  static object  LnkTLI182(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[182],(void **)&LnkLI182,1,ap);va_end(ap);return V1;} /* INSPECT-SYMBOL */  static object  LnkTLI183(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[183],(void **)&LnkLI183,1,ap);va_end(ap);return V1;} /* INSPECT-SYMBOL */
2945  static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* STRUCTURE-REF1 */  static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* STRUCTURE-REF1 */
2946  static void LnkT180(){ call_or_link(VV[180],(void **)&Lnk180);} /* ARRAY-TOTAL-SIZE */  static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* ARRAY-TOTAL-SIZE */
2947  static object  LnkTLI179(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[179],(void **)&LnkLI179,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */  static object  LnkTLI180(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[180],(void **)&LnkLI180,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
2948  static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* ARRAY-HAS-FILL-POINTER-P */
2949  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* PACKAGE-SHADOWING-SYMBOLS */  static void LnkT165(){ call_or_link(VV[165],(void **)&Lnk165);} /* PACKAGE-SHADOWING-SYMBOLS */
2950  static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* PRINT-DOC */  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* PRINT-DOC */
2951  static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* READ-INSPECT-COMMAND */  static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* READ-INSPECT-COMMAND */
2952  static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* READ-PRESERVING-WHITESPACE */  static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* READ-PRESERVING-WHITESPACE */
2953  static object  LnkTLI161(){return call_proc0(VV[161],(void **)&LnkLI161);} /* INSPECT-READ-LINE */  static object  LnkTLI162(){return call_proc0(VV[162],(void **)&LnkLI162);} /* INSPECT-READ-LINE */
2954  static object  LnkTLI160(){return call_proc0(VV[160],(void **)&LnkLI160);} /* INSPECT-INDENT */  static object  LnkTLI161(){return call_proc0(VV[161],(void **)&LnkLI161);} /* INSPECT-INDENT */
2955  static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* INSPECT-OBJECT */  static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* INSPECT-OBJECT */
2956  static object  LnkTLI158(){return call_proc0(VV[158],(void **)&LnkLI158);} /* INSPECT-INDENT-1 */  static object  LnkTLI159(){return call_proc0(VV[159],(void **)&LnkLI159);} /* INSPECT-INDENT-1 */
2957    
2958  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2959  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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