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

Diff of /gcl/lsp/predlib.c

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

revision 1.9 by camm, Fri Oct 4 03:30:34 2002 UTC revision 1.10 by camm, Sat Oct 5 18:34:15 2002 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= (*(LnkLI81))(base[4]);          V13= (*(LnkLI119))(base[4]);
100          V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]);          V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]);
101          base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2]));          base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2]));
102          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 425  goto T77; Line 425  goto T77;
425  T77:;  T77:;
426          base[0]= (V32);          base[0]= (V32);
427          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
428          (void) (*Lnk82)();          (void) (*Lnk120)();
429          vs_top=sup;          vs_top=sup;
430          V34= vs_base[0];          V34= vs_base[0];
431          if((V34)==Cnil){          if((V34)==Cnil){
# Line 460  goto TTL; Line 460  goto TTL;
460  TTL:;  TTL:;
461          {register object V40;          {register object V40;
462          register object V41;          register object V41;
463          object V42;          register object V42;
464          V40= Cnil;          V40= Cnil;
465          V41= Cnil;          V41= Cnil;
466          V42= Cnil;          V42= Cnil;
# Line 475  T90:; Line 475  T90:;
475          V41= cdr((V39));          V41= cdr((V39));
476  goto T88;  goto T88;
477  T88:;  T88:;
478            if(!(((V40))==(VV[27]))){
479            goto T98;}
480            V40= VV[28];
481    goto T98;
482    T98:;
483          {object V43;          {object V43;
484          V43= get((V40),VV[27],Cnil);          V43= get((V40),VV[29],Cnil);
485          if(((V43))==Cnil){          if(((V43))==Cnil){
486          goto T98;}          goto T102;}
487          base[2]= (V38);          base[2]= (V38);
488          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
489          super_funcall_no_event((V43));          super_funcall_no_event((V43));
490          return;}          return;}
491  goto T98;  goto T102;
492  T98:;  T102:;
493          {object V44= (V40);          {object V44= (V40);
494          if((V44!= VV[36]))goto T103;          if((V44!= VV[40]))goto T107;
495          {register object x= (V38),V45= (V41);          {register object x= (V38),V45= (V41);
496          while(!endp(V45))          while(!endp(V45))
497          if(eql(x,V45->c.c_car)){          if(eql(x,V45->c.c_car)){
# Line 497  T98:; Line 502  T98:;
502          base[2]= Cnil;          base[2]= Cnil;
503          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
504          return;}          return;}
505  goto T103;  goto T107;
506  T103:;  T107:;
507          if((V44!= VV[39]))goto T104;          if((V44!= VV[43]))goto T108;
508          base[2]= (V38);          base[2]= (V38);
509          base[3]= car((V41));          base[3]= car((V41));
510          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
511          (void) (*Lnk83)();          (void) (*Lnk121)();
512          vs_top=sup;          vs_top=sup;
513          V46= vs_base[0];          V46= vs_base[0];
514          base[2]= ((V46)==Cnil?Ct:Cnil);          base[2]= ((V46)==Cnil?Ct:Cnil);
515          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
516          return;          return;
517  goto T104;  goto T108;
518  T104:;  T108:;
519          if((V44!= VV[37]))goto T108;          if((V44!= VV[41]))goto T112;
520          {register object V47;          {register object V47;
521          V47= (V41);          V47= (V41);
522  goto T110;  goto T114;
523  T110:;  T114:;
524          if(((V47))!=Cnil){          if(((V47))!=Cnil){
525          goto T111;}          goto T115;}
526          base[2]= Cnil;          base[2]= Cnil;
527          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
528          return;          return;
529  goto T111;  goto T115;
530  T111:;  T115:;
531          base[2]= (V38);          base[2]= (V38);
532          base[3]= car((V47));          base[3]= car((V47));
533          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
534          (void) (*Lnk83)();          (void) (*Lnk121)();
535          vs_top=sup;          vs_top=sup;
536          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
537          goto T115;}          goto T119;}
538          base[2]= Ct;          base[2]= Ct;
539          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
540          return;          return;
541  goto T115;  goto T119;
542  T115:;  T119:;
543          V47= cdr((V47));          V47= cdr((V47));
544          goto T110;}          goto T114;}
545  goto T108;  goto T112;
546  T108:;  T112:;
547          if((V44!= VV[38]))goto T123;          if((V44!= VV[42]))goto T127;
548          {register object V48;          {register object V48;
549          V48= (V41);          V48= (V41);
550  goto T125;  goto T129;
551  T125:;  T129:;
552          if(((V48))!=Cnil){          if(((V48))!=Cnil){
553          goto T126;}          goto T130;}
554          base[2]= Ct;          base[2]= Ct;
555          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
556          return;          return;
557  goto T126;  goto T130;
558  T126:;  T130:;
559          base[2]= (V38);          base[2]= (V38);
560          base[3]= car((V48));          base[3]= car((V48));
561          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
562          (void) (*Lnk83)();          (void) (*Lnk121)();
563          vs_top=sup;          vs_top=sup;
564          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
565          goto T130;}          goto T134;}
566          base[2]= Cnil;          base[2]= Cnil;
567          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
568          return;          return;
569  goto T130;  goto T134;
570  T130:;  T134:;
571          V48= cdr((V48));          V48= cdr((V48));
572          goto T125;}          goto T129;}
573  goto T123;  goto T127;
574  T123:;  T127:;
575          if((V44!= VV[84]))goto T138;          if((V44!= VV[39]))goto T142;
576          base[2]= car((V41));          base[2]= car((V41));
577          base[3]= (V38);          base[3]= (V38);
578          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
579          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
580          return;          return;
581  goto T138;  goto T142;
582  T138:;  T142:;
583          if((V44!= Ct))goto T141;          if((V44!= Ct))goto T145;
584          base[2]= Ct;          base[2]= Ct;
585          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
586          return;          return;
587  goto T141;  goto T145;
588  T141:;  T145:;
589          if((V44!= Cnil))goto T142;          if((V44!= Cnil))goto T146;
590          base[2]= Cnil;          base[2]= Cnil;
591          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
592          return;          return;
593  goto T142;  goto T146;
594  T142:;  T146:;
595          if((V44!= VV[85]))goto T143;          if((V44!= VV[56]))goto T147;
596          if(!(((V38))==(Ct))){          if(!(((V38))==(Ct))){
597          goto T144;}          goto T148;}
598          base[2]= Ct;          base[2]= Ct;
599          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
600          return;          return;
601  goto T144;  goto T148;
602  T144:;  T148:;
603          base[2]= (((V38))==(Cnil)?Ct:Cnil);          base[2]= (((V38))==(Cnil)?Ct:Cnil);
604          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
605          return;          return;
606  goto T143;  goto T147;
607  T143:;  T147:;
608          if((V44!= VV[28]))goto T146;          if((V44!= VV[30]))goto T150;
609          base[2]= (V38);          base[2]= (V38);
610          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
611          Ltype_of();          Ltype_of();
612          vs_top=sup;          vs_top=sup;
613          V49= vs_base[0];          V49= vs_base[0];
614          base[2]= ((V49)==(VV[28])?Ct:Cnil);          base[2]= ((V49)==(VV[30])?Ct:Cnil);
615          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
616          return;          return;
617  goto T146;  goto T150;
618  T146:;  T150:;
619          if((V44!= VV[29]))goto T149;          if((V44!= VV[31]))goto T153;
620          base[2]= (V38);          base[2]= (V38);
621          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
622          Ltype_of();          Ltype_of();
623          vs_top=sup;          vs_top=sup;
624          V50= vs_base[0];          V50= vs_base[0];
625          base[2]= ((V50)==(VV[29])?Ct:Cnil);          base[2]= ((V50)==(VV[31])?Ct:Cnil);
626          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
627          return;          return;
628  goto T149;  goto T153;
629  T149:;  T153:;
630          if((V44!= VV[30]))goto T152;          if((V44!= VV[32]))goto T156;
631          base[2]= (V38);          base[2]= (V38);
632          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
633          Ltype_of();          Ltype_of();
634          vs_top=sup;          vs_top=sup;
635          V51= vs_base[0];          V51= vs_base[0];
636          base[2]= ((V51)==(VV[30])?Ct:Cnil);          base[2]= ((V51)==(VV[32])?Ct:Cnil);
         vs_top=(vs_base=base+2)+1;  
         return;  
 goto T152;  
 T152:;  
         if((V44!= VV[86]))goto T155;  
         if(type_of((V38))==t_character){  
         goto T156;}  
         base[2]= Cnil;  
637          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
638          return;          return;
639  goto T156;  goto T156;
640  T156:;  T156:;
641          base[2]= (V38);          if((V44!= VV[122]))goto T159;
         vs_top=(vs_base=base+2)+1;  
         Lstandard_char_p();  
         return;  
 goto T155;  
 T155:;  
         if((V44!= VV[24]))goto T159;  
642          if(type_of((V38))==t_character){          if(type_of((V38))==t_character){
643          goto T160;}          goto T160;}
644          base[2]= Cnil;          base[2]= Cnil;
# Line 657  goto T160; Line 648  goto T160;
648  T160:;  T160:;
649          base[2]= (V38);          base[2]= (V38);
650          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
651          Lstring_char_p();          Lstandard_char_p();
652          return;          return;
653  goto T159;  goto T159;
654  T159:;  T159:;
655          if((V44!= VV[13]))goto T163;          if((V44!= VV[123])
656          if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){          && (V44!= VV[24]))goto T163;
657            if(type_of((V38))==t_character){
658          goto T164;}          goto T164;}
659          base[2]= Cnil;          base[2]= Cnil;
660          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
661          return;          return;
662  goto T164;  goto T164;
663  T164:;  T164:;
664          base[2]= (*(LnkLI87))((V38),(V41));          base[2]= (V38);
665          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
666            Lstring_char_p();
667          return;          return;
668  goto T163;  goto T163;
669  T163:;  T163:;
670          if((V44!= VV[68]))goto T166;          if((V44!= VV[13]))goto T167;
671          base[2]= (V38);          if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){
672          vs_top=(vs_base=base+2)+1;          goto T168;}
         (void) (*Lnk88)();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T167;}  
673          base[2]= Cnil;          base[2]= Cnil;
674          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
675          return;          return;
676  goto T167;  goto T168;
677  T167:;  T168:;
678          base[2]= (*(LnkLI87))((V38),(V41));          base[2]= (*(LnkLI124))((V38),(V41));
679          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
680          return;          return;
681  goto T166;  goto T167;
682  T166:;  T167:;
683          if((V44!= VV[57]))goto T170;          if((V44!= VV[106]))goto T170;
684          base[2]= (V38);          base[2]= (V38);
685          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
686          (void) (*Lnk89)();          (void) (*Lnk125)();
687          vs_top=sup;          vs_top=sup;
688          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
689          goto T171;}          goto T171;}
# Line 703  T166:; Line 692  T166:;
692          return;          return;
693  goto T171;  goto T171;
694  T171:;  T171:;
695          base[2]= (*(LnkLI87))((V38),(V41));          base[2]= (*(LnkLI124))((V38),(V41));
696          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
697          return;          return;
698  goto T170;  goto T170;
699  T170:;  T170:;
700          if((V44!= VV[69]))goto T174;          if((V44!= VV[95]))goto T174;
701          if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){          base[2]= (V38);
702            vs_top=(vs_base=base+2)+1;
703            (void) (*Lnk126)();
704            vs_top=sup;
705            if((vs_base[0])!=Cnil){
706          goto T175;}          goto T175;}
707          base[2]= Cnil;          base[2]= Cnil;
708          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
709          return;          return;
710  goto T175;  goto T175;
711  T175:;  T175:;
712          base[2]= (*(LnkLI87))((V38),(V41));          base[2]= (*(LnkLI124))((V38),(V41));
713          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
714          return;          return;
715  goto T174;  goto T174;
716  T174:;  T174:;
717          if((V44!= VV[31]))goto T177;          if((V44!= VV[107]))goto T178;
718            if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){
719            goto T179;}
720            base[2]= Cnil;
721            vs_top=(vs_base=base+2)+1;
722            return;
723    goto T179;
724    T179:;
725            base[2]= (*(LnkLI124))((V38),(V41));
726            vs_top=(vs_base=base+2)+1;
727            return;
728    goto T178;
729    T178:;
730            if((V44!= VV[33]))goto T181;
731          base[2]= (V38);          base[2]= (V38);
732          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
733          Ltype_of();          Ltype_of();
734          vs_top=sup;          vs_top=sup;
735          V52= vs_base[0];          V52= vs_base[0];
736          if((V52)==(VV[31])){          if((V52)==(VV[33])){
737          goto T178;}          goto T182;}
738          base[2]= Cnil;          base[2]= Cnil;
739          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
740          return;          return;
741  goto T178;  goto T182;
742  T178:;  T182:;
743          base[2]= (*(LnkLI87))((V38),(V41));          base[2]= (*(LnkLI124))((V38),(V41));
744          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
745          return;          return;
746  goto T177;  goto T181;
747  T177:;  T181:;
748          if((V44!= VV[90])          if((V44!= VV[127])
749          && (V44!= VV[91])          && (V44!= VV[128])
750          && (V44!= VV[32]))goto T182;          && (V44!= VV[34]))goto T186;
751          base[2]= (V38);          base[2]= (V38);
752          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
753          Ltype_of();          Ltype_of();
754          vs_top=sup;          vs_top=sup;
755          V53= vs_base[0];          V53= vs_base[0];
756          if((V53)==(VV[32])){          if((V53)==(VV[34])){
757          goto T183;}          goto T187;}
758          base[2]= Cnil;          base[2]= Cnil;
759          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
760          return;          return;
761  goto T183;  goto T187;
762  T183:;  T187:;
763          base[2]= (*(LnkLI87))((V38),(V41));          base[2]= (*(LnkLI124))((V38),(V41));
764          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
765          return;          return;
766  goto T182;  goto T186;
767  T182:;  T186:;
768          if((V44!= VV[72]))goto T187;          if((V44!= VV[110]))goto T191;
769          base[2]= (V38);          base[2]= (V38);
770          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
771          Lcomplexp();          Lcomplexp();
772          vs_top=sup;          vs_top=sup;
773          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
774          goto T188;}          goto T192;}
775          base[2]= Cnil;          base[2]= Cnil;
776          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
777          return;          return;
778  goto T188;  goto T192;
779  T188:;  T192:;
780          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
781          goto T191;}          goto T195;}
782          base[2]= Ct;          base[2]= Ct;
783          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
784          return;          return;
785  goto T191;  goto T195;
786  T191:;  T195:;
787          base[3]= (V38);          base[3]= (V38);
788          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
789          Lrealpart();          Lrealpart();
# Line 785  T191:; Line 791  T191:;
791          base[2]= vs_base[0];          base[2]= vs_base[0];
792          base[3]= car((V41));          base[3]= car((V41));
793          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
794          (void) (*Lnk83)();          (void) (*Lnk121)();
795          vs_top=sup;          vs_top=sup;
796          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
797          goto T193;}          goto T197;}
798          base[2]= Cnil;          base[2]= Cnil;
799          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
800          return;          return;
801  goto T193;  goto T197;
802  T193:;  T197:;
803          base[2]= (V38);          base[2]= (V38);
804          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
805          Limagpart();          Limagpart();
# Line 801  T193:; Line 807  T193:;
807          V38= vs_base[0];          V38= vs_base[0];
808          V39= car((V41));          V39= car((V41));
809          goto TTL;          goto TTL;
810  goto T187;  goto T191;
811  T187:;  T191:;
812          if((V44!= VV[43]))goto T202;          if((V44!= VV[47]))goto T206;
813          if(!(type_of((V38))==t_cons||((V38))==Cnil)){          if(!(type_of((V38))==t_cons||((V38))==Cnil)){
814          goto T203;}          goto T207;}
815          base[2]= Ct;          base[2]= Ct;
816          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
817          return;          return;
818  goto T203;  goto T207;
819  T203:;  T207:;
820          base[2]= (type_of((V38))==t_vector||          base[2]= (type_of((V38))==t_vector||
821  type_of((V38))==t_string||  type_of((V38))==t_string||
822  type_of((V38))==t_bitvector?Ct:Cnil);  type_of((V38))==t_bitvector?Ct:Cnil);
823          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
824          return;          return;
825  goto T202;  goto T206;
826  T202:;  T206:;
827          if((V44!= VV[92]))goto T205;          if((V44!= VV[129]))goto T209;
828          if(type_of((V38))==t_string){          if(type_of((V38))==t_string){
829          goto T206;}          goto T210;}
830          base[2]= Cnil;          base[2]= Cnil;
831          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
832          return;          return;
833  goto T206;  goto T210;
834  T206:;  T210:;
835          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
836          goto T208;}          goto T212;}
837          base[2]= Ct;          base[2]= Ct;
838          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
839          return;          return;
840  goto T208;  goto T212;
841  T208:;  T212:;
842          V54= (*(LnkLI94))((V38));          V54= (*(LnkLI131))((V38));
843          base[2]= (*(LnkLI93))(/* INLINE-ARGS */V54,(V41));          base[2]= (*(LnkLI130))(/* INLINE-ARGS */V54,(V41));
844          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
845          return;          return;
846  goto T205;  goto T209;
847  T205:;  T209:;
848          if((V44!= VV[95]))goto T210;          if((V44!= VV[132]))goto T214;
849          if((type_of((V38))==t_bitvector)){          if((type_of((V38))==t_bitvector)){
850          goto T211;}          goto T215;}
851          base[2]= Cnil;          base[2]= Cnil;
852          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
853          return;          return;
854  goto T211;  goto T215;
855  T211:;  T215:;
856          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
857          goto T213;}          goto T217;}
858          base[2]= Ct;          base[2]= Ct;
859          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
860          return;          return;
861  goto T213;  goto T217;
862  T213:;  T217:;
863          V55= (*(LnkLI94))((V38));          V55= (*(LnkLI131))((V38));
864          base[2]= (*(LnkLI93))(/* INLINE-ARGS */V55,(V41));          base[2]= (*(LnkLI130))(/* INLINE-ARGS */V55,(V41));
865          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
866          return;          return;
867  goto T210;  goto T214;
868  T210:;  T214:;
869          if((V44!= VV[96]))goto T215;          if((V44!= VV[133]))goto T219;
870          base[2]= (V38);          base[2]= (V38);
871          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
872          Lsimple_string_p();          Lsimple_string_p();
873          vs_top=sup;          vs_top=sup;
874          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
875          goto T216;}          goto T220;}
876          base[2]= Cnil;          base[2]= Cnil;
877          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
878          return;          return;
879  goto T216;  goto T220;
880  T216:;  T220:;
881          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
882          goto T219;}          goto T223;}
883          base[2]= Ct;          base[2]= Ct;
884          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
885          return;          return;
886  goto T219;  goto T223;
887  T219:;  T223:;
888          V56= (*(LnkLI94))((V38));          V56= (*(LnkLI131))((V38));
889          base[2]= (*(LnkLI93))(/* INLINE-ARGS */V56,(V41));          base[2]= (*(LnkLI130))(/* INLINE-ARGS */V56,(V41));
890          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
891          return;          return;
892  goto T215;  goto T219;
893  T215:;  T219:;
894          if((V44!= VV[97]))goto T221;          if((V44!= VV[134]))goto T225;
895          base[2]= (V38);          base[2]= (V38);
896          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
897          Lsimple_bit_vector_p();          Lsimple_bit_vector_p();
898          vs_top=sup;          vs_top=sup;
899          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
900          goto T222;}          goto T226;}
901          base[2]= Cnil;          base[2]= Cnil;
902          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
903          return;          return;
904  goto T222;  goto T226;
905  T222:;  T226:;
906          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
907          goto T225;}          goto T229;}
908          base[2]= Ct;          base[2]= Ct;
909          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
910          return;          return;
911  goto T225;  goto T229;
912  T225:;  T229:;
913          V57= (*(LnkLI94))((V38));          V57= (*(LnkLI131))((V38));
914          base[2]= (*(LnkLI93))(/* INLINE-ARGS */V57,(V41));          base[2]= (*(LnkLI130))(/* INLINE-ARGS */V57,(V41));
915          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
916          return;          return;
917  goto T221;  goto T225;
918  T221:;  T225:;
919          if((V44!= VV[98]))goto T227;          if((V44!= VV[135]))goto T231;
920          base[2]= (V38);          base[2]= (V38);
921          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
922          Lsimple_vector_p();          Lsimple_vector_p();
923          vs_top=sup;          vs_top=sup;
924          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
925          goto T228;}          goto T232;}
926          base[2]= Cnil;          base[2]= Cnil;
927          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
928          return;          return;
929  goto T228;  goto T232;
930  T228:;  T232:;
931          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
932          goto T231;}          goto T235;}
933          base[2]= Ct;          base[2]= Ct;
934          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
935          return;          return;
936  goto T231;  goto T235;
937  T231:;  T235:;
938          V58= (*(LnkLI94))((V38));          V58= (*(LnkLI131))((V38));
939          base[2]= (*(LnkLI93))(/* INLINE-ARGS */V58,(V41));          base[2]= (*(LnkLI130))(/* INLINE-ARGS */V58,(V41));
940          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
941          return;          return;
942  goto T227;  goto T231;
943  T227:;  T231:;
944          if((V44!= VV[26]))goto T233;          if((V44!= VV[26]))goto T237;
945          if(((*(LnkLI99))((V38)))!=Cnil){          if(((*(LnkLI136))((V38)))!=Cnil){
946          goto T234;}          goto T238;}
947          base[2]= Cnil;          base[2]= Cnil;
948          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
949          return;          return;
 goto T234;  
 T234:;  
         if(!(endp_prop((V41)))){  
         goto T238;}  
         goto T236;  
950  goto T238;  goto T238;
951  T238:;  T238:;
952            if(!(endp_prop((V41)))){
953            goto T242;}
954            goto T240;
955    goto T242;
956    T242:;
957          if(!((car((V41)))==(VV[17]))){          if(!((car((V41)))==(VV[17]))){
958          goto T240;}          goto T244;}
959          goto T236;          goto T240;
960  goto T240;  goto T244;
961  T240:;  T244:;
962          base[2]= (V38);          base[2]= (V38);
963          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
964          Larray_element_type();          Larray_element_type();
965          vs_top=sup;          vs_top=sup;
966          V59= vs_base[0];          V59= vs_base[0];
967          V60= (*(LnkLI100))(car((V41)));          V60= (*(LnkLI137))(car((V41)));
968          if(equal(V59,/* INLINE-ARGS */V60)){          if(equal(V59,/* INLINE-ARGS */V60)){
969          goto T236;}          goto T240;}
970          base[2]= Cnil;          base[2]= Cnil;
971          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
972          return;          return;
973  goto T236;  goto T240;
974  T236:;  T240:;
975          if(!(endp_prop(cdr((V41))))){          if(!(endp_prop(cdr((V41))))){
976          goto T244;}          goto T248;}
977          base[2]= Ct;          base[2]= Ct;
978          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
979          return;          return;
980  goto T244;  goto T248;
981  T244:;  T248:;
982          if(!((cadr((V41)))==(VV[17]))){          if(!((cadr((V41)))==(VV[17]))){
983          goto T246;}          goto T250;}
984          base[2]= Ct;          base[2]= Ct;
985          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
986          return;          return;
987  goto T246;  goto T250;
988  T246:;  T250:;
989          V61= (*(LnkLI94))((V38));          V61= (*(LnkLI131))((V38));
990          base[2]= (*(LnkLI93))(/* INLINE-ARGS */V61,cadr((V41)));          base[2]= (*(LnkLI130))(/* INLINE-ARGS */V61,cadr((V41)));
991          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
992          return;          return;
993  goto T233;  goto T237;
994  T233:;  T237:;
995          if((V44!= VV[22]))goto T248;          if((V44!= VV[22]))goto T252;
996          if(type_of((V38))==t_array||          if(type_of((V38))==t_array||
997  type_of((V38))==t_vector||  type_of((V38))==t_vector||
998  type_of((V38))==t_string||  type_of((V38))==t_string||
999  type_of((V38))==t_bitvector){  type_of((V38))==t_bitvector){
1000          goto T249;}          goto T253;}
1001          base[2]= Cnil;          base[2]= Cnil;
1002          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1003          return;          return;
 goto T249;  
 T249:;  
         if(!(endp_prop((V41)))){  
         goto T253;}  
         goto T251;  
1004  goto T253;  goto T253;
1005  T253:;  T253:;
1006            if(!(endp_prop((V41)))){
1007            goto T257;}
1008            goto T255;
1009    goto T257;
1010    T257:;
1011          if(!((car((V41)))==(VV[17]))){          if(!((car((V41)))==(VV[17]))){
1012          goto T255;}          goto T259;}
1013          goto T251;          goto T255;
1014  goto T255;  goto T259;
1015  T255:;  T259:;
1016          base[2]= (V38);          base[2]= (V38);
1017          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1018          Larray_element_type();          Larray_element_type();
1019          vs_top=sup;          vs_top=sup;
1020          V62= vs_base[0];          V62= vs_base[0];
1021          V63= (*(LnkLI100))(car((V41)));          V63= (*(LnkLI137))(car((V41)));
1022          if(equal(V62,/* INLINE-ARGS */V63)){          if(equal(V62,/* INLINE-ARGS */V63)){
1023          goto T251;}          goto T255;}
1024          base[2]= Cnil;          base[2]= Cnil;
1025          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1026          return;          return;
1027  goto T251;  goto T255;
1028  T251:;  T255:;
1029          if(!(endp_prop(cdr((V41))))){          if(!(endp_prop(cdr((V41))))){
1030          goto T259;}          goto T263;}
1031          base[2]= Ct;          base[2]= Ct;
1032          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1033          return;          return;
1034  goto T259;  goto T263;
1035  T259:;  T263:;
1036          if(!((cadr((V41)))==(VV[17]))){          if(!((cadr((V41)))==(VV[17]))){
1037          goto T261;}          goto T265;}
1038          base[2]= Ct;          base[2]= Ct;
1039          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1040          return;          return;
1041  goto T261;  goto T265;
1042  T261:;  T265:;
1043          V64= (*(LnkLI94))((V38));          V64= (*(LnkLI131))((V38));
1044          base[2]= (*(LnkLI93))(/* INLINE-ARGS */V64,cadr((V41)));          base[2]= (*(LnkLI130))(/* INLINE-ARGS */V64,cadr((V41)));
1045          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1046          return;          return;
1047  goto T248;  goto T252;
1048  T248:;  T252:;
1049          V42= get((V40),VV[33],Cnil);          V42= get((V40),VV[35],Cnil);
1050          if(((V42))==Cnil){          if(((V42))==Cnil){
1051          goto T264;}          goto T268;}
1052          base[2]= (V38);          base[2]= (V38);
1053          base[3]= (V42);          base[3]= (V42);
1054          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1055          (void) (*Lnk101)();          (void) (*Lnk138)();
1056          return;          return;
1057  goto T264;  goto T268;
1058  T264:;  T268:;
1059          if((get((V40),VV[34],Cnil))==Cnil){          V42= get((V40),VV[36],Cnil);
1060          goto T270;}          if(((V42))==Cnil){
1061          base[2]= get((V40),VV[34],Cnil);          goto T274;}
1062            base[2]= (V42);
1063          {object V65;          {object V65;
1064          V65= (V41);          V65= Cnil;
1065           vs_top=base+3;           vs_top=base+3;
1066           while(!endp(V65))           while(!endp(V65))
1067           {vs_push(car(V65));V65=cdr(V65);}           {vs_push(car(V65));V65=cdr(V65);}
# Line 1063  T264:; Line 1070  T264:;
1070          vs_top=sup;          vs_top=sup;
1071          V39= vs_base[0];          V39= vs_base[0];
1072          goto TTL;          goto TTL;
1073  goto T270;  goto T274;
1074  T270:;  T274:;
1075          base[2]= Cnil;          base[2]= Cnil;
1076          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1077          return;}}          return;}}
# Line 1082  TTL:; Line 1089  TTL:;
1089          register object V69;          register object V69;
1090          V68= Cnil;          V68= Cnil;
1091          V69= Cnil;          V69= Cnil;
1092  goto T280;  goto T285;
1093  T280:;  T285:;
1094          if(!(type_of((V67))!=t_cons)){          if(!(type_of((V67))!=t_cons)){
1095          goto T284;}          goto T289;}
1096          V68= (V67);          V68= (V67);
1097          V69= Cnil;          V69= Cnil;
1098          goto T282;          goto T287;
1099  goto T284;  goto T289;
1100  T284:;  T289:;
1101          V68= car((V67));          V68= car((V67));
1102          V69= cdr((V67));          V69= cdr((V67));
1103  goto T282;  goto T287;
1104  T282:;  T287:;
1105          if((get((V68),VV[34],Cnil))==Cnil){          if((get((V68),VV[36],Cnil))==Cnil){
1106          goto T293;}          goto T298;}
1107          base[0]= get((V68),VV[34],Cnil);          base[0]= get((V68),VV[36],Cnil);
1108          {object V70;          {object V70;
1109          V70= (V69);          V70= (V69);
1110           vs_top=base+1;           vs_top=base+1;
# Line 1107  T282:; Line 1114  T282:;
1114          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
1115          vs_top=sup;          vs_top=sup;
1116          V67= vs_base[0];          V67= vs_base[0];
1117          goto T281;          goto T286;
1118  goto T293;  goto T298;
1119  T293:;  T298:;
1120          if(!(type_of((V67))!=t_cons)){          if(!(type_of((V67))!=t_cons)){
1121          goto T299;}          goto T304;}
1122          {object V71 = make_cons((V67),Cnil);          {object V71 = make_cons((V67),Cnil);
1123          VMR19(V71)}          VMR19(V71)}
1124  goto T299;  goto T304;
1125  T299:;  T304:;
1126          {object V72 = (V67);          {object V72 = (V67);
1127          VMR19(V72)}          VMR19(V72)}
1128  goto T281;  goto T286;
1129  T281:;  T286:;
1130          goto T280;}          goto T285;}
1131          base[0]=base[0];          base[0]=base[0];
1132          return Cnil;          return Cnil;
1133  }  }
# Line 1133  register object V74; Line 1140  register object V74;
1140  goto TTL;  goto TTL;
1141  TTL:;  TTL:;
1142          if(!(type_of((V74))==t_cons)){          if(!(type_of((V74))==t_cons)){
         goto T302;}  
         V74= car((V74));  
 goto T302;  
 T302:;  
         {register object x= (V74),V75= VV[35];  
         while(!endp(V75))  
         if(eql(x,V75->c.c_car)){  
         goto T306;  
         }else V75=V75->c.c_cdr;}  
         if((get((V74),VV[33],Cnil))==Cnil){  
1143          goto T307;}          goto T307;}
1144  goto T306;          V74= car((V74));
 T306:;  
         {object V76 = Ct;  
         VMR20(V76)}  
1145  goto T307;  goto T307;
1146  T307:;  T307:;
1147          {object V77 = Cnil;          V75= coerce_to_string((V74));
1148            if(equal(/* INLINE-ARGS */V75,VV[37])){
1149            goto T311;}
1150            {register object x= (V74),V76= VV[38];
1151            while(!endp(V76))
1152            if(eql(x,V76->c.c_car)){
1153            goto T311;
1154            }else V76=V76->c.c_cdr;}
1155            if((get((V74),VV[35],Cnil))==Cnil){
1156            goto T312;}
1157    goto T311;
1158    T311:;
1159            {object V77 = Ct;
1160          VMR20(V77)}          VMR20(V77)}
1161    goto T312;
1162    T312:;
1163            {object V78 = Cnil;
1164            VMR20(V78)}
1165          return Cnil;          return Cnil;
1166  }  }
1167  /*      function definition for SUBTYPEP        */  /*      function definition for SUBTYPEP        */
# Line 1160  static void L21() Line 1170  static void L21()
1170  {register object *base=vs_base;  {register object *base=vs_base;
1171          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1172          vs_reserve(VM21);          vs_reserve(VM21);
1173          {object V78;          {object V79;
1174          object V79;          object V80;
1175          check_arg(2);          check_arg(2);
1176          V78=(base[0]);          V79=(base[0]);
1177          V79=(base[1]);          V80=(base[1]);
1178          vs_top=sup;          vs_top=sup;
1179  goto TTL;  goto TTL;
1180  TTL:;  TTL:;
1181          {object V80;          {object V81;
         object V81;  
1182          object V82;          object V82;
1183          object V83;          object V83;
1184          object V84;          object V84;
1185          object V85;          object V85;
1186          object V86;          object V86;
1187          V80= Cnil;          object V87;
1188          V81= Cnil;          V81= Cnil;
1189          V82= Cnil;          V82= Cnil;
1190          V83= Cnil;          V83= Cnil;
1191          V84= Cnil;          V84= Cnil;
1192          V85= Cnil;          V85= Cnil;
1193          V86= Cnil;          V86= Cnil;
1194          V78= (*(LnkLI102))((V78));          V87= Cnil;
1195          V79= (*(LnkLI102))((V79));          V81= (*(LnkLI139))((V79));
1196          if(!(equal((V78),(V79)))){          if(!((car((V81)))==(VV[39]))){
1197          goto T322;}          goto T330;}
1198            V79= make_cons((V79),Cnil);
1199            goto T328;
1200    goto T330;
1201    T330:;
1202            V79= (V81);
1203    goto T328;
1204    T328:;
1205            V82= (*(LnkLI139))((V80));
1206            if(!((car((V82)))==(VV[39]))){
1207            goto T337;}
1208            V80= make_cons((V80),Cnil);
1209            goto T335;
1210    goto T337;
1211    T337:;
1212            V80= (V82);
1213    goto T335;
1214    T335:;
1215            if(!(equal((V79),(V80)))){
1216            goto T339;}
1217          base[2]= Ct;          base[2]= Ct;
1218          base[3]= Ct;          base[3]= Ct;
1219          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1220          return;          return;
1221  goto T322;  goto T339;
1222  T322:;  T339:;
         V80= car((V78));  
1223          V81= car((V79));          V81= car((V79));
1224          V82= cdr((V78));          V82= car((V80));
1225          V83= cdr((V79));          V83= cdr((V79));
1226          if(!(((V80))==(VV[36]))){          V84= cdr((V80));
1227          goto T337;}          if(!(((V81))==(VV[40]))){
1228          {register object V87;          goto T354;}
1229          object V88;          {register object V88;
1230          V87= (V82);          object V89;
1231          V88= car((V87));          V88= (V83);
1232  goto T343;          V89= car((V88));
1233  T343:;  goto T360;
1234          if(!(endp_prop((V87)))){  T360:;
1235          goto T344;}          if(!(endp_prop((V88)))){
1236          goto T339;          goto T361;}
1237  goto T344;          goto T356;
1238  T344:;  goto T361;
1239          base[3]= (V88);  T361:;
1240          base[4]= (V79);          base[3]= (V89);
1241            base[4]= (V80);
1242          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1243          (void) (*Lnk83)();          (void) (*Lnk121)();
1244          vs_top=sup;          vs_top=sup;
1245          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1246          goto T348;}          goto T365;}
1247          base[3]= Cnil;          base[3]= Cnil;
1248          base[4]= Ct;          base[4]= Ct;
1249          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1250          return;          return;
1251  goto T348;  goto T365;
1252  T348:;  T365:;
1253          V87= cdr((V87));          V88= cdr((V88));
1254          V88= car((V87));          V89= car((V88));
1255          goto T343;}          goto T360;}
1256  goto T339;  goto T356;
1257  T339:;  T356:;
1258          base[2]= Ct;          base[2]= Ct;
1259          base[3]= Ct;          base[3]= Ct;
1260          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1261          return;          return;
1262  goto T337;  goto T354;
1263  T337:;  T354:;
1264          if(!(((V80))==(VV[37]))){          if(!(((V81))==(VV[41]))){
1265          goto T363;}          goto T380;}
1266          {register object V89;          {register object V90;
1267          object V90;          object V91;
1268          V89= (V82);          V90= (V83);
1269          V90= car((V89));          V91= car((V90));
1270  goto T369;  goto T386;
1271  T369:;  T386:;
1272          if(!(endp_prop((V89)))){          if(!(endp_prop((V90)))){
1273          goto T370;}          goto T387;}
1274          goto T365;          goto T382;
1275  goto T370;  goto T387;
1276  T370:;  T387:;
1277          {object V91;          {object V92;
1278          object V92;          object V93;
1279          base[3]= (V90);          base[3]= (V91);
1280          base[4]= (V79);          base[4]= (V80);
1281          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1282          (void) (*Lnk103)();          (void) (*Lnk140)();
1283          if(vs_base>=vs_top){vs_top=sup;goto T378;}          if(vs_base>=vs_top){vs_top=sup;goto T395;}
         V91= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T379;}  
1284          V92= vs_base[0];          V92= vs_base[0];
1285            vs_base++;
1286            if(vs_base>=vs_top){vs_top=sup;goto T396;}
1287            V93= vs_base[0];
1288          vs_top=sup;          vs_top=sup;
1289          goto T380;          goto T397;
1290  goto T378;  goto T395;
1291  T378:;  T395:;
         V91= Cnil;  
 goto T379;  
 T379:;  
1292          V92= Cnil;          V92= Cnil;
1293  goto T380;  goto T396;
1294  T380:;  T396:;
1295          if(((V91))!=Cnil){          V93= Cnil;
1296          goto T374;}  goto T397;
1297          base[3]= (V91);  T397:;
1298          base[4]= (V92);          if(((V92))!=Cnil){
1299            goto T391;}
1300            base[3]= (V92);
1301            base[4]= (V93);
1302          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1303          return;}          return;}
1304  goto T374;  goto T391;
1305  T374:;  T391:;
1306          V89= cdr((V89));          V90= cdr((V90));
1307          V90= car((V89));          V91= car((V90));
1308          goto T369;}          goto T386;}
1309  goto T365;  goto T382;
1310  T365:;  T382:;
1311          base[2]= Ct;          base[2]= Ct;
1312          base[3]= Ct;          base[3]= Ct;
1313          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1314          return;          return;
1315  goto T363;  goto T380;
1316  T363:;  T380:;
1317          if(!(((V80))==(VV[38]))){          if(!(((V81))==(VV[42]))){
1318          goto T393;}          goto T410;}
1319          {register object V93;          {register object V94;
1320          object V94;          object V95;
1321          V93= (V82);          V94= (V83);
1322          V94= car((V93));          V95= car((V94));
1323  goto T399;  goto T416;
1324  T399:;  T416:;
1325          if(!(endp_prop((V93)))){          if(!(endp_prop((V94)))){
1326          goto T400;}          goto T417;}
1327          goto T395;          goto T412;
1328  goto T400;  goto T417;
1329  T400:;  T417:;
1330          {object V95;          {object V96;
1331          base[3]= (V94);          base[3]= (V95);
1332          base[4]= (V79);          base[4]= (V80);
1333          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1334          (void) (*Lnk103)();          (void) (*Lnk140)();
1335          vs_top=sup;          vs_top=sup;
1336          V95= vs_base[0];          V96= vs_base[0];
1337          if(((V95))==Cnil){          if(((V96))==Cnil){
1338          goto T404;}          goto T421;}
1339          base[3]= Ct;          base[3]= Ct;
1340          base[4]= Ct;          base[4]= Ct;
1341          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1342          return;}          return;}
1343  goto T404;  goto T421;
1344  T404:;  T421:;
1345          V93= cdr((V93));          V94= cdr((V94));
1346          V94= car((V93));          V95= car((V94));
1347          goto T399;}          goto T416;}
1348  goto T395;  goto T412;
1349  T395:;  T412:;
1350          base[2]= Cnil;          base[2]= Cnil;
1351          base[3]= Cnil;          base[3]= Cnil;
1352          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1353          return;          return;
1354  goto T393;  goto T410;
1355  T393:;  T410:;
1356          if(!(((V80))==(VV[39]))){          if(!(((V81))==(VV[43]))){
1357          goto T335;}          goto T352;}
1358          if(!(((V81))==(VV[39]))){          if(!(((V82))==(VV[43]))){
1359          goto T422;}          goto T439;}
1360          V78= car((V83));          V79= car((V84));
1361          V79= car((V82));          V80= car((V83));
1362          goto TTL;          goto TTL;
1363  goto T422;  goto T439;
1364  T422:;  T439:;
1365          V78= Ct;          V79= Ct;
1366          V79= list(3,VV[37],(V79),car((V82)));          V80= list(3,VV[41],(V80),car((V83)));
1367          goto TTL;          goto TTL;
1368  goto T335;  goto T352;
1369  T335:;  T352:;
1370          if(!(((V81))==(VV[36]))){          if(!(((V82))==(VV[40]))){
1371          goto T432;}          goto T449;}
1372          base[2]= Cnil;          base[2]= Cnil;
1373          base[3]= Cnil;          base[3]= Cnil;
1374          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1375          return;          return;
1376  goto T432;  goto T449;
1377  T432:;  T449:;
1378          if(!(((V81))==(VV[37]))){          if(!(((V82))==(VV[41]))){
1379          goto T437;}          goto T454;}
1380          {register object V96;          {register object V97;
1381          object V97;          object V98;
1382          V96= (V83);          V97= (V84);
1383          V97= car((V96));          V98= car((V97));
1384  goto T443;  goto T460;
1385  T443:;  T460:;
1386          if(!(endp_prop((V96)))){          if(!(endp_prop((V97)))){
1387          goto T444;}          goto T461;}
1388          goto T439;          goto T456;
1389  goto T444;  goto T461;
1390  T444:;  T461:;
1391          {object V98;          {object V99;
1392          base[3]= (V78);          base[3]= (V79);
1393          base[4]= (V97);          base[4]= (V98);
1394          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1395          (void) (*Lnk103)();          (void) (*Lnk140)();
1396          vs_top=sup;          vs_top=sup;
1397          V98= vs_base[0];          V99= vs_base[0];
1398          if(((V98))==Cnil){          if(((V99))==Cnil){
1399          goto T448;}          goto T465;}
1400          base[3]= Ct;          base[3]= Ct;
1401          base[4]= Ct;          base[4]= Ct;
1402          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1403          return;}          return;}
1404  goto T448;  goto T465;
1405  T448:;  T465:;
1406          V96= cdr((V96));          V97= cdr((V97));
1407          V97= car((V96));          V98= car((V97));
1408          goto T443;}          goto T460;}
1409  goto T439;  goto T456;
1410  T439:;  T456:;
1411          base[2]= Cnil;          base[2]= Cnil;
1412          base[3]= Cnil;          base[3]= Cnil;
1413          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1414          return;          return;
1415  goto T437;  goto T454;
1416  T437:;  T454:;
1417          if(!(((V81))==(VV[38]))){          if(!(((V82))==(VV[42]))){
1418          goto T464;}          goto T481;}
1419          {register object V99;          {register object V100;
1420          object V100;          object V101;
1421          V99= (V83);          V100= (V84);
1422          V100= car((V99));          V101= car((V100));
1423  goto T470;  goto T487;
1424  T470:;  T487:;
1425          if(!(endp_prop((V99)))){          if(!(endp_prop((V100)))){
1426          goto T471;}          goto T488;}
1427          goto T466;          goto T483;
1428  goto T471;  goto T488;
1429  T471:;  T488:;
1430          {object V101;          {object V102;
1431          object V102;          object V103;
1432          base[3]= (V78);          base[3]= (V79);
1433          base[4]= (V100);          base[4]= (V101);
1434          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1435          (void) (*Lnk103)();          (void) (*Lnk140)();
1436          if(vs_base>=vs_top){vs_top=sup;goto T479;}          if(vs_base>=vs_top){vs_top=sup;goto T496;}
         V101= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T480;}  
1437          V102= vs_base[0];          V102= vs_base[0];
1438            vs_base++;
1439            if(vs_base>=vs_top){vs_top=sup;goto T497;}
1440            V103= vs_base[0];
1441          vs_top=sup;          vs_top=sup;
1442          goto T481;          goto T498;
1443  goto T479;  goto T496;
1444  T479:;  T496:;
         V101= Cnil;  
 goto T480;  
 T480:;  
1445          V102= Cnil;          V102= Cnil;
1446  goto T481;  goto T497;
1447  T481:;  T497:;
1448          if(((V101))!=Cnil){          V103= Cnil;
1449          goto T475;}  goto T498;
1450          base[3]= (V101);  T498:;
1451          base[4]= (V102);          if(((V102))!=Cnil){
1452            goto T492;}
1453            base[3]= (V102);
1454            base[4]= (V103);
1455          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1456          return;}          return;}
1457  goto T475;  goto T492;
1458  T475:;  T492:;
1459          V99= cdr((V99));          V100= cdr((V100));
1460          V100= car((V99));          V101= car((V100));
1461          goto T470;}          goto T487;}
1462  goto T466;  goto T483;
1463  T466:;  T483:;
1464          base[2]= Ct;          base[2]= Ct;
1465          base[3]= Ct;          base[3]= Ct;
1466          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1467          return;          return;
1468  goto T464;  goto T481;
1469  T464:;  T481:;
1470          if(!(((V81))==(VV[39]))){          if(!(((V82))==(VV[43]))){
1471          goto T430;}          goto T447;}
1472          V78= list(3,VV[38],(V78),car((V83)));          V79= list(3,VV[42],(V79),car((V84)));
1473          V79= Cnil;          V80= Cnil;
1474          goto TTL;          goto TTL;
1475  goto T430;  goto T447;
1476  T430:;  T447:;
1477          V84= (*(LnkLI104))((V78));          V85= (*(LnkLI141))((V79));
1478          V85= (*(LnkLI104))((V79));          V86= (*(LnkLI141))((V80));
1479          if(((V80))==(Cnil)){          if(((V81))==(Cnil)){
1480          goto T502;}          goto T519;}
1481          if(((V81))==(Ct)){          if(((V82))==(Ct)){
1482          goto T502;}          goto T519;}
1483          if(!(((V81))==(VV[40]))){          if(!(((V82))==(VV[44]))){
1484          goto T503;}          goto T520;}
1485  goto T502;  goto T519;
1486  T502:;  T519:;
1487          base[2]= Ct;          base[2]= Ct;
1488          base[3]= Ct;          base[3]= Ct;
1489          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1490          return;          return;
1491  goto T503;  goto T520;
1492  T503:;  T520:;
1493          if(!(((V81))==(Cnil))){          if(!(((V82))==(Cnil))){
1494          goto T512;}          goto T529;}
         base[2]= Cnil;  
         base[3]= (V84);  
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T512;  
 T512:;  
         if(!(((V80))==(Ct))){  
         goto T517;}  
1495          base[2]= Cnil;          base[2]= Cnil;
1496          base[3]= (V85);          base[3]= (V85);
1497          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1498          return;          return;
1499  goto T517;  goto T529;
1500  T517:;  T529:;
1501          if(!(((V80))==(VV[40]))){          if(!(((V81))==(Ct))){
1502          goto T522;}          goto T534;}
1503          base[2]= Cnil;          base[2]= Cnil;
1504          base[3]= (V85);          base[3]= (V86);
1505          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1506          return;          return;
1507  goto T522;  goto T534;
1508  T522:;  T534:;
1509          if(!(((V81))==(VV[41]))){          if(!(((V81))==(VV[44]))){
1510          goto T527;}          goto T539;}
         {register object x= (V80),V103= VV[42];  
         while(!endp(V103))  
         if(eql(x,V103->c.c_car)){  
         goto T531;  
         }else V103=V103->c.c_cdr;  
         goto T530;}  
 goto T531;  
 T531:;  
         base[2]= Ct;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T530;  
 T530:;  
1511          base[2]= Cnil;          base[2]= Cnil;
1512          base[3]= (V84);          base[3]= (V86);
1513          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1514          return;          return;
1515  goto T527;  goto T539;
1516  T527:;  T539:;
1517          if(!(((V81))==(VV[43]))){          if(!(((V82))==(VV[45]))){
1518          goto T537;}          goto T544;}
1519          {register object x= (V80),V104= VV[44];          {register object x= (V81),V104= VV[46];
1520          while(!endp(V104))          while(!endp(V104))
1521          if(eql(x,V104->c.c_car)){          if(eql(x,V104->c.c_car)){
1522          goto T541;          goto T548;
1523          }else V104=V104->c.c_cdr;          }else V104=V104->c.c_cdr;
1524          goto T540;}          goto T547;}
1525  goto T541;  goto T548;
1526  T541:;  T548:;
1527          base[2]= Ct;          base[2]= Ct;
1528          base[3]= Ct;          base[3]= Ct;
1529          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1530          return;          return;
1531  goto T540;  goto T547;
1532  T540:;  T547:;
1533          if(((V80))==(VV[26])){          base[2]= Cnil;
1534          goto T544;}          base[3]= (V85);
1535          if(!(((V80))==(VV[22]))){          vs_top=(vs_base=base+2)+2;
1536          goto T545;}          return;
1537  goto T544;  goto T544;
1538  T544:;  T544:;
1539          if((cdr((V82)))==Cnil){          if(!(((V82))==(VV[47]))){
1540          goto T550;}          goto T554;}
1541          if(!(type_of(cadr((V82)))==t_cons)){          {register object x= (V81),V105= VV[48];
1542          goto T550;}          while(!endp(V105))
1543          if((cdadr((V82)))!=Cnil){          if(eql(x,V105->c.c_car)){
1544          goto T550;}          goto T558;
1545            }else V105=V105->c.c_cdr;
1546            goto T557;}
1547    goto T558;
1548    T558:;
1549          base[2]= Ct;          base[2]= Ct;
1550          base[3]= Ct;          base[3]= Ct;
1551          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1552          return;          return;
1553  goto T550;  goto T557;
1554  T550:;  T557:;
1555          base[2]= Cnil;          if(((V81))==(VV[26])){
1556            goto T561;}
1557            if(!(((V81))==(VV[22]))){
1558            goto T562;}
1559    goto T561;
1560    T561:;
1561            if((cdr((V83)))==Cnil){
1562            goto T567;}
1563            if(!(type_of(cadr((V83)))==t_cons)){
1564            goto T567;}
1565            if((cdadr((V83)))!=Cnil){
1566            goto T567;}
1567            base[2]= Ct;
1568          base[3]= Ct;          base[3]= Ct;
1569          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1570          return;          return;
1571  goto T545;  goto T567;
1572  T545:;  T567:;
1573          base[2]= Cnil;          base[2]= Cnil;
1574          base[3]= (V84);          base[3]= Ct;
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T537;  
 T537:;  
         if(!(((V80))==(VV[41]))){  
         goto T563;}  
         base[2]= Cnil;  
         base[3]= (V85);  
1575          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1576          return;          return;
1577  goto T563;  goto T562;
1578  T563:;  T562:;
         if(!(((V80))==(VV[43]))){  
         goto T568;}  
1579          base[2]= Cnil;          base[2]= Cnil;
1580          base[3]= (V85);          base[3]= (V85);
1581          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1582          return;          return;
1583  goto T568;  goto T554;
1584  T568:;  T554:;
1585          if(!(((V81))==(VV[45]))){          if(!(((V81))==(VV[45]))){
1586          goto T573;}          goto T580;}
         {register object x= (V80),V105= VV[46];  
         while(!endp(V105))  
         if(eql(x,V105->c.c_car)){  
         goto T577;  
         }else V105=V105->c.c_cdr;  
         goto T576;}  
 goto T577;  
 T577:;  
1587          base[2]= Cnil;          base[2]= Cnil;
1588          base[3]= Ct;          base[3]= (V86);
1589          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1590          return;          return;
1591  goto T576;  goto T580;
1592  T576:;  T580:;
1593          if(((V84))==Cnil){          if(!(((V81))==(VV[47]))){
1594          goto T581;}          goto T585;}
         base[2]= Ct;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T581;  
 T581:;  
         base[2]= Cnil;  
         base[3]= Cnil;  
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T573;  
 T573:;  
         if(!(((V80))==(VV[45]))){  
         goto T588;}  
1595          base[2]= Cnil;          base[2]= Cnil;
1596          base[3]= (V85);          base[3]= (V86);
1597          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1598          return;          return;
1599  goto T588;  goto T585;
1600  T588:;  T585:;
1601          if(!(((V81))==(VV[47]))){          if(!(((V82))==(VV[49]))){
1602          goto T593;}          goto T590;}
1603          {register object x= (V80),V106= VV[48];          {register object x= (V81),V106= VV[50];
1604          while(!endp(V106))          while(!endp(V106))
1605          if(eql(x,V106->c.c_car)){          if(eql(x,V106->c.c_car)){
1606          goto T597;          goto T594;
1607          }else V106=V106->c.c_cdr;          }else V106=V106->c.c_cdr;
1608          goto T596;}          goto T593;}
1609  goto T597;  goto T594;
1610  T597:;  T594:;
         base[2]= Ct;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T596;  
 T596:;  
1611          base[2]= Cnil;          base[2]= Cnil;
1612          base[3]= (V84);          base[3]= Ct;
1613          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1614          return;          return;
1615  goto T593;  goto T593;
1616  T593:;  T593:;
1617          if(!(((V81))==(VV[9]))){          if(((V85))==Cnil){
1618          goto T603;}          goto T598;}
         {register object x= (V80),V107= VV[49];  
         while(!endp(V107))  
         if(eql(x,V107->c.c_car)){  
         goto T607;  
         }else V107=V107->c.c_cdr;  
         goto T606;}  
 goto T607;  
 T607:;  
1619          base[2]= Ct;          base[2]= Ct;
1620          base[3]= Ct;          base[3]= Ct;
1621          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1622          return;          return;
1623  goto T606;  goto T598;
1624  T606:;  T598:;
1625          base[2]= Cnil;          base[2]= Cnil;
1626          base[3]= (V84);          base[3]= Cnil;
1627            vs_top=(vs_base=base+2)+2;
1628            return;
1629    goto T590;
1630    T590:;
1631            if(!(((V81))==(VV[49]))){
1632            goto T605;}
1633            base[2]= Cnil;
1634            base[3]= (V86);
1635          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1636          return;          return;
1637  goto T603;  goto T605;
1638  T603:;  T605:;
1639          if(!(((V81))==(VV[50]))){          if(!(((V82))==(VV[51]))){
1640            goto T610;}
1641            {register object x= (V81),V107= VV[52];
1642            while(!endp(V107))
1643            if(eql(x,V107->c.c_car)){
1644            goto T614;
1645            }else V107=V107->c.c_cdr;
1646          goto T613;}          goto T613;}
1647          if(!(((V80))==(VV[51]))){  goto T614;
1648          goto T616;}  T614:;
1649          base[2]= Ct;          base[2]= Ct;
1650          base[3]= Ct;          base[3]= Ct;
1651          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1652          return;          return;
1653  goto T616;  goto T613;
1654  T616:;  T613:;
1655          base[2]= Cnil;          base[2]= Cnil;
1656          base[3]= (V84);          base[3]= (V85);
1657          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1658          return;          return;
1659  goto T613;  goto T610;
1660  T613:;  T610:;
1661          if(!(((V81))==(VV[52]))){          if(!(((V82))==(VV[9]))){
1662            goto T620;}
1663            {register object x= (V81),V108= VV[53];
1664            while(!endp(V108))
1665            if(eql(x,V108->c.c_car)){
1666            goto T624;
1667            }else V108=V108->c.c_cdr;
1668          goto T623;}          goto T623;}
1669          if(!(((V80))==(VV[52]))){  goto T624;
1670          goto T626;}  T624:;
1671          base[2]= Ct;          base[2]= Ct;
1672          base[3]= Ct;          base[3]= Ct;
1673          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1674          return;          return;
1675  goto T626;  goto T623;
1676  T626:;  T623:;
1677          base[2]= Cnil;          base[2]= Cnil;
1678          base[3]= (V84);          base[3]= (V85);
1679          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1680          return;          return;
1681  goto T623;  goto T620;
1682  T623:;  T620:;
1683          if(!(((V81))==(VV[53]))){          if(!(((V82))==(VV[54]))){
1684            goto T630;}
1685            if(!(((V81))==(VV[55]))){
1686          goto T633;}          goto T633;}
         if(!(((V80))==(VV[53]))){  
         goto T636;}  
1687          base[2]= Ct;          base[2]= Ct;
1688          base[3]= Ct;          base[3]= Ct;
1689          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1690          return;          return;
1691  goto T636;  goto T633;
1692  T636:;  T633:;
1693          base[2]= Cnil;          base[2]= Cnil;
1694          base[3]= (V84);          base[3]= (V85);
1695          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1696          return;          return;
1697  goto T633;  goto T630;
1698  T633:;  T630:;
1699          if(!(((V81))==(VV[54]))){          if(!(((V82))==(VV[56]))){
1700            goto T640;}
1701            if(!(((V81))==(VV[57]))){
1702          goto T643;}          goto T643;}
         {register object x= (V80),V108= VV[55];  
         while(!endp(V108))  
         if(eql(x,V108->c.c_car)){  
         goto T647;  
         }else V108=V108->c.c_cdr;  
         goto T646;}  
 goto T647;  
 T647:;  
1703          base[2]= Ct;          base[2]= Ct;
1704          base[3]= Ct;          base[3]= Ct;
1705          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1706          return;          return;
 goto T646;  
 T646:;  
         base[2]= Cnil;  
         base[3]= (V84);  
         vs_top=(vs_base=base+2)+2;  
         return;  
1707  goto T643;  goto T643;
1708  T643:;  T643:;
         if(!(((V80))==(VV[54]))){  
         goto T653;}  
1709          base[2]= Cnil;          base[2]= Cnil;
1710          base[3]= (V85);          base[3]= (V85);
1711          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1712          return;          return;
1713    goto T640;
1714    T640:;
1715            if(!(((V82))==(VV[58]))){
1716            goto T650;}
1717            {register object x= (V81),V109= VV[59];
1718            while(!endp(V109))
1719            if(eql(x,V109->c.c_car)){
1720            goto T654;
1721            }else V109=V109->c.c_cdr;
1722            goto T653;}
1723    goto T654;
1724    T654:;
1725            base[2]= Ct;
1726            base[3]= Ct;
1727            vs_top=(vs_base=base+2)+2;
1728            return;
1729  goto T653;  goto T653;
1730  T653:;  T653:;
1731          if(!(((V81))==(VV[56]))){          base[2]= Cnil;
1732          goto T658;}          base[3]= (V85);
1733          if(((V80))==(VV[56])){          vs_top=(vs_base=base+2)+2;
1734            return;
1735    goto T650;
1736    T650:;
1737            if(!(((V82))==(VV[60]))){
1738          goto T660;}          goto T660;}
1739          if((get((V80),VV[33],Cnil))==Cnil){          {register object x= (V81),V110= VV[61];
1740          goto T661;}          while(!endp(V110))
1741  goto T660;          if(eql(x,V110->c.c_car)){
1742  T660:;          goto T664;
1743            }else V110=V110->c.c_cdr;
1744            goto T663;}
1745    goto T664;
1746    T664:;
1747          base[2]= Ct;          base[2]= Ct;
1748          base[3]= Ct;          base[3]= Ct;
1749          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1750          return;          return;
1751  goto T661;  goto T663;
1752  T661:;  T663:;
1753          base[2]= Cnil;          base[2]= Cnil;
1754          base[3]= (V84);          base[3]= (V85);
1755          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1756          return;          return;
1757  goto T658;  goto T660;
1758  T658:;  T660:;
1759          if(!(((V80))==(VV[56]))){          if(!(((V82))==(VV[62]))){
1760          goto T670;}          goto T670;}
1761            V111= coerce_to_string((V81));
1762            if(equal(/* INLINE-ARGS */V111,VV[63])){
1763            goto T672;}
1764            {register object x= (V81),V112= VV[64];
1765            while(!endp(V112))
1766            if(eql(x,V112->c.c_car)){
1767            goto T676;
1768            }else V112=V112->c.c_cdr;
1769            goto T673;}
1770    goto T676;
1771    T676:;
1772    goto T672;
1773    T672:;
1774            base[2]= Ct;
1775            base[3]= Ct;
1776            vs_top=(vs_base=base+2)+2;
1777            return;
1778    goto T673;
1779    T673:;
1780          base[2]= Cnil;          base[2]= Cnil;
1781          base[3]= (V85);          base[3]= (V85);
1782          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1783          return;          return;
1784  goto T670;  goto T670;
1785  T670:;  T670:;
1786          V86= get((V80),VV[33],Cnil);          if(!(((V82))==(VV[65]))){
1787          if(((V86))==Cnil){          goto T682;}
1788          goto T675;}          V113= coerce_to_string((V81));
1789          {object V109;          if(equal(/* INLINE-ARGS */V113,VV[66])){
         V109= get((V81),VV[33],Cnil);  
         if(((V109))==Cnil){  
         goto T680;}  
         {register object V110;  
         V110= (V86);  
 goto T683;  
 T683:;  
         if(((V110))!=Cnil){  
1790          goto T684;}          goto T684;}
1791          base[2]= Cnil;          {register object x= (V81),V114= VV[67];
1792          base[3]= Ct;          while(!endp(V114))
1793          vs_top=(vs_base=base+2)+2;          if(eql(x,V114->c.c_car)){
1794          return;          goto T688;
1795            }else V114=V114->c.c_cdr;
1796            goto T685;}
1797    goto T688;
1798    T688:;
1799  goto T684;  goto T684;
1800  T684:;  T684:;
         if(!(((V110))==(V109))){  
         goto T690;}  
1801          base[2]= Ct;          base[2]= Ct;
1802          base[3]= Ct;          base[3]= Ct;
1803          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1804          return;          return;
1805  goto T690;  goto T685;
1806  T690:;  T685:;
         V110= structure_ref((V110),VV[33],4);  
         goto T683;}  
 goto T680;  
 T680:;  
1807          base[2]= Cnil;          base[2]= Cnil;
1808          base[3]= (V85);          base[3]= (V85);
1809          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1810          return;}          return;
1811  goto T675;  goto T682;
1812  T675:;  T682:;
1813          if(!(((V81))==(VV[57]))){          if(!(((V82))==(VV[68]))){
1814          goto T701;}          goto T694;}
1815          {register object x= (V80),V112= VV[58];          if(!(((V81))==(VV[69]))){
1816          while(!endp(V112))          goto T697;}
         if(eql(x,V112->c.c_car)){  
         goto T706;  
         }else V112=V112->c.c_cdr;  
         goto T704;}  
 goto T706;  
 T706:;  
         if(((*(LnkLI105))((V82),(V83)))==Cnil){  
         goto T704;}  
1817          base[2]= Ct;          base[2]= Ct;
1818          base[3]= Ct;          base[3]= Ct;
1819          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1820          return;          return;
1821  goto T704;  goto T697;
1822  T704:;  T697:;
1823          base[2]= Cnil;          base[2]= Cnil;
1824          base[3]= (V84);          base[3]= (V85);
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T701;  
 T701:;  
         if((get((V81),VV[33],Cnil))==Cnil){  
         goto T713;}  
         base[2]= Cnil;  
         base[3]= (V84);  
1825          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1826          return;          return;
1827  goto T713;  goto T694;
1828  T713:;  T694:;
1829          {object V113= (V80);          if(!(((V82))==(VV[70]))){
1830          if((V113!= VV[29]))goto T717;          goto T704;}
1831          {object V114= (V81);          if(!(((V81))==(VV[71]))){
1832          if((V114!= VV[29]))goto T718;          goto T707;}
1833          base[2]= Ct;          base[2]= Ct;
1834          base[3]= Ct;          base[3]= Ct;
1835          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1836          return;          return;
1837    goto T707;
1838    T707:;
1839            base[2]= Cnil;
1840            base[3]= (V85);
1841            vs_top=(vs_base=base+2)+2;
1842            return;
1843    goto T704;
1844    T704:;
1845            if(!(((V82))==(VV[72]))){
1846            goto T714;}
1847            {register object x= (V81),V115= VV[73];
1848            while(!endp(V115))
1849            if(eql(x,V115->c.c_car)){
1850            goto T718;
1851            }else V115=V115->c.c_cdr;
1852            goto T717;}
1853  goto T718;  goto T718;
1854  T718:;  T718:;
         if((V114!= VV[13])  
         && (V114!= VV[68]))goto T721;  
         if(((*(LnkLI105))(VV[59],(V83)))==Cnil){  
         goto T723;}  
1855          base[2]= Ct;          base[2]= Ct;
1856          base[3]= Ct;          base[3]= Ct;
1857          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1858          return;          return;
 goto T723;  
 T723:;  
         base[2]= Cnil;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T721;  
 T721:;  
         base[2]= Cnil;  
         base[3]= (V85);  
         vs_top=(vs_base=base+2)+2;  
         return;}  
1859  goto T717;  goto T717;
1860  T717:;  T717:;
1861          if((V113!= VV[30]))goto T731;          base[2]= Cnil;
1862          {object V115= (V81);          base[3]= (V85);
         if((V115!= VV[30]))goto T732;  
         base[2]= Ct;  
         base[3]= Ct;  
1863          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1864          return;          return;
1865  goto T732;  goto T714;
1866  T732:;  T714:;
1867          if((V115!= VV[68]))goto T735;          V116= coerce_to_string((V82));
1868          if(((*(LnkLI105))(VV[60],(V83)))==Cnil){          if(equal(/* INLINE-ARGS */V116,VV[74])){
1869          goto T737;}          goto T723;}
1870            if(!(((V82))==(VV[75]))){
1871            goto T724;}
1872    goto T723;
1873    T723:;
1874            {register object x= (V81),V117= VV[76];
1875            while(!endp(V117))
1876            if(eql(x,V117->c.c_car)){
1877            goto T730;
1878            }else V117=V117->c.c_cdr;
1879            goto T729;}
1880    goto T730;
1881    T730:;
1882          base[2]= Ct;          base[2]= Ct;
1883          base[3]= Ct;          base[3]= Ct;
1884          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1885          return;          return;
1886  goto T737;  goto T729;
1887  T737:;  T729:;
         base[2]= Cnil;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T735;  
 T735:;  
1888          base[2]= Cnil;          base[2]= Cnil;
1889          base[3]= (V85);          base[3]= (V85);
1890          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1891          return;}          return;
1892  goto T731;  goto T724;
1893  T731:;  T724:;
1894          if((V113!= VV[86]))goto T745;          if(!(((V82))==(VV[77]))){
1895          {register object x= (V81),V116= VV[61];          goto T736;}
1896          while(!endp(V116))          {register object x= (V81),V118= VV[78];
1897          if(eql(x,V116->c.c_car)){          while(!endp(V118))
1898          goto T748;          if(eql(x,V118->c.c_car)){
1899          }else V116=V116->c.c_cdr;          goto T740;
1900          goto T747;}          }else V118=V118->c.c_cdr;
1901  goto T748;          goto T739;}
1902  T748:;  goto T740;
1903    T740:;
1904          base[2]= Ct;          base[2]= Ct;
1905          base[3]= Ct;          base[3]= Ct;
1906          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1907          return;          return;
1908  goto T747;  goto T739;
1909  T747:;  T739:;
1910          base[2]= Cnil;          base[2]= Cnil;
1911          base[3]= (V85);          base[3]= (V85);
1912          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1913          return;          return;
1914  goto T745;  goto T736;
1915  T745:;  T736:;
1916          if((V113!= VV[106]))goto T753;          if(!(((V82))==(VV[79]))){
1917          {register object x= (V81),V117= VV[62];          goto T746;}
1918          while(!endp(V117))          if(!(((V81))==(VV[80]))){
1919          if(eql(x,V117->c.c_car)){          goto T749;}
         goto T756;  
         }else V117=V117->c.c_cdr;  
         goto T755;}  
 goto T756;  
 T756:;  
1920          base[2]= Ct;          base[2]= Ct;
1921          base[3]= Ct;          base[3]= Ct;
1922          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1923          return;          return;
1924  goto T755;  goto T749;
1925  T755:;  T749:;
1926          base[2]= Cnil;          base[2]= Cnil;
1927          base[3]= (V85);          base[3]= (V85);
1928          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1929          return;          return;
1930  goto T753;  goto T746;
1931  T753:;  T746:;
1932          if((V113!= VV[107]))goto T761;          if(!(((V82))==(VV[81]))){
1933          {register object x= (V81),V118= VV[63];          goto T756;}
1934          while(!endp(V118))          if(!(((V81))==(VV[82]))){
1935          if(eql(x,V118->c.c_car)){          goto T759;}
         goto T764;  
         }else V118=V118->c.c_cdr;  
         goto T763;}  
 goto T764;  
 T764:;  
1936          base[2]= Ct;          base[2]= Ct;
1937          base[3]= Ct;          base[3]= Ct;
1938          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1939          return;          return;
1940  goto T763;  goto T759;
1941  T763:;  T759:;
1942          base[2]= Cnil;          base[2]= Cnil;
1943          base[3]= (V85);          base[3]= (V85);
1944          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1945          return;          return;
1946  goto T761;  goto T756;
1947  T761:;  T756:;
1948          if((V113!= VV[108]))goto T769;          if(!(((V82))==(VV[83]))){
1949          {register object x= (V81),V119= VV[64];          goto T766;}
1950            {register object x= (V81),V119= VV[84];
1951          while(!endp(V119))          while(!endp(V119))
1952          if(eql(x,V119->c.c_car)){          if(eql(x,V119->c.c_car)){
1953          goto T772;          goto T770;
1954          }else V119=V119->c.c_cdr;          }else V119=V119->c.c_cdr;
1955          goto T771;}          goto T769;}
1956  goto T772;  goto T770;
1957  T772:;  T770:;
1958          base[2]= Ct;          base[2]= Ct;
1959          base[3]= Ct;          base[3]= Ct;
1960          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1961          return;          return;
1962  goto T771;  goto T769;
1963  T771:;  T769:;
1964          base[2]= Cnil;          base[2]= Cnil;
1965          base[3]= (V85);          base[3]= (V85);
1966          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1967          return;          return;
1968  goto T769;  goto T766;
1969  T769:;  T766:;
1970          if((V113!= VV[24]))goto T777;          if(!(((V82))==(VV[83]))){
1971          {register object x= (V81),V120= VV[65];          goto T776;}
1972            {register object x= (V81),V120= VV[85];
1973          while(!endp(V120))          while(!endp(V120))
1974          if(eql(x,V120->c.c_car)){          if(eql(x,V120->c.c_car)){
1975          goto T780;          goto T780;
# Line 1992  T779:; Line 1987  T779:;
1987          base[3]= (V85);          base[3]= (V85);
1988          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1989          return;          return;
1990  goto T777;  goto T776;
1991  T777:;  T776:;
1992          if((V113!= VV[109]))goto T785;          if(!(((V82))==(VV[86]))){
1993          {register object x= (V81),V121= VV[66];          goto T786;}
1994            {register object x= (V81),V121= VV[87];
1995          while(!endp(V121))          while(!endp(V121))
1996          if(eql(x,V121->c.c_car)){          if(eql(x,V121->c.c_car)){
1997          goto T788;          goto T790;
1998          }else V121=V121->c.c_cdr;          }else V121=V121->c.c_cdr;
1999          goto T787;}          goto T789;}
2000  goto T788;  goto T790;
2001  T788:;  T790:;
2002          base[2]= Ct;          base[2]= Ct;
2003          base[3]= Ct;          base[3]= Ct;
2004          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2005          return;          return;
2006  goto T787;  goto T789;
2007  T787:;  T789:;
2008          base[2]= Cnil;          base[2]= Cnil;
2009          base[3]= (V85);          base[3]= (V85);
2010          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2011          return;          return;
2012  goto T785;  goto T786;
2013  T785:;  T786:;
2014          if((V113!= VV[13]))goto T793;          if(!(((V82))==(VV[88]))){
2015          {register object x= (V81),V122= VV[67];          goto T796;}
2016            {register object x= (V81),V122= VV[89];
2017          while(!endp(V122))          while(!endp(V122))
2018          if(eql(x,V122->c.c_car)){          if(eql(x,V122->c.c_car)){
2019          goto T796;          goto T800;
2020          }else V122=V122->c.c_cdr;          }else V122=V122->c.c_cdr;
2021          goto T795;}          goto T799;}
2022  goto T796;  goto T800;
2023  T796:;  T800:;
2024          base[2]= (*(LnkLI105))((V82),(V83));          base[2]= Ct;
2025          base[3]= Ct;          base[3]= Ct;
2026          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2027          return;          return;
2028  goto T795;  goto T799;
2029  T795:;  T799:;
2030          base[2]= Cnil;          base[2]= Cnil;
2031          base[3]= (V85);          base[3]= (V85);
2032          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2033          return;          return;
2034  goto T793;  goto T796;
2035  T793:;  T796:;
2036          if((V113!= VV[68]))goto T801;          if(!(((V82))==(VV[90]))){
2037          if(!(((V81))==(VV[68]))){          goto T806;}
2038          goto T803;}          {register object x= (V81),V123= VV[91];
2039          base[2]= (*(LnkLI105))((V82),(V83));          while(!endp(V123))
2040            if(eql(x,V123->c.c_car)){
2041            goto T810;
2042            }else V123=V123->c.c_cdr;
2043            goto T809;}
2044    goto T810;
2045    T810:;
2046            base[2]= Ct;
2047          base[3]= Ct;          base[3]= Ct;
2048          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2049          return;          return;
2050  goto T803;  goto T809;
2051  T803:;  T809:;
2052          base[2]= Cnil;          base[2]= Cnil;
2053          base[3]= (V85);          base[3]= (V85);
2054          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2055          return;          return;
2056  goto T801;  goto T806;
2057  T801:;  T806:;
2058          if((V113!= VV[69]))goto T809;          if(!(((V82))==(VV[92]))){
2059          if(!(((V81))==(VV[69]))){          goto T816;}
2060          goto T811;}          if(!(((V81))==(VV[92]))){
2061          base[2]= (*(LnkLI105))((V82),(V83));          goto T819;}
2062            base[2]= Ct;
2063          base[3]= Ct;          base[3]= Ct;
2064          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2065          return;          return;
2066  goto T811;  goto T819;
2067  T811:;  T819:;
2068          base[2]= Cnil;          base[2]= Cnil;
2069          base[3]= (V85);          base[3]= (V85);
2070          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2071          return;          return;
2072  goto T809;  goto T816;
2073  T809:;  T816:;
2074          if((V113!= VV[31]))goto T817;          if(!(((V82))==(VV[57]))){
2075          {register object x= (V81),V123= VV[70];          goto T826;}
2076          while(!endp(V123))          if(!(((V81))==(VV[57]))){
2077          if(eql(x,V123->c.c_car)){          goto T829;}
2078          goto T820;          base[2]= Ct;
         }else V123=V123->c.c_cdr;  
         goto T819;}  
 goto T820;  
 T820:;  
         base[2]= (*(LnkLI105))((V82),(V83));  
2079          base[3]= Ct;          base[3]= Ct;
2080          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2081          return;          return;
2082  goto T819;  goto T829;
2083  T819:;  T829:;
2084          base[2]= Cnil;          base[2]= Cnil;
2085          base[3]= (V85);          base[3]= (V85);
2086          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2087          return;          return;
2088  goto T817;  goto T826;
2089  T817:;  T826:;
2090          if((V113!= VV[90])          if(!(((V82))==(VV[93]))){
2091          && (V113!= VV[91])          goto T836;}
2092          && (V113!= VV[32]))goto T825;          {register object x= (V81),V124= VV[94];
         {register object x= (V81),V124= VV[71];  
2093          while(!endp(V124))          while(!endp(V124))
2094          if(eql(x,V124->c.c_car)){          if(eql(x,V124->c.c_car)){
2095          goto T828;          goto T840;
2096          }else V124=V124->c.c_cdr;          }else V124=V124->c.c_cdr;
2097          goto T827;}          goto T839;}
2098  goto T828;  goto T840;
2099  T828:;  T840:;
2100          base[2]= (*(LnkLI105))((V82),(V83));          base[2]= Ct;
2101          base[3]= Ct;          base[3]= Ct;
2102          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2103          return;          return;
2104  goto T827;  goto T839;
2105  T827:;  T839:;
2106          base[2]= Cnil;          base[2]= Cnil;
2107          base[3]= (V85);          base[3]= (V85);
2108          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2109          return;          return;
2110  goto T825;  goto T836;
2111  T825:;  T836:;
2112          if((V113!= VV[72]))goto T833;          if(!(((V81))==(VV[93]))){
2113          if(!(((V81))==(VV[72]))){          goto T846;}
         goto T835;}{object V125;  
         V125= car((V82));  
         if(V125==Cnil)goto T839;  
         V78= V125;  
         goto T838;  
 goto T839;  
 T839:;}  
         V78= Ct;  
 goto T838;  
 T838:;{object V126;  
         V126= car((V83));  
         if(V126==Cnil)goto T842;  
         V79= V126;  
         goto T841;  
 goto T842;  
 T842:;}  
         V79= Ct;  
 goto T841;  
 T841:;  
         goto TTL;  
 goto T835;  
 T835:;  
2114          base[2]= Cnil;          base[2]= Cnil;
2115          base[3]= (V85);          base[3]= (V86);
2116          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2117          return;          return;
2118  goto T833;  goto T846;
2119  T833:;  T846:;
2120          if((V113!= VV[26]))goto T846;          if(((V82))==(VV[28])){
2121          if(((V81))==(VV[26])){          goto T850;}
2122          goto T847;}          if(!(((V82))==(VV[27]))){
2123          if(!(((V81))==(VV[22]))){          goto T851;}
2124          goto T848;}  goto T850;
2125  goto T847;  T850:;
2126  T847:;          if(((V81))==(VV[28])){
2127          if(endp_prop((V82))){          goto T855;}
2128          goto T853;}          if((get((V81),VV[35],Cnil))==Cnil){
2129          if(!((car((V82)))==(VV[17]))){          goto T856;}
2130          goto T854;}  goto T855;
2131  goto T853;  T855:;
2132  T853:;          base[2]= Ct;
         if(endp_prop((V83))){  
         goto T852;}  
         if((car((V83)))==(VV[17])){  
         goto T852;}  
         base[2]= Cnil;  
2133          base[3]= Ct;          base[3]= Ct;
2134          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2135          return;          return;
2136  goto T854;  goto T856;
2137  T854:;  T856:;
         if(endp_prop((V83))){  
         goto T852;}  
         if((car((V83)))==(VV[17])){  
         goto T852;}  
         if(equal(car((V82)),car((V83)))){  
         goto T852;}  
2138          base[2]= Cnil;          base[2]= Cnil;
2139          base[3]= Ct;          base[3]= (V85);
2140          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2141          return;          return;
2142  goto T852;  goto T851;
2143  T852:;  T851:;
2144          if(endp_prop(cdr((V82)))){          if(!(((V81))==(VV[28]))){
2145          goto T873;}          goto T865;}
2146          if(!((cadr((V82)))==(VV[17]))){          base[2]= Cnil;
2147          goto T872;}          base[3]= (V86);
 goto T873;  
 T873:;  
         if(endp_prop(cdr((V83)))){  
         goto T877;}  
         if(!((cadr((V83)))==(VV[17]))){  
         goto T878;}  
 goto T877;  
 T877:;  
         base[2]= Ct;  
         base[3]= Ct;  
2148          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2149          return;          return;
2150    goto T865;
2151    T865:;
2152            V87= get((V81),VV[35],Cnil);
2153            if(((V87))==Cnil){
2154            goto T870;}
2155            {object V125;
2156            V125= get((V82),VV[35],Cnil);
2157            if(((V125))==Cnil){
2158            goto T875;}
2159            {register object V126;
2160            V126= (V87);
2161  goto T878;  goto T878;
2162  T878:;  T878:;
2163            if(((V126))!=Cnil){
2164            goto T879;}
2165          base[2]= Cnil;          base[2]= Cnil;
2166          base[3]= Ct;          base[3]= Ct;
2167          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2168          return;          return;
2169  goto T872;  goto T879;
2170  T872:;  T879:;
2171          if(endp_prop(cdr((V83)))){          if(!(((V126))==(V125))){
2172          goto T887;}          goto T885;}
         if(!((cadr((V83)))==(VV[17]))){  
         goto T886;}  
 goto T887;  
 T887:;  
2173          base[2]= Ct;          base[2]= Ct;
2174          base[3]= Ct;          base[3]= Ct;
2175          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2176          return;          return;
2177  goto T886;  goto T885;
2178  T886:;  T885:;
2179          base[2]= (*(LnkLI93))(cadr((V82)),cadr((V83)));          V126= structure_ref((V126),VV[35],4);
2180            goto T878;}
2181    goto T875;
2182    T875:;
2183            base[2]= Cnil;
2184            base[3]= (V86);
2185            vs_top=(vs_base=base+2)+2;
2186            return;}
2187    goto T870;
2188    T870:;
2189            if(!(((V82))==(VV[95]))){
2190            goto T896;}
2191            {register object x= (V81),V128= VV[96];
2192            while(!endp(V128))
2193            if(eql(x,V128->c.c_car)){
2194            goto T901;
2195            }else V128=V128->c.c_cdr;
2196            goto T899;}
2197    goto T901;
2198    T901:;
2199            if(((*(LnkLI142))((V83),(V84)))==Cnil){
2200            goto T899;}
2201            base[2]= Ct;
2202          base[3]= Ct;          base[3]= Ct;
2203          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2204          return;          return;
2205  goto T848;  goto T899;
2206  T848:;  T899:;
2207          base[2]= Cnil;          base[2]= Cnil;
2208          base[3]= (V85);          base[3]= (V85);
2209          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2210          return;          return;
2211  goto T846;  goto T896;
2212  T846:;  T896:;
2213          if((V113!= VV[22]))goto T897;          if((get((V82),VV[35],Cnil))==Cnil){
2214          if(!(((V81))==(VV[22]))){          goto T908;}
         goto T899;}  
         if(endp_prop((V82))){  
         goto T902;}  
         if(!((car((V82)))==(VV[17]))){  
         goto T903;}  
 goto T902;  
 T902:;  
         if(endp_prop((V83))){  
         goto T901;}  
         if((car((V83)))==(VV[17])){  
         goto T901;}  
2215          base[2]= Cnil;          base[2]= Cnil;
2216          base[3]= Ct;          base[3]= (V85);
2217          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2218          return;          return;
2219  goto T903;  goto T908;
2220  T903:;  T908:;
2221          if(endp_prop((V83))){          {object V129= (V81);
2222          goto T901;}          if((V129!= VV[31]))goto T912;
2223          if((car((V83)))==(VV[17])){          {object V130= (V82);
2224          goto T901;}          if((V130!= VV[31]))goto T913;
2225          if(equal(car((V82)),car((V83)))){          base[2]= Ct;
         goto T901;}  
         base[2]= Cnil;  
2226          base[3]= Ct;          base[3]= Ct;
2227          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2228          return;          return;
2229  goto T901;  goto T913;
2230  T901:;  T913:;
2231          if(endp_prop(cdr((V82)))){          if((V130!= VV[13])
2232          goto T922;}          && (V130!= VV[106]))goto T916;
2233          if(!((cadr((V82)))==(VV[17]))){          if(((*(LnkLI142))(VV[97],(V84)))==Cnil){
2234          goto T921;}          goto T918;}
 goto T922;  
 T922:;  
         if(endp_prop(cdr((V83)))){  
         goto T926;}  
         if(!((cadr((V83)))==(VV[17]))){  
         goto T927;}  
 goto T926;  
 T926:;  
2235          base[2]= Ct;          base[2]= Ct;
2236          base[3]= Ct;          base[3]= Ct;
2237          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2238          return;          return;
2239  goto T927;  goto T918;
2240  T927:;  T918:;
2241          base[2]= Cnil;          base[2]= Cnil;
2242          base[3]= Ct;          base[3]= Ct;
2243          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2244          return;          return;
2245  goto T921;  goto T916;
2246  T921:;  T916:;
2247          if(endp_prop(cdr((V83)))){          base[2]= Cnil;
2248          goto T936;}          base[3]= (V86);
2249          if(!((cadr((V83)))==(VV[17]))){          vs_top=(vs_base=base+2)+2;
2250          goto T935;}          return;}
2251  goto T936;  goto T912;
2252  T936:;  T912:;
2253            if((V129!= VV[32]))goto T926;
2254            {object V131= (V82);
2255            if((V131!= VV[106]))goto T927;
2256            if(((*(LnkLI142))(VV[98],(V84)))==Cnil){
2257            goto T929;}
2258          base[2]= Ct;          base[2]= Ct;
2259          base[3]= Ct;          base[3]= Ct;
2260          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2261          return;          return;
2262  goto T935;  goto T929;
2263  T935:;  T929:;
2264          base[2]= (*(LnkLI93))(cadr((V82)),cadr((V83)));          base[2]= Cnil;
2265          base[3]= Ct;          base[3]= Ct;
2266          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2267          return;          return;
2268  goto T899;  goto T927;
2269  T899:;  T927:;
2270          base[2]= Cnil;          base[2]= Cnil;
2271          base[3]= (V85);          base[3]= (V86);
2272            vs_top=(vs_base=base+2)+2;
2273            return;}
2274    goto T926;
2275    T926:;
2276            if((V129!= VV[122]))goto T937;
2277            {register object x= (V82),V132= VV[99];
2278            while(!endp(V132))
2279            if(eql(x,V132->c.c_car)){
2280            goto T940;
2281            }else V132=V132->c.c_cdr;
2282            goto T939;}
2283    goto T940;
2284    T940:;
2285            base[2]= Ct;
2286            base[3]= Ct;
2287          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2288          return;          return;
2289  goto T897;  goto T939;
2290  T897:;  T939:;
2291          if(((V84))==Cnil){          base[2]= Cnil;
2292            base[3]= (V86);
2293            vs_top=(vs_base=base+2)+2;
2294            return;
2295    goto T937;
2296    T937:;
2297            if((V129!= VV[143]))goto T945;
2298            {register object x= (V82),V133= VV[100];
2299            while(!endp(V133))
2300            if(eql(x,V133->c.c_car)){
2301            goto T948;
2302            }else V133=V133->c.c_cdr;
2303          goto T947;}          goto T947;}
2304          base[2]= (((V80))==((V81))?Ct:Cnil);  goto T948;
2305    T948:;
2306            base[2]= Ct;
2307          base[3]= Ct;          base[3]= Ct;
2308          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2309          return;          return;
2310  goto T947;  goto T947;
2311  T947:;  T947:;
2312          base[2]= Cnil;          base[2]= Cnil;
2313          base[3]= Cnil;          base[3]= (V86);
2314          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2315          return;}}          return;
2316          }  goto T945;
2317  }  T945:;
2318  /*      local entry for function SUB-INTERVAL-P */          if((V129!= VV[123]))goto T953;
2319            {register object x= (V82),V134= VV[101];
2320  static object LI22(V129,V130)          while(!endp(V134))
2321            if(eql(x,V134->c.c_car)){
2322  register object V129;register object V130;          goto T956;
2323  {        VMB22 VMS22 VMV22          }else V134=V134->c.c_cdr;
 goto TTL;  
 TTL:;  
         {register object V131;  
         register object V132;  
         register object V133;  
         register object V134;  
         V131= Cnil;  
         V132= Cnil;  
         V133= Cnil;  
         V134= Cnil;  
         if(!(endp_prop((V129)))){  
2324          goto T955;}          goto T955;}
2325          V131= VV[17];  goto T956;
2326          V132= VV[17];  T956:;
2327          goto T953;          base[2]= Ct;
2328            base[3]= Ct;
2329            vs_top=(vs_base=base+2)+2;
2330            return;
2331  goto T955;  goto T955;
2332  T955:;  T955:;
2333          if(!(endp_prop(cdr((V129))))){          base[2]= Cnil;
2334          goto T961;}          base[3]= (V86);
2335          V131= car((V129));          vs_top=(vs_base=base+2)+2;
2336          V132= VV[17];          return;
         goto T953;  
 goto T961;  
 T961:;  
         V131= car((V129));  
         V132= cadr((V129));  
2337  goto T953;  goto T953;
2338  T953:;  T953:;
2339          if(!(endp_prop((V130)))){          if((V129!= VV[144]))goto T961;
2340            {register object x= (V82),V135= VV[102];
2341            while(!endp(V135))
2342            if(eql(x,V135->c.c_car)){
2343            goto T964;
2344            }else V135=V135->c.c_cdr;
2345            goto T963;}
2346    goto T964;
2347    T964:;
2348            base[2]= Ct;
2349            base[3]= Ct;
2350            vs_top=(vs_base=base+2)+2;
2351            return;
2352    goto T963;
2353    T963:;
2354            base[2]= Cnil;
2355            base[3]= (V86);
2356            vs_top=(vs_base=base+2)+2;
2357            return;
2358    goto T961;
2359    T961:;
2360            if((V129!= VV[145]))goto T969;
2361            {register object x= (V82),V136= VV[103];
2362            while(!endp(V136))
2363            if(eql(x,V136->c.c_car)){
2364            goto T972;
2365            }else V136=V136->c.c_cdr;
2366          goto T971;}          goto T971;}
2367          V133= VV[17];  goto T972;
2368          V134= VV[17];  T972:;
2369          goto T969;          base[2]= Ct;
2370            base[3]= Ct;
2371            vs_top=(vs_base=base+2)+2;
2372            return;
2373  goto T971;  goto T971;
2374  T971:;  T971:;
2375          if(!(endp_prop(cdr((V130))))){          base[2]= Cnil;
2376          goto T977;}          base[3]= (V86);
2377          V133= car((V130));          vs_top=(vs_base=base+2)+2;
2378          V134= VV[17];          return;
         goto T969;  
 goto T977;  
 T977:;  
         V133= car((V130));  
         V134= cadr((V130));  
2379  goto T969;  goto T969;
2380  T969:;  T969:;
2381          if(!(((V131))==(VV[17]))){          if((V129!= VV[24]))goto T977;
2382            if(!(((V82))==(VV[104]))){
2383            goto T979;}
2384            base[2]= Ct;
2385            base[3]= Ct;
2386            vs_top=(vs_base=base+2)+2;
2387            return;
2388    goto T979;
2389    T979:;
2390            base[2]= Cnil;
2391            base[3]= (V86);
2392            vs_top=(vs_base=base+2)+2;
2393            return;
2394    goto T977;
2395    T977:;
2396            if((V129!= VV[104]))goto T985;
2397            if(!(((V82))==(VV[24]))){
2398          goto T987;}          goto T987;}
2399          if(((V133))==(VV[17])){          base[2]= Ct;
2400          goto T985;}          base[3]= Ct;
2401          {object V135 = Cnil;          vs_top=(vs_base=base+2)+2;
2402          VMR22(V135)}          return;
2403  goto T987;  goto T987;
2404  T987:;  T987:;
2405          {object V136;          base[2]= Cnil;
2406          V136= (((V133))==(VV[17])?Ct:Cnil);          base[3]= (V86);
2407          if(((V136))==Cnil){          vs_top=(vs_base=base+2)+2;
2408          goto T993;}          return;
         goto T985;  
 goto T993;  
 T993:;  
         if(!(type_of((V131))==t_cons)){  
         goto T996;}  
         if(!(type_of((V133))==t_cons)){  
         goto T999;}  
         if(!(number_compare(car((V131)),car((V133)))<0)){  
         goto T985;}  
         {object V137 = Cnil;  
         VMR22(V137)}  
 goto T999;  
 T999:;  
         if(!(number_compare(car((V131)),(V133))<0)){  
         goto T985;}  
         {object V138 = Cnil;  
         VMR22(V138)}  
 goto T996;  
 T996:;  
         {object V139;  
         if(!(type_of((V133))==t_cons)){  
         goto T1007;}  
         if(!(number_compare((V131),car((V133)))<=0)){  
         goto T1010;}  
         {object V140 = Cnil;  
         VMR22(V140)}  
 goto T1010;  
 T1010:;  
         V139= Cnil;  
         goto T1005;  
 goto T1007;  
 T1007:;  
         if(!(number_compare((V131),(V133))<0)){  
         goto T1013;}  
         {object V141 = Cnil;  
         VMR22(V141)}  
 goto T1013;  
 T1013:;  
         V139= Cnil;  
 goto T1005;  
 T1005:;  
         if(((V139))==Cnil){  
         goto T985;}}}  
2409  goto T985;  goto T985;
2410  T985:;  T985:;
2411          if(!(((V132))==(VV[17]))){          if((V129!= VV[13]))goto T993;
2412            {register object x= (V82),V137= VV[105];
2413            while(!endp(V137))
2414            if(eql(x,V137->c.c_car)){
2415            goto T996;
2416            }else V137=V137->c.c_cdr;
2417            goto T995;}
2418    goto T996;
2419    T996:;
2420            base[2]= (*(LnkLI142))((V83),(V84));
2421            base[3]= Ct;
2422            vs_top=(vs_base=base+2)+2;
2423            return;
2424    goto T995;
2425    T995:;
2426            base[2]= Cnil;
2427            base[3]= (V86);
2428            vs_top=(vs_base=base+2)+2;
2429            return;
2430    goto T993;
2431    T993:;
2432            if((V129!= VV[106]))goto T1001;
2433            if(!(((V82))==(VV[106]))){
2434            goto T1003;}
2435            base[2]= (*(LnkLI142))((V83),(V84));
2436            base[3]= Ct;
2437            vs_top=(vs_base=base+2)+2;
2438            return;
2439    goto T1003;
2440    T1003:;
2441            base[2]= Cnil;
2442            base[3]= (V86);
2443            vs_top=(vs_base=base+2)+2;
2444            return;
2445    goto T1001;
2446    T1001:;
2447            if((V129!= VV[107]))goto T1009;
2448            if(!(((V82))==(VV[107]))){
2449            goto T1011;}
2450            base[2]= (*(LnkLI142))((V83),(V84));
2451            base[3]= Ct;
2452            vs_top=(vs_base=base+2)+2;
2453            return;
2454    goto T1011;
2455    T1011:;
2456            base[2]= Cnil;
2457            base[3]= (V86);
2458            vs_top=(vs_base=base+2)+2;
2459            return;
2460    goto T1009;
2461    T1009:;
2462            if((V129!= VV[33]))goto T1017;
2463            {register object x= (V82),V138= VV[108];
2464            while(!endp(V138))
2465            if(eql(x,V138->c.c_car)){
2466            goto T1020;
2467            }else V138=V138->c.c_cdr;
2468          goto T1019;}          goto T1019;}
2469          if(((V134))==(VV[17])){  goto T1020;
2470          goto T1017;}  T1020:;
2471          {object V142 = Cnil;          base[2]= (*(LnkLI142))((V83),(V84));
2472          VMR22(V142)}          base[3]= Ct;
2473            vs_top=(vs_base=base+2)+2;
2474            return;
2475  goto T1019;  goto T1019;
2476  T1019:;  T1019:;
2477          {object V143;          base[2]= Cnil;
2478          V143= (((V134))==(VV[17])?Ct:Cnil);          base[3]= (V86);
2479          if(((V143))==Cnil){          vs_top=(vs_base=base+2)+2;
2480          goto T1025;}          return;
2481          goto T1017;  goto T1017;
2482  goto T1025;  T1017:;
2483  T1025:;          if((V129!= VV[127])
2484          if(!(type_of((V132))==t_cons)){          && (V129!= VV[128])
2485          goto T1028;}          && (V129!= VV[34]))goto T1025;
2486          if(!(type_of((V134))==t_cons)){          {register object x= (V82),V139= VV[109];
2487          goto T1031;}          while(!endp(V139))
2488          if(!(number_compare(car((V132)),car((V134)))>0)){          if(eql(x,V139->c.c_car)){
2489          goto T1017;}          goto T1028;
2490          {object V144 = Cnil;          }else V139=V139->c.c_cdr;
2491          VMR22(V144)}          goto T1027;}
 goto T1031;  
 T1031:;  
         if(!(number_compare(car((V132)),(V134))>0)){  
         goto T1017;}  
         {object V145 = Cnil;  
         VMR22(V145)}  
2492  goto T1028;  goto T1028;
2493  T1028:;  T1028:;
2494          {object V146;          base[2]= (*(LnkLI142))((V83),(V84));
2495          if(!(type_of((V134))==t_cons)){          base[3]= Ct;
2496          goto T1039;}          vs_top=(vs_base=base+2)+2;
2497          if(!(number_compare((V132),car((V134)))>=0)){          return;
2498          goto T1042;}  goto T1027;
2499          {object V147 = Cnil;  T1027:;
2500          VMR22(V147)}          base[2]= Cnil;
2501  goto T1042;          base[3]= (V86);
2502  T1042:;          vs_top=(vs_base=base+2)+2;
2503          V146= Cnil;          return;
2504          goto T1037;  goto T1025;
2505    T1025:;
2506            if((V129!= VV[110]))goto T1033;
2507            if(!(((V82))==(VV[110]))){
2508            goto T1035;}{object V140;
2509            V140= car((V83));
2510            if(V140==Cnil)goto T1039;
2511            V79= V140;
2512            goto T1038;
2513  goto T1039;  goto T1039;
2514  T1039:;  T1039:;}
2515          if(!(number_compare((V132),(V134))>0)){          V79= Ct;
2516          goto T1045;}  goto T1038;
2517          {object V148 = Cnil;  T1038:;{object V141;
2518          VMR22(V148)}          V141= car((V84));
2519  goto T1045;          if(V141==Cnil)goto T1042;
2520  T1045:;          V80= V141;
2521          V146= Cnil;          goto T1041;
2522  goto T1037;  goto T1042;
2523  T1037:;  T1042:;}
2524          if(((V146))==Cnil){          V80= Ct;
2525          goto T1017;}}}  goto T1041;
2526  goto T1017;  T1041:;
2527  T1017:;          goto TTL;
2528          {object V149 = Ct;  goto T1035;
2529          VMR22(V149)}}  T1035:;
2530          return Cnil;          base[2]= Cnil;
2531            base[3]= (V86);
2532            vs_top=(vs_base=base+2)+2;
2533            return;
2534    goto T1033;
2535    T1033:;
2536            if((V129!= VV[26]))goto T1046;
2537            if(((V82))==(VV[26])){
2538            goto T1047;}
2539            if(!(((V82))==(VV[22]))){
2540            goto T1048;}
2541    goto T1047;
2542    T1047:;
2543            if(endp_prop((V83))){
2544            goto T1053;}
2545            if(!((car((V83)))==(VV[17]))){
2546            goto T1054;}
2547    goto T1053;
2548    T1053:;
2549            if(endp_prop((V84))){
2550            goto T1052;}
2551            if((car((V84)))==(VV[17])){
2552            goto T1052;}
2553            base[2]= Cnil;
2554            base[3]= Ct;
2555            vs_top=(vs_base=base+2)+2;
2556            return;
2557    goto T1054;
2558    T1054:;
2559            if(endp_prop((V84))){
2560            goto T1052;}
2561            if((car((V84)))==(VV[17])){
2562            goto T1052;}
2563            if(equal(car((V83)),car((V84)))){
2564            goto T1052;}
2565            base[2]= Cnil;
2566            base[3]= Ct;
2567            vs_top=(vs_base=base+2)+2;
2568            return;
2569    goto T1052;
2570    T1052:;
2571            if(endp_prop(cdr((V83)))){
2572            goto T1073;}
2573            if(!((cadr((V83)))==(VV[17]))){
2574            goto T1072;}
2575    goto T1073;
2576    T1073:;
2577            if(endp_prop(cdr((V84)))){
2578            goto T1077;}
2579            if(!((cadr((V84)))==(VV[17]))){
2580            goto T1078;}
2581    goto T1077;
2582    T1077:;
2583            base[2]= Ct;
2584            base[3]= Ct;
2585            vs_top=(vs_base=base+2)+2;
2586            return;
2587    goto T1078;
2588    T1078:;
2589            base[2]= Cnil;
2590            base[3]= Ct;
2591            vs_top=(vs_base=base+2)+2;
2592            return;
2593    goto T1072;
2594    T1072:;
2595            if(endp_prop(cdr((V84)))){
2596            goto T1087;}
2597            if(!((cadr((V84)))==(VV[17]))){
2598            goto T1086;}
2599    goto T1087;
2600    T1087:;
2601            base[2]= Ct;
2602            base[3]= Ct;
2603            vs_top=(vs_base=base+2)+2;
2604            return;
2605    goto T1086;
2606    T1086:;
2607            base[2]= (*(LnkLI130))(cadr((V83)),cadr((V84)));
2608            base[3]= Ct;
2609            vs_top=(vs_base=base+2)+2;
2610            return;
2611    goto T1048;
2612    T1048:;
2613            base[2]= Cnil;
2614            base[3]= (V86);
2615            vs_top=(vs_base=base+2)+2;
2616            return;
2617    goto T1046;
2618    T1046:;
2619            if((V129!= VV[22]))goto T1097;
2620            if(!(((V82))==(VV[22]))){
2621            goto T1099;}
2622            if(endp_prop((V83))){
2623            goto T1102;}
2624            if(!((car((V83)))==(VV[17]))){
2625            goto T1103;}
2626    goto T1102;
2627    T1102:;
2628            if(endp_prop((V84))){
2629            goto T1101;}
2630            if((car((V84)))==(VV[17])){
2631            goto T1101;}
2632            base[2]= Cnil;
2633            base[3]= Ct;
2634            vs_top=(vs_base=base+2)+2;
2635            return;
2636    goto T1103;
2637    T1103:;
2638            if(endp_prop((V84))){
2639            goto T1101;}
2640            if((car((V84)))==(VV[17])){
2641            goto T1101;}
2642            if(equal(car((V83)),car((V84)))){
2643            goto T1101;}
2644            base[2]= Cnil;
2645            base[3]= Ct;
2646            vs_top=(vs_base=base+2)+2;
2647            return;
2648    goto T1101;
2649    T1101:;
2650            if(endp_prop(cdr((V83)))){
2651            goto T1122;}
2652            if(!((cadr((V83)))==(VV[17]))){
2653            goto T1121;}
2654    goto T1122;
2655    T1122:;
2656            if(endp_prop(cdr((V84)))){
2657            goto T1126;}
2658            if(!((cadr((V84)))==(VV[17]))){
2659            goto T1127;}
2660    goto T1126;
2661    T1126:;
2662            base[2]= Ct;
2663            base[3]= Ct;
2664            vs_top=(vs_base=base+2)+2;
2665            return;
2666    goto T1127;
2667    T1127:;
2668            base[2]= Cnil;
2669            base[3]= Ct;
2670            vs_top=(vs_base=base+2)+2;
2671            return;
2672    goto T1121;
2673    T1121:;
2674            if(endp_prop(cdr((V84)))){
2675            goto T1136;}
2676            if(!((cadr((V84)))==(VV[17]))){
2677            goto T1135;}
2678    goto T1136;
2679    T1136:;
2680            base[2]= Ct;
2681            base[3]= Ct;
2682            vs_top=(vs_base=base+2)+2;
2683            return;
2684    goto T1135;
2685    T1135:;
2686            base[2]= (*(LnkLI130))(cadr((V83)),cadr((V84)));
2687            base[3]= Ct;
2688            vs_top=(vs_base=base+2)+2;
2689            return;
2690    goto T1099;
2691    T1099:;
2692            base[2]= Cnil;
2693            base[3]= (V86);
2694            vs_top=(vs_base=base+2)+2;
2695            return;
2696    goto T1097;
2697    T1097:;
2698            if(((V85))==Cnil){
2699            goto T1147;}
2700            base[2]= (((V81))==((V82))?Ct:Cnil);
2701            base[3]= Ct;
2702            vs_top=(vs_base=base+2)+2;
2703            return;
2704    goto T1147;
2705    T1147:;
2706            base[2]= Cnil;
2707            base[3]= Cnil;
2708            vs_top=(vs_base=base+2)+2;
2709            return;}}
2710            }
2711  }  }
2712  /*      local entry for function IN-INTERVAL-P  */  /*      local entry for function SUB-INTERVAL-P */
2713    
2714  static object LI23(V152,V153)  static object LI22(V144,V145)
2715    
2716  register object V152;register object V153;  register object V144;register object V145;
2717  {        VMB23 VMS23 VMV23  {        VMB22 VMS22 VMV22
2718  goto TTL;  goto TTL;
2719  TTL:;  TTL:;
2720          {register object V154;          {register object V146;
2721          register object V155;          register object V147;
2722            register object V148;
2723            register object V149;
2724            V146= Cnil;
2725            V147= Cnil;
2726            V148= Cnil;
2727            V149= Cnil;
2728            if(!(endp_prop((V144)))){
2729            goto T1155;}
2730            V146= VV[17];
2731            V147= VV[17];
2732            goto T1153;
2733    goto T1155;
2734    T1155:;
2735            if(!(endp_prop(cdr((V144))))){
2736            goto T1161;}
2737            V146= car((V144));
2738            V147= VV[17];
2739            goto T1153;
2740    goto T1161;
2741    T1161:;
2742            V146= car((V144));
2743            V147= cadr((V144));
2744    goto T1153;
2745    T1153:;
2746            if(!(endp_prop((V145)))){
2747            goto T1171;}
2748            V148= VV[17];
2749            V149= VV[17];
2750            goto T1169;
2751    goto T1171;
2752    T1171:;
2753            if(!(endp_prop(cdr((V145))))){
2754            goto T1177;}
2755            V148= car((V145));
2756            V149= VV[17];
2757            goto T1169;
2758    goto T1177;
2759    T1177:;
2760            V148= car((V145));
2761            V149= cadr((V145));
2762    goto T1169;
2763    T1169:;
2764            if(!(((V146))==(VV[17]))){
2765            goto T1187;}
2766            if(((V148))==(VV[17])){
2767            goto T1185;}
2768            {object V150 = Cnil;
2769            VMR22(V150)}
2770    goto T1187;
2771    T1187:;
2772            {object V151;
2773            V151= (((V148))==(VV[17])?Ct:Cnil);
2774            if(((V151))==Cnil){
2775            goto T1193;}
2776            goto T1185;
2777    goto T1193;
2778    T1193:;
2779            if(!(type_of((V146))==t_cons)){
2780            goto T1196;}
2781            if(!(type_of((V148))==t_cons)){
2782            goto T1199;}
2783            if(!(number_compare(car((V146)),car((V148)))<0)){
2784            goto T1185;}
2785            {object V152 = Cnil;
2786            VMR22(V152)}
2787    goto T1199;
2788    T1199:;
2789            if(!(number_compare(car((V146)),(V148))<0)){
2790            goto T1185;}
2791            {object V153 = Cnil;
2792            VMR22(V153)}
2793    goto T1196;
2794    T1196:;
2795            {object V154;
2796            if(!(type_of((V148))==t_cons)){
2797            goto T1207;}
2798            if(!(number_compare((V146),car((V148)))<=0)){
2799            goto T1210;}
2800            {object V155 = Cnil;
2801            VMR22(V155)}
2802    goto T1210;
2803    T1210:;
2804          V154= Cnil;          V154= Cnil;
2805          V155= Cnil;          goto T1205;
2806          if(!(endp_prop((V153)))){  goto T1207;
2807          goto T1051;}  T1207:;
2808          V154= VV[17];          if(!(number_compare((V146),(V148))<0)){
2809          V155= VV[17];          goto T1213;}
2810          goto T1049;          {object V156 = Cnil;
2811  goto T1051;          VMR22(V156)}
2812  T1051:;  goto T1213;
2813          if(!(endp_prop(cdr((V153))))){  T1213:;
2814          goto T1057;}          V154= Cnil;
2815          V154= car((V153));  goto T1205;
2816          V155= VV[17];  T1205:;
2817          goto T1049;          if(((V154))==Cnil){
2818  goto T1057;          goto T1185;}}}
2819  T1057:;  goto T1185;
2820          V154= car((V153));  T1185:;
2821          V155= cadr((V153));          if(!(((V147))==(VV[17]))){
2822  goto T1049;          goto T1219;}
2823  T1049:;          if(((V149))==(VV[17])){
2824          {object V156;          goto T1217;}
         V156= (((V154))==(VV[17])?Ct:Cnil);  
         if(((V156))==Cnil){  
         goto T1068;}  
         goto T1065;  
 goto T1068;  
 T1068:;  
         if(!(type_of((V154))==t_cons)){  
         goto T1071;}  
         if(!(number_compare((V152),car((V154)))<=0)){  
         goto T1065;}  
2825          {object V157 = Cnil;          {object V157 = Cnil;
2826          VMR23(V157)}          VMR22(V157)}
2827  goto T1071;  goto T1219;
2828  T1071:;  T1219:;
2829          {object V158;          {object V158;
2830          if(!(number_compare((V152),(V154))<0)){          V158= (((V149))==(VV[17])?Ct:Cnil);
         goto T1077;}  
         {object V159 = Cnil;  
         VMR23(V159)}  
 goto T1077;  
 T1077:;  
         V158= Cnil;  
2831          if(((V158))==Cnil){          if(((V158))==Cnil){
2832          goto T1065;}}}          goto T1225;}
2833  goto T1065;          goto T1217;
2834  T1065:;  goto T1225;
2835          {object V160;  T1225:;
2836          V160= (((V155))==(VV[17])?Ct:Cnil);          if(!(type_of((V147))==t_cons)){
2837          if(((V160))==Cnil){          goto T1228;}
2838          goto T1084;}          if(!(type_of((V149))==t_cons)){
2839          goto T1081;          goto T1231;}
2840  goto T1084;          if(!(number_compare(car((V147)),car((V149)))>0)){
2841  T1084:;          goto T1217;}
2842          if(!(type_of((V155))==t_cons)){          {object V159 = Cnil;
2843          goto T1087;}          VMR22(V159)}
2844          if(!(number_compare((V152),car((V155)))>=0)){  goto T1231;
2845          goto T1081;}  T1231:;
2846          {object V161 = Cnil;          if(!(number_compare(car((V147)),(V149))>0)){
2847          VMR23(V161)}          goto T1217;}
2848  goto T1087;          {object V160 = Cnil;
2849  T1087:;          VMR22(V160)}
2850          {object V162;  goto T1228;
2851          if(!(number_compare((V152),(V155))>0)){  T1228:;
2852          goto T1093;}          {object V161;
2853            if(!(type_of((V149))==t_cons)){
2854            goto T1239;}
2855            if(!(number_compare((V147),car((V149)))>=0)){
2856            goto T1242;}
2857            {object V162 = Cnil;
2858            VMR22(V162)}
2859    goto T1242;
2860    T1242:;
2861            V161= Cnil;
2862            goto T1237;
2863    goto T1239;
2864    T1239:;
2865            if(!(number_compare((V147),(V149))>0)){
2866            goto T1245;}
2867          {object V163 = Cnil;          {object V163 = Cnil;
2868          VMR23(V163)}          VMR22(V163)}
2869  goto T1093;  goto T1245;
2870  T1093:;  T1245:;
2871          V162= Cnil;          V161= Cnil;
2872          if(((V162))==Cnil){  goto T1237;
2873          goto T1081;}}}  T1237:;
2874  goto T1081;          if(((V161))==Cnil){
2875  T1081:;          goto T1217;}}}
2876    goto T1217;
2877    T1217:;
2878          {object V164 = Ct;          {object V164 = Ct;
2879          VMR23(V164)}}          VMR22(V164)}}
2880            return Cnil;
2881    }
2882    /*      local entry for function IN-INTERVAL-P  */
2883    
2884    static object LI23(V167,V168)
2885    
2886    register object V167;register object V168;
2887    {        VMB23 VMS23 VMV23
2888    goto TTL;
2889    TTL:;
2890            {register object V169;
2891            register object V170;
2892            V169= Cnil;
2893            V170= Cnil;
2894            if(!(endp_prop((V168)))){
2895            goto T1251;}
2896            V169= VV[17];
2897            V170= VV[17];
2898            goto T1249;
2899    goto T1251;
2900    T1251:;
2901            if(!(endp_prop(cdr((V168))))){
2902            goto T1257;}
2903            V169= car((V168));
2904            V170= VV[17];
2905            goto T1249;
2906    goto T1257;
2907    T1257:;
2908            V169= car((V168));
2909            V170= cadr((V168));
2910    goto T1249;
2911    T1249:;
2912            {object V171;
2913            V171= (((V169))==(VV[17])?Ct:Cnil);
2914            if(((V171))==Cnil){
2915            goto T1268;}
2916            goto T1265;
2917    goto T1268;
2918    T1268:;
2919            if(!(type_of((V169))==t_cons)){
2920            goto T1271;}
2921            if(!(number_compare((V167),car((V169)))<=0)){
2922            goto T1265;}
2923            {object V172 = Cnil;
2924            VMR23(V172)}
2925    goto T1271;
2926    T1271:;
2927            {object V173;
2928            if(!(number_compare((V167),(V169))<0)){
2929            goto T1277;}
2930            {object V174 = Cnil;
2931            VMR23(V174)}
2932    goto T1277;
2933    T1277:;
2934            V173= Cnil;
2935            if(((V173))==Cnil){
2936            goto T1265;}}}
2937    goto T1265;
2938    T1265:;
2939            {object V175;
2940            V175= (((V170))==(VV[17])?Ct:Cnil);
2941            if(((V175))==Cnil){
2942            goto T1284;}
2943            goto T1281;
2944    goto T1284;
2945    T1284:;
2946            if(!(type_of((V170))==t_cons)){
2947            goto T1287;}
2948            if(!(number_compare((V167),car((V170)))>=0)){
2949            goto T1281;}
2950            {object V176 = Cnil;
2951            VMR23(V176)}
2952    goto T1287;
2953    T1287:;
2954            {object V177;
2955            if(!(number_compare((V167),(V170))>0)){
2956            goto T1293;}
2957            {object V178 = Cnil;
2958            VMR23(V178)}
2959    goto T1293;
2960    T1293:;
2961            V177= Cnil;
2962            if(((V177))==Cnil){
2963            goto T1281;}}}
2964    goto T1281;
2965    T1281:;
2966            {object V179 = Ct;
2967            VMR23(V179)}}
2968          return Cnil;          return Cnil;
2969  }  }
2970  /*      local entry for function MATCH-DIMENSIONS       */  /*      local entry for function MATCH-DIMENSIONS       */
2971    
2972  static object LI24(V167,V168)  static object LI24(V182,V183)
2973    
2974  object V167;register object V168;  object V182;register object V183;
2975  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2976  goto TTL;  goto TTL;
2977  TTL:;  TTL:;
2978          if(((V167))!=Cnil){          if(((V182))!=Cnil){
2979          goto T1098;}          goto T1298;}
2980          {object V169 = (((V168))==Cnil?Ct:Cnil);          {object V184 = (((V183))==Cnil?Ct:Cnil);
2981          VMR24(V169)}          VMR24(V184)}
2982  goto T1098;  goto T1298;
2983  T1098:;  T1298:;
2984          if(!((car((V168)))==(VV[17]))){          if(!((car((V183)))==(VV[17]))){
2985          goto T1102;}          goto T1302;}
2986          goto T1100;          goto T1300;
2987  goto T1102;  goto T1302;
2988  T1102:;  T1302:;
2989          if(eql(car((V167)),car((V168)))){          if(eql(car((V182)),car((V183)))){
2990          goto T1100;}          goto T1300;}
2991          {object V170 = Cnil;          {object V185 = Cnil;
2992          VMR24(V170)}          VMR24(V185)}
2993  goto T1100;  goto T1300;
2994  T1100:;  T1300:;
2995          V167= cdr((V167));          V182= cdr((V182));
2996          V168= cdr((V168));          V183= cdr((V183));
2997          goto TTL;          goto TTL;
2998          return Cnil;          return Cnil;
2999  }  }
3000  /*      local entry for function COERCE */  /*      local entry for function COERCE */
3001    
3002  static object LI25(V173,V174)  static object LI25(V188,V189)
3003    
3004  register object V173;object V174;  register object V188;object V189;
3005  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
3006  goto TTL;  goto TTL;
3007  TTL:;  TTL:;
3008          base[0]= (V173);          base[0]= (V188);
3009          base[1]= (V174);          base[1]= (V189);
3010          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3011          (void) (*Lnk83)();          (void) (*Lnk121)();
3012          vs_top=sup;          vs_top=sup;
3013          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3014          goto T1107;}          goto T1307;}
3015          {object V175 = (V173);          {object V190 = (V188);
3016          VMR25(V175)}          VMR25(V190)}
3017  goto T1107;  goto T1307;
3018  T1107:;  T1307:;
3019          V174= (*(LnkLI102))((V174));          V189= (*(LnkLI139))((V189));
3020          {object V176= car((V174));          {object V191= car((V189));
3021          if((V176!= VV[41]))goto T1114;          if((V191!= VV[45]))goto T1314;
3022          {register object V177;          {register object V192;
3023          register object V178;          register object V193;
3024          V179 = make_fixnum((long)length((V173)));          V194 = make_fixnum((long)length((V188)));
3025          V178= one_minus(V179);          V193= one_minus(V194);
3026          V177= Cnil;          V192= Cnil;
3027  goto T1117;  goto T1317;
3028  T1117:;  T1317:;
3029          if(!(number_compare((V178),small_fixnum(0))<0)){          if(!(number_compare((V193),small_fixnum(0))<0)){
3030          goto T1118;}          goto T1318;}
3031          {object V180 = (V177);          {object V195 = (V192);
3032          VMR25(V180)}          VMR25(V195)}
3033  goto T1118;  goto T1318;
3034  T1118:;  T1318:;
3035          V181= elt((V173),fixint((V178)));          V196= elt((V188),fixint((V193)));
3036          V177= make_cons(/* INLINE-ARGS */V181,(V177));          V192= make_cons(/* INLINE-ARGS */V196,(V192));
3037          V178= one_minus((V178));          V193= one_minus((V193));
3038          goto T1117;}          goto T1317;}
3039  goto T1114;  goto T1314;
3040  T1114:;  T1314:;
3041          if((V176!= VV[22])          if((V191!= VV[22])
3042          && (V176!= VV[26]))goto T1126;          && (V191!= VV[26]))goto T1326;
3043          if(endp_prop(cdr((V174)))){          if(endp_prop(cdr((V189)))){
3044          goto T1127;}          goto T1327;}
3045          if(endp_prop(cddr((V174)))){          if(endp_prop(cddr((V189)))){
3046          goto T1127;}          goto T1327;}
3047          if((caddr((V174)))==(VV[17])){          if((caddr((V189)))==(VV[17])){
3048          goto T1127;}          goto T1327;}
3049          if(endp_prop(cdr(caddr((V174))))){          if(endp_prop(cdr(caddr((V189))))){
3050          goto T1127;}          goto T1327;}
3051          base[0]= VV[73];          base[0]= VV[111];
3052          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3053          Lerror();          Lerror();
3054          vs_top=sup;          vs_top=sup;
3055  goto T1127;  goto T1327;
3056  T1127:;  T1327:;
3057          {register object V182;          {register object V197;
3058          register object V183;          register object V198;
3059          register object V184;          register object V199;
3060          V185 = make_fixnum((long)length((V173)));          V200 = make_fixnum((long)length((V188)));
3061          V182= (VFUN_NARGS=2,(*(LnkLI110))((V174),V185));          V197= (VFUN_NARGS=2,(*(LnkLI146))((V189),V200));
3062          V184= make_fixnum((long)length((V173)));          V199= make_fixnum((long)length((V188)));
3063          V183= small_fixnum(0);          V198= small_fixnum(0);
3064  goto T1140;  goto T1340;
3065  T1140:;  T1340:;
3066          if(!(number_compare((V183),(V184))>=0)){          if(!(number_compare((V198),(V199))>=0)){
3067          goto T1141;}          goto T1341;}
3068          {object V186 = (V182);          {object V201 = (V197);
3069          VMR25(V186)}          VMR25(V201)}
3070  goto T1141;  goto T1341;
3071  T1141:;  T1341:;
3072          V187= elt((V173),fixint((V183)));          V202= elt((V188),fixint((V198)));
3073          (void)(elt_set((V182),fixint((V183)),/* INLINE-ARGS */V187));          (void)(elt_set((V197),fixint((V198)),/* INLINE-ARGS */V202));
3074          V183= one_plus((V183));          V198= one_plus((V198));
3075          goto T1140;}          goto T1340;}
3076  goto T1126;  goto T1326;
3077  T1126:;  T1326:;
3078          if((V176!= VV[109]))goto T1149;          if((V191!= VV[104]))goto T1349;
3079          base[0]= (V173);          base[0]= (V188);
3080          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3081          Lcharacter();          Lcharacter();
3082          vs_top=sup;          vs_top=sup;
3083          {object V188 = vs_base[0];          {object V203 = vs_base[0];
3084          VMR25(V188)}          VMR25(V203)}
3085  goto T1149;  goto T1349;
3086  T1149:;  T1349:;
3087          if((V176!= VV[69]))goto T1151;          if((V191!= VV[107]))goto T1351;
3088          base[0]= (V173);          base[0]= (V188);
3089          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3090          Lfloat();          Lfloat();
3091          vs_top=sup;          vs_top=sup;
3092          {object V189 = vs_base[0];          {object V204 = vs_base[0];
3093          VMR25(V189)}          VMR25(V204)}
3094  goto T1151;  goto T1351;
3095  T1151:;  T1351:;
3096          if((V176!= VV[31]))goto T1153;          if((V191!= VV[33]))goto T1353;
3097          base[0]= (V173);          base[0]= (V188);
3098          base[1]= VV[74];          base[1]= VV[112];
3099          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3100          Lfloat();          Lfloat();
3101          vs_top=sup;          vs_top=sup;
3102          {object V190 = vs_base[0];          {object V205 = vs_base[0];
3103          VMR25(V190)}          VMR25(V205)}
3104  goto T1153;  goto T1353;
3105  T1153:;  T1353:;
3106          if((V176!= VV[90])          if((V191!= VV[127])
3107          && (V176!= VV[91])          && (V191!= VV[128])
3108          && (V176!= VV[32]))goto T1156;          && (V191!= VV[34]))goto T1356;
3109          base[0]= (V173);          base[0]= (V188);
3110          base[1]= VV[75];          base[1]= VV[113];
3111          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3112          Lfloat();          Lfloat();
3113          vs_top=sup;          vs_top=sup;
3114          {object V191 = vs_base[0];          {object V206 = vs_base[0];
3115          VMR25(V191)}          VMR25(V206)}
3116  goto T1156;  goto T1356;
3117  T1156:;  T1356:;
3118          if((V176!= VV[72]))goto T1159;          if((V191!= VV[110]))goto T1359;
3119          if((cdr((V174)))==Cnil){          if((cdr((V189)))==Cnil){
3120          goto T1160;}          goto T1360;}
3121          if((cadr((V174)))==Cnil){          if((cadr((V189)))==Cnil){
3122          goto T1160;}          goto T1360;}
3123          if(!((cadr((V174)))==(VV[17]))){          if(!((cadr((V189)))==(VV[17]))){
3124          goto T1161;}          goto T1361;}
3125  goto T1160;  goto T1360;
3126  T1160:;  T1360:;
3127          base[1]= (V173);          base[1]= (V188);
3128          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3129          Lrealpart();          Lrealpart();
3130          vs_top=sup;          vs_top=sup;
3131          base[0]= vs_base[0];          base[0]= vs_base[0];
3132          base[2]= (V173);          base[2]= (V188);
3133          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3134          Limagpart();          Limagpart();
3135          vs_top=sup;          vs_top=sup;
# Line 2744  T1160:; Line 3137  T1160:;
3137          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3138          Lcomplex();          Lcomplex();
3139          vs_top=sup;          vs_top=sup;
3140          {object V192 = vs_base[0];          {object V207 = vs_base[0];
3141          VMR25(V192)}          VMR25(V207)}
3142  goto T1161;  goto T1361;
3143  T1161:;  T1361:;
3144          base[1]= (V173);          base[1]= (V188);
3145          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3146          Lrealpart();          Lrealpart();
3147          vs_top=sup;          vs_top=sup;
3148          V193= vs_base[0];          V208= vs_base[0];
3149          base[0]= (*(LnkLI111))(V193,cadr((V174)));          base[0]= (*(LnkLI147))(V208,cadr((V189)));
3150          base[2]= (V173);          base[2]= (V188);
3151          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3152          Limagpart();          Limagpart();
3153          vs_top=sup;          vs_top=sup;
3154          V194= vs_base[0];          V209= vs_base[0];
3155          base[1]= (*(LnkLI111))(V194,cadr((V174)));          base[1]= (*(LnkLI147))(V209,cadr((V189)));
3156          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3157          Lcomplex();          Lcomplex();
3158          vs_top=sup;          vs_top=sup;
3159          {object V195 = vs_base[0];          {object V210 = vs_base[0];
3160          VMR25(V195)}          VMR25(V210)}
3161  goto T1159;  goto T1359;
3162  T1159:;  T1359:;
3163          base[0]= VV[76];          base[0]= VV[114];
3164          base[1]= (V173);          base[1]= (V188);
3165          base[2]= (V174);          base[2]= (V189);
3166          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3167          Lerror();          Lerror();
3168          vs_top=sup;          vs_top=sup;
3169          {object V196 = vs_base[0];          {object V211 = vs_base[0];
3170          VMR25(V196)}}          VMR25(V211)}}
3171          base[0]=base[0];          base[0]=base[0];
3172          return Cnil;          return Cnil;
3173  }  }
# Line 2784  static void L26() Line 3177  static void L26()
3177  {register object *base=vs_base;  {register object *base=vs_base;
3178          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
3179          vs_reserve(VM26);          vs_reserve(VM26);
3180          {object V197;          {object V212;
3181          object V198;          object V213;
3182          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
3183          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
3184          V197=(base[0]);          V212=(base[0]);
3185          vs_base=vs_base+1;          vs_base=vs_base+1;
3186          if(vs_base>=vs_top){vs_top=sup;goto T1180;}          if(vs_base>=vs_top){vs_top=sup;goto T1380;}
3187          V198=(base[1]);          V213=(base[1]);
3188          vs_top=sup;          vs_top=sup;
3189          goto T1181;          goto T1381;
3190  goto T1180;  goto T1380;
3191  T1180:;  T1380:;
3192          V198= Cnil;          V213= Cnil;
3193  goto T1181;  goto T1381;
3194  T1181:;  T1381:;
3195          if(symbol_value(VV[77])==Cnil){          if(symbol_value(VV[115])==Cnil){
3196          base[2]= Cnil;          base[2]= Cnil;
3197          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3198          return;}          return;}
3199          if(!(((eql((V197),symbol_value(VV[77]))?Ct:Cnil))==Cnil)){          if(!(((eql((V212),symbol_value(VV[115]))?Ct:Cnil))==Cnil)){
3200          goto T1185;}          goto T1385;}
3201          goto T1183;          goto T1383;
3202  goto T1185;  goto T1385;
3203  T1185:;  T1385:;
3204          if(((eql((V198),symbol_value(VV[78]))?Ct:Cnil))==Cnil){          if(((eql((V213),symbol_value(VV[116]))?Ct:Cnil))==Cnil){
3205          goto T1183;}          goto T1383;}
3206          base[2]= Cnil;          base[2]= Cnil;
3207          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3208          return;          return;
3209  goto T1183;  goto T1383;
3210  T1183:;  T1383:;
3211          if(symbol_value(VV[79])==Cnil){          if(symbol_value(VV[117])==Cnil){
3212          base[2]= Cnil;          base[2]= Cnil;
3213          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3214          return;}          return;}
3215          base[2]= Ct;          base[2]= Ct;
3216          base[3]= VV[80];          base[3]= VV[118];
3217          base[4]= (V198);          base[4]= (V213);
3218          base[5]= (V197);          base[5]= (V212);
3219          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
3220          Lformat();          Lformat();
3221          return;          return;
3222          }          }
3223  }  }
3224  static object  LnkTLI111(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[111],(void **)&LnkLI111,2,ap);va_end(ap);return V1;} /* COERCE */  static object  LnkTLI147(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[147],(void **)&LnkLI147,2,ap);va_end(ap);return V1;} /* COERCE */
3225  static object  LnkTLI110(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[110],(void **)&LnkLI110,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */  static object  LnkTLI146(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[146],(void **)&LnkLI146,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
3226  static object  LnkTLI105(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[105],(void **)&LnkLI105,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */  static object  LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */
3227  static object  LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[104],(void **)&LnkLI104,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */  static object  LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */
3228  static void LnkT103(){ call_or_link(VV[103],(void **)&Lnk103);} /* SUBTYPEP */  static void LnkT140(){ call_or_link(VV[140],(void **)&Lnk140);} /* SUBTYPEP */
3229  static object  LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[102],(void **)&LnkLI102,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */  static object  LnkTLI139(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[139],(void **)&LnkLI139,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
3230  static void LnkT101(){ call_or_link(VV[101],(void **)&Lnk101);} /* STRUCTURE-SUBTYPE-P */  static void LnkT138(){ call_or_link(VV[138],(void **)&Lnk138);} /* STRUCTURE-SUBTYPE-P */
3231  static object  LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[100],(void **)&LnkLI100,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI137(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[137],(void **)&LnkLI137,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
3232  static object  LnkTLI99(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[99],(void **)&LnkLI99,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */  static object  LnkTLI136(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[136],(void **)&LnkLI136,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */
3233  static object  LnkTLI94(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[94],(void **)&LnkLI94,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */  static object  LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[131],(void **)&LnkLI131,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
3234  static object  LnkTLI93(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[93],(void **)&LnkLI93,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */  static object  LnkTLI130(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[130],(void **)&LnkLI130,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */
3235  static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* REALP */  static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* REALP */
3236  static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* RATIONALP */  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* RATIONALP */
3237  static object  LnkTLI87(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[87],(void **)&LnkLI87,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */  static object  LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */
3238  static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* TYPEP */  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* TYPEP */
3239  static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* ARRAY-HAS-FILL-POINTER-P */
3240  static object  LnkTLI81(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[81],(void **)&LnkLI81,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */  static object  LnkTLI119(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[119],(void **)&LnkLI119,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
3241    
3242  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3243  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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