/[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.7 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.8 by camm, Thu Oct 3 05:32:38 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= (*(LnkLI75))(base[4]);          V13= (*(LnkLI78))(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) (*Lnk76)();          (void) (*Lnk79)();
429          vs_top=sup;          vs_top=sup;
430          V34= vs_base[0];          V34= vs_base[0];
431          if((V34)==Cnil){          if((V34)==Cnil){
# Line 503  T103:; Line 503  T103:;
503          base[2]= (V38);          base[2]= (V38);
504          base[3]= car((V41));          base[3]= car((V41));
505          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
506          (void) (*Lnk77)();          (void) (*Lnk80)();
507          vs_top=sup;          vs_top=sup;
508          V46= vs_base[0];          V46= vs_base[0];
509          base[2]= ((V46)==Cnil?Ct:Cnil);          base[2]= ((V46)==Cnil?Ct:Cnil);
# Line 526  T111:; Line 526  T111:;
526          base[2]= (V38);          base[2]= (V38);
527          base[3]= car((V47));          base[3]= car((V47));
528          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
529          (void) (*Lnk77)();          (void) (*Lnk80)();
530          vs_top=sup;          vs_top=sup;
531          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
532          goto T115;}          goto T115;}
# Line 554  T126:; Line 554  T126:;
554          base[2]= (V38);          base[2]= (V38);
555          base[3]= car((V48));          base[3]= car((V48));
556          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
557          (void) (*Lnk77)();          (void) (*Lnk80)();
558          vs_top=sup;          vs_top=sup;
559          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
560          goto T130;}          goto T130;}
# Line 567  T130:; Line 567  T130:;
567          goto T125;}          goto T125;}
568  goto T123;  goto T123;
569  T123:;  T123:;
570          if((V44!= VV[78]))goto T138;          if((V44!= VV[81]))goto T138;
571          base[2]= car((V41));          base[2]= car((V41));
572          base[3]= (V38);          base[3]= (V38);
573          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 587  T141:; Line 587  T141:;
587          return;          return;
588  goto T142;  goto T142;
589  T142:;  T142:;
590          if((V44!= VV[28]))goto T143;          if((V44!= VV[82]))goto T143;
591            if(!(((V38))==(Ct))){
592            goto T144;}
593            base[2]= Ct;
594            vs_top=(vs_base=base+2)+1;
595            return;
596    goto T144;
597    T144:;
598            base[2]= (((V38))==(Cnil)?Ct:Cnil);
599            vs_top=(vs_base=base+2)+1;
600            return;
601    goto T143;
602    T143:;
603            if((V44!= VV[28]))goto T146;
604          base[2]= (V38);          base[2]= (V38);
605          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
606          Ltype_of();          Ltype_of();
# Line 596  T142:; Line 609  T142:;
609          base[2]= ((V49)==(VV[28])?Ct:Cnil);          base[2]= ((V49)==(VV[28])?Ct:Cnil);
610          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
611          return;          return;
612  goto T143;  goto T146;
613  T143:;  T146:;
614          if((V44!= VV[29]))goto T146;          if((V44!= VV[29]))goto T149;
615          base[2]= (V38);          base[2]= (V38);
616          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
617          Ltype_of();          Ltype_of();
# Line 607  T143:; Line 620  T143:;
620          base[2]= ((V50)==(VV[29])?Ct:Cnil);          base[2]= ((V50)==(VV[29])?Ct:Cnil);
621          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
622          return;          return;
623  goto T146;  goto T149;
624  T146:;  T149:;
625          if((V44!= VV[30]))goto T149;          if((V44!= VV[30]))goto T152;
626          base[2]= (V38);          base[2]= (V38);
627          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
628          Ltype_of();          Ltype_of();
# Line 618  T146:; Line 631  T146:;
631          base[2]= ((V51)==(VV[30])?Ct:Cnil);          base[2]= ((V51)==(VV[30])?Ct:Cnil);
632          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
633          return;          return;
634  goto T149;  goto T152;
635  T149:;  T152:;
636          if((V44!= VV[79]))goto T152;          if((V44!= VV[83]))goto T155;
637          if(type_of((V38))==t_character){          if(type_of((V38))==t_character){
638          goto T153;}          goto T156;}
639          base[2]= Cnil;          base[2]= Cnil;
640          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
641          return;          return;
642  goto T153;  goto T156;
643  T153:;  T156:;
644          base[2]= (V38);          base[2]= (V38);
645          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
646          Lstandard_char_p();          Lstandard_char_p();
647          return;          return;
648  goto T152;  goto T155;
649  T152:;  T155:;
650          if((V44!= VV[24]))goto T156;          if((V44!= VV[24]))goto T159;
651          if(type_of((V38))==t_character){          if(type_of((V38))==t_character){
652          goto T157;}          goto T160;}
653          base[2]= Cnil;          base[2]= Cnil;
654          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
655          return;          return;
656  goto T157;  goto T160;
657  T157:;  T160:;
658          base[2]= (V38);          base[2]= (V38);
659          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
660          Lstring_char_p();          Lstring_char_p();
661          return;          return;
662  goto T156;  goto T159;
663  T156:;  T159:;
664          if((V44!= VV[13]))goto T160;          if((V44!= VV[13]))goto T163;
665          if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){          if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){
666          goto T161;}          goto T164;}
667          base[2]= Cnil;          base[2]= Cnil;
668          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
669          return;          return;
670  goto T161;  goto T164;
671  T161:;  T164:;
672          base[2]= (*(LnkLI80))((V38),(V41));          base[2]= (*(LnkLI84))((V38),(V41));
673          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
674          return;          return;
675  goto T160;  goto T163;
676  T160:;  T163:;
677          if((V44!= VV[62]))goto T163;          if((V44!= VV[65]))goto T166;
678          base[2]= (V38);          base[2]= (V38);
679          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
680          (void) (*Lnk81)();          (void) (*Lnk85)();
681          vs_top=sup;          vs_top=sup;
682          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
683          goto T164;}          goto T167;}
684          base[2]= Cnil;          base[2]= Cnil;
685          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
686          return;          return;
687  goto T164;  goto T167;
688  T164:;  T167:;
689          base[2]= (*(LnkLI80))((V38),(V41));          base[2]= (*(LnkLI84))((V38),(V41));
690          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
691          return;          return;
692  goto T163;  goto T166;
693  T163:;  T166:;
694          if((V44!= VV[54]))goto T167;          if((V44!= VV[57]))goto T170;
695          base[2]= (V38);          base[2]= (V38);
696          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
697          (void) (*Lnk82)();          (void) (*Lnk86)();
698          vs_top=sup;          vs_top=sup;
699          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
700          goto T168;}          goto T171;}
701          base[2]= Cnil;          base[2]= Cnil;
702          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
703          return;          return;
704  goto T168;  goto T171;
705  T168:;  T171:;
706          base[2]= (*(LnkLI80))((V38),(V41));          base[2]= (*(LnkLI84))((V38),(V41));
707          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
708          return;          return;
709  goto T167;  goto T170;
710  T167:;  T170:;
711          if((V44!= VV[63]))goto T171;          if((V44!= VV[66]))goto T174;
712          if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){          if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){
713          goto T172;}          goto T175;}
714          base[2]= Cnil;          base[2]= Cnil;
715          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
716          return;          return;
717  goto T172;  goto T175;
718  T172:;  T175:;
719          base[2]= (*(LnkLI80))((V38),(V41));          base[2]= (*(LnkLI84))((V38),(V41));
720          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
721          return;          return;
722  goto T171;  goto T174;
723  T171:;  T174:;
724          if((V44!= VV[31]))goto T174;          if((V44!= VV[31]))goto T177;
725          base[2]= (V38);          base[2]= (V38);
726          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
727          Ltype_of();          Ltype_of();
728          vs_top=sup;          vs_top=sup;
729          V52= vs_base[0];          V52= vs_base[0];
730          if((V52)==(VV[31])){          if((V52)==(VV[31])){
731          goto T175;}          goto T178;}
732          base[2]= Cnil;          base[2]= Cnil;
733          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
734          return;          return;
735  goto T175;  goto T178;
736  T175:;  T178:;
737          base[2]= (*(LnkLI80))((V38),(V41));          base[2]= (*(LnkLI84))((V38),(V41));
738          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
739          return;          return;
740  goto T174;  goto T177;
741  T174:;  T177:;
742          if((V44!= VV[83])          if((V44!= VV[87])
743          && (V44!= VV[84])          && (V44!= VV[88])
744          && (V44!= VV[32]))goto T179;          && (V44!= VV[32]))goto T182;
745          base[2]= (V38);          base[2]= (V38);
746          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
747          Ltype_of();          Ltype_of();
748          vs_top=sup;          vs_top=sup;
749          V53= vs_base[0];          V53= vs_base[0];
750          if((V53)==(VV[32])){          if((V53)==(VV[32])){
751          goto T180;}          goto T183;}
752          base[2]= Cnil;          base[2]= Cnil;
753          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
754          return;          return;
755  goto T180;  goto T183;
756  T180:;  T183:;
757          base[2]= (*(LnkLI80))((V38),(V41));          base[2]= (*(LnkLI84))((V38),(V41));
758          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
759          return;          return;
760  goto T179;  goto T182;
761  T179:;  T182:;
762          if((V44!= VV[66]))goto T184;          if((V44!= VV[69]))goto T187;
763          base[2]= (V38);          base[2]= (V38);
764          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
765          Lcomplexp();          Lcomplexp();
766          vs_top=sup;          vs_top=sup;
767          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
768          goto T185;}          goto T188;}
769          base[2]= Cnil;          base[2]= Cnil;
770          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
771          return;          return;
772  goto T185;  goto T188;
773  T185:;  T188:;
774          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
775          goto T188;}          goto T191;}
776          base[2]= Ct;          base[2]= Ct;
777          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
778          return;          return;
779  goto T188;  goto T191;
780  T188:;  T191:;
781          base[3]= (V38);          base[3]= (V38);
782          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
783          Lrealpart();          Lrealpart();
# Line 772  T188:; Line 785  T188:;
785          base[2]= vs_base[0];          base[2]= vs_base[0];
786          base[3]= car((V41));          base[3]= car((V41));
787          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
788          (void) (*Lnk77)();          (void) (*Lnk80)();
789          vs_top=sup;          vs_top=sup;
790          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
791          goto T190;}          goto T193;}
792          base[2]= Cnil;          base[2]= Cnil;
793          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
794          return;          return;
795  goto T190;  goto T193;
796  T190:;  T193:;
797          base[2]= (V38);          base[2]= (V38);
798          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
799          Limagpart();          Limagpart();
# Line 788  T190:; Line 801  T190:;
801          V38= vs_base[0];          V38= vs_base[0];
802          V39= car((V41));          V39= car((V41));
803          goto TTL;          goto TTL;
804  goto T184;  goto T187;
805  T184:;  T187:;
806          if((V44!= VV[43]))goto T199;          if((V44!= VV[43]))goto T202;
807          if(!(type_of((V38))==t_cons||((V38))==Cnil)){          if(!(type_of((V38))==t_cons||((V38))==Cnil)){
808          goto T200;}          goto T203;}
809          base[2]= Ct;          base[2]= Ct;
810          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
811          return;          return;
812  goto T200;  goto T203;
813  T200:;  T203:;
814          base[2]= (type_of((V38))==t_vector||          base[2]= (type_of((V38))==t_vector||
815  type_of((V38))==t_string||  type_of((V38))==t_string||
816  type_of((V38))==t_bitvector?Ct:Cnil);  type_of((V38))==t_bitvector?Ct:Cnil);
817          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
818          return;          return;
819  goto T199;  goto T202;
820  T199:;  T202:;
821          if((V44!= VV[85]))goto T202;          if((V44!= VV[89]))goto T205;
822          if(type_of((V38))==t_string){          if(type_of((V38))==t_string){
823          goto T203;}          goto T206;}
824          base[2]= Cnil;          base[2]= Cnil;
825          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
826          return;          return;
827  goto T203;  goto T206;
828  T203:;  T206:;
829          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
830          goto T205;}          goto T208;}
831          base[2]= Ct;          base[2]= Ct;
832          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
833          return;          return;
834  goto T205;  goto T208;
835  T205:;  T208:;
836          V54= (*(LnkLI87))((V38));          V54= (*(LnkLI91))((V38));
837          base[2]= (*(LnkLI86))(/* INLINE-ARGS */V54,(V41));          base[2]= (*(LnkLI90))(/* INLINE-ARGS */V54,(V41));
838          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
839          return;          return;
840  goto T202;  goto T205;
841  T202:;  T205:;
842          if((V44!= VV[88]))goto T207;          if((V44!= VV[92]))goto T210;
843          if((type_of((V38))==t_bitvector)){          if((type_of((V38))==t_bitvector)){
844          goto T208;}          goto T211;}
845          base[2]= Cnil;          base[2]= Cnil;
846          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
847          return;          return;
848  goto T208;  goto T211;
849  T208:;  T211:;
850          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
851          goto T210;}          goto T213;}
852          base[2]= Ct;          base[2]= Ct;
853          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
854          return;          return;
855  goto T210;  goto T213;
856  T210:;  T213:;
857          V55= (*(LnkLI87))((V38));          V55= (*(LnkLI91))((V38));
858          base[2]= (*(LnkLI86))(/* INLINE-ARGS */V55,(V41));          base[2]= (*(LnkLI90))(/* INLINE-ARGS */V55,(V41));
859          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
860          return;          return;
861  goto T207;  goto T210;
862  T207:;  T210:;
863          if((V44!= VV[89]))goto T212;          if((V44!= VV[93]))goto T215;
864          base[2]= (V38);          base[2]= (V38);
865          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
866          Lsimple_string_p();          Lsimple_string_p();
867          vs_top=sup;          vs_top=sup;
868          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
869          goto T213;}          goto T216;}
870          base[2]= Cnil;          base[2]= Cnil;
871          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
872          return;          return;
873  goto T213;  goto T216;
874  T213:;  T216:;
875          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
876          goto T216;}          goto T219;}
877          base[2]= Ct;          base[2]= Ct;
878          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
879          return;          return;
880  goto T216;  goto T219;
881  T216:;  T219:;
882          V56= (*(LnkLI87))((V38));          V56= (*(LnkLI91))((V38));
883          base[2]= (*(LnkLI86))(/* INLINE-ARGS */V56,(V41));          base[2]= (*(LnkLI90))(/* INLINE-ARGS */V56,(V41));
884          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
885          return;          return;
886  goto T212;  goto T215;
887  T212:;  T215:;
888          if((V44!= VV[90]))goto T218;          if((V44!= VV[94]))goto T221;
889          base[2]= (V38);          base[2]= (V38);
890          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
891          Lsimple_bit_vector_p();          Lsimple_bit_vector_p();
892          vs_top=sup;          vs_top=sup;
893          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
894          goto T219;}          goto T222;}
895          base[2]= Cnil;          base[2]= Cnil;
896          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
897          return;          return;
898  goto T219;  goto T222;
899  T219:;  T222:;
900          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
901          goto T222;}          goto T225;}
902          base[2]= Ct;          base[2]= Ct;
903          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
904          return;          return;
905  goto T222;  goto T225;
906  T222:;  T225:;
907          V57= (*(LnkLI87))((V38));          V57= (*(LnkLI91))((V38));
908          base[2]= (*(LnkLI86))(/* INLINE-ARGS */V57,(V41));          base[2]= (*(LnkLI90))(/* INLINE-ARGS */V57,(V41));
909          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
910          return;          return;
911  goto T218;  goto T221;
912  T218:;  T221:;
913          if((V44!= VV[91]))goto T224;          if((V44!= VV[95]))goto T227;
914          base[2]= (V38);          base[2]= (V38);
915          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
916          Lsimple_vector_p();          Lsimple_vector_p();
917          vs_top=sup;          vs_top=sup;
918          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
919          goto T225;}          goto T228;}
920          base[2]= Cnil;          base[2]= Cnil;
921          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
922          return;          return;
923  goto T225;  goto T228;
924  T225:;  T228:;
925          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
926          goto T228;}          goto T231;}
927          base[2]= Ct;          base[2]= Ct;
928          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
929          return;          return;
930  goto T228;  goto T231;
931  T228:;  T231:;
932          V58= (*(LnkLI87))((V38));          V58= (*(LnkLI91))((V38));
933          base[2]= (*(LnkLI86))(/* INLINE-ARGS */V58,(V41));          base[2]= (*(LnkLI90))(/* INLINE-ARGS */V58,(V41));
934          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
935          return;          return;
936  goto T224;  goto T227;
937  T224:;  T227:;
938          if((V44!= VV[26]))goto T230;          if((V44!= VV[26]))goto T233;
939          if(((*(LnkLI92))((V38)))!=Cnil){          if(((*(LnkLI96))((V38)))!=Cnil){
940          goto T231;}          goto T234;}
941          base[2]= Cnil;          base[2]= Cnil;
942          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
943          return;          return;
944  goto T231;  goto T234;
945  T231:;  T234:;
946          if(!(endp_prop((V41)))){          if(!(endp_prop((V41)))){
947          goto T235;}          goto T238;}
948          goto T233;          goto T236;
949  goto T235;  goto T238;
950  T235:;  T238:;
951          if(!((car((V41)))==(VV[17]))){          if(!((car((V41)))==(VV[17]))){
952          goto T237;}          goto T240;}
953          goto T233;          goto T236;
954  goto T237;  goto T240;
955  T237:;  T240:;
956          base[2]= (V38);          base[2]= (V38);
957          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
958          Larray_element_type();          Larray_element_type();
959          vs_top=sup;          vs_top=sup;
960          V59= vs_base[0];          V59= vs_base[0];
961          V60= (*(LnkLI93))(car((V41)));          V60= (*(LnkLI97))(car((V41)));
962          if(equal(V59,/* INLINE-ARGS */V60)){          if(equal(V59,/* INLINE-ARGS */V60)){
963          goto T233;}          goto T236;}
964          base[2]= Cnil;          base[2]= Cnil;
965          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
966          return;          return;
967  goto T233;  goto T236;
968  T233:;  T236:;
969          if(!(endp_prop(cdr((V41))))){          if(!(endp_prop(cdr((V41))))){
970          goto T241;}          goto T244;}
971          base[2]= Ct;          base[2]= Ct;
972          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
973          return;          return;
974  goto T241;  goto T244;
975  T241:;  T244:;
976          if(!((cadr((V41)))==(VV[17]))){          if(!((cadr((V41)))==(VV[17]))){
977          goto T243;}          goto T246;}
978          base[2]= Ct;          base[2]= Ct;
979          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
980          return;          return;
981  goto T243;  goto T246;
982  T243:;  T246:;
983          V61= (*(LnkLI87))((V38));          V61= (*(LnkLI91))((V38));
984          base[2]= (*(LnkLI86))(/* INLINE-ARGS */V61,cadr((V41)));          base[2]= (*(LnkLI90))(/* INLINE-ARGS */V61,cadr((V41)));
985          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
986          return;          return;
987  goto T230;  goto T233;
988  T230:;  T233:;
989          if((V44!= VV[22]))goto T245;          if((V44!= VV[22]))goto T248;
990          if(type_of((V38))==t_array||          if(type_of((V38))==t_array||
991  type_of((V38))==t_vector||  type_of((V38))==t_vector||
992  type_of((V38))==t_string||  type_of((V38))==t_string||
993  type_of((V38))==t_bitvector){  type_of((V38))==t_bitvector){
994          goto T246;}          goto T249;}
995          base[2]= Cnil;          base[2]= Cnil;
996          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
997          return;          return;
998  goto T246;  goto T249;
999  T246:;  T249:;
1000          if(!(endp_prop((V41)))){          if(!(endp_prop((V41)))){
1001          goto T250;}          goto T253;}
1002          goto T248;          goto T251;
1003  goto T250;  goto T253;
1004  T250:;  T253:;
1005          if(!((car((V41)))==(VV[17]))){          if(!((car((V41)))==(VV[17]))){
1006          goto T252;}          goto T255;}
1007          goto T248;          goto T251;
1008  goto T252;  goto T255;
1009  T252:;  T255:;
1010          base[2]= (V38);          base[2]= (V38);
1011          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1012          Larray_element_type();          Larray_element_type();
1013          vs_top=sup;          vs_top=sup;
1014          V62= vs_base[0];          V62= vs_base[0];
1015          V63= (*(LnkLI93))(car((V41)));          V63= (*(LnkLI97))(car((V41)));
1016          if(equal(V62,/* INLINE-ARGS */V63)){          if(equal(V62,/* INLINE-ARGS */V63)){
1017          goto T248;}          goto T251;}
1018          base[2]= Cnil;          base[2]= Cnil;
1019          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1020          return;          return;
1021  goto T248;  goto T251;
1022  T248:;  T251:;
1023          if(!(endp_prop(cdr((V41))))){          if(!(endp_prop(cdr((V41))))){
1024          goto T256;}          goto T259;}
1025          base[2]= Ct;          base[2]= Ct;
1026          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1027          return;          return;
1028  goto T256;  goto T259;
1029  T256:;  T259:;
1030          if(!((cadr((V41)))==(VV[17]))){          if(!((cadr((V41)))==(VV[17]))){
1031          goto T258;}          goto T261;}
1032          base[2]= Ct;          base[2]= Ct;
1033          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1034          return;          return;
1035  goto T258;  goto T261;
1036  T258:;  T261:;
1037          V64= (*(LnkLI87))((V38));          V64= (*(LnkLI91))((V38));
1038          base[2]= (*(LnkLI86))(/* INLINE-ARGS */V64,cadr((V41)));          base[2]= (*(LnkLI90))(/* INLINE-ARGS */V64,cadr((V41)));
1039          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1040          return;          return;
1041  goto T245;  goto T248;
1042  T245:;  T248:;
1043          V42= get((V40),VV[33],Cnil);          V42= get((V40),VV[33],Cnil);
1044          if(((V42))==Cnil){          if(((V42))==Cnil){
1045          goto T261;}          goto T264;}
1046          base[2]= (V38);          base[2]= (V38);
1047          base[3]= (V42);          base[3]= (V42);
1048          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1049          (void) (*Lnk94)();          (void) (*Lnk98)();
1050          return;          return;
1051  goto T261;  goto T264;
1052  T261:;  T264:;
1053          if((get((V40),VV[34],Cnil))==Cnil){          if((get((V40),VV[34],Cnil))==Cnil){
1054          goto T267;}          goto T270;}
1055          base[2]= get((V40),VV[34],Cnil);          base[2]= get((V40),VV[34],Cnil);
1056          {object V65;          {object V65;
1057          V65= (V41);          V65= (V41);
# Line 1050  T261:; Line 1063  T261:;
1063          vs_top=sup;          vs_top=sup;
1064          V39= vs_base[0];          V39= vs_base[0];
1065          goto TTL;          goto TTL;
1066  goto T267;  goto T270;
1067  T267:;  T270:;
1068          base[2]= Cnil;          base[2]= Cnil;
1069          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1070          return;}}          return;}}
# Line 1069  TTL:; Line 1082  TTL:;
1082          register object V69;          register object V69;
1083          V68= Cnil;          V68= Cnil;
1084          V69= Cnil;          V69= Cnil;
1085  goto T277;  goto T280;
1086  T277:;  T280:;
1087          if(!(type_of((V67))!=t_cons)){          if(!(type_of((V67))!=t_cons)){
1088          goto T281;}          goto T284;}
1089          V68= (V67);          V68= (V67);
1090          V69= Cnil;          V69= Cnil;
1091          goto T279;          goto T282;
1092  goto T281;  goto T284;
1093  T281:;  T284:;
1094          V68= car((V67));          V68= car((V67));
1095          V69= cdr((V67));          V69= cdr((V67));
1096  goto T279;  goto T282;
1097  T279:;  T282:;
1098          if((get((V68),VV[34],Cnil))==Cnil){          if((get((V68),VV[34],Cnil))==Cnil){
1099          goto T290;}          goto T293;}
1100          base[0]= get((V68),VV[34],Cnil);          base[0]= get((V68),VV[34],Cnil);
1101          {object V70;          {object V70;
1102          V70= (V69);          V70= (V69);
# Line 1094  T279:; Line 1107  T279:;
1107          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
1108          vs_top=sup;          vs_top=sup;
1109          V67= vs_base[0];          V67= vs_base[0];
1110          goto T278;          goto T281;
1111  goto T290;  goto T293;
1112  T290:;  T293:;
1113          if(!(type_of((V67))!=t_cons)){          if(!(type_of((V67))!=t_cons)){
1114          goto T296;}          goto T299;}
1115          {object V71 = make_cons((V67),Cnil);          {object V71 = make_cons((V67),Cnil);
1116          VMR19(V71)}          VMR19(V71)}
1117  goto T296;  goto T299;
1118  T296:;  T299:;
1119          {object V72 = (V67);          {object V72 = (V67);
1120          VMR19(V72)}          VMR19(V72)}
1121  goto T278;  goto T281;
1122  T278:;  T281:;
1123          goto T277;}          goto T280;}
1124          base[0]=base[0];          base[0]=base[0];
1125          return Cnil;          return Cnil;
1126  }  }
# Line 1120  register object V74; Line 1133  register object V74;
1133  goto TTL;  goto TTL;
1134  TTL:;  TTL:;
1135          if(!(type_of((V74))==t_cons)){          if(!(type_of((V74))==t_cons)){
1136          goto T299;}          goto T302;}
1137          V74= car((V74));          V74= car((V74));
1138  goto T299;  goto T302;
1139  T299:;  T302:;
1140          {register object x= (V74),V75= VV[35];          {register object x= (V74),V75= VV[35];
1141          while(!endp(V75))          while(!endp(V75))
1142          if(eql(x,V75->c.c_car)){          if(eql(x,V75->c.c_car)){
1143          goto T303;          goto T306;
1144          }else V75=V75->c.c_cdr;}          }else V75=V75->c.c_cdr;}
1145          if((get((V74),VV[33],Cnil))==Cnil){          if((get((V74),VV[33],Cnil))==Cnil){
1146          goto T304;}          goto T307;}
1147  goto T303;  goto T306;
1148  T303:;  T306:;
1149          {object V76 = Ct;          {object V76 = Ct;
1150          VMR20(V76)}          VMR20(V76)}
1151  goto T304;  goto T307;
1152  T304:;  T307:;
1153          {object V77 = Cnil;          {object V77 = Cnil;
1154          VMR20(V77)}          VMR20(V77)}
1155          return Cnil;          return Cnil;
# Line 1169  TTL:; Line 1182  TTL:;
1182          V84= Cnil;          V84= Cnil;
1183          V85= Cnil;          V85= Cnil;
1184          V86= Cnil;          V86= Cnil;
1185          V78= (*(LnkLI95))((V78));          V78= (*(LnkLI99))((V78));
1186          V79= (*(LnkLI95))((V79));          V79= (*(LnkLI99))((V79));
1187          if(!(equal((V78),(V79)))){          if(!(equal((V78),(V79)))){
1188          goto T319;}          goto T322;}
1189          base[2]= Ct;          base[2]= Ct;
1190          base[3]= Ct;          base[3]= Ct;
1191          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1192          return;          return;
1193  goto T319;  goto T322;
1194  T319:;  T322:;
1195          V80= car((V78));          V80= car((V78));
1196          V81= car((V79));          V81= car((V79));
1197          V82= cdr((V78));          V82= cdr((V78));
1198          V83= cdr((V79));          V83= cdr((V79));
1199          if(!(((V80))==(VV[36]))){          if(!(((V80))==(VV[36]))){
1200          goto T334;}          goto T337;}
1201          {register object V87;          {register object V87;
1202          object V88;          object V88;
1203          V87= (V82);          V87= (V82);
1204          V88= car((V87));          V88= car((V87));
1205  goto T340;  goto T343;
1206  T340:;  T343:;
1207          if(!(endp_prop((V87)))){          if(!(endp_prop((V87)))){
1208          goto T341;}          goto T344;}
1209          goto T336;          goto T339;
1210  goto T341;  goto T344;
1211  T341:;  T344:;
1212          base[3]= (V88);          base[3]= (V88);
1213          base[4]= (V79);          base[4]= (V79);
1214          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1215          (void) (*Lnk77)();          (void) (*Lnk80)();
1216          vs_top=sup;          vs_top=sup;
1217          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1218          goto T345;}          goto T348;}
1219          base[3]= Cnil;          base[3]= Cnil;
1220          base[4]= Ct;          base[4]= Ct;
1221          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1222          return;          return;
1223  goto T345;  goto T348;
1224  T345:;  T348:;
1225          V87= cdr((V87));          V87= cdr((V87));
1226          V88= car((V87));          V88= car((V87));
1227          goto T340;}          goto T343;}
1228  goto T336;  goto T339;
1229  T336:;  T339:;
1230          base[2]= Ct;          base[2]= Ct;
1231          base[3]= Ct;          base[3]= Ct;
1232          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1233          return;          return;
1234  goto T334;  goto T337;
1235  T334:;  T337:;
1236          if(!(((V80))==(VV[37]))){          if(!(((V80))==(VV[37]))){
1237          goto T360;}          goto T363;}
1238          {register object V89;          {register object V89;
1239          object V90;          object V90;
1240          V89= (V82);          V89= (V82);
1241          V90= car((V89));          V90= car((V89));
1242  goto T366;  goto T369;
1243  T366:;  T369:;
1244          if(!(endp_prop((V89)))){          if(!(endp_prop((V89)))){
1245          goto T367;}          goto T370;}
1246          goto T362;          goto T365;
1247  goto T367;  goto T370;
1248  T367:;  T370:;
1249          {object V91;          {object V91;
1250          object V92;          object V92;
1251          base[3]= (V90);          base[3]= (V90);
1252          base[4]= (V79);          base[4]= (V79);
1253          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1254          (void) (*Lnk96)();          (void) (*Lnk100)();
1255          if(vs_base>=vs_top){vs_top=sup;goto T375;}          if(vs_base>=vs_top){vs_top=sup;goto T378;}
1256          V91= vs_base[0];          V91= vs_base[0];
1257          vs_base++;          vs_base++;
1258          if(vs_base>=vs_top){vs_top=sup;goto T376;}          if(vs_base>=vs_top){vs_top=sup;goto T379;}
1259          V92= vs_base[0];          V92= vs_base[0];
1260          vs_top=sup;          vs_top=sup;
1261          goto T377;          goto T380;
1262  goto T375;  goto T378;
1263  T375:;  T378:;
1264          V91= Cnil;          V91= Cnil;
1265  goto T376;  goto T379;
1266  T376:;  T379:;
1267          V92= Cnil;          V92= Cnil;
1268  goto T377;  goto T380;
1269  T377:;  T380:;
1270          if(((V91))!=Cnil){          if(((V91))!=Cnil){
1271          goto T371;}          goto T374;}
1272          base[3]= (V91);          base[3]= (V91);
1273          base[4]= (V92);          base[4]= (V92);
1274          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1275          return;}          return;}
1276  goto T371;  goto T374;
1277  T371:;  T374:;
1278          V89= cdr((V89));          V89= cdr((V89));
1279          V90= car((V89));          V90= car((V89));
1280          goto T366;}          goto T369;}
1281  goto T362;  goto T365;
1282  T362:;  T365:;
1283          base[2]= Ct;          base[2]= Ct;
1284          base[3]= Ct;          base[3]= Ct;
1285          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1286          return;          return;
1287  goto T360;  goto T363;
1288  T360:;  T363:;
1289          if(!(((V80))==(VV[38]))){          if(!(((V80))==(VV[38]))){
1290          goto T390;}          goto T393;}
1291          {register object V93;          {register object V93;
1292          object V94;          object V94;
1293          V93= (V82);          V93= (V82);
1294          V94= car((V93));          V94= car((V93));
1295  goto T396;  goto T399;
1296  T396:;  T399:;
1297          if(!(endp_prop((V93)))){          if(!(endp_prop((V93)))){
1298          goto T397;}          goto T400;}
1299          goto T392;          goto T395;
1300  goto T397;  goto T400;
1301  T397:;  T400:;
1302          {object V95;          {object V95;
1303          base[3]= (V94);          base[3]= (V94);
1304          base[4]= (V79);          base[4]= (V79);
1305          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1306          (void) (*Lnk96)();          (void) (*Lnk100)();
1307          vs_top=sup;          vs_top=sup;
1308          V95= vs_base[0];          V95= vs_base[0];
1309          if(((V95))==Cnil){          if(((V95))==Cnil){
1310          goto T401;}          goto T404;}
1311          base[3]= Ct;          base[3]= Ct;
1312          base[4]= Ct;          base[4]= Ct;
1313          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1314          return;}          return;}
1315  goto T401;  goto T404;
1316  T401:;  T404:;
1317          V93= cdr((V93));          V93= cdr((V93));
1318          V94= car((V93));          V94= car((V93));
1319          goto T396;}          goto T399;}
1320  goto T392;  goto T395;
1321  T392:;  T395:;
1322          base[2]= Cnil;          base[2]= Cnil;
1323          base[3]= Cnil;          base[3]= Cnil;
1324          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1325          return;          return;
1326  goto T390;  goto T393;
1327  T390:;  T393:;
1328          if(!(((V80))==(VV[39]))){          if(!(((V80))==(VV[39]))){
1329          goto T332;}          goto T335;}
1330          if(!(((V81))==(VV[39]))){          if(!(((V81))==(VV[39]))){
1331          goto T419;}          goto T422;}
1332          V78= car((V83));          V78= car((V83));
1333          V79= car((V82));          V79= car((V82));
1334          goto TTL;          goto TTL;
1335  goto T419;  goto T422;
1336  T419:;  T422:;
1337          V78= Ct;          V78= Ct;
1338          V79= list(3,VV[37],(V79),car((V82)));          V79= list(3,VV[37],(V79),car((V82)));
1339          goto TTL;          goto TTL;
1340  goto T332;  goto T335;
1341  T332:;  T335:;
1342          if(!(((V81))==(VV[36]))){          if(!(((V81))==(VV[36]))){
1343          goto T429;}          goto T432;}
1344          base[2]= Cnil;          base[2]= Cnil;
1345          base[3]= Cnil;          base[3]= Cnil;
1346          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1347          return;          return;
1348  goto T429;  goto T432;
1349  T429:;  T432:;
1350          if(!(((V81))==(VV[37]))){          if(!(((V81))==(VV[37]))){
1351          goto T434;}          goto T437;}
1352          {register object V96;          {register object V96;
1353          object V97;          object V97;
1354          V96= (V83);          V96= (V83);
1355          V97= car((V96));          V97= car((V96));
1356  goto T440;  goto T443;
1357  T440:;  T443:;
1358          if(!(endp_prop((V96)))){          if(!(endp_prop((V96)))){
1359          goto T441;}          goto T444;}
1360          goto T436;          goto T439;
1361  goto T441;  goto T444;
1362  T441:;  T444:;
1363          {object V98;          {object V98;
1364          base[3]= (V78);          base[3]= (V78);
1365          base[4]= (V97);          base[4]= (V97);
1366          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1367          (void) (*Lnk96)();          (void) (*Lnk100)();
1368          vs_top=sup;          vs_top=sup;
1369          V98= vs_base[0];          V98= vs_base[0];
1370          if(((V98))==Cnil){          if(((V98))==Cnil){
1371          goto T445;}          goto T448;}
1372          base[3]= Ct;          base[3]= Ct;
1373          base[4]= Ct;          base[4]= Ct;
1374          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1375          return;}          return;}
1376  goto T445;  goto T448;
1377  T445:;  T448:;
1378          V96= cdr((V96));          V96= cdr((V96));
1379          V97= car((V96));          V97= car((V96));
1380          goto T440;}          goto T443;}
1381  goto T436;  goto T439;
1382  T436:;  T439:;
1383          base[2]= Cnil;          base[2]= Cnil;
1384          base[3]= Cnil;          base[3]= Cnil;
1385          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1386          return;          return;
1387  goto T434;  goto T437;
1388  T434:;  T437:;
1389          if(!(((V81))==(VV[38]))){          if(!(((V81))==(VV[38]))){
1390          goto T461;}          goto T464;}
1391          {register object V99;          {register object V99;
1392          object V100;          object V100;
1393          V99= (V83);          V99= (V83);
1394          V100= car((V99));          V100= car((V99));
1395  goto T467;  goto T470;
1396  T467:;  T470:;
1397          if(!(endp_prop((V99)))){          if(!(endp_prop((V99)))){
1398          goto T468;}          goto T471;}
1399          goto T463;          goto T466;
1400  goto T468;  goto T471;
1401  T468:;  T471:;
1402          {object V101;          {object V101;
1403          object V102;          object V102;
1404          base[3]= (V78);          base[3]= (V78);
1405          base[4]= (V100);          base[4]= (V100);
1406          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1407          (void) (*Lnk96)();          (void) (*Lnk100)();
1408          if(vs_base>=vs_top){vs_top=sup;goto T476;}          if(vs_base>=vs_top){vs_top=sup;goto T479;}
1409          V101= vs_base[0];          V101= vs_base[0];
1410          vs_base++;          vs_base++;
1411          if(vs_base>=vs_top){vs_top=sup;goto T477;}          if(vs_base>=vs_top){vs_top=sup;goto T480;}
1412          V102= vs_base[0];          V102= vs_base[0];
1413          vs_top=sup;          vs_top=sup;
1414          goto T478;          goto T481;
1415  goto T476;  goto T479;
1416  T476:;  T479:;
1417          V101= Cnil;          V101= Cnil;
1418  goto T477;  goto T480;
1419  T477:;  T480:;
1420          V102= Cnil;          V102= Cnil;
1421  goto T478;  goto T481;
1422  T478:;  T481:;
1423          if(((V101))!=Cnil){          if(((V101))!=Cnil){
1424          goto T472;}          goto T475;}
1425          base[3]= (V101);          base[3]= (V101);
1426          base[4]= (V102);          base[4]= (V102);
1427          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1428          return;}          return;}
1429  goto T472;  goto T475;
1430  T472:;  T475:;
1431          V99= cdr((V99));          V99= cdr((V99));
1432          V100= car((V99));          V100= car((V99));
1433          goto T467;}          goto T470;}
1434  goto T463;  goto T466;
1435  T463:;  T466:;
1436          base[2]= Ct;          base[2]= Ct;
1437          base[3]= Ct;          base[3]= Ct;
1438          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1439          return;          return;
1440  goto T461;  goto T464;
1441  T461:;  T464:;
1442          if(!(((V81))==(VV[39]))){          if(!(((V81))==(VV[39]))){
1443          goto T427;}          goto T430;}
1444          V78= list(3,VV[38],(V78),car((V83)));          V78= list(3,VV[38],(V78),car((V83)));
1445          V79= Cnil;          V79= Cnil;
1446          goto TTL;          goto TTL;
1447  goto T427;  goto T430;
1448  T427:;  T430:;
1449          V84= (*(LnkLI97))((V78));          V84= (*(LnkLI101))((V78));
1450          V85= (*(LnkLI97))((V79));          V85= (*(LnkLI101))((V79));
1451          if(((V80))==(Cnil)){          if(((V80))==(Cnil)){
1452          goto T499;}          goto T502;}
1453          if(((V81))==(Ct)){          if(((V81))==(Ct)){
1454          goto T499;}          goto T502;}
1455          if(!(((V81))==(VV[40]))){          if(!(((V81))==(VV[40]))){
1456          goto T500;}          goto T503;}
1457  goto T499;  goto T502;
1458  T499:;  T502:;
1459          base[2]= Ct;          base[2]= Ct;
1460          base[3]= Ct;          base[3]= Ct;
1461          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1462          return;          return;
1463  goto T500;  goto T503;
1464  T500:;  T503:;
1465          if(!(((V81))==(Cnil))){          if(!(((V81))==(Cnil))){
1466          goto T509;}          goto T512;}
1467          base[2]= Cnil;          base[2]= Cnil;
1468          base[3]= (V84);          base[3]= (V84);
1469          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1470          return;          return;
1471  goto T509;  goto T512;
1472  T509:;  T512:;
1473          if(!(((V80))==(Ct))){          if(!(((V80))==(Ct))){
1474          goto T514;}          goto T517;}
1475          base[2]= Cnil;          base[2]= Cnil;
1476          base[3]= (V85);          base[3]= (V85);
1477          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1478          return;          return;
1479  goto T514;  goto T517;
1480  T514:;  T517:;
1481          if(!(((V80))==(VV[40]))){          if(!(((V80))==(VV[40]))){
1482          goto T519;}          goto T522;}
1483          base[2]= Cnil;          base[2]= Cnil;
1484          base[3]= (V85);          base[3]= (V85);
1485          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1486          return;          return;
1487  goto T519;  goto T522;
1488  T519:;  T522:;
1489          if(!(((V81))==(VV[41]))){          if(!(((V81))==(VV[41]))){
1490          goto T524;}          goto T527;}
1491          {register object x= (V80),V103= VV[42];          {register object x= (V80),V103= VV[42];
1492          while(!endp(V103))          while(!endp(V103))
1493          if(eql(x,V103->c.c_car)){          if(eql(x,V103->c.c_car)){
1494          goto T528;          goto T531;
1495          }else V103=V103->c.c_cdr;          }else V103=V103->c.c_cdr;
1496          goto T527;}          goto T530;}
1497  goto T528;  goto T531;
1498  T528:;  T531:;
1499          base[2]= Ct;          base[2]= Ct;
1500          base[3]= Ct;          base[3]= Ct;
1501          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1502          return;          return;
1503  goto T527;  goto T530;
1504  T527:;  T530:;
1505          base[2]= Cnil;          base[2]= Cnil;
1506          base[3]= (V84);          base[3]= (V84);
1507          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1508          return;          return;
1509  goto T524;  goto T527;
1510  T524:;  T527:;
1511          if(!(((V81))==(VV[43]))){          if(!(((V81))==(VV[43]))){
1512          goto T534;}          goto T537;}
1513          {register object x= (V80),V104= VV[44];          {register object x= (V80),V104= VV[44];
1514          while(!endp(V104))          while(!endp(V104))
1515          if(eql(x,V104->c.c_car)){          if(eql(x,V104->c.c_car)){
1516          goto T538;          goto T541;
1517          }else V104=V104->c.c_cdr;          }else V104=V104->c.c_cdr;
1518          goto T537;}          goto T540;}
1519  goto T538;  goto T541;
1520  T538:;  T541:;
1521          base[2]= Ct;          base[2]= Ct;
1522          base[3]= Ct;          base[3]= Ct;
1523          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1524          return;          return;
1525  goto T537;  goto T540;
1526  T537:;  T540:;
1527          if(!(((V80))==(VV[22]))){          if(!(((V80))==(VV[22]))){
         goto T542;}  
         if((cdr((V82)))==Cnil){  
1528          goto T545;}          goto T545;}
1529            if((cdr((V82)))==Cnil){
1530            goto T548;}
1531          if(!(type_of(cadr((V82)))==t_cons)){          if(!(type_of(cadr((V82)))==t_cons)){
1532          goto T545;}          goto T548;}
1533          if((cdadr((V82)))!=Cnil){          if((cdadr((V82)))!=Cnil){
1534          goto T545;}          goto T548;}
1535          base[2]= Ct;          base[2]= Ct;
1536          base[3]= Ct;          base[3]= Ct;
1537          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1538          return;          return;
1539  goto T545;  goto T548;
1540  T545:;  T548:;
1541          base[2]= Cnil;          base[2]= Cnil;
1542          base[3]= Ct;          base[3]= Ct;
1543          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1544          return;          return;
1545  goto T542;  goto T545;
1546  T542:;  T545:;
1547          base[2]= Cnil;          base[2]= Cnil;
1548          base[3]= (V84);          base[3]= (V84);
1549          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1550          return;          return;
1551  goto T534;  goto T537;
1552  T534:;  T537:;
1553          if(!(((V80))==(VV[41]))){          if(!(((V80))==(VV[41]))){
1554          goto T558;}          goto T561;}
1555          base[2]= Cnil;          base[2]= Cnil;
1556          base[3]= (V85);          base[3]= (V85);
1557          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1558          return;          return;
1559  goto T558;  goto T561;
1560  T558:;  T561:;
1561          if(!(((V80))==(VV[43]))){          if(!(((V80))==(VV[43]))){
1562          goto T563;}          goto T566;}
1563          base[2]= Cnil;          base[2]= Cnil;
1564          base[3]= (V85);          base[3]= (V85);
1565          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1566          return;          return;
1567  goto T563;  goto T566;
1568  T563:;  T566:;
1569          if(!(((V81))==(VV[45]))){          if(!(((V81))==(VV[45]))){
1570          goto T568;}          goto T571;}
1571          {register object x= (V80),V105= VV[46];          {register object x= (V80),V105= VV[46];
1572          while(!endp(V105))          while(!endp(V105))
1573          if(eql(x,V105->c.c_car)){          if(eql(x,V105->c.c_car)){
1574          goto T572;          goto T575;
1575          }else V105=V105->c.c_cdr;          }else V105=V105->c.c_cdr;
1576          goto T571;}          goto T574;}
1577  goto T572;  goto T575;
1578  T572:;  T575:;
1579          base[2]= Cnil;          base[2]= Cnil;
1580          base[3]= Ct;          base[3]= Ct;
1581          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1582          return;          return;
1583  goto T571;  goto T574;
1584  T571:;  T574:;
1585          if(((V84))==Cnil){          if(((V84))==Cnil){
1586          goto T576;}          goto T579;}
1587          base[2]= Ct;          base[2]= Ct;
1588          base[3]= Ct;          base[3]= Ct;
1589          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1590          return;          return;
1591  goto T576;  goto T579;
1592  T576:;  T579:;
1593          base[2]= Cnil;          base[2]= Cnil;
1594          base[3]= Cnil;          base[3]= Cnil;
1595          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1596          return;          return;
1597  goto T568;  goto T571;
1598  T568:;  T571:;
1599          if(!(((V80))==(VV[45]))){          if(!(((V80))==(VV[45]))){
1600          goto T583;}          goto T586;}
1601          base[2]= Cnil;          base[2]= Cnil;
1602          base[3]= (V85);          base[3]= (V85);
1603          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1604          return;          return;
1605  goto T583;  goto T586;
1606  T583:;  T586:;
1607          if(!(((V81))==(VV[47]))){          if(!(((V81))==(VV[47]))){
1608          goto T588;}          goto T591;}
1609          {register object x= (V80),V106= VV[48];          {register object x= (V80),V106= VV[48];
1610          while(!endp(V106))          while(!endp(V106))
1611          if(eql(x,V106->c.c_car)){          if(eql(x,V106->c.c_car)){
1612          goto T592;          goto T595;
1613          }else V106=V106->c.c_cdr;          }else V106=V106->c.c_cdr;
1614          goto T591;}          goto T594;}
1615  goto T592;  goto T595;
1616  T592:;  T595:;
1617          base[2]= Ct;          base[2]= Ct;
1618          base[3]= Ct;          base[3]= Ct;
1619          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1620          return;          return;
1621  goto T591;  goto T594;
1622  T591:;  T594:;
1623          base[2]= Cnil;          base[2]= Cnil;
1624          base[3]= (V84);          base[3]= (V84);
1625          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1626          return;          return;
1627  goto T588;  goto T591;
1628  T588:;  T591:;
1629          if(!(((V81))==(VV[49]))){          if(!(((V81))==(VV[9]))){
         goto T598;}  
         if(!(((V80))==(VV[49]))){  
1630          goto T601;}          goto T601;}
1631            {register object x= (V80),V107= VV[49];
1632            while(!endp(V107))
1633            if(eql(x,V107->c.c_car)){
1634            goto T605;
1635            }else V107=V107->c.c_cdr;
1636            goto T604;}
1637    goto T605;
1638    T605:;
1639          base[2]= Ct;          base[2]= Ct;
1640          base[3]= Ct;          base[3]= Ct;
1641          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1642          return;          return;
1643  goto T601;  goto T604;
1644  T601:;  T604:;
1645          base[2]= Cnil;          base[2]= Cnil;
1646          base[3]= (V84);          base[3]= (V84);
1647          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1648          return;          return;
1649  goto T598;  goto T601;
1650  T598:;  T601:;
1651          if(!(((V81))==(VV[50]))){          if(!(((V81))==(VV[50]))){
         goto T608;}  
         if(!(((V80))==(VV[50]))){  
1652          goto T611;}          goto T611;}
1653            if(!(((V80))==(VV[51]))){
1654            goto T614;}
1655          base[2]= Ct;          base[2]= Ct;
1656          base[3]= Ct;          base[3]= Ct;
1657          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1658          return;          return;
1659  goto T611;  goto T614;
1660  T611:;  T614:;
1661          base[2]= Cnil;          base[2]= Cnil;
1662          base[3]= (V84);          base[3]= (V84);
1663          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1664          return;          return;
1665  goto T608;  goto T611;
1666  T608:;  T611:;
1667          if(!(((V81))==(VV[51]))){          if(!(((V81))==(VV[52]))){
         goto T618;}  
         {register object x= (V80),V107= VV[52];  
         while(!endp(V107))  
         if(eql(x,V107->c.c_car)){  
         goto T622;  
         }else V107=V107->c.c_cdr;  
1668          goto T621;}          goto T621;}
1669  goto T622;          if(!(((V80))==(VV[52]))){
1670  T622:;          goto 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 T624;
1676    T624:;
1677            base[2]= Cnil;
1678            base[3]= (V84);
1679            vs_top=(vs_base=base+2)+2;
1680            return;
1681  goto T621;  goto T621;
1682  T621:;  T621:;
1683            if(!(((V81))==(VV[53]))){
1684            goto T631;}
1685            if(!(((V80))==(VV[53]))){
1686            goto T634;}
1687            base[2]= Ct;
1688            base[3]= Ct;
1689            vs_top=(vs_base=base+2)+2;
1690            return;
1691    goto T634;
1692    T634:;
1693          base[2]= Cnil;          base[2]= Cnil;
1694          base[3]= (V84);          base[3]= (V84);
1695          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1696          return;          return;
1697  goto T618;  goto T631;
1698  T618:;  T631:;
1699          if(!(((V80))==(VV[51]))){          if(!(((V81))==(VV[54]))){
1700          goto T628;}          goto T641;}
1701            {register object x= (V80),V108= VV[55];
1702            while(!endp(V108))
1703            if(eql(x,V108->c.c_car)){
1704            goto T645;
1705            }else V108=V108->c.c_cdr;
1706            goto T644;}
1707    goto T645;
1708    T645:;
1709            base[2]= Ct;
1710            base[3]= Ct;
1711            vs_top=(vs_base=base+2)+2;
1712            return;
1713    goto T644;
1714    T644:;
1715            base[2]= Cnil;
1716            base[3]= (V84);
1717            vs_top=(vs_base=base+2)+2;
1718            return;
1719    goto T641;
1720    T641:;
1721            if(!(((V80))==(VV[54]))){
1722            goto T651;}
1723          base[2]= Cnil;          base[2]= Cnil;
1724          base[3]= (V85);          base[3]= (V85);
1725          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1726          return;          return;
1727  goto T628;  goto T651;
1728  T628:;  T651:;
1729          if(!(((V81))==(VV[53]))){          if(!(((V81))==(VV[56]))){
1730          goto T633;}          goto T656;}
1731          if(((V80))==(VV[53])){          if(((V80))==(VV[56])){
1732          goto T635;}          goto T658;}
1733          if((get((V80),VV[33],Cnil))==Cnil){          if((get((V80),VV[33],Cnil))==Cnil){
1734          goto T636;}          goto T659;}
1735  goto T635;  goto T658;
1736  T635:;  T658:;
1737          base[2]= Ct;          base[2]= Ct;
1738          base[3]= Ct;          base[3]= Ct;
1739          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1740          return;          return;
1741  goto T636;  goto T659;
1742  T636:;  T659:;
1743          base[2]= Cnil;          base[2]= Cnil;
1744          base[3]= (V84);          base[3]= (V84);
1745          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1746          return;          return;
1747  goto T633;  goto T656;
1748  T633:;  T656:;
1749          if(!(((V80))==(VV[53]))){          if(!(((V80))==(VV[56]))){
1750          goto T645;}          goto T668;}
1751          base[2]= Cnil;          base[2]= Cnil;
1752          base[3]= (V85);          base[3]= (V85);
1753          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1754          return;          return;
1755  goto T645;  goto T668;
1756  T645:;  T668:;
1757          V86= get((V80),VV[33],Cnil);          V86= get((V80),VV[33],Cnil);
1758          if(((V86))==Cnil){          if(((V86))==Cnil){
1759          goto T650;}          goto T673;}
1760          {object V108;          {object V109;
1761          V108= get((V81),VV[33],Cnil);          V109= get((V81),VV[33],Cnil);
1762          if(((V108))==Cnil){          if(((V109))==Cnil){
1763          goto T655;}          goto T678;}
1764          {register object V109;          {register object V110;
1765          V109= (V86);          V110= (V86);
1766  goto T658;  goto T681;
1767  T658:;  T681:;
1768          if(((V109))!=Cnil){          if(((V110))!=Cnil){
1769          goto T659;}          goto T682;}
1770          base[2]= Cnil;          base[2]= Cnil;
1771          base[3]= Ct;          base[3]= Ct;
1772          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1773          return;          return;
1774  goto T659;  goto T682;
1775  T659:;  T682:;
1776          if(!(((V109))==(V108))){          if(!(((V110))==(V109))){
1777          goto T665;}          goto T688;}
1778          base[2]= Ct;          base[2]= Ct;
1779          base[3]= Ct;          base[3]= Ct;
1780          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1781          return;          return;
1782  goto T665;  goto T688;
1783  T665:;  T688:;
1784          V109= structure_ref((V109),VV[33],4);          V110= structure_ref((V110),VV[33],4);
1785          goto T658;}          goto T681;}
1786  goto T655;  goto T678;
1787  T655:;  T678:;
1788          base[2]= Cnil;          base[2]= Cnil;
1789          base[3]= (V85);          base[3]= (V85);
1790          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1791          return;}          return;}
1792  goto T650;  goto T673;
1793  T650:;  T673:;
1794          if(!(((V81))==(VV[54]))){          if(!(((V81))==(VV[57]))){
1795          goto T676;}          goto T699;}
1796          {register object x= (V80),V111= VV[55];          {register object x= (V80),V112= VV[58];
1797          while(!endp(V111))          while(!endp(V112))
1798          if(eql(x,V111->c.c_car)){          if(eql(x,V112->c.c_car)){
1799          goto T681;          goto T704;
1800          }else V111=V111->c.c_cdr;          }else V112=V112->c.c_cdr;
1801          goto T679;}          goto T702;}
1802  goto T681;  goto T704;
1803  T681:;  T704:;
1804          if(((*(LnkLI98))((V82),(V83)))==Cnil){          if(((*(LnkLI102))((V82),(V83)))==Cnil){
1805          goto T679;}          goto T702;}
1806          base[2]= Ct;          base[2]= Ct;
1807          base[3]= Ct;          base[3]= Ct;
1808          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1809          return;          return;
1810  goto T679;  goto T702;
1811  T679:;  T702:;
1812          base[2]= Cnil;          base[2]= Cnil;
1813          base[3]= (V84);          base[3]= (V84);
1814          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1815          return;          return;
1816  goto T676;  goto T699;
1817  T676:;  T699:;
1818          if((get((V81),VV[33],Cnil))==Cnil){          if((get((V81),VV[33],Cnil))==Cnil){
1819          goto T688;}          goto T711;}
1820          base[2]= Cnil;          base[2]= Cnil;
1821          base[3]= (V84);          base[3]= (V84);
1822          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1823          return;          return;
1824  goto T688;  goto T711;
1825  T688:;  T711:;
1826          {object V112= (V80);          {object V113= (V80);
1827          if((V112!= VV[29]))goto T692;          if((V113!= VV[29]))goto T715;
1828          {object V113= (V81);          {object V114= (V81);
1829          if((V113!= VV[29]))goto T693;          if((V114!= VV[29]))goto T716;
1830          base[2]= Ct;          base[2]= Ct;
1831          base[3]= Ct;          base[3]= Ct;
1832          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1833          return;          return;
1834  goto T693;  goto T716;
1835  T693:;  T716:;
1836          if((V113!= VV[13])          if((V114!= VV[13])
1837          && (V113!= VV[62]))goto T696;          && (V114!= VV[65]))goto T719;
1838          if(((*(LnkLI98))(VV[56],(V83)))==Cnil){          if(((*(LnkLI102))(VV[59],(V83)))==Cnil){
1839          goto T698;}          goto T721;}
1840          base[2]= Ct;          base[2]= Ct;
1841          base[3]= Ct;          base[3]= Ct;
1842          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1843          return;          return;
1844  goto T698;  goto T721;
1845  T698:;  T721:;
1846          base[2]= Cnil;          base[2]= Cnil;
1847          base[3]= Ct;          base[3]= Ct;
1848          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1849          return;          return;
1850  goto T696;  goto T719;
1851  T696:;  T719:;
1852          base[2]= Cnil;          base[2]= Cnil;
1853          base[3]= (V85);          base[3]= (V85);
1854          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1855          return;}          return;}
1856  goto T692;  goto T715;
1857  T692:;  T715:;
1858          if((V112!= VV[30]))goto T706;          if((V113!= VV[30]))goto T729;
1859          {object V114= (V81);          {object V115= (V81);
1860          if((V114!= VV[30]))goto T707;          if((V115!= VV[30]))goto T730;
1861          base[2]= Ct;          base[2]= Ct;
1862          base[3]= Ct;          base[3]= Ct;
1863          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1864          return;          return;
1865  goto T707;  goto T730;
1866  T707:;  T730:;
1867          if((V114!= VV[62]))goto T710;          if((V115!= VV[65]))goto T733;
1868          if(((*(LnkLI98))(VV[57],(V83)))==Cnil){          if(((*(LnkLI102))(VV[60],(V83)))==Cnil){
1869          goto T712;}          goto T735;}
1870          base[2]= Ct;          base[2]= Ct;
1871          base[3]= Ct;          base[3]= Ct;
1872          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1873          return;          return;
1874  goto T712;  goto T735;
1875  T712:;  T735:;
1876          base[2]= Cnil;          base[2]= Cnil;
1877          base[3]= Ct;          base[3]= Ct;
1878          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1879          return;          return;
1880  goto T710;  goto T733;
1881  T710:;  T733:;
1882          base[2]= Cnil;          base[2]= Cnil;
1883          base[3]= (V85);          base[3]= (V85);
1884          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1885          return;}          return;}
1886  goto T706;  goto T729;
1887  T706:;  T729:;
1888          if((V112!= VV[79]))goto T720;          if((V113!= VV[83]))goto T743;
1889          {register object x= (V81),V115= VV[58];          {register object x= (V81),V116= VV[61];
         while(!endp(V115))  
         if(eql(x,V115->c.c_car)){  
         goto T723;  
         }else V115=V115->c.c_cdr;  
         goto T722;}  
 goto T723;  
 T723:;  
         base[2]= Ct;  
         base[3]= Ct;  
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T722;  
 T722:;  
         base[2]= Cnil;  
         base[3]= (V85);  
         vs_top=(vs_base=base+2)+2;  
         return;  
 goto T720;  
 T720:;  
         if((V112!= VV[24]))goto T728;  
         {register object x= (V81),V116= VV[59];  
1890          while(!endp(V116))          while(!endp(V116))
1891          if(eql(x,V116->c.c_car)){          if(eql(x,V116->c.c_car)){
1892          goto T731;          goto T746;
1893          }else V116=V116->c.c_cdr;          }else V116=V116->c.c_cdr;
1894          goto T730;}          goto T745;}
1895  goto T731;  goto T746;
1896  T731:;  T746:;
1897          base[2]= Ct;          base[2]= Ct;
1898          base[3]= Ct;          base[3]= Ct;
1899          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1900          return;          return;
1901  goto T730;  goto T745;
1902  T730:;  T745:;
1903          base[2]= Cnil;          base[2]= Cnil;
1904          base[3]= (V85);          base[3]= (V85);
1905          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1906          return;          return;
1907  goto T728;  goto T743;
1908  T728:;  T743:;
1909          if((V112!= VV[99]))goto T736;          if((V113!= VV[24]))goto T751;
1910          {register object x= (V81),V117= VV[60];          {register object x= (V81),V117= VV[62];
1911          while(!endp(V117))          while(!endp(V117))
1912          if(eql(x,V117->c.c_car)){          if(eql(x,V117->c.c_car)){
1913          goto T739;          goto T754;
1914          }else V117=V117->c.c_cdr;          }else V117=V117->c.c_cdr;
1915          goto T738;}          goto T753;}
1916  goto T739;  goto T754;
1917  T739:;  T754:;
1918          base[2]= Ct;          base[2]= Ct;
1919          base[3]= Ct;          base[3]= Ct;
1920          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1921          return;          return;
1922  goto T738;  goto T753;
1923  T738:;  T753:;
1924          base[2]= Cnil;          base[2]= Cnil;
1925          base[3]= (V85);          base[3]= (V85);
1926          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1927          return;          return;
1928  goto T736;  goto T751;
1929  T736:;  T751:;
1930          if((V112!= VV[13]))goto T744;          if((V113!= VV[103]))goto T759;
1931          {register object x= (V81),V118= VV[61];          {register object x= (V81),V118= VV[63];
1932          while(!endp(V118))          while(!endp(V118))
1933          if(eql(x,V118->c.c_car)){          if(eql(x,V118->c.c_car)){
1934          goto T747;          goto T762;
1935          }else V118=V118->c.c_cdr;          }else V118=V118->c.c_cdr;
1936          goto T746;}          goto T761;}
1937  goto T747;  goto T762;
1938  T747:;  T762:;
1939          base[2]= (*(LnkLI98))((V82),(V83));          base[2]= Ct;
1940          base[3]= Ct;          base[3]= Ct;
1941          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1942          return;          return;
1943  goto T746;  goto T761;
1944  T746:;  T761:;
1945          base[2]= Cnil;          base[2]= Cnil;
1946          base[3]= (V85);          base[3]= (V85);
1947          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1948          return;          return;
1949  goto T744;  goto T759;
1950  T744:;  T759:;
1951          if((V112!= VV[62]))goto T752;          if((V113!= VV[13]))goto T767;
1952          if(!(((V81))==(VV[62]))){          {register object x= (V81),V119= VV[64];
1953          goto T754;}          while(!endp(V119))
1954          base[2]= (*(LnkLI98))((V82),(V83));          if(eql(x,V119->c.c_car)){
1955            goto T770;
1956            }else V119=V119->c.c_cdr;
1957            goto T769;}
1958    goto T770;
1959    T770:;
1960            base[2]= (*(LnkLI102))((V82),(V83));
1961          base[3]= Ct;          base[3]= Ct;
1962          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1963          return;          return;
1964  goto T754;  goto T769;
1965  T754:;  T769:;
1966          base[2]= Cnil;          base[2]= Cnil;
1967          base[3]= (V85);          base[3]= (V85);
1968          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1969          return;          return;
1970  goto T752;  goto T767;
1971  T752:;  T767:;
1972          if((V112!= VV[63]))goto T760;          if((V113!= VV[65]))goto T775;
1973          if(!(((V81))==(VV[63]))){          if(!(((V81))==(VV[65]))){
1974          goto T762;}          goto T777;}
1975          base[2]= (*(LnkLI98))((V82),(V83));          base[2]= (*(LnkLI102))((V82),(V83));
1976          base[3]= Ct;          base[3]= Ct;
1977          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1978          return;          return;
1979  goto T762;  goto T777;
1980  T762:;  T777:;
1981          base[2]= Cnil;          base[2]= Cnil;
1982          base[3]= (V85);          base[3]= (V85);
1983          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1984          return;          return;
1985  goto T760;  goto T775;
1986  T760:;  T775:;
1987          if((V112!= VV[31]))goto T768;          if((V113!= VV[66]))goto T783;
1988          {register object x= (V81),V119= VV[64];          if(!(((V81))==(VV[66]))){
1989          while(!endp(V119))          goto T785;}
1990          if(eql(x,V119->c.c_car)){          base[2]= (*(LnkLI102))((V82),(V83));
         goto T771;  
         }else V119=V119->c.c_cdr;  
         goto T770;}  
 goto T771;  
 T771:;  
         base[2]= (*(LnkLI98))((V82),(V83));  
1991          base[3]= Ct;          base[3]= Ct;
1992          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1993          return;          return;
1994  goto T770;  goto T785;
1995  T770:;  T785:;
1996          base[2]= Cnil;          base[2]= Cnil;
1997          base[3]= (V85);          base[3]= (V85);
1998          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1999          return;          return;
2000  goto T768;  goto T783;
2001  T768:;  T783:;
2002          if((V112!= VV[83])          if((V113!= VV[31]))goto T791;
2003          && (V112!= VV[84])          {register object x= (V81),V120= VV[67];
         && (V112!= VV[32]))goto T776;  
         {register object x= (V81),V120= VV[65];  
2004          while(!endp(V120))          while(!endp(V120))
2005          if(eql(x,V120->c.c_car)){          if(eql(x,V120->c.c_car)){
2006          goto T779;          goto T794;
2007          }else V120=V120->c.c_cdr;          }else V120=V120->c.c_cdr;
2008          goto T778;}          goto T793;}
2009  goto T779;  goto T794;
2010  T779:;  T794:;
2011          base[2]= (*(LnkLI98))((V82),(V83));          base[2]= (*(LnkLI102))((V82),(V83));
2012          base[3]= Ct;          base[3]= Ct;
2013          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2014          return;          return;
2015  goto T778;  goto T793;
2016  T778:;  T793:;
2017          base[2]= Cnil;          base[2]= Cnil;
2018          base[3]= (V85);          base[3]= (V85);
2019          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2020          return;          return;
2021  goto T776;  goto T791;
2022  T776:;  T791:;
2023          if((V112!= VV[66]))goto T784;          if((V113!= VV[87])
2024          if(!(((V81))==(VV[66]))){          && (V113!= VV[88])
2025          goto T786;}{object V121;          && (V113!= VV[32]))goto T799;
2026          V121= car((V82));          {register object x= (V81),V121= VV[68];
2027          if(V121==Cnil)goto T790;          while(!endp(V121))
2028          V78= V121;          if(eql(x,V121->c.c_car)){
2029          goto T789;          goto T802;
2030  goto T790;          }else V121=V121->c.c_cdr;
2031  T790:;}          goto T801;}
2032    goto T802;
2033    T802:;
2034            base[2]= (*(LnkLI102))((V82),(V83));
2035            base[3]= Ct;
2036            vs_top=(vs_base=base+2)+2;
2037            return;
2038    goto T801;
2039    T801:;
2040            base[2]= Cnil;
2041            base[3]= (V85);
2042            vs_top=(vs_base=base+2)+2;
2043            return;
2044    goto T799;
2045    T799:;
2046            if((V113!= VV[69]))goto T807;
2047            if(!(((V81))==(VV[69]))){
2048            goto T809;}{object V122;
2049            V122= car((V82));
2050            if(V122==Cnil)goto T813;
2051            V78= V122;
2052            goto T812;
2053    goto T813;
2054    T813:;}
2055          V78= Ct;          V78= Ct;
2056  goto T789;  goto T812;
2057  T789:;{object V122;  T812:;{object V123;
2058          V122= car((V83));          V123= car((V83));
2059          if(V122==Cnil)goto T793;          if(V123==Cnil)goto T816;
2060          V79= V122;          V79= V123;
2061          goto T792;          goto T815;
2062  goto T793;  goto T816;
2063  T793:;}  T816:;}
2064          V79= Ct;          V79= Ct;
2065  goto T792;  goto T815;
2066  T792:;  T815:;
2067          goto TTL;          goto TTL;
2068  goto T786;  goto T809;
2069  T786:;  T809:;
2070          base[2]= Cnil;          base[2]= Cnil;
2071          base[3]= (V85);          base[3]= (V85);
2072          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2073          return;          return;
2074  goto T784;  goto T807;
2075  T784:;  T807:;
2076          if((V112!= VV[26]))goto T797;          if((V113!= VV[26]))goto T820;
2077          if(((V81))==(VV[26])){          if(((V81))==(VV[26])){
2078          goto T798;}          goto T821;}
2079          if(!(((V81))==(VV[22]))){          if(!(((V81))==(VV[22]))){
2080          goto T799;}          goto T822;}
2081  goto T798;  goto T821;
2082  T798:;  T821:;
2083          if(endp_prop((V82))){          if(endp_prop((V82))){
2084          goto T804;}          goto T827;}
2085          if(!((car((V82)))==(VV[17]))){          if(!((car((V82)))==(VV[17]))){
2086          goto T805;}          goto T828;}
2087  goto T804;  goto T827;
2088  T804:;  T827:;
2089          if(endp_prop((V83))){          if(endp_prop((V83))){
2090          goto T803;}          goto T826;}
2091          if((car((V83)))==(VV[17])){          if((car((V83)))==(VV[17])){
2092          goto T803;}          goto T826;}
2093          base[2]= Cnil;          base[2]= Cnil;
2094          base[3]= Ct;          base[3]= Ct;
2095          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2096          return;          return;
2097  goto T805;  goto T828;
2098  T805:;  T828:;
2099          if(endp_prop((V83))){          if(endp_prop((V83))){
2100          goto T803;}          goto T826;}
2101          if((car((V83)))==(VV[17])){          if((car((V83)))==(VV[17])){
2102          goto T803;}          goto T826;}
2103          if(equal(car((V82)),car((V83)))){          if(equal(car((V82)),car((V83)))){
2104          goto T803;}          goto T826;}
2105          base[2]= Cnil;          base[2]= Cnil;
2106          base[3]= Ct;          base[3]= Ct;
2107          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2108          return;          return;
2109  goto T803;  goto T826;
2110  T803:;  T826:;
2111          if(endp_prop(cdr((V82)))){          if(endp_prop(cdr((V82)))){
2112          goto T824;}          goto T847;}
2113          if(!((cadr((V82)))==(VV[17]))){          if(!((cadr((V82)))==(VV[17]))){
2114          goto T823;}          goto T846;}
2115  goto T824;  goto T847;
2116  T824:;  T847:;
2117          if(endp_prop(cdr((V83)))){          if(endp_prop(cdr((V83)))){
2118          goto T828;}          goto T851;}
2119          if(!((cadr((V83)))==(VV[17]))){          if(!((cadr((V83)))==(VV[17]))){
2120          goto T829;}          goto T852;}
2121  goto T828;  goto T851;
2122  T828:;  T851:;
2123          base[2]= Ct;          base[2]= Ct;
2124          base[3]= Ct;          base[3]= Ct;
2125          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2126          return;          return;
2127  goto T829;  goto T852;
2128  T829:;  T852:;
2129          base[2]= Cnil;          base[2]= Cnil;
2130          base[3]= Ct;          base[3]= Ct;
2131          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2132          return;          return;
2133  goto T823;  goto T846;
2134  T823:;  T846:;
2135          if(endp_prop(cdr((V83)))){          if(endp_prop(cdr((V83)))){
2136          goto T838;}          goto T861;}
2137          if(!((cadr((V83)))==(VV[17]))){          if(!((cadr((V83)))==(VV[17]))){
2138          goto T837;}          goto T860;}
2139  goto T838;  goto T861;
2140  T838:;  T861:;
2141          base[2]= Ct;          base[2]= Ct;
2142          base[3]= Ct;          base[3]= Ct;
2143          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2144          return;          return;
2145  goto T837;  goto T860;
2146  T837:;  T860:;
2147          base[2]= (*(LnkLI86))(cadr((V82)),cadr((V83)));          base[2]= (*(LnkLI90))(cadr((V82)),cadr((V83)));
2148          base[3]= Ct;          base[3]= Ct;
2149          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2150          return;          return;
2151  goto T799;  goto T822;
2152  T799:;  T822:;
2153          base[2]= Cnil;          base[2]= Cnil;
2154          base[3]= (V85);          base[3]= (V85);
2155          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2156          return;          return;
2157  goto T797;  goto T820;
2158  T797:;  T820:;
2159          if((V112!= VV[22]))goto T848;          if((V113!= VV[22]))goto T871;
2160          if(!(((V81))==(VV[22]))){          if(!(((V81))==(VV[22]))){
2161          goto T850;}          goto T873;}
2162          if(endp_prop((V82))){          if(endp_prop((V82))){
2163          goto T853;}          goto T876;}
2164          if(!((car((V82)))==(VV[17]))){          if(!((car((V82)))==(VV[17]))){
2165          goto T854;}          goto T877;}
2166  goto T853;  goto T876;
2167  T853:;  T876:;
2168          if(endp_prop((V83))){          if(endp_prop((V83))){
2169          goto T852;}          goto T875;}
2170          if((car((V83)))==(VV[17])){          if((car((V83)))==(VV[17])){
2171          goto T852;}          goto T875;}
2172          base[2]= Cnil;          base[2]= Cnil;
2173          base[3]= Ct;          base[3]= Ct;
2174          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2175          return;          return;
2176  goto T854;  goto T877;
2177  T854:;  T877:;
2178          if(endp_prop((V83))){          if(endp_prop((V83))){
2179          goto T852;}          goto T875;}
2180          if((car((V83)))==(VV[17])){          if((car((V83)))==(VV[17])){
2181          goto T852;}          goto T875;}
2182          if(equal(car((V82)),car((V83)))){          if(equal(car((V82)),car((V83)))){
2183          goto T852;}          goto T875;}
2184          base[2]= Cnil;          base[2]= Cnil;
2185          base[3]= Ct;          base[3]= Ct;
2186          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2187          return;          return;
2188  goto T852;  goto T875;
2189  T852:;  T875:;
2190          if(endp_prop(cdr((V82)))){          if(endp_prop(cdr((V82)))){
2191          goto T873;}          goto T896;}
2192          if(!((cadr((V82)))==(VV[17]))){          if(!((cadr((V82)))==(VV[17]))){
2193          goto T872;}          goto T895;}
2194  goto T873;  goto T896;
2195  T873:;  T896:;
2196          if(endp_prop(cdr((V83)))){          if(endp_prop(cdr((V83)))){
2197          goto T877;}          goto T900;}
2198          if(!((cadr((V83)))==(VV[17]))){          if(!((cadr((V83)))==(VV[17]))){
2199          goto T878;}          goto T901;}
2200  goto T877;  goto T900;
2201  T877:;  T900:;
2202          base[2]= Ct;          base[2]= Ct;
2203          base[3]= Ct;          base[3]= Ct;
2204          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2205          return;          return;
2206  goto T878;  goto T901;
2207  T878:;  T901:;
2208          base[2]= Cnil;          base[2]= Cnil;
2209          base[3]= Ct;          base[3]= Ct;
2210          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2211          return;          return;
2212  goto T872;  goto T895;
2213  T872:;  T895:;
2214          if(endp_prop(cdr((V83)))){          if(endp_prop(cdr((V83)))){
2215          goto T887;}          goto T910;}
2216          if(!((cadr((V83)))==(VV[17]))){          if(!((cadr((V83)))==(VV[17]))){
2217          goto T886;}          goto T909;}
2218  goto T887;  goto T910;
2219  T887:;  T910:;
2220          base[2]= Ct;          base[2]= Ct;
2221          base[3]= Ct;          base[3]= Ct;
2222          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2223          return;          return;
2224  goto T886;  goto T909;
2225  T886:;  T909:;
2226          base[2]= (*(LnkLI86))(cadr((V82)),cadr((V83)));          base[2]= (*(LnkLI90))(cadr((V82)),cadr((V83)));
2227          base[3]= Ct;          base[3]= Ct;
2228          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2229          return;          return;
2230  goto T850;  goto T873;
2231  T850:;  T873:;
2232          base[2]= Cnil;          base[2]= Cnil;
2233          base[3]= (V85);          base[3]= (V85);
2234          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2235          return;          return;
2236  goto T848;  goto T871;
2237  T848:;  T871:;
2238          if(((V84))==Cnil){          if(((V84))==Cnil){
2239          goto T898;}          goto T921;}
2240          base[2]= (((V80))==((V81))?Ct:Cnil);          base[2]= (((V80))==((V81))?Ct:Cnil);
2241          base[3]= Ct;          base[3]= Ct;
2242          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2243          return;          return;
2244  goto T898;  goto T921;
2245  T898:;  T921:;
2246          base[2]= Cnil;          base[2]= Cnil;
2247          base[3]= Cnil;          base[3]= Cnil;
2248          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 2200  T898:; Line 2251  T898:;
2251  }  }
2252  /*      local entry for function SUB-INTERVAL-P */  /*      local entry for function SUB-INTERVAL-P */
2253    
2254  static object LI22(V125,V126)  static object LI22(V126,V127)
2255    
2256  register object V125;register object V126;  register object V126;register object V127;
2257  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
2258  goto TTL;  goto TTL;
2259  TTL:;  TTL:;
2260          {register object V127;          {register object V128;
         register object V128;  
2261          register object V129;          register object V129;
2262          register object V130;          register object V130;
2263          V127= Cnil;          register object V131;
2264          V128= Cnil;          V128= Cnil;
2265          V129= Cnil;          V129= Cnil;
2266          V130= Cnil;          V130= Cnil;
2267          if(!(endp_prop((V125)))){          V131= Cnil;
         goto T906;}  
         V127= VV[17];  
         V128= VV[17];  
         goto T904;  
 goto T906;  
 T906:;  
         if(!(endp_prop(cdr((V125))))){  
         goto T912;}  
         V127= car((V125));  
         V128= VV[17];  
         goto T904;  
 goto T912;  
 T912:;  
         V127= car((V125));  
         V128= cadr((V125));  
 goto T904;  
 T904:;  
2268          if(!(endp_prop((V126)))){          if(!(endp_prop((V126)))){
2269          goto T922;}          goto T929;}
2270            V128= VV[17];
2271          V129= VV[17];          V129= VV[17];
2272          V130= VV[17];          goto T927;
2273          goto T920;  goto T929;
2274  goto T922;  T929:;
 T922:;  
2275          if(!(endp_prop(cdr((V126))))){          if(!(endp_prop(cdr((V126))))){
2276          goto T928;}          goto T935;}
2277          V129= car((V126));          V128= car((V126));
2278            V129= VV[17];
2279            goto T927;
2280    goto T935;
2281    T935:;
2282            V128= car((V126));
2283            V129= cadr((V126));
2284    goto T927;
2285    T927:;
2286            if(!(endp_prop((V127)))){
2287            goto T945;}
2288          V130= VV[17];          V130= VV[17];
2289          goto T920;          V131= VV[17];
2290  goto T928;          goto T943;
2291  T928:;  goto T945;
2292          V129= car((V126));  T945:;
2293          V130= cadr((V126));          if(!(endp_prop(cdr((V127))))){
2294  goto T920;          goto T951;}
2295  T920:;          V130= car((V127));
2296          if(!(((V127))==(VV[17]))){          V131= VV[17];
2297          goto T938;}          goto T943;
2298          if(((V129))==(VV[17])){  goto T951;
2299          goto T936;}  T951:;
2300          {object V131 = Cnil;          V130= car((V127));
2301          VMR22(V131)}          V131= cadr((V127));
2302  goto T938;  goto T943;
2303  T938:;  T943:;
2304          {object V132;          if(!(((V128))==(VV[17]))){
         V132= (((V129))==(VV[17])?Ct:Cnil);  
         if(((V132))==Cnil){  
         goto T944;}  
         goto T936;  
 goto T944;  
 T944:;  
         if(!(type_of((V127))==t_cons)){  
         goto T947;}  
         if(!(type_of((V129))==t_cons)){  
         goto T950;}  
         if(!(number_compare(car((V127)),car((V129)))<0)){  
         goto T936;}  
         {object V133 = Cnil;  
         VMR22(V133)}  
 goto T950;  
 T950:;  
         if(!(number_compare(car((V127)),(V129))<0)){  
         goto T936;}  
         {object V134 = Cnil;  
         VMR22(V134)}  
 goto T947;  
 T947:;  
         {object V135;  
         if(!(type_of((V129))==t_cons)){  
         goto T958;}  
         if(!(number_compare((V127),car((V129)))<=0)){  
2305          goto T961;}          goto T961;}
2306          {object V136 = Cnil;          if(((V130))==(VV[17])){
2307          VMR22(V136)}          goto T959;}
2308            {object V132 = Cnil;
2309            VMR22(V132)}
2310  goto T961;  goto T961;
2311  T961:;  T961:;
2312          V135= Cnil;          {object V133;
2313          goto T956;          V133= (((V130))==(VV[17])?Ct:Cnil);
2314  goto T958;          if(((V133))==Cnil){
2315  T958:;          goto T967;}
2316          if(!(number_compare((V127),(V129))<0)){          goto T959;
2317          goto T964;}  goto T967;
2318          {object V137 = Cnil;  T967:;
2319          VMR22(V137)}          if(!(type_of((V128))==t_cons)){
 goto T964;  
 T964:;  
         V135= Cnil;  
 goto T956;  
 T956:;  
         if(((V135))==Cnil){  
         goto T936;}}}  
 goto T936;  
 T936:;  
         if(!(((V128))==(VV[17]))){  
2320          goto T970;}          goto T970;}
2321          if(((V130))==(VV[17])){          if(!(type_of((V130))==t_cons)){
2322          goto T968;}          goto T973;}
2323          {object V138 = Cnil;          if(!(number_compare(car((V128)),car((V130)))<0)){
2324          VMR22(V138)}          goto T959;}
2325            {object V134 = Cnil;
2326            VMR22(V134)}
2327    goto T973;
2328    T973:;
2329            if(!(number_compare(car((V128)),(V130))<0)){
2330            goto T959;}
2331            {object V135 = Cnil;
2332            VMR22(V135)}
2333  goto T970;  goto T970;
2334  T970:;  T970:;
2335          {object V139;          {object V136;
         V139= (((V130))==(VV[17])?Ct:Cnil);  
         if(((V139))==Cnil){  
         goto T976;}  
         goto T968;  
 goto T976;  
 T976:;  
         if(!(type_of((V128))==t_cons)){  
         goto T979;}  
2336          if(!(type_of((V130))==t_cons)){          if(!(type_of((V130))==t_cons)){
2337          goto T982;}          goto T981;}
2338          if(!(number_compare(car((V128)),car((V130)))>0)){          if(!(number_compare((V128),car((V130)))<=0)){
2339          goto T968;}          goto T984;}
2340          {object V140 = Cnil;          {object V137 = Cnil;
2341          VMR22(V140)}          VMR22(V137)}
2342  goto T982;  goto T984;
2343  T982:;  T984:;
2344          if(!(number_compare(car((V128)),(V130))>0)){          V136= Cnil;
2345          goto T968;}          goto T979;
2346          {object V141 = Cnil;  goto T981;
2347          VMR22(V141)}  T981:;
2348            if(!(number_compare((V128),(V130))<0)){
2349            goto T987;}
2350            {object V138 = Cnil;
2351            VMR22(V138)}
2352    goto T987;
2353    T987:;
2354            V136= Cnil;
2355  goto T979;  goto T979;
2356  T979:;  T979:;
2357          {object V142;          if(((V136))==Cnil){
2358          if(!(type_of((V130))==t_cons)){          goto T959;}}}
2359          goto T990;}  goto T959;
2360          if(!(number_compare((V128),car((V130)))>=0)){  T959:;
2361            if(!(((V129))==(VV[17]))){
2362          goto T993;}          goto T993;}
2363          {object V143 = Cnil;          if(((V131))==(VV[17])){
2364          VMR22(V143)}          goto T991;}
2365            {object V139 = Cnil;
2366            VMR22(V139)}
2367  goto T993;  goto T993;
2368  T993:;  T993:;
2369          V142= Cnil;          {object V140;
2370          goto T988;          V140= (((V131))==(VV[17])?Ct:Cnil);
2371  goto T990;          if(((V140))==Cnil){
2372  T990:;          goto T999;}
2373          if(!(number_compare((V128),(V130))>0)){          goto T991;
2374          goto T996;}  goto T999;
2375    T999:;
2376            if(!(type_of((V129))==t_cons)){
2377            goto T1002;}
2378            if(!(type_of((V131))==t_cons)){
2379            goto T1005;}
2380            if(!(number_compare(car((V129)),car((V131)))>0)){
2381            goto T991;}
2382            {object V141 = Cnil;
2383            VMR22(V141)}
2384    goto T1005;
2385    T1005:;
2386            if(!(number_compare(car((V129)),(V131))>0)){
2387            goto T991;}
2388            {object V142 = Cnil;
2389            VMR22(V142)}
2390    goto T1002;
2391    T1002:;
2392            {object V143;
2393            if(!(type_of((V131))==t_cons)){
2394            goto T1013;}
2395            if(!(number_compare((V129),car((V131)))>=0)){
2396            goto T1016;}
2397          {object V144 = Cnil;          {object V144 = Cnil;
2398          VMR22(V144)}          VMR22(V144)}
2399  goto T996;  goto T1016;
2400  T996:;  T1016:;
2401          V142= Cnil;          V143= Cnil;
2402  goto T988;          goto T1011;
2403  T988:;  goto T1013;
2404          if(((V142))==Cnil){  T1013:;
2405          goto T968;}}}          if(!(number_compare((V129),(V131))>0)){
2406  goto T968;          goto T1019;}
2407  T968:;          {object V145 = Cnil;
2408          {object V145 = Ct;          VMR22(V145)}
2409          VMR22(V145)}}  goto T1019;
2410    T1019:;
2411            V143= Cnil;
2412    goto T1011;
2413    T1011:;
2414            if(((V143))==Cnil){
2415            goto T991;}}}
2416    goto T991;
2417    T991:;
2418            {object V146 = Ct;
2419            VMR22(V146)}}
2420          return Cnil;          return Cnil;
2421  }  }
2422  /*      local entry for function IN-INTERVAL-P  */  /*      local entry for function IN-INTERVAL-P  */
2423    
2424  static object LI23(V148,V149)  static object LI23(V149,V150)
2425    
2426  register object V148;register object V149;  register object V149;register object V150;
2427  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
2428  goto TTL;  goto TTL;
2429  TTL:;  TTL:;
2430          {register object V150;          {register object V151;
2431          register object V151;          register object V152;
         V150= Cnil;  
2432          V151= Cnil;          V151= Cnil;
2433          if(!(endp_prop((V149)))){          V152= Cnil;
2434          goto T1002;}          if(!(endp_prop((V150)))){
2435          V150= VV[17];          goto T1025;}
         V151= VV[17];  
         goto T1000;  
 goto T1002;  
 T1002:;  
         if(!(endp_prop(cdr((V149))))){  
         goto T1008;}  
         V150= car((V149));  
2436          V151= VV[17];          V151= VV[17];
2437          goto T1000;          V152= VV[17];
2438  goto T1008;          goto T1023;
2439  T1008:;  goto T1025;
2440          V150= car((V149));  T1025:;
2441          V151= cadr((V149));          if(!(endp_prop(cdr((V150))))){
2442  goto T1000;          goto T1031;}
2443  T1000:;          V151= car((V150));
2444          {object V152;          V152= VV[17];
2445          V152= (((V150))==(VV[17])?Ct:Cnil);          goto T1023;
2446          if(((V152))==Cnil){  goto T1031;
2447          goto T1019;}  T1031:;
2448          goto T1016;          V151= car((V150));
2449  goto T1019;          V152= cadr((V150));
2450  T1019:;  goto T1023;
2451          if(!(type_of((V150))==t_cons)){  T1023:;
2452          goto T1022;}          {object V153;
2453          if(!(number_compare((V148),car((V150)))<=0)){          V153= (((V151))==(VV[17])?Ct:Cnil);
2454          goto T1016;}          if(((V153))==Cnil){
2455          {object V153 = Cnil;          goto T1042;}
2456          VMR23(V153)}          goto T1039;
2457  goto T1022;  goto T1042;
2458  T1022:;  T1042:;
         {object V154;  
         if(!(number_compare((V148),(V150))<0)){  
         goto T1028;}  
         {object V155 = Cnil;  
         VMR23(V155)}  
 goto T1028;  
 T1028:;  
         V154= Cnil;  
         if(((V154))==Cnil){  
         goto T1016;}}}  
 goto T1016;  
 T1016:;  
         {object V156;  
         V156= (((V151))==(VV[17])?Ct:Cnil);  
         if(((V156))==Cnil){  
         goto T1035;}  
         goto T1032;  
 goto T1035;  
 T1035:;  
2459          if(!(type_of((V151))==t_cons)){          if(!(type_of((V151))==t_cons)){
2460          goto T1038;}          goto T1045;}
2461          if(!(number_compare((V148),car((V151)))>=0)){          if(!(number_compare((V149),car((V151)))<=0)){
2462          goto T1032;}          goto T1039;}
2463          {object V157 = Cnil;          {object V154 = Cnil;
2464          VMR23(V157)}          VMR23(V154)}
2465  goto T1038;  goto T1045;
2466  T1038:;  T1045:;
2467          {object V158;          {object V155;
2468          if(!(number_compare((V148),(V151))>0)){          if(!(number_compare((V149),(V151))<0)){
2469          goto T1044;}          goto T1051;}
2470          {object V159 = Cnil;          {object V156 = Cnil;
2471          VMR23(V159)}          VMR23(V156)}
2472  goto T1044;  goto T1051;
2473  T1044:;  T1051:;
2474          V158= Cnil;          V155= Cnil;
2475          if(((V158))==Cnil){          if(((V155))==Cnil){
2476          goto T1032;}}}          goto T1039;}}}
2477  goto T1032;  goto T1039;
2478  T1032:;  T1039:;
2479          {object V160 = Ct;          {object V157;
2480          VMR23(V160)}}          V157= (((V152))==(VV[17])?Ct:Cnil);
2481            if(((V157))==Cnil){
2482            goto T1058;}
2483            goto T1055;
2484    goto T1058;
2485    T1058:;
2486            if(!(type_of((V152))==t_cons)){
2487            goto T1061;}
2488            if(!(number_compare((V149),car((V152)))>=0)){
2489            goto T1055;}
2490            {object V158 = Cnil;
2491            VMR23(V158)}
2492    goto T1061;
2493    T1061:;
2494            {object V159;
2495            if(!(number_compare((V149),(V152))>0)){
2496            goto T1067;}
2497            {object V160 = Cnil;
2498            VMR23(V160)}
2499    goto T1067;
2500    T1067:;
2501            V159= Cnil;
2502            if(((V159))==Cnil){
2503            goto T1055;}}}
2504    goto T1055;
2505    T1055:;
2506            {object V161 = Ct;
2507            VMR23(V161)}}
2508          return Cnil;          return Cnil;
2509  }  }
2510  /*      local entry for function MATCH-DIMENSIONS       */  /*      local entry for function MATCH-DIMENSIONS       */
2511    
2512  static object LI24(V163,V164)  static object LI24(V164,V165)
2513    
2514  object V163;register object V164;  object V164;register object V165;
2515  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2516  goto TTL;  goto TTL;
2517  TTL:;  TTL:;
2518          if(((V163))!=Cnil){          if(((V164))!=Cnil){
2519          goto T1049;}          goto T1072;}
2520          {object V165 = (((V164))==Cnil?Ct:Cnil);          {object V166 = (((V165))==Cnil?Ct:Cnil);
         VMR24(V165)}  
 goto T1049;  
 T1049:;  
         if(!((car((V164)))==(VV[17]))){  
         goto T1053;}  
         goto T1051;  
 goto T1053;  
 T1053:;  
         if(eql(car((V163)),car((V164)))){  
         goto T1051;}  
         {object V166 = Cnil;  
2521          VMR24(V166)}          VMR24(V166)}
2522  goto T1051;  goto T1072;
2523  T1051:;  T1072:;
2524          V163= cdr((V163));          if(!((car((V165)))==(VV[17]))){
2525            goto T1076;}
2526            goto T1074;
2527    goto T1076;
2528    T1076:;
2529            if(eql(car((V164)),car((V165)))){
2530            goto T1074;}
2531            {object V167 = Cnil;
2532            VMR24(V167)}
2533    goto T1074;
2534    T1074:;
2535          V164= cdr((V164));          V164= cdr((V164));
2536            V165= cdr((V165));
2537          goto TTL;          goto TTL;
2538          return Cnil;          return Cnil;
2539  }  }
2540  /*      local entry for function COERCE */  /*      local entry for function COERCE */
2541    
2542  static object LI25(V169,V170)  static object LI25(V170,V171)
2543    
2544  register object V169;object V170;  register object V170;object V171;
2545  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
2546  goto TTL;  goto TTL;
2547  TTL:;  TTL:;
2548          base[0]= (V169);          base[0]= (V170);
2549          base[1]= (V170);          base[1]= (V171);
2550          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2551          (void) (*Lnk77)();          (void) (*Lnk80)();
2552          vs_top=sup;          vs_top=sup;
2553          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2554          goto T1058;}          goto T1081;}
2555          {object V171 = (V169);          {object V172 = (V170);
2556          VMR25(V171)}          VMR25(V172)}
2557  goto T1058;  goto T1081;
2558  T1058:;  T1081:;
2559          V170= (*(LnkLI95))((V170));          V171= (*(LnkLI99))((V171));
2560          {object V172= car((V170));          {object V173= car((V171));
2561          if((V172!= VV[41]))goto T1065;          if((V173!= VV[41]))goto T1088;
2562          {register object V173;          {register object V174;
2563          register object V174;          register object V175;
2564          V175 = make_fixnum((long)length((V169)));          V176 = make_fixnum((long)length((V170)));
2565          V174= one_minus(V175);          V175= one_minus(V176);
2566          V173= Cnil;          V174= Cnil;
 goto T1068;  
 T1068:;  
         if(!(number_compare((V174),small_fixnum(0))<0)){  
         goto T1069;}  
         {object V176 = (V173);  
         VMR25(V176)}  
 goto T1069;  
 T1069:;  
         V177= elt((V169),fixint((V174)));  
         V173= make_cons(/* INLINE-ARGS */V177,(V173));  
         V174= one_minus((V174));  
         goto T1068;}  
 goto T1065;  
 T1065:;  
         if((V172!= VV[22])  
         && (V172!= VV[26]))goto T1077;  
         if(endp_prop(cdr((V170)))){  
         goto T1078;}  
         if(endp_prop(cddr((V170)))){  
         goto T1078;}  
         if((caddr((V170)))==(VV[17])){  
         goto T1078;}  
         if(endp_prop(cdr(caddr((V170))))){  
         goto T1078;}  
         base[0]= VV[67];  
         vs_top=(vs_base=base+0)+1;  
         Lerror();  
         vs_top=sup;  
 goto T1078;  
 T1078:;  
         {register object V178;  
         register object V179;  
         register object V180;  
         V181 = make_fixnum((long)length((V169)));  
         V178= (VFUN_NARGS=2,(*(LnkLI100))((V170),V181));  
         V180= make_fixnum((long)length((V169)));  
         V179= small_fixnum(0);  
2567  goto T1091;  goto T1091;
2568  T1091:;  T1091:;
2569          if(!(number_compare((V179),(V180))>=0)){          if(!(number_compare((V175),small_fixnum(0))<0)){
2570          goto T1092;}          goto T1092;}
2571          {object V182 = (V178);          {object V177 = (V174);
2572          VMR25(V182)}          VMR25(V177)}
2573  goto T1092;  goto T1092;
2574  T1092:;  T1092:;
2575          V183= elt((V169),fixint((V179)));          V178= elt((V170),fixint((V175)));
2576          (void)(elt_set((V178),fixint((V179)),/* INLINE-ARGS */V183));          V174= make_cons(/* INLINE-ARGS */V178,(V174));
2577          V179= one_plus((V179));          V175= one_minus((V175));
2578          goto T1091;}          goto T1091;}
2579  goto T1077;  goto T1088;
2580  T1077:;  T1088:;
2581          if((V172!= VV[99]))goto T1100;          if((V173!= VV[22])
2582          base[0]= (V169);          && (V173!= VV[26]))goto T1100;
2583            if(endp_prop(cdr((V171)))){
2584            goto T1101;}
2585            if(endp_prop(cddr((V171)))){
2586            goto T1101;}
2587            if((caddr((V171)))==(VV[17])){
2588            goto T1101;}
2589            if(endp_prop(cdr(caddr((V171))))){
2590            goto T1101;}
2591            base[0]= VV[70];
2592          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2593          Lcharacter();          Lerror();
2594          vs_top=sup;          vs_top=sup;
2595          {object V184 = vs_base[0];  goto T1101;
2596          VMR25(V184)}  T1101:;
2597            {register object V179;
2598            register object V180;
2599            register object V181;
2600            V182 = make_fixnum((long)length((V170)));
2601            V179= (VFUN_NARGS=2,(*(LnkLI104))((V171),V182));
2602            V181= make_fixnum((long)length((V170)));
2603            V180= small_fixnum(0);
2604    goto T1114;
2605    T1114:;
2606            if(!(number_compare((V180),(V181))>=0)){
2607            goto T1115;}
2608            {object V183 = (V179);
2609            VMR25(V183)}
2610    goto T1115;
2611    T1115:;
2612            V184= elt((V170),fixint((V180)));
2613            (void)(elt_set((V179),fixint((V180)),/* INLINE-ARGS */V184));
2614            V180= one_plus((V180));
2615            goto T1114;}
2616  goto T1100;  goto T1100;
2617  T1100:;  T1100:;
2618          if((V172!= VV[63]))goto T1102;          if((V173!= VV[103]))goto T1123;
2619          base[0]= (V169);          base[0]= (V170);
2620          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2621          Lfloat();          Lcharacter();
2622          vs_top=sup;          vs_top=sup;
2623          {object V185 = vs_base[0];          {object V185 = vs_base[0];
2624          VMR25(V185)}          VMR25(V185)}
2625  goto T1102;  goto T1123;
2626  T1102:;  T1123:;
2627          if((V172!= VV[31]))goto T1104;          if((V173!= VV[66]))goto T1125;
2628          base[0]= (V169);          base[0]= (V170);
2629          base[1]= VV[68];          vs_top=(vs_base=base+0)+1;
         vs_top=(vs_base=base+0)+2;  
2630          Lfloat();          Lfloat();
2631          vs_top=sup;          vs_top=sup;
2632          {object V186 = vs_base[0];          {object V186 = vs_base[0];
2633          VMR25(V186)}          VMR25(V186)}
2634  goto T1104;  goto T1125;
2635  T1104:;  T1125:;
2636          if((V172!= VV[83])          if((V173!= VV[31]))goto T1127;
2637          && (V172!= VV[84])          base[0]= (V170);
2638          && (V172!= VV[32]))goto T1107;          base[1]= VV[71];
         base[0]= (V169);  
         base[1]= VV[69];  
2639          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2640          Lfloat();          Lfloat();
2641          vs_top=sup;          vs_top=sup;
2642          {object V187 = vs_base[0];          {object V187 = vs_base[0];
2643          VMR25(V187)}          VMR25(V187)}
2644  goto T1107;  goto T1127;
2645  T1107:;  T1127:;
2646          if((V172!= VV[66]))goto T1110;          if((V173!= VV[87])
2647          if((cdr((V170)))==Cnil){          && (V173!= VV[88])
2648          goto T1111;}          && (V173!= VV[32]))goto T1130;
2649          if((cadr((V170)))==Cnil){          base[0]= (V170);
2650          goto T1111;}          base[1]= VV[72];
2651          if(!((cadr((V170)))==(VV[17]))){          vs_top=(vs_base=base+0)+2;
2652          goto T1112;}          Lfloat();
2653  goto T1111;          vs_top=sup;
2654  T1111:;          {object V188 = vs_base[0];
2655          base[1]= (V169);          VMR25(V188)}
2656    goto T1130;
2657    T1130:;
2658            if((V173!= VV[69]))goto T1133;
2659            if((cdr((V171)))==Cnil){
2660            goto T1134;}
2661            if((cadr((V171)))==Cnil){
2662            goto T1134;}
2663            if(!((cadr((V171)))==(VV[17]))){
2664            goto T1135;}
2665    goto T1134;
2666    T1134:;
2667            base[1]= (V170);
2668          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2669          Lrealpart();          Lrealpart();
2670          vs_top=sup;          vs_top=sup;
2671          base[0]= vs_base[0];          base[0]= vs_base[0];
2672          base[2]= (V169);          base[2]= (V170);
2673          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2674          Limagpart();          Limagpart();
2675          vs_top=sup;          vs_top=sup;
# Line 2626  T1111:; Line 2677  T1111:;
2677          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2678          Lcomplex();          Lcomplex();
2679          vs_top=sup;          vs_top=sup;
2680          {object V188 = vs_base[0];          {object V189 = vs_base[0];
2681          VMR25(V188)}          VMR25(V189)}
2682  goto T1112;  goto T1135;
2683  T1112:;  T1135:;
2684          base[1]= (V169);          base[1]= (V170);
2685          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2686          Lrealpart();          Lrealpart();
2687          vs_top=sup;          vs_top=sup;
2688          V189= vs_base[0];          V190= vs_base[0];
2689          base[0]= (*(LnkLI101))(V189,cadr((V170)));          base[0]= (*(LnkLI105))(V190,cadr((V171)));
2690          base[2]= (V169);          base[2]= (V170);
2691          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2692          Limagpart();          Limagpart();
2693          vs_top=sup;          vs_top=sup;
2694          V190= vs_base[0];          V191= vs_base[0];
2695          base[1]= (*(LnkLI101))(V190,cadr((V170)));          base[1]= (*(LnkLI105))(V191,cadr((V171)));
2696          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2697          Lcomplex();          Lcomplex();
2698          vs_top=sup;          vs_top=sup;
2699          {object V191 = vs_base[0];          {object V192 = vs_base[0];
2700          VMR25(V191)}          VMR25(V192)}
2701  goto T1110;  goto T1133;
2702  T1110:;  T1133:;
2703          base[0]= VV[70];          base[0]= VV[73];
2704          base[1]= (V169);          base[1]= (V170);
2705          base[2]= (V170);          base[2]= (V171);
2706          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2707          Lerror();          Lerror();
2708          vs_top=sup;          vs_top=sup;
2709          {object V192 = vs_base[0];          {object V193 = vs_base[0];
2710          VMR25(V192)}}          VMR25(V193)}}
2711          base[0]=base[0];          base[0]=base[0];
2712          return Cnil;          return Cnil;
2713  }  }
# Line 2666  static void L26() Line 2717  static void L26()
2717  {register object *base=vs_base;  {register object *base=vs_base;
2718          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
2719          vs_reserve(VM26);          vs_reserve(VM26);
2720          {object V193;          {object V194;
2721          object V194;          object V195;
2722          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
2723          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
2724          V193=(base[0]);          V194=(base[0]);
2725          vs_base=vs_base+1;          vs_base=vs_base+1;
2726          if(vs_base>=vs_top){vs_top=sup;goto T1131;}          if(vs_base>=vs_top){vs_top=sup;goto T1154;}
2727          V194=(base[1]);          V195=(base[1]);
2728          vs_top=sup;          vs_top=sup;
2729          goto T1132;          goto T1155;
2730  goto T1131;  goto T1154;
2731  T1131:;  T1154:;
2732          V194= Cnil;          V195= Cnil;
2733  goto T1132;  goto T1155;
2734  T1132:;  T1155:;
2735          if(symbol_value(VV[71])==Cnil){          if(symbol_value(VV[74])==Cnil){
2736          base[2]= Cnil;          base[2]= Cnil;
2737          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2738          return;}          return;}
2739          if(!(((eql((V193),symbol_value(VV[71]))?Ct:Cnil))==Cnil)){          if(!(((eql((V194),symbol_value(VV[74]))?Ct:Cnil))==Cnil)){
2740          goto T1136;}          goto T1159;}
2741          goto T1134;          goto T1157;
2742  goto T1136;  goto T1159;
2743  T1136:;  T1159:;
2744          if(((eql((V194),symbol_value(VV[72]))?Ct:Cnil))==Cnil){          if(((eql((V195),symbol_value(VV[75]))?Ct:Cnil))==Cnil){
2745          goto T1134;}          goto T1157;}
2746          base[2]= Cnil;          base[2]= Cnil;
2747          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2748          return;          return;
2749  goto T1134;  goto T1157;
2750  T1134:;  T1157:;
2751          if(symbol_value(VV[73])==Cnil){          if(symbol_value(VV[76])==Cnil){
2752          base[2]= Cnil;          base[2]= Cnil;
2753          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2754          return;}          return;}
2755          base[2]= Ct;          base[2]= Ct;
2756          base[3]= VV[74];          base[3]= VV[77];
2757          base[4]= (V194);          base[4]= (V195);
2758          base[5]= (V193);          base[5]= (V194);
2759          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
2760          Lformat();          Lformat();
2761          return;          return;
2762          }          }
2763  }  }
2764  static object  LnkTLI101(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[101],(void **)&LnkLI101,2,ap);va_end(ap);return V1;} /* COERCE */  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;} /* COERCE */
2765  static object  LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[100],(void **)&LnkLI100,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */  static object  LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[104],(void **)&LnkLI104,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
2766  static object  LnkTLI98(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[98],(void **)&LnkLI98,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */  static object  LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[102],(void **)&LnkLI102,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */
2767  static object  LnkTLI97(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[97],(void **)&LnkLI97,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */  static object  LnkTLI101(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[101],(void **)&LnkLI101,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */
2768  static void LnkT96(){ call_or_link(VV[96],(void **)&Lnk96);} /* SUBTYPEP */  static void LnkT100(){ call_or_link(VV[100],(void **)&Lnk100);} /* SUBTYPEP */
2769  static object  LnkTLI95(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[95],(void **)&LnkLI95,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */  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;} /* NORMALIZE-TYPE */
2770  static void LnkT94(){ call_or_link(VV[94],(void **)&Lnk94);} /* STRUCTURE-SUBTYPE-P */  static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* STRUCTURE-SUBTYPE-P */
2771  static object  LnkTLI93(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[93],(void **)&LnkLI93,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI97(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[97],(void **)&LnkLI97,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
2772  static object  LnkTLI92(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[92],(void **)&LnkLI92,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */  static object  LnkTLI96(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[96],(void **)&LnkLI96,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */
2773  static object  LnkTLI87(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[87],(void **)&LnkLI87,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */  static object  LnkTLI91(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[91],(void **)&LnkLI91,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
2774  static object  LnkTLI86(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[86],(void **)&LnkLI86,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */  static object  LnkTLI90(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[90],(void **)&LnkLI90,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */
2775  static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* REALP */  static void LnkT86(){ call_or_link(VV[86],(void **)&Lnk86);} /* REALP */
2776  static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* RATIONALP */  static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* RATIONALP */
2777  static object  LnkTLI80(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[80],(void **)&LnkLI80,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */  static object  LnkTLI84(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[84],(void **)&LnkLI84,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */
2778  static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* TYPEP */  static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* TYPEP */
2779  static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* ARRAY-HAS-FILL-POINTER-P */
2780  static object  LnkTLI75(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[75],(void **)&LnkLI75,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */  static object  LnkTLI78(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[78],(void **)&LnkLI78,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
2781    
2782  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2783  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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