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

Diff of /gcl/lsp/gcl_make_defpackage.c

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

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_make_defpackage.h"
4    void init_gcl_make_defpackage(){do_init(VV);}
5    /*      function definition for MAKE-DEFPACKAGE-FORM    */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            {object V1;
12            check_arg(1);
13            V1=(base[0]);
14            vs_top=sup;
15            goto TTL;
16    TTL:;
17            {object V2;
18            base[1]= (V1);
19            vs_top=(vs_base=base+1)+1;
20            Lfind_package();
21            vs_top=sup;
22            V2= vs_base[0];
23            {object V3;
24            object V4;
25            object V5;
26            object V6;
27            object V7;
28            object V8;
29            object V9;
30            object V10;
31            object V11;
32            object V12;
33            base[6]= (V2);
34            vs_top=(vs_base=base+6)+1;
35            Lpackage_name();
36            vs_top=sup;
37            V3= vs_base[0];
38            base[6]= (V2);
39            vs_top=(vs_base=base+6)+1;
40            Lpackage_nicknames();
41            vs_top=sup;
42            V4= vs_base[0];
43            base[6]= (V2);
44            vs_top=(vs_base=base+6)+1;
45            Lpackage_use_list();
46            vs_top=sup;
47            V5= vs_base[0];
48            {object V13;
49            object V14= (V5);
50            if(endp(V14)){
51            V6= Cnil;
52            goto T9;}
53            base[6]=V13=MMcons(Cnil,Cnil);
54            goto T10;
55    T10:;
56            base[7]= (V14->c.c_car);
57            vs_top=(vs_base=base+7)+1;
58            Lpackage_name();
59            vs_top=sup;
60            (V13->c.c_car)= vs_base[0];
61            V14=MMcdr(V14);
62            if(endp(V14)){
63            V6= base[6];
64            goto T9;}
65            V13=MMcdr(V13)=MMcons(Cnil,Cnil);
66            goto T10;}
67            goto T9;
68    T9:;
69            V7= Cnil;
70            base[6]= (V2);
71            vs_top=(vs_base=base+6)+1;
72            (void) (*Lnk8)();
73            vs_top=sup;
74            V8= vs_base[0];
75            V9= Cnil;
76            V10= Cnil;
77            V11= Cnil;
78            V12= Cnil;
79            {object V15;
80            object V16;
81            register object V17;
82            base[6]= V2;
83            vs_top=(vs_base=base+6)+1;
84            Lpackagep();
85            vs_top=sup;
86            if((vs_base[0])==Cnil){
87            goto T23;}
88            V15= V2;
89            goto T21;
90            goto T23;
91    T23:;
92            base[6]= coerce_to_string(V2);
93            vs_top=(vs_base=base+6)+1;
94            Lfind_package();
95            vs_top=sup;
96            V15= vs_base[0];
97            goto T21;
98    T21:;
99            V16= Cnil;
100            V17= Cnil;
101            {object V19;
102            object V20;
103            base[7]= (V15);
104            vs_top=(vs_base=base+7)+1;
105            (void) (*Lnk9)();
106            vs_top=sup;
107            V19= vs_base[0];
108            V20= small_fixnum(0);
109            goto T31;
110    T31:;
111            if(!(number_compare((V20),(V19))>=0)){
112            goto T32;}
113            V16= Cnil;
114            goto T20;
115            goto T32;
116    T32:;
117            base[7]= (V15);
118            base[8]= (V20);
119            vs_top=(vs_base=base+7)+2;
120            siLpackage_external();
121            vs_top=sup;
122            V17= vs_base[0];
123            goto T39;
124    T39:;
125            if(((V17))!=Cnil){
126            goto T44;}
127            goto T40;
128            goto T44;
129    T44:;
130            V16= car((V17));
131            {object V21;
132            V21= symbol_name((V16));
133            V7= make_cons((V21),(V7));}
134            V17= cdr((V17));
135            goto T39;
136            goto T40;
137    T40:;
138            goto T37;
139            goto T37;
140    T37:;
141            V20= one_plus((V20));
142            goto T31;}}
143            goto T20;
144    T20:;
145            {register object V22;
146            register object V23;
147            register object V24;
148            base[6]= V2;
149            vs_top=(vs_base=base+6)+1;
150            Lpackagep();
151            vs_top=sup;
152            if((vs_base[0])==Cnil){
153            goto T60;}
154            V22= V2;
155            goto T58;
156            goto T60;
157    T60:;
158            base[6]= coerce_to_string(V2);
159            vs_top=(vs_base=base+6)+1;
160            Lfind_package();
161            vs_top=sup;
162            V22= vs_base[0];
163            goto T58;
164    T58:;
165            V23= Cnil;
166            V24= Cnil;
167            {object V26;
168            register object V27;
169            base[8]= (V22);
170            vs_top=(vs_base=base+8)+1;
171            Lpackage_use_list();
172            vs_top=sup;
173            V28= vs_base[0];
174            V26= make_cons((V22),V28);
175            V27= car((V26));
176            goto T69;
177    T69:;
178            if(!(endp_prop((V26)))){
179            goto T70;}
180            V23= Cnil;
181            goto T57;
182            goto T70;
183    T70:;
184            {long V29;
185            long V30;
186            base[8]= (V27);
187            vs_top=(vs_base=base+8)+1;
188            (void) (*Lnk9)();
189            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();
229            vs_top=sup;
230            V24= vs_base[0];
231            goto T97;
232            goto T99;
233    T99:;
234            base[9]= (V27);
235            V36 = make_fixnum(V30);
236            base[10]= number_minus((V32),V36);
237            vs_top=(vs_base=base+9)+2;
238            siLpackage_external();
239            vs_top=sup;
240            V24= vs_base[0];
241            goto T97;
242    T97:;
243            goto T95;
244    T95:;
245            if(((V24))!=Cnil){
246            goto T105;}
247            goto T96;
248            goto T105;
249    T105:;
250            V23= car((V24));
251            if(((V27))==((V22))){
252            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();
271            vs_top=sup;
272            V38= vs_base[0];
273            if(((V2))==(V38)){
274            goto T120;}
275            base[9]= (V23);
276            vs_top=(vs_base=base+9)+1;
277            Lsymbol_package();
278            vs_top=sup;
279            V39= vs_base[0];
280            if(((VFUN_NARGS=2,(*(LnkLI10))(V39,(V5))))!=Cnil){
281            goto T120;}
282            V9= make_cons(V23,(V9));
283            goto T120;
284    T120:;
285            goto T110;
286    T110:;
287            V24= cdr((V24));
288            goto T95;
289            goto T96;
290    T96:;
291            goto T93;
292            goto T93;
293    T93:;
294            V32= one_plus((V32));
295            goto T89;}}
296            goto T76;
297    T76:;
298            V26= cdr((V26));
299            V27= car((V26));
300            goto T69;}}
301            goto T57;
302    T57:;
303            V10= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V9)));
304            V11= (VFUN_NARGS=2,(*(LnkLI12))((V8),(V10)));
305            V12= (VFUN_NARGS=2,(*(LnkLI12))((V9),(V10)));
306            if(((V4))==Cnil){
307            goto T149;}
308            V42= make_cons(VV[2],(V4));
309            base[6]= make_cons(/* INLINE-ARGS */V42,Cnil);
310            goto T147;
311            goto T149;
312    T149:;
313            base[6]= Cnil;
314            goto T147;
315    T147:;
316            if(((V6))==Cnil){
317            goto T153;}
318            V43= make_cons(VV[3],(V6));
319            base[7]= make_cons(/* INLINE-ARGS */V43,Cnil);
320            goto T151;
321            goto T153;
322    T153:;
323            base[7]= Cnil;
324            goto T151;
325    T151:;
326            if(((V7))==Cnil){
327            goto T157;}
328            V44= make_cons(VV[4],(V7));
329            base[8]= make_cons(/* INLINE-ARGS */V44,Cnil);
330            goto T155;
331            goto T157;
332    T157:;
333            base[8]= Cnil;
334            goto T155;
335    T155:;
336            if(((V11))==Cnil){
337            goto T161;}
338            {object V46;
339            object V47= (V11);
340            if(endp(V47)){
341            V45= Cnil;
342            goto T163;}
343            base[10]=V46=MMcons(Cnil,Cnil);
344            goto T164;
345    T164:;
346            (V46->c.c_car)= symbol_name((V47->c.c_car));
347            V47=MMcdr(V47);
348            if(endp(V47)){
349            V45= base[10];
350            goto T163;}
351            V46=MMcdr(V46)=MMcons(Cnil,Cnil);
352            goto T164;}
353            goto T163;
354    T163:;
355            V48= make_cons(VV[5],V45);
356            base[9]= make_cons(/* INLINE-ARGS */V48,Cnil);
357            goto T159;
358            goto T161;
359    T161:;
360            base[9]= Cnil;
361            goto T159;
362    T159:;
363            if(((V10))==Cnil){
364            goto T168;}
365            {object V49;
366            object V50= (V10);
367            if(endp(V50)){
368            base[10]= Cnil;
369            goto T166;}
370            base[11]=V49=MMcons(Cnil,Cnil);
371            goto T170;
372    T170:;
373            base[13]= (V50->c.c_car);
374            vs_top=(vs_base=base+13)+1;
375            Lsymbol_package();
376            vs_top=sup;
377            base[12]= vs_base[0];
378            vs_top=(vs_base=base+12)+1;
379            Lpackage_name();
380            vs_top=sup;
381            V52= vs_base[0];
382            V53= list(3,VV[6],V52,symbol_name((V50->c.c_car)));
383            (V49->c.c_car)= make_cons(/* INLINE-ARGS */V53,Cnil);
384            V50=MMcdr(V50);
385            if(endp(V50)){
386            base[10]= base[11];
387            goto T166;}
388            V49=MMcdr(V49)=MMcons(Cnil,Cnil);
389            goto T170;}
390            goto T168;
391    T168:;
392            base[10]= Cnil;
393            goto T166;
394    T166:;
395            if(((V12))==Cnil){
396            goto T177;}
397            {object V54;
398            object V55= (V12);
399            if(endp(V55)){
400            base[11]= Cnil;
401            goto T175;}
402            base[12]=V54=MMcons(Cnil,Cnil);
403            goto T179;
404    T179:;
405            base[14]= (V55->c.c_car);
406            vs_top=(vs_base=base+14)+1;
407            Lsymbol_package();
408            vs_top=sup;
409            base[13]= vs_base[0];
410            vs_top=(vs_base=base+13)+1;
411            Lpackage_name();
412            vs_top=sup;
413            V57= vs_base[0];
414            V58= list(3,VV[7],V57,symbol_name((V55->c.c_car)));
415            (V54->c.c_car)= make_cons(/* INLINE-ARGS */V58,Cnil);
416            V55=MMcdr(V55);
417            if(endp(V55)){
418            base[11]= base[12];
419            goto T175;}
420            V54=MMcdr(V54)=MMcons(Cnil,Cnil);
421            goto T179;}
422            goto T177;
423    T177:;
424            base[11]= Cnil;
425            goto T175;
426    T175:;
427            vs_top=(vs_base=base+6)+6;
428            Lappend();
429            vs_top=sup;
430            V41= vs_base[0];
431            base[6]= listA(3,VV[1],(V3),V41);
432            vs_top=(vs_base=base+6)+1;
433            return;}}
434            }
435    }
436    static object  LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[12],(void **)(void *)&LnkLI12,first,ap);va_end(ap);return V1;} /* SET-DIFFERENCE */
437    static object  LnkTLI11(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[11],(void **)(void *)&LnkLI11,first,ap);va_end(ap);return V1;} /* INTERSECTION */
438    static object  LnkTLI10(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[10],(void **)(void *)&LnkLI10,first,ap);va_end(ap);return V1;} /* FIND */
439    static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* PACKAGE-SIZE */
440    static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* PACKAGE-SHADOWING-SYMBOLS */
441    
442    #ifdef SYSTEM_SPECIAL_INIT
443    SYSTEM_SPECIAL_INIT
444    #endif
445    

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