/[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.6 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.7 by camm, Mon Oct 14 05:24:43 2002 UTC
# Line 128  T39:; Line 128  T39:;
128  goto T44;  goto T44;
129  T44:;  T44:;
130          V16= car((V17));          V16= car((V17));
131            {object V21;
132          V21= symbol_name((V16));          V21= symbol_name((V16));
133          V7= make_cons(/* INLINE-ARGS */V21,(V7));          V7= make_cons((V21),(V7));}
134          V17= cdr((V17));          V17= cdr((V17));
135          goto T39;          goto T39;
136  goto T40;  goto T40;
# Line 149  T20:; Line 150  T20:;
150          Lpackagep();          Lpackagep();
151          vs_top=sup;          vs_top=sup;
152          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
153          goto T59;}          goto T60;}
154          V22= V2;          V22= V2;
155          goto T57;          goto T58;
156  goto T59;  goto T60;
157  T59:;  T60:;
158          base[6]= coerce_to_string(V2);          base[6]= coerce_to_string(V2);
159          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
160          Lfind_package();          Lfind_package();
161          vs_top=sup;          vs_top=sup;
162          V22= vs_base[0];          V22= vs_base[0];
163  goto T57;  goto T58;
164  T57:;  T58:;
165          V23= Cnil;          V23= Cnil;
166          V24= Cnil;          V24= Cnil;
167          {long V26;          {long V26;
# Line 168  T57:; Line 169  T57:;
169          base[6]= (V22);          base[6]= (V22);
170          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
171          (void) (*Lnk8)();          (void) (*Lnk8)();
172          if(vs_base>=vs_top){vs_top=sup;goto T65;}          if(vs_base>=vs_top){vs_top=sup;goto T66;}
173          V26= fix(vs_base[0]);          V26= fix(vs_base[0]);
174          vs_base++;          vs_base++;
175          if(vs_base>=vs_top){vs_top=sup;goto T66;}          if(vs_base>=vs_top){vs_top=sup;goto T67;}
176          V27= fix(vs_base[0]);          V27= fix(vs_base[0]);
177          vs_top=sup;          vs_top=sup;
178          goto T67;          goto T68;
 goto T65;  
 T65:;  
         V26= fix(Cnil);  
179  goto T66;  goto T66;
180  T66:;  T66:;
181          V27= fix(Cnil);          V26= fix(Cnil);
182  goto T67;  goto T67;
183  T67:;  T67:;
184            V27= fix(Cnil);
185    goto T68;
186    T68:;
187          {object V28;          {object V28;
188          register object V29;          register object V29;
189          V30 = make_fixnum(V27);          V30 = make_fixnum(V27);
190          V31 = make_fixnum(V26);          V31 = make_fixnum(V26);
191          V28= number_plus(V30,V31);          V28= number_plus(V30,V31);
192          V29= small_fixnum(0);          V29= small_fixnum(0);
 goto T71;  
 T71:;  
         if(!(number_compare((V29),(V28))>=0)){  
         goto T72;}  
         V23= Cnil;  
         goto T56;  
193  goto T72;  goto T72;
194  T72:;  T72:;
195            if(!(number_compare((V29),(V28))>=0)){
196            goto T73;}
197            V23= Cnil;
198            goto T57;
199    goto T73;
200    T73:;
201          V32 = make_fixnum(V27);          V32 = make_fixnum(V27);
202          if(!(number_compare((V29),V32)<0)){          if(!(number_compare((V29),V32)<0)){
203          goto T83;}          goto T84;}
204          base[7]= (V22);          base[7]= (V22);
205          base[8]= (V29);          base[8]= (V29);
206          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
207          siLpackage_internal();          siLpackage_internal();
208          vs_top=sup;          vs_top=sup;
209          V24= vs_base[0];          V24= vs_base[0];
210          goto T81;          goto T82;
211  goto T83;  goto T84;
212  T83:;  T84:;
213          base[7]= (V22);          base[7]= (V22);
214          V33 = make_fixnum(V27);          V33 = make_fixnum(V27);
215          base[8]= number_minus((V29),V33);          base[8]= number_minus((V29),V33);
# Line 216  T83:; Line 217  T83:;
217          siLpackage_external();          siLpackage_external();
218          vs_top=sup;          vs_top=sup;
219          V24= vs_base[0];          V24= vs_base[0];
220  goto T81;  goto T82;
221  T81:;  T82:;
222  goto T79;  goto T80;
223  T79:;  T80:;
224          if(((V24))!=Cnil){          if(((V24))!=Cnil){
225          goto T89;}          goto T90;}
226          goto T80;          goto T81;
227  goto T89;  goto T90;
228  T89:;  T90:;
229          V23= car((V24));          V23= car((V24));
230          base[7]= (V23);          base[7]= (V23);
231          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
# Line 232  T89:; Line 233  T89:;
233          vs_top=sup;          vs_top=sup;
234          V34= vs_base[0];          V34= vs_base[0];
235          if(((V2))==(V34)){          if(((V2))==(V34)){
236          goto T94;}          goto T95;}
237          base[7]= (V23);          base[7]= (V23);
238          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
239          Lsymbol_package();          Lsymbol_package();
240          vs_top=sup;          vs_top=sup;
241          V35= vs_base[0];          V35= vs_base[0];
242          if(((VFUN_NARGS=2,(*(LnkLI9))(V35,(V5))))!=Cnil){          if(((VFUN_NARGS=2,(*(LnkLI9))(V35,(V5))))!=Cnil){
243          goto T94;}          goto T95;}
244          V9= make_cons((V23),(V9));          V9= make_cons(V23,(V9));
245  goto T94;  goto T95;
246  T94:;  T95:;
247          V24= cdr((V24));          V24= cdr((V24));
248          goto T79;          goto T80;
249  goto T80;  goto T81;
250  T80:;  T81:;
251          goto T77;          goto T78;
252  goto T77;  goto T78;
253  T77:;  T78:;
254          V29= one_plus((V29));          V29= one_plus((V29));
255          goto T71;}}}          goto T72;}}}
256  goto T56;  goto T57;
257  T56:;  T57:;
258          V10= (VFUN_NARGS=2,(*(LnkLI10))((V8),(V9)));          V10= (VFUN_NARGS=2,(*(LnkLI10))((V8),(V9)));
259          V11= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V10)));          V11= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V10)));
260          V12= (VFUN_NARGS=2,(*(LnkLI11))((V9),(V10)));          V12= (VFUN_NARGS=2,(*(LnkLI11))((V9),(V10)));
261          if(((V4))==Cnil){          if(((V4))==Cnil){
262          goto T118;}          goto T119;}
263          V37= make_cons(VV[1],(V4));          V38= make_cons(VV[1],(V4));
264          base[6]= make_cons(/* INLINE-ARGS */V37,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V38,Cnil);
265          goto T116;          goto T117;
266  goto T118;  goto T119;
267  T118:;  T119:;
268          base[6]= Cnil;          base[6]= Cnil;
269  goto T116;  goto T117;
270  T116:;  T117:;
271          if(((V6))==Cnil){          if(((V6))==Cnil){
272          goto T122;}          goto T123;}
273          V38= make_cons(VV[2],(V6));          V39= make_cons(VV[2],(V6));
274          base[7]= make_cons(/* INLINE-ARGS */V38,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V39,Cnil);
275          goto T120;          goto T121;
276  goto T122;  goto T123;
277  T122:;  T123:;
278          base[7]= Cnil;          base[7]= Cnil;
279  goto T120;  goto T121;
280  T120:;  T121:;
281          if(((V7))==Cnil){          if(((V7))==Cnil){
282          goto T126;}          goto T127;}
283          V39= make_cons(VV[3],(V7));          V40= make_cons(VV[3],(V7));
284          base[8]= make_cons(/* INLINE-ARGS */V39,Cnil);          base[8]= make_cons(/* INLINE-ARGS */V40,Cnil);
285          goto T124;          goto T125;
286  goto T126;  goto T127;
287  T126:;  T127:;
288          base[8]= Cnil;          base[8]= Cnil;
289  goto T124;  goto T125;
290  T124:;  T125:;
291          if(((V11))==Cnil){          if(((V11))==Cnil){
292          goto T130;}          goto T131;}
293          {object V41;          {object V42;
294          object V42= (V11);          object V43= (V11);
295          if(endp(V42)){          if(endp(V43)){
296          V40= Cnil;          V41= Cnil;
297          goto T132;}          goto T133;}
298          base[10]=V41=MMcons(Cnil,Cnil);          base[10]=V42=MMcons(Cnil,Cnil);
299    goto T134;
300    T134:;
301            (V42->c.c_car)= symbol_name((V43->c.c_car));
302            V43=MMcdr(V43);
303            if(endp(V43)){
304            V41= base[10];
305            goto T133;}
306            V42=MMcdr(V42)=MMcons(Cnil,Cnil);
307            goto T134;}
308  goto T133;  goto T133;
309  T133:;  T133:;
310          (V41->c.c_car)= symbol_name((V42->c.c_car));          V44= make_cons(VV[4],V41);
311          V42=MMcdr(V42);          base[9]= make_cons(/* INLINE-ARGS */V44,Cnil);
312          if(endp(V42)){          goto T129;
313          V40= base[10];  goto T131;
314          goto T132;}  T131:;
         V41=MMcdr(V41)=MMcons(Cnil,Cnil);  
         goto T133;}  
 goto T132;  
 T132:;  
         V43= make_cons(VV[4],V40);  
         base[9]= make_cons(/* INLINE-ARGS */V43,Cnil);  
         goto T128;  
 goto T130;  
 T130:;  
315          base[9]= Cnil;          base[9]= Cnil;
316  goto T128;  goto T129;
317  T128:;  T129:;
318          if(((V10))==Cnil){          if(((V10))==Cnil){
319          goto T137;}          goto T138;}
320          {object V44;          {object V45;
321          object V45= (V10);          object V46= (V10);
322          if(endp(V45)){          if(endp(V46)){
323          base[10]= Cnil;          base[10]= Cnil;
324          goto T135;}          goto T136;}
325          base[11]=V44=MMcons(Cnil,Cnil);          base[11]=V45=MMcons(Cnil,Cnil);
326  goto T139;  goto T140;
327  T139:;  T140:;
328          base[13]= (V45->c.c_car);          base[13]= (V46->c.c_car);
329          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
330          Lsymbol_package();          Lsymbol_package();
331          vs_top=sup;          vs_top=sup;
# Line 332  T139:; Line 333  T139:;
333          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
334          Lpackage_name();          Lpackage_name();
335          vs_top=sup;          vs_top=sup;
336          V47= vs_base[0];          V48= vs_base[0];
337          V48= list(3,VV[5],V47,symbol_name((V45->c.c_car)));          V49= list(3,VV[5],V48,symbol_name((V46->c.c_car)));
338          (V44->c.c_car)= make_cons(/* INLINE-ARGS */V48,Cnil);          (V45->c.c_car)= make_cons(/* INLINE-ARGS */V49,Cnil);
339          V45=MMcdr(V45);          V46=MMcdr(V46);
340          if(endp(V45)){          if(endp(V46)){
341          base[10]= base[11];          base[10]= base[11];
342          goto T135;}          goto T136;}
343          V44=MMcdr(V44)=MMcons(Cnil,Cnil);          V45=MMcdr(V45)=MMcons(Cnil,Cnil);
344          goto T139;}          goto T140;}
345  goto T137;  goto T138;
346  T137:;  T138:;
347          base[10]= Cnil;          base[10]= Cnil;
348  goto T135;  goto T136;
349  T135:;  T136:;
350          if(((V12))==Cnil){          if(((V12))==Cnil){
351          goto T146;}          goto T147;}
352          {object V49;          {object V50;
353          object V50= (V12);          object V51= (V12);
354          if(endp(V50)){          if(endp(V51)){
355          base[11]= Cnil;          base[11]= Cnil;
356          goto T144;}          goto T145;}
357          base[12]=V49=MMcons(Cnil,Cnil);          base[12]=V50=MMcons(Cnil,Cnil);
358  goto T148;  goto T149;
359  T148:;  T149:;
360          base[14]= (V50->c.c_car);          base[14]= (V51->c.c_car);
361          vs_top=(vs_base=base+14)+1;          vs_top=(vs_base=base+14)+1;
362          Lsymbol_package();          Lsymbol_package();
363          vs_top=sup;          vs_top=sup;
# Line 364  T148:; Line 365  T148:;
365          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
366          Lpackage_name();          Lpackage_name();
367          vs_top=sup;          vs_top=sup;
368          V52= vs_base[0];          V53= vs_base[0];
369          V53= list(3,VV[6],V52,symbol_name((V50->c.c_car)));          V54= list(3,VV[6],V53,symbol_name((V51->c.c_car)));
370          (V49->c.c_car)= make_cons(/* INLINE-ARGS */V53,Cnil);          (V50->c.c_car)= make_cons(/* INLINE-ARGS */V54,Cnil);
371          V50=MMcdr(V50);          V51=MMcdr(V51);
372          if(endp(V50)){          if(endp(V51)){
373          base[11]= base[12];          base[11]= base[12];
374          goto T144;}          goto T145;}
375          V49=MMcdr(V49)=MMcons(Cnil,Cnil);          V50=MMcdr(V50)=MMcons(Cnil,Cnil);
376          goto T148;}          goto T149;}
377  goto T146;  goto T147;
378  T146:;  T147:;
379          base[11]= Cnil;          base[11]= Cnil;
380  goto T144;  goto T145;
381  T144:;  T145:;
382          vs_top=(vs_base=base+6)+6;          vs_top=(vs_base=base+6)+6;
383          Lappend();          Lappend();
384          vs_top=sup;          vs_top=sup;
385          V36= vs_base[0];          V37= vs_base[0];
386          base[6]= listA(3,VV[0],(V3),V36);          base[6]= listA(3,VV[0],(V3),V37);
387          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
388          return;}}          return;}}
389          }          }

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