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

Diff of /gcl/lsp/gcl_packlib.c

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

revision 1.3 by camm, Mon Sep 22 21:58:26 2003 UTC revision 1.4 by camm, Tue Sep 23 21:48:31 2003 UTC
# Line 34  T2:; Line 34  T2:;
34          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
35          return;}          return;}
36  }  }
37  /*      function definition for FIND-ALL-SYMBOLS        */  /*      local entry for function FIND-ALL-SYMBOLS       */
38    
39  static void L2()  static object LI2(V8)
40  {register object *base=vs_base;  
41          register object *sup=base+VM2; VC2  register object V8;
42          vs_reserve(VM2);  {        VMB2 VMS2 VMV2
         {register object V7;  
         check_arg(1);  
         V7=(base[0]);  
         vs_top=sup;  
43          goto TTL;          goto TTL;
44  TTL:;  TTL:;
45          if(!(type_of((V7))==t_symbol)){          if(!(type_of((V8))==t_symbol)){
46          goto T5;}          goto T5;}
47          V7= symbol_name((V7));          V8= symbol_name((V8));
48          goto T5;          goto T5;
49  T5:;  T5:;
50          vs_base=vs_top;          vs_base=vs_top;
51          Llist_all_packages();          Llist_all_packages();
52          vs_top=sup;          vs_top=sup;
53          V10= vs_base[0];          V11= vs_base[0];
54          {object V8;          {object V9;
55          object V9= V10;          object V10= V11;
56          if(endp(V9)){          if(endp(V10)){
57          base[2]= Cnil;          {object V12 = Cnil;
58          vs_top=(vs_base=base+2)+1;          VMR2(V12)}}
59          return;}          base[0]=V9=MMcons(Cnil,Cnil);
         base[1]=V8=MMcons(Cnil,Cnil);  
60          goto T9;          goto T9;
61  T9:;  T9:;
62          {object V12;          {object V14;
63          object V13;          object V15;
64          base[2]= (V7);          base[1]= (V8);
65          base[3]= (V9->c.c_car);          base[2]= (V10->c.c_car);
66          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+1)+2;
67          Lfind_symbol();          Lfind_symbol();
68          if(vs_base>=vs_top){vs_top=sup;goto T15;}          if(vs_base>=vs_top){vs_top=sup;goto T15;}
69          V12= vs_base[0];          V14= vs_base[0];
70          vs_base++;          vs_base++;
71          if(vs_base>=vs_top){vs_top=sup;goto T16;}          if(vs_base>=vs_top){vs_top=sup;goto T16;}
72          V13= vs_base[0];          V15= vs_base[0];
73          vs_top=sup;          vs_top=sup;
74          goto T17;          goto T17;
75          goto T15;          goto T15;
76  T15:;  T15:;
77          V12= Cnil;          V14= Cnil;
78          goto T16;          goto T16;
79  T16:;  T16:;
80          V13= Cnil;          V15= Cnil;
81          goto T17;          goto T17;
82  T17:;  T17:;
83          if(((V13))==(VV[11])){          if(((V15))==(VV[11])){
84          goto T18;}          goto T18;}
85          if(!(((V13))==(VV[12]))){          if(!(((V15))==(VV[12]))){
86          goto T19;}          goto T19;}
87          goto T18;          goto T18;
88  T18:;  T18:;
89          (V8->c.c_cdr)= make_cons((V12),Cnil);          (V9->c.c_cdr)= make_cons((V14),Cnil);
90          goto T11;          goto T11;
91          goto T19;          goto T19;
92  T19:;  T19:;
93          (V8->c.c_cdr)= Cnil;}          (V9->c.c_cdr)= Cnil;}
94          goto T11;          goto T11;
95  T11:;  T11:;
96          {object cdr_V8=MMcdr(V8);while(!endp(cdr_V8)) {cdr_V8=MMcdr(cdr_V8);V8=MMcdr(V8);}}          {object cdr_V9=MMcdr(V9);while(!endp(cdr_V9)) {cdr_V9=MMcdr(cdr_V9);V9=MMcdr(V9);}}
97          V9=MMcdr(V9);          V10=MMcdr(V10);
98          if(endp(V9)){          if(endp(V10)){
99          base[1]=base[1]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
100          vs_top=(vs_base=base+1)+1;          {object V16 = base[0];
101          return;}          VMR2(V16)}}
102          goto T9;}          goto T9;}
103          }          base[0]=base[0];
104            return Cnil;
105  }  }
106  /*      macro definition for DO-SYMBOLS */  /*      macro definition for DO-SYMBOLS */
107    
# Line 115  static void L3() Line 111  static void L3()
111          vs_reserve(VM3);          vs_reserve(VM3);
112          check_arg(2);          check_arg(2);
113          vs_top=sup;          vs_top=sup;
114          {object V14=base[0]->c.c_cdr;          {object V17=base[0]->c.c_cdr;
115          if(endp(V14))invalid_macro_call();          if(endp(V17))invalid_macro_call();
116          {object V15= (V14->c.c_car);          {object V18= (V17->c.c_car);
117          if(endp(V15))invalid_macro_call();          if(endp(V18))invalid_macro_call();
118          base[2]= (V15->c.c_car);          base[2]= (V18->c.c_car);
119          V15=V15->c.c_cdr;          V18=V18->c.c_cdr;
120          if(endp(V15)){          if(endp(V18)){
121          base[3]= VV[0];          base[3]= VV[0];
122          } else {          } else {
123          base[3]= (V15->c.c_car);          base[3]= (V18->c.c_car);
124          V15=V15->c.c_cdr;}          V18=V18->c.c_cdr;}
125          if(endp(V15)){          if(endp(V18)){
126          base[4]= Cnil;          base[4]= Cnil;
127          } else {          } else {
128          base[4]= (V15->c.c_car);          base[4]= (V18->c.c_car);
129          V15=V15->c.c_cdr;}          V18=V18->c.c_cdr;}
130          if(!endp(V15))invalid_macro_call();}          if(!endp(V18))invalid_macro_call();}
131          V14=V14->c.c_cdr;          V17=V17->c.c_cdr;
132          base[5]= V14;}          base[5]= V17;}
133          {register object V16;          {register object V19;
134          register object V17;          register object V20;
         register object V18;  
         register object V19;  
         object V20;  
135          register object V21;          register object V21;
136          object V22;          register object V22;
137          object V23;          object V23;
138          object V24;          register object V24;
139            object V25;
140            object V26;
141            object V27;
142          vs_base=vs_top;          vs_base=vs_top;
143          Lgensym();          Lgensym();
144          vs_top=sup;          vs_top=sup;
145          V16= vs_base[0];          V19= vs_base[0];
146          vs_base=vs_top;          vs_base=vs_top;
147          Lgensym();          Lgensym();
148          vs_top=sup;          vs_top=sup;
149          V17= vs_base[0];          V20= vs_base[0];
150          vs_base=vs_top;          vs_base=vs_top;
151          Lgensym();          Lgensym();
152          vs_top=sup;          vs_top=sup;
153          V18= vs_base[0];          V21= vs_base[0];
154          vs_base=vs_top;          vs_base=vs_top;
155          Lgensym();          Lgensym();
156          vs_top=sup;          vs_top=sup;
157          V19= vs_base[0];          V22= vs_base[0];
158          vs_base=vs_top;          vs_base=vs_top;
159          Lgensym();          Lgensym();
160          vs_top=sup;          vs_top=sup;
161          V20= vs_base[0];          V23= vs_base[0];
162          vs_base=vs_top;          vs_base=vs_top;
163          Lgensym();          Lgensym();
164          vs_top=sup;          vs_top=sup;
165          V21= vs_base[0];          V24= vs_base[0];
166          vs_base=vs_top;          vs_base=vs_top;
167          Lgensym();          Lgensym();
168          vs_top=sup;          vs_top=sup;
169          V22= vs_base[0];          V25= vs_base[0];
170          vs_base=vs_top;          vs_base=vs_top;
171          Lgensym();          Lgensym();
172          vs_top=sup;          vs_top=sup;
173          V23= vs_base[0];          V26= vs_base[0];
174          V24= Cnil;          V27= Cnil;
175          base[6]= base[5];          base[6]= base[5];
176          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
177          (void) (*Lnk65)();          (void) (*Lnk65)();
178          if(vs_base<vs_top){          if(vs_base<vs_top){
179          V24= vs_base[0];          V27= vs_base[0];
180          vs_base++;          vs_base++;
181          }else{          }else{
182          V24= Cnil;}          V27= Cnil;}
183          if(vs_base<vs_top){          if(vs_base<vs_top){
184          base[5]= vs_base[0];          base[5]= vs_base[0];
185          }else{          }else{
186          base[5]= Cnil;}          base[5]= Cnil;}
187          vs_top=sup;          vs_top=sup;
188          V25= list(3,list(2,(V16),list(2,VV[13],base[3])),base[2],(V18));          V28= list(3,list(2,(V19),list(2,VV[13],base[3])),base[2],(V21));
189          V26= list(3,VV[15],(V16),list(2,VV[16],(V16)));          V29= list(3,VV[15],(V19),list(2,VV[16],(V19)));
190          V27= list(3,(V19),/* INLINE-ARGS */V26,list(3,VV[17],list(3,VV[5],base[2],Cnil),base[4]));          V30= list(3,(V22),/* INLINE-ARGS */V29,list(3,VV[17],list(3,VV[5],base[2],Cnil),base[4]));
191          V28= list(2,(V22),(V21));          V31= list(2,(V25),(V24));
192          V29= list(2,VV[19],(V19));          V32= list(2,VV[19],(V22));
193          V30= list(2,VV[20],list(3,VV[21],(V21),(V22)));          V33= list(2,VV[20],list(3,VV[21],(V24),(V25)));
194          V31= list(2,VV[23],list(3,VV[24],(V16),(V19)));          V34= list(2,VV[23],list(3,VV[24],(V19),(V22)));
195          V32= list(3,VV[22],/* INLINE-ARGS */V31,list(3,VV[5],(V21),small_fixnum(0)));          V35= list(3,VV[22],/* INLINE-ARGS */V34,list(3,VV[5],(V24),small_fixnum(0)));
196          V33= list(2,(V17),list(3,VV[26],(V21),(V22)));          V36= list(2,(V20),list(3,VV[26],(V24),(V25)));
197          V34= list(3,VV[27],(V17),(V21));          V37= list(3,VV[27],(V20),(V24));
198          V35= list(3,VV[28],(V19),(V17));          V38= list(3,VV[28],(V22),(V20));
199          V36= list(3,VV[5],(V18),list(4,VV[22],/* INLINE-ARGS */V34,/* INLINE-ARGS */V35,list(3,VV[29],(V19),list(3,VV[30],(V17),(V21)))));          V39= list(3,VV[5],(V21),list(4,VV[22],/* INLINE-ARGS */V37,/* INLINE-ARGS */V38,list(3,VV[29],(V22),list(3,VV[30],(V20),(V24)))));
200          V37= list(2,VV[32],(V18));          V40= list(2,VV[32],(V21));
201          V38= list(3,VV[31],/* INLINE-ARGS */V37,list(2,VV[33],(V23)));          V41= list(3,VV[31],/* INLINE-ARGS */V40,list(2,VV[33],(V26)));
202          V39= list(3,VV[5],base[2],list(2,VV[34],(V18)));          V42= list(3,VV[5],base[2],list(2,VV[34],(V21)));
203          V40= list(3,VV[24],(V19),(V16));          V43= list(3,VV[24],(V22),(V19));
204          V41= list(3,VV[3],/* INLINE-ARGS */V40,list(3,VV[24],VV[35],list(2,VV[34],list(2,VV[36],list(2,VV[37],list(3,VV[38],list(2,VV[39],base[2]),(V16)))))));          V44= list(3,VV[3],/* INLINE-ARGS */V43,list(3,VV[24],VV[35],list(2,VV[34],list(2,VV[36],list(2,VV[37],list(3,VV[38],list(2,VV[39],base[2]),(V19)))))));
205          V42= list(3,VV[22],/* INLINE-ARGS */V41,make_cons(VV[40],base[5]));          V45= list(3,VV[22],/* INLINE-ARGS */V44,make_cons(VV[40],base[5]));
206          V43= list(3,VV[5],(V18),list(2,VV[41],(V18)));          V46= list(3,VV[5],(V21),list(2,VV[41],(V21)));
207          V44= list(3,VV[14],/* INLINE-ARGS */V27,list(6,VV[18],/* INLINE-ARGS */V28,/* INLINE-ARGS */V29,/* INLINE-ARGS */V30,/* INLINE-ARGS */V32,list(10,VV[25],/* INLINE-ARGS */V33,/* INLINE-ARGS */V36,(V20),/* INLINE-ARGS */V38,/* INLINE-ARGS */V39,/* INLINE-ARGS */V42,/* INLINE-ARGS */V43,list(2,VV[33],(V20)),(V23))));          V47= list(3,VV[14],/* INLINE-ARGS */V30,list(6,VV[18],/* INLINE-ARGS */V31,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,/* INLINE-ARGS */V35,list(10,VV[25],/* INLINE-ARGS */V36,/* INLINE-ARGS */V39,(V23),/* INLINE-ARGS */V41,/* INLINE-ARGS */V42,/* INLINE-ARGS */V45,/* INLINE-ARGS */V46,list(2,VV[33],(V23)),(V26))));
208          V45= make_cons(/* INLINE-ARGS */V44,Cnil);          V48= make_cons(/* INLINE-ARGS */V47,Cnil);
209          base[6]= listA(3,VV[1],/* INLINE-ARGS */V25,append((V24),/* INLINE-ARGS */V45));          base[6]= listA(3,VV[1],/* INLINE-ARGS */V28,append((V27),/* INLINE-ARGS */V48));
210          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
211          return;}          return;}
212  }  }
# Line 222  static void L4() Line 218  static void L4()
218          vs_reserve(VM4);          vs_reserve(VM4);
219          check_arg(2);          check_arg(2);
220          vs_top=sup;          vs_top=sup;
221          {object V46=base[0]->c.c_cdr;          {object V49=base[0]->c.c_cdr;
222          if(endp(V46))invalid_macro_call();          if(endp(V49))invalid_macro_call();
223          {object V47= (V46->c.c_car);          {object V50= (V49->c.c_car);
224          if(endp(V47))invalid_macro_call();          if(endp(V50))invalid_macro_call();
225          base[2]= (V47->c.c_car);          base[2]= (V50->c.c_car);
226          V47=V47->c.c_cdr;          V50=V50->c.c_cdr;
227          if(endp(V47)){          if(endp(V50)){
228          base[3]= VV[0];          base[3]= VV[0];
229          } else {          } else {
230          base[3]= (V47->c.c_car);          base[3]= (V50->c.c_car);
231          V47=V47->c.c_cdr;}          V50=V50->c.c_cdr;}
232          if(endp(V47)){          if(endp(V50)){
233          base[4]= Cnil;          base[4]= Cnil;
234          } else {          } else {
235          base[4]= (V47->c.c_car);          base[4]= (V50->c.c_car);
236          V47=V47->c.c_cdr;}          V50=V50->c.c_cdr;}
237          if(!endp(V47))invalid_macro_call();}          if(!endp(V50))invalid_macro_call();}
238          V46=V46->c.c_cdr;          V49=V49->c.c_cdr;
239          base[5]= V46;}          base[5]= V49;}
240          {object V48;          {object V51;
         object V49;  
         register object V50;  
         object V51;  
241          object V52;          object V52;
242          object V53;          register object V53;
243            object V54;
244            object V55;
245            object V56;
246          vs_base=vs_top;          vs_base=vs_top;
247          Lgensym();          Lgensym();
248          vs_top=sup;          vs_top=sup;
249          V48= vs_base[0];          V51= vs_base[0];
250          vs_base=vs_top;          vs_base=vs_top;
251          Lgensym();          Lgensym();
252          vs_top=sup;          vs_top=sup;
253          V49= vs_base[0];          V52= vs_base[0];
254          vs_base=vs_top;          vs_base=vs_top;
255          Lgensym();          Lgensym();
256          vs_top=sup;          vs_top=sup;
257          V50= vs_base[0];          V53= vs_base[0];
258          vs_base=vs_top;          vs_base=vs_top;
259          Lgensym();          Lgensym();
260          vs_top=sup;          vs_top=sup;
261          V51= vs_base[0];          V54= vs_base[0];
262          vs_base=vs_top;          vs_base=vs_top;
263          Lgensym();          Lgensym();
264          vs_top=sup;          vs_top=sup;
265          V52= vs_base[0];          V55= vs_base[0];
266          V53= Cnil;          V56= Cnil;
267          base[6]= base[5];          base[6]= base[5];
268          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
269          (void) (*Lnk65)();          (void) (*Lnk65)();
270          if(vs_base<vs_top){          if(vs_base<vs_top){
271          V53= vs_base[0];          V56= vs_base[0];
272          vs_base++;          vs_base++;
273          }else{          }else{
274          V53= Cnil;}          V56= Cnil;}
275          if(vs_base<vs_top){          if(vs_base<vs_top){
276          base[5]= vs_base[0];          base[5]= vs_base[0];
277          }else{          }else{
278          base[5]= Cnil;}          base[5]= Cnil;}
279          vs_top=sup;          vs_top=sup;
280          V54= list(3,list(2,(V48),list(2,VV[13],base[3])),base[2],(V50));          V57= list(3,list(2,(V51),list(2,VV[13],base[3])),base[2],(V53));
281          V55= list(2,VV[19],(V48));          V58= list(2,VV[19],(V51));
282          V56= list(3,(V49),/* INLINE-ARGS */V55,list(3,VV[17],list(3,VV[5],base[2],Cnil),base[4]));          V59= list(3,(V52),/* INLINE-ARGS */V58,list(3,VV[17],list(3,VV[5],base[2],Cnil),base[4]));
283          V57= list(3,VV[5],(V50),list(3,VV[29],(V48),(V49)));          V60= list(3,VV[5],(V53),list(3,VV[29],(V51),(V52)));
284          V58= list(2,VV[32],(V50));          V61= list(2,VV[32],(V53));
285          V59= list(3,VV[31],/* INLINE-ARGS */V58,list(2,VV[33],(V52)));          V62= list(3,VV[31],/* INLINE-ARGS */V61,list(2,VV[33],(V55)));
286          V60= list(3,VV[5],base[2],list(2,VV[34],(V50)));          V63= list(3,VV[5],base[2],list(2,VV[34],(V53)));
287          V61= list(3,VV[5],(V50),list(2,VV[41],(V50)));          V64= list(3,VV[5],(V53),list(2,VV[41],(V53)));
288          V62= list(3,/* INLINE-ARGS */V61,list(2,VV[33],(V51)),(V52));          V65= list(3,/* INLINE-ARGS */V64,list(2,VV[33],(V54)),(V55));
289          V63= listA(7,VV[25],/* INLINE-ARGS */V56,/* INLINE-ARGS */V57,(V51),/* INLINE-ARGS */V59,/* INLINE-ARGS */V60,append(base[5],/* INLINE-ARGS */V62));          V66= listA(7,VV[25],/* INLINE-ARGS */V59,/* INLINE-ARGS */V60,(V54),/* INLINE-ARGS */V62,/* INLINE-ARGS */V63,append(base[5],/* INLINE-ARGS */V65));
290          V64= make_cons(/* INLINE-ARGS */V63,Cnil);          V67= make_cons(/* INLINE-ARGS */V66,Cnil);
291          base[6]= listA(3,VV[1],/* INLINE-ARGS */V54,append((V53),/* INLINE-ARGS */V64));          base[6]= listA(3,VV[1],/* INLINE-ARGS */V57,append((V56),/* INLINE-ARGS */V67));
292          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
293          return;}          return;}
294  }  }
# Line 304  static void L5() Line 300  static void L5()
300          vs_reserve(VM5);          vs_reserve(VM5);
301          check_arg(2);          check_arg(2);
302          vs_top=sup;          vs_top=sup;
303          {object V65=base[0]->c.c_cdr;          {object V68=base[0]->c.c_cdr;
304          if(endp(V65))invalid_macro_call();          if(endp(V68))invalid_macro_call();
305          {object V66= (V65->c.c_car);          {object V69= (V68->c.c_car);
306          if(endp(V66))invalid_macro_call();          if(endp(V69))invalid_macro_call();
307          base[2]= (V66->c.c_car);          base[2]= (V69->c.c_car);
308          V66=V66->c.c_cdr;          V69=V69->c.c_cdr;
309          if(endp(V66)){          if(endp(V69)){
310          base[3]= Cnil;          base[3]= Cnil;
311          } else {          } else {
312          base[3]= (V66->c.c_car);          base[3]= (V69->c.c_car);
313          V66=V66->c.c_cdr;}          V69=V69->c.c_cdr;}
314          if(!endp(V66))invalid_macro_call();}          if(!endp(V69))invalid_macro_call();}
315          V65=V65->c.c_cdr;          V68=V68->c.c_cdr;
316          base[4]= V65;}          base[4]= V68;}
317          V67= list(3,VV[42],VV[43],base[3]);          V70= list(3,VV[42],VV[43],base[3]);
318          V68= list(2,base[2],VV[42]);          V71= list(2,base[2],VV[42]);
319          base[5]= list(3,VV[14],/* INLINE-ARGS */V67,list(3,VV[44],/* INLINE-ARGS */V68,make_cons(VV[40],base[4])));          base[5]= list(3,VV[14],/* INLINE-ARGS */V70,list(3,VV[44],/* INLINE-ARGS */V71,make_cons(VV[40],base[4])));
320          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
321          return;          return;
322  }  }
323  /*      function definition for SUBSTRINGP      */  /*      local entry for function SUBSTRINGP     */
324    
325  static void L6()  static object LI6(V74,V75)
326  {register object *base=vs_base;  
327          register object *sup=base+VM6; VC6  register object V74;register object V75;
328          vs_reserve(VM6);  {        VMB6 VMS6 VMV6
         {register object V69;  
         register object V70;  
         check_arg(2);  
         V69=(base[0]);  
         V70=(base[1]);  
         vs_top=sup;  
329          goto TTL;          goto TTL;
330  TTL:;  TTL:;
331          {register object V71;          {register object V76;
332          register object V72;          register object V77;
333          register object V73;          register object V78;
334          V74 = make_fixnum((long)length((V70)));          V79 = make_fixnum((long)length((V75)));
335          V75 = make_fixnum((long)length((V69)));          V80 = make_fixnum((long)length((V74)));
336          V71= number_minus(V74,V75);          V76= number_minus(V79,V80);
337          V72= make_fixnum((long)length((V69)));          V77= make_fixnum((long)length((V74)));
338          V73= small_fixnum(0);          V78= small_fixnum(0);
339          goto T50;          goto T50;
340  T50:;  T50:;
341          if(!(number_compare((V73),(V71))>0)){          if(!(number_compare((V78),(V76))>0)){
342          goto T51;}          goto T51;}
343          base[2]= Cnil;          {object V81 = Cnil;
344          vs_top=(vs_base=base+2)+1;          VMR6(V81)}
         return;  
345          goto T51;          goto T51;
346  T51:;  T51:;
347          base[2]= (V69);          base[0]= (V74);
348          base[3]= (V70);          base[1]= (V75);
349          base[4]= VV[45];          base[2]= VV[45];
350          base[5]= (V73);          base[3]= (V78);
351          base[6]= VV[46];          base[4]= VV[46];
352          base[7]= number_plus((V73),(V72));          base[5]= number_plus((V78),(V77));
353          vs_top=(vs_base=base+2)+6;          vs_top=(vs_base=base+0)+6;
354          Lstring_equal();          Lstring_equal();
355          vs_top=sup;          vs_top=sup;
356          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
357          goto T55;}          goto T55;}
358          base[2]= Ct;          {object V82 = Ct;
359          vs_top=(vs_base=base+2)+1;          VMR6(V82)}
         return;  
360          goto T55;          goto T55;
361  T55:;  T55:;
362          V73= one_plus((V73));          V78= one_plus((V78));
363          goto T50;}          goto T50;}
364          }          base[0]=base[0];
365            return Cnil;
366  }  }
367  /*      function definition for PRINT-SYMBOL-APROPOS    */  /*      local entry for function PRINT-SYMBOL-APROPOS   */
368    
369  static void L7()  static object LI7(V84)
370  {register object *base=vs_base;  
371          register object *sup=base+VM7; VC7  register object V84;
372          vs_reserve(VM7);  {        VMB7 VMS7 VMV7
         {register object V76;  
         check_arg(1);  
         V76=(base[0]);  
         vs_top=sup;  
373          goto TTL;          goto TTL;
374  TTL:;  TTL:;
375          (void)(prin1((V76),Cnil));          (void)(prin1((V84),Cnil));
376          base[1]= (V76);          base[0]= (V84);
377          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
378          Lfboundp();          Lfboundp();
379          vs_top=sup;          vs_top=sup;
380          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
381          goto T68;}          goto T68;}
382          base[1]= (V76);          base[0]= (V84);
383          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
384          Lspecial_form_p();          Lspecial_form_p();
385          vs_top=sup;          vs_top=sup;
386          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
# Line 404  TTL:; Line 389  TTL:;
389          goto T68;          goto T68;
390          goto T73;          goto T73;
391  T73:;  T73:;
392          base[1]= (V76);          base[0]= (V84);
393          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
394          Lmacro_function();          Lmacro_function();
395          vs_top=sup;          vs_top=sup;
396          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
# Line 417  T77:; Line 402  T77:;
402          princ_str("  Function",Cnil);          princ_str("  Function",Cnil);
403          goto T68;          goto T68;
404  T68:;  T68:;
405          base[1]= (V76);          base[0]= (V84);
406          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
407          Lboundp();          Lboundp();
408          vs_top=sup;          vs_top=sup;
409          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
410          goto T80;}          goto T80;}
411          base[1]= (V76);          base[0]= (V84);
412          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
413          Lconstantp();          Lconstantp();
414          vs_top=sup;          vs_top=sup;
415          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
# Line 436  T86:; Line 421  T86:;
421          princ_str("  has value: ",Cnil);          princ_str("  has value: ",Cnil);
422          goto T84;          goto T84;
423  T84:;  T84:;
424          base[1]= (V76);          base[0]= (V84);
425          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
426          Lsymbol_value();          Lsymbol_value();
427          vs_top=sup;          vs_top=sup;
428          V77= vs_base[0];          V85= vs_base[0];
429          (void)(prin1(V77,Cnil));          (void)(prin1(V85,Cnil));
430          goto T80;          goto T80;
431  T80:;  T80:;
432          base[1]= terpri(Cnil);          {object V86 = terpri(Cnil);
433          vs_top=(vs_base=base+1)+1;          VMR7(V86)}
434          return;          base[0]=base[0];
435          }          return Cnil;
436  }  }
437  /*      function definition for APROPOS-LIST    */  /*      local entry for function APROPOS-LIST   */
438    
439  static void L8()  static object LI8(object V87,object first,...)
440  {register object *base=vs_base;  {      
441          register object *sup=base+VM8; VC8          va_list ap;
442          vs_reserve(VM8);          int narg = VFUN_NARGS; VMB8 VMS8 VMV8
443          {object V78;          {object V88;
444          object V79;          object V89;
445          if(vs_top-vs_base<1) too_few_arguments();          va_start(ap,first);
446          if(vs_top-vs_base>2) too_many_arguments();          if(narg <1) too_few_arguments();
447          V78=(base[0]);          V88= V87;
448          vs_base=vs_base+1;          narg = narg - 1;
449          if(vs_base>=vs_top){vs_top=sup;goto T91;}          if (narg <= 0) goto T91;
450          V79=(base[1]);          else {
451          vs_top=sup;          V89= first;}
452          goto T92;          --narg; goto T92;
453          goto T91;          goto T91;
454  T91:;  T91:;
455          V79= Cnil;          V89= Cnil;
456          goto T92;          goto T92;
457  T92:;  T92:;
458          {register object V80;          {register object V90;
459          V80= Cnil;          V90= Cnil;
460          V80= Cnil;          V90= Cnil;
461          V78= coerce_to_string((V78));          V88= coerce_to_string((V88));
462          if(((V79))==Cnil){          if(((V89))==Cnil){
463          goto T101;}          goto T101;}
464          {object V81;          {object V91;
465          object V82;          object V92;
466          object V83;          object V93;
467          {object V84;          {object V94;
468          V84= (V79);          V94= (V89);
469          base[2]= (V84);          base[0]= (V94);
470          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
471          Lpackagep();          Lpackagep();
472          vs_top=sup;          vs_top=sup;
473          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
474          goto T105;}          goto T105;}
475          base[2]= coerce_to_string((V84));          base[0]= coerce_to_string((V94));
476          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
477          Lfind_package();          Lfind_package();
478          vs_top=sup;          vs_top=sup;
479          V84= vs_base[0];          V94= vs_base[0];
480          if(((V84))!=Cnil){          if(((V94))!=Cnil){
481          goto T105;}          goto T105;}
482          base[2]= VV[9];          base[0]= VV[9];
483          base[3]= VV[10];          base[1]= VV[10];
484          base[4]= (V79);          base[2]= (V89);
485          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+0)+3;
486          (void) (*Lnk8)();          (void) (*Lnk8)();
487          vs_top=sup;          vs_top=sup;
488          goto T105;          goto T105;
489  T105:;  T105:;
490          V81= (V84);}          V91= (V94);}
491          V82= Cnil;          V92= Cnil;
492          V83= Cnil;          V93= Cnil;
493          {object V85;          {object V95;
494          object V86;          object V96;
495          base[4]= (V81);          base[2]= (V91);
496          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
497          Lpackage_use_list();          Lpackage_use_list();
498          vs_top=sup;          vs_top=sup;
499          V87= vs_base[0];          V97= vs_base[0];
500          V85= make_cons((V81),V87);          V95= make_cons((V91),V97);
501          V86= car((V85));          V96= car((V95));
502          goto T121;          goto T121;
503  T121:;  T121:;
504          if(!(endp_prop((V85)))){          if(!(endp_prop((V95)))){
505          goto T122;}          goto T122;}
506          V82= Cnil;          V92= Cnil;
507          goto T103;          goto T103;
508          goto T122;          goto T122;
509  T122:;  T122:;
510          {long V88;          {long V98;
511          long V89;          long V99;
512          base[4]= (V86);          base[2]= (V96);
513          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
514          (void) (*Lnk19)();          (void) (*Lnk19)();
515          if(vs_base>=vs_top){vs_top=sup;goto T131;}          if(vs_base>=vs_top){vs_top=sup;goto T131;}
516          V88= fix(vs_base[0]);          V98= fix(vs_base[0]);
517          vs_base++;          vs_base++;
518          if(vs_base>=vs_top){vs_top=sup;goto T132;}          if(vs_base>=vs_top){vs_top=sup;goto T132;}
519          V89= fix(vs_base[0]);          V99= fix(vs_base[0]);
520          vs_top=sup;          vs_top=sup;
521          goto T133;          goto T133;
522          goto T131;          goto T131;
523  T131:;  T131:;
524          V88= fix(Cnil);          V98= fix(Cnil);
525          goto T132;          goto T132;
526  T132:;  T132:;
527          V89= fix(Cnil);          V99= fix(Cnil);
528          goto T133;          goto T133;
529  T133:;  T133:;
530          if(((V81))==((V86))){          if(((V91))==((V96))){
531          goto T134;}          goto T134;}
532          V89= 0;          V99= 0;
533          goto T134;          goto T134;
534  T134:;  T134:;
535          {object V90;          {object V100;
536          object V91;          object V101;
537          V92 = make_fixnum(V89);          V102 = make_fixnum(V99);
538          V93 = make_fixnum(V88);          V103 = make_fixnum(V98);
539          V90= number_plus(V92,V93);          V100= number_plus(V102,V103);
540          V91= small_fixnum(0);          V101= small_fixnum(0);
541          goto T141;          goto T141;
542  T141:;  T141:;
543          if(!(number_compare((V91),(V90))>=0)){          if(!(number_compare((V101),(V100))>=0)){
544          goto T142;}          goto T142;}
545          goto T128;          goto T128;
546          goto T142;          goto T142;
547  T142:;  T142:;
548          V94 = make_fixnum(V89);          V104 = make_fixnum(V99);
549          if(!(number_compare((V91),V94)<0)){          if(!(number_compare((V101),V104)<0)){
550          goto T151;}          goto T151;}
551          base[5]= (V86);          base[3]= (V96);
552          base[6]= (V91);          base[4]= (V101);
553          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+3)+2;
554          siLpackage_internal();          siLpackage_internal();
555          vs_top=sup;          vs_top=sup;
556          V83= vs_base[0];          V93= vs_base[0];
557          goto T149;          goto T149;
558          goto T151;          goto T151;
559  T151:;  T151:;
560          base[5]= (V86);          base[3]= (V96);
561          V95 = make_fixnum(V89);          V105 = make_fixnum(V99);
562          base[6]= number_minus((V91),V95);          base[4]= number_minus((V101),V105);
563          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+3)+2;
564          siLpackage_external();          siLpackage_external();
565          vs_top=sup;          vs_top=sup;
566          V83= vs_base[0];          V93= vs_base[0];
567          goto T149;          goto T149;
568  T149:;  T149:;
569          goto T147;          goto T147;
570  T147:;  T147:;
571          if(((V83))!=Cnil){          if(((V93))!=Cnil){
572          goto T157;}          goto T157;}
573          goto T148;          goto T148;
574          goto T157;          goto T157;
575  T157:;  T157:;
576          V82= car((V83));          V92= car((V93));
577          if(((V86))==((V81))){          if(((V96))==((V91))){
578          goto T163;}          goto T163;}
579          base[6]= symbol_name((V82));          base[4]= symbol_name((V92));
580          base[7]= (V81);          base[5]= (V91);
581          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+4)+2;
582          Lfind_symbol();          Lfind_symbol();
583          Llist();          Llist();
584          vs_top=sup;          vs_top=sup;
585          base[5]= vs_base[0];          base[3]= vs_base[0];
586          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+3)+1;
587          Llast();          Llast();
588          vs_top=sup;          vs_top=sup;
589          V96= vs_base[0];          V106= vs_base[0];
590          if(!((VV[35])==(car(V96)))){          if(!((VV[35])==(car(V106)))){
591          goto T162;}          goto T162;}
592          goto T163;          goto T163;
593  T163:;  T163:;
594          base[5]= (V78);          V107= coerce_to_string((V92));
595          base[6]= coerce_to_string((V82));          if(((*(LnkLI66))((V88),/* INLINE-ARGS */V107))==Cnil){
         vs_top=(vs_base=base+5)+2;  
         (void) (*Lnk66)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
596          goto T172;}          goto T172;}
597          V80= make_cons((V82),(V80));          V90= make_cons((V92),(V90));
598          goto T172;          goto T172;
599  T172:;  T172:;
600          goto T162;          goto T162;
601  T162:;  T162:;
602          V83= cdr((V83));          V93= cdr((V93));
603          goto T147;          goto T147;
604          goto T148;          goto T148;
605  T148:;  T148:;
606          goto T145;          goto T145;
607          goto T145;          goto T145;
608  T145:;  T145:;
609          V91= one_plus((V91));          V101= one_plus((V101));
610          goto T141;}}          goto T141;}}
611          goto T128;          goto T128;
612  T128:;  T128:;
613          V85= cdr((V85));          V95= cdr((V95));
614          V86= car((V85));          V96= car((V95));
615          goto T121;}}          goto T121;}}
616          goto T103;          goto T103;
617  T103:;  T103:;
618          {object V97;          {object V108;
619          base[2]= (V79);          base[0]= (V89);
620          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
621          Lpackage_use_list();          Lpackage_use_list();
622          vs_top=sup;          vs_top=sup;
623          V97= vs_base[0];          V108= vs_base[0];
624          goto T191;          goto T189;
625  T191:;  T189:;
626          if(((V97))!=Cnil){          if(((V108))!=Cnil){
627          goto T192;}          goto T190;}
628          goto T99;          goto T99;
629          goto T192;          goto T190;
630  T192:;  T190:;
631          {object V98;          {object V109;
632          object V99;          object V110;
633          register object V100;          register object V111;
634          {object V101;          {object V112;
635          V101= car((V97));          V112= car((V108));
636          base[2]= (V101);          base[0]= (V112);
637          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
638          Lpackagep();          Lpackagep();
639          vs_top=sup;          vs_top=sup;
640          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
641          goto T199;}          goto T197;}
642          base[2]= coerce_to_string((V101));          base[0]= coerce_to_string((V112));
643          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
644          Lfind_package();          Lfind_package();
645          vs_top=sup;          vs_top=sup;
646          V101= vs_base[0];          V112= vs_base[0];
647          if(((V101))!=Cnil){          if(((V112))!=Cnil){
648          goto T199;}          goto T197;}
649          base[2]= VV[9];          base[0]= VV[9];
650          base[3]= VV[10];          base[1]= VV[10];
651          base[4]= car((V97));          base[2]= car((V108));
652          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+0)+3;
653          (void) (*Lnk8)();          (void) (*Lnk8)();
654          vs_top=sup;          vs_top=sup;
655          goto T199;          goto T197;
656  T199:;  T197:;
657          V98= (V101);}          V109= (V112);}
658          V99= Cnil;          V110= Cnil;
659          V100= Cnil;          V111= Cnil;
660          {object V102;          {object V113;
661          object V103;          object V114;
662          base[3]= (V98);          base[1]= (V109);
663          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+1)+1;
664          (void) (*Lnk19)();          (void) (*Lnk19)();
665          vs_top=sup;          vs_top=sup;
666          V102= vs_base[0];          V113= vs_base[0];
667          V103= small_fixnum(0);          V114= small_fixnum(0);
668          goto T214;          goto T212;
669  T214:;  T212:;
670          if(!(number_compare((V103),(V102))>=0)){          if(!(number_compare((V114),(V113))>=0)){
671          goto T215;}          goto T213;}
672          V99= Cnil;          V110= Cnil;
673          goto T196;          goto T194;
674          goto T215;          goto T213;
675  T215:;  T213:;
676          base[3]= (V98);          base[1]= (V109);
677          base[4]= (V103);          base[2]= (V114);
678          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+1)+2;
679          siLpackage_external();          siLpackage_external();
680          vs_top=sup;          vs_top=sup;
681          V100= vs_base[0];          V111= vs_base[0];
         goto T222;  
 T222:;  
         if(((V100))!=Cnil){  
         goto T227;}  
         goto T223;  
         goto T227;  
 T227:;  
         V99= car((V100));  
         base[3]= (V78);  
         base[4]= coerce_to_string((V99));  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk66)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T232;}  
         V80= make_cons((V99),(V80));  
         goto T232;  
 T232:;  
         V100= cdr((V100));  
         goto T222;  
         goto T223;  
 T223:;  
         goto T220;  
682          goto T220;          goto T220;
683  T220:;  T220:;
684          V103= one_plus((V103));          if(((V111))!=Cnil){
685          goto T214;}}          goto T225;}
686          goto T196;          goto T221;
687  T196:;          goto T225;
688          V97= cdr((V97));  T225:;
689          goto T191;}          V110= car((V111));
690            V115= coerce_to_string((V110));
691            if(((*(LnkLI66))((V88),/* INLINE-ARGS */V115))==Cnil){
692            goto T230;}
693            V90= make_cons((V110),(V90));
694            goto T230;
695    T230:;
696            V111= cdr((V111));
697            goto T220;
698            goto T221;
699    T221:;
700            goto T218;
701            goto T218;
702    T218:;
703            V114= one_plus((V114));
704            goto T212;}}
705            goto T194;
706    T194:;
707            V108= cdr((V108));
708            goto T189;}
709          goto T101;          goto T101;
710  T101:;  T101:;
711          {object V104;          {object V116;
712          object V105;          object V117;
713          vs_base=vs_top;          vs_base=vs_top;
714          Llist_all_packages();          Llist_all_packages();
715          vs_top=sup;          vs_top=sup;
716          V104= vs_base[0];          V116= vs_base[0];
717          V105= car((V104));          V117= car((V116));
718          goto T249;          goto T245;
719  T249:;  T245:;
720          if(!(endp_prop((V104)))){          if(!(endp_prop((V116)))){
721          goto T250;}          goto T246;}
722          goto T99;          goto T99;
723          goto T250;          goto T246;
724  T250:;  T246:;
725          {object V106;          {object V118;
726          register object V107;          register object V119;
727          register object V108;          register object V120;
728          {object V109;          {object V121;
729          V109= (V105);          V121= (V117);
730          base[4]= (V109);          base[2]= (V121);
731          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
732          Lpackagep();          Lpackagep();
733          vs_top=sup;          vs_top=sup;
734          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
735          goto T256;}          goto T252;}
736          base[4]= coerce_to_string((V109));          base[2]= coerce_to_string((V121));
737          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
738          Lfind_package();          Lfind_package();
739          vs_top=sup;          vs_top=sup;
740          V109= vs_base[0];          V121= vs_base[0];
741          if(((V109))!=Cnil){          if(((V121))!=Cnil){
742          goto T256;}          goto T252;}
743          base[4]= VV[9];          base[2]= VV[9];
744          base[5]= VV[10];          base[3]= VV[10];
745          base[6]= (V105);          base[4]= (V117);
746          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+2)+3;
747          (void) (*Lnk8)();          (void) (*Lnk8)();
748          vs_top=sup;          vs_top=sup;
749          goto T256;          goto T252;
750  T256:;  T252:;
751          V106= (V109);}          V118= (V121);}
752          V107= Cnil;          V119= Cnil;
753          V108= Cnil;          V120= Cnil;
754          {object V110;          {object V122;
755          register object V111;          register object V123;
756          base[6]= (V106);          base[4]= (V118);
757          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+4)+1;
758          Lpackage_use_list();          Lpackage_use_list();
759          vs_top=sup;          vs_top=sup;
760          V112= vs_base[0];          V124= vs_base[0];
761          V110= make_cons((V106),V112);          V122= make_cons((V118),V124);
762          V111= car((V110));          V123= car((V122));
763          goto T272;          goto T268;
764  T272:;  T268:;
765          if(!(endp_prop((V110)))){          if(!(endp_prop((V122)))){
766          goto T273;}          goto T269;}
767          V107= Cnil;          V119= Cnil;
768          goto T254;          goto T250;
769          goto T273;          goto T269;
770  T273:;  T269:;
771          {long V113;          {long V125;
772          long V114;          long V126;
773          base[6]= (V111);          base[4]= (V123);
774          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+4)+1;
775          (void) (*Lnk19)();          (void) (*Lnk19)();
776          if(vs_base>=vs_top){vs_top=sup;goto T282;}          if(vs_base>=vs_top){vs_top=sup;goto T278;}
777          V113= fix(vs_base[0]);          V125= fix(vs_base[0]);
778          vs_base++;          vs_base++;
779          if(vs_base>=vs_top){vs_top=sup;goto T283;}          if(vs_base>=vs_top){vs_top=sup;goto T279;}
780          V114= fix(vs_base[0]);          V126= fix(vs_base[0]);
781          vs_top=sup;          vs_top=sup;
782          goto T284;          goto T280;
783          goto T282;          goto T278;
784  T282:;  T278:;
785          V113= fix(Cnil);          V125= fix(Cnil);
         goto T283;  
 T283:;  
         V114= fix(Cnil);  
         goto T284;  
 T284:;  
         if(((V106))==((V111))){  
         goto T285;}  
         V114= 0;  
         goto T285;  
 T285:;  
         {object V115;  
         register object V116;  
         V117 = make_fixnum(V114);  
         V118 = make_fixnum(V113);  
         V115= number_plus(V117,V118);  
         V116= small_fixnum(0);  
         goto T292;  
 T292:;  
         if(!(number_compare((V116),(V115))>=0)){  
         goto T293;}  
786          goto T279;          goto T279;
787          goto T293;  T279:;
788  T293:;          V126= fix(Cnil);
789          V119 = make_fixnum(V114);          goto T280;
790          if(!(number_compare((V116),V119)<0)){  T280:;
791          goto T302;}          if(((V118))==((V123))){
792          base[7]= (V111);          goto T281;}
793          base[8]= (V116);          V126= 0;
794          vs_top=(vs_base=base+7)+2;          goto T281;
795    T281:;
796            {object V127;
797            register object V128;
798            V129 = make_fixnum(V126);
799            V130 = make_fixnum(V125);
800            V127= number_plus(V129,V130);
801            V128= small_fixnum(0);
802            goto T288;
803    T288:;
804            if(!(number_compare((V128),(V127))>=0)){
805            goto T289;}
806            goto T275;
807            goto T289;
808    T289:;
809            V131 = make_fixnum(V126);
810            if(!(number_compare((V128),V131)<0)){
811            goto T298;}
812            base[5]= (V123);
813            base[6]= (V128);
814            vs_top=(vs_base=base+5)+2;
815          siLpackage_internal();          siLpackage_internal();
816          vs_top=sup;          vs_top=sup;
817          V108= vs_base[0];          V120= vs_base[0];
818          goto T300;          goto T296;
         goto T302;  
 T302:;  
         base[7]= (V111);  
         V120 = make_fixnum(V114);  
         base[8]= number_minus((V116),V120);  
         vs_top=(vs_base=base+7)+2;  
         siLpackage_external();  
         vs_top=sup;  
         V108= vs_base[0];  
         goto T300;  
 T300:;  
819          goto T298;          goto T298;
820  T298:;  T298:;
821          if(((V108))!=Cnil){          base[5]= (V123);
822          goto T308;}          V132 = make_fixnum(V126);
823          goto T299;          base[6]= number_minus((V128),V132);
824          goto T308;          vs_top=(vs_base=base+5)+2;
825  T308:;          siLpackage_external();
826          V107= car((V108));          vs_top=sup;
827          if(((V111))==((V106))){          V120= vs_base[0];
828          goto T314;}          goto T296;
829          base[8]= symbol_name((V107));  T296:;
830          base[9]= (V106);          goto T294;
831          vs_top=(vs_base=base+8)+2;  T294:;
832            if(((V120))!=Cnil){
833            goto T304;}
834            goto T295;
835            goto T304;
836    T304:;
837            V119= car((V120));
838            if(((V123))==((V118))){
839            goto T310;}
840            base[6]= symbol_name((V119));
841            base[7]= (V118);
842            vs_top=(vs_base=base+6)+2;
843          Lfind_symbol();          Lfind_symbol();
844          Llist();          Llist();
845          vs_top=sup;          vs_top=sup;
846          base[7]= vs_base[0];          base[5]= vs_base[0];
847          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+5)+1;
848          Llast();          Llast();
849          vs_top=sup;          vs_top=sup;
850          V121= vs_base[0];          V133= vs_base[0];
851          if(!((VV[35])==(car(V121)))){          if(!((VV[35])==(car(V133)))){
852          goto T313;}          goto T309;}
853          goto T314;          goto T310;
854  T314:;  T310:;
855          base[7]= (V78);          V134= coerce_to_string((V119));
856          base[8]= coerce_to_string((V107));          if(((*(LnkLI66))((V88),/* INLINE-ARGS */V134))==Cnil){
857          vs_top=(vs_base=base+7)+2;          goto T320;}
858          (void) (*Lnk66)();          V90= make_cons((V119),(V90));
859          vs_top=sup;          goto T320;
860          if((vs_base[0])==Cnil){  T320:;
861          goto T324;}          goto T309;
862          V80= make_cons((V107),(V80));  T309:;
863          goto T324;          V120= cdr((V120));
864  T324:;          goto T294;
865          goto T313;          goto T295;
866  T313:;  T295:;
867          V108= cdr((V108));          goto T292;
868          goto T298;          goto T292;
869          goto T299;  T292:;
870  T299:;          V128= one_plus((V128));
871          goto T296;          goto T288;}}
872          goto T296;          goto T275;
873  T296:;  T275:;
874          V116= one_plus((V116));          V122= cdr((V122));
875          goto T292;}}          V123= car((V122));
876          goto T279;          goto T268;}}
877  T279:;          goto T250;
878          V110= cdr((V110));  T250:;
879          V111= car((V110));          V116= cdr((V116));
880          goto T272;}}          V117= car((V116));
881          goto T254;          goto T245;}
 T254:;  
         V104= cdr((V104));  
         V105= car((V104));  
         goto T249;}  
882          goto T99;          goto T99;
883  T99:;  T99:;
884          base[3]= (V80);          V135= symbol_function(VV[24]);
885          base[4]= VV[47];          base[0]= (VFUN_NARGS=3,(*(LnkLI67))((V90),VV[47],V135));
886          base[5]= symbol_function(VV[24]);          base[1]= symbol_function(VV[68]);
887          vs_top=(vs_base=base+3)+3;          base[2]= VV[48];
888          (void) (*Lnk67)();          base[3]= symbol_function(VV[39]);
889          vs_top=sup;          vs_top=(vs_base=base+0)+4;
         base[2]= vs_base[0];  
         base[3]= symbol_function(VV[68]);  
         base[4]= VV[48];  
         base[5]= symbol_function(VV[39]);  
         vs_top=(vs_base=base+2)+4;  
890          (void) (*Lnk69)();          (void) (*Lnk69)();
891          return;}          vs_top=sup;
892            {object V136 = vs_base[0];
893            VMR8(V136)}}
894            va_end(ap);
895            base[0]=base[0];
896            return Cnil;}
897          }          }
 }  
898  /*      function definition for APROPOS */  /*      function definition for APROPOS */
899    
900  static void L9()  static void L9()
901  {register object *base=vs_base;  {register object *base=vs_base;
902          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
903          vs_reserve(VM9);          vs_reserve(VM9);
904          {object V122;          {object V137;
905          object V123;          object V138;
906          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
907          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
908          V122=(base[0]);          V137=(base[0]);
909          vs_base=vs_base+1;          vs_base=vs_base+1;
910          if(vs_base>=vs_top){vs_top=sup;goto T352;}          if(vs_base>=vs_top){vs_top=sup;goto T344;}
911          V123=(base[1]);          V138=(base[1]);
912          vs_top=sup;          vs_top=sup;
913          goto T353;          goto T345;
914            goto T344;
915    T344:;
916            V138= Cnil;
917            goto T345;
918    T345:;
919            {register object V139;
920            register object V140;
921            V139= (VFUN_NARGS=2,(*(LnkLI70))((V137),(V138)));
922            V140= car((V139));
923            goto T351;
924    T351:;
925            if(!(endp_prop((V139)))){
926            goto T352;}
927            goto T347;
928          goto T352;          goto T352;
929  T352:;  T352:;
930          V123= Cnil;          (void)((*(LnkLI71))((V140)));
931          goto T353;          V139= cdr((V139));
932  T353:;          V140= car((V139));
933          {register object V124;          goto T351;}
934          register object V125;          goto T347;
935          base[4]= (V122);  T347:;
         base[5]= (V123);  
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk70)();  
         vs_top=sup;  
         V124= vs_base[0];  
         V125= car((V124));  
         goto T361;  
 T361:;  
         if(!(endp_prop((V124)))){  
         goto T362;}  
         goto T355;  
         goto T362;  
 T362:;  
         base[4]= (V125);  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk71)();  
         vs_top=sup;  
         V124= cdr((V124));  
         V125= car((V124));  
         goto T361;}  
         goto T355;  
 T355:;  
936          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
937          vs_base[0]=Cnil;          vs_base[0]=Cnil;
938          return;          return;
# Line 982  static void L10() Line 946  static void L10()
946          vs_reserve(VM10);          vs_reserve(VM10);
947          check_arg(2);          check_arg(2);
948          vs_top=sup;          vs_top=sup;
949          {object V126=base[0]->c.c_cdr;          {object V141=base[0]->c.c_cdr;
950          if(endp(V126))invalid_macro_call();          if(endp(V141))invalid_macro_call();
951          {object V127= (V126->c.c_car);          {object V142= (V141->c.c_car);
952          if(endp(V127))invalid_macro_call();          if(endp(V142))invalid_macro_call();
953          base[2]= (V127->c.c_car);          base[2]= (V142->c.c_car);
954          V127=V127->c.c_cdr;          V142=V142->c.c_cdr;
955          if(endp(V127))invalid_macro_call();          if(endp(V142))invalid_macro_call();
956          base[3]= (V127->c.c_car);          base[3]= (V142->c.c_car);
957          V127=V127->c.c_cdr;          V142=V142->c.c_cdr;
958          base[4]= V127;}          base[4]= V142;}
959          V126=V126->c.c_cdr;          V141=V141->c.c_cdr;
960          base[5]= V126;}          base[5]= V141;}
961          {register object V128;          {register object V143;
962          register object V129;          register object V144;
963          register object V130;          register object V145;
964          register object V131;          register object V146;
965          object V132;          object V147;
966          register object V133;          register object V148;
967          register object V134;          register object V149;
968          register object V135;          register object V150;
969          object V136;          object V151;
970          vs_base=vs_top;          vs_base=vs_top;
971          Lgensym();          Lgensym();
972          vs_top=sup;          vs_top=sup;
973          V128= vs_base[0];          V143= vs_base[0];
974          vs_base=vs_top;          vs_base=vs_top;
975          Lgensym();          Lgensym();
976          vs_top=sup;          vs_top=sup;
977          V129= vs_base[0];          V144= vs_base[0];
978          vs_base=vs_top;          vs_base=vs_top;
979          Lgensym();          Lgensym();
980          vs_top=sup;          vs_top=sup;
981          V130= vs_base[0];          V145= vs_base[0];
982          vs_base=vs_top;          vs_base=vs_top;
983          Lgensym();          Lgensym();
984          vs_top=sup;          vs_top=sup;
985          V131= vs_base[0];          V146= vs_base[0];
986          vs_base=vs_top;          vs_base=vs_top;
987          Lgensym();          Lgensym();
988          vs_top=sup;          vs_top=sup;
989          V132= vs_base[0];          V147= vs_base[0];
990          vs_base=vs_top;          vs_base=vs_top;
991          Lgensym();          Lgensym();
992          vs_top=sup;          vs_top=sup;
993          V133= vs_base[0];          V148= vs_base[0];
994          vs_base=vs_top;          vs_base=vs_top;
995          Lgensym();          Lgensym();
996          vs_top=sup;          vs_top=sup;
997          V134= vs_base[0];          V149= vs_base[0];
998          vs_base=vs_top;          vs_base=vs_top;
999          Lgensym();          Lgensym();
1000          vs_top=sup;          vs_top=sup;
1001          V135= vs_base[0];          V150= vs_base[0];
1002          V136= Cnil;          V151= Cnil;
1003          base[6]= base[5];          base[6]= base[5];
1004          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1005          (void) (*Lnk65)();          (void) (*Lnk65)();
1006          if(vs_base<vs_top){          if(vs_base<vs_top){
1007          V136= vs_base[0];          V151= vs_base[0];
1008          vs_base++;          vs_base++;
1009          }else{          }else{
1010          V136= Cnil;}          V151= Cnil;}
1011          if(vs_base<vs_top){          if(vs_base<vs_top){
1012          base[5]= vs_base[0];          base[5]= vs_base[0];
1013          }else{          }else{
1014          base[5]= Cnil;}          base[5]= Cnil;}
1015          vs_top=sup;          vs_top=sup;
1016          if((base[4])!=Cnil){          if((base[4])!=Cnil){
1017          goto T384;}          goto T373;}
1018          base[6]= VV[49];          base[6]= VV[49];
1019          base[7]= VV[50];          base[7]= VV[50];
1020          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1021          (void) (*Lnk8)();          (void) (*Lnk8)();
1022          vs_top=sup;          vs_top=sup;
1023          goto T384;          goto T373;
1024  T384:;  T373:;
1025          V137= list(2,VV[51],base[3]);          V152= list(2,VV[51],base[3]);
1026          V138= list(2,(V128),list(3,VV[15],Ct,list(4,VV[22],/* INLINE-ARGS */V137,list(2,VV[52],base[3]),base[3])));          V153= list(2,(V143),list(3,VV[15],Ct,list(4,VV[22],/* INLINE-ARGS */V152,list(2,VV[52],base[3]),base[3])));
1027          V139= list(2,(V131),Cnil);          V154= list(2,(V146),Cnil);
1028          V140= list(2,(V130),Cnil);          V155= list(2,(V145),Cnil);
1029          V141= list(2,(V129),small_fixnum(-1));          V156= list(2,(V144),small_fixnum(-1));
1030          V142= list(2,(V133),small_fixnum(0));          V157= list(2,(V148),small_fixnum(0));
1031          V143= list(2,(V134),small_fixnum(0));          V158= list(2,(V149),small_fixnum(0));
1032          V144= list(2,(V132),Cnil);          V159= list(2,(V147),Cnil);
1033          V145= list(8,/* INLINE-ARGS */V138,/* INLINE-ARGS */V139,/* INLINE-ARGS */V140,/* INLINE-ARGS */V141,/* INLINE-ARGS */V142,/* INLINE-ARGS */V143,/* INLINE-ARGS */V144,list(2,(V135),Cnil));          V160= list(8,/* INLINE-ARGS */V153,/* INLINE-ARGS */V154,/* INLINE-ARGS */V155,/* INLINE-ARGS */V156,/* INLINE-ARGS */V157,/* INLINE-ARGS */V158,/* INLINE-ARGS */V159,list(2,(V150),Cnil));
1034          V146= list(2,VV[20],list(3,VV[21],(V133),(V134)));          V161= list(2,VV[20],list(3,VV[21],(V148),(V149)));
1035          V147= list(2,VV[32],list(3,VV[5],(V130),list(2,VV[41],(V130))));          V162= list(2,VV[32],list(3,VV[5],(V145),list(2,VV[41],(V145))));
1036          V148= list(2,VV[55],(V129));          V163= list(2,VV[55],(V144));
1037          V149= list(3,VV[54],/* INLINE-ARGS */V148,list(3,VV[26],(V133),(V134)));          V164= list(3,VV[54],/* INLINE-ARGS */V163,list(3,VV[26],(V148),(V149)));
1038          V150= list(2,VV[32],list(3,VV[5],(V131),list(2,VV[41],(V131))));          V165= list(2,VV[32],list(3,VV[5],(V146),list(2,VV[41],(V146))));
1039          V151= list(2,VV[32],list(3,VV[5],(V128),list(2,VV[41],(V128))));          V166= list(2,VV[32],list(3,VV[5],(V143),list(2,VV[41],(V143))));
1040          V152= list(3,VV[31],/* INLINE-ARGS */V151,list(3,VV[56],base[2],Cnil));          V167= list(3,VV[31],/* INLINE-ARGS */V166,list(3,VV[56],base[2],Cnil));
1041          V153= list(3,VV[57],(V128),list(2,VV[13],list(2,VV[34],(V128))));          V168= list(3,VV[57],(V143),list(2,VV[13],list(2,VV[34],(V143))));
1042          V154= list(3,VV[5],(V131),list(2,VV[52],list(2,VV[13],list(2,VV[34],(V128)))));          V169= list(3,VV[5],(V146),list(2,VV[52],list(2,VV[13],list(2,VV[34],(V143)))));
1043          V155= list(3,VV[58],VV[35],make_cons(VV[52],base[4]));          V170= list(3,VV[58],VV[35],make_cons(VV[52],base[4]));
1044          V156= list(6,VV[31],/* INLINE-ARGS */V150,/* INLINE-ARGS */V152,/* INLINE-ARGS */V153,/* INLINE-ARGS */V154,list(3,VV[31],/* INLINE-ARGS */V155,list(3,VV[59],(V131),list(2,VV[16],list(2,VV[34],(V131))))));          V171= list(6,VV[31],/* INLINE-ARGS */V165,/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,/* INLINE-ARGS */V169,list(3,VV[31],/* INLINE-ARGS */V170,list(3,VV[59],(V146),list(2,VV[16],list(2,VV[34],(V146))))));
1045          V157= list(2,(V134),(V133));          V172= list(2,(V149),(V148));
1046          V158= list(3,VV[60],/* INLINE-ARGS */V157,list(2,VV[19],list(2,VV[34],(V131))));          V173= list(3,VV[60],/* INLINE-ARGS */V172,list(2,VV[19],list(2,VV[34],(V146))));
1047          V159= list(2,VV[23],list(3,VV[58],VV[11],make_cons(VV[52],base[4])));          V174= list(2,VV[23],list(3,VV[58],VV[11],make_cons(VV[52],base[4])));
1048          V160= list(2,VV[34],(V128));          V175= list(2,VV[34],(V143));
1049          V161= list(3,VV[3],/* INLINE-ARGS */V159,list(2,VV[23],list(3,VV[24],/* INLINE-ARGS */V160,list(2,VV[34],(V131)))));          V176= list(3,VV[3],/* INLINE-ARGS */V174,list(2,VV[23],list(3,VV[24],/* INLINE-ARGS */V175,list(2,VV[34],(V146)))));
1050          V162= list(3,VV[31],/* INLINE-ARGS */V161,list(3,VV[5],(V133),small_fixnum(0)));          V177= list(3,VV[31],/* INLINE-ARGS */V176,list(3,VV[5],(V148),small_fixnum(0)));
1051          V163= list(2,VV[23],list(3,VV[58],VV[12],make_cons(VV[52],base[4])));          V178= list(2,VV[23],list(3,VV[58],VV[12],make_cons(VV[52],base[4])));
1052          V164= list(2,VV[34],(V128));          V179= list(2,VV[34],(V143));
1053          V165= list(3,VV[61],/* INLINE-ARGS */V163,list(3,VV[24],/* INLINE-ARGS */V164,list(2,VV[34],(V131))));          V180= list(3,VV[61],/* INLINE-ARGS */V178,list(3,VV[24],/* INLINE-ARGS */V179,list(2,VV[34],(V146))));
1054          V166= list(3,VV[31],/* INLINE-ARGS */V165,list(3,VV[5],(V134),small_fixnum(0)));          V181= list(3,VV[31],/* INLINE-ARGS */V180,list(3,VV[5],(V149),small_fixnum(0)));
1055          V167= list(2,VV[62],list(3,VV[26],(V133),(V134)));          V182= list(2,VV[62],list(3,VV[26],(V148),(V149)));
1056          V168= list(3,VV[5],(V129),small_fixnum(-1));          V183= list(3,VV[5],(V144),small_fixnum(-1));
1057          V169= list(4,VV[31],/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,list(2,VV[33],base[2]));          V184= list(4,VV[31],/* INLINE-ARGS */V182,/* INLINE-ARGS */V183,list(2,VV[33],base[2]));
1058          V170= list(8,VV[31],/* INLINE-ARGS */V149,/* INLINE-ARGS */V156,/* INLINE-ARGS */V158,/* INLINE-ARGS */V162,/* INLINE-ARGS */V166,/* INLINE-ARGS */V169,list(3,VV[5],(V129),small_fixnum(0)));          V185= list(8,VV[31],/* INLINE-ARGS */V164,/* INLINE-ARGS */V171,/* INLINE-ARGS */V173,/* INLINE-ARGS */V177,/* INLINE-ARGS */V181,/* INLINE-ARGS */V184,list(3,VV[5],(V144),small_fixnum(0)));
1059          V171= list(3,VV[27],(V129),(V133));          V186= list(3,VV[27],(V144),(V148));
1060          V172= list(3,VV[28],list(2,VV[34],(V131)),(V129));          V187= list(3,VV[28],list(2,VV[34],(V146)),(V144));
1061          V173= list(2,VV[34],(V131));          V188= list(2,VV[34],(V146));
1062          V174= list(4,VV[31],/* INLINE-ARGS */V147,/* INLINE-ARGS */V170,list(3,VV[5],(V130),list(4,VV[22],/* INLINE-ARGS */V171,/* INLINE-ARGS */V172,list(3,VV[29],/* INLINE-ARGS */V173,list(3,VV[30],(V129),(V133))))));          V189= list(4,VV[31],/* INLINE-ARGS */V162,/* INLINE-ARGS */V185,list(3,VV[5],(V145),list(4,VV[22],/* INLINE-ARGS */V186,/* INLINE-ARGS */V187,list(3,VV[29],/* INLINE-ARGS */V188,list(3,VV[30],(V144),(V148))))));
1063          V175= list(2,VV[32],(V130));          V190= list(2,VV[32],(V145));
1064          V176= list(3,VV[31],/* INLINE-ARGS */V175,list(2,VV[33],base[2]));          V191= list(3,VV[31],/* INLINE-ARGS */V190,list(2,VV[33],base[2]));
1065          V177= list(2,(V132),(V135));          V192= list(2,(V147),(V150));
1066          V178= list(2,VV[39],list(2,VV[34],(V130)));          V193= list(2,VV[39],list(2,VV[34],(V145)));
1067          V179= list(3,VV[60],/* INLINE-ARGS */V177,list(3,VV[38],/* INLINE-ARGS */V178,list(2,VV[34],(V128))));          V194= list(3,VV[60],/* INLINE-ARGS */V192,list(3,VV[38],/* INLINE-ARGS */V193,list(2,VV[34],(V143))));
1068          V180= list(2,VV[23],list(3,VV[24],(V135),VV[35]));          V195= list(2,VV[23],list(3,VV[24],(V150),VV[35]));
1069          V181= list(2,VV[34],(V128));          V196= list(2,VV[34],(V143));
1070          V182= list(3,VV[61],/* INLINE-ARGS */V180,list(2,VV[23],list(3,VV[24],/* INLINE-ARGS */V181,list(2,VV[34],(V131)))));          V197= list(3,VV[61],/* INLINE-ARGS */V195,list(2,VV[23],list(3,VV[24],/* INLINE-ARGS */V196,list(2,VV[34],(V146)))));
1071          V183= list(6,VV[40],base[2],/* INLINE-ARGS */V174,/* INLINE-ARGS */V176,/* INLINE-ARGS */V179,list(3,VV[31],/* INLINE-ARGS */V182,list(2,VV[33],base[2])));          V198= list(6,VV[40],base[2],/* INLINE-ARGS */V189,/* INLINE-ARGS */V191,/* INLINE-ARGS */V194,list(3,VV[31],/* INLINE-ARGS */V197,list(2,VV[33],base[2])));
1072          V184= list(2,VV[34],(V130));          V199= list(2,VV[34],(V145));
1073          V185= list(4,base[2],Cnil,/* INLINE-ARGS */V183,list(5,VV[63],VV[64],/* INLINE-ARGS */V184,(V135),list(2,VV[34],(V128))));          V200= list(4,base[2],Cnil,/* INLINE-ARGS */V198,list(5,VV[63],VV[64],/* INLINE-ARGS */V199,(V150),list(2,VV[34],(V143))));
1074          V186= make_cons(/* INLINE-ARGS */V185,Cnil);          V201= make_cons(/* INLINE-ARGS */V200,Cnil);
1075          base[6]= list(4,VV[1],/* INLINE-ARGS */V145,/* INLINE-ARGS */V146,listA(3,VV[53],/* INLINE-ARGS */V186,append((V136),base[5])));          base[6]= list(4,VV[1],/* INLINE-ARGS */V160,/* INLINE-ARGS */V161,listA(3,VV[53],/* INLINE-ARGS */V201,append((V151),base[5])));
1076          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1077          return;}          return;}
1078  }  }
1079  static void LnkT71(){ call_or_link(VV[71],(void **)(void *)&Lnk71);} /* PRINT-SYMBOL-APROPOS */  static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,1,first,ap);va_end(ap);return V1;} /* PRINT-SYMBOL-APROPOS */
1080  static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* APROPOS-LIST */  static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* APROPOS-LIST */
1081  static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* STABLE-SORT */  static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* STABLE-SORT */
1082  static void LnkT67(){ call_or_link(VV[67],(void **)(void *)&Lnk67);} /* DELETE-DUPLICATES */  static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)(void *)&LnkLI67,first,ap);va_end(ap);return V1;} /* DELETE-DUPLICATES */
1083  static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* SUBSTRINGP */  static object  LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,2,first,ap);va_end(ap);return V1;} /* SUBSTRINGP */
1084  static void LnkT19(){ call_or_link(VV[19],(void **)(void *)&Lnk19);} /* PACKAGE-SIZE */  static void LnkT19(){ call_or_link(VV[19],(void **)(void *)&Lnk19);} /* PACKAGE-SIZE */
1085  static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* SPECIFIC-ERROR */  static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* SPECIFIC-ERROR */
1086  static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* FIND-DECLARATIONS */  static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* FIND-DECLARATIONS */

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

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