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

Diff of /gcl/cmpnew/gcl_cmptag.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_cmptag.h"
4    void init_gcl_cmptag(){do_init(VV);}
5    /*      local entry for function MAKE-TAG       */
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            object V6;
17            object V7;
18            object V8;
19            va_start(ap,first);
20            narg= narg - 0;
21            {
22            parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap);
23            V1=(Vcs[0]);
24            V2=(Vcs[1]);
25            V3=(Vcs[2]);
26            V4=(Vcs[3]);
27            V5=(Vcs[4]);
28            V6=(Vcs[5]);
29            V7=(Vcs[6]);
30            V8=(Vcs[7]);
31            base[0]= VV[0];
32            base[1]= (V1);
33            base[2]= (V2);
34            base[3]= (V3);
35            base[4]= (V4);
36            base[5]= (V5);
37            base[6]= (V6);
38            base[7]= (V7);
39            base[8]= (V8);
40            vs_top=(vs_base=base+0)+9;
41            siLmake_structure();
42            vs_top=sup;
43            {object V9 = vs_base[0];
44            VMR1(V9)}
45            va_end(ap);
46            base[0]=base[0];
47            return Cnil;}
48            }}
49    /*      local entry for function JUMPS-TO-P     */
50    
51    static object LI2(V12,V13)
52    
53    register object V12;object V13;
54    {        VMB2 VMS2 VMV2
55            goto TTL;
56    TTL:;
57            {object V14;
58            V14= Cnil;
59            if(!(type_of((V12))!=t_cons)){
60            goto T12;}
61            {object V15 = Cnil;
62            VMR2(V15)}
63            goto T12;
64    T12:;
65            {object V16;
66            if((car((V12)))==(VV[1])){
67            goto T15;}
68            V16= Cnil;
69            goto T14;
70            goto T15;
71    T15:;
72            V14= cadddr(cdr((V12)));
73            base[0]= (V14);
74            base[1]= VV[0];
75            vs_top=(vs_base=base+0)+2;
76            (void) (*Lnk45)();
77            vs_top=sup;
78            if((vs_base[0])!=Cnil){
79            goto T17;}
80            V16= Cnil;
81            goto T14;
82            goto T17;
83    T17:;
84            V17= structure_ref((V14),VV[0],0);
85            V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil);
86            goto T14;
87    T14:;
88            if(((V16))==Cnil){
89            goto T23;}
90            {object V18 = (V16);
91            VMR2(V18)}
92            goto T23;
93    T23:;{object V19;
94            V19= (*(LnkLI46))(car((V12)),(V13));
95            if(V19==Cnil)goto T25;
96            {object V20 = V19;
97            VMR2(V20)}
98            goto T25;
99    T25:;}
100            V12= cdr((V12));
101            goto TTL;}}
102            base[0]=base[0];
103            return Cnil;
104    }
105    /*      local entry for function ADD-REG1       */
106    
107    static object LI3(V22)
108    
109    register object V22;
110    {        VMB3 VMS3 VMV3
111            goto TTL;
112    TTL:;
113            if(!(type_of((V22))!=t_cons)){
114            goto T31;}
115            base[0]= (V22);
116            base[1]= VV[2];
117            vs_top=(vs_base=base+0)+2;
118            (void) (*Lnk45)();
119            vs_top=sup;
120            if((vs_base[0])==Cnil){
121            goto T34;}
122            {long V23= fix(structure_ref((V22),VV[2],6));
123            V24 = make_fixnum((long)(/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3]))));
124            {object V25 = structure_set((V22),VV[2],6,V24);
125            VMR3(V25)}}
126            goto T34;
127    T34:;
128            {object V26 = Cnil;
129            VMR3(V26)}
130            goto T31;
131    T31:;
132            (void)((*(LnkLI47))(car((V22))));
133            V22= cdr((V22));
134            goto TTL;
135            base[0]=base[0];
136            return Cnil;
137    }
138    /*      local entry for function ADD-LOOP-REGISTERS     */
139    
140    static object LI4(V28)
141    
142    object V28;
143    {        VMB4 VMS4 VMV4
144            goto TTL;
145    TTL:;
146            {register object V29;
147            register object V30;
148            register object V31;
149            V29= (V28);
150            V30= Cnil;
151            V31= Cnil;
152            goto T42;
153    T42:;
154            if(((V29))!=Cnil){
155            goto T43;}
156            {register object V32;
157            V32= (V31);
158            goto T47;
159    T47:;
160            if(!(((V32))==((V30)))){
161            goto T48;}
162            {object V33 = (*(LnkLI47))(car((V32)));
163            VMR4(V33)}
164            goto T48;
165    T48:;
166            (void)((*(LnkLI47))(car((V32))));
167            V32= cdr((V32));
168            goto T47;}
169            goto T43;
170    T43:;
171            base[0]= car((V29));
172            base[1]= VV[0];
173            vs_top=(vs_base=base+0)+2;
174            (void) (*Lnk45)();
175            vs_top=sup;
176            if((vs_base[0])==Cnil){
177            goto T57;}
178            if((V31)!=Cnil){
179            goto T62;}
180            V31= (V29);
181            goto T62;
182    T62:;
183            {register object V34;
184            register object V35;
185            V34= cdr((V29));
186            V35= structure_ref(car((V29)),VV[0],0);
187            goto T67;
188    T67:;
189            if(((V34))!=Cnil){
190            goto T68;}
191            goto T57;
192            goto T68;
193    T68:;
194            if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){
195            goto T72;}
196            V30= (V34);
197            goto T72;
198    T72:;
199            V34= cdr((V34));
200            goto T67;}
201            goto T57;
202    T57:;
203            V29= cdr((V29));
204            goto T42;}
205            base[0]=base[0];
206            return Cnil;
207    }
208    /*      local entry for function C1TAGBODY      */
209    
210    static object LI5(V37)
211    
212    object V37;
213    {        VMB5 VMS5 VMV5
214            bds_check;
215            goto TTL;
216    TTL:;
217            {register object V38;
218            bds_bind(VV[4],symbol_value(VV[4]));
219            V38= (VFUN_NARGS=0,(*(LnkLI48))());
220            {object V39;
221            object V40= (V37);
222            if(endp(V40)){
223            V37= Cnil;
224            goto T84;}
225            base[2]=V39=MMcons(Cnil,Cnil);
226            goto T85;
227    T85:;
228            if(type_of((V40->c.c_car))==t_symbol){
229            goto T87;}
230            if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){
231            goto T88;}
232            goto T87;
233    T87:;
234            {object V42;
235            V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));
236            (VV[4]->s.s_dbind)= make_cons(V42,(VV[4]->s.s_dbind));
237            (V39->c.c_car)= (V42);
238            goto T86;}
239            goto T88;
240    T88:;
241            (V39->c.c_car)= (V40->c.c_car);
242            goto T86;
243    T86:;
244            V40=MMcdr(V40);
245            if(endp(V40)){
246            V37= base[2];
247            goto T84;}
248            V39=MMcdr(V39)=MMcons(Cnil,Cnil);
249            goto T85;}
250            goto T84;
251    T84:;
252            {object V44;
253            object V45= (V37);
254            if(endp(V45)){
255            V37= Cnil;
256            goto T96;}
257            base[2]=V44=MMcons(Cnil,Cnil);
258            goto T97;
259    T97:;
260            base[3]= (V45->c.c_car);
261            base[4]= VV[0];
262            vs_top=(vs_base=base+3)+2;
263            (void) (*Lnk45)();
264            vs_top=sup;
265            if((vs_base[0])==Cnil){
266            goto T100;}
267            (V44->c.c_car)= (V45->c.c_car);
268            goto T98;
269            goto T100;
270    T100:;
271            (V44->c.c_car)= (*(LnkLI50))((V45->c.c_car),(V38));
272            goto T98;
273    T98:;
274            V45=MMcdr(V45);
275            if(endp(V45)){
276            V37= base[2];
277            goto T96;}
278            V44=MMcdr(V44)=MMcons(Cnil,Cnil);
279            goto T97;}
280            goto T96;
281    T96:;
282            {register object V47;
283            register object V48;
284            register object V49;
285            register object V50;
286            register object V51;
287            V47= (V37);
288            V48= Cnil;
289            V49= Cnil;
290            V50= Cnil;
291            V51= Cnil;
292            goto T105;
293    T105:;
294            if(!(endp_prop((V47)))){
295            goto T106;}
296            if(((V51))!=Cnil){
297            goto T109;}
298            if(((V50))!=Cnil){
299            goto T109;}
300            if(((V49))==Cnil){
301            goto T110;}
302            goto T109;
303    T109:;
304            V48= reverse((V48));
305            if(((V50))!=Cnil){
306            goto T119;}
307            if(((V51))==Cnil){
308            goto T120;}
309            goto T119;
310    T119:;
311            setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
312            goto T118;
313            goto T120;
314    T120:;
315            (void)((*(LnkLI51))((V48)));
316            goto T118;
317    T118:;
318            {object V52 = list(5,VV[10],(V38),(V50),(V51),(V48));
319            bds_unwind1;
320            VMR5(V52)}
321            goto T110;
322    T110:;
323            V53= (*(LnkLI52))();
324            V54= make_cons(/* INLINE-ARGS */V53,(V48));
325            {object V55 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V54));
326            bds_unwind1;
327            VMR5(V55)}
328            goto T106;
329    T106:;
330            base[2]= car((V47));
331            base[3]= VV[0];
332            vs_top=(vs_base=base+2)+2;
333            (void) (*Lnk45)();
334            vs_top=sup;
335            if((vs_base[0])==Cnil){
336            goto T128;}
337            if((structure_ref(car((V47)),VV[0],3))==Cnil){
338            goto T133;}
339            {object V56;
340            V56= car((V47));
341            V48= make_cons((V56),(V48));}
342            V57= car((V47));
343            V58= structure_ref(car((V47)),VV[0],0);
344            V59= (*(LnkLI53))(/* INLINE-ARGS */V58);
345            (void)(structure_set(/* INLINE-ARGS */V57,VV[0],6,/* INLINE-ARGS */V59));
346            V51= Ct;
347            goto T126;
348            goto T133;
349    T133:;
350            if((structure_ref(car((V47)),VV[0],2))==Cnil){
351            goto T141;}
352            {object V60;
353            V60= car((V47));
354            V48= make_cons((V60),(V48));}
355            V61= car((V47));
356            V62= structure_ref(car((V47)),VV[0],0);
357            V63= (*(LnkLI53))(/* INLINE-ARGS */V62);
358            (void)(structure_set(/* INLINE-ARGS */V61,VV[0],6,/* INLINE-ARGS */V63));
359            V50= Ct;
360            goto T126;
361            goto T141;
362    T141:;
363            if((structure_ref(car((V47)),VV[0],1))==Cnil){
364            goto T126;}
365            {object V64;
366            V64= car((V47));
367            V48= make_cons((V64),(V48));}
368            V49= Ct;
369            goto T126;
370            goto T128;
371    T128:;
372            {object V65;
373            V65= car((V47));
374            V48= make_cons((V65),(V48));}
375            goto T126;
376    T126:;
377            V47= cdr((V47));
378            goto T105;}}
379            base[0]=base[0];
380            return Cnil;
381    }
382    /*      local entry for function C2TAGBODY      */
383    
384    static object LI6(V69,V70,V71)
385    
386    object V69;object V70;object V71;
387    {        VMB6 VMS6 VMV6
388            goto TTL;
389    TTL:;
390            if(((V70))==Cnil){
391            goto T160;}
392            {object V72 = (*(LnkLI54))((V71));
393            VMR6(V72)}
394            goto T160;
395    T160:;
396            if(((V69))==Cnil){
397            goto T163;}
398            {object V73 = (*(LnkLI55))((V71));
399            VMR6(V73)}
400            goto T163;
401    T163:;
402            {object V74 = (*(LnkLI56))((V71));
403            VMR6(V74)}
404            return Cnil;
405    }
406    /*      local entry for function C2TAGBODY-LOCAL        */
407    
408    static object LI7(V76)
409    
410    object V76;
411    {        VMB7 VMS7 VMV7
412            bds_check;
413            goto TTL;
414    TTL:;
415            {register object V77;
416            setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
417            V77= make_cons(symbol_value(VV[12]),Cnil);
418            {register object V78;
419            register object V79;
420            V78= (V76);
421            V79= car((V78));
422            goto T171;
423    T171:;
424            if(!(endp_prop((V78)))){
425            goto T172;}
426            goto T167;
427            goto T172;
428    T172:;
429            base[2]= (V79);
430            base[3]= VV[0];
431            vs_top=(vs_base=base+2)+2;
432            (void) (*Lnk45)();
433            vs_top=sup;
434            if((vs_base[0])==Cnil){
435            goto T176;}
436            setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
437            V80= make_cons(symbol_value(VV[12]),Ct);
438            (void)(structure_set((V79),VV[0],4,/* INLINE-ARGS */V80));
439            (void)(structure_set((V79),VV[0],5,(V77)));
440            goto T176;
441    T176:;
442            V78= cdr((V78));
443            V79= car((V78));
444            goto T171;}
445            goto T167;
446    T167:;
447            base[1]= make_cons((V77),symbol_value(VV[13]));
448            bds_bind(VV[13],base[1]);
449            {object V81 = (*(LnkLI57))((V76));
450            bds_unwind1;
451            VMR7(V81)}}
452            base[0]=base[0];
453            return Cnil;
454    }
455    /*      local entry for function C2TAGBODY-BODY */
456    
457    static object LI8(V83)
458    
459    object V83;
460    {        VMB8 VMS8 VMV8
461            bds_check;
462            goto TTL;
463    TTL:;
464            {register object V84;
465            register object V85;
466            V84= (V83);
467            V85= Cnil;
468            goto T190;
469    T190:;
470            if(!(endp_prop(cdr((V84))))){
471            goto T191;}
472            if(((V85))==Cnil){
473            goto T195;}
474            {object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
475            VMR8(V86)}
476            goto T195;
477    T195:;
478            base[0]= car((V84));
479            base[1]= VV[0];
480            vs_top=(vs_base=base+0)+2;
481            (void) (*Lnk45)();
482            vs_top=sup;
483            if((vs_base[0])==Cnil){
484            goto T198;}
485            V87= structure_ref(car((V84)),VV[0],7);
486            (void)((*(LnkLI59))(/* INLINE-ARGS */V87));
487            V88= structure_ref(car((V84)),VV[0],4);
488            if((cdr(/* INLINE-ARGS */V88))==Cnil){
489            goto T203;}
490            princ_str("\n   goto T",VV[14]);
491            V89= structure_ref(car((V84)),VV[0],4);
492            (void)((*(LnkLI60))(car(/* INLINE-ARGS */V89)));
493            princ_char(59,VV[14]);
494            princ_str("\nT",VV[14]);
495            V90= structure_ref(car((V84)),VV[0],4);
496            (void)((*(LnkLI60))(car(/* INLINE-ARGS */V90)));
497            princ_str(":;",VV[14]);
498            goto T203;
499    T203:;
500            {object V91 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
501            VMR8(V91)}
502            goto T198;
503    T198:;
504            setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
505            bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));
506            bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13])));
507            bds_bind(VV[16],VV[17]);
508            base[3]= car((V84));
509            vs_top=(vs_base=base+3)+1;
510            (void) (*Lnk61)();
511            vs_top=sup;
512            if((cdr((VV[15]->s.s_dbind)))==Cnil){
513            bds_unwind1;
514            bds_unwind1;
515            bds_unwind1;
516            goto T213;}
517            princ_str("\n   goto T",VV[14]);
518            (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
519            princ_char(59,VV[14]);
520            princ_str("\nT",VV[14]);
521            (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
522            princ_str(":;",VV[14]);
523            bds_unwind1;
524            bds_unwind1;
525            bds_unwind1;
526            goto T213;
527    T213:;
528            if((caar((V84)))==(VV[1])){
529            goto T229;}
530            {object V92 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
531            VMR8(V92)}
532            goto T229;
533    T229:;
534            {object V93 = Cnil;
535            VMR8(V93)}
536            goto T191;
537    T191:;
538            if(((V85))==Cnil){
539            goto T234;}
540            V85= Cnil;
541            goto T232;
542            goto T234;
543    T234:;
544            base[0]= car((V84));
545            base[1]= VV[0];
546            vs_top=(vs_base=base+0)+2;
547            (void) (*Lnk45)();
548            vs_top=sup;
549            if((vs_base[0])==Cnil){
550            goto T238;}
551            V94= structure_ref(car((V84)),VV[0],7);
552            (void)((*(LnkLI59))(/* INLINE-ARGS */V94));
553            V95= structure_ref(car((V84)),VV[0],4);
554            if((cdr(/* INLINE-ARGS */V95))==Cnil){
555            goto T232;}
556            princ_str("\n   goto T",VV[14]);
557            V96= structure_ref(car((V84)),VV[0],4);
558            (void)((*(LnkLI60))(car(/* INLINE-ARGS */V96)));
559            princ_char(59,VV[14]);
560            princ_str("\nT",VV[14]);
561            V97= structure_ref(car((V84)),VV[0],4);
562            (void)((*(LnkLI60))(car(/* INLINE-ARGS */V97)));
563            princ_str(":;",VV[14]);
564            goto T232;
565            goto T238;
566    T238:;
567            base[3]= cadr((V84));
568            base[4]= VV[0];
569            vs_top=(vs_base=base+3)+2;
570            (void) (*Lnk45)();
571            vs_top=sup;
572            if((vs_base[0])==Cnil){
573            goto T254;}
574            V85= Ct;
575            bds_bind(VV[15],structure_ref(cadr((V84)),VV[0],4));
576            goto T252;
577            goto T254;
578    T254:;
579            setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
580            bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));
581            goto T252;
582    T252:;
583            bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13])));
584            bds_bind(VV[16],VV[17]);
585            base[3]= car((V84));
586            vs_top=(vs_base=base+3)+1;
587            (void) (*Lnk61)();
588            vs_top=sup;
589            base[3]= cadr((V84));
590            base[4]= VV[0];
591            vs_top=(vs_base=base+3)+2;
592            (void) (*Lnk45)();
593            vs_top=sup;
594            if((vs_base[0])!=Cnil){
595            goto T265;}
596            goto T264;
597            goto T265;
598    T265:;
599            V98= structure_ref(cadr((V84)),VV[0],7);
600            (void)((*(LnkLI59))(/* INLINE-ARGS */V98));
601            goto T264;
602    T264:;
603            if((cdr((VV[15]->s.s_dbind)))==Cnil){
604            bds_unwind1;
605            bds_unwind1;
606            bds_unwind1;
607            goto T232;}
608            princ_str("\n   goto T",VV[14]);
609            (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
610            princ_char(59,VV[14]);
611            princ_str("\nT",VV[14]);
612            (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
613            princ_str(":;",VV[14]);
614            bds_unwind1;
615            bds_unwind1;
616            bds_unwind1;
617            goto T232;
618    T232:;
619            V84= cdr((V84));
620            goto T190;}
621            base[0]=base[0];
622            return Cnil;
623    }
624    /*      local entry for function C2TAGBODY-CLB  */
625    
626    static object LI9(V100)
627    
628    object V100;
629    {        VMB9 VMS9 VMV9
630            bds_check;
631            goto TTL;
632    TTL:;
633            {register object V101;
634            setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
635            V101= make_cons(symbol_value(VV[12]),Cnil);
636            bds_bind(VV[18],symbol_value(VV[18]));
637            {register object V102;
638            base[2]= make_cons(VV[19],symbol_value(VV[13]));
639            V102= (*(LnkLI62))();
640            bds_bind(VV[13],base[2]);
641            princ_str("\n   ",VV[14]);
642            (void)((*(LnkLI63))((V102)));
643            princ_str("=alloc_frame_id();",VV[14]);
644            princ_str("\n   frs_push(FRS_CATCH,",VV[14]);
645            (void)((*(LnkLI63))((V102)));
646            princ_str(");",VV[14]);
647            princ_str("\n   if(nlj_active){",VV[14]);
648            princ_str("\n   nlj_active=FALSE;",VV[14]);
649            {register object V103;
650            register object V104;
651            V103= (V100);
652            V104= car((V103));
653            goto T302;
654    T302:;
655            if(!(endp_prop((V103)))){
656            goto T303;}
657            goto T298;
658            goto T303;
659    T303:;
660            base[4]= (V104);
661            base[5]= VV[0];
662            vs_top=(vs_base=base+4)+2;
663            (void) (*Lnk45)();
664            vs_top=sup;
665            if((vs_base[0])==Cnil){
666            goto T307;}
667            setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
668            V105= make_cons(symbol_value(VV[12]),Ct);
669            (void)(structure_set((V104),VV[0],4,/* INLINE-ARGS */V105));
670            (void)(structure_set((V104),VV[0],5,(V101)));
671            if((structure_ref((V104),VV[0],2))==Cnil){
672            goto T307;}
673            (void)(structure_set((V104),VV[0],2,(V102)));
674            princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);
675            V106= structure_ref((V104),VV[0],6);
676            (void)((*(LnkLI60))(/* INLINE-ARGS */V106));
677            princ_str("]))",VV[14]);
678            V107= structure_ref((V104),VV[0],4);
679            if(type_of(/* INLINE-ARGS */V107)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V107);
680            (/* INLINE-ARGS */V107)->c.c_cdr = Ct;
681            princ_str("goto T",VV[14]);
682            V108= structure_ref((V104),VV[0],4);
683            (void)((*(LnkLI60))(car(/* INLINE-ARGS */V108)));
684            princ_char(59,VV[14]);
685            goto T307;
686    T307:;
687            V103= cdr((V103));
688            V104= car((V103));
689            goto T302;}
690            goto T298;
691    T298:;
692            princ_str("\n   FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);
693            princ_str("\n   }",VV[14]);
694            base[3]= make_cons((V101),(VV[13]->s.s_dbind));
695            bds_bind(VV[13],base[3]);
696            {object V109 = (*(LnkLI57))((V100));
697            bds_unwind1;
698            bds_unwind1;
699            bds_unwind1;
700            VMR9(V109)}}}
701            base[0]=base[0];
702            return Cnil;
703    }
704    /*      local entry for function C2TAGBODY-CCB  */
705    
706    static object LI10(V111)
707    
708    object V111;
709    {        VMB10 VMS10 VMV10
710            bds_check;
711            goto TTL;
712    TTL:;
713            {register object V112;
714            setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
715            V112= make_cons(symbol_value(VV[12]),Cnil);
716            bds_bind(VV[18],symbol_value(VV[18]));
717            bds_bind(VV[20],symbol_value(VV[20]));
718            bds_bind(VV[21],symbol_value(VV[21]));
719            {register object V113;
720            register object V114;
721            base[4]= make_cons(VV[19],symbol_value(VV[13]));
722            V113= (*(LnkLI62))();
723            bds_bind(VV[13],base[4]);
724            V114= Cnil;
725            princ_str("\n   ",VV[14]);
726            (void)((*(LnkLI63))((V113)));
727            princ_str("=alloc_frame_id();",VV[14]);
728            princ_str("\n   ",VV[14]);
729            (void)((*(LnkLI63))((V113)));
730            princ_str("=MMcons(",VV[14]);
731            (void)((*(LnkLI63))((V113)));
732            princ_char(44,VV[14]);
733            (void)((VFUN_NARGS=0,(*(LnkLI64))()));
734            princ_str(");",VV[14]);
735            (void)((*(LnkLI65))((V113)));
736            V114= (*(LnkLI66))();
737            princ_str("\n   frs_push(FRS_CATCH,",VV[14]);
738            (void)((*(LnkLI67))((V113)));
739            princ_str(");",VV[14]);
740            princ_str("\n   if(nlj_active){",VV[14]);
741            princ_str("\n   nlj_active=FALSE;",VV[14]);
742            {register object V115;
743            register object V116;
744            V115= (V111);
745            V116= car((V115));
746            goto T370;
747    T370:;
748            if(!(endp_prop((V115)))){
749            goto T371;}
750            goto T366;
751            goto T371;
752    T371:;
753            base[6]= (V116);
754            base[7]= VV[0];
755            vs_top=(vs_base=base+6)+2;
756            (void) (*Lnk45)();
757            vs_top=sup;
758            if((vs_base[0])==Cnil){
759            goto T375;}
760            setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
761            V117= make_cons(symbol_value(VV[12]),Ct);
762            (void)(structure_set((V116),VV[0],4,/* INLINE-ARGS */V117));
763            (void)(structure_set((V116),VV[0],5,(V112)));
764            if((structure_ref((V116),VV[0],2))!=Cnil){
765            goto T383;}
766            if((structure_ref((V116),VV[0],3))==Cnil){
767            goto T375;}
768            goto T383;
769    T383:;
770            (void)(structure_set((V116),VV[0],2,(V113)));
771            if((structure_ref((V116),VV[0],3))==Cnil){
772            goto T388;}
773            (void)(structure_set((V116),VV[0],3,(V114)));
774            goto T388;
775    T388:;
776            princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);
777            V118= structure_ref((V116),VV[0],6);
778            (void)((*(LnkLI60))(/* INLINE-ARGS */V118));
779            princ_str("]))",VV[14]);
780            V119= structure_ref((V116),VV[0],4);
781            if(type_of(/* INLINE-ARGS */V119)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V119);
782            (/* INLINE-ARGS */V119)->c.c_cdr = Ct;
783            princ_str("goto T",VV[14]);
784            V120= structure_ref((V116),VV[0],4);
785            (void)((*(LnkLI60))(car(/* INLINE-ARGS */V120)));
786            princ_char(59,VV[14]);
787            goto T375;
788    T375:;
789            V115= cdr((V115));
790            V116= car((V115));
791            goto T370;}
792            goto T366;
793    T366:;
794            princ_str("\n   FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);
795            princ_str("\n   }",VV[14]);
796            base[5]= make_cons((V112),(VV[13]->s.s_dbind));
797            bds_bind(VV[13],base[5]);
798            {object V121 = (*(LnkLI57))((V111));
799            bds_unwind1;
800            bds_unwind1;
801            bds_unwind1;
802            bds_unwind1;
803            bds_unwind1;
804            VMR10(V121)}}}
805            base[0]=base[0];
806            return Cnil;
807    }
808    /*      local entry for function C1GO   */
809    
810    static object LI11(V123)
811    
812    object V123;
813    {        VMB11 VMS11 VMV11
814            goto TTL;
815    TTL:;
816            if(!(endp_prop((V123)))){
817            goto T411;}
818            (void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0)));
819            goto T409;
820            goto T411;
821    T411:;
822            if(endp_prop(cdr((V123)))){
823            goto T414;}
824            V124 = make_fixnum((long)length((V123)));
825            (void)((*(LnkLI69))(VV[1],small_fixnum(1),V124));
826            goto T409;
827            goto T414;
828    T414:;
829            if(type_of(car((V123)))==t_symbol){
830            goto T409;}
831            {object V125= car((V123));
832            if(type_of(V125)==t_fixnum||type_of(V125)==t_bignum){
833            goto T409;}}
834            (void)(car((V123)));
835            goto T409;
836    T409:;
837            {register object V126;
838            register object V127;
839            register object V128;
840            register object V129;
841            V126= symbol_value(VV[4]);
842            V127= car((V123));
843            V128= Cnil;
844            V129= Cnil;
845            goto T424;
846    T424:;
847            if(!(endp_prop((V126)))){
848            goto T425;}
849            {object V130 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V127)));
850            VMR11(V130)}
851            goto T425;
852    T425:;
853            {object V131= car((V126));
854            if((V131!= VV[71]))goto T430;
855            V128= Ct;
856            goto T429;
857            goto T430;
858    T430:;
859            if((V131!= VV[72]))goto T432;
860            V129= Ct;
861            goto T429;
862            goto T432;
863    T432:;
864            V132= structure_ref(car((V126)),VV[0],0);
865            if(!((/* INLINE-ARGS */V132)==((V127)))){
866            goto T429;}
867            {register object V133;
868            V133= car((V126));
869            if(((V128))==Cnil){
870            goto T439;}
871            (void)(structure_set((V133),VV[0],3,Ct));
872            goto T437;
873            goto T439;
874    T439:;
875            if(((V129))==Cnil){
876            goto T442;}
877            (void)(structure_set((V133),VV[0],2,Ct));
878            goto T437;
879            goto T442;
880    T442:;
881            (void)(structure_set((V133),VV[0],1,Ct));
882            goto T437;
883    T437:;
884            {object V134 = list(5,VV[1],symbol_value(VV[24]),(V129),(V128),(V133));
885            VMR11(V134)}}}
886            goto T429;
887    T429:;
888            V126= cdr((V126));
889            goto T424;}
890            return Cnil;
891    }
892    /*      local entry for function C2GO   */
893    
894    static object LI12(V138,V139,V140)
895    
896    object V138;object V139;object V140;
897    {        VMB12 VMS12 VMV12
898            goto TTL;
899    TTL:;
900            if(((V139))==Cnil){
901            goto T448;}
902            {object V141 = (*(LnkLI73))((V140));
903            VMR12(V141)}
904            goto T448;
905    T448:;
906            if(((V138))==Cnil){
907            goto T451;}
908            {object V142 = (*(LnkLI74))((V140));
909            VMR12(V142)}
910            goto T451;
911    T451:;
912            {object V143 = (*(LnkLI75))((V140));
913            VMR12(V143)}
914            return Cnil;
915    }
916    /*      local entry for function C2GO-LOCAL     */
917    
918    static object LI13(V145)
919    
920    object V145;
921    {        VMB13 VMS13 VMV13
922            goto TTL;
923    TTL:;
924            V146= structure_ref((V145),VV[0],5);
925            (void)((*(LnkLI76))(/* INLINE-ARGS */V146));
926            princ_str("\n   ",VV[14]);
927            V147= structure_ref((V145),VV[0],4);
928            if(type_of(/* INLINE-ARGS */V147)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V147);
929            (/* INLINE-ARGS */V147)->c.c_cdr = Ct;
930            princ_str("goto T",VV[14]);
931            V148= structure_ref((V145),VV[0],4);
932            (void)((*(LnkLI60))(car(/* INLINE-ARGS */V148)));
933            princ_char(59,VV[14]);
934            {object V149 = Cnil;
935            VMR13(V149)}
936            return Cnil;
937    }
938    /*      local entry for function C2GO-CLB       */
939    
940    static object LI14(V151)
941    
942    register object V151;
943    {        VMB14 VMS14 VMV14
944            goto TTL;
945    TTL:;
946            princ_str("\n   vs_base=vs_top;",VV[14]);
947            princ_str("\n   unwind(frs_sch(",VV[14]);
948            if((structure_ref((V151),VV[0],3))==Cnil){
949            goto T465;}
950            V152= structure_ref((V151),VV[0],2);
951            (void)((*(LnkLI67))(/* INLINE-ARGS */V152));
952            goto T463;
953            goto T465;
954    T465:;
955            V153= structure_ref((V151),VV[0],2);
956            (void)((*(LnkLI63))(/* INLINE-ARGS */V153));
957            goto T463;
958    T463:;
959            princ_str("),VV[",VV[14]);
960            V154= structure_ref((V151),VV[0],6);
961            (void)((*(LnkLI60))(/* INLINE-ARGS */V154));
962            princ_str("]);",VV[14]);
963            {object V155 = Cnil;
964            VMR14(V155)}
965            return Cnil;
966    }
967    /*      local entry for function C2GO-CCB       */
968    
969    static object LI15(V157)
970    
971    object V157;
972    {        VMB15 VMS15 VMV15
973            goto TTL;
974    TTL:;
975            princ_str("\n   {frame_ptr fr;",VV[14]);
976            princ_str("\n   fr=frs_sch(",VV[14]);
977            V158= structure_ref((V157),VV[0],3);
978            (void)((*(LnkLI77))(/* INLINE-ARGS */V158));
979            princ_str(");",VV[14]);
980            princ_str("\n   if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]);
981            V159= structure_ref((V157),VV[0],6);
982            (void)((*(LnkLI60))(/* INLINE-ARGS */V159));
983            princ_str("]);",VV[14]);
984            princ_str("\n   vs_base=vs_top;",VV[14]);
985            princ_str("\n   unwind(fr,VV[",VV[14]);
986            V160= structure_ref((V157),VV[0],6);
987            (void)((*(LnkLI60))(/* INLINE-ARGS */V160));
988            princ_str("]);}",VV[14]);
989            {object V161 = Cnil;
990            VMR15(V161)}
991            return Cnil;
992    }
993    /*      local entry for function WT-SWITCH-CASE */
994    
995    static object LI16(V163)
996    
997    register object V163;
998    {        VMB16 VMS16 VMV16
999            goto TTL;
1000    TTL:;
1001            if(((V163))==Cnil){
1002            goto T487;}
1003            princ_str("\n   ",VV[14]);
1004            if(!(type_of((V163))==t_fixnum)){
1005            goto T493;}
1006            V164= VV[25];
1007            goto T491;
1008            goto T493;
1009    T493:;
1010            V164= VV[26];
1011            goto T491;
1012    T491:;
1013            (void)((*(LnkLI60))(V164));
1014            (void)((*(LnkLI60))((V163)));
1015            princ_char(58,VV[14]);
1016            {object V165 = Cnil;
1017            VMR16(V165)}
1018            goto T487;
1019    T487:;
1020            {object V166 = Cnil;
1021            VMR16(V166)}
1022            return Cnil;
1023    }
1024    /*      local entry for function C1SWITCH       */
1025    
1026    static object LI17(V168)
1027    
1028    object V168;
1029    {        VMB17 VMS17 VMV17
1030            bds_check;
1031            goto TTL;
1032    TTL:;
1033            bds_bind(VV[4],symbol_value(VV[4]));
1034            {object V169;
1035            register object V170;
1036            object V171;
1037            V169= car((V168));
1038            V170= cdr((V168));
1039            V171= (*(LnkLI78))((V169));
1040            base[4]= cadr((V171));
1041            base[5]= VV[27];
1042            vs_top=(vs_base=base+4)+2;
1043            (void) (*Lnk45)();
1044            vs_top=sup;
1045            if((vs_base[0])==Cnil){
1046            goto T501;}
1047            base[4]= structure_ref(cadr((V171)),VV[27],2);
1048            base[5]= VV[28];
1049            vs_top=(vs_base=base+4)+2;
1050            (void) (*Lnk79)();
1051            vs_top=sup;
1052            if((vs_base[0])==Cnil){
1053            goto T501;}{object V172;
1054            {register object x= Ct,V173= (V170);
1055            while(!endp(V173))
1056            if(eql(x,V173->c.c_car)){
1057            V172= V173;
1058            goto T511;
1059            }else V173=V173->c.c_cdr;
1060            V172= Cnil;}
1061            goto T511;
1062    T511:;
1063            if(V172==Cnil)goto T510;
1064            goto T509;
1065            goto T510;
1066    T510:;}
1067            V174= make_cons(Ct,Cnil);
1068            V170= append((V170),/* INLINE-ARGS */V174);
1069            goto T509;
1070    T509:;
1071            {object V175;
1072            object V176= (V170);
1073            if(endp(V176)){
1074            V170= Cnil;
1075            goto T514;}
1076            base[4]=V175=MMcons(Cnil,Cnil);
1077            goto T515;
1078    T515:;
1079            {register object V177;
1080            V177= (V176->c.c_car);
1081            if(type_of((V177))==t_symbol){
1082            goto T517;}
1083            if(!(type_of((V177))==t_fixnum||type_of((V177))==t_bignum)){
1084            goto T518;}
1085            goto T517;
1086    T517:;
1087            {register object V178;
1088            V178= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V177),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));
1089            if(!(type_of((V177))==t_fixnum)){
1090            goto T525;}
1091            (void)(structure_set((V178),VV[0],1,Ct));
1092            (void)(structure_set((V178),VV[0],7,(V177)));
1093            goto T523;
1094            goto T525;
1095    T525:;
1096            if(!((Ct)==((V177)))){
1097            goto T523;}
1098            (void)(structure_set((V178),VV[0],1,Ct));
1099            (void)(structure_set((V178),VV[0],7,VV[29]));
1100            goto T523;
1101    T523:;
1102            (V175->c.c_car)= (V178);
1103            goto T516;}
1104            goto T518;
1105    T518:;
1106            (V175->c.c_car)= (V177);}
1107            goto T516;
1108    T516:;
1109            V176=MMcdr(V176);
1110            if(endp(V176)){
1111            V170= base[4];
1112            goto T514;}
1113            V175=MMcdr(V175)=MMcons(Cnil,Cnil);
1114            goto T515;}
1115            goto T514;
1116    T514:;
1117            {object V179;
1118            V180= append((V170),VV[30]);
1119            V179= (*(LnkLI80))(/* INLINE-ARGS */V180);
1120            V181= list(3,VV[31],cadr((V179)),(V171));
1121            {object V182 = nconc(/* INLINE-ARGS */V181,cddr((V179)));
1122            bds_unwind1;
1123            VMR17(V182)}}
1124            goto T501;
1125    T501:;
1126            V183= make_cons(VV[31],(V168));
1127            V184= (*(LnkLI81))(/* INLINE-ARGS */V183);
1128            {object V185 = (*(LnkLI78))(/* INLINE-ARGS */V184);
1129            bds_unwind1;
1130            VMR17(V185)}}
1131            base[0]=base[0];
1132            return Cnil;
1133    }
1134    /*      local entry for function C2SWITCH       */
1135    
1136    static object LI18(V190,V191,V192,V193)
1137    
1138    object V190;object V191;object V192;object V193;
1139    {        VMB18 VMS18 VMV18
1140            bds_check;
1141            goto TTL;
1142    TTL:;
1143            bds_bind(VV[32],small_fixnum(0));
1144            bds_bind(VV[18],symbol_value(VV[18]));
1145            {object V194;
1146            V195= make_cons((V190),Cnil);
1147            V194= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V195,VV[33]));
1148            base[2]= VV[34];
1149            base[3]= (V194);
1150            vs_top=(vs_base=base+2)+2;
1151            (void) (*Lnk83)();
1152            vs_top=sup;
1153            if(((V192))==Cnil){
1154            goto T538;}
1155            (void)((*(LnkLI54))((V193)));
1156            goto T536;
1157            goto T538;
1158    T538:;
1159            if(((V191))==Cnil){
1160            goto T541;}
1161            (void)((*(LnkLI55))((V193)));
1162            goto T536;
1163            goto T541;
1164    T541:;
1165            (void)((*(LnkLI56))((V193)));
1166            goto T536;
1167    T536:;
1168            princ_char(125,VV[14]);
1169            (void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil)));
1170            {object V196 = (*(LnkLI84))();
1171            bds_unwind1;
1172            bds_unwind1;
1173            VMR18(V196)}}
1174            base[0]=base[0];
1175            return Cnil;
1176    }
1177    /*      macro definition for SWITCH     */
1178    
1179    static void L19()
1180    {register object *base=vs_base;
1181            register object *sup=base+VM19; VC19
1182            vs_reserve(VM19);
1183            check_arg(2);
1184            vs_top=sup;
1185            {object V197=base[0]->c.c_cdr;
1186            if(endp(V197))invalid_macro_call();
1187            base[2]= (V197->c.c_car);
1188            V197=V197->c.c_cdr;
1189            base[3]= V197;
1190            base[4]= Cnil;}
1191            {register object V198;
1192            register object V199;
1193            V198= base[3];
1194            V199= car((V198));
1195            goto T551;
1196    T551:;
1197            if(!(endp_prop((V198)))){
1198            goto T552;}
1199            goto T547;
1200            goto T552;
1201    T552:;
1202            if(!(type_of((V199))==t_fixnum||type_of((V199))==t_bignum)){
1203            goto T556;}
1204            {register object V200;
1205            V201= list(3,VV[36],(V199),base[2]);
1206            V200= list(4,VV[35],/* INLINE-ARGS */V201,list(2,VV[1],(V199)),Cnil);
1207            base[4]= make_cons((V200),base[4]);}
1208            goto T556;
1209    T556:;
1210            V198= cdr((V198));
1211            V199= car((V198));
1212            goto T551;}
1213            goto T547;
1214    T547:;
1215            V202= nreverse(base[4]);
1216            base[5]= base[3];
1217            {register object x= Ct,V204= base[3];
1218            while(!endp(V204))
1219            if(eql(x,V204->c.c_car)){
1220            goto T571;
1221            }else V204=V204->c.c_cdr;
1222            goto T570;}
1223            goto T571;
1224    T571:;
1225            base[6]= Cnil;
1226            goto T568;
1227            goto T570;
1228    T570:;
1229            base[6]= VV[38];
1230            goto T568;
1231    T568:;
1232            base[7]= VV[39];
1233            vs_top=(vs_base=base+5)+3;
1234            Lappend();
1235            vs_top=sup;
1236            V203= vs_base[0];
1237            V205= make_cons(VV[37],V203);
1238            V206= append(/* INLINE-ARGS */V202,/* INLINE-ARGS */V205);
1239            base[5]= make_cons(VV[10],/* INLINE-ARGS */V206);
1240            vs_top=(vs_base=base+5)+1;
1241            return;
1242    }
1243    /*      macro definition for SWITCH-FINISH      */
1244    
1245    static void L20()
1246    {register object *base=vs_base;
1247            register object *sup=base+VM20; VC20
1248            vs_reserve(VM20);
1249            check_arg(2);
1250            vs_top=sup;
1251            {object V207=base[0]->c.c_cdr;
1252            if(!endp(V207))invalid_macro_call();}
1253            base[2]= VV[40];
1254            vs_top=(vs_base=base+2)+1;
1255            return;
1256    }
1257    static object  LnkTLI84(){return call_proc0(VV[84],(void **)(void *)&LnkLI84);} /* CLOSE-INLINE-BLOCKS */
1258    static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* WT-INLINE-LOC */
1259    static object  LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[82],(void **)(void *)&LnkLI82,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
1260    static object  LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[81],(void **)(void *)&LnkLI81,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */
1261    static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* C1TAGBODY */
1262    static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* SUBTYPEP */
1263    static object  LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[78],(void **)(void *)&LnkLI78,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
1264    static object  LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
1265    static object  LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
1266    static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* C2GO-LOCAL */
1267    static object  LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* C2GO-CLB */
1268    static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* C2GO-CCB */
1269    static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* CMPERR */
1270    static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
1271    static object  LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
1272    static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
1273    static object  LnkTLI66(){return call_proc0(VV[66],(void **)(void *)&LnkLI66);} /* CCB-VS-PUSH */
1274    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;} /* CLINK */
1275    static object  LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[64],(void **)(void *)&LnkLI64,first,ap);va_end(ap);return V1;} /* WT-CLINK */
1276    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;} /* WT-VS */
1277    static object  LnkTLI62(){return call_proc0(VV[62],(void **)(void *)&LnkLI62);} /* VS-PUSH */
1278    static void LnkT61(){ call_or_link(VV[61],(void **)(void *)&Lnk61);} /* C2EXPR */
1279    static object  LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* WT1 */
1280    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-SWITCH-CASE */
1281    static object  LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[58],(void **)(void *)&LnkLI58,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
1282    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;} /* C2TAGBODY-BODY */
1283    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;} /* C2TAGBODY-LOCAL */
1284    static object  LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-CLB */
1285    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;} /* C2TAGBODY-CCB */
1286    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;} /* ADD-OBJECT */
1287    static object  LnkTLI52(){return call_proc0(VV[52],(void **)(void *)&LnkLI52);} /* C1NIL */
1288    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;} /* ADD-LOOP-REGISTERS */
1289    static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
1290    static object  LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[49],(void **)(void *)&LnkLI49,first,ap);va_end(ap);return V1;} /* MAKE-TAG */
1291    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 */
1292    static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,1,first,ap);va_end(ap);return V1;} /* ADD-REG1 */
1293    static object  LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,2,first,ap);va_end(ap);return V1;} /* JUMPS-TO-P */
1294    static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* STRUCTURE-SUBTYPE-P */
1295    
1296    #ifdef SYSTEM_SPECIAL_INIT
1297    SYSTEM_SPECIAL_INIT
1298    #endif
1299    

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