/[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.1 by camm, Thu Jan 24 18:43:07 2002 UTC revision 1.2 by camm, Sun Feb 3 18:44:07 2002 UTC
# Line 0  Line 1 
1    
2    #include <cmpinclude.h>
3    #include "make_defpackage.h"
4    init_make_defpackage(){do_init(VV);}
5    /*      function definition for MAKE-DEFPACKAGE-FORM    */
6    
7    static L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_check;
11            {object V1;
12            V1=(base[0]);
13            vs_top=sup;
14    TTL:;
15            {object V2;
16            base[1]= (V1);
17            vs_top=(vs_base=base+1)+1;
18            Lfind_package();
19            vs_top=sup;
20            V2= vs_base[0];
21            {object V3;
22            object V4;
23            object V5;
24            object V6;
25            register object V7;
26            object V8;
27            register object V9;
28            object V10;
29            object V11;
30            object V12;
31            base[6]= (V2);
32            vs_top=(vs_base=base+6)+1;
33            Lpackage_name();
34            vs_top=sup;
35            V3= vs_base[0];
36            base[6]= (V2);
37            vs_top=(vs_base=base+6)+1;
38            Lpackage_nicknames();
39            vs_top=sup;
40            V4= vs_base[0];
41            base[6]= (V2);
42            vs_top=(vs_base=base+6)+1;
43            Lpackage_use_list();
44            vs_top=sup;
45            V5= vs_base[0];
46            {object V13;
47            object V14= (V5);
48            if(V14==Cnil){
49            V6= Cnil;
50            goto T9;}
51            base[6]=V13=MMcons(Cnil,Cnil);
52    T10:;
53            base[7]= (V14->c.c_car);
54            vs_top=(vs_base=base+7)+1;
55            Lpackage_name();
56            vs_top=sup;
57            (V13->c.c_car)= vs_base[0];
58            if((V14=MMcdr(V14))==Cnil){
59            V6= base[6];
60            goto T9;}
61            V13=MMcdr(V13)=MMcons(Cnil,Cnil);
62            goto T10;}
63    T9:;
64            V7= Cnil;
65            base[6]= (V2);
66            vs_top=(vs_base=base+6)+1;
67            (void) (*Lnk7)();
68            vs_top=sup;
69            V8= vs_base[0];
70            V9= Cnil;
71            V10= Cnil;
72            V11= Cnil;
73            V12= Cnil;
74            {object V15;
75            register object V16;
76            register object V17;
77            base[6]= V2;
78            vs_top=(vs_base=base+6)+1;
79            Lpackagep();
80            vs_top=sup;
81            if((vs_base[0])==Cnil){
82            goto T23;}
83            V15= V2;
84            goto T21;
85    T23:;
86            base[6]= coerce_to_string(V2);
87            vs_top=(vs_base=base+6)+1;
88            Lfind_package();
89            vs_top=sup;
90            V15= vs_base[0];
91    T21:;
92            V16= Cnil;
93            V17= Cnil;
94            {object V19;
95            register object V20;
96            base[7]= (V15);
97            vs_top=(vs_base=base+7)+1;
98            (void) (*Lnk8)();
99            vs_top=sup;
100            V19= vs_base[0];
101            V20= small_fixnum(0);
102    T31:;
103            if(!(number_compare((V20),(V19))>=0)){
104            goto T32;}
105            V16= Cnil;
106            goto T20;
107    T32:;
108            base[7]= (V15);
109            base[8]= (V20);
110            vs_top=(vs_base=base+7)+2;
111            siLpackage_external();
112            vs_top=sup;
113            V17= vs_base[0];
114    T39:;
115            if(((V17))!=Cnil){
116            goto T44;}
117            goto T40;
118    T44:;
119            V16= CMPcar((V17));
120            V21= symbol_name((V16));
121            V7= make_cons(/* INLINE-ARGS */V21,(V7));
122            V17= CMPcdr((V17));
123            goto T39;
124    T40:;
125            goto T37;
126    T37:;
127            V20= one_plus((V20));
128            goto T31;}}
129    T20:;
130            {object V22;
131            register object V23;
132            register object V24;
133            base[6]= V2;
134            vs_top=(vs_base=base+6)+1;
135            Lpackagep();
136            vs_top=sup;
137            if((vs_base[0])==Cnil){
138            goto T59;}
139            V22= V2;
140            goto T57;
141    T59:;
142            base[6]= coerce_to_string(V2);
143            vs_top=(vs_base=base+6)+1;
144            Lfind_package();
145            vs_top=sup;
146            V22= vs_base[0];
147    T57:;
148            V23= Cnil;
149            V24= Cnil;
150            {int V26;
151            int V27;
152            base[6]= (V22);
153            vs_top=(vs_base=base+6)+1;
154            (void) (*Lnk8)();
155            if(vs_base>=vs_top){vs_top=sup;goto T65;}
156            V26= fix(vs_base[0]);
157            vs_base++;
158            if(vs_base>=vs_top){vs_top=sup;goto T66;}
159            V27= fix(vs_base[0]);
160            vs_top=sup;
161            goto T67;
162    T65:;
163            V26= fix(Cnil);
164    T66:;
165            V27= fix(Cnil);
166    T67:;
167            {object V28;
168            register object V29;
169            V30 = CMPmake_fixnum(V27);
170            V31 = CMPmake_fixnum(V26);
171            V28= number_plus(V30,V31);
172            V29= small_fixnum(0);
173    T71:;
174            if(!(number_compare((V29),(V28))>=0)){
175            goto T72;}
176            V23= Cnil;
177            goto T56;
178    T72:;
179            V32 = CMPmake_fixnum(V27);
180            if(!(number_compare((V29),V32)<0)){
181            goto T83;}
182            base[7]= (V22);
183            base[8]= (V29);
184            vs_top=(vs_base=base+7)+2;
185            siLpackage_internal();
186            vs_top=sup;
187            V24= vs_base[0];
188            goto T81;
189    T83:;
190            base[7]= (V22);
191            V33 = CMPmake_fixnum(V27);
192            base[8]= number_minus((V29),V33);
193            vs_top=(vs_base=base+7)+2;
194            siLpackage_external();
195            vs_top=sup;
196            V24= vs_base[0];
197    T81:;
198    T79:;
199            if(((V24))!=Cnil){
200            goto T89;}
201            goto T80;
202    T89:;
203            V23= CMPcar((V24));
204            base[7]= (V23);
205            vs_top=(vs_base=base+7)+1;
206            Lsymbol_package();
207            vs_top=sup;
208            V34= vs_base[0];
209            if(((V2))==(V34)){
210            goto T94;}
211            base[8]= (V23);
212            vs_top=(vs_base=base+8)+1;
213            Lsymbol_package();
214            vs_top=sup;
215            base[7]= vs_base[0];
216            base[8]= (V5);
217            vs_top=(vs_base=base+7)+2;
218            (void) (*Lnk9)();
219            vs_top=sup;
220            if((vs_base[0])!=Cnil){
221            goto T94;}
222            V9= make_cons((V23),(V9));
223    T94:;
224            V24= CMPcdr((V24));
225            goto T79;
226    T80:;
227            goto T77;
228    T77:;
229            V29= one_plus((V29));
230            goto T71;}}}
231    T56:;
232            base[6]= (V8);
233            base[7]= (V9);
234            vs_top=(vs_base=base+6)+2;
235            (void) (*Lnk10)();
236            vs_top=sup;
237            V10= vs_base[0];
238            base[6]= (V8);
239            base[7]= (V10);
240            vs_top=(vs_base=base+6)+2;
241            (void) (*Lnk11)();
242            vs_top=sup;
243            V11= vs_base[0];
244            base[6]= (V9);
245            base[7]= (V10);
246            vs_top=(vs_base=base+6)+2;
247            (void) (*Lnk11)();
248            vs_top=sup;
249            V12= vs_base[0];
250            if(((V4))==Cnil){
251            goto T125;}
252            V36= make_cons(VV[1],(V4));
253            base[6]= make_cons(/* INLINE-ARGS */V36,Cnil);
254            goto T123;
255    T125:;
256            base[6]= Cnil;
257    T123:;
258            if(((V6))==Cnil){
259            goto T129;}
260            V37= make_cons(VV[2],(V6));
261            base[7]= make_cons(/* INLINE-ARGS */V37,Cnil);
262            goto T127;
263    T129:;
264            base[7]= Cnil;
265    T127:;
266            if(((V7))==Cnil){
267            goto T133;}
268            V38= make_cons(VV[3],(V7));
269            base[8]= make_cons(/* INLINE-ARGS */V38,Cnil);
270            goto T131;
271    T133:;
272            base[8]= Cnil;
273    T131:;
274            if(((V11))==Cnil){
275            goto T137;}
276            {object V40;
277            object V41= (V11);
278            if(V41==Cnil){
279            V39= Cnil;
280            goto T139;}
281            base[10]=V40=MMcons(Cnil,Cnil);
282    T140:;
283            (V40->c.c_car)= symbol_name((V41->c.c_car));
284            if((V41=MMcdr(V41))==Cnil){
285            V39= base[10];
286            goto T139;}
287            V40=MMcdr(V40)=MMcons(Cnil,Cnil);
288            goto T140;}
289    T139:;
290            V42= make_cons(VV[4],V39);
291            base[9]= make_cons(/* INLINE-ARGS */V42,Cnil);
292            goto T135;
293    T137:;
294            base[9]= Cnil;
295    T135:;
296            if(((V10))==Cnil){
297            goto T144;}
298            {object V43;
299            object V44= (V10);
300            if(V44==Cnil){
301            base[10]= Cnil;
302            goto T142;}
303            base[11]=V43=MMcons(Cnil,Cnil);
304    T146:;
305            base[13]= (V44->c.c_car);
306            vs_top=(vs_base=base+13)+1;
307            Lsymbol_package();
308            vs_top=sup;
309            base[12]= vs_base[0];
310            vs_top=(vs_base=base+12)+1;
311            Lpackage_name();
312            vs_top=sup;
313            V46= vs_base[0];
314            V47= list(3,VV[5],V46,symbol_name((V44->c.c_car)));
315            (V43->c.c_car)= make_cons(/* INLINE-ARGS */V47,Cnil);
316            if((V44=MMcdr(V44))==Cnil){
317            base[10]= base[11];
318            goto T142;}
319            V43=MMcdr(V43)=MMcons(Cnil,Cnil);
320            goto T146;}
321    T144:;
322            base[10]= Cnil;
323    T142:;
324            if(((V12))==Cnil){
325            goto T153;}
326            {object V48;
327            object V49= (V12);
328            if(V49==Cnil){
329            base[11]= Cnil;
330            goto T151;}
331            base[12]=V48=MMcons(Cnil,Cnil);
332    T155:;
333            base[14]= (V49->c.c_car);
334            vs_top=(vs_base=base+14)+1;
335            Lsymbol_package();
336            vs_top=sup;
337            base[13]= vs_base[0];
338            vs_top=(vs_base=base+13)+1;
339            Lpackage_name();
340            vs_top=sup;
341            V51= vs_base[0];
342            V52= list(3,VV[6],V51,symbol_name((V49->c.c_car)));
343            (V48->c.c_car)= make_cons(/* INLINE-ARGS */V52,Cnil);
344            if((V49=MMcdr(V49))==Cnil){
345            base[11]= base[12];
346            goto T151;}
347            V48=MMcdr(V48)=MMcons(Cnil,Cnil);
348            goto T155;}
349    T153:;
350            base[11]= Cnil;
351    T151:;
352            vs_top=(vs_base=base+6)+6;
353            Lappend();
354            vs_top=sup;
355            V35= vs_base[0];
356            base[6]= listA(3,VV[0],(V3),V35);
357            vs_top=(vs_base=base+6)+1;
358            return;}}
359            }
360    }
361    static LnkT11(){ call_or_link(VV[11],&Lnk11);} /* SET-DIFFERENCE */
362    static LnkT10(){ call_or_link(VV[10],&Lnk10);} /* INTERSECTION */
363    static LnkT9(){ call_or_link(VV[9],&Lnk9);} /* FIND */
364    static LnkT8(){ call_or_link(VV[8],&Lnk8);} /* PACKAGE-SIZE */
365    static LnkT7(){ call_or_link(VV[7],&Lnk7);} /* PACKAGE-SHADOWING-SYMBOLS */

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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