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

Diff of /gcl/cmpnew/gcl_cmpenv.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_cmpenv.h"
4    void init_gcl_cmpenv(){do_init(VV);}
5    /*      local entry for function INIT-ENV       */
6    
7    static object LI1()
8    
9    {        VMB1 VMS1 VMV1
10            goto TTL;
11    TTL:;
12            setq(VV[0],small_fixnum(0));
13            setq(VV[1],small_fixnum(0));
14            setq(VV[2],small_fixnum(-1));
15            setq(VV[3],small_fixnum(0));
16            setq(VV[4],small_fixnum(0));
17            setq(VV[5],Cnil);
18            setq(VV[6],Cnil);
19            setq(VV[7],Cnil);
20            setq(VV[8],Cnil);
21            setq(VV[9],Cnil);
22            setq(VV[10],Cnil);
23            setq(VV[11],Cnil);
24            setq(VV[12],Cnil);
25            setq(VV[13],Cnil);
26            setq(VV[14],Cnil);
27            setq(VV[15],Cnil);
28            setq(VV[16],Cnil);
29            setq(VV[17],small_fixnum(0));
30            setq(VV[18],Cnil);
31            {object V1 = Cnil;
32            VMR1(V1)}
33            return Cnil;
34    }
35    /*      macro definition for NEXT-CFUN  */
36    
37    static void L2()
38    {register object *base=vs_base;
39            register object *sup=base+VM2; VC2
40            vs_reserve(VM2);
41            check_arg(2);
42            vs_top=sup;
43            {object V2=base[0]->c.c_cdr;
44            if(!endp(V2))invalid_macro_call();}
45            base[2]= VV[19];
46            vs_top=(vs_base=base+2)+1;
47            return;
48    }
49    /*      local entry for function ADD-SYMBOL     */
50    
51    static object LI3(V4)
52    
53    object V4;
54    {        VMB3 VMS3 VMV3
55            goto TTL;
56    TTL:;
57            {object V5;
58            {register object x= (V4),V6= symbol_value(VV[5]);
59            while(!endp(V6))
60            if(type_of(V6->c.c_car)==t_cons &&eql(x,V6->c.c_car->c.c_car)){
61            V5= (V6->c.c_car);
62            goto T38;
63            }else V6=V6->c.c_cdr;
64            V5= Cnil;}
65            goto T38;
66    T38:;
67            if(((V5))==Cnil){
68            goto T40;}
69            {object V7 = cadr((V5));
70            VMR3(V7)}
71            goto T40;
72    T40:;
73            (void)((*(LnkLI113))((V4)));
74            {object V8;
75            V8= list(2,(V4),symbol_value(VV[2]));
76            setq(VV[5],make_cons((V8),symbol_value(VV[5])));}
77            {object V9 = symbol_value(VV[2]);
78            VMR3(V9)}}
79            base[0]=base[0];
80            return Cnil;
81    }
82    /*      function definition for WT-TO-STRING    */
83    
84    static void L4()
85    {register object *base=vs_base;
86            register object *sup=base+VM4; VC4
87            vs_reserve(VM4);
88            bds_check;
89            {object V10;
90            check_arg(1);
91            V10=(base[0]);
92            vs_top=sup;
93            goto TTL;
94    TTL:;
95            vs_base=vs_top;
96            (void) (*Lnk114)();
97            vs_top=sup;
98            bds_bind(VV[20],vs_base[0]);
99            bds_bind(VV[21],Cnil);
100            (void)((*(LnkLI115))((V10)));
101            base[3]= (VV[20]->s.s_dbind);
102            vs_top=(vs_base=base+3)+1;
103            (void) (*Lnk116)();
104            bds_unwind1;
105            bds_unwind1;
106            return;
107            }
108    }
109    /*      local entry for function ADD-OBJECT     */
110    
111    static object LI5(V12)
112    
113    register object V12;
114    {        VMB5 VMS5 VMV5
115            goto TTL;
116    TTL:;
117            {object V13;
118            V13= Cnil;
119            base[0]= (V12);
120            vs_top=(vs_base=base+0)+1;
121            (void) (*Lnk117)();
122            vs_top=sup;
123            if((vs_base[0])==Cnil){
124            goto T51;}
125            if(!(type_of((V12))==t_cons)){
126            goto T56;}
127            if(!((car((V12)))==(VV[22]))){
128            goto T56;}
129            base[0]= cdr((V12));
130            vs_top=(vs_base=base+0)+1;
131            (void) (*Lnk117)();
132            vs_top=sup;
133            if((vs_base[0])!=Cnil){
134            goto T56;}
135            V12= cdr((V12));
136            goto T54;
137            goto T56;
138    T56:;
139            base[0]= (V12);
140            vs_top=(vs_base=base+0)+1;
141            (void) (*Lnk118)();
142            vs_top=sup;
143            V14= vs_base[0];
144            V12= list(2,VV[23],V14);
145            goto T54;
146    T54:;
147            (void)((*(LnkLI113))(Cnil));
148            {object V15;
149            V15= list(2,symbol_value(VV[2]),(V12));
150            setq(VV[24],make_cons((V15),symbol_value(VV[24])));}
151            {object V16 = symbol_value(VV[2]);
152            VMR5(V16)}
153            goto T51;
154    T51:;
155            {register object x= (V12),V17= symbol_value(VV[5]);
156            while(!endp(V17))
157            if(type_of(V17->c.c_car)==t_cons &&eql(x,V17->c.c_car->c.c_car)){
158            V13= (V17->c.c_car);
159            goto T74;
160            }else V17=V17->c.c_cdr;
161            V13= Cnil;}
162            goto T74;
163    T74:;
164            if(((V13))==Cnil){
165            goto T72;}
166            {object V18 = cadr((V13));
167            VMR5(V18)}
168            goto T72;
169    T72:;
170            base[0]= (V12);
171            base[1]= VV[25];
172            vs_top=(vs_base=base+0)+2;
173            (void) (*Lnk119)();
174            vs_top=sup;
175            if((vs_base[0])==Cnil){
176            goto T76;}
177            (void)((*(LnkLI113))(Cnil));
178            {object V19;{object V20;
179            V20= symbol_value(VV[2]);{object V22;
180            base[1]= (V12);
181            vs_top=(vs_base=base+1)+1;
182            (void) (*Lnk120)();
183            vs_top=sup;
184            V22= vs_base[0];
185            if(V22==Cnil)goto T84;
186            V21= V22;
187            goto T83;
188            goto T84;
189    T84:;}
190            V21= (VFUN_NARGS=1,(*(LnkLI121))(VV[27]));
191            goto T83;
192    T83:;
193            V19= list(2,V20,list(2,VV[26],V21));}
194            setq(VV[24],make_cons((V19),symbol_value(VV[24])));}
195            {object V23 = symbol_value(VV[2]);
196            VMR5(V23)}
197            goto T76;
198    T76:;
199            (void)((*(LnkLI113))((V12)));
200            {object V24;
201            V24= list(2,(V12),symbol_value(VV[2]));
202            setq(VV[5],make_cons((V24),symbol_value(VV[5])));}
203            {object V25 = symbol_value(VV[2]);
204            VMR5(V25)}}
205            base[0]=base[0];
206            return Cnil;
207    }
208    /*      local entry for function ADD-CONSTANT   */
209    
210    static object LI6(V27)
211    
212    object V27;
213    {        VMB6 VMS6 VMV6
214            goto TTL;
215    TTL:;
216            {object V28;
217            V28= Cnil;
218            {register object x= (V27),V29= symbol_value(VV[6]);
219            while(!endp(V29))
220            if(type_of(V29->c.c_car)==t_cons &&eql(x,V29->c.c_car->c.c_car)){
221            V28= (V29->c.c_car);
222            goto T96;
223            }else V29=V29->c.c_cdr;
224            V28= Cnil;}
225            goto T96;
226    T96:;
227            if(((V28))==Cnil){
228            goto T94;}
229            {object V30 = cadr((V28));
230            VMR6(V30)}
231            goto T94;
232    T94:;
233            (void)((*(LnkLI113))(Cnil));
234            {object V31;
235            V31= list(2,symbol_value(VV[2]),(V27));
236            setq(VV[24],make_cons((V31),symbol_value(VV[24])));}
237            {object V32;
238            V32= list(2,(V27),symbol_value(VV[2]));
239            setq(VV[6],make_cons((V32),symbol_value(VV[6])));}
240            {object V33 = symbol_value(VV[2]);
241            VMR6(V33)}}
242            base[0]=base[0];
243            return Cnil;
244    }
245    /*      macro definition for NEXT-CVAR  */
246    
247    static void L7()
248    {register object *base=vs_base;
249            register object *sup=base+VM7; VC7
250            vs_reserve(VM7);
251            check_arg(2);
252            vs_top=sup;
253            {object V34=base[0]->c.c_cdr;
254            if(!endp(V34))invalid_macro_call();}
255            base[2]= VV[28];
256            vs_top=(vs_base=base+2)+1;
257            return;
258    }
259    /*      macro definition for NEXT-CMACRO        */
260    
261    static void L8()
262    {register object *base=vs_base;
263            register object *sup=base+VM8; VC8
264            vs_reserve(VM8);
265            check_arg(2);
266            vs_top=sup;
267            {object V35=base[0]->c.c_cdr;
268            if(!endp(V35))invalid_macro_call();}
269            base[2]= VV[29];
270            vs_top=(vs_base=base+2)+1;
271            return;
272    }
273    /*      local entry for function FUNCTION-ARG-TYPES     */
274    
275    static object LI9(V37)
276    
277    object V37;
278    {        VMB9 VMS9 VMV9
279            goto TTL;
280    TTL:;
281            {object V38;
282            register object V39;
283            object V40;
284            V38= Cnil;
285            V39= Cnil;
286            V40= Cnil;
287            {register object V41;
288            register long V42;
289            V42= 0;
290            V41= (V37);
291            goto T111;
292    T111:;
293            if(!(endp_prop((V41)))){
294            goto T112;}
295            V40= reverse((V39));
296            goto T108;
297            goto T112;
298    T112:;
299            {register object x= car((V41)),V43= VV[30];
300            while(!endp(V43))
301            if(eql(x,V43->c.c_car)){
302            goto T117;
303            }else V43=V43->c.c_cdr;}
304            if(!(equal(car((V41)),VV[31]))){
305            goto T116;}
306            goto T117;
307    T117:;
308            V38= Ct;
309            V44= make_cons(VV[31],(V39));
310            V40= reverse(/* INLINE-ARGS */V44);
311            goto T108;
312            goto T116;
313    T116:;
314            {object V45;
315            if(!((V42)<(9))){
316            goto T126;}
317            {register object V46;
318            V46= (*(LnkLI122))(car((V41)));
319            if(!((VV[32])==((V46)))){
320            goto T130;}
321            V45= Ct;
322            goto T124;
323            goto T130;
324    T130:;
325            V45= (V46);
326            goto T124;}
327            goto T126;
328    T126:;
329            if(!((car((V41)))==(VV[31]))){
330            goto T133;}
331            V45= VV[31];
332            goto T124;
333            goto T133;
334    T133:;
335            V45= Ct;
336            goto T124;
337    T124:;
338            V39= make_cons((V45),(V39));}
339            V41= cdr((V41));
340            V42= (long)(1)+(V42);
341            goto T111;}
342            goto T108;
343    T108:;
344            if(((V38))==Cnil){
345            goto T140;}
346            {register object V47;
347            V47= (V40);
348            goto T144;
349    T144:;
350            if(((V47))!=Cnil){
351            goto T145;}
352            goto T140;
353            goto T145;
354    T145:;
355            {register object V49;
356            if(!((car((V47)))==(VV[31]))){
357            goto T152;}
358            V49= VV[31];
359            goto T150;
360            goto T152;
361    T152:;
362            V49= Ct;
363            goto T150;
364    T150:;
365            if(type_of(V47)!=t_cons)FEwrong_type_argument(Scons,V47);
366            (V47)->c.c_car = (V49);}
367            V47= cdr((V47));
368            goto T144;}
369            goto T140;
370    T140:;
371            {object V50 = (V40);
372            VMR9(V50)}}
373            base[0]=base[0];
374            return Cnil;
375    }
376    /*      local entry for function FUNCTION-RETURN-TYPE   */
377    
378    static object LI10(V52)
379    
380    register object V52;
381    {        VMB10 VMS10 VMV10
382            goto TTL;
383    TTL:;
384            if((car((V52)))==(VV[33])){
385            goto T159;}
386            goto T158;
387            goto T159;
388    T159:;
389            V52= cdr((V52));
390            goto T158;
391    T158:;
392            if(!(endp_prop((V52)))){
393            goto T163;}
394            {object V53 = Cnil;
395            VMR10(V53)}
396            goto T163;
397    T163:;
398            if(!(type_of(car((V52)))==t_cons)){
399            goto T166;}
400            if(!((caar((V52)))==(VV[33]))){
401            goto T166;}
402            V52= cdr(car((V52)));
403            goto TTL;
404            goto T166;
405    T166:;
406            {register object V54;
407            register object V55;
408            V54= (V52);
409            V55= Cnil;
410            goto T173;
411    T173:;
412            if(!(endp_prop((V54)))){
413            goto T174;}
414            if(!(((V54))==Cnil)){
415            goto T178;}
416            goto T177;
417            goto T178;
418    T178:;
419            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[34],(V52))));
420            goto T177;
421    T177:;
422            {object V56 = nreverse((V55));
423            VMR10(V56)}
424            goto T174;
425    T174:;
426            {register object V57;
427            if(!((car((V54)))==(VV[31]))){
428            goto T184;}
429            V57= VV[31];
430            goto T182;
431            goto T184;
432    T184:;
433            V57= (*(LnkLI122))(car((V54)));
434            goto T182;
435    T182:;
436            if(!(((V57))==(VV[32]))){
437            goto T186;}
438            V57= Ct;
439            goto T186;
440    T186:;
441            {register object V58;
442            V58= (V57);
443            V55= make_cons((V58),(V55));}}
444            V54= cdr((V54));
445            goto T173;}
446            return Cnil;
447    }
448    /*      local entry for function ADD-FUNCTION-PROCLAMATION      */
449    
450    static object LI11(V62,V63,V64)
451    
452    object V62;register object V63;register object V64;
453    {        VMB11 VMS11 VMV11
454            goto TTL;
455    TTL:;
456            {register object V65;
457            register object V66;
458            register object V67;
459            V65= Ct;
460            V66= Cnil;
461            V67= Cnil;
462            if(!(type_of((V62))==t_symbol)){
463            goto T199;}
464            if(!(type_of((V63))==t_cons||((V63))==Cnil)){
465            goto T199;}
466            {object V68= cdr((V63));
467            if(!(type_of(V68)==t_cons||(V68)==Cnil)){
468            goto T199;}}
469            if(((V63))==Cnil){
470            goto T206;}
471            if(!((car((V63)))==(VV[31]))){
472            goto T207;}
473            goto T206;
474    T206:;
475            V66= VV[35];
476            goto T205;
477            goto T207;
478    T207:;
479            V66= (*(LnkLI124))(car((V63)));
480            goto T205;
481    T205:;
482            V67= (*(LnkLI125))(cdr((V63)));
483            if(!(type_of((V67))==t_cons)){
484            goto T217;}
485            if(!(endp_prop(cdr((V67))))){
486            goto T217;}
487            if((car((V67)))==(VV[31])){
488            goto T217;}
489            if(type_of((V66))==t_cons){
490            goto T228;}
491            V70= Cnil;
492            goto T227;
493            goto T228;
494    T228:;
495            V70= (V66);
496            goto T227;
497    T227:;
498            {register object x= VV[31],V69= V70;
499            while(!endp(V69))
500            if(eql(x,V69->c.c_car)){
501            goto T226;
502            }else V69=V69->c.c_cdr;
503            goto T225;}
504            goto T226;
505    T226:;
506            V67= Ct;
507            goto T223;
508            goto T225;
509    T225:;
510            V67= car((V67));
511            goto T223;
512    T223:;
513            goto T215;
514            goto T217;
515    T217:;
516            V65= Cnil;
517            goto T215;
518    T215:;
519            {object V71;
520            if(type_of((V66))==t_cons||((V66))==Cnil){
521            goto T233;}
522            V71= Cnil;
523            goto T232;
524            goto T233;
525    T233:;
526            V71= (((long)length((V66)))<(64)?Ct:Cnil);
527            goto T232;
528    T232:;
529            if(((V71))==Cnil){
530            goto T236;}
531            goto T231;
532            goto T236;
533    T236:;
534            V65= Cnil;}
535            goto T231;
536    T231:;
537            {register object V72;
538            V72= (V62);
539            goto T240;
540    T240:;
541            if(!(type_of((V72))==t_symbol)){
542            goto T244;}
543            goto T243;
544            goto T244;
545    T244:;
546            V62= (V72);
547            V64= Cnil;
548            goto TTL;
549            goto T243;
550    T243:;
551            if(!(((V66))==(VV[31]))){
552            goto T252;}
553            (void)(remprop((V72),VV[36]));
554            goto T250;
555            goto T252;
556    T252:;
557            (void)(putprop((V72),(V66),VV[36]));
558            goto T250;
559    T250:;
560            (void)(putprop((V72),(V67),VV[37]));
561            if(((V65))==Cnil){
562            goto T257;}
563            (void)(putprop((V72),Ct,VV[38]));
564            goto T255;
565            goto T257;
566    T257:;
567            (void)(remprop((V72),VV[38]));
568            goto T255;
569    T255:;
570            V64= cdr((V64));
571            if(!(type_of((V64))==t_cons)){
572            goto T262;}
573            goto T261;
574            goto T262;
575    T262:;
576            {object V73 = VV[39];
577            VMR11(V73)}
578            goto T261;
579    T261:;
580            V72= car((V64));
581            goto T240;}
582            goto T199;
583    T199:;
584            {object V74 = (VFUN_NARGS=3,(*(LnkLI123))(VV[40],(V62),(V63)));
585            VMR11(V74)}}
586            return Cnil;
587    }
588    /*      local entry for function ADD-FUNCTION-DECLARATION       */
589    
590    static object LI12(V78,V79,V80)
591    
592    object V78;object V79;object V80;
593    {        VMB12 VMS12 VMV12
594            goto TTL;
595    TTL:;
596            if(!(type_of((V78))==t_symbol)){
597            goto T268;}
598            {object V81;
599            V82= (*(LnkLI126))((V78));
600            V83= (*(LnkLI124))((V79));
601            V81= list(3,/* INLINE-ARGS */V82,/* INLINE-ARGS */V83,(*(LnkLI125))((V80)));
602            setq(VV[15],make_cons((V81),symbol_value(VV[15])));
603            {object V84 = symbol_value(VV[15]);
604            VMR12(V84)}}
605            goto T268;
606    T268:;
607            {object V85 = (VFUN_NARGS=2,(*(LnkLI123))(VV[41],(V78)));
608            VMR12(V85)}
609            base[0]=base[0];
610            return Cnil;
611    }
612    /*      local entry for function GET-ARG-TYPES  */
613    
614    static object LI13(V87)
615    
616    object V87;
617    {        VMB13 VMS13 VMV13
618            goto TTL;
619    TTL:;
620            {object V88;
621            V88= Cnil;
622            {register object x= (V87),V89= symbol_value(VV[15]);
623            while(!endp(V89))
624            if(type_of(V89->c.c_car)==t_cons &&eql(x,V89->c.c_car->c.c_car)){
625            V88= (V89->c.c_car);
626            goto T276;
627            }else V89=V89->c.c_cdr;
628            V88= Cnil;}
629            goto T276;
630    T276:;
631            if(((V88))==Cnil){
632            goto T274;}
633            {object V90 = cadr((V88));
634            VMR13(V90)}
635            goto T274;
636    T274:;
637            {object V91 = get((V87),VV[36],Cnil);
638            VMR13(V91)}}
639            return Cnil;
640    }
641    /*      local entry for function GET-RETURN-TYPE        */
642    
643    static object LI14(V93)
644    
645    register object V93;
646    {        VMB14 VMS14 VMV14
647            goto TTL;
648    TTL:;
649            {object V94;
650            object V95;
651            register object V96;
652            {register object x= (V93),V97= symbol_value(VV[15]);
653            while(!endp(V97))
654            if(type_of(V97->c.c_car)==t_cons &&eql(x,V97->c.c_car->c.c_car)){
655            V94= (V97->c.c_car);
656            goto T277;
657            }else V97=V97->c.c_cdr;
658            V94= Cnil;}
659            goto T277;
660    T277:;
661            if(((V94))==Cnil){
662            goto T280;}
663            V95= caddr((V94));
664            goto T278;
665            goto T280;
666    T280:;
667            V95= get((V93),VV[37],Cnil);
668            goto T278;
669    T278:;
670            if((get((V93),VV[42],Cnil))==Cnil){
671            goto T284;}
672            V96= VV[43];
673            goto T282;
674            goto T284;
675    T284:;
676            V96= get((V93),VV[44],Cnil);
677            goto T282;
678    T282:;
679            if(((V95))==Cnil){
680            goto T287;}
681            if(((V96))==Cnil){
682            goto T290;}
683            V96= (*(LnkLI127))((V96),(V95));
684            if(((V96))==Cnil){
685            goto T293;}
686            {object V98 = (V96);
687            VMR14(V98)}
688            goto T293;
689    T293:;
690            {object V99 = (VFUN_NARGS=2,(*(LnkLI128))(VV[45],(V93)));
691            VMR14(V99)}
692            goto T290;
693    T290:;
694            {object V100 = (V95);
695            VMR14(V100)}
696            goto T287;
697    T287:;
698            {object V101 = (V96);
699            VMR14(V101)}}
700            base[0]=base[0];
701            return Cnil;
702    }
703    /*      local entry for function GET-LOCAL-ARG-TYPES    */
704    
705    static object LI15(V103)
706    
707    object V103;
708    {        VMB15 VMS15 VMV15
709            goto TTL;
710    TTL:;
711            {object V104;
712            V104= Cnil;
713            {register object x= (V103),V105= symbol_value(VV[15]);
714            while(!endp(V105))
715            if(type_of(V105->c.c_car)==t_cons &&eql(x,V105->c.c_car->c.c_car)){
716            V104= (V105->c.c_car);
717            goto T300;
718            }else V105=V105->c.c_cdr;
719            V104= Cnil;}
720            goto T300;
721    T300:;
722            if(((V104))==Cnil){
723            goto T298;}
724            {object V106 = cadr((V104));
725            VMR15(V106)}
726            goto T298;
727    T298:;
728            {object V107 = Cnil;
729            VMR15(V107)}}
730            return Cnil;
731    }
732    /*      local entry for function GET-LOCAL-RETURN-TYPE  */
733    
734    static object LI16(V109)
735    
736    object V109;
737    {        VMB16 VMS16 VMV16
738            goto TTL;
739    TTL:;
740            {object V110;
741            V110= Cnil;
742            {register object x= (V109),V111= symbol_value(VV[15]);
743            while(!endp(V111))
744            if(type_of(V111->c.c_car)==t_cons &&eql(x,V111->c.c_car->c.c_car)){
745            V110= (V111->c.c_car);
746            goto T305;
747            }else V111=V111->c.c_cdr;
748            V110= Cnil;}
749            goto T305;
750    T305:;
751            if(((V110))==Cnil){
752            goto T303;}
753            {object V112 = caddr((V110));
754            VMR16(V112)}
755            goto T303;
756    T303:;
757            {object V113 = Cnil;
758            VMR16(V113)}}
759            return Cnil;
760    }
761    /*      local entry for function RESET-TOP      */
762    
763    static object LI17()
764    
765    {        VMB17 VMS17 VMV17
766            goto TTL;
767    TTL:;
768            princ_str("vs_top=sup;",VV[46]);
769            setq(VV[47],Ct);
770            {object V114 = Ct;
771            VMR17(V114)}
772            return Cnil;
773    }
774    /*      macro definition for BASE-USED  */
775    
776    static void L18()
777    {register object *base=vs_base;
778            register object *sup=base+VM18; VC18
779            vs_reserve(VM18);
780            check_arg(2);
781            vs_top=sup;
782            {object V115=base[0]->c.c_cdr;
783            if(!endp(V115))invalid_macro_call();}
784            base[2]= VV[48];
785            vs_top=(vs_base=base+2)+1;
786            return;
787    }
788    /*      local entry for function INLINE-POSSIBLE        */
789    
790    static object LI19(V117)
791    
792    object V117;
793    {        VMB19 VMS19 VMV19
794            goto TTL;
795    TTL:;
796            if(symbol_value(VV[49])!=Cnil){
797            V118= symbol_value(VV[49]);
798            goto T309;}{object V119;
799            {register object x= (V117),V120= symbol_value(VV[18]);
800            while(!endp(V120))
801            if(eql(x,V120->c.c_car)){
802            V119= V120;
803            goto T311;
804            }else V120=V120->c.c_cdr;
805            V119= Cnil;}
806            goto T311;
807    T311:;
808            if(V119==Cnil)goto T310;
809            V118= V119;
810            goto T309;
811            goto T310;
812    T310:;}
813            V118= get((V117),VV[50],Cnil);
814            goto T309;
815    T309:;
816            {object V121 = ((V118)==Cnil?Ct:Cnil);
817            VMR19(V121)}
818            return Cnil;
819    }
820    /*      local entry for function PROCLAIM       */
821    
822    static object LI20(V123)
823    
824    object V123;
825    {        VMB20 VMS20 VMV20
826            goto TTL;
827    TTL:;
828            {object V124= car((V123));
829            if((V124!= VV[129]))goto T313;
830            {register object V125;
831            object V126;
832            V125= cdr((V123));
833            V126= car((V125));
834            goto T317;
835    T317:;
836            if(!(endp_prop((V125)))){
837            goto T318;}
838            goto T312;
839            goto T318;
840    T318:;
841            if(!(type_of((V126))==t_symbol)){
842            goto T324;}
843            base[2]= (V126);
844            vs_top=(vs_base=base+2)+1;
845            (void) (*Lnk130)();
846            vs_top=sup;
847            goto T322;
848            goto T324;
849    T324:;
850            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[51],(V126))));
851            goto T322;
852    T322:;
853            V125= cdr((V125));
854            V126= car((V125));
855            goto T317;}
856            goto T313;
857    T313:;
858            if((V124!= VV[131]))goto T332;
859            {register object V127;
860            register object V128;
861            V127= cdr((V123));
862            V128= car((V127));
863            goto T336;
864    T336:;
865            if(!(endp_prop((V127)))){
866            goto T337;}
867            goto T312;
868            goto T337;
869    T337:;
870            if(!(type_of((V128))==t_symbol)){
871            goto T341;}
872            V128= list(2,(V128),small_fixnum(3));
873            goto T341;
874    T341:;
875            if(!(type_of((V128))==t_cons)){
876            goto T346;}
877            if(!(type_of(cdr((V128)))==t_cons)){
878            goto T346;}
879            {object V129= cadr((V128));
880            if(!(type_of(V129)==t_fixnum||
881    type_of(V129)==t_bignum||
882    type_of(V129)==t_ratio||
883    type_of(V129)==t_shortfloat||
884    type_of(V129)==t_longfloat||
885    type_of(V129)==t_complex)){
886            goto T346;}}
887            base[2]= small_fixnum(0);
888            base[3]= cadr((V128));
889            base[4]= small_fixnum(3);
890            vs_top=(vs_base=base+2)+3;
891            Lmonotonically_nondecreasing();
892            vs_top=sup;
893            if((vs_base[0])!=Cnil){
894            goto T347;}
895            goto T346;
896    T346:;
897            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[52],(V128))));
898            goto T345;
899            goto T347;
900    T347:;
901            {object V130= car((V128));
902            if((V130!= VV[85]))goto T358;
903            setq(VV[53],(number_compare(cadr((V128)),small_fixnum(1))>=0?Ct:Cnil));
904            setq(VV[54],(number_compare(cadr((V128)),small_fixnum(2))>=0?Ct:Cnil));
905            setq(VV[49],(number_compare(cadr((V128)),small_fixnum(3))>=0?Ct:Cnil));
906            goto T345;
907            goto T358;
908    T358:;
909            if((V130!= VV[86]))goto T364;
910            setq(VV[55],cadr((V128)));
911            goto T345;
912            goto T364;
913    T364:;
914            if((V130!= VV[132]))goto T366;
915            setq(VV[56],cadr((V128)));
916            goto T345;
917            goto T366;
918    T366:;
919            if((V130!= VV[133]))goto T368;
920            setq(VV[56],number_minus(small_fixnum(3),cadr((V128))));
921            goto T345;
922            goto T368;
923    T368:;
924            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[57],car((V128)))));}
925            goto T345;
926    T345:;
927            V127= cdr((V127));
928            V128= car((V127));
929            goto T336;}
930            goto T332;
931    T332:;
932            if((V124!= VV[134]))goto T375;
933            if(!(type_of(cdr((V123)))==t_cons)){
934            goto T377;}
935            (void)((*(LnkLI135))(cadr((V123)),cddr((V123))));
936            goto T312;
937            goto T377;
938    T377:;
939            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[58],(V123))));
940            goto T312;
941            goto T375;
942    T375:;
943            if((V124!= VV[136])
944            && (V124!= VV[137])
945            && (V124!= VV[138])
946            && (V124!= VV[139]))goto T379;
947            (void)((*(LnkLI135))(car((V123)),cdr((V123))));
948            goto T312;
949            goto T379;
950    T379:;
951            if((V124!= VV[140]))goto T380;
952            if(!(type_of(cdr((V123)))==t_cons)){
953            goto T382;}
954            if(!(type_of(cadr((V123)))==t_cons)){
955            goto T382;}
956            if(!((caadr((V123)))==(VV[26]))){
957            goto T382;}
958            (void)((*(LnkLI141))(caddr((V123)),cdr(cadr((V123))),cddr((V123))));
959            goto T312;
960            goto T382;
961    T382:;
962            (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[59],(V123))));
963            goto T312;
964            goto T380;
965    T380:;
966            if((V124!= VV[26]))goto T388;
967            if(!(type_of(cdr((V123)))==t_cons)){
968            goto T390;}
969            (void)((*(LnkLI141))(cadr((V123)),cddr((V123)),Cnil));
970            goto T312;
971            goto T390;
972    T390:;
973            (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[60],(V123))));
974            goto T312;
975            goto T388;
976    T388:;
977            if((V124!= VV[90]))goto T392;
978            {register object V131;
979            object V132;
980            V131= cdr((V123));
981            V132= car((V131));
982            goto T396;
983    T396:;
984            if(!(endp_prop((V131)))){
985            goto T397;}
986            goto T312;
987            goto T397;
988    T397:;
989            if(!(type_of((V132))==t_symbol)){
990            goto T403;}
991            (void)(remprop((V132),VV[50]));
992            goto T401;
993            goto T403;
994    T403:;
995            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[61],(V132))));
996            goto T401;
997    T401:;
998            V131= cdr((V131));
999            V132= car((V131));
1000            goto T396;}
1001            goto T392;
1002    T392:;
1003            if((V124!= VV[92]))goto T410;
1004            {register object V133;
1005            object V134;
1006            V133= cdr((V123));
1007            V134= car((V133));
1008            goto T414;
1009    T414:;
1010            if(!(endp_prop((V133)))){
1011            goto T415;}
1012            goto T312;
1013            goto T415;
1014    T415:;
1015            if(!(type_of((V134))==t_symbol)){
1016            goto T421;}
1017            (void)(putprop((V134),Ct,VV[50]));
1018            goto T419;
1019            goto T421;
1020    T421:;
1021            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[62],(V134))));
1022            goto T419;
1023    T419:;
1024            V133= cdr((V133));
1025            V134= car((V133));
1026            goto T414;}
1027            goto T410;
1028    T410:;
1029            if((V124!= VV[79])
1030            && (V124!= VV[142]))goto T428;
1031            {register object V135;
1032            object V136;
1033            V135= cdr((V123));
1034            V136= car((V135));
1035            goto T432;
1036    T432:;
1037            if(!(endp_prop((V135)))){
1038            goto T433;}
1039            goto T312;
1040            goto T433;
1041    T433:;
1042            if(type_of((V136))==t_symbol){
1043            goto T437;}
1044            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[63],(V136))));
1045            goto T437;
1046    T437:;
1047            V135= cdr((V135));
1048            V136= car((V135));
1049            goto T432;}
1050            goto T428;
1051    T428:;
1052            if((V124!= VV[143]))goto T445;
1053            {register object V137;
1054            register object V138;
1055            V137= cdr((V123));
1056            V138= car((V137));
1057            goto T449;
1058    T449:;
1059            if(!(endp_prop((V137)))){
1060            goto T450;}
1061            goto T312;
1062            goto T450;
1063    T450:;
1064            if(!(type_of((V138))==t_symbol)){
1065            goto T456;}
1066            {register object x= (V138),V139= symbol_value(VV[64]);
1067            while(!endp(V139))
1068            if(eql(x,V139->c.c_car)){
1069            goto T454;
1070            }else V139=V139->c.c_cdr;}
1071            setq(VV[64],make_cons(V138,symbol_value(VV[64])));
1072            goto T454;
1073            goto T456;
1074    T456:;
1075            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[65],(V138))));
1076            goto T454;
1077    T454:;
1078            V137= cdr((V137));
1079            V138= car((V137));
1080            goto T449;}
1081            goto T445;
1082    T445:;
1083            if((V124== VV[144])
1084            || (V124== VV[145])
1085            || (V124== VV[146])
1086            || (V124== VV[147])
1087            || (V124== VV[148]))goto T467;
1088            if((V124== VV[137])
1089            || (V124== VV[149])
1090            || (V124== VV[25])
1091            || (V124== VV[150])
1092            || (V124== VV[151]))goto T467;
1093            if((V124== VV[152])
1094            || (V124== VV[136])
1095            || (V124== VV[153])
1096            || (V124== VV[154])
1097            || (V124== VV[32]))goto T467;
1098            if((V124== VV[155])
1099            || (V124== VV[156])
1100            || (V124== VV[139])
1101            || (V124== Cnil)
1102            || (V124== VV[157]))goto T467;
1103            if((V124== VV[158])
1104            || (V124== VV[159])
1105            || (V124== VV[160])
1106            || (V124== VV[161])
1107            || (V124== VV[162]))goto T467;
1108            if((V124== VV[163])
1109            || (V124== VV[164])
1110            || (V124== VV[165])
1111            || (V124== VV[138])
1112            || (V124== VV[166]))goto T467;
1113            if((V124== VV[167])
1114            || (V124== VV[168])
1115            || (V124== VV[169])
1116            || (V124== VV[170])
1117            || (V124== VV[171]))goto T467;
1118            if((V124== VV[172])
1119            || (V124== VV[173])
1120            || (V124== VV[174])
1121            || (V124== VV[175])
1122            || (V124== Ct))goto T467;
1123            if((V124!= VV[176])
1124            && (V124!= VV[177])
1125            && (V124!= VV[178]))goto T466;
1126            goto T467;
1127    T467:;
1128            (void)((*(LnkLI135))(car((V123)),cdr((V123))));
1129            goto T312;
1130            goto T466;
1131    T466:;
1132            {register object x= car((V123)),V141= symbol_value(VV[64]);
1133            while(!endp(V141))
1134            if(eql(x,V141->c.c_car)){
1135            goto T468;
1136            }else V141=V141->c.c_cdr;}
1137            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[66],car((V123)))));
1138            goto T468;
1139    T468:;
1140            base[0]= get(car((V123)),VV[67],Cnil);
1141            vs_top=(vs_base=base+0)+1;
1142            Lfunctionp();
1143            vs_top=sup;
1144            if((vs_base[0])!=Cnil){
1145            goto T471;}
1146            goto T312;
1147            goto T471;
1148    T471:;
1149            {register object V142;
1150            object V143;
1151            V142= cdr((V123));
1152            V143= car((V142));
1153            goto T477;
1154    T477:;
1155            if(!(endp_prop((V142)))){
1156            goto T478;}
1157            goto T312;
1158            goto T478;
1159    T478:;
1160            V144= get(car((V123)),VV[67],Cnil);
1161            (void)((
1162            V145 = V144,
1163            (type_of(V145) == t_sfun ?(*((V145)->sfn.sfn_self)):
1164            (fcall.fun=(V145),fcall.argd=1,fcalln))((V143))));
1165            V142= cdr((V142));
1166            V143= car((V142));
1167            goto T477;}}
1168            goto T312;
1169    T312:;
1170            {object V146 = Cnil;
1171            VMR20(V146)}
1172            base[0]=base[0];
1173            return Cnil;
1174    }
1175    /*      local entry for function PROCLAIM-VAR   */
1176    
1177    static object LI21(V149,V150)
1178    
1179    register object V149;object V150;
1180    {        VMB21 VMS21 VMV21
1181            goto TTL;
1182    TTL:;
1183            V149= (*(LnkLI122))((V149));
1184            {register object V151;
1185            register object V152;
1186            V151= (V150);
1187            V152= car((V151));
1188            goto T494;
1189    T494:;
1190            if(!(endp_prop((V151)))){
1191            goto T495;}
1192            {object V153 = Cnil;
1193            VMR21(V153)}
1194            goto T495;
1195    T495:;
1196            if(!(type_of((V152))==t_symbol)){
1197            goto T501;}
1198            {register object V154;
1199            register object V155;
1200            V154= get((V152),VV[68],Cnil);
1201            V155= (*(LnkLI179))((V152));
1202            if(((V154))==Cnil){
1203            goto T508;}
1204            V154= (*(LnkLI127))((V154),(V149));
1205            goto T506;
1206            goto T508;
1207    T508:;
1208            V154= (V149);
1209            goto T506;
1210    T506:;
1211            if(((V155))==Cnil){
1212            goto T510;}
1213            V156= structure_ref((V155),VV[69],5);
1214            V154= (*(LnkLI127))((V154),/* INLINE-ARGS */V156);
1215            goto T510;
1216    T510:;
1217            if(((V154))!=Cnil){
1218            goto T514;}
1219            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[70],(V152))));
1220            goto T514;
1221    T514:;
1222            (void)(putprop((V152),(V154),VV[68]));
1223            if(((V155))==Cnil){
1224            goto T499;}
1225            (void)(structure_set((V155),VV[69],5,(V154)));
1226            goto T499;}
1227            goto T501;
1228    T501:;
1229            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[71],(V152))));
1230            goto T499;
1231    T499:;
1232            V151= cdr((V151));
1233            V152= car((V151));
1234            goto T494;}
1235            base[0]=base[0];
1236            return Cnil;
1237    }
1238    /*      function definition for C1BODY  */
1239    
1240    static void L22()
1241    {register object *base=vs_base;
1242            register object *sup=base+VM22; VC22
1243            vs_reserve(VM22);
1244            {object V157;
1245            object V158;
1246            check_arg(2);
1247            V157=(base[0]);
1248            V158=(base[1]);
1249            vs_top=sup;
1250            goto TTL;
1251    TTL:;
1252            {object V159;
1253            object V160;
1254            register object V161;
1255            object V162;
1256            object V163;
1257            object V164;
1258            V159= Cnil;
1259            V160= Cnil;
1260            V161= Cnil;
1261            V162= Cnil;
1262            V163= Cnil;
1263            V164= Cnil;
1264            goto T533;
1265    T533:;
1266            if(!(endp_prop((V157)))){
1267            goto T535;}
1268            goto T531;
1269            goto T535;
1270    T535:;
1271            V164= (*(LnkLI180))(car((V157)));
1272            if(!(type_of((V164))==t_string)){
1273            goto T542;}
1274            if(((V158))==Cnil){
1275            goto T545;}
1276            if(endp_prop(cdr((V157)))){
1277            goto T545;}
1278            if(((V163))==Cnil){
1279            goto T544;}
1280            goto T545;
1281    T545:;
1282            goto T531;
1283            goto T544;
1284    T544:;
1285            V163= (V164);
1286            goto T540;
1287            goto T542;
1288    T542:;
1289            if(!(type_of((V164))==t_cons)){
1290            goto T553;}
1291            if(!((car((V164)))==(VV[72]))){
1292            goto T553;}
1293            {object V165;
1294            register object V166;
1295            V165= cdr((V164));
1296            V166= car((V165));
1297            goto T560;
1298    T560:;
1299            if(!(endp_prop((V165)))){
1300            goto T561;}
1301            goto T540;
1302            goto T561;
1303    T561:;
1304            if(!(type_of((V166))==t_cons)){
1305            goto T566;}
1306            if(type_of(car((V166)))==t_symbol){
1307            goto T565;}
1308            goto T566;
1309    T566:;
1310            (void)((VFUN_NARGS=2,(*(LnkLI121))(VV[73],(V166))));
1311            goto T565;
1312    T565:;
1313            {object V167= car((V166));
1314            if((V167!= VV[129]))goto T571;
1315            {register object V168;
1316            object V169;
1317            V168= cdr((V166));
1318            V169= car((V168));
1319            goto T575;
1320    T575:;
1321            if(!(endp_prop((V168)))){
1322            goto T576;}
1323            goto T570;
1324            goto T576;
1325    T576:;
1326            if(type_of((V169))==t_symbol){
1327            goto T580;}
1328            (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[74],(V166),(V169))));
1329            goto T580;
1330    T580:;
1331            V159= make_cons(V169,(V159));
1332            V168= cdr((V168));
1333            V169= car((V168));
1334            goto T575;}
1335            goto T571;
1336    T571:;
1337            if((V167!= VV[142]))goto T590;
1338            {register object V171;
1339            object V172;
1340            V171= cdr((V166));
1341            V172= car((V171));
1342            goto T594;
1343    T594:;
1344            if(!(endp_prop((V171)))){
1345            goto T595;}
1346            goto T570;
1347            goto T595;
1348    T595:;
1349            if(type_of((V172))==t_symbol){
1350            goto T599;}
1351            (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[75],(V166),(V172))));
1352            goto T599;
1353    T599:;
1354            V160= make_cons(V172,(V160));
1355            V171= cdr((V171));
1356            V172= car((V171));
1357            goto T594;}
1358            goto T590;
1359    T590:;
1360            if((V167!= VV[134]))goto T609;
1361            if(!(endp_prop(cdr((V166))))){
1362            goto T610;}
1363            (void)((VFUN_NARGS=2,(*(LnkLI121))(VV[76],(V166))));
1364            goto T610;
1365    T610:;
1366            {object V174;
1367            V174= (*(LnkLI122))(cadr((V166)));
1368            if(((V174))==Cnil){
1369            goto T570;}
1370            {register object V175;
1371            object V176;
1372            V175= cddr((V166));
1373            V176= car((V175));
1374            goto T619;
1375    T619:;
1376            if(!(endp_prop((V175)))){
1377            goto T620;}
1378            goto T570;
1379            goto T620;
1380    T620:;
1381            if(type_of((V176))==t_symbol){
1382            goto T624;}
1383            (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[77],(V166),(V176))));
1384            goto T624;
1385    T624:;
1386            {object V177;
1387            V177= make_cons((V176),(V174));
1388            V161= make_cons((V177),(V161));}
1389            V175= cdr((V175));
1390            V176= car((V175));
1391            goto T619;}}
1392            goto T609;
1393    T609:;
1394            if((V167!= VV[79]))goto T635;
1395            {register object V178;
1396            object V179;
1397            V178= cdr((V166));
1398            V179= car((V178));
1399            goto T639;
1400    T639:;
1401            if(!(endp_prop((V178)))){
1402            goto T640;}
1403            goto T570;
1404            goto T640;
1405    T640:;
1406            if(type_of((V179))==t_symbol){
1407            goto T644;}
1408            (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[78],(V166),(V179))));
1409            goto T644;
1410    T644:;
1411            {object V180;
1412            V180= make_cons((V179),VV[79]);
1413            V161= make_cons((V180),(V161));}
1414            V178= cdr((V178));
1415            V179= car((V178));
1416            goto T639;}
1417            goto T635;
1418    T635:;
1419            if((V167!= VV[181]))goto T655;
1420            {register object V181;
1421            object V182;
1422            V181= cdr((V166));
1423            V182= car((V181));
1424            goto T659;
1425    T659:;
1426            if(!(endp_prop((V181)))){
1427            goto T660;}
1428            goto T570;
1429            goto T660;
1430    T660:;
1431            if(type_of((V182))==t_symbol){
1432            goto T664;}
1433            (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[80],(V166),(V182))));
1434            goto T664;
1435    T664:;
1436            {object V183;
1437            V183= make_cons((V182),VV[81]);
1438            V161= make_cons((V183),(V161));}
1439            V181= cdr((V181));
1440            V182= car((V181));
1441            goto T659;}
1442            goto T655;
1443    T655:;
1444            if((V167== VV[136])
1445            || (V167== VV[137])
1446            || (V167== VV[152])
1447            || (V167== VV[138])
1448            || (V167== VV[144]))goto T676;
1449            if((V167== VV[145])
1450            || (V167== VV[146])
1451            || (V167== VV[147])
1452            || (V167== VV[148])
1453            || (V167== VV[149]))goto T676;
1454            if((V167== VV[25])
1455            || (V167== VV[150])
1456            || (V167== VV[151])
1457            || (V167== VV[153])
1458            || (V167== VV[154]))goto T676;
1459            if((V167== VV[32])
1460            || (V167== VV[155])
1461            || (V167== VV[156])
1462            || (V167== VV[139])
1463            || (V167== Cnil))goto T676;
1464            if((V167== VV[157])
1465            || (V167== VV[158])
1466            || (V167== VV[159])
1467            || (V167== VV[160])
1468            || (V167== VV[161]))goto T676;
1469            if((V167== VV[162])
1470            || (V167== VV[163])
1471            || (V167== VV[164])
1472            || (V167== VV[165])
1473            || (V167== VV[166]))goto T676;
1474            if((V167== VV[167])
1475            || (V167== VV[168])
1476            || (V167== VV[169])
1477            || (V167== VV[170])
1478            || (V167== VV[171]))goto T676;
1479            if((V167== VV[172])
1480            || (V167== VV[173])
1481            || (V167== VV[174])
1482            || (V167== VV[175])
1483            || (V167== Ct))goto T676;
1484            if((V167!= VV[176])
1485            && (V167!= VV[177])
1486            && (V167!= VV[178])
1487            && (V167!= VV[82]))goto T675;
1488            goto T676;
1489    T676:;
1490            {object V184;
1491            if(!((car((V166)))==(VV[82]))){
1492            goto T679;}
1493            V184= car((V166));
1494            goto T677;
1495            goto T679;
1496    T679:;
1497            V184= (*(LnkLI122))(car((V166)));
1498            goto T677;
1499    T677:;
1500            if(((V184))==Cnil){
1501            goto T570;}
1502            {register object V185;
1503            object V186;
1504            V185= cdr((V166));
1505            V186= car((V185));
1506            goto T686;
1507    T686:;
1508            if(!(endp_prop((V185)))){
1509            goto T687;}
1510            goto T570;
1511            goto T687;
1512    T687:;
1513            if(type_of((V186))==t_symbol){
1514            goto T691;}
1515            (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[83],(V166),(V186))));
1516            goto T691;
1517    T691:;
1518            {object V187;
1519            V187= make_cons((V186),(V184));
1520            V161= make_cons((V187),(V161));}
1521            V185= cdr((V185));
1522            V186= car((V185));
1523            goto T686;}}
1524            goto T675;
1525    T675:;
1526            V162= make_cons(V166,(V162));}
1527            goto T570;
1528    T570:;
1529            V165= cdr((V165));
1530            V166= car((V165));
1531            goto T560;}
1532            goto T553;
1533    T553:;
1534            goto T531;
1535            goto T540;
1536    T540:;
1537            {object V189;
1538            V189= car((V157));
1539            V157= cdr((V157));}
1540            goto T533;
1541            goto T531;
1542    T531:;
1543            base[2]= (V157);
1544            base[3]= (V159);
1545            base[4]= (V161);
1546            base[5]= (V160);
1547            base[6]= (V162);
1548            base[7]= (V163);
1549            vs_top=(vs_base=base+2)+6;
1550            return;}
1551            }
1552    }
1553    /*      local entry for function C1DECL-BODY    */
1554    
1555    static object LI23(V192,V193)
1556    
1557    object V192;object V193;
1558    {        VMB23 VMS23 VMV23
1559            bds_check;
1560            goto TTL;
1561    TTL:;
1562            {register object V194;
1563            V194= Cnil;
1564            if(((V192))!=Cnil){
1565            goto T720;}
1566            {object V195 = (*(LnkLI182))((V193));
1567            VMR23(V195)}
1568            goto T720;
1569    T720:;
1570            bds_bind(VV[15],symbol_value(VV[15]));
1571            bds_bind(VV[64],symbol_value(VV[64]));
1572            bds_bind(VV[18],symbol_value(VV[18]));
1573            bds_bind(VV[55],symbol_value(VV[55]));
1574            bds_bind(VV[54],symbol_value(VV[54]));
1575            {object V196;
1576            register object V197;
1577            V196= (V192);
1578            V197= car((V196));
1579            goto T726;
1580    T726:;
1581            if(!(endp_prop((V196)))){
1582            goto T727;}
1583            goto T722;
1584            goto T727;
1585    T727:;
1586            {object V198= car((V197));
1587            if((V198!= VV[131]))goto T732;
1588            {object V199;
1589            register object V200;
1590            V199= cdr((V197));
1591            V200= car((V199));
1592            goto T736;
1593    T736:;
1594            if(!(endp_prop((V199)))){
1595            goto T737;}
1596            goto T731;
1597            goto T737;
1598    T737:;
1599            if(!(type_of((V200))==t_symbol)){
1600            goto T741;}
1601            V200= list(2,(V200),small_fixnum(3));
1602            goto T741;
1603    T741:;
1604            if(!(type_of((V200))==t_cons)){
1605            goto T746;}
1606            if(!(type_of(cdr((V200)))==t_cons)){
1607            goto T746;}
1608            {object V201= cadr((V200));
1609            if(!(type_of(V201)==t_fixnum||
1610    type_of(V201)==t_bignum||
1611    type_of(V201)==t_ratio||
1612    type_of(V201)==t_shortfloat||
1613    type_of(V201)==t_longfloat||
1614    type_of(V201)==t_complex)){
1615            goto T746;}}
1616            base[8]= small_fixnum(0);
1617            base[9]= cadr((V200));
1618            base[10]= small_fixnum(3);
1619            vs_top=(vs_base=base+8)+3;
1620            Lmonotonically_nondecreasing();
1621            vs_top=sup;
1622            if((vs_base[0])!=Cnil){
1623            goto T747;}
1624            goto T746;
1625    T746:;
1626            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[84],(V200))));
1627            goto T745;
1628            goto T747;
1629    T747:;
1630            {object V202= car((V200));
1631            if((V202!= VV[85]))goto T758;
1632            (VV[54]->s.s_dbind)= ((fix(cadr((V200))))>=(2)?Ct:Cnil);
1633            {object V203;
1634            V203= list(2,VV[85],cadr((V200)));
1635            V194= make_cons((V203),(V194));
1636            goto T745;}
1637            goto T758;
1638    T758:;
1639            if((V202!= VV[86]))goto T763;
1640            (VV[55]->s.s_dbind)= cadr((V200));
1641            {object V204;
1642            V204= list(2,VV[86],cadr((V200)));
1643            V194= make_cons((V204),(V194));
1644            goto T745;}
1645            goto T763;
1646    T763:;
1647            if((V202!= VV[132])
1648            && (V202!= VV[133]))goto T768;
1649            goto T745;
1650            goto T768;
1651    T768:;
1652            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[87],car((V200)))));}
1653            goto T745;
1654    T745:;
1655            V199= cdr((V199));
1656            V200= car((V199));
1657            goto T736;}
1658            goto T732;
1659    T732:;
1660            if((V198!= VV[140]))goto T774;
1661            if(endp_prop(cdr((V197)))){
1662            goto T775;}
1663            if(!(type_of(cadr((V197)))==t_cons)){
1664            goto T775;}
1665            if(!((caadr((V197)))==(VV[26]))){
1666            goto T775;}
1667            if(!(endp_prop(cdadr((V197))))){
1668            goto T776;}
1669            goto T775;
1670    T775:;
1671            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[88],(V197))));
1672            goto T731;
1673            goto T776;
1674    T776:;
1675            {object V205;
1676            object V206;
1677            V205= cddr((V197));
1678            V206= car((V205));
1679            goto T787;
1680    T787:;
1681            if(!(endp_prop((V205)))){
1682            goto T788;}
1683            goto T731;
1684            goto T788;
1685    T788:;
1686            (void)((*(LnkLI183))((V206),cadadr((V197)),cddadr((V197))));
1687            V205= cdr((V205));
1688            V206= car((V205));
1689            goto T787;}
1690            goto T774;
1691    T774:;
1692            if((V198!= VV[26]))goto T798;
1693            if(endp_prop(cdr((V197)))){
1694            goto T799;}
1695            if(endp_prop(cddr((V197)))){
1696            goto T799;}
1697            if(type_of(cadr((V197)))==t_symbol){
1698            goto T800;}
1699            goto T799;
1700    T799:;
1701            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[89],(V197))));
1702            goto T731;
1703            goto T800;
1704    T800:;
1705            (void)((*(LnkLI183))(cadr((V197)),caddr((V197)),cdddr((V197))));
1706            goto T731;
1707            goto T798;
1708    T798:;
1709            if((V198!= VV[90]))goto T806;
1710            {object V207;
1711            register object V208;
1712            V207= cdr((V197));
1713            V208= car((V207));
1714            goto T810;
1715    T810:;
1716            if(!(endp_prop((V207)))){
1717            goto T811;}
1718            goto T731;
1719            goto T811;
1720    T811:;
1721            if(!(type_of((V208))==t_symbol)){
1722            goto T817;}
1723            {object V209;
1724            V209= list(2,VV[90],(V208));
1725            V194= make_cons((V209),(V194));}
1726            (VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))((V208),(VV[18]->s.s_dbind)));
1727            goto T815;
1728            goto T817;
1729    T817:;
1730            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[91],(V208))));
1731            goto T815;
1732    T815:;
1733            V207= cdr((V207));
1734            V208= car((V207));
1735            goto T810;}
1736            goto T806;
1737    T806:;
1738            if((V198!= VV[92]))goto T828;
1739            {object V210;
1740            register object V211;
1741            V210= cdr((V197));
1742            V211= car((V210));
1743            goto T832;
1744    T832:;
1745            if(!(endp_prop((V210)))){
1746            goto T833;}
1747            goto T731;
1748            goto T833;
1749    T833:;
1750            if(!(type_of((V211))==t_symbol)){
1751            goto T839;}
1752            {object V212;
1753            V212= list(2,VV[92],(V211));
1754            V194= make_cons((V212),(V194));}
1755            (VV[18]->s.s_dbind)= make_cons(V211,(VV[18]->s.s_dbind));
1756            goto T837;
1757            goto T839;
1758    T839:;
1759            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[93],(V211))));
1760            goto T837;
1761    T837:;
1762            V210= cdr((V210));
1763            V211= car((V210));
1764            goto T832;}
1765            goto T828;
1766    T828:;
1767            if((V198!= VV[143]))goto T850;
1768            {object V214;
1769            register object V215;
1770            V214= cdr((V197));
1771            V215= car((V214));
1772            goto T854;
1773    T854:;
1774            if(!(endp_prop((V214)))){
1775            goto T855;}
1776            goto T731;
1777            goto T855;
1778    T855:;
1779            if(!(type_of((V215))==t_symbol)){
1780            goto T861;}
1781            {register object x= (V215),V216= (VV[64]->s.s_dbind);
1782            while(!endp(V216))
1783            if(eql(x,V216->c.c_car)){
1784            goto T859;
1785            }else V216=V216->c.c_cdr;}
1786            (VV[64]->s.s_dbind)= make_cons(V215,(VV[64]->s.s_dbind));
1787            goto T859;
1788            goto T861;
1789    T861:;
1790            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[94],(V215))));
1791            goto T859;
1792    T859:;
1793            V214= cdr((V214));
1794            V215= car((V214));
1795            goto T854;}
1796            goto T850;
1797    T850:;
1798            {register object x= car((V197)),V218= (VV[64]->s.s_dbind);
1799            while(!endp(V218))
1800            if(eql(x,V218->c.c_car)){
1801            goto T731;
1802            }else V218=V218->c.c_cdr;}
1803            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[95],car((V197)))));}
1804            goto T731;
1805    T731:;
1806            V196= cdr((V196));
1807            V197= car((V196));
1808            goto T726;}
1809            goto T722;
1810    T722:;
1811            V193= (*(LnkLI182))((V193));
1812            {object V219 = list(4,VV[96],cadr((V193)),(V194),(V193));
1813            bds_unwind1;
1814            bds_unwind1;
1815            bds_unwind1;
1816            bds_unwind1;
1817            bds_unwind1;
1818            VMR23(V219)}}
1819            base[0]=base[0];
1820            return Cnil;
1821    }
1822    /*      function definition for C2DECL-BODY     */
1823    
1824    static void L24()
1825    {register object *base=vs_base;
1826            register object *sup=base+VM24; VC24
1827            vs_reserve(VM24);
1828            bds_check;
1829            {object V220;
1830            object V221;
1831            check_arg(2);
1832            V220=(base[0]);
1833            V221=(base[1]);
1834            vs_top=sup;
1835            goto TTL;
1836    TTL:;
1837            bds_bind(VV[53],symbol_value(VV[53]));
1838            bds_bind(VV[54],symbol_value(VV[54]));
1839            bds_bind(VV[49],symbol_value(VV[49]));
1840            bds_bind(VV[18],symbol_value(VV[18]));
1841            bds_bind(VV[55],symbol_value(VV[55]));
1842            {register object V222;
1843            register object V223;
1844            V222= (V220);
1845            V223= car((V222));
1846            goto T884;
1847    T884:;
1848            if(!(endp_prop((V222)))){
1849            goto T885;}
1850            goto T880;
1851            goto T885;
1852    T885:;
1853            {object V224= car((V223));
1854            if((V224!= VV[85]))goto T890;
1855            {register long V225;
1856            V225= fix(cadr((V223)));
1857            (VV[53]->s.s_dbind)= ((V225)>=(1)?Ct:Cnil);
1858            (VV[54]->s.s_dbind)= ((V225)>=(2)?Ct:Cnil);
1859            (VV[49]->s.s_dbind)= ((V225)>=(3)?Ct:Cnil);
1860            goto T889;}
1861            goto T890;
1862    T890:;
1863            if((V224!= VV[86]))goto T897;
1864            (VV[55]->s.s_dbind)= cadr((V223));
1865            goto T889;
1866            goto T897;
1867    T897:;
1868            if((V224!= VV[92]))goto T899;
1869            {register object V226;
1870            V226= cadr((V223));
1871            (VV[18]->s.s_dbind)= make_cons((V226),(VV[18]->s.s_dbind));
1872            goto T889;}
1873            goto T899;
1874    T899:;
1875            if((V224!= VV[90]))goto T902;
1876            (VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))(cadr((V223)),(VV[18]->s.s_dbind)));
1877            goto T889;
1878            goto T902;
1879    T902:;
1880            (void)((*(LnkLI185))());}
1881            goto T889;
1882    T889:;
1883            V222= cdr((V222));
1884            V223= car((V222));
1885            goto T884;}
1886            goto T880;
1887    T880:;
1888            base[7]= (V221);
1889            vs_top=(vs_base=base+7)+1;
1890            (void) (*Lnk186)();
1891            bds_unwind1;
1892            bds_unwind1;
1893            bds_unwind1;
1894            bds_unwind1;
1895            bds_unwind1;
1896            return;
1897            }
1898    }
1899    /*      local entry for function CHECK-VDECL    */
1900    
1901    static object LI25(V230,V231,V232)
1902    
1903    register object V230;object V231;object V232;
1904    {        VMB25 VMS25 VMV25
1905            goto TTL;
1906    TTL:;
1907            {register object V233;
1908            register object V234;
1909            V233= (V231);
1910            V234= car((V233));
1911            goto T914;
1912    T914:;
1913            if(!(endp_prop((V233)))){
1914            goto T915;}
1915            goto T910;
1916            goto T915;
1917    T915:;
1918            {register object x= car((V234)),V235= (V230);
1919            while(!endp(V235))
1920            if(eql(x,V235->c.c_car)){
1921            goto T919;
1922            }else V235=V235->c.c_cdr;}
1923            (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[97],car((V234)))));
1924            goto T919;
1925    T919:;
1926            V233= cdr((V233));
1927            V234= car((V233));
1928            goto T914;}
1929            goto T910;
1930    T910:;
1931            {register object V236;
1932            register object V237;
1933            V236= (V232);
1934            V237= car((V236));
1935            goto T930;
1936    T930:;
1937            if(!(endp_prop((V236)))){
1938            goto T931;}
1939            {object V238 = Cnil;
1940            VMR25(V238)}
1941            goto T931;
1942    T931:;
1943            {register object x= (V237),V239= (V230);
1944            while(!endp(V239))
1945            if(eql(x,V239->c.c_car)){
1946            goto T935;
1947            }else V239=V239->c.c_cdr;}
1948            (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[98],(V237))));
1949            goto T935;
1950    T935:;
1951            V236= cdr((V236));
1952            V237= car((V236));
1953            goto T930;}
1954            base[0]=base[0];
1955            return Cnil;
1956    }
1957    /*      local entry for function PROCLAMATION   */
1958    
1959    static object LI26(V241)
1960    
1961    object V241;
1962    {        VMB26 VMS26 VMV26
1963            goto TTL;
1964    TTL:;
1965            {object V242= car((V241));
1966            if((V242!= VV[129]))goto T943;
1967            {register object V243;
1968            object V244;
1969            V243= cdr((V241));
1970            V244= car((V243));
1971            goto T947;
1972    T947:;
1973            if(!(endp_prop((V243)))){
1974            goto T948;}
1975            {object V245 = Ct;
1976            VMR26(V245)}
1977            goto T948;
1978    T948:;
1979            if(!(type_of((V244))==t_symbol)){
1980            goto T954;}
1981            base[2]= (V244);
1982            vs_top=(vs_base=base+2)+1;
1983            siLspecialp();
1984            vs_top=sup;
1985            if((vs_base[0])!=Cnil){
1986            goto T952;}
1987            {object V246 = Cnil;
1988            VMR26(V246)}
1989            goto T954;
1990    T954:;
1991            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[99],(V244))));
1992            goto T952;
1993    T952:;
1994            V243= cdr((V243));
1995            V244= car((V243));
1996            goto T947;}
1997            goto T943;
1998    T943:;
1999            if((V242!= VV[131]))goto T964;
2000            {register object V247;
2001            register object V248;
2002            V247= cdr((V241));
2003            V248= car((V247));
2004            goto T968;
2005    T968:;
2006            if(!(endp_prop((V247)))){
2007            goto T969;}
2008            {object V249 = Ct;
2009            VMR26(V249)}
2010            goto T969;
2011    T969:;
2012            if(!(type_of((V248))==t_symbol)){
2013            goto T973;}
2014            V248= list(2,(V248),small_fixnum(3));
2015            goto T973;
2016    T973:;
2017            if(!(type_of((V248))==t_cons)){
2018            goto T978;}
2019            if(!(type_of(cdr((V248)))==t_cons)){
2020            goto T978;}
2021            {object V250= cadr((V248));
2022            if(!(type_of(V250)==t_fixnum||
2023    type_of(V250)==t_bignum||
2024    type_of(V250)==t_ratio||
2025    type_of(V250)==t_shortfloat||
2026    type_of(V250)==t_longfloat||
2027    type_of(V250)==t_complex)){
2028            goto T978;}}
2029            base[2]= small_fixnum(0);
2030            base[3]= cadr((V248));
2031            base[4]= small_fixnum(3);
2032            vs_top=(vs_base=base+2)+3;
2033            Lmonotonically_nondecreasing();
2034            vs_top=sup;
2035            if((vs_base[0])!=Cnil){
2036            goto T979;}
2037            goto T978;
2038    T978:;
2039            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[100],(V248))));
2040            goto T977;
2041            goto T979;
2042    T979:;
2043            {object V251= car((V248));
2044            if((V251!= VV[85]))goto T990;
2045            V252= cadr((V248));
2046            if((symbol_value(VV[53]))!=Cnil){
2047            goto T995;}
2048            V253= small_fixnum(0);
2049            goto T993;
2050            goto T995;
2051    T995:;
2052            if((symbol_value(VV[54]))!=Cnil){
2053            goto T998;}
2054            V253= small_fixnum(1);
2055            goto T993;
2056            goto T998;
2057    T998:;
2058            if((symbol_value(VV[49]))!=Cnil){
2059            goto T1001;}
2060            V253= small_fixnum(2);
2061            goto T993;
2062            goto T1001;
2063    T1001:;
2064            V253= small_fixnum(3);
2065            goto T993;
2066    T993:;
2067            if(number_compare(/* INLINE-ARGS */V252,V253)==0){
2068            goto T977;}
2069            {object V254 = Cnil;
2070            VMR26(V254)}
2071            goto T990;
2072    T990:;
2073            if((V251!= VV[86]))goto T1003;
2074            if(number_compare(cadr((V248)),symbol_value(VV[55]))==0){
2075            goto T977;}
2076            {object V255 = Cnil;
2077            VMR26(V255)}
2078            goto T1003;
2079    T1003:;
2080            if((V251!= VV[132]))goto T1006;
2081            if(number_compare(cadr((V248)),symbol_value(VV[56]))==0){
2082            goto T977;}
2083            {object V256 = Cnil;
2084            VMR26(V256)}
2085            goto T1006;
2086    T1006:;
2087            if((V251!= VV[133]))goto T1009;
2088            V257= number_minus(small_fixnum(3),cadr((V248)));
2089            if(number_compare(/* INLINE-ARGS */V257,symbol_value(VV[56]))==0){
2090            goto T977;}
2091            {object V258 = Cnil;
2092            VMR26(V258)}
2093            goto T1009;
2094    T1009:;
2095            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[101],car((V248)))));}
2096            goto T977;
2097    T977:;
2098            V247= cdr((V247));
2099            V248= car((V247));
2100            goto T968;}
2101            goto T964;
2102    T964:;
2103            if((V242!= VV[134]))goto T1017;
2104            if(!(type_of(cdr((V241)))==t_cons)){
2105            goto T1019;}
2106            {object V259;
2107            object V260;
2108            V259= (*(LnkLI122))(cadr((V241)));
2109            V260= Cnil;
2110            {register object V261;
2111            object V262;
2112            V261= cddr((V241));
2113            V262= car((V261));
2114            goto T1025;
2115    T1025:;
2116            if(!(endp_prop((V261)))){
2117            goto T1026;}
2118            {object V263 = Ct;
2119            VMR26(V263)}
2120            goto T1026;
2121    T1026:;
2122            if(!(type_of((V262))==t_symbol)){
2123            goto T1032;}
2124            V260= get((V262),VV[68],Cnil);
2125            if(((V260))==Cnil){
2126            goto T1034;}
2127            if(equal((V260),(V259))){
2128            goto T1030;}
2129            goto T1034;
2130    T1034:;
2131            {object V264 = Cnil;
2132            VMR26(V264)}
2133            goto T1032;
2134    T1032:;
2135            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[102],(V262))));
2136            goto T1030;
2137    T1030:;
2138            V261= cdr((V261));
2139            V262= car((V261));
2140            goto T1025;}}
2141            goto T1019;
2142    T1019:;
2143            {object V265 = (VFUN_NARGS=2,(*(LnkLI123))(VV[103],(V241)));
2144            VMR26(V265)}
2145            goto T1017;
2146    T1017:;
2147            if((V242!= VV[136])
2148            && (V242!= VV[137])
2149            && (V242!= VV[138])
2150            && (V242!= VV[139]))goto T1044;
2151            {object V266;
2152            object V267;
2153            V266= (*(LnkLI122))(car((V241)));
2154            V267= Cnil;
2155            {register object V268;
2156            object V269;
2157            V268= cdr((V241));
2158            V269= car((V268));
2159            goto T1049;
2160    T1049:;
2161            if(!(endp_prop((V268)))){
2162            goto T1050;}
2163            {object V270 = Ct;
2164            VMR26(V270)}
2165            goto T1050;
2166    T1050:;
2167            if(!(type_of((V269))==t_symbol)){
2168            goto T1056;}
2169            V267= get((V269),VV[68],Cnil);
2170            if(((V267))==Cnil){
2171            goto T1058;}
2172            if(equal((V267),(V266))){
2173            goto T1054;}
2174            goto T1058;
2175    T1058:;
2176            {object V271 = Cnil;
2177            VMR26(V271)}
2178            goto T1056;
2179    T1056:;
2180            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[104],(V269))));
2181            goto T1054;
2182    T1054:;
2183            V268= cdr((V268));
2184            V269= car((V268));
2185            goto T1049;}}
2186            goto T1044;
2187    T1044:;
2188            if((V242!= VV[140]))goto T1068;
2189            if(endp_prop(cdr((V241)))){
2190            goto T1069;}
2191            if(!(type_of(cadr((V241)))==t_cons)){
2192            goto T1069;}
2193            if(!((caadr((V241)))==(VV[26]))){
2194            goto T1069;}
2195            if(!(endp_prop(cdadr((V241))))){
2196            goto T1070;}
2197            goto T1069;
2198    T1069:;
2199            {object V272 = (VFUN_NARGS=2,(*(LnkLI123))(VV[105],(V241)));
2200            VMR26(V272)}
2201            goto T1070;
2202    T1070:;
2203            {register object V273;
2204            object V274;
2205            V273= cddr((V241));
2206            V274= car((V273));
2207            goto T1081;
2208    T1081:;
2209            if(!(endp_prop((V273)))){
2210            goto T1082;}
2211            {object V275 = Ct;
2212            VMR26(V275)}
2213            goto T1082;
2214    T1082:;
2215            if((get((V274),VV[38],Cnil))==Cnil){
2216            goto T1087;}
2217            V276= (*(LnkLI124))(cadadr((V241)));
2218            V277= get((V274),VV[36],Cnil);
2219            if(!(equal(/* INLINE-ARGS */V276,V277))){
2220            goto T1087;}
2221            V278= (*(LnkLI125))(cddadr((V241)));
2222            V279= get((V274),VV[37],Cnil);
2223            if(equal(/* INLINE-ARGS */V278,V279)){
2224            goto T1086;}
2225            goto T1087;
2226    T1087:;
2227            {object V280 = Cnil;
2228            VMR26(V280)}
2229            goto T1086;
2230    T1086:;
2231            V273= cdr((V273));
2232            V274= car((V273));
2233            goto T1081;}
2234            goto T1068;
2235    T1068:;
2236            if((V242!= VV[26]))goto T1100;
2237            if(endp_prop(cdr((V241)))){
2238            goto T1101;}
2239            if(!(endp_prop(cddr((V241))))){
2240            goto T1102;}
2241            goto T1101;
2242    T1101:;
2243            {object V281 = (VFUN_NARGS=2,(*(LnkLI123))(VV[106],(V241)));
2244            VMR26(V281)}
2245            goto T1102;
2246    T1102:;
2247            if((get(cadr((V241)),VV[38],Cnil))!=Cnil){
2248            goto T1106;}
2249            {object V282 = Cnil;
2250            VMR26(V282)}
2251            goto T1106;
2252    T1106:;
2253            V283= (*(LnkLI124))(caddr((V241)));
2254            V284= get(cadr((V241)),VV[36],Cnil);
2255            if(equal(/* INLINE-ARGS */V283,V284)){
2256            goto T1108;}
2257            {object V285 = Cnil;
2258            VMR26(V285)}
2259            goto T1108;
2260    T1108:;
2261            V286= (*(LnkLI125))(cdddr((V241)));
2262            V287= get(cadr((V241)),VV[37],Cnil);
2263            {object V288 = (equal(/* INLINE-ARGS */V286,V287)?Ct:Cnil);
2264            VMR26(V288)}
2265            goto T1100;
2266    T1100:;
2267            if((V242!= VV[90]))goto T1112;
2268            {register object V289;
2269            object V290;
2270            V289= cdr((V241));
2271            V290= car((V289));
2272            goto T1116;
2273    T1116:;
2274            if(!(endp_prop((V289)))){
2275            goto T1117;}
2276            {object V291 = Ct;
2277            VMR26(V291)}
2278            goto T1117;
2279    T1117:;
2280            if(!(type_of((V290))==t_symbol)){
2281            goto T1123;}
2282            if((get((V290),VV[50],Cnil))==Cnil){
2283            goto T1121;}
2284            {object V292 = Cnil;
2285            VMR26(V292)}
2286            goto T1123;
2287    T1123:;
2288            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[107],(V290))));
2289            goto T1121;
2290    T1121:;
2291            V289= cdr((V289));
2292            V290= car((V289));
2293            goto T1116;}
2294            goto T1112;
2295    T1112:;
2296            if((V242!= VV[92]))goto T1132;
2297            {register object V293;
2298            object V294;
2299            V293= cdr((V241));
2300            V294= car((V293));
2301            goto T1136;
2302    T1136:;
2303            if(!(endp_prop((V293)))){
2304            goto T1137;}
2305            {object V295 = Ct;
2306            VMR26(V295)}
2307            goto T1137;
2308    T1137:;
2309            if(!(type_of((V294))==t_symbol)){
2310            goto T1143;}
2311            if((get((V294),VV[50],Cnil))!=Cnil){
2312            goto T1141;}
2313            {object V296 = Cnil;
2314            VMR26(V296)}
2315            goto T1143;
2316    T1143:;
2317            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[108],(V294))));
2318            goto T1141;
2319    T1141:;
2320            V293= cdr((V293));
2321            V294= car((V293));
2322            goto T1136;}
2323            goto T1132;
2324    T1132:;
2325            if((V242!= VV[79])
2326            && (V242!= VV[142]))goto T1152;
2327            {register object V297;
2328            object V298;
2329            V297= cdr((V241));
2330            V298= car((V297));
2331            goto T1156;
2332    T1156:;
2333            if(!(endp_prop((V297)))){
2334            goto T1157;}
2335            {object V299 = Ct;
2336            VMR26(V299)}
2337            goto T1157;
2338    T1157:;
2339            if(type_of((V298))==t_symbol){
2340            goto T1161;}
2341            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[109],(V298))));
2342            goto T1161;
2343    T1161:;
2344            V297= cdr((V297));
2345            V298= car((V297));
2346            goto T1156;}
2347            goto T1152;
2348    T1152:;
2349            if((V242!= VV[143]))goto T1169;
2350            {register object V300;
2351            object V301;
2352            V300= cdr((V241));
2353            V301= car((V300));
2354            goto T1173;
2355    T1173:;
2356            if(!(endp_prop((V300)))){
2357            goto T1174;}
2358            {object V302 = Ct;
2359            VMR26(V302)}
2360            goto T1174;
2361    T1174:;
2362            if(!(type_of((V301))==t_symbol)){
2363            goto T1180;}
2364            {register object x= (V301),V303= symbol_value(VV[64]);
2365            while(!endp(V303))
2366            if(eql(x,V303->c.c_car)){
2367            goto T1178;
2368            }else V303=V303->c.c_cdr;}
2369            {object V304 = Cnil;
2370            VMR26(V304)}
2371            goto T1180;
2372    T1180:;
2373            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[110],(V301))));
2374            goto T1178;
2375    T1178:;
2376            V300= cdr((V300));
2377            V301= car((V300));
2378            goto T1173;}
2379            goto T1169;
2380    T1169:;
2381            if((V242== VV[144])
2382            || (V242== VV[145])
2383            || (V242== VV[146])
2384            || (V242== VV[147])
2385            || (V242== VV[148]))goto T1190;
2386            if((V242== VV[137])
2387            || (V242== VV[149])
2388            || (V242== VV[25])
2389            || (V242== VV[150])
2390            || (V242== VV[151]))goto T1190;
2391            if((V242== VV[152])
2392            || (V242== VV[136])
2393            || (V242== VV[153])
2394            || (V242== VV[154])
2395            || (V242== VV[32]))goto T1190;
2396            if((V242== VV[155])
2397            || (V242== VV[156])
2398            || (V242== VV[139])
2399            || (V242== Cnil)
2400            || (V242== VV[157]))goto T1190;
2401            if((V242== VV[158])
2402            || (V242== VV[159])
2403            || (V242== VV[160])
2404            || (V242== VV[161])
2405            || (V242== VV[162]))goto T1190;
2406            if((V242== VV[163])
2407            || (V242== VV[164])
2408            || (V242== VV[165])
2409            || (V242== VV[138])
2410            || (V242== VV[166]))goto T1190;
2411            if((V242== VV[167])
2412            || (V242== VV[168])
2413            || (V242== VV[169])
2414            || (V242== VV[170])
2415            || (V242== VV[171]))goto T1190;
2416            if((V242== VV[172])
2417            || (V242== VV[173])
2418            || (V242== VV[174])
2419            || (V242== VV[175])
2420            || (V242== Ct))goto T1190;
2421            if((V242!= VV[176])
2422            && (V242!= VV[177])
2423            && (V242!= VV[178]))goto T1189;
2424            goto T1190;
2425    T1190:;
2426            {object V305;
2427            V305= (*(LnkLI122))(car((V241)));
2428            {register object V306;
2429            object V307;
2430            V306= cdr((V241));
2431            V307= car((V306));
2432            goto T1195;
2433    T1195:;
2434            if(!(endp_prop((V306)))){
2435            goto T1196;}
2436            {object V308 = Ct;
2437            VMR26(V308)}
2438            goto T1196;
2439    T1196:;
2440            if(!(type_of((V307))==t_symbol)){
2441            goto T1202;}
2442            V309= get((V307),VV[68],Cnil);
2443            if(equal(V309,(V305))){
2444            goto T1200;}
2445            {object V310 = Cnil;
2446            VMR26(V310)}
2447            goto T1202;
2448    T1202:;
2449            (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[111],(V307))));
2450            goto T1200;
2451    T1200:;
2452            V306= cdr((V306));
2453            V307= car((V306));
2454            goto T1195;}}
2455            goto T1189;
2456    T1189:;
2457            {register object x= car((V241)),V311= symbol_value(VV[64]);
2458            while(!endp(V311))
2459            if(eql(x,V311->c.c_car)){
2460            goto T1213;
2461            }else V311=V311->c.c_cdr;}
2462            {object V312 = (VFUN_NARGS=2,(*(LnkLI123))(VV[112],car((V241))));
2463            VMR26(V312)}
2464            goto T1213;
2465    T1213:;
2466            {object V313 = Cnil;
2467            VMR26(V313)}}
2468            base[0]=base[0];
2469            return Cnil;
2470    }
2471    static void LnkT186(){ call_or_link(VV[186],(void **)(void *)&Lnk186);} /* C2EXPR */
2472    static object  LnkTLI185(){return call_proc0(VV[185],(void **)(void *)&LnkLI185);} /* BABOON */
2473    static object  LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[184],(void **)(void *)&LnkLI184,first,ap);va_end(ap);return V1;} /* REMOVE */
2474    static object  LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,3,first,ap);va_end(ap);return V1;} /* ADD-FUNCTION-DECLARATION */
2475    static object  LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
2476    static object  LnkTLI180(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[180],(void **)(void *)&LnkLI180,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
2477    static object  LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,1,first,ap);va_end(ap);return V1;} /* SCH-GLOBAL */
2478    static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,3,first,ap);va_end(ap);return V1;} /* ADD-FUNCTION-PROCLAMATION */
2479    static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-VAR */
2480    static void LnkT130(){ call_or_link(VV[130],(void **)(void *)&Lnk130);} /* *MAKE-SPECIAL */
2481    static object  LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[128],(void **)(void *)&LnkLI128,first,ap);va_end(ap);return V1;} /* CMPWARN */
2482    static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
2483    static object  LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[126],(void **)(void *)&LnkLI126,1,first,ap);va_end(ap);return V1;} /* SCH-LOCAL-FUN */
2484    static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,1,first,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */
2485    static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* FUNCTION-ARG-TYPES */
2486    static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)(void *)&LnkLI123,first,ap);va_end(ap);return V1;} /* WARN */
2487    static object  LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)(void *)&LnkLI122,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
2488    static object  LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[121],(void **)(void *)&LnkLI121,first,ap);va_end(ap);return V1;} /* CMPERR */
2489    static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* COMPILED-FUNCTION-NAME */
2490    static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* TYPEP */
2491    static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* WT-TO-STRING */
2492    static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* CONTAINS-SHARP-COMMA */
2493    static void LnkT116(){ call_or_link(VV[116],(void **)(void *)&Lnk116);} /* GET-OUTPUT-STREAM-STRING */
2494    static object  LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* WT-DATA1 */
2495    static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */
2496    static object  LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */
2497    
2498    #ifdef SYSTEM_SPECIAL_INIT
2499    SYSTEM_SPECIAL_INIT
2500    #endif
2501    

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