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

Diff of /gcl/lsp/gcl_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:04 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_defpackage.h"
4    void init_gcl_defpackage(){do_init(VV);}
5    /*      macro definition for DEFPACKAGE */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            check_arg(2);
12            vs_top=sup;
13            {object V1=base[0]->c.c_cdr;
14            if(endp(V1))invalid_macro_call();
15            base[2]= (V1->c.c_car);
16            V1=V1->c.c_cdr;
17            base[3]= V1;}
18            {register object V2;
19            register object V3;
20            V2= Cnil;
21            V3= base[3];
22            goto T3;
23    T3:;
24            if(((V3))==Cnil){
25            goto T6;}
26            goto T5;
27            goto T6;
28    T6:;
29            goto T4;
30            goto T5;
31    T5:;
32            {register object V4;
33            V4= car((V3));
34            V2= (V4);}
35            {register object x= car((V2)),V5= VV[0];
36            while(!endp(V5))
37            if(eql(x,V5->c.c_car)){
38            goto T11;
39            }else V5=V5->c.c_cdr;}
40            base[4]= VV[1];
41            base[5]= VV[2];
42            base[6]= (V2);
43            vs_top=(vs_base=base+4)+3;
44            Lcerror();
45            vs_top=sup;
46            goto T11;
47    T11:;
48            V3= cdr((V3));
49            goto T3;
50            goto T4;
51    T4:;
52            goto T1;
53            goto T1;}
54            goto T1;
55    T1:;
56            base[4]=MMcons(Cnil,Cnil);
57            (base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata);
58            {register object V6;
59            register object V7;
60            V6= Cnil;
61            V7= VV[3];
62            goto T22;
63    T22:;
64            if(((V7))==Cnil){
65            goto T25;}
66            goto T24;
67            goto T25;
68    T25:;
69            goto T23;
70            goto T24;
71    T24:;
72            {register object V8;
73            V8= car((V7));
74            V6= (V8);}
75            V9= symbol_function(VV[71]);
76            V10= (VFUN_NARGS=4,(*(LnkLI70))((V6),base[3],VV[4],V9));
77            if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){
78            goto T30;}
79            base[5]= VV[5];
80            base[6]= VV[6];
81            base[7]= (V6);
82            vs_top=(vs_base=base+5)+3;
83            (void) (*Lnk72)();
84            vs_top=sup;
85            goto T30;
86    T30:;
87            V7= cdr((V7));
88            goto T22;
89            goto T23;
90    T23:;
91            goto T20;
92            goto T20;}
93            goto T20;
94    T20:;
95            base[2]= coerce_to_string(base[2]);
96            {object V11;
97            object V12;
98            object V13;
99            object V14;
100            register object V15;
101            object V16;
102            object V17;
103            object V18;
104            object V19;
105            base[6]= VV[7];
106            base[7]= base[3];
107            vs_top=(vs_base=base+6)+2;
108            L5(base);
109            vs_top=sup;
110            V22= vs_base[0];
111            {object V20;
112            object V21= V22;
113            if(endp(V21)){
114            V11= Cnil;
115            goto T42;}
116            base[5]=V20=MMcons(Cnil,Cnil);
117            goto T43;
118    T43:;
119            (V20->c.c_car)= coerce_to_string((V21->c.c_car));
120            V21=MMcdr(V21);
121            if(endp(V21)){
122            V11= base[5];
123            goto T42;}
124            V20=MMcdr(V20)=MMcons(Cnil,Cnil);
125            goto T43;}
126            goto T42;
127    T42:;
128            base[5]= VV[8];
129            base[6]= base[3];
130            vs_top=(vs_base=base+5)+2;
131            L5(base);
132            vs_top=sup;
133            V23= vs_base[0];
134            V12= car(V23);
135            base[5]= VV[9];
136            base[6]= base[3];
137            vs_top=(vs_base=base+5)+2;
138            L5(base);
139            vs_top=sup;
140            V24= vs_base[0];
141            V13= car(V24);
142            base[6]= VV[10];
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(endp(V26)){
151            V14= Cnil;
152            goto T56;}
153            base[5]=V25=MMcons(Cnil,Cnil);
154            goto T57;
155    T57:;
156            (V25->c.c_car)= coerce_to_string((V26->c.c_car));
157            V26=MMcdr(V26);
158            if(endp(V26)){
159            V14= base[5];
160            goto T56;}
161            V25=MMcdr(V25)=MMcons(Cnil,Cnil);
162            goto T57;}
163            goto T56;
164    T56:;
165            base[6]= VV[11];
166            base[7]= base[3];
167            vs_top=(vs_base=base+6)+2;
168            L5(base);
169            vs_top=sup;
170            V30= vs_base[0];
171            {object V28;
172            object V29= V30;
173            if(endp(V29)){
174            V15= Cnil;
175            goto T62;}
176            base[5]=V28=MMcons(Cnil,Cnil);
177            goto T63;
178    T63:;
179            (V28->c.c_car)= coerce_to_string((V29->c.c_car));
180            V29=MMcdr(V29);
181            if(endp(V29)){
182            V15= base[5];
183            goto T62;}
184            V28=MMcdr(V28)=MMcons(Cnil,Cnil);
185            goto T63;}
186            goto T62;
187    T62:;
188            base[6]= VV[12];
189            base[7]= base[3];
190            vs_top=(vs_base=base+6)+2;
191            L5(base);
192            vs_top=sup;
193            V33= vs_base[0];
194            {object V31;
195            object V32= V33;
196            if(endp(V32)){
197            V16= Cnil;
198            goto T68;}
199            base[5]=V31=MMcons(Cnil,Cnil);
200            goto T69;
201    T69:;
202            (V31->c.c_car)= coerce_to_string((V32->c.c_car));
203            V32=MMcdr(V32);
204            if(endp(V32)){
205            V16= base[5];
206            goto T68;}
207            V31=MMcdr(V31)=MMcons(Cnil,Cnil);
208            goto T69;}
209            goto T68;
210    T68:;
211            {register object V34;
212            register object V35;
213            base[5]= VV[13];
214            base[6]= base[3];
215            vs_top=(vs_base=base+5)+2;
216            L4(base);
217            vs_top=sup;
218            V35= vs_base[0];
219            V34= Cnil;
220            {register object V36;
221            register object V37;
222            register object V38;
223            V36= Cnil;
224            V37= Cnil;
225            V38= Cnil;
226            goto T79;
227    T79:;
228            if(((V35))==Cnil){
229            goto T82;}
230            goto T81;
231            goto T82;
232    T82:;
233            goto T80;
234            goto T81;
235    T81:;
236            {register object V39;
237            V39= car((V35));
238            V34= (V39);}
239            V40= coerce_to_string(car((V34)));
240            {object V42;
241            object V43= cdr((V34));
242            if(endp(V43)){
243            V41= Cnil;
244            goto T89;}
245            base[5]=V42=MMcons(Cnil,Cnil);
246            goto T90;
247    T90:;
248            (V42->c.c_car)= coerce_to_string((V43->c.c_car));
249            V43=MMcdr(V43);
250            if(endp(V43)){
251            V41= base[5];
252            goto T89;}
253            V42=MMcdr(V42)=MMcons(Cnil,Cnil);
254            goto T90;}
255            goto T89;
256    T89:;
257            V38= make_cons(/* INLINE-ARGS */V40,V41);
258            if(((V37))==Cnil){
259            goto T94;}
260            {register object V44;
261            register object V45;
262            V44= (V37);
263            V37= make_cons((V38),Cnil);
264            V45= (V37);
265            if(type_of((V44))!=t_cons)FEwrong_type_argument(Scons,(V44));
266            ((V44))->c.c_cdr = (V45);
267            goto T92;}
268            goto T94;
269    T94:;
270            V37= make_cons((V38),Cnil);
271            V36= (V37);
272            goto T92;
273    T92:;
274            V35= cdr((V35));
275            goto T79;
276            goto T80;
277    T80:;
278            V17= (V36);
279            goto T74;
280            V17= Cnil;
281            goto T74;
282            V17= Cnil;
283            goto T74;}}
284            goto T74;
285    T74:;
286            {register object V46;
287            register object V47;
288            base[5]= VV[14];
289            base[6]= base[3];
290            vs_top=(vs_base=base+5)+2;
291            L4(base);
292            vs_top=sup;
293            V47= vs_base[0];
294            V46= Cnil;
295            {register object V48;
296            register object V49;
297            register object V50;
298            V48= Cnil;
299            V49= Cnil;
300            V50= Cnil;
301            goto T111;
302    T111:;
303            if(((V47))==Cnil){
304            goto T114;}
305            goto T113;
306            goto T114;
307    T114:;
308            goto T112;
309            goto T113;
310    T113:;
311            {register object V51;
312            V51= car((V47));
313            V46= (V51);}
314            V52= coerce_to_string(car((V46)));
315            {object V54;
316            object V55= cdr((V46));
317            if(endp(V55)){
318            V53= Cnil;
319            goto T121;}
320            base[5]=V54=MMcons(Cnil,Cnil);
321            goto T122;
322    T122:;
323            (V54->c.c_car)= coerce_to_string((V55->c.c_car));
324            V55=MMcdr(V55);
325            if(endp(V55)){
326            V53= base[5];
327            goto T121;}
328            V54=MMcdr(V54)=MMcons(Cnil,Cnil);
329            goto T122;}
330            goto T121;
331    T121:;
332            V50= make_cons(/* INLINE-ARGS */V52,V53);
333            if(((V49))==Cnil){
334            goto T126;}
335            {register object V56;
336            register object V57;
337            V56= (V49);
338            V49= make_cons((V50),Cnil);
339            V57= (V49);
340            if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56));
341            ((V56))->c.c_cdr = (V57);
342            goto T124;}
343            goto T126;
344    T126:;
345            V49= make_cons((V50),Cnil);
346            V48= (V49);
347            goto T124;
348    T124:;
349            V47= cdr((V47));
350            goto T111;
351            goto T112;
352    T112:;
353            V18= (V48);
354            goto T106;
355            V18= Cnil;
356            goto T106;
357            V18= Cnil;
358            goto T106;}}
359            goto T106;
360    T106:;
361            base[6]= VV[15];
362            base[7]= base[3];
363            vs_top=(vs_base=base+6)+2;
364            L5(base);
365            vs_top=sup;
366            V60= vs_base[0];
367            {object V58;
368            object V59= V60;
369            if(endp(V59)){
370            V19= Cnil;
371            goto T138;}
372            base[5]=V58=MMcons(Cnil,Cnil);
373            goto T139;
374    T139:;
375            (V58->c.c_car)= coerce_to_string((V59->c.c_car));
376            V59=MMcdr(V59);
377            if(endp(V59)){
378            V19= base[5];
379            goto T138;}
380            V58=MMcdr(V58)=MMcons(Cnil,Cnil);
381            goto T139;}
382            goto T138;
383    T138:;
384            {register object V61;
385            register object V62;
386            base[5]= (V14);
387            base[6]= (V15);
388            {register object V63;
389            register object V64;
390            V63= Cnil;
391            V64= (V17);
392            {register object V65;
393            register object V66;
394            register object V67;
395            V65= Cnil;
396            V66= Cnil;
397            V67= Cnil;
398            goto T151;
399    T151:;
400            if(((V64))==Cnil){
401            goto T154;}
402            goto T153;
403            goto T154;
404    T154:;
405            goto T152;
406            goto T153;
407    T153:;
408            {register object V68;
409            V68= car((V64));
410            V63= (V68);}
411            base[8]= cdr((V63));
412            vs_top=(vs_base=base+8)+1;
413            Lcopy_list();
414            vs_top=sup;
415            V67= vs_base[0];
416            if(((V66))==Cnil){
417            goto T164;}
418            {register object V69;
419            register object V70;
420            V69= (V66);
421            V70= (V67);
422            if(type_of((V69))!=t_cons)FEwrong_type_argument(Scons,(V69));
423            ((V69))->c.c_cdr = (V70);
424            if(((V70))!=Cnil){
425            goto T166;}}
426            goto T162;
427            goto T166;
428    T166:;
429            base[8]= cdr((V66));
430            vs_top=(vs_base=base+8)+1;
431            Llast();
432            vs_top=sup;
433            V66= vs_base[0];
434            goto T162;
435            goto T164;
436    T164:;
437            V65= (V67);
438            base[8]= (V65);
439            vs_top=(vs_base=base+8)+1;
440            Llast();
441            vs_top=sup;
442            V66= vs_base[0];
443            goto T162;
444    T162:;
445            V64= cdr((V64));
446            goto T151;
447            goto T152;
448    T152:;
449            base[7]= (V65);
450            goto T149;
451            base[7]= Cnil;
452            goto T149;
453            base[7]= Cnil;
454            goto T149;}}
455            goto T149;
456    T149:;
457            {register object V71;
458            register object V72;
459            V71= Cnil;
460            V72= (V18);
461            {register object V73;
462            register object V74;
463            register object V75;
464            V73= Cnil;
465            V74= Cnil;
466            V75= Cnil;
467            goto T182;
468    T182:;
469            if(((V72))==Cnil){
470            goto T185;}
471            goto T184;
472            goto T185;
473    T185:;
474            goto T183;
475            goto T184;
476    T184:;
477            {register object V76;
478            V76= car((V72));
479            V71= (V76);}
480            base[9]= cdr((V71));
481            vs_top=(vs_base=base+9)+1;
482            Lcopy_list();
483            vs_top=sup;
484            V75= vs_base[0];
485            if(((V74))==Cnil){
486            goto T195;}
487            {register object V77;
488            register object V78;
489            V77= (V74);
490            V78= (V75);
491            if(type_of((V77))!=t_cons)FEwrong_type_argument(Scons,(V77));
492            ((V77))->c.c_cdr = (V78);
493            if(((V78))!=Cnil){
494            goto T197;}}
495            goto T193;
496            goto T197;
497    T197:;
498            base[9]= cdr((V74));
499            vs_top=(vs_base=base+9)+1;
500            Llast();
501            vs_top=sup;
502            V74= vs_base[0];
503            goto T193;
504            goto T195;
505    T195:;
506            V73= (V75);
507            base[9]= (V73);
508            vs_top=(vs_base=base+9)+1;
509            Llast();
510            vs_top=sup;
511            V74= vs_base[0];
512            goto T193;
513    T193:;
514            V72= cdr((V72));
515            goto T182;
516            goto T183;
517    T183:;
518            base[8]= (V73);
519            goto T180;
520            base[8]= Cnil;
521            goto T180;
522            base[8]= Cnil;
523            goto T180;}}
524            goto T180;
525    T180:;
526            vs_top=(vs_base=base+5)+4;
527            L2(base);
528            vs_top=sup;
529            V62= vs_base[0];
530            V61= Cnil;
531            goto T212;
532    T212:;
533            if(((V62))==Cnil){
534            goto T215;}
535            goto T214;
536            goto T215;
537    T215:;
538            goto T213;
539            goto T214;
540    T214:;
541            {register object V79;
542            V79= car((V62));
543            V61= (V79);}
544            base[5]= VV[5];
545            base[6]= VV[16];
546            base[7]= car((V61));
547            {register object V80;
548            register object V81;
549            V81= cdr((V61));
550            V80= Cnil;
551            {register object V82;
552            register object V83;
553            register object V84;
554            V82= Cnil;
555            V83= Cnil;
556            V84= Cnil;
557            goto T227;
558    T227:;
559            if(((V81))==Cnil){
560            goto T230;}
561            goto T229;
562            goto T230;
563    T230:;
564            goto T228;
565            goto T229;
566    T229:;
567            {register object V85;
568            V85= car((V81));
569            V80= (V85);}
570            {object V86= (V80);
571            if(!eql(V86,VV[17]))goto T237;
572            V84= VV[10];
573            goto T236;
574            goto T237;
575    T237:;
576            if(!eql(V86,VV[18]))goto T238;
577            V84= VV[11];
578            goto T236;
579            goto T238;
580    T238:;
581            if(!eql(V86,VV[19]))goto T239;
582            V84= VV[13];
583            goto T236;
584            goto T239;
585    T239:;
586            if(!eql(V86,VV[20]))goto T240;
587            V84= VV[14];
588            goto T236;
589            goto T240;
590    T240:;
591            V84= Cnil;}
592            goto T236;
593    T236:;
594            if(((V83))==Cnil){
595            goto T243;}
596            {register object V87;
597            register object V88;
598            V87= (V83);
599            V83= make_cons((V84),Cnil);
600            V88= (V83);
601            if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87));
602            ((V87))->c.c_cdr = (V88);
603            goto T241;}
604            goto T243;
605    T243:;
606            V83= make_cons((V84),Cnil);
607            V82= (V83);
608            goto T241;
609    T241:;
610            V81= cdr((V81));
611            goto T227;
612            goto T228;
613    T228:;
614            base[8]= (V82);
615            goto T224;
616            base[8]= Cnil;
617            goto T224;
618            base[8]= Cnil;
619            goto T224;}}
620            goto T224;
621    T224:;
622            vs_top=(vs_base=base+5)+4;
623            (void) (*Lnk72)();
624            vs_top=sup;
625            V62= cdr((V62));
626            goto T212;
627            goto T213;
628    T213:;
629            goto T145;
630            goto T145;}
631            goto T145;
632    T145:;
633            {register object V89;
634            register object V90;
635            base[5]= (V16);
636            base[6]= (V15);
637            vs_top=(vs_base=base+5)+2;
638            L2(base);
639            vs_top=sup;
640            V90= vs_base[0];
641            V89= Cnil;
642            goto T262;
643    T262:;
644            if(((V90))==Cnil){
645            goto T265;}
646            goto T264;
647            goto T265;
648    T265:;
649            goto T263;
650            goto T264;
651    T264:;
652            {register object V91;
653            V91= car((V90));
654            V89= (V91);}
655            base[5]= VV[5];
656            base[6]= VV[21];
657            base[7]= car((V89));
658            {register object V92;
659            register object V93;
660            V93= cdr((V89));
661            V92= Cnil;
662            {register object V94;
663            register object V95;
664            register object V96;
665            V94= Cnil;
666            V95= Cnil;
667            V96= Cnil;
668            goto T277;
669    T277:;
670            if(((V93))==Cnil){
671            goto T280;}
672            goto T279;
673            goto T280;
674    T280:;
675            goto T278;
676            goto T279;
677    T279:;
678            {register object V97;
679            V97= car((V93));
680            V92= (V97);}
681            {object V98= (V92);
682            if(!eql(V98,VV[17]))goto T287;
683            V96= VV[12];
684            goto T286;
685            goto T287;
686    T287:;
687            if(!eql(V98,VV[18]))goto T288;
688            V96= VV[11];
689            goto T286;
690            goto T288;
691    T288:;
692            V96= Cnil;}
693            goto T286;
694    T286:;
695            if(((V95))==Cnil){
696            goto T291;}
697            {register object V99;
698            register object V100;
699            V99= (V95);
700            V95= make_cons((V96),Cnil);
701            V100= (V95);
702            if(type_of((V99))!=t_cons)FEwrong_type_argument(Scons,(V99));
703            ((V99))->c.c_cdr = (V100);
704            goto T289;}
705            goto T291;
706    T291:;
707            V95= make_cons((V96),Cnil);
708            V94= (V95);
709            goto T289;
710    T289:;
711            V93= cdr((V93));
712            goto T277;
713            goto T278;
714    T278:;
715            base[8]= (V94);
716            goto T274;
717            base[8]= Cnil;
718            goto T274;
719            base[8]= Cnil;
720            goto T274;}}
721            goto T274;
722    T274:;
723            vs_top=(vs_base=base+5)+4;
724            (void) (*Lnk72)();
725            vs_top=sup;
726            V90= cdr((V90));
727            goto T262;
728            goto T263;
729    T263:;
730            goto T144;
731            goto T144;}
732            goto T144;
733    T144:;
734            V101= list(2,VV[27],base[2]);
735            V102= list(3,VV[29],base[2],base[2]);
736            if(((V11))==Cnil){
737            goto T308;}
738            V104= list(4,VV[29],base[2],base[2],list(2,VV[30],(V11)));
739            V103= make_cons(/* INLINE-ARGS */V104,Cnil);
740            goto T306;
741            goto T308;
742    T308:;
743            V103= Cnil;
744            goto T306;
745    T306:;
746            base[5]= VV[31];
747            base[6]= base[3];
748            base[7]= VV[4];
749            base[8]= symbol_function(VV[71]);
750            vs_top=(vs_base=base+5)+4;
751            Lmember();
752            vs_top=sup;
753            if((vs_base[0])==Cnil){
754            goto T312;}
755            V106= list(3,VV[32],list(2,VV[33],list(2,VV[27],base[2])),base[2]);
756            V105= make_cons(/* INLINE-ARGS */V106,Cnil);
757            goto T310;
758            goto T312;
759    T312:;
760            V105= Cnil;
761            goto T310;
762    T310:;
763            V107= listA(3,VV[28],/* INLINE-ARGS */V102,append(V103,V105));
764            V108= list(2,VV[30],(V11));
765            if(((V13))==Cnil){
766            goto T320;}
767            V109= Cnil;
768            goto T318;
769            goto T320;
770    T320:;
771            V109= Cnil;
772            goto T318;
773    T318:;
774            V110= list(4,VV[26],/* INLINE-ARGS */V101,/* INLINE-ARGS */V107,listA(7,VV[34],base[2],VV[35],VV[36],VV[37],/* INLINE-ARGS */V108,V109));
775            base[5]= base[2];
776            base[6]= VV[40];
777            vs_top=(vs_base=base+5)+2;
778            Lintern();
779            vs_top=sup;
780            V111= vs_base[0];
781            V112= list(3,VV[38],list(3,VV[39],list(2,VV[30],V111),VV[41]),(V12));
782            V113= make_cons(/* INLINE-ARGS */V112,Cnil);
783            V114= list(2,VV[43],list(2,VV[27],base[2]));
784            V115= make_cons(/* INLINE-ARGS */V114,Cnil);
785            if(((V14))==Cnil){
786            goto T328;}
787            V117= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V14))));
788            base[5]= make_cons(/* INLINE-ARGS */V117,Cnil);
789            goto T326;
790            goto T328;
791    T328:;
792            base[5]= Cnil;
793            goto T326;
794    T326:;
795            if(((V17))==Cnil){
796            goto T332;}
797            {object V118;
798            object V119= (V17);
799            if(endp(V119)){
800            base[6]= Cnil;
801            goto T330;}
802            base[7]=V118=MMcons(Cnil,Cnil);
803            goto T334;
804    T334:;
805            {register object V120;
806            V120= (V119->c.c_car);
807            V121= list(3,VV[51],VV[52],car((V120)));
808            V122= list(3,VV[53],VV[52],car((V120)));
809            V123= list(2,VV[48],list(3,VV[49],VV[50],list(4,VV[26],/* INLINE-ARGS */V121,/* INLINE-ARGS */V122,list(5,VV[54],VV[55],VV[56],car((V120)),VV[57]))));
810            (V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V123,list(2,VV[30],cdr((V120)))));}
811            V119=MMcdr(V119);
812            if(endp(V119)){
813            base[6]= base[7];
814            goto T330;}
815            V118=MMcdr(V118)=MMcons(Cnil,Cnil);
816            goto T334;}
817            goto T332;
818    T332:;
819            base[6]= Cnil;
820            goto T330;
821    T330:;
822            base[8]= VV[31];
823            base[9]= base[3];
824            base[10]= VV[22];
825            base[11]= (base[4]->c.c_car);
826            vs_top=(vs_base=base+8)+4;
827            Lmember();
828            vs_top=sup;
829            if((vs_base[0])==Cnil){
830            goto T339;}
831            base[9]= VV[31];
832            base[10]= base[3];
833            vs_top=(vs_base=base+9)+2;
834            L5(base);
835            vs_top=sup;
836            V127= vs_base[0];
837            {object V125;
838            object V126= V127;
839            if(endp(V126)){
840            V124= Cnil;
841            goto T337;}
842            base[8]=V125=MMcons(Cnil,Cnil);
843            goto T345;
844    T345:;
845            (V125->c.c_car)= coerce_to_string((V126->c.c_car));
846            V126=MMcdr(V126);
847            if(endp(V126)){
848            V124= base[8];
849            goto T337;}
850            V125=MMcdr(V125)=MMcons(Cnil,Cnil);
851            goto T345;}
852            goto T339;
853    T339:;
854            V124= VV[59];
855            goto T337;
856    T337:;
857            V128= list(2,VV[58],list(2,VV[30],V124));
858            if(((V18))==Cnil){
859            goto T353;}
860            {object V130;
861            object V131= (V18);
862            if(endp(V131)){
863            base[8]= Cnil;
864            goto T351;}
865            base[9]=V130=MMcons(Cnil,Cnil);
866            goto T355;
867    T355:;
868            {register object V132;
869            V132= (V131->c.c_car);
870            V133= list(3,VV[51],VV[52],car((V132)));
871            V134= list(3,VV[53],VV[52],car((V132)));
872            V135= list(2,VV[48],list(3,VV[49],VV[61],list(4,VV[26],/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,list(5,VV[54],VV[55],VV[62],car((V132)),VV[63]))));
873            (V130->c.c_car)= list(2,VV[60],list(3,VV[45],/* INLINE-ARGS */V135,list(2,VV[30],cdr((V132)))));}
874            V131=MMcdr(V131);
875            if(endp(V131)){
876            base[8]= base[9];
877            goto T351;}
878            V130=MMcdr(V130)=MMcons(Cnil,Cnil);
879            goto T355;}
880            goto T353;
881    T353:;
882            base[8]= Cnil;
883            goto T351;
884    T351:;
885            if(((V15))==Cnil){
886            goto T359;}
887            V136= list(3,VV[45],VV[64],list(2,VV[30],(V15)));
888            base[9]= make_cons(/* INLINE-ARGS */V136,Cnil);
889            goto T357;
890            goto T359;
891    T359:;
892            base[9]= Cnil;
893            goto T357;
894    T357:;
895            if(((V16))==Cnil){
896            goto T363;}
897            V137= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V16))));
898            base[10]= make_cons(/* INLINE-ARGS */V137,Cnil);
899            goto T361;
900            goto T363;
901    T363:;
902            base[10]= Cnil;
903            goto T361;
904    T361:;
905            if(((V19))==Cnil){
906            goto T367;}
907            V138= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V19))),VV[69]);
908            base[11]= make_cons(/* INLINE-ARGS */V138,Cnil);
909            goto T365;
910            goto T367;
911    T367:;
912            base[11]= Cnil;
913            goto T365;
914    T365:;
915            vs_top=(vs_base=base+8)+4;
916            Lappend();
917            vs_top=sup;
918            V129= vs_base[0];
919            base[7]= make_cons(/* INLINE-ARGS */V128,V129);
920            vs_top=(vs_base=base+5)+3;
921            Lappend();
922            vs_top=sup;
923            V116= vs_base[0];
924            V139= listA(3,VV[42],/* INLINE-ARGS */V115,V116);
925            V140= list(2,/* INLINE-ARGS */V139,list(2,VV[27],base[2]));
926            base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V140));
927            vs_top=(vs_base=base+5)+1;
928            return;}
929    }
930    /*      local function FIND-DUPLICATES  */
931    
932    static void L2(base0)
933    register object *base0;
934    {       register object *base=vs_base;
935            register object *sup=base+VM2; VC2
936            vs_reserve(VM2);
937            {object V141;
938            vs_top[0]=Cnil;
939            {object *p=vs_top;
940             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
941            V141=(base[0]);
942            vs_top=sup;
943            {object V142;
944            V142= Cnil;
945            {object V143;
946            object V144;
947            V143= Cnil;
948            V144= (V141);
949            {object V145;
950            V145= cdr((V141));
951            {register long V146;
952            V146= 1;
953            goto T373;
954    T373:;
955            if(((V145))==Cnil){
956            goto T376;}
957            goto T375;
958            goto T376;
959    T376:;
960            goto T374;
961            goto T375;
962    T375:;
963            if(((V144))==Cnil){
964            goto T379;}
965            goto T378;
966            goto T379;
967    T379:;
968            goto T374;
969            goto T378;
970    T378:;
971            {object V147;
972            V147= car((V144));
973            V143= (V147);}
974            {register object V148;
975            register object V149;
976            V148= Cnil;
977            V149= (V143);
978            {register object V150;
979            V150= Cnil;
980            goto T386;
981    T386:;
982            if(((V149))==Cnil){
983            goto T389;}
984            goto T388;
985            goto T389;
986    T389:;
987            goto T387;
988            goto T388;
989    T388:;
990            {object V151;
991            V151= car((V149));
992            V148= (V151);}
993            {object V152;
994            V153= symbol_function(VV[71]);
995            V154= symbol_function(VV[74]);
996            V152= (VFUN_NARGS=6,(*(LnkLI73))((V148),(V142),VV[4],V153,VV[22],V154));
997            V150= (V152);}
998            V156 = make_fixnum(V146);
999            {register object x= V156,V155= (V150);
1000            while(!endp(V155))
1001            if(eql(x,V155->c.c_car)){
1002            goto T399;
1003            }else V155=V155->c.c_cdr;}
1004            {object V157;
1005            register object V158;
1006            V157= Cnil;
1007            V158= (V145);
1008            {register long V159;
1009            {object V160;
1010            V161 = make_fixnum(V146);
1011            V160= one_plus(V161);{object V162;
1012            V162= (type_of((V160))==t_fixnum?Ct:Cnil);
1013            if(V162==Cnil)goto T405;
1014            goto T404;
1015            goto T405;
1016    T405:;}
1017            (void)((*(LnkLI75))());
1018            goto T404;
1019    T404:;
1020            V159= fix((V160));}
1021            goto T408;
1022    T408:;
1023            if(((V158))==Cnil){
1024            goto T411;}
1025            goto T410;
1026            goto T411;
1027    T411:;
1028            goto T409;
1029            goto T410;
1030    T410:;
1031            {object V163;
1032            V163= car((V158));
1033            V157= (V163);}
1034            base[1]= (V148);
1035            base[2]= (V157);
1036            base[3]= VV[22];
1037            base[4]= symbol_function(VV[74]);
1038            vs_top=(vs_base=base+1)+4;
1039            Lmember();
1040            vs_top=sup;
1041            if((vs_base[0])==Cnil){
1042            goto T416;}
1043            if(((V150))==Cnil){
1044            goto T424;}
1045            V164 = make_fixnum(V159);
1046            V165= make_cons(V164,Cnil);
1047            (void)(nconc((V150),/* INLINE-ARGS */V165));
1048            goto T416;
1049            goto T424;
1050    T424:;
1051            {object V167;
1052            V168 = make_fixnum(V146);
1053            V169 = make_fixnum(V159);
1054            V167= list(3,(V148),V168,V169);
1055            V142= make_cons((V167),(V142));
1056            V166= (V142);}
1057            V150= car(V166);
1058            goto T416;
1059    T416:;
1060            V158= cdr((V158));
1061            if(!((V159)<(2147483646))){
1062            goto T433;}
1063            goto T432;
1064            goto T433;
1065    T433:;
1066            (void)((*(LnkLI75))());
1067            goto T432;
1068    T432:;
1069            V159= (long)(V159)+(1);
1070            goto T408;
1071            goto T409;
1072    T409:;
1073            goto T399;
1074            goto T399;}}
1075            goto T399;
1076    T399:;
1077            V149= cdr((V149));
1078            goto T386;
1079            goto T387;
1080    T387:;
1081            goto T384;
1082            goto T384;}}
1083            goto T384;
1084    T384:;
1085            V144= cdr((V144));
1086            V145= cdr((V145));
1087            if(!((V146)<(2147483646))){
1088            goto T446;}
1089            goto T445;
1090            goto T446;
1091    T446:;
1092            (void)((*(LnkLI75))());
1093            goto T445;
1094    T445:;
1095            V146= (long)(V146)+(1);
1096            goto T373;
1097            goto T374;
1098    T374:;
1099            goto T369;
1100            goto T369;}}}
1101            goto T369;
1102    T369:;
1103            base[1]= (V142);
1104            vs_top=(vs_base=base+1)+1;
1105            return;}
1106            }
1107    }
1108    /*      local function OPTION-TEST      */
1109    
1110    static void LC3(base0)
1111    register object *base0;
1112    {       register object *base=vs_base;
1113            register object *sup=base+VM3; VC3
1114            vs_reserve(VM3);
1115            {object V170;
1116            object V171;
1117            check_arg(2);
1118            V170=(base[0]);
1119            V171=(base[1]);
1120            vs_top=sup;
1121            if(!(type_of((V171))==t_cons)){
1122            goto T452;}
1123            base[2]= (equal(car((V171)),(V170))?Ct:Cnil);
1124            vs_top=(vs_base=base+2)+1;
1125            return;
1126            goto T452;
1127    T452:;
1128            base[2]= Cnil;
1129            vs_top=(vs_base=base+2)+1;
1130            return;
1131            }
1132    }
1133    /*      local function OPTION-VALUES    */
1134    
1135    static void L5(base0)
1136    register object *base0;
1137    {       register object *base=vs_base;
1138            register object *sup=base+VM4; VC4
1139            vs_reserve(VM4);
1140            {object V172;
1141            object V173;
1142            check_arg(2);
1143            V172=(base[0]);
1144            V173=(base[1]);
1145            vs_top=sup;
1146            goto TTL;
1147    TTL:;
1148            {register object V174;
1149            V174= Cnil;
1150            {object V175;
1151            register object V176;
1152            register object V177;
1153            V175= Cnil;
1154            V176= Cnil;
1155            V177= Cnil;
1156            {object V178;
1157            base[2]= (V172);
1158            base[3]= (V173);
1159            base[4]= VV[22];
1160            base[5]= (base0[4]->c.c_car);
1161            vs_top=(vs_base=base+2)+4;
1162            Lmember();
1163            vs_top=sup;
1164            V178= vs_base[0];
1165            V174= (V178);}
1166            goto T455;
1167    T455:;
1168            if(((V174))==Cnil){
1169            goto T464;}
1170            goto T463;
1171            goto T464;
1172    T464:;
1173            goto T456;
1174            goto T463;
1175    T463:;
1176            if(((V174))==Cnil){
1177            goto T466;}
1178            base[2]= cdr(car((V174)));
1179            vs_top=(vs_base=base+2)+1;
1180            Lcopy_list();
1181            vs_top=sup;
1182            V177= vs_base[0];
1183            if(((V176))==Cnil){
1184            goto T473;}
1185            {register object V179;
1186            register object V180;
1187            V179= (V176);
1188            V180= (V177);
1189            if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179));
1190            ((V179))->c.c_cdr = (V180);
1191            if(((V180))!=Cnil){
1192            goto T475;}}
1193            goto T466;
1194            goto T475;
1195    T475:;
1196            base[2]= cdr((V176));
1197            vs_top=(vs_base=base+2)+1;
1198            Llast();
1199            vs_top=sup;
1200            V176= vs_base[0];
1201            goto T466;
1202            goto T473;
1203    T473:;
1204            V175= (V177);
1205            base[2]= (V175);
1206            vs_top=(vs_base=base+2)+1;
1207            Llast();
1208            vs_top=sup;
1209            V176= vs_base[0];
1210            goto T466;
1211    T466:;
1212            {register object V181;
1213            base[2]= (V172);
1214            base[3]= cdr((V174));
1215            base[4]= VV[22];
1216            base[5]= (base0[4]->c.c_car);
1217            vs_top=(vs_base=base+2)+4;
1218            Lmember();
1219            vs_top=sup;
1220            V181= vs_base[0];
1221            V174= (V181);}
1222            goto T455;
1223            goto T456;
1224    T456:;
1225            base[2]= (V175);
1226            vs_top=(vs_base=base+2)+1;
1227            return;
1228            base[2]= Cnil;
1229            vs_top=(vs_base=base+2)+1;
1230            return;
1231            base[2]= Cnil;
1232            vs_top=(vs_base=base+2)+1;
1233            return;}}
1234            }
1235    }
1236    /*      local function OPTION-VALUES-LIST       */
1237    
1238    static void L4(base0)
1239    register object *base0;
1240    {       register object *base=vs_base;
1241            register object *sup=base+VM5; VC5
1242            vs_reserve(VM5);
1243            {object V182;
1244            object V183;
1245            check_arg(2);
1246            V182=(base[0]);
1247            V183=(base[1]);
1248            vs_top=sup;
1249            goto TTL;
1250    TTL:;
1251            {register object V184;
1252            V184= Cnil;
1253            {object V185;
1254            register object V186;
1255            register object V187;
1256            V185= Cnil;
1257            V186= Cnil;
1258            V187= Cnil;
1259            {object V188;
1260            base[2]= (V182);
1261            base[3]= (V183);
1262            base[4]= VV[22];
1263            base[5]= (base0[4]->c.c_car);
1264            vs_top=(vs_base=base+2)+4;
1265            Lmember();
1266            vs_top=sup;
1267            V188= vs_base[0];
1268            V184= (V188);}
1269            goto T495;
1270    T495:;
1271            if(((V184))==Cnil){
1272            goto T504;}
1273            goto T503;
1274            goto T504;
1275    T504:;
1276            goto T496;
1277            goto T503;
1278    T503:;
1279            if(((V184))==Cnil){
1280            goto T506;}
1281            V187= cdr(car((V184)));
1282            if(((V186))==Cnil){
1283            goto T512;}
1284            {register object V189;
1285            register object V190;
1286            V189= (V186);
1287            V186= make_cons((V187),Cnil);
1288            V190= (V186);
1289            if(type_of((V189))!=t_cons)FEwrong_type_argument(Scons,(V189));
1290            ((V189))->c.c_cdr = (V190);
1291            goto T506;}
1292            goto T512;
1293    T512:;
1294            V186= make_cons((V187),Cnil);
1295            V185= (V186);
1296            goto T506;
1297    T506:;
1298            {register object V191;
1299            base[2]= (V182);
1300            base[3]= cdr((V184));
1301            base[4]= VV[22];
1302            base[5]= (base0[4]->c.c_car);
1303            vs_top=(vs_base=base+2)+4;
1304            Lmember();
1305            vs_top=sup;
1306            V191= vs_base[0];
1307            V184= (V191);}
1308            goto T495;
1309            goto T496;
1310    T496:;
1311            base[2]= (V185);
1312            vs_top=(vs_base=base+2)+1;
1313            return;
1314            base[2]= Cnil;
1315            vs_top=(vs_base=base+2)+1;
1316            return;
1317            base[2]= Cnil;
1318            vs_top=(vs_base=base+2)+1;
1319            return;}}
1320            }
1321    }
1322    static object  LnkTLI75(){return call_proc0(VV[75],(void **)(void *)&LnkLI75);} /* TYPE-ERROR */
1323    static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[73],(void **)(void *)&LnkLI73,first,ap);va_end(ap);return V1;} /* FIND */
1324    static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* SPECIFIC-ERROR */
1325    static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* COUNT */
1326    
1327    #ifdef SYSTEM_SPECIAL_INIT
1328    SYSTEM_SPECIAL_INIT
1329    #endif
1330    

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