/[gcl]/gcl/cmpnew/gcl_cmpflet.c
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpflet.c

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

revision 1.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_cmpflet.h"
4    void init_gcl_cmpflet(){do_init(VV);}
5    /*      local entry for function MAKE-FUN       */
6    
7    static object LI1(object first,...)
8    {      
9            va_list ap;
10            int narg = VFUN_NARGS; VMB1 VMS1 VMV1
11            {object V1;
12            object V2;
13            object V3;
14            object V4;
15            object V5;
16            va_start(ap,first);
17            narg= narg - 0;
18            {
19            parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap);
20            V1=(Vcs[0]);
21            V2=(Vcs[1]);
22            V3=(Vcs[2]);
23            V4=(Vcs[3]);
24            V5=(Vcs[4]);
25            base[0]= VV[0];
26            base[1]= (V1);
27            base[2]= (V2);
28            base[3]= (V3);
29            base[4]= (V4);
30            base[5]= (V5);
31            vs_top=(vs_base=base+0)+6;
32            siLmake_structure();
33            vs_top=sup;
34            {object V6 = vs_base[0];
35            VMR1(V6)}
36            va_end(ap);
37            base[0]=base[0];
38            return Cnil;}
39            }}
40    /*      local entry for function C1FLET */
41    
42    static object LI2(V8)
43    
44    object V8;
45    {        VMB2 VMS2 VMV2
46            bds_check;
47            goto TTL;
48    TTL:;
49            {object V9;
50            object V10;
51            object V11;
52            object V12;
53            object V13;
54            object V14;
55            object V15;
56            object V16;
57            object V17;
58            V9= Cnil;
59            V10= Cnil;
60            V11= Cnil;
61            V12= Cnil;
62            V13= Cnil;
63            V14= Cnil;
64            V15= Cnil;
65            V16= Cnil;
66            V17= Cnil;
67            if(!(endp_prop((V8)))){
68            goto T16;}
69            (void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0)));
70            goto T16;
71    T16:;
72            bds_bind(VV[2],symbol_value(VV[2]));
73            {register object V18;
74            register object V19;
75            V18= car((V8));
76            V19= car((V18));
77            goto T24;
78    T24:;
79            if(!(endp_prop((V18)))){
80            goto T25;}
81            goto T20;
82            goto T25;
83    T25:;
84            if(endp_prop((V19))){
85            goto T30;}
86            if(!(type_of(car((V19)))==t_symbol)){
87            goto T30;}
88            if(!(endp_prop(cdr((V19))))){
89            goto T29;}
90            goto T30;
91    T30:;
92            (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[3],(V19))));
93            goto T29;
94    T29:;
95            {object V20;
96            V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil));
97            (VV[2]->s.s_dbind)= make_cons(V20,(VV[2]->s.s_dbind));
98            {object V22;
99            V22= list(2,(V20),cdr((V19)));
100            V15= make_cons((V22),(V15));}}
101            V18= cdr((V18));
102            V19= car((V18));
103            goto T24;}
104            goto T20;
105    T20:;
106            base[1]= cdr((V8));
107            base[2]= Ct;
108            vs_top=(vs_base=base+1)+2;
109            (void) (*Lnk45)();
110            if(vs_base<vs_top){
111            V9= vs_base[0];
112            vs_base++;
113            }else{
114            V9= Cnil;}
115            if(vs_base<vs_top){
116            V10= vs_base[0];
117            vs_base++;
118            }else{
119            V10= Cnil;}
120            if(vs_base<vs_top){
121            V11= vs_base[0];
122            vs_base++;
123            }else{
124            V11= Cnil;}
125            if(vs_base<vs_top){
126            V12= vs_base[0];
127            vs_base++;
128            }else{
129            V12= Cnil;}
130            if(vs_base<vs_top){
131            V13= vs_base[0];
132            }else{
133            V13= Cnil;}
134            vs_top=sup;
135            bds_bind(VV[7],symbol_value(VV[7]));
136            (void)((*(LnkLI46))((V10)));
137            (void)((*(LnkLI47))(Cnil,(V11),(V12)));
138            V9= (*(LnkLI48))((V13),(V9));
139            bds_unwind1;
140            base[1]= cadr((V9));
141            vs_top=(vs_base=base+1)+1;
142            (void) (*Lnk49)();
143            vs_top=sup;
144            V14= vs_base[0];
145            bds_unwind1;
146            {register object V23;
147            register object V24;
148            V23= reverse((V15));
149            V24= car((V23));
150            goto T61;
151    T61:;
152            if(!(endp_prop((V23)))){
153            goto T62;}
154            goto T57;
155            goto T62;
156    T62:;
157            if((structure_ref(car((V24)),VV[0],2))==Cnil){
158            goto T66;}
159            base[2]= make_cons(VV[8],symbol_value(VV[7]));
160            base[3]= make_cons(VV[8],symbol_value(VV[2]));
161            base[4]= make_cons(VV[8],symbol_value(VV[9]));
162            base[5]= make_cons(VV[8],symbol_value(VV[10]));
163            bds_bind(VV[7],base[2]);
164            bds_bind(VV[2],base[3]);
165            bds_bind(VV[9],base[4]);
166            bds_bind(VV[10],base[5]);
167            {object V25;
168            V26= cadr((V24));
169            V27= structure_ref(car((V24)),VV[0],0);
170            V25= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V26,/* INLINE-ARGS */V27));
171            (void)((*(LnkLI51))((V14),cadr((V25))));
172            {object V28;
173            V28= list(2,car((V24)),(V25));
174            V17= make_cons((V28),(V17));
175            bds_unwind1;
176            bds_unwind1;
177            bds_unwind1;
178            bds_unwind1;}}
179            goto T66;
180    T66:;
181            if((structure_ref(car((V24)),VV[0],1))==Cnil){
182            goto T77;}
183            base[2]= make_cons(VV[11],symbol_value(VV[9]));
184            base[3]= make_cons(VV[11],symbol_value(VV[10]));
185            base[4]= make_cons(VV[11],symbol_value(VV[7]));
186            bds_bind(VV[9],base[2]);
187            bds_bind(VV[10],base[3]);
188            bds_bind(VV[7],base[4]);
189            {object V29;
190            V30= cadr((V24));
191            V31= structure_ref(car((V24)),VV[0],0);
192            V29= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V30,/* INLINE-ARGS */V31));
193            (void)((*(LnkLI51))((V14),cadr((V29))));
194            {object V32;
195            V32= list(2,car((V24)),(V29));
196            V16= make_cons((V32),(V16));
197            bds_unwind1;
198            bds_unwind1;
199            bds_unwind1;}}
200            goto T77;
201    T77:;
202            if((structure_ref(car((V24)),VV[0],1))!=Cnil){
203            goto T88;}
204            if((structure_ref(car((V24)),VV[0],2))==Cnil){
205            goto T87;}
206            goto T88;
207    T88:;
208            V33= car((V24));
209            setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
210            (void)(structure_set(/* INLINE-ARGS */V33,VV[0],3,symbol_value(VV[12])));
211            goto T87;
212    T87:;
213            V23= cdr((V23));
214            V24= car((V23));
215            goto T61;}
216            goto T57;
217    T57:;
218            if(((V16))!=Cnil){
219            goto T98;}
220            if(((V17))==Cnil){
221            goto T99;}
222            goto T98;
223    T98:;
224            V34= reverse((V16));
225            {object V35 = list(5,VV[1],(V14),/* INLINE-ARGS */V34,reverse((V17)),(V9));
226            VMR2(V35)}
227            goto T99;
228    T99:;
229            {object V36 = (V9);
230            VMR2(V36)}}
231            base[0]=base[0];
232            return Cnil;
233    }
234    /*      function definition for C2FLET  */
235    
236    static void L3()
237    {register object *base=vs_base;
238            register object *sup=base+VM3; VC3
239            vs_reserve(VM3);
240            bds_check;
241            {object V37;
242            object V38;
243            object V39;
244            check_arg(3);
245            V37=(base[0]);
246            V38=(base[1]);
247            V39=(base[2]);
248            vs_top=sup;
249            goto TTL;
250    TTL:;
251            bds_bind(VV[13],symbol_value(VV[13]));
252            bds_bind(VV[14],symbol_value(VV[14]));
253            bds_bind(VV[15],symbol_value(VV[15]));
254            {register object V40;
255            object V41;
256            V40= (V37);
257            V41= car((V40));
258            goto T107;
259    T107:;
260            if(!(endp_prop((V40)))){
261            goto T108;}
262            goto T103;
263            goto T108;
264    T108:;
265            (void)(structure_set(car((V41)),VV[0],4,symbol_value(VV[16])));
266            {object V42;{object V43;
267            V43= (VV[14]->s.s_dbind);{object V44;
268            V44= (VV[15]->s.s_dbind);
269            V42= list(5,Cnil,V43,V44,car((V41)),cadr((V41)));}}
270            setq(VV[17],make_cons((V42),symbol_value(VV[17])));}
271            V40= cdr((V40));
272            V41= car((V40));
273            goto T107;}
274            goto T103;
275    T103:;
276            {register object V45;
277            register object V46;
278            V45= (V38);
279            V46= car((V45));
280            goto T125;
281    T125:;
282            if(!(endp_prop((V45)))){
283            goto T126;}
284            goto T121;
285            goto T126;
286    T126:;
287            {object V47;
288            if(((VV[14]->s.s_dbind))!=Cnil){
289            goto T134;}
290            V48= Cnil;
291            goto T132;
292            goto T134;
293    T134:;
294            V48= make_cons(small_fixnum(0),small_fixnum(0));
295            goto T132;
296    T132:;{object V49;
297            V49= (VV[15]->s.s_dbind);
298            V47= list(5,VV[18],V48,V49,car((V46)),cadr((V46)));}
299            setq(VV[17],make_cons((V47),symbol_value(VV[17])));}
300            {object V50;
301            V50= car((V46));
302            setq(VV[19],make_cons((V50),symbol_value(VV[19])));}
303            {register object V51;
304            V51= car((V46));
305            V52= (*(LnkLI52))();
306            (void)(structure_set((V51),VV[0],1,/* INLINE-ARGS */V52));
307            princ_str("\n   ",VV[20]);
308            V53= structure_ref((V51),VV[0],1);
309            (void)((*(LnkLI53))(/* INLINE-ARGS */V53));
310            princ_str("=make_cclosure_new(LC",VV[20]);
311            V54= structure_ref((V51),VV[0],3);
312            (void)((*(LnkLI54))(/* INLINE-ARGS */V54));
313            princ_str(",Cnil,",VV[20]);
314            (void)((VFUN_NARGS=0,(*(LnkLI55))()));
315            princ_str(",Cdata);",VV[20]);
316            princ_str("\n   ",VV[20]);
317            V55= structure_ref((V51),VV[0],1);
318            (void)((*(LnkLI53))(/* INLINE-ARGS */V55));
319            princ_str("=MMcons(",VV[20]);
320            V56= structure_ref((V51),VV[0],1);
321            (void)((*(LnkLI53))(/* INLINE-ARGS */V56));
322            princ_char(44,VV[20]);
323            (void)((VFUN_NARGS=0,(*(LnkLI55))()));
324            princ_str(");",VV[20]);
325            V57= structure_ref((V51),VV[0],1);
326            (void)((*(LnkLI56))(/* INLINE-ARGS */V57));
327            V58= (*(LnkLI57))();
328            (void)(structure_set((V51),VV[0],2,/* INLINE-ARGS */V58));}
329            V45= cdr((V45));
330            V46= car((V45));
331            goto T125;}
332            goto T121;
333    T121:;
334            base[6]= (V39);
335            vs_top=(vs_base=base+6)+1;
336            (void) (*Lnk58)();
337            bds_unwind1;
338            bds_unwind1;
339            bds_unwind1;
340            return;
341            }
342    }
343    /*      local entry for function C1LABELS       */
344    
345    static object LI4(V60)
346    
347    object V60;
348    {        VMB4 VMS4 VMV4
349            bds_check;
350            goto TTL;
351    TTL:;
352            {object V61;
353            object V62;
354            object V63;
355            object V64;
356            object V65;
357            object V66;
358            object V67;
359            object V68;
360            object V69;
361            object V70;
362            register object V71;
363            V61= Cnil;
364            V62= Cnil;
365            V63= Cnil;
366            V64= Cnil;
367            V65= Cnil;
368            V66= Cnil;
369            V67= Cnil;
370            V68= Cnil;
371            V69= Cnil;
372            V70= Cnil;
373            V71= Cnil;
374            bds_bind(VV[2],symbol_value(VV[2]));
375            if(!(endp_prop((V60)))){
376            goto T180;}
377            (void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0)));
378            goto T180;
379    T180:;
380            {object V72;
381            register object V73;
382            V72= car((V60));
383            V73= car((V72));
384            goto T187;
385    T187:;
386            if(!(endp_prop((V72)))){
387            goto T188;}
388            goto T183;
389            goto T188;
390    T188:;
391            if(endp_prop((V73))){
392            goto T193;}
393            if(!(type_of(car((V73)))==t_symbol)){
394            goto T193;}
395            if(!(endp_prop(cdr((V73))))){
396            goto T192;}
397            goto T193;
398    T193:;
399            (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V73))));
400            goto T192;
401    T192:;
402            {register object x= car((V73)),V74= (V70);
403            while(!endp(V74))
404            if(eql(x,V74->c.c_car)){
405            goto T201;
406            }else V74=V74->c.c_cdr;
407            goto T199;}
408            goto T201;
409    T201:;
410            (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V73)))));
411            goto T199;
412    T199:;
413            {object V75;
414            V75= car((V73));
415            V70= make_cons((V75),(V70));}
416            {object V76;
417            V76= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V73)),VV[5],Cnil,VV[6],Cnil));
418            (VV[2]->s.s_dbind)= make_cons(V76,(VV[2]->s.s_dbind));
419            {object V78;
420            V78= list(4,(V76),Cnil,Cnil,cdr((V73)));
421            V67= make_cons((V78),(V67));}}
422            V72= cdr((V72));
423            V73= car((V72));
424            goto T187;}
425            goto T183;
426    T183:;
427            V67= reverse((V67));
428            base[1]= cdr((V60));
429            base[2]= Ct;
430            vs_top=(vs_base=base+1)+2;
431            (void) (*Lnk45)();
432            if(vs_base<vs_top){
433            V61= vs_base[0];
434            vs_base++;
435            }else{
436            V61= Cnil;}
437            if(vs_base<vs_top){
438            V62= vs_base[0];
439            vs_base++;
440            }else{
441            V62= Cnil;}
442            if(vs_base<vs_top){
443            V63= vs_base[0];
444            vs_base++;
445            }else{
446            V63= Cnil;}
447            if(vs_base<vs_top){
448            V64= vs_base[0];
449            vs_base++;
450            }else{
451            V64= Cnil;}
452            if(vs_base<vs_top){
453            V65= vs_base[0];
454            }else{
455            V65= Cnil;}
456            vs_top=sup;
457            bds_bind(VV[7],symbol_value(VV[7]));
458            (void)((*(LnkLI46))((V62)));
459            (void)((*(LnkLI47))(Cnil,(V63),(V64)));
460            V61= (*(LnkLI48))((V65),(V61));
461            bds_unwind1;
462            base[1]= cadr((V61));
463            vs_top=(vs_base=base+1)+1;
464            (void) (*Lnk49)();
465            vs_top=sup;
466            V66= vs_base[0];
467            goto T231;
468    T231:;
469            V71= Cnil;
470            {register object V79;
471            register object V80;
472            V79= (V67);
473            V80= car((V79));
474            goto T239;
475    T239:;
476            if(!(endp_prop((V79)))){
477            goto T240;}
478            goto T235;
479            goto T240;
480    T240:;
481            if((structure_ref(car((V80)),VV[0],1))==Cnil){
482            goto T244;}
483            if((cadr((V80)))!=Cnil){
484            goto T244;}
485            V71= Ct;
486            if(type_of(cdr(V80))!=t_cons)FEwrong_type_argument(Scons,cdr(V80));
487            (cdr(V80))->c.c_car = Ct;
488            (void)(cdr(V80));
489            base[2]= make_cons(VV[11],symbol_value(VV[9]));
490            base[3]= make_cons(VV[11],symbol_value(VV[10]));
491            base[4]= make_cons(VV[11],symbol_value(VV[7]));
492            bds_bind(VV[9],base[2]);
493            bds_bind(VV[10],base[3]);
494            bds_bind(VV[7],base[4]);
495            {object V83;
496            V84= cadddr((V80));
497            V85= structure_ref(car((V80)),VV[0],0);
498            V83= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V84,/* INLINE-ARGS */V85));
499            (void)((*(LnkLI51))((V66),cadr((V83))));
500            {object V86;
501            V86= list(2,car((V80)),(V83));
502            V68= make_cons((V86),(V68));
503            bds_unwind1;
504            bds_unwind1;
505            bds_unwind1;}}
506            goto T244;
507    T244:;
508            V79= cdr((V79));
509            V80= car((V79));
510            goto T239;}
511            goto T235;
512    T235:;
513            if(((V71))!=Cnil){
514            goto T232;}
515            goto T229;
516            goto T232;
517    T232:;
518            goto T231;
519            goto T229;
520    T229:;
521            goto T270;
522    T270:;
523            V71= Cnil;
524            {register object V87;
525            register object V88;
526            V87= (V67);
527            V88= car((V87));
528            goto T278;
529    T278:;
530            if(!(endp_prop((V87)))){
531            goto T279;}
532            goto T274;
533            goto T279;
534    T279:;
535            if((structure_ref(car((V88)),VV[0],2))==Cnil){
536            goto T283;}
537            if((caddr((V88)))!=Cnil){
538            goto T283;}
539            V71= Ct;
540            if(type_of(cddr(V88))!=t_cons)FEwrong_type_argument(Scons,cddr(V88));
541            (cddr(V88))->c.c_car = Ct;
542            (void)(cddr(V88));
543            base[2]= make_cons(VV[8],symbol_value(VV[7]));
544            base[3]= make_cons(VV[8],(VV[2]->s.s_dbind));
545            base[4]= make_cons(VV[8],symbol_value(VV[9]));
546            base[5]= make_cons(VV[8],symbol_value(VV[10]));
547            bds_bind(VV[7],base[2]);
548            bds_bind(VV[2],base[3]);
549            bds_bind(VV[9],base[4]);
550            bds_bind(VV[10],base[5]);
551            {object V91;
552            V92= cadddr((V88));
553            V93= structure_ref(car((V88)),VV[0],0);
554            V91= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V92,/* INLINE-ARGS */V93));
555            (void)((*(LnkLI51))((V66),cadr((V91))));
556            {object V94;
557            V94= list(2,car((V88)),(V91));
558            V69= make_cons((V94),(V69));
559            bds_unwind1;
560            bds_unwind1;
561            bds_unwind1;
562            bds_unwind1;}}
563            goto T283;
564    T283:;
565            V87= cdr((V87));
566            V88= car((V87));
567            goto T278;}
568            goto T274;
569    T274:;
570            if(((V71))!=Cnil){
571            goto T271;}
572            goto T268;
573            goto T271;
574    T271:;
575            goto T270;
576            goto T268;
577    T268:;
578            {object V95;
579            object V96;
580            V95= (V67);
581            V96= car((V95));
582            goto T312;
583    T312:;
584            if(!(endp_prop((V95)))){
585            goto T313;}
586            goto T308;
587            goto T313;
588    T313:;
589            if((structure_ref(car((V96)),VV[0],1))!=Cnil){
590            goto T318;}
591            if((structure_ref(car((V96)),VV[0],2))==Cnil){
592            goto T317;}
593            goto T318;
594    T318:;
595            V97= car((V96));
596            setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
597            (void)(structure_set(/* INLINE-ARGS */V97,VV[0],3,symbol_value(VV[12])));
598            goto T317;
599    T317:;
600            V95= cdr((V95));
601            V96= car((V95));
602            goto T312;}
603            goto T308;
604    T308:;
605            if(((V68))!=Cnil){
606            goto T328;}
607            if(((V69))==Cnil){
608            goto T329;}
609            goto T328;
610    T328:;
611            V98= reverse((V68));
612            {object V99 = list(5,VV[21],(V66),/* INLINE-ARGS */V98,reverse((V69)),(V61));
613            bds_unwind1;
614            VMR4(V99)}
615            goto T329;
616    T329:;
617            {object V100 = (V61);
618            bds_unwind1;
619            VMR4(V100)}}
620            base[0]=base[0];
621            return Cnil;
622    }
623    /*      function definition for C2LABELS        */
624    
625    static void L5()
626    {register object *base=vs_base;
627            register object *sup=base+VM5; VC5
628            vs_reserve(VM5);
629            bds_check;
630            {object V101;
631            object V102;
632            object V103;
633            check_arg(3);
634            V101=(base[0]);
635            V102=(base[1]);
636            V103=(base[2]);
637            vs_top=sup;
638            goto TTL;
639    TTL:;
640            bds_bind(VV[13],symbol_value(VV[13]));
641            bds_bind(VV[14],symbol_value(VV[14]));
642            {register object V104;
643            object V105;
644            V104= (V102);
645            V105= car((V104));
646            goto T337;
647    T337:;
648            if(!(endp_prop((V104)))){
649            goto T338;}
650            goto T333;
651            goto T338;
652    T338:;
653            {register object V106;
654            V106= car((V105));
655            V107= (*(LnkLI52))();
656            (void)(structure_set((V106),VV[0],1,/* INLINE-ARGS */V107));
657            princ_str("\n   ",VV[20]);
658            V108= structure_ref((V106),VV[0],1);
659            (void)((*(LnkLI53))(/* INLINE-ARGS */V108));
660            princ_str("=MMcons(Cnil,",VV[20]);
661            (void)((VFUN_NARGS=0,(*(LnkLI55))()));
662            princ_str(");",VV[20]);
663            V109= structure_ref((V106),VV[0],1);
664            (void)((*(LnkLI56))(/* INLINE-ARGS */V109));
665            V110= (*(LnkLI57))();
666            (void)(structure_set((V106),VV[0],2,/* INLINE-ARGS */V110));}
667            V104= cdr((V104));
668            V105= car((V104));
669            goto T337;}
670            goto T333;
671    T333:;
672            {register object V111;
673            object V112;
674            V111= (V101);
675            V112= car((V111));
676            goto T362;
677    T362:;
678            if(!(endp_prop((V111)))){
679            goto T363;}
680            goto T358;
681            goto T363;
682    T363:;
683            (void)(structure_set(car((V112)),VV[0],4,symbol_value(VV[16])));
684            {object V113;{object V114;
685            V114= (VV[14]->s.s_dbind);{object V115;
686            V115= symbol_value(VV[15]);
687            V113= list(5,Cnil,V114,V115,car((V112)),cadr((V112)));}}
688            setq(VV[17],make_cons((V113),symbol_value(VV[17])));}
689            V111= cdr((V111));
690            V112= car((V111));
691            goto T362;}
692            goto T358;
693    T358:;
694            {register object V116;
695            register object V117;
696            V116= (V102);
697            V117= car((V116));
698            goto T380;
699    T380:;
700            if(!(endp_prop((V116)))){
701            goto T381;}
702            goto T376;
703            goto T381;
704    T381:;
705            {object V118;
706            if(((VV[14]->s.s_dbind))!=Cnil){
707            goto T389;}
708            V119= Cnil;
709            goto T387;
710            goto T389;
711    T389:;
712            V119= make_cons(small_fixnum(0),small_fixnum(0));
713            goto T387;
714    T387:;{object V120;
715            V120= symbol_value(VV[15]);
716            V118= list(5,VV[18],V119,V120,car((V117)),cadr((V117)));}
717            setq(VV[17],make_cons((V118),symbol_value(VV[17])));}
718            {object V121;
719            V121= car((V117));
720            setq(VV[19],make_cons((V121),symbol_value(VV[19])));}
721            princ_str("\n   ",VV[20]);
722            V122= structure_ref(car((V117)),VV[0],1);
723            (void)((*(LnkLI59))(/* INLINE-ARGS */V122));
724            princ_str("=make_cclosure_new(LC",VV[20]);
725            V123= structure_ref(car((V117)),VV[0],3);
726            (void)((*(LnkLI54))(/* INLINE-ARGS */V123));
727            princ_str(",Cnil,",VV[20]);
728            (void)((VFUN_NARGS=0,(*(LnkLI55))()));
729            princ_str(",Cdata);",VV[20]);
730            V116= cdr((V116));
731            V117= car((V116));
732            goto T380;}
733            goto T376;
734    T376:;
735            base[5]= (V103);
736            vs_top=(vs_base=base+5)+1;
737            (void) (*Lnk58)();
738            bds_unwind1;
739            bds_unwind1;
740            return;
741            }
742    }
743    /*      local entry for function C1MACROLET     */
744    
745    static object LI6(V125)
746    
747    object V125;
748    {        VMB6 VMS6 VMV6
749            bds_check;
750            goto TTL;
751    TTL:;
752            {object V126;
753            object V127;
754            object V128;
755            object V129;
756            object V130;
757            V126= Cnil;
758            V127= Cnil;
759            V128= Cnil;
760            V129= Cnil;
761            V130= Cnil;
762            bds_bind(VV[2],symbol_value(VV[2]));
763            bds_bind(VV[7],symbol_value(VV[7]));
764            if(!(endp_prop((V125)))){
765            goto T415;}
766            (void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0)));
767            goto T415;
768    T415:;
769            {register object V131;
770            register object V132;
771            V131= car((V125));
772            V132= car((V131));
773            goto T422;
774    T422:;
775            if(!(endp_prop((V131)))){
776            goto T423;}
777            goto T418;
778            goto T423;
779    T423:;
780            if(endp_prop((V132))){
781            goto T428;}
782            if(!(type_of(car((V132)))==t_symbol)){
783            goto T428;}
784            if(!(endp_prop(cdr((V132))))){
785            goto T427;}
786            goto T428;
787    T428:;
788            (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V132))));
789            goto T427;
790    T427:;
791            {register object V133;
792            V134= car((V132));
793            V135= (*(LnkLI60))(car((V132)),cadr((V132)),cddr((V132)));
794            V133= list(2,/* INLINE-ARGS */V134,caddr(/* INLINE-ARGS */V135));
795            (VV[2]->s.s_dbind)= make_cons((V133),(VV[2]->s.s_dbind));}
796            V131= cdr((V131));
797            V132= car((V131));
798            goto T422;}
799            goto T418;
800    T418:;
801            base[2]= cdr((V125));
802            base[3]= Ct;
803            vs_top=(vs_base=base+2)+2;
804            (void) (*Lnk45)();
805            if(vs_base<vs_top){
806            V126= vs_base[0];
807            vs_base++;
808            }else{
809            V126= Cnil;}
810            if(vs_base<vs_top){
811            V127= vs_base[0];
812            vs_base++;
813            }else{
814            V127= Cnil;}
815            if(vs_base<vs_top){
816            V128= vs_base[0];
817            vs_base++;
818            }else{
819            V128= Cnil;}
820            if(vs_base<vs_top){
821            V129= vs_base[0];
822            vs_base++;
823            }else{
824            V129= Cnil;}
825            if(vs_base<vs_top){
826            V130= vs_base[0];
827            }else{
828            V130= Cnil;}
829            vs_top=sup;
830            (void)((*(LnkLI46))((V127)));
831            (void)((*(LnkLI47))(Cnil,(V128),(V129)));
832            {object V136 = (*(LnkLI48))((V130),(V126));
833            bds_unwind1;
834            bds_unwind1;
835            VMR6(V136)}}
836            base[0]=base[0];
837            return Cnil;
838    }
839    /*      local entry for function C1LOCAL-FUN    */
840    
841    static object LI7(V138)
842    
843    register object V138;
844    {        VMB7 VMS7 VMV7
845            goto TTL;
846    TTL:;
847            {register object V139;
848            V139= Cnil;
849            {register object V140;
850            register object V141;
851            V140= symbol_value(VV[2]);
852            V141= car((V140));
853            goto T452;
854    T452:;
855            if(!(endp_prop((V140)))){
856            goto T453;}
857            {object V142 = Cnil;
858            VMR7(V142)}
859            goto T453;
860    T453:;
861            if(!(((V141))==(VV[8]))){
862            goto T459;}
863            V139= Ct;
864            goto T457;
865            goto T459;
866    T459:;
867            if(!(type_of((V141))==t_cons)){
868            goto T463;}
869            if(!((car((V141)))==((V138)))){
870            goto T457;}
871            {object V143 = cadr((V141));
872            VMR7(V143)}
873            goto T463;
874    T463:;
875            V144= structure_ref((V141),VV[0],0);
876            if(!((/* INLINE-ARGS */V144)==((V138)))){
877            goto T457;}
878            if(((V139))==Cnil){
879            goto T471;}
880            (void)(structure_set((V141),VV[0],2,Ct));
881            goto T469;
882            goto T471;
883    T471:;
884            (void)(structure_set((V141),VV[0],1,Ct));
885            goto T469;
886    T469:;
887            {object V145 = list(4,VV[26],symbol_value(VV[27]),(V141),(V139));
888            VMR7(V145)}
889            goto T457;
890    T457:;
891            V140= cdr((V140));
892            V141= car((V140));
893            goto T452;}}
894            base[0]=base[0];
895            return Cnil;
896    }
897    /*      local entry for function SCH-LOCAL-FUN  */
898    
899    static object LI8(V147)
900    
901    register object V147;
902    {        VMB8 VMS8 VMV8
903            goto TTL;
904    TTL:;
905            {register object V148;
906            register object V149;
907            V148= symbol_value(VV[2]);
908            V149= car((V148));
909            goto T481;
910    T481:;
911            if(!(endp_prop((V148)))){
912            goto T482;}
913            {object V150 = (V147);
914            VMR8(V150)}
915            goto T482;
916    T482:;
917            if(((V149))==(VV[8])){
918            goto T486;}
919            if(type_of((V149))==t_cons){
920            goto T486;}
921            V151= structure_ref((V149),VV[0],0);
922            if(!((/* INLINE-ARGS */V151)==((V147)))){
923            goto T486;}
924            {object V152 = (V149);
925            VMR8(V152)}
926            goto T486;
927    T486:;
928            V148= cdr((V148));
929            V149= car((V148));
930            goto T481;}
931            base[0]=base[0];
932            return Cnil;
933    }
934    /*      local entry for function C1LOCAL-CLOSURE        */
935    
936    static object LI9(V154)
937    
938    register object V154;
939    {        VMB9 VMS9 VMV9
940            goto TTL;
941    TTL:;
942            {register object V155;
943            V155= Cnil;
944            {register object V156;
945            register object V157;
946            V156= symbol_value(VV[2]);
947            V157= car((V156));
948            goto T502;
949    T502:;
950            if(!(endp_prop((V156)))){
951            goto T503;}
952            {object V158 = Cnil;
953            VMR9(V158)}
954            goto T503;
955    T503:;
956            if(!(((V157))==(VV[8]))){
957            goto T509;}
958            V155= Ct;
959            goto T507;
960            goto T509;
961    T509:;
962            if(!(type_of((V157))==t_cons)){
963            goto T513;}
964            if(!((car((V157)))==((V154)))){
965            goto T507;}
966            {object V159 = cadr((V157));
967            VMR9(V159)}
968            goto T513;
969    T513:;
970            V160= structure_ref((V157),VV[0],0);
971            if(!((/* INLINE-ARGS */V160)==((V154)))){
972            goto T507;}
973            (void)(structure_set((V157),VV[0],2,Ct));
974            {object V161 = list(4,VV[26],symbol_value(VV[27]),(V157),(V155));
975            VMR9(V161)}
976            goto T507;
977    T507:;
978            V156= cdr((V156));
979            V157= car((V156));
980            goto T502;}}
981            base[0]=base[0];
982            return Cnil;
983    }
984    /*      local entry for function C2CALL-LOCAL   */
985    
986    static object LI10(V164,V165)
987    
988    register object V164;register object V165;
989    {        VMB10 VMS10 VMV10
990            bds_check;
991            goto TTL;
992    TTL:;
993            bds_bind(VV[13],symbol_value(VV[13]));
994            if((cadr((V164)))==Cnil){
995            goto T527;}
996            (void)((*(LnkLI61))((V165)));
997            princ_str("\n   cclosure_call(",VV[20]);
998            V166= structure_ref(car((V164)),VV[0],2);
999            (void)((*(LnkLI62))(/* INLINE-ARGS */V166));
1000            princ_str(");",VV[20]);
1001            goto T525;
1002            goto T527;
1003    T527:;
1004            if(!(type_of((V165))==t_cons||((V165))==Cnil)){
1005            goto T535;}
1006            if((symbol_value(VV[28]))==Cnil){
1007            goto T535;}
1008            if((symbol_value(VV[29]))==Cnil){
1009            goto T535;}
1010            if(!((car(symbol_value(VV[29])))==(car((V164))))){
1011            goto T535;}
1012            if(!((symbol_value(VV[30]))==(VV[31]))){
1013            goto T535;}
1014            if(((*(LnkLI63))())==Cnil){
1015            goto T535;}
1016            if(!(((long)length((V165)))==((long)length(cdr(symbol_value(VV[29])))))){
1017            goto T535;}
1018            bds_bind(VV[32],VV[33]);
1019            setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1)));
1020            bds_bind(VV[30],make_cons(symbol_value(VV[34]),Cnil));
1021            bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),symbol_value(VV[35])));
1022            {object V168;
1023            object V169= cdr(symbol_value(VV[29]));
1024            if(endp(V169)){
1025            V167= Cnil;
1026            goto T554;}
1027            base[4]=V168=MMcons(Cnil,Cnil);
1028            goto T555;
1029    T555:;
1030            (V168->c.c_car)= list(2,(V169->c.c_car),Cnil);
1031            V169=MMcdr(V169);
1032            if(endp(V169)){
1033            V167= base[4];
1034            goto T554;}
1035            V168=MMcdr(V168)=MMcons(Cnil,Cnil);
1036            goto T555;}
1037            goto T554;
1038    T554:;
1039            (void)((*(LnkLI64))(V167,(V165)));
1040            if((cdr((VV[30]->s.s_dbind)))==Cnil){
1041            bds_unwind1;
1042            bds_unwind1;
1043            bds_unwind1;
1044            goto T549;}
1045            princ_str("\n   goto T",VV[20]);
1046            (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));
1047            princ_char(59,VV[20]);
1048            princ_str("\nT",VV[20]);
1049            (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));
1050            princ_str(":;",VV[20]);
1051            bds_unwind1;
1052            bds_unwind1;
1053            bds_unwind1;
1054            goto T549;
1055    T549:;
1056            (void)((*(LnkLI65))(VV[36]));
1057            princ_str("\n   goto TTL;",VV[20]);
1058            V171= structure_ref(car((V164)),VV[0],0);
1059            (void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V171)));
1060            goto T525;
1061            goto T535;
1062    T535:;
1063            (void)((*(LnkLI61))((V165)));
1064            princ_str("\n   L",VV[20]);
1065            V172= structure_ref(car((V164)),VV[0],3);
1066            (void)((*(LnkLI54))(/* INLINE-ARGS */V172));
1067            princ_char(40,VV[20]);
1068            {register long V173;
1069            register long V174;
1070            V173= fix(structure_ref(car((V164)),VV[0],4));
1071            V174= 0;
1072            goto T578;
1073    T578:;
1074            if(!((V174)>=(V173))){
1075            goto T579;}
1076            goto T574;
1077            goto T579;
1078    T579:;
1079            princ_str("base",VV[20]);
1080            V175 = make_fixnum(V174);
1081            (void)((*(LnkLI54))(V175));
1082            princ_char(44,VV[20]);
1083            V174= (long)(V174)+1;
1084            goto T578;}
1085            goto T574;
1086    T574:;
1087            princ_str("base",VV[20]);
1088            V176= structure_ref(car((V164)),VV[0],4);
1089            if(number_compare(/* INLINE-ARGS */V176,symbol_value(VV[16]))==0){
1090            goto T592;}
1091            V177= structure_ref(car((V164)),VV[0],4);
1092            (void)((*(LnkLI54))(/* INLINE-ARGS */V177));
1093            goto T592;
1094    T592:;
1095            princ_str(");",VV[20]);
1096            setq(VV[38],Ct);
1097            goto T525;
1098    T525:;
1099            {object V178 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39]));
1100            bds_unwind1;
1101            VMR10(V178)}
1102            base[0]=base[0];
1103            return Cnil;
1104    }
1105    static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)(void *)&LnkLI67,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
1106    static object  LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[66],(void **)(void *)&LnkLI66,first,ap);va_end(ap);return V1;} /* CMPNOTE */
1107    static object  LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
1108    static object  LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */
1109    static object  LnkTLI63(){return call_proc0(VV[63],(void **)(void *)&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */
1110    static object  LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[62],(void **)(void *)&LnkLI62,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
1111    static object  LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS */
1112    static object  LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,3,first,ap);va_end(ap);return V1;} /* DEFMACRO* */
1113    static object  LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
1114    static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* C2EXPR */
1115    static object  LnkTLI57(){return call_proc0(VV[57],(void **)(void *)&LnkLI57);} /* CCB-VS-PUSH */
1116    static object  LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* CLINK */
1117    static object  LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[55],(void **)(void *)&LnkLI55,first,ap);va_end(ap);return V1;} /* WT-CLINK */
1118    static object  LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* WT1 */
1119    static object  LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* WT-VS */
1120    static object  LnkTLI52(){return call_proc0(VV[52],(void **)(void *)&LnkLI52);} /* VS-PUSH */
1121    static object  LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
1122    static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[50],(void **)(void *)&LnkLI50,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
1123    static void LnkT49(){ call_or_link(VV[49],(void **)(void *)&Lnk49);} /* COPY-INFO */
1124    static object  LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)(void *)&LnkLI48,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
1125    static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
1126    static object  LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
1127    static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* C1BODY */
1128    static object  LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[44],(void **)(void *)&LnkLI44,first,ap);va_end(ap);return V1;} /* MAKE-FUN */
1129    static object  LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[43],(void **)(void *)&LnkLI43,first,ap);va_end(ap);return V1;} /* CMPERR */
1130    static object  LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
1131    
1132    #ifdef SYSTEM_SPECIAL_INIT
1133    SYSTEM_SPECIAL_INIT
1134    #endif
1135    

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