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

Diff of /gcl/lsp/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 "defpackage.h"
4    init_defpackage(){do_init(VV);}
5    /*      macro definition for DEFPACKAGE */
6    
7    static L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_check;
11            vs_top=sup;
12            {object V1=base[0]->c.c_cdr;
13            base[2]= (V1->c.c_car);
14            V1=V1->c.c_cdr;
15            base[3]= V1;}
16    T3:;
17            vs_base=vs_top;
18            (void) (*Lnk3)();
19            vs_top=sup;
20            {register object x= (VV[3]->s.s_dbind),V2= VV[4];
21            while(V2!=Cnil)
22            if(eql(x,V2->c.c_car)){
23            goto T10;
24            }else V2=V2->c.c_cdr;}
25    T10:;
26            base[4]= VV[6];
27            base[5]= VV[7];
28            base[6]= (VV[3]->s.s_dbind);
29            vs_top=(vs_base=base+4)+3;
30            Lcerror();
31            vs_top=sup;
32            goto T3;
33            base[4]=MMcons(Cnil,Cnil);
34            (base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata);
35    T18:;
36            base[5]= (VV[3]->s.s_dbind);
37            base[6]= base[3];
38            base[7]= VV[10];
39            base[8]= (VV[85]->s.s_gfdef);
40            vs_top=(vs_base=base+5)+4;
41            (void) (*Lnk86)();
42            vs_top=sup;
43            V3= vs_base[0];
44            (void)(number_compare(small_fixnum(2),V3)<=0);
45            base[5]= VV[11];
46            base[6]= (VV[3]->s.s_dbind);
47            base[8]= (VV[3]->s.s_dbind);
48            base[9]= base[3];
49            vs_top=(vs_base=base+8)+2;
50            L5(base);
51            vs_top=sup;
52            V4= vs_base[0];
53            base[7]= CMPcar(V4);
54            vs_top=(vs_base=base+5)+3;
55            (void) (*Lnk87)();
56            vs_top=sup;
57            goto T18;
58            base[2]= coerce_to_string(base[2]);
59            {object V5;
60            object V6;
61            object V7;
62            register object V8;
63            register object V9;
64            register object V10;
65            register object V11;
66            register object V12;
67            object V13;
68            base[6]= VV[12];
69            base[7]= base[3];
70            vs_top=(vs_base=base+6)+2;
71            L5(base);
72            vs_top=sup;
73            V16= vs_base[0];
74            {object V14;
75            object V15= V16;
76            if(V15==Cnil){
77            V5= Cnil;
78            goto T41;}
79            base[5]=V14=MMcons(Cnil,Cnil);
80    T42:;
81            (V14->c.c_car)= coerce_to_string((V15->c.c_car));
82            if((V15=MMcdr(V15))==Cnil){
83            V5= base[5];
84            goto T41;}
85            V14=MMcdr(V14)=MMcons(Cnil,Cnil);
86            goto T42;}
87    T41:;
88            base[5]= VV[13];
89            base[6]= base[3];
90            vs_top=(vs_base=base+5)+2;
91            L5(base);
92            vs_top=sup;
93            V17= vs_base[0];
94            V6= CMPcar(V17);
95            base[5]= VV[14];
96            base[6]= base[3];
97            vs_top=(vs_base=base+5)+2;
98            L5(base);
99            vs_top=sup;
100            V18= vs_base[0];
101            V7= CMPcar(V18);
102            base[6]= VV[15];
103            base[7]= base[3];
104            vs_top=(vs_base=base+6)+2;
105            L5(base);
106            vs_top=sup;
107            V21= vs_base[0];
108            {object V19;
109            object V20= V21;
110            if(V20==Cnil){
111            V8= Cnil;
112            goto T55;}
113            base[5]=V19=MMcons(Cnil,Cnil);
114    T56:;
115            (V19->c.c_car)= coerce_to_string((V20->c.c_car));
116            if((V20=MMcdr(V20))==Cnil){
117            V8= base[5];
118            goto T55;}
119            V19=MMcdr(V19)=MMcons(Cnil,Cnil);
120            goto T56;}
121    T55:;
122            base[6]= VV[16];
123            base[7]= base[3];
124            vs_top=(vs_base=base+6)+2;
125            L5(base);
126            vs_top=sup;
127            V24= vs_base[0];
128            {object V22;
129            object V23= V24;
130            if(V23==Cnil){
131            V9= Cnil;
132            goto T61;}
133            base[5]=V22=MMcons(Cnil,Cnil);
134    T62:;
135            (V22->c.c_car)= coerce_to_string((V23->c.c_car));
136            if((V23=MMcdr(V23))==Cnil){
137            V9= base[5];
138            goto T61;}
139            V22=MMcdr(V22)=MMcons(Cnil,Cnil);
140            goto T62;}
141    T61:;
142            base[6]= VV[17];
143            base[7]= base[3];
144            vs_top=(vs_base=base+6)+2;
145            L5(base);
146            vs_top=sup;
147            V27= vs_base[0];
148            {object V25;
149            object V26= V27;
150            if(V26==Cnil){
151            V10= Cnil;
152            goto T67;}
153            base[5]=V25=MMcons(Cnil,Cnil);
154    T68:;
155            (V25->c.c_car)= coerce_to_string((V26->c.c_car));
156            if((V26=MMcdr(V26))==Cnil){
157            V10= base[5];
158            goto T67;}
159            V25=MMcdr(V25)=MMcons(Cnil,Cnil);
160            goto T68;}
161    T67:;
162    T75:;
163            base[5]= VV[19];
164            base[6]= base[3];
165            vs_top=(vs_base=base+5)+2;
166            L4(base);
167            vs_top=sup;
168            V28= coerce_to_string(CMPcar((VV[18]->s.s_dbind)));
169            {object V30;
170            object V31= CMPcdr((VV[18]->s.s_dbind));
171            if(V31==Cnil){
172            V29= Cnil;
173            goto T84;}
174            base[5]=V30=MMcons(Cnil,Cnil);
175    T85:;
176            (V30->c.c_car)= coerce_to_string((V31->c.c_car));
177            if((V31=MMcdr(V31))==Cnil){
178            V29= base[5];
179            goto T84;}
180            V30=MMcdr(V30)=MMcons(Cnil,Cnil);
181            goto T85;}
182    T84:;
183            (void)(make_cons(/* INLINE-ARGS */V28,V29));
184            goto T75;
185    T90:;
186            base[5]= VV[21];
187            base[6]= base[3];
188            vs_top=(vs_base=base+5)+2;
189            L4(base);
190            vs_top=sup;
191            V32= coerce_to_string(CMPcar((VV[18]->s.s_dbind)));
192            {object V34;
193            object V35= CMPcdr((VV[18]->s.s_dbind));
194            if(V35==Cnil){
195            V33= Cnil;
196            goto T99;}
197            base[5]=V34=MMcons(Cnil,Cnil);
198    T100:;
199            (V34->c.c_car)= coerce_to_string((V35->c.c_car));
200            if((V35=MMcdr(V35))==Cnil){
201            V33= base[5];
202            goto T99;}
203            V34=MMcdr(V34)=MMcons(Cnil,Cnil);
204            goto T100;}
205    T99:;
206            (void)(make_cons(/* INLINE-ARGS */V32,V33));
207            goto T90;
208            base[6]= VV[22];
209            base[7]= base[3];
210            vs_top=(vs_base=base+6)+2;
211            L5(base);
212            vs_top=sup;
213            V38= vs_base[0];
214            {object V36;
215            object V37= V38;
216            if(V37==Cnil){
217            V13= Cnil;
218            goto T103;}
219            base[5]=V36=MMcons(Cnil,Cnil);
220    T104:;
221            (V36->c.c_car)= coerce_to_string((V37->c.c_car));
222            if((V37=MMcdr(V37))==Cnil){
223            V13= base[5];
224            goto T103;}
225            V36=MMcdr(V36)=MMcons(Cnil,Cnil);
226            goto T104;}
227    T103:;
228    T112:;
229            base[5]= (V8);
230            base[6]= (V9);
231    T122:;
232            (void)(CMPcdr((VV[18]->s.s_dbind)));
233            goto T122;
234    T132:;
235            (void)(CMPcdr((VV[18]->s.s_dbind)));
236            goto T132;
237            vs_top=(vs_base=base+5)+4;
238            L2(base);
239            vs_top=sup;
240            base[5]= VV[25];
241            base[6]= CMPcar((VV[23]->s.s_dbind));
242    T145:;
243            (void)(CMPcdr((VV[23]->s.s_dbind)));
244            {object V39= (VV[26]->s.s_dbind);
245            if(!eql(V39,VV[27]))goto T152;
246            goto T146;
247    T152:;
248            if(!eql(V39,VV[28]))goto T153;
249            goto T146;
250    T153:;
251            if(!eql(V39,VV[29]))goto T154;
252            goto T146;
253    T154:;
254            if(!eql(V39,VV[30]))goto T155;
255            goto T146;
256    T155:;}
257    T146:;
258            goto T145;
259            vs_top=(vs_base=base+5)+3;
260            Lerror();
261            vs_top=sup;
262            goto T112;
263    T159:;
264            base[5]= (V10);
265            base[6]= (V9);
266            vs_top=(vs_base=base+5)+2;
267            L2(base);
268            vs_top=sup;
269            base[5]= VV[31];
270            base[6]= CMPcar((VV[23]->s.s_dbind));
271    T172:;
272            (void)(CMPcdr((VV[23]->s.s_dbind)));
273            {object V40= (VV[26]->s.s_dbind);
274            if(!eql(V40,VV[27]))goto T179;
275            goto T173;
276    T179:;
277            if(!eql(V40,VV[28]))goto T180;
278            goto T173;
279    T180:;}
280    T173:;
281            goto T172;
282            vs_top=(vs_base=base+5)+3;
283            Lerror();
284            vs_top=sup;
285            goto T159;
286            V41= list(2,VV[46],base[2]);
287            V42= list(3,VV[48],base[2],base[2]);
288            if(((V5))==Cnil){
289            goto T185;}
290            V44= list(4,VV[48],base[2],base[2],list(2,VV[49],(V5)));
291            V43= make_cons(/* INLINE-ARGS */V44,Cnil);
292            goto T183;
293    T185:;
294            V43= Cnil;
295    T183:;
296            base[5]= VV[50];
297            base[6]= base[3];
298            base[7]= VV[10];
299            base[8]= (VV[85]->s.s_gfdef);
300            vs_top=(vs_base=base+5)+4;
301            Lmember();
302            vs_top=sup;
303            if((vs_base[0])==Cnil){
304            goto T189;}
305            V46= list(3,VV[51],list(2,VV[52],list(2,VV[46],base[2])),base[2]);
306            V45= make_cons(/* INLINE-ARGS */V46,Cnil);
307            goto T187;
308    T189:;
309            V45= Cnil;
310    T187:;
311            V47= listA(3,VV[47],/* INLINE-ARGS */V42,append(V43,V45));
312            V48= list(2,VV[49],(V5));
313            if(((V7))==Cnil){
314            goto T197;}
315            V49= Cnil;
316            goto T195;
317    T197:;
318            V49= Cnil;
319    T195:;
320            V50= list(4,VV[45],/* INLINE-ARGS */V41,/* INLINE-ARGS */V47,listA(7,VV[53],base[2],VV[54],VV[55],VV[56],/* INLINE-ARGS */V48,V49));
321            if(((V6))==Cnil){
322            goto T201;}
323            base[5]= base[2];
324            base[6]= VV[59];
325            vs_top=(vs_base=base+5)+2;
326            Lintern();
327            vs_top=sup;
328            V52= vs_base[0];
329            V53= list(3,VV[57],list(3,VV[58],list(2,VV[49],V52),VV[60]),(V6));
330            V51= make_cons(/* INLINE-ARGS */V53,Cnil);
331            goto T199;
332    T201:;
333            V51= Cnil;
334    T199:;
335            V54= list(2,VV[62],list(2,VV[46],base[2]));
336            V55= make_cons(/* INLINE-ARGS */V54,Cnil);
337            if(((V8))==Cnil){
338            goto T209;}
339            V57= list(2,VV[63],list(3,VV[64],VV[65],list(2,VV[49],(V8))));
340            base[5]= make_cons(/* INLINE-ARGS */V57,Cnil);
341            goto T207;
342    T209:;
343            base[5]= Cnil;
344    T207:;
345            if(((V11))==Cnil){
346            goto T213;}
347            {object V58;
348            object V59= (V11);
349            if(V59==Cnil){
350            base[6]= Cnil;
351            goto T211;}
352            base[7]=V58=MMcons(Cnil,Cnil);
353    T215:;
354            V61= list(2,VV[67],list(3,VV[68],VV[69],list(3,VV[70],VV[71],CMPcar((V59->c.c_car)))));
355            (V58->c.c_car)= list(2,VV[66],list(3,VV[64],/* INLINE-ARGS */V61,list(2,VV[49],CMPcdr((V59->c.c_car)))));
356            if((V59=MMcdr(V59))==Cnil){
357            base[6]= base[7];
358            goto T211;}
359            V58=MMcdr(V58)=MMcons(Cnil,Cnil);
360            goto T215;}
361    T213:;
362            base[6]= Cnil;
363    T211:;{object V63;
364            base[9]= VV[50];
365            base[10]= base[3];
366            vs_top=(vs_base=base+9)+2;
367            L5(base);
368            vs_top=sup;
369            V66= vs_base[0];
370            {object V64;
371            object V65= V66;
372            if(V65==Cnil){
373            V63= Cnil;
374            goto T220;}
375            base[8]=V64=MMcons(Cnil,Cnil);
376    T221:;
377            (V64->c.c_car)= coerce_to_string((V65->c.c_car));
378            if((V65=MMcdr(V65))==Cnil){
379            V63= base[8];
380            goto T220;}
381            V64=MMcdr(V64)=MMcons(Cnil,Cnil);
382            goto T221;}
383    T220:;
384            if(V63==Cnil)goto T219;
385            V62= V63;
386            goto T218;
387    T219:;}
388            V62= VV[73];
389    T218:;
390            V67= list(2,VV[72],list(2,VV[49],V62));
391            if(((V12))==Cnil){
392            goto T229;}
393            {object V69;
394            object V70= (V12);
395            if(V70==Cnil){
396            base[8]= Cnil;
397            goto T227;}
398            base[9]=V69=MMcons(Cnil,Cnil);
399    T231:;
400            V72= list(2,VV[67],list(3,VV[68],VV[75],list(3,VV[70],VV[71],CMPcar((V70->c.c_car)))));
401            (V69->c.c_car)= list(2,VV[74],list(3,VV[64],/* INLINE-ARGS */V72,list(2,VV[49],CMPcdr((V70->c.c_car)))));
402            if((V70=MMcdr(V70))==Cnil){
403            base[8]= base[9];
404            goto T227;}
405            V69=MMcdr(V69)=MMcons(Cnil,Cnil);
406            goto T231;}
407    T229:;
408            base[8]= Cnil;
409    T227:;
410            if(((V9))==Cnil){
411            goto T235;}
412            V73= list(3,VV[64],VV[76],list(2,VV[49],(V9)));
413            base[9]= make_cons(/* INLINE-ARGS */V73,Cnil);
414            goto T233;
415    T235:;
416            base[9]= Cnil;
417    T233:;
418            if(((V10))==Cnil){
419            goto T239;}
420            V74= list(2,VV[77],list(3,VV[64],VV[78],list(2,VV[49],(V10))));
421            base[10]= make_cons(/* INLINE-ARGS */V74,Cnil);
422            goto T237;
423    T239:;
424            base[10]= Cnil;
425    T237:;
426            if(((V13))==Cnil){
427            goto T243;}
428            V75= list(3,VV[79],list(2,VV[80],list(2,VV[49],(V13))),VV[81]);
429            base[11]= make_cons(/* INLINE-ARGS */V75,Cnil);
430            goto T241;
431    T243:;
432            base[11]= Cnil;
433    T241:;
434            vs_top=(vs_base=base+8)+4;
435            Lappend();
436            vs_top=sup;
437            V68= vs_base[0];
438            base[7]= make_cons(/* INLINE-ARGS */V67,V68);
439            vs_top=(vs_base=base+5)+3;
440            Lappend();
441            vs_top=sup;
442            V56= vs_base[0];
443            V76= listA(3,VV[61],/* INLINE-ARGS */V55,V56);
444            V77= list(2,/* INLINE-ARGS */V76,list(2,VV[46],base[2]));
445            base[5]= listA(4,VV[43],VV[44],/* INLINE-ARGS */V50,append(V51,/* INLINE-ARGS */V77));
446            vs_top=(vs_base=base+5)+1;
447            return;}
448    }
449    /*      local function FIND-DUPLICATES  */
450    
451    static L2(base0)
452    register object *base0;
453    {       register object *base=vs_base;
454            register object *sup=base+VM2; VC2
455            vs_check;
456            {object V78;
457            vs_top[0]=Cnil;
458            {object *p=vs_top;
459             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
460            V78=(base[0]);
461            vs_top=sup;
462            {object V79;
463            V79= Cnil;
464    T247:;
465            (void)(CMPcdr((V78)));
466    T263:;
467            base[1]= (VV[36]->s.s_dbind);
468            base[2]= (V79);
469            base[3]= VV[10];
470            base[4]= (VV[85]->s.s_gfdef);
471            base[5]= VV[40];
472            base[6]= (VV[88]->s.s_gfdef);
473            vs_top=(vs_base=base+1)+6;
474            (void) (*Lnk89)();
475            vs_top=sup;
476            {register object x= (VV[34]->s.s_dbind),V80= (VV[38]->s.s_dbind);
477            while(V80!=Cnil)
478            if(eql(x,V80->c.c_car)){
479            goto T280;
480            }else V80=V80->c.c_cdr;}
481    T280:;
482    T283:;
483            (void)(one_plus((VV[34]->s.s_dbind)));
484            base[1]= (VV[36]->s.s_dbind);
485            base[2]= (VV[41]->s.s_dbind);
486            base[3]= VV[40];
487            base[4]= (VV[88]->s.s_gfdef);
488            vs_top=(vs_base=base+1)+4;
489            Lmember();
490            vs_top=sup;
491            if((vs_base[0])==Cnil){
492            goto T284;}
493            if(((VV[38]->s.s_dbind))==Cnil){
494            goto T301;}{object V81;
495            V81= (VV[38]->s.s_dbind);
496            V82= make_cons((VV[42]->s.s_dbind),Cnil);
497            (void)(nconc(V81,/* INLINE-ARGS */V82));
498            goto T284;}
499    T301:;
500            V83= list(3,(VV[36]->s.s_dbind),(VV[34]->s.s_dbind),(VV[42]->s.s_dbind));
501            V79= make_cons(/* INLINE-ARGS */V83,(V79));
502            (VV[38]->s.s_dbind)= CMPcar((V79));
503    T284:;
504            goto T283;
505            goto T263;
506            goto T247;
507            base[1]= (V79);
508            vs_top=(vs_base=base+1)+1;
509            return;}
510            }
511    }
512    /*      local function OPTION-TEST      */
513    
514    static LC3(base0)
515    register object *base0;
516    {       register object *base=vs_base;
517            register object *sup=base+VM3; VC3
518            vs_check;
519            {object V84;
520            object V85;
521            V84=(base[0]);
522            V85=(base[1]);
523            vs_top=sup;
524            if(!(type_of((V85))==t_cons)){
525            goto T309;}
526            base[2]= (equal(CMPcar((V85)),(V84))?Ct:Cnil);
527            vs_top=(vs_base=base+2)+1;
528            return;
529    T309:;
530            base[2]= Cnil;
531            vs_top=(vs_base=base+2)+1;
532            return;
533            }
534    }
535    /*      local function OPTION-VALUES    */
536    
537    static L5(base0)
538    register object *base0;
539    {       register object *base=vs_base;
540            register object *sup=base+VM4; VC4
541            vs_check;
542            {register object V86;
543            object V87;
544            V86=(base[0]);
545            V87=(base[1]);
546            vs_top=sup;
547    TTL:;
548    T312:;
549            base[2]= (V86);
550            base[3]= (V87);
551            base[4]= VV[40];
552            base[5]= (base0[4]->c.c_car);
553            vs_top=(vs_base=base+2)+4;
554            Lmember();
555            vs_top=sup;
556            base[2]= (V86);
557            base[3]= CMPcdr((VV[82]->s.s_dbind));
558            base[4]= VV[40];
559            base[5]= (base0[4]->c.c_car);
560            vs_top=(vs_base=base+2)+4;
561            Lmember();
562            vs_top=sup;
563            (void)(((VV[82]->s.s_dbind))==Cnil);
564            (void)(CMPcdr(CMPcar((VV[82]->s.s_dbind))));
565            goto T312;
566            }
567    }
568    /*      local function OPTION-VALUES-LIST       */
569    
570    static L4(base0)
571    register object *base0;
572    {       register object *base=vs_base;
573            register object *sup=base+VM5; VC5
574            vs_check;
575            {register object V88;
576            object V89;
577            V88=(base[0]);
578            V89=(base[1]);
579            vs_top=sup;
580    TTL:;
581    T335:;
582            base[2]= (V88);
583            base[3]= (V89);
584            base[4]= VV[40];
585            base[5]= (base0[4]->c.c_car);
586            vs_top=(vs_base=base+2)+4;
587            Lmember();
588            vs_top=sup;
589            base[2]= (V88);
590            base[3]= CMPcdr((VV[82]->s.s_dbind));
591            base[4]= VV[40];
592            base[5]= (base0[4]->c.c_car);
593            vs_top=(vs_base=base+2)+4;
594            Lmember();
595            vs_top=sup;
596            (void)(((VV[82]->s.s_dbind))==Cnil);
597            (void)(CMPcdr(CMPcar((VV[82]->s.s_dbind))));
598            goto T335;
599            }
600    }
601    static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* FIND */
602    static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* WARN */
603    static LnkT86(){ call_or_link(VV[86],&Lnk86);} /* COUNT */
604    static LnkT3(){ call_or_link(VV[3],&Lnk3);} /* OPTION */

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