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

Diff of /gcl/cmpnew/gcl_cmpfun.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_cmpfun.h"
4    void init_gcl_cmpfun(){do_init(VV);}
5    /*      local entry for function C1PRINC        */
6    
7    static object LI1(V2)
8    
9    register object V2;
10    {        VMB1 VMS1 VMV1
11            goto TTL;
12    TTL:;
13            {register object V3;
14            register object V4;
15            V3= Cnil;
16            V4= (VFUN_NARGS=0,(*(LnkLI208))());
17            if(!(endp_prop((V2)))){
18            goto T3;}
19            (void)((*(LnkLI209))(VV[0],small_fixnum(1),small_fixnum(0)));
20            goto T3;
21    T3:;
22            if(endp_prop(cdr((V2)))){
23            goto T6;}
24            if(endp_prop(cddr((V2)))){
25            goto T6;}
26            V5 = make_fixnum((long)length((V2)));
27            (void)((*(LnkLI210))(VV[0],small_fixnum(2),V5));
28            goto T6;
29    T6:;
30            if(!(endp_prop(cdr((V2))))){
31            goto T14;}
32            V3= (*(LnkLI211))();
33            goto T12;
34            goto T14;
35    T14:;
36            V3= (*(LnkLI212))(cadr((V2)),(V4));
37            goto T12;
38    T12:;
39            if(!(type_of(car((V2)))==t_string)){
40            goto T19;}
41            V6 = make_fixnum((long)length(car((V2))));
42            if(number_compare(V6,symbol_value(VV[1]))<=0){
43            goto T18;}
44            goto T19;
45    T19:;
46            if(!(type_of(car((V2)))==t_character)){
47            goto T17;}
48            goto T18;
49    T18:;
50            if(endp_prop(cdr((V2)))){
51            goto T16;}
52            if(!((car((V3)))==(VV[2]))){
53            goto T17;}
54            V8= structure_ref(caaddr((V3)),VV[2],1);
55            {register object x= /* INLINE-ARGS */V8,V7= VV[3];
56            while(!endp(V7))
57            if(eql(x,V7->c.c_car)){
58            goto T28;
59            }else V7=V7->c.c_cdr;
60            goto T17;}
61            goto T28;
62    T28:;
63            goto T16;
64    T16:;
65            V9= car((V2));
66            if(!(endp_prop(cdr((V2))))){
67            goto T31;}
68            V10= Cnil;
69            goto T29;
70            goto T31;
71    T31:;
72            V10= structure_ref(caaddr((V3)),VV[2],4);
73            goto T29;
74    T29:;
75            {object V11 = list(5,VV[0],(V4),/* INLINE-ARGS */V9,V10,(V3));
76            VMR1(V11)}
77            goto T17;
78    T17:;
79            V12= (*(LnkLI212))(car((V2)),(V4));
80            {object V13 = list(4,VV[4],(V4),VV[0],list(2,/* INLINE-ARGS */V12,(V3)));
81            VMR1(V13)}}
82            base[0]=base[0];
83            return Cnil;
84    }
85    /*      local entry for function C2PRINC        */
86    
87    static object LI2(V17,V18,V19)
88    
89    register object V17;register object V18;object V19;
90    {        VMB2 VMS2 VMV2
91            goto TTL;
92    TTL:;
93            if(!((symbol_value(VV[5]))==(VV[6]))){
94            goto T34;}
95            if(!(type_of((V17))==t_character)){
96            goto T38;}
97            princ_str("\n   princ_char(",VV[7]);
98            base[0]= (V17);
99            vs_top=(vs_base=base+0)+1;
100            Lchar_code();
101            vs_top=sup;
102            V20= vs_base[0];
103            (void)((*(LnkLI213))(V20));
104            if(((V18))!=Cnil){
105            goto T47;}
106            princ_str(",Cnil",VV[7]);
107            goto T45;
108            goto T47;
109    T47:;
110            princ_str(",VV[",VV[7]);
111            (void)((*(LnkLI213))((V18)));
112            princ_char(93,VV[7]);
113            goto T45;
114    T45:;
115            princ_str(");",VV[7]);
116            goto T36;
117            goto T38;
118    T38:;
119            if(!(((long)length((V17)))==(1))){
120            goto T55;}
121            princ_str("\n   princ_char(",VV[7]);
122            base[0]= aref1((V17),0);
123            vs_top=(vs_base=base+0)+1;
124            Lchar_code();
125            vs_top=sup;
126            V21= vs_base[0];
127            (void)((*(LnkLI213))(V21));
128            if(((V18))!=Cnil){
129            goto T64;}
130            princ_str(",Cnil",VV[7]);
131            goto T62;
132            goto T64;
133    T64:;
134            princ_str(",VV[",VV[7]);
135            (void)((*(LnkLI213))((V18)));
136            princ_char(93,VV[7]);
137            goto T62;
138    T62:;
139            princ_str(");",VV[7]);
140            goto T36;
141            goto T55;
142    T55:;
143            princ_str("\n   princ_str(\"",VV[7]);
144            {register long V22;
145            register long V23;
146            V22= (long)length((V17));
147            V23= 0;
148            goto T77;
149    T77:;
150            if(!((V23)>=(V22))){
151            goto T78;}
152            goto T73;
153            goto T78;
154    T78:;
155            {register object V24;
156            V24= elt((V17),V23);
157            base[0]= (V24);
158            base[1]= VV[8];
159            vs_top=(vs_base=base+0)+2;
160            Lchar_eq();
161            vs_top=sup;
162            if((vs_base[0])==Cnil){
163            goto T85;}
164            princ_str("\\\\",VV[7]);
165            goto T82;
166            goto T85;
167    T85:;
168            base[0]= (V24);
169            base[1]= VV[9];
170            vs_top=(vs_base=base+0)+2;
171            Lchar_eq();
172            vs_top=sup;
173            if((vs_base[0])==Cnil){
174            goto T91;}
175            princ_str("\\\"",VV[7]);
176            goto T82;
177            goto T91;
178    T91:;
179            base[0]= (V24);
180            base[1]= VV[10];
181            vs_top=(vs_base=base+0)+2;
182            Lchar_eq();
183            vs_top=sup;
184            if((vs_base[0])==Cnil){
185            goto T97;}
186            princ_str("\\n",VV[7]);
187            goto T82;
188            goto T97;
189    T97:;
190            (void)((*(LnkLI213))((V24)));}
191            goto T82;
192    T82:;
193            V23= (long)(V23)+1;
194            goto T77;}
195            goto T73;
196    T73:;
197            princ_str("\",",VV[7]);
198            if(((V18))!=Cnil){
199            goto T110;}
200            princ_str("Cnil",VV[7]);
201            goto T108;
202            goto T110;
203    T110:;
204            princ_str("VV[",VV[7]);
205            (void)((*(LnkLI213))((V18)));
206            princ_char(93,VV[7]);
207            goto T108;
208    T108:;
209            princ_str(");",VV[7]);
210            goto T36;
211    T36:;
212            {object V25 = (VFUN_NARGS=1,(*(LnkLI214))(Cnil));
213            VMR2(V25)}
214            goto T34;
215    T34:;
216            if(!(eql((V17),VV[10]))){
217            goto T118;}
218            V26= make_cons((V19),Cnil);
219            {object V27 = (*(LnkLI215))(VV[11],/* INLINE-ARGS */V26,Cnil,Ct);
220            VMR2(V27)}
221            goto T118;
222    T118:;
223            if(!(type_of((V17))==t_character)){
224            goto T122;}
225            V28= VV[14];
226            goto T120;
227            goto T122;
228    T122:;
229            V28= VV[15];
230            goto T120;
231    T120:;
232            V29= (VFUN_NARGS=2,(*(LnkLI208))(VV[13],V28));
233            V30= list(2,list(3,VV[12],/* INLINE-ARGS */V29,list(2,VV[16],(*(LnkLI216))((V17)))),(V19));
234            {object V31 = (*(LnkLI215))(VV[0],/* INLINE-ARGS */V30,Cnil,Ct);
235            VMR2(V31)}
236            base[0]=base[0];
237            return Cnil;
238    }
239    /*      local entry for function C1TERPRI       */
240    
241    static object LI3(V33)
242    
243    register object V33;
244    {        VMB3 VMS3 VMV3
245            goto TTL;
246    TTL:;
247            {register object V34;
248            object V35;
249            V34= Cnil;
250            V35= (VFUN_NARGS=0,(*(LnkLI208))());
251            if(endp_prop((V33))){
252            goto T126;}
253            if(endp_prop(cdr((V33)))){
254            goto T126;}
255            V36 = make_fixnum((long)length((V33)));
256            (void)((*(LnkLI210))(VV[11],small_fixnum(1),V36));
257            goto T126;
258    T126:;
259            if(!(endp_prop((V33)))){
260            goto T134;}
261            V34= (*(LnkLI211))();
262            goto T132;
263            goto T134;
264    T134:;
265            V34= (*(LnkLI212))(car((V33)),(V35));
266            goto T132;
267    T132:;
268            if(endp_prop((V33))){
269            goto T136;}
270            if(!((car((V34)))==(VV[2]))){
271            goto T137;}
272            V38= structure_ref(caaddr((V34)),VV[2],1);
273            {register object x= /* INLINE-ARGS */V38,V37= VV[17];
274            while(!endp(V37))
275            if(eql(x,V37->c.c_car)){
276            goto T142;
277            }else V37=V37->c.c_cdr;
278            goto T137;}
279            goto T142;
280    T142:;
281            goto T136;
282    T136:;
283            if(!(endp_prop((V33)))){
284            goto T145;}
285            V39= Cnil;
286            goto T143;
287            goto T145;
288    T145:;
289            V39= structure_ref(caaddr((V34)),VV[2],4);
290            goto T143;
291    T143:;
292            {object V40 = list(5,VV[0],(V35),VV[10],V39,(V34));
293            VMR3(V40)}
294            goto T137;
295    T137:;
296            {object V41 = list(4,VV[4],(V35),VV[11],make_cons((V34),Cnil));
297            VMR3(V41)}}
298            base[0]=base[0];
299            return Cnil;
300    }
301    /*      local entry for function C1APPLY        */
302    
303    static object LI4(V43)
304    
305    register object V43;
306    {        VMB4 VMS4 VMV4
307            goto TTL;
308    TTL:;
309            {register object V44;
310            V44= Cnil;
311            if(endp_prop((V43))){
312            goto T149;}
313            if(!(endp_prop(cdr((V43))))){
314            goto T148;}
315            goto T149;
316    T149:;
317            V45 = make_fixnum((long)length((V43)));
318            (void)((*(LnkLI209))(VV[18],small_fixnum(2),V45));
319            goto T148;
320    T148:;
321            {register object V46;
322            V46= (*(LnkLI217))(car((V43)));
323            base[0]= cadr((V46));
324            vs_top=(vs_base=base+0)+1;
325            (void) (*Lnk218)();
326            vs_top=sup;
327            V44= vs_base[0];
328            V43= (*(LnkLI219))(cdr((V43)),(V44));
329            if(!((car((V46)))==(VV[19]))){
330            goto T160;}
331            {object V47;
332            register object V48;
333            V47= caddr((V46));
334            V48= caddr((V47));
335            if((cadr((V48)))!=Cnil){
336            goto T165;}
337            if((cadddr((V48)))!=Cnil){
338            goto T165;}
339            {object V49 = (*(LnkLI220))((V44),car((V48)),caddr((V48)),car(cddddr((V47))),(V43));
340            VMR4(V49)}
341            goto T165;
342    T165:;
343            {object V50 = list(4,VV[18],(V44),(V46),(V43));
344            VMR4(V50)}}
345            goto T160;
346    T160:;
347            {object V51 = list(4,VV[18],(V44),(V46),(V43));
348            VMR4(V51)}}}
349            base[0]=base[0];
350            return Cnil;
351    }
352    /*      local entry for function C2APPLY        */
353    
354    static object LI5(V54,V55)
355    
356    object V54;object V55;
357    {        VMB5 VMS5 VMV5
358            bds_check;
359            goto TTL;
360    TTL:;
361            {object V56;
362            bds_bind(VV[20],symbol_value(VV[20]));
363            V56= Cnil;
364            V56= (*(LnkLI221))((V54));
365            {object V57;
366            register object V58;
367            base[1]= (VV[20]->s.s_dbind);
368            V57= (VV[20]->s.s_dbind);
369            setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
370            V58= list(2,VV[21],symbol_value(VV[22]));
371            bds_bind(VV[20],base[1]);
372            {register object V59;
373            V59= (V55);
374            goto T179;
375    T179:;
376            if(!(endp_prop(cdr((V59))))){
377            goto T180;}
378            princ_str("\n   {object ",VV[7]);
379            (void)((*(LnkLI213))((V58)));
380            princ_char(59,VV[7]);
381            bds_bind(VV[5],(V58));
382            V60= (*(LnkLI222))(car((V59)));
383            bds_unwind1;
384            goto T177;
385            goto T180;
386    T180:;
387            base[2]= list(2,VV[23],(*(LnkLI223))());
388            bds_bind(VV[5],base[2]);
389            V61= (*(LnkLI222))(car((V59)));
390            bds_unwind1;
391            V59= cdr((V59));
392            goto T179;}
393            goto T177;
394    T177:;
395            princ_str("\n    vs_top=base+",VV[7]);
396            (void)((*(LnkLI213))((VV[20]->s.s_dbind)));
397            princ_char(59,VV[7]);
398            setq(VV[24],Ct);
399            if((symbol_value(VV[25]))==Cnil){
400            goto T201;}
401            princ_str("\n    while(!endp(",VV[7]);
402            (void)((*(LnkLI213))((V58)));
403            princ_str("))",VV[7]);
404            princ_str("\n    {vs_push(car(",VV[7]);
405            (void)((*(LnkLI213))((V58)));
406            princ_str("));",VV[7]);
407            (void)((*(LnkLI213))((V58)));
408            princ_str("=cdr(",VV[7]);
409            (void)((*(LnkLI213))((V58)));
410            princ_str(");}",VV[7]);
411            goto T199;
412            goto T201;
413    T201:;
414            princ_str("\n    while(",VV[7]);
415            (void)((*(LnkLI213))((V58)));
416            princ_str("!=Cnil)",VV[7]);
417            princ_str("\n    {vs_push((",VV[7]);
418            (void)((*(LnkLI213))((V58)));
419            princ_str(")->c.c_car);",VV[7]);
420            (void)((*(LnkLI213))((V58)));
421            princ_str("=(",VV[7]);
422            (void)((*(LnkLI213))((V58)));
423            princ_str(")->c.c_cdr;}",VV[7]);
424            goto T199;
425    T199:;
426            princ_str("\n   vs_base=base+",VV[7]);
427            (void)((*(LnkLI213))((V57)));
428            princ_str(";}",VV[7]);
429            setq(VV[24],Ct);
430            bds_unwind1;}
431            {object V62 = (VFUN_NARGS=3,(*(LnkLI224))((V54),VV[26],(V56)));
432            bds_unwind1;
433            VMR5(V62)}}
434            base[0]=base[0];
435            return Cnil;
436    }
437    /*      local entry for function C1APPLY-OPTIMIZE       */
438    
439    static object LI6(V68,V69,V70,V71,V72)
440    
441    object V68;register object V69;object V70;object V71;register object V72;
442    {        VMB6 VMS6 VMV6
443            goto TTL;
444    TTL:;
445            {register object V73;
446            register object V74;
447            V73= Cnil;
448            V74= Cnil;
449            goto T236;
450    T236:;
451            if(endp_prop(cdr((V72)))){
452            goto T238;}
453            if(!(endp_prop((V69)))){
454            goto T237;}
455            goto T238;
456    T238:;
457            goto T234;
458            goto T237;
459    T237:;
460            {register object V75;
461            {register object V76;
462            V76= car((V69));
463            V69= cdr((V69));
464            V75= (V76);}
465            V73= make_cons((V75),(V73));}
466            {register object V77;
467            {register object V78;
468            V78= car((V72));
469            V72= cdr((V72));
470            V77= (V78);}
471            V74= make_cons((V77),(V74));}
472            goto T236;
473            goto T234;
474    T234:;
475            if((cdr((V72)))==Cnil){
476            goto T258;}
477            if(((V70))!=Cnil){
478            goto T260;}
479            (void)((VFUN_NARGS=1,(*(LnkLI225))(VV[27])));
480            goto T260;
481    T260:;
482            V73= make_cons(V70,(V73));
483            {object V80;
484            V80= list(4,VV[4],(V68),VV[28],(V72));
485            V74= make_cons((V80),(V74));}
486            V81= reverse((V73));
487            {object V82 = list(5,VV[29],(V68),/* INLINE-ARGS */V81,reverse((V74)),(V71));
488            VMR6(V82)}
489            goto T258;
490    T258:;
491            if(((V69))==Cnil){
492            goto T269;}
493            {object V83;
494            V83= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));
495            V73= make_cons(V83,(V73));
496            {object V85;
497            V85= car((V72));
498            V74= make_cons((V85),(V74));}
499            V86= reverse((V73));
500            V87= reverse((V74));
501            {object V88 = list(5,VV[29],(V68),/* INLINE-ARGS */V86,/* INLINE-ARGS */V87,list(6,VV[33],cadr((V71)),(V83),(V69),(V70),(V71)));
502            VMR6(V88)}}
503            goto T269;
504    T269:;
505            if(((V70))==Cnil){
506            goto T278;}
507            V73= make_cons(V70,(V73));
508            {object V90;
509            V90= car((V72));
510            V74= make_cons((V90),(V74));}
511            V91= reverse((V73));
512            {object V92 = list(5,VV[29],(V68),/* INLINE-ARGS */V91,reverse((V74)),(V71));
513            VMR6(V92)}
514            goto T278;
515    T278:;
516            {object V93;
517            V93= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));
518            V73= make_cons(V93,(V73));
519            {object V95;
520            V95= car((V72));
521            V74= make_cons((V95),(V74));}
522            V96= reverse((V73));
523            V97= reverse((V74));
524            {object V98 = list(5,VV[29],(V68),/* INLINE-ARGS */V96,/* INLINE-ARGS */V97,list(6,VV[33],cadr((V71)),(V93),(V69),(V70),(V71)));
525            VMR6(V98)}}}
526            base[0]=base[0];
527            return Cnil;
528    }
529    /*      function definition for C2APPLY-OPTIMIZE        */
530    
531    static void L7()
532    {register object *base=vs_base;
533            register object *sup=base+VM7; VC7
534            vs_reserve(VM7);
535            bds_check;
536            {object V99;
537            object V100;
538            object V101;
539            object V102;
540            check_arg(4);
541            V99=(base[0]);
542            V100=(base[1]);
543            V101=(base[2]);
544            V102=(base[3]);
545            vs_top=sup;
546            goto TTL;
547    TTL:;
548            bds_bind(VV[34],symbol_value(VV[34]));
549            bds_bind(VV[20],symbol_value(VV[20]));
550            bds_bind(VV[35],symbol_value(VV[35]));
551            bds_bind(VV[36],symbol_value(VV[36]));
552            if((symbol_value(VV[25]))!=Cnil){
553            goto T292;}
554            if((symbol_value(VV[37]))==Cnil){
555            goto T291;}
556            goto T292;
557    T292:;
558            princ_str("\n   ",VV[7]);
559            if(((V101))==Cnil){
560            goto T301;}
561            V103= VV[38];
562            goto T299;
563            goto T301;
564    T301:;
565            V103= VV[39];
566            goto T299;
567    T299:;
568            (void)((*(LnkLI213))(V103));
569            princ_char(40,VV[7]);
570            V104 = make_fixnum((long)length((V100)));
571            (void)((*(LnkLI213))(V104));
572            princ_char(44,VV[7]);
573            (void)((*(LnkLI227))((V99),Cnil));
574            princ_str(");",VV[7]);
575            goto T291;
576    T291:;
577            {object V105;
578            object V106;
579            V105= (V100);
580            V106= car((V105));
581            goto T312;
582    T312:;
583            if(!(endp_prop((V105)))){
584            goto T313;}
585            goto T308;
586            goto T313;
587    T313:;
588            V107= (*(LnkLI223))();
589            (void)(structure_set((V106),VV[2],2,/* INLINE-ARGS */V107));
590            V105= cdr((V105));
591            V106= car((V105));
592            goto T312;}
593            goto T308;
594    T308:;
595            if(((V101))==Cnil){
596            goto T323;}
597            V108= (*(LnkLI223))();
598            (void)(structure_set((V101),VV[2],2,/* INLINE-ARGS */V108));
599            goto T323;
600    T323:;
601            {register long V109;
602            object V110;
603            V109= 0;
604            V110= (V100);
605            goto T329;
606    T329:;
607            if(!(endp_prop((V110)))){
608            goto T330;}
609            if(((V101))==Cnil){
610            goto T326;}
611            princ_str("\n   ",VV[7]);
612            V111= structure_ref((V101),VV[2],2);
613            (void)((*(LnkLI228))(/* INLINE-ARGS */V111));
614            princ_str("= ",VV[7]);
615            {long V112;
616            register long V113;
617            V112= V109;
618            V113= 0;
619            goto T343;
620    T343:;
621            if(!((V113)>=(V112))){
622            goto T344;}
623            goto T339;
624            goto T344;
625    T344:;
626            princ_char(40,VV[7]);
627            V113= (long)(V113)+1;
628            goto T343;}
629            goto T339;
630    T339:;
631            (void)((*(LnkLI227))((V99),Cnil));
632            {long V114;
633            register long V115;
634            V114= V109;
635            V115= 0;
636            goto T358;
637    T358:;
638            if(!((V115)>=(V114))){
639            goto T359;}
640            goto T354;
641            goto T359;
642    T359:;
643            princ_str("\n   )->c.c_cdr",VV[7]);
644            V115= (long)(V115)+1;
645            goto T358;}
646            goto T354;
647    T354:;
648            princ_char(59,VV[7]);
649            goto T326;
650            goto T330;
651    T330:;
652            princ_str("\n   ",VV[7]);
653            V116= structure_ref(car((V110)),VV[2],2);
654            (void)((*(LnkLI228))(/* INLINE-ARGS */V116));
655            princ_str("=(",VV[7]);
656            {long V117;
657            register long V118;
658            V117= V109;
659            V118= 0;
660            goto T378;
661    T378:;
662            if(!((V118)>=(V117))){
663            goto T379;}
664            goto T374;
665            goto T379;
666    T379:;
667            princ_char(40,VV[7]);
668            V118= (long)(V118)+1;
669            goto T378;}
670            goto T374;
671    T374:;
672            (void)((*(LnkLI227))((V99),Cnil));
673            {long V119;
674            register long V120;
675            V119= V109;
676            V120= 0;
677            goto T393;
678    T393:;
679            if(!((V120)>=(V119))){
680            goto T394;}
681            goto T389;
682            goto T394;
683    T394:;
684            princ_str("\n   )->c.c_cdr",VV[7]);
685            V120= (long)(V120)+1;
686            goto T393;}
687            goto T389;
688    T389:;
689            princ_str(")->c.c_car;",VV[7]);
690            V109= (long)(V109)+1;
691            V110= cdr((V110));
692            goto T329;}
693            goto T326;
694    T326:;
695            {object V121;
696            object V122;
697            V121= (V100);
698            V122= car((V121));
699            goto T413;
700    T413:;
701            if(!(endp_prop((V121)))){
702            goto T414;}
703            goto T409;
704            goto T414;
705    T414:;
706            (void)((*(LnkLI229))((V122)));
707            V121= cdr((V121));
708            V122= car((V121));
709            goto T413;}
710            goto T409;
711    T409:;
712            if(((V101))==Cnil){
713            goto T424;}
714            (void)((*(LnkLI229))((V101)));
715            goto T424;
716    T424:;
717            base[8]= (V102);
718            vs_top=(vs_base=base+8)+1;
719            (void) (*Lnk230)();
720            bds_unwind1;
721            bds_unwind1;
722            bds_unwind1;
723            bds_unwind1;
724            return;
725            }
726    }
727    /*      local entry for function C1FUNCALL      */
728    
729    static object LI8(V124)
730    
731    object V124;
732    {        VMB8 VMS8 VMV8
733            goto TTL;
734    TTL:;
735            {object V125;
736            object V126;
737            V125= Cnil;
738            V126= (VFUN_NARGS=0,(*(LnkLI208))());
739            if(!(endp_prop((V124)))){
740            goto T430;}
741            (void)((*(LnkLI209))(VV[40],small_fixnum(1),small_fixnum(0)));
742            goto T430;
743    T430:;
744            V125= (*(LnkLI217))(car((V124)));
745            (void)((*(LnkLI231))((V126),cadr((V125))));
746            {object V127 = list(4,VV[40],(V126),(V125),(*(LnkLI219))(cdr((V124)),(V126)));
747            VMR8(V127)}}
748            base[0]=base[0];
749            return Cnil;
750    }
751    /*      local entry for function C1RPLACA       */
752    
753    static object LI9(V129)
754    
755    register object V129;
756    {        VMB9 VMS9 VMV9
757            goto TTL;
758    TTL:;
759            {object V130;
760            V130= (VFUN_NARGS=0,(*(LnkLI208))());
761            if(endp_prop((V129))){
762            goto T438;}
763            if(!(endp_prop(cdr((V129))))){
764            goto T437;}
765            goto T438;
766    T438:;
767            V131 = make_fixnum((long)length((V129)));
768            (void)((*(LnkLI209))(VV[41],small_fixnum(2),V131));
769            goto T437;
770    T437:;
771            if(endp_prop(cddr((V129)))){
772            goto T442;}
773            V132 = make_fixnum((long)length((V129)));
774            (void)((*(LnkLI210))(VV[41],small_fixnum(2),V132));
775            goto T442;
776    T442:;
777            V129= (*(LnkLI219))((V129),(V130));
778            {object V133 = list(3,VV[41],(V130),(V129));
779            VMR9(V133)}}
780            base[0]=base[0];
781            return Cnil;
782    }
783    /*      local entry for function C2RPLACA       */
784    
785    static object LI10(V135)
786    
787    register object V135;
788    {        VMB10 VMS10 VMV10
789            bds_check;
790            goto TTL;
791    TTL:;
792            bds_bind(VV[20],symbol_value(VV[20]));
793            bds_bind(VV[42],small_fixnum(0));
794            V135= (VFUN_NARGS=2,(*(LnkLI232))((V135),VV[43]));
795            if((symbol_value(VV[25]))==Cnil){
796            goto T449;}
797            princ_str("\n   if(type_of(",VV[7]);
798            (void)((*(LnkLI213))(car((V135))));
799            princ_str(")!=t_cons)",VV[7]);
800            princ_str("FEwrong_type_argument(Scons,",VV[7]);
801            (void)((*(LnkLI213))(car((V135))));
802            princ_str(");",VV[7]);
803            goto T449;
804    T449:;
805            princ_str("\n   (",VV[7]);
806            (void)((*(LnkLI213))(car((V135))));
807            princ_str(")->c.c_car = ",VV[7]);
808            (void)((*(LnkLI213))(cadr((V135))));
809            princ_char(59,VV[7]);
810            (void)((VFUN_NARGS=1,(*(LnkLI214))(car((V135)))));
811            {object V136 = (*(LnkLI233))();
812            bds_unwind1;
813            bds_unwind1;
814            VMR10(V136)}
815            base[0]=base[0];
816            return Cnil;
817    }
818    /*      local entry for function C1RPLACD       */
819    
820    static object LI11(V138)
821    
822    register object V138;
823    {        VMB11 VMS11 VMV11
824            goto TTL;
825    TTL:;
826            {object V139;
827            V139= (VFUN_NARGS=0,(*(LnkLI208))());
828            if(endp_prop((V138))){
829            goto T467;}
830            if(!(endp_prop(cdr((V138))))){
831            goto T466;}
832            goto T467;
833    T467:;
834            V140 = make_fixnum((long)length((V138)));
835            (void)((*(LnkLI209))(VV[44],small_fixnum(2),V140));
836            goto T466;
837    T466:;
838            if(endp_prop(cddr((V138)))){
839            goto T471;}
840            V141 = make_fixnum((long)length((V138)));
841            (void)((*(LnkLI210))(VV[44],small_fixnum(2),V141));
842            goto T471;
843    T471:;
844            V138= (*(LnkLI219))((V138),(V139));
845            {object V142 = list(3,VV[44],(V139),(V138));
846            VMR11(V142)}}
847            base[0]=base[0];
848            return Cnil;
849    }
850    /*      local entry for function C2RPLACD       */
851    
852    static object LI12(V144)
853    
854    register object V144;
855    {        VMB12 VMS12 VMV12
856            bds_check;
857            goto TTL;
858    TTL:;
859            bds_bind(VV[20],symbol_value(VV[20]));
860            bds_bind(VV[42],small_fixnum(0));
861            V144= (VFUN_NARGS=2,(*(LnkLI232))((V144),VV[45]));
862            if((symbol_value(VV[25]))==Cnil){
863            goto T478;}
864            princ_str("\n   if(type_of(",VV[7]);
865            (void)((*(LnkLI213))(car((V144))));
866            princ_str(")!=t_cons)",VV[7]);
867            princ_str("FEwrong_type_argument(Scons,",VV[7]);
868            (void)((*(LnkLI213))(car((V144))));
869            princ_str(");",VV[7]);
870            goto T478;
871    T478:;
872            princ_str("\n   (",VV[7]);
873            (void)((*(LnkLI213))(car((V144))));
874            princ_str(")->c.c_cdr = ",VV[7]);
875            (void)((*(LnkLI213))(cadr((V144))));
876            princ_char(59,VV[7]);
877            (void)((VFUN_NARGS=1,(*(LnkLI214))(car((V144)))));
878            {object V145 = (*(LnkLI233))();
879            bds_unwind1;
880            bds_unwind1;
881            VMR12(V145)}
882            base[0]=base[0];
883            return Cnil;
884    }
885    /*      local entry for function C1MEMQ */
886    
887    static object LI13(V147)
888    
889    register object V147;
890    {        VMB13 VMS13 VMV13
891            goto TTL;
892    TTL:;
893            {object V148;
894            V148= (VFUN_NARGS=0,(*(LnkLI208))());
895            if(endp_prop((V147))){
896            goto T496;}
897            if(!(endp_prop(cdr((V147))))){
898            goto T495;}
899            goto T496;
900    T496:;
901            V149 = make_fixnum((long)length((V147)));
902            (void)((*(LnkLI209))(VV[46],small_fixnum(2),V149));
903            goto T495;
904    T495:;
905            if(endp_prop(cddr((V147)))){
906            goto T500;}
907            V150 = make_fixnum((long)length((V147)));
908            (void)((*(LnkLI210))(VV[46],small_fixnum(2),V150));
909            goto T500;
910    T500:;
911            V151= list(2,car((V147)),cadr((V147)));
912            {object V152 = list(4,VV[47],(V148),VV[48],(*(LnkLI219))(/* INLINE-ARGS */V151,(V148)));
913            VMR13(V152)}}
914            base[0]=base[0];
915            return Cnil;
916    }
917    /*      local entry for function C1MEMBER       */
918    
919    static object LI14(V154)
920    
921    register object V154;
922    {        VMB14 VMS14 VMV14
923            goto TTL;
924    TTL:;
925            {register object V155;
926            V155= (VFUN_NARGS=0,(*(LnkLI208))());
927            if(endp_prop((V154))){
928            goto T505;}
929            if(!(endp_prop(cdr((V154))))){
930            goto T504;}
931            goto T505;
932    T505:;
933            V156 = make_fixnum((long)length((V154)));
934            (void)((*(LnkLI209))(VV[49],small_fixnum(2),V156));
935            goto T504;
936    T504:;
937            if(!(endp_prop(cddr((V154))))){
938            goto T510;}
939            {object V157 = list(4,VV[47],(V155),VV[50],(*(LnkLI219))((V154),(V155)));
940            VMR14(V157)}
941            goto T510;
942    T510:;
943            if(!((caddr((V154)))==(VV[51]))){
944            goto T513;}
945            if(!(((long)length((V154)))==(4))){
946            goto T513;}
947            {register object x= cadddr((V154)),V158= VV[52];
948            while(!endp(V158))
949            if(equal(x,V158->c.c_car)){
950            goto T518;
951            }else V158=V158->c.c_cdr;
952            goto T513;}
953            goto T518;
954    T518:;
955            V159= cadr(cadddr((V154)));
956            V160= list(2,car((V154)),cadr((V154)));
957            {object V161 = list(4,VV[47],(V155),/* INLINE-ARGS */V159,(*(LnkLI219))(/* INLINE-ARGS */V160,(V155)));
958            VMR14(V161)}
959            goto T513;
960    T513:;
961            {object V162 = list(4,VV[4],(V155),VV[49],(*(LnkLI219))((V154),(V155)));
962            VMR14(V162)}}
963            base[0]=base[0];
964            return Cnil;
965    }
966    /*      local entry for function C2MEMBER!2     */
967    
968    static object LI15(V165,V166)
969    
970    object V165;register object V166;
971    {        VMB15 VMS15 VMV15
972            bds_check;
973            goto TTL;
974    TTL:;
975            {register object V167;
976            bds_bind(VV[20],symbol_value(VV[20]));
977            bds_bind(VV[42],small_fixnum(0));
978            setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
979            V167= symbol_value(VV[22]);
980            V166= (VFUN_NARGS=2,(*(LnkLI232))((V166),VV[53]));
981            princ_str("\n   {register object x= ",VV[7]);
982            (void)((*(LnkLI213))(car((V166))));
983            princ_str(",V",VV[7]);
984            (void)((*(LnkLI213))((V167)));
985            princ_str("= ",VV[7]);
986            (void)((*(LnkLI213))(cadr((V166))));
987            princ_char(59,VV[7]);
988            if((symbol_value(VV[25]))==Cnil){
989            goto T533;}
990            princ_str("\n   while(!endp(V",VV[7]);
991            (void)((*(LnkLI213))((V167)));
992            princ_str("))",VV[7]);
993            goto T531;
994            goto T533;
995    T533:;
996            princ_str("\n   while(V",VV[7]);
997            (void)((*(LnkLI213))((V167)));
998            princ_str("!=Cnil)",VV[7]);
999            goto T531;
1000    T531:;
1001            if(!(((V165))==(VV[48]))){
1002            goto T543;}
1003            princ_str("\n   if(x==(V",VV[7]);
1004            (void)((*(LnkLI213))((V167)));
1005            princ_str("->c.c_car)){",VV[7]);
1006            goto T541;
1007            goto T543;
1008    T543:;
1009            princ_str("\n   if(",VV[7]);
1010            base[3]= symbol_name((V165));
1011            vs_top=(vs_base=base+3)+1;
1012            Lstring_downcase();
1013            vs_top=sup;
1014            V168= vs_base[0];
1015            (void)((*(LnkLI213))(V168));
1016            princ_str("(x,V",VV[7]);
1017            (void)((*(LnkLI213))((V167)));
1018            princ_str("->c.c_car)){",VV[7]);
1019            goto T541;
1020    T541:;
1021            if(!(type_of(symbol_value(VV[5]))==t_cons)){
1022            goto T557;}
1023            if((car(symbol_value(VV[5])))==(VV[54])){
1024            goto T556;}
1025            if(!((car(symbol_value(VV[5])))==(VV[55]))){
1026            goto T557;}
1027            goto T556;
1028    T556:;
1029            (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));
1030            goto T555;
1031            goto T557;
1032    T557:;
1033            V169= list(2,VV[21],(V167));
1034            (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V169,VV[56])));
1035            goto T555;
1036    T555:;
1037            princ_str("\n   }else V",VV[7]);
1038            (void)((*(LnkLI213))((V167)));
1039            princ_str("=V",VV[7]);
1040            (void)((*(LnkLI213))((V167)));
1041            princ_str("->c.c_cdr;",VV[7]);
1042            (void)((VFUN_NARGS=1,(*(LnkLI214))(Cnil)));
1043            princ_char(125,VV[7]);
1044            {object V170 = (*(LnkLI233))();
1045            bds_unwind1;
1046            bds_unwind1;
1047            VMR15(V170)}}
1048            base[0]=base[0];
1049            return Cnil;
1050    }
1051    /*      local entry for function C1ASSOC        */
1052    
1053    static object LI16(V172)
1054    
1055    register object V172;
1056    {        VMB16 VMS16 VMV16
1057            goto TTL;
1058    TTL:;
1059            {register object V173;
1060            V173= (VFUN_NARGS=0,(*(LnkLI208))());
1061            if(endp_prop((V172))){
1062            goto T574;}
1063            if(!(endp_prop(cdr((V172))))){
1064            goto T573;}
1065            goto T574;
1066    T574:;
1067            V174 = make_fixnum((long)length((V172)));
1068            (void)((*(LnkLI209))(VV[57],small_fixnum(2),V174));
1069            goto T573;
1070    T573:;
1071            if(!(endp_prop(cddr((V172))))){
1072            goto T579;}
1073            {object V175 = list(4,VV[58],(V173),VV[50],(*(LnkLI219))((V172),(V173)));
1074            VMR16(V175)}
1075            goto T579;
1076    T579:;
1077            if(!((caddr((V172)))==(VV[51]))){
1078            goto T582;}
1079            if(!(((long)length((V172)))==(4))){
1080            goto T582;}
1081            {register object x= cadddr((V172)),V176= VV[59];
1082            while(!endp(V176))
1083            if(equal(x,V176->c.c_car)){
1084            goto T587;
1085            }else V176=V176->c.c_cdr;
1086            goto T582;}
1087            goto T587;
1088    T587:;
1089            V177= cadr(cadddr((V172)));
1090            V178= list(2,car((V172)),cadr((V172)));
1091            {object V179 = list(4,VV[58],(V173),/* INLINE-ARGS */V177,(*(LnkLI219))(/* INLINE-ARGS */V178,(V173)));
1092            VMR16(V179)}
1093            goto T582;
1094    T582:;
1095            {object V180 = list(4,VV[4],(V173),VV[57],(*(LnkLI219))((V172),(V173)));
1096            VMR16(V180)}}
1097            base[0]=base[0];
1098            return Cnil;
1099    }
1100    /*      local entry for function C2ASSOC!2      */
1101    
1102    static object LI17(V183,V184)
1103    
1104    object V183;register object V184;
1105    {        VMB17 VMS17 VMV17
1106            bds_check;
1107            goto TTL;
1108    TTL:;
1109            {register object V185;
1110            register object V186;
1111            bds_bind(VV[20],symbol_value(VV[20]));
1112            bds_bind(VV[42],small_fixnum(0));
1113            setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
1114            V185= symbol_value(VV[22]);
1115            V186= Cnil;
1116            V184= (VFUN_NARGS=2,(*(LnkLI232))((V184),VV[60]));
1117            V186= symbol_name((V183));
1118            if(!(((V183))==(VV[48]))){
1119            goto T596;}
1120            goto T595;
1121            goto T596;
1122    T596:;
1123            base[3]= (V186);
1124            vs_top=(vs_base=base+3)+1;
1125            Lstring_downcase();
1126            vs_top=sup;
1127            V186= vs_base[0];
1128            goto T595;
1129    T595:;
1130            princ_str("\n   {register object x= ",VV[7]);
1131            (void)((*(LnkLI213))(car((V184))));
1132            princ_str(",V",VV[7]);
1133            (void)((*(LnkLI213))((V185)));
1134            princ_str("= ",VV[7]);
1135            (void)((*(LnkLI213))(cadr((V184))));
1136            princ_char(59,VV[7]);
1137            if((symbol_value(VV[25]))==Cnil){
1138            goto T610;}
1139            princ_str("\n   while(!endp(V",VV[7]);
1140            (void)((*(LnkLI213))((V185)));
1141            princ_str("))",VV[7]);
1142            princ_str("\n   if(type_of(V",VV[7]);
1143            (void)((*(LnkLI213))((V185)));
1144            princ_str("->c.c_car)==t_cons &&",VV[7]);
1145            (void)((*(LnkLI213))((V186)));
1146            princ_str("(x,V",VV[7]);
1147            (void)((*(LnkLI213))((V185)));
1148            princ_str("->c.c_car->c.c_car)){",VV[7]);
1149            goto T608;
1150            goto T610;
1151    T610:;
1152            princ_str("\n   while(V",VV[7]);
1153            (void)((*(LnkLI213))((V185)));
1154            princ_str("!=Cnil)",VV[7]);
1155            princ_str("\n   if(",VV[7]);
1156            (void)((*(LnkLI213))((V186)));
1157            princ_str("(x,V",VV[7]);
1158            (void)((*(LnkLI213))((V185)));
1159            princ_str("->c.c_car->c.c_car) &&",VV[7]);
1160            princ_char(86,VV[7]);
1161            (void)((*(LnkLI213))((V185)));
1162            princ_str("->c.c_car != Cnil){",VV[7]);
1163            goto T608;
1164    T608:;
1165            if(!(type_of(symbol_value(VV[5]))==t_cons)){
1166            goto T637;}
1167            if((car(symbol_value(VV[5])))==(VV[54])){
1168            goto T636;}
1169            if(!((car(symbol_value(VV[5])))==(VV[55]))){
1170            goto T637;}
1171            goto T636;
1172    T636:;
1173            (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));
1174            goto T635;
1175            goto T637;
1176    T637:;
1177            V187= list(2,VV[61],(V185));
1178            (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V187,VV[56])));
1179            goto T635;
1180    T635:;
1181            princ_str("\n   }else V",VV[7]);
1182            (void)((*(LnkLI213))((V185)));
1183            princ_str("=V",VV[7]);
1184            (void)((*(LnkLI213))((V185)));
1185            princ_str("->c.c_cdr;",VV[7]);
1186            (void)((VFUN_NARGS=1,(*(LnkLI214))(Cnil)));
1187            princ_char(125,VV[7]);
1188            {object V188 = (*(LnkLI233))();
1189            bds_unwind1;
1190            bds_unwind1;
1191            VMR17(V188)}}
1192            base[0]=base[0];
1193            return Cnil;
1194    }
1195    /*      function definition for BOOLE3  */
1196    
1197    static void L18()
1198    {register object *base=vs_base;
1199            register object *sup=base+VM18; VC18
1200            vs_reserve(VM18);
1201            {object V189;
1202            object V190;
1203            object V191;
1204            check_arg(3);
1205            V189=(base[0]);
1206            V190=(base[1]);
1207            V191=(base[2]);
1208            vs_top=sup;
1209            goto TTL;
1210    TTL:;
1211            base[3]= (V189);
1212            base[4]= (V190);
1213            base[5]= (V191);
1214            vs_top=(vs_base=base+3)+3;
1215            Lboole();
1216            return;
1217            }
1218    }
1219    /*      local entry for function C1BOOLE-CONDITION      */
1220    
1221    static object LI19(V193)
1222    
1223    object V193;
1224    {        VMB19 VMS19 VMV19
1225            goto TTL;
1226    TTL:;
1227            if(((endp_prop(cddr((V193)))?Ct:Cnil))==Cnil){
1228            goto T655;}
1229            {object V194 = Cnil;
1230            VMR19(V194)}
1231            goto T655;
1232    T655:;
1233            if(endp_prop(cdddr((V193)))){
1234            goto T657;}
1235            {object V195 = Cnil;
1236            VMR19(V195)}
1237            goto T657;
1238    T657:;
1239            {object V196 = (*(LnkLI234))(car((V193)));
1240            VMR19(V196)}
1241            return Cnil;
1242    }
1243    /*      local entry for function C1BOOLE3       */
1244    
1245    static object LI20(V198)
1246    
1247    object V198;
1248    {        VMB20 VMS20 VMV20
1249            goto TTL;
1250    TTL:;
1251            V199= make_cons(VV[62],(V198));
1252            {object V200 = (*(LnkLI235))(/* INLINE-ARGS */V199);
1253            VMR20(V200)}
1254            return Cnil;
1255    }
1256    /*      function definition for INLINE-BOOLE3   */
1257    
1258    static void L21()
1259    {register object *base=vs_base;
1260            register object *sup=base+VM21; VC21
1261            vs_reserve(VM21);
1262            {object V201;
1263            vs_top[0]=Cnil;
1264            {object *p=vs_top;
1265             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1266            V201=(base[0]);
1267            vs_top=sup;
1268            {object V202;
1269            V202= cadr(car((V201)));
1270            if(!((car((V202)))==(VV[63]))){
1271            goto T661;}
1272            goto T660;
1273            goto T661;
1274    T661:;
1275            base[1]= VV[64];
1276            vs_top=(vs_base=base+1)+1;
1277            Lerror();
1278            vs_top=sup;
1279            goto T660;
1280    T660:;
1281            {object V203;
1282            V203= (*(LnkLI234))(caddr((V202)));
1283            if((V203)!=Cnil){
1284            goto T665;}
1285            base[1]= VV[65];
1286            vs_top=(vs_base=base+1)+1;
1287            Lerror();
1288            vs_top=sup;
1289            goto T665;
1290    T665:;
1291            base[1]= (V203);
1292            base[2]= cdr((V201));
1293            vs_top=(vs_base=base+1)+2;
1294            (void) (*Lnk236)();
1295            return;}}
1296            }
1297    }
1298    /*      local entry for function INLINE-BOOLE3-STRING   */
1299    
1300    static object LI22(V205)
1301    
1302    register object V205;
1303    {        VMB22 VMS22 VMV22
1304            goto TTL;
1305    TTL:;
1306            base[0]= (V205);
1307            vs_top=(vs_base=base+0)+1;
1308            Lconstantp();
1309            vs_top=sup;
1310            if((vs_base[0])!=Cnil){
1311            goto T670;}
1312            goto T669;
1313            goto T670;
1314    T670:;
1315            base[0]= (V205);
1316            vs_top=(vs_base=base+0)+1;
1317            Leval();
1318            vs_top=sup;
1319            V205= vs_base[0];
1320            goto T669;
1321    T669:;
1322            {object V206= (V205);
1323            if(!eql(V206,VV[66]))goto T675;
1324            {object V207 = VV[67];
1325            VMR22(V207)}
1326            goto T675;
1327    T675:;
1328            if(!eql(V206,VV[68]))goto T676;
1329            {object V208 = VV[69];
1330            VMR22(V208)}
1331            goto T676;
1332    T676:;
1333            if(!eql(V206,VV[70]))goto T677;
1334            {object V209 = VV[71];
1335            VMR22(V209)}
1336            goto T677;
1337    T677:;
1338            if(!eql(V206,VV[72]))goto T678;
1339            {object V210 = VV[73];
1340            VMR22(V210)}
1341            goto T678;
1342    T678:;
1343            if(!eql(V206,VV[74]))goto T679;
1344            {object V211 = VV[75];
1345            VMR22(V211)}
1346            goto T679;
1347    T679:;
1348            if(!eql(V206,VV[76]))goto T680;
1349            {object V212 = VV[77];
1350            VMR22(V212)}
1351            goto T680;
1352    T680:;
1353            if(!eql(V206,VV[78]))goto T681;
1354            {object V213 = VV[79];
1355            VMR22(V213)}
1356            goto T681;
1357    T681:;
1358            if(!eql(V206,VV[80]))goto T682;
1359            {object V214 = VV[81];
1360            VMR22(V214)}
1361            goto T682;
1362    T682:;
1363            if(!eql(V206,VV[82]))goto T683;
1364            {object V215 = VV[83];
1365            VMR22(V215)}
1366            goto T683;
1367    T683:;
1368            if(!eql(V206,VV[84]))goto T684;
1369            {object V216 = VV[85];
1370            VMR22(V216)}
1371            goto T684;
1372    T684:;
1373            {object V217 = Cnil;
1374            VMR22(V217)}}
1375            base[0]=base[0];
1376            return Cnil;
1377    }
1378    /*      local entry for function C1ASH-CONDITION        */
1379    
1380    static object LI23(V219)
1381    
1382    object V219;
1383    {        VMB23 VMS23 VMV23
1384            goto TTL;
1385    TTL:;
1386            {register object V220;
1387            V220= cadr((V219));{object V221;
1388            {register object V222;
1389            V222= (V220);
1390            if(type_of((V222))==t_fixnum){
1391            goto T688;}
1392            V221= Cnil;
1393            goto T687;
1394            goto T688;
1395    T688:;
1396            if((fix((V222)))>=(-31)){
1397            goto T690;}
1398            V221= Cnil;
1399            goto T687;
1400            goto T690;
1401    T690:;
1402            V221= ((fix((V222)))<=(31)?Ct:Cnil);}
1403            goto T687;
1404    T687:;
1405            if(V221==Cnil)goto T686;
1406            {object V223 = V221;
1407            VMR23(V223)}
1408            goto T686;
1409    T686:;}
1410            if(type_of((V220))==t_cons){
1411            goto T692;}
1412            {object V224 = Cnil;
1413            VMR23(V224)}
1414            goto T692;
1415    T692:;
1416            if((car((V220)))==(VV[86])){
1417            goto T694;}
1418            {object V225 = Cnil;
1419            VMR23(V225)}
1420            goto T694;
1421    T694:;
1422            {object V226;
1423            V226= cadr((V220));
1424            base[0]= (V226);
1425            base[1]= VV[87];
1426            vs_top=(vs_base=base+0)+2;
1427            (void) (*Lnk237)();
1428            vs_top=sup;
1429            {object V227 = vs_base[0];
1430            VMR23(V227)}}}
1431            base[0]=base[0];
1432            return Cnil;
1433    }
1434    /*      local entry for function C1ASH  */
1435    
1436    static object LI24(V229)
1437    
1438    object V229;
1439    {        VMB24 VMS24 VMV24
1440            goto TTL;
1441    TTL:;
1442            {register object V230;
1443            register object V231;
1444            V230= cadr((V229));
1445            V231= Cnil;
1446            base[0]= (V230);
1447            vs_top=(vs_base=base+0)+1;
1448            Lconstantp();
1449            vs_top=sup;
1450            if((vs_base[0])==Cnil){
1451            goto T702;}
1452            base[0]= (V230);
1453            vs_top=(vs_base=base+0)+1;
1454            Leval();
1455            vs_top=sup;
1456            V230= vs_base[0];{object V232;
1457            base[0]= (V230);
1458            vs_top=(vs_base=base+0)+1;
1459            (void) (*Lnk238)();
1460            vs_top=sup;
1461            V232= vs_base[0];
1462            if(V232==Cnil)goto T709;
1463            goto T708;
1464            goto T709;
1465    T709:;}
1466            base[0]= VV[88];
1467            vs_top=(vs_base=base+0)+1;
1468            Lerror();
1469            vs_top=sup;
1470            goto T708;
1471    T708:;
1472            if(!(number_compare((V230),small_fixnum(0))<0)){
1473            goto T714;}
1474            V231= VV[89];
1475            goto T700;
1476            goto T714;
1477    T714:;
1478            if(!(number_compare((V230),small_fixnum(0))>=0)){
1479            goto T700;}
1480            V231= VV[90];
1481            goto T700;
1482            goto T702;
1483    T702:;
1484            {object V233;
1485            V233= cadr((V230));
1486            base[0]= (V233);
1487            base[1]= VV[91];
1488            vs_top=(vs_base=base+0)+2;
1489            (void) (*Lnk237)();
1490            vs_top=sup;
1491            if((vs_base[0])==Cnil){
1492            goto T722;}
1493            V231= VV[90];
1494            goto T700;
1495            goto T722;
1496    T722:;
1497            base[0]= (V233);
1498            base[1]= VV[92];
1499            vs_top=(vs_base=base+0)+2;
1500            (void) (*Lnk237)();
1501            vs_top=sup;
1502            if((vs_base[0])==Cnil){
1503            goto T728;}
1504            V231= VV[89];
1505            goto T700;
1506            goto T728;
1507    T728:;
1508            base[0]= VV[93];
1509            vs_top=(vs_base=base+0)+1;
1510            Lerror();
1511            vs_top=sup;}
1512            goto T700;
1513    T700:;
1514            V234= make_cons((V231),(V229));
1515            {object V235 = (*(LnkLI235))(/* INLINE-ARGS */V234);
1516            VMR24(V235)}}
1517            base[0]=base[0];
1518            return Cnil;
1519    }
1520    /*      local entry for function SHIFT>>        */
1521    
1522    static object LI25(V238,V239)
1523    
1524    object V238;object V239;
1525    {        VMB25 VMS25 VMV25
1526            goto TTL;
1527    TTL:;
1528            base[0]= (V238);
1529            base[1]= (V239);
1530            vs_top=(vs_base=base+0)+2;
1531            Lash();
1532            vs_top=sup;
1533            {object V240 = vs_base[0];
1534            VMR25(V240)}
1535            base[0]=base[0];
1536            return Cnil;
1537    }
1538    /*      local entry for function SHIFT<<        */
1539    
1540    static object LI26(V243,V244)
1541    
1542    object V243;object V244;
1543    {        VMB26 VMS26 VMV26
1544            goto TTL;
1545    TTL:;
1546            base[0]= (V243);
1547            base[1]= (V244);
1548            vs_top=(vs_base=base+0)+2;
1549            Lash();
1550            vs_top=sup;
1551            {object V245 = vs_base[0];
1552            VMR26(V245)}
1553            base[0]=base[0];
1554            return Cnil;
1555    }
1556    /*      function definition for CO1LDB  */
1557    
1558    static void L27()
1559    {register object *base=vs_base;
1560            register object *sup=base+VM27; VC27
1561            vs_reserve(VM27);
1562            {object V246;
1563            object V247;
1564            check_arg(2);
1565            V246=(base[0]);
1566            V247=(base[1]);
1567            vs_top=sup;
1568            goto TTL;
1569    TTL:;
1570            {register object V248;
1571            object V249;
1572            V248= Cnil;
1573            base[3]= VV[94];
1574            vs_top=(vs_base=base+3)+1;
1575            Linteger_length();
1576            vs_top=sup;
1577            V249= vs_base[0];
1578            {register object V250;
1579            {object V251;
1580            V248= car((V247));
1581            if(type_of((V248))==t_cons){
1582            goto T744;}
1583            V251= Cnil;
1584            goto T743;
1585            goto T744;
1586    T744:;
1587            if((VV[95])==(car((V248)))){
1588            goto T747;}
1589            V251= Cnil;
1590            goto T743;
1591            goto T747;
1592    T747:;
1593            V251= make_cons(cadr((V248)),caddr((V248)));
1594            goto T743;
1595    T743:;
1596            if(((V251))==Cnil){
1597            goto T750;}
1598            V250= (V251);
1599            goto T742;
1600            goto T750;
1601    T750:;
1602            V250= Cnil;}
1603            goto T742;
1604    T742:;
1605            {object V252= cdr((V250));
1606            if(!(type_of(V252)==t_fixnum||type_of(V252)==t_bignum)){
1607            goto T753;}}
1608            {object V253= car((V250));
1609            if(!(type_of(V253)==t_fixnum||type_of(V253)==t_bignum)){
1610            goto T753;}}
1611            V254= number_plus(car((V250)),cdr((V250)));
1612            if(!(number_compare(/* INLINE-ARGS */V254,(V249))<0)){
1613            goto T753;}
1614            base[3]= (*(LnkLI239))(cadr((V247)));
1615            base[4]= VV[96];
1616            vs_top=(vs_base=base+3)+2;
1617            (void) (*Lnk237)();
1618            vs_top=sup;
1619            if((vs_base[0])==Cnil){
1620            goto T753;}
1621            V255= list(3,VV[86],VV[96],list(4,VV[97],car((V250)),cdr((V250)),cadr((V247))));
1622            base[3]= (*(LnkLI235))(/* INLINE-ARGS */V255);
1623            vs_top=(vs_base=base+3)+1;
1624            return;
1625            goto T753;
1626    T753:;
1627            base[3]= Cnil;
1628            vs_top=(vs_base=base+3)+1;
1629            return;}}
1630            }
1631    }
1632    /*      local entry for function C1LENGTH       */
1633    
1634    static object LI28(V257)
1635    
1636    register object V257;
1637    {        VMB28 VMS28 VMV28
1638            goto TTL;
1639    TTL:;
1640            {register object V258;
1641            V258= (VFUN_NARGS=0,(*(LnkLI208))());
1642            (void)(structure_set((V258),VV[98],2,VV[96]));
1643            {object V259;
1644            if(type_of(car((V257)))==t_cons){
1645            goto T766;}
1646            V259= Cnil;
1647            goto T765;
1648            goto T766;
1649    T766:;
1650            if((caar((V257)))==(VV[99])){
1651            goto T768;}
1652            V259= Cnil;
1653            goto T765;
1654            goto T768;
1655    T768:;
1656            {object V260;
1657            V260= cdr(car((V257)));
1658            if((V260)==Cnil){
1659            V259= Cnil;
1660            goto T765;}
1661            if((cddr((V260)))==Cnil){
1662            goto T771;}
1663            V259= Cnil;
1664            goto T765;
1665            goto T771;
1666    T771:;
1667            V259= list(4,VV[4],(V258),VV[100],(*(LnkLI219))((V260),(V258)));}
1668            goto T765;
1669    T765:;
1670            if(((V259))==Cnil){
1671            goto T774;}
1672            {object V261 = (V259);
1673            VMR28(V261)}
1674            goto T774;
1675    T774:;
1676            V257= (*(LnkLI219))((V257),(V258));
1677            {object V262 = list(4,VV[4],(V258),VV[101],(V257));
1678            VMR28(V262)}}}
1679            base[0]=base[0];
1680            return Cnil;
1681    }
1682    /*      local entry for function C1GET  */
1683    
1684    static object LI29(V264)
1685    
1686    register object V264;
1687    {        VMB29 VMS29 VMV29
1688            goto TTL;
1689    TTL:;
1690            {object V265;
1691            V265= (VFUN_NARGS=0,(*(LnkLI208))());
1692            if(endp_prop((V264))){
1693            goto T780;}
1694            if(!(endp_prop(cdr((V264))))){
1695            goto T779;}
1696            goto T780;
1697    T780:;
1698            V266 = make_fixnum((long)length((V264)));
1699            (void)((*(LnkLI209))(VV[102],small_fixnum(2),V266));
1700            goto T779;
1701    T779:;
1702            if(endp_prop(cddr((V264)))){
1703            goto T784;}
1704            if(endp_prop(cdddr((V264)))){
1705            goto T784;}
1706            V267 = make_fixnum((long)length((V264)));
1707            (void)((*(LnkLI210))(VV[102],small_fixnum(3),V267));
1708            goto T784;
1709    T784:;
1710            {object V268 = list(3,VV[102],(V265),(*(LnkLI219))((V264),(V265)));
1711            VMR29(V268)}}
1712            base[0]=base[0];
1713            return Cnil;
1714    }
1715    /*      local entry for function C2GET  */
1716    
1717    static object LI30(V270)
1718    
1719    register object V270;
1720    {        VMB30 VMS30 VMV30
1721            bds_check;
1722            goto TTL;
1723    TTL:;
1724            if((symbol_value(VV[25]))==Cnil){
1725            goto T790;}
1726            {object V271 = (*(LnkLI215))(VV[102],(V270),Cnil,Ct);
1727            VMR30(V271)}
1728            goto T790;
1729    T790:;
1730            {register object V272;
1731            base[0]= symbol_value(VV[20]);
1732            setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
1733            V272= symbol_value(VV[22]);
1734            bds_bind(VV[20],base[0]);
1735            bds_bind(VV[42],small_fixnum(0));
1736            if((cddr((V270)))==Cnil){
1737            goto T799;}
1738            V273= VV[103];
1739            goto T797;
1740            goto T799;
1741    T799:;
1742            V273= VV[104];
1743            goto T797;
1744    T797:;
1745            V270= (VFUN_NARGS=2,(*(LnkLI232))((V270),V273));
1746            princ_str("\n   {object V",VV[7]);
1747            (void)((*(LnkLI213))((V272)));
1748            princ_str(" =(",VV[7]);
1749            (void)((*(LnkLI213))(car((V270))));
1750            princ_str(")->s.s_plist;",VV[7]);
1751            princ_str("\n    object ind= ",VV[7]);
1752            (void)((*(LnkLI213))(cadr((V270))));
1753            princ_char(59,VV[7]);
1754            princ_str("\n   while(V",VV[7]);
1755            (void)((*(LnkLI213))((V272)));
1756            princ_str("!=Cnil){",VV[7]);
1757            princ_str("\n   if(V",VV[7]);
1758            (void)((*(LnkLI213))((V272)));
1759            princ_str("->c.c_car==ind){",VV[7]);
1760            V274= list(2,VV[105],(V272));
1761            (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V274,VV[56])));
1762            princ_str("\n   }else V",VV[7]);
1763            (void)((*(LnkLI213))((V272)));
1764            princ_str("=V",VV[7]);
1765            (void)((*(LnkLI213))((V272)));
1766            princ_str("->c.c_cdr->c.c_cdr;}",VV[7]);
1767            if((cddr((V270)))==Cnil){
1768            goto T829;}
1769            V275= caddr((V270));
1770            goto T827;
1771            goto T829;
1772    T829:;
1773            V275= Cnil;
1774            goto T827;
1775    T827:;
1776            (void)((VFUN_NARGS=1,(*(LnkLI214))(V275)));
1777            princ_char(125,VV[7]);
1778            {object V276 = (*(LnkLI233))();
1779            bds_unwind1;
1780            bds_unwind1;
1781            VMR30(V276)}}
1782            base[0]=base[0];
1783            return Cnil;
1784    }
1785    /*      local entry for function CO1EQL */
1786    
1787    static object LI31(V279,V280)
1788    
1789    object V279;register object V280;
1790    {        VMB31 VMS31 VMV31
1791            goto TTL;
1792    TTL:;{object V281;
1793            if((cdr((V280)))!=Cnil){
1794            goto T837;}
1795            V281= Cnil;
1796            goto T836;
1797            goto T837;
1798    T837:;
1799            V281= ((symbol_value(VV[25]))==Cnil?Ct:Cnil);
1800            goto T836;
1801    T836:;
1802            if(V281==Cnil)goto T835;
1803            goto T834;
1804            goto T835;
1805    T835:;}
1806            {object V282 = Cnil;
1807            VMR31(V282)}
1808            goto T834;
1809    T834:;
1810            if(((*(LnkLI240))((V280)))==Cnil){
1811            goto T840;}
1812            if(!(type_of(cadr((V280)))==t_character)){
1813            goto T842;}
1814            V280= reverse((V280));
1815            goto T842;
1816    T842:;
1817            if(!(type_of(car((V280)))==t_character)){
1818            goto T847;}
1819            {register object V283;
1820            vs_base=vs_top;
1821            Lgensym();
1822            vs_top=sup;
1823            V283= vs_base[0];
1824            V284= list(2,(V283),cadr((V280)));
1825            V285= make_cons(/* INLINE-ARGS */V284,Cnil);
1826            V286= (*(LnkLI239))(cadr((V280)));
1827            V287= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V286,(V283)));
1828            V288= list(3,VV[109],(V283),VV[110]);
1829            V289= list(2,VV[112],car((V280)));
1830            V290= list(4,VV[29],/* INLINE-ARGS */V285,/* INLINE-ARGS */V287,list(3,VV[108],/* INLINE-ARGS */V288,list(3,VV[111],/* INLINE-ARGS */V289,list(3,VV[86],VV[96],list(2,VV[112],list(3,VV[86],VV[14],(V283)))))));
1831            {object V291 = (*(LnkLI235))(/* INLINE-ARGS */V290);
1832            VMR31(V291)}}
1833            goto T847;
1834    T847:;
1835            {object V292 = Cnil;
1836            VMR31(V292)}
1837            goto T840;
1838    T840:;
1839            {object V293 = Cnil;
1840            VMR31(V293)}
1841            base[0]=base[0];
1842            return Cnil;
1843    }
1844    /*      local entry for function RESULT-TYPE    */
1845    
1846    static object LI32(V295)
1847    
1848    register object V295;
1849    {        VMB32 VMS32 VMV32
1850            goto TTL;
1851    TTL:;
1852            if(!(type_of((V295))==t_symbol)){
1853            goto T851;}
1854            {object V296;
1855            V296= (*(LnkLI235))((V295));
1856            {object V297 = structure_ref(cadr((V296)),VV[98],2);
1857            VMR32(V297)}}
1858            goto T851;
1859    T851:;
1860            base[0]= (V295);
1861            vs_top=(vs_base=base+0)+1;
1862            Lconstantp();
1863            vs_top=sup;
1864            if((vs_base[0])==Cnil){
1865            goto T855;}
1866            base[0]= (V295);
1867            vs_top=(vs_base=base+0)+1;
1868            Ltype_of();
1869            vs_top=sup;
1870            V298= vs_base[0];
1871            {object V299 = (*(LnkLI241))(V298);
1872            VMR32(V299)}
1873            goto T855;
1874    T855:;
1875            if(!(type_of((V295))==t_cons)){
1876            goto T861;}
1877            if(!((car((V295)))==(VV[86]))){
1878            goto T861;}
1879            {object V300 = (*(LnkLI241))(cadr((V295)));
1880            VMR32(V300)}
1881            goto T861;
1882    T861:;
1883            {object V301 = Ct;
1884            VMR32(V301)}
1885            base[0]=base[0];
1886            return Cnil;
1887    }
1888    /*      local entry for function CO1TYPEP       */
1889    
1890    static object LI33(V304,V305)
1891    
1892    object V304;register object V305;
1893    {        VMB33 VMS33 VMV33
1894            goto TTL;
1895    TTL:;
1896            {register object V306;
1897            V306= Cnil;
1898            {register object V307;
1899            register object V308;
1900            register object V309;
1901            V307= car((V305));
1902            V308= Cnil;
1903            if(type_of(cadr((V305)))==t_cons){
1904            goto T870;}
1905            V309= Cnil;
1906            goto T869;
1907            goto T870;
1908    T870:;
1909            if((car(cadr((V305))))==(VV[113])){
1910            goto T872;}
1911            V309= Cnil;
1912            goto T869;
1913            goto T872;
1914    T872:;
1915            V309= cadr(cadr((V305)));
1916            goto T869;
1917    T869:;
1918            base[2]= (*(LnkLI239))(car((V305)));
1919            base[3]= (V309);
1920            vs_top=(vs_base=base+2)+2;
1921            (void) (*Lnk237)();
1922            vs_top=sup;
1923            if((vs_base[0])==Cnil){
1924            goto T874;}
1925            V308= Ct;
1926            {object V310 = (*(LnkLI235))((V308));
1927            VMR33(V310)}
1928            goto T874;
1929    T874:;
1930            if(((V309))!=Cnil){
1931            goto T884;}
1932            V308= Cnil;
1933            goto T882;
1934            goto T884;
1935    T884:;
1936            {register object x= (V309),V311= symbol_value(VV[114]);
1937            while(!endp(V311))
1938            if(type_of(V311->c.c_car)==t_cons &&equal(x,V311->c.c_car->c.c_car)){
1939            V304= (V311->c.c_car);
1940            goto T889;
1941            }else V311=V311->c.c_cdr;
1942            V304= Cnil;}
1943            goto T889;
1944    T889:;
1945            if(((V304))==Cnil){
1946            goto T887;}
1947            V308= list(2,cdr((V304)),(V307));
1948            goto T882;
1949            goto T887;
1950    T887:;
1951            if(!(type_of((V309))==t_cons)){
1952            goto T891;}
1953            if(!((car((V309)))==(VV[115]))){
1954            goto T894;}
1955            if((cddr((V309)))==Cnil){
1956            goto T890;}
1957            goto T894;
1958    T894:;
1959            {register object x= car((V309)),V312= VV[116];
1960            while(!endp(V312))
1961            if(eql(x,V312->c.c_car)){
1962            goto T899;
1963            }else V312=V312->c.c_cdr;
1964            goto T891;}
1965            goto T899;
1966    T899:;
1967            if(!(equal(caddr((V309)),VV[117]))){
1968            goto T891;}
1969            goto T890;
1970    T890:;
1971            V306= (*(LnkLI242))(cadr((V309)));
1972            if(!(((V306))==(VV[118]))){
1973            goto T904;}
1974            V308= list(2,VV[119],(V307));
1975            goto T882;
1976            goto T904;
1977    T904:;
1978            if(!(((V306))==(VV[120]))){
1979            goto T907;}
1980            V308= list(2,VV[121],(V307));
1981            goto T882;
1982            goto T907;
1983    T907:;
1984            V306= (VFUN_NARGS=2,(*(LnkLI243))((V306),symbol_value(VV[122])));
1985            if(((V306))==Cnil){
1986            goto T910;}
1987            V308= list(3,VV[86],VV[123],list(3,VV[124],(V307),(V306)));
1988            goto T882;
1989            goto T910;
1990    T910:;
1991            V308= Cnil;
1992            goto T882;
1993            goto T891;
1994    T891:;
1995            {object V313;
1996            if(type_of((V309))==t_cons){
1997            goto T914;}
1998            V313= Cnil;
1999            goto T913;
2000            goto T914;
2001    T914:;
2002            if((car((V309)))==(VV[125])){
2003            goto T916;}
2004            V313= Cnil;
2005            goto T913;
2006            goto T916;
2007    T916:;
2008            if(type_of(cdr((V309)))==t_cons){
2009            goto T918;}
2010            V313= Cnil;
2011            goto T913;
2012            goto T918;
2013    T918:;
2014            if((cadr((V309)))!=Cnil){
2015            goto T920;}
2016            V313= Cnil;
2017            goto T913;
2018            goto T920;
2019    T920:;
2020            if(type_of(cadr((V309)))==t_symbol){
2021            goto T922;}
2022            V313= Cnil;
2023            goto T913;
2024            goto T922;
2025    T922:;
2026            base[2]= cadr((V309));
2027            vs_top=(vs_base=base+2)+1;
2028            Lsymbol_package();
2029            vs_top=sup;
2030            if((vs_base[0])!=Cnil){
2031            goto T924;}
2032            V313= Cnil;
2033            goto T913;
2034            goto T924;
2035    T924:;
2036            if((cddr((V309)))==Cnil){
2037            goto T927;}
2038            V313= Cnil;
2039            goto T913;
2040            goto T927;
2041    T927:;
2042            V313= list(2,cadr((V309)),(V307));
2043            goto T913;
2044    T913:;
2045            if(((V313))==Cnil){
2046            goto T930;}
2047            V308= (V313);
2048            goto T882;
2049            goto T930;
2050    T930:;
2051            base[2]= (V309);
2052            base[3]= VV[96];
2053            vs_top=(vs_base=base+2)+2;
2054            (void) (*Lnk237)();
2055            vs_top=sup;
2056            if((vs_base[0])==Cnil){
2057            goto T933;}
2058            V306= (*(LnkLI244))((V309));
2059            if(type_of((V306))==t_cons){
2060            goto T939;}
2061            V308= Cnil;
2062            goto T882;
2063            goto T939;
2064    T939:;
2065            base[2]= cadr((V306));
2066            vs_top=(vs_base=base+2)+1;
2067            (void) (*Lnk238)();
2068            vs_top=sup;
2069            if((vs_base[0])!=Cnil){
2070            goto T941;}
2071            V308= Cnil;
2072            goto T882;
2073            goto T941;
2074    T941:;
2075            base[2]= caddr((V306));
2076            vs_top=(vs_base=base+2)+1;
2077            (void) (*Lnk238)();
2078            vs_top=sup;
2079            if((vs_base[0])!=Cnil){
2080            goto T944;}
2081            V308= Cnil;
2082            goto T882;
2083            goto T944;
2084    T944:;
2085            V314= list(2,VV[126],(V307));
2086            V315= make_cons(/* INLINE-ARGS */V314,Cnil);
2087            V316= (*(LnkLI239))((V307));
2088            V317= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V316,VV[126]));
2089            V318= list(3,VV[128],VV[129],cadr((V306)));
2090            V308= list(4,VV[29],/* INLINE-ARGS */V315,/* INLINE-ARGS */V317,list(4,VV[108],VV[127],/* INLINE-ARGS */V318,list(3,VV[130],VV[131],caddr((V306)))));
2091            goto T882;
2092            goto T933;
2093    T933:;
2094            if(!(type_of((V309))==t_symbol)){
2095            goto T948;}
2096            V306= get((V309),VV[132],Cnil);
2097            if(((V306))==Cnil){
2098            goto T948;}
2099            if((structure_ref((V306),VV[132],11))!=Cnil){
2100            goto T953;}
2101            if((symbol_value(VV[133]))==Cnil){
2102            goto T954;}
2103            goto T953;
2104    T953:;
2105            V308= (*(LnkLI245))((V307),(V306));
2106            goto T882;
2107            goto T954;
2108    T954:;
2109            V308= list(3,VV[134],(V307),list(2,VV[113],(V309)));
2110            goto T882;
2111            goto T948;
2112    T948:;
2113            V308= Cnil;}
2114            goto T882;
2115    T882:;
2116            if((V308)==Cnil){
2117            {object V319 = Cnil;
2118            VMR33(V319)}}
2119            V320= list(3,VV[86],VV[123],(V308));
2120            {object V321 = (*(LnkLI235))(/* INLINE-ARGS */V320);
2121            VMR33(V321)}}}
2122            base[0]=base[0];
2123            return Cnil;
2124    }
2125    /*      local entry for function STRUCT-TYPE-OPT        */
2126    
2127    static object LI34(V324,V325)
2128    
2129    object V324;object V325;
2130    {        VMB34 VMS34 VMV34
2131            goto TTL;
2132    TTL:;
2133            {register object V326;
2134            object V327;
2135            vs_base=vs_top;
2136            Lgensym();
2137            vs_top=sup;
2138            V326= vs_base[0];
2139            V328= structure_ref((V325),VV[132],0);
2140            V327= (*(LnkLI246))(/* INLINE-ARGS */V328);
2141            V329= list(2,(V326),(V324));
2142            V330= make_cons(/* INLINE-ARGS */V329,Cnil);
2143            V331= list(2,VV[135],(V326));
2144            if(!(((long)length((V327)))<(3))){
2145            goto T962;}
2146            {object V334;
2147            object V335= (V327);
2148            if(endp(V335)){
2149            V333= Cnil;
2150            goto T964;}
2151            base[0]=V334=MMcons(Cnil,Cnil);
2152            goto T965;
2153    T965:;
2154            V337= list(2,VV[137],(V326));
2155            (V334->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V337,(*(LnkLI247))((V335->c.c_car)));
2156            V335=MMcdr(V335);
2157            if(endp(V335)){
2158            V333= base[0];
2159            goto T964;}
2160            V334=MMcdr(V334)=MMcons(Cnil,Cnil);
2161            goto T965;}
2162            goto T964;
2163    T964:;
2164            V332= make_cons(VV[136],V333);
2165            goto T960;
2166            goto T962;
2167    T962:;
2168            V338= structure_ref((V325),VV[132],0);
2169            V332= list(3,VV[134],(V326),(*(LnkLI247))(/* INLINE-ARGS */V338));
2170            goto T960;
2171    T960:;
2172            {object V339 = list(3,VV[29],/* INLINE-ARGS */V330,list(3,VV[108],/* INLINE-ARGS */V331,V332));
2173            VMR34(V339)}}
2174            base[0]=base[0];
2175            return Cnil;
2176    }
2177    /*      local entry for function GET-INCLUDED   */
2178    
2179    static object LI35(V341)
2180    
2181    object V341;
2182    {        VMB35 VMS35 VMV35
2183            goto TTL;
2184    TTL:;
2185            {object V342;
2186            V342= get((V341),VV[132],Cnil);
2187            V343= structure_ref((V342),VV[132],0);
2188            V347= structure_ref((V342),VV[132],3);
2189            {object V345;
2190            object V346= /* INLINE-ARGS */V347;
2191            if(endp(V346)){
2192            V344= Cnil;
2193            goto T968;}
2194            base[0]=V345=MMcons(Cnil,Cnil);
2195            goto T969;
2196    T969:;
2197            (V345->c.c_cdr)= (*(LnkLI246))((V346->c.c_car));
2198            {object cdr_V345=MMcdr(V345);while(!endp(cdr_V345)) {cdr_V345=MMcdr(cdr_V345);V345=MMcdr(V345);}}
2199            V346=MMcdr(V346);
2200            if(endp(V346)){
2201            base[0]=base[0]->c.c_cdr;
2202            V344= base[0];
2203            goto T968;}
2204            goto T969;}
2205            goto T968;
2206    T968:;
2207            {object V348 = make_cons(/* INLINE-ARGS */V343,V344);
2208            VMR35(V348)}}
2209            base[0]=base[0];
2210            return Cnil;
2211    }
2212    /*      local entry for function CO1SCHAR       */
2213    
2214    static object LI36(V351,V352)
2215    
2216    object V351;register object V352;
2217    {        VMB36 VMS36 VMV36
2218            goto TTL;
2219    TTL:;
2220            {object V353= car((V352));
2221            if(type_of(V353)==t_cons||(V353)==Cnil){
2222            goto T972;}}
2223            {object V354 = Cnil;
2224            VMR36(V354)}
2225            goto T972;
2226    T972:;
2227            if((symbol_value(VV[25]))==Cnil){
2228            goto T974;}
2229            {object V355 = Cnil;
2230            VMR36(V355)}
2231            goto T974;
2232    T974:;
2233            if((cdr((V352)))!=Cnil){
2234            goto T976;}
2235            {object V356 = Cnil;
2236            VMR36(V356)}
2237            goto T976;
2238    T976:;
2239            if((caar((V352)))==(VV[99])){
2240            goto T978;}
2241            {object V357 = Cnil;
2242            VMR36(V357)}
2243            goto T978;
2244    T978:;
2245            V358= list(3,VV[138],list(3,VV[86],VV[15],cadr(car((V352)))),cadr((V352)));
2246            {object V359 = (*(LnkLI235))(/* INLINE-ARGS */V358);
2247            VMR36(V359)}
2248            return Cnil;
2249    }
2250    /*      local entry for function CONS-TO-LISTA  */
2251    
2252    static object LI37(V361)
2253    
2254    object V361;
2255    {        VMB37 VMS37 VMV37
2256            goto TTL;
2257    TTL:;
2258            {register object V362;
2259            base[0]= (V361);
2260            vs_top=(vs_base=base+0)+1;
2261            Llast();
2262            vs_top=sup;
2263            V362= vs_base[0];
2264            {object V363;
2265            if(type_of((V362))==t_cons){
2266            goto T983;}
2267            V363= Cnil;
2268            goto T982;
2269            goto T983;
2270    T983:;
2271            if(type_of(car((V362)))==t_cons){
2272            goto T985;}
2273            V363= Cnil;
2274            goto T982;
2275            goto T985;
2276    T985:;
2277            if((caar((V362)))==(VV[139])){
2278            goto T987;}
2279            V363= Cnil;
2280            goto T982;
2281            goto T987;
2282    T987:;
2283            if(((long)length(cdar((V362))))==(2)){
2284            goto T989;}
2285            V363= Cnil;
2286            goto T982;
2287            goto T989;
2288    T989:;
2289            base[0]= (V361);
2290            vs_top=(vs_base=base+0)+1;
2291            Lbutlast();
2292            vs_top=sup;
2293            V364= vs_base[0];
2294            V365= append(V364,cdar((V362)));
2295            V363= (*(LnkLI248))(/* INLINE-ARGS */V365);
2296            goto T982;
2297    T982:;
2298            if(((V363))==Cnil){
2299            goto T994;}
2300            {object V366 = (V363);
2301            VMR37(V366)}
2302            goto T994;
2303    T994:;
2304            {object V367 = (V361);
2305            VMR37(V367)}}}
2306            base[0]=base[0];
2307            return Cnil;
2308    }
2309    /*      local entry for function CO1CONS        */
2310    
2311    static object LI38(V370,V371)
2312    
2313    object V370;object V371;
2314    {        VMB38 VMS38 VMV38
2315            goto TTL;
2316    TTL:;
2317            {register object V372;
2318            if(((long)length((V371)))==(2)){
2319            goto T998;}
2320            V372= Cnil;
2321            goto T997;
2322            goto T998;
2323    T998:;
2324            V372= (*(LnkLI248))((V371));
2325            goto T997;
2326    T997:;
2327            if(((((V372))==((V371))?Ct:Cnil))==Cnil){
2328            goto T1000;}
2329            {object V373 = Cnil;
2330            VMR38(V373)}
2331            goto T1000;
2332    T1000:;
2333            base[0]= (V372);
2334            vs_top=(vs_base=base+0)+1;
2335            Llast();
2336            vs_top=sup;
2337            V375= vs_base[0];
2338            if(!(equal(VV[140],V375))){
2339            goto T1004;}
2340            base[0]= (V372);
2341            vs_top=(vs_base=base+0)+1;
2342            Lbutlast();
2343            vs_top=sup;
2344            V376= vs_base[0];
2345            V374= make_cons(VV[141],V376);
2346            goto T1002;
2347            goto T1004;
2348    T1004:;
2349            V374= make_cons(VV[28],(V372));
2350            goto T1002;
2351    T1002:;
2352            {object V377 = (*(LnkLI235))(V374);
2353            VMR38(V377)}}
2354            base[0]=base[0];
2355            return Cnil;
2356    }
2357    /*      local entry for function C1NTH-CONDITION        */
2358    
2359    static object LI39(V379)
2360    
2361    register object V379;
2362    {        VMB39 VMS39 VMV39
2363            goto TTL;
2364    TTL:;
2365            if(((endp_prop((V379))?Ct:Cnil))==Cnil){
2366            goto T1010;}
2367            {object V380 = Cnil;
2368            VMR39(V380)}
2369            goto T1010;
2370    T1010:;
2371            if(((endp_prop(cdr((V379)))?Ct:Cnil))==Cnil){
2372            goto T1012;}
2373            {object V381 = Cnil;
2374            VMR39(V381)}
2375            goto T1012;
2376    T1012:;
2377            if(endp_prop(cddr((V379)))){
2378            goto T1014;}
2379            {object V382 = Cnil;
2380            VMR39(V382)}
2381            goto T1014;
2382    T1014:;
2383            {object V383= car((V379));
2384            if(type_of(V383)==t_fixnum||
2385    type_of(V383)==t_bignum||
2386    type_of(V383)==t_ratio||
2387    type_of(V383)==t_shortfloat||
2388    type_of(V383)==t_longfloat||
2389    type_of(V383)==t_complex){
2390            goto T1016;}}
2391            {object V384 = Cnil;
2392            VMR39(V384)}
2393            goto T1016;
2394    T1016:;
2395            base[0]= small_fixnum(0);
2396            base[1]= car((V379));
2397            base[2]= small_fixnum(7);
2398            vs_top=(vs_base=base+0)+3;
2399            Lmonotonically_nondecreasing();
2400            vs_top=sup;
2401            {object V385 = vs_base[0];
2402            VMR39(V385)}
2403            base[0]=base[0];
2404            return Cnil;
2405    }
2406    /*      local entry for function C1NTH  */
2407    
2408    static object LI40(V387)
2409    
2410    register object V387;
2411    {        VMB40 VMS40 VMV40
2412            goto TTL;
2413    TTL:;
2414            {object V389= car((V387));
2415            if(!eql(V389,VV[142]))goto T1022;
2416            V388= make_cons(VV[61],cdr((V387)));
2417            goto T1021;
2418            goto T1022;
2419    T1022:;
2420            if(!eql(V389,VV[80]))goto T1023;
2421            V388= make_cons(VV[105],cdr((V387)));
2422            goto T1021;
2423            goto T1023;
2424    T1023:;
2425            if(!eql(V389,VV[68]))goto T1024;
2426            V388= make_cons(VV[143],cdr((V387)));
2427            goto T1021;
2428            goto T1024;
2429    T1024:;
2430            if(!eql(V389,VV[144]))goto T1025;
2431            V388= make_cons(VV[145],cdr((V387)));
2432            goto T1021;
2433            goto T1025;
2434    T1025:;
2435            if(!eql(V389,VV[66]))goto T1026;
2436            V388= list(2,VV[61],make_cons(VV[146],cdr((V387))));
2437            goto T1021;
2438            goto T1026;
2439    T1026:;
2440            if(!eql(V389,VV[147]))goto T1027;
2441            V388= list(2,VV[105],make_cons(VV[146],cdr((V387))));
2442            goto T1021;
2443            goto T1027;
2444    T1027:;
2445            if(!eql(V389,VV[82]))goto T1028;
2446            V388= list(2,VV[143],make_cons(VV[146],cdr((V387))));
2447            goto T1021;
2448            goto T1028;
2449    T1028:;
2450            if(!eql(V389,VV[84]))goto T1029;
2451            V388= list(2,VV[145],make_cons(VV[146],cdr((V387))));
2452            goto T1021;
2453            goto T1029;
2454    T1029:;
2455            V388= Cnil;}
2456            goto T1021;
2457    T1021:;
2458            {object V390 = (*(LnkLI235))(V388);
2459            VMR40(V390)}
2460            return Cnil;
2461    }
2462    /*      local entry for function C1NTHCDR-CONDITION     */
2463    
2464    static object LI41(V392)
2465    
2466    register object V392;
2467    {        VMB41 VMS41 VMV41
2468            goto TTL;
2469    TTL:;
2470            if(((endp_prop((V392))?Ct:Cnil))==Cnil){
2471            goto T1030;}
2472            {object V393 = Cnil;
2473            VMR41(V393)}
2474            goto T1030;
2475    T1030:;
2476            if(((endp_prop(cdr((V392)))?Ct:Cnil))==Cnil){
2477            goto T1032;}
2478            {object V394 = Cnil;
2479            VMR41(V394)}
2480            goto T1032;
2481    T1032:;
2482            if(endp_prop(cddr((V392)))){
2483            goto T1034;}
2484            {object V395 = Cnil;
2485            VMR41(V395)}
2486            goto T1034;
2487    T1034:;
2488            {object V396= car((V392));
2489            if(type_of(V396)==t_fixnum||
2490    type_of(V396)==t_bignum||
2491    type_of(V396)==t_ratio||
2492    type_of(V396)==t_shortfloat||
2493    type_of(V396)==t_longfloat||
2494    type_of(V396)==t_complex){
2495            goto T1036;}}
2496            {object V397 = Cnil;
2497            VMR41(V397)}
2498            goto T1036;
2499    T1036:;
2500            base[0]= small_fixnum(0);
2501            base[1]= car((V392));
2502            base[2]= small_fixnum(7);
2503            vs_top=(vs_base=base+0)+3;
2504            Lmonotonically_nondecreasing();
2505            vs_top=sup;
2506            {object V398 = vs_base[0];
2507            VMR41(V398)}
2508            base[0]=base[0];
2509            return Cnil;
2510    }
2511    /*      local entry for function C1NTHCDR       */
2512    
2513    static object LI42(V400)
2514    
2515    register object V400;
2516    {        VMB42 VMS42 VMV42
2517            goto TTL;
2518    TTL:;
2519            {object V402= car((V400));
2520            if(!eql(V402,VV[142]))goto T1042;
2521            V401= cadr((V400));
2522            goto T1041;
2523            goto T1042;
2524    T1042:;
2525            if(!eql(V402,VV[80]))goto T1043;
2526            V401= make_cons(VV[148],cdr((V400)));
2527            goto T1041;
2528            goto T1043;
2529    T1043:;
2530            if(!eql(V402,VV[68]))goto T1044;
2531            V401= make_cons(VV[149],cdr((V400)));
2532            goto T1041;
2533            goto T1044;
2534    T1044:;
2535            if(!eql(V402,VV[144]))goto T1045;
2536            V401= make_cons(VV[150],cdr((V400)));
2537            goto T1041;
2538            goto T1045;
2539    T1045:;
2540            if(!eql(V402,VV[66]))goto T1046;
2541            V401= make_cons(VV[146],cdr((V400)));
2542            goto T1041;
2543            goto T1046;
2544    T1046:;
2545            if(!eql(V402,VV[147]))goto T1047;
2546            V401= list(2,VV[148],make_cons(VV[146],cdr((V400))));
2547            goto T1041;
2548            goto T1047;
2549    T1047:;
2550            if(!eql(V402,VV[82]))goto T1048;
2551            V401= list(2,VV[149],make_cons(VV[146],cdr((V400))));
2552            goto T1041;
2553            goto T1048;
2554    T1048:;
2555            if(!eql(V402,VV[84]))goto T1049;
2556            V401= list(2,VV[150],make_cons(VV[146],cdr((V400))));
2557            goto T1041;
2558            goto T1049;
2559    T1049:;
2560            V401= Cnil;}
2561            goto T1041;
2562    T1041:;
2563            {object V403 = (*(LnkLI235))(V401);
2564            VMR42(V403)}
2565            return Cnil;
2566    }
2567    /*      local entry for function C1RPLACA-NTHCDR        */
2568    
2569    static object LI43(V405)
2570    
2571    register object V405;
2572    {        VMB43 VMS43 VMV43
2573            goto TTL;
2574    TTL:;
2575            {object V406;
2576            V406= (VFUN_NARGS=0,(*(LnkLI208))());
2577            if(endp_prop((V405))){
2578            goto T1052;}
2579            if(endp_prop(cdr((V405)))){
2580            goto T1052;}
2581            if(!(endp_prop(cddr((V405))))){
2582            goto T1051;}
2583            goto T1052;
2584    T1052:;
2585            V407 = make_fixnum((long)length((V405)));
2586            (void)((*(LnkLI209))(VV[151],small_fixnum(3),V407));
2587            goto T1051;
2588    T1051:;
2589            if(endp_prop(cdddr((V405)))){
2590            goto T1058;}
2591            V408 = make_fixnum((long)length((V405)));
2592            (void)((*(LnkLI209))(VV[151],small_fixnum(3),V408));
2593            goto T1058;
2594    T1058:;
2595            {object V409= cadr((V405));
2596            if(!(type_of(V409)==t_fixnum||
2597    type_of(V409)==t_bignum||
2598    type_of(V409)==t_ratio||
2599    type_of(V409)==t_shortfloat||
2600    type_of(V409)==t_longfloat||
2601    type_of(V409)==t_complex)){
2602            goto T1062;}}
2603            base[1]= small_fixnum(0);
2604            base[2]= cadr((V405));
2605            base[3]= small_fixnum(10);
2606            vs_top=(vs_base=base+1)+3;
2607            Lmonotonically_nondecreasing();
2608            vs_top=sup;
2609            if((vs_base[0])==Cnil){
2610            goto T1062;}
2611            {register object V410;
2612            object V411;
2613            vs_base=vs_top;
2614            Lgensym();
2615            vs_top=sup;
2616            V410= vs_base[0];
2617            vs_base=vs_top;
2618            Lgensym();
2619            vs_top=sup;
2620            V411= vs_base[0];
2621            V412= list(2,(V410),car((V405)));
2622            V413= list(2,/* INLINE-ARGS */V412,list(2,(V411),caddr((V405))));
2623            V414= list(3,VV[152],(V410),list(3,VV[153],cadr((V405)),(V410)));
2624            V415= list(5,VV[29],/* INLINE-ARGS */V413,/* INLINE-ARGS */V414,list(3,VV[152],list(2,VV[61],(V410)),(V411)),(V411));
2625            {object V416 = (*(LnkLI235))(/* INLINE-ARGS */V415);
2626            VMR43(V416)}}
2627            goto T1062;
2628    T1062:;
2629            {object V417 = list(4,VV[4],(V406),VV[151],(*(LnkLI219))((V405),(V406)));
2630            VMR43(V417)}}
2631            base[0]=base[0];
2632            return Cnil;
2633    }
2634    /*      local entry for function FAST-READ      */
2635    
2636    static object LI44(V420,V421)
2637    
2638    register object V420;object V421;
2639    {        VMB44 VMS44 VMV44
2640            goto TTL;
2641    TTL:;
2642            if((symbol_value(VV[25]))!=Cnil){
2643            goto T1072;}
2644            if(!(number_compare(symbol_value(VV[154]),small_fixnum(2))<0)){
2645            goto T1072;}
2646            if((cadr((V420)))!=Cnil){
2647            goto T1072;}
2648            base[0]= VV[155];
2649            vs_top=(vs_base=base+0)+1;
2650            Lboundp();
2651            vs_top=sup;
2652            if((vs_base[0])==Cnil){
2653            goto T1072;}
2654            if(!(type_of(car((V420)))!=t_cons)){
2655            goto T1082;}{object V422;
2656            V422= car((V420));
2657            if(V422==Cnil)goto T1085;
2658            goto T1084;
2659            goto T1085;
2660    T1085:;}
2661            V420= make_cons(VV[156],cdr((V420)));
2662            goto T1084;
2663    T1084:;
2664            {register object V423;
2665            object V424;
2666            V423= car((V420));
2667            V424= caddr((V420));
2668            V425= list(2,VV[160],(V423));
2669            V426= list(3,VV[161],VV[162],list(2,VV[163],(V423)));
2670            V427= list(3,VV[50],VV[162],small_fixnum(-1));
2671            V428= list(2,list(3,VV[108],/* INLINE-ARGS */V427,list(2,VV[164],(V423))),(V424));
2672            if(!(((V421))==(VV[165]))){
2673            goto T1092;}
2674            V429= VV[166];
2675            goto T1090;
2676            goto T1092;
2677    T1092:;
2678            V429= VV[162];
2679            goto T1090;
2680    T1090:;
2681            V430= list(3,/* INLINE-ARGS */V425,/* INLINE-ARGS */V426,list(3,VV[159],/* INLINE-ARGS */V428,list(2,Ct,V429)));
2682            {object V431 = list(4,VV[29],VV[157],VV[158],list(3,VV[159],/* INLINE-ARGS */V430,list(2,Ct,list(3,(V421),(V423),(V424)))));
2683            VMR44(V431)}}
2684            goto T1082;
2685    T1082:;
2686            V432= list(2,VV[167],car((V420)));
2687            V433= make_cons(/* INLINE-ARGS */V432,Cnil);
2688            V434= (*(LnkLI239))(car((V420)));
2689            V435= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V434,VV[167]));
2690            V436= make_cons(VV[167],cdr((V420)));
2691            {object V437 = list(4,VV[29],/* INLINE-ARGS */V433,/* INLINE-ARGS */V435,(*(LnkLI249))(/* INLINE-ARGS */V436,(V421)));
2692            VMR44(V437)}
2693            goto T1072;
2694    T1072:;
2695            {object V438 = Cnil;
2696            VMR44(V438)}
2697            base[0]=base[0];
2698            return Cnil;
2699    }
2700    /*      local entry for function CO1READ-BYTE   */
2701    
2702    static object LI45(V441,V442)
2703    
2704    object V441;object V442;
2705    {        VMB45 VMS45 VMV45
2706            bds_check;
2707            goto TTL;
2708    TTL:;
2709            {object V443;
2710            V443= Cnil;
2711            V443= (*(LnkLI249))((V442),VV[168]);
2712            if(((V443))==Cnil){
2713            goto T1097;}
2714            bds_bind(VV[154],small_fixnum(10));
2715            {object V444 = (*(LnkLI235))((V443));
2716            bds_unwind1;
2717            VMR45(V444)}
2718            goto T1097;
2719    T1097:;
2720            {object V445 = Cnil;
2721            VMR45(V445)}}
2722            base[0]=base[0];
2723            return Cnil;
2724    }
2725    /*      local entry for function CO1READ-CHAR   */
2726    
2727    static object LI46(V448,V449)
2728    
2729    object V448;object V449;
2730    {        VMB46 VMS46 VMV46
2731            bds_check;
2732            goto TTL;
2733    TTL:;
2734            {object V450;
2735            V450= Cnil;
2736            V450= (*(LnkLI249))((V449),VV[165]);
2737            if(((V450))==Cnil){
2738            goto T1103;}
2739            bds_bind(VV[154],small_fixnum(10));
2740            {object V451 = (*(LnkLI235))((V450));
2741            bds_unwind1;
2742            VMR46(V451)}
2743            goto T1103;
2744    T1103:;
2745            {object V452 = Cnil;
2746            VMR46(V452)}}
2747            base[0]=base[0];
2748            return Cnil;
2749    }
2750    /*      local entry for function CFAST-WRITE    */
2751    
2752    static object LI47(V455,V456)
2753    
2754    object V455;object V456;
2755    {        VMB47 VMS47 VMV47
2756            goto TTL;
2757    TTL:;
2758            if((symbol_value(VV[25]))!=Cnil){
2759            goto T1107;}
2760            if(!(number_compare(symbol_value(VV[154]),small_fixnum(2))<0)){
2761            goto T1107;}
2762            base[0]= VV[155];
2763            vs_top=(vs_base=base+0)+1;
2764            Lboundp();
2765            vs_top=sup;
2766            if((vs_base[0])==Cnil){
2767            goto T1107;}
2768            {register object V457;
2769            V457= cadr((V455));
2770            if((V457)!=Cnil){
2771            goto T1115;}
2772            V457= VV[169];
2773            goto T1115;
2774    T1115:;
2775            if(!(type_of((V457))!=t_cons)){
2776            goto T1118;}
2777            V458= list(2,VV[160],(V457));
2778            V459= list(2,/* INLINE-ARGS */V458,list(3,VV[86],VV[96],list(3,VV[170],VV[171],(V457))));
2779            {object V460 = list(3,VV[159],/* INLINE-ARGS */V459,list(2,Ct,list(3,(V456),VV[171],(V457))));
2780            VMR47(V460)}
2781            goto T1118;
2782    T1118:;
2783            V461= list(2,VV[172],(V457));
2784            V462= make_cons(/* INLINE-ARGS */V461,Cnil);
2785            V463= (*(LnkLI239))((V457));
2786            V464= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V463,VV[172]));
2787            V465= list(2,VV[171],VV[172]);
2788            {object V466 = list(4,VV[29],/* INLINE-ARGS */V462,/* INLINE-ARGS */V464,(*(LnkLI250))(/* INLINE-ARGS */V465,(V456)));
2789            VMR47(V466)}}
2790            goto T1107;
2791    T1107:;
2792            {object V467 = Cnil;
2793            VMR47(V467)}
2794            base[0]=base[0];
2795            return Cnil;
2796    }
2797    /*      local entry for function CO1WRITE-BYTE  */
2798    
2799    static object LI48(V470,V471)
2800    
2801    object V470;register object V471;
2802    {        VMB48 VMS48 VMV48
2803            bds_check;
2804            goto TTL;
2805    TTL:;
2806            {object V472;
2807            V472= (*(LnkLI250))((V471),VV[173]);
2808            if(((V472))==Cnil){
2809            goto T1123;}
2810            bds_bind(VV[154],small_fixnum(10));
2811            V473= list(2,VV[171],car((V471)));
2812            V474= make_cons(/* INLINE-ARGS */V473,Cnil);
2813            if(!(type_of(car((V471)))!=t_cons)){
2814            goto T1127;}
2815            V475= car((V471));
2816            goto T1125;
2817            goto T1127;
2818    T1127:;
2819            V475= VV[171];
2820            goto T1125;
2821    T1125:;
2822            V476= list(5,VV[29],/* INLINE-ARGS */V474,VV[174],(V472),V475);
2823            {object V477 = (*(LnkLI235))(/* INLINE-ARGS */V476);
2824            bds_unwind1;
2825            VMR48(V477)}
2826            goto T1123;
2827    T1123:;
2828            {object V478 = Cnil;
2829            VMR48(V478)}}
2830            base[0]=base[0];
2831            return Cnil;
2832    }
2833    /*      local entry for function CO1WRITE-CHAR  */
2834    
2835    static object LI49(V481,V482)
2836    
2837    object V481;register object V482;
2838    {        VMB49 VMS49 VMV49
2839            bds_check;
2840            goto TTL;
2841    TTL:;
2842            {object V483;
2843            V483= (*(LnkLI250))((V482),VV[175]);
2844            if(((V483))==Cnil){
2845            goto T1132;}
2846            bds_bind(VV[154],small_fixnum(10));
2847            V484= list(2,VV[171],car((V482)));
2848            V485= make_cons(/* INLINE-ARGS */V484,Cnil);
2849            if(!(type_of(car((V482)))!=t_cons)){
2850            goto T1136;}
2851            V486= car((V482));
2852            goto T1134;
2853            goto T1136;
2854    T1136:;
2855            V486= VV[171];
2856            goto T1134;
2857    T1134:;
2858            V487= list(5,VV[29],/* INLINE-ARGS */V485,VV[176],(V483),V486);
2859            {object V488 = (*(LnkLI235))(/* INLINE-ARGS */V487);
2860            bds_unwind1;
2861            VMR49(V488)}
2862            goto T1132;
2863    T1132:;
2864            {object V489 = Cnil;
2865            VMR49(V489)}}
2866            base[0]=base[0];
2867            return Cnil;
2868    }
2869    /*      local entry for function AET-C-TYPE     */
2870    
2871    static object LI50(V491)
2872    
2873    object V491;
2874    {        VMB50 VMS50 VMV50
2875            goto TTL;
2876    TTL:;
2877            {object V492= (V491);
2878            if((V492!= Ct))goto T1138;
2879            {object V493 = VV[177];
2880            VMR50(V493)}
2881            goto T1138;
2882    T1138:;
2883            if((V492!= VV[118])
2884            && (V492!= VV[251]))goto T1139;
2885            {object V494 = VV[178];
2886            VMR50(V494)}
2887            goto T1139;
2888    T1139:;
2889            if((V492!= VV[96]))goto T1140;
2890            {object V495 = VV[179];
2891            VMR50(V495)}
2892            goto T1140;
2893    T1140:;
2894            if((V492!= VV[252]))goto T1141;
2895            {object V496 = VV[180];
2896            VMR50(V496)}
2897            goto T1141;
2898    T1141:;
2899            if((V492!= VV[253]))goto T1142;
2900            {object V497 = VV[181];
2901            VMR50(V497)}
2902            goto T1142;
2903    T1142:;
2904            if((V492!= VV[254]))goto T1143;
2905            {object V498 = VV[182];
2906            VMR50(V498)}
2907            goto T1143;
2908    T1143:;
2909            if((V492!= VV[253]))goto T1144;
2910            {object V499 = VV[183];
2911            VMR50(V499)}
2912            goto T1144;
2913    T1144:;
2914            if((V492!= VV[255]))goto T1145;
2915            {object V500 = VV[184];
2916            VMR50(V500)}
2917            goto T1145;
2918    T1145:;
2919            if((V492!= VV[256]))goto T1146;
2920            {object V501 = VV[185];
2921            VMR50(V501)}
2922            goto T1146;
2923    T1146:;
2924            FEerror("The ECASE key value ~s is illegal.",1,V492);
2925            {object V502 = Cnil;
2926            VMR50(V502)}}
2927            return Cnil;
2928    }
2929    /*      local entry for function CO1VECTOR-PUSH */
2930    
2931    static object LI51(V505,V506)
2932    
2933    object V505;register object V506;
2934    {        VMB51 VMS51 VMV51
2935            bds_check;
2936            goto TTL;
2937    TTL:;
2938            if((symbol_value(VV[25]))!=Cnil){
2939            goto T1149;}
2940            if(number_compare(symbol_value(VV[154]),small_fixnum(3))>0){
2941            goto T1149;}
2942            if((cdr((V506)))==Cnil){
2943            goto T1149;}
2944            bds_bind(VV[154],small_fixnum(10));
2945            V507= list(2,VV[187],car((V506)));
2946            V508= listA(3,/* INLINE-ARGS */V507,list(2,VV[188],cadr((V506))),VV[189]);
2947            V509= (*(LnkLI239))(cadr((V506)));
2948            V510= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V509,VV[188]));
2949            V511= (*(LnkLI239))(car((V506)));
2950            V512= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V511,VV[187]));
2951            if(!(((V505))==(VV[192]))){
2952            goto T1157;}
2953            V513= listA(4,VV[192],VV[187],VV[188],cddr((V506)));
2954            goto T1155;
2955            goto T1157;
2956    T1157:;
2957            V513= Cnil;
2958            goto T1155;
2959    T1155:;
2960            V514= list(6,VV[186],/* INLINE-ARGS */V508,VV[190],/* INLINE-ARGS */V510,/* INLINE-ARGS */V512,list(3,VV[159],VV[191],list(2,Ct,V513)));
2961            {object V515 = (*(LnkLI235))(/* INLINE-ARGS */V514);
2962            bds_unwind1;
2963            VMR51(V515)}
2964            goto T1149;
2965    T1149:;
2966            {object V516 = Cnil;
2967            VMR51(V516)}
2968            base[0]=base[0];
2969            return Cnil;
2970    }
2971    /*      local entry for function CONSTANT-FOLD-P        */
2972    
2973    static object LI52(V518)
2974    
2975    register object V518;
2976    {        VMB52 VMS52 VMV52
2977            goto TTL;
2978    TTL:;
2979            base[0]= (V518);
2980            vs_top=(vs_base=base+0)+1;
2981            Lconstantp();
2982            vs_top=sup;
2983            if((vs_base[0])==Cnil){
2984            goto T1160;}
2985            {object V519 = Ct;
2986            VMR52(V519)}
2987            goto T1160;
2988    T1160:;
2989            if(!(type_of((V518))!=t_cons)){
2990            goto T1164;}
2991            {object V520 = Cnil;
2992            VMR52(V520)}
2993            goto T1164;
2994    T1164:;
2995            if(!((car((V518)))==(VV[86]))){
2996            goto T1167;}
2997            V518= caddr((V518));
2998            goto TTL;
2999            goto T1167;
3000    T1167:;
3001            if(!(type_of(car((V518)))==t_symbol)){
3002            goto T1172;}
3003            V521= get(car((V518)),VV[193],Cnil);
3004            if(!((V521)==(VV[194]))){
3005            goto T1172;}
3006            {register object V522;
3007            register object V523;
3008            V522= cdr((V518));
3009            V523= car((V522));
3010            goto T1181;
3011    T1181:;
3012            if(!(endp_prop((V522)))){
3013            goto T1182;}
3014            goto T1177;
3015            goto T1182;
3016    T1182:;{object V524;
3017            V524= (*(LnkLI257))((V523));
3018            if(V524==Cnil)goto T1187;
3019            goto T1186;
3020            goto T1187;
3021    T1187:;}
3022            {object V525 = Cnil;
3023            VMR52(V525)}
3024            goto T1186;
3025    T1186:;
3026            V522= cdr((V522));
3027            V523= car((V522));
3028            goto T1181;}
3029            goto T1177;
3030    T1177:;
3031            {object V526 = Ct;
3032            VMR52(V526)}
3033            goto T1172;
3034    T1172:;
3035            {object V527 = Cnil;
3036            VMR52(V527)}
3037            base[0]=base[0];
3038            return Cnil;
3039    }
3040    /*      local entry for function CO1CONSTANT-FOLD       */
3041    
3042    static object LI53(V530,V531)
3043    
3044    object V530;object V531;
3045    {        VMB53 VMS53 VMV53
3046            goto TTL;
3047    TTL:;
3048            base[0]= (V530);
3049            vs_top=(vs_base=base+0)+1;
3050            Lfboundp();
3051            vs_top=sup;
3052            if((vs_base[0])==Cnil){
3053            goto T1195;}
3054            {register object V532;
3055            register object V533;
3056            V532= (V531);
3057            V533= car((V532));
3058            goto T1203;
3059    T1203:;
3060            if(!(endp_prop((V532)))){
3061            goto T1204;}
3062            goto T1199;
3063            goto T1204;
3064    T1204:;{object V534;
3065            V534= (*(LnkLI257))((V533));
3066            if(V534==Cnil)goto T1209;
3067            goto T1208;
3068            goto T1209;
3069    T1209:;}
3070            {object V535 = Cnil;
3071            VMR53(V535)}
3072            goto T1208;
3073    T1208:;
3074            V532= cdr((V532));
3075            V533= car((V532));
3076            goto T1203;}
3077            goto T1199;
3078    T1199:;
3079            base[0]= make_cons((V530),(V531));
3080            vs_top=(vs_base=base+0)+1;
3081            (void) (*Lnk258)();
3082            vs_top=sup;
3083            V536= vs_base[0];
3084            {object V537 = (*(LnkLI235))(V536);
3085            VMR53(V537)}
3086            goto T1195;
3087    T1195:;
3088            {object V538 = Cnil;
3089            VMR53(V538)}
3090            base[0]=base[0];
3091            return Cnil;
3092    }
3093    /*      local entry for function CO1SPECIAL-FIX-DECL    */
3094    
3095    static object LI54(V541,V542)
3096    
3097    object V541;register object V542;
3098    {        VMB54 VMS54 VMV54
3099            goto TTL;
3100    TTL:;
3101            {object V544= (V541);
3102            if((V544!= VV[260])
3103            && (V544!= VV[261]))goto T1219;
3104            V545= car((V542));
3105            V546= cadr((V542));
3106            base[0]= cddr((V542));
3107            vs_top=(vs_base=base+0)+1;
3108            L55(base);
3109            vs_top=sup;
3110            V547= vs_base[0];
3111            V543= listA(4,(V541),/* INLINE-ARGS */V545,/* INLINE-ARGS */V546,V547);
3112            goto T1218;
3113            goto T1219;
3114    T1219:;
3115            if((V544!= VV[262])
3116            && (V544!= VV[263]))goto T1222;
3117            V548= car((V542));
3118            base[0]= cdr((V542));
3119            vs_top=(vs_base=base+0)+1;
3120            L55(base);
3121            vs_top=sup;
3122            V549= vs_base[0];
3123            V543= listA(3,(V541),/* INLINE-ARGS */V548,V549);
3124            goto T1218;
3125            goto T1222;
3126    T1222:;
3127            V543= Cnil;}
3128            goto T1218;
3129    T1218:;
3130            V550= (*(LnkLI259))(V543);
3131            {object V551 = (*(LnkLI235))(/* INLINE-ARGS */V550);
3132            VMR54(V551)}
3133            base[0]=base[0];
3134            return Cnil;
3135    }
3136    /*      local entry for function CO1SUBLIS      */
3137    
3138    static object LI56(V554,V555)
3139    
3140    object V554;register object V555;
3141    {        VMB55 VMS55 VMV55
3142            goto TTL;
3143    TTL:;
3144            {register object V556;
3145            V556= Cnil;switch((long)length((V555))){
3146            case 2:
3147            goto T1230;
3148    T1230:;
3149            V556= VV[50];
3150            if((VV[50])!=Cnil){
3151            goto T1227;}
3152            goto T1228;
3153            case 4:
3154            goto T1231;
3155    T1231:;
3156            if((caddr((V555)))==(VV[51])){
3157            goto T1234;}
3158            goto T1228;
3159            goto T1234;
3160    T1234:;
3161            {register object x= cadddr((V555)),V557= VV[195];
3162            while(!endp(V557))
3163            if(eql(x,V557->c.c_car)){
3164            goto T1238;
3165            }else V557=V557->c.c_cdr;
3166            goto T1237;}
3167            goto T1238;
3168    T1238:;
3169            V556= VV[196];
3170            if((VV[196])!=Cnil){
3171            goto T1227;}
3172            goto T1228;
3173            goto T1237;
3174    T1237:;
3175            {register object x= cadddr((V555)),V558= VV[197];
3176            while(!endp(V558))
3177            if(eql(x,V558->c.c_car)){
3178            goto T1242;
3179            }else V558=V558->c.c_cdr;
3180            goto T1241;}
3181            goto T1242;
3182    T1242:;
3183            V556= VV[50];
3184            if((VV[50])!=Cnil){
3185            goto T1227;}
3186            goto T1228;
3187            goto T1241;
3188    T1241:;
3189            {register object x= cadddr((V555)),V559= VV[198];
3190            while(!endp(V559))
3191            if(eql(x,V559->c.c_car)){
3192            goto T1246;
3193            }else V559=V559->c.c_cdr;
3194            goto T1245;}
3195            goto T1246;
3196    T1246:;
3197            V556= VV[48];
3198            if((VV[48])!=Cnil){
3199            goto T1227;}
3200            goto T1228;
3201            goto T1245;
3202    T1245:;
3203            goto T1228;
3204            default:
3205            goto T1232;
3206    T1232:;
3207            goto T1228;}
3208            goto T1228;
3209    T1228:;
3210            {object V560 = Cnil;
3211            VMR55(V560)}
3212            goto T1227;
3213    T1227:;
3214            {object V561;
3215            vs_base=vs_top;
3216            Lgensym();
3217            vs_top=sup;
3218            V561= vs_base[0];
3219            V562= list(2,(V561),car((V555)));
3220            V563= make_cons(/* INLINE-ARGS */V562,Cnil);
3221            V564= cadr((V555));
3222            V565= list(3,VV[29],/* INLINE-ARGS */V563,list(4,VV[199],(V561),/* INLINE-ARGS */V564,list(2,VV[113],(V556))));
3223            {object V566 = (*(LnkLI235))(/* INLINE-ARGS */V565);
3224            VMR55(V566)}}}
3225            base[0]=base[0];
3226            return Cnil;
3227    }
3228    /*      local entry for function SUBLIS1-INLINE */
3229    
3230    static object LI57(V570,V571,V572)
3231    
3232    object V570;object V571;object V572;
3233    {        VMB56 VMS56 VMV56
3234            goto TTL;
3235    TTL:;
3236            {object V573;
3237            V574= (VFUN_NARGS=4,(*(LnkLI264))(cadr((V572)),symbol_value(VV[200]),VV[201],VV[105]));
3238            V573= car(/* INLINE-ARGS */V574);{object V575;
3239            {register object x= (V573),V576= VV[202];
3240            while(!endp(V576))
3241            if(eql(x,V576->c.c_car)){
3242            V575= V576;
3243            goto T1252;
3244            }else V576=V576->c.c_cdr;
3245            V575= Cnil;}
3246            goto T1252;
3247    T1252:;
3248            if(V575==Cnil)goto T1251;
3249            goto T1250;
3250            goto T1251;
3251    T1251:;}
3252            base[0]= VV[203];
3253            vs_top=(vs_base=base+0)+1;
3254            Lerror();
3255            vs_top=sup;
3256            goto T1250;
3257    T1250:;
3258            princ_str("(check_alist(",VV[7]);
3259            (void)((*(LnkLI213))((V570)));
3260            princ_str("),sublis1(",VV[7]);
3261            (void)((*(LnkLI213))((V570)));
3262            princ_char(44,VV[7]);
3263            (void)((*(LnkLI213))((V571)));
3264            princ_char(44,VV[7]);
3265            base[0]= Cnil;
3266            base[1]= VV[204];
3267            base[2]= (V573);
3268            vs_top=(vs_base=base+0)+3;
3269            Lformat();
3270            vs_top=sup;
3271            V577= vs_base[0];
3272            (void)((*(LnkLI213))(V577));
3273            {object V578 = Cnil;
3274            VMR56(V578)}}
3275            base[0]=base[0];
3276            return Cnil;
3277    }
3278    /*      local entry for function C1LIST-NTH     */
3279    
3280    static object LI58(V580)
3281    
3282    register object V580;
3283    {        VMB57 VMS57 VMV57
3284            goto TTL;
3285    TTL:;
3286            {register object V581;
3287            V581= (VFUN_NARGS=0,(*(LnkLI208))());
3288            if(endp_prop((V580))){
3289            goto T1268;}
3290            if(!(endp_prop(cdr((V580))))){
3291            goto T1267;}
3292            goto T1268;
3293    T1268:;
3294            V582 = make_fixnum((long)length((V580)));
3295            (void)((*(LnkLI209))(VV[151],small_fixnum(2),V582));
3296            goto T1267;
3297    T1267:;
3298            if(endp_prop(cddr((V580)))){
3299            goto T1272;}
3300            V583 = make_fixnum((long)length((V580)));
3301            (void)((*(LnkLI209))(VV[151],small_fixnum(2),V583));
3302            goto T1272;
3303    T1272:;
3304            {object V584= car((V580));
3305            if(!(type_of(V584)==t_fixnum||
3306    type_of(V584)==t_bignum||
3307    type_of(V584)==t_ratio||
3308    type_of(V584)==t_shortfloat||
3309    type_of(V584)==t_longfloat||
3310    type_of(V584)==t_complex)){
3311            goto T1276;}}
3312            base[1]= small_fixnum(0);
3313            base[2]= car((V580));
3314            base[3]= small_fixnum(10);
3315            vs_top=(vs_base=base+1)+3;
3316            Lmonotonically_nondecreasing();
3317            vs_top=sup;
3318            if((vs_base[0])==Cnil){
3319            goto T1276;}
3320            V585= car((V580));
3321            V586= make_cons(cadr((V580)),Cnil);
3322            {object V587 = list(4,VV[205],(V581),/* INLINE-ARGS */V585,(*(LnkLI219))(/* INLINE-ARGS */V586,(V581)));
3323            VMR57(V587)}
3324            goto T1276;
3325    T1276:;
3326            {object V588 = list(4,VV[4],(V581),VV[206],(*(LnkLI219))((V580),(V581)));
3327            VMR57(V588)}}
3328            base[0]=base[0];
3329            return Cnil;
3330    }
3331    /*      local entry for function C2LIST-NTH-IMMEDIATE   */
3332    
3333    static object LI59(V591,V592)
3334    
3335    object V591;object V592;
3336    {        VMB58 VMS58 VMV58
3337            bds_check;
3338            goto TTL;
3339    TTL:;
3340            {object V593;
3341            setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
3342            V593= symbol_value(VV[22]);
3343            bds_bind(VV[20],symbol_value(VV[20]));
3344            bds_bind(VV[42],small_fixnum(0));
3345            V592= (VFUN_NARGS=2,(*(LnkLI232))((V592),VV[207]));
3346            princ_str("\n   {object V",VV[7]);
3347            (void)((*(LnkLI213))((V593)));
3348            princ_str("= ",VV[7]);
3349            if((symbol_value(VV[25]))==Cnil){
3350            goto T1293;}
3351            {register long V594;
3352            register long V595;
3353            V594= fix((V591));
3354            V595= 0;
3355            goto T1299;
3356    T1299:;
3357            if(!((V595)>=(V594))){
3358            goto T1300;}
3359            goto T1295;
3360            goto T1300;
3361    T1300:;
3362            princ_str("cdr(",VV[7]);
3363            V595= (long)(V595)+1;
3364            goto T1299;}
3365            goto T1295;
3366    T1295:;
3367            (void)((*(LnkLI213))(car((V592))));
3368            {register long V596;
3369            register long V597;
3370            V596= fix((V591));
3371            V597= 0;
3372            goto T1315;
3373    T1315:;
3374            if(!((V597)>=(V596))){
3375            goto T1316;}
3376            goto T1311;
3377            goto T1316;
3378    T1316:;
3379            princ_char(41,VV[7]);
3380            V597= (long)(V597)+1;
3381            goto T1315;}
3382            goto T1311;
3383    T1311:;
3384            princ_char(59,VV[7]);
3385            princ_str("\n   if((type_of(V",VV[7]);
3386            (void)((*(LnkLI213))((V593)));
3387            princ_str(")!=t_cons) && (",VV[7]);
3388            (void)((*(LnkLI213))(car((V592))));
3389            princ_str("!= Cnil))",VV[7]);
3390            princ_str("\n    FEwrong_type_argument(Scons,V",VV[7]);
3391            (void)((*(LnkLI213))((V593)));
3392            princ_str(");",VV[7]);
3393            goto T1291;
3394            goto T1293;
3395    T1293:;
3396            princ_str("\n   ",VV[7]);
3397            (void)((*(LnkLI213))(car((V592))));
3398            {register long V598;
3399            register long V599;
3400            V598= fix((V591));
3401            V599= 0;
3402            goto T1343;
3403    T1343:;
3404            if(!((V599)>=(V598))){
3405            goto T1344;}
3406            goto T1339;
3407            goto T1344;
3408    T1344:;
3409            princ_str("\n   ->c.c_cdr",VV[7]);
3410            V599= (long)(V599)+1;
3411            goto T1343;}
3412            goto T1339;
3413    T1339:;
3414            princ_char(59,VV[7]);
3415            goto T1291;
3416    T1291:;
3417            V600= list(2,VV[61],(V593));
3418            (void)((VFUN_NARGS=1,(*(LnkLI214))(/* INLINE-ARGS */V600)));
3419            princ_char(125,VV[7]);
3420            {object V601 = (*(LnkLI233))();
3421            bds_unwind1;
3422            bds_unwind1;
3423            VMR58(V601)}}
3424            base[0]=base[0];
3425            return Cnil;
3426    }
3427    /*      local function FIXUP    */
3428    
3429    static void L55(base0)
3430    register object *base0;
3431    {       register object *base=vs_base;
3432            register object *sup=base+VM59; VC59
3433            vs_reserve(VM59);
3434            {register object V602;
3435            check_arg(1);
3436            V602=(base[0]);
3437            vs_top=sup;
3438            goto TTL;
3439    TTL:;
3440            {register object V603;
3441            V603= Cnil;
3442            goto T1359;
3443    T1359:;
3444            if(!(type_of((V602))==t_cons)){
3445            goto T1362;}
3446            goto T1361;
3447            goto T1362;
3448    T1362:;
3449            goto T1360;
3450            goto T1361;
3451    T1361:;
3452            {register object V604;
3453            V604= car((V602));
3454            if(!(type_of((V604))==t_cons)){
3455            goto T1367;}
3456            V604= (*(LnkLI259))((V604));
3457            if(((V604))==Cnil){
3458            goto T1367;}
3459            if(!((car((V604)))==(VV[106]))){
3460            goto T1367;}
3461            {register object V605;
3462            V605= (V604);
3463            V603= make_cons((V605),(V603));}
3464            {register object V606;
3465            V606= car((V602));
3466            V602= cdr((V602));
3467            goto T1364;}
3468            goto T1367;
3469    T1367:;
3470            goto T1360;}
3471            goto T1364;
3472    T1364:;
3473            goto T1359;
3474            goto T1360;
3475    T1360:;
3476            V607= nreverse((V603));
3477            base[1]= nconc(/* INLINE-ARGS */V607,(V602));
3478            vs_top=(vs_base=base+1)+1;
3479            return;
3480            base[1]= Cnil;
3481            vs_top=(vs_base=base+1)+1;
3482            return;}
3483            }
3484    }
3485    static object  LnkTLI264(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[264],(void **)(void *)&LnkLI264,first,ap);va_end(ap);return V1;} /* FIND */
3486    static object  LnkTLI259(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[259],(void **)(void *)&LnkLI259,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
3487    static void LnkT258(){ call_or_link(VV[258],(void **)(void *)&Lnk258);} /* CMP-EVAL */
3488    static object  LnkTLI257(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[257],(void **)(void *)&LnkLI257,1,first,ap);va_end(ap);return V1;} /* CONSTANT-FOLD-P */
3489    static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)(void *)&LnkLI250,2,first,ap);va_end(ap);return V1;} /* CFAST-WRITE */
3490    static object  LnkTLI249(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[249],(void **)(void *)&LnkLI249,2,first,ap);va_end(ap);return V1;} /* FAST-READ */
3491    static object  LnkTLI248(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[248],(void **)(void *)&LnkLI248,1,first,ap);va_end(ap);return V1;} /* CONS-TO-LISTA */
3492    static object  LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)(void *)&LnkLI247,1,first,ap);va_end(ap);return V1;} /* NAME-SD1 */
3493    static object  LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,1,first,ap);va_end(ap);return V1;} /* GET-INCLUDED */
3494    static object  LnkTLI245(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[245],(void **)(void *)&LnkLI245,2,first,ap);va_end(ap);return V1;} /* STRUCT-TYPE-OPT */
3495    static object  LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
3496    static object  LnkTLI243(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[243],(void **)(void *)&LnkLI243,first,ap);va_end(ap);return V1;} /* POSITION */
3497    static object  LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[242],(void **)(void *)&LnkLI242,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
3498    static object  LnkTLI241(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[241],(void **)(void *)&LnkLI241,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
3499    static object  LnkTLI240(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[240],(void **)(void *)&LnkLI240,1,first,ap);va_end(ap);return V1;} /* REPLACE-CONSTANT */
3500    static object  LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[239],(void **)(void *)&LnkLI239,1,first,ap);va_end(ap);return V1;} /* RESULT-TYPE */
3501    static void LnkT238(){ call_or_link(VV[238],(void **)(void *)&Lnk238);} /* FIXNUMP */
3502    static void LnkT237(){ call_or_link(VV[237],(void **)(void *)&Lnk237);} /* SUBTYPEP */
3503    static void LnkT236(){ call_or_link(VV[236],(void **)(void *)&Lnk236);} /* WT-INLINE-LOC */
3504    static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
3505    static object  LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,1,first,ap);va_end(ap);return V1;} /* INLINE-BOOLE3-STRING */
3506    static object  LnkTLI233(){return call_proc0(VV[233],(void **)(void *)&LnkLI233);} /* CLOSE-INLINE-BLOCKS */
3507    static object  LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[232],(void **)(void *)&LnkLI232,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
3508    static object  LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
3509    static void LnkT230(){ call_or_link(VV[230],(void **)(void *)&Lnk230);} /* C2EXPR */
3510    static object  LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* C2BIND */
3511    static object  LnkTLI228(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[228],(void **)(void *)&LnkLI228,1,first,ap);va_end(ap);return V1;} /* WT-VS */
3512    static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,2,first,ap);va_end(ap);return V1;} /* WT-VAR */
3513    static object  LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[226],(void **)(void *)&LnkLI226,first,ap);va_end(ap);return V1;} /* MAKE-VAR */
3514    static object  LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[225],(void **)(void *)&LnkLI225,first,ap);va_end(ap);return V1;} /* CMPERR */
3515    static object  LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[224],(void **)(void *)&LnkLI224,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
3516    static object  LnkTLI223(){return call_proc0(VV[223],(void **)(void *)&LnkLI223);} /* VS-PUSH */
3517    static object  LnkTLI222(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[222],(void **)(void *)&LnkLI222,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
3518    static object  LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,1,first,ap);va_end(ap);return V1;} /* SAVE-FUNOB */
3519    static object  LnkTLI220(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[220],(void **)(void *)&LnkLI220,5,first,ap);va_end(ap);return V1;} /* C1APPLY-OPTIMIZE */
3520    static object  LnkTLI219(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[219],(void **)(void *)&LnkLI219,2,first,ap);va_end(ap);return V1;} /* C1ARGS */
3521    static void LnkT218(){ call_or_link(VV[218],(void **)(void *)&Lnk218);} /* COPY-INFO */
3522    static object  LnkTLI217(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[217],(void **)(void *)&LnkLI217,1,first,ap);va_end(ap);return V1;} /* C1FUNOB */
3523    static object  LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[216],(void **)(void *)&LnkLI216,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
3524    static object  LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,4,first,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */
3525    static object  LnkTLI214(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[214],(void **)(void *)&LnkLI214,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
3526    static object  LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,1,first,ap);va_end(ap);return V1;} /* WT1 */
3527    static object  LnkTLI212(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[212],(void **)(void *)&LnkLI212,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
3528    static object  LnkTLI211(){return call_proc0(VV[211],(void **)(void *)&LnkLI211);} /* C1NIL */
3529    static object  LnkTLI210(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[210],(void **)(void *)&LnkLI210,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
3530    static object  LnkTLI209(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[209],(void **)(void *)&LnkLI209,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
3531    static object  LnkTLI208(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[208],(void **)(void *)&LnkLI208,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
3532    
3533    #ifdef SYSTEM_SPECIAL_INIT
3534    SYSTEM_SPECIAL_INIT
3535    #endif
3536    

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