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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26