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

Diff of /gcl/cmpnew/gcl_cmpinline.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_cmpinline.h"
4    void init_gcl_cmpinline(){do_init(VV);}
5    /*      local entry for function MAKE-INFO      */
6    
7    static object LI1(object first,...)
8    {      
9            va_list ap;
10            int narg = VFUN_NARGS; VMB1 VMS1 VMV1
11            {object V1;
12            object V2;
13            object V3;
14            object V4;
15            object V5;
16            va_start(ap,first);
17            narg= narg - 0;
18            {
19            parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap);
20            V1=(Vcs[0]);
21            V2=(Vcs[1]);
22            if(Vcs[2]==0){
23            V3= Ct;
24            }else{
25            V3=(Vcs[2]);}
26            V4=(Vcs[3]);
27            V5=(Vcs[4]);
28            base[0]= VV[0];
29            base[1]= (V1);
30            base[2]= (V2);
31            base[3]= (V3);
32            base[4]= (V4);
33            base[5]= (V5);
34            vs_top=(vs_base=base+0)+6;
35            siLmake_structure();
36            vs_top=sup;
37            {object V6 = vs_base[0];
38            VMR1(V6)}
39            va_end(ap);
40            base[0]=base[0];
41            return Cnil;}
42            }}
43    /*      local entry for function ADD-INFO       */
44    
45    static object LI2(V9,V10)
46    
47    register object V9;object V10;
48    {        VMB2 VMS2 VMV2
49            goto TTL;
50    TTL:;
51            V11= structure_ref((V10),VV[0],0);
52            V12= structure_ref((V9),VV[0],0);
53            V13= append(/* INLINE-ARGS */V11,/* INLINE-ARGS */V12);
54            (void)(structure_set((V9),VV[0],0,/* INLINE-ARGS */V13));
55            V14= structure_ref((V10),VV[0],1);
56            V15= structure_ref((V9),VV[0],1);
57            V16= append(/* INLINE-ARGS */V14,/* INLINE-ARGS */V15);
58            (void)(structure_set((V9),VV[0],1,/* INLINE-ARGS */V16));
59            if((structure_ref((V10),VV[0],3))==Cnil){
60            goto T11;}
61            {object V17 = structure_set((V9),VV[0],3,Ct);
62            VMR2(V17)}
63            goto T11;
64    T11:;
65            {object V18 = Cnil;
66            VMR2(V18)}
67            return Cnil;
68    }
69    /*      local entry for function ARGS-INFO-CHANGED-VARS */
70    
71    static object LI3(V21,V22)
72    
73    register object V21;object V22;
74    {        VMB3 VMS3 VMV3
75            goto TTL;
76    TTL:;
77            V24= structure_ref((V21),VV[1],1);
78            {object V23= /* INLINE-ARGS */V24;
79            if((V23== VV[71])
80            || (V23== VV[45])
81            || (V23== VV[72])
82            || (V23== VV[46])
83            || (V23== VV[47]))goto T14;
84            if((V23!= VV[18]))goto T13;
85            goto T14;
86    T14:;
87            {register object V25;
88            register object V26;
89            V25= (V22);
90            V26= car((V25));
91            goto T18;
92    T18:;
93            if(!(endp_prop((V25)))){
94            goto T19;}
95            {object V27 = Cnil;
96            VMR3(V27)}
97            goto T19;
98    T19:;
99            V29= structure_ref(cadr((V26)),VV[0],0);
100            {register object x= (V21),V28= /* INLINE-ARGS */V29;
101            while(!endp(V28))
102            if(eql(x,V28->c.c_car)){
103            goto T25;
104            }else V28=V28->c.c_cdr;
105            goto T23;}
106            goto T25;
107    T25:;
108            {object V30 = Ct;
109            VMR3(V30)}
110            goto T23;
111    T23:;
112            V25= cdr((V25));
113            V26= car((V25));
114            goto T18;}
115            goto T13;
116    T13:;
117            if((V23!= VV[73]))goto T31;
118            {object V31 = Cnil;
119            VMR3(V31)}
120            goto T31;
121    T31:;
122            {register object V32;
123            register object V33;
124            V32= (V22);
125            V33= car((V32));
126            goto T35;
127    T35:;
128            if(!(endp_prop((V32)))){
129            goto T36;}
130            {object V34 = Cnil;
131            VMR3(V34)}
132            goto T36;
133    T36:;
134            V36= structure_ref(cadr((V33)),VV[0],0);
135            {register object x= (V21),V35= /* INLINE-ARGS */V36;
136            while(!endp(V35))
137            if(eql(x,V35->c.c_car)){
138            goto T41;
139            }else V35=V35->c.c_cdr;}
140            if((structure_ref(cadr((V33)),VV[0],3))==Cnil){
141            goto T40;}
142            goto T41;
143    T41:;
144            {object V37 = Ct;
145            VMR3(V37)}
146            goto T40;
147    T40:;
148            V32= cdr((V32));
149            V33= car((V32));
150            goto T35;}}
151            base[0]=base[0];
152            return Cnil;
153    }
154    /*      local entry for function ARGS-INFO-REFERRED-VARS        */
155    
156    static object LI4(V40,V41)
157    
158    register object V40;object V41;
159    {        VMB4 VMS4 VMV4
160            goto TTL;
161    TTL:;
162            V43= structure_ref((V40),VV[1],1);
163            {object V42= /* INLINE-ARGS */V43;
164            if((V42== VV[71])
165            || (V42== VV[73])
166            || (V42== VV[45])
167            || (V42== VV[72])
168            || (V42== VV[46]))goto T51;
169            if((V42!= VV[47])
170            && (V42!= VV[18]))goto T50;
171            goto T51;
172    T51:;
173            {register object V44;
174            register object V45;
175            V44= (V41);
176            V45= car((V44));
177            goto T55;
178    T55:;
179            if(!(endp_prop((V44)))){
180            goto T56;}
181            {object V46 = Cnil;
182            VMR4(V46)}
183            goto T56;
184    T56:;
185            V48= structure_ref(cadr((V45)),VV[0],1);
186            {register object x= (V40),V47= /* INLINE-ARGS */V48;
187            while(!endp(V47))
188            if(eql(x,V47->c.c_car)){
189            goto T62;
190            }else V47=V47->c.c_cdr;
191            goto T60;}
192            goto T62;
193    T62:;
194            {object V49 = Ct;
195            VMR4(V49)}
196            goto T60;
197    T60:;
198            V44= cdr((V44));
199            V45= car((V44));
200            goto T55;}
201            goto T50;
202    T50:;
203            {register object V50;
204            register object V51;
205            V50= (V41);
206            V51= car((V50));
207            goto T71;
208    T71:;
209            if(!(endp_prop((V50)))){
210            goto T72;}
211            {object V52 = Cnil;
212            VMR4(V52)}
213            goto T72;
214    T72:;
215            V54= structure_ref(cadr((V51)),VV[0],1);
216            {register object x= (V40),V53= /* INLINE-ARGS */V54;
217            while(!endp(V53))
218            if(eql(x,V53->c.c_car)){
219            goto T77;
220            }else V53=V53->c.c_cdr;}
221            if((structure_ref(cadr((V51)),VV[0],3))==Cnil){
222            goto T76;}
223            goto T77;
224    T77:;
225            {object V55 = Ct;
226            VMR4(V55)}
227            goto T76;
228    T76:;
229            V50= cdr((V50));
230            V51= car((V50));
231            goto T71;}}
232            base[0]=base[0];
233            return Cnil;
234    }
235    /*      function definition for INC-INLINE-BLOCKS       */
236    
237    static void L5()
238    {register object *base=vs_base;
239            register object *sup=base+VM5; VC5
240            vs_reserve(VM5);
241            check_arg(0);
242            vs_top=sup;
243            goto TTL;
244    TTL:;
245            if(!(type_of(symbol_value(VV[2]))==t_cons)){
246            goto T87;}
247            {object V56;
248            object V57;
249            V56= symbol_value(VV[2]);
250            V57= number_plus(car((V56)),small_fixnum(1));
251            if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56));
252            ((V56))->c.c_car = (V57);
253            base[1]= (V57);
254            vs_top=(vs_base=base+1)+1;
255            return;}
256            goto T87;
257    T87:;
258            setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1)));
259            base[0]= symbol_value(VV[2]);
260            vs_top=(vs_base=base+0)+1;
261            return;
262    }
263    /*      local entry for function INLINE-ARGS    */
264    
265    static object LI6(object V59,object V58,object first,...)
266    {      
267            va_list ap;
268            int narg = VFUN_NARGS; VMB6 VMS6 VMV6
269            bds_check;
270            {object V60;
271            object V61;
272            object V62;
273            va_start(ap,first);
274            if(narg <2) too_few_arguments();
275            V60= V59;
276            V61= V58;
277            narg = narg - 2;
278            if (narg <= 0) goto T93;
279            else {
280            V62= first;}
281            --narg; goto T94;
282            goto T93;
283    T93:;
284            V62= Cnil;
285            goto T94;
286    T94:;
287            {register object V63;
288            register object V64;
289            V63= Cnil;
290            V64= Cnil;
291            {register object V65;
292            object V66;
293            V65= (V60);
294            V66= (V61);
295            goto T99;
296    T99:;
297            if(!(endp_prop((V65)))){
298            goto T100;}
299            {object V67 = reverse((V63));
300            VMR6(V67)}
301            goto T100;
302    T100:;
303            {register object V68;
304            register object V69;
305            V68= car((V65));
306            V69= car((V66));
307            {object V70= car((V68));
308            if((V70!= VV[14]))goto T107;
309            {object V71;
310            V71= (*(LnkLI74))(caddr((V68)),(V69));
311            V63= make_cons((V71),(V63));
312            goto T104;}
313            goto T107;
314    T107:;
315            if((V70!= VV[1]))goto T110;
316            if(((*(LnkLI75))(caaddr((V68)),cdr((V65))))==Cnil){
317            goto T112;}
318            V73= structure_ref(caaddr((V68)),VV[1],1);
319            {register object x= /* INLINE-ARGS */V73,V72= symbol_value(VV[3]);
320            while(!endp(V72))
321            if(eql(x,V72->c.c_car)){
322            goto T117;
323            }else V72=V72->c.c_cdr;
324            goto T115;}
325            goto T117;
326    T117:;
327            V74= structure_ref(caaddr((V68)),VV[1],1);
328            if(!(((V69))==(/* INLINE-ARGS */V74))){
329            goto T115;}
330            {object V75;
331            setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
332            V75= symbol_value(VV[4]);
333            princ_str("\n   {",VV[5]);
334            V76= (*(LnkLI77))((V69));
335            (void)((*(LnkLI76))(/* INLINE-ARGS */V76));
336            princ_char(86,VV[5]);
337            (void)((*(LnkLI76))((V75)));
338            princ_str("= V",VV[5]);
339            V77= structure_ref(caaddr((V68)),VV[1],4);
340            (void)((*(LnkLI76))(/* INLINE-ARGS */V77));
341            princ_char(59,VV[5]);
342            {object V78;
343            V78= list(3,VV[6],(V75),VV[7]);
344            V63= make_cons((V78),(V63));}
345            vs_base=vs_top;
346            (void) (*Lnk78)();
347            vs_top=sup;
348            goto T104;}
349            goto T115;
350    T115:;
351            {object V79;
352            V79= (*(LnkLI79))();
353            princ_str("\n   ",VV[5]);
354            (void)((*(LnkLI76))((V79)));
355            princ_str("= ",VV[5]);
356            (void)((*(LnkLI80))(caaddr((V68)),cadr(caddr((V68)))));
357            princ_char(59,VV[5]);
358            {object V80;
359            V80= (*(LnkLI74))((V79),(V69));
360            V63= make_cons((V80),(V63));
361            goto T104;}}
362            goto T112;
363    T112:;
364            V82= structure_ref(caaddr((V68)),VV[1],1);
365            {register object x= /* INLINE-ARGS */V82,V81= VV[8];
366            while(!endp(V81))
367            if(eql(x,V81->c.c_car)){
368            goto T145;
369            }else V81=V81->c.c_cdr;
370            goto T143;}
371            goto T145;
372    T145:;
373            V83= structure_ref(caaddr((V68)),VV[1],1);
374            if(((V69))==(/* INLINE-ARGS */V83)){
375            goto T143;}
376            {object V84;
377            V84= (VFUN_NARGS=1,(*(LnkLI81))((V69)));
378            princ_str("\n   V",VV[5]);
379            (void)((*(LnkLI76))((V84)));
380            princ_str(" = ",VV[5]);
381            V85= make_cons(VV[1],caddr((V68)));
382            V86= (*(LnkLI74))(/* INLINE-ARGS */V85,(V69));
383            (void)((*(LnkLI76))(/* INLINE-ARGS */V86));
384            princ_char(59,VV[5]);
385            {object V87;
386            V87= list(2,VV[6],(V84));
387            V63= make_cons((V87),(V63));
388            goto T104;}}
389            goto T143;
390    T143:;
391            {object V88;
392            V89= make_cons(VV[1],caddr((V68)));
393            V88= (*(LnkLI74))(/* INLINE-ARGS */V89,(V69));
394            V63= make_cons((V88),(V63));
395            goto T104;}
396            goto T110;
397    T110:;
398            if((V70!= VV[82]))goto T158;
399            {object V90;
400            V90= caddr((V68));
401            if(((*(LnkLI83))((V90)))!=Cnil){
402            goto T163;}
403            goto T160;
404            goto T163;
405    T163:;
406            V91= cadddr((V68));
407            V92= structure_ref(cadr((V68)),VV[0],2);
408            V64= (*(LnkLI84))((V90),/* INLINE-ARGS */V91,/* INLINE-ARGS */V92);
409            if(((V64))!=Cnil){
410            goto T165;}
411            goto T160;
412            goto T165;
413    T165:;
414            base[0]= (V64);
415            vs_top=(vs_base=base+0)+1;
416            (void) (*Lnk85)();
417            vs_top=sup;}
418            {register object V93;
419            V93= (*(LnkLI86))((V64),cadddr((V68)));
420            base[0]= small_fixnum(0);
421            base[1]= caddr((V64));
422            vs_top=(vs_base=base+0)+2;
423            Llogbitp();
424            vs_top=sup;
425            if((vs_base[0])==Cnil){
426            goto T173;}
427            if((symbol_value(VV[9]))==Cnil){
428            goto T171;}
429            goto T173;
430    T173:;
431            {register object x= cadr((V64)),V94= VV[10];
432            while(!endp(V94))
433            if(eql(x,V94->c.c_car)){
434            goto T180;
435            }else V94=V94->c.c_cdr;
436            goto T172;}
437            goto T180;
438    T180:;
439            if(((V69))==(cadr((V64)))){
440            goto T172;}
441            goto T171;
442    T171:;
443            {object V95;
444            V95= (VFUN_NARGS=1,(*(LnkLI81))((V69)));
445            princ_str("\n   V",VV[5]);
446            (void)((*(LnkLI76))((V95)));
447            princ_str(" = ",VV[5]);
448            V96= (*(LnkLI74))((V93),(V69));
449            (void)((*(LnkLI76))(/* INLINE-ARGS */V96));
450            princ_char(59,VV[5]);
451            {object V97;
452            V97= list(2,VV[6],(V95));
453            V63= make_cons((V97),(V63));
454            goto T104;}}
455            goto T172;
456    T172:;
457            if(((*(LnkLI87))(cdr((V65)),cdr((V66))))!=Cnil){
458            goto T191;}
459            base[0]= small_fixnum(0);
460            base[1]= caddr((V64));
461            vs_top=(vs_base=base+0)+2;
462            Llogbitp();
463            vs_top=sup;
464            if((vs_base[0])==Cnil){
465            goto T195;}
466            if(((V62))==Cnil){
467            goto T191;}
468            {register object x= (V62),V98= VV[11];
469            while(!endp(V98))
470            if(x==(V98->c.c_car)){
471            goto T202;
472            }else V98=V98->c.c_cdr;
473            goto T191;}
474            goto T202;
475    T202:;
476            goto T195;
477    T195:;
478            base[0]= small_fixnum(4);
479            base[1]= caddr((V64));
480            vs_top=(vs_base=base+0)+2;
481            Llogbitp();
482            vs_top=sup;
483            if((vs_base[0])!=Cnil){
484            goto T191;}
485            base[0]= small_fixnum(1);
486            base[1]= caddr((V64));
487            vs_top=(vs_base=base+0)+2;
488            Llogbitp();
489            vs_top=sup;
490            if((vs_base[0])==Cnil){
491            goto T192;}
492            if((cdr((V65)))==Cnil){
493            goto T192;}
494            goto T191;
495    T191:;
496            {object V99;
497            V99= Cnil;
498            if(!(((V69))==(Ct))){
499            goto T214;}
500            V99= (VFUN_NARGS=0,(*(LnkLI81))());
501            princ_str("\n   V",VV[5]);
502            (void)((*(LnkLI76))((V99)));
503            princ_str("= ",VV[5]);
504            base[0]= (V93);
505            vs_top=(vs_base=base+0)+1;
506            (void) (*Lnk88)();
507            vs_top=sup;
508            goto T212;
509            goto T214;
510    T214:;
511            setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
512            V99= symbol_value(VV[4]);
513            princ_str("\n   {",VV[5]);
514            V100= (*(LnkLI77))((V69));
515            (void)((*(LnkLI76))(/* INLINE-ARGS */V100));
516            princ_char(86,VV[5]);
517            (void)((*(LnkLI76))((V99)));
518            princ_str("= ",VV[5]);
519            {object V101= (V69);
520            if((V101!= VV[45]))goto T233;
521            base[0]= (V93);
522            vs_top=(vs_base=base+0)+1;
523            (void) (*Lnk89)();
524            vs_top=sup;
525            goto T232;
526            goto T233;
527    T233:;
528            if((V101!= VV[40]))goto T235;
529            base[0]= (V93);
530            base[1]= VV[7];
531            vs_top=(vs_base=base+0)+2;
532            (void) (*Lnk90)();
533            vs_top=sup;
534            goto T232;
535            goto T235;
536    T235:;
537            if((V101!= VV[72]))goto T238;
538            base[0]= (V93);
539            vs_top=(vs_base=base+0)+1;
540            (void) (*Lnk91)();
541            vs_top=sup;
542            goto T232;
543            goto T238;
544    T238:;
545            if((V101!= VV[46]))goto T240;
546            base[0]= (V93);
547            vs_top=(vs_base=base+0)+1;
548            (void) (*Lnk92)();
549            vs_top=sup;
550            goto T232;
551            goto T240;
552    T240:;
553            if((V101!= VV[47]))goto T242;
554            base[0]= (V93);
555            vs_top=(vs_base=base+0)+1;
556            (void) (*Lnk93)();
557            vs_top=sup;
558            goto T232;
559            goto T242;
560    T242:;
561            base[0]= (V93);
562            vs_top=(vs_base=base+0)+1;
563            (void) (*Lnk88)();
564            vs_top=sup;}
565            goto T232;
566    T232:;
567            vs_base=vs_top;
568            (void) (*Lnk78)();
569            vs_top=sup;
570            goto T212;
571    T212:;
572            princ_char(59,VV[5]);
573            {object V102;
574            V102= list(3,VV[6],(V99),VV[7]);
575            V63= make_cons((V102),(V63));
576            goto T104;}}
577            goto T192;
578    T192:;
579            {object V103;
580            V103= (*(LnkLI74))((V93),(V69));
581            V63= make_cons((V103),(V63));
582            goto T104;}}
583            goto T160;
584    T160:;
585            {object V104;
586            if((symbol_value(VV[9]))==Cnil){
587            goto T253;}
588            V104= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));
589            goto T251;
590            goto T253;
591    T253:;
592            V104= list(2,VV[12],(*(LnkLI94))());
593            goto T251;
594    T251:;
595            bds_bind(VV[13],(V104));
596            V105= (*(LnkLI95))((V68));
597            bds_unwind1;
598            {object V106;
599            V106= (*(LnkLI74))((V104),(V69));
600            V63= make_cons((V106),(V63));
601            goto T104;}}
602            goto T158;
603    T158:;
604            if((V70!= VV[96]))goto T258;
605            {object V107;
606            V107= (*(LnkLI97))(cdr((V68)),(V69));
607            V63= make_cons((V107),(V63));
608            goto T104;}
609            goto T258;
610    T258:;
611            if((V70!= VV[98]))goto T261;
612            {object V108;
613            object V109;
614            V108= caddr((V68));
615            V109= cadddr((V68));
616            base[0]= make_cons(VV[1],(V108));
617            bds_bind(VV[13],base[0]);
618            V110= (*(LnkLI95))((V109));
619            bds_unwind1;
620            if(!((car((V109)))==(VV[14]))){
621            goto T267;}
622            {object V111;
623            V111= (*(LnkLI74))(caddr((V109)),(V69));
624            V63= make_cons((V111),(V63));
625            goto T104;}
626            goto T267;
627    T267:;
628            V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V108)),cdr((V65)));
629            V66= make_cons((V69),(V66));
630            goto T104;}
631            goto T261;
632    T261:;
633            {object V112;
634            if((symbol_value(VV[9]))==Cnil){
635            goto T276;}
636            if(!(((V69))==(Ct))){
637            goto T279;}
638            V112= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));
639            goto T274;
640            goto T279;
641    T279:;
642            {object V113;
643            setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
644            V113= make_cons((V69),symbol_value(VV[4]));
645            setq(VV[15],make_cons((V113),symbol_value(VV[15])));}
646            {register object x= (V69),V115= symbol_value(VV[3]);
647            while(!endp(V115))
648            if(eql(x,V115->c.c_car)){
649            goto T288;
650            }else V115=V115->c.c_cdr;
651            goto T287;}
652            goto T288;
653    T288:;
654            V114= (V69);
655            goto T285;
656            goto T287;
657    T287:;
658            V114= VV[18];
659            goto T285;
660    T285:;
661            V116= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V69),VV[17],V114,VV[19],cdar(symbol_value(VV[15]))));
662            V112= list(3,VV[1],/* INLINE-ARGS */V116,Cnil);
663            goto T274;
664            goto T276;
665    T276:;
666            V112= list(2,VV[12],(*(LnkLI94))());
667            goto T274;
668    T274:;
669            bds_bind(VV[13],(V112));
670            (void)((*(LnkLI95))((V68)));
671            {object V117;
672            V117= (*(LnkLI74))((V112),(V69));
673            V63= make_cons((V117),(V63));
674            bds_unwind1;}}}}
675            goto T104;
676    T104:;
677            V65= cdr((V65));
678            V66= cdr((V66));
679            goto T99;}}
680            va_end(ap);
681            base[0]=base[0];
682            return Cnil;}
683            }
684    /*      local entry for function COERCE-LOC     */
685    
686    static object LI7(V120,V121)
687    
688    register object V120;object V121;
689    {        VMB7 VMS7 VMV7
690            goto TTL;
691    TTL:;
692            {object V122= (V121);
693            if((V122!= VV[45]))goto T296;
694            {object V123 = list(2,VV[20],(V120));
695            VMR7(V123)}
696            goto T296;
697    T296:;
698            if((V122!= VV[40]))goto T297;
699            {object V124 = list(2,VV[21],(V120));
700            VMR7(V124)}
701            goto T297;
702    T297:;
703            if((V122!= VV[72]))goto T298;
704            {object V125 = list(2,VV[22],(V120));
705            VMR7(V125)}
706            goto T298;
707    T298:;
708            if((V122!= VV[46]))goto T299;
709            {object V126 = list(2,VV[23],(V120));
710            VMR7(V126)}
711            goto T299;
712    T299:;
713            if((V122!= VV[47]))goto T300;
714            {object V127 = list(2,VV[24],(V120));
715            VMR7(V127)}
716            goto T300;
717    T300:;
718            {object V128 = (V120);
719            VMR7(V128)}}
720            return Cnil;
721    }
722    /*      local entry for function GET-INLINE-LOC */
723    
724    static object LI8(V131,V132)
725    
726    object V131;object V132;
727    {        VMB8 VMS8 VMV8
728            goto TTL;
729    TTL:;
730            {object V133;
731            object V134;
732            V133= car(cdddr((V131)));
733            V134= Cnil;
734            V134= (VFUN_NARGS=3,(*(LnkLI7))((V132),car((V131)),(V133)));
735            if(!(type_of((V133))==t_string)){
736            goto T305;}
737            base[1]= elt((V133),0);
738            base[2]= VV[25];
739            vs_top=(vs_base=base+1)+2;
740            Lchar_eq();
741            vs_top=sup;
742            if((vs_base[0])==Cnil){
743            goto T305;}
744            {register long V135;
745            object V136;
746            V135= 1;
747            V136= Cnil;
748            {unsigned char V137;
749            V137= char_code(elt((V133),V135));
750            goto T316;
751    T316:;
752            base[1]= code_char(V137);
753            base[2]= VV[26];
754            vs_top=(vs_base=base+1)+2;
755            Lchar_eq();
756            vs_top=sup;
757            if((vs_base[0])==Cnil){
758            goto T317;}
759            V135= (long)(V135)+(1);
760            goto T313;
761            goto T317;
762    T317:;
763            {object V138;
764            V138= make_fixnum((long)((long)(V137))-(48));
765            V136= make_cons((V138),(V136));}
766            V135= (long)(V135)+(1);
767            V137= char_code(elt((V133),V135));
768            goto T316;}
769            goto T313;
770    T313:;
771            {object V139;
772            long V140;
773            register object V141;
774            V140= 0;
775            V139= (V134);
776            V141= Cnil;
777            goto T334;
778    T334:;
779            if(!(endp_prop((V139)))){
780            goto T335;}
781            V134= reverse((V141));
782            goto T305;
783            goto T335;
784    T335:;
785            V143 = make_fixnum(V140);
786            {register object x= V143,V142= (V136);
787            while(!endp(V142))
788            if(eql(x,V142->c.c_car)){
789            goto T343;
790            }else V142=V142->c.c_cdr;
791            goto T342;}
792            goto T343;
793    T343:;
794            {register object V144;
795            register object V145;
796            object V146;
797            V144= car((V139));
798            V145= (V144);
799            V146= Cnil;
800            if(!(type_of((V144))==t_cons)){
801            goto T347;}
802            {register object x= car((V144)),V147= VV[27];
803            while(!endp(V147))
804            if(eql(x,V147->c.c_car)){
805            goto T351;
806            }else V147=V147->c.c_cdr;
807            goto T347;}
808            goto T351;
809    T351:;
810            V146= car((V144));
811            V145= cadr((V144));
812            goto T347;
813    T347:;
814            if(!(type_of((V145))==t_cons)){
815            goto T356;}
816            {register object x= car((V145)),V148= VV[28];
817            while(!endp(V148))
818            if(eql(x,V148->c.c_car)){
819            goto T355;
820            }else V148=V148->c.c_cdr;}
821            {register object x= car((V145)),V149= VV[29];
822            while(!endp(V149))
823            if(eql(x,V149->c.c_car)){
824            goto T362;
825            }else V149=V149->c.c_cdr;
826            goto T356;}
827            goto T362;
828    T362:;
829            base[2]= small_fixnum(0);
830            base[3]= cadr((V145));
831            vs_top=(vs_base=base+2)+2;
832            Llogbitp();
833            vs_top=sup;
834            if((vs_base[0])!=Cnil){
835            goto T355;}
836            base[2]= small_fixnum(1);
837            base[3]= cadr((V145));
838            vs_top=(vs_base=base+2)+2;
839            Llogbitp();
840            vs_top=sup;
841            if((vs_base[0])==Cnil){
842            goto T356;}
843            goto T355;
844    T355:;
845            princ_str("\n   {",VV[5]);
846            vs_base=vs_top;
847            (void) (*Lnk78)();
848            vs_top=sup;
849            {register object V150;
850            setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
851            V150= symbol_value(VV[4]);
852            {object V151;
853            V151= list(2,VV[6],(V150));
854            V141= make_cons((V151),(V141));}
855            {object V152= (V146);
856            if((V152!= Cnil))goto T379;
857            princ_str("object V",VV[5]);
858            (void)((*(LnkLI76))((V150)));
859            princ_str("= ",VV[5]);
860            base[2]= (V144);
861            vs_top=(vs_base=base+2)+1;
862            (void) (*Lnk88)();
863            vs_top=sup;
864            goto T373;
865            goto T379;
866    T379:;
867            if((V152!= VV[20]))goto T385;
868            princ_str("int V",VV[5]);
869            (void)((*(LnkLI76))((V150)));
870            princ_str("= ",VV[5]);
871            base[2]= (V145);
872            vs_top=(vs_base=base+2)+1;
873            (void) (*Lnk89)();
874            vs_top=sup;
875            goto T373;
876            goto T385;
877    T385:;
878            if((V152!= VV[21]))goto T391;
879            princ_str("GEN V",VV[5]);
880            (void)((*(LnkLI76))((V150)));
881            princ_str("= ",VV[5]);
882            base[2]= (V145);
883            base[3]= VV[30];
884            vs_top=(vs_base=base+2)+2;
885            (void) (*Lnk90)();
886            vs_top=sup;
887            goto T373;
888            goto T391;
889    T391:;
890            if((V152!= VV[22]))goto T398;
891            princ_str("unsigned char V",VV[5]);
892            (void)((*(LnkLI76))((V150)));
893            princ_str("= ",VV[5]);
894            base[2]= (V145);
895            vs_top=(vs_base=base+2)+1;
896            (void) (*Lnk91)();
897            vs_top=sup;
898            goto T373;
899            goto T398;
900    T398:;
901            if((V152!= VV[23]))goto T404;
902            princ_str("double V",VV[5]);
903            (void)((*(LnkLI76))((V150)));
904            princ_str("= ",VV[5]);
905            base[2]= (V145);
906            vs_top=(vs_base=base+2)+1;
907            (void) (*Lnk92)();
908            vs_top=sup;
909            goto T373;
910            goto T404;
911    T404:;
912            if((V152!= VV[24]))goto T410;
913            princ_str("float V",VV[5]);
914            (void)((*(LnkLI76))((V150)));
915            princ_str("= ",VV[5]);
916            base[2]= (V145);
917            vs_top=(vs_base=base+2)+1;
918            (void) (*Lnk93)();
919            vs_top=sup;
920            goto T373;
921            goto T410;
922    T410:;
923            (void)((*(LnkLI100))());}}
924            goto T373;
925    T373:;
926            princ_char(59,VV[5]);
927            goto T340;
928            goto T356;
929    T356:;
930            V141= make_cons(V144,(V141));
931            goto T340;}
932            goto T342;
933    T342:;
934            {object V154;
935            V154= car((V139));
936            V141= make_cons((V154),(V141));}
937            goto T340;
938    T340:;
939            V139= cdr((V139));
940            V140= (long)(V140)+1;
941            goto T334;}}
942            goto T305;
943    T305:;
944            V155= (*(LnkLI101))(cadr((V131)));
945            {object V156 = list(4,/* INLINE-ARGS */V155,caddr((V131)),(V133),(V134));
946            VMR8(V156)}}
947            base[0]=base[0];
948            return Cnil;
949    }
950    /*      local entry for function INLINE-TYPE    */
951    
952    static object LI9(V158)
953    
954    object V158;
955    {        VMB9 VMS9 VMV9
956            goto TTL;
957    TTL:;{object V159;
958            {register object x= (V158),V161= symbol_value(VV[31]);
959            while(!endp(V161))
960            if(type_of(V161->c.c_car)==t_cons &&eql(x,V161->c.c_car->c.c_car)){
961            V160= (V161->c.c_car);
962            goto T426;
963            }else V161=V161->c.c_cdr;
964            V160= Cnil;}
965            goto T426;
966    T426:;
967            V159= cdr(V160);
968            if(V159==Cnil)goto T424;
969            {object V162 = V159;
970            VMR9(V162)}
971            goto T424;
972    T424:;}
973            {object V163 = VV[32];
974            VMR9(V163)}
975            return Cnil;
976    }
977    /*      local entry for function GET-INLINE-INFO        */
978    
979    static object LI10(V167,V168,V169)
980    
981    object V167;register object V168;object V169;
982    {        VMB10 VMS10 VMV10
983            goto TTL;
984    TTL:;
985            {register object V170;
986            base[0]=MMcons(Cnil,Cnil);
987            V170= Cnil;
988            if(((VFUN_NARGS=2,(*(LnkLI102))((V167),(V168))))!=Cnil){
989            goto T429;}
990            goto T428;
991            goto T429;
992    T429:;
993            (void)((*(LnkLI103))((V167),(V169),(V168)));
994            goto T428;
995    T428:;
996            {object V171;
997            object V172= (V168);
998            if(endp(V172)){
999            V168= Cnil;
1000            goto T432;}
1001            base[1]=V171=MMcons(Cnil,Cnil);
1002            goto T433;
1003    T433:;
1004            (V171->c.c_car)= structure_ref(cadr((V172->c.c_car)),VV[0],2);
1005            V172=MMcdr(V172);
1006            if(endp(V172)){
1007            V168= base[1];
1008            goto T432;}
1009            V171=MMcdr(V171)=MMcons(Cnil,Cnil);
1010            goto T433;}
1011            goto T432;
1012    T432:;
1013            if((symbol_value(VV[33]))==Cnil){
1014            goto T439;}
1015            (base[0]->c.c_car)= get((V167),VV[34],Cnil);
1016            if(((base[0]->c.c_car))==Cnil){
1017            goto T435;}
1018            goto T437;
1019            goto T439;
1020    T439:;
1021            (base[0]->c.c_car)= get((V167),VV[35],Cnil);
1022            if(((base[0]->c.c_car))==Cnil){
1023            goto T435;}
1024            goto T437;
1025    T437:;
1026            {register object V174;
1027            object V175;
1028            V174= (base[0]->c.c_car);
1029            V175= car((V174));
1030            goto T446;
1031    T446:;
1032            if(!(endp_prop((V174)))){
1033            goto T447;}
1034            goto T435;
1035            goto T447;
1036    T447:;
1037            V170= (*(LnkLI104))((V175),(V168),(V169));
1038            if(((V170))==Cnil){
1039            goto T451;}
1040            {object V176 = (V170);
1041            VMR10(V176)}
1042            goto T451;
1043    T451:;
1044            V174= cdr((V174));
1045            V175= car((V174));
1046            goto T446;}
1047            goto T435;
1048    T435:;
1049            (base[0]->c.c_car)= get((V167),VV[36],Cnil);
1050            if(((base[0]->c.c_car))==Cnil){
1051            goto T460;}
1052            {register object V177;
1053            object V178;
1054            V177= (base[0]->c.c_car);
1055            V178= car((V177));
1056            goto T467;
1057    T467:;
1058            if(!(endp_prop((V177)))){
1059            goto T468;}
1060            goto T460;
1061            goto T468;
1062    T468:;
1063            V170= (*(LnkLI104))((V178),(V168),(V169));
1064            if(((V170))==Cnil){
1065            goto T472;}
1066            {object V179 = (V170);
1067            VMR10(V179)}
1068            goto T472;
1069    T472:;
1070            V177= cdr((V177));
1071            V178= car((V177));
1072            goto T467;}
1073            goto T460;
1074    T460:;
1075            {register object V180;
1076            object V181;
1077            V180= symbol_value(VV[37]);
1078            V181= car((V180));
1079            goto T485;
1080    T485:;
1081            if(!(endp_prop((V180)))){
1082            goto T486;}
1083            goto T481;
1084            goto T486;
1085    T486:;
1086            if(!((car((V181)))==((V167)))){
1087            goto T490;}
1088            V170= (*(LnkLI104))(cdr((V181)),(V168),(V169));
1089            if(((V170))==Cnil){
1090            goto T490;}
1091            {object V182 = (V170);
1092            VMR10(V182)}
1093            goto T490;
1094    T490:;
1095            V180= cdr((V180));
1096            V181= car((V180));
1097            goto T485;}
1098            goto T481;
1099    T481:;
1100            (base[0]->c.c_car)= get((V167),VV[38],Cnil);
1101            if(((base[0]->c.c_car))==Cnil){
1102            goto T501;}
1103            if(!(type_of((base[0]->c.c_car))==t_cons)){
1104            goto T508;}
1105            if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){
1106            goto T508;}
1107            {object V183;
1108            V184 = make_fixnum((long)length((V168)));
1109            V183= (number_compare(V184,car((base[0]->c.c_car)))>=0?Ct:Cnil);
1110            (base[0]->c.c_car)= cdr((base[0]->c.c_car));
1111            if(((V183))==Cnil){
1112            goto T501;}
1113            goto T506;}
1114            goto T508;
1115    T508:;
1116            goto T506;
1117    T506:;
1118            base[1]= make_fixnum((long)length((V168)));
1119            base[2]= VV[39];
1120            base[3]= Ct;
1121            vs_top=(vs_base=base+1)+3;
1122            Lmake_list();
1123            vs_top=sup;
1124            V185= vs_base[0];
1125            V186=
1126            make_cclosure_new(LC27,Cnil,base[0],Cdata);
1127            {object V187 = list(4,V185,Ct,small_fixnum(3),V186);
1128            VMR10(V187)}
1129            goto T501;
1130    T501:;
1131            {object V188 = Cnil;
1132            VMR10(V188)}}
1133            base[0]=base[0];
1134            return Cnil;
1135    }
1136    /*      local entry for function INLINE-TYPE-MATCHES    */
1137    
1138    static object LI11(V192,V193,V194)
1139    
1140    object V192;object V193;object V194;
1141    {        VMB11 VMS11 VMV11
1142            goto TTL;
1143    TTL:;
1144            {register object V195;
1145            V195= Cnil;
1146            if(type_of(caddr((V192)))==t_fixnum){
1147            goto T521;}
1148            base[0]= (V192);
1149            vs_top=(vs_base=base+0)+1;
1150            (void) (*Lnk105)();
1151            vs_top=sup;
1152            goto T521;
1153    T521:;
1154            {register object x= VV[40],V196= car((V192));
1155            while(!endp(V196))
1156            if(eql(x,V196->c.c_car)){
1157            goto T527;
1158            }else V196=V196->c.c_cdr;
1159            goto T525;}
1160            goto T527;
1161    T527:;
1162            {object V197 = Cnil;
1163            VMR11(V197)}
1164            goto T525;
1165    T525:;
1166            {register object V198;
1167            V198= car((V192));
1168            {register object V199;
1169            register object V200;
1170            V199= (V193);
1171            V200= car((V199));
1172            goto T536;
1173    T536:;
1174            if(!(endp_prop((V199)))){
1175            goto T537;}
1176            if(!(equal((V198),VV[41]))){
1177            goto T540;}
1178            goto T531;
1179            goto T540;
1180    T540:;
1181            if(!(endp_prop((V198)))){
1182            goto T529;}
1183            goto T531;
1184            goto T537;
1185    T537:;
1186            if(!(endp_prop((V198)))){
1187            goto T543;}
1188            goto T529;
1189            goto T543;
1190    T543:;
1191            if(!(equal((V198),VV[42]))){
1192            goto T546;}
1193            V198= VV[43];
1194            goto T546;
1195    T546:;
1196            if(!((car((V198)))==(VV[44]))){
1197            goto T552;}
1198            if(((*(LnkLI106))(VV[45],(V200)))==Cnil){
1199            goto T555;}
1200            {register object V201;
1201            V201= VV[45];
1202            V195= make_cons((V201),(V195));
1203            goto T550;}
1204            goto T555;
1205    T555:;
1206            if(((*(LnkLI106))(VV[46],(V200)))==Cnil){
1207            goto T560;}
1208            {register object V202;
1209            V202= VV[46];
1210            V195= make_cons((V202),(V195));
1211            goto T550;}
1212            goto T560;
1213    T560:;
1214            if(((*(LnkLI106))(VV[47],(V200)))==Cnil){
1215            goto T565;}
1216            {register object V203;
1217            V203= VV[47];
1218            V195= make_cons((V203),(V195));
1219            goto T550;}
1220            goto T565;
1221    T565:;
1222            goto T529;
1223            goto T552;
1224    T552:;
1225            if(((*(LnkLI106))(car((V198)),(V200)))==Cnil){
1226            goto T570;}
1227            {register object V204;
1228            V204= car((V198));
1229            V195= make_cons((V204),(V195));
1230            goto T550;}
1231            goto T570;
1232    T570:;
1233            goto T529;
1234            goto T550;
1235    T550:;
1236            {register object V205;
1237            V205= car((V198));
1238            V198= cdr((V198));}
1239            V199= cdr((V199));
1240            V200= car((V199));
1241            goto T536;}}
1242            goto T531;
1243    T531:;
1244            if(((*(LnkLI106))(cadr((V192)),(V194)))==Cnil){
1245            goto T529;}
1246            V206= reverse((V195));
1247            {object V207 = make_cons(/* INLINE-ARGS */V206,cdr((V192)));
1248            VMR11(V207)}
1249            goto T529;
1250    T529:;
1251            {object V208 = Cnil;
1252            VMR11(V208)}}
1253            base[0]=base[0];
1254            return Cnil;
1255    }
1256    /*      local entry for function NEED-TO-PROTECT        */
1257    
1258    static object LI12(V211,V212)
1259    
1260    object V211;object V212;
1261    {        VMB12 VMS12 VMV12
1262            goto TTL;
1263    TTL:;
1264            {register object V213;
1265            V213= Cnil;
1266            {register object V214;
1267            register object V215;
1268            V214= (V211);
1269            V215= (V212);
1270            goto T586;
1271    T586:;
1272            if(!(endp_prop((V214)))){
1273            goto T587;}
1274            {object V216 = Cnil;
1275            VMR12(V216)}
1276            goto T587;
1277    T587:;
1278            {register object V217;
1279            V217= car((V214));
1280            {object V218= car((V217));
1281            if((V218!= VV[14]))goto T593;
1282            goto T591;
1283            goto T593;
1284    T593:;
1285            if((V218!= VV[1]))goto T594;
1286            if(((*(LnkLI75))(caaddr((V217)),cdr((V214))))!=Cnil){
1287            goto T595;}
1288            V220= structure_ref(caaddr((V217)),VV[1],1);
1289            {register object x= /* INLINE-ARGS */V220,V219= VV[48];
1290            while(!endp(V219))
1291            if(eql(x,V219->c.c_car)){
1292            goto T599;
1293            }else V219=V219->c.c_cdr;
1294            goto T591;}
1295            goto T599;
1296    T599:;
1297            V221= car((V215));
1298            V222= structure_ref(caaddr((V217)),VV[1],1);
1299            if((/* INLINE-ARGS */V221)==(/* INLINE-ARGS */V222)){
1300            goto T591;}
1301            goto T595;
1302    T595:;
1303            {object V223 = Ct;
1304            VMR12(V223)}
1305            goto T594;
1306    T594:;
1307            if((V218!= VV[82]))goto T601;
1308            {register object V224;
1309            V224= caddr((V217));
1310            if(((*(LnkLI83))((V224)))==Cnil){
1311            goto T603;}
1312            V225= cadddr((V217));
1313            V226= structure_ref(cadr((V217)),VV[0],2);
1314            V213= (*(LnkLI84))((V224),/* INLINE-ARGS */V225,/* INLINE-ARGS */V226);
1315            if(((V213))==Cnil){
1316            goto T603;}
1317            base[0]= small_fixnum(0);
1318            base[1]= caddr((V213));
1319            vs_top=(vs_base=base+0)+2;
1320            Llogbitp();
1321            vs_top=sup;
1322            if((vs_base[0])!=Cnil){
1323            goto T603;}
1324            base[0]= small_fixnum(1);
1325            base[1]= caddr((V213));
1326            vs_top=(vs_base=base+0)+2;
1327            Llogbitp();
1328            vs_top=sup;
1329            if((vs_base[0])!=Cnil){
1330            goto T603;}
1331            base[0]= small_fixnum(4);
1332            base[1]= caddr((V213));
1333            vs_top=(vs_base=base+0)+2;
1334            Llogbitp();
1335            vs_top=sup;
1336            if((vs_base[0])!=Cnil){
1337            goto T603;}
1338            {register object x= cadr((V213)),V227= VV[49];
1339            while(!endp(V227))
1340            if(eql(x,V227->c.c_car)){
1341            goto T623;
1342            }else V227=V227->c.c_cdr;
1343            goto T621;}
1344            goto T623;
1345    T623:;
1346            if(!((car((V215)))==(cadr((V213))))){
1347            goto T603;}
1348            goto T621;
1349    T621:;
1350            if(((*(LnkLI87))(cadddr((V217)),car((V213))))==Cnil){
1351            goto T591;}
1352            goto T603;
1353    T603:;
1354            {object V228 = Ct;
1355            VMR12(V228)}}
1356            goto T601;
1357    T601:;
1358            if((V218!= VV[96]))goto T626;
1359            V229= make_cons(caddr((V217)),Cnil);
1360            if(((*(LnkLI87))(/* INLINE-ARGS */V229,VV[50]))==Cnil){
1361            goto T591;}
1362            {object V230 = Ct;
1363            VMR12(V230)}
1364            goto T626;
1365    T626:;
1366            {object V231 = Ct;
1367            VMR12(V231)}}}
1368            goto T591;
1369    T591:;
1370            V214= cdr((V214));
1371            V215= cdr((V215));
1372            goto T586;}}
1373            base[0]=base[0];
1374            return Cnil;
1375    }
1376    /*      local entry for function WT-C-PUSH      */
1377    
1378    static object LI13()
1379    
1380    {        VMB13 VMS13 VMV13
1381            goto TTL;
1382    TTL:;
1383            if((symbol_value(VV[9]))==Cnil){
1384            goto T634;}
1385            vs_base=vs_top;
1386            (void) (*Lnk78)();
1387            vs_top=sup;
1388            {object V232;
1389            setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
1390            V232= symbol_value(VV[4]);
1391            princ_char(123,VV[5]);
1392            (void)((*(LnkLI76))(symbol_value(VV[51])));
1393            princ_str("object V",VV[5]);
1394            (void)((*(LnkLI76))((V232)));
1395            princ_char(59,VV[5]);
1396            {object V233 = list(2,VV[6],(V232));
1397            VMR13(V233)}}
1398            goto T634;
1399    T634:;
1400            {object V234 = list(2,VV[12],(*(LnkLI94))());
1401            VMR13(V234)}
1402            base[0]=base[0];
1403            return Cnil;
1404    }
1405    /*      local entry for function CLOSE-INLINE-BLOCKS    */
1406    
1407    static object LI14()
1408    
1409    {        VMB14 VMS14 VMV14
1410            goto TTL;
1411    TTL:;
1412            {register object V235;
1413            V235= symbol_value(VV[2]);
1414            if(!(type_of((V235))==t_cons)){
1415            goto T646;}
1416            if(!(eql(cdr((V235)),VV[52]))){
1417            goto T649;}
1418            princ_str("restore_avma;",VV[5]);
1419            goto T649;
1420    T649:;
1421            V235= car((V235));
1422            goto T646;
1423    T646:;
1424            {register long V236;
1425            register long V237;
1426            V236= fix((V235));
1427            V237= 0;
1428            goto T657;
1429    T657:;
1430            if(!((V237)>=(V236))){
1431            goto T658;}
1432            {object V238 = Cnil;
1433            VMR14(V238)}
1434            goto T658;
1435    T658:;
1436            princ_char(125,VV[5]);
1437            V237= (long)(V237)+1;
1438            goto T657;}}
1439            return Cnil;
1440    }
1441    /*      function definition for WT-INLINE-LOC   */
1442    
1443    static void L15()
1444    {register object *base=vs_base;
1445            register object *sup=base+VM15; VC15
1446            vs_reserve(VM15);
1447            {register object V239;
1448            object V240;
1449            check_arg(2);
1450            V239=(base[0]);
1451            V240=(base[1]);
1452            vs_top=sup;
1453            goto TTL;
1454    TTL:;
1455            {register long V241;
1456            long V242;
1457            V241= 0;
1458            V242= -1;
1459            if(!(type_of((V239))==t_string)){
1460            goto T670;}
1461            base[2]= elt((V239),0);
1462            base[3]= VV[25];
1463            vs_top=(vs_base=base+2)+2;
1464            Lchar_eq();
1465            vs_top=sup;
1466            if((vs_base[0])==Cnil){
1467            goto T672;}
1468            V241= 1;
1469            goto T680;
1470    T680:;
1471            base[2]= elt((V239),V241);
1472            base[3]= VV[26];
1473            vs_top=(vs_base=base+2)+2;
1474            Lchar_eq();
1475            vs_top=sup;
1476            if((vs_base[0])==Cnil){
1477            goto T681;}
1478            V241= (long)(V241)+(1);
1479            goto T672;
1480            goto T681;
1481    T681:;
1482            V241= (long)(V241)+(1);
1483            goto T680;
1484            goto T672;
1485    T672:;
1486            {long V243;
1487            V243= (long)length((V239));
1488            goto T694;
1489    T694:;
1490            if(!((V241)>=(V243))){
1491            goto T695;}
1492            base[2]= Cnil;
1493            vs_top=(vs_base=base+2)+1;
1494            return;
1495            goto T695;
1496    T695:;
1497            {unsigned char V244;
1498            V244= char_code(elt((V239),V241));
1499            base[2]= code_char(V244);
1500            base[3]= VV[53];
1501            vs_top=(vs_base=base+2)+2;
1502            Lchar_eq();
1503            vs_top=sup;
1504            if((vs_base[0])==Cnil){
1505            goto T702;}
1506            {register object V245;
1507            register object V246;
1508            V245= elt((V239),(long)(V241)+1);
1509            V246= small_fixnum(0);
1510            if(!(eql((V245),VV[54]))){
1511            goto T709;}
1512            if(!((V242)>=(0))){
1513            goto T711;}
1514            V247 = make_fixnum(V242);
1515            V248= one_plus(V247);
1516            V249 = make_fixnum((long)length((V240)));
1517            if(!(number_compare(/* INLINE-ARGS */V248,V249)<0)){
1518            goto T711;}
1519            princ_char(44,VV[5]);
1520            goto T711;
1521    T711:;
1522            {register object V250;
1523            V251 = make_fixnum(V242);
1524            V252= one_plus(V251);
1525            V250= nthcdr(fixint(/* INLINE-ARGS */V252),(V240));
1526            goto T719;
1527    T719:;
1528            if(((V250))!=Cnil){
1529            goto T720;}
1530            goto T706;
1531            goto T720;
1532    T720:;
1533            base[2]= car((V250));
1534            vs_top=(vs_base=base+2)+1;
1535            (void) (*Lnk88)();
1536            vs_top=sup;
1537            if((cdr((V250)))==Cnil){
1538            goto T726;}
1539            princ_char(44,VV[5]);
1540            goto T726;
1541    T726:;
1542            V250= cdr((V250));
1543            goto T719;}
1544            goto T709;
1545    T709:;
1546            base[2]= (V245);
1547            base[3]= small_fixnum(10);
1548            vs_top=(vs_base=base+2)+2;
1549            Ldigit_char_p();
1550            vs_top=sup;
1551            if((vs_base[0])==Cnil){
1552            goto T706;}
1553            base[2]= (V245);
1554            vs_top=(vs_base=base+2)+1;
1555            Lchar_code();
1556            vs_top=sup;
1557            V253= vs_base[0];
1558            V254 = make_fixnum((long)(48));
1559            V246= number_minus(V253,V254);
1560            V255 = make_fixnum((long)length((V239)));
1561            V256 = make_fixnum(V241);
1562            V257= number_plus(V256,small_fixnum(2));
1563            if(!(number_compare(V255,/* INLINE-ARGS */V257)>0)){
1564            goto T741;}
1565            V258 = make_fixnum(V241);
1566            V259= number_plus(V258,small_fixnum(2));
1567            V245= elt((V239),fixint(/* INLINE-ARGS */V259));
1568            base[2]= (V245);
1569            vs_top=(vs_base=base+2)+1;
1570            Ldigit_char_p();
1571            vs_top=sup;
1572            if((vs_base[0])==Cnil){
1573            goto T741;}
1574            V260= number_times((V246),small_fixnum(10));
1575            base[2]= (V245);
1576            vs_top=(vs_base=base+2)+1;
1577            Lchar_code();
1578            vs_top=sup;
1579            V261= vs_base[0];
1580            V262 = make_fixnum((long)(48));
1581            V263= number_minus(V261,V262);
1582            V246= number_plus(/* INLINE-ARGS */V260,/* INLINE-ARGS */V263);
1583            V241= (long)(V241)+(1);
1584            goto T741;
1585    T741:;
1586            V264 = make_fixnum(V242);
1587            if(!(number_compare((V246),V264)>=0)){
1588            goto T754;}
1589            V242= fix((V246));
1590            goto T754;
1591    T754:;
1592            base[2]= nth(fixint((V246)),(V240));
1593            vs_top=(vs_base=base+2)+1;
1594            (void) (*Lnk88)();
1595            vs_top=sup;}
1596            goto T706;
1597    T706:;
1598            V241= (long)(V241)+(2);
1599            goto T699;
1600            goto T702;
1601    T702:;
1602            (void)(princ(code_char(V244),symbol_value(VV[5])));
1603            V241= (long)(V241)+(1);}
1604            goto T699;
1605    T699:;
1606            goto T694;}
1607            goto T670;
1608    T670:;
1609            base[2]= (V239);
1610            {object V265;
1611            V265= (V240);
1612             vs_top=base+3;
1613             while(!endp(V265))
1614             {vs_push(car(V265));V265=cdr(V265);}
1615            vs_base=base+3;}
1616            super_funcall_no_event(base[2]);
1617            return;}
1618            }
1619    }
1620    /*      function definition for WT-INLINE       */
1621    
1622    static void L16()
1623    {register object *base=vs_base;
1624            register object *sup=base+VM16; VC16
1625            vs_reserve(VM16);
1626            {object V266;
1627            object V267;
1628            object V268;
1629            check_arg(3);
1630            V266=(base[0]);
1631            V267=(base[1]);
1632            V268=(base[2]);
1633            vs_top=sup;
1634            goto TTL;
1635    TTL:;
1636            base[3]= (V267);
1637            base[4]= (V268);
1638            vs_top=(vs_base=base+3)+2;
1639            (void) (*Lnk107)();
1640            return;
1641            }
1642    }
1643    /*      local entry for function WT-INLINE-COND */
1644    
1645    static object LI17(V272,V273,V274)
1646    
1647    object V272;object V273;object V274;
1648    {        VMB17 VMS17 VMV17
1649            goto TTL;
1650    TTL:;
1651            princ_char(40,VV[5]);
1652            base[0]= (V273);
1653            base[1]= (V274);
1654            vs_top=(vs_base=base+0)+2;
1655            (void) (*Lnk107)();
1656            vs_top=sup;
1657            princ_str("?Ct:Cnil)",VV[5]);
1658            {object V275 = Cnil;
1659            VMR17(V275)}
1660            base[0]=base[0];
1661            return Cnil;
1662    }
1663    /*      local entry for function WT-INLINE-FIXNUM       */
1664    
1665    static object LI18(V279,V280,V281)
1666    
1667    object V279;object V280;object V281;
1668    {        VMB18 VMS18 VMV18
1669            goto TTL;
1670    TTL:;
1671            if(!(number_compare(small_fixnum(0),symbol_value(VV[56]))==0)){
1672            goto T774;}
1673            princ_str("CMP",VV[5]);
1674            goto T774;
1675    T774:;
1676            princ_str("make_fixnum((long)",VV[5]);
1677            base[0]= (V280);
1678            base[1]= (V281);
1679            vs_top=(vs_base=base+0)+2;
1680            (void) (*Lnk107)();
1681            vs_top=sup;
1682            princ_char(41,VV[5]);
1683            {object V282 = Cnil;
1684            VMR18(V282)}
1685            base[0]=base[0];
1686            return Cnil;
1687    }
1688    /*      function definition for WT-INLINE-INTEGER       */
1689    
1690    static void L19()
1691    {register object *base=vs_base;
1692            register object *sup=base+VM19; VC19
1693            vs_reserve(VM19);
1694            {object V283;
1695            object V284;
1696            object V285;
1697            check_arg(3);
1698            V283=(base[0]);
1699            V284=(base[1]);
1700            V285=(base[2]);
1701            vs_top=sup;
1702            goto TTL;
1703    TTL:;
1704            princ_str("make_integer(",VV[5]);
1705            base[3]= (V284);
1706            base[4]= (V285);
1707            vs_top=(vs_base=base+3)+2;
1708            (void) (*Lnk107)();
1709            vs_top=sup;
1710            princ_char(41,VV[5]);
1711            base[3]= Cnil;
1712            vs_top=(vs_base=base+3)+1;
1713            return;
1714            }
1715    }
1716    /*      local entry for function WT-INLINE-CHARACTER    */
1717    
1718    static object LI20(V289,V290,V291)
1719    
1720    object V289;object V290;object V291;
1721    {        VMB20 VMS20 VMV20
1722            goto TTL;
1723    TTL:;
1724            princ_str("code_char(",VV[5]);
1725            base[0]= (V290);
1726            base[1]= (V291);
1727            vs_top=(vs_base=base+0)+2;
1728            (void) (*Lnk107)();
1729            vs_top=sup;
1730            princ_char(41,VV[5]);
1731            {object V292 = Cnil;
1732            VMR20(V292)}
1733            base[0]=base[0];
1734            return Cnil;
1735    }
1736    /*      local entry for function WT-INLINE-LONG-FLOAT   */
1737    
1738    static object LI21(V296,V297,V298)
1739    
1740    object V296;object V297;object V298;
1741    {        VMB21 VMS21 VMV21
1742            goto TTL;
1743    TTL:;
1744            princ_str("make_longfloat(",VV[5]);
1745            base[0]= (V297);
1746            base[1]= (V298);
1747            vs_top=(vs_base=base+0)+2;
1748            (void) (*Lnk107)();
1749            vs_top=sup;
1750            princ_char(41,VV[5]);
1751            {object V299 = Cnil;
1752            VMR21(V299)}
1753            base[0]=base[0];
1754            return Cnil;
1755    }
1756    /*      local entry for function WT-INLINE-SHORT-FLOAT  */
1757    
1758    static object LI22(V303,V304,V305)
1759    
1760    object V303;object V304;object V305;
1761    {        VMB22 VMS22 VMV22
1762            goto TTL;
1763    TTL:;
1764            princ_str("make_shortfloat(",VV[5]);
1765            base[0]= (V304);
1766            base[1]= (V305);
1767            vs_top=(vs_base=base+0)+2;
1768            (void) (*Lnk107)();
1769            vs_top=sup;
1770            princ_char(41,VV[5]);
1771            {object V306 = Cnil;
1772            VMR22(V306)}
1773            base[0]=base[0];
1774            return Cnil;
1775    }
1776    /*      local entry for function ARGS-CAUSE-SIDE-EFFECT */
1777    
1778    static object LI23(V308)
1779    
1780    object V308;
1781    {        VMB23 VMS23 VMV23
1782            goto TTL;
1783    TTL:;
1784            {register object V309;
1785            V309= Cnil;
1786            {register object V310;
1787            register object V311;
1788            V310= (V308);
1789            V311= car((V310));
1790            goto T812;
1791    T812:;
1792            if(!(endp_prop((V310)))){
1793            goto T813;}
1794            {object V312 = Cnil;
1795            VMR23(V312)}
1796            goto T813;
1797    T813:;
1798            {object V313= car((V311));
1799            if((V313!= VV[14])
1800            && (V313!= VV[1])
1801            && (V313!= VV[96]))goto T818;
1802            goto T817;
1803            goto T818;
1804    T818:;
1805            if((V313!= VV[82]))goto T819;
1806            {register object V314;
1807            V314= caddr((V311));
1808            if(((*(LnkLI83))((V314)))==Cnil){
1809            goto T821;}
1810            V315= cadddr((V311));
1811            V316= structure_ref(cadr((V311)),VV[0],2);
1812            V309= (*(LnkLI84))((V314),/* INLINE-ARGS */V315,/* INLINE-ARGS */V316);
1813            if(((V309))==Cnil){
1814            goto T821;}
1815            base[1]= (V309);
1816            vs_top=(vs_base=base+1)+1;
1817            (void) (*Lnk105)();
1818            vs_top=sup;
1819            base[1]= small_fixnum(1);
1820            base[2]= caddr((V309));
1821            vs_top=(vs_base=base+1)+2;
1822            Llogbitp();
1823            vs_top=sup;
1824            V317= vs_base[0];
1825            if((V317)==Cnil){
1826            goto T817;}
1827            goto T821;
1828    T821:;
1829            {object V318 = Ct;
1830            VMR23(V318)}}
1831            goto T819;
1832    T819:;
1833            {object V319 = Ct;
1834            VMR23(V319)}}
1835            goto T817;
1836    T817:;
1837            V310= cdr((V310));
1838            V311= car((V310));
1839            goto T812;}}
1840            base[0]=base[0];
1841            return Cnil;
1842    }
1843    /*      local entry for function LIST-INLINE    */
1844    
1845    static object LI24(object first,...)
1846    {      
1847            va_list ap;
1848            int narg = VFUN_NARGS; VMB24 VMS24 VMV24
1849            {object V320;
1850            va_start(ap,first);
1851            narg= narg - 0;
1852            V321 = list_vector_new(narg,first,ap);
1853            V320= V321;
1854            {object V322;
1855            object V323;
1856            V322= Cnil;
1857            V323= make_fixnum((long)length((V320)));
1858            if(type_of(symbol_value(VV[13]))==t_cons){
1859            goto T845;}
1860            V322= Cnil;
1861            goto T844;
1862            goto T845;
1863    T845:;
1864            if((car(symbol_value(VV[13])))==(VV[1])){
1865            goto T847;}
1866            V322= Cnil;
1867            goto T844;
1868            goto T847;
1869    T847:;
1870            V324= structure_ref(cadr(symbol_value(VV[13])),VV[1],5);
1871            V322= ((/* INLINE-ARGS */V324)==(VV[57])?Ct:Cnil);
1872            goto T844;
1873    T844:;
1874            if(((V322))==Cnil){
1875            goto T842;}
1876            princ_str("(ALLOCA_CONS(",VV[5]);
1877            (void)((*(LnkLI76))((V323)));
1878            princ_str("),ON_STACK_LIST(",VV[5]);
1879            (void)((*(LnkLI76))((V323)));
1880            goto T840;
1881            goto T842;
1882    T842:;
1883            princ_str("list(",VV[5]);
1884            V325 = make_fixnum((long)length((V320)));
1885            (void)((*(LnkLI76))(V325));
1886            goto T840;
1887    T840:;
1888            {register object V326;
1889            register object V327;
1890            V326= (V320);
1891            V327= car((V326));
1892            goto T859;
1893    T859:;
1894            if(!(endp_prop((V326)))){
1895            goto T860;}
1896            goto T855;
1897            goto T860;
1898    T860:;
1899            (void)((*(LnkLI76))(VV[58]));
1900            (void)((*(LnkLI76))((V327)));
1901            V326= cdr((V326));
1902            V327= car((V326));
1903            goto T859;}
1904            goto T855;
1905    T855:;
1906            (void)((*(LnkLI76))(VV[59]));
1907            if(((V322))==Cnil){
1908            goto T875;}
1909            (void)((*(LnkLI76))(VV[59]));
1910            {object V328 = Cnil;
1911            VMR24(V328)}
1912            goto T875;
1913    T875:;
1914            {object V329 = Cnil;
1915            VMR24(V329)}}
1916            va_end(ap);
1917            base[0]=base[0];
1918            return Cnil;}
1919            }
1920    /*      local entry for function LIST*-INLINE   */
1921    
1922    static object LI25(object first,...)
1923    {      
1924            va_list ap;
1925            int narg = VFUN_NARGS; VMB25 VMS25 VMV25
1926            {register object V330;
1927            va_start(ap,first);
1928            narg= narg - 0;
1929            V331 = list_vector_new(narg,first,ap);
1930            V330= V331;switch((long)length((V330))){
1931            case 1:
1932            goto T879;
1933    T879:;
1934            (void)((*(LnkLI76))(car((V330))));
1935            {object V332 = Cnil;
1936            VMR25(V332)}
1937            case 2:
1938            goto T880;
1939    T880:;
1940            princ_str("make_cons(",VV[5]);
1941            (void)((*(LnkLI76))(car((V330))));
1942            princ_char(44,VV[5]);
1943            (void)((*(LnkLI76))(cadr((V330))));
1944            princ_char(41,VV[5]);
1945            {object V333 = Cnil;
1946            VMR25(V333)}
1947            default:
1948            goto T881;
1949    T881:;
1950            princ_str("listA(",VV[5]);
1951            V334 = make_fixnum((long)length((V330)));
1952            (void)((*(LnkLI76))(V334));
1953            {register object V335;
1954            register object V336;
1955            V335= (V330);
1956            V336= car((V335));
1957            goto T896;
1958    T896:;
1959            if(!(endp_prop((V335)))){
1960            goto T897;}
1961            goto T892;
1962            goto T897;
1963    T897:;
1964            (void)((*(LnkLI76))(VV[58]));
1965            (void)((*(LnkLI76))((V336)));
1966            V335= cdr((V335));
1967            V336= car((V335));
1968            goto T896;}
1969            goto T892;
1970    T892:;
1971            (void)((*(LnkLI76))(VV[59]));
1972            {object V337 = Cnil;
1973            VMR25(V337)}
1974            {object V338 = Cnil;
1975            VMR25(V338)}}
1976            {object V339 = Cnil;
1977            VMR25(V339)}
1978            va_end(ap);
1979            base[0]=base[0];
1980            return Cnil;}
1981            }
1982    /*      local entry for function DEFSYSFUN      */
1983    
1984    static object LI26(V346,V347,V348,V349,V350,V351)
1985    
1986    register object V346;object V347;object V348;register object V349;object V350;object V351;
1987    {        VMB26 VMS26 VMV26
1988            goto TTL;
1989    TTL:;
1990            if(((V347))==Cnil){
1991            goto T910;}
1992            (void)(putprop((V346),(V347),VV[60]));
1993            goto T910;
1994    T910:;
1995            if(((V348))==Cnil){
1996            goto T913;}
1997            {object V353;
1998            object V354= (V348);
1999            if(endp(V354)){
2000            V352= Cnil;
2001            goto T916;}
2002            base[0]=V353=MMcons(Cnil,Cnil);
2003            goto T917;
2004    T917:;
2005            if(!(((V354->c.c_car))==(VV[61]))){
2006            goto T920;}
2007            (V353->c.c_car)= VV[61];
2008            goto T918;
2009            goto T920;
2010    T920:;
2011            (V353->c.c_car)= (*(LnkLI108))((V354->c.c_car));
2012            goto T918;
2013    T918:;
2014            V354=MMcdr(V354);
2015            if(endp(V354)){
2016            V352= base[0];
2017            goto T916;}
2018            V353=MMcdr(V353)=MMcons(Cnil,Cnil);
2019            goto T917;}
2020            goto T916;
2021    T916:;
2022            (void)(putprop((V346),V352,VV[62]));
2023            goto T913;
2024    T913:;
2025            if(((V349))==Cnil){
2026            goto T922;}
2027            {register object V356;
2028            if(!(type_of((V349))!=t_cons)){
2029            goto T928;}
2030            V357= make_cons((V349),Cnil);
2031            goto T926;
2032            goto T928;
2033    T928:;
2034            V357= (V349);
2035            goto T926;
2036    T926:;
2037            V356= (*(LnkLI109))(V357);
2038            if(!(type_of((V356))==t_cons)){
2039            goto T931;}
2040            goto T930;
2041            goto T931;
2042    T931:;
2043            V356= make_cons((V356),Cnil);
2044            goto T930;
2045    T930:;
2046            if((cdr((V356)))!=Cnil){
2047            goto T936;}
2048            V358= car((V356));
2049            goto T934;
2050            goto T936;
2051    T936:;
2052            V358= make_cons(VV[63],(V356));
2053            goto T934;
2054    T934:;
2055            (void)(putprop((V346),V358,VV[64]));}
2056            goto T922;
2057    T922:;
2058            if(((V350))==Cnil){
2059            goto T938;}
2060            (void)(putprop((V346),Ct,VV[65]));
2061            goto T938;
2062    T938:;
2063            if(((V351))==Cnil){
2064            goto T942;}
2065            {object V359 = putprop((V346),Ct,VV[66]);
2066            VMR26(V359)}
2067            goto T942;
2068    T942:;
2069            {object V360 = Cnil;
2070            VMR26(V360)}
2071            base[0]=base[0];
2072            return Cnil;
2073    }
2074    /*      local function CLOSURE  */
2075    
2076    static void LC27(base0)
2077    register object *base0;
2078    {       register object *base=vs_base;
2079            register object *sup=base+VM27; VC27
2080            vs_reserve(VM27);
2081            {object V361;
2082            vs_top[0]=Cnil;
2083            {object *p=vs_top;
2084             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
2085            V361=(base[0]);
2086            vs_top=sup;
2087            princ_str("(VFUN_NARGS=",VV[5]);
2088            V362 = make_fixnum((long)length((V361)));
2089            (void)((*(LnkLI76))(V362));
2090            princ_char(44,VV[5]);
2091            base[1]= (base0[0]->c.c_car);
2092            base[2]= (V361);
2093            vs_top=(vs_base=base+1)+2;
2094            (void) (*Lnk107)();
2095            vs_top=sup;
2096            princ_char(41,VV[5]);
2097            base[1]= Cnil;
2098            vs_top=(vs_base=base+1)+1;
2099            return;
2100            }
2101    }
2102    static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */
2103    static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
2104    static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* WT-INLINE-LOC */
2105    static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* TYPE>= */
2106    static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* FIX-OPT */
2107    static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */
2108    static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */
2109    static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[102],(void **)(void *)&LnkLI102,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
2110    static object  LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* INLINE-TYPE */
2111    static object  LnkTLI100(){return call_proc0(VV[100],(void **)(void *)&LnkLI100);} /* BABOON */
2112    static object  LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[7],(void **)(void *)&LnkLI7,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
2113    static object  LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[99],(void **)(void *)&LnkLI99,first,ap);va_end(ap);return V1;} /* MAKE-VAR */
2114    static object  LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,2,first,ap);va_end(ap);return V1;} /* COERCE-LOC-STRUCTURE-REF */
2115    static object  LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
2116    static object  LnkTLI94(){return call_proc0(VV[94],(void **)(void *)&LnkLI94);} /* VS-PUSH */
2117    static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-SHORT-FLOAT-LOC */
2118    static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-LONG-FLOAT-LOC */
2119    static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* WT-CHARACTER-LOC */
2120    static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* WT-INTEGER-LOC */
2121    static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* WT-FIXNUM-LOC */
2122    static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* WT-LOC */
2123    static object  LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)(void *)&LnkLI87,2,first,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */
2124    static object  LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)(void *)&LnkLI86,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
2125    static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* SAVE-AVMA */
2126    static object  LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
2127    static object  LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)(void *)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
2128    static object  LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[81],(void **)(void *)&LnkLI81,first,ap);va_end(ap);return V1;} /* CS-PUSH */
2129    static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,2,first,ap);va_end(ap);return V1;} /* WT-VAR */
2130    static object  LnkTLI79(){return call_proc0(VV[79],(void **)(void *)&LnkLI79);} /* WT-C-PUSH */
2131    static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* INC-INLINE-BLOCKS */
2132    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;} /* REP-TYPE */
2133    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;} /* WT1 */
2134    static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
2135    static object  LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,2,first,ap);va_end(ap);return V1;} /* COERCE-LOC */
2136    
2137    #ifdef SYSTEM_SPECIAL_INIT
2138    SYSTEM_SPECIAL_INIT
2139    #endif
2140    

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