/[gcl]/gcl/lsp/gcl_predlib.c
ViewVC logotype

Diff of /gcl/lsp/gcl_predlib.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_predlib.h"
4    void init_gcl_predlib(){do_init(VV);}
5    /*      macro definition for DEFTYPE    */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            check_arg(2);
12            vs_top=sup;
13            {object V1=base[0]->c.c_cdr;
14            if(endp(V1))invalid_macro_call();
15            base[2]= (V1->c.c_car);
16            V1=V1->c.c_cdr;
17            if(endp(V1))invalid_macro_call();
18            base[3]= (V1->c.c_car);
19            V1=V1->c.c_cdr;
20            base[4]= V1;}
21            {register object V2;
22            register object V3;
23            V2= base[3];
24            V3= Cnil;
25            goto T3;
26    T3:;
27            if(((V2))!=Cnil){
28            goto T4;}
29            goto T1;
30            goto T4;
31    T4:;
32            {register object x= car((V2)),V4= VV[0];
33            while(!endp(V4))
34            if(eql(x,V4->c.c_car)){
35            goto T10;
36            }else V4=V4->c.c_cdr;
37            goto T8;}
38            goto T10;
39    T10:;
40            if((car((V2)))==(VV[1])){
41            goto T11;}
42            goto T1;
43            goto T11;
44    T11:;
45            V3= make_cons(VV[1],(V3));
46            V2= cdr((V2));
47            goto T20;
48    T20:;
49            if(((V2))==Cnil){
50            goto T22;}
51            {register object x= car((V2)),V5= VV[0];
52            while(!endp(V5))
53            if(eql(x,V5->c.c_car)){
54            goto T25;
55            }else V5=V5->c.c_cdr;
56            goto T21;}
57            goto T25;
58    T25:;
59            goto T22;
60    T22:;
61            goto T18;
62            goto T21;
63    T21:;
64            if(!(type_of(car((V2)))==t_symbol)){
65            goto T29;}
66            V6= list(2,car((V2)),VV[2]);
67            V3= make_cons(/* INLINE-ARGS */V6,(V3));
68            goto T27;
69            goto T29;
70    T29:;
71            V3= make_cons(car((V2)),(V3));
72            goto T27;
73    T27:;
74            V2= cdr((V2));
75            goto T20;
76            goto T18;
77    T18:;
78            base[5]= (V3);
79            base[6]= (V2);
80            vs_top=(vs_base=base+5)+2;
81            Lreconc();
82            vs_top=sup;
83            base[3]= vs_base[0];
84            goto T1;
85            goto T8;
86    T8:;
87            {object V7;
88            V7= cdr((V2));
89            V3= make_cons(car((V2)),(V3));
90            V2= (V7);}
91            goto T3;}
92            goto T1;
93    T1:;
94            V8= list(2,VV[6],base[2]);
95            V9= list(4,VV[5],/* INLINE-ARGS */V8,list(2,VV[6],listA(4,VV[7],base[2],base[3],base[4])),VV[8]);
96            V10= list(2,VV[6],base[2]);
97            V11= list(4,VV[5],/* INLINE-ARGS */V10,list(2,VV[9],listA(3,VV[10],base[3],base[4])),VV[11]);
98            V12= list(2,VV[6],base[2]);
99            V13= (*(LnkLI120))(base[4]);
100            V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]);
101            base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2]));
102            vs_top=(vs_base=base+5)+1;
103            return;
104    }
105    /*      function definition for G1380   */
106    
107    static void L2()
108    {register object *base=vs_base;
109            register object *sup=base+VM2; VC2
110            vs_reserve(VM2);
111            check_arg(0);
112            vs_top=sup;
113            goto TTL;
114    TTL:;
115            base[0]= list(3,VV[13],VV[14],VV[15]);
116            vs_top=(vs_base=base+0)+1;
117            return;
118    }
119    /*      function definition for G1381   */
120    
121    static void L3()
122    {register object *base=vs_base;
123            register object *sup=base+VM3; VC3
124            vs_reserve(VM3);
125            check_arg(0);
126            vs_top=sup;
127            goto TTL;
128    TTL:;
129            base[0]= VV[16];
130            vs_top=(vs_base=base+0)+1;
131            return;
132    }
133    /*      function definition for G1382   */
134    
135    static void L4()
136    {register object *base=vs_base;
137            register object *sup=base+VM4; VC4
138            vs_reserve(VM4);
139            {object V15;
140            check_arg(1);
141            V15=(base[0]);
142            vs_top=sup;
143            goto TTL;
144    TTL:;
145            base[1]= list(3,VV[13],small_fixnum(0),one_minus((V15)));
146            vs_top=(vs_base=base+1)+1;
147            return;
148            }
149    }
150    /*      function definition for G1383   */
151    
152    static void L5()
153    {register object *base=vs_base;
154            register object *sup=base+VM5; VC5
155            vs_reserve(VM5);
156            {object V16;
157            if(vs_top-vs_base>1) too_many_arguments();
158            if(vs_base>=vs_top){vs_top=sup;goto T45;}
159            V16=(base[0]);
160            vs_top=sup;
161            goto T46;
162            goto T45;
163    T45:;
164            V16= VV[17];
165            goto T46;
166    T46:;
167            if(!(((V16))==(VV[17]))){
168            goto T49;}
169            base[1]= VV[18];
170            vs_top=(vs_base=base+1)+1;
171            return;
172            goto T49;
173    T49:;
174            V17= one_minus((V16));
175            V18= number_expt(small_fixnum(2),/* INLINE-ARGS */V17);
176            V19= number_negate(/* INLINE-ARGS */V18);
177            V20= one_minus((V16));
178            V21= number_expt(small_fixnum(2),/* INLINE-ARGS */V20);
179            base[1]= list(3,VV[13],/* INLINE-ARGS */V19,one_minus(/* INLINE-ARGS */V21));
180            vs_top=(vs_base=base+1)+1;
181            return;
182            }
183    }
184    /*      function definition for G1384   */
185    
186    static void L6()
187    {register object *base=vs_base;
188            register object *sup=base+VM6; VC6
189            vs_reserve(VM6);
190            {object V22;
191            if(vs_top-vs_base>1) too_many_arguments();
192            if(vs_base>=vs_top){vs_top=sup;goto T51;}
193            V22=(base[0]);
194            vs_top=sup;
195            goto T52;
196            goto T51;
197    T51:;
198            V22= VV[17];
199            goto T52;
200    T52:;
201            if(!(((V22))==(VV[17]))){
202            goto T55;}
203            base[1]= VV[19];
204            vs_top=(vs_base=base+1)+1;
205            return;
206            goto T55;
207    T55:;
208            V23= number_expt(small_fixnum(2),(V22));
209            base[1]= list(3,VV[13],small_fixnum(0),one_minus(/* INLINE-ARGS */V23));
210            vs_top=(vs_base=base+1)+1;
211            return;
212            }
213    }
214    /*      function definition for G1385   */
215    
216    static void L7()
217    {register object *base=vs_base;
218            register object *sup=base+VM7; VC7
219            vs_reserve(VM7);
220            check_arg(0);
221            vs_top=sup;
222            goto TTL;
223    TTL:;
224            base[0]= list(2,VV[20],small_fixnum(8));
225            vs_top=(vs_base=base+0)+1;
226            return;
227    }
228    /*      function definition for G1386   */
229    
230    static void L8()
231    {register object *base=vs_base;
232            register object *sup=base+VM8; VC8
233            vs_reserve(VM8);
234            check_arg(0);
235            vs_top=sup;
236            goto TTL;
237    TTL:;
238            base[0]= list(2,VV[21],small_fixnum(8));
239            vs_top=(vs_base=base+0)+1;
240            return;
241    }
242    /*      function definition for G1387   */
243    
244    static void L9()
245    {register object *base=vs_base;
246            register object *sup=base+VM9; VC9
247            vs_reserve(VM9);
248            check_arg(0);
249            vs_top=sup;
250            goto TTL;
251    TTL:;
252            base[0]= list(2,VV[20],small_fixnum(16));
253            vs_top=(vs_base=base+0)+1;
254            return;
255    }
256    /*      function definition for G1388   */
257    
258    static void L10()
259    {register object *base=vs_base;
260            register object *sup=base+VM10; VC10
261            vs_reserve(VM10);
262            check_arg(0);
263            vs_top=sup;
264            goto TTL;
265    TTL:;
266            base[0]= list(2,VV[21],small_fixnum(16));
267            vs_top=(vs_base=base+0)+1;
268            return;
269    }
270    /*      function definition for G1389   */
271    
272    static void L11()
273    {register object *base=vs_base;
274            register object *sup=base+VM11; VC11
275            vs_reserve(VM11);
276            {object V24;
277            object V25;
278            if(vs_top-vs_base>2) too_many_arguments();
279            if(vs_base>=vs_top){vs_top=sup;goto T57;}
280            V24=(base[0]);
281            vs_base++;
282            if(vs_base>=vs_top){vs_top=sup;goto T58;}
283            V25=(base[1]);
284            vs_top=sup;
285            goto T59;
286            goto T57;
287    T57:;
288            V24= VV[17];
289            goto T58;
290    T58:;
291            V25= VV[17];
292            goto T59;
293    T59:;
294            base[2]= list(3,VV[22],(V24),make_cons((V25),Cnil));
295            vs_top=(vs_base=base+2)+1;
296            return;
297            }
298    }
299    /*      function definition for G1390   */
300    
301    static void L12()
302    {register object *base=vs_base;
303            register object *sup=base+VM12; VC12
304            vs_reserve(VM12);
305            {object V26;
306            if(vs_top-vs_base>1) too_many_arguments();
307            if(vs_base>=vs_top){vs_top=sup;goto T62;}
308            V26=(base[0]);
309            vs_top=sup;
310            goto T63;
311            goto T62;
312    T62:;
313            V26= VV[17];
314            goto T63;
315    T63:;
316            base[1]= list(3,VV[23],VV[24],(V26));
317            vs_top=(vs_base=base+1)+1;
318            return;
319            }
320    }
321    /*      function definition for G1391   */
322    
323    static void L13()
324    {register object *base=vs_base;
325            register object *sup=base+VM13; VC13
326            vs_reserve(VM13);
327            {object V27;
328            if(vs_top-vs_base>1) too_many_arguments();
329            if(vs_base>=vs_top){vs_top=sup;goto T65;}
330            V27=(base[0]);
331            vs_top=sup;
332            goto T66;
333            goto T65;
334    T65:;
335            V27= VV[17];
336            goto T66;
337    T66:;
338            base[1]= list(3,VV[23],VV[25],(V27));
339            vs_top=(vs_base=base+1)+1;
340            return;
341            }
342    }
343    /*      function definition for G1392   */
344    
345    static void L14()
346    {register object *base=vs_base;
347            register object *sup=base+VM14; VC14
348            vs_reserve(VM14);
349            {object V28;
350            if(vs_top-vs_base>1) too_many_arguments();
351            if(vs_base>=vs_top){vs_top=sup;goto T68;}
352            V28=(base[0]);
353            vs_top=sup;
354            goto T69;
355            goto T68;
356    T68:;
357            V28= VV[17];
358            goto T69;
359    T69:;
360            base[1]= list(3,VV[23],VV[26],(V28));
361            vs_top=(vs_base=base+1)+1;
362            return;
363            }
364    }
365    /*      function definition for G1393   */
366    
367    static void L15()
368    {register object *base=vs_base;
369            register object *sup=base+VM15; VC15
370            vs_reserve(VM15);
371            {object V29;
372            if(vs_top-vs_base>1) too_many_arguments();
373            if(vs_base>=vs_top){vs_top=sup;goto T71;}
374            V29=(base[0]);
375            vs_top=sup;
376            goto T72;
377            goto T71;
378    T71:;
379            V29= VV[17];
380            goto T72;
381    T72:;
382            base[1]= list(3,VV[27],Ct,make_cons((V29),Cnil));
383            vs_top=(vs_base=base+1)+1;
384            return;
385            }
386    }
387    /*      function definition for G1394   */
388    
389    static void L16()
390    {register object *base=vs_base;
391            register object *sup=base+VM16; VC16
392            vs_reserve(VM16);
393            {object V30;
394            if(vs_top-vs_base>1) too_many_arguments();
395            if(vs_base>=vs_top){vs_top=sup;goto T74;}
396            V30=(base[0]);
397            vs_top=sup;
398            goto T75;
399            goto T74;
400    T74:;
401            V30= VV[17];
402            goto T75;
403    T75:;
404            base[1]= list(3,VV[27],VV[24],make_cons((V30),Cnil));
405            vs_top=(vs_base=base+1)+1;
406            return;
407            }
408    }
409    /*      function definition for G1395   */
410    
411    static void L17()
412    {register object *base=vs_base;
413            register object *sup=base+VM17; VC17
414            vs_reserve(VM17);
415            {object V31;
416            if(vs_top-vs_base>1) too_many_arguments();
417            if(vs_base>=vs_top){vs_top=sup;goto T77;}
418            V31=(base[0]);
419            vs_top=sup;
420            goto T78;
421            goto T77;
422    T77:;
423            V31= VV[17];
424            goto T78;
425    T78:;
426            base[1]= list(3,VV[27],VV[25],make_cons((V31),Cnil));
427            vs_top=(vs_base=base+1)+1;
428            return;
429            }
430    }
431    /*      function definition for G1396   */
432    
433    static void L18()
434    {register object *base=vs_base;
435            register object *sup=base+VM18; VC18
436            vs_reserve(VM18);
437            {object V32;
438            if(vs_top-vs_base>1) too_many_arguments();
439            if(vs_base>=vs_top){vs_top=sup;goto T80;}
440            V32=(base[0]);
441            vs_top=sup;
442            goto T81;
443            goto T80;
444    T80:;
445            V32= VV[17];
446            goto T81;
447    T81:;
448            base[1]= list(3,VV[27],VV[26],make_cons((V32),Cnil));
449            vs_top=(vs_base=base+1)+1;
450            return;
451            }
452    }
453    /*      local entry for function SIMPLE-ARRAY-P */
454    
455    static object LI19(V34)
456    
457    object V34;
458    {        VMB19 VMS19 VMV19
459            goto TTL;
460    TTL:;
461            if(type_of((V34))==t_array||
462    type_of((V34))==t_vector||
463    type_of((V34))==t_string||
464    type_of((V34))==t_bitvector){
465            goto T83;}
466            {object V35 = Cnil;
467            VMR19(V35)}
468            goto T83;
469    T83:;
470            base[0]= (V34);
471            vs_top=(vs_base=base+0)+1;
472            (void) (*Lnk121)();
473            vs_top=sup;
474            V36= vs_base[0];
475            if((V36)==Cnil){
476            goto T85;}
477            {object V37 = Cnil;
478            VMR19(V37)}
479            goto T85;
480    T85:;
481            base[0]= (V34);
482            vs_top=(vs_base=base+0)+1;
483            siLdisplaced_array_p();
484            vs_top=sup;
485            V38= vs_base[0];
486            {object V39 = ((V38)==Cnil?Ct:Cnil);
487            VMR19(V39)}
488            base[0]=base[0];
489            return Cnil;
490    }
491    /*      function definition for CLASS-OF        */
492    
493    static void L20()
494    {register object *base=vs_base;
495            register object *sup=base+VM20; VC20
496            vs_reserve(VM20);
497            {object V40;
498            check_arg(1);
499            V40=(base[0]);
500            vs_top=sup;
501            goto TTL;
502    TTL:;
503            base[1]= Cnil;
504            vs_top=(vs_base=base+1)+1;
505            return;
506            }
507    }
508    /*      function definition for CLASSP  */
509    
510    static void L21()
511    {register object *base=vs_base;
512            register object *sup=base+VM21; VC21
513            vs_reserve(VM21);
514            {object V41;
515            check_arg(1);
516            V41=(base[0]);
517            vs_top=sup;
518            goto TTL;
519    TTL:;
520            base[1]= Cnil;
521            vs_top=(vs_base=base+1)+1;
522            return;
523            }
524    }
525    /*      function definition for CLASS-PRECEDENCE-LIST   */
526    
527    static void L22()
528    {register object *base=vs_base;
529            register object *sup=base+VM22; VC22
530            vs_reserve(VM22);
531            {object V42;
532            check_arg(1);
533            V42=(base[0]);
534            vs_top=sup;
535            goto TTL;
536    TTL:;
537            base[1]= Cnil;
538            vs_top=(vs_base=base+1)+1;
539            return;
540            }
541    }
542    /*      function definition for FIND-CLASS      */
543    
544    static void L23()
545    {register object *base=vs_base;
546            register object *sup=base+VM23; VC23
547            vs_reserve(VM23);
548            {object V43;
549            check_arg(1);
550            V43=(base[0]);
551            vs_top=sup;
552            goto TTL;
553    TTL:;
554            base[1]= Cnil;
555            vs_top=(vs_base=base+1)+1;
556            return;
557            }
558    }
559    /*      function definition for TYPEP   */
560    
561    static void L24()
562    {register object *base=vs_base;
563            register object *sup=base+VM24; VC24
564            vs_reserve(VM24);
565            {register object V44;
566            register object V45;
567            object V46;
568            if(vs_top-vs_base<2) too_few_arguments();
569            if(vs_top-vs_base>3) too_many_arguments();
570            V44=(base[0]);
571            V45=(base[1]);
572            vs_base=vs_base+2;
573            if(vs_base>=vs_top){vs_top=sup;goto T91;}
574            V46=(base[2]);
575            vs_top=sup;
576            goto T92;
577            goto T91;
578    T91:;
579            V46= Cnil;
580            goto T92;
581    T92:;
582            {register object V47;
583            register object V48;
584            object V49;
585            V47= Cnil;
586            V48= Cnil;
587            V49= Cnil;
588            base[3]= (V45);
589            vs_top=(vs_base=base+3)+1;
590            (void) (*Lnk122)();
591            vs_top=sup;
592            if((vs_base[0])==Cnil){
593            goto T97;}
594            base[4]= (V44);
595            vs_top=(vs_base=base+4)+1;
596            (void) (*Lnk123)();
597            vs_top=sup;
598            base[3]= vs_base[0];
599            vs_top=(vs_base=base+3)+1;
600            (void) (*Lnk124)();
601            vs_top=sup;
602            V51= vs_base[0];
603            {register object x= (V45),V50= V51;
604            while(!endp(V50))
605            if(eql(x,V50->c.c_car)){
606            goto T103;
607            }else V50=V50->c.c_cdr;
608            goto T102;}
609            goto T103;
610    T103:;
611            base[3]= Ct;
612            vs_top=(vs_base=base+3)+1;
613            return;
614            goto T102;
615    T102:;
616            base[3]= Cnil;
617            vs_top=(vs_base=base+3)+1;
618            return;
619            goto T97;
620    T97:;
621            if(!(type_of((V45))!=t_cons)){
622            goto T109;}
623            V47= (V45);
624            V48= Cnil;
625            goto T107;
626            goto T109;
627    T109:;
628            V47= car((V45));
629            V48= cdr((V45));
630            goto T107;
631    T107:;
632            if(!(((V47))==(VV[28]))){
633            goto T117;}
634            V47= VV[29];
635            goto T117;
636    T117:;
637            {object V52;
638            V52= get((V47),VV[30],Cnil);
639            if(((V52))==Cnil){
640            goto T121;}
641            base[3]= (V44);
642            vs_top=(vs_base=base+3)+1;
643            super_funcall_no_event((V52));
644            return;}
645            goto T121;
646    T121:;
647            {object V53= (V47);
648            if((V53!= VV[42]))goto T126;
649            {register object x= (V44),V54= (V48);
650            while(!endp(V54))
651            if(eql(x,V54->c.c_car)){
652            base[3]= V54;
653            vs_top=(vs_base=base+3)+1;
654            return;
655            }else V54=V54->c.c_cdr;
656            base[3]= Cnil;
657            vs_top=(vs_base=base+3)+1;
658            return;}
659            goto T126;
660    T126:;
661            if((V53!= VV[45]))goto T127;
662            base[3]= (V44);
663            base[4]= car((V48));
664            vs_top=(vs_base=base+3)+2;
665            (void) (*Lnk125)();
666            vs_top=sup;
667            V55= vs_base[0];
668            base[3]= ((V55)==Cnil?Ct:Cnil);
669            vs_top=(vs_base=base+3)+1;
670            return;
671            goto T127;
672    T127:;
673            if((V53!= VV[43]))goto T131;
674            {register object V56;
675            V56= (V48);
676            goto T133;
677    T133:;
678            if(((V56))!=Cnil){
679            goto T134;}
680            base[3]= Cnil;
681            vs_top=(vs_base=base+3)+1;
682            return;
683            goto T134;
684    T134:;
685            base[3]= (V44);
686            base[4]= car((V56));
687            vs_top=(vs_base=base+3)+2;
688            (void) (*Lnk125)();
689            vs_top=sup;
690            if((vs_base[0])==Cnil){
691            goto T138;}
692            base[3]= Ct;
693            vs_top=(vs_base=base+3)+1;
694            return;
695            goto T138;
696    T138:;
697            V56= cdr((V56));
698            goto T133;}
699            goto T131;
700    T131:;
701            if((V53!= VV[44]))goto T146;
702            {register object V57;
703            V57= (V48);
704            goto T148;
705    T148:;
706            if(((V57))!=Cnil){
707            goto T149;}
708            base[3]= Ct;
709            vs_top=(vs_base=base+3)+1;
710            return;
711            goto T149;
712    T149:;
713            base[3]= (V44);
714            base[4]= car((V57));
715            vs_top=(vs_base=base+3)+2;
716            (void) (*Lnk125)();
717            vs_top=sup;
718            if((vs_base[0])!=Cnil){
719            goto T153;}
720            base[3]= Cnil;
721            vs_top=(vs_base=base+3)+1;
722            return;
723            goto T153;
724    T153:;
725            V57= cdr((V57));
726            goto T148;}
727            goto T146;
728    T146:;
729            if((V53!= VV[41]))goto T161;
730            base[3]= car((V48));
731            base[4]= (V44);
732            vs_top=(vs_base=base+4)+1;
733            super_funcall_no_event(base[3]);
734            return;
735            goto T161;
736    T161:;
737            if((V53!= Ct))goto T164;
738            base[3]= Ct;
739            vs_top=(vs_base=base+3)+1;
740            return;
741            goto T164;
742    T164:;
743            if((V53!= Cnil))goto T165;
744            base[3]= Cnil;
745            vs_top=(vs_base=base+3)+1;
746            return;
747            goto T165;
748    T165:;
749            if((V53!= VV[58]))goto T166;
750            if(!(((V44))==(Ct))){
751            goto T167;}
752            base[3]= Ct;
753            vs_top=(vs_base=base+3)+1;
754            return;
755            goto T167;
756    T167:;
757            base[3]= (((V44))==(Cnil)?Ct:Cnil);
758            vs_top=(vs_base=base+3)+1;
759            return;
760            goto T166;
761    T166:;
762            if((V53!= VV[31]))goto T169;
763            base[3]= (V44);
764            vs_top=(vs_base=base+3)+1;
765            Ltype_of();
766            vs_top=sup;
767            V58= vs_base[0];
768            base[3]= ((V58)==(VV[31])?Ct:Cnil);
769            vs_top=(vs_base=base+3)+1;
770            return;
771            goto T169;
772    T169:;
773            if((V53!= VV[32]))goto T172;
774            base[3]= (V44);
775            vs_top=(vs_base=base+3)+1;
776            Ltype_of();
777            vs_top=sup;
778            V59= vs_base[0];
779            base[3]= ((V59)==(VV[32])?Ct:Cnil);
780            vs_top=(vs_base=base+3)+1;
781            return;
782            goto T172;
783    T172:;
784            if((V53!= VV[33]))goto T175;
785            base[3]= (V44);
786            vs_top=(vs_base=base+3)+1;
787            Ltype_of();
788            vs_top=sup;
789            V60= vs_base[0];
790            base[3]= ((V60)==(VV[33])?Ct:Cnil);
791            vs_top=(vs_base=base+3)+1;
792            return;
793            goto T175;
794    T175:;
795            if((V53!= VV[126]))goto T178;
796            if(type_of((V44))==t_character){
797            goto T179;}
798            base[3]= Cnil;
799            vs_top=(vs_base=base+3)+1;
800            return;
801            goto T179;
802    T179:;
803            base[3]= (V44);
804            vs_top=(vs_base=base+3)+1;
805            Lstandard_char_p();
806            return;
807            goto T178;
808    T178:;
809            if((V53!= VV[25])
810            && (V53!= VV[24]))goto T182;
811            if(type_of((V44))==t_character){
812            goto T183;}
813            base[3]= Cnil;
814            vs_top=(vs_base=base+3)+1;
815            return;
816            goto T183;
817    T183:;
818            base[3]= (V44);
819            vs_top=(vs_base=base+3)+1;
820            Lstring_char_p();
821            return;
822            goto T182;
823    T182:;
824            if((V53!= VV[13]))goto T186;
825            if(type_of((V44))==t_fixnum||type_of((V44))==t_bignum){
826            goto T187;}
827            base[3]= Cnil;
828            vs_top=(vs_base=base+3)+1;
829            return;
830            goto T187;
831    T187:;
832            base[3]= (*(LnkLI127))((V44),(V48));
833            vs_top=(vs_base=base+3)+1;
834            return;
835            goto T186;
836    T186:;
837            if((V53!= VV[105]))goto T189;
838            base[3]= (V44);
839            vs_top=(vs_base=base+3)+1;
840            (void) (*Lnk128)();
841            vs_top=sup;
842            if((vs_base[0])!=Cnil){
843            goto T190;}
844            base[3]= Cnil;
845            vs_top=(vs_base=base+3)+1;
846            return;
847            goto T190;
848    T190:;
849            base[3]= (*(LnkLI127))((V44),(V48));
850            vs_top=(vs_base=base+3)+1;
851            return;
852            goto T189;
853    T189:;
854            if((V53!= VV[96]))goto T193;
855            base[3]= (V44);
856            vs_top=(vs_base=base+3)+1;
857            (void) (*Lnk129)();
858            vs_top=sup;
859            if((vs_base[0])!=Cnil){
860            goto T194;}
861            base[3]= Cnil;
862            vs_top=(vs_base=base+3)+1;
863            return;
864            goto T194;
865    T194:;
866            base[3]= (*(LnkLI127))((V44),(V48));
867            vs_top=(vs_base=base+3)+1;
868            return;
869            goto T193;
870    T193:;
871            if((V53!= VV[106]))goto T197;
872            if(type_of((V44))==t_shortfloat||type_of((V44))==t_longfloat){
873            goto T198;}
874            base[3]= Cnil;
875            vs_top=(vs_base=base+3)+1;
876            return;
877            goto T198;
878    T198:;
879            base[3]= (*(LnkLI127))((V44),(V48));
880            vs_top=(vs_base=base+3)+1;
881            return;
882            goto T197;
883    T197:;
884            if((V53!= VV[34]))goto T200;
885            base[3]= (V44);
886            vs_top=(vs_base=base+3)+1;
887            Ltype_of();
888            vs_top=sup;
889            V61= vs_base[0];
890            if((V61)==(VV[34])){
891            goto T201;}
892            base[3]= Cnil;
893            vs_top=(vs_base=base+3)+1;
894            return;
895            goto T201;
896    T201:;
897            base[3]= (*(LnkLI127))((V44),(V48));
898            vs_top=(vs_base=base+3)+1;
899            return;
900            goto T200;
901    T200:;
902            if((V53!= VV[130])
903            && (V53!= VV[131])
904            && (V53!= VV[35]))goto T205;
905            base[3]= (V44);
906            vs_top=(vs_base=base+3)+1;
907            Ltype_of();
908            vs_top=sup;
909            V62= vs_base[0];
910            if((V62)==(VV[35])){
911            goto T206;}
912            base[3]= Cnil;
913            vs_top=(vs_base=base+3)+1;
914            return;
915            goto T206;
916    T206:;
917            base[3]= (*(LnkLI127))((V44),(V48));
918            vs_top=(vs_base=base+3)+1;
919            return;
920            goto T205;
921    T205:;
922            if((V53!= VV[109]))goto T210;
923            base[3]= (V44);
924            vs_top=(vs_base=base+3)+1;
925            Lcomplexp();
926            vs_top=sup;
927            if((vs_base[0])!=Cnil){
928            goto T211;}
929            base[3]= Cnil;
930            vs_top=(vs_base=base+3)+1;
931            return;
932            goto T211;
933    T211:;
934            if(!(((V48))==Cnil)){
935            goto T214;}
936            base[3]= Ct;
937            vs_top=(vs_base=base+3)+1;
938            return;
939            goto T214;
940    T214:;
941            base[4]= (V44);
942            vs_top=(vs_base=base+4)+1;
943            Lrealpart();
944            vs_top=sup;
945            base[3]= vs_base[0];
946            base[4]= car((V48));
947            vs_top=(vs_base=base+3)+2;
948            (void) (*Lnk125)();
949            vs_top=sup;
950            if((vs_base[0])!=Cnil){
951            goto T216;}
952            base[3]= Cnil;
953            vs_top=(vs_base=base+3)+1;
954            return;
955            goto T216;
956    T216:;
957            base[4]= (V44);
958            vs_top=(vs_base=base+4)+1;
959            Limagpart();
960            vs_top=sup;
961            base[3]= vs_base[0];
962            base[4]= car((V48));
963            vs_top=(vs_base=base+3)+2;
964            (void) (*Lnk125)();
965            return;
966            goto T210;
967    T210:;
968            if((V53!= VV[49]))goto T224;
969            if(!(type_of((V44))==t_cons||((V44))==Cnil)){
970            goto T225;}
971            base[3]= Ct;
972            vs_top=(vs_base=base+3)+1;
973            return;
974            goto T225;
975    T225:;
976            base[3]= (type_of((V44))==t_vector||
977    type_of((V44))==t_string||
978    type_of((V44))==t_bitvector?Ct:Cnil);
979            vs_top=(vs_base=base+3)+1;
980            return;
981            goto T224;
982    T224:;
983            if((V53!= VV[132])
984            && (V53!= VV[133]))goto T227;
985            if(type_of((V44))==t_string){
986            goto T228;}
987            base[3]= Cnil;
988            vs_top=(vs_base=base+3)+1;
989            return;
990            goto T228;
991    T228:;
992            if(!(endp_prop((V48)))){
993            goto T230;}
994            base[3]= Ct;
995            vs_top=(vs_base=base+3)+1;
996            return;
997            goto T230;
998    T230:;
999            V63= (*(LnkLI135))((V44));
1000            base[3]= (*(LnkLI134))(/* INLINE-ARGS */V63,(V48));
1001            vs_top=(vs_base=base+3)+1;
1002            return;
1003            goto T227;
1004    T227:;
1005            if((V53!= VV[136]))goto T232;
1006            if((type_of((V44))==t_bitvector)){
1007            goto T233;}
1008            base[3]= Cnil;
1009            vs_top=(vs_base=base+3)+1;
1010            return;
1011            goto T233;
1012    T233:;
1013            if(!(endp_prop((V48)))){
1014            goto T235;}
1015            base[3]= Ct;
1016            vs_top=(vs_base=base+3)+1;
1017            return;
1018            goto T235;
1019    T235:;
1020            V64= (*(LnkLI135))((V44));
1021            base[3]= (*(LnkLI134))(/* INLINE-ARGS */V64,(V48));
1022            vs_top=(vs_base=base+3)+1;
1023            return;
1024            goto T232;
1025    T232:;
1026            if((V53!= VV[137])
1027            && (V53!= VV[138]))goto T237;
1028            base[3]= (V44);
1029            vs_top=(vs_base=base+3)+1;
1030            Lsimple_string_p();
1031            vs_top=sup;
1032            if((vs_base[0])!=Cnil){
1033            goto T238;}
1034            base[3]= Cnil;
1035            vs_top=(vs_base=base+3)+1;
1036            return;
1037            goto T238;
1038    T238:;
1039            if(!(endp_prop((V48)))){
1040            goto T241;}
1041            base[3]= Ct;
1042            vs_top=(vs_base=base+3)+1;
1043            return;
1044            goto T241;
1045    T241:;
1046            V65= (*(LnkLI135))((V44));
1047            base[3]= (*(LnkLI134))(/* INLINE-ARGS */V65,(V48));
1048            vs_top=(vs_base=base+3)+1;
1049            return;
1050            goto T237;
1051    T237:;
1052            if((V53!= VV[139]))goto T243;
1053            base[3]= (V44);
1054            vs_top=(vs_base=base+3)+1;
1055            Lsimple_bit_vector_p();
1056            vs_top=sup;
1057            if((vs_base[0])!=Cnil){
1058            goto T244;}
1059            base[3]= Cnil;
1060            vs_top=(vs_base=base+3)+1;
1061            return;
1062            goto T244;
1063    T244:;
1064            if(!(endp_prop((V48)))){
1065            goto T247;}
1066            base[3]= Ct;
1067            vs_top=(vs_base=base+3)+1;
1068            return;
1069            goto T247;
1070    T247:;
1071            V66= (*(LnkLI135))((V44));
1072            base[3]= (*(LnkLI134))(/* INLINE-ARGS */V66,(V48));
1073            vs_top=(vs_base=base+3)+1;
1074            return;
1075            goto T243;
1076    T243:;
1077            if((V53!= VV[140]))goto T249;
1078            base[3]= (V44);
1079            vs_top=(vs_base=base+3)+1;
1080            Lsimple_vector_p();
1081            vs_top=sup;
1082            if((vs_base[0])!=Cnil){
1083            goto T250;}
1084            base[3]= Cnil;
1085            vs_top=(vs_base=base+3)+1;
1086            return;
1087            goto T250;
1088    T250:;
1089            if(!(endp_prop((V48)))){
1090            goto T255;}
1091            goto T253;
1092            goto T255;
1093    T255:;
1094            if(!((car((V48)))==(VV[17]))){
1095            goto T257;}
1096            goto T253;
1097            goto T257;
1098    T257:;{object V67;
1099            if((car((V48)))==(Ct)){
1100            goto T261;}
1101            V67= Cnil;
1102            goto T260;
1103            goto T261;
1104    T261:;
1105            if(((type_of((V44))==t_string?Ct:Cnil))==Cnil){
1106            goto T263;}
1107            V67= Cnil;
1108            goto T260;
1109            goto T263;
1110    T263:;
1111            V67= ((((type_of((V44))==t_bitvector)?Ct:Cnil))==Cnil?Ct:Cnil);
1112            goto T260;
1113    T260:;
1114            if(V67==Cnil)goto T259;
1115            if((V67)!=Cnil){
1116            goto T253;}
1117            goto T254;
1118            goto T259;
1119    T259:;}
1120            base[3]= (V44);
1121            vs_top=(vs_base=base+3)+1;
1122            Larray_element_type();
1123            vs_top=sup;
1124            V68= vs_base[0];
1125            V69= (*(LnkLI141))(car((V48)));
1126            if(equal(V68,/* INLINE-ARGS */V69)){
1127            goto T253;}
1128            goto T254;
1129    T254:;
1130            base[3]= Cnil;
1131            vs_top=(vs_base=base+3)+1;
1132            return;
1133            goto T253;
1134    T253:;
1135            if(!(endp_prop(cdr((V48))))){
1136            goto T267;}
1137            base[3]= Ct;
1138            vs_top=(vs_base=base+3)+1;
1139            return;
1140            goto T267;
1141    T267:;
1142            V70= (*(LnkLI135))((V44));
1143            base[3]= (*(LnkLI134))(/* INLINE-ARGS */V70,cdr((V48)));
1144            vs_top=(vs_base=base+3)+1;
1145            return;
1146            goto T249;
1147    T249:;
1148            if((V53!= VV[23]))goto T269;
1149            if(type_of((V44))==t_vector||
1150    type_of((V44))==t_string||
1151    type_of((V44))==t_bitvector){
1152            goto T270;}
1153            base[3]= Cnil;
1154            vs_top=(vs_base=base+3)+1;
1155            return;
1156            goto T270;
1157    T270:;
1158            if(!(endp_prop((V48)))){
1159            goto T274;}
1160            goto T272;
1161            goto T274;
1162    T274:;
1163            if(!((car((V48)))==(VV[17]))){
1164            goto T276;}
1165            goto T272;
1166            goto T276;
1167    T276:;{object V71;
1168            if((car((V48)))==(Ct)){
1169            goto T280;}
1170            V71= Cnil;
1171            goto T279;
1172            goto T280;
1173    T280:;
1174            if(((type_of((V44))==t_string?Ct:Cnil))==Cnil){
1175            goto T282;}
1176            V71= Cnil;
1177            goto T279;
1178            goto T282;
1179    T282:;
1180            V71= ((((type_of((V44))==t_bitvector)?Ct:Cnil))==Cnil?Ct:Cnil);
1181            goto T279;
1182    T279:;
1183            if(V71==Cnil)goto T278;
1184            if((V71)!=Cnil){
1185            goto T272;}
1186            goto T273;
1187            goto T278;
1188    T278:;}
1189            base[3]= (V44);
1190            vs_top=(vs_base=base+3)+1;
1191            Larray_element_type();
1192            vs_top=sup;
1193            V72= vs_base[0];
1194            V73= (*(LnkLI141))(car((V48)));
1195            if(equal(V72,/* INLINE-ARGS */V73)){
1196            goto T272;}
1197            goto T273;
1198    T273:;
1199            base[3]= Cnil;
1200            vs_top=(vs_base=base+3)+1;
1201            return;
1202            goto T272;
1203    T272:;
1204            if(!(endp_prop(cdr((V48))))){
1205            goto T286;}
1206            base[3]= Ct;
1207            vs_top=(vs_base=base+3)+1;
1208            return;
1209            goto T286;
1210    T286:;
1211            V74= (*(LnkLI135))((V44));
1212            base[3]= (*(LnkLI134))(/* INLINE-ARGS */V74,cdr((V48)));
1213            vs_top=(vs_base=base+3)+1;
1214            return;
1215            goto T269;
1216    T269:;
1217            if((V53!= VV[27]))goto T288;
1218            if(((*(LnkLI142))((V44)))!=Cnil){
1219            goto T289;}
1220            base[3]= Cnil;
1221            vs_top=(vs_base=base+3)+1;
1222            return;
1223            goto T289;
1224    T289:;
1225            if(!(endp_prop((V48)))){
1226            goto T293;}
1227            goto T291;
1228            goto T293;
1229    T293:;
1230            if(!((car((V48)))==(VV[17]))){
1231            goto T295;}
1232            goto T291;
1233            goto T295;
1234    T295:;
1235            base[3]= (V44);
1236            vs_top=(vs_base=base+3)+1;
1237            Larray_element_type();
1238            vs_top=sup;
1239            V75= vs_base[0];
1240            V76= (*(LnkLI141))(car((V48)));
1241            if(equal(V75,/* INLINE-ARGS */V76)){
1242            goto T291;}
1243            base[3]= Cnil;
1244            vs_top=(vs_base=base+3)+1;
1245            return;
1246            goto T291;
1247    T291:;
1248            if(!(endp_prop(cdr((V48))))){
1249            goto T299;}
1250            base[3]= Ct;
1251            vs_top=(vs_base=base+3)+1;
1252            return;
1253            goto T299;
1254    T299:;
1255            if(!((cadr((V48)))==(VV[17]))){
1256            goto T301;}
1257            base[3]= Ct;
1258            vs_top=(vs_base=base+3)+1;
1259            return;
1260            goto T301;
1261    T301:;
1262            {object V77= cadr((V48));
1263            if(!(type_of(V77)==t_cons||(V77)==Cnil)){
1264            goto T304;}}
1265            V78= (*(LnkLI135))((V44));
1266            base[3]= (*(LnkLI134))(/* INLINE-ARGS */V78,cadr((V48)));
1267            vs_top=(vs_base=base+3)+1;
1268            return;
1269            goto T304;
1270    T304:;
1271            base[3]= (V44);
1272            vs_top=(vs_base=base+3)+1;
1273            Larray_rank();
1274            vs_top=sup;
1275            V79= vs_base[0];
1276            base[3]= (eql(V79,cadr((V48)))?Ct:Cnil);
1277            vs_top=(vs_base=base+3)+1;
1278            return;
1279            goto T288;
1280    T288:;
1281            if((V53!= VV[22]))goto T308;
1282            if(type_of((V44))==t_array||
1283    type_of((V44))==t_vector||
1284    type_of((V44))==t_string||
1285    type_of((V44))==t_bitvector){
1286            goto T309;}
1287            base[3]= Cnil;
1288            vs_top=(vs_base=base+3)+1;
1289            return;
1290            goto T309;
1291    T309:;
1292            if(!(endp_prop((V48)))){
1293            goto T313;}
1294            goto T311;
1295            goto T313;
1296    T313:;
1297            if(!((car((V48)))==(VV[17]))){
1298            goto T315;}
1299            goto T311;
1300            goto T315;
1301    T315:;
1302            base[3]= (V44);
1303            vs_top=(vs_base=base+3)+1;
1304            Larray_element_type();
1305            vs_top=sup;
1306            V80= vs_base[0];
1307            V81= (*(LnkLI141))(car((V48)));
1308            if(equal(V80,/* INLINE-ARGS */V81)){
1309            goto T311;}
1310            base[3]= Cnil;
1311            vs_top=(vs_base=base+3)+1;
1312            return;
1313            goto T311;
1314    T311:;
1315            if(!(endp_prop(cdr((V48))))){
1316            goto T319;}
1317            base[3]= Ct;
1318            vs_top=(vs_base=base+3)+1;
1319            return;
1320            goto T319;
1321    T319:;
1322            if(!((cadr((V48)))==(VV[17]))){
1323            goto T321;}
1324            base[3]= Ct;
1325            vs_top=(vs_base=base+3)+1;
1326            return;
1327            goto T321;
1328    T321:;
1329            {object V82= cadr((V48));
1330            if(!(type_of(V82)==t_cons||(V82)==Cnil)){
1331            goto T324;}}
1332            V83= (*(LnkLI135))((V44));
1333            base[3]= (*(LnkLI134))(/* INLINE-ARGS */V83,cadr((V48)));
1334            vs_top=(vs_base=base+3)+1;
1335            return;
1336            goto T324;
1337    T324:;
1338            base[3]= (V44);
1339            vs_top=(vs_base=base+3)+1;
1340            Larray_rank();
1341            vs_top=sup;
1342            V84= vs_base[0];
1343            base[3]= (eql(V84,cadr((V48)))?Ct:Cnil);
1344            vs_top=(vs_base=base+3)+1;
1345            return;
1346            goto T308;
1347    T308:;
1348            V49= get((V47),VV[36],Cnil);
1349            if(((V49))==Cnil){
1350            goto T329;}
1351            base[3]= (V44);
1352            base[4]= (V49);
1353            vs_top=(vs_base=base+3)+2;
1354            (void) (*Lnk143)();
1355            return;
1356            goto T329;
1357    T329:;
1358            V49= get((V47),VV[37],Cnil);
1359            if(((V49))==Cnil){
1360            goto T335;}
1361            base[3]= (V44);
1362            base[5]= (V49);
1363            {object V85;
1364            V85= (V48);
1365             vs_top=base+6;
1366             while(!endp(V85))
1367             {vs_push(car(V85));V85=cdr(V85);}
1368            vs_base=base+6;}
1369            super_funcall_no_event(base[5]);
1370            vs_top=sup;
1371            base[4]= vs_base[0];
1372            vs_top=(vs_base=base+3)+2;
1373            (void) (*Lnk125)();
1374            return;
1375            goto T335;
1376    T335:;
1377            base[3]= Cnil;
1378            vs_top=(vs_base=base+3)+1;
1379            return;}}
1380            }
1381    }
1382    /*      local entry for function NORMALIZE-TYPE */
1383    
1384    static object LI25(V87)
1385    
1386    register object V87;
1387    {        VMB25 VMS25 VMV25
1388            goto TTL;
1389    TTL:;
1390            {register object V88;
1391            register object V89;
1392            V88= Cnil;
1393            V89= Cnil;
1394            goto T345;
1395    T345:;
1396            if(!(type_of((V87))!=t_cons)){
1397            goto T349;}
1398            V88= (V87);
1399            V89= Cnil;
1400            goto T347;
1401            goto T349;
1402    T349:;
1403            V88= car((V87));
1404            V89= cdr((V87));
1405            goto T347;
1406    T347:;
1407            if((get((V88),VV[37],Cnil))==Cnil){
1408            goto T358;}
1409            base[0]= get((V88),VV[37],Cnil);
1410            {object V90;
1411            V90= (V89);
1412             vs_top=base+1;
1413             while(!endp(V90))
1414             {vs_push(car(V90));V90=cdr(V90);}
1415            vs_base=base+1;}
1416            super_funcall_no_event(base[0]);
1417            vs_top=sup;
1418            V87= vs_base[0];
1419            goto T346;
1420            goto T358;
1421    T358:;
1422            if(!(type_of((V87))!=t_cons)){
1423            goto T364;}
1424            {object V91 = make_cons((V87),Cnil);
1425            VMR25(V91)}
1426            goto T364;
1427    T364:;
1428            {object V92 = (V87);
1429            VMR25(V92)}
1430            goto T346;
1431    T346:;
1432            goto T345;}
1433            base[0]=base[0];
1434            return Cnil;
1435    }
1436    /*      local entry for function KNOWN-TYPE-P   */
1437    
1438    static object LI26(V94)
1439    
1440    register object V94;
1441    {        VMB26 VMS26 VMV26
1442            goto TTL;
1443    TTL:;
1444            if(!(type_of((V94))==t_cons)){
1445            goto T367;}
1446            V94= car((V94));
1447            goto T367;
1448    T367:;
1449            V95= coerce_to_string((V94));
1450            if(equal(/* INLINE-ARGS */V95,VV[38])){
1451            goto T371;}
1452            {register object x= (V94),V96= VV[39];
1453            while(!endp(V96))
1454            if(eql(x,V96->c.c_car)){
1455            goto T371;
1456            }else V96=V96->c.c_cdr;}
1457            if((get((V94),VV[36],Cnil))==Cnil){
1458            goto T372;}
1459            goto T371;
1460    T371:;
1461            {object V97 = Ct;
1462            VMR26(V97)}
1463            goto T372;
1464    T372:;
1465            {object V98 = Cnil;
1466            VMR26(V98)}
1467            return Cnil;
1468    }
1469    /*      function definition for SUBTYPEP        */
1470    
1471    static void L27()
1472    {register object *base=vs_base;
1473            register object *sup=base+VM27; VC27
1474            vs_reserve(VM27);
1475            {object V99;
1476            object V100;
1477            object V101;
1478            if(vs_top-vs_base<2) too_few_arguments();
1479            if(vs_top-vs_base>3) too_many_arguments();
1480            V99=(base[0]);
1481            V100=(base[1]);
1482            vs_base=vs_base+2;
1483            if(vs_base>=vs_top){vs_top=sup;goto T378;}
1484            V101=(base[2]);
1485            vs_top=sup;
1486            goto T379;
1487            goto T378;
1488    T378:;
1489            V101= Cnil;
1490            goto T379;
1491    T379:;
1492            {object V102;
1493            object V103;
1494            object V104;
1495            object V105;
1496            object V106;
1497            object V107;
1498            object V108;
1499            V102= Cnil;
1500            V103= Cnil;
1501            V104= Cnil;
1502            V105= Cnil;
1503            V106= Cnil;
1504            V107= Cnil;
1505            V108= Cnil;
1506            {object V109;
1507            object V110;
1508            base[3]= (V99);
1509            vs_top=(vs_base=base+3)+1;
1510            (void) (*Lnk122)();
1511            vs_top=sup;
1512            V109= vs_base[0];
1513            base[3]= (V100);
1514            vs_top=(vs_base=base+3)+1;
1515            (void) (*Lnk122)();
1516            vs_top=sup;
1517            V110= vs_base[0];
1518            if(((V109))==Cnil){
1519            goto T393;}
1520            if(((V110))==Cnil){
1521            goto T393;}
1522            base[3]= (V99);
1523            vs_top=(vs_base=base+3)+1;
1524            (void) (*Lnk124)();
1525            vs_top=sup;
1526            V112= vs_base[0];
1527            {register object x= (V100),V111= V112;
1528            while(!endp(V111))
1529            if(eql(x,V111->c.c_car)){
1530            goto T400;
1531            }else V111=V111->c.c_cdr;
1532            goto T399;}
1533            goto T400;
1534    T400:;
1535            base[3]= Ct;
1536            base[4]= Ct;
1537            vs_top=(vs_base=base+3)+2;
1538            return;
1539            goto T399;
1540    T399:;
1541            base[3]= Cnil;
1542            base[4]= Ct;
1543            vs_top=(vs_base=base+3)+2;
1544            return;
1545            goto T393;
1546    T393:;
1547            if(((V109))==Cnil){
1548            goto T407;}
1549            if(((V100))==(VV[28])){
1550            goto T408;}
1551            if(!(((V100))==(VV[40]))){
1552            goto T407;}
1553            goto T408;
1554    T408:;
1555            base[3]= (V100);
1556            vs_top=(vs_base=base+3)+1;
1557            (void) (*Lnk144)();
1558            vs_top=sup;
1559            V114= vs_base[0];
1560            base[3]= (V99);
1561            vs_top=(vs_base=base+3)+1;
1562            (void) (*Lnk124)();
1563            vs_top=sup;
1564            V115= vs_base[0];
1565            {register object x= V114,V113= V115;
1566            while(!endp(V113))
1567            if(eql(x,V113->c.c_car)){
1568            goto T416;
1569            }else V113=V113->c.c_cdr;
1570            goto T415;}
1571            goto T416;
1572    T416:;
1573            base[3]= Ct;
1574            base[4]= Ct;
1575            vs_top=(vs_base=base+3)+2;
1576            return;
1577            goto T415;
1578    T415:;
1579            base[3]= Cnil;
1580            base[4]= Ct;
1581            vs_top=(vs_base=base+3)+2;
1582            return;
1583            goto T407;
1584    T407:;
1585            if(((V109))!=Cnil){
1586            goto T425;}
1587            if(((V110))==Cnil){
1588            goto T388;}
1589            goto T425;
1590    T425:;
1591            base[3]= Cnil;
1592            base[4]= Ct;
1593            vs_top=(vs_base=base+3)+2;
1594            return;}
1595            goto T388;
1596    T388:;
1597            V102= (*(LnkLI145))((V99));
1598            if(!((car((V102)))==(VV[41]))){
1599            goto T436;}
1600            V99= make_cons((V99),Cnil);
1601            goto T434;
1602            goto T436;
1603    T436:;
1604            V99= (V102);
1605            goto T434;
1606    T434:;
1607            V103= (*(LnkLI145))((V100));
1608            if(!((car((V103)))==(VV[41]))){
1609            goto T443;}
1610            V100= make_cons((V100),Cnil);
1611            goto T441;
1612            goto T443;
1613    T443:;
1614            V100= (V103);
1615            goto T441;
1616    T441:;
1617            if(!(equal((V99),(V100)))){
1618            goto T445;}
1619            base[3]= Ct;
1620            base[4]= Ct;
1621            vs_top=(vs_base=base+3)+2;
1622            return;
1623            goto T445;
1624    T445:;
1625            V102= car((V99));
1626            V103= car((V100));
1627            V104= cdr((V99));
1628            V105= cdr((V100));
1629            if(!(((V102))==(VV[42]))){
1630            goto T460;}
1631            {register object V116;
1632            object V117;
1633            V116= (V104);
1634            V117= car((V116));
1635            goto T466;
1636    T466:;
1637            if(!(endp_prop((V116)))){
1638            goto T467;}
1639            goto T462;
1640            goto T467;
1641    T467:;
1642            base[4]= (V117);
1643            base[5]= (V100);
1644            vs_top=(vs_base=base+4)+2;
1645            (void) (*Lnk125)();
1646            vs_top=sup;
1647            if((vs_base[0])!=Cnil){
1648            goto T471;}
1649            base[4]= Cnil;
1650            base[5]= Ct;
1651            vs_top=(vs_base=base+4)+2;
1652            return;
1653            goto T471;
1654    T471:;
1655            V116= cdr((V116));
1656            V117= car((V116));
1657            goto T466;}
1658            goto T462;
1659    T462:;
1660            base[3]= Ct;
1661            base[4]= Ct;
1662            vs_top=(vs_base=base+3)+2;
1663            return;
1664            goto T460;
1665    T460:;
1666            if(!(((V102))==(VV[43]))){
1667            goto T486;}
1668            {register object V118;
1669            object V119;
1670            V118= (V104);
1671            V119= car((V118));
1672            goto T492;
1673    T492:;
1674            if(!(endp_prop((V118)))){
1675            goto T493;}
1676            goto T488;
1677            goto T493;
1678    T493:;
1679            {object V120;
1680            object V121;
1681            base[4]= (V119);
1682            base[5]= (V100);
1683            vs_top=(vs_base=base+4)+2;
1684            (void) (*Lnk146)();
1685            if(vs_base>=vs_top){vs_top=sup;goto T501;}
1686            V120= vs_base[0];
1687            vs_base++;
1688            if(vs_base>=vs_top){vs_top=sup;goto T502;}
1689            V121= vs_base[0];
1690            vs_top=sup;
1691            goto T503;
1692            goto T501;
1693    T501:;
1694            V120= Cnil;
1695            goto T502;
1696    T502:;
1697            V121= Cnil;
1698            goto T503;
1699    T503:;
1700            if(((V120))!=Cnil){
1701            goto T497;}
1702            base[4]= (V120);
1703            base[5]= (V121);
1704            vs_top=(vs_base=base+4)+2;
1705            return;}
1706            goto T497;
1707    T497:;
1708            V118= cdr((V118));
1709            V119= car((V118));
1710            goto T492;}
1711            goto T488;
1712    T488:;
1713            base[3]= Ct;
1714            base[4]= Ct;
1715            vs_top=(vs_base=base+3)+2;
1716            return;
1717            goto T486;
1718    T486:;
1719            if(!(((V102))==(VV[44]))){
1720            goto T516;}
1721            {register object V122;
1722            object V123;
1723            V122= (V104);
1724            V123= car((V122));
1725            goto T522;
1726    T522:;
1727            if(!(endp_prop((V122)))){
1728            goto T523;}
1729            goto T518;
1730            goto T523;
1731    T523:;
1732            {object V124;
1733            base[4]= (V123);
1734            base[5]= (V100);
1735            vs_top=(vs_base=base+4)+2;
1736            (void) (*Lnk146)();
1737            vs_top=sup;
1738            V124= vs_base[0];
1739            if(((V124))==Cnil){
1740            goto T527;}
1741            base[4]= Ct;
1742            base[5]= Ct;
1743            vs_top=(vs_base=base+4)+2;
1744            return;}
1745            goto T527;
1746    T527:;
1747            V122= cdr((V122));
1748            V123= car((V122));
1749            goto T522;}
1750            goto T518;
1751    T518:;
1752            base[3]= Cnil;
1753            base[4]= Cnil;
1754            vs_top=(vs_base=base+3)+2;
1755            return;
1756            goto T516;
1757    T516:;
1758            if(!(((V102))==(VV[45]))){
1759            goto T458;}
1760            if(!(((V103))==(VV[45]))){
1761            goto T545;}
1762            base[3]= car((V105));
1763            base[4]= car((V104));
1764            vs_top=(vs_base=base+3)+2;
1765            (void) (*Lnk146)();
1766            return;
1767            goto T545;
1768    T545:;
1769            base[3]= Ct;
1770            base[4]= list(3,VV[43],(V100),car((V104)));
1771            vs_top=(vs_base=base+3)+2;
1772            (void) (*Lnk146)();
1773            return;
1774            goto T458;
1775    T458:;
1776            if(!(((V103))==(VV[42]))){
1777            goto T553;}
1778            base[3]= Cnil;
1779            base[4]= Cnil;
1780            vs_top=(vs_base=base+3)+2;
1781            return;
1782            goto T553;
1783    T553:;
1784            if(!(((V103))==(VV[43]))){
1785            goto T558;}
1786            {register object V125;
1787            object V126;
1788            V125= (V105);
1789            V126= car((V125));
1790            goto T564;
1791    T564:;
1792            if(!(endp_prop((V125)))){
1793            goto T565;}
1794            goto T560;
1795            goto T565;
1796    T565:;
1797            {object V127;
1798            base[4]= (V99);
1799            base[5]= (V126);
1800            vs_top=(vs_base=base+4)+2;
1801            (void) (*Lnk146)();
1802            vs_top=sup;
1803            V127= vs_base[0];
1804            if(((V127))==Cnil){
1805            goto T569;}
1806            base[4]= Ct;
1807            base[5]= Ct;
1808            vs_top=(vs_base=base+4)+2;
1809            return;}
1810            goto T569;
1811    T569:;
1812            V125= cdr((V125));
1813            V126= car((V125));
1814            goto T564;}
1815            goto T560;
1816    T560:;
1817            base[3]= Cnil;
1818            base[4]= Cnil;
1819            vs_top=(vs_base=base+3)+2;
1820            return;
1821            goto T558;
1822    T558:;
1823            if(!(((V103))==(VV[44]))){
1824            goto T585;}
1825            {register object V128;
1826            object V129;
1827            V128= (V105);
1828            V129= car((V128));
1829            goto T591;
1830    T591:;
1831            if(!(endp_prop((V128)))){
1832            goto T592;}
1833            goto T587;
1834            goto T592;
1835    T592:;
1836            {object V130;
1837            object V131;
1838            base[4]= (V99);
1839            base[5]= (V129);
1840            vs_top=(vs_base=base+4)+2;
1841            (void) (*Lnk146)();
1842            if(vs_base>=vs_top){vs_top=sup;goto T600;}
1843            V130= vs_base[0];
1844            vs_base++;
1845            if(vs_base>=vs_top){vs_top=sup;goto T601;}
1846            V131= vs_base[0];
1847            vs_top=sup;
1848            goto T602;
1849            goto T600;
1850    T600:;
1851            V130= Cnil;
1852            goto T601;
1853    T601:;
1854            V131= Cnil;
1855            goto T602;
1856    T602:;
1857            if(((V130))!=Cnil){
1858            goto T596;}
1859            base[4]= (V130);
1860            base[5]= (V131);
1861            vs_top=(vs_base=base+4)+2;
1862            return;}
1863            goto T596;
1864    T596:;
1865            V128= cdr((V128));
1866            V129= car((V128));
1867            goto T591;}
1868            goto T587;
1869    T587:;
1870            base[3]= Ct;
1871            base[4]= Ct;
1872            vs_top=(vs_base=base+3)+2;
1873            return;
1874            goto T585;
1875    T585:;
1876            if(!(((V103))==(VV[45]))){
1877            goto T551;}
1878            base[3]= list(3,VV[44],(V99),car((V105)));
1879            base[4]= Cnil;
1880            vs_top=(vs_base=base+3)+2;
1881            (void) (*Lnk146)();
1882            return;
1883            goto T551;
1884    T551:;
1885            V106= (*(LnkLI147))((V99));
1886            V107= (*(LnkLI147))((V100));
1887            if(((V102))==(Cnil)){
1888            goto T622;}
1889            if(((V103))==(Ct)){
1890            goto T622;}
1891            if(!(((V103))==(VV[46]))){
1892            goto T623;}
1893            goto T622;
1894    T622:;
1895            base[3]= Ct;
1896            base[4]= Ct;
1897            vs_top=(vs_base=base+3)+2;
1898            return;
1899            goto T623;
1900    T623:;
1901            if(!(((V103))==(Cnil))){
1902            goto T632;}
1903            base[3]= Cnil;
1904            base[4]= (V106);
1905            vs_top=(vs_base=base+3)+2;
1906            return;
1907            goto T632;
1908    T632:;
1909            if(!(((V102))==(Ct))){
1910            goto T637;}
1911            base[3]= Cnil;
1912            base[4]= (V107);
1913            vs_top=(vs_base=base+3)+2;
1914            return;
1915            goto T637;
1916    T637:;
1917            if(!(((V102))==(VV[46]))){
1918            goto T642;}
1919            base[3]= Cnil;
1920            base[4]= (V107);
1921            vs_top=(vs_base=base+3)+2;
1922            return;
1923            goto T642;
1924    T642:;
1925            if(!(((V103))==(VV[47]))){
1926            goto T647;}
1927            {register object x= (V102),V132= VV[48];
1928            while(!endp(V132))
1929            if(eql(x,V132->c.c_car)){
1930            goto T651;
1931            }else V132=V132->c.c_cdr;
1932            goto T650;}
1933            goto T651;
1934    T651:;
1935            base[3]= Ct;
1936            base[4]= Ct;
1937            vs_top=(vs_base=base+3)+2;
1938            return;
1939            goto T650;
1940    T650:;
1941            base[3]= Cnil;
1942            base[4]= (V106);
1943            vs_top=(vs_base=base+3)+2;
1944            return;
1945            goto T647;
1946    T647:;
1947            if(!(((V103))==(VV[49]))){
1948            goto T657;}
1949            {register object x= (V102),V133= VV[50];
1950            while(!endp(V133))
1951            if(eql(x,V133->c.c_car)){
1952            goto T661;
1953            }else V133=V133->c.c_cdr;
1954            goto T660;}
1955            goto T661;
1956    T661:;
1957            base[3]= Ct;
1958            base[4]= Ct;
1959            vs_top=(vs_base=base+3)+2;
1960            return;
1961            goto T660;
1962    T660:;
1963            if(((V102))==(VV[27])){
1964            goto T664;}
1965            if(!(((V102))==(VV[22]))){
1966            goto T665;}
1967            goto T664;
1968    T664:;
1969            if((cdr((V104)))==Cnil){
1970            goto T670;}
1971            if(!(type_of(cadr((V104)))==t_cons)){
1972            goto T670;}
1973            if((cdadr((V104)))!=Cnil){
1974            goto T670;}
1975            base[3]= Ct;
1976            base[4]= Ct;
1977            vs_top=(vs_base=base+3)+2;
1978            return;
1979            goto T670;
1980    T670:;
1981            base[3]= Cnil;
1982            base[4]= Ct;
1983            vs_top=(vs_base=base+3)+2;
1984            return;
1985            goto T665;
1986    T665:;
1987            base[3]= Cnil;
1988            base[4]= (V106);
1989            vs_top=(vs_base=base+3)+2;
1990            return;
1991            goto T657;
1992    T657:;
1993            if(!(((V102))==(VV[47]))){
1994            goto T683;}
1995            base[3]= Cnil;
1996            base[4]= (V107);
1997            vs_top=(vs_base=base+3)+2;
1998            return;
1999            goto T683;
2000    T683:;
2001            if(!(((V102))==(VV[49]))){
2002            goto T688;}
2003            base[3]= Cnil;
2004            base[4]= (V107);
2005            vs_top=(vs_base=base+3)+2;
2006            return;
2007            goto T688;
2008    T688:;
2009            if(!(((V103))==(VV[51]))){
2010            goto T693;}
2011            {register object x= (V102),V134= VV[52];
2012            while(!endp(V134))
2013            if(eql(x,V134->c.c_car)){
2014            goto T697;
2015            }else V134=V134->c.c_cdr;
2016            goto T696;}
2017            goto T697;
2018    T697:;
2019            base[3]= Cnil;
2020            base[4]= Ct;
2021            vs_top=(vs_base=base+3)+2;
2022            return;
2023            goto T696;
2024    T696:;
2025            if(((V106))==Cnil){
2026            goto T701;}
2027            base[3]= Ct;
2028            base[4]= Ct;
2029            vs_top=(vs_base=base+3)+2;
2030            return;
2031            goto T701;
2032    T701:;
2033            base[3]= Cnil;
2034            base[4]= Cnil;
2035            vs_top=(vs_base=base+3)+2;
2036            return;
2037            goto T693;
2038    T693:;
2039            if(!(((V102))==(VV[51]))){
2040            goto T708;}
2041            base[3]= Cnil;
2042            base[4]= (V107);
2043            vs_top=(vs_base=base+3)+2;
2044            return;
2045            goto T708;
2046    T708:;
2047            if(!(((V103))==(VV[53]))){
2048            goto T713;}
2049            {register object x= (V102),V135= VV[54];
2050            while(!endp(V135))
2051            if(eql(x,V135->c.c_car)){
2052            goto T717;
2053            }else V135=V135->c.c_cdr;
2054            goto T716;}
2055            goto T717;
2056    T717:;
2057            base[3]= Ct;
2058            base[4]= Ct;
2059            vs_top=(vs_base=base+3)+2;
2060            return;
2061            goto T716;
2062    T716:;
2063            base[3]= Cnil;
2064            base[4]= (V106);
2065            vs_top=(vs_base=base+3)+2;
2066            return;
2067            goto T713;
2068    T713:;
2069            if(!(((V103))==(VV[9]))){
2070            goto T723;}
2071            {register object x= (V102),V136= VV[55];
2072            while(!endp(V136))
2073            if(eql(x,V136->c.c_car)){
2074            goto T727;
2075            }else V136=V136->c.c_cdr;
2076            goto T726;}
2077            goto T727;
2078    T727:;
2079            base[3]= Ct;
2080            base[4]= Ct;
2081            vs_top=(vs_base=base+3)+2;
2082            return;
2083            goto T726;
2084    T726:;
2085            base[3]= Cnil;
2086            base[4]= (V106);
2087            vs_top=(vs_base=base+3)+2;
2088            return;
2089            goto T723;
2090    T723:;
2091            if(!(((V103))==(VV[56]))){
2092            goto T733;}
2093            if(!(((V102))==(VV[57]))){
2094            goto T736;}
2095            base[3]= Ct;
2096            base[4]= Ct;
2097            vs_top=(vs_base=base+3)+2;
2098            return;
2099            goto T736;
2100    T736:;
2101            base[3]= Cnil;
2102            base[4]= (V106);
2103            vs_top=(vs_base=base+3)+2;
2104            return;
2105            goto T733;
2106    T733:;
2107            if(!(((V103))==(VV[58]))){
2108            goto T743;}
2109            if(!(((V102))==(VV[59]))){
2110            goto T746;}
2111            base[3]= Ct;
2112            base[4]= Ct;
2113            vs_top=(vs_base=base+3)+2;
2114            return;
2115            goto T746;
2116    T746:;
2117            base[3]= Cnil;
2118            base[4]= (V106);
2119            vs_top=(vs_base=base+3)+2;
2120            return;
2121            goto T743;
2122    T743:;
2123            if(!(((V103))==(VV[40]))){
2124            goto T753;}
2125            {register object x= (V102),V137= VV[60];
2126            while(!endp(V137))
2127            if(eql(x,V137->c.c_car)){
2128            goto T757;
2129            }else V137=V137->c.c_cdr;
2130            goto T756;}
2131            goto T757;
2132    T757:;
2133            base[3]= Ct;
2134            base[4]= Ct;
2135            vs_top=(vs_base=base+3)+2;
2136            return;
2137            goto T756;
2138    T756:;
2139            base[3]= Cnil;
2140            base[4]= (V106);
2141            vs_top=(vs_base=base+3)+2;
2142            return;
2143            goto T753;
2144    T753:;
2145            if(!(((V103))==(VV[61]))){
2146            goto T763;}
2147            {register object x= (V102),V138= VV[62];
2148            while(!endp(V138))
2149            if(eql(x,V138->c.c_car)){
2150            goto T767;
2151            }else V138=V138->c.c_cdr;
2152            goto T766;}
2153            goto T767;
2154    T767:;
2155            base[3]= Ct;
2156            base[4]= Ct;
2157            vs_top=(vs_base=base+3)+2;
2158            return;
2159            goto T766;
2160    T766:;
2161            base[3]= Cnil;
2162            base[4]= (V106);
2163            vs_top=(vs_base=base+3)+2;
2164            return;
2165            goto T763;
2166    T763:;
2167            if(!(((V103))==(VV[63]))){
2168            goto T773;}
2169            V139= coerce_to_string((V102));
2170            if(equal(/* INLINE-ARGS */V139,VV[64])){
2171            goto T775;}
2172            {register object x= (V102),V140= VV[65];
2173            while(!endp(V140))
2174            if(eql(x,V140->c.c_car)){
2175            goto T779;
2176            }else V140=V140->c.c_cdr;
2177            goto T776;}
2178            goto T779;
2179    T779:;
2180            goto T775;
2181    T775:;
2182            base[3]= Ct;
2183            base[4]= Ct;
2184            vs_top=(vs_base=base+3)+2;
2185            return;
2186            goto T776;
2187    T776:;
2188            base[3]= Cnil;
2189            base[4]= (V106);
2190            vs_top=(vs_base=base+3)+2;
2191            return;
2192            goto T773;
2193    T773:;
2194            if(!(((V103))==(VV[66]))){
2195            goto T785;}
2196            V141= coerce_to_string((V102));
2197            if(equal(/* INLINE-ARGS */V141,VV[67])){
2198            goto T787;}
2199            {register object x= (V102),V142= VV[68];
2200            while(!endp(V142))
2201            if(eql(x,V142->c.c_car)){
2202            goto T791;
2203            }else V142=V142->c.c_cdr;
2204            goto T788;}
2205            goto T791;
2206    T791:;
2207            goto T787;
2208    T787:;
2209            base[3]= Ct;
2210            base[4]= Ct;
2211            vs_top=(vs_base=base+3)+2;
2212            return;
2213            goto T788;
2214    T788:;
2215            base[3]= Cnil;
2216            base[4]= (V106);
2217            vs_top=(vs_base=base+3)+2;
2218            return;
2219            goto T785;
2220    T785:;
2221            if(!(((V103))==(VV[69]))){
2222            goto T797;}
2223            if(!(((V102))==(VV[70]))){
2224            goto T800;}
2225            base[3]= Ct;
2226            base[4]= Ct;
2227            vs_top=(vs_base=base+3)+2;
2228            return;
2229            goto T800;
2230    T800:;
2231            base[3]= Cnil;
2232            base[4]= (V106);
2233            vs_top=(vs_base=base+3)+2;
2234            return;
2235            goto T797;
2236    T797:;
2237            if(!(((V103))==(VV[71]))){
2238            goto T807;}
2239            if(!(((V102))==(VV[72]))){
2240            goto T810;}
2241            base[3]= Ct;
2242            base[4]= Ct;
2243            vs_top=(vs_base=base+3)+2;
2244            return;
2245            goto T810;
2246    T810:;
2247            base[3]= Cnil;
2248            base[4]= (V106);
2249            vs_top=(vs_base=base+3)+2;
2250            return;
2251            goto T807;
2252    T807:;
2253            if(!(((V103))==(VV[73]))){
2254            goto T817;}
2255            {register object x= (V102),V143= VV[74];
2256            while(!endp(V143))
2257            if(eql(x,V143->c.c_car)){
2258            goto T821;
2259            }else V143=V143->c.c_cdr;
2260            goto T820;}
2261            goto T821;
2262    T821:;
2263            base[3]= Ct;
2264            base[4]= Ct;
2265            vs_top=(vs_base=base+3)+2;
2266            return;
2267            goto T820;
2268    T820:;
2269            base[3]= Cnil;
2270            base[4]= (V106);
2271            vs_top=(vs_base=base+3)+2;
2272            return;
2273            goto T817;
2274    T817:;
2275            V144= coerce_to_string((V103));
2276            if(equal(/* INLINE-ARGS */V144,VV[75])){
2277            goto T826;}
2278            if(!(((V103))==(VV[76]))){
2279            goto T827;}
2280            goto T826;
2281    T826:;
2282            {register object x= (V102),V145= VV[77];
2283            while(!endp(V145))
2284            if(eql(x,V145->c.c_car)){
2285            goto T833;
2286            }else V145=V145->c.c_cdr;
2287            goto T832;}
2288            goto T833;
2289    T833:;
2290            base[3]= Ct;
2291            base[4]= Ct;
2292            vs_top=(vs_base=base+3)+2;
2293            return;
2294            goto T832;
2295    T832:;
2296            base[3]= Cnil;
2297            base[4]= (V106);
2298            vs_top=(vs_base=base+3)+2;
2299            return;
2300            goto T827;
2301    T827:;
2302            if(!(((V103))==(VV[78]))){
2303            goto T839;}
2304            {register object x= (V102),V146= VV[79];
2305            while(!endp(V146))
2306            if(eql(x,V146->c.c_car)){
2307            goto T843;
2308            }else V146=V146->c.c_cdr;
2309            goto T842;}
2310            goto T843;
2311    T843:;
2312            base[3]= Ct;
2313            base[4]= Ct;
2314            vs_top=(vs_base=base+3)+2;
2315            return;
2316            goto T842;
2317    T842:;
2318            base[3]= Cnil;
2319            base[4]= (V106);
2320            vs_top=(vs_base=base+3)+2;
2321            return;
2322            goto T839;
2323    T839:;
2324            if(!(((V103))==(VV[80]))){
2325            goto T849;}
2326            if(!(((V102))==(VV[81]))){
2327            goto T852;}
2328            base[3]= Ct;
2329            base[4]= Ct;
2330            vs_top=(vs_base=base+3)+2;
2331            return;
2332            goto T852;
2333    T852:;
2334            base[3]= Cnil;
2335            base[4]= (V106);
2336            vs_top=(vs_base=base+3)+2;
2337            return;
2338            goto T849;
2339    T849:;
2340            if(!(((V103))==(VV[82]))){
2341            goto T859;}
2342            if(!(((V102))==(VV[83]))){
2343            goto T862;}
2344            base[3]= Ct;
2345            base[4]= Ct;
2346            vs_top=(vs_base=base+3)+2;
2347            return;
2348            goto T862;
2349    T862:;
2350            base[3]= Cnil;
2351            base[4]= (V106);
2352            vs_top=(vs_base=base+3)+2;
2353            return;
2354            goto T859;
2355    T859:;
2356            if(!(((V103))==(VV[84]))){
2357            goto T869;}
2358            {register object x= (V102),V147= VV[85];
2359            while(!endp(V147))
2360            if(eql(x,V147->c.c_car)){
2361            goto T873;
2362            }else V147=V147->c.c_cdr;
2363            goto T872;}
2364            goto T873;
2365    T873:;
2366            base[3]= Ct;
2367            base[4]= Ct;
2368            vs_top=(vs_base=base+3)+2;
2369            return;
2370            goto T872;
2371    T872:;
2372            base[3]= Cnil;
2373            base[4]= (V106);
2374            vs_top=(vs_base=base+3)+2;
2375            return;
2376            goto T869;
2377    T869:;
2378            if(!(((V103))==(VV[84]))){
2379            goto T879;}
2380            {register object x= (V102),V148= VV[86];
2381            while(!endp(V148))
2382            if(eql(x,V148->c.c_car)){
2383            goto T883;
2384            }else V148=V148->c.c_cdr;
2385            goto T882;}
2386            goto T883;
2387    T883:;
2388            base[3]= Ct;
2389            base[4]= Ct;
2390            vs_top=(vs_base=base+3)+2;
2391            return;
2392            goto T882;
2393    T882:;
2394            base[3]= Cnil;
2395            base[4]= (V106);
2396            vs_top=(vs_base=base+3)+2;
2397            return;
2398            goto T879;
2399    T879:;
2400            if(!(((V103))==(VV[87]))){
2401            goto T889;}
2402            {register object x= (V102),V149= VV[88];
2403            while(!endp(V149))
2404            if(eql(x,V149->c.c_car)){
2405            goto T893;
2406            }else V149=V149->c.c_cdr;
2407            goto T892;}
2408            goto T893;
2409    T893:;
2410            base[3]= Ct;
2411            base[4]= Ct;
2412            vs_top=(vs_base=base+3)+2;
2413            return;
2414            goto T892;
2415    T892:;
2416            base[3]= Cnil;
2417            base[4]= (V106);
2418            vs_top=(vs_base=base+3)+2;
2419            return;
2420            goto T889;
2421    T889:;
2422            if(!(((V103))==(VV[89]))){
2423            goto T899;}
2424            {register object x= (V102),V150= VV[90];
2425            while(!endp(V150))
2426            if(eql(x,V150->c.c_car)){
2427            goto T903;
2428            }else V150=V150->c.c_cdr;
2429            goto T902;}
2430            goto T903;
2431    T903:;
2432            base[3]= Ct;
2433            base[4]= Ct;
2434            vs_top=(vs_base=base+3)+2;
2435            return;
2436            goto T902;
2437    T902:;
2438            base[3]= Cnil;
2439            base[4]= (V106);
2440            vs_top=(vs_base=base+3)+2;
2441            return;
2442            goto T899;
2443    T899:;
2444            if(!(((V103))==(VV[91]))){
2445            goto T909;}
2446            {register object x= (V102),V151= VV[92];
2447            while(!endp(V151))
2448            if(eql(x,V151->c.c_car)){
2449            goto T913;
2450            }else V151=V151->c.c_cdr;
2451            goto T912;}
2452            goto T913;
2453    T913:;
2454            base[3]= Ct;
2455            base[4]= Ct;
2456            vs_top=(vs_base=base+3)+2;
2457            return;
2458            goto T912;
2459    T912:;
2460            base[3]= Cnil;
2461            base[4]= (V106);
2462            vs_top=(vs_base=base+3)+2;
2463            return;
2464            goto T909;
2465    T909:;
2466            if(!(((V103))==(VV[93]))){
2467            goto T919;}
2468            if(!(((V102))==(VV[93]))){
2469            goto T922;}
2470            base[3]= Ct;
2471            base[4]= Ct;
2472            vs_top=(vs_base=base+3)+2;
2473            return;
2474            goto T922;
2475    T922:;
2476            base[3]= Cnil;
2477            base[4]= (V106);
2478            vs_top=(vs_base=base+3)+2;
2479            return;
2480            goto T919;
2481    T919:;
2482            if(!(((V103))==(VV[59]))){
2483            goto T929;}
2484            if(!(((V102))==(VV[59]))){
2485            goto T932;}
2486            base[3]= Ct;
2487            base[4]= Ct;
2488            vs_top=(vs_base=base+3)+2;
2489            return;
2490            goto T932;
2491    T932:;
2492            base[3]= Cnil;
2493            base[4]= (V106);
2494            vs_top=(vs_base=base+3)+2;
2495            return;
2496            goto T929;
2497    T929:;
2498            if(!(((V103))==(VV[94]))){
2499            goto T939;}
2500            {register object x= (V102),V152= VV[95];
2501            while(!endp(V152))
2502            if(eql(x,V152->c.c_car)){
2503            goto T943;
2504            }else V152=V152->c.c_cdr;
2505            goto T942;}
2506            goto T943;
2507    T943:;
2508            base[3]= Ct;
2509            base[4]= Ct;
2510            vs_top=(vs_base=base+3)+2;
2511            return;
2512            goto T942;
2513    T942:;
2514            base[3]= Cnil;
2515            base[4]= (V106);
2516            vs_top=(vs_base=base+3)+2;
2517            return;
2518            goto T939;
2519    T939:;
2520            if(!(((V102))==(VV[94]))){
2521            goto T949;}
2522            base[3]= Cnil;
2523            base[4]= (V107);
2524            vs_top=(vs_base=base+3)+2;
2525            return;
2526            goto T949;
2527    T949:;
2528            if(((V103))==(VV[29])){
2529            goto T953;}
2530            if(!(((V103))==(VV[28]))){
2531            goto T954;}
2532            goto T953;
2533    T953:;
2534            if(((V102))==(VV[29])){
2535            goto T958;}
2536            if((get((V102),VV[36],Cnil))==Cnil){
2537            goto T959;}
2538            goto T958;
2539    T958:;
2540            base[3]= Ct;
2541            base[4]= Ct;
2542            vs_top=(vs_base=base+3)+2;
2543            return;
2544            goto T959;
2545    T959:;
2546            base[3]= Cnil;
2547            base[4]= (V106);
2548            vs_top=(vs_base=base+3)+2;
2549            return;
2550            goto T954;
2551    T954:;
2552            if(!(((V102))==(VV[29]))){
2553            goto T968;}
2554            base[3]= Cnil;
2555            base[4]= (V107);
2556            vs_top=(vs_base=base+3)+2;
2557            return;
2558            goto T968;
2559    T968:;
2560            V108= get((V102),VV[36],Cnil);
2561            if(((V108))==Cnil){
2562            goto T973;}
2563            {object V153;
2564            V153= get((V103),VV[36],Cnil);
2565            if(((V153))==Cnil){
2566            goto T978;}
2567            {register object V154;
2568            V154= (V108);
2569            goto T981;
2570    T981:;
2571            if(((V154))!=Cnil){
2572            goto T982;}
2573            base[3]= Cnil;
2574            base[4]= Ct;
2575            vs_top=(vs_base=base+3)+2;
2576            return;
2577            goto T982;
2578    T982:;
2579            if(!(((V154))==(V153))){
2580            goto T988;}
2581            base[3]= Ct;
2582            base[4]= Ct;
2583            vs_top=(vs_base=base+3)+2;
2584            return;
2585            goto T988;
2586    T988:;
2587            V154= structure_ref((V154),VV[36],4);
2588            goto T981;}
2589            goto T978;
2590    T978:;
2591            base[3]= Cnil;
2592            base[4]= (V107);
2593            vs_top=(vs_base=base+3)+2;
2594            return;}
2595            goto T973;
2596    T973:;
2597            if(!(((V103))==(VV[96]))){
2598            goto T999;}
2599            {register object x= (V102),V156= VV[97];
2600            while(!endp(V156))
2601            if(eql(x,V156->c.c_car)){
2602            goto T1004;
2603            }else V156=V156->c.c_cdr;
2604            goto T1002;}
2605            goto T1004;
2606    T1004:;
2607            if(((*(LnkLI148))((V104),(V105)))==Cnil){
2608            goto T1002;}
2609            base[3]= Ct;
2610            base[4]= Ct;
2611            vs_top=(vs_base=base+3)+2;
2612            return;
2613            goto T1002;
2614    T1002:;
2615            base[3]= Cnil;
2616            base[4]= (V106);
2617            vs_top=(vs_base=base+3)+2;
2618            return;
2619            goto T999;
2620    T999:;
2621            if((get((V103),VV[36],Cnil))==Cnil){
2622            goto T1011;}
2623            base[3]= Cnil;
2624            base[4]= (V106);
2625            vs_top=(vs_base=base+3)+2;
2626            return;
2627            goto T1011;
2628    T1011:;
2629            {object V157= (V102);
2630            if((V157!= VV[32]))goto T1015;
2631            {object V158= (V103);
2632            if((V158!= VV[32]))goto T1016;
2633            base[3]= Ct;
2634            base[4]= Ct;
2635            vs_top=(vs_base=base+3)+2;
2636            return;
2637            goto T1016;
2638    T1016:;
2639            if((V158!= VV[13])
2640            && (V158!= VV[105]))goto T1019;
2641            if(((*(LnkLI148))(VV[98],(V105)))==Cnil){
2642            goto T1021;}
2643            base[3]= Ct;
2644            base[4]= Ct;
2645            vs_top=(vs_base=base+3)+2;
2646            return;
2647            goto T1021;
2648    T1021:;
2649            base[3]= Cnil;
2650            base[4]= Ct;
2651            vs_top=(vs_base=base+3)+2;
2652            return;
2653            goto T1019;
2654    T1019:;
2655            base[3]= Cnil;
2656            base[4]= (V107);
2657            vs_top=(vs_base=base+3)+2;
2658            return;}
2659            goto T1015;
2660    T1015:;
2661            if((V157!= VV[33]))goto T1029;
2662            {object V159= (V103);
2663            if((V159!= VV[105]))goto T1030;
2664            if(((*(LnkLI148))(VV[99],(V105)))==Cnil){
2665            goto T1032;}
2666            base[3]= Ct;
2667            base[4]= Ct;
2668            vs_top=(vs_base=base+3)+2;
2669            return;
2670            goto T1032;
2671    T1032:;
2672            base[3]= Cnil;
2673            base[4]= Ct;
2674            vs_top=(vs_base=base+3)+2;
2675            return;
2676            goto T1030;
2677    T1030:;
2678            base[3]= Cnil;
2679            base[4]= (V107);
2680            vs_top=(vs_base=base+3)+2;
2681            return;}
2682            goto T1029;
2683    T1029:;
2684            if((V157!= VV[126]))goto T1040;
2685            {register object x= (V103),V160= VV[100];
2686            while(!endp(V160))
2687            if(eql(x,V160->c.c_car)){
2688            goto T1043;
2689            }else V160=V160->c.c_cdr;
2690            goto T1042;}
2691            goto T1043;
2692    T1043:;
2693            base[3]= Ct;
2694            base[4]= Ct;
2695            vs_top=(vs_base=base+3)+2;
2696            return;
2697            goto T1042;
2698    T1042:;
2699            base[3]= Cnil;
2700            base[4]= (V107);
2701            vs_top=(vs_base=base+3)+2;
2702            return;
2703            goto T1040;
2704    T1040:;
2705            if((V157!= VV[25]))goto T1048;
2706            {register object x= (V103),V161= VV[101];
2707            while(!endp(V161))
2708            if(eql(x,V161->c.c_car)){
2709            goto T1051;
2710            }else V161=V161->c.c_cdr;
2711            goto T1050;}
2712            goto T1051;
2713    T1051:;
2714            base[3]= Ct;
2715            base[4]= Ct;
2716            vs_top=(vs_base=base+3)+2;
2717            return;
2718            goto T1050;
2719    T1050:;
2720            base[3]= Cnil;
2721            base[4]= (V107);
2722            vs_top=(vs_base=base+3)+2;
2723            return;
2724            goto T1048;
2725    T1048:;
2726            if((V157!= VV[149]))goto T1056;
2727            {register object x= (V103),V162= VV[102];
2728            while(!endp(V162))
2729            if(eql(x,V162->c.c_car)){
2730            goto T1059;
2731            }else V162=V162->c.c_cdr;
2732            goto T1058;}
2733            goto T1059;
2734    T1059:;
2735            base[3]= Ct;
2736            base[4]= Ct;
2737            vs_top=(vs_base=base+3)+2;
2738            return;
2739            goto T1058;
2740    T1058:;
2741            base[3]= Cnil;
2742            base[4]= (V107);
2743            vs_top=(vs_base=base+3)+2;
2744            return;
2745            goto T1056;
2746    T1056:;
2747            if((V157!= VV[24]))goto T1064;
2748            if(!(((V103))==(VV[103]))){
2749            goto T1066;}
2750            base[3]= Ct;
2751            base[4]= Ct;
2752            vs_top=(vs_base=base+3)+2;
2753            return;
2754            goto T1066;
2755    T1066:;
2756            base[3]= Cnil;
2757            base[4]= (V107);
2758            vs_top=(vs_base=base+3)+2;
2759            return;
2760            goto T1064;
2761    T1064:;
2762            if((V157!= VV[103]))goto T1072;
2763            if(!(((V103))==(VV[24]))){
2764            goto T1074;}
2765            base[3]= Ct;
2766            base[4]= Ct;
2767            vs_top=(vs_base=base+3)+2;
2768            return;
2769            goto T1074;
2770    T1074:;
2771            base[3]= Cnil;
2772            base[4]= (V107);
2773            vs_top=(vs_base=base+3)+2;
2774            return;
2775            goto T1072;
2776    T1072:;
2777            if((V157!= VV[13]))goto T1080;
2778            {register object x= (V103),V163= VV[104];
2779            while(!endp(V163))
2780            if(eql(x,V163->c.c_car)){
2781            goto T1083;
2782            }else V163=V163->c.c_cdr;
2783            goto T1082;}
2784            goto T1083;
2785    T1083:;
2786            base[3]= (*(LnkLI148))((V104),(V105));
2787            base[4]= Ct;
2788            vs_top=(vs_base=base+3)+2;
2789            return;
2790            goto T1082;
2791    T1082:;
2792            base[3]= Cnil;
2793            base[4]= (V107);
2794            vs_top=(vs_base=base+3)+2;
2795            return;
2796            goto T1080;
2797    T1080:;
2798            if((V157!= VV[105]))goto T1088;
2799            if(!(((V103))==(VV[105]))){
2800            goto T1090;}
2801            base[3]= (*(LnkLI148))((V104),(V105));
2802            base[4]= Ct;
2803            vs_top=(vs_base=base+3)+2;
2804            return;
2805            goto T1090;
2806    T1090:;
2807            base[3]= Cnil;
2808            base[4]= (V107);
2809            vs_top=(vs_base=base+3)+2;
2810            return;
2811            goto T1088;
2812    T1088:;
2813            if((V157!= VV[106]))goto T1096;
2814            if(!(((V103))==(VV[106]))){
2815            goto T1098;}
2816            base[3]= (*(LnkLI148))((V104),(V105));
2817            base[4]= Ct;
2818            vs_top=(vs_base=base+3)+2;
2819            return;
2820            goto T1098;
2821    T1098:;
2822            base[3]= Cnil;
2823            base[4]= (V107);
2824            vs_top=(vs_base=base+3)+2;
2825            return;
2826            goto T1096;
2827    T1096:;
2828            if((V157!= VV[34]))goto T1104;
2829            {register object x= (V103),V164= VV[107];
2830            while(!endp(V164))
2831            if(eql(x,V164->c.c_car)){
2832            goto T1107;
2833            }else V164=V164->c.c_cdr;
2834            goto T1106;}
2835            goto T1107;
2836    T1107:;
2837            base[3]= (*(LnkLI148))((V104),(V105));
2838            base[4]= Ct;
2839            vs_top=(vs_base=base+3)+2;
2840            return;
2841            goto T1106;
2842    T1106:;
2843            base[3]= Cnil;
2844            base[4]= (V107);
2845            vs_top=(vs_base=base+3)+2;
2846            return;
2847            goto T1104;
2848    T1104:;
2849            if((V157!= VV[130])
2850            && (V157!= VV[131])
2851            && (V157!= VV[35]))goto T1112;
2852            {register object x= (V103),V165= VV[108];
2853            while(!endp(V165))
2854            if(eql(x,V165->c.c_car)){
2855            goto T1115;
2856            }else V165=V165->c.c_cdr;
2857            goto T1114;}
2858            goto T1115;
2859    T1115:;
2860            base[3]= (*(LnkLI148))((V104),(V105));
2861            base[4]= Ct;
2862            vs_top=(vs_base=base+3)+2;
2863            return;
2864            goto T1114;
2865    T1114:;
2866            base[3]= Cnil;
2867            base[4]= (V107);
2868            vs_top=(vs_base=base+3)+2;
2869            return;
2870            goto T1112;
2871    T1112:;
2872            if((V157!= VV[109]))goto T1120;
2873            if(!(((V103))==(VV[109]))){
2874            goto T1122;}{object V166;
2875            V166= car((V104));
2876            if(V166==Cnil)goto T1125;
2877            base[3]= V166;
2878            goto T1124;
2879            goto T1125;
2880    T1125:;}
2881            base[3]= Ct;
2882            goto T1124;
2883    T1124:;{object V167;
2884            V167= car((V105));
2885            if(V167==Cnil)goto T1128;
2886            base[4]= V167;
2887            goto T1127;
2888            goto T1128;
2889    T1128:;}
2890            base[4]= Ct;
2891            goto T1127;
2892    T1127:;
2893            vs_top=(vs_base=base+3)+2;
2894            (void) (*Lnk146)();
2895            return;
2896            goto T1122;
2897    T1122:;
2898            base[3]= Cnil;
2899            base[4]= (V107);
2900            vs_top=(vs_base=base+3)+2;
2901            return;
2902            goto T1120;
2903    T1120:;
2904            if((V157!= VV[27]))goto T1132;
2905            if(((V103))==(VV[27])){
2906            goto T1133;}
2907            if(!(((V103))==(VV[22]))){
2908            goto T1134;}
2909            goto T1133;
2910    T1133:;
2911            if(endp_prop((V104))){
2912            goto T1139;}
2913            if(!((car((V104)))==(VV[17]))){
2914            goto T1140;}
2915            goto T1139;
2916    T1139:;
2917            if(endp_prop((V105))){
2918            goto T1138;}
2919            if((car((V105)))==(VV[17])){
2920            goto T1138;}
2921            base[3]= Cnil;
2922            base[4]= Ct;
2923            vs_top=(vs_base=base+3)+2;
2924            return;
2925            goto T1140;
2926    T1140:;
2927            if(endp_prop((V105))){
2928            goto T1138;}
2929            if((car((V105)))==(VV[17])){
2930            goto T1138;}
2931            if(equal(car((V104)),car((V105)))){
2932            goto T1138;}
2933            if(!((car((V104)))==(VV[25]))){
2934            goto T1154;}
2935            if((car((V105)))==(VV[24])){
2936            goto T1138;}
2937            goto T1154;
2938    T1154:;
2939            base[3]= Cnil;
2940            base[4]= Ct;
2941            vs_top=(vs_base=base+3)+2;
2942            return;
2943            goto T1138;
2944    T1138:;
2945            if(endp_prop(cdr((V104)))){
2946            goto T1163;}
2947            if(!((cadr((V104)))==(VV[17]))){
2948            goto T1162;}
2949            goto T1163;
2950    T1163:;
2951            if(endp_prop(cdr((V105)))){
2952            goto T1167;}
2953            if(!((cadr((V105)))==(VV[17]))){
2954            goto T1168;}
2955            goto T1167;
2956    T1167:;
2957            base[3]= Ct;
2958            base[4]= Ct;
2959            vs_top=(vs_base=base+3)+2;
2960            return;
2961            goto T1168;
2962    T1168:;
2963            base[3]= Cnil;
2964            base[4]= Ct;
2965            vs_top=(vs_base=base+3)+2;
2966            return;
2967            goto T1162;
2968    T1162:;
2969            if(endp_prop(cdr((V105)))){
2970            goto T1177;}
2971            if(!((cadr((V105)))==(VV[17]))){
2972            goto T1176;}
2973            goto T1177;
2974    T1177:;
2975            base[3]= Ct;
2976            base[4]= Ct;
2977            vs_top=(vs_base=base+3)+2;
2978            return;
2979            goto T1176;
2980    T1176:;
2981            base[3]= (*(LnkLI134))(cadr((V104)),cadr((V105)));
2982            base[4]= Ct;
2983            vs_top=(vs_base=base+3)+2;
2984            return;
2985            goto T1134;
2986    T1134:;
2987            base[3]= Cnil;
2988            base[4]= (V107);
2989            vs_top=(vs_base=base+3)+2;
2990            return;
2991            goto T1132;
2992    T1132:;
2993            if((V157!= VV[22]))goto T1187;
2994            if(!(((V103))==(VV[22]))){
2995            goto T1189;}
2996            if(endp_prop((V104))){
2997            goto T1192;}
2998            if(!((car((V104)))==(VV[17]))){
2999            goto T1193;}
3000            goto T1192;
3001    T1192:;
3002            if(endp_prop((V105))){
3003            goto T1191;}
3004            if((car((V105)))==(VV[17])){
3005            goto T1191;}
3006            base[3]= Cnil;
3007            base[4]= Ct;
3008            vs_top=(vs_base=base+3)+2;
3009            return;
3010            goto T1193;
3011    T1193:;
3012            if(endp_prop((V105))){
3013            goto T1191;}
3014            if((car((V105)))==(VV[17])){
3015            goto T1191;}
3016            if(equal(car((V104)),car((V105)))){
3017            goto T1191;}
3018            if(!((car((V104)))==(VV[25]))){
3019            goto T1207;}
3020            if((car((V105)))==(VV[24])){
3021            goto T1191;}
3022            goto T1207;
3023    T1207:;
3024            base[3]= Cnil;
3025            base[4]= Ct;
3026            vs_top=(vs_base=base+3)+2;
3027            return;
3028            goto T1191;
3029    T1191:;
3030            if(endp_prop(cdr((V104)))){
3031            goto T1216;}
3032            if(!((cadr((V104)))==(VV[17]))){
3033            goto T1215;}
3034            goto T1216;
3035    T1216:;
3036            if(endp_prop(cdr((V105)))){
3037            goto T1220;}
3038            if(!((cadr((V105)))==(VV[17]))){
3039            goto T1221;}
3040            goto T1220;
3041    T1220:;
3042            base[3]= Ct;
3043            base[4]= Ct;
3044            vs_top=(vs_base=base+3)+2;
3045            return;
3046            goto T1221;
3047    T1221:;
3048            base[3]= Cnil;
3049            base[4]= Ct;
3050            vs_top=(vs_base=base+3)+2;
3051            return;
3052            goto T1215;
3053    T1215:;
3054            if(endp_prop(cdr((V105)))){
3055            goto T1230;}
3056            if(!((cadr((V105)))==(VV[17]))){
3057            goto T1229;}
3058            goto T1230;
3059    T1230:;
3060            base[3]= Ct;
3061            base[4]= Ct;
3062            vs_top=(vs_base=base+3)+2;
3063            return;
3064            goto T1229;
3065    T1229:;
3066            base[3]= (*(LnkLI134))(cadr((V104)),cadr((V105)));
3067            base[4]= Ct;
3068            vs_top=(vs_base=base+3)+2;
3069            return;
3070            goto T1189;
3071    T1189:;
3072            base[3]= Cnil;
3073            base[4]= (V107);
3074            vs_top=(vs_base=base+3)+2;
3075            return;
3076            goto T1187;
3077    T1187:;
3078            if(((V106))==Cnil){
3079            goto T1241;}
3080            base[3]= (((V102))==((V103))?Ct:Cnil);
3081            base[4]= Ct;
3082            vs_top=(vs_base=base+3)+2;
3083            return;
3084            goto T1241;
3085    T1241:;
3086            base[3]= Cnil;
3087            base[4]= Cnil;
3088            vs_top=(vs_base=base+3)+2;
3089            return;}}
3090            }
3091    }
3092    /*      local entry for function SUB-INTERVAL-P */
3093    
3094    static object LI28(V170,V171)
3095    
3096    register object V170;register object V171;
3097    {        VMB28 VMS28 VMV28
3098            goto TTL;
3099    TTL:;
3100            {register object V172;
3101            register object V173;
3102            register object V174;
3103            register object V175;
3104            V172= Cnil;
3105            V173= Cnil;
3106            V174= Cnil;
3107            V175= Cnil;
3108            if(!(endp_prop((V170)))){
3109            goto T1249;}
3110            V172= VV[17];
3111            V173= VV[17];
3112            goto T1247;
3113            goto T1249;
3114    T1249:;
3115            if(!(endp_prop(cdr((V170))))){
3116            goto T1255;}
3117            V172= car((V170));
3118            V173= VV[17];
3119            goto T1247;
3120            goto T1255;
3121    T1255:;
3122            V172= car((V170));
3123            V173= cadr((V170));
3124            goto T1247;
3125    T1247:;
3126            if(!(endp_prop((V171)))){
3127            goto T1265;}
3128            V174= VV[17];
3129            V175= VV[17];
3130            goto T1263;
3131            goto T1265;
3132    T1265:;
3133            if(!(endp_prop(cdr((V171))))){
3134            goto T1271;}
3135            V174= car((V171));
3136            V175= VV[17];
3137            goto T1263;
3138            goto T1271;
3139    T1271:;
3140            V174= car((V171));
3141            V175= cadr((V171));
3142            goto T1263;
3143    T1263:;
3144            if(!(((V172))==(VV[17]))){
3145            goto T1281;}
3146            if(((V174))==(VV[17])){
3147            goto T1279;}
3148            {object V176 = Cnil;
3149            VMR28(V176)}
3150            goto T1281;
3151    T1281:;
3152            {object V177;
3153            V177= (((V174))==(VV[17])?Ct:Cnil);
3154            if(((V177))==Cnil){
3155            goto T1287;}
3156            goto T1279;
3157            goto T1287;
3158    T1287:;
3159            if(!(type_of((V172))==t_cons)){
3160            goto T1290;}
3161            if(!(type_of((V174))==t_cons)){
3162            goto T1293;}
3163            if(!(number_compare(car((V172)),car((V174)))<0)){
3164            goto T1279;}
3165            {object V178 = Cnil;
3166            VMR28(V178)}
3167            goto T1293;
3168    T1293:;
3169            if(!(number_compare(car((V172)),(V174))<0)){
3170            goto T1279;}
3171            {object V179 = Cnil;
3172            VMR28(V179)}
3173            goto T1290;
3174    T1290:;
3175            {object V180;
3176            if(!(type_of((V174))==t_cons)){
3177            goto T1301;}
3178            if(!(number_compare((V172),car((V174)))<=0)){
3179            goto T1304;}
3180            {object V181 = Cnil;
3181            VMR28(V181)}
3182            goto T1304;
3183    T1304:;
3184            V180= Cnil;
3185            goto T1299;
3186            goto T1301;
3187    T1301:;
3188            if(!(number_compare((V172),(V174))<0)){
3189            goto T1307;}
3190            {object V182 = Cnil;
3191            VMR28(V182)}
3192            goto T1307;
3193    T1307:;
3194            V180= Cnil;
3195            goto T1299;
3196    T1299:;
3197            if(((V180))==Cnil){
3198            goto T1279;}}}
3199            goto T1279;
3200    T1279:;
3201            if(!(((V173))==(VV[17]))){
3202            goto T1313;}
3203            if(((V175))==(VV[17])){
3204            goto T1311;}
3205            {object V183 = Cnil;
3206            VMR28(V183)}
3207            goto T1313;
3208    T1313:;
3209            {object V184;
3210            V184= (((V175))==(VV[17])?Ct:Cnil);
3211            if(((V184))==Cnil){
3212            goto T1319;}
3213            goto T1311;
3214            goto T1319;
3215    T1319:;
3216            if(!(type_of((V173))==t_cons)){
3217            goto T1322;}
3218            if(!(type_of((V175))==t_cons)){
3219            goto T1325;}
3220            if(!(number_compare(car((V173)),car((V175)))>0)){
3221            goto T1311;}
3222            {object V185 = Cnil;
3223            VMR28(V185)}
3224            goto T1325;
3225    T1325:;
3226            if(!(number_compare(car((V173)),(V175))>0)){
3227            goto T1311;}
3228            {object V186 = Cnil;
3229            VMR28(V186)}
3230            goto T1322;
3231    T1322:;
3232            {object V187;
3233            if(!(type_of((V175))==t_cons)){
3234            goto T1333;}
3235            if(!(number_compare((V173),car((V175)))>=0)){
3236            goto T1336;}
3237            {object V188 = Cnil;
3238            VMR28(V188)}
3239            goto T1336;
3240    T1336:;
3241            V187= Cnil;
3242            goto T1331;
3243            goto T1333;
3244    T1333:;
3245            if(!(number_compare((V173),(V175))>0)){
3246            goto T1339;}
3247            {object V189 = Cnil;
3248            VMR28(V189)}
3249            goto T1339;
3250    T1339:;
3251            V187= Cnil;
3252            goto T1331;
3253    T1331:;
3254            if(((V187))==Cnil){
3255            goto T1311;}}}
3256            goto T1311;
3257    T1311:;
3258            {object V190 = Ct;
3259            VMR28(V190)}}
3260            return Cnil;
3261    }
3262    /*      local entry for function IN-INTERVAL-P  */
3263    
3264    static object LI29(V193,V194)
3265    
3266    register object V193;register object V194;
3267    {        VMB29 VMS29 VMV29
3268            goto TTL;
3269    TTL:;
3270            {register object V195;
3271            register object V196;
3272            V195= Cnil;
3273            V196= Cnil;
3274            if(!(endp_prop((V194)))){
3275            goto T1345;}
3276            V195= VV[17];
3277            V196= VV[17];
3278            goto T1343;
3279            goto T1345;
3280    T1345:;
3281            if(!(endp_prop(cdr((V194))))){
3282            goto T1351;}
3283            V195= car((V194));
3284            V196= VV[17];
3285            goto T1343;
3286            goto T1351;
3287    T1351:;
3288            V195= car((V194));
3289            V196= cadr((V194));
3290            goto T1343;
3291    T1343:;
3292            {object V197;
3293            V197= (((V195))==(VV[17])?Ct:Cnil);
3294            if(((V197))==Cnil){
3295            goto T1362;}
3296            goto T1359;
3297            goto T1362;
3298    T1362:;
3299            if(!(type_of((V195))==t_cons)){
3300            goto T1365;}
3301            if(!(number_compare((V193),car((V195)))<=0)){
3302            goto T1359;}
3303            {object V198 = Cnil;
3304            VMR29(V198)}
3305            goto T1365;
3306    T1365:;
3307            {object V199;
3308            if(!(number_compare((V193),(V195))<0)){
3309            goto T1371;}
3310            {object V200 = Cnil;
3311            VMR29(V200)}
3312            goto T1371;
3313    T1371:;
3314            V199= Cnil;
3315            if(((V199))==Cnil){
3316            goto T1359;}}}
3317            goto T1359;
3318    T1359:;
3319            {object V201;
3320            V201= (((V196))==(VV[17])?Ct:Cnil);
3321            if(((V201))==Cnil){
3322            goto T1378;}
3323            goto T1375;
3324            goto T1378;
3325    T1378:;
3326            if(!(type_of((V196))==t_cons)){
3327            goto T1381;}
3328            if(!(number_compare((V193),car((V196)))>=0)){
3329            goto T1375;}
3330            {object V202 = Cnil;
3331            VMR29(V202)}
3332            goto T1381;
3333    T1381:;
3334            {object V203;
3335            if(!(number_compare((V193),(V196))>0)){
3336            goto T1387;}
3337            {object V204 = Cnil;
3338            VMR29(V204)}
3339            goto T1387;
3340    T1387:;
3341            V203= Cnil;
3342            if(((V203))==Cnil){
3343            goto T1375;}}}
3344            goto T1375;
3345    T1375:;
3346            {object V205 = Ct;
3347            VMR29(V205)}}
3348            return Cnil;
3349    }
3350    /*      local entry for function MATCH-DIMENSIONS       */
3351    
3352    static object LI30(V208,V209)
3353    
3354    object V208;register object V209;
3355    {        VMB30 VMS30 VMV30
3356            goto TTL;
3357    TTL:;
3358            if(((V208))!=Cnil){
3359            goto T1392;}
3360            {object V210 = (((V209))==Cnil?Ct:Cnil);
3361            VMR30(V210)}
3362            goto T1392;
3363    T1392:;
3364            if(!((car((V209)))==(VV[17]))){
3365            goto T1396;}
3366            goto T1394;
3367            goto T1396;
3368    T1396:;
3369            if(eql(car((V208)),car((V209)))){
3370            goto T1394;}
3371            {object V211 = Cnil;
3372            VMR30(V211)}
3373            goto T1394;
3374    T1394:;
3375            V208= cdr((V208));
3376            V209= cdr((V209));
3377            goto TTL;
3378            return Cnil;
3379    }
3380    /*      local entry for function COERCE */
3381    
3382    static object LI31(V214,V215)
3383    
3384    register object V214;object V215;
3385    {        VMB31 VMS31 VMV31
3386            goto TTL;
3387    TTL:;
3388            base[0]= (V214);
3389            base[1]= (V215);
3390            vs_top=(vs_base=base+0)+2;
3391            (void) (*Lnk125)();
3392            vs_top=sup;
3393            if((vs_base[0])==Cnil){
3394            goto T1401;}
3395            {object V216 = (V214);
3396            VMR31(V216)}
3397            goto T1401;
3398    T1401:;
3399            base[0]= (V215);
3400            vs_top=(vs_base=base+0)+1;
3401            (void) (*Lnk122)();
3402            vs_top=sup;
3403            if((vs_base[0])==Cnil){
3404            goto T1406;}
3405            base[0]= VV[110];
3406            base[1]= VV[111];
3407            base[2]= (V214);
3408            base[3]= (V215);
3409            vs_top=(vs_base=base+0)+4;
3410            (void) (*Lnk150)();
3411            vs_top=sup;
3412            goto T1406;
3413    T1406:;
3414            V215= (*(LnkLI145))((V215));
3415            {object V217= car((V215));
3416            if((V217!= VV[47]))goto T1416;
3417            {register object V218;
3418            register object V219;
3419            V220 = make_fixnum((long)length((V214)));
3420            V219= one_minus(V220);
3421            V218= Cnil;
3422            goto T1419;
3423    T1419:;
3424            if(!(number_compare((V219),small_fixnum(0))<0)){
3425            goto T1420;}
3426            {object V221 = (V218);
3427            VMR31(V221)}
3428            goto T1420;
3429    T1420:;
3430            V222= elt((V214),fixint((V219)));
3431            V218= make_cons(/* INLINE-ARGS */V222,(V218));
3432            V219= one_minus((V219));
3433            goto T1419;}
3434            goto T1416;
3435    T1416:;
3436            if((V217!= VV[22])
3437            && (V217!= VV[27]))goto T1428;
3438            if(endp_prop(cdr((V215)))){
3439            goto T1429;}
3440            if(endp_prop(cddr((V215)))){
3441            goto T1429;}
3442            if((caddr((V215)))==(VV[17])){
3443            goto T1429;}
3444            if(endp_prop(cdr(caddr((V215))))){
3445            goto T1429;}
3446            base[0]= VV[112];
3447            vs_top=(vs_base=base+0)+1;
3448            Lerror();
3449            vs_top=sup;
3450            goto T1429;
3451    T1429:;
3452            {register object V223;
3453            register object V224;
3454            register object V225;
3455            V226 = make_fixnum((long)length((V214)));
3456            V223= (VFUN_NARGS=2,(*(LnkLI151))((V215),V226));
3457            V225= make_fixnum((long)length((V214)));
3458            V224= small_fixnum(0);
3459            goto T1442;
3460    T1442:;
3461            if(!(number_compare((V224),(V225))>=0)){
3462            goto T1443;}
3463            {object V227 = (V223);
3464            VMR31(V227)}
3465            goto T1443;
3466    T1443:;
3467            V228= elt((V214),fixint((V224)));
3468            (void)(elt_set((V223),fixint((V224)),/* INLINE-ARGS */V228));
3469            V224= one_plus((V224));
3470            goto T1442;}
3471            goto T1428;
3472    T1428:;
3473            if((V217!= VV[103]))goto T1451;
3474            base[0]= (V214);
3475            vs_top=(vs_base=base+0)+1;
3476            Lcharacter();
3477            vs_top=sup;
3478            {object V229 = vs_base[0];
3479            VMR31(V229)}
3480            goto T1451;
3481    T1451:;
3482            if((V217!= VV[106]))goto T1453;
3483            base[0]= (V214);
3484            vs_top=(vs_base=base+0)+1;
3485            Lfloat();
3486            vs_top=sup;
3487            {object V230 = vs_base[0];
3488            VMR31(V230)}
3489            goto T1453;
3490    T1453:;
3491            if((V217!= VV[34]))goto T1455;
3492            base[0]= (V214);
3493            base[1]= VV[113];
3494            vs_top=(vs_base=base+0)+2;
3495            Lfloat();
3496            vs_top=sup;
3497            {object V231 = vs_base[0];
3498            VMR31(V231)}
3499            goto T1455;
3500    T1455:;
3501            if((V217!= VV[130])
3502            && (V217!= VV[131])
3503            && (V217!= VV[35]))goto T1458;
3504            base[0]= (V214);
3505            base[1]= VV[114];
3506            vs_top=(vs_base=base+0)+2;
3507            Lfloat();
3508            vs_top=sup;
3509            {object V232 = vs_base[0];
3510            VMR31(V232)}
3511            goto T1458;
3512    T1458:;
3513            if((V217!= VV[109]))goto T1461;
3514            if((cdr((V215)))==Cnil){
3515            goto T1462;}
3516            if((cadr((V215)))==Cnil){
3517            goto T1462;}
3518            if(!((cadr((V215)))==(VV[17]))){
3519            goto T1463;}
3520            goto T1462;
3521    T1462:;
3522            base[1]= (V214);
3523            vs_top=(vs_base=base+1)+1;
3524            Lrealpart();
3525            vs_top=sup;
3526            base[0]= vs_base[0];
3527            base[2]= (V214);
3528            vs_top=(vs_base=base+2)+1;
3529            Limagpart();
3530            vs_top=sup;
3531            base[1]= vs_base[0];
3532            vs_top=(vs_base=base+0)+2;
3533            Lcomplex();
3534            vs_top=sup;
3535            {object V233 = vs_base[0];
3536            VMR31(V233)}
3537            goto T1463;
3538    T1463:;
3539            base[1]= (V214);
3540            vs_top=(vs_base=base+1)+1;
3541            Lrealpart();
3542            vs_top=sup;
3543            V234= vs_base[0];
3544            base[0]= (*(LnkLI152))(V234,cadr((V215)));
3545            base[2]= (V214);
3546            vs_top=(vs_base=base+2)+1;
3547            Limagpart();
3548            vs_top=sup;
3549            V235= vs_base[0];
3550            base[1]= (*(LnkLI152))(V235,cadr((V215)));
3551            vs_top=(vs_base=base+0)+2;
3552            Lcomplex();
3553            vs_top=sup;
3554            {object V236 = vs_base[0];
3555            VMR31(V236)}
3556            goto T1461;
3557    T1461:;
3558            base[0]= VV[115];
3559            base[1]= (V214);
3560            base[2]= (V215);
3561            vs_top=(vs_base=base+0)+3;
3562            Lerror();
3563            vs_top=sup;
3564            {object V237 = vs_base[0];
3565            VMR31(V237)}}
3566            base[0]=base[0];
3567            return Cnil;
3568    }
3569    /*      function definition for WARN-VERSION    */
3570    
3571    static void L32()
3572    {register object *base=vs_base;
3573            register object *sup=base+VM32; VC32
3574            vs_reserve(VM32);
3575            {object V238;
3576            object V239;
3577            if(vs_top-vs_base<1) too_few_arguments();
3578            if(vs_top-vs_base>2) too_many_arguments();
3579            V238=(base[0]);
3580            vs_base=vs_base+1;
3581            if(vs_base>=vs_top){vs_top=sup;goto T1482;}
3582            V239=(base[1]);
3583            vs_top=sup;
3584            goto T1483;
3585            goto T1482;
3586    T1482:;
3587            V239= Cnil;
3588            goto T1483;
3589    T1483:;
3590            if(symbol_value(VV[116])==Cnil){
3591            base[2]= Cnil;
3592            vs_top=(vs_base=base+2)+1;
3593            return;}
3594            if(!(((eql((V238),symbol_value(VV[116]))?Ct:Cnil))==Cnil)){
3595            goto T1487;}
3596            goto T1485;
3597            goto T1487;
3598    T1487:;
3599            if(((eql((V239),symbol_value(VV[117]))?Ct:Cnil))==Cnil){
3600            goto T1485;}
3601            base[2]= Cnil;
3602            vs_top=(vs_base=base+2)+1;
3603            return;
3604            goto T1485;
3605    T1485:;
3606            if(symbol_value(VV[118])==Cnil){
3607            base[2]= Cnil;
3608            vs_top=(vs_base=base+2)+1;
3609            return;}
3610            base[2]= Ct;
3611            base[3]= VV[119];
3612            base[4]= (V239);
3613            base[5]= (V238);
3614            vs_top=(vs_base=base+2)+4;
3615            Lformat();
3616            return;
3617            }
3618    }
3619    static object  LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,2,first,ap);va_end(ap);return V1;} /* COERCE */
3620    static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[151],(void **)(void *)&LnkLI151,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
3621    static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* SPECIFIC-ERROR */
3622    static object  LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)(void *)&LnkLI148,2,first,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */
3623    static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)(void *)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */
3624    static void LnkT146(){ call_or_link(VV[146],(void **)(void *)&Lnk146);} /* SUBTYPEP */
3625    static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
3626    static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* FIND-CLASS */
3627    static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* STRUCTURE-SUBTYPE-P */
3628    static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,1,first,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */
3629    static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
3630    static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
3631    static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */
3632    static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* REALP */
3633    static void LnkT128(){ call_or_link(VV[128],(void **)(void *)&Lnk128);} /* RATIONALP */
3634    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;} /* IN-INTERVAL-P */
3635    static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* TYPEP */
3636    static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* CLASS-PRECEDENCE-LIST */
3637    static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* CLASS-OF */
3638    static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* CLASSP */
3639    static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* ARRAY-HAS-FILL-POINTER-P */
3640    static object  LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)(void *)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
3641    
3642    #ifdef SYSTEM_SPECIAL_INIT
3643    SYSTEM_SPECIAL_INIT
3644    #endif
3645    

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