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

Diff of /gcl/cmpnew/gcl_cmpmap.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_cmpmap.h"
4    void init_gcl_cmpmap(){do_init(VV);}
5    /*      local entry for function C1MAPCAR       */
6    
7    static object LI1(V2)
8    
9    object V2;
10    {        VMB1 VMS1 VMV1
11            goto TTL;
12    TTL:;
13            {object V3 = (*(LnkLI23))(VV[0],Ct,(V2));
14            VMR1(V3)}
15            return Cnil;
16    }
17    /*      local entry for function C1MAPLIST      */
18    
19    static object LI2(V5)
20    
21    object V5;
22    {        VMB2 VMS2 VMV2
23            goto TTL;
24    TTL:;
25            {object V6 = (*(LnkLI23))(VV[0],Cnil,(V5));
26            VMR2(V6)}
27            return Cnil;
28    }
29    /*      local entry for function C1MAPC */
30    
31    static object LI3(V8)
32    
33    object V8;
34    {        VMB3 VMS3 VMV3
35            goto TTL;
36    TTL:;
37            {object V9 = (*(LnkLI23))(VV[1],Ct,(V8));
38            VMR3(V9)}
39            return Cnil;
40    }
41    /*      local entry for function C1MAPL */
42    
43    static object LI4(V11)
44    
45    object V11;
46    {        VMB4 VMS4 VMV4
47            goto TTL;
48    TTL:;
49            {object V12 = (*(LnkLI23))(VV[1],Cnil,(V11));
50            VMR4(V12)}
51            return Cnil;
52    }
53    /*      local entry for function C1MAPCAN       */
54    
55    static object LI5(V14)
56    
57    object V14;
58    {        VMB5 VMS5 VMV5
59            goto TTL;
60    TTL:;
61            {object V15 = (*(LnkLI23))(VV[2],Ct,(V14));
62            VMR5(V15)}
63            return Cnil;
64    }
65    /*      local entry for function C1MAPCON       */
66    
67    static object LI6(V17)
68    
69    object V17;
70    {        VMB6 VMS6 VMV6
71            goto TTL;
72    TTL:;
73            {object V18 = (*(LnkLI23))(VV[2],Cnil,(V17));
74            VMR6(V18)}
75            return Cnil;
76    }
77    /*      local entry for function C1MAP-FUNCTIONS        */
78    
79    static object LI7(V22,V23,V24)
80    
81    object V22;object V23;register object V24;
82    {        VMB7 VMS7 VMV7
83            goto TTL;
84    TTL:;
85            {object V25;
86            object V26;
87            V25= Cnil;
88            V26= Cnil;
89            if(endp_prop((V24))){
90            goto T4;}
91            if(!(endp_prop(cdr((V24))))){
92            goto T3;}
93            goto T4;
94    T4:;
95            V27 = make_fixnum((long)length((V24)));
96            (void)((*(LnkLI24))(VV[3],small_fixnum(2),V27));
97            goto T3;
98    T3:;
99            V25= (*(LnkLI25))(car((V24)));
100            base[0]= cadr((V25));
101            vs_top=(vs_base=base+0)+1;
102            (void) (*Lnk26)();
103            vs_top=sup;
104            V26= vs_base[0];
105            {object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(cdr((V24)),(V26)));
106            VMR7(V28)}}
107            base[0]=base[0];
108            return Cnil;
109    }
110    /*      local entry for function C2MAPCAR       */
111    
112    static object LI8(V32,V33,V34)
113    
114    object V32;object V33;register object V34;
115    {        VMB8 VMS8 VMV8
116            bds_check;
117            goto TTL;
118    TTL:;
119            bds_bind(VV[4],symbol_value(VV[4]));
120            bds_bind(VV[5],small_fixnum(0));
121            {object V35;
122            object V36;
123            object V37;
124            object V38;
125            object V39;
126            setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
127            V35= make_cons(symbol_value(VV[6]),Ct);
128            V36= list(2,VV[7],(*(LnkLI28))());
129            setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
130            V37= list(2,VV[8],symbol_value(VV[9]));
131            {object V40;
132            object V41= (V34);
133            if(endp(V41)){
134            V38= Cnil;
135            goto T18;}
136            base[2]=V40=MMcons(Cnil,Cnil);
137            goto T19;
138    T19:;
139            setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
140            (V40->c.c_car)= list(2,VV[8],symbol_value(VV[9]));
141            V41=MMcdr(V41);
142            if(endp(V41)){
143            V38= base[2];
144            goto T18;}
145            V40=MMcdr(V40)=MMcons(Cnil,Cnil);
146            goto T19;}
147            goto T18;
148    T18:;
149            V39= Cnil;
150            V39= (*(LnkLI29))((V32));
151            base[2]= make_fixnum((long)length((V34)));
152            base[3]= VV[10];
153            base[4]= Ct;
154            vs_top=(vs_base=base+2)+3;
155            Lmake_list();
156            vs_top=sup;
157            V43= vs_base[0];
158            V44= (VFUN_NARGS=2,(*(LnkLI31))((V34),V43));
159            V34= (*(LnkLI30))(/* INLINE-ARGS */V44,(V32));
160            princ_str("\n   {object ",VV[11]);
161            (void)((*(LnkLI32))((V37)));
162            princ_char(59,VV[11]);
163            {register object V45;
164            object V46;
165            V45= (V38);
166            V46= car((V45));
167            goto T38;
168    T38:;
169            if(!(endp_prop((V45)))){
170            goto T39;}
171            goto T34;
172            goto T39;
173    T39:;
174            princ_str("\n   object ",VV[11]);
175            (void)((*(LnkLI32))((V46)));
176            princ_str("= ",VV[11]);
177            (void)((*(LnkLI32))(car((V34))));
178            princ_char(59,VV[11]);
179            {object V47;
180            V47= car((V34));
181            V34= cdr((V34));}
182            V45= cdr((V45));
183            V46= car((V45));
184            goto T38;}
185            goto T34;
186    T34:;
187            if((symbol_value(VV[12]))==Cnil){
188            goto T60;}
189            princ_str("\n   if(endp(",VV[11]);
190            (void)((*(LnkLI32))(car((V38))));
191            princ_char(41,VV[11]);
192            {register object V48;
193            object V49;
194            V48= cdr((V38));
195            V49= car((V48));
196            goto T70;
197    T70:;
198            if(!(endp_prop((V48)))){
199            goto T71;}
200            goto T66;
201            goto T71;
202    T71:;
203            princ_str("||endp(",VV[11]);
204            (void)((*(LnkLI32))((V49)));
205            princ_char(41,VV[11]);
206            V48= cdr((V48));
207            V49= car((V48));
208            goto T70;}
209            goto T66;
210    T66:;
211            princ_str("){",VV[11]);
212            goto T58;
213            goto T60;
214    T60:;
215            princ_str("\n   if(",VV[11]);
216            (void)((*(LnkLI32))(car((V38))));
217            princ_str("==Cnil",VV[11]);
218            {register object V50;
219            object V51;
220            V50= cdr((V38));
221            V51= car((V50));
222            goto T93;
223    T93:;
224            if(!(endp_prop((V50)))){
225            goto T94;}
226            goto T89;
227            goto T94;
228    T94:;
229            princ_str("||",VV[11]);
230            (void)((*(LnkLI32))((V51)));
231            princ_str("==Cnil",VV[11]);
232            V50= cdr((V50));
233            V51= car((V50));
234            goto T93;}
235            goto T89;
236    T89:;
237            princ_str("){",VV[11]);
238            goto T58;
239    T58:;
240            (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));
241            princ_char(125,VV[11]);
242            princ_str("\n   ",VV[11]);
243            (void)((*(LnkLI32))((V36)));
244            princ_char(61,VV[11]);
245            (void)((*(LnkLI32))((V37)));
246            princ_str("=MMcons(Cnil,Cnil);",VV[11]);
247            if((cdr((V35)))==Cnil){
248            goto T117;}
249            princ_str("\n   goto T",VV[11]);
250            (void)((*(LnkLI32))(car((V35))));
251            princ_char(59,VV[11]);
252            princ_str("\nT",VV[11]);
253            (void)((*(LnkLI32))(car((V35))));
254            princ_str(":;",VV[11]);
255            goto T117;
256    T117:;
257            bds_bind(VV[14],list(2,VV[15],cadr((V37))));
258            setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
259            bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));
260            bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));
261            if(((V33))==Cnil){
262            goto T135;}
263            {object V53;
264            object V54= (V38);
265            if(endp(V54)){
266            V52= Cnil;
267            goto T133;}
268            base[5]=V53=MMcons(Cnil,Cnil);
269            goto T137;
270    T137:;{object V56;
271            V56= symbol_value(VV[19]);
272            (V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));}
273            V54=MMcdr(V54);
274            if(endp(V54)){
275            V52= base[5];
276            goto T133;}
277            V53=MMcdr(V53)=MMcons(Cnil,Cnil);
278            goto T137;}
279            goto T135;
280    T135:;
281            {object V57;
282            object V58= (V38);
283            if(endp(V58)){
284            V52= Cnil;
285            goto T133;}
286            base[5]=V57=MMcons(Cnil,Cnil);
287            goto T139;
288    T139:;
289            (V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car));
290            V58=MMcdr(V58);
291            if(endp(V58)){
292            V52= base[5];
293            goto T133;}
294            V57=MMcdr(V57)=MMcons(Cnil,Cnil);
295            goto T139;}
296            goto T133;
297    T133:;
298            (void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39))));
299            if((cdr((VV[16]->s.s_dbind)))==Cnil){
300            bds_unwind1;
301            bds_unwind1;
302            bds_unwind1;
303            goto T127;}
304            princ_str("\n   goto T",VV[11]);
305            (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
306            princ_char(59,VV[11]);
307            princ_str("\nT",VV[11]);
308            (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
309            princ_str(":;",VV[11]);
310            bds_unwind1;
311            bds_unwind1;
312            bds_unwind1;
313            goto T127;
314    T127:;
315            if((symbol_value(VV[12]))==Cnil){
316            goto T152;}
317            princ_str("\n   ",VV[11]);
318            (void)((*(LnkLI32))(car((V38))));
319            princ_str("=MMcdr(",VV[11]);
320            (void)((*(LnkLI32))(car((V38))));
321            princ_str(");",VV[11]);
322            {register object V60;
323            object V61;
324            V60= cdr((V38));
325            V61= car((V60));
326            goto T164;
327    T164:;
328            if(!(endp_prop((V60)))){
329            goto T165;}
330            goto T160;
331            goto T165;
332    T165:;
333            princ_str("\n   ",VV[11]);
334            (void)((*(LnkLI32))((V61)));
335            princ_str("=MMcdr(",VV[11]);
336            (void)((*(LnkLI32))((V61)));
337            princ_str(");",VV[11]);
338            V60= cdr((V60));
339            V61= car((V60));
340            goto T164;}
341            goto T160;
342    T160:;
343            princ_str("\n   if(endp(",VV[11]);
344            (void)((*(LnkLI32))(car((V38))));
345            princ_char(41,VV[11]);
346            {register object V62;
347            object V63;
348            V62= cdr((V38));
349            V63= car((V62));
350            goto T188;
351    T188:;
352            if(!(endp_prop((V62)))){
353            goto T189;}
354            goto T184;
355            goto T189;
356    T189:;
357            princ_str("||endp(",VV[11]);
358            (void)((*(LnkLI32))((V63)));
359            princ_char(41,VV[11]);
360            V62= cdr((V62));
361            V63= car((V62));
362            goto T188;}
363            goto T184;
364    T184:;
365            princ_str("){",VV[11]);
366            goto T150;
367            goto T152;
368    T152:;
369            princ_str("\n   if((",VV[11]);
370            (void)((*(LnkLI32))(car((V38))));
371            princ_str("=MMcdr(",VV[11]);
372            (void)((*(LnkLI32))(car((V38))));
373            princ_str("))==Cnil",VV[11]);
374            {register object V64;
375            object V65;
376            V64= cdr((V38));
377            V65= car((V64));
378            goto T213;
379    T213:;
380            if(!(endp_prop((V64)))){
381            goto T214;}
382            goto T209;
383            goto T214;
384    T214:;
385            princ_str("||(",VV[11]);
386            (void)((*(LnkLI32))((V65)));
387            princ_str("=MMcdr(",VV[11]);
388            (void)((*(LnkLI32))((V65)));
389            princ_str("))==Cnil",VV[11]);
390            V64= cdr((V64));
391            V65= car((V64));
392            goto T213;}
393            goto T209;
394    T209:;
395            princ_str("){",VV[11]);
396            goto T150;
397    T150:;
398            (void)((VFUN_NARGS=2,(*(LnkLI33))((V36),VV[13])));
399            princ_char(125,VV[11]);
400            princ_str("\n   ",VV[11]);
401            (void)((*(LnkLI32))((V37)));
402            princ_str("=MMcdr(",VV[11]);
403            (void)((*(LnkLI32))((V37)));
404            princ_str(")=MMcons(Cnil,Cnil);",VV[11]);
405            princ_str("\n   ",VV[11]);
406            if(type_of((V35))!=t_cons)FEwrong_type_argument(Scons,(V35));
407            ((V35))->c.c_cdr = Ct;
408            princ_str("goto T",VV[11]);
409            (void)((*(LnkLI32))(car((V35))));
410            princ_char(59,VV[11]);
411            princ_char(125,VV[11]);
412            {object V66 = (*(LnkLI35))();
413            bds_unwind1;
414            bds_unwind1;
415            VMR8(V66)}}
416            base[0]=base[0];
417            return Cnil;
418    }
419    /*      local entry for function C2MAPC */
420    
421    static object LI9(V70,V71,V72)
422    
423    object V70;object V71;register object V72;
424    {        VMB9 VMS9 VMV9
425            bds_check;
426            goto TTL;
427    TTL:;
428            bds_bind(VV[4],symbol_value(VV[4]));
429            bds_bind(VV[5],small_fixnum(0));
430            {object V73;
431            object V74;
432            object V75;
433            object V76;
434            setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
435            V73= make_cons(symbol_value(VV[6]),Ct);
436            {object V77;
437            object V78= (V72);
438            if(endp(V78)){
439            V75= Cnil;
440            goto T249;}
441            base[2]=V77=MMcons(Cnil,Cnil);
442            goto T250;
443    T250:;
444            setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
445            (V77->c.c_car)= list(2,VV[8],symbol_value(VV[9]));
446            V78=MMcdr(V78);
447            if(endp(V78)){
448            V75= base[2];
449            goto T249;}
450            V77=MMcdr(V77)=MMcons(Cnil,Cnil);
451            goto T250;}
452            goto T249;
453    T249:;
454            V74= Cnil;
455            V76= Cnil;
456            V76= (*(LnkLI29))((V70));
457            base[2]= make_fixnum((long)length((V72)));
458            base[3]= VV[10];
459            base[4]= Ct;
460            vs_top=(vs_base=base+2)+3;
461            Lmake_list();
462            vs_top=sup;
463            V80= vs_base[0];
464            V81= (VFUN_NARGS=2,(*(LnkLI31))((V72),V80));
465            V72= (*(LnkLI30))(/* INLINE-ARGS */V81,(V70));
466            V74= car((V72));
467            princ_str("\n   {",VV[11]);
468            {register object V82;
469            object V83;
470            V82= (V75);
471            V83= car((V82));
472            goto T269;
473    T269:;
474            if(!(endp_prop((V82)))){
475            goto T270;}
476            goto T265;
477            goto T270;
478    T270:;
479            princ_str("\n   object ",VV[11]);
480            (void)((*(LnkLI32))((V83)));
481            princ_str("= ",VV[11]);
482            (void)((*(LnkLI32))(car((V72))));
483            princ_char(59,VV[11]);
484            {object V84;
485            V84= car((V72));
486            V72= cdr((V72));}
487            V82= cdr((V82));
488            V83= car((V82));
489            goto T269;}
490            goto T265;
491    T265:;
492            if((symbol_value(VV[12]))==Cnil){
493            goto T291;}
494            princ_str("\n   if(endp(",VV[11]);
495            (void)((*(LnkLI32))(car((V75))));
496            princ_char(41,VV[11]);
497            {register object V85;
498            object V86;
499            V85= cdr((V75));
500            V86= car((V85));
501            goto T301;
502    T301:;
503            if(!(endp_prop((V85)))){
504            goto T302;}
505            goto T297;
506            goto T302;
507    T302:;
508            princ_str("||endp(",VV[11]);
509            (void)((*(LnkLI32))((V86)));
510            princ_char(41,VV[11]);
511            V85= cdr((V85));
512            V86= car((V85));
513            goto T301;}
514            goto T297;
515    T297:;
516            princ_str("){",VV[11]);
517            goto T289;
518            goto T291;
519    T291:;
520            princ_str("\n   if(",VV[11]);
521            (void)((*(LnkLI32))(car((V75))));
522            princ_str("==Cnil",VV[11]);
523            {register object V87;
524            object V88;
525            V87= cdr((V75));
526            V88= car((V87));
527            goto T324;
528    T324:;
529            if(!(endp_prop((V87)))){
530            goto T325;}
531            goto T320;
532            goto T325;
533    T325:;
534            princ_str("||",VV[11]);
535            (void)((*(LnkLI32))((V88)));
536            princ_str("==Cnil",VV[11]);
537            V87= cdr((V87));
538            V88= car((V87));
539            goto T324;}
540            goto T320;
541    T320:;
542            princ_str("){",VV[11]);
543            goto T289;
544    T289:;
545            (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));
546            princ_char(125,VV[11]);
547            if((cdr((V73)))==Cnil){
548            goto T342;}
549            princ_str("\n   goto T",VV[11]);
550            (void)((*(LnkLI32))(car((V73))));
551            princ_char(59,VV[11]);
552            princ_str("\nT",VV[11]);
553            (void)((*(LnkLI32))(car((V73))));
554            princ_str(":;",VV[11]);
555            goto T342;
556    T342:;
557            bds_bind(VV[14],VV[20]);
558            setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
559            bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));
560            bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));
561            if(((V71))==Cnil){
562            goto T359;}
563            {object V90;
564            object V91= (V75);
565            if(endp(V91)){
566            V89= Cnil;
567            goto T357;}
568            base[5]=V90=MMcons(Cnil,Cnil);
569            goto T361;
570    T361:;{object V93;
571            V93= symbol_value(VV[19]);
572            (V90->c.c_car)= list(3,VV[18],V93,list(2,VV[15],cadr((V91->c.c_car))));}
573            V91=MMcdr(V91);
574            if(endp(V91)){
575            V89= base[5];
576            goto T357;}
577            V90=MMcdr(V90)=MMcons(Cnil,Cnil);
578            goto T361;}
579            goto T359;
580    T359:;
581            {object V94;
582            object V95= (V75);
583            if(endp(V95)){
584            V89= Cnil;
585            goto T357;}
586            base[5]=V94=MMcons(Cnil,Cnil);
587            goto T363;
588    T363:;
589            (V94->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V95->c.c_car));
590            V95=MMcdr(V95);
591            if(endp(V95)){
592            V89= base[5];
593            goto T357;}
594            V94=MMcdr(V94)=MMcons(Cnil,Cnil);
595            goto T363;}
596            goto T357;
597    T357:;
598            (void)((VFUN_NARGS=3,(*(LnkLI34))((V70),V89,(V76))));
599            if((cdr((VV[16]->s.s_dbind)))==Cnil){
600            bds_unwind1;
601            bds_unwind1;
602            bds_unwind1;
603            goto T352;}
604            princ_str("\n   goto T",VV[11]);
605            (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
606            princ_char(59,VV[11]);
607            princ_str("\nT",VV[11]);
608            (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
609            princ_str(":;",VV[11]);
610            bds_unwind1;
611            bds_unwind1;
612            bds_unwind1;
613            goto T352;
614    T352:;
615            if((symbol_value(VV[12]))==Cnil){
616            goto T376;}
617            princ_str("\n   ",VV[11]);
618            (void)((*(LnkLI32))(car((V75))));
619            princ_str("=MMcdr(",VV[11]);
620            (void)((*(LnkLI32))(car((V75))));
621            princ_str(");",VV[11]);
622            {register object V97;
623            object V98;
624            V97= cdr((V75));
625            V98= car((V97));
626            goto T388;
627    T388:;
628            if(!(endp_prop((V97)))){
629            goto T389;}
630            goto T384;
631            goto T389;
632    T389:;
633            princ_str("\n   ",VV[11]);
634            (void)((*(LnkLI32))((V98)));
635            princ_str("=MMcdr(",VV[11]);
636            (void)((*(LnkLI32))((V98)));
637            princ_str(");",VV[11]);
638            V97= cdr((V97));
639            V98= car((V97));
640            goto T388;}
641            goto T384;
642    T384:;
643            princ_str("\n   if(endp(",VV[11]);
644            (void)((*(LnkLI32))(car((V75))));
645            princ_char(41,VV[11]);
646            {register object V99;
647            object V100;
648            V99= cdr((V75));
649            V100= car((V99));
650            goto T412;
651    T412:;
652            if(!(endp_prop((V99)))){
653            goto T413;}
654            goto T408;
655            goto T413;
656    T413:;
657            princ_str("||endp(",VV[11]);
658            (void)((*(LnkLI32))((V100)));
659            princ_char(41,VV[11]);
660            V99= cdr((V99));
661            V100= car((V99));
662            goto T412;}
663            goto T408;
664    T408:;
665            princ_str("){",VV[11]);
666            goto T374;
667            goto T376;
668    T376:;
669            princ_str("\n   if((",VV[11]);
670            (void)((*(LnkLI32))(car((V75))));
671            princ_str("=MMcdr(",VV[11]);
672            (void)((*(LnkLI32))(car((V75))));
673            princ_str("))==Cnil",VV[11]);
674            {register object V101;
675            object V102;
676            V101= cdr((V75));
677            V102= car((V101));
678            goto T437;
679    T437:;
680            if(!(endp_prop((V101)))){
681            goto T438;}
682            goto T433;
683            goto T438;
684    T438:;
685            princ_str("||(",VV[11]);
686            (void)((*(LnkLI32))((V102)));
687            princ_str("=MMcdr(",VV[11]);
688            (void)((*(LnkLI32))((V102)));
689            princ_str("))==Cnil",VV[11]);
690            V101= cdr((V101));
691            V102= car((V101));
692            goto T437;}
693            goto T433;
694    T433:;
695            princ_str("){",VV[11]);
696            goto T374;
697    T374:;
698            (void)((VFUN_NARGS=2,(*(LnkLI33))((V74),VV[13])));
699            princ_char(125,VV[11]);
700            princ_str("\n   ",VV[11]);
701            if(type_of((V73))!=t_cons)FEwrong_type_argument(Scons,(V73));
702            ((V73))->c.c_cdr = Ct;
703            princ_str("goto T",VV[11]);
704            (void)((*(LnkLI32))(car((V73))));
705            princ_char(59,VV[11]);
706            princ_char(125,VV[11]);
707            {object V103 = (*(LnkLI35))();
708            bds_unwind1;
709            bds_unwind1;
710            VMR9(V103)}}
711            base[0]=base[0];
712            return Cnil;
713    }
714    /*      local entry for function C2MAPCAN       */
715    
716    static object LI10(V107,V108,V109)
717    
718    object V107;object V108;register object V109;
719    {        VMB10 VMS10 VMV10
720            bds_check;
721            goto TTL;
722    TTL:;
723            bds_bind(VV[4],symbol_value(VV[4]));
724            bds_bind(VV[5],small_fixnum(0));
725            {object V110;
726            object V111;
727            object V112;
728            object V113;
729            object V114;
730            setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
731            V110= make_cons(symbol_value(VV[6]),Ct);
732            V111= list(2,VV[7],(*(LnkLI28))());
733            setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
734            V112= list(2,VV[8],symbol_value(VV[9]));
735            {object V115;
736            object V116= (V109);
737            if(endp(V116)){
738            V113= Cnil;
739            goto T470;}
740            base[2]=V115=MMcons(Cnil,Cnil);
741            goto T471;
742    T471:;
743            setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
744            (V115->c.c_car)= list(2,VV[8],symbol_value(VV[9]));
745            V116=MMcdr(V116);
746            if(endp(V116)){
747            V113= base[2];
748            goto T470;}
749            V115=MMcdr(V115)=MMcons(Cnil,Cnil);
750            goto T471;}
751            goto T470;
752    T470:;
753            V114= Cnil;
754            V114= (*(LnkLI29))((V107));
755            base[2]= make_fixnum((long)length((V109)));
756            base[3]= VV[10];
757            base[4]= Ct;
758            vs_top=(vs_base=base+2)+3;
759            Lmake_list();
760            vs_top=sup;
761            V118= vs_base[0];
762            V119= (VFUN_NARGS=2,(*(LnkLI31))((V109),V118));
763            V109= (*(LnkLI30))(/* INLINE-ARGS */V119,(V107));
764            princ_str("\n   {object ",VV[11]);
765            (void)((*(LnkLI32))((V112)));
766            princ_char(59,VV[11]);
767            {register object V120;
768            object V121;
769            V120= (V113);
770            V121= car((V120));
771            goto T490;
772    T490:;
773            if(!(endp_prop((V120)))){
774            goto T491;}
775            goto T486;
776            goto T491;
777    T491:;
778            princ_str("\n   object ",VV[11]);
779            (void)((*(LnkLI32))((V121)));
780            princ_str("= ",VV[11]);
781            (void)((*(LnkLI32))(car((V109))));
782            princ_char(59,VV[11]);
783            {object V122;
784            V122= car((V109));
785            V109= cdr((V109));}
786            V120= cdr((V120));
787            V121= car((V120));
788            goto T490;}
789            goto T486;
790    T486:;
791            if((symbol_value(VV[12]))==Cnil){
792            goto T512;}
793            princ_str("\n   if(endp(",VV[11]);
794            (void)((*(LnkLI32))(car((V113))));
795            princ_char(41,VV[11]);
796            {register object V123;
797            object V124;
798            V123= cdr((V113));
799            V124= car((V123));
800            goto T522;
801    T522:;
802            if(!(endp_prop((V123)))){
803            goto T523;}
804            goto T518;
805            goto T523;
806    T523:;
807            princ_str("||endp(",VV[11]);
808            (void)((*(LnkLI32))((V124)));
809            princ_char(41,VV[11]);
810            V123= cdr((V123));
811            V124= car((V123));
812            goto T522;}
813            goto T518;
814    T518:;
815            princ_str("){",VV[11]);
816            goto T510;
817            goto T512;
818    T512:;
819            princ_str("\n   if(",VV[11]);
820            (void)((*(LnkLI32))(car((V113))));
821            princ_str("==Cnil",VV[11]);
822            {register object V125;
823            object V126;
824            V125= cdr((V113));
825            V126= car((V125));
826            goto T545;
827    T545:;
828            if(!(endp_prop((V125)))){
829            goto T546;}
830            goto T541;
831            goto T546;
832    T546:;
833            princ_str("||",VV[11]);
834            (void)((*(LnkLI32))((V126)));
835            princ_str("==Cnil",VV[11]);
836            V125= cdr((V125));
837            V126= car((V125));
838            goto T545;}
839            goto T541;
840    T541:;
841            princ_str("){",VV[11]);
842            goto T510;
843    T510:;
844            (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));
845            princ_char(125,VV[11]);
846            princ_str("\n   ",VV[11]);
847            (void)((*(LnkLI32))((V111)));
848            princ_char(61,VV[11]);
849            (void)((*(LnkLI32))((V112)));
850            princ_str("=MMcons(Cnil,Cnil);",VV[11]);
851            if((cdr((V110)))==Cnil){
852            goto T569;}
853            princ_str("\n   goto T",VV[11]);
854            (void)((*(LnkLI32))(car((V110))));
855            princ_char(59,VV[11]);
856            princ_str("\nT",VV[11]);
857            (void)((*(LnkLI32))(car((V110))));
858            princ_str(":;",VV[11]);
859            goto T569;
860    T569:;
861            bds_bind(VV[14],list(2,VV[21],cadr((V112))));
862            setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
863            bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));
864            bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));
865            if(((V108))==Cnil){
866            goto T587;}
867            {object V128;
868            object V129= (V113);
869            if(endp(V129)){
870            V127= Cnil;
871            goto T585;}
872            base[5]=V128=MMcons(Cnil,Cnil);
873            goto T589;
874    T589:;{object V131;
875            V131= symbol_value(VV[19]);
876            (V128->c.c_car)= list(3,VV[18],V131,list(2,VV[15],cadr((V129->c.c_car))));}
877            V129=MMcdr(V129);
878            if(endp(V129)){
879            V127= base[5];
880            goto T585;}
881            V128=MMcdr(V128)=MMcons(Cnil,Cnil);
882            goto T589;}
883            goto T587;
884    T587:;
885            {object V132;
886            object V133= (V113);
887            if(endp(V133)){
888            V127= Cnil;
889            goto T585;}
890            base[5]=V132=MMcons(Cnil,Cnil);
891            goto T591;
892    T591:;
893            (V132->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V133->c.c_car));
894            V133=MMcdr(V133);
895            if(endp(V133)){
896            V127= base[5];
897            goto T585;}
898            V132=MMcdr(V132)=MMcons(Cnil,Cnil);
899            goto T591;}
900            goto T585;
901    T585:;
902            (void)((VFUN_NARGS=3,(*(LnkLI34))((V107),V127,(V114))));
903            if((cdr((VV[16]->s.s_dbind)))==Cnil){
904            bds_unwind1;
905            bds_unwind1;
906            bds_unwind1;
907            goto T579;}
908            princ_str("\n   goto T",VV[11]);
909            (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
910            princ_char(59,VV[11]);
911            princ_str("\nT",VV[11]);
912            (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
913            princ_str(":;",VV[11]);
914            bds_unwind1;
915            bds_unwind1;
916            bds_unwind1;
917            goto T579;
918    T579:;
919            if((symbol_value(VV[12]))==Cnil){
920            goto T604;}
921            princ_str("\n   {object cdr_",VV[11]);
922            (void)((*(LnkLI32))((V112)));
923            princ_str("=MMcdr(",VV[11]);
924            (void)((*(LnkLI32))((V112)));
925            princ_str(");while(!endp(cdr_",VV[11]);
926            (void)((*(LnkLI32))((V112)));
927            princ_str(")) {cdr_",VV[11]);
928            (void)((*(LnkLI32))((V112)));
929            princ_str("=MMcdr(cdr_",VV[11]);
930            (void)((*(LnkLI32))((V112)));
931            princ_str(");",VV[11]);
932            (void)((*(LnkLI32))((V112)));
933            princ_str("=MMcdr(",VV[11]);
934            (void)((*(LnkLI32))((V112)));
935            princ_str(");}}",VV[11]);
936            princ_str("\n   ",VV[11]);
937            (void)((*(LnkLI32))(car((V113))));
938            princ_str("=MMcdr(",VV[11]);
939            (void)((*(LnkLI32))(car((V113))));
940            princ_str(");",VV[11]);
941            {register object V135;
942            object V136;
943            V135= cdr((V113));
944            V136= car((V135));
945            goto T632;
946    T632:;
947            if(!(endp_prop((V135)))){
948            goto T633;}
949            goto T628;
950            goto T633;
951    T633:;
952            princ_str("\n   ",VV[11]);
953            (void)((*(LnkLI32))((V136)));
954            princ_str("=MMcdr(",VV[11]);
955            (void)((*(LnkLI32))((V136)));
956            princ_str(");",VV[11]);
957            V135= cdr((V135));
958            V136= car((V135));
959            goto T632;}
960            goto T628;
961    T628:;
962            princ_str("\n   if(endp(",VV[11]);
963            (void)((*(LnkLI32))(car((V113))));
964            princ_char(41,VV[11]);
965            {register object V137;
966            object V138;
967            V137= cdr((V113));
968            V138= car((V137));
969            goto T656;
970    T656:;
971            if(!(endp_prop((V137)))){
972            goto T657;}
973            goto T652;
974            goto T657;
975    T657:;
976            princ_str("||endp(",VV[11]);
977            (void)((*(LnkLI32))((V138)));
978            princ_char(41,VV[11]);
979            V137= cdr((V137));
980            V138= car((V137));
981            goto T656;}
982            goto T652;
983    T652:;
984            princ_str("){",VV[11]);
985            goto T602;
986            goto T604;
987    T604:;
988            princ_str("\n   while(MMcdr(",VV[11]);
989            (void)((*(LnkLI32))((V112)));
990            princ_str(")!=Cnil)",VV[11]);
991            (void)((*(LnkLI32))((V112)));
992            princ_str("=MMcdr(",VV[11]);
993            (void)((*(LnkLI32))((V112)));
994            princ_str(");",VV[11]);
995            princ_str("\n   if((",VV[11]);
996            (void)((*(LnkLI32))(car((V113))));
997            princ_str("=MMcdr(",VV[11]);
998            (void)((*(LnkLI32))(car((V113))));
999            princ_str("))==Cnil",VV[11]);
1000            {register object V139;
1001            object V140;
1002            V139= cdr((V113));
1003            V140= car((V139));
1004            goto T689;
1005    T689:;
1006            if(!(endp_prop((V139)))){
1007            goto T690;}
1008            goto T685;
1009            goto T690;
1010    T690:;
1011            princ_str("||(",VV[11]);
1012            (void)((*(LnkLI32))((V140)));
1013            princ_str("=MMcdr(",VV[11]);
1014            (void)((*(LnkLI32))((V140)));
1015            princ_str("))==Cnil",VV[11]);
1016            V139= cdr((V139));
1017            V140= car((V139));
1018            goto T689;}
1019            goto T685;
1020    T685:;
1021            princ_str("){",VV[11]);
1022            goto T602;
1023    T602:;
1024            princ_str("\n   ",VV[11]);
1025            (void)((*(LnkLI32))((V111)));
1026            princ_char(61,VV[11]);
1027            (void)((*(LnkLI32))((V111)));
1028            princ_str("->c.c_cdr;",VV[11]);
1029            (void)((VFUN_NARGS=2,(*(LnkLI33))((V111),VV[13])));
1030            princ_char(125,VV[11]);
1031            princ_str("\n   ",VV[11]);
1032            if(type_of((V110))!=t_cons)FEwrong_type_argument(Scons,(V110));
1033            ((V110))->c.c_cdr = Ct;
1034            princ_str("goto T",VV[11]);
1035            (void)((*(LnkLI32))(car((V110))));
1036            princ_char(59,VV[11]);
1037            princ_char(125,VV[11]);
1038            {object V141 = (*(LnkLI35))();
1039            bds_unwind1;
1040            bds_unwind1;
1041            VMR10(V141)}}
1042            base[0]=base[0];
1043            return Cnil;
1044    }
1045    /*      local entry for function PUSH-CHANGED-VARS      */
1046    
1047    static object LI11(V144,V145)
1048    
1049    object V144;object V145;
1050    {        VMB11 VMS11 VMV11
1051            goto TTL;
1052    TTL:;
1053            {register object V146;
1054            object V147;
1055            V146= Cnil;
1056            V147= make_cons((V145),Cnil);
1057            {register object V148;
1058            register object V149;
1059            V148= (V144);
1060            V149= car((V148));
1061            goto T728;
1062    T728:;
1063            if(!(endp_prop((V148)))){
1064            goto T729;}
1065            {object V150 = reverse((V146));
1066            VMR11(V150)}
1067            goto T729;
1068    T729:;
1069            if(!(type_of((V149))==t_cons)){
1070            goto T735;}
1071            if(!((car((V149)))==(VV[22]))){
1072            goto T735;}
1073            if(((*(LnkLI36))(cadr((V149)),(V147)))==Cnil){
1074            goto T735;}
1075            {register object V151;
1076            V151= list(2,VV[7],(*(LnkLI28))());
1077            princ_str("\n   ",VV[11]);
1078            (void)((*(LnkLI32))((V151)));
1079            princ_str("= ",VV[11]);
1080            (void)((*(LnkLI32))((V149)));
1081            princ_char(59,VV[11]);
1082            {register object V152;
1083            V152= (V151);
1084            V146= make_cons((V152),(V146));
1085            goto T733;}}
1086            goto T735;
1087    T735:;
1088            {register object V153;
1089            V153= (V149);
1090            V146= make_cons((V153),(V146));}
1091            goto T733;
1092    T733:;
1093            V148= cdr((V148));
1094            V149= car((V148));
1095            goto T728;}}
1096            base[0]=base[0];
1097            return Cnil;
1098    }
1099    static object  LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)(void *)&LnkLI36,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
1100    static object  LnkTLI35(){return call_proc0(VV[35],(void **)(void *)&LnkLI35);} /* CLOSE-INLINE-BLOCKS */
1101    static object  LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[34],(void **)(void *)&LnkLI34,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
1102    static object  LnkTLI33(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[33],(void **)(void *)&LnkLI33,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
1103    static object  LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)(void *)&LnkLI32,1,first,ap);va_end(ap);return V1;} /* WT1 */
1104    static object  LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[31],(void **)(void *)&LnkLI31,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
1105    static object  LnkTLI30(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[30],(void **)(void *)&LnkLI30,2,first,ap);va_end(ap);return V1;} /* PUSH-CHANGED-VARS */
1106    static object  LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[29],(void **)(void *)&LnkLI29,1,first,ap);va_end(ap);return V1;} /* SAVE-FUNOB */
1107    static object  LnkTLI28(){return call_proc0(VV[28],(void **)(void *)&LnkLI28);} /* VS-PUSH */
1108    static object  LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)(void *)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* C1ARGS */
1109    static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* COPY-INFO */
1110    static object  LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)(void *)&LnkLI25,1,first,ap);va_end(ap);return V1;} /* C1FUNOB */
1111    static object  LnkTLI24(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[24],(void **)(void *)&LnkLI24,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
1112    static object  LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[23],(void **)(void *)&LnkLI23,3,first,ap);va_end(ap);return V1;} /* C1MAP-FUNCTIONS */
1113    
1114    #ifdef SYSTEM_SPECIAL_INIT
1115    SYSTEM_SPECIAL_INIT
1116    #endif
1117    

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