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

Diff of /gcl/lsp/packlib.c

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

revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.7 by camm, Tue Oct 15 14:51:51 2002 UTC
# Line 132  static void L3() Line 132  static void L3()
132          {register object V18;          {register object V18;
133          register object V19;          register object V19;
134          register object V20;          register object V20;
135          object V21;          register object V21;
136          register object V22;          object V22;
137          object V23;          register object V23;
138          object V24;          object V24;
139          object V25;          object V25;
140            object V26;
141          vs_base=vs_top;          vs_base=vs_top;
142          Lgensym();          Lgensym();
143          vs_top=sup;          vs_top=sup;
# Line 165  static void L3() Line 166  static void L3()
166          Lgensym();          Lgensym();
167          vs_top=sup;          vs_top=sup;
168          V24= vs_base[0];          V24= vs_base[0];
169          V25= Cnil;          vs_base=vs_top;
170            Lgensym();
171            vs_top=sup;
172            V25= vs_base[0];
173            V26= Cnil;
174          base[6]= base[5];          base[6]= base[5];
175          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
176          (void) (*Lnk32)();          (void) (*Lnk42)();
177          if(vs_base<vs_top){          if(vs_base<vs_top){
178          V25= vs_base[0];          V26= vs_base[0];
179          vs_base++;          vs_base++;
180          }else{          }else{
181          V25= Cnil;}          V26= Cnil;}
182          if(vs_base<vs_top){          if(vs_base<vs_top){
183          base[5]= vs_base[0];          base[5]= vs_base[0];
184          }else{          }else{
185          base[5]= Cnil;}          base[5]= Cnil;}
186          vs_top=sup;          vs_top=sup;
187          V26= list(3,list(2,(V18),list(2,VV[8],base[3])),base[2],(V20));          V27= list(3,list(2,(V18),list(2,VV[8],base[3])),base[2],(V20));
188          V27= list(2,(V23),(V22));          V28= list(3,VV[10],(V18),list(2,VV[11],(V18)));
189          V28= list(2,VV[10],(V18));          V29= list(3,(V21),/* INLINE-ARGS */V28,list(3,VV[12],list(3,VV[13],base[2],Cnil),base[4]));
190          V29= list(2,VV[11],list(3,VV[12],(V22),(V23)));          V30= list(2,(V24),(V23));
191          V30= list(3,VV[14],(V22),(V23));          V31= list(2,VV[15],(V21));
192          V31= list(3,(V19),/* INLINE-ARGS */V30,list(3,VV[15],list(3,VV[16],base[2],Cnil),base[4]));          V32= list(2,VV[16],list(3,VV[17],(V23),(V24)));
193          V32= list(3,VV[17],(V19),(V22));          V33= list(2,VV[18],list(3,VV[19],(V18),(V21)));
194          V33= list(3,VV[18],(V18),(V19));          V34= list(3,VV[2],/* INLINE-ARGS */V33,list(3,VV[13],(V23),small_fixnum(0)));
195          V34= list(3,VV[16],(V20),list(4,VV[2],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,list(3,VV[19],(V18),list(3,VV[20],(V19),(V22)))));          V35= list(2,(V19),list(3,VV[21],(V23),(V24)));
196          V35= list(2,VV[22],(V20));          V36= list(3,VV[22],(V19),(V23));
197          V36= list(3,VV[21],/* INLINE-ARGS */V35,list(2,VV[23],(V24)));          V37= list(3,VV[23],(V21),(V19));
198          V37= list(3,VV[16],base[2],list(2,VV[24],(V20)));          V38= list(3,VV[13],(V20),list(4,VV[2],/* INLINE-ARGS */V36,/* INLINE-ARGS */V37,list(3,VV[24],(V21),list(3,VV[25],(V19),(V23)))));
199          V38= list(3,VV[16],(V20),list(2,VV[25],(V20)));          V39= list(2,VV[27],(V20));
200          V39= list(3,/* INLINE-ARGS */V38,list(2,VV[23],(V21)),(V24));          V40= list(3,VV[26],/* INLINE-ARGS */V39,list(2,VV[28],(V25)));
201          V40= list(5,VV[9],/* INLINE-ARGS */V27,/* INLINE-ARGS */V28,/* INLINE-ARGS */V29,listA(7,VV[13],/* INLINE-ARGS */V31,/* INLINE-ARGS */V34,(V21),/* INLINE-ARGS */V36,/* INLINE-ARGS */V37,append(base[5],/* INLINE-ARGS */V39)));          V41= list(3,VV[13],base[2],list(2,VV[29],(V20)));
202          V41= make_cons(/* INLINE-ARGS */V40,Cnil);          V42= list(3,VV[19],(V21),(V18));
203          base[6]= listA(3,VV[1],/* INLINE-ARGS */V26,append((V25),/* INLINE-ARGS */V41));          V43= list(3,VV[30],/* INLINE-ARGS */V42,list(3,VV[19],VV[31],list(2,VV[29],list(2,VV[32],list(2,VV[33],list(3,VV[34],list(2,VV[35],base[2]),(V18)))))));
204            V44= list(3,VV[2],/* INLINE-ARGS */V43,make_cons(VV[12],base[5]));
205            V45= list(3,VV[13],(V20),list(2,VV[36],(V20)));
206            V46= list(3,VV[9],/* INLINE-ARGS */V29,list(6,VV[14],/* INLINE-ARGS */V30,/* INLINE-ARGS */V31,/* INLINE-ARGS */V32,/* INLINE-ARGS */V34,list(10,VV[20],/* INLINE-ARGS */V35,/* INLINE-ARGS */V38,(V22),/* INLINE-ARGS */V40,/* INLINE-ARGS */V41,/* INLINE-ARGS */V44,/* INLINE-ARGS */V45,list(2,VV[28],(V22)),(V25))));
207            V47= make_cons(/* INLINE-ARGS */V46,Cnil);
208            base[6]= listA(3,VV[1],/* INLINE-ARGS */V27,append((V26),/* INLINE-ARGS */V47));
209          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
210          return;}          return;}
211  }  }
# Line 207  static void L4() Line 217  static void L4()
217          vs_reserve(VM4);          vs_reserve(VM4);
218          check_arg(2);          check_arg(2);
219          vs_top=sup;          vs_top=sup;
220          {object V42=base[0]->c.c_cdr;          {object V48=base[0]->c.c_cdr;
221          if(endp(V42))invalid_macro_call();          if(endp(V48))invalid_macro_call();
222          {object V43= (V42->c.c_car);          {object V49= (V48->c.c_car);
223          if(endp(V43))invalid_macro_call();          if(endp(V49))invalid_macro_call();
224          base[2]= (V43->c.c_car);          base[2]= (V49->c.c_car);
225          V43=V43->c.c_cdr;          V49=V49->c.c_cdr;
226          if(endp(V43)){          if(endp(V49)){
227          base[3]= VV[0];          base[3]= VV[0];
228          } else {          } else {
229          base[3]= (V43->c.c_car);          base[3]= (V49->c.c_car);
230          V43=V43->c.c_cdr;}          V49=V49->c.c_cdr;}
231          if(endp(V43)){          if(endp(V49)){
232          base[4]= Cnil;          base[4]= Cnil;
233          } else {          } else {
234          base[4]= (V43->c.c_car);          base[4]= (V49->c.c_car);
235          V43=V43->c.c_cdr;}          V49=V49->c.c_cdr;}
236          if(!endp(V43))invalid_macro_call();}          if(!endp(V49))invalid_macro_call();}
237          V42=V42->c.c_cdr;          V48=V48->c.c_cdr;
238          base[5]= V42;}          base[5]= V48;}
239          {object V44;          {object V50;
240          object V45;          object V51;
241          register object V46;          register object V52;
242          object V47;          object V53;
243          object V48;          object V54;
244          object V49;          object V55;
245          vs_base=vs_top;          vs_base=vs_top;
246          Lgensym();          Lgensym();
247          vs_top=sup;          vs_top=sup;
248          V44= vs_base[0];          V50= vs_base[0];
249          vs_base=vs_top;          vs_base=vs_top;
250          Lgensym();          Lgensym();
251          vs_top=sup;          vs_top=sup;
252          V45= vs_base[0];          V51= vs_base[0];
253          vs_base=vs_top;          vs_base=vs_top;
254          Lgensym();          Lgensym();
255          vs_top=sup;          vs_top=sup;
256          V46= vs_base[0];          V52= vs_base[0];
257          vs_base=vs_top;          vs_base=vs_top;
258          Lgensym();          Lgensym();
259          vs_top=sup;          vs_top=sup;
260          V47= vs_base[0];          V53= vs_base[0];
261          vs_base=vs_top;          vs_base=vs_top;
262          Lgensym();          Lgensym();
263          vs_top=sup;          vs_top=sup;
264          V48= vs_base[0];          V54= vs_base[0];
265          V49= Cnil;          V55= Cnil;
266          base[6]= base[5];          base[6]= base[5];
267          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
268          (void) (*Lnk32)();          (void) (*Lnk42)();
269          if(vs_base<vs_top){          if(vs_base<vs_top){
270          V49= vs_base[0];          V55= vs_base[0];
271          vs_base++;          vs_base++;
272          }else{          }else{
273          V49= Cnil;}          V55= Cnil;}
274          if(vs_base<vs_top){          if(vs_base<vs_top){
275          base[5]= vs_base[0];          base[5]= vs_base[0];
276          }else{          }else{
277          base[5]= Cnil;}          base[5]= Cnil;}
278          vs_top=sup;          vs_top=sup;
279          V50= list(3,list(2,(V44),list(2,VV[8],base[3])),base[2],(V46));          V56= list(3,list(2,(V50),list(2,VV[8],base[3])),base[2],(V52));
280          V51= list(2,VV[10],(V44));          V57= list(2,VV[15],(V50));
281          V52= list(3,(V45),/* INLINE-ARGS */V51,list(3,VV[15],list(3,VV[16],base[2],Cnil),base[4]));          V58= list(3,(V51),/* INLINE-ARGS */V57,list(3,VV[12],list(3,VV[13],base[2],Cnil),base[4]));
282          V53= list(3,VV[16],(V46),list(3,VV[19],(V44),(V45)));          V59= list(3,VV[13],(V52),list(3,VV[24],(V50),(V51)));
283          V54= list(2,VV[22],(V46));          V60= list(2,VV[27],(V52));
284          V55= list(3,VV[21],/* INLINE-ARGS */V54,list(2,VV[23],(V48)));          V61= list(3,VV[26],/* INLINE-ARGS */V60,list(2,VV[28],(V54)));
285          V56= list(3,VV[16],base[2],list(2,VV[24],(V46)));          V62= list(3,VV[13],base[2],list(2,VV[29],(V52)));
286          V57= list(3,VV[16],(V46),list(2,VV[25],(V46)));          V63= list(3,VV[13],(V52),list(2,VV[36],(V52)));
287          V58= list(3,/* INLINE-ARGS */V57,list(2,VV[23],(V47)),(V48));          V64= list(3,/* INLINE-ARGS */V63,list(2,VV[28],(V53)),(V54));
288          V59= listA(7,VV[13],/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,(V47),/* INLINE-ARGS */V55,/* INLINE-ARGS */V56,append(base[5],/* INLINE-ARGS */V58));          V65= listA(7,VV[20],/* INLINE-ARGS */V58,/* INLINE-ARGS */V59,(V53),/* INLINE-ARGS */V61,/* INLINE-ARGS */V62,append(base[5],/* INLINE-ARGS */V64));
289          V60= make_cons(/* INLINE-ARGS */V59,Cnil);          V66= make_cons(/* INLINE-ARGS */V65,Cnil);
290          base[6]= listA(3,VV[1],/* INLINE-ARGS */V50,append((V49),/* INLINE-ARGS */V60));          base[6]= listA(3,VV[1],/* INLINE-ARGS */V56,append((V55),/* INLINE-ARGS */V66));
291          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
292          return;}          return;}
293  }  }
# Line 289  static void L5() Line 299  static void L5()
299          vs_reserve(VM5);          vs_reserve(VM5);
300          check_arg(2);          check_arg(2);
301          vs_top=sup;          vs_top=sup;
302          {object V61=base[0]->c.c_cdr;          {object V67=base[0]->c.c_cdr;
303          if(endp(V61))invalid_macro_call();          if(endp(V67))invalid_macro_call();
304          {object V62= (V61->c.c_car);          {object V68= (V67->c.c_car);
305          if(endp(V62))invalid_macro_call();          if(endp(V68))invalid_macro_call();
306          base[2]= (V62->c.c_car);          base[2]= (V68->c.c_car);
307          V62=V62->c.c_cdr;          V68=V68->c.c_cdr;
308          if(endp(V62)){          if(endp(V68)){
309          base[3]= Cnil;          base[3]= Cnil;
310          } else {          } else {
311          base[3]= (V62->c.c_car);          base[3]= (V68->c.c_car);
312          V62=V62->c.c_cdr;}          V68=V68->c.c_cdr;}
313          if(!endp(V62))invalid_macro_call();}          if(!endp(V68))invalid_macro_call();}
314          V61=V61->c.c_cdr;          V67=V67->c.c_cdr;
315          base[4]= V61;}          base[4]= V67;}
316          V63= list(3,VV[27],VV[28],base[3]);          V69= list(3,VV[37],VV[38],base[3]);
317          base[5]= list(3,VV[26],/* INLINE-ARGS */V63,listA(3,VV[29],list(2,base[2],VV[27]),base[4]));          base[5]= list(3,VV[9],/* INLINE-ARGS */V69,listA(3,VV[39],list(2,base[2],VV[37]),base[4]));
318          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
319          return;          return;
320  }  }
321  /*      local entry for function SUBSTRINGP     */  /*      local entry for function SUBSTRINGP     */
322    
323  static object LI6(V66,V67)  static object LI6(V72,V73)
324    
325  register object V66;register object V67;  register object V72;register object V73;
326  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
327  goto TTL;  goto TTL;
328  TTL:;  TTL:;
329          {register object V68;          {register object V74;
330          register object V69;          register object V75;
331          register object V70;          register object V76;
332          V71 = make_fixnum((long)length((V67)));          V77 = make_fixnum((long)length((V73)));
333          V72 = make_fixnum((long)length((V66)));          V78 = make_fixnum((long)length((V72)));
334          V68= number_minus(V71,V72);          V74= number_minus(V77,V78);
335          V69= make_fixnum((long)length((V66)));          V75= make_fixnum((long)length((V72)));
336          V70= small_fixnum(0);          V76= small_fixnum(0);
 goto T49;  
 T49:;  
         if(!(number_compare((V70),(V68))>0)){  
         goto T50;}  
         {object V73 = Cnil;  
         VMR6(V73)}  
337  goto T50;  goto T50;
338  T50:;  T50:;
339          base[0]= (V66);          if(!(number_compare((V76),(V74))>0)){
340          base[1]= (V67);          goto T51;}
341          base[2]= VV[30];          {object V79 = Cnil;
342          base[3]= (V70);          VMR6(V79)}
343          base[4]= VV[31];  goto T51;
344          base[5]= number_plus((V70),(V69));  T51:;
345            base[0]= (V72);
346            base[1]= (V73);
347            base[2]= VV[40];
348            base[3]= (V76);
349            base[4]= VV[41];
350            base[5]= number_plus((V76),(V75));
351          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
352          Lstring_equal();          Lstring_equal();
353          vs_top=sup;          vs_top=sup;
354          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
355          goto T54;}          goto T55;}
356          {object V74 = Ct;          {object V80 = Ct;
357          VMR6(V74)}          VMR6(V80)}
358  goto T54;  goto T55;
359  T54:;  T55:;
360          V70= one_plus((V70));          V76= one_plus((V76));
361          goto T49;}          goto T50;}
362          base[0]=base[0];          base[0]=base[0];
363          return Cnil;          return Cnil;
364  }  }
365  /*      local entry for function PRINT-SYMBOL-APROPOS   */  /*      local entry for function PRINT-SYMBOL-APROPOS   */
366    
367  static object LI7(V76)  static object LI7(V82)
368    
369  register object V76;  register object V82;
370  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
371  goto TTL;  goto TTL;
372  TTL:;  TTL:;
373          (void)(prin1((V76),Cnil));          (void)(prin1((V82),Cnil));
374          base[0]= (V76);          base[0]= (V82);
375          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
376          Lfboundp();          Lfboundp();
377          vs_top=sup;          vs_top=sup;
378          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
379          goto T67;}          goto T68;}
380          base[0]= (V76);          base[0]= (V82);
381          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
382          Lspecial_form_p();          Lspecial_form_p();
383          vs_top=sup;          vs_top=sup;
384          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
385          goto T72;}          goto T73;}
386          princ_str("  Special form",Cnil);          princ_str("  Special form",Cnil);
387          goto T67;          goto T68;
388  goto T72;  goto T73;
389  T72:;  T73:;
390          base[0]= (V76);          base[0]= (V82);
391          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
392          Lmacro_function();          Lmacro_function();
393          vs_top=sup;          vs_top=sup;
394          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
395          goto T76;}          goto T77;}
396          princ_str("  Macro",Cnil);          princ_str("  Macro",Cnil);
397          goto T67;          goto T68;
398  goto T76;  goto T77;
399  T76:;  T77:;
400          princ_str("  Function",Cnil);          princ_str("  Function",Cnil);
401  goto T67;  goto T68;
402  T67:;  T68:;
403          base[0]= (V76);          base[0]= (V82);
404          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
405          Lboundp();          Lboundp();
406          vs_top=sup;          vs_top=sup;
407          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
408          goto T79;}          goto T80;}
409          base[0]= (V76);          base[0]= (V82);
410          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
411          Lconstantp();          Lconstantp();
412          vs_top=sup;          vs_top=sup;
413          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
414          goto T85;}          goto T86;}
415          princ_str("  Constant: ",Cnil);          princ_str("  Constant: ",Cnil);
416          goto T83;          goto T84;
417  goto T85;  goto T86;
418  T85:;  T86:;
419          princ_str("  has value: ",Cnil);          princ_str("  has value: ",Cnil);
420  goto T83;  goto T84;
421  T83:;  T84:;
422          base[0]= (V76);          base[0]= (V82);
423          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
424          Lsymbol_value();          Lsymbol_value();
425          vs_top=sup;          vs_top=sup;
426          V77= vs_base[0];          V83= vs_base[0];
427          (void)(prin1(V77,Cnil));          (void)(prin1(V83,Cnil));
428  goto T79;  goto T80;
429  T79:;  T80:;
430          {object V78 = terpri(Cnil);          {object V84 = terpri(Cnil);
431          VMR7(V78)}          VMR7(V84)}
432          base[0]=base[0];          base[0]=base[0];
433          return Cnil;          return Cnil;
434  }  }
# Line 428  static void L8() Line 438  static void L8()
438  {register object *base=vs_base;  {register object *base=vs_base;
439          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
440          vs_reserve(VM8);          vs_reserve(VM8);
441          {object V79;          {object V85;
442          object V80;          object V86;
443          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
444          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
445          V79=(base[0]);          V85=(base[0]);
446          vs_base=vs_base+1;          vs_base=vs_base+1;
447          if(vs_base>=vs_top){vs_top=sup;goto T90;}          if(vs_base>=vs_top){vs_top=sup;goto T91;}
448          V80=(base[1]);          V86=(base[1]);
449          vs_top=sup;          vs_top=sup;
450          goto T91;          goto T92;
 goto T90;  
 T90:;  
         V80= Cnil;  
451  goto T91;  goto T91;
452  T91:;  T91:;
453          V79= coerce_to_string((V79));          V86= Cnil;
454          if(((V80))==Cnil){  goto T92;
455          goto T97;}  T92:;
456          {object V81;          V85= coerce_to_string((V85));
457          object V82;          if(((V86))==Cnil){
458          register object V83;          goto T98;}
459          base[2]= V80;          {object V87;
460            object V88;
461            register object V89;
462            base[2]= V86;
463          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
464          Lpackagep();          Lpackagep();
465          vs_top=sup;          vs_top=sup;
466          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
467          goto T102;}          goto T103;}
468          V81= V80;          V87= V86;
469          goto T100;          goto T101;
470  goto T102;  goto T103;
471  T102:;  T103:;
472          base[2]= coerce_to_string(V80);          base[2]= coerce_to_string(V86);
473          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
474          Lfind_package();          Lfind_package();
475          vs_top=sup;          vs_top=sup;
476          V81= vs_base[0];          V87= vs_base[0];
477  goto T100;  goto T101;
478  T100:;  T101:;
479          V82= Cnil;          V88= Cnil;
480          V83= Cnil;          V89= Cnil;
481          {long V85;          {object V91;
482          long V86;          object V92;
483          base[2]= (V81);          base[4]= (V87);
484          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+4)+1;
485          (void) (*Lnk10)();          Lpackage_use_list();
         if(vs_base>=vs_top){vs_top=sup;goto T108;}  
         V85= fix(vs_base[0]);  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T109;}  
         V86= fix(vs_base[0]);  
486          vs_top=sup;          vs_top=sup;
487          goto T110;          V93= vs_base[0];
488  goto T108;          V91= make_cons((V87),V93);
489  T108:;          V92= car((V91));
490          V85= fix(Cnil);  goto T112;
491  goto T109;  T112:;
492  T109:;          if(!(endp_prop((V91)))){
493          V86= fix(Cnil);          goto T113;}
494  goto T110;          V88= Cnil;
495  T110:;          goto T100;
496          {object V87;  goto T113;
497          object V88;  T113:;
498          V89 = make_fixnum(V86);          {long V94;
499          V90 = make_fixnum(V85);          long V95;
500          V87= number_plus(V89,V90);          base[4]= (V92);
501          V88= small_fixnum(0);          vs_top=(vs_base=base+4)+1;
502  goto T114;          (void) (*Lnk15)();
503  T114:;          if(vs_base>=vs_top){vs_top=sup;goto T122;}
504          if(!(number_compare((V88),(V87))>=0)){          V94= fix(vs_base[0]);
505          goto T115;}          vs_base++;
506          V82= Cnil;          if(vs_base>=vs_top){vs_top=sup;goto T123;}
507          goto T99;          V95= fix(vs_base[0]);
 goto T115;  
 T115:;  
         V91 = make_fixnum(V86);  
         if(!(number_compare((V88),V91)<0)){  
         goto T126;}  
         base[3]= (V81);  
         base[4]= (V88);  
         vs_top=(vs_base=base+3)+2;  
         siLpackage_internal();  
508          vs_top=sup;          vs_top=sup;
         V83= vs_base[0];  
509          goto T124;          goto T124;
 goto T126;  
 T126:;  
         base[3]= (V81);  
         V92 = make_fixnum(V86);  
         base[4]= number_minus((V88),V92);  
         vs_top=(vs_base=base+3)+2;  
         siLpackage_external();  
         vs_top=sup;  
         V83= vs_base[0];  
 goto T124;  
 T124:;  
510  goto T122;  goto T122;
511  T122:;  T122:;
512          if(((V83))!=Cnil){          V94= fix(Cnil);
         goto T132;}  
         goto T123;  
 goto T132;  
 T132:;  
         V82= car((V83));  
         V93= coerce_to_string((V82));  
         if(((*(LnkLI33))((V79),/* INLINE-ARGS */V93))==Cnil){  
         goto T137;}  
         (void)((*(LnkLI34))((V82)));  
 goto T137;  
 T137:;  
         V83= cdr((V83));  
         goto T122;  
513  goto T123;  goto T123;
514  T123:;  T123:;
515          goto T120;          V95= fix(Cnil);
516  goto T120;  goto T124;
517  T120:;  T124:;
518          V88= one_plus((V88));          if(((V87))==((V92))){
519          goto T114;}}}          goto T125;}
520  goto T99;          V95= 0;
521  T99:;  goto T125;
522          {object V94;  T125:;
523          base[2]= (V80);          {object V96;
524          vs_top=(vs_base=base+2)+1;          object V97;
525          Lpackage_use_list();          V98 = make_fixnum(V95);
526            V99 = make_fixnum(V94);
527            V96= number_plus(V98,V99);
528            V97= small_fixnum(0);
529    goto T132;
530    T132:;
531            if(!(number_compare((V97),(V96))>=0)){
532            goto T133;}
533            goto T119;
534    goto T133;
535    T133:;
536            V100 = make_fixnum(V95);
537            if(!(number_compare((V97),V100)<0)){
538            goto T142;}
539            base[5]= (V92);
540            base[6]= (V97);
541            vs_top=(vs_base=base+5)+2;
542            siLpackage_internal();
543          vs_top=sup;          vs_top=sup;
544          V94= vs_base[0];          V89= vs_base[0];
545            goto T140;
546    goto T142;
547    T142:;
548            base[5]= (V92);
549            V101 = make_fixnum(V95);
550            base[6]= number_minus((V97),V101);
551            vs_top=(vs_base=base+5)+2;
552            siLpackage_external();
553            vs_top=sup;
554            V89= vs_base[0];
555    goto T140;
556    T140:;
557    goto T138;
558    T138:;
559            if(((V89))!=Cnil){
560            goto T148;}
561            goto T139;
562  goto T148;  goto T148;
563  T148:;  T148:;
564          if(((V94))!=Cnil){          V88= car((V89));
565          goto T149;}          if(((V92))==((V87))){
566          goto T95;          goto T154;}
567  goto T149;          base[6]= symbol_name((V88));
568  T149:;          base[7]= (V87);
569          {object V95;          vs_top=(vs_base=base+6)+2;
570          register object V96;          Lfind_symbol();
571          register object V97;          Llist();
572          {object V98;          vs_top=sup;
573          V98= car((V94));          base[5]= vs_base[0];
574          base[2]= (V98);          vs_top=(vs_base=base+5)+1;
575            Llast();
576            vs_top=sup;
577            V102= vs_base[0];
578            if(!((VV[31])==(car(V102)))){
579            goto T153;}
580    goto T154;
581    T154:;
582            V103= coerce_to_string((V88));
583            if(((*(LnkLI43))((V85),/* INLINE-ARGS */V103))==Cnil){
584            goto T153;}
585            (void)((*(LnkLI44))((V88)));
586    goto T153;
587    T153:;
588            V89= cdr((V89));
589            goto T138;
590    goto T139;
591    T139:;
592            goto T136;
593    goto T136;
594    T136:;
595            V97= one_plus((V97));
596            goto T132;}}
597    goto T119;
598    T119:;
599            V91= cdr((V91));
600            V92= car((V91));
601            goto T112;}}
602    goto T100;
603    T100:;
604            {object V104;
605            base[2]= (V86);
606            vs_top=(vs_base=base+2)+1;
607            Lpackage_use_list();
608            vs_top=sup;
609            V104= vs_base[0];
610    goto T178;
611    T178:;
612            if(((V104))!=Cnil){
613            goto T179;}
614            goto T96;
615    goto T179;
616    T179:;
617            {object V105;
618            object V106;
619            register object V107;
620            {object V108;
621            V108= car((V104));
622            base[2]= (V108);
623          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
624          Lpackagep();          Lpackagep();
625          vs_top=sup;          vs_top=sup;
626          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
627          goto T157;}          goto T187;}
628          V95= (V98);          V105= (V108);
629          goto T154;          goto T184;
630  goto T157;  goto T187;
631  T157:;  T187:;
632          base[2]= coerce_to_string((V98));          base[2]= coerce_to_string((V108));
633          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
634          Lfind_package();          Lfind_package();
635          vs_top=sup;          vs_top=sup;
636          V95= vs_base[0];}          V105= vs_base[0];}
637  goto T154;  goto T184;
638  T154:;  T184:;
639          V96= Cnil;          V106= Cnil;
640          V97= Cnil;          V107= Cnil;
641          {object V99;          {object V109;
642          object V100;          object V110;
643          base[3]= (V95);          base[3]= (V105);
644          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
645          (void) (*Lnk10)();          (void) (*Lnk15)();
646          vs_top=sup;          vs_top=sup;
647          V99= vs_base[0];          V109= vs_base[0];
648          V100= small_fixnum(0);          V110= small_fixnum(0);
649  goto T165;  goto T195;
650  T165:;  T195:;
651          if(!(number_compare((V100),(V99))>=0)){          if(!(number_compare((V110),(V109))>=0)){
652          goto T166;}          goto T196;}
653          V96= Cnil;          V106= Cnil;
654          goto T153;          goto T183;
655  goto T166;  goto T196;
656  T166:;  T196:;
657          base[3]= (V95);          base[3]= (V105);
658          base[4]= (V100);          base[4]= (V110);
659          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
660          siLpackage_external();          siLpackage_external();
661          vs_top=sup;          vs_top=sup;
662          V97= vs_base[0];          V107= vs_base[0];
663  goto T173;  goto T203;
664  T173:;  T203:;
665          if(((V97))!=Cnil){          if(((V107))!=Cnil){
666          goto T178;}          goto T208;}
667          goto T174;          goto T204;
668  goto T178;  goto T208;
669  T178:;  T208:;
670          V96= car((V97));          V106= car((V107));
671          V101= coerce_to_string((V96));          V111= coerce_to_string((V106));
672          if(((*(LnkLI33))((V79),/* INLINE-ARGS */V101))==Cnil){          if(((*(LnkLI43))((V85),/* INLINE-ARGS */V111))==Cnil){
673          goto T183;}          goto T213;}
674          (void)((*(LnkLI34))((V96)));          (void)((*(LnkLI44))((V106)));
675    goto T213;
676    T213:;
677            V107= cdr((V107));
678            goto T203;
679    goto T204;
680    T204:;
681            goto T201;
682    goto T201;
683    T201:;
684            V110= one_plus((V110));
685            goto T195;}}
686  goto T183;  goto T183;
687  T183:;  T183:;
688          V97= cdr((V97));          V104= cdr((V104));
689          goto T173;          goto T178;}
690  goto T174;  goto T98;
691  T174:;  T98:;
692          goto T171;          {object V112;
693  goto T171;          object V113;
 T171:;  
         V100= one_plus((V100));  
         goto T165;}}  
 goto T153;  
 T153:;  
         V94= cdr((V94));  
         goto T148;}  
 goto T97;  
 T97:;  
         {object V102;  
         object V103;  
694          vs_base=vs_top;          vs_base=vs_top;
695          Llist_all_packages();          Llist_all_packages();
696          vs_top=sup;          vs_top=sup;
697          V102= vs_base[0];          V112= vs_base[0];
698          V103= car((V102));          V113= car((V112));
699  goto T197;  goto T227;
700  T197:;  T227:;
701          if(!(endp_prop((V102)))){          if(!(endp_prop((V112)))){
702          goto T198;}          goto T228;}
703          goto T95;          goto T96;
704  goto T198;  goto T228;
705  T198:;  T228:;
706          {object V104;          {object V114;
707          register object V105;          register object V115;
708          register object V106;          register object V116;
709          base[4]= V103;          base[4]= V113;
710          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
711          Lpackagep();          Lpackagep();
712          vs_top=sup;          vs_top=sup;
713          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
714          goto T205;}          goto T235;}
715          V104= V103;          V114= V113;
716          goto T203;          goto T233;
717  goto T205;  goto T235;
718  T205:;  T235:;
719          base[4]= coerce_to_string(V103);          base[4]= coerce_to_string(V113);
720          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
721          Lfind_package();          Lfind_package();
722          vs_top=sup;          vs_top=sup;
723          V104= vs_base[0];          V114= vs_base[0];
724  goto T203;  goto T233;
725  T203:;  T233:;
726          V105= Cnil;          V115= Cnil;
727          V106= Cnil;          V116= Cnil;
728          {long V108;          {object V118;
729          long V109;          register object V119;
730          base[4]= (V104);          base[6]= (V114);
731          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+6)+1;
732          (void) (*Lnk10)();          Lpackage_use_list();
733          if(vs_base>=vs_top){vs_top=sup;goto T211;}          vs_top=sup;
734          V108= fix(vs_base[0]);          V120= vs_base[0];
735            V118= make_cons((V114),V120);
736            V119= car((V118));
737    goto T244;
738    T244:;
739            if(!(endp_prop((V118)))){
740            goto T245;}
741            V115= Cnil;
742            goto T232;
743    goto T245;
744    T245:;
745            {long V121;
746            long V122;
747            base[6]= (V119);
748            vs_top=(vs_base=base+6)+1;
749            (void) (*Lnk15)();
750            if(vs_base>=vs_top){vs_top=sup;goto T254;}
751            V121= fix(vs_base[0]);
752          vs_base++;          vs_base++;
753          if(vs_base>=vs_top){vs_top=sup;goto T212;}          if(vs_base>=vs_top){vs_top=sup;goto T255;}
754          V109= fix(vs_base[0]);          V122= fix(vs_base[0]);
755          vs_top=sup;          vs_top=sup;
756          goto T213;          goto T256;
757  goto T211;  goto T254;
758  T211:;  T254:;
759          V108= fix(Cnil);          V121= fix(Cnil);
760  goto T212;  goto T255;
761  T212:;  T255:;
762          V109= fix(Cnil);          V122= fix(Cnil);
763  goto T213;  goto T256;
764  T213:;  T256:;
765          {object V110;          if(((V114))==((V119))){
766          register object V111;          goto T257;}
767          V112 = make_fixnum(V109);          V122= 0;
768          V113 = make_fixnum(V108);  goto T257;
769          V110= number_plus(V112,V113);  T257:;
770          V111= small_fixnum(0);          {object V123;
771  goto T217;          register object V124;
772  T217:;          V125 = make_fixnum(V122);
773          if(!(number_compare((V111),(V110))>=0)){          V126 = make_fixnum(V121);
774          goto T218;}          V123= number_plus(V125,V126);
775          V105= Cnil;          V124= small_fixnum(0);
776          goto T202;  goto T264;
777  goto T218;  T264:;
778  T218:;          if(!(number_compare((V124),(V123))>=0)){
779          V114 = make_fixnum(V109);          goto T265;}
780          if(!(number_compare((V111),V114)<0)){          goto T251;
781          goto T229;}  goto T265;
782          base[5]= (V104);  T265:;
783          base[6]= (V111);          V127 = make_fixnum(V122);
784          vs_top=(vs_base=base+5)+2;          if(!(number_compare((V124),V127)<0)){
785            goto T274;}
786            base[7]= (V119);
787            base[8]= (V124);
788            vs_top=(vs_base=base+7)+2;
789          siLpackage_internal();          siLpackage_internal();
790          vs_top=sup;          vs_top=sup;
791          V106= vs_base[0];          V116= vs_base[0];
792          goto T227;          goto T272;
793  goto T229;  goto T274;
794  T229:;  T274:;
795          base[5]= (V104);          base[7]= (V119);
796          V115 = make_fixnum(V109);          V128 = make_fixnum(V122);
797          base[6]= number_minus((V111),V115);          base[8]= number_minus((V124),V128);
798          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+7)+2;
799          siLpackage_external();          siLpackage_external();
800          vs_top=sup;          vs_top=sup;
801          V106= vs_base[0];          V116= vs_base[0];
802  goto T227;  goto T272;
803  T227:;  T272:;
804  goto T225;  goto T270;
805  T225:;  T270:;
806          if(((V106))!=Cnil){          if(((V116))!=Cnil){
807          goto T235;}          goto T280;}
808          goto T226;          goto T271;
809  goto T235;  goto T280;
810  T235:;  T280:;
811          V105= car((V106));          V115= car((V116));
812          V116= coerce_to_string((V105));          if(((V119))==((V114))){
813          if(((*(LnkLI33))((V79),/* INLINE-ARGS */V116))==Cnil){          goto T286;}
814          goto T240;}          base[8]= symbol_name((V115));
815          (void)((*(LnkLI34))((V105)));          base[9]= (V114);
816  goto T240;          vs_top=(vs_base=base+8)+2;
817  T240:;          Lfind_symbol();
818          V106= cdr((V106));          Llist();
819          goto T225;          vs_top=sup;
820  goto T226;          base[7]= vs_base[0];
821  T226:;          vs_top=(vs_base=base+7)+1;
822          goto T223;          Llast();
823  goto T223;          vs_top=sup;
824  T223:;          V129= vs_base[0];
825          V111= one_plus((V111));          if(!((VV[31])==(car(V129)))){
826          goto T217;}}}          goto T285;}
827  goto T202;  goto T286;
828  T202:;  T286:;
829          V102= cdr((V102));          V130= coerce_to_string((V115));
830          V103= car((V102));          if(((*(LnkLI43))((V85),/* INLINE-ARGS */V130))==Cnil){
831          goto T197;}          goto T285;}
832  goto T95;          (void)((*(LnkLI44))((V115)));
833  T95:;  goto T285;
834    T285:;
835            V116= cdr((V116));
836            goto T270;
837    goto T271;
838    T271:;
839            goto T268;
840    goto T268;
841    T268:;
842            V124= one_plus((V124));
843            goto T264;}}
844    goto T251;
845    T251:;
846            V118= cdr((V118));
847            V119= car((V118));
848            goto T244;}}
849    goto T232;
850    T232:;
851            V112= cdr((V112));
852            V113= car((V112));
853            goto T227;}
854    goto T96;
855    T96:;
856          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
857          vs_base[0]=Cnil;          vs_base[0]=Cnil;
858          return;          return;
# Line 764  T95:; Line 860  T95:;
860  }  }
861  /*      local entry for function APROPOS-LIST   */  /*      local entry for function APROPOS-LIST   */
862    
863  static object LI9(V117,va_alist)  static object LI9(V131,va_alist)
864          object V117;          object V131;
865          va_dcl          va_dcl
866  {        {      
867          va_list ap;          va_list ap;
868          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
869          {object V118;          {object V132;
870          object V119;          object V133;
871          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
872          va_start(ap);          va_start(ap);
873          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
874          V118= V117;          V132= V131;
875          narg = narg - 1;          narg = narg - 1;
876          if (narg <= 0) goto T253;          if (narg <= 0) goto T312;
877          else {          else {
878          V119= va_arg(ap,object);}          V133= va_arg(ap,object);}
879          --narg; goto T254;          --narg; goto T313;
880  goto T253;  goto T312;
881  T253:;  T312:;
882          V119= Cnil;          V133= Cnil;
883  goto T254;  goto T313;
884  T254:;  T313:;
885          {register object V120;          {register object V134;
886          V120= Cnil;          V134= Cnil;
887          V120= Cnil;          V134= Cnil;
888          V118= coerce_to_string((V118));          V132= coerce_to_string((V132));
889          if(((V119))==Cnil){          if(((V133))==Cnil){
890          goto T263;}          goto T322;}
891          {object V121;          {object V135;
892          object V122;          object V136;
893          object V123;          object V137;
894          base[0]= V119;          base[0]= V133;
895          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
896          Lpackagep();          Lpackagep();
897          vs_top=sup;          vs_top=sup;
898          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
899          goto T268;}          goto T327;}
900          V121= V119;          V135= V133;
901          goto T266;          goto T325;
902  goto T268;  goto T327;
903  T268:;  T327:;
904          base[0]= coerce_to_string(V119);          base[0]= coerce_to_string(V133);
905          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
906          Lfind_package();          Lfind_package();
907          vs_top=sup;          vs_top=sup;
908          V121= vs_base[0];          V135= vs_base[0];
909  goto T266;  goto T325;
910  T266:;  T325:;
911          V122= Cnil;          V136= Cnil;
912          V123= Cnil;          V137= Cnil;
913          {long V125;          {object V139;
914          long V126;          object V140;
915          base[0]= (V121);          base[2]= (V135);
916          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+2)+1;
917          (void) (*Lnk10)();          Lpackage_use_list();
918          if(vs_base>=vs_top){vs_top=sup;goto T274;}          vs_top=sup;
919          V125= fix(vs_base[0]);          V141= vs_base[0];
920            V139= make_cons((V135),V141);
921            V140= car((V139));
922    goto T336;
923    T336:;
924            if(!(endp_prop((V139)))){
925            goto T337;}
926            V136= Cnil;
927            goto T324;
928    goto T337;
929    T337:;
930            {long V142;
931            long V143;
932            base[2]= (V140);
933            vs_top=(vs_base=base+2)+1;
934            (void) (*Lnk15)();
935            if(vs_base>=vs_top){vs_top=sup;goto T346;}
936            V142= fix(vs_base[0]);
937          vs_base++;          vs_base++;
938          if(vs_base>=vs_top){vs_top=sup;goto T275;}          if(vs_base>=vs_top){vs_top=sup;goto T347;}
939          V126= fix(vs_base[0]);          V143= fix(vs_base[0]);
940          vs_top=sup;          vs_top=sup;
941          goto T276;          goto T348;
942  goto T274;  goto T346;
943  T274:;  T346:;
944          V125= fix(Cnil);          V142= fix(Cnil);
945  goto T275;  goto T347;
946  T275:;  T347:;
947          V126= fix(Cnil);          V143= fix(Cnil);
948  goto T276;  goto T348;
949  T276:;  T348:;
950          {object V127;          if(((V135))==((V140))){
951          object V128;          goto T349;}
952          V129 = make_fixnum(V126);          V143= 0;
953          V130 = make_fixnum(V125);  goto T349;
954          V127= number_plus(V129,V130);  T349:;
955          V128= small_fixnum(0);          {object V144;
956  goto T280;          object V145;
957  T280:;          V146 = make_fixnum(V143);
958          if(!(number_compare((V128),(V127))>=0)){          V147 = make_fixnum(V142);
959          goto T281;}          V144= number_plus(V146,V147);
960          V122= Cnil;          V145= small_fixnum(0);
961          goto T265;  goto T356;
962  goto T281;  T356:;
963  T281:;          if(!(number_compare((V145),(V144))>=0)){
964          V131 = make_fixnum(V126);          goto T357;}
965          if(!(number_compare((V128),V131)<0)){          goto T343;
966          goto T292;}  goto T357;
967          base[1]= (V121);  T357:;
968          base[2]= (V128);          V148 = make_fixnum(V143);
969          vs_top=(vs_base=base+1)+2;          if(!(number_compare((V145),V148)<0)){
970            goto T366;}
971            base[3]= (V140);
972            base[4]= (V145);
973            vs_top=(vs_base=base+3)+2;
974          siLpackage_internal();          siLpackage_internal();
975          vs_top=sup;          vs_top=sup;
976          V123= vs_base[0];          V137= vs_base[0];
977          goto T290;          goto T364;
978  goto T292;  goto T366;
979  T292:;  T366:;
980          base[1]= (V121);          base[3]= (V140);
981          V132 = make_fixnum(V126);          V149 = make_fixnum(V143);
982          base[2]= number_minus((V128),V132);          base[4]= number_minus((V145),V149);
983          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+3)+2;
984          siLpackage_external();          siLpackage_external();
985          vs_top=sup;          vs_top=sup;
986          V123= vs_base[0];          V137= vs_base[0];
987  goto T290;  goto T364;
988  T290:;  T364:;
989  goto T288;  goto T362;
990  T288:;  T362:;
991          if(((V123))!=Cnil){          if(((V137))!=Cnil){
992          goto T298;}          goto T372;}
993          goto T289;          goto T363;
994  goto T298;  goto T372;
995  T298:;  T372:;
996          V122= car((V123));          V136= car((V137));
997          V133= coerce_to_string((V122));          if(((V140))==((V135))){
998          if(((*(LnkLI33))((V118),/* INLINE-ARGS */V133))==Cnil){          goto T378;}
999          goto T303;}          base[4]= symbol_name((V136));
1000          V120= make_cons((V122),(V120));          base[5]= (V135);
1001  goto T303;          vs_top=(vs_base=base+4)+2;
1002  T303:;          Lfind_symbol();
1003          V123= cdr((V123));          Llist();
1004          goto T288;          vs_top=sup;
1005  goto T289;          base[3]= vs_base[0];
1006  T289:;          vs_top=(vs_base=base+3)+1;
1007          goto T286;          Llast();
1008  goto T286;          vs_top=sup;
1009  T286:;          V150= vs_base[0];
1010          V128= one_plus((V128));          if(!((VV[31])==(car(V150)))){
1011          goto T280;}}}          goto T377;}
1012  goto T265;  goto T378;
1013  T265:;  T378:;
1014          {object V134;          V151= coerce_to_string((V136));
1015          base[0]= (V119);          if(((*(LnkLI43))((V132),/* INLINE-ARGS */V151))==Cnil){
1016            goto T377;}
1017            V134= make_cons((V136),(V134));
1018    goto T377;
1019    T377:;
1020            V137= cdr((V137));
1021            goto T362;
1022    goto T363;
1023    T363:;
1024            goto T360;
1025    goto T360;
1026    T360:;
1027            V145= one_plus((V145));
1028            goto T356;}}
1029    goto T343;
1030    T343:;
1031            V139= cdr((V139));
1032            V140= car((V139));
1033            goto T336;}}
1034    goto T324;
1035    T324:;
1036            {object V152;
1037            base[0]= (V133);
1038          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1039          Lpackage_use_list();          Lpackage_use_list();
1040          vs_top=sup;          vs_top=sup;
1041          V134= vs_base[0];          V152= vs_base[0];
1042  goto T315;  goto T403;
1043  T315:;  T403:;
1044          if(((V134))!=Cnil){          if(((V152))!=Cnil){
1045          goto T316;}          goto T404;}
1046          goto T261;          goto T320;
1047  goto T316;  goto T404;
1048  T316:;  T404:;
1049          {object V135;          {object V153;
1050          register object V136;          register object V154;
1051          register object V137;          register object V155;
1052          {object V138;          {object V156;
1053          V138= car((V134));          V156= car((V152));
1054          base[0]= (V138);          base[0]= (V156);
1055          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1056          Lpackagep();          Lpackagep();
1057          vs_top=sup;          vs_top=sup;
1058          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1059          goto T324;}          goto T412;}
1060          V135= (V138);          V153= (V156);
1061          goto T321;          goto T409;
1062  goto T324;  goto T412;
1063  T324:;  T412:;
1064          base[0]= coerce_to_string((V138));          base[0]= coerce_to_string((V156));
1065          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1066          Lfind_package();          Lfind_package();
1067          vs_top=sup;          vs_top=sup;
1068          V135= vs_base[0];}          V153= vs_base[0];}
1069  goto T321;  goto T409;
1070  T321:;  T409:;
1071          V136= Cnil;          V154= Cnil;
1072          V137= Cnil;          V155= Cnil;
1073          {long V139;          {object V157;
1074          long V140;          object V158;
1075          base[0]= (V135);          base[2]= (V153);
1076          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+2)+1;
1077          (void) (*Lnk10)();          Lpackage_use_list();
1078          if(vs_base>=vs_top){vs_top=sup;goto T330;}          vs_top=sup;
1079          V139= fix(vs_base[0]);          V159= vs_base[0];
1080            V157= make_cons((V153),V159);
1081            V158= car((V157));
1082    goto T421;
1083    T421:;
1084            if(!(endp_prop((V157)))){
1085            goto T422;}
1086            V154= Cnil;
1087            goto T408;
1088    goto T422;
1089    T422:;
1090            {long V160;
1091            long V161;
1092            base[2]= (V158);
1093            vs_top=(vs_base=base+2)+1;
1094            (void) (*Lnk15)();
1095            if(vs_base>=vs_top){vs_top=sup;goto T431;}
1096            V160= fix(vs_base[0]);
1097          vs_base++;          vs_base++;
1098          if(vs_base>=vs_top){vs_top=sup;goto T331;}          if(vs_base>=vs_top){vs_top=sup;goto T432;}
1099          V140= fix(vs_base[0]);          V161= fix(vs_base[0]);
1100          vs_top=sup;          vs_top=sup;
1101          goto T332;          goto T433;
1102  goto T330;  goto T431;
1103  T330:;  T431:;
1104          V139= fix(Cnil);          V160= fix(Cnil);
1105  goto T331;  goto T432;
1106  T331:;  T432:;
1107          V140= fix(Cnil);          V161= fix(Cnil);
1108  goto T332;  goto T433;
1109  T332:;  T433:;
1110          {object V141;          if(((V153))==((V158))){
1111          register object V142;          goto T434;}
1112          V143 = make_fixnum(V140);          V161= 0;
1113          V144 = make_fixnum(V139);  goto T434;
1114          V141= number_plus(V143,V144);  T434:;
1115          V142= small_fixnum(0);          {object V162;
1116  goto T336;          register object V163;
1117  T336:;          V164 = make_fixnum(V161);
1118          if(!(number_compare((V142),(V141))>=0)){          V165 = make_fixnum(V160);
1119          goto T337;}          V162= number_plus(V164,V165);
1120          V136= Cnil;          V163= small_fixnum(0);
1121          goto T320;  goto T441;
1122  goto T337;  T441:;
1123  T337:;          if(!(number_compare((V163),(V162))>=0)){
1124          V145 = make_fixnum(V140);          goto T442;}
1125          if(!(number_compare((V142),V145)<0)){          goto T428;
1126          goto T348;}  goto T442;
1127          base[1]= (V135);  T442:;
1128          base[2]= (V142);          V166 = make_fixnum(V161);
1129          vs_top=(vs_base=base+1)+2;          if(!(number_compare((V163),V166)<0)){
1130            goto T451;}
1131            base[3]= (V158);
1132            base[4]= (V163);
1133            vs_top=(vs_base=base+3)+2;
1134          siLpackage_internal();          siLpackage_internal();
1135          vs_top=sup;          vs_top=sup;
1136          V137= vs_base[0];          V155= vs_base[0];
1137          goto T346;          goto T449;
1138  goto T348;  goto T451;
1139  T348:;  T451:;
1140          base[1]= (V135);          base[3]= (V158);
1141          V146 = make_fixnum(V140);          V167 = make_fixnum(V161);
1142          base[2]= number_minus((V142),V146);          base[4]= number_minus((V163),V167);
1143          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+3)+2;
1144          siLpackage_external();          siLpackage_external();
1145          vs_top=sup;          vs_top=sup;
1146          V137= vs_base[0];          V155= vs_base[0];
1147  goto T346;  goto T449;
1148  T346:;  T449:;
1149  goto T344;  goto T447;
1150  T344:;  T447:;
1151          if(((V137))!=Cnil){          if(((V155))!=Cnil){
1152          goto T354;}          goto T457;}
1153          goto T345;          goto T448;
1154  goto T354;  goto T457;
1155  T354:;  T457:;
1156          V136= car((V137));          V154= car((V155));
1157          V147= coerce_to_string((V136));          if(((V158))==((V153))){
1158          if(((*(LnkLI33))((V118),/* INLINE-ARGS */V147))==Cnil){          goto T463;}
1159          goto T359;}          base[4]= symbol_name((V154));
1160          V120= make_cons((V136),(V120));          base[5]= (V153);
1161  goto T359;          vs_top=(vs_base=base+4)+2;
1162  T359:;          Lfind_symbol();
1163          V137= cdr((V137));          Llist();
1164          goto T344;          vs_top=sup;
1165  goto T345;          base[3]= vs_base[0];
1166  T345:;          vs_top=(vs_base=base+3)+1;
1167          goto T342;          Llast();
1168  goto T342;          vs_top=sup;
1169  T342:;          V168= vs_base[0];
1170          V142= one_plus((V142));          if(!((VV[31])==(car(V168)))){
1171          goto T336;}}}          goto T462;}
1172  goto T320;  goto T463;
1173  T320:;  T463:;
1174          V134= cdr((V134));          V169= coerce_to_string((V154));
1175          goto T315;}          if(((*(LnkLI43))((V132),/* INLINE-ARGS */V169))==Cnil){
1176  goto T263;          goto T462;}
1177  T263:;          V134= make_cons((V154),(V134));
1178          {object V148;  goto T462;
1179          object V149;  T462:;
1180            V155= cdr((V155));
1181            goto T447;
1182    goto T448;
1183    T448:;
1184            goto T445;
1185    goto T445;
1186    T445:;
1187            V163= one_plus((V163));
1188            goto T441;}}
1189    goto T428;
1190    T428:;
1191            V157= cdr((V157));
1192            V158= car((V157));
1193            goto T421;}}
1194    goto T408;
1195    T408:;
1196            V152= cdr((V152));
1197            goto T403;}
1198    goto T322;
1199    T322:;
1200            {object V170;
1201            object V171;
1202          vs_base=vs_top;          vs_base=vs_top;
1203          Llist_all_packages();          Llist_all_packages();
1204          vs_top=sup;          vs_top=sup;
1205          V148= vs_base[0];          V170= vs_base[0];
1206          V149= car((V148));          V171= car((V170));
1207  goto T374;  goto T491;
1208  T374:;  T491:;
1209          if(!(endp_prop((V148)))){          if(!(endp_prop((V170)))){
1210          goto T375;}          goto T492;}
1211          goto T261;          goto T320;
1212  goto T375;  goto T492;
1213  T375:;  T492:;
1214          {object V150;          {object V172;
1215          register object V151;          register object V173;
1216          register object V152;          register object V174;
1217          base[2]= V149;          base[2]= V171;
1218          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1219          Lpackagep();          Lpackagep();
1220          vs_top=sup;          vs_top=sup;
1221          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1222          goto T382;}          goto T499;}
1223          V150= V149;          V172= V171;
1224          goto T380;          goto T497;
1225  goto T382;  goto T499;
1226  T382:;  T499:;
1227          base[2]= coerce_to_string(V149);          base[2]= coerce_to_string(V171);
1228          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1229          Lfind_package();          Lfind_package();
1230          vs_top=sup;          vs_top=sup;
1231          V150= vs_base[0];          V172= vs_base[0];
1232  goto T380;  goto T497;
1233  T380:;  T497:;
1234          V151= Cnil;          V173= Cnil;
1235          V152= Cnil;          V174= Cnil;
1236          {long V154;          {object V176;
1237          long V155;          object V177;
1238          base[2]= (V150);          base[4]= (V172);
1239          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+4)+1;
1240          (void) (*Lnk10)();          Lpackage_use_list();
1241          if(vs_base>=vs_top){vs_top=sup;goto T388;}          vs_top=sup;
1242          V154= fix(vs_base[0]);          V178= vs_base[0];
1243            V176= make_cons((V172),V178);
1244            V177= car((V176));
1245    goto T508;
1246    T508:;
1247            if(!(endp_prop((V176)))){
1248            goto T509;}
1249            V173= Cnil;
1250            goto T496;
1251    goto T509;
1252    T509:;
1253            {long V179;
1254            long V180;
1255            base[4]= (V177);
1256            vs_top=(vs_base=base+4)+1;
1257            (void) (*Lnk15)();
1258            if(vs_base>=vs_top){vs_top=sup;goto T518;}
1259            V179= fix(vs_base[0]);
1260          vs_base++;          vs_base++;
1261          if(vs_base>=vs_top){vs_top=sup;goto T389;}          if(vs_base>=vs_top){vs_top=sup;goto T519;}
1262          V155= fix(vs_base[0]);          V180= fix(vs_base[0]);
1263          vs_top=sup;          vs_top=sup;
1264          goto T390;          goto T520;
1265  goto T388;  goto T518;
1266  T388:;  T518:;
1267          V154= fix(Cnil);          V179= fix(Cnil);
1268  goto T389;  goto T519;
1269  T389:;  T519:;
1270          V155= fix(Cnil);          V180= fix(Cnil);
1271  goto T390;  goto T520;
1272  T390:;  T520:;
1273          {object V156;          if(((V172))==((V177))){
1274          register object V157;          goto T521;}
1275          V158 = make_fixnum(V155);          V180= 0;
1276          V159 = make_fixnum(V154);  goto T521;
1277          V156= number_plus(V158,V159);  T521:;
1278          V157= small_fixnum(0);          {object V181;
1279  goto T394;          register object V182;
1280  T394:;          V183 = make_fixnum(V180);
1281          if(!(number_compare((V157),(V156))>=0)){          V184 = make_fixnum(V179);
1282          goto T395;}          V181= number_plus(V183,V184);
1283          V151= Cnil;          V182= small_fixnum(0);
1284          goto T379;  goto T528;
1285  goto T395;  T528:;
1286  T395:;          if(!(number_compare((V182),(V181))>=0)){
1287          V160 = make_fixnum(V155);          goto T529;}
1288          if(!(number_compare((V157),V160)<0)){          goto T515;
1289          goto T406;}  goto T529;
1290          base[3]= (V150);  T529:;
1291          base[4]= (V157);          V185 = make_fixnum(V180);
1292          vs_top=(vs_base=base+3)+2;          if(!(number_compare((V182),V185)<0)){
1293            goto T538;}
1294            base[5]= (V177);
1295            base[6]= (V182);
1296            vs_top=(vs_base=base+5)+2;
1297          siLpackage_internal();          siLpackage_internal();
1298          vs_top=sup;          vs_top=sup;
1299          V152= vs_base[0];          V174= vs_base[0];
1300          goto T404;          goto T536;
1301  goto T406;  goto T538;
1302  T406:;  T538:;
1303          base[3]= (V150);          base[5]= (V177);
1304          V161 = make_fixnum(V155);          V186 = make_fixnum(V180);
1305          base[4]= number_minus((V157),V161);          base[6]= number_minus((V182),V186);
1306          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+5)+2;
1307          siLpackage_external();          siLpackage_external();
1308          vs_top=sup;          vs_top=sup;
1309          V152= vs_base[0];          V174= vs_base[0];
1310  goto T404;  goto T536;
1311  T404:;  T536:;
1312  goto T402;  goto T534;
1313  T402:;  T534:;
1314          if(((V152))!=Cnil){          if(((V174))!=Cnil){
1315          goto T412;}          goto T544;}
1316          goto T403;          goto T535;
1317  goto T412;  goto T544;
1318  T412:;  T544:;
1319          V151= car((V152));          V173= car((V174));
1320          V162= coerce_to_string((V151));          if(((V177))==((V172))){
1321          if(((*(LnkLI33))((V118),/* INLINE-ARGS */V162))==Cnil){          goto T550;}
1322          goto T417;}          base[6]= symbol_name((V173));
1323          V120= make_cons((V151),(V120));          base[7]= (V172);
1324  goto T417;          vs_top=(vs_base=base+6)+2;
1325  T417:;          Lfind_symbol();
1326          V152= cdr((V152));          Llist();
1327          goto T402;          vs_top=sup;
1328  goto T403;          base[5]= vs_base[0];
1329  T403:;          vs_top=(vs_base=base+5)+1;
1330          goto T400;          Llast();
1331  goto T400;          vs_top=sup;
1332  T400:;          V187= vs_base[0];
1333          V157= one_plus((V157));          if(!((VV[31])==(car(V187)))){
1334          goto T394;}}}          goto T549;}
1335  goto T379;  goto T550;
1336  T379:;  T550:;
1337          V148= cdr((V148));          V188= coerce_to_string((V173));
1338          V149= car((V148));          if(((*(LnkLI43))((V132),/* INLINE-ARGS */V188))==Cnil){
1339          goto T374;}          goto T549;}
1340  goto T261;          V134= make_cons((V173),(V134));
1341  T261:;  goto T549;
1342          {object V163 = (V120);  T549:;
1343          VMR9(V163)}}          V174= cdr((V174));
1344            goto T534;
1345    goto T535;
1346    T535:;
1347            goto T532;
1348    goto T532;
1349    T532:;
1350            V182= one_plus((V182));
1351            goto T528;}}
1352    goto T515;
1353    T515:;
1354            V176= cdr((V176));
1355            V177= car((V176));
1356            goto T508;}}
1357    goto T496;
1358    T496:;
1359            V170= cdr((V170));
1360            V171= car((V170));
1361            goto T491;}
1362    goto T320;
1363    T320:;
1364            {object V189 = (V134);
1365            VMR9(V189)}}
1366          va_end(ap);          va_end(ap);
1367          base[0]=base[0];          base[0]=base[0];
1368          return Cnil;}          return Cnil;}
1369          }          }
1370  static object  LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,1,ap);va_end(ap);return V1;} /* PRINT-SYMBOL-APROPOS */  static object  LnkTLI44(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[44],(void **)&LnkLI44,1,ap);va_end(ap);return V1;} /* PRINT-SYMBOL-APROPOS */
1371  static object  LnkTLI33(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[33],(void **)&LnkLI33,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */  static object  LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */
1372  static void LnkT10(){ call_or_link(VV[10],(void **)&Lnk10);} /* PACKAGE-SIZE */  static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* PACKAGE-SIZE */
1373  static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* FIND-DECLARATIONS */  static void LnkT42(){ call_or_link(VV[42],(void **)&Lnk42);} /* FIND-DECLARATIONS */
1374    
1375  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1376  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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