/[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.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "make_defpackage.h"  #include "make_defpackage.h"
4  init_make_defpackage(){do_init(VV);}  void init_make_defpackage(){do_init(VV);}
5  /*      function definition for MAKE-DEFPACKAGE-FORM    */  /*      function definition for MAKE-DEFPACKAGE-FORM    */
6    
7  static L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
# Line 12  static L1() Line 12  static L1()
12          check_arg(1);          check_arg(1);
13          V1=(base[0]);          V1=(base[0]);
14          vs_top=sup;          vs_top=sup;
15    goto TTL;
16  TTL:;  TTL:;
17          {object V2;          {object V2;
18          base[1]= (V1);          base[1]= (V1);
# Line 50  TTL:; Line 51  TTL:;
51          V6= Cnil;          V6= Cnil;
52          goto T9;}          goto T9;}
53          base[6]=V13=MMcons(Cnil,Cnil);          base[6]=V13=MMcons(Cnil,Cnil);
54    goto T10;
55  T10:;  T10:;
56          base[7]= (V14->c.c_car);          base[7]= (V14->c.c_car);
57          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
# Line 61  T10:; Line 63  T10:;
63          goto T9;}          goto T9;}
64          V13=MMcdr(V13)=MMcons(Cnil,Cnil);          V13=MMcdr(V13)=MMcons(Cnil,Cnil);
65          goto T10;}          goto T10;}
66    goto T9;
67  T9:;  T9:;
68          V7= Cnil;          V7= Cnil;
69          base[6]= (V2);          base[6]= (V2);
# Line 83  T9:; Line 86  T9:;
86          goto T23;}          goto T23;}
87          V15= V2;          V15= V2;
88          goto T21;          goto T21;
89    goto T23;
90  T23:;  T23:;
91          base[6]= coerce_to_string(V2);          base[6]= coerce_to_string(V2);
92          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
93          Lfind_package();          Lfind_package();
94          vs_top=sup;          vs_top=sup;
95          V15= vs_base[0];          V15= vs_base[0];
96    goto T21;
97  T21:;  T21:;
98          V16= Cnil;          V16= Cnil;
99          V17= Cnil;          V17= Cnil;
# Line 100  T21:; Line 105  T21:;
105          vs_top=sup;          vs_top=sup;
106          V19= vs_base[0];          V19= vs_base[0];
107          V20= small_fixnum(0);          V20= small_fixnum(0);
108    goto T31;
109  T31:;  T31:;
110          if(!(number_compare((V20),(V19))>=0)){          if(!(number_compare((V20),(V19))>=0)){
111          goto T32;}          goto T32;}
112          V16= Cnil;          V16= Cnil;
113          goto T20;          goto T20;
114    goto T32;
115  T32:;  T32:;
116          base[7]= (V15);          base[7]= (V15);
117          base[8]= (V20);          base[8]= (V20);
# Line 112  T32:; Line 119  T32:;
119          siLpackage_external();          siLpackage_external();
120          vs_top=sup;          vs_top=sup;
121          V17= vs_base[0];          V17= vs_base[0];
122    goto T39;
123  T39:;  T39:;
124          if(((V17))!=Cnil){          if(((V17))!=Cnil){
125          goto T44;}          goto T44;}
126          goto T40;          goto T40;
127    goto T44;
128  T44:;  T44:;
129          V16= car((V17));          V16= car((V17));
130          V21= symbol_name((V16));          V21= symbol_name((V16));
131          V7= make_cons(/* INLINE-ARGS */V21,(V7));          V7= make_cons(/* INLINE-ARGS */V21,(V7));
132          V17= cdr((V17));          V17= cdr((V17));
133          goto T39;          goto T39;
134    goto T40;
135  T40:;  T40:;
136          goto T37;          goto T37;
137    goto T37;
138  T37:;  T37:;
139          V20= one_plus((V20));          V20= one_plus((V20));
140          goto T31;}}          goto T31;}}
141    goto T20;
142  T20:;  T20:;
143          {object V22;          {object V22;
144          register object V23;          register object V23;
# Line 139  T20:; Line 151  T20:;
151          goto T59;}          goto T59;}
152          V22= V2;          V22= V2;
153          goto T57;          goto T57;
154    goto T59;
155  T59:;  T59:;
156          base[6]= coerce_to_string(V2);          base[6]= coerce_to_string(V2);
157          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
158          Lfind_package();          Lfind_package();
159          vs_top=sup;          vs_top=sup;
160          V22= vs_base[0];          V22= vs_base[0];
161    goto T57;
162  T57:;  T57:;
163          V23= Cnil;          V23= Cnil;
164          V24= Cnil;          V24= Cnil;
# Line 160  T57:; Line 174  T57:;
174          V27= fix(vs_base[0]);          V27= fix(vs_base[0]);
175          vs_top=sup;          vs_top=sup;
176          goto T67;          goto T67;
177    goto T65;
178  T65:;  T65:;
179          V26= fix(Cnil);          V26= fix(Cnil);
180    goto T66;
181  T66:;  T66:;
182          V27= fix(Cnil);          V27= fix(Cnil);
183    goto T67;
184  T67:;  T67:;
185          {object V28;          {object V28;
186          register object V29;          register object V29;
# Line 171  T67:; Line 188  T67:;
188          V31 = make_fixnum(V26);          V31 = make_fixnum(V26);
189          V28= number_plus(V30,V31);          V28= number_plus(V30,V31);
190          V29= small_fixnum(0);          V29= small_fixnum(0);
191    goto T71;
192  T71:;  T71:;
193          if(!(number_compare((V29),(V28))>=0)){          if(!(number_compare((V29),(V28))>=0)){
194          goto T72;}          goto T72;}
195          V23= Cnil;          V23= Cnil;
196          goto T56;          goto T56;
197    goto T72;
198  T72:;  T72:;
199          V32 = make_fixnum(V27);          V32 = make_fixnum(V27);
200          if(!(number_compare((V29),V32)<0)){          if(!(number_compare((V29),V32)<0)){
# Line 187  T72:; Line 206  T72:;
206          vs_top=sup;          vs_top=sup;
207          V24= vs_base[0];          V24= vs_base[0];
208          goto T81;          goto T81;
209    goto T83;
210  T83:;  T83:;
211          base[7]= (V22);          base[7]= (V22);
212          V33 = make_fixnum(V27);          V33 = make_fixnum(V27);
# Line 195  T83:; Line 215  T83:;
215          siLpackage_external();          siLpackage_external();
216          vs_top=sup;          vs_top=sup;
217          V24= vs_base[0];          V24= vs_base[0];
218    goto T81;
219  T81:;  T81:;
220    goto T79;
221  T79:;  T79:;
222          if(((V24))!=Cnil){          if(((V24))!=Cnil){
223          goto T89;}          goto T89;}
224          goto T80;          goto T80;
225    goto T89;
226  T89:;  T89:;
227          V23= car((V24));          V23= car((V24));
228          base[7]= (V23);          base[7]= (V23);
# Line 217  T89:; Line 240  T89:;
240          if(((VFUN_NARGS=2,(*(LnkLI9))(V35,(V5))))!=Cnil){          if(((VFUN_NARGS=2,(*(LnkLI9))(V35,(V5))))!=Cnil){
241          goto T94;}          goto T94;}
242          V9= make_cons((V23),(V9));          V9= make_cons((V23),(V9));
243    goto T94;
244  T94:;  T94:;
245          V24= cdr((V24));          V24= cdr((V24));
246          goto T79;          goto T79;
247    goto T80;
248  T80:;  T80:;
249          goto T77;          goto T77;
250    goto T77;
251  T77:;  T77:;
252          V29= one_plus((V29));          V29= one_plus((V29));
253          goto T71;}}}          goto T71;}}}
254    goto T56;
255  T56:;  T56:;
256          V10= (VFUN_NARGS=2,(*(LnkLI10))((V8),(V9)));          V10= (VFUN_NARGS=2,(*(LnkLI10))((V8),(V9)));
257          V11= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V10)));          V11= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V10)));
# Line 234  T56:; Line 261  T56:;
261          V37= make_cons(VV[1],(V4));          V37= make_cons(VV[1],(V4));
262          base[6]= make_cons(/* INLINE-ARGS */V37,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V37,Cnil);
263          goto T116;          goto T116;
264    goto T118;
265  T118:;  T118:;
266          base[6]= Cnil;          base[6]= Cnil;
267    goto T116;
268  T116:;  T116:;
269          if(((V6))==Cnil){          if(((V6))==Cnil){
270          goto T122;}          goto T122;}
271          V38= make_cons(VV[2],(V6));          V38= make_cons(VV[2],(V6));
272          base[7]= make_cons(/* INLINE-ARGS */V38,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V38,Cnil);
273          goto T120;          goto T120;
274    goto T122;
275  T122:;  T122:;
276          base[7]= Cnil;          base[7]= Cnil;
277    goto T120;
278  T120:;  T120:;
279          if(((V7))==Cnil){          if(((V7))==Cnil){
280          goto T126;}          goto T126;}
281          V39= make_cons(VV[3],(V7));          V39= make_cons(VV[3],(V7));
282          base[8]= make_cons(/* INLINE-ARGS */V39,Cnil);          base[8]= make_cons(/* INLINE-ARGS */V39,Cnil);
283          goto T124;          goto T124;
284    goto T126;
285  T126:;  T126:;
286          base[8]= Cnil;          base[8]= Cnil;
287    goto T124;
288  T124:;  T124:;
289          if(((V11))==Cnil){          if(((V11))==Cnil){
290          goto T130;}          goto T130;}
# Line 261  T124:; Line 294  T124:;
294          V40= Cnil;          V40= Cnil;
295          goto T132;}          goto T132;}
296          base[10]=V41=MMcons(Cnil,Cnil);          base[10]=V41=MMcons(Cnil,Cnil);
297    goto T133;
298  T133:;  T133:;
299          (V41->c.c_car)= symbol_name((V42->c.c_car));          (V41->c.c_car)= symbol_name((V42->c.c_car));
300          if(endp(V42=MMcdr(V42))){          if(endp(V42=MMcdr(V42))){
# Line 268  T133:; Line 302  T133:;
302          goto T132;}          goto T132;}
303          V41=MMcdr(V41)=MMcons(Cnil,Cnil);          V41=MMcdr(V41)=MMcons(Cnil,Cnil);
304          goto T133;}          goto T133;}
305    goto T132;
306  T132:;  T132:;
307          V43= make_cons(VV[4],V40);          V43= make_cons(VV[4],V40);
308          base[9]= make_cons(/* INLINE-ARGS */V43,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V43,Cnil);
309          goto T128;          goto T128;
310    goto T130;
311  T130:;  T130:;
312          base[9]= Cnil;          base[9]= Cnil;
313    goto T128;
314  T128:;  T128:;
315          if(((V10))==Cnil){          if(((V10))==Cnil){
316          goto T137;}          goto T137;}
# Line 283  T128:; Line 320  T128:;
320          base[10]= Cnil;          base[10]= Cnil;
321          goto T135;}          goto T135;}
322          base[11]=V44=MMcons(Cnil,Cnil);          base[11]=V44=MMcons(Cnil,Cnil);
323    goto T139;
324  T139:;  T139:;
325          base[13]= (V45->c.c_car);          base[13]= (V45->c.c_car);
326          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
# Line 300  T139:; Line 338  T139:;
338          goto T135;}          goto T135;}
339          V44=MMcdr(V44)=MMcons(Cnil,Cnil);          V44=MMcdr(V44)=MMcons(Cnil,Cnil);
340          goto T139;}          goto T139;}
341    goto T137;
342  T137:;  T137:;
343          base[10]= Cnil;          base[10]= Cnil;
344    goto T135;
345  T135:;  T135:;
346          if(((V12))==Cnil){          if(((V12))==Cnil){
347          goto T146;}          goto T146;}
# Line 311  T135:; Line 351  T135:;
351          base[11]= Cnil;          base[11]= Cnil;
352          goto T144;}          goto T144;}
353          base[12]=V49=MMcons(Cnil,Cnil);          base[12]=V49=MMcons(Cnil,Cnil);
354    goto T148;
355  T148:;  T148:;
356          base[14]= (V50->c.c_car);          base[14]= (V50->c.c_car);
357          vs_top=(vs_base=base+14)+1;          vs_top=(vs_base=base+14)+1;
# Line 328  T148:; Line 369  T148:;
369          goto T144;}          goto T144;}
370          V49=MMcdr(V49)=MMcons(Cnil,Cnil);          V49=MMcdr(V49)=MMcons(Cnil,Cnil);
371          goto T148;}          goto T148;}
372    goto T146;
373  T146:;  T146:;
374          base[11]= Cnil;          base[11]= Cnil;
375    goto T144;
376  T144:;  T144:;
377          vs_top=(vs_base=base+6)+6;          vs_top=(vs_base=base+6)+6;
378          Lappend();          Lappend();
# Line 340  T144:; Line 383  T144:;
383          return;}}          return;}}
384          }          }
385  }  }
386  static object  LnkTLI11(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[11],&LnkLI11,ap);} /* SET-DIFFERENCE */  static object  LnkTLI11(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[11],(void **)&LnkLI11,ap);} /* SET-DIFFERENCE */
387  static object  LnkTLI10(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[10],&LnkLI10,ap);} /* INTERSECTION */  static object  LnkTLI10(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[10],(void **)&LnkLI10,ap);} /* INTERSECTION */
388  static object  LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[9],&LnkLI9,ap);} /* FIND */  static object  LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[9],(void **)&LnkLI9,ap);} /* FIND */
389  static LnkT8(){ call_or_link(VV[8],&Lnk8);} /* PACKAGE-SIZE */  static void LnkT8(){ call_or_link(VV[8],(void **)&Lnk8);} /* PACKAGE-SIZE */
390  static LnkT7(){ call_or_link(VV[7],&Lnk7);} /* PACKAGE-SHADOWING-SYMBOLS */  static void LnkT7(){ call_or_link(VV[7],(void **)&Lnk7);} /* PACKAGE-SHADOWING-SYMBOLS */
391    
392  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
393  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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