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

Diff of /gcl/cmpnew/gcl_cmpcall.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_cmpcall.h"
4    void init_gcl_cmpcall(){do_init(VV);}
5    /*      local entry for function FAST-LINK-PROCLAIMED-TYPE-P    */
6    
7    static object LI1(object V1,object first,...)
8    {      
9            va_list ap;
10            int narg = VFUN_NARGS; VMB1 VMS1 VMV1
11            {register object V2;
12            object V3;
13            va_start(ap,first);
14            if(narg <1) too_few_arguments();
15            V2= V1;
16            narg = narg - 1;
17            if (narg <= 0) goto T1;
18            else {
19            V3= first;}
20            --narg; goto T2;
21            goto T1;
22    T1:;
23            V3= Cnil;
24            goto T2;
25    T2:;
26            if(type_of((V2))==t_symbol){
27            goto T4;}
28            {object V4 = Cnil;
29            VMR1(V4)}
30            goto T4;
31    T4:;
32            if(((long)length((V3)))<(64)){
33            goto T6;}
34            {object V5 = Cnil;
35            VMR1(V5)}
36            goto T6;
37    T6:;{object V6;
38            if((get((V2),VV[0],Cnil))!=Cnil){
39            goto T10;}
40            V6= Cnil;
41            goto T9;
42            goto T10;
43    T10:;
44            V6= (type_of((V3))==t_cons||((V3))==Cnil?Ct:Cnil);
45            goto T9;
46    T9:;
47            if(V6==Cnil)goto T8;
48            {object V7 = V6;
49            VMR1(V7)}
50            goto T8;
51    T8:;}
52            if((get((V2),VV[1],Cnil))!=Cnil){
53            goto T12;}
54            {object V8 = Cnil;
55            VMR1(V8)}
56            goto T12;
57    T12:;
58            {object V9;
59            V9= get((V2),VV[2],Cnil);
60            {register object x= (V9),V11= VV[3];
61            while(!endp(V11))
62            if(eql(x,V11->c.c_car)){
63            V10= V11;
64            goto T17;
65            }else V11=V11->c.c_cdr;
66            V10= Cnil;}
67            goto T17;
68    T17:;
69            if((V10)==Cnil){
70            goto T14;}}
71            {object V12 = Cnil;
72            VMR1(V12)}
73            goto T14;
74    T14:;
75            {register object V13;
76            register object V14;
77            V13= get((V2),VV[4],Cnil);
78            V14= car((V13));
79            goto T21;
80    T21:;
81            if(!(endp_prop((V13)))){
82            goto T22;}
83            {object V15 = Ct;
84            VMR1(V15)}
85            goto T22;
86    T22:;
87            if(!(((V14))==(VV[5]))){
88            goto T27;}
89            goto T26;
90            goto T27;
91    T27:;{object V16;
92            {register object V17;
93            V17= (V14);
94            {register object x= (V17),V19= VV[3];
95            while(!endp(V19))
96            if(eql(x,V19->c.c_car)){
97            V18= V19;
98            goto T31;
99            }else V19=V19->c.c_cdr;
100            V18= Cnil;}
101            goto T31;
102    T31:;
103            V16= ((V18)==Cnil?Ct:Cnil);}
104            if(V16==Cnil)goto T29;
105            goto T26;
106            goto T29;
107    T29:;}
108            {object V20 = Cnil;
109            VMR1(V20)}
110            goto T26;
111    T26:;
112            V13= cdr((V13));
113            V14= car((V13));
114            goto T21;}
115            va_end(ap);
116            base[0]=base[0];
117            return Cnil;}
118            }
119    /*      local entry for function CMP-MACRO-FUNCTION     */
120    
121    static object LI2(V22)
122    
123    object V22;
124    {        VMB2 VMS2 VMV2
125            goto TTL;
126    TTL:;
127            {object V23;
128            V23= Cnil;
129            V23= (*(LnkLI100))((V22));
130            if(((V23))==Cnil){
131            goto T39;}
132            if(!((car((V23)))==(VV[6]))){
133            goto T43;}
134            {object V24 = Cnil;
135            VMR2(V24)}
136            goto T43;
137    T43:;
138            {object V25 = (V23);
139            VMR2(V25)}
140            goto T39;
141    T39:;
142            base[0]= (V22);
143            vs_top=(vs_base=base+0)+1;
144            Lmacro_function();
145            vs_top=sup;
146            {object V26 = vs_base[0];
147            VMR2(V26)}}
148            base[0]=base[0];
149            return Cnil;
150    }
151    /*      local entry for function C1FUNOB        */
152    
153    static object LI3(V28)
154    
155    register object V28;
156    {        VMB3 VMS3 VMV3
157            bds_check;
158            goto TTL;
159    TTL:;
160            {register object V29;
161            V29= Cnil;
162            if(!(type_of((V28))==t_cons)){
163            goto T47;}
164            if(!(type_of(car((V28)))==t_symbol)){
165            goto T47;}
166            if(((*(LnkLI101))(car((V28))))==Cnil){
167            goto T47;}
168            V28= (*(LnkLI102))((V28));
169            goto T47;
170    T47:;{object V30;
171            if(type_of((V28))==t_cons){
172            goto T57;}
173            V30= Cnil;
174            goto T56;
175            goto T57;
176    T57:;{object V31;
177            if((car((V28)))==(VV[7])){
178            goto T61;}
179            V31= Cnil;
180            goto T60;
181            goto T61;
182    T61:;
183            if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){
184            goto T63;}
185            V31= Cnil;
186            goto T60;
187            goto T63;
188    T63:;
189            if(endp_prop(cddr((V28)))){
190            goto T65;}
191            V31= Cnil;
192            goto T60;
193            goto T65;
194    T65:;{object V32;
195            if(type_of(cadr((V28)))==t_cons){
196            goto T69;}
197            V32= Cnil;
198            goto T68;
199            goto T69;
200    T69:;
201            if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){
202            goto T71;}
203            V32= Cnil;
204            goto T68;
205            goto T71;
206    T71:;
207            if((caadr((V28)))==(VV[8])){
208            goto T73;}
209            V32= Cnil;
210            goto T68;
211            goto T73;
212    T73:;
213            bds_bind(VV[9],Cnil);
214            bds_bind(VV[10],Cnil);
215            bds_bind(VV[11],Cnil);
216            bds_bind(VV[12],Cnil);
217            {object V33;
218            V33= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28))));
219            V34= list(3,VV[13],cadr((V33)),(V33));
220            bds_unwind1;
221            bds_unwind1;
222            bds_unwind1;
223            bds_unwind1;
224            V32= V34;}
225            goto T68;
226    T68:;
227            if(V32==Cnil)goto T67;
228            V31= V32;
229            goto T60;
230            goto T67;
231    T67:;}
232            if(type_of(cadr((V28)))==t_symbol){
233            goto T76;}
234            V31= Cnil;
235            goto T60;
236            goto T76;
237    T76:;{object V35;
238            V29= (*(LnkLI100))(cadr((V28)));
239            if(((V29))!=Cnil){
240            goto T80;}
241            V35= Cnil;
242            goto T79;
243            goto T80;
244    T80:;
245            if((car((V29)))==(VV[6])){
246            goto T83;}
247            V35= Cnil;
248            goto T79;
249            goto T83;
250    T83:;
251            V35= (V29);
252            goto T79;
253    T79:;
254            if(V35==Cnil)goto T78;
255            V31= V35;
256            goto T60;
257            goto T78;
258    T78:;}
259            V36= get(cadr((V28)),VV[16],Cnil);
260            V37= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V36)==Cnil?Ct:Cnil)));
261            V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28)));
262            goto T60;
263    T60:;
264            if(V31==Cnil)goto T59;
265            V30= V31;
266            goto T56;
267            goto T59;
268    T59:;}
269            if((car((V28)))==(VV[17])){
270            goto T86;}
271            V30= Cnil;
272            goto T56;
273            goto T86;
274    T86:;
275            if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){
276            goto T88;}
277            V30= Cnil;
278            goto T56;
279            goto T88;
280    T88:;
281            if(endp_prop(cddr((V28)))){
282            goto T90;}
283            V30= Cnil;
284            goto T56;
285            goto T90;
286    T90:;{object V38;
287            if(type_of(cadr((V28)))==t_cons){
288            goto T94;}
289            V38= Cnil;
290            goto T93;
291            goto T94;
292    T94:;
293            if((caadr((V28)))==(VV[8])){
294            goto T96;}
295            V38= Cnil;
296            goto T93;
297            goto T96;
298    T96:;
299            if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){
300            goto T98;}
301            V38= Cnil;
302            goto T93;
303            goto T98;
304    T98:;
305            {object V39;
306            V39= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28))));
307            V38= list(3,VV[13],cadr((V39)),(V39));}
308            goto T93;
309    T93:;
310            if(V38==Cnil)goto T92;
311            V30= V38;
312            goto T56;
313            goto T92;
314    T92:;}
315            if(type_of(cadr((V28)))==t_symbol){
316            goto T101;}
317            V30= Cnil;
318            goto T56;
319            goto T101;
320    T101:;{object V40;
321            V29= (*(LnkLI100))(cadr((V28)));
322            if(((V29))!=Cnil){
323            goto T105;}
324            V40= Cnil;
325            goto T104;
326            goto T105;
327    T105:;
328            if((car((V29)))==(VV[6])){
329            goto T108;}
330            V40= Cnil;
331            goto T104;
332            goto T108;
333    T108:;
334            V40= (V29);
335            goto T104;
336    T104:;
337            if(V40==Cnil)goto T103;
338            V30= V40;
339            goto T56;
340            goto T103;
341    T103:;}
342            V41= get(cadr((V28)),VV[16],Cnil);
343            V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V41)==Cnil?Ct:Cnil)));
344            V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28)));
345            goto T56;
346    T56:;
347            if(V30==Cnil)goto T55;
348            {object V43 = V30;
349            VMR3(V43)}
350            goto T55;
351    T55:;}
352            {object V44;
353            object V45;
354            V44= (*(LnkLI105))((V28));
355            V45= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],Ct));
356            (void)((*(LnkLI106))((V45),cadr((V44))));
357            {object V46 = list(3,VV[18],(V45),(V44));
358            VMR3(V46)}}}
359            base[0]=base[0];
360            return Cnil;
361    }
362    /*      local entry for function C2FUNCALL-AUX  */
363    
364    static object LI4(V48)
365    
366    register object V48;
367    {        VMB4 VMS4 VMV4
368            goto TTL;
369    TTL:;
370            {object V49;
371            object V50;
372            object V51;
373            object V52;
374            V49= cadr((V48));
375            V50= caddr((V48));
376            V51= cadddr((V48));
377            V52= car(cddddr((V48)));
378            {object V53 = (VFUN_NARGS=4,(*(LnkLI107))((V50),(V51),(V52),(V49)));
379            VMR4(V53)}}
380            base[0]=base[0];
381            return Cnil;
382    }
383    /*      local entry for function C2FUNCALL      */
384    
385    static object LI5(object V55,object V54,object first,...)
386    {      
387            va_list ap;
388            int narg = VFUN_NARGS; VMB5 VMS5 VMV5
389            bds_check;
390            {register object V56;
391            register object V57;
392            register object V58;
393            object V59;
394            va_start(ap,first);
395            if(narg <2) too_few_arguments();
396            V56= V55;
397            V57= V54;
398            narg = narg - 2;
399            if (narg <= 0) goto T118;
400            else {
401            V58= first;}
402            if (--narg <= 0) goto T119;
403            else {
404            V59= va_arg(ap,object);}
405            --narg; goto T120;
406            goto T118;
407    T118:;
408            V58= Cnil;
409            goto T119;
410    T119:;
411            V59= Cnil;
412            goto T120;
413    T120:;
414            {object V60= car((V56));
415            if((V60!= VV[14]))goto T123;
416            {object V61 = (*(LnkLI108))(caddr((V56)),(V57),(V58),Ct);
417            VMR5(V61)}
418            goto T123;
419    T123:;
420            if((V60!= VV[6]))goto T124;
421            {object V62 = (*(LnkLI109))(cddr((V56)),(V57));
422            VMR5(V62)}
423            goto T124;
424    T124:;
425            if((V60!= VV[13]))goto T125;
426            {object V63 = (*(LnkLI110))(caddr((V56)),(V57));
427            VMR5(V63)}
428            goto T125;
429    T125:;
430            if((V60!= VV[18]))goto T126;
431            {register object V64;
432            base[0]= symbol_value(VV[19]);
433            V64= caddr((V56));
434            bds_bind(VV[19],base[0]);
435            if(!(type_of((V57))==t_cons||((V57))==Cnil)){
436            goto T129;}
437            if((symbol_value(VV[20]))==Cnil){
438            goto T129;}
439            if((symbol_value(VV[21]))==(VV[22])){
440            goto T130;}
441            if(!(type_of(symbol_value(VV[21]))==t_cons)){
442            goto T137;}
443            if((car(symbol_value(VV[21])))==(VV[23])){
444            goto T130;}
445            goto T137;
446    T137:;
447            if(((V59))==Cnil){
448            goto T129;}
449            V65= structure_ref((V59),VV[24],2);
450            if(!(equal(/* INLINE-ARGS */V65,VV[25]))){
451            goto T129;}
452            goto T130;
453    T130:;
454            (void)((*(LnkLI111))((V64),(V57),(V59)));
455            {object V66 = Cnil;
456            bds_unwind1;
457            VMR5(V66)}
458            goto T129;
459    T129:;
460            if(((V58))!=Cnil){
461            goto T145;}
462            if(type_of((V57))==t_cons||((V57))==Cnil){
463            goto T148;}
464            (void)((*(LnkLI112))());
465            goto T148;
466    T148:;
467            if(!((car((V64)))==(VV[26]))){
468            goto T152;}
469            V58= caddr((V64));
470            goto T145;
471            goto T152;
472    T152:;
473            if(!((car((V64)))==(VV[23]))){
474            goto T156;}
475            if(((*(LnkLI113))(caaddr((V64)),(V57)))!=Cnil){
476            goto T156;}
477            V58= make_cons(VV[23],caddr((V64)));
478            goto T145;
479            goto T156;
480    T156:;
481            V58= list(2,VV[27],(*(LnkLI114))());
482            bds_bind(VV[21],(V58));
483            V67= (*(LnkLI115))(caddr((V56)));
484            bds_unwind1;
485            goto T145;
486    T145:;
487            (void)((*(LnkLI116))((V57)));
488            if((symbol_value(VV[28]))==Cnil){
489            goto T166;}
490            princ_str("\n   super_funcall(",VV[29]);
491            (void)((*(LnkLI117))((V58)));
492            princ_str(");",VV[29]);
493            goto T164;
494            goto T166;
495    T166:;
496            if((symbol_value(VV[30]))==Cnil){
497            goto T172;}
498            (void)((
499            (type_of(symbol_value(VV[30])) == t_sfun ?(*((symbol_value(VV[30]))->sfn.sfn_self)):
500            (fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58))));
501            goto T164;
502            goto T172;
503    T172:;
504            princ_str("\n   super_funcall_no_event(",VV[29]);
505            (void)((*(LnkLI117))((V58)));
506            princ_str(");",VV[29]);
507            goto T164;
508    T164:;
509            {object V68 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
510            bds_unwind1;
511            VMR5(V68)}}
512            goto T126;
513    T126:;
514            {object V69 = (*(LnkLI112))();
515            VMR5(V69)}}
516            va_end(ap);
517            base[0]=base[0];
518            return Cnil;}
519            }
520    /*      local entry for function FCALLN-INLINE  */
521    
522    static object LI6(object first,...)
523    {      
524            va_list ap;
525            int narg = VFUN_NARGS; VMB6 VMS6 VMV6
526            {register object V70;
527            va_start(ap,first);
528            narg= narg - 0;
529            V71 = list_vector_new(narg,first,ap);
530            V70= V71;
531            {register object V72;
532            object V73;
533            V72= car((V70));
534            V73= Cnil;
535            (void)((*(LnkLI117))(VV[32]));
536            if(!(type_of((V72))==t_cons)){
537            goto T182;}
538            if((car((V72)))==(VV[23])){
539            goto T181;}
540            goto T182;
541    T182:;
542            V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))()));
543            princ_str("\n   ",VV[29]);
544            (void)((*(LnkLI117))((V72)));
545            princ_str(" = ",VV[29]);
546            (void)((*(LnkLI117))(car((V70))));
547            princ_char(44,VV[29]);
548            goto T181;
549    T181:;
550            princ_str("\n   (type_of(",VV[29]);
551            (void)((*(LnkLI117))((V72)));
552            princ_str(") == t_sfun ?",VV[29]);
553            princ_str("(*((",VV[29]);
554            (void)((*(LnkLI117))((V72)));
555            princ_str(")->sfn.sfn_self)):",VV[29]);
556            if(!(number_compare(symbol_value(VV[34]),small_fixnum(3))<0)){
557            goto T200;}
558            V73= Ct;
559            princ_str("\n   (fcall.argd=",VV[29]);
560            V74 = make_fixnum((long)length(cdr((V70))));
561            (void)((*(LnkLI117))(V74));
562            princ_str(",type_of(",VV[29]);
563            (void)((*(LnkLI117))((V72)));
564            princ_str(")==t_vfun) ?",VV[29]);
565            princ_str("\n   (*((",VV[29]);
566            (void)((*(LnkLI117))((V72)));
567            princ_str(")->sfn.sfn_self)):",VV[29]);
568            goto T200;
569    T200:;
570            princ_str("\n   (fcall.fun=(",VV[29]);
571            (void)((*(LnkLI117))((V72)));
572            princ_str("),",VV[29]);
573            if(((V73))!=Cnil){
574            goto T218;}
575            princ_str("fcall.argd=",VV[29]);
576            V75 = make_fixnum((long)length(cdr((V70))));
577            (void)((*(LnkLI117))(V75));
578            princ_char(44,VV[29]);
579            goto T218;
580    T218:;
581            princ_str("fcalln))(",VV[29]);
582            if((cdr((V70)))==Cnil){
583            goto T226;}
584            (void)((*(LnkLI117))(cadr((V70))));
585            {register object V76;
586            register object V77;
587            V76= cddr((V70));
588            V77= car((V76));
589            goto T234;
590    T234:;
591            if(!(endp_prop((V76)))){
592            goto T235;}
593            goto T226;
594            goto T235;
595    T235:;
596            (void)((*(LnkLI117))(VV[35]));
597            (void)((*(LnkLI117))((V77)));
598            V76= cdr((V76));
599            V77= car((V76));
600            goto T234;}
601            goto T226;
602    T226:;
603            (void)((*(LnkLI117))(VV[36]));
604            (void)((*(LnkLI117))(VV[36]));
605            {object V78 = Cnil;
606            VMR6(V78)}}
607            va_end(ap);
608            base[0]=base[0];
609            return Cnil;}
610            }
611    /*      local entry for function C2CALL-LAMBDA  */
612    
613    static object LI7(V81,V82)
614    
615    object V81;register object V82;
616    {        VMB7 VMS7 VMV7
617            bds_check;
618            goto TTL;
619    TTL:;
620            {register object V83;
621            V83= caddr((V81));
622            if((cadr((V83)))!=Cnil){
623            goto T250;}
624            if((caddr((V83)))!=Cnil){
625            goto T250;}
626            if((cadddr((V83)))!=Cnil){
627            goto T250;}
628            if(type_of((V82))==t_cons||((V82))==Cnil){
629            goto T251;}
630            goto T250;
631    T250:;
632            if(!(type_of((V82))==t_cons||((V82))==Cnil)){
633            goto T259;}
634            {object V84;
635            V84= symbol_value(VV[19]);
636            bds_bind(VV[19],symbol_value(VV[19]));
637            (void)((*(LnkLI120))((V82)));
638            if(((*(LnkLI121))((V83)))==Cnil){
639            bds_unwind1;
640            goto T259;}
641            princ_str("\n   vs_top=(vs_base=base+",VV[29]);
642            (void)((*(LnkLI117))((V84)));
643            princ_str(")+",VV[29]);
644            V85= number_minus((VV[19]->s.s_dbind),(V84));
645            (void)((*(LnkLI117))(/* INLINE-ARGS */V85));
646            princ_char(59,VV[29]);
647            setq(VV[37],Ct);
648            bds_unwind1;}
649            goto T259;
650    T259:;
651            {object V86 = (VFUN_NARGS=2,(*(LnkLI122))((V83),caddr(cddr((V81)))));
652            VMR7(V86)}
653            goto T251;
654    T251:;
655            {object V87;
656            object V88;
657            V87= make_fixnum((long)length(car((V83))));
658            V88= make_fixnum((long)length((V82)));
659            if(!(eql((V88),(V87)))){
660            goto T276;}
661            goto T273;
662            goto T276;
663    T276:;
664            (void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V88),(V87))));}
665            goto T273;
666    T273:;
667            {object V89 = (*(LnkLI124))(car((V83)),(V82),caddr(cddr((V81))));
668            VMR7(V89)}}
669            base[0]=base[0];
670            return Cnil;
671    }
672    /*      local entry for function CHECK-FNAME-ARGS       */
673    
674    static object LI8(V92,V93)
675    
676    object V92;object V93;
677    {        VMB8 VMS8 VMV8
678            goto TTL;
679    TTL:;
680            {register object V94;
681            V94= get((V92),VV[39],Ct);
682            if((Ct)==((V94))){
683            goto T280;}
684            goto T279;
685            goto T280;
686    T280:;
687            if((get((V92),VV[40],Cnil))!=Cnil){
688            goto T282;}
689            goto T279;
690            goto T282;
691    T282:;
692            V94= VV[41];
693            goto T279;
694    T279:;
695            if(!(type_of((V94))==t_cons||((V94))==Cnil)){
696            goto T286;}
697            if(!(type_of((V93))==t_cons||((V93))==Cnil)){
698            goto T286;}
699            {register object x= VV[5],V95= (V94);
700            while(!endp(V95))
701            if(eql(x,V95->c.c_car)){
702            goto T286;
703            }else V95=V95->c.c_cdr;}
704            if(!(((long)length((V94)))==((long)length((V93))))){
705            goto T292;}
706            {object V96 = Ct;
707            VMR8(V96)}
708            goto T292;
709    T292:;
710            V97 = make_fixnum((long)length((V93)));
711            V98 = make_fixnum((long)length((V94)));
712            {object V99 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V92),V97,V98));
713            VMR8(V99)}
714            goto T286;
715    T286:;
716            {object V100 = Cnil;
717            VMR8(V100)}}
718            return Cnil;
719    }
720    /*      function definition for SAVE-AVMA       */
721    
722    static void L9()
723    {register object *base=vs_base;
724            register object *sup=base+VM9; VC9
725            vs_reserve(VM9);
726            {object V101;
727            check_arg(1);
728            V101=(base[0]);
729            vs_top=sup;
730            goto TTL;
731    TTL:;
732            if((symbol_value(VV[43]))!=Cnil){
733            goto T295;}{object V102;
734            {register object x= VV[44],V103= car((V101));
735            while(!endp(V103))
736            if(eql(x,V103->c.c_car)){
737            V102= V103;
738            goto T301;
739            }else V103=V103->c.c_cdr;
740            V102= Cnil;}
741            goto T301;
742    T301:;
743            if(V102==Cnil)goto T300;
744            setq(VV[43],V102);
745            goto T299;
746            goto T300;
747    T300:;}
748            if(!((cadr((V101)))==(VV[44]))){
749            goto T302;}
750            setq(VV[43],Ct);
751            goto T299;
752            goto T302;
753    T302:;
754            base[1]= small_fixnum(4);
755            base[2]= caddr((V101));
756            vs_top=(vs_base=base+1)+2;
757            Llogbitp();
758            vs_top=sup;
759            setq(VV[43],vs_base[0]);
760            goto T299;
761    T299:;
762            if((symbol_value(VV[43]))==Cnil){
763            goto T295;}
764            princ_str("\n   { save_avma;",VV[29]);
765            vs_base=vs_top;
766            (void) (*Lnk126)();
767            vs_top=sup;
768            if(!(type_of(symbol_value(VV[45]))==t_cons)){
769            goto T309;}
770            base[1]= Ct;
771            vs_top=(vs_base=base+1)+1;
772            return;
773            goto T309;
774    T309:;
775            setq(VV[45],make_cons(symbol_value(VV[45]),VV[46]));
776            base[1]= symbol_value(VV[45]);
777            vs_top=(vs_base=base+1)+1;
778            return;
779            goto T295;
780    T295:;
781            base[1]= Cnil;
782            vs_top=(vs_base=base+1)+1;
783            return;
784            }
785    }
786    /*      local entry for function C2CALL-GLOBAL  */
787    
788    static object LI10(V108,V109,V110,V111)
789    
790    register object V108;register object V109;object V110;object V111;
791    {        VMB10 VMS10 VMV10
792            bds_check;
793            goto TTL;
794    TTL:;
795            {register object V112;
796            V112= Cnil;
797            bds_bind(VV[19],symbol_value(VV[19]));
798            if(((*(LnkLI127))((V108)))==Cnil){
799            goto T314;}
800            if(!(type_of((V109))==t_cons||((V109))==Cnil)){
801            goto T317;}
802            if((symbol_value(VV[47]))==Cnil){
803            goto T317;}
804            if((symbol_value(VV[48]))==Cnil){
805            goto T317;}
806            if(!((car(symbol_value(VV[48])))==((V108)))){
807            goto T317;}
808            {register object x= symbol_value(VV[49]),V113= VV[50];
809            while(!endp(V113))
810            if(eql(x,V113->c.c_car)){
811            goto T327;
812            }else V113=V113->c.c_cdr;
813            goto T317;}
814            goto T327;
815    T327:;
816            if(((*(LnkLI128))())==Cnil){
817            goto T317;}
818            if(!(((long)length((V109)))==((long)length(cdr(symbol_value(VV[48])))))){
819            goto T317;}
820            bds_bind(VV[21],VV[22]);
821            setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));
822            bds_bind(VV[49],make_cons(symbol_value(VV[51]),Cnil));
823            bds_bind(VV[52],make_cons((VV[49]->s.s_dbind),symbol_value(VV[52])));
824            {object V115;
825            object V116= cdr(symbol_value(VV[48]));
826            if(endp(V116)){
827            V114= Cnil;
828            goto T336;}
829            base[4]=V115=MMcons(Cnil,Cnil);
830            goto T337;
831    T337:;
832            (V115->c.c_car)= list(2,(V116->c.c_car),Cnil);
833            V116=MMcdr(V116);
834            if(endp(V116)){
835            V114= base[4];
836            goto T336;}
837            V115=MMcdr(V115)=MMcons(Cnil,Cnil);
838            goto T337;}
839            goto T336;
840    T336:;
841            (void)((*(LnkLI129))(V114,(V109)));
842            if((cdr((VV[49]->s.s_dbind)))==Cnil){
843            bds_unwind1;
844            bds_unwind1;
845            bds_unwind1;
846            goto T331;}
847            princ_str("\n   goto T",VV[29]);
848            (void)((*(LnkLI117))(car((VV[49]->s.s_dbind))));
849            princ_char(59,VV[29]);
850            princ_str("\nT",VV[29]);
851            (void)((*(LnkLI117))(car((VV[49]->s.s_dbind))));
852            princ_str(":;",VV[29]);
853            bds_unwind1;
854            bds_unwind1;
855            bds_unwind1;
856            goto T331;
857    T331:;
858            (void)((*(LnkLI130))(VV[53]));
859            princ_str("\n   goto TTL;",VV[29]);
860            {object V118 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V108)));
861            bds_unwind1;
862            VMR10(V118)}
863            goto T317;
864    T317:;
865            if(!(type_of((V109))==t_cons||((V109))==Cnil)){
866            goto T352;}
867            if(((V110))!=Cnil){
868            goto T352;}
869            V112= (*(LnkLI132))((V108),(V109),(V111));
870            if(((V112))==Cnil){
871            goto T352;}
872            bds_bind(VV[45],small_fixnum(0));
873            bds_bind(VV[43],symbol_value(VV[43]));
874            base[3]= (V112);
875            vs_top=(vs_base=base+3)+1;
876            (void) (*Lnk133)();
877            vs_top=sup;
878            V119= (*(LnkLI134))((V112),(V109));
879            (void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V119,Cnil,(V108))));
880            {object V120 = (*(LnkLI135))();
881            bds_unwind1;
882            bds_unwind1;
883            bds_unwind1;
884            VMR10(V120)}
885            goto T352;
886    T352:;{object V121;
887            V121= get((V108),VV[55],Cnil);
888            if(V121==Cnil)goto T366;
889            V112= V121;
890            goto T365;
891            goto T366;
892    T366:;}
893            V112= get((V108),VV[56],Cnil);
894            goto T365;
895    T365:;
896            if(((V112))==Cnil){
897            goto T363;}
898            (void)((*(LnkLI136))((V108),(V109)));
899            (void)((*(LnkLI116))((V109)));
900            princ_str("\n   ",VV[29]);
901            (void)((*(LnkLI117))((V112)));
902            princ_str("();",VV[29]);
903            {object V122 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108)));
904            bds_unwind1;
905            VMR10(V122)}
906            goto T363;
907    T363:;
908            if(!(type_of((V109))==t_cons||((V109))==Cnil)){
909            goto T375;}
910            if(!(((long)length((V109)))<(10))){
911            goto T375;}
912            if((symbol_value(VV[57]))!=Cnil){
913            goto T380;}
914            if((get((V108),VV[58],Cnil))==Cnil){
915            goto T375;}
916            goto T380;
917    T380:;
918            if(!((symbol_value(VV[21]))==(VV[59]))){
919            goto T386;}
920            base[1]= Ct;
921            base[2]= VV[60];
922            base[3]= (V108);
923            vs_top=(vs_base=base+1)+3;
924            Lformat();
925            vs_top=sup;
926            goto T386;
927    T386:;
928            if((VV[59])==(symbol_value(VV[21]))){
929            goto T375;}
930            if(((V110))!=Cnil){
931            goto T375;}
932            bds_bind(VV[45],small_fixnum(0));
933            V123= (*(LnkLI137))((V108),(V109));
934            V124= (*(LnkLI134))(/* INLINE-ARGS */V123,(V109));
935            (void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V124,Cnil,(V108))));
936            {object V125 = (*(LnkLI135))();
937            bds_unwind1;
938            bds_unwind1;
939            VMR10(V125)}
940            goto T375;
941    T375:;
942            (void)((*(LnkLI116))((V109)));
943            {object V126;
944            V126= (*(LnkLI138))((V108),Cnil,(V109));
945            princ_str("\n   (void) (*Lnk",VV[29]);
946            (void)((*(LnkLI117))((V126)));
947            princ_str(")(",VV[29]);
948            if((get((V108),VV[61],Cnil))==Cnil){
949            goto T402;}
950            princ_str("Lclptr",VV[29]);
951            (void)((*(LnkLI117))((V126)));
952            goto T402;
953    T402:;
954            princ_str(");",VV[29]);
955            {object V127 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108)));
956            bds_unwind1;
957            VMR10(V127)}}
958            goto T314;
959    T314:;
960            {object V128 = (*(LnkLI139))((V108),(V109),(V110),Cnil);
961            bds_unwind1;
962            VMR10(V128)}}
963            base[0]=base[0];
964            return Cnil;
965    }
966    /*      local entry for function ADD-FAST-LINK  */
967    
968    static object LI11(V132,V133,V134)
969    
970    register object V132;object V133;object V134;
971    {        VMB11 VMS11 VMV11
972            goto TTL;
973    TTL:;
974            {object V135;
975            object V136;
976            object V137;
977            register object V138;
978            V137= (*(LnkLI140))((V132));
979            V135= Cnil;
980            V136= Cnil;
981            V138= Cnil;
982            if(((V133))==Cnil){
983            goto T412;}
984            {object V139;
985            object V140;
986            object V141;
987            base[0]=MMcons(Cnil,Cnil);
988            V139= Cnil;
989            V140= Cnil;
990            if(type_of((V134))==t_cons||((V134))==Cnil){
991            goto T417;}
992            V141= Cnil;
993            goto T416;
994            goto T417;
995    T417:;
996            V141= make_fixnum((long)length((V134)));
997            goto T416;
998    T416:;
999            if((get((V132),VV[1],Cnil))==Cnil){
1000            goto T422;}
1001            V140= get((V132),VV[4],Cnil);
1002            goto T420;
1003            goto T422;
1004    T422:;
1005            V139= get((V132),VV[0],Cnil);
1006            if(((V139))==Cnil){
1007            goto T425;}
1008            if(!(type_of((V139))==t_fixnum)){
1009            goto T430;}
1010            if(!(equal((V141),(V139)))){
1011            goto T432;}
1012            goto T428;
1013            goto T432;
1014    T432:;
1015            (void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V132))));
1016            goto T428;
1017            goto T430;
1018    T430:;
1019            (void)(sputprop((V132),VV[0],(V141)));
1020            goto T428;
1021    T428:;
1022            base[2]= (V141);
1023            base[3]= VV[63];
1024            base[4]= Ct;
1025            vs_top=(vs_base=base+2)+3;
1026            Lmake_list();
1027            vs_top=sup;
1028            V140= vs_base[0];
1029            goto T420;
1030            goto T425;
1031    T425:;
1032            V140= Cnil;
1033            goto T420;
1034    T420:;
1035            if((V141)==Cnil){
1036            goto T437;}
1037            V142 = make_fixnum((long)length((V140)));
1038            if(!(eql((V141),V142))){
1039            goto T438;}
1040            goto T437;
1041            goto T438;
1042    T438:;{object V143;
1043            {register object x= VV[5],V144= (V140);
1044            while(!endp(V144))
1045            if(eql(x,V144->c.c_car)){
1046            V143= V144;
1047            goto T441;
1048            }else V144=V144->c.c_cdr;
1049            V143= Cnil;}
1050            goto T441;
1051    T441:;
1052            if(V143==Cnil)goto T440;
1053            goto T437;
1054            goto T440;
1055    T440:;}
1056            V145 = make_fixnum((long)length((V140)));
1057            (void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V132),(V141),V145)));
1058            goto T437;
1059    T437:;
1060            {register object x= (V132),V146= symbol_value(VV[65]);
1061            while(!endp(V146))
1062            if(type_of(V146->c.c_car)==t_cons &&eql(x,V146->c.c_car->c.c_car)){
1063            V136= (V146->c.c_car);
1064            goto T444;
1065            }else V146=V146->c.c_cdr;
1066            V136= Cnil;}
1067            goto T444;
1068    T444:;
1069            if((cddr((V136)))!=Cnil){
1070            goto T410;}
1071            {register object V147;
1072            vs_base=vs_top;
1073            (void) (*Lnk141)();
1074            vs_top=sup;
1075            V147= vs_base[0];
1076            base[2]= (V147);
1077            base[3]= VV[66];
1078            base[4]= (V137);
1079            vs_top=(vs_base=base+2)+3;
1080            Lformat();
1081            vs_top=sup;
1082            {register object V148;
1083            register object V149;
1084            register object V150;
1085            V148= Cnil;
1086            V149= (V140);
1087            V150= small_fixnum(0);
1088            goto T454;
1089    T454:;
1090            if(((V149))!=Cnil){
1091            goto T455;}
1092            goto T452;
1093            goto T455;
1094    T455:;
1095            if(!((car((V149)))==(VV[5]))){
1096            goto T461;}
1097            V138= Ct;
1098            (void)(princ(VV[67],(V147)));
1099            goto T459;
1100            goto T461;
1101    T461:;
1102            if(((V148))==Cnil){
1103            goto T467;}
1104            (void)(princ(VV[68],(V147)));
1105            goto T465;
1106            goto T467;
1107    T467:;
1108            V148= Ct;
1109            goto T465;
1110    T465:;
1111            base[2]= (V147);
1112            base[3]= VV[69];
1113            base[4]= (V150);
1114            vs_top=(vs_base=base+2)+3;
1115            Lformat();
1116            vs_top=sup;
1117            goto T459;
1118    T459:;
1119            V149= cdr((V149));
1120            V150= number_plus(small_fixnum(1),(V150));
1121            goto T454;}
1122            goto T452;
1123    T452:;
1124            (void)(princ(VV[70],(V147)));
1125            base[2]= (V147);
1126            vs_top=(vs_base=base+2)+1;
1127            (void) (*Lnk142)();
1128            vs_top=sup;
1129            (base[0]->c.c_car)= vs_base[0];}
1130            if(((V138))==Cnil){
1131            goto T479;}
1132            V135=
1133            make_cclosure_new(LC21,Cnil,base[0],Cdata);
1134            goto T479;
1135    T479:;
1136            {object V151;{object V153;
1137            V153= get((V132),VV[2],Cnil);
1138            if(V153==Cnil)goto T486;
1139            V152= V153;
1140            goto T485;
1141            goto T486;
1142    T486:;}
1143            V152= Ct;
1144            goto T485;
1145    T485:;
1146            if((V135)!=Cnil){
1147            V154= (V135);
1148            goto T488;}
1149            V154= (base[0]->c.c_car);
1150            goto T488;
1151    T488:;
1152            V151= list(6,(V132),(V140),V152,small_fixnum(3),V154,VV[71]);
1153            setq(VV[72],make_cons((V151),symbol_value(VV[72])));}
1154            base[2]= Cnil;
1155            base[3]= VV[73];
1156            base[4]= (V137);
1157            vs_top=(vs_base=base+2)+3;
1158            Lformat();
1159            vs_top=sup;
1160            V155= vs_base[0];{object V157;
1161            V157= get((V132),VV[2],Cnil);
1162            if(V157==Cnil)goto T496;
1163            V156= V157;
1164            goto T495;
1165            goto T496;
1166    T496:;}
1167            V156= Ct;
1168            goto T495;
1169    T495:;
1170            V136= list(4,(V132),V155,V156,(V140));
1171            goto T410;}
1172            goto T412;
1173    T412:;
1174            (void)((*(LnkLI136))((V132),(V134)));
1175            if((get((V132),VV[61],Cnil))==Cnil){
1176            goto T502;}
1177            V158= VV[61];
1178            goto T500;
1179            goto T502;
1180    T502:;
1181            V158= Cnil;
1182            goto T500;
1183    T500:;
1184            V136= list(3,(V132),(V137),V158);
1185            goto T410;
1186    T410:;
1187            base[0]= V136;
1188            base[1]= symbol_value(VV[65]);
1189            base[2]= VV[74];
1190            base[3]= VV[75];
1191            vs_top=(vs_base=base+0)+4;
1192            Ladjoin();
1193            vs_top=sup;
1194            setq(VV[65],vs_base[0]);
1195            {object V160 = (V137);
1196            VMR11(V160)}}
1197            base[0]=base[0];
1198            return Cnil;
1199    }
1200    /*      function definition for DECLARATION-TYPE        */
1201    
1202    static void L12()
1203    {register object *base=vs_base;
1204            register object *sup=base+VM12; VC12
1205            vs_reserve(VM12);
1206            {object V161;
1207            check_arg(1);
1208            V161=(base[0]);
1209            vs_top=sup;
1210            goto TTL;
1211    TTL:;
1212            if(!(equal((V161),VV[76]))){
1213            goto T511;}
1214            base[1]= VV[77];
1215            vs_top=(vs_base=base+1)+1;
1216            return;
1217            goto T511;
1218    T511:;
1219            if(!(equal((V161),VV[78]))){
1220            goto T514;}
1221            base[1]= VV[79];
1222            vs_top=(vs_base=base+1)+1;
1223            return;
1224            goto T514;
1225    T514:;
1226            base[1]= (V161);
1227            vs_top=(vs_base=base+1)+1;
1228            return;
1229            }
1230    }
1231    /*      local entry for function WT-FUNCTION-LINK       */
1232    
1233    static object LI13(V163)
1234    
1235    register object V163;
1236    {        VMB13 VMS13 VMV13
1237            goto TTL;
1238    TTL:;
1239            {register object V164;
1240            register object V165;
1241            register object V166;
1242            object V167;
1243            V164= car((V163));
1244            V165= cadr((V163));
1245            V166= caddr((V163));
1246            V167= cadddr((V163));
1247            if(((V166))!=Cnil){
1248            goto T522;}
1249            princ_str("\nstatic void LnkT",VV[29]);
1250            (void)((*(LnkLI117))((V165)));
1251            princ_str("(){ call_or_link(VV[",VV[29]);
1252            (void)((*(LnkLI117))((V165)));
1253            princ_str("],(void **)(void *)&Lnk",VV[29]);
1254            (void)((*(LnkLI117))((V165)));
1255            princ_str(");}",VV[29]);
1256            goto T520;
1257            goto T522;
1258    T522:;
1259            if(!(eql((V166),VV[61]))){
1260            goto T532;}
1261            princ_str("\nstatic void LnkT",VV[29]);
1262            (void)((*(LnkLI117))((V165)));
1263            princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]);
1264            (void)((*(LnkLI117))((V165)));
1265            princ_str("],(void **)(void *)&Lnk",VV[29]);
1266            (void)((*(LnkLI117))((V165)));
1267            princ_str(",(void **)(void *)&Lclptr",VV[29]);
1268            (void)((*(LnkLI117))((V165)));
1269            princ_str(");}",VV[29]);
1270            goto T520;
1271            goto T532;
1272    T532:;
1273            princ_str("\nstatic ",VV[29]);
1274            base[0]= (*(LnkLI143))((V166));
1275            vs_top=(vs_base=base+0)+1;
1276            (void) (*Lnk144)();
1277            vs_top=sup;
1278            V168= vs_base[0];
1279            (void)((*(LnkLI117))(V168));
1280            princ_str(" LnkT",VV[29]);
1281            (void)((*(LnkLI117))((V165)));
1282            if(((V167))!=Cnil){
1283            goto T550;}
1284            if((Ct)==((V166))){
1285            goto T551;}
1286            goto T550;
1287    T550:;
1288            {object V169;
1289            {register object x= VV[5],V170= (V167);
1290            while(!endp(V170))
1291            if(eql(x,V170->c.c_car)){
1292            V169= V170;
1293            goto T555;
1294            }else V170=V170->c.c_cdr;
1295            V169= Cnil;}
1296            goto T555;
1297    T555:;
1298            princ_str("(object first,...){",VV[29]);
1299            base[0]= (*(LnkLI143))((V166));
1300            vs_top=(vs_base=base+0)+1;
1301            (void) (*Lnk144)();
1302            vs_top=sup;
1303            V171= vs_base[0];
1304            (void)((*(LnkLI117))(V171));
1305            princ_str("V1;",VV[29]);
1306            princ_str("va_list ap;va_start(ap,first);V1=call_",VV[29]);
1307            if(((V169))==Cnil){
1308            goto T566;}
1309            V172= VV[80];
1310            goto T564;
1311            goto T566;
1312    T566:;
1313            V172= VV[81];
1314            goto T564;
1315    T564:;
1316            (void)((*(LnkLI117))(V172));
1317            princ_str("proc_new(VV[",VV[29]);
1318            V173= (*(LnkLI145))((V164));
1319            (void)((*(LnkLI117))(/* INLINE-ARGS */V173));
1320            princ_str("],(void **)(void *)&Lnk",VV[29]);
1321            (void)((*(LnkLI117))((V165)));
1322            if((V169)!=Cnil){
1323            goto T572;}
1324            princ_char(44,VV[29]);
1325            V174 = make_fixnum((long)(*(LnkLI146))((V167),(V166)));
1326            (void)((*(LnkLI117))(V174));
1327            goto T572;
1328    T572:;
1329            princ_str(",first,ap);va_end(ap);return V1;}",VV[29]);
1330            goto T520;}
1331            goto T551;
1332    T551:;
1333            princ_str("(){return call_proc0(VV[",VV[29]);
1334            V175= (*(LnkLI145))((V164));
1335            (void)((*(LnkLI117))(/* INLINE-ARGS */V175));
1336            princ_str("],(void **)(void *)&Lnk",VV[29]);
1337            (void)((*(LnkLI117))((V165)));
1338            princ_str(");}",VV[29]);
1339            goto T520;
1340    T520:;
1341            V164= symbol_name((V164));
1342            if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V164))))==Cnil){
1343            goto T583;}
1344            V164= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V164)));
1345            goto T583;
1346    T583:;
1347            princ_str(" /* ",VV[29]);
1348            (void)((*(LnkLI117))((V164)));
1349            princ_str(" */",VV[29]);
1350            {object V176 = Cnil;
1351            VMR13(V176)}}
1352            base[0]=base[0];
1353            return Cnil;
1354    }
1355    /*      local entry for function WT-FUNCALL-C   */
1356    
1357    static object LI14(V178)
1358    
1359    register object V178;
1360    {        VMB14 VMS14 VMV14
1361            bds_check;
1362            goto TTL;
1363    TTL:;
1364            {object V179;
1365            object V180;
1366            register object V181;
1367            V179= car((V178));
1368            V180= cdr((V178));
1369            V181= Cnil;
1370            if(!(eql(car((V179)),VV[23]))){
1371            goto T595;}
1372            {object V182;
1373            V182= make_cons(car((V179)),caddr((V179)));
1374            if((symbol_value(VV[83]))==Cnil){
1375            goto T598;}
1376            princ_str("\n   (type_of(",VV[29]);
1377            base[0]= (V182);
1378            vs_top=(vs_base=base+0)+1;
1379            (void) (*Lnk149)();
1380            vs_top=sup;
1381            princ_str(")==t_cfun)||FEinvalid_function(",VV[29]);
1382            base[0]= (V182);
1383            vs_top=(vs_base=base+0)+1;
1384            (void) (*Lnk149)();
1385            vs_top=sup;
1386            princ_str(");",VV[29]);
1387            goto T598;
1388    T598:;
1389            (void)((*(LnkLI116))((V180)));
1390            princ_str("\n   (",VV[29]);
1391            base[0]= (V182);
1392            vs_top=(vs_base=base+0)+1;
1393            (void) (*Lnk149)();
1394            vs_top=sup;
1395            goto T593;}
1396            goto T595;
1397    T595:;
1398            setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
1399            V181= list(2,VV[33],symbol_value(VV[84]));
1400            bds_bind(VV[21],(V181));
1401            princ_str("\n   {object V",VV[29]);
1402            (void)((*(LnkLI117))(cadr((V181))));
1403            princ_char(59,VV[29]);
1404            (void)((*(LnkLI115))(car((V178))));
1405            (void)((*(LnkLI116))(cdr((V178))));
1406            princ_str("(V",VV[29]);
1407            (void)((*(LnkLI117))(cadr((V181))));
1408            bds_unwind1;
1409            goto T593;
1410    T593:;
1411            princ_str(")->cf.cf_self ();",VV[29]);
1412            if((V181)==Cnil){
1413            goto T590;}
1414            princ_char(125,VV[29]);}
1415            goto T590;
1416    T590:;
1417            {object V183 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1418            VMR14(V183)}
1419            base[0]=base[0];
1420            return Cnil;
1421    }
1422    /*      local entry for function INLINE-PROC    */
1423    
1424    static object LI15(V186,V187)
1425    
1426    object V186;object V187;
1427    {        VMB15 VMS15 VMV15
1428            goto TTL;
1429    TTL:;
1430            {register object V188;
1431            register object V189;
1432            object V190;
1433            V188= make_fixnum((long)length((V187)));
1434            V189= Cnil;
1435            V190= (*(LnkLI145))((V186));
1436            base[2]= Ct;
1437            base[3]= VV[85];
1438            base[4]= (V186);
1439            vs_top=(vs_base=base+2)+3;
1440            Lformat();
1441            vs_top=sup;
1442            {object V191;
1443            {object V192= (V188);
1444            if(!eql(V192,VV[86]))goto T636;
1445            base[2]= Cnil;
1446            base[3]= VV[88];
1447            base[4]= (V190);
1448            vs_top=(vs_base=base+2)+3;
1449            Lformat();
1450            vs_top=sup;
1451            V193= vs_base[0];
1452            V191= list(5,VV[87],Ct,small_fixnum(3),V193,VV[58]);
1453            goto T635;
1454            goto T636;
1455    T636:;
1456            if(!eql(V192,VV[89]))goto T641;
1457            base[2]= Cnil;
1458            base[3]= VV[91];
1459            base[4]= (V190);
1460            vs_top=(vs_base=base+2)+3;
1461            Lformat();
1462            vs_top=sup;
1463            V194= vs_base[0];
1464            V191= list(5,VV[90],Ct,small_fixnum(3),V194,VV[58]);
1465            goto T635;
1466            goto T641;
1467    T641:;
1468            base[2]= (V188);
1469            base[3]= VV[63];
1470            base[4]= Ct;
1471            vs_top=(vs_base=base+2)+3;
1472            Lmake_list();
1473            vs_top=sup;
1474            V195= vs_base[0];
1475            base[2]= Cnil;
1476            base[3]= VV[92];
1477            base[4]= (V190);
1478            base[5]= (V188);
1479            {register object V197;
1480            register object V198;
1481            V197= (V188);
1482            V198= small_fixnum(0);
1483            goto T659;
1484    T659:;
1485            if(!(number_compare((V198),(V197))>=0)){
1486            goto T660;}
1487            base[6]= nreverse((V189));
1488            goto T655;
1489            goto T660;
1490    T660:;
1491            {register object V199;
1492            V199= (V198);
1493            V189= make_cons((V199),(V189));}
1494            V198= one_plus((V198));
1495            goto T659;}
1496            goto T655;
1497    T655:;
1498            vs_top=(vs_base=base+2)+5;
1499            Lformat();
1500            vs_top=sup;
1501            V196= vs_base[0];
1502            V191= list(5,V195,Ct,small_fixnum(3),V196,VV[58]);}
1503            goto T635;
1504    T635:;
1505            {object V200;
1506            V200= make_cons((V186),(V191));
1507            setq(VV[72],make_cons((V200),symbol_value(VV[72])));}
1508            {object V201 = (V191);
1509            VMR15(V201)}}}
1510            base[0]=base[0];
1511            return Cnil;
1512    }
1513    /*      local entry for function WT-SIMPLE-CALL */
1514    
1515    static object LI16(object V204,object V203,object V202,object first,...)
1516    {      
1517            va_list ap;
1518            int narg = VFUN_NARGS; VMB16 VMS16 VMV16
1519            {object V205;
1520            object V206;
1521            object V207;
1522            object V208;
1523            va_start(ap,first);
1524            if(narg <3) too_few_arguments();
1525            V205= V204;
1526            V206= V203;
1527            V207= V202;
1528            narg = narg - 3;
1529            if (narg <= 0) goto T673;
1530            else {
1531            V208= first;}
1532            --narg; goto T674;
1533            goto T673;
1534    T673:;
1535            V208= Cnil;
1536            goto T674;
1537    T674:;
1538            princ_str("simple_",VV[29]);
1539            (void)((*(LnkLI117))((V205)));
1540            princ_char(40,VV[29]);
1541            if(((V208))==Cnil){
1542            goto T680;}
1543            princ_str("VV[",VV[29]);
1544            (void)((*(LnkLI117))((V208)));
1545            princ_str("],",VV[29]);
1546            goto T680;
1547    T680:;
1548            princ_str("base+",VV[29]);
1549            (void)((*(LnkLI117))((V206)));
1550            princ_char(44,VV[29]);
1551            (void)((*(LnkLI117))((V207)));
1552            princ_char(41,VV[29]);
1553            setq(VV[37],Ct);
1554            {object V209 = Ct;
1555            VMR16(V209)}
1556            va_end(ap);
1557            return Cnil;}
1558            }
1559    /*      local entry for function SAVE-FUNOB     */
1560    
1561    static object LI17(V211)
1562    
1563    register object V211;
1564    {        VMB17 VMS17 VMV17
1565            bds_check;
1566            goto TTL;
1567    TTL:;
1568            {object V212= car((V211));
1569            if((V212!= VV[13])
1570            && (V212!= VV[150])
1571            && (V212!= VV[6]))goto T693;
1572            {object V213 = Cnil;
1573            VMR17(V213)}
1574            goto T693;
1575    T693:;
1576            if((V212!= VV[14]))goto T694;
1577            if(((*(LnkLI127))(caddr((V211))))==Cnil){
1578            goto T695;}
1579            if((get(caddr((V211)),VV[55],Cnil))!=Cnil){
1580            goto T696;}
1581            if((get(caddr((V211)),VV[56],Cnil))!=Cnil){
1582            goto T696;}
1583            {register object x= caddr((V211)),V214= symbol_value(VV[93]);
1584            while(!endp(V214))
1585            if(type_of(V214->c.c_car)==t_cons &&eql(x,V214->c.c_car->c.c_car)){
1586            goto T696;
1587            }else V214=V214->c.c_cdr;}
1588            goto T695;
1589    T695:;
1590            {object V215;
1591            V215= list(2,VV[27],(*(LnkLI114))());
1592            if((symbol_value(VV[83]))==Cnil){
1593            goto T707;}
1594            princ_str("\n   ",VV[29]);
1595            (void)((*(LnkLI117))((V215)));
1596            princ_str("=symbol_function(VV[",VV[29]);
1597            V216= (*(LnkLI140))(caddr((V211)));
1598            (void)((*(LnkLI117))(/* INLINE-ARGS */V216));
1599            princ_str("]);",VV[29]);
1600            goto T705;
1601            goto T707;
1602    T707:;
1603            princ_str("\n   ",VV[29]);
1604            (void)((*(LnkLI117))((V215)));
1605            princ_str("=VV[",VV[29]);
1606            V217= (*(LnkLI140))(caddr((V211)));
1607            (void)((*(LnkLI117))(/* INLINE-ARGS */V217));
1608            princ_str("]->s.s_gfdef;",VV[29]);
1609            goto T705;
1610    T705:;
1611            {object V218 = (V215);
1612            VMR17(V218)}}
1613            goto T696;
1614    T696:;
1615            {object V219 = Cnil;
1616            VMR17(V219)}
1617            goto T694;
1618    T694:;
1619            if((V212!= VV[18]))goto T719;
1620            {object V220;
1621            V220= list(2,VV[27],(*(LnkLI114))());
1622            bds_bind(VV[21],(V220));
1623            (void)((*(LnkLI115))(caddr((V211))));
1624            {object V221 = (V220);
1625            bds_unwind1;
1626            VMR17(V221)}}
1627            goto T719;
1628    T719:;
1629            {object V222 = (*(LnkLI112))();
1630            VMR17(V222)}}
1631            base[0]=base[0];
1632            return Cnil;
1633    }
1634    /*      local entry for function PUSH-ARGS      */
1635    
1636    static object LI18(V224)
1637    
1638    object V224;
1639    {        VMB18 VMS18 VMV18
1640            bds_check;
1641            goto TTL;
1642    TTL:;
1643            if(((V224))!=Cnil){
1644            goto T723;}
1645            princ_str("\n   vs_base=vs_top;",VV[29]);
1646            {object V225 = Cnil;
1647            VMR18(V225)}
1648            goto T723;
1649    T723:;
1650            if(!(type_of((V224))==t_cons)){
1651            goto T727;}
1652            {object V226;
1653            V226= symbol_value(VV[19]);
1654            bds_bind(VV[19],symbol_value(VV[19]));
1655            {register object V227;
1656            register object V228;
1657            V227= (V224);
1658            V228= car((V227));
1659            goto T734;
1660    T734:;
1661            if(!(endp_prop((V227)))){
1662            goto T735;}
1663            goto T730;
1664            goto T735;
1665    T735:;
1666            base[2]= list(2,VV[27],(*(LnkLI114))());
1667            bds_bind(VV[21],base[2]);
1668            V229= (*(LnkLI115))((V228));
1669            bds_unwind1;
1670            V227= cdr((V227));
1671            V228= car((V227));
1672            goto T734;}
1673            goto T730;
1674    T730:;
1675            princ_str("\n   vs_top=(vs_base=base+",VV[29]);
1676            (void)((*(LnkLI117))((V226)));
1677            princ_str(")+",VV[29]);
1678            V230= number_minus((VV[19]->s.s_dbind),(V226));
1679            (void)((*(LnkLI117))(/* INLINE-ARGS */V230));
1680            princ_char(59,VV[29]);
1681            setq(VV[37],Ct);
1682            {object V231 = Ct;
1683            bds_unwind1;
1684            VMR18(V231)}}
1685            goto T727;
1686    T727:;
1687            {object V232 = Cnil;
1688            VMR18(V232)}
1689            base[0]=base[0];
1690            return Cnil;
1691    }
1692    /*      local entry for function PUSH-ARGS-LISPCALL     */
1693    
1694    static object LI19(V234)
1695    
1696    object V234;
1697    {        VMB19 VMS19 VMV19
1698            bds_check;
1699            goto TTL;
1700    TTL:;
1701            {register object V235;
1702            register object V236;
1703            V235= (V234);
1704            V236= car((V235));
1705            goto T756;
1706    T756:;
1707            if(!(endp_prop((V235)))){
1708            goto T757;}
1709            {object V237 = Cnil;
1710            VMR19(V237)}
1711            goto T757;
1712    T757:;
1713            base[1]= list(2,VV[27],(*(LnkLI114))());
1714            bds_bind(VV[21],base[1]);
1715            V238= (*(LnkLI115))((V236));
1716            bds_unwind1;
1717            V235= cdr((V235));
1718            V236= car((V235));
1719            goto T756;}
1720            base[0]=base[0];
1721            return Cnil;
1722    }
1723    /*      local entry for function C2CALL-UNKNOWN-GLOBAL  */
1724    
1725    static object LI20(V243,V244,V245,V246)
1726    
1727    register object V243;register object V244;register object V245;register object V246;
1728    {        VMB20 VMS20 VMV20
1729            goto TTL;
1730    TTL:;
1731            if((symbol_value(VV[28]))==Cnil){
1732            goto T769;}
1733            if(((V245))!=Cnil){
1734            goto T771;}
1735            V245= list(2,VV[27],(*(LnkLI114))());
1736            princ_str("\n   ",VV[29]);
1737            (void)((*(LnkLI117))((V245)));
1738            princ_str("=symbol_function(VV[",VV[29]);
1739            V247= (*(LnkLI140))((V243));
1740            (void)((*(LnkLI117))(/* INLINE-ARGS */V247));
1741            princ_str("]);",VV[29]);
1742            goto T771;
1743    T771:;
1744            (void)((*(LnkLI116))((V244)));
1745            princ_str("\n   funcall_with_catcher(VV[",VV[29]);
1746            V248= (*(LnkLI140))((V243));
1747            (void)((*(LnkLI117))(/* INLINE-ARGS */V248));
1748            princ_str("],",VV[29]);
1749            (void)((*(LnkLI117))((V245)));
1750            princ_str(");",VV[29]);
1751            {object V249 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243)));
1752            VMR20(V249)}
1753            goto T769;
1754    T769:;
1755            if(((V245))==Cnil){
1756            goto T789;}
1757            (void)((*(LnkLI116))((V244)));
1758            if(((V246))==Cnil){
1759            goto T794;}
1760            if((symbol_value(VV[83]))==Cnil){
1761            goto T797;}
1762            princ_str("\n   funcall_no_event(",VV[29]);
1763            (void)((*(LnkLI117))((V245)));
1764            princ_str(");",VV[29]);
1765            goto T792;
1766            goto T797;
1767    T797:;
1768            princ_str("\n   CMPfuncall(",VV[29]);
1769            (void)((*(LnkLI117))((V245)));
1770            princ_str(");",VV[29]);
1771            goto T792;
1772            goto T794;
1773    T794:;
1774            princ_str("\n   funcall(",VV[29]);
1775            (void)((*(LnkLI117))((V245)));
1776            princ_str(");",VV[29]);
1777            goto T792;
1778    T792:;
1779            {object V250 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1780            VMR20(V250)}
1781            goto T789;
1782    T789:;
1783            if(((*(LnkLI151))((V244)))==Cnil){
1784            goto T809;}
1785            {object V251;
1786            V251= symbol_value(VV[19]);
1787            V245= list(2,VV[27],(*(LnkLI114))());
1788            if((symbol_value(VV[83]))==Cnil){
1789            goto T815;}
1790            princ_str("\n   ",VV[29]);
1791            (void)((*(LnkLI117))((V245)));
1792            princ_str("=symbol_function(VV[",VV[29]);
1793            V252= (*(LnkLI140))((V243));
1794            (void)((*(LnkLI117))(/* INLINE-ARGS */V252));
1795            princ_str("]);",VV[29]);
1796            goto T813;
1797            goto T815;
1798    T815:;
1799            princ_str("\n   ",VV[29]);
1800            (void)((*(LnkLI117))((V245)));
1801            princ_str("=(VV[",VV[29]);
1802            V253= (*(LnkLI140))((V243));
1803            (void)((*(LnkLI117))(/* INLINE-ARGS */V253));
1804            princ_str("]->s.s_gfdef);",VV[29]);
1805            goto T813;
1806    T813:;
1807            (void)((*(LnkLI120))((V244)));
1808            if((symbol_value(VV[21]))==(VV[94])){
1809            goto T828;}
1810            if(!((symbol_value(VV[21]))==(VV[59]))){
1811            goto T829;}
1812            goto T828;
1813    T828:;
1814            princ_str("\n   lispcall",VV[29]);
1815            if(((V246))==Cnil){
1816            goto T835;}
1817            princ_str("_no_event",VV[29]);
1818            goto T835;
1819    T835:;
1820            princ_str("(base+",VV[29]);
1821            (void)((*(LnkLI117))((V251)));
1822            princ_char(44,VV[29]);
1823            V254 = make_fixnum((long)length((V244)));
1824            (void)((*(LnkLI117))(V254));
1825            princ_str(");",VV[29]);
1826            setq(VV[37],Ct);
1827            {object V255 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1828            VMR20(V255)}
1829            goto T829;
1830    T829:;
1831            if(((V246))==Cnil){
1832            goto T849;}
1833            V256= VV[96];
1834            goto T847;
1835            goto T849;
1836    T849:;
1837            V256= VV[97];
1838            goto T847;
1839    T847:;
1840            V257 = make_fixnum((long)length((V244)));
1841            V258= list(4,VV[95],V256,(V251),V257);
1842            {object V259 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V258));
1843            VMR20(V259)}}
1844            goto T809;
1845    T809:;
1846            {object V260;
1847            V260= symbol_value(VV[19]);
1848            (void)((*(LnkLI120))((V244)));
1849            if((symbol_value(VV[21]))==(VV[94])){
1850            goto T852;}
1851            if(!((symbol_value(VV[21]))==(VV[59]))){
1852            goto T853;}
1853            goto T852;
1854    T852:;
1855            princ_str("\n   symlispcall",VV[29]);
1856            if(((V246))==Cnil){
1857            goto T859;}
1858            princ_str("_no_event",VV[29]);
1859            goto T859;
1860    T859:;
1861            princ_str("(VV[",VV[29]);
1862            V261= (*(LnkLI140))((V243));
1863            (void)((*(LnkLI117))(/* INLINE-ARGS */V261));
1864            princ_str("],base+",VV[29]);
1865            (void)((*(LnkLI117))((V260)));
1866            princ_char(44,VV[29]);
1867            V262 = make_fixnum((long)length((V244)));
1868            (void)((*(LnkLI117))(V262));
1869            princ_str(");",VV[29]);
1870            setq(VV[37],Ct);
1871            {object V263 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243)));
1872            VMR20(V263)}
1873            goto T853;
1874    T853:;
1875            if(((V246))==Cnil){
1876            goto T875;}
1877            V264= VV[98];
1878            goto T873;
1879            goto T875;
1880    T875:;
1881            V264= VV[99];
1882            goto T873;
1883    T873:;
1884            V265 = make_fixnum((long)length((V244)));
1885            V266= list(5,VV[95],V264,(V260),V265,(*(LnkLI140))((V243)));
1886            {object V267 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V266,Cnil,(V243)));
1887            VMR20(V267)}}
1888            return Cnil;
1889    }
1890    /*      local function CLOSURE  */
1891    
1892    static void LC21(base0)
1893    register object *base0;
1894    {       register object *base=vs_base;
1895            register object *sup=base+VM21; VC21
1896            vs_reserve(VM21);
1897            {object V268;
1898            vs_top[0]=Cnil;
1899            {object *p=vs_top;
1900             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1901            V268=(base[0]);
1902            vs_top=sup;
1903            princ_str("(VFUN_NARGS=",VV[29]);
1904            V269 = make_fixnum((long)length((V268)));
1905            (void)((*(LnkLI117))(V269));
1906            princ_char(44,VV[29]);
1907            base[1]= (base0[0]->c.c_car);
1908            base[2]= (V268);
1909            vs_top=(vs_base=base+1)+2;
1910            (void) (*Lnk152)();
1911            vs_top=sup;
1912            princ_char(41,VV[29]);
1913            base[1]= Cnil;
1914            vs_top=(vs_base=base+1)+1;
1915            return;
1916            }
1917    }
1918    static void LnkT152(){ call_or_link(VV[152],(void **)(void *)&Lnk152);} /* WT-INLINE-LOC */
1919    static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)(void *)&LnkLI151,1,first,ap);va_end(ap);return V1;} /* ARGS-CAUSE-SIDE-EFFECT */
1920    static void LnkT149(){ call_or_link(VV[149],(void **)(void *)&Lnk149);} /* WT-LOC */
1921    static object  LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[148],(void **)(void *)&LnkLI148,first,ap);va_end(ap);return V1;} /* REMOVE */
1922    static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)(void *)&LnkLI147,first,ap);va_end(ap);return V1;} /* FIND */
1923    static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
1924    static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
1925    static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* DECLARATION-TYPE */
1926    static object  LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
1927    static void LnkT142(){ call_or_link(VV[142],(void **)(void *)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */
1928    static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */
1929    static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
1930    static object  LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,4,first,ap);va_end(ap);return V1;} /* C2CALL-UNKNOWN-GLOBAL */
1931    static object  LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)(void *)&LnkLI138,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */
1932    static object  LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[137],(void **)(void *)&LnkLI137,2,first,ap);va_end(ap);return V1;} /* INLINE-PROC */
1933    static object  LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)(void *)&LnkLI136,2,first,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */
1934    static object  LnkTLI135(){return call_proc0(VV[135],(void **)(void *)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */
1935    static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
1936    static void LnkT133(){ call_or_link(VV[133],(void **)(void *)&Lnk133);} /* SAVE-AVMA */
1937    static object  LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
1938    static object  LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)(void *)&LnkLI131,first,ap);va_end(ap);return V1;} /* CMPNOTE */
1939    static object  LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
1940    static object  LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)(void *)&LnkLI129,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */
1941    static object  LnkTLI128(){return call_proc0(VV[128],(void **)(void *)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */
1942    static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
1943    static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* INC-INLINE-BLOCKS */
1944    static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[125],(void **)(void *)&LnkLI125,first,ap);va_end(ap);return V1;} /* CMPWARN */
1945    static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,3,first,ap);va_end(ap);return V1;} /* C2LET */
1946    static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)(void *)&LnkLI123,first,ap);va_end(ap);return V1;} /* CMPERR */
1947    static object  LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[122],(void **)(void *)&LnkLI122,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */
1948    static object  LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* NEED-TO-SET-VS-POINTERS */
1949    static object  LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)(void *)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS-LISPCALL */
1950    static object  LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[119],(void **)(void *)&LnkLI119,first,ap);va_end(ap);return V1;} /* CS-PUSH */
1951    static object  LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[118],(void **)(void *)&LnkLI118,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
1952    static object  LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,1,first,ap);va_end(ap);return V1;} /* WT1 */
1953    static object  LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS */
1954    static object  LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
1955    static object  LnkTLI114(){return call_proc0(VV[114],(void **)(void *)&LnkLI114);} /* VS-PUSH */
1956    static object  LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
1957    static object  LnkTLI112(){return call_proc0(VV[112],(void **)(void *)&LnkLI112);} /* BABOON */
1958    static object  LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,3,first,ap);va_end(ap);return V1;} /* C2FUNCALL-SFUN */
1959    static object  LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,2,first,ap);va_end(ap);return V1;} /* C2CALL-LAMBDA */
1960    static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,2,first,ap);va_end(ap);return V1;} /* C2CALL-LOCAL */
1961    static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,4,first,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */
1962    static object  LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[107],(void **)(void *)&LnkLI107,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
1963    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;} /* ADD-INFO */
1964    static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
1965    static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[104],(void **)(void *)&LnkLI104,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
1966    static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[103],(void **)(void *)&LnkLI103,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
1967    static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
1968    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;} /* CMP-MACRO-FUNCTION */
1969    static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */
1970    
1971    #ifdef SYSTEM_SPECIAL_INIT
1972    SYSTEM_SPECIAL_INIT
1973    #endif
1974    

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