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

Diff of /gcl/lsp/make_defpackage.c

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

revision 1.7 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.8 by camm, Fri Jan 24 18:38:28 2003 UTC
# Line 24  TTL:; Line 24  TTL:;
24          object V4;          object V4;
25          object V5;          object V5;
26          object V6;          object V6;
27          register object V7;          object V7;
28          object V8;          object V8;
29          register object V9;          object V9;
30          object V10;          object V10;
31          object V11;          object V11;
32          object V12;          object V12;
# Line 69  T9:; Line 69  T9:;
69          V7= Cnil;          V7= Cnil;
70          base[6]= (V2);          base[6]= (V2);
71          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
72          (void) (*Lnk7)();          (void) (*Lnk8)();
73          vs_top=sup;          vs_top=sup;
74          V8= vs_base[0];          V8= vs_base[0];
75          V9= Cnil;          V9= Cnil;
# Line 77  T9:; Line 77  T9:;
77          V11= Cnil;          V11= Cnil;
78          V12= Cnil;          V12= Cnil;
79          {object V15;          {object V15;
80          register object V16;          object V16;
81          register object V17;          register object V17;
82          base[6]= V2;          base[6]= V2;
83          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 99  T21:; Line 99  T21:;
99          V16= Cnil;          V16= Cnil;
100          V17= Cnil;          V17= Cnil;
101          {object V19;          {object V19;
102          register object V20;          object V20;
103          base[7]= (V15);          base[7]= (V15);
104          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
105          (void) (*Lnk8)();          (void) (*Lnk9)();
106          vs_top=sup;          vs_top=sup;
107          V19= vs_base[0];          V19= vs_base[0];
108          V20= small_fixnum(0);          V20= small_fixnum(0);
# Line 142  T37:; Line 142  T37:;
142          goto T31;}}          goto T31;}}
143  goto T20;  goto T20;
144  T20:;  T20:;
145          {object V22;          {register object V22;
146          register object V23;          register object V23;
147          register object V24;          register object V24;
148          base[6]= V2;          base[6]= V2;
# Line 164  goto T58; Line 164  goto T58;
164  T58:;  T58:;
165          V23= Cnil;          V23= Cnil;
166          V24= Cnil;          V24= Cnil;
167          {long V26;          {object V26;
168          long V27;          register object V27;
169          base[6]= (V22);          base[8]= (V22);
170          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+8)+1;
171          (void) (*Lnk8)();          Lpackage_use_list();
         if(vs_base>=vs_top){vs_top=sup;goto T66;}  
         V26= fix(vs_base[0]);  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T67;}  
         V27= fix(vs_base[0]);  
172          vs_top=sup;          vs_top=sup;
173          goto T68;          V28= vs_base[0];
174  goto T66;          V26= make_cons((V22),V28);
175  T66:;          V27= car((V26));
176          V26= fix(Cnil);  goto T69;
177  goto T67;  T69:;
178  T67:;          if(!(endp_prop((V26)))){
179          V27= fix(Cnil);          goto T70;}
 goto T68;  
 T68:;  
         {object V28;  
         register object V29;  
         V30 = make_fixnum(V27);  
         V31 = make_fixnum(V26);  
         V28= number_plus(V30,V31);  
         V29= small_fixnum(0);  
 goto T72;  
 T72:;  
         if(!(number_compare((V29),(V28))>=0)){  
         goto T73;}  
180          V23= Cnil;          V23= Cnil;
181          goto T57;          goto T57;
182  goto T73;  goto T70;
183  T73:;  T70:;
184          V32 = make_fixnum(V27);          {long V29;
185          if(!(number_compare((V29),V32)<0)){          long V30;
186          goto T84;}          base[8]= (V27);
187          base[7]= (V22);          vs_top=(vs_base=base+8)+1;
188          base[8]= (V29);          (void) (*Lnk9)();
189          vs_top=(vs_base=base+7)+2;          if(vs_base>=vs_top){vs_top=sup;goto T79;}
190            V29= fix(vs_base[0]);
191            vs_base++;
192            if(vs_base>=vs_top){vs_top=sup;goto T80;}
193            V30= fix(vs_base[0]);
194            vs_top=sup;
195            goto T81;
196    goto T79;
197    T79:;
198            V29= fix(Cnil);
199    goto T80;
200    T80:;
201            V30= fix(Cnil);
202    goto T81;
203    T81:;
204            if(((V22))==((V27))){
205            goto T82;}
206            V30= 0;
207    goto T82;
208    T82:;
209            {object V31;
210            register object V32;
211            V33 = make_fixnum(V30);
212            V34 = make_fixnum(V29);
213            V31= number_plus(V33,V34);
214            V32= small_fixnum(0);
215    goto T89;
216    T89:;
217            if(!(number_compare((V32),(V31))>=0)){
218            goto T90;}
219            goto T76;
220    goto T90;
221    T90:;
222            V35 = make_fixnum(V30);
223            if(!(number_compare((V32),V35)<0)){
224            goto T99;}
225            base[9]= (V27);
226            base[10]= (V32);
227            vs_top=(vs_base=base+9)+2;
228          siLpackage_internal();          siLpackage_internal();
229          vs_top=sup;          vs_top=sup;
230          V24= vs_base[0];          V24= vs_base[0];
231          goto T82;          goto T97;
232  goto T84;  goto T99;
233  T84:;  T99:;
234          base[7]= (V22);          base[9]= (V27);
235          V33 = make_fixnum(V27);          V36 = make_fixnum(V30);
236          base[8]= number_minus((V29),V33);          base[10]= number_minus((V32),V36);
237          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+9)+2;
238          siLpackage_external();          siLpackage_external();
239          vs_top=sup;          vs_top=sup;
240          V24= vs_base[0];          V24= vs_base[0];
241  goto T82;  goto T97;
242  T82:;  T97:;
243  goto T80;  goto T95;
244  T80:;  T95:;
245          if(((V24))!=Cnil){          if(((V24))!=Cnil){
246          goto T90;}          goto T105;}
247          goto T81;          goto T96;
248  goto T90;  goto T105;
249  T90:;  T105:;
250          V23= car((V24));          V23= car((V24));
251          base[7]= (V23);          if(((V27))==((V22))){
252          vs_top=(vs_base=base+7)+1;          goto T111;}
253            base[10]= symbol_name((V23));
254            base[11]= (V22);
255            vs_top=(vs_base=base+10)+2;
256            Lfind_symbol();
257            Llist();
258            vs_top=sup;
259            base[9]= vs_base[0];
260            vs_top=(vs_base=base+9)+1;
261            Llast();
262            vs_top=sup;
263            V37= vs_base[0];
264            if(!((VV[0])==(car(V37)))){
265            goto T110;}
266    goto T111;
267    T111:;
268            base[9]= (V23);
269            vs_top=(vs_base=base+9)+1;
270          Lsymbol_package();          Lsymbol_package();
271          vs_top=sup;          vs_top=sup;
272          V34= vs_base[0];          V38= vs_base[0];
273          if(((V2))==(V34)){          if(((V2))==(V38)){
274          goto T95;}          goto T120;}
275          base[7]= (V23);          base[9]= (V23);
276          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+9)+1;
277          Lsymbol_package();          Lsymbol_package();
278          vs_top=sup;          vs_top=sup;
279          V35= vs_base[0];          V39= vs_base[0];
280          if(((VFUN_NARGS=2,(*(LnkLI9))(V35,(V5))))!=Cnil){          if(((VFUN_NARGS=2,(*(LnkLI10))(V39,(V5))))!=Cnil){
281          goto T95;}          goto T120;}
282          V9= make_cons(V23,(V9));          V9= make_cons(V23,(V9));
283  goto T95;  goto T120;
284  T95:;  T120:;
285    goto T110;
286    T110:;
287          V24= cdr((V24));          V24= cdr((V24));
288          goto T80;          goto T95;
289  goto T81;  goto T96;
290  T81:;  T96:;
291          goto T78;          goto T93;
292  goto T78;  goto T93;
293  T78:;  T93:;
294          V29= one_plus((V29));          V32= one_plus((V32));
295          goto T72;}}}          goto T89;}}
296    goto T76;
297    T76:;
298            V26= cdr((V26));
299            V27= car((V26));
300            goto T69;}}
301  goto T57;  goto T57;
302  T57:;  T57:;
303          V10= (VFUN_NARGS=2,(*(LnkLI10))((V8),(V9)));          V10= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V9)));
304          V11= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V10)));          V11= (VFUN_NARGS=2,(*(LnkLI12))((V8),(V10)));
305          V12= (VFUN_NARGS=2,(*(LnkLI11))((V9),(V10)));          V12= (VFUN_NARGS=2,(*(LnkLI12))((V9),(V10)));
306          if(((V4))==Cnil){          if(((V4))==Cnil){
307          goto T119;}          goto T149;}
308          V38= make_cons(VV[1],(V4));          V42= make_cons(VV[2],(V4));
309          base[6]= make_cons(/* INLINE-ARGS */V38,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V42,Cnil);
310          goto T117;          goto T147;
311  goto T119;  goto T149;
312  T119:;  T149:;
313          base[6]= Cnil;          base[6]= Cnil;
314  goto T117;  goto T147;
315  T117:;  T147:;
316          if(((V6))==Cnil){          if(((V6))==Cnil){
317          goto T123;}          goto T153;}
318          V39= make_cons(VV[2],(V6));          V43= make_cons(VV[3],(V6));
319          base[7]= make_cons(/* INLINE-ARGS */V39,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V43,Cnil);
320          goto T121;          goto T151;
321  goto T123;  goto T153;
322  T123:;  T153:;
323          base[7]= Cnil;          base[7]= Cnil;
324  goto T121;  goto T151;
325  T121:;  T151:;
326          if(((V7))==Cnil){          if(((V7))==Cnil){
327          goto T127;}          goto T157;}
328          V40= make_cons(VV[3],(V7));          V44= make_cons(VV[4],(V7));
329          base[8]= make_cons(/* INLINE-ARGS */V40,Cnil);          base[8]= make_cons(/* INLINE-ARGS */V44,Cnil);
330          goto T125;          goto T155;
331  goto T127;  goto T157;
332  T127:;  T157:;
333          base[8]= Cnil;          base[8]= Cnil;
334  goto T125;  goto T155;
335  T125:;  T155:;
336          if(((V11))==Cnil){          if(((V11))==Cnil){
337          goto T131;}          goto T161;}
338          {object V42;          {object V46;
339          object V43= (V11);          object V47= (V11);
340          if(endp(V43)){          if(endp(V47)){
341          V41= Cnil;          V45= Cnil;
342          goto T133;}          goto T163;}
343          base[10]=V42=MMcons(Cnil,Cnil);          base[10]=V46=MMcons(Cnil,Cnil);
344  goto T134;  goto T164;
345  T134:;  T164:;
346          (V42->c.c_car)= symbol_name((V43->c.c_car));          (V46->c.c_car)= symbol_name((V47->c.c_car));
347          V43=MMcdr(V43);          V47=MMcdr(V47);
348          if(endp(V43)){          if(endp(V47)){
349          V41= base[10];          V45= base[10];
350          goto T133;}          goto T163;}
351          V42=MMcdr(V42)=MMcons(Cnil,Cnil);          V46=MMcdr(V46)=MMcons(Cnil,Cnil);
352          goto T134;}          goto T164;}
353  goto T133;  goto T163;
354  T133:;  T163:;
355          V44= make_cons(VV[4],V41);          V48= make_cons(VV[5],V45);
356          base[9]= make_cons(/* INLINE-ARGS */V44,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V48,Cnil);
357          goto T129;          goto T159;
358  goto T131;  goto T161;
359  T131:;  T161:;
360          base[9]= Cnil;          base[9]= Cnil;
361  goto T129;  goto T159;
362  T129:;  T159:;
363          if(((V10))==Cnil){          if(((V10))==Cnil){
364          goto T138;}          goto T168;}
365          {object V45;          {object V49;
366          object V46= (V10);          object V50= (V10);
367          if(endp(V46)){          if(endp(V50)){
368          base[10]= Cnil;          base[10]= Cnil;
369          goto T136;}          goto T166;}
370          base[11]=V45=MMcons(Cnil,Cnil);          base[11]=V49=MMcons(Cnil,Cnil);
371  goto T140;  goto T170;
372  T140:;  T170:;
373          base[13]= (V46->c.c_car);          base[13]= (V50->c.c_car);
374          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
375          Lsymbol_package();          Lsymbol_package();
376          vs_top=sup;          vs_top=sup;
# Line 333  T140:; Line 378  T140:;
378          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
379          Lpackage_name();          Lpackage_name();
380          vs_top=sup;          vs_top=sup;
381          V48= vs_base[0];          V52= vs_base[0];
382          V49= list(3,VV[5],V48,symbol_name((V46->c.c_car)));          V53= list(3,VV[6],V52,symbol_name((V50->c.c_car)));
383          (V45->c.c_car)= make_cons(/* INLINE-ARGS */V49,Cnil);          (V49->c.c_car)= make_cons(/* INLINE-ARGS */V53,Cnil);
384          V46=MMcdr(V46);          V50=MMcdr(V50);
385          if(endp(V46)){          if(endp(V50)){
386          base[10]= base[11];          base[10]= base[11];
387          goto T136;}          goto T166;}
388          V45=MMcdr(V45)=MMcons(Cnil,Cnil);          V49=MMcdr(V49)=MMcons(Cnil,Cnil);
389          goto T140;}          goto T170;}
390  goto T138;  goto T168;
391  T138:;  T168:;
392          base[10]= Cnil;          base[10]= Cnil;
393  goto T136;  goto T166;
394  T136:;  T166:;
395          if(((V12))==Cnil){          if(((V12))==Cnil){
396          goto T147;}          goto T177;}
397          {object V50;          {object V54;
398          object V51= (V12);          object V55= (V12);
399          if(endp(V51)){          if(endp(V55)){
400          base[11]= Cnil;          base[11]= Cnil;
401          goto T145;}          goto T175;}
402          base[12]=V50=MMcons(Cnil,Cnil);          base[12]=V54=MMcons(Cnil,Cnil);
403  goto T149;  goto T179;
404  T149:;  T179:;
405          base[14]= (V51->c.c_car);          base[14]= (V55->c.c_car);
406          vs_top=(vs_base=base+14)+1;          vs_top=(vs_base=base+14)+1;
407          Lsymbol_package();          Lsymbol_package();
408          vs_top=sup;          vs_top=sup;
# Line 365  T149:; Line 410  T149:;
410          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
411          Lpackage_name();          Lpackage_name();
412          vs_top=sup;          vs_top=sup;
413          V53= vs_base[0];          V57= vs_base[0];
414          V54= list(3,VV[6],V53,symbol_name((V51->c.c_car)));          V58= list(3,VV[7],V57,symbol_name((V55->c.c_car)));
415          (V50->c.c_car)= make_cons(/* INLINE-ARGS */V54,Cnil);          (V54->c.c_car)= make_cons(/* INLINE-ARGS */V58,Cnil);
416          V51=MMcdr(V51);          V55=MMcdr(V55);
417          if(endp(V51)){          if(endp(V55)){
418          base[11]= base[12];          base[11]= base[12];
419          goto T145;}          goto T175;}
420          V50=MMcdr(V50)=MMcons(Cnil,Cnil);          V54=MMcdr(V54)=MMcons(Cnil,Cnil);
421          goto T149;}          goto T179;}
422  goto T147;  goto T177;
423  T147:;  T177:;
424          base[11]= Cnil;          base[11]= Cnil;
425  goto T145;  goto T175;
426  T145:;  T175:;
427          vs_top=(vs_base=base+6)+6;          vs_top=(vs_base=base+6)+6;
428          Lappend();          Lappend();
429          vs_top=sup;          vs_top=sup;
430          V37= vs_base[0];          V41= vs_base[0];
431          base[6]= listA(3,VV[0],(V3),V37);          base[6]= listA(3,VV[1],(V3),V41);
432          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
433          return;}}          return;}}
434          }          }
435  }  }
436  static object  LnkTLI11(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[11],(void **)&LnkLI11,ap);va_end(ap);return V1;} /* SET-DIFFERENCE */  static object  LnkTLI12(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[12],(void **)&LnkLI12,ap);va_end(ap);return V1;} /* SET-DIFFERENCE */
437  static object  LnkTLI10(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[10],(void **)&LnkLI10,ap);va_end(ap);return V1;} /* INTERSECTION */  static object  LnkTLI11(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[11],(void **)&LnkLI11,ap);va_end(ap);return V1;} /* INTERSECTION */
438  static object  LnkTLI9(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[9],(void **)&LnkLI9,ap);va_end(ap);return V1;} /* FIND */  static object  LnkTLI10(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[10],(void **)&LnkLI10,ap);va_end(ap);return V1;} /* FIND */
439  static void LnkT8(){ call_or_link(VV[8],(void **)&Lnk8);} /* PACKAGE-SIZE */  static void LnkT9(){ call_or_link(VV[9],(void **)&Lnk9);} /* PACKAGE-SIZE */
440  static void LnkT7(){ call_or_link(VV[7],(void **)&Lnk7);} /* PACKAGE-SHADOWING-SYMBOLS */  static void LnkT8(){ call_or_link(VV[8],(void **)&Lnk8);} /* PACKAGE-SHADOWING-SYMBOLS */
441    
442  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
443  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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