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

Diff of /gcl/cmpnew/gcl_cmpmulti.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_cmpmulti.h"
4    void init_gcl_cmpmulti(){do_init(VV);}
5    /*      local entry for function C1MULTIPLE-VALUE-CALL  */
6    
7    static object LI1(V2)
8    
9    register object V2;
10    {        VMB1 VMS1 VMV1
11            goto TTL;
12    TTL:;
13            {object V3;
14            object V4;
15            V3= Cnil;
16            V4= Cnil;
17            if(!(endp_prop((V2)))){
18            goto T3;}
19            (void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0)));
20            goto T3;
21    T3:;
22            if(!(endp_prop(cdr((V2))))){
23            goto T7;}
24            {object V5 = (*(LnkLI39))((V2));
25            VMR1(V5)}
26            goto T7;
27    T7:;
28            V4= (*(LnkLI40))(car((V2)));
29            base[0]= cadr((V4));
30            vs_top=(vs_base=base+0)+1;
31            (void) (*Lnk41)();
32            vs_top=sup;
33            V3= vs_base[0];
34            V2= (*(LnkLI42))(cdr((V2)),(V3));
35            {object V6 = list(4,VV[0],(V3),(V4),(V2));
36            VMR1(V6)}}
37            base[0]=base[0];
38            return Cnil;
39    }
40    /*      local entry for function C2MULTIPLE-VALUE-CALL  */
41    
42    static object LI2(V9,V10)
43    
44    register object V9;object V10;
45    {        VMB2 VMS2 VMV2
46            bds_check;
47            goto TTL;
48    TTL:;
49            {register object V11;
50            register object V12;
51            bds_bind(VV[1],symbol_value(VV[1]));
52            V11= Cnil;
53            V12= Cnil;
54            if(!(endp_prop(cdr((V10))))){
55            goto T19;}
56            V11= (*(LnkLI43))((V9));
57            bds_bind(VV[2],VV[3]);
58            V13= (*(LnkLI44))(car((V10)));
59            bds_unwind1;
60            {object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11)));
61            bds_unwind1;
62            VMR2(V14)}
63            goto T19;
64    T19:;
65            setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
66            V12= symbol_value(VV[5]);
67            V11= (*(LnkLI43))((V9));
68            princ_str("\n   {object *V",VV[6]);
69            (void)((*(LnkLI46))((V12)));
70            princ_str("=base+",VV[6]);
71            (void)((*(LnkLI46))((VV[1]->s.s_dbind)));
72            princ_char(59,VV[6]);
73            setq(VV[7],Ct);
74            {register object V15;
75            register object V16;
76            V15= (V10);
77            V16= car((V15));
78            goto T41;
79    T41:;
80            if(!(endp_prop((V15)))){
81            goto T42;}
82            goto T37;
83            goto T42;
84    T42:;
85            bds_bind(VV[2],VV[3]);
86            V17= (*(LnkLI47))((V16),(V12));
87            bds_unwind1;
88            princ_str("\n   while(vs_base<vs_top)",VV[6]);
89            princ_str("\n   {V",VV[6]);
90            (void)((*(LnkLI46))((V12)));
91            princ_str("[0]=vs_base[0];V",VV[6]);
92            (void)((*(LnkLI46))((V12)));
93            princ_str("++;vs_base++;}",VV[6]);
94            V15= cdr((V15));
95            V16= car((V15));
96            goto T41;}
97            goto T37;
98    T37:;
99            princ_str("\n   vs_base=base+",VV[6]);
100            (void)((*(LnkLI46))((VV[1]->s.s_dbind)));
101            princ_str(";vs_top=V",VV[6]);
102            (void)((*(LnkLI46))((V12)));
103            princ_char(59,VV[6]);
104            setq(VV[7],Ct);
105            (void)((VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))));
106            princ_char(125,VV[6]);
107            {object V18 = Cnil;
108            bds_unwind1;
109            VMR2(V18)}}
110            base[0]=base[0];
111            return Cnil;
112    }
113    /*      local entry for function C1MULTIPLE-VALUE-PROG1 */
114    
115    static object LI3(V20)
116    
117    register object V20;
118    {        VMB3 VMS3 VMV3
119            goto TTL;
120    TTL:;
121            {object V21;
122            object V22;
123            V21= (VFUN_NARGS=0,(*(LnkLI48))());
124            V22= Cnil;
125            if(!(endp_prop((V20)))){
126            goto T72;}
127            (void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0)));
128            goto T72;
129    T72:;
130            V22= (*(LnkLI49))(car((V20)),(V21));
131            V20= (*(LnkLI42))(cdr((V20)),(V21));
132            {object V23 = list(4,VV[8],(V21),(V22),(V20));
133            VMR3(V23)}}
134            base[0]=base[0];
135            return Cnil;
136    }
137    /*      local entry for function C2MULTIPLE-VALUE-PROG1 */
138    
139    static object LI4(V26,V27)
140    
141    object V26;object V27;
142    {        VMB4 VMS4 VMV4
143            bds_check;
144            goto TTL;
145    TTL:;
146            {object V28;
147            register object V29;
148            object V30;
149            setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
150            V28= symbol_value(VV[5]);
151            setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
152            V29= symbol_value(VV[5]);
153            V30= Cnil;
154            bds_bind(VV[2],VV[3]);
155            bds_bind(VV[9],Cnil);
156            (void)((*(LnkLI44))((V26)));
157            V30= (VV[9]->s.s_dbind);
158            bds_unwind1;
159            bds_unwind1;
160            princ_str("\n   {object *V",VV[6]);
161            (void)((*(LnkLI46))((V29)));
162            princ_str("=vs_top;object *V",VV[6]);
163            (void)((*(LnkLI46))((V28)));
164            princ_str("=vs_base; vs_base=V",VV[6]);
165            (void)((*(LnkLI46))((V29)));
166            princ_char(59,VV[6]);
167            {register object V31;
168            register object V32;
169            V31= (V27);
170            V32= car((V31));
171            goto T99;
172    T99:;
173            if(!(endp_prop((V31)))){
174            goto T100;}
175            goto T95;
176            goto T100;
177    T100:;
178            bds_bind(VV[2],VV[10]);
179            V33= (*(LnkLI47))((V32),(V29));
180            bds_unwind1;
181            V31= cdr((V31));
182            V32= car((V31));
183            goto T99;}
184            goto T95;
185    T95:;
186            princ_str("\n   vs_base=V",VV[6]);
187            (void)((*(LnkLI46))((V28)));
188            princ_str(";vs_top=V",VV[6]);
189            (void)((*(LnkLI46))((V29)));
190            princ_str(";}",VV[6]);
191            if(((V30))==Cnil){
192            goto T118;}
193            V34= car((V30));
194            goto T116;
195            goto T118;
196    T118:;
197            V34= Cnil;
198            goto T116;
199    T116:;
200            {object V35 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,V34));
201            VMR4(V35)}}
202            base[0]=base[0];
203            return Cnil;
204    }
205    /*      local entry for function C1VALUES       */
206    
207    static object LI5(V37)
208    
209    register object V37;
210    {        VMB5 VMS5 VMV5
211            goto TTL;
212    TTL:;
213            {object V38;
214            V38= (VFUN_NARGS=0,(*(LnkLI48))());
215            if(((V37))==Cnil){
216            goto T122;}
217            if((cdr((V37)))!=Cnil){
218            goto T122;}
219            if(!(type_of(car((V37)))==t_cons)){
220            goto T121;}
221            if(!(type_of(caar((V37)))==t_symbol)){
222            goto T122;}
223            {register object V39;
224            V39= (*(LnkLI51))(caar((V37)));
225            if((V39)==Cnil){
226            goto T122;}
227            if(!(type_of((V39))!=t_cons)){
228            goto T133;}
229            goto T131;
230            goto T133;
231    T133:;
232            if(type_of((V39))==t_cons){
233            goto T135;}
234            goto T122;
235            goto T135;
236    T135:;
237            if((cdr((V39)))==Cnil){
238            goto T137;}
239            goto T122;
240            goto T137;
241    T137:;
242            if(!((((VV[12])==(car((V39)))?Ct:Cnil))==Cnil)){
243            goto T122;}}
244            goto T131;
245    T131:;
246            goto T121;
247    T121:;
248            {object V40 = (*(LnkLI52))(car((V37)));
249            VMR5(V40)}
250            goto T122;
251    T122:;
252            V37= (*(LnkLI42))((V37),(V38));
253            {object V41 = list(3,VV[13],(V38),(V37));
254            VMR5(V41)}}
255            base[0]=base[0];
256            return Cnil;
257    }
258    /*      local entry for function C2VALUES       */
259    
260    static object LI6(V43)
261    
262    register object V43;
263    {        VMB6 VMS6 VMV6
264            bds_check;
265            goto TTL;
266    TTL:;
267            {object V44;
268            V44= symbol_value(VV[1]);
269            bds_bind(VV[1],symbol_value(VV[1]));
270            if(!((symbol_value(VV[2]))==(VV[14]))){
271            goto T142;}
272            if((cdr((V43)))==Cnil){
273            goto T142;}
274            if(!(type_of(symbol_value(VV[15]))==t_cons)){
275            goto T142;}
276            if(!((VV[16])==(car(symbol_value(VV[15]))))){
277            goto T142;}
278            (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],cadr(symbol_value(VV[15])))));
279            goto T142;
280    T142:;
281            if(((V43))!=Cnil){
282            goto T153;}
283            princ_str("\n   vs_base=vs_top=base+",VV[6]);
284            (void)((*(LnkLI46))((V44)));
285            princ_char(59,VV[6]);
286            setq(VV[7],Ct);
287            princ_str("\n   vs_base[0]=Cnil;",VV[6]);
288            goto T151;
289            goto T153;
290    T153:;
291            {register object V45;
292            register object V46;
293            V45= (V43);
294            V46= car((V45));
295            goto T166;
296    T166:;
297            if(!(endp_prop((V45)))){
298            goto T167;}
299            goto T162;
300            goto T167;
301    T167:;
302            base[2]= list(2,VV[18],(*(LnkLI54))());
303            bds_bind(VV[2],base[2]);
304            V47= (*(LnkLI44))((V46));
305            bds_unwind1;
306            V45= cdr((V45));
307            V46= car((V45));
308            goto T166;}
309            goto T162;
310    T162:;
311            princ_str("\n   vs_top=(vs_base=base+",VV[6]);
312            (void)((*(LnkLI46))((V44)));
313            princ_str(")+",VV[6]);
314            V48= number_minus((VV[1]->s.s_dbind),(V44));
315            (void)((*(LnkLI46))(/* INLINE-ARGS */V48));
316            princ_char(59,VV[6]);
317            setq(VV[7],Ct);
318            goto T151;
319    T151:;
320            V49 = make_fixnum((long)length((V43)));
321            V50= make_cons(VV[13],V49);
322            {object V51 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,/* INLINE-ARGS */V50));
323            bds_unwind1;
324            VMR6(V51)}}
325            base[0]=base[0];
326            return Cnil;
327    }
328    /*      local entry for function C1MULTIPLE-VALUE-SETQ  */
329    
330    static object LI7(V53)
331    
332    object V53;
333    {        VMB7 VMS7 VMV7
334            goto TTL;
335    TTL:;
336            {object V54;
337            register object V55;
338            V54= (VFUN_NARGS=0,(*(LnkLI48))());
339            V55= Cnil;
340            if(endp_prop((V53))){
341            goto T188;}
342            if(!(endp_prop(cdr((V53))))){
343            goto T187;}
344            goto T188;
345    T188:;
346            (void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0)));
347            goto T187;
348    T187:;
349            if(endp_prop(cddr((V53)))){
350            goto T192;}
351            V56 = make_fixnum((long)length((V53)));
352            (void)((*(LnkLI55))(VV[19],small_fixnum(2),V56));
353            goto T192;
354    T192:;
355            {register object V57;
356            register object V58;
357            V57= car((V53));
358            V58= car((V57));
359            goto T199;
360    T199:;
361            if(!(endp_prop((V57)))){
362            goto T200;}
363            goto T195;
364            goto T200;
365    T200:;
366            if(type_of((V58))==t_symbol){
367            goto T204;}
368            (void)((VFUN_NARGS=2,(*(LnkLI56))(VV[20],(V58))));
369            goto T204;
370    T204:;
371            base[3]= (V58);
372            vs_top=(vs_base=base+3)+1;
373            Lconstantp();
374            vs_top=sup;
375            if((vs_base[0])==Cnil){
376            goto T207;}
377            (void)((VFUN_NARGS=2,(*(LnkLI56))(VV[21],(V58))));
378            goto T207;
379    T207:;
380            V58= (*(LnkLI57))((V58));
381            {register object V59;
382            V59= (V58);
383            V55= make_cons((V59),(V55));}
384            {register object V60;
385            register object V61;
386            register object V62;
387            V60= car((V58));
388            V61= (V54);
389            V63= structure_ref((V61),VV[22],0);
390            V62= make_cons((V60),/* INLINE-ARGS */V63);
391            (void)(structure_set((V61),VV[22],0,(V62)));}
392            V57= cdr((V57));
393            V58= car((V57));
394            goto T199;}
395            goto T195;
396    T195:;
397            V64= reverse((V55));
398            {object V65 = list(4,VV[19],(V54),/* INLINE-ARGS */V64,(*(LnkLI49))(cadr((V53)),(V54)));
399            VMR7(V65)}}
400            base[0]=base[0];
401            return Cnil;
402    }
403    /*      local entry for function MULTIPLE-VALUE-CHECK   */
404    
405    static object LI8(V68,V69)
406    
407    object V68;object V69;
408    {        VMB8 VMS8 VMV8
409            goto TTL;
410    TTL:;
411            if((cdr((V68)))!=Cnil){
412            goto T225;}
413            {object V70 = Cnil;
414            VMR8(V70)}
415            goto T225;
416    T225:;
417            if((car((V69)))==(VV[23])){
418            goto T227;}
419            {object V71 = Cnil;
420            VMR8(V71)}
421            goto T227;
422    T227:;
423            {object V72;
424            V72= caddr((V69));
425            if(!(type_of((V72))==t_symbol)){
426            goto T231;}
427            {register object V73;
428            V73= get((V72),VV[24],Cnil);
429            if((V73)==Cnil){
430            goto T231;}
431            if(type_of((V73))==t_cons){
432            goto T236;}
433            goto T231;
434            goto T236;
435    T236:;
436            if(((equal((V73),VV[25])?Ct:Cnil))==Cnil){
437            goto T238;}
438            goto T231;
439            goto T238;
440    T238:;
441            if(!((cdr((V73)))==Cnil)){
442            goto T231;}}
443            {object V74 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72)));
444            VMR8(V74)}
445            goto T231;
446    T231:;
447            {object V75 = Cnil;
448            VMR8(V75)}}
449            return Cnil;
450    }
451    /*      local entry for function C2MULTIPLE-VALUE-SETQ  */
452    
453    static object LI9(V78,V79)
454    
455    register object V78;object V79;
456    {        VMB9 VMS9 VMV9
457            bds_check;
458            goto TTL;
459    TTL:;
460            {object V80;
461            V80= Cnil;
462            (void)((*(LnkLI58))((V78),(V79)));
463            bds_bind(VV[2],VV[3]);
464            bds_bind(VV[9],Cnil);
465            (void)((*(LnkLI44))((V79)));
466            V80= (VV[9]->s.s_dbind);
467            bds_unwind1;
468            bds_unwind1;
469            if(symbol_value(VV[27])==Cnil){
470            goto T245;}
471            (void)((*(LnkLI59))(Cnil,car((V80))));
472            goto T245;
473    T245:;
474            {register object V81;
475            V81= (V78);
476            goto T248;
477    T248:;
478            if(!(endp_prop((V81)))){
479            goto T249;}
480            goto T246;
481            goto T249;
482    T249:;
483            {register object V82;
484            V82= car((V81));
485            princ_str("\n   if(vs_base<vs_top){",VV[6]);
486            (void)((*(LnkLI60))(VV[11],car((V82)),cadr((V82))));
487            if(endp_prop(cdr((V81)))){
488            goto T258;}
489            princ_str("\n   vs_base++;",VV[6]);
490            goto T258;
491    T258:;
492            princ_str("\n   }else{",VV[6]);
493            (void)((*(LnkLI60))(Cnil,car((V82)),cadr((V82))));
494            princ_char(125,VV[6]);}
495            V81= cdr((V81));
496            goto T248;}
497            goto T246;
498    T246:;
499            if(((V78))!=Cnil){
500            goto T270;}
501            princ_str("\n   if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]);
502            {object V83 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11]));
503            VMR9(V83)}
504            goto T270;
505    T270:;
506            if((symbol_value(VV[28]))==(VV[29])){
507            goto T274;}
508            princ_str("\n   ",VV[6]);
509            (void)((*(LnkLI61))());
510            goto T274;
511    T274:;
512            V84= make_cons(VV[30],car((V78)));
513            {object V85 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V84));
514            VMR9(V85)}}
515            base[0]=base[0];
516            return Cnil;
517    }
518    /*      local entry for function C1MULTIPLE-VALUE-BIND  */
519    
520    static object LI10(V87)
521    
522    object V87;
523    {        VMB10 VMS10 VMV10
524            bds_check;
525            goto TTL;
526    TTL:;
527            {object V88;
528            register object V89;
529            register object V90;
530            object V91;
531            object V92;
532            object V93;
533            object V94;
534            object V95;
535            object V96;
536            V88= (VFUN_NARGS=0,(*(LnkLI48))());
537            V89= Cnil;
538            V90= Cnil;
539            V91= Cnil;
540            V92= Cnil;
541            V93= Cnil;
542            V94= Cnil;
543            V95= Cnil;
544            V96= Cnil;
545            bds_bind(VV[31],symbol_value(VV[31]));
546            if(endp_prop((V87))){
547            goto T288;}
548            if(!(endp_prop(cdr((V87))))){
549            goto T287;}
550            goto T288;
551    T288:;
552            V97 = make_fixnum((long)length((V87)));
553            (void)((*(LnkLI38))(VV[32],small_fixnum(2),V97));
554            goto T287;
555    T287:;
556            base[2]= cddr((V87));
557            base[3]= Cnil;
558            vs_top=(vs_base=base+2)+2;
559            (void) (*Lnk62)();
560            if(vs_base<vs_top){
561            V95= vs_base[0];
562            vs_base++;
563            }else{
564            V95= Cnil;}
565            if(vs_base<vs_top){
566            V92= vs_base[0];
567            vs_base++;
568            }else{
569            V92= Cnil;}
570            if(vs_base<vs_top){
571            V94= vs_base[0];
572            vs_base++;
573            }else{
574            V94= Cnil;}
575            if(vs_base<vs_top){
576            V93= vs_base[0];
577            vs_base++;
578            }else{
579            V93= Cnil;}
580            if(vs_base<vs_top){
581            V96= vs_base[0];
582            }else{
583            V96= Cnil;}
584            vs_top=sup;
585            (void)((*(LnkLI63))((V92)));
586            {register object V98;
587            register object V99;
588            V98= car((V87));
589            V99= car((V98));
590            goto T301;
591    T301:;
592            if(!(endp_prop((V98)))){
593            goto T302;}
594            goto T297;
595            goto T302;
596    T302:;
597            {object V100;
598            V100= (*(LnkLI64))((V99),(V92),(V93),(V94));
599            V90= make_cons(V99,(V90));
600            V89= make_cons(V100,(V89));}
601            V98= cdr((V98));
602            V99= car((V98));
603            goto T301;}
604            goto T297;
605    T297:;
606            V91= (*(LnkLI49))(cadr((V87)),(V88));
607            {register object V103;
608            object V104;
609            V103= reverse((V89));
610            V104= car((V103));
611            goto T322;
612    T322:;
613            if(!(endp_prop((V103)))){
614            goto T323;}
615            goto T318;
616            goto T323;
617    T323:;
618            (VV[31]->s.s_dbind)= make_cons(V104,(VV[31]->s.s_dbind));
619            V103= cdr((V103));
620            V104= car((V103));
621            goto T322;}
622            goto T318;
623    T318:;
624            (void)((*(LnkLI65))((V90),(V94),(V93)));
625            V95= (*(LnkLI66))((V96),(V95));
626            (void)((*(LnkLI67))((V88),cadr((V95))));
627            V106= structure_ref(cadr((V95)),VV[22],2);
628            (void)(structure_set((V88),VV[22],2,/* INLINE-ARGS */V106));
629            {register object V107;
630            object V108;
631            V107= (V89);
632            V108= car((V107));
633            goto T343;
634    T343:;
635            if(!(endp_prop((V107)))){
636            goto T344;}
637            goto T339;
638            goto T344;
639    T344:;
640            (void)((*(LnkLI68))((V108)));
641            V107= cdr((V107));
642            V108= car((V107));
643            goto T343;}
644            goto T339;
645    T339:;
646            {object V109 = list(5,VV[32],(V88),reverse((V89)),(V91),(V95));
647            bds_unwind1;
648            VMR10(V109)}}
649            base[0]=base[0];
650            return Cnil;
651    }
652    /*      local entry for function C2MULTIPLE-VALUE-BIND  */
653    
654    static object LI11(V113,V114,V115)
655    
656    object V113;object V114;object V115;
657    {        VMB11 VMS11 VMV11
658            bds_check;
659            goto TTL;
660    TTL:;
661            {object V116;
662            register object V117;
663            object V118;
664            V116= Cnil;
665            V117= Cnil;
666            bds_bind(VV[33],symbol_value(VV[33]));
667            bds_bind(VV[1],symbol_value(VV[1]));
668            bds_bind(VV[34],symbol_value(VV[34]));
669            bds_bind(VV[35],symbol_value(VV[35]));
670            V118= Cnil;
671            (void)((*(LnkLI58))((V113),(V114)));
672            {register object V119;
673            register object V120;
674            V119= (V113);
675            V120= car((V119));
676            goto T362;
677    T362:;
678            if(!(endp_prop((V119)))){
679            goto T363;}
680            goto T358;
681            goto T363;
682    T363:;
683            {object V121;
684            V121= (*(LnkLI69))((V120));
685            if(((V121))==Cnil){
686            goto T370;}
687            {object V122;
688            setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
689            V122= symbol_value(VV[5]);
690            (void)(structure_set((V120),VV[30],1,(V121)));
691            (void)(structure_set((V120),VV[30],4,(V122)));
692            princ_str("\n   ",VV[6]);
693            if(((V116))!=Cnil){
694            goto T377;}
695            princ_char(123,VV[6]);
696            V116= Ct;
697            goto T377;
698    T377:;
699            base[5]= (V120);
700            vs_top=(vs_base=base+5)+1;
701            (void) (*Lnk70)();
702            vs_top=sup;
703            goto T367;}
704            goto T370;
705    T370:;
706            V123= (*(LnkLI54))();
707            (void)(structure_set((V120),VV[30],2,/* INLINE-ARGS */V123));}
708            goto T367;
709    T367:;
710            V119= cdr((V119));
711            V120= car((V119));
712            goto T362;}
713            goto T358;
714    T358:;
715            bds_bind(VV[2],VV[3]);
716            bds_bind(VV[9],Cnil);
717            (void)((*(LnkLI44))((V114)));
718            V118= (VV[9]->s.s_dbind);
719            bds_unwind1;
720            bds_unwind1;
721            if(symbol_value(VV[27])==Cnil){
722            goto T392;}
723            (void)((*(LnkLI59))(Cnil,car((V118))));
724            goto T392;
725    T392:;
726            bds_bind(VV[34],(VV[34]->s.s_dbind));
727            bds_bind(VV[33],(VV[33]->s.s_dbind));
728            bds_bind(VV[35],(VV[35]->s.s_dbind));
729            {register object V124;
730            V124= (V113);
731            goto T395;
732    T395:;
733            if(!(endp_prop((V124)))){
734            goto T396;}
735            bds_unwind1;
736            bds_unwind1;
737            bds_unwind1;
738            goto T393;
739            goto T396;
740    T396:;
741            {object V125;
742            setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));
743            V125= make_cons(symbol_value(VV[36]),Cnil);
744            V117= make_cons((V125),(V117));}
745            princ_str("\n   if(vs_base>=vs_top){",VV[6]);
746            (void)((*(LnkLI61))());
747            if(type_of(car((V117)))!=t_cons)FEwrong_type_argument(Scons,car((V117)));
748            (car((V117)))->c.c_cdr = Ct;
749            (void)(car((V117)));
750            princ_str("goto T",VV[6]);
751            (void)((*(LnkLI46))(car(car((V117)))));
752            princ_char(59,VV[6]);
753            princ_char(125,VV[6]);
754            (void)((*(LnkLI71))(car((V124)),VV[37]));
755            if(endp_prop(cdr((V124)))){
756            goto T415;}
757            princ_str("\n   vs_base++;",VV[6]);
758            goto T415;
759    T415:;
760            V124= cdr((V124));
761            goto T395;}
762            goto T393;
763    T393:;
764            princ_str("\n   ",VV[6]);
765            (void)((*(LnkLI61))());
766            {object V126;
767            setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));
768            V126= make_cons(symbol_value(VV[36]),Cnil);
769            princ_str("\n   ",VV[6]);
770            if(type_of((V126))!=t_cons)FEwrong_type_argument(Scons,(V126));
771            ((V126))->c.c_cdr = Ct;
772            princ_str("goto T",VV[6]);
773            (void)((*(LnkLI46))(car((V126))));
774            princ_char(59,VV[6]);
775            V117= reverse((V117));
776            {register object V127;
777            object V128;
778            V127= (V113);
779            V128= car((V127));
780            goto T439;
781    T439:;
782            if(!(endp_prop((V127)))){
783            goto T440;}
784            goto T435;
785            goto T440;
786    T440:;
787            if((cdr(car((V117))))==Cnil){
788            goto T444;}
789            princ_str("\n   goto T",VV[6]);
790            (void)((*(LnkLI46))(car(car((V117)))));
791            princ_char(59,VV[6]);
792            princ_str("\nT",VV[6]);
793            (void)((*(LnkLI46))(car(car((V117)))));
794            princ_str(":;",VV[6]);
795            goto T444;
796    T444:;
797            {object V129;
798            V129= car((V117));
799            V117= cdr((V117));}
800            (void)((*(LnkLI71))((V128),Cnil));
801            V127= cdr((V127));
802            V128= car((V127));
803            goto T439;}
804            goto T435;
805    T435:;
806            if((cdr((V126)))==Cnil){
807            goto T424;}
808            princ_str("\n   goto T",VV[6]);
809            (void)((*(LnkLI46))(car((V126))));
810            princ_char(59,VV[6]);
811            princ_str("\nT",VV[6]);
812            (void)((*(LnkLI46))(car((V126))));
813            princ_str(":;",VV[6]);}
814            goto T424;
815    T424:;
816            base[4]= (V115);
817            vs_top=(vs_base=base+4)+1;
818            (void) (*Lnk72)();
819            vs_top=sup;
820            if(((V116))==Cnil){
821            goto T476;}
822            princ_char(125,VV[6]);
823            {object V130 = Cnil;
824            bds_unwind1;
825            bds_unwind1;
826            bds_unwind1;
827            bds_unwind1;
828            VMR11(V130)}
829            goto T476;
830    T476:;
831            {object V131 = Cnil;
832            bds_unwind1;
833            bds_unwind1;
834            bds_unwind1;
835            bds_unwind1;
836            VMR11(V131)}}
837            base[0]=base[0];
838            return Cnil;
839    }
840    static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* C2EXPR */
841    static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
842    static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* WT-VAR-DECL */
843    static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
844    static object  LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */
845    static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
846    static object  LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
847    static object  LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
848    static object  LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */
849    static object  LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[63],(void **)(void *)&LnkLI63,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
850    static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* C1BODY */
851    static object  LnkTLI61(){return call_proc0(VV[61],(void **)(void *)&LnkLI61);} /* RESET-TOP */
852    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;} /* SET-VAR */
853    static object  LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */
854    static object  LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* MULTIPLE-VALUE-CHECK */
855    static object  LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* C1VREF */
856    static object  LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[56],(void **)(void *)&LnkLI56,first,ap);va_end(ap);return V1;} /* CMPERR */
857    static object  LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
858    static object  LnkTLI54(){return call_proc0(VV[54],(void **)(void *)&LnkLI54);} /* VS-PUSH */
859    static object  LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CMPWARN */
860    static object  LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
861    static object  LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* GET-RETURN-TYPE */
862    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;} /* UNWIND-EXIT */
863    static object  LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
864    static object  LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[48],(void **)(void *)&LnkLI48,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
865    static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C2EXPR-TOP* */
866    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;} /* WT1 */
867    static object  LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)(void *)&LnkLI45,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
868    static object  LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[44],(void **)(void *)&LnkLI44,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
869    static object  LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)(void *)&LnkLI43,1,first,ap);va_end(ap);return V1;} /* SAVE-FUNOB */
870    static object  LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,2,first,ap);va_end(ap);return V1;} /* C1ARGS */
871    static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* COPY-INFO */
872    static object  LnkTLI40(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[40],(void **)(void *)&LnkLI40,1,first,ap);va_end(ap);return V1;} /* C1FUNOB */
873    static object  LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[39],(void **)(void *)&LnkLI39,1,first,ap);va_end(ap);return V1;} /* C1FUNCALL */
874    static object  LnkTLI38(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[38],(void **)(void *)&LnkLI38,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
875    
876    #ifdef SYSTEM_SPECIAL_INIT
877    SYSTEM_SPECIAL_INIT
878    #endif
879    

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