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

Diff of /gcl/cmpnew/cmpfun.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, Mon Oct 14 05:24:42 2002 UTC
# Line 457  T238:; Line 457  T238:;
457          goto T234;          goto T234;
458  goto T237;  goto T237;
459  T237:;  T237:;
460            {register object V75;
461          {register object V76;          {register object V76;
462          V76= car((V69));          V76= car((V69));
463          V69= cdr((V69));          V69= cdr((V69));
464          V75= (V76);}          V75= (V76);}
465          V73= make_cons(V75,(V73));          V73= make_cons((V75),(V73));}
466            {register object V77;
467          {register object V78;          {register object V78;
468          V78= car((V72));          V78= car((V72));
469          V72= cdr((V72));          V72= cdr((V72));
470          V77= (V78);}          V77= (V78);}
471          V74= make_cons(V77,(V74));          V74= make_cons((V77),(V74));}
472          goto T236;          goto T236;
473  goto T234;  goto T234;
474  T234:;  T234:;
# Line 477  T234:; Line 479  T234:;
479          (void)((VFUN_NARGS=1,(*(LnkLI225))(VV[27])));          (void)((VFUN_NARGS=1,(*(LnkLI225))(VV[27])));
480  goto T260;  goto T260;
481  T260:;  T260:;
482          V73= make_cons((V70),(V73));          V73= make_cons(V70,(V73));
483          V79= list(4,VV[4],(V68),VV[28],(V72));          {object V80;
484          V74= make_cons(/* INLINE-ARGS */V79,(V74));          V80= list(4,VV[4],(V68),VV[28],(V72));
485          V80= reverse((V73));          V74= make_cons((V80),(V74));}
486          {object V81 = list(5,VV[29],(V68),/* INLINE-ARGS */V80,reverse((V74)),(V71));          V81= reverse((V73));
487          VMR6(V81)}          {object V82 = list(5,VV[29],(V68),/* INLINE-ARGS */V81,reverse((V74)),(V71));
488            VMR6(V82)}
489  goto T258;  goto T258;
490  T258:;  T258:;
491          if(((V69))==Cnil){          if(((V69))==Cnil){
492          goto T268;}          goto T269;}
493          {object V82;          {object V83;
494          V82= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));          V83= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));
495          V73= make_cons((V82),(V73));          V73= make_cons(V83,(V73));
496          V74= make_cons(car((V72)),(V74));          {object V85;
497          V83= reverse((V73));          V85= car((V72));
498          V84= reverse((V74));          V74= make_cons((V85),(V74));}
         {object V85 = list(5,VV[29],(V68),/* INLINE-ARGS */V83,/* INLINE-ARGS */V84,list(6,VV[33],cadr((V71)),(V82),(V69),(V70),(V71)));  
         VMR6(V85)}}  
 goto T268;  
 T268:;  
         if(((V70))==Cnil){  
         goto T276;}  
         V73= make_cons((V70),(V73));  
         V74= make_cons(car((V72)),(V74));  
499          V86= reverse((V73));          V86= reverse((V73));
500          {object V87 = list(5,VV[29],(V68),/* INLINE-ARGS */V86,reverse((V74)),(V71));          V87= reverse((V74));
501          VMR6(V87)}          {object V88 = list(5,VV[29],(V68),/* INLINE-ARGS */V86,/* INLINE-ARGS */V87,list(6,VV[33],cadr((V71)),(V83),(V69),(V70),(V71)));
502  goto T276;          VMR6(V88)}}
503  T276:;  goto T269;
504          {object V88;  T269:;
505          V88= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));          if(((V70))==Cnil){
506          V73= make_cons((V88),(V73));          goto T278;}
507          V74= make_cons(car((V72)),(V74));          V73= make_cons(V70,(V73));
508          V89= reverse((V73));          {object V90;
509          V90= reverse((V74));          V90= car((V72));
510          {object V91 = list(5,VV[29],(V68),/* INLINE-ARGS */V89,/* INLINE-ARGS */V90,list(6,VV[33],cadr((V71)),(V88),(V69),(V70),(V71)));          V74= make_cons((V90),(V74));}
511          VMR6(V91)}}}          V91= reverse((V73));
512            {object V92 = list(5,VV[29],(V68),/* INLINE-ARGS */V91,reverse((V74)),(V71));
513            VMR6(V92)}
514    goto T278;
515    T278:;
516            {object V93;
517            V93= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));
518            V73= make_cons(V93,(V73));
519            {object V95;
520            V95= car((V72));
521            V74= make_cons((V95),(V74));}
522            V96= reverse((V73));
523            V97= reverse((V74));
524            {object V98 = list(5,VV[29],(V68),/* INLINE-ARGS */V96,/* INLINE-ARGS */V97,list(6,VV[33],cadr((V71)),(V93),(V69),(V70),(V71)));
525            VMR6(V98)}}}
526            base[0]=base[0];
527          return Cnil;          return Cnil;
528  }  }
529  /*      function definition for C2APPLY-OPTIMIZE        */  /*      function definition for C2APPLY-OPTIMIZE        */
# Line 523  static void L7() Line 533  static void L7()
533          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
534          vs_reserve(VM7);          vs_reserve(VM7);
535          bds_check;          bds_check;
536          {object V92;          {object V99;
537          object V93;          object V100;
538          object V94;          object V101;
539          object V95;          object V102;
540          check_arg(4);          check_arg(4);
541          V92=(base[0]);          V99=(base[0]);
542          V93=(base[1]);          V100=(base[1]);
543          V94=(base[2]);          V101=(base[2]);
544          V95=(base[3]);          V102=(base[3]);
545          vs_top=sup;          vs_top=sup;
546  goto TTL;  goto TTL;
547  TTL:;  TTL:;
# Line 540  TTL:; Line 550  TTL:;
550          bds_bind(VV[35],symbol_value(VV[35]));          bds_bind(VV[35],symbol_value(VV[35]));
551          bds_bind(VV[36],symbol_value(VV[36]));          bds_bind(VV[36],symbol_value(VV[36]));
552          if((symbol_value(VV[25]))!=Cnil){          if((symbol_value(VV[25]))!=Cnil){
553          goto T288;}          goto T292;}
554          if((symbol_value(VV[37]))==Cnil){          if((symbol_value(VV[37]))==Cnil){
555          goto T287;}          goto T291;}
556  goto T288;  goto T292;
557  T288:;  T292:;
558          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
559          if(((V94))==Cnil){          if(((V101))==Cnil){
560          goto T297;}          goto T301;}
561          V96= VV[38];          V103= VV[38];
562          goto T295;          goto T299;
563  goto T297;  goto T301;
564  T297:;  T301:;
565          V96= VV[39];          V103= VV[39];
566  goto T295;  goto T299;
567  T295:;  T299:;
568          (void)((*(LnkLI213))(V96));          (void)((*(LnkLI213))(V103));
569          princ_char(40,VV[7]);          princ_char(40,VV[7]);
570          V97 = make_fixnum((long)length((V93)));          V104 = make_fixnum((long)length((V100)));
571          (void)((*(LnkLI213))(V97));          (void)((*(LnkLI213))(V104));
572          princ_char(44,VV[7]);          princ_char(44,VV[7]);
573          (void)((*(LnkLI227))((V92),Cnil));          (void)((*(LnkLI227))((V99),Cnil));
574          princ_str(");",VV[7]);          princ_str(");",VV[7]);
575  goto T287;  goto T291;
576  T287:;  T291:;
577          {object V98;          {object V105;
578          object V99;          object V106;
579          V98= (V93);          V105= (V100);
580          V99= car((V98));          V106= car((V105));
581    goto T312;
582    T312:;
583            if(!(endp_prop((V105)))){
584            goto T313;}
585            goto T308;
586    goto T313;
587    T313:;
588            V107= (*(LnkLI223))();
589            (void)(structure_set((V106),VV[2],2,/* INLINE-ARGS */V107));
590            V105= cdr((V105));
591            V106= car((V105));
592            goto T312;}
593  goto T308;  goto T308;
594  T308:;  T308:;
595          if(!(endp_prop((V98)))){          if(((V101))==Cnil){
596          goto T309;}          goto T323;}
597          goto T304;          V108= (*(LnkLI223))();
598  goto T309;          (void)(structure_set((V101),VV[2],2,/* INLINE-ARGS */V108));
599  T309:;  goto T323;
600          V100= (*(LnkLI223))();  T323:;
601          (void)(structure_set((V99),VV[2],2,/* INLINE-ARGS */V100));          {register long V109;
602          V98= cdr((V98));          object V110;
603          V99= car((V98));          V109= 0;
604          goto T308;}          V110= (V100);
605  goto T304;  goto T329;
606  T304:;  T329:;
607          if(((V94))==Cnil){          if(!(endp_prop((V110)))){
608          goto T319;}          goto T330;}
609          V101= (*(LnkLI223))();          if(((V101))==Cnil){
         (void)(structure_set((V94),VV[2],2,/* INLINE-ARGS */V101));  
 goto T319;  
 T319:;  
         {register long V102;  
         object V103;  
         V102= 0;  
         V103= (V93);  
 goto T325;  
 T325:;  
         if(!(endp_prop((V103)))){  
610          goto T326;}          goto T326;}
         if(((V94))==Cnil){  
         goto T322;}  
611          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
612          V104= structure_ref((V94),VV[2],2);          V111= structure_ref((V101),VV[2],2);
613          (void)((*(LnkLI228))(/* INLINE-ARGS */V104));          (void)((*(LnkLI228))(/* INLINE-ARGS */V111));
614          princ_str("= ",VV[7]);          princ_str("= ",VV[7]);
615          {long V105;          {long V112;
616          register long V106;          register long V113;
617          V105= V102;          V112= V109;
618          V106= 0;          V113= 0;
619    goto T343;
620    T343:;
621            if(!((V113)>=(V112))){
622            goto T344;}
623            goto T339;
624    goto T344;
625    T344:;
626            princ_char(40,VV[7]);
627            V113= (long)(V113)+1;
628            goto T343;}
629  goto T339;  goto T339;
630  T339:;  T339:;
631          if(!((V106)>=(V105))){          (void)((*(LnkLI227))((V99),Cnil));
632          goto T340;}          {long V114;
633          goto T335;          register long V115;
634  goto T340;          V114= V109;
635  T340:;          V115= 0;
636          princ_char(40,VV[7]);  goto T358;
637          V106= (long)(V106)+1;  T358:;
638          goto T339;}          if(!((V115)>=(V114))){
639  goto T335;          goto T359;}
640  T335:;          goto T354;
641          (void)((*(LnkLI227))((V92),Cnil));  goto T359;
642          {long V107;  T359:;
643          register long V108;          princ_str("\n   )->c.c_cdr",VV[7]);
644          V107= V102;          V115= (long)(V115)+1;
645          V108= 0;          goto T358;}
646  goto T354;  goto T354;
647  T354:;  T354:;
         if(!((V108)>=(V107))){  
         goto T355;}  
         goto T350;  
 goto T355;  
 T355:;  
         princ_str("\n   )->c.c_cdr",VV[7]);  
         V108= (long)(V108)+1;  
         goto T354;}  
 goto T350;  
 T350:;  
648          princ_char(59,VV[7]);          princ_char(59,VV[7]);
649          goto T322;          goto T326;
650  goto T326;  goto T330;
651  T326:;  T330:;
652          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
653          V109= structure_ref(car((V103)),VV[2],2);          V116= structure_ref(car((V110)),VV[2],2);
654          (void)((*(LnkLI228))(/* INLINE-ARGS */V109));          (void)((*(LnkLI228))(/* INLINE-ARGS */V116));
655          princ_str("=(",VV[7]);          princ_str("=(",VV[7]);
656          {long V110;          {long V117;
657          register long V111;          register long V118;
658          V110= V102;          V117= V109;
659          V111= 0;          V118= 0;
660    goto T378;
661    T378:;
662            if(!((V118)>=(V117))){
663            goto T379;}
664            goto T374;
665    goto T379;
666    T379:;
667            princ_char(40,VV[7]);
668            V118= (long)(V118)+1;
669            goto T378;}
670  goto T374;  goto T374;
671  T374:;  T374:;
672          if(!((V111)>=(V110))){          (void)((*(LnkLI227))((V99),Cnil));
673          goto T375;}          {long V119;
674          goto T370;          register long V120;
675  goto T375;          V119= V109;
676  T375:;          V120= 0;
677          princ_char(40,VV[7]);  goto T393;
678          V111= (long)(V111)+1;  T393:;
679          goto T374;}          if(!((V120)>=(V119))){
680  goto T370;          goto T394;}
681  T370:;          goto T389;
682          (void)((*(LnkLI227))((V92),Cnil));  goto T394;
683          {long V112;  T394:;
684          register long V113;          princ_str("\n   )->c.c_cdr",VV[7]);
685          V112= V102;          V120= (long)(V120)+1;
686          V113= 0;          goto T393;}
687  goto T389;  goto T389;
688  T389:;  T389:;
         if(!((V113)>=(V112))){  
         goto T390;}  
         goto T385;  
 goto T390;  
 T390:;  
         princ_str("\n   )->c.c_cdr",VV[7]);  
         V113= (long)(V113)+1;  
         goto T389;}  
 goto T385;  
 T385:;  
689          princ_str(")->c.c_car;",VV[7]);          princ_str(")->c.c_car;",VV[7]);
690          V102= (long)(V102)+1;          V109= (long)(V109)+1;
691          V103= cdr((V103));          V110= cdr((V110));
692          goto T325;}          goto T329;}
693  goto T322;  goto T326;
694  T322:;  T326:;
695          {object V114;          {object V121;
696          object V115;          object V122;
697          V114= (V93);          V121= (V100);
698          V115= car((V114));          V122= car((V121));
699    goto T413;
700    T413:;
701            if(!(endp_prop((V121)))){
702            goto T414;}
703            goto T409;
704    goto T414;
705    T414:;
706            (void)((*(LnkLI229))((V122)));
707            V121= cdr((V121));
708            V122= car((V121));
709            goto T413;}
710  goto T409;  goto T409;
711  T409:;  T409:;
712          if(!(endp_prop((V114)))){          if(((V101))==Cnil){
713          goto T410;}          goto T424;}
714          goto T405;          (void)((*(LnkLI229))((V101)));
715  goto T410;  goto T424;
716  T410:;  T424:;
717          (void)((*(LnkLI229))((V115)));          base[8]= (V102);
         V114= cdr((V114));  
         V115= car((V114));  
         goto T409;}  
 goto T405;  
 T405:;  
         if(((V94))==Cnil){  
         goto T420;}  
         (void)((*(LnkLI229))((V94)));  
 goto T420;  
 T420:;  
         base[8]= (V95);  
718          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
719          (void) (*Lnk230)();          (void) (*Lnk230)();
720          bds_unwind1;          bds_unwind1;
# Line 716  T420:; Line 726  T420:;
726  }  }
727  /*      local entry for function C1FUNCALL      */  /*      local entry for function C1FUNCALL      */
728    
729  static object LI8(V117)  static object LI8(V124)
730    
731  object V117;  object V124;
732  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
733  goto TTL;  goto TTL;
734  TTL:;  TTL:;
735          {object V118;          {object V125;
736          object V119;          object V126;
737          V118= Cnil;          V125= Cnil;
738          V119= (VFUN_NARGS=0,(*(LnkLI208))());          V126= (VFUN_NARGS=0,(*(LnkLI208))());
739          if(!(endp_prop((V117)))){          if(!(endp_prop((V124)))){
740          goto T426;}          goto T430;}
741          (void)((*(LnkLI209))(VV[40],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI209))(VV[40],small_fixnum(1),small_fixnum(0)));
742  goto T426;  goto T430;
743  T426:;  T430:;
744          V118= (*(LnkLI217))(car((V117)));          V125= (*(LnkLI217))(car((V124)));
745          (void)((*(LnkLI231))((V119),cadr((V118))));          (void)((*(LnkLI231))((V126),cadr((V125))));
746          {object V120 = list(4,VV[40],(V119),(V118),(*(LnkLI219))(cdr((V117)),(V119)));          {object V127 = list(4,VV[40],(V126),(V125),(*(LnkLI219))(cdr((V124)),(V126)));
747          VMR8(V120)}}          VMR8(V127)}}
748          base[0]=base[0];          base[0]=base[0];
749          return Cnil;          return Cnil;
750  }  }
751  /*      local entry for function C1RPLACA       */  /*      local entry for function C1RPLACA       */
752    
753  static object LI9(V122)  static object LI9(V129)
754    
755  register object V122;  register object V129;
756  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
757  goto TTL;  goto TTL;
758  TTL:;  TTL:;
759          {object V123;          {object V130;
760          V123= (VFUN_NARGS=0,(*(LnkLI208))());          V130= (VFUN_NARGS=0,(*(LnkLI208))());
761          if(endp_prop((V122))){          if(endp_prop((V129))){
         goto T434;}  
         if(!(endp_prop(cdr((V122))))){  
         goto T433;}  
 goto T434;  
 T434:;  
         V124 = make_fixnum((long)length((V122)));  
         (void)((*(LnkLI209))(VV[41],small_fixnum(2),V124));  
 goto T433;  
 T433:;  
         if(endp_prop(cddr((V122)))){  
762          goto T438;}          goto T438;}
763          V125 = make_fixnum((long)length((V122)));          if(!(endp_prop(cdr((V129))))){
764          (void)((*(LnkLI210))(VV[41],small_fixnum(2),V125));          goto T437;}
765  goto T438;  goto T438;
766  T438:;  T438:;
767          V122= (*(LnkLI219))((V122),(V123));          V131 = make_fixnum((long)length((V129)));
768          {object V126 = list(3,VV[41],(V123),(V122));          (void)((*(LnkLI209))(VV[41],small_fixnum(2),V131));
769          VMR9(V126)}}  goto T437;
770    T437:;
771            if(endp_prop(cddr((V129)))){
772            goto T442;}
773            V132 = make_fixnum((long)length((V129)));
774            (void)((*(LnkLI210))(VV[41],small_fixnum(2),V132));
775    goto T442;
776    T442:;
777            V129= (*(LnkLI219))((V129),(V130));
778            {object V133 = list(3,VV[41],(V130),(V129));
779            VMR9(V133)}}
780          base[0]=base[0];          base[0]=base[0];
781          return Cnil;          return Cnil;
782  }  }
783  /*      local entry for function C2RPLACA       */  /*      local entry for function C2RPLACA       */
784    
785  static object LI10(V128)  static object LI10(V135)
786    
787  register object V128;  register object V135;
788  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
789          bds_check;          bds_check;
790  goto TTL;  goto TTL;
791  TTL:;  TTL:;
792          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
793          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
794          V128= (VFUN_NARGS=2,(*(LnkLI232))((V128),VV[43]));          V135= (VFUN_NARGS=2,(*(LnkLI232))((V135),VV[43]));
795          if((symbol_value(VV[25]))==Cnil){          if((symbol_value(VV[25]))==Cnil){
796          goto T445;}          goto T449;}
797          princ_str("\n   if(type_of(",VV[7]);          princ_str("\n   if(type_of(",VV[7]);
798          (void)((*(LnkLI213))(car((V128))));          (void)((*(LnkLI213))(car((V135))));
799          princ_str(")!=t_cons)",VV[7]);          princ_str(")!=t_cons)",VV[7]);
800          princ_str("FEwrong_type_argument(Scons,",VV[7]);          princ_str("FEwrong_type_argument(Scons,",VV[7]);
801          (void)((*(LnkLI213))(car((V128))));          (void)((*(LnkLI213))(car((V135))));
802          princ_str(");",VV[7]);          princ_str(");",VV[7]);
803  goto T445;  goto T449;
804  T445:;  T449:;
805          princ_str("\n   (",VV[7]);          princ_str("\n   (",VV[7]);
806          (void)((*(LnkLI213))(car((V128))));          (void)((*(LnkLI213))(car((V135))));
807          princ_str(")->c.c_car = ",VV[7]);          princ_str(")->c.c_car = ",VV[7]);
808          (void)((*(LnkLI213))(cadr((V128))));          (void)((*(LnkLI213))(cadr((V135))));
809          princ_char(59,VV[7]);          princ_char(59,VV[7]);
810          (void)((VFUN_NARGS=1,(*(LnkLI214))(car((V128)))));          (void)((VFUN_NARGS=1,(*(LnkLI214))(car((V135)))));
811          {object V129 = (*(LnkLI233))();          {object V136 = (*(LnkLI233))();
812          bds_unwind1;          bds_unwind1;
813          bds_unwind1;          bds_unwind1;
814          VMR10(V129)}          VMR10(V136)}
815          base[0]=base[0];          base[0]=base[0];
816          return Cnil;          return Cnil;
817  }  }
818  /*      local entry for function C1RPLACD       */  /*      local entry for function C1RPLACD       */
819    
820  static object LI11(V131)  static object LI11(V138)
821    
822  register object V131;  register object V138;
823  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
824  goto TTL;  goto TTL;
825  TTL:;  TTL:;
826          {object V132;          {object V139;
827          V132= (VFUN_NARGS=0,(*(LnkLI208))());          V139= (VFUN_NARGS=0,(*(LnkLI208))());
828          if(endp_prop((V131))){          if(endp_prop((V138))){
         goto T463;}  
         if(!(endp_prop(cdr((V131))))){  
         goto T462;}  
 goto T463;  
 T463:;  
         V133 = make_fixnum((long)length((V131)));  
         (void)((*(LnkLI209))(VV[44],small_fixnum(2),V133));  
 goto T462;  
 T462:;  
         if(endp_prop(cddr((V131)))){  
829          goto T467;}          goto T467;}
830          V134 = make_fixnum((long)length((V131)));          if(!(endp_prop(cdr((V138))))){
831          (void)((*(LnkLI210))(VV[44],small_fixnum(2),V134));          goto T466;}
832  goto T467;  goto T467;
833  T467:;  T467:;
834          V131= (*(LnkLI219))((V131),(V132));          V140 = make_fixnum((long)length((V138)));
835          {object V135 = list(3,VV[44],(V132),(V131));          (void)((*(LnkLI209))(VV[44],small_fixnum(2),V140));
836          VMR11(V135)}}  goto T466;
837    T466:;
838            if(endp_prop(cddr((V138)))){
839            goto T471;}
840            V141 = make_fixnum((long)length((V138)));
841            (void)((*(LnkLI210))(VV[44],small_fixnum(2),V141));
842    goto T471;
843    T471:;
844            V138= (*(LnkLI219))((V138),(V139));
845            {object V142 = list(3,VV[44],(V139),(V138));
846            VMR11(V142)}}
847          base[0]=base[0];          base[0]=base[0];
848          return Cnil;          return Cnil;
849  }  }
850  /*      local entry for function C2RPLACD       */  /*      local entry for function C2RPLACD       */
851    
852  static object LI12(V137)  static object LI12(V144)
853    
854  register object V137;  register object V144;
855  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
856          bds_check;          bds_check;
857  goto TTL;  goto TTL;
858  TTL:;  TTL:;
859          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
860          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
861          V137= (VFUN_NARGS=2,(*(LnkLI232))((V137),VV[45]));          V144= (VFUN_NARGS=2,(*(LnkLI232))((V144),VV[45]));
862          if((symbol_value(VV[25]))==Cnil){          if((symbol_value(VV[25]))==Cnil){
863          goto T474;}          goto T478;}
864          princ_str("\n   if(type_of(",VV[7]);          princ_str("\n   if(type_of(",VV[7]);
865          (void)((*(LnkLI213))(car((V137))));          (void)((*(LnkLI213))(car((V144))));
866          princ_str(")!=t_cons)",VV[7]);          princ_str(")!=t_cons)",VV[7]);
867          princ_str("FEwrong_type_argument(Scons,",VV[7]);          princ_str("FEwrong_type_argument(Scons,",VV[7]);
868          (void)((*(LnkLI213))(car((V137))));          (void)((*(LnkLI213))(car((V144))));
869          princ_str(");",VV[7]);          princ_str(");",VV[7]);
870  goto T474;  goto T478;
871  T474:;  T478:;
872          princ_str("\n   (",VV[7]);          princ_str("\n   (",VV[7]);
873          (void)((*(LnkLI213))(car((V137))));          (void)((*(LnkLI213))(car((V144))));
874          princ_str(")->c.c_cdr = ",VV[7]);          princ_str(")->c.c_cdr = ",VV[7]);
875          (void)((*(LnkLI213))(cadr((V137))));          (void)((*(LnkLI213))(cadr((V144))));
876          princ_char(59,VV[7]);          princ_char(59,VV[7]);
877          (void)((VFUN_NARGS=1,(*(LnkLI214))(car((V137)))));          (void)((VFUN_NARGS=1,(*(LnkLI214))(car((V144)))));
878          {object V138 = (*(LnkLI233))();          {object V145 = (*(LnkLI233))();
879          bds_unwind1;          bds_unwind1;
880          bds_unwind1;          bds_unwind1;
881          VMR12(V138)}          VMR12(V145)}
882          base[0]=base[0];          base[0]=base[0];
883          return Cnil;          return Cnil;
884  }  }
885  /*      local entry for function C1MEMQ */  /*      local entry for function C1MEMQ */
886    
887  static object LI13(V140)  static object LI13(V147)
888    
889  register object V140;  register object V147;
890  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
891  goto TTL;  goto TTL;
892  TTL:;  TTL:;
893          {object V141;          {object V148;
894          V141= (VFUN_NARGS=0,(*(LnkLI208))());          V148= (VFUN_NARGS=0,(*(LnkLI208))());
895          if(endp_prop((V140))){          if(endp_prop((V147))){
         goto T492;}  
         if(!(endp_prop(cdr((V140))))){  
         goto T491;}  
 goto T492;  
 T492:;  
         V142 = make_fixnum((long)length((V140)));  
         (void)((*(LnkLI209))(VV[46],small_fixnum(2),V142));  
 goto T491;  
 T491:;  
         if(endp_prop(cddr((V140)))){  
896          goto T496;}          goto T496;}
897          V143 = make_fixnum((long)length((V140)));          if(!(endp_prop(cdr((V147))))){
898          (void)((*(LnkLI210))(VV[46],small_fixnum(2),V143));          goto T495;}
899  goto T496;  goto T496;
900  T496:;  T496:;
901          V144= list(2,car((V140)),cadr((V140)));          V149 = make_fixnum((long)length((V147)));
902          {object V145 = list(4,VV[47],(V141),VV[48],(*(LnkLI219))(/* INLINE-ARGS */V144,(V141)));          (void)((*(LnkLI209))(VV[46],small_fixnum(2),V149));
903          VMR13(V145)}}  goto T495;
904    T495:;
905            if(endp_prop(cddr((V147)))){
906            goto T500;}
907            V150 = make_fixnum((long)length((V147)));
908            (void)((*(LnkLI210))(VV[46],small_fixnum(2),V150));
909    goto T500;
910    T500:;
911            V151= list(2,car((V147)),cadr((V147)));
912            {object V152 = list(4,VV[47],(V148),VV[48],(*(LnkLI219))(/* INLINE-ARGS */V151,(V148)));
913            VMR13(V152)}}
914          base[0]=base[0];          base[0]=base[0];
915          return Cnil;          return Cnil;
916  }  }
917  /*      local entry for function C1MEMBER       */  /*      local entry for function C1MEMBER       */
918    
919  static object LI14(V147)  static object LI14(V154)
920    
921  register object V147;  register object V154;
922  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
923  goto TTL;  goto TTL;
924  TTL:;  TTL:;
925          {register object V148;          {register object V155;
926          V148= (VFUN_NARGS=0,(*(LnkLI208))());          V155= (VFUN_NARGS=0,(*(LnkLI208))());
927          if(endp_prop((V147))){          if(endp_prop((V154))){
928          goto T501;}          goto T505;}
929          if(!(endp_prop(cdr((V147))))){          if(!(endp_prop(cdr((V154))))){
930          goto T500;}          goto T504;}
931  goto T501;  goto T505;
932  T501:;  T505:;
933          V149 = make_fixnum((long)length((V147)));          V156 = make_fixnum((long)length((V154)));
934          (void)((*(LnkLI209))(VV[49],small_fixnum(2),V149));          (void)((*(LnkLI209))(VV[49],small_fixnum(2),V156));
935  goto T500;  goto T504;
936  T500:;  T504:;
937          if(!(endp_prop(cddr((V147))))){          if(!(endp_prop(cddr((V154))))){
938          goto T506;}          goto T510;}
939          {object V150 = list(4,VV[47],(V148),VV[50],(*(LnkLI219))((V147),(V148)));          {object V157 = list(4,VV[47],(V155),VV[50],(*(LnkLI219))((V154),(V155)));
940          VMR14(V150)}          VMR14(V157)}
941  goto T506;  goto T510;
942  T506:;  T510:;
943          if(!((caddr((V147)))==(VV[51]))){          if(!((caddr((V154)))==(VV[51]))){
944          goto T509;}          goto T513;}
945          if(!(((long)length((V147)))==(4))){          if(!(((long)length((V154)))==(4))){
946          goto T509;}          goto T513;}
947          {register object x= cadddr((V147)),V151= VV[52];          {register object x= cadddr((V154)),V158= VV[52];
948          while(!endp(V151))          while(!endp(V158))
949          if(equal(x,V151->c.c_car)){          if(equal(x,V158->c.c_car)){
950          goto T514;          goto T518;
951          }else V151=V151->c.c_cdr;          }else V158=V158->c.c_cdr;
952          goto T509;}          goto T513;}
953  goto T514;  goto T518;
954  T514:;  T518:;
955          V152= cadr(cadddr((V147)));          V159= cadr(cadddr((V154)));
956          V153= list(2,car((V147)),cadr((V147)));          V160= list(2,car((V154)),cadr((V154)));
957          {object V154 = list(4,VV[47],(V148),/* INLINE-ARGS */V152,(*(LnkLI219))(/* INLINE-ARGS */V153,(V148)));          {object V161 = list(4,VV[47],(V155),/* INLINE-ARGS */V159,(*(LnkLI219))(/* INLINE-ARGS */V160,(V155)));
958          VMR14(V154)}          VMR14(V161)}
959  goto T509;  goto T513;
960  T509:;  T513:;
961          {object V155 = list(4,VV[4],(V148),VV[49],(*(LnkLI219))((V147),(V148)));          {object V162 = list(4,VV[4],(V155),VV[49],(*(LnkLI219))((V154),(V155)));
962          VMR14(V155)}}          VMR14(V162)}}
963          base[0]=base[0];          base[0]=base[0];
964          return Cnil;          return Cnil;
965  }  }
966  /*      local entry for function C2MEMBER!2     */  /*      local entry for function C2MEMBER!2     */
967    
968  static object LI15(V158,V159)  static object LI15(V165,V166)
969    
970  object V158;register object V159;  object V165;register object V166;
971  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
972          bds_check;          bds_check;
973  goto TTL;  goto TTL;
974  TTL:;  TTL:;
975          {register object V160;          {register object V167;
976          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
977          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
978          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
979          V160= symbol_value(VV[22]);          V167= symbol_value(VV[22]);
980          V159= (VFUN_NARGS=2,(*(LnkLI232))((V159),VV[53]));          V166= (VFUN_NARGS=2,(*(LnkLI232))((V166),VV[53]));
981          princ_str("\n   {register object x= ",VV[7]);          princ_str("\n   {register object x= ",VV[7]);
982          (void)((*(LnkLI213))(car((V159))));          (void)((*(LnkLI213))(car((V166))));
983          princ_str(",V",VV[7]);          princ_str(",V",VV[7]);
984          (void)((*(LnkLI213))((V160)));          (void)((*(LnkLI213))((V167)));
985          princ_str("= ",VV[7]);          princ_str("= ",VV[7]);
986          (void)((*(LnkLI213))(cadr((V159))));          (void)((*(LnkLI213))(cadr((V166))));
987          princ_char(59,VV[7]);          princ_char(59,VV[7]);
988          if((symbol_value(VV[25]))==Cnil){          if((symbol_value(VV[25]))==Cnil){
989          goto T529;}          goto T533;}
990          princ_str("\n   while(!endp(V",VV[7]);          princ_str("\n   while(!endp(V",VV[7]);
991          (void)((*(LnkLI213))((V160)));          (void)((*(LnkLI213))((V167)));
992          princ_str("))",VV[7]);          princ_str("))",VV[7]);
993          goto T527;          goto T531;
994  goto T529;  goto T533;
995  T529:;  T533:;
996          princ_str("\n   while(V",VV[7]);          princ_str("\n   while(V",VV[7]);
997          (void)((*(LnkLI213))((V160)));          (void)((*(LnkLI213))((V167)));
998          princ_str("!=Cnil)",VV[7]);          princ_str("!=Cnil)",VV[7]);
999  goto T527;  goto T531;
1000  T527:;  T531:;
1001          if(!(((V158))==(VV[48]))){          if(!(((V165))==(VV[48]))){
1002          goto T539;}          goto T543;}
1003          princ_str("\n   if(x==(V",VV[7]);          princ_str("\n   if(x==(V",VV[7]);
1004          (void)((*(LnkLI213))((V160)));          (void)((*(LnkLI213))((V167)));
1005          princ_str("->c.c_car)){",VV[7]);          princ_str("->c.c_car)){",VV[7]);
1006          goto T537;          goto T541;
1007  goto T539;  goto T543;
1008  T539:;  T543:;
1009          princ_str("\n   if(",VV[7]);          princ_str("\n   if(",VV[7]);
1010          base[3]= symbol_name((V158));          base[3]= symbol_name((V165));
1011          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1012          Lstring_downcase();          Lstring_downcase();
1013          vs_top=sup;          vs_top=sup;
1014          V161= vs_base[0];          V168= vs_base[0];
1015          (void)((*(LnkLI213))(V161));          (void)((*(LnkLI213))(V168));
1016          princ_str("(x,V",VV[7]);          princ_str("(x,V",VV[7]);
1017          (void)((*(LnkLI213))((V160)));          (void)((*(LnkLI213))((V167)));
1018          princ_str("->c.c_car)){",VV[7]);          princ_str("->c.c_car)){",VV[7]);
1019  goto T537;  goto T541;
1020  T537:;  T541:;
1021          if(!(type_of(symbol_value(VV[5]))==t_cons)){          if(!(type_of(symbol_value(VV[5]))==t_cons)){
1022          goto T553;}          goto T557;}
1023          if((car(symbol_value(VV[5])))==(VV[54])){          if((car(symbol_value(VV[5])))==(VV[54])){
1024          goto T552;}          goto T556;}
1025          if(!((car(symbol_value(VV[5])))==(VV[55]))){          if(!((car(symbol_value(VV[5])))==(VV[55]))){
1026          goto T553;}          goto T557;}
1027  goto T552;  goto T556;
1028  T552:;  T556:;
1029          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));
1030          goto T551;          goto T555;
1031  goto T553;  goto T557;
1032  T553:;  T557:;
1033          V162= list(2,VV[21],(V160));          V169= list(2,VV[21],(V167));
1034          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V162,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V169,VV[56])));
1035  goto T551;  goto T555;
1036  T551:;  T555:;
1037          princ_str("\n   }else V",VV[7]);          princ_str("\n   }else V",VV[7]);
1038          (void)((*(LnkLI213))((V160)));          (void)((*(LnkLI213))((V167)));
1039          princ_str("=V",VV[7]);          princ_str("=V",VV[7]);
1040          (void)((*(LnkLI213))((V160)));          (void)((*(LnkLI213))((V167)));
1041          princ_str("->c.c_cdr;",VV[7]);          princ_str("->c.c_cdr;",VV[7]);
1042          (void)((VFUN_NARGS=1,(*(LnkLI214))(Cnil)));          (void)((VFUN_NARGS=1,(*(LnkLI214))(Cnil)));
1043          princ_char(125,VV[7]);          princ_char(125,VV[7]);
1044          {object V163 = (*(LnkLI233))();          {object V170 = (*(LnkLI233))();
1045          bds_unwind1;          bds_unwind1;
1046          bds_unwind1;          bds_unwind1;
1047          VMR15(V163)}}          VMR15(V170)}}
1048          base[0]=base[0];          base[0]=base[0];
1049          return Cnil;          return Cnil;
1050  }  }
1051  /*      local entry for function C1ASSOC        */  /*      local entry for function C1ASSOC        */
1052    
1053  static object LI16(V165)  static object LI16(V172)
1054    
1055  register object V165;  register object V172;
1056  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1057  goto TTL;  goto TTL;
1058  TTL:;  TTL:;
1059          {register object V166;          {register object V173;
1060          V166= (VFUN_NARGS=0,(*(LnkLI208))());          V173= (VFUN_NARGS=0,(*(LnkLI208))());
1061          if(endp_prop((V165))){          if(endp_prop((V172))){
1062          goto T570;}          goto T574;}
1063          if(!(endp_prop(cdr((V165))))){          if(!(endp_prop(cdr((V172))))){
1064          goto T569;}          goto T573;}
1065  goto T570;  goto T574;
1066  T570:;  T574:;
1067          V167 = make_fixnum((long)length((V165)));          V174 = make_fixnum((long)length((V172)));
1068          (void)((*(LnkLI209))(VV[57],small_fixnum(2),V167));          (void)((*(LnkLI209))(VV[57],small_fixnum(2),V174));
1069  goto T569;  goto T573;
1070  T569:;  T573:;
1071          if(!(endp_prop(cddr((V165))))){          if(!(endp_prop(cddr((V172))))){
1072          goto T575;}          goto T579;}
1073          {object V168 = list(4,VV[58],(V166),VV[50],(*(LnkLI219))((V165),(V166)));          {object V175 = list(4,VV[58],(V173),VV[50],(*(LnkLI219))((V172),(V173)));
1074          VMR16(V168)}          VMR16(V175)}
1075  goto T575;  goto T579;
1076  T575:;  T579:;
1077          if(!((caddr((V165)))==(VV[51]))){          if(!((caddr((V172)))==(VV[51]))){
1078          goto T578;}          goto T582;}
1079          if(!(((long)length((V165)))==(4))){          if(!(((long)length((V172)))==(4))){
1080          goto T578;}          goto T582;}
1081          {register object x= cadddr((V165)),V169= VV[59];          {register object x= cadddr((V172)),V176= VV[59];
1082          while(!endp(V169))          while(!endp(V176))
1083          if(equal(x,V169->c.c_car)){          if(equal(x,V176->c.c_car)){
1084          goto T583;          goto T587;
1085          }else V169=V169->c.c_cdr;          }else V176=V176->c.c_cdr;
1086          goto T578;}          goto T582;}
1087  goto T583;  goto T587;
1088  T583:;  T587:;
1089          V170= cadr(cadddr((V165)));          V177= cadr(cadddr((V172)));
1090          V171= list(2,car((V165)),cadr((V165)));          V178= list(2,car((V172)),cadr((V172)));
1091          {object V172 = list(4,VV[58],(V166),/* INLINE-ARGS */V170,(*(LnkLI219))(/* INLINE-ARGS */V171,(V166)));          {object V179 = list(4,VV[58],(V173),/* INLINE-ARGS */V177,(*(LnkLI219))(/* INLINE-ARGS */V178,(V173)));
1092          VMR16(V172)}          VMR16(V179)}
1093  goto T578;  goto T582;
1094  T578:;  T582:;
1095          {object V173 = list(4,VV[4],(V166),VV[57],(*(LnkLI219))((V165),(V166)));          {object V180 = list(4,VV[4],(V173),VV[57],(*(LnkLI219))((V172),(V173)));
1096          VMR16(V173)}}          VMR16(V180)}}
1097          base[0]=base[0];          base[0]=base[0];
1098          return Cnil;          return Cnil;
1099  }  }
1100  /*      local entry for function C2ASSOC!2      */  /*      local entry for function C2ASSOC!2      */
1101    
1102  static object LI17(V176,V177)  static object LI17(V183,V184)
1103    
1104  object V176;register object V177;  object V183;register object V184;
1105  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1106          bds_check;          bds_check;
1107  goto TTL;  goto TTL;
1108  TTL:;  TTL:;
1109          {register object V178;          {register object V185;
1110          register object V179;          register object V186;
1111          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
1112          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
1113          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
1114          V178= symbol_value(VV[22]);          V185= symbol_value(VV[22]);
1115          V179= Cnil;          V186= Cnil;
1116          V177= (VFUN_NARGS=2,(*(LnkLI232))((V177),VV[60]));          V184= (VFUN_NARGS=2,(*(LnkLI232))((V184),VV[60]));
1117          V179= symbol_name((V176));          V186= symbol_name((V183));
1118          if(!(((V176))==(VV[48]))){          if(!(((V183))==(VV[48]))){
1119          goto T592;}          goto T596;}
1120          goto T591;          goto T595;
1121  goto T592;  goto T596;
1122  T592:;  T596:;
1123          base[3]= (V179);          base[3]= (V186);
1124          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1125          Lstring_downcase();          Lstring_downcase();
1126          vs_top=sup;          vs_top=sup;
1127          V179= vs_base[0];          V186= vs_base[0];
1128  goto T591;  goto T595;
1129  T591:;  T595:;
1130          princ_str("\n   {register object x= ",VV[7]);          princ_str("\n   {register object x= ",VV[7]);
1131          (void)((*(LnkLI213))(car((V177))));          (void)((*(LnkLI213))(car((V184))));
1132          princ_str(",V",VV[7]);          princ_str(",V",VV[7]);
1133          (void)((*(LnkLI213))((V178)));          (void)((*(LnkLI213))((V185)));
1134          princ_str("= ",VV[7]);          princ_str("= ",VV[7]);
1135          (void)((*(LnkLI213))(cadr((V177))));          (void)((*(LnkLI213))(cadr((V184))));
1136          princ_char(59,VV[7]);          princ_char(59,VV[7]);
1137          if((symbol_value(VV[25]))==Cnil){          if((symbol_value(VV[25]))==Cnil){
1138          goto T606;}          goto T610;}
1139          princ_str("\n   while(!endp(V",VV[7]);          princ_str("\n   while(!endp(V",VV[7]);
1140          (void)((*(LnkLI213))((V178)));          (void)((*(LnkLI213))((V185)));
1141          princ_str("))",VV[7]);          princ_str("))",VV[7]);
1142          princ_str("\n   if(type_of(V",VV[7]);          princ_str("\n   if(type_of(V",VV[7]);
1143          (void)((*(LnkLI213))((V178)));          (void)((*(LnkLI213))((V185)));
1144          princ_str("->c.c_car)==t_cons &&",VV[7]);          princ_str("->c.c_car)==t_cons &&",VV[7]);
1145          (void)((*(LnkLI213))((V179)));          (void)((*(LnkLI213))((V186)));
1146          princ_str("(x,V",VV[7]);          princ_str("(x,V",VV[7]);
1147          (void)((*(LnkLI213))((V178)));          (void)((*(LnkLI213))((V185)));
1148          princ_str("->c.c_car->c.c_car)){",VV[7]);          princ_str("->c.c_car->c.c_car)){",VV[7]);
1149          goto T604;          goto T608;
1150  goto T606;  goto T610;
1151  T606:;  T610:;
1152          princ_str("\n   while(V",VV[7]);          princ_str("\n   while(V",VV[7]);
1153          (void)((*(LnkLI213))((V178)));          (void)((*(LnkLI213))((V185)));
1154          princ_str("!=Cnil)",VV[7]);          princ_str("!=Cnil)",VV[7]);
1155          princ_str("\n   if(",VV[7]);          princ_str("\n   if(",VV[7]);
1156          (void)((*(LnkLI213))((V179)));          (void)((*(LnkLI213))((V186)));
1157          princ_str("(x,V",VV[7]);          princ_str("(x,V",VV[7]);
1158          (void)((*(LnkLI213))((V178)));          (void)((*(LnkLI213))((V185)));
1159          princ_str("->c.c_car->c.c_car) &&",VV[7]);          princ_str("->c.c_car->c.c_car) &&",VV[7]);
1160          princ_char(86,VV[7]);          princ_char(86,VV[7]);
1161          (void)((*(LnkLI213))((V178)));          (void)((*(LnkLI213))((V185)));
1162          princ_str("->c.c_car != Cnil){",VV[7]);          princ_str("->c.c_car != Cnil){",VV[7]);
1163  goto T604;  goto T608;
1164  T604:;  T608:;
1165          if(!(type_of(symbol_value(VV[5]))==t_cons)){          if(!(type_of(symbol_value(VV[5]))==t_cons)){
1166          goto T633;}          goto T637;}
1167          if((car(symbol_value(VV[5])))==(VV[54])){          if((car(symbol_value(VV[5])))==(VV[54])){
1168          goto T632;}          goto T636;}
1169          if(!((car(symbol_value(VV[5])))==(VV[55]))){          if(!((car(symbol_value(VV[5])))==(VV[55]))){
1170          goto T633;}          goto T637;}
1171  goto T632;  goto T636;
1172  T632:;  T636:;
1173          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));
1174          goto T631;          goto T635;
1175  goto T633;  goto T637;
1176  T633:;  T637:;
1177          V180= list(2,VV[61],(V178));          V187= list(2,VV[61],(V185));
1178          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V180,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V187,VV[56])));
1179  goto T631;  goto T635;
1180  T631:;  T635:;
1181          princ_str("\n   }else V",VV[7]);          princ_str("\n   }else V",VV[7]);
1182          (void)((*(LnkLI213))((V178)));          (void)((*(LnkLI213))((V185)));
1183          princ_str("=V",VV[7]);          princ_str("=V",VV[7]);
1184          (void)((*(LnkLI213))((V178)));          (void)((*(LnkLI213))((V185)));
1185          princ_str("->c.c_cdr;",VV[7]);          princ_str("->c.c_cdr;",VV[7]);
1186          (void)((VFUN_NARGS=1,(*(LnkLI214))(Cnil)));          (void)((VFUN_NARGS=1,(*(LnkLI214))(Cnil)));
1187          princ_char(125,VV[7]);          princ_char(125,VV[7]);
1188          {object V181 = (*(LnkLI233))();          {object V188 = (*(LnkLI233))();
1189          bds_unwind1;          bds_unwind1;
1190          bds_unwind1;          bds_unwind1;
1191          VMR17(V181)}}          VMR17(V188)}}
1192          base[0]=base[0];          base[0]=base[0];
1193          return Cnil;          return Cnil;
1194  }  }
# Line 1188  static void L18() Line 1198  static void L18()
1198  {register object *base=vs_base;  {register object *base=vs_base;
1199          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
1200          vs_reserve(VM18);          vs_reserve(VM18);
1201          {object V182;          {object V189;
1202          object V183;          object V190;
1203          object V184;          object V191;
1204          check_arg(3);          check_arg(3);
1205          V182=(base[0]);          V189=(base[0]);
1206          V183=(base[1]);          V190=(base[1]);
1207          V184=(base[2]);          V191=(base[2]);
1208          vs_top=sup;          vs_top=sup;
1209  goto TTL;  goto TTL;
1210  TTL:;  TTL:;
1211          base[3]= (V182);          base[3]= (V189);
1212          base[4]= (V183);          base[4]= (V190);
1213          base[5]= (V184);          base[5]= (V191);
1214          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1215          Lboole();          Lboole();
1216          return;          return;
# Line 1208  TTL:; Line 1218  TTL:;
1218  }  }
1219  /*      local entry for function C1BOOLE-CONDITION      */  /*      local entry for function C1BOOLE-CONDITION      */
1220    
1221  static object LI19(V186)  static object LI19(V193)
1222    
1223  object V186;  object V193;
1224  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1225  goto TTL;  goto TTL;
1226  TTL:;  TTL:;
1227          if(((endp_prop(cddr((V186)))?Ct:Cnil))==Cnil){          if(((endp_prop(cddr((V193)))?Ct:Cnil))==Cnil){
1228          goto T651;}          goto T655;}
1229          {object V187 = Cnil;          {object V194 = Cnil;
1230          VMR19(V187)}          VMR19(V194)}
1231  goto T651;  goto T655;
1232  T651:;  T655:;
1233          if(endp_prop(cdddr((V186)))){          if(endp_prop(cdddr((V193)))){
1234          goto T653;}          goto T657;}
1235          {object V188 = Cnil;          {object V195 = Cnil;
1236          VMR19(V188)}          VMR19(V195)}
1237  goto T653;  goto T657;
1238  T653:;  T657:;
1239          {object V189 = (*(LnkLI234))(car((V186)));          {object V196 = (*(LnkLI234))(car((V193)));
1240          VMR19(V189)}          VMR19(V196)}
1241          return Cnil;          return Cnil;
1242  }  }
1243  /*      local entry for function C1BOOLE3       */  /*      local entry for function C1BOOLE3       */
1244    
1245  static object LI20(V191)  static object LI20(V198)
1246    
1247  object V191;  object V198;
1248  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1249  goto TTL;  goto TTL;
1250  TTL:;  TTL:;
1251          V192= make_cons(VV[62],(V191));          V199= make_cons(VV[62],(V198));
1252          {object V193 = (*(LnkLI235))(/* INLINE-ARGS */V192);          {object V200 = (*(LnkLI235))(/* INLINE-ARGS */V199);
1253          VMR20(V193)}          VMR20(V200)}
1254          return Cnil;          return Cnil;
1255  }  }
1256  /*      function definition for INLINE-BOOLE3   */  /*      function definition for INLINE-BOOLE3   */
# Line 1249  static void L21() Line 1259  static void L21()
1259  {register object *base=vs_base;  {register object *base=vs_base;
1260          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1261          vs_reserve(VM21);          vs_reserve(VM21);
1262          {object V194;          {object V201;
1263          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1264          {object *p=vs_top;          {object *p=vs_top;
1265           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1266          V194=(base[0]);          V201=(base[0]);
1267          vs_top=sup;          vs_top=sup;
1268          {object V195;          {object V202;
1269          V195= cadr(car((V194)));          V202= cadr(car((V201)));
1270          if(!((car((V195)))==(VV[63]))){          if(!((car((V202)))==(VV[63]))){
1271          goto T657;}          goto T661;}
1272          goto T656;          goto T660;
1273  goto T657;  goto T661;
1274  T657:;  T661:;
1275          base[1]= VV[64];          base[1]= VV[64];
1276          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1277          Lerror();          Lerror();
1278          vs_top=sup;          vs_top=sup;
1279  goto T656;  goto T660;
1280  T656:;  T660:;
1281          {object V196;          {object V203;
1282          V196= (*(LnkLI234))(caddr((V195)));          V203= (*(LnkLI234))(caddr((V202)));
1283          if((V196)!=Cnil){          if((V203)!=Cnil){
1284          goto T661;}          goto T665;}
1285          base[1]= VV[65];          base[1]= VV[65];
1286          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1287          Lerror();          Lerror();
1288          vs_top=sup;          vs_top=sup;
1289  goto T661;  goto T665;
1290  T661:;  T665:;
1291          base[1]= (V196);          base[1]= (V203);
1292          base[2]= cdr((V194));          base[2]= cdr((V201));
1293          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1294          (void) (*Lnk236)();          (void) (*Lnk236)();
1295          return;}}          return;}}
# Line 1287  T661:; Line 1297  T661:;
1297  }  }
1298  /*      local entry for function INLINE-BOOLE3-STRING   */  /*      local entry for function INLINE-BOOLE3-STRING   */
1299    
1300  static object LI22(V198)  static object LI22(V205)
1301    
1302  register object V198;  register object V205;
1303  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1304  goto TTL;  goto TTL;
1305  TTL:;  TTL:;
1306          base[0]= (V198);          base[0]= (V205);
1307          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1308          Lconstantp();          Lconstantp();
1309          vs_top=sup;          vs_top=sup;
1310          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1311          goto T666;}          goto T670;}
1312          goto T665;          goto T669;
1313  goto T666;  goto T670;
1314  T666:;  T670:;
1315          base[0]= (V198);          base[0]= (V205);
1316          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1317          Leval();          Leval();
1318          vs_top=sup;          vs_top=sup;
1319          V198= vs_base[0];          V205= vs_base[0];
1320  goto T665;  goto T669;
1321  T665:;  T669:;
1322          {object V199= (V198);          {object V206= (V205);
1323          if(!eql(V199,VV[66]))goto T671;          if(!eql(V206,VV[66]))goto T675;
1324          {object V200 = VV[67];          {object V207 = VV[67];
1325          VMR22(V200)}          VMR22(V207)}
 goto T671;  
 T671:;  
         if(!eql(V199,VV[68]))goto T672;  
         {object V201 = VV[69];  
         VMR22(V201)}  
 goto T672;  
 T672:;  
         if(!eql(V199,VV[70]))goto T673;  
         {object V202 = VV[71];  
         VMR22(V202)}  
 goto T673;  
 T673:;  
         if(!eql(V199,VV[72]))goto T674;  
         {object V203 = VV[73];  
         VMR22(V203)}  
 goto T674;  
 T674:;  
         if(!eql(V199,VV[74]))goto T675;  
         {object V204 = VV[75];  
         VMR22(V204)}  
1326  goto T675;  goto T675;
1327  T675:;  T675:;
1328          if(!eql(V199,VV[76]))goto T676;          if(!eql(V206,VV[68]))goto T676;
1329          {object V205 = VV[77];          {object V208 = VV[69];
1330          VMR22(V205)}          VMR22(V208)}
1331  goto T676;  goto T676;
1332  T676:;  T676:;
1333          if(!eql(V199,VV[78]))goto T677;          if(!eql(V206,VV[70]))goto T677;
1334          {object V206 = VV[79];          {object V209 = VV[71];
1335          VMR22(V206)}          VMR22(V209)}
1336  goto T677;  goto T677;
1337  T677:;  T677:;
1338          if(!eql(V199,VV[80]))goto T678;          if(!eql(V206,VV[72]))goto T678;
1339          {object V207 = VV[81];          {object V210 = VV[73];
1340          VMR22(V207)}          VMR22(V210)}
1341  goto T678;  goto T678;
1342  T678:;  T678:;
1343          if(!eql(V199,VV[82]))goto T679;          if(!eql(V206,VV[74]))goto T679;
1344          {object V208 = VV[83];          {object V211 = VV[75];
1345          VMR22(V208)}          VMR22(V211)}
1346  goto T679;  goto T679;
1347  T679:;  T679:;
1348          if(!eql(V199,VV[84]))goto T680;          if(!eql(V206,VV[76]))goto T680;
1349          {object V209 = VV[85];          {object V212 = VV[77];
1350          VMR22(V209)}          VMR22(V212)}
1351  goto T680;  goto T680;
1352  T680:;  T680:;
1353          {object V210 = Cnil;          if(!eql(V206,VV[78]))goto T681;
1354          VMR22(V210)}}          {object V213 = VV[79];
1355            VMR22(V213)}
1356    goto T681;
1357    T681:;
1358            if(!eql(V206,VV[80]))goto T682;
1359            {object V214 = VV[81];
1360            VMR22(V214)}
1361    goto T682;
1362    T682:;
1363            if(!eql(V206,VV[82]))goto T683;
1364            {object V215 = VV[83];
1365            VMR22(V215)}
1366    goto T683;
1367    T683:;
1368            if(!eql(V206,VV[84]))goto T684;
1369            {object V216 = VV[85];
1370            VMR22(V216)}
1371    goto T684;
1372    T684:;
1373            {object V217 = Cnil;
1374            VMR22(V217)}}
1375          base[0]=base[0];          base[0]=base[0];
1376          return Cnil;          return Cnil;
1377  }  }
1378  /*      local entry for function C1ASH-CONDITION        */  /*      local entry for function C1ASH-CONDITION        */
1379    
1380  static object LI23(V212)  static object LI23(V219)
1381    
1382  object V212;  object V219;
1383  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1384  goto TTL;  goto TTL;
1385  TTL:;  TTL:;
1386          {register object V213;          {register object V220;
1387          V213= cadr((V212));{object V214;          V220= cadr((V219));{object V221;
1388          {register object V215;          {register object V222;
1389          V215= (V213);          V222= (V220);
1390          if(type_of((V215))==t_fixnum){          if(type_of((V222))==t_fixnum){
         goto T684;}  
         V214= Cnil;  
         goto T683;  
 goto T684;  
 T684:;  
         if((fix((V215)))>=(-31)){  
         goto T686;}  
         V214= Cnil;  
         goto T683;  
 goto T686;  
 T686:;  
         V214= ((fix((V215)))<=(31)?Ct:Cnil);}  
 goto T683;  
 T683:;  
         if(V214==Cnil)goto T682;  
         {object V216 = V214;  
         VMR23(V216)}  
 goto T682;  
 T682:;}  
         if(type_of((V213))==t_cons){  
1391          goto T688;}          goto T688;}
1392          {object V217 = Cnil;          V221= Cnil;
1393          VMR23(V217)}          goto T687;
1394  goto T688;  goto T688;
1395  T688:;  T688:;
1396          if((car((V213)))==(VV[86])){          if((fix((V222)))>=(-31)){
1397          goto T690;}          goto T690;}
1398          {object V218 = Cnil;          V221= Cnil;
1399          VMR23(V218)}          goto T687;
1400  goto T690;  goto T690;
1401  T690:;  T690:;
1402          {object V219;          V221= ((fix((V222)))<=(31)?Ct:Cnil);}
1403          V219= cadr((V213));  goto T687;
1404          base[0]= (V219);  T687:;
1405            if(V221==Cnil)goto T686;
1406            {object V223 = V221;
1407            VMR23(V223)}
1408    goto T686;
1409    T686:;}
1410            if(type_of((V220))==t_cons){
1411            goto T692;}
1412            {object V224 = Cnil;
1413            VMR23(V224)}
1414    goto T692;
1415    T692:;
1416            if((car((V220)))==(VV[86])){
1417            goto T694;}
1418            {object V225 = Cnil;
1419            VMR23(V225)}
1420    goto T694;
1421    T694:;
1422            {object V226;
1423            V226= cadr((V220));
1424            base[0]= (V226);
1425          base[1]= VV[87];          base[1]= VV[87];
1426          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1427          (void) (*Lnk237)();          (void) (*Lnk237)();
1428          vs_top=sup;          vs_top=sup;
1429          {object V220 = vs_base[0];          {object V227 = vs_base[0];
1430          VMR23(V220)}}}          VMR23(V227)}}}
1431          base[0]=base[0];          base[0]=base[0];
1432          return Cnil;          return Cnil;
1433  }  }
1434  /*      local entry for function C1ASH  */  /*      local entry for function C1ASH  */
1435    
1436  static object LI24(V222)  static object LI24(V229)
1437    
1438  object V222;  object V229;
1439  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1440  goto TTL;  goto TTL;
1441  TTL:;  TTL:;
1442          {register object V223;          {register object V230;
1443          register object V224;          register object V231;
1444          V223= cadr((V222));          V230= cadr((V229));
1445          V224= Cnil;          V231= Cnil;
1446          base[0]= (V223);          base[0]= (V230);
1447          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1448          Lconstantp();          Lconstantp();
1449          vs_top=sup;          vs_top=sup;
1450          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1451          goto T698;}          goto T702;}
1452          base[0]= (V223);          base[0]= (V230);
1453          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1454          Leval();          Leval();
1455          vs_top=sup;          vs_top=sup;
1456          V223= vs_base[0];{object V225;          V230= vs_base[0];{object V232;
1457          base[0]= (V223);          base[0]= (V230);
1458          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1459          (void) (*Lnk238)();          (void) (*Lnk238)();
1460          vs_top=sup;          vs_top=sup;
1461          V225= vs_base[0];          V232= vs_base[0];
1462          if(V225==Cnil)goto T705;          if(V232==Cnil)goto T709;
1463          goto T704;          goto T708;
1464  goto T705;  goto T709;
1465  T705:;}  T709:;}
1466          base[0]= VV[88];          base[0]= VV[88];
1467          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1468          Lerror();          Lerror();
1469          vs_top=sup;          vs_top=sup;
1470  goto T704;  goto T708;
1471  T704:;  T708:;
1472          if(!(number_compare((V223),small_fixnum(0))<0)){          if(!(number_compare((V230),small_fixnum(0))<0)){
1473          goto T710;}          goto T714;}
1474          V224= VV[89];          V231= VV[89];
1475          goto T696;          goto T700;
1476  goto T710;  goto T714;
1477  T710:;  T714:;
1478          if(!(number_compare((V223),small_fixnum(0))>=0)){          if(!(number_compare((V230),small_fixnum(0))>=0)){
1479          goto T696;}          goto T700;}
1480          V224= VV[90];          V231= VV[90];
1481          goto T696;          goto T700;
1482  goto T698;  goto T702;
1483  T698:;  T702:;
1484          {object V226;          {object V233;
1485          V226= cadr((V223));          V233= cadr((V230));
1486          base[0]= (V226);          base[0]= (V233);
1487          base[1]= VV[91];          base[1]= VV[91];
1488          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1489          (void) (*Lnk237)();          (void) (*Lnk237)();
1490          vs_top=sup;          vs_top=sup;
1491          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1492          goto T718;}          goto T722;}
1493          V224= VV[90];          V231= VV[90];
1494          goto T696;          goto T700;
1495  goto T718;  goto T722;
1496  T718:;  T722:;
1497          base[0]= (V226);          base[0]= (V233);
1498          base[1]= VV[92];          base[1]= VV[92];
1499          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1500          (void) (*Lnk237)();          (void) (*Lnk237)();
1501          vs_top=sup;          vs_top=sup;
1502          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1503          goto T724;}          goto T728;}
1504          V224= VV[89];          V231= VV[89];
1505          goto T696;          goto T700;
1506  goto T724;  goto T728;
1507  T724:;  T728:;
1508          base[0]= VV[93];          base[0]= VV[93];
1509          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1510          Lerror();          Lerror();
1511          vs_top=sup;}          vs_top=sup;}
1512  goto T696;  goto T700;
1513  T696:;  T700:;
1514          V227= make_cons((V224),(V222));          V234= make_cons((V231),(V229));
1515          {object V228 = (*(LnkLI235))(/* INLINE-ARGS */V227);          {object V235 = (*(LnkLI235))(/* INLINE-ARGS */V234);
1516          VMR24(V228)}}          VMR24(V235)}}
1517          base[0]=base[0];          base[0]=base[0];
1518          return Cnil;          return Cnil;
1519  }  }
1520  /*      local entry for function SHIFT>>        */  /*      local entry for function SHIFT>>        */
1521    
1522  static object LI25(V231,V232)  static object LI25(V238,V239)
1523    
1524  object V231;object V232;  object V238;object V239;
1525  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1526  goto TTL;  goto TTL;
1527  TTL:;  TTL:;
1528          base[0]= (V231);          base[0]= (V238);
1529          base[1]= (V232);          base[1]= (V239);
1530          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1531          Lash();          Lash();
1532          vs_top=sup;          vs_top=sup;
1533          {object V233 = vs_base[0];          {object V240 = vs_base[0];
1534          VMR25(V233)}          VMR25(V240)}
1535          base[0]=base[0];          base[0]=base[0];
1536          return Cnil;          return Cnil;
1537  }  }
1538  /*      local entry for function SHIFT<<        */  /*      local entry for function SHIFT<<        */
1539    
1540  static object LI26(V236,V237)  static object LI26(V243,V244)
1541    
1542  object V236;object V237;  object V243;object V244;
1543  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1544  goto TTL;  goto TTL;
1545  TTL:;  TTL:;
1546          base[0]= (V236);          base[0]= (V243);
1547          base[1]= (V237);          base[1]= (V244);
1548          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1549          Lash();          Lash();
1550          vs_top=sup;          vs_top=sup;
1551          {object V238 = vs_base[0];          {object V245 = vs_base[0];
1552          VMR26(V238)}          VMR26(V245)}
1553          base[0]=base[0];          base[0]=base[0];
1554          return Cnil;          return Cnil;
1555  }  }
# Line 1549  static void L27() Line 1559  static void L27()
1559  {register object *base=vs_base;  {register object *base=vs_base;
1560          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
1561          vs_reserve(VM27);          vs_reserve(VM27);
1562          {object V239;          {object V246;
1563          object V240;          object V247;
1564          check_arg(2);          check_arg(2);
1565          V239=(base[0]);          V246=(base[0]);
1566          V240=(base[1]);          V247=(base[1]);
1567          vs_top=sup;          vs_top=sup;
1568  goto TTL;  goto TTL;
1569  TTL:;  TTL:;
1570          {register object V241;          {register object V248;
1571          object V242;          object V249;
1572          V241= Cnil;          V248= Cnil;
1573          base[3]= VV[94];          base[3]= VV[94];
1574          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1575          Linteger_length();          Linteger_length();
1576          vs_top=sup;          vs_top=sup;
1577          V242= vs_base[0];          V249= vs_base[0];
1578          {register object V243;          {register object V250;
1579          {object V244;          {object V251;
1580          V241= car((V240));          V248= car((V247));
1581          if(type_of((V241))==t_cons){          if(type_of((V248))==t_cons){
1582          goto T740;}          goto T744;}
1583          V244= Cnil;          V251= Cnil;
1584          goto T739;          goto T743;
1585  goto T740;  goto T744;
1586  T740:;  T744:;
1587          if((VV[95])==(car((V241)))){          if((VV[95])==(car((V248)))){
1588          goto T743;}          goto T747;}
1589          V244= Cnil;          V251= Cnil;
1590          goto T739;          goto T743;
1591    goto T747;
1592    T747:;
1593            V251= make_cons(cadr((V248)),caddr((V248)));
1594  goto T743;  goto T743;
1595  T743:;  T743:;
1596          V244= make_cons(cadr((V241)),caddr((V241)));          if(((V251))==Cnil){
1597  goto T739;          goto T750;}
1598  T739:;          V250= (V251);
1599          if(((V244))==Cnil){          goto T742;
1600          goto T746;}  goto T750;
1601          V243= (V244);  T750:;
1602          goto T738;          V250= Cnil;}
1603  goto T746;  goto T742;
1604  T746:;  T742:;
1605          V243= Cnil;}          {object V252= cdr((V250));
1606  goto T738;          if(!(type_of(V252)==t_fixnum||type_of(V252)==t_bignum)){
1607  T738:;          goto T753;}}
1608          {object V245= cdr((V243));          {object V253= car((V250));
1609          if(!(type_of(V245)==t_fixnum||type_of(V245)==t_bignum)){          if(!(type_of(V253)==t_fixnum||type_of(V253)==t_bignum)){
1610          goto T749;}}          goto T753;}}
1611          {object V246= car((V243));          V254= number_plus(car((V250)),cdr((V250)));
1612          if(!(type_of(V246)==t_fixnum||type_of(V246)==t_bignum)){          if(!(number_compare(/* INLINE-ARGS */V254,(V249))<0)){
1613          goto T749;}}          goto T753;}
1614          V247= number_plus(car((V243)),cdr((V243)));          base[3]= (*(LnkLI239))(cadr((V247)));
         if(!(number_compare(/* INLINE-ARGS */V247,(V242))<0)){  
         goto T749;}  
         base[3]= (*(LnkLI239))(cadr((V240)));  
1615          base[4]= VV[96];          base[4]= VV[96];
1616          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1617          (void) (*Lnk237)();          (void) (*Lnk237)();
1618          vs_top=sup;          vs_top=sup;
1619          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1620          goto T749;}          goto T753;}
1621          V248= list(3,VV[86],VV[96],list(4,VV[97],car((V243)),cdr((V243)),cadr((V240))));          V255= list(3,VV[86],VV[96],list(4,VV[97],car((V250)),cdr((V250)),cadr((V247))));
1622          base[3]= (*(LnkLI235))(/* INLINE-ARGS */V248);          base[3]= (*(LnkLI235))(/* INLINE-ARGS */V255);
1623          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1624          return;          return;
1625  goto T749;  goto T753;
1626  T749:;  T753:;
1627          base[3]= Cnil;          base[3]= Cnil;
1628          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1629          return;}}          return;}}
# Line 1621  T749:; Line 1631  T749:;
1631  }  }
1632  /*      local entry for function C1LENGTH       */  /*      local entry for function C1LENGTH       */
1633    
1634  static object LI28(V250)  static object LI28(V257)
1635    
1636  register object V250;  register object V257;
1637  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1638  goto TTL;  goto TTL;
1639  TTL:;  TTL:;
1640          {register object V251;          {register object V258;
1641          V251= (VFUN_NARGS=0,(*(LnkLI208))());          V258= (VFUN_NARGS=0,(*(LnkLI208))());
1642          (void)(structure_set((V251),VV[98],2,VV[96]));          (void)(structure_set((V258),VV[98],2,VV[96]));
1643          {object V252;          {object V259;
1644          if(type_of(car((V250)))==t_cons){          if(type_of(car((V257)))==t_cons){
1645          goto T762;}          goto T766;}
1646          V252= Cnil;          V259= Cnil;
1647          goto T761;          goto T765;
1648  goto T762;  goto T766;
1649  T762:;  T766:;
1650          if((caar((V250)))==(VV[99])){          if((caar((V257)))==(VV[99])){
1651          goto T764;}          goto T768;}
1652          V252= Cnil;          V259= Cnil;
1653          goto T761;          goto T765;
1654  goto T764;  goto T768;
1655  T764:;  T768:;
1656          {object V253;          {object V260;
1657          V253= cdr(car((V250)));          V260= cdr(car((V257)));
1658          if((V253)==Cnil){          if((V260)==Cnil){
1659          V252= Cnil;          V259= Cnil;
1660          goto T761;}          goto T765;}
1661          if((cddr((V253)))==Cnil){          if((cddr((V260)))==Cnil){
1662          goto T767;}          goto T771;}
1663          V252= Cnil;          V259= Cnil;
1664          goto T761;          goto T765;
1665  goto T767;  goto T771;
1666  T767:;  T771:;
1667          V252= list(4,VV[4],(V251),VV[100],(*(LnkLI219))((V253),(V251)));}          V259= list(4,VV[4],(V258),VV[100],(*(LnkLI219))((V260),(V258)));}
1668  goto T761;  goto T765;
1669  T761:;  T765:;
1670          if(((V252))==Cnil){          if(((V259))==Cnil){
1671          goto T770;}          goto T774;}
1672          {object V254 = (V252);          {object V261 = (V259);
1673          VMR28(V254)}          VMR28(V261)}
1674  goto T770;  goto T774;
1675  T770:;  T774:;
1676          V250= (*(LnkLI219))((V250),(V251));          V257= (*(LnkLI219))((V257),(V258));
1677          {object V255 = list(4,VV[4],(V251),VV[101],(V250));          {object V262 = list(4,VV[4],(V258),VV[101],(V257));
1678          VMR28(V255)}}}          VMR28(V262)}}}
1679          base[0]=base[0];          base[0]=base[0];
1680          return Cnil;          return Cnil;
1681  }  }
1682  /*      local entry for function C1GET  */  /*      local entry for function C1GET  */
1683    
1684  static object LI29(V257)  static object LI29(V264)
1685    
1686  register object V257;  register object V264;
1687  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1688  goto TTL;  goto TTL;
1689  TTL:;  TTL:;
1690          {object V258;          {object V265;
1691          V258= (VFUN_NARGS=0,(*(LnkLI208))());          V265= (VFUN_NARGS=0,(*(LnkLI208))());
1692          if(endp_prop((V257))){          if(endp_prop((V264))){
         goto T776;}  
         if(!(endp_prop(cdr((V257))))){  
         goto T775;}  
 goto T776;  
 T776:;  
         V259 = make_fixnum((long)length((V257)));  
         (void)((*(LnkLI209))(VV[102],small_fixnum(2),V259));  
 goto T775;  
 T775:;  
         if(endp_prop(cddr((V257)))){  
         goto T780;}  
         if(endp_prop(cdddr((V257)))){  
1693          goto T780;}          goto T780;}
1694          V260 = make_fixnum((long)length((V257)));          if(!(endp_prop(cdr((V264))))){
1695          (void)((*(LnkLI210))(VV[102],small_fixnum(3),V260));          goto T779;}
1696  goto T780;  goto T780;
1697  T780:;  T780:;
1698          {object V261 = list(3,VV[102],(V258),(*(LnkLI219))((V257),(V258)));          V266 = make_fixnum((long)length((V264)));
1699          VMR29(V261)}}          (void)((*(LnkLI209))(VV[102],small_fixnum(2),V266));
1700    goto T779;
1701    T779:;
1702            if(endp_prop(cddr((V264)))){
1703            goto T784;}
1704            if(endp_prop(cdddr((V264)))){
1705            goto T784;}
1706            V267 = make_fixnum((long)length((V264)));
1707            (void)((*(LnkLI210))(VV[102],small_fixnum(3),V267));
1708    goto T784;
1709    T784:;
1710            {object V268 = list(3,VV[102],(V265),(*(LnkLI219))((V264),(V265)));
1711            VMR29(V268)}}
1712          base[0]=base[0];          base[0]=base[0];
1713          return Cnil;          return Cnil;
1714  }  }
1715  /*      local entry for function C2GET  */  /*      local entry for function C2GET  */
1716    
1717  static object LI30(V263)  static object LI30(V270)
1718    
1719  register object V263;  register object V270;
1720  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1721          bds_check;          bds_check;
1722  goto TTL;  goto TTL;
1723  TTL:;  TTL:;
1724          if((symbol_value(VV[25]))==Cnil){          if((symbol_value(VV[25]))==Cnil){
1725          goto T786;}          goto T790;}
1726          {object V264 = (*(LnkLI215))(VV[102],(V263),Cnil,Ct);          {object V271 = (*(LnkLI215))(VV[102],(V270),Cnil,Ct);
1727          VMR30(V264)}          VMR30(V271)}
1728  goto T786;  goto T790;
1729  T786:;  T790:;
1730          {register object V265;          {register object V272;
1731          base[0]= symbol_value(VV[20]);          base[0]= symbol_value(VV[20]);
1732          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
1733          V265= symbol_value(VV[22]);          V272= symbol_value(VV[22]);
1734          bds_bind(VV[20],base[0]);          bds_bind(VV[20],base[0]);
1735          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
1736          if((cddr((V263)))==Cnil){          if((cddr((V270)))==Cnil){
1737          goto T795;}          goto T799;}
1738          V266= VV[103];          V273= VV[103];
1739          goto T793;          goto T797;
1740  goto T795;  goto T799;
1741  T795:;  T799:;
1742          V266= VV[104];          V273= VV[104];
1743  goto T793;  goto T797;
1744  T793:;  T797:;
1745          V263= (VFUN_NARGS=2,(*(LnkLI232))((V263),V266));          V270= (VFUN_NARGS=2,(*(LnkLI232))((V270),V273));
1746          princ_str("\n   {object V",VV[7]);          princ_str("\n   {object V",VV[7]);
1747          (void)((*(LnkLI213))((V265)));          (void)((*(LnkLI213))((V272)));
1748          princ_str(" =(",VV[7]);          princ_str(" =(",VV[7]);
1749          (void)((*(LnkLI213))(car((V263))));          (void)((*(LnkLI213))(car((V270))));
1750          princ_str(")->s.s_plist;",VV[7]);          princ_str(")->s.s_plist;",VV[7]);
1751          princ_str("\n    object ind= ",VV[7]);          princ_str("\n    object ind= ",VV[7]);
1752          (void)((*(LnkLI213))(cadr((V263))));          (void)((*(LnkLI213))(cadr((V270))));
1753          princ_char(59,VV[7]);          princ_char(59,VV[7]);
1754          princ_str("\n   while(V",VV[7]);          princ_str("\n   while(V",VV[7]);
1755          (void)((*(LnkLI213))((V265)));          (void)((*(LnkLI213))((V272)));
1756          princ_str("!=Cnil){",VV[7]);          princ_str("!=Cnil){",VV[7]);
1757          princ_str("\n   if(V",VV[7]);          princ_str("\n   if(V",VV[7]);
1758          (void)((*(LnkLI213))((V265)));          (void)((*(LnkLI213))((V272)));
1759          princ_str("->c.c_car==ind){",VV[7]);          princ_str("->c.c_car==ind){",VV[7]);
1760          V267= list(2,VV[105],(V265));          V274= list(2,VV[105],(V272));
1761          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V267,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V274,VV[56])));
1762          princ_str("\n   }else V",VV[7]);          princ_str("\n   }else V",VV[7]);
1763          (void)((*(LnkLI213))((V265)));          (void)((*(LnkLI213))((V272)));
1764          princ_str("=V",VV[7]);          princ_str("=V",VV[7]);
1765          (void)((*(LnkLI213))((V265)));          (void)((*(LnkLI213))((V272)));
1766          princ_str("->c.c_cdr->c.c_cdr;}",VV[7]);          princ_str("->c.c_cdr->c.c_cdr;}",VV[7]);
1767          if((cddr((V263)))==Cnil){          if((cddr((V270)))==Cnil){
1768          goto T825;}          goto T829;}
1769          V268= caddr((V263));          V275= caddr((V270));
1770          goto T823;          goto T827;
1771  goto T825;  goto T829;
1772  T825:;  T829:;
1773          V268= Cnil;          V275= Cnil;
1774  goto T823;  goto T827;
1775  T823:;  T827:;
1776          (void)((VFUN_NARGS=1,(*(LnkLI214))(V268)));          (void)((VFUN_NARGS=1,(*(LnkLI214))(V275)));
1777          princ_char(125,VV[7]);          princ_char(125,VV[7]);
1778          {object V269 = (*(LnkLI233))();          {object V276 = (*(LnkLI233))();
1779          bds_unwind1;          bds_unwind1;
1780          bds_unwind1;          bds_unwind1;
1781          VMR30(V269)}}          VMR30(V276)}}
1782          base[0]=base[0];          base[0]=base[0];
1783          return Cnil;          return Cnil;
1784  }  }
1785  /*      local entry for function CO1EQL */  /*      local entry for function CO1EQL */
1786    
1787  static object LI31(V272,V273)  static object LI31(V279,V280)
1788    
1789  object V272;register object V273;  object V279;register object V280;
1790  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1791  goto TTL;  goto TTL;
1792  TTL:;{object V274;  TTL:;{object V281;
1793          if((cdr((V273)))!=Cnil){          if((cdr((V280)))!=Cnil){
1794          goto T833;}          goto T837;}
1795          V274= Cnil;          V281= Cnil;
1796          goto T832;          goto T836;
1797  goto T833;  goto T837;
1798  T833:;  T837:;
1799          V274= ((symbol_value(VV[25]))==Cnil?Ct:Cnil);          V281= ((symbol_value(VV[25]))==Cnil?Ct:Cnil);
1800  goto T832;  goto T836;
1801  T832:;  T836:;
1802          if(V274==Cnil)goto T831;          if(V281==Cnil)goto T835;
1803          goto T830;          goto T834;
1804  goto T831;  goto T835;
1805  T831:;}  T835:;}
1806          {object V275 = Cnil;          {object V282 = Cnil;
1807          VMR31(V275)}          VMR31(V282)}
1808  goto T830;  goto T834;
1809  T830:;  T834:;
1810          if(((*(LnkLI240))((V273)))==Cnil){          if(((*(LnkLI240))((V280)))==Cnil){
1811          goto T836;}          goto T840;}
1812          if(!(type_of(cadr((V273)))==t_character)){          if(!(type_of(cadr((V280)))==t_character)){
1813          goto T838;}          goto T842;}
1814          V273= reverse((V273));          V280= reverse((V280));
1815  goto T838;  goto T842;
1816  T838:;  T842:;
1817          if(!(type_of(car((V273)))==t_character)){          if(!(type_of(car((V280)))==t_character)){
1818          goto T843;}          goto T847;}
1819          {register object V276;          {register object V283;
1820          vs_base=vs_top;          vs_base=vs_top;
1821          Lgensym();          Lgensym();
1822          vs_top=sup;          vs_top=sup;
1823          V276= vs_base[0];          V283= vs_base[0];
1824          V277= list(2,(V276),cadr((V273)));          V284= list(2,(V283),cadr((V280)));
1825          V278= make_cons(/* INLINE-ARGS */V277,Cnil);          V285= make_cons(/* INLINE-ARGS */V284,Cnil);
1826          V279= (*(LnkLI239))(cadr((V273)));          V286= (*(LnkLI239))(cadr((V280)));
1827          V280= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V279,(V276)));          V287= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V286,(V283)));
1828          V281= list(3,VV[109],(V276),VV[110]);          V288= list(3,VV[109],(V283),VV[110]);
1829          V282= list(2,VV[112],car((V273)));          V289= list(2,VV[112],car((V280)));
1830          V283= list(4,VV[29],/* INLINE-ARGS */V278,/* INLINE-ARGS */V280,list(3,VV[108],/* INLINE-ARGS */V281,list(3,VV[111],/* INLINE-ARGS */V282,list(3,VV[86],VV[96],list(2,VV[112],list(3,VV[86],VV[14],(V276)))))));          V290= list(4,VV[29],/* INLINE-ARGS */V285,/* INLINE-ARGS */V287,list(3,VV[108],/* INLINE-ARGS */V288,list(3,VV[111],/* INLINE-ARGS */V289,list(3,VV[86],VV[96],list(2,VV[112],list(3,VV[86],VV[14],(V283)))))));
1831          {object V284 = (*(LnkLI235))(/* INLINE-ARGS */V283);          {object V291 = (*(LnkLI235))(/* INLINE-ARGS */V290);
1832          VMR31(V284)}}          VMR31(V291)}}
1833  goto T843;  goto T847;
1834  T843:;  T847:;
1835          {object V285 = Cnil;          {object V292 = Cnil;
1836          VMR31(V285)}          VMR31(V292)}
1837  goto T836;  goto T840;
1838  T836:;  T840:;
1839          {object V286 = Cnil;          {object V293 = Cnil;
1840          VMR31(V286)}          VMR31(V293)}
1841          base[0]=base[0];          base[0]=base[0];
1842          return Cnil;          return Cnil;
1843  }  }
1844  /*      local entry for function RESULT-TYPE    */  /*      local entry for function RESULT-TYPE    */
1845    
1846  static object LI32(V288)  static object LI32(V295)
1847    
1848  register object V288;  register object V295;
1849  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1850  goto TTL;  goto TTL;
1851  TTL:;  TTL:;
1852          if(!(type_of((V288))==t_symbol)){          if(!(type_of((V295))==t_symbol)){
1853          goto T847;}          goto T851;}
1854          {object V289;          {object V296;
1855          V289= (*(LnkLI235))((V288));          V296= (*(LnkLI235))((V295));
1856          {object V290 = structure_ref(cadr((V289)),VV[98],2);          {object V297 = structure_ref(cadr((V296)),VV[98],2);
1857          VMR32(V290)}}          VMR32(V297)}}
1858  goto T847;  goto T851;
1859  T847:;  T851:;
1860          base[0]= (V288);          base[0]= (V295);
1861          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1862          Lconstantp();          Lconstantp();
1863          vs_top=sup;          vs_top=sup;
1864          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1865          goto T851;}          goto T855;}
1866          base[0]= (V288);          base[0]= (V295);
1867          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1868          Ltype_of();          Ltype_of();
1869          vs_top=sup;          vs_top=sup;
1870          V291= vs_base[0];          V298= vs_base[0];
1871          {object V292 = (*(LnkLI241))(V291);          {object V299 = (*(LnkLI241))(V298);
1872          VMR32(V292)}          VMR32(V299)}
1873  goto T851;  goto T855;
1874  T851:;  T855:;
1875          if(!(type_of((V288))==t_cons)){          if(!(type_of((V295))==t_cons)){
1876          goto T857;}          goto T861;}
1877          if(!((car((V288)))==(VV[86]))){          if(!((car((V295)))==(VV[86]))){
1878          goto T857;}          goto T861;}
1879          {object V293 = (*(LnkLI241))(cadr((V288)));          {object V300 = (*(LnkLI241))(cadr((V295)));
1880          VMR32(V293)}          VMR32(V300)}
1881  goto T857;  goto T861;
1882  T857:;  T861:;
1883          {object V294 = Ct;          {object V301 = Ct;
1884          VMR32(V294)}          VMR32(V301)}
1885          base[0]=base[0];          base[0]=base[0];
1886          return Cnil;          return Cnil;
1887  }  }
1888  /*      local entry for function CO1TYPEP       */  /*      local entry for function CO1TYPEP       */
1889    
1890  static object LI33(V297,V298)  static object LI33(V304,V305)
1891    
1892  object V297;register object V298;  object V304;register object V305;
1893  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1894  goto TTL;  goto TTL;
1895  TTL:;  TTL:;
1896          {register object V299;          {register object V306;
1897          V299= Cnil;          V306= Cnil;
1898          {register object V300;          {register object V307;
1899          register object V301;          register object V308;
1900          register object V302;          register object V309;
1901          V300= car((V298));          V307= car((V305));
1902          V301= Cnil;          V308= Cnil;
1903          if(type_of(cadr((V298)))==t_cons){          if(type_of(cadr((V305)))==t_cons){
1904          goto T866;}          goto T870;}
1905          V302= Cnil;          V309= Cnil;
1906          goto T865;          goto T869;
1907  goto T866;  goto T870;
1908  T866:;  T870:;
1909          if((car(cadr((V298))))==(VV[113])){          if((car(cadr((V305))))==(VV[113])){
1910          goto T868;}          goto T872;}
1911          V302= Cnil;          V309= Cnil;
1912          goto T865;          goto T869;
1913  goto T868;  goto T872;
1914  T868:;  T872:;
1915          V302= cadr(cadr((V298)));          V309= cadr(cadr((V305)));
1916  goto T865;  goto T869;
1917  T865:;  T869:;
1918          base[2]= (*(LnkLI239))(car((V298)));          base[2]= (*(LnkLI239))(car((V305)));
1919          base[3]= (V302);          base[3]= (V309);
1920          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1921          (void) (*Lnk237)();          (void) (*Lnk237)();
1922          vs_top=sup;          vs_top=sup;
1923          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1924          goto T870;}          goto T874;}
1925          V301= Ct;          V308= Ct;
1926          {object V303 = (*(LnkLI235))((V301));          {object V310 = (*(LnkLI235))((V308));
1927          VMR33(V303)}          VMR33(V310)}
1928  goto T870;  goto T874;
1929  T870:;  T874:;
1930          if(((V302))!=Cnil){          if(((V309))!=Cnil){
1931          goto T880;}          goto T884;}
1932          V301= Cnil;          V308= Cnil;
1933          goto T878;          goto T882;
1934  goto T880;  goto T884;
1935  T880:;  T884:;
1936          {register object x= (V302),V304= symbol_value(VV[114]);          {register object x= (V309),V311= symbol_value(VV[114]);
1937          while(!endp(V304))          while(!endp(V311))
1938          if(type_of(V304->c.c_car)==t_cons &&equal(x,V304->c.c_car->c.c_car)){          if(type_of(V311->c.c_car)==t_cons &&equal(x,V311->c.c_car->c.c_car)){
1939          V297= (V304->c.c_car);          V304= (V311->c.c_car);
1940          goto T885;          goto T889;
1941          }else V304=V304->c.c_cdr;          }else V311=V311->c.c_cdr;
1942          V297= Cnil;}          V304= Cnil;}
1943  goto T885;  goto T889;
1944  T885:;  T889:;
1945          if(((V297))==Cnil){          if(((V304))==Cnil){
         goto T883;}  
         V301= list(2,cdr((V297)),(V300));  
         goto T878;  
 goto T883;  
 T883:;  
         if(!(type_of((V302))==t_cons)){  
1946          goto T887;}          goto T887;}
1947          if(!((car((V302)))==(VV[115]))){          V308= list(2,cdr((V304)),(V307));
1948            goto T882;
1949    goto T887;
1950    T887:;
1951            if(!(type_of((V309))==t_cons)){
1952            goto T891;}
1953            if(!((car((V309)))==(VV[115]))){
1954            goto T894;}
1955            if((cddr((V309)))==Cnil){
1956          goto T890;}          goto T890;}
1957          if((cddr((V302)))==Cnil){  goto T894;
1958          goto T886;}  T894:;
1959            {register object x= car((V309)),V312= VV[116];
1960            while(!endp(V312))
1961            if(eql(x,V312->c.c_car)){
1962            goto T899;
1963            }else V312=V312->c.c_cdr;
1964            goto T891;}
1965    goto T899;
1966    T899:;
1967            if(!(equal(caddr((V309)),VV[117]))){
1968            goto T891;}
1969  goto T890;  goto T890;
1970  T890:;  T890:;
1971          {register object x= car((V302)),V305= VV[116];          V306= (*(LnkLI242))(cadr((V309)));
1972          while(!endp(V305))          if(!(((V306))==(VV[118]))){
1973          if(eql(x,V305->c.c_car)){          goto T904;}
1974          goto T895;          V308= list(2,VV[119],(V307));
1975          }else V305=V305->c.c_cdr;          goto T882;
1976          goto T887;}  goto T904;
1977  goto T895;  T904:;
1978  T895:;          if(!(((V306))==(VV[120]))){
1979          if(!(equal(caddr((V302)),VV[117]))){          goto T907;}
1980          goto T887;}          V308= list(2,VV[121],(V307));
1981  goto T886;          goto T882;
1982  T886:;  goto T907;
1983          V299= (*(LnkLI242))(cadr((V302)));  T907:;
1984          if(!(((V299))==(VV[118]))){          V306= (VFUN_NARGS=2,(*(LnkLI243))((V306),symbol_value(VV[122])));
1985          goto T900;}          if(((V306))==Cnil){
         V301= list(2,VV[119],(V300));  
         goto T878;  
 goto T900;  
 T900:;  
         if(!(((V299))==(VV[120]))){  
         goto T903;}  
         V301= list(2,VV[121],(V300));  
         goto T878;  
 goto T903;  
 T903:;  
         V299= (VFUN_NARGS=2,(*(LnkLI243))((V299),symbol_value(VV[122])));  
         if(((V299))==Cnil){  
         goto T906;}  
         V301= list(3,VV[86],VV[123],list(3,VV[124],(V300),(V299)));  
         goto T878;  
 goto T906;  
 T906:;  
         V301= Cnil;  
         goto T878;  
 goto T887;  
 T887:;  
         {object V306;  
         if(type_of((V302))==t_cons){  
1986          goto T910;}          goto T910;}
1987          V306= Cnil;          V308= list(3,VV[86],VV[123],list(3,VV[124],(V307),(V306)));
1988          goto T909;          goto T882;
1989  goto T910;  goto T910;
1990  T910:;  T910:;
1991          if((car((V302)))==(VV[125])){          V308= Cnil;
1992          goto T912;}          goto T882;
1993          V306= Cnil;  goto T891;
1994          goto T909;  T891:;
1995  goto T912;          {object V313;
1996  T912:;          if(type_of((V309))==t_cons){
         if(type_of(cdr((V302)))==t_cons){  
1997          goto T914;}          goto T914;}
1998          V306= Cnil;          V313= Cnil;
1999          goto T909;          goto T913;
2000  goto T914;  goto T914;
2001  T914:;  T914:;
2002          if((cadr((V302)))!=Cnil){          if((car((V309)))==(VV[125])){
2003          goto T916;}          goto T916;}
2004          V306= Cnil;          V313= Cnil;
2005          goto T909;          goto T913;
2006  goto T916;  goto T916;
2007  T916:;  T916:;
2008          if(type_of(cadr((V302)))==t_symbol){          if(type_of(cdr((V309)))==t_cons){
2009          goto T918;}          goto T918;}
2010          V306= Cnil;          V313= Cnil;
2011          goto T909;          goto T913;
2012  goto T918;  goto T918;
2013  T918:;  T918:;
2014          base[2]= cadr((V302));          if((cadr((V309)))!=Cnil){
2015            goto T920;}
2016            V313= Cnil;
2017            goto T913;
2018    goto T920;
2019    T920:;
2020            if(type_of(cadr((V309)))==t_symbol){
2021            goto T922;}
2022            V313= Cnil;
2023            goto T913;
2024    goto T922;
2025    T922:;
2026            base[2]= cadr((V309));
2027          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2028          Lsymbol_package();          Lsymbol_package();
2029          vs_top=sup;          vs_top=sup;
2030          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2031          goto T920;}          goto T924;}
2032          V306= Cnil;          V313= Cnil;
2033          goto T909;          goto T913;
2034  goto T920;  goto T924;
2035  T920:;  T924:;
2036          if((cddr((V302)))==Cnil){          if((cddr((V309)))==Cnil){
2037          goto T923;}          goto T927;}
2038          V306= Cnil;          V313= Cnil;
2039          goto T909;          goto T913;
2040  goto T923;  goto T927;
2041  T923:;  T927:;
2042          V306= list(2,cadr((V302)),(V300));          V313= list(2,cadr((V309)),(V307));
2043  goto T909;  goto T913;
2044  T909:;  T913:;
2045          if(((V306))==Cnil){          if(((V313))==Cnil){
2046          goto T926;}          goto T930;}
2047          V301= (V306);          V308= (V313);
2048          goto T878;          goto T882;
2049  goto T926;  goto T930;
2050  T926:;  T930:;
2051          base[2]= (V302);          base[2]= (V309);
2052          base[3]= VV[96];          base[3]= VV[96];
2053          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2054          (void) (*Lnk237)();          (void) (*Lnk237)();
2055          vs_top=sup;          vs_top=sup;
2056          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2057          goto T929;}          goto T933;}
2058          V299= (*(LnkLI244))((V302));          V306= (*(LnkLI244))((V309));
2059          if(type_of((V299))==t_cons){          if(type_of((V306))==t_cons){
2060          goto T935;}          goto T939;}
2061          V301= Cnil;          V308= Cnil;
2062          goto T878;          goto T882;
2063  goto T935;  goto T939;
2064  T935:;  T939:;
2065          base[2]= cadr((V299));          base[2]= cadr((V306));
2066          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2067          (void) (*Lnk238)();          (void) (*Lnk238)();
2068          vs_top=sup;          vs_top=sup;
2069          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2070          goto T937;}          goto T941;}
2071          V301= Cnil;          V308= Cnil;
2072          goto T878;          goto T882;
2073  goto T937;  goto T941;
2074  T937:;  T941:;
2075          base[2]= caddr((V299));          base[2]= caddr((V306));
2076          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2077          (void) (*Lnk238)();          (void) (*Lnk238)();
2078          vs_top=sup;          vs_top=sup;
2079          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
         goto T940;}  
         V301= Cnil;  
         goto T878;  
 goto T940;  
 T940:;  
         V307= list(2,VV[126],(V300));  
         V308= make_cons(/* INLINE-ARGS */V307,Cnil);  
         V309= (*(LnkLI239))((V300));  
         V310= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V309,VV[126]));  
         V311= list(3,VV[128],VV[129],cadr((V299)));  
         V301= list(4,VV[29],/* INLINE-ARGS */V308,/* INLINE-ARGS */V310,list(4,VV[108],VV[127],/* INLINE-ARGS */V311,list(3,VV[130],VV[131],caddr((V299)))));  
         goto T878;  
 goto T929;  
 T929:;  
         if(!(type_of((V302))==t_symbol)){  
2080          goto T944;}          goto T944;}
2081          V299= get((V302),VV[132],Cnil);          V308= Cnil;
2082          if(((V299))==Cnil){          goto T882;
         goto T944;}  
         if((structure_ref((V299),VV[132],11))!=Cnil){  
         goto T949;}  
         if((symbol_value(VV[133]))==Cnil){  
         goto T950;}  
 goto T949;  
 T949:;  
         V301= (*(LnkLI245))((V300),(V299));  
         goto T878;  
 goto T950;  
 T950:;  
         V301= list(3,VV[134],(V300),list(2,VV[113],(V302)));  
         goto T878;  
2083  goto T944;  goto T944;
2084  T944:;  T944:;
2085          V301= Cnil;}          V314= list(2,VV[126],(V307));
2086  goto T878;          V315= make_cons(/* INLINE-ARGS */V314,Cnil);
2087  T878:;          V316= (*(LnkLI239))((V307));
2088          if((V301)==Cnil){          V317= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V316,VV[126]));
2089          {object V312 = Cnil;          V318= list(3,VV[128],VV[129],cadr((V306)));
2090          VMR33(V312)}}          V308= list(4,VV[29],/* INLINE-ARGS */V315,/* INLINE-ARGS */V317,list(4,VV[108],VV[127],/* INLINE-ARGS */V318,list(3,VV[130],VV[131],caddr((V306)))));
2091          V313= list(3,VV[86],VV[123],(V301));          goto T882;
2092          {object V314 = (*(LnkLI235))(/* INLINE-ARGS */V313);  goto T933;
2093          VMR33(V314)}}}  T933:;
2094            if(!(type_of((V309))==t_symbol)){
2095            goto T948;}
2096            V306= get((V309),VV[132],Cnil);
2097            if(((V306))==Cnil){
2098            goto T948;}
2099            if((structure_ref((V306),VV[132],11))!=Cnil){
2100            goto T953;}
2101            if((symbol_value(VV[133]))==Cnil){
2102            goto T954;}
2103    goto T953;
2104    T953:;
2105            V308= (*(LnkLI245))((V307),(V306));
2106            goto T882;
2107    goto T954;
2108    T954:;
2109            V308= list(3,VV[134],(V307),list(2,VV[113],(V309)));
2110            goto T882;
2111    goto T948;
2112    T948:;
2113            V308= Cnil;}
2114    goto T882;
2115    T882:;
2116            if((V308)==Cnil){
2117            {object V319 = Cnil;
2118            VMR33(V319)}}
2119            V320= list(3,VV[86],VV[123],(V308));
2120            {object V321 = (*(LnkLI235))(/* INLINE-ARGS */V320);
2121            VMR33(V321)}}}
2122          base[0]=base[0];          base[0]=base[0];
2123          return Cnil;          return Cnil;
2124  }  }
2125  /*      local entry for function STRUCT-TYPE-OPT        */  /*      local entry for function STRUCT-TYPE-OPT        */
2126    
2127  static object LI34(V317,V318)  static object LI34(V324,V325)
2128    
2129  object V317;object V318;  object V324;object V325;
2130  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
2131  goto TTL;  goto TTL;
2132  TTL:;  TTL:;
2133          {register object V319;          {register object V326;
2134          object V320;          object V327;
2135          vs_base=vs_top;          vs_base=vs_top;
2136          Lgensym();          Lgensym();
2137          vs_top=sup;          vs_top=sup;
2138          V319= vs_base[0];          V326= vs_base[0];
2139          V321= structure_ref((V318),VV[132],0);          V328= structure_ref((V325),VV[132],0);
2140          V320= (*(LnkLI246))(/* INLINE-ARGS */V321);          V327= (*(LnkLI246))(/* INLINE-ARGS */V328);
2141          V322= list(2,(V319),(V317));          V329= list(2,(V326),(V324));
2142          V323= make_cons(/* INLINE-ARGS */V322,Cnil);          V330= make_cons(/* INLINE-ARGS */V329,Cnil);
2143          V324= list(2,VV[135],(V319));          V331= list(2,VV[135],(V326));
2144          if(!(((long)length((V320)))<(3))){          if(!(((long)length((V327)))<(3))){
2145          goto T958;}          goto T962;}
2146          {object V327;          {object V334;
2147          object V328= (V320);          object V335= (V327);
2148          if(endp(V328)){          if(endp(V335)){
2149          V326= Cnil;          V333= Cnil;
2150          goto T960;}          goto T964;}
2151          base[0]=V327=MMcons(Cnil,Cnil);          base[0]=V334=MMcons(Cnil,Cnil);
2152  goto T961;  goto T965;
2153  T961:;  T965:;
2154          V330= list(2,VV[137],(V319));          V337= list(2,VV[137],(V326));
2155          (V327->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V330,(*(LnkLI247))((V328->c.c_car)));          (V334->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V337,(*(LnkLI247))((V335->c.c_car)));
2156          V328=MMcdr(V328);          V335=MMcdr(V335);
2157          if(endp(V328)){          if(endp(V335)){
2158          V326= base[0];          V333= base[0];
2159          goto T960;}          goto T964;}
2160          V327=MMcdr(V327)=MMcons(Cnil,Cnil);          V334=MMcdr(V334)=MMcons(Cnil,Cnil);
2161          goto T961;}          goto T965;}
2162    goto T964;
2163    T964:;
2164            V332= make_cons(VV[136],V333);
2165            goto T960;
2166    goto T962;
2167    T962:;
2168            V338= structure_ref((V325),VV[132],0);
2169            V332= list(3,VV[134],(V326),(*(LnkLI247))(/* INLINE-ARGS */V338));
2170  goto T960;  goto T960;
2171  T960:;  T960:;
2172          V325= make_cons(VV[136],V326);          {object V339 = list(3,VV[29],/* INLINE-ARGS */V330,list(3,VV[108],/* INLINE-ARGS */V331,V332));
2173          goto T956;          VMR34(V339)}}
 goto T958;  
 T958:;  
         V331= structure_ref((V318),VV[132],0);  
         V325= list(3,VV[134],(V319),(*(LnkLI247))(/* INLINE-ARGS */V331));  
 goto T956;  
 T956:;  
         {object V332 = list(3,VV[29],/* INLINE-ARGS */V323,list(3,VV[108],/* INLINE-ARGS */V324,V325));  
         VMR34(V332)}}  
2174          base[0]=base[0];          base[0]=base[0];
2175          return Cnil;          return Cnil;
2176  }  }
2177  /*      local entry for function GET-INCLUDED   */  /*      local entry for function GET-INCLUDED   */
2178    
2179  static object LI35(V334)  static object LI35(V341)
2180    
2181  object V334;  object V341;
2182  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2183  goto TTL;  goto TTL;
2184  TTL:;  TTL:;
2185          {object V335;          {object V342;
2186          V335= get((V334),VV[132],Cnil);          V342= get((V341),VV[132],Cnil);
2187          V336= structure_ref((V335),VV[132],0);          V343= structure_ref((V342),VV[132],0);
2188          V340= structure_ref((V335),VV[132],3);          V347= structure_ref((V342),VV[132],3);
2189          {object V338;          {object V345;
2190          object V339= /* INLINE-ARGS */V340;          object V346= /* INLINE-ARGS */V347;
2191          if(endp(V339)){          if(endp(V346)){
2192          V337= Cnil;          V344= Cnil;
2193          goto T964;}          goto T968;}
2194          base[0]=V338=MMcons(Cnil,Cnil);          base[0]=V345=MMcons(Cnil,Cnil);
2195  goto T965;  goto T969;
2196  T965:;  T969:;
2197          (V338->c.c_cdr)= (*(LnkLI246))((V339->c.c_car));          (V345->c.c_cdr)= (*(LnkLI246))((V346->c.c_car));
2198          {object cdr_V338=MMcdr(V338);while(!endp(cdr_V338)) {cdr_V338=MMcdr(cdr_V338);V338=MMcdr(V338);}}          {object cdr_V345=MMcdr(V345);while(!endp(cdr_V345)) {cdr_V345=MMcdr(cdr_V345);V345=MMcdr(V345);}}
2199          V339=MMcdr(V339);          V346=MMcdr(V346);
2200          if(endp(V339)){          if(endp(V346)){
2201          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
2202          V337= base[0];          V344= base[0];
2203          goto T964;}          goto T968;}
2204          goto T965;}          goto T969;}
2205  goto T964;  goto T968;
2206  T964:;  T968:;
2207          {object V341 = make_cons(/* INLINE-ARGS */V336,V337);          {object V348 = make_cons(/* INLINE-ARGS */V343,V344);
2208          VMR35(V341)}}          VMR35(V348)}}
2209          base[0]=base[0];          base[0]=base[0];
2210          return Cnil;          return Cnil;
2211  }  }
2212  /*      local entry for function CO1SCHAR       */  /*      local entry for function CO1SCHAR       */
2213    
2214  static object LI36(V344,V345)  static object LI36(V351,V352)
2215    
2216  object V344;register object V345;  object V351;register object V352;
2217  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
2218  goto TTL;  goto TTL;
2219  TTL:;  TTL:;
2220          {object V346= car((V345));          {object V353= car((V352));
2221          if(type_of(V346)==t_cons||(V346)==Cnil){          if(type_of(V353)==t_cons||(V353)==Cnil){
2222          goto T968;}}          goto T972;}}
2223          {object V347 = Cnil;          {object V354 = Cnil;
2224          VMR36(V347)}          VMR36(V354)}
 goto T968;  
 T968:;  
         if((symbol_value(VV[25]))==Cnil){  
         goto T970;}  
         {object V348 = Cnil;  
         VMR36(V348)}  
 goto T970;  
 T970:;  
         if((cdr((V345)))!=Cnil){  
         goto T972;}  
         {object V349 = Cnil;  
         VMR36(V349)}  
2225  goto T972;  goto T972;
2226  T972:;  T972:;
2227          if((caar((V345)))==(VV[99])){          if((symbol_value(VV[25]))==Cnil){
2228          goto T974;}          goto T974;}
2229          {object V350 = Cnil;          {object V355 = Cnil;
2230          VMR36(V350)}          VMR36(V355)}
2231  goto T974;  goto T974;
2232  T974:;  T974:;
2233          V351= list(3,VV[138],list(3,VV[86],VV[15],cadr(car((V345)))),cadr((V345)));          if((cdr((V352)))!=Cnil){
2234          {object V352 = (*(LnkLI235))(/* INLINE-ARGS */V351);          goto T976;}
2235          VMR36(V352)}          {object V356 = Cnil;
2236            VMR36(V356)}
2237    goto T976;
2238    T976:;
2239            if((caar((V352)))==(VV[99])){
2240            goto T978;}
2241            {object V357 = Cnil;
2242            VMR36(V357)}
2243    goto T978;
2244    T978:;
2245            V358= list(3,VV[138],list(3,VV[86],VV[15],cadr(car((V352)))),cadr((V352)));
2246            {object V359 = (*(LnkLI235))(/* INLINE-ARGS */V358);
2247            VMR36(V359)}
2248          return Cnil;          return Cnil;
2249  }  }
2250  /*      local entry for function CONS-TO-LISTA  */  /*      local entry for function CONS-TO-LISTA  */
2251    
2252  static object LI37(V354)  static object LI37(V361)
2253    
2254  object V354;  object V361;
2255  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
2256  goto TTL;  goto TTL;
2257  TTL:;  TTL:;
2258          {register object V355;          {register object V362;
2259          base[0]= (V354);          base[0]= (V361);
2260          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2261          Llast();          Llast();
2262          vs_top=sup;          vs_top=sup;
2263          V355= vs_base[0];          V362= vs_base[0];
2264          {object V356;          {object V363;
2265          if(type_of((V355))==t_cons){          if(type_of((V362))==t_cons){
         goto T979;}  
         V356= Cnil;  
         goto T978;  
 goto T979;  
 T979:;  
         if(type_of(car((V355)))==t_cons){  
         goto T981;}  
         V356= Cnil;  
         goto T978;  
 goto T981;  
 T981:;  
         if((caar((V355)))==(VV[139])){  
2266          goto T983;}          goto T983;}
2267          V356= Cnil;          V363= Cnil;
2268          goto T978;          goto T982;
2269  goto T983;  goto T983;
2270  T983:;  T983:;
2271          if(((long)length(cdar((V355))))==(2)){          if(type_of(car((V362)))==t_cons){
2272          goto T985;}          goto T985;}
2273          V356= Cnil;          V363= Cnil;
2274          goto T978;          goto T982;
2275  goto T985;  goto T985;
2276  T985:;  T985:;
2277          base[0]= (V354);          if((caar((V362)))==(VV[139])){
2278            goto T987;}
2279            V363= Cnil;
2280            goto T982;
2281    goto T987;
2282    T987:;
2283            if(((long)length(cdar((V362))))==(2)){
2284            goto T989;}
2285            V363= Cnil;
2286            goto T982;
2287    goto T989;
2288    T989:;
2289            base[0]= (V361);
2290          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2291          Lbutlast();          Lbutlast();
2292          vs_top=sup;          vs_top=sup;
2293          V357= vs_base[0];          V364= vs_base[0];
2294          V358= append(V357,cdar((V355)));          V365= append(V364,cdar((V362)));
2295          V356= (*(LnkLI248))(/* INLINE-ARGS */V358);          V363= (*(LnkLI248))(/* INLINE-ARGS */V365);
2296  goto T978;  goto T982;
2297  T978:;  T982:;
2298          if(((V356))==Cnil){          if(((V363))==Cnil){
2299          goto T990;}          goto T994;}
2300          {object V359 = (V356);          {object V366 = (V363);
2301          VMR37(V359)}          VMR37(V366)}
2302  goto T990;  goto T994;
2303  T990:;  T994:;
2304          {object V360 = (V354);          {object V367 = (V361);
2305          VMR37(V360)}}}          VMR37(V367)}}}
2306          base[0]=base[0];          base[0]=base[0];
2307          return Cnil;          return Cnil;
2308  }  }
2309  /*      local entry for function CO1CONS        */  /*      local entry for function CO1CONS        */
2310    
2311  static object LI38(V363,V364)  static object LI38(V370,V371)
2312    
2313  object V363;object V364;  object V370;object V371;
2314  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
2315  goto TTL;  goto TTL;
2316  TTL:;  TTL:;
2317          {register object V365;          {register object V372;
2318          if(((long)length((V364)))==(2)){          if(((long)length((V371)))==(2)){
2319          goto T994;}          goto T998;}
2320          V365= Cnil;          V372= Cnil;
2321          goto T993;          goto T997;
2322  goto T994;  goto T998;
2323  T994:;  T998:;
2324          V365= (*(LnkLI248))((V364));          V372= (*(LnkLI248))((V371));
2325  goto T993;  goto T997;
2326  T993:;  T997:;
2327          if(((((V365))==((V364))?Ct:Cnil))==Cnil){          if(((((V372))==((V371))?Ct:Cnil))==Cnil){
2328          goto T996;}          goto T1000;}
2329          {object V366 = Cnil;          {object V373 = Cnil;
2330          VMR38(V366)}          VMR38(V373)}
2331  goto T996;  goto T1000;
2332  T996:;  T1000:;
2333          base[0]= (V365);          base[0]= (V372);
2334          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2335          Llast();          Llast();
2336          vs_top=sup;          vs_top=sup;
2337          V368= vs_base[0];          V375= vs_base[0];
2338          if(!(equal(VV[140],V368))){          if(!(equal(VV[140],V375))){
2339          goto T1000;}          goto T1004;}
2340          base[0]= (V365);          base[0]= (V372);
2341          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2342          Lbutlast();          Lbutlast();
2343          vs_top=sup;          vs_top=sup;
2344          V369= vs_base[0];          V376= vs_base[0];
2345          V367= make_cons(VV[141],V369);          V374= make_cons(VV[141],V376);
2346          goto T998;          goto T1002;
2347  goto T1000;  goto T1004;
2348  T1000:;  T1004:;
2349          V367= make_cons(VV[28],(V365));          V374= make_cons(VV[28],(V372));
2350  goto T998;  goto T1002;
2351  T998:;  T1002:;
2352          {object V370 = (*(LnkLI235))(V367);          {object V377 = (*(LnkLI235))(V374);
2353          VMR38(V370)}}          VMR38(V377)}}
2354          base[0]=base[0];          base[0]=base[0];
2355          return Cnil;          return Cnil;
2356  }  }
2357  /*      local entry for function C1NTH-CONDITION        */  /*      local entry for function C1NTH-CONDITION        */
2358    
2359  static object LI39(V372)  static object LI39(V379)
2360    
2361  register object V372;  register object V379;
2362  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
2363  goto TTL;  goto TTL;
2364  TTL:;  TTL:;
2365          if(((endp_prop((V372))?Ct:Cnil))==Cnil){          if(((endp_prop((V379))?Ct:Cnil))==Cnil){
         goto T1006;}  
         {object V373 = Cnil;  
         VMR39(V373)}  
 goto T1006;  
 T1006:;  
         if(((endp_prop(cdr((V372)))?Ct:Cnil))==Cnil){  
         goto T1008;}  
         {object V374 = Cnil;  
         VMR39(V374)}  
 goto T1008;  
 T1008:;  
         if(endp_prop(cddr((V372)))){  
2366          goto T1010;}          goto T1010;}
2367          {object V375 = Cnil;          {object V380 = Cnil;
2368          VMR39(V375)}          VMR39(V380)}
2369  goto T1010;  goto T1010;
2370  T1010:;  T1010:;
2371          {object V376= car((V372));          if(((endp_prop(cdr((V379)))?Ct:Cnil))==Cnil){
2372          if(type_of(V376)==t_fixnum||          goto T1012;}
2373  type_of(V376)==t_bignum||          {object V381 = Cnil;
2374  type_of(V376)==t_ratio||          VMR39(V381)}
 type_of(V376)==t_shortfloat||  
 type_of(V376)==t_longfloat||  
 type_of(V376)==t_complex){  
         goto T1012;}}  
         {object V377 = Cnil;  
         VMR39(V377)}  
2375  goto T1012;  goto T1012;
2376  T1012:;  T1012:;
2377            if(endp_prop(cddr((V379)))){
2378            goto T1014;}
2379            {object V382 = Cnil;
2380            VMR39(V382)}
2381    goto T1014;
2382    T1014:;
2383            {object V383= car((V379));
2384            if(type_of(V383)==t_fixnum||
2385    type_of(V383)==t_bignum||
2386    type_of(V383)==t_ratio||
2387    type_of(V383)==t_shortfloat||
2388    type_of(V383)==t_longfloat||
2389    type_of(V383)==t_complex){
2390            goto T1016;}}
2391            {object V384 = Cnil;
2392            VMR39(V384)}
2393    goto T1016;
2394    T1016:;
2395          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
2396          base[1]= car((V372));          base[1]= car((V379));
2397          base[2]= small_fixnum(7);          base[2]= small_fixnum(7);
2398          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2399          Lmonotonically_nondecreasing();          Lmonotonically_nondecreasing();
2400          vs_top=sup;          vs_top=sup;
2401          {object V378 = vs_base[0];          {object V385 = vs_base[0];
2402          VMR39(V378)}          VMR39(V385)}
2403          base[0]=base[0];          base[0]=base[0];
2404          return Cnil;          return Cnil;
2405  }  }
2406  /*      local entry for function C1NTH  */  /*      local entry for function C1NTH  */
2407    
2408  static object LI40(V380)  static object LI40(V387)
2409    
2410  register object V380;  register object V387;
2411  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
2412  goto TTL;  goto TTL;
2413  TTL:;  TTL:;
2414          {object V382= car((V380));          {object V389= car((V387));
2415          if(!eql(V382,VV[142]))goto T1018;          if(!eql(V389,VV[142]))goto T1022;
2416          V381= make_cons(VV[61],cdr((V380)));          V388= make_cons(VV[61],cdr((V387)));
2417          goto T1017;          goto T1021;
 goto T1018;  
 T1018:;  
         if(!eql(V382,VV[80]))goto T1019;  
         V381= make_cons(VV[105],cdr((V380)));  
         goto T1017;  
 goto T1019;  
 T1019:;  
         if(!eql(V382,VV[68]))goto T1020;  
         V381= make_cons(VV[143],cdr((V380)));  
         goto T1017;  
 goto T1020;  
 T1020:;  
         if(!eql(V382,VV[144]))goto T1021;  
         V381= make_cons(VV[145],cdr((V380)));  
         goto T1017;  
 goto T1021;  
 T1021:;  
         if(!eql(V382,VV[66]))goto T1022;  
         V381= list(2,VV[61],make_cons(VV[146],cdr((V380))));  
         goto T1017;  
2418  goto T1022;  goto T1022;
2419  T1022:;  T1022:;
2420          if(!eql(V382,VV[147]))goto T1023;          if(!eql(V389,VV[80]))goto T1023;
2421          V381= list(2,VV[105],make_cons(VV[146],cdr((V380))));          V388= make_cons(VV[105],cdr((V387)));
2422          goto T1017;          goto T1021;
2423  goto T1023;  goto T1023;
2424  T1023:;  T1023:;
2425          if(!eql(V382,VV[82]))goto T1024;          if(!eql(V389,VV[68]))goto T1024;
2426          V381= list(2,VV[143],make_cons(VV[146],cdr((V380))));          V388= make_cons(VV[143],cdr((V387)));
2427          goto T1017;          goto T1021;
2428  goto T1024;  goto T1024;
2429  T1024:;  T1024:;
2430          if(!eql(V382,VV[84]))goto T1025;          if(!eql(V389,VV[144]))goto T1025;
2431          V381= list(2,VV[145],make_cons(VV[146],cdr((V380))));          V388= make_cons(VV[145],cdr((V387)));
2432          goto T1017;          goto T1021;
2433  goto T1025;  goto T1025;
2434  T1025:;  T1025:;
2435          V381= Cnil;}          if(!eql(V389,VV[66]))goto T1026;
2436  goto T1017;          V388= list(2,VV[61],make_cons(VV[146],cdr((V387))));
2437  T1017:;          goto T1021;
2438          {object V383 = (*(LnkLI235))(V381);  goto T1026;
2439          VMR40(V383)}  T1026:;
2440            if(!eql(V389,VV[147]))goto T1027;
2441            V388= list(2,VV[105],make_cons(VV[146],cdr((V387))));
2442            goto T1021;
2443    goto T1027;
2444    T1027:;
2445            if(!eql(V389,VV[82]))goto T1028;
2446            V388= list(2,VV[143],make_cons(VV[146],cdr((V387))));
2447            goto T1021;
2448    goto T1028;
2449    T1028:;
2450            if(!eql(V389,VV[84]))goto T1029;
2451            V388= list(2,VV[145],make_cons(VV[146],cdr((V387))));
2452            goto T1021;
2453    goto T1029;
2454    T1029:;
2455            V388= Cnil;}
2456    goto T1021;
2457    T1021:;
2458            {object V390 = (*(LnkLI235))(V388);
2459            VMR40(V390)}
2460          return Cnil;          return Cnil;
2461  }  }
2462  /*      local entry for function C1NTHCDR-CONDITION     */  /*      local entry for function C1NTHCDR-CONDITION     */
2463    
2464  static object LI41(V385)  static object LI41(V392)
2465    
2466  register object V385;  register object V392;
2467  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2468  goto TTL;  goto TTL;
2469  TTL:;  TTL:;
2470          if(((endp_prop((V385))?Ct:Cnil))==Cnil){          if(((endp_prop((V392))?Ct:Cnil))==Cnil){
         goto T1026;}  
         {object V386 = Cnil;  
         VMR41(V386)}  
 goto T1026;  
 T1026:;  
         if(((endp_prop(cdr((V385)))?Ct:Cnil))==Cnil){  
         goto T1028;}  
         {object V387 = Cnil;  
         VMR41(V387)}  
 goto T1028;  
 T1028:;  
         if(endp_prop(cddr((V385)))){  
2471          goto T1030;}          goto T1030;}
2472          {object V388 = Cnil;          {object V393 = Cnil;
2473          VMR41(V388)}          VMR41(V393)}
2474  goto T1030;  goto T1030;
2475  T1030:;  T1030:;
2476          {object V389= car((V385));          if(((endp_prop(cdr((V392)))?Ct:Cnil))==Cnil){
2477          if(type_of(V389)==t_fixnum||          goto T1032;}
2478  type_of(V389)==t_bignum||          {object V394 = Cnil;
2479  type_of(V389)==t_ratio||          VMR41(V394)}
 type_of(V389)==t_shortfloat||  
 type_of(V389)==t_longfloat||  
 type_of(V389)==t_complex){  
         goto T1032;}}  
         {object V390 = Cnil;  
         VMR41(V390)}  
2480  goto T1032;  goto T1032;
2481  T1032:;  T1032:;
2482            if(endp_prop(cddr((V392)))){
2483            goto T1034;}
2484            {object V395 = Cnil;
2485            VMR41(V395)}
2486    goto T1034;
2487    T1034:;
2488            {object V396= car((V392));
2489            if(type_of(V396)==t_fixnum||
2490    type_of(V396)==t_bignum||
2491    type_of(V396)==t_ratio||
2492    type_of(V396)==t_shortfloat||
2493    type_of(V396)==t_longfloat||
2494    type_of(V396)==t_complex){
2495            goto T1036;}}
2496            {object V397 = Cnil;
2497            VMR41(V397)}
2498    goto T1036;
2499    T1036:;
2500          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
2501          base[1]= car((V385));          base[1]= car((V392));
2502          base[2]= small_fixnum(7);          base[2]= small_fixnum(7);
2503          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2504          Lmonotonically_nondecreasing();          Lmonotonically_nondecreasing();
2505          vs_top=sup;          vs_top=sup;
2506          {object V391 = vs_base[0];          {object V398 = vs_base[0];
2507          VMR41(V391)}          VMR41(V398)}
2508          base[0]=base[0];          base[0]=base[0];
2509          return Cnil;          return Cnil;
2510  }  }
2511  /*      local entry for function C1NTHCDR       */  /*      local entry for function C1NTHCDR       */
2512    
2513  static object LI42(V393)  static object LI42(V400)
2514    
2515  register object V393;  register object V400;
2516  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2517  goto TTL;  goto TTL;
2518  TTL:;  TTL:;
2519          {object V395= car((V393));          {object V402= car((V400));
2520          if(!eql(V395,VV[142]))goto T1038;          if(!eql(V402,VV[142]))goto T1042;
2521          V394= cadr((V393));          V401= cadr((V400));
2522          goto T1037;          goto T1041;
 goto T1038;  
 T1038:;  
         if(!eql(V395,VV[80]))goto T1039;  
         V394= make_cons(VV[148],cdr((V393)));  
         goto T1037;  
 goto T1039;  
 T1039:;  
         if(!eql(V395,VV[68]))goto T1040;  
         V394= make_cons(VV[149],cdr((V393)));  
         goto T1037;  
 goto T1040;  
 T1040:;  
         if(!eql(V395,VV[144]))goto T1041;  
         V394= make_cons(VV[150],cdr((V393)));  
         goto T1037;  
 goto T1041;  
 T1041:;  
         if(!eql(V395,VV[66]))goto T1042;  
         V394= make_cons(VV[146],cdr((V393)));  
         goto T1037;  
2523  goto T1042;  goto T1042;
2524  T1042:;  T1042:;
2525          if(!eql(V395,VV[147]))goto T1043;          if(!eql(V402,VV[80]))goto T1043;
2526          V394= list(2,VV[148],make_cons(VV[146],cdr((V393))));          V401= make_cons(VV[148],cdr((V400)));
2527          goto T1037;          goto T1041;
2528  goto T1043;  goto T1043;
2529  T1043:;  T1043:;
2530          if(!eql(V395,VV[82]))goto T1044;          if(!eql(V402,VV[68]))goto T1044;
2531          V394= list(2,VV[149],make_cons(VV[146],cdr((V393))));          V401= make_cons(VV[149],cdr((V400)));
2532          goto T1037;          goto T1041;
2533  goto T1044;  goto T1044;
2534  T1044:;  T1044:;
2535          if(!eql(V395,VV[84]))goto T1045;          if(!eql(V402,VV[144]))goto T1045;
2536          V394= list(2,VV[150],make_cons(VV[146],cdr((V393))));          V401= make_cons(VV[150],cdr((V400)));
2537          goto T1037;          goto T1041;
2538  goto T1045;  goto T1045;
2539  T1045:;  T1045:;
2540          V394= Cnil;}          if(!eql(V402,VV[66]))goto T1046;
2541  goto T1037;          V401= make_cons(VV[146],cdr((V400)));
2542  T1037:;          goto T1041;
2543          {object V396 = (*(LnkLI235))(V394);  goto T1046;
2544          VMR42(V396)}  T1046:;
2545            if(!eql(V402,VV[147]))goto T1047;
2546            V401= list(2,VV[148],make_cons(VV[146],cdr((V400))));
2547            goto T1041;
2548    goto T1047;
2549    T1047:;
2550            if(!eql(V402,VV[82]))goto T1048;
2551            V401= list(2,VV[149],make_cons(VV[146],cdr((V400))));
2552            goto T1041;
2553    goto T1048;
2554    T1048:;
2555            if(!eql(V402,VV[84]))goto T1049;
2556            V401= list(2,VV[150],make_cons(VV[146],cdr((V400))));
2557            goto T1041;
2558    goto T1049;
2559    T1049:;
2560            V401= Cnil;}
2561    goto T1041;
2562    T1041:;
2563            {object V403 = (*(LnkLI235))(V401);
2564            VMR42(V403)}
2565          return Cnil;          return Cnil;
2566  }  }
2567  /*      local entry for function C1RPLACA-NTHCDR        */  /*      local entry for function C1RPLACA-NTHCDR        */
2568    
2569  static object LI43(V398)  static object LI43(V405)
2570    
2571  register object V398;  register object V405;
2572  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
2573  goto TTL;  goto TTL;
2574  TTL:;  TTL:;
2575          {object V399;          {object V406;
2576          V399= (VFUN_NARGS=0,(*(LnkLI208))());          V406= (VFUN_NARGS=0,(*(LnkLI208))());
2577          if(endp_prop((V398))){          if(endp_prop((V405))){
2578          goto T1048;}          goto T1052;}
2579          if(endp_prop(cdr((V398)))){          if(endp_prop(cdr((V405)))){
2580          goto T1048;}          goto T1052;}
2581          if(!(endp_prop(cddr((V398))))){          if(!(endp_prop(cddr((V405))))){
2582          goto T1047;}          goto T1051;}
2583  goto T1048;  goto T1052;
2584  T1048:;  T1052:;
2585          V400 = make_fixnum((long)length((V398)));          V407 = make_fixnum((long)length((V405)));
2586          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V400));          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V407));
2587  goto T1047;  goto T1051;
2588  T1047:;  T1051:;
2589          if(endp_prop(cdddr((V398)))){          if(endp_prop(cdddr((V405)))){
2590          goto T1054;}          goto T1058;}
2591          V401 = make_fixnum((long)length((V398)));          V408 = make_fixnum((long)length((V405)));
2592          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V401));          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V408));
2593  goto T1054;  goto T1058;
2594  T1054:;  T1058:;
2595          {object V402= cadr((V398));          {object V409= cadr((V405));
2596          if(!(type_of(V402)==t_fixnum||          if(!(type_of(V409)==t_fixnum||
2597  type_of(V402)==t_bignum||  type_of(V409)==t_bignum||
2598  type_of(V402)==t_ratio||  type_of(V409)==t_ratio||
2599  type_of(V402)==t_shortfloat||  type_of(V409)==t_shortfloat||
2600  type_of(V402)==t_longfloat||  type_of(V409)==t_longfloat||
2601  type_of(V402)==t_complex)){  type_of(V409)==t_complex)){
2602          goto T1058;}}          goto T1062;}}
2603          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
2604          base[2]= cadr((V398));          base[2]= cadr((V405));
2605          base[3]= small_fixnum(10);          base[3]= small_fixnum(10);
2606          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2607          Lmonotonically_nondecreasing();          Lmonotonically_nondecreasing();
2608          vs_top=sup;          vs_top=sup;
2609          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2610          goto T1058;}          goto T1062;}
2611          {register object V403;          {register object V410;
2612          object V404;          object V411;
2613          vs_base=vs_top;          vs_base=vs_top;
2614          Lgensym();          Lgensym();
2615          vs_top=sup;          vs_top=sup;
2616          V403= vs_base[0];          V410= vs_base[0];
2617          vs_base=vs_top;          vs_base=vs_top;
2618          Lgensym();          Lgensym();
2619          vs_top=sup;          vs_top=sup;
2620          V404= vs_base[0];          V411= vs_base[0];
2621          V405= list(2,(V403),car((V398)));          V412= list(2,(V410),car((V405)));
2622          V406= list(2,/* INLINE-ARGS */V405,list(2,(V404),caddr((V398))));          V413= list(2,/* INLINE-ARGS */V412,list(2,(V411),caddr((V405))));
2623          V407= list(3,VV[152],(V403),list(3,VV[153],cadr((V398)),(V403)));          V414= list(3,VV[152],(V410),list(3,VV[153],cadr((V405)),(V410)));
2624          V408= list(5,VV[29],/* INLINE-ARGS */V406,/* INLINE-ARGS */V407,list(3,VV[152],list(2,VV[61],(V403)),(V404)),(V404));          V415= list(5,VV[29],/* INLINE-ARGS */V413,/* INLINE-ARGS */V414,list(3,VV[152],list(2,VV[61],(V410)),(V411)),(V411));
2625          {object V409 = (*(LnkLI235))(/* INLINE-ARGS */V408);          {object V416 = (*(LnkLI235))(/* INLINE-ARGS */V415);
2626          VMR43(V409)}}          VMR43(V416)}}
2627  goto T1058;  goto T1062;
2628  T1058:;  T1062:;
2629          {object V410 = list(4,VV[4],(V399),VV[151],(*(LnkLI219))((V398),(V399)));          {object V417 = list(4,VV[4],(V406),VV[151],(*(LnkLI219))((V405),(V406)));
2630          VMR43(V410)}}          VMR43(V417)}}
2631          base[0]=base[0];          base[0]=base[0];
2632          return Cnil;          return Cnil;
2633  }  }
2634  /*      local entry for function FAST-READ      */  /*      local entry for function FAST-READ      */
2635    
2636  static object LI44(V413,V414)  static object LI44(V420,V421)
2637    
2638  register object V413;object V414;  register object V420;object V421;
2639  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
2640  goto TTL;  goto TTL;
2641  TTL:;  TTL:;
2642          if((symbol_value(VV[25]))!=Cnil){          if((symbol_value(VV[25]))!=Cnil){
2643          goto T1068;}          goto T1072;}
2644          if(!(number_compare(symbol_value(VV[154]),small_fixnum(2))<0)){          if(!(number_compare(symbol_value(VV[154]),small_fixnum(2))<0)){
2645          goto T1068;}          goto T1072;}
2646          if((cadr((V413)))!=Cnil){          if((cadr((V420)))!=Cnil){
2647          goto T1068;}          goto T1072;}
2648          base[0]= VV[155];          base[0]= VV[155];
2649          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2650          Lboundp();          Lboundp();
2651          vs_top=sup;          vs_top=sup;
2652          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2653          goto T1068;}          goto T1072;}
2654          if(!(type_of(car((V413)))!=t_cons)){          if(!(type_of(car((V420)))!=t_cons)){
2655          goto T1078;}{object V415;          goto T1082;}{object V422;
2656          V415= car((V413));          V422= car((V420));
2657          if(V415==Cnil)goto T1081;          if(V422==Cnil)goto T1085;
2658          goto T1080;          goto T1084;
2659  goto T1081;  goto T1085;
2660  T1081:;}  T1085:;}
2661          V413= make_cons(VV[156],cdr((V413)));          V420= make_cons(VV[156],cdr((V420)));
2662  goto T1080;  goto T1084;
2663  T1080:;  T1084:;
2664          {register object V416;          {register object V423;
2665          object V417;          object V424;
2666          V416= car((V413));          V423= car((V420));
2667          V417= caddr((V413));          V424= caddr((V420));
2668          V418= list(2,VV[160],(V416));          V425= list(2,VV[160],(V423));
2669          V419= list(3,VV[161],VV[162],list(2,VV[163],(V416)));          V426= list(3,VV[161],VV[162],list(2,VV[163],(V423)));
2670          V420= list(3,VV[50],VV[162],small_fixnum(-1));          V427= list(3,VV[50],VV[162],small_fixnum(-1));
2671          V421= list(2,list(3,VV[108],/* INLINE-ARGS */V420,list(2,VV[164],(V416))),(V417));          V428= list(2,list(3,VV[108],/* INLINE-ARGS */V427,list(2,VV[164],(V423))),(V424));
2672          if(!(((V414))==(VV[165]))){          if(!(((V421))==(VV[165]))){
2673          goto T1088;}          goto T1092;}
2674          V422= VV[166];          V429= VV[166];
2675          goto T1086;          goto T1090;
2676  goto T1088;  goto T1092;
2677  T1088:;  T1092:;
2678          V422= VV[162];          V429= VV[162];
2679  goto T1086;  goto T1090;
2680  T1086:;  T1090:;
2681          V423= list(3,/* INLINE-ARGS */V418,/* INLINE-ARGS */V419,list(3,VV[159],/* INLINE-ARGS */V421,list(2,Ct,V422)));          V430= list(3,/* INLINE-ARGS */V425,/* INLINE-ARGS */V426,list(3,VV[159],/* INLINE-ARGS */V428,list(2,Ct,V429)));
2682          {object V424 = list(4,VV[29],VV[157],VV[158],list(3,VV[159],/* INLINE-ARGS */V423,list(2,Ct,list(3,(V414),(V416),(V417)))));          {object V431 = list(4,VV[29],VV[157],VV[158],list(3,VV[159],/* INLINE-ARGS */V430,list(2,Ct,list(3,(V421),(V423),(V424)))));
2683          VMR44(V424)}}          VMR44(V431)}}
2684  goto T1078;  goto T1082;
2685  T1078:;  T1082:;
2686          V425= list(2,VV[167],car((V413)));          V432= list(2,VV[167],car((V420)));
2687          V426= make_cons(/* INLINE-ARGS */V425,Cnil);          V433= make_cons(/* INLINE-ARGS */V432,Cnil);
2688          V427= (*(LnkLI239))(car((V413)));          V434= (*(LnkLI239))(car((V420)));
2689          V428= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V427,VV[167]));          V435= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V434,VV[167]));
2690          V429= make_cons(VV[167],cdr((V413)));          V436= make_cons(VV[167],cdr((V420)));
2691          {object V430 = list(4,VV[29],/* INLINE-ARGS */V426,/* INLINE-ARGS */V428,(*(LnkLI249))(/* INLINE-ARGS */V429,(V414)));          {object V437 = list(4,VV[29],/* INLINE-ARGS */V433,/* INLINE-ARGS */V435,(*(LnkLI249))(/* INLINE-ARGS */V436,(V421)));
2692          VMR44(V430)}          VMR44(V437)}
2693  goto T1068;  goto T1072;
2694  T1068:;  T1072:;
2695          {object V431 = Cnil;          {object V438 = Cnil;
2696          VMR44(V431)}          VMR44(V438)}
2697          base[0]=base[0];          base[0]=base[0];
2698          return Cnil;          return Cnil;
2699  }  }
2700  /*      local entry for function CO1READ-BYTE   */  /*      local entry for function CO1READ-BYTE   */
2701    
2702  static object LI45(V434,V435)  static object LI45(V441,V442)
2703    
2704  object V434;object V435;  object V441;object V442;
2705  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
2706          bds_check;          bds_check;
2707  goto TTL;  goto TTL;
2708  TTL:;  TTL:;
2709          {object V436;          {object V443;
2710          V436= Cnil;          V443= Cnil;
2711          V436= (*(LnkLI249))((V435),VV[168]);          V443= (*(LnkLI249))((V442),VV[168]);
2712          if(((V436))==Cnil){          if(((V443))==Cnil){
2713          goto T1093;}          goto T1097;}
2714          bds_bind(VV[154],small_fixnum(10));          bds_bind(VV[154],small_fixnum(10));
2715          {object V437 = (*(LnkLI235))((V436));          {object V444 = (*(LnkLI235))((V443));
2716          bds_unwind1;          bds_unwind1;
2717          VMR45(V437)}          VMR45(V444)}
2718  goto T1093;  goto T1097;
2719  T1093:;  T1097:;
2720          {object V438 = Cnil;          {object V445 = Cnil;
2721          VMR45(V438)}}          VMR45(V445)}}
2722          base[0]=base[0];          base[0]=base[0];
2723          return Cnil;          return Cnil;
2724  }  }
2725  /*      local entry for function CO1READ-CHAR   */  /*      local entry for function CO1READ-CHAR   */
2726    
2727  static object LI46(V441,V442)  static object LI46(V448,V449)
2728    
2729  object V441;object V442;  object V448;object V449;
2730  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
2731          bds_check;          bds_check;
2732  goto TTL;  goto TTL;
2733  TTL:;  TTL:;
2734          {object V443;          {object V450;
2735          V443= Cnil;          V450= Cnil;
2736          V443= (*(LnkLI249))((V442),VV[165]);          V450= (*(LnkLI249))((V449),VV[165]);
2737          if(((V443))==Cnil){          if(((V450))==Cnil){
2738          goto T1099;}          goto T1103;}
2739          bds_bind(VV[154],small_fixnum(10));          bds_bind(VV[154],small_fixnum(10));
2740          {object V444 = (*(LnkLI235))((V443));          {object V451 = (*(LnkLI235))((V450));
2741          bds_unwind1;          bds_unwind1;
2742          VMR46(V444)}          VMR46(V451)}
2743  goto T1099;  goto T1103;
2744  T1099:;  T1103:;
2745          {object V445 = Cnil;          {object V452 = Cnil;
2746          VMR46(V445)}}          VMR46(V452)}}
2747          base[0]=base[0];          base[0]=base[0];
2748          return Cnil;          return Cnil;
2749  }  }
2750  /*      local entry for function CFAST-WRITE    */  /*      local entry for function CFAST-WRITE    */
2751    
2752  static object LI47(V448,V449)  static object LI47(V455,V456)
2753    
2754  object V448;object V449;  object V455;object V456;
2755  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
2756  goto TTL;  goto TTL;
2757  TTL:;  TTL:;
2758          if((symbol_value(VV[25]))!=Cnil){          if((symbol_value(VV[25]))!=Cnil){
2759          goto T1103;}          goto T1107;}
2760          if(!(number_compare(symbol_value(VV[154]),small_fixnum(2))<0)){          if(!(number_compare(symbol_value(VV[154]),small_fixnum(2))<0)){
2761          goto T1103;}          goto T1107;}
2762          base[0]= VV[155];          base[0]= VV[155];
2763          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2764          Lboundp();          Lboundp();
2765          vs_top=sup;          vs_top=sup;
2766          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2767          goto T1103;}          goto T1107;}
2768          {register object V450;          {register object V457;
2769          V450= cadr((V448));          V457= cadr((V455));
2770          if((V450)!=Cnil){          if((V457)!=Cnil){
2771          goto T1111;}          goto T1115;}
2772          V450= VV[169];          V457= VV[169];
2773  goto T1111;  goto T1115;
2774  T1111:;  T1115:;
2775          if(!(type_of((V450))!=t_cons)){          if(!(type_of((V457))!=t_cons)){
2776          goto T1114;}          goto T1118;}
2777          V451= list(2,VV[160],(V450));          V458= list(2,VV[160],(V457));
2778          V452= list(2,/* INLINE-ARGS */V451,list(3,VV[86],VV[96],list(3,VV[170],VV[171],(V450))));          V459= list(2,/* INLINE-ARGS */V458,list(3,VV[86],VV[96],list(3,VV[170],VV[171],(V457))));
2779          {object V453 = list(3,VV[159],/* INLINE-ARGS */V452,list(2,Ct,list(3,(V449),VV[171],(V450))));          {object V460 = list(3,VV[159],/* INLINE-ARGS */V459,list(2,Ct,list(3,(V456),VV[171],(V457))));
         VMR47(V453)}  
 goto T1114;  
 T1114:;  
         V454= list(2,VV[172],(V450));  
         V455= make_cons(/* INLINE-ARGS */V454,Cnil);  
         V456= (*(LnkLI239))((V450));  
         V457= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V456,VV[172]));  
         V458= list(2,VV[171],VV[172]);  
         {object V459 = list(4,VV[29],/* INLINE-ARGS */V455,/* INLINE-ARGS */V457,(*(LnkLI250))(/* INLINE-ARGS */V458,(V449)));  
         VMR47(V459)}}  
 goto T1103;  
 T1103:;  
         {object V460 = Cnil;  
2780          VMR47(V460)}          VMR47(V460)}
2781    goto T1118;
2782    T1118:;
2783            V461= list(2,VV[172],(V457));
2784            V462= make_cons(/* INLINE-ARGS */V461,Cnil);
2785            V463= (*(LnkLI239))((V457));
2786            V464= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V463,VV[172]));
2787            V465= list(2,VV[171],VV[172]);
2788            {object V466 = list(4,VV[29],/* INLINE-ARGS */V462,/* INLINE-ARGS */V464,(*(LnkLI250))(/* INLINE-ARGS */V465,(V456)));
2789            VMR47(V466)}}
2790    goto T1107;
2791    T1107:;
2792            {object V467 = Cnil;
2793            VMR47(V467)}
2794          base[0]=base[0];          base[0]=base[0];
2795          return Cnil;          return Cnil;
2796  }  }
2797  /*      local entry for function CO1WRITE-BYTE  */  /*      local entry for function CO1WRITE-BYTE  */
2798    
2799  static object LI48(V463,V464)  static object LI48(V470,V471)
2800    
2801  object V463;register object V464;  object V470;register object V471;
2802  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
2803          bds_check;          bds_check;
2804  goto TTL;  goto TTL;
2805  TTL:;  TTL:;
2806          {object V465;          {object V472;
2807          V465= (*(LnkLI250))((V464),VV[173]);          V472= (*(LnkLI250))((V471),VV[173]);
2808          if(((V465))==Cnil){          if(((V472))==Cnil){
         goto T1119;}  
         bds_bind(VV[154],small_fixnum(10));  
         V466= list(2,VV[171],car((V464)));  
         V467= make_cons(/* INLINE-ARGS */V466,Cnil);  
         if(!(type_of(car((V464)))!=t_cons)){  
2809          goto T1123;}          goto T1123;}
2810          V468= car((V464));          bds_bind(VV[154],small_fixnum(10));
2811          goto T1121;          V473= list(2,VV[171],car((V471)));
2812            V474= make_cons(/* INLINE-ARGS */V473,Cnil);
2813            if(!(type_of(car((V471)))!=t_cons)){
2814            goto T1127;}
2815            V475= car((V471));
2816            goto T1125;
2817    goto T1127;
2818    T1127:;
2819            V475= VV[171];
2820    goto T1125;
2821    T1125:;
2822            V476= list(5,VV[29],/* INLINE-ARGS */V474,VV[174],(V472),V475);
2823            {object V477 = (*(LnkLI235))(/* INLINE-ARGS */V476);
2824            bds_unwind1;
2825            VMR48(V477)}
2826  goto T1123;  goto T1123;
2827  T1123:;  T1123:;
2828          V468= VV[171];          {object V478 = Cnil;
2829  goto T1121;          VMR48(V478)}}
 T1121:;  
         V469= list(5,VV[29],/* INLINE-ARGS */V467,VV[174],(V465),V468);  
         {object V470 = (*(LnkLI235))(/* INLINE-ARGS */V469);  
         bds_unwind1;  
         VMR48(V470)}  
 goto T1119;  
 T1119:;  
         {object V471 = Cnil;  
         VMR48(V471)}}  
2830          base[0]=base[0];          base[0]=base[0];
2831          return Cnil;          return Cnil;
2832  }  }
2833  /*      local entry for function CO1WRITE-CHAR  */  /*      local entry for function CO1WRITE-CHAR  */
2834    
2835  static object LI49(V474,V475)  static object LI49(V481,V482)
2836    
2837  object V474;register object V475;  object V481;register object V482;
2838  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
2839          bds_check;          bds_check;
2840  goto TTL;  goto TTL;
2841  TTL:;  TTL:;
2842          {object V476;          {object V483;
2843          V476= (*(LnkLI250))((V475),VV[175]);          V483= (*(LnkLI250))((V482),VV[175]);
2844          if(((V476))==Cnil){          if(((V483))==Cnil){
         goto T1128;}  
         bds_bind(VV[154],small_fixnum(10));  
         V477= list(2,VV[171],car((V475)));  
         V478= make_cons(/* INLINE-ARGS */V477,Cnil);  
         if(!(type_of(car((V475)))!=t_cons)){  
2845          goto T1132;}          goto T1132;}
2846          V479= car((V475));          bds_bind(VV[154],small_fixnum(10));
2847          goto T1130;          V484= list(2,VV[171],car((V482)));
2848            V485= make_cons(/* INLINE-ARGS */V484,Cnil);
2849            if(!(type_of(car((V482)))!=t_cons)){
2850            goto T1136;}
2851            V486= car((V482));
2852            goto T1134;
2853    goto T1136;
2854    T1136:;
2855            V486= VV[171];
2856    goto T1134;
2857    T1134:;
2858            V487= list(5,VV[29],/* INLINE-ARGS */V485,VV[176],(V483),V486);
2859            {object V488 = (*(LnkLI235))(/* INLINE-ARGS */V487);
2860            bds_unwind1;
2861            VMR49(V488)}
2862  goto T1132;  goto T1132;
2863  T1132:;  T1132:;
2864          V479= VV[171];          {object V489 = Cnil;
2865  goto T1130;          VMR49(V489)}}
 T1130:;  
         V480= list(5,VV[29],/* INLINE-ARGS */V478,VV[176],(V476),V479);  
         {object V481 = (*(LnkLI235))(/* INLINE-ARGS */V480);  
         bds_unwind1;  
         VMR49(V481)}  
 goto T1128;  
 T1128:;  
         {object V482 = Cnil;  
         VMR49(V482)}}  
2866          base[0]=base[0];          base[0]=base[0];
2867          return Cnil;          return Cnil;
2868  }  }
2869  /*      local entry for function AET-C-TYPE     */  /*      local entry for function AET-C-TYPE     */
2870    
2871  static object LI50(V484)  static object LI50(V491)
2872    
2873  object V484;  object V491;
2874  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
2875  goto TTL;  goto TTL;
2876  TTL:;  TTL:;
2877          {object V485= (V484);          {object V492= (V491);
2878          if((V485!= Ct))goto T1134;          if((V492!= Ct))goto T1138;
2879          {object V486 = VV[177];          {object V493 = VV[177];
2880          VMR50(V486)}          VMR50(V493)}
 goto T1134;  
 T1134:;  
         if((V485!= VV[118])  
         && (V485!= VV[251]))goto T1135;  
         {object V487 = VV[178];  
         VMR50(V487)}  
 goto T1135;  
 T1135:;  
         if((V485!= VV[96]))goto T1136;  
         {object V488 = VV[179];  
         VMR50(V488)}  
 goto T1136;  
 T1136:;  
         if((V485!= VV[252]))goto T1137;  
         {object V489 = VV[180];  
         VMR50(V489)}  
 goto T1137;  
 T1137:;  
         if((V485!= VV[253]))goto T1138;  
         {object V490 = VV[181];  
         VMR50(V490)}  
2881  goto T1138;  goto T1138;
2882  T1138:;  T1138:;
2883          if((V485!= VV[254]))goto T1139;          if((V492!= VV[118])
2884          {object V491 = VV[182];          && (V492!= VV[251]))goto T1139;
2885          VMR50(V491)}          {object V494 = VV[178];
2886            VMR50(V494)}
2887  goto T1139;  goto T1139;
2888  T1139:;  T1139:;
2889          if((V485!= VV[253]))goto T1140;          if((V492!= VV[96]))goto T1140;
2890          {object V492 = VV[183];          {object V495 = VV[179];
2891          VMR50(V492)}          VMR50(V495)}
2892  goto T1140;  goto T1140;
2893  T1140:;  T1140:;
2894          if((V485!= VV[255]))goto T1141;          if((V492!= VV[252]))goto T1141;
2895          {object V493 = VV[184];          {object V496 = VV[180];
2896          VMR50(V493)}          VMR50(V496)}
2897  goto T1141;  goto T1141;
2898  T1141:;  T1141:;
2899          if((V485!= VV[256]))goto T1142;          if((V492!= VV[253]))goto T1142;
2900          {object V494 = VV[185];          {object V497 = VV[181];
2901          VMR50(V494)}          VMR50(V497)}
2902  goto T1142;  goto T1142;
2903  T1142:;  T1142:;
2904          FEerror("The ECASE key value ~s is illegal.",1,V485);          if((V492!= VV[254]))goto T1143;
2905          {object V495 = Cnil;          {object V498 = VV[182];
2906          VMR50(V495)}}          VMR50(V498)}
2907    goto T1143;
2908    T1143:;
2909            if((V492!= VV[253]))goto T1144;
2910            {object V499 = VV[183];
2911            VMR50(V499)}
2912    goto T1144;
2913    T1144:;
2914            if((V492!= VV[255]))goto T1145;
2915            {object V500 = VV[184];
2916            VMR50(V500)}
2917    goto T1145;
2918    T1145:;
2919            if((V492!= VV[256]))goto T1146;
2920            {object V501 = VV[185];
2921            VMR50(V501)}
2922    goto T1146;
2923    T1146:;
2924            FEerror("The ECASE key value ~s is illegal.",1,V492);
2925            {object V502 = Cnil;
2926            VMR50(V502)}}
2927          return Cnil;          return Cnil;
2928  }  }
2929  /*      local entry for function CO1VECTOR-PUSH */  /*      local entry for function CO1VECTOR-PUSH */
2930    
2931  static object LI51(V498,V499)  static object LI51(V505,V506)
2932    
2933  object V498;register object V499;  object V505;register object V506;
2934  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
2935          bds_check;          bds_check;
2936  goto TTL;  goto TTL;
2937  TTL:;  TTL:;
2938          if((symbol_value(VV[25]))!=Cnil){          if((symbol_value(VV[25]))!=Cnil){
2939          goto T1145;}          goto T1149;}
2940          if(number_compare(symbol_value(VV[154]),small_fixnum(3))>0){          if(number_compare(symbol_value(VV[154]),small_fixnum(3))>0){
2941          goto T1145;}          goto T1149;}
2942          if((cdr((V499)))==Cnil){          if((cdr((V506)))==Cnil){
2943          goto T1145;}          goto T1149;}
2944          bds_bind(VV[154],small_fixnum(10));          bds_bind(VV[154],small_fixnum(10));
2945          V500= list(2,VV[187],car((V499)));          V507= list(2,VV[187],car((V506)));
2946          V501= listA(3,/* INLINE-ARGS */V500,list(2,VV[188],cadr((V499))),VV[189]);          V508= listA(3,/* INLINE-ARGS */V507,list(2,VV[188],cadr((V506))),VV[189]);
2947          V502= (*(LnkLI239))(cadr((V499)));          V509= (*(LnkLI239))(cadr((V506)));
2948          V503= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V502,VV[188]));          V510= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V509,VV[188]));
2949          V504= (*(LnkLI239))(car((V499)));          V511= (*(LnkLI239))(car((V506)));
2950          V505= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V504,VV[187]));          V512= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V511,VV[187]));
2951          if(!(((V498))==(VV[192]))){          if(!(((V505))==(VV[192]))){
2952          goto T1153;}          goto T1157;}
2953          V506= listA(4,VV[192],VV[187],VV[188],cddr((V499)));          V513= listA(4,VV[192],VV[187],VV[188],cddr((V506)));
2954          goto T1151;          goto T1155;
2955  goto T1153;  goto T1157;
2956  T1153:;  T1157:;
2957          V506= Cnil;          V513= Cnil;
2958  goto T1151;  goto T1155;
2959  T1151:;  T1155:;
2960          V507= list(6,VV[186],/* INLINE-ARGS */V501,VV[190],/* INLINE-ARGS */V503,/* INLINE-ARGS */V505,list(3,VV[159],VV[191],list(2,Ct,V506)));          V514= list(6,VV[186],/* INLINE-ARGS */V508,VV[190],/* INLINE-ARGS */V510,/* INLINE-ARGS */V512,list(3,VV[159],VV[191],list(2,Ct,V513)));
2961          {object V508 = (*(LnkLI235))(/* INLINE-ARGS */V507);          {object V515 = (*(LnkLI235))(/* INLINE-ARGS */V514);
2962          bds_unwind1;          bds_unwind1;
2963          VMR51(V508)}          VMR51(V515)}
2964  goto T1145;  goto T1149;
2965  T1145:;  T1149:;
2966          {object V509 = Cnil;          {object V516 = Cnil;
2967          VMR51(V509)}          VMR51(V516)}
2968          base[0]=base[0];          base[0]=base[0];
2969          return Cnil;          return Cnil;
2970  }  }
2971  /*      local entry for function CONSTANT-FOLD-P        */  /*      local entry for function CONSTANT-FOLD-P        */
2972    
2973  static object LI52(V511)  static object LI52(V518)
2974    
2975  register object V511;  register object V518;
2976  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
2977  goto TTL;  goto TTL;
2978  TTL:;  TTL:;
2979          base[0]= (V511);          base[0]= (V518);
2980          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2981          Lconstantp();          Lconstantp();
2982          vs_top=sup;          vs_top=sup;
2983          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
         goto T1156;}  
         {object V512 = Ct;  
         VMR52(V512)}  
 goto T1156;  
 T1156:;  
         if(!(type_of((V511))!=t_cons)){  
2984          goto T1160;}          goto T1160;}
2985          {object V513 = Cnil;          {object V519 = Ct;
2986          VMR52(V513)}          VMR52(V519)}
2987  goto T1160;  goto T1160;
2988  T1160:;  T1160:;
2989          if(!((car((V511)))==(VV[86]))){          if(!(type_of((V518))!=t_cons)){
2990          goto T1163;}          goto T1164;}
2991          V511= caddr((V511));          {object V520 = Cnil;
2992            VMR52(V520)}
2993    goto T1164;
2994    T1164:;
2995            if(!((car((V518)))==(VV[86]))){
2996            goto T1167;}
2997            V518= caddr((V518));
2998          goto TTL;          goto TTL;
2999  goto T1163;  goto T1167;
3000  T1163:;  T1167:;
3001          if(!(type_of(car((V511)))==t_symbol)){          if(!(type_of(car((V518)))==t_symbol)){
3002          goto T1168;}          goto T1172;}
3003          V514= get(car((V511)),VV[193],Cnil);          V521= get(car((V518)),VV[193],Cnil);
3004          if(!((V514)==(VV[194]))){          if(!((V521)==(VV[194]))){
3005          goto T1168;}          goto T1172;}
3006          {register object V515;          {register object V522;
3007          register object V516;          register object V523;
3008          V515= cdr((V511));          V522= cdr((V518));
3009          V516= car((V515));          V523= car((V522));
3010    goto T1181;
3011    T1181:;
3012            if(!(endp_prop((V522)))){
3013            goto T1182;}
3014            goto T1177;
3015    goto T1182;
3016    T1182:;{object V524;
3017            V524= (*(LnkLI257))((V523));
3018            if(V524==Cnil)goto T1187;
3019            goto T1186;
3020    goto T1187;
3021    T1187:;}
3022            {object V525 = Cnil;
3023            VMR52(V525)}
3024    goto T1186;
3025    T1186:;
3026            V522= cdr((V522));
3027            V523= car((V522));
3028            goto T1181;}
3029  goto T1177;  goto T1177;
3030  T1177:;  T1177:;
3031          if(!(endp_prop((V515)))){          {object V526 = Ct;
3032          goto T1178;}          VMR52(V526)}
3033          goto T1173;  goto T1172;
3034  goto T1178;  T1172:;
3035  T1178:;{object V517;          {object V527 = Cnil;
3036          V517= (*(LnkLI257))((V516));          VMR52(V527)}
         if(V517==Cnil)goto T1183;  
         goto T1182;  
 goto T1183;  
 T1183:;}  
         {object V518 = Cnil;  
         VMR52(V518)}  
 goto T1182;  
 T1182:;  
         V515= cdr((V515));  
         V516= car((V515));  
         goto T1177;}  
 goto T1173;  
 T1173:;  
         {object V519 = Ct;  
         VMR52(V519)}  
 goto T1168;  
 T1168:;  
         {object V520 = Cnil;  
         VMR52(V520)}  
3037          base[0]=base[0];          base[0]=base[0];
3038          return Cnil;          return Cnil;
3039  }  }
3040  /*      local entry for function CO1CONSTANT-FOLD       */  /*      local entry for function CO1CONSTANT-FOLD       */
3041    
3042  static object LI53(V523,V524)  static object LI53(V530,V531)
3043    
3044  object V523;object V524;  object V530;object V531;
3045  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3046  goto TTL;  goto TTL;
3047  TTL:;  TTL:;
3048          base[0]= (V523);          base[0]= (V530);
3049          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3050          Lfboundp();          Lfboundp();
3051          vs_top=sup;          vs_top=sup;
3052          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3053          goto T1191;}          goto T1195;}
3054          {register object V525;          {register object V532;
3055          register object V526;          register object V533;
3056          V525= (V524);          V532= (V531);
3057          V526= car((V525));          V533= car((V532));
3058    goto T1203;
3059    T1203:;
3060            if(!(endp_prop((V532)))){
3061            goto T1204;}
3062            goto T1199;
3063    goto T1204;
3064    T1204:;{object V534;
3065            V534= (*(LnkLI257))((V533));
3066            if(V534==Cnil)goto T1209;
3067            goto T1208;
3068    goto T1209;
3069    T1209:;}
3070            {object V535 = Cnil;
3071            VMR53(V535)}
3072    goto T1208;
3073    T1208:;
3074            V532= cdr((V532));
3075            V533= car((V532));
3076            goto T1203;}
3077  goto T1199;  goto T1199;
3078  T1199:;  T1199:;
3079          if(!(endp_prop((V525)))){          base[0]= make_cons((V530),(V531));
         goto T1200;}  
         goto T1195;  
 goto T1200;  
 T1200:;{object V527;  
         V527= (*(LnkLI257))((V526));  
         if(V527==Cnil)goto T1205;  
         goto T1204;  
 goto T1205;  
 T1205:;}  
         {object V528 = Cnil;  
         VMR53(V528)}  
 goto T1204;  
 T1204:;  
         V525= cdr((V525));  
         V526= car((V525));  
         goto T1199;}  
 goto T1195;  
 T1195:;  
         base[0]= make_cons((V523),(V524));  
3080          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3081          (void) (*Lnk258)();          (void) (*Lnk258)();
3082          vs_top=sup;          vs_top=sup;
3083          V529= vs_base[0];          V536= vs_base[0];
3084          {object V530 = (*(LnkLI235))(V529);          {object V537 = (*(LnkLI235))(V536);
3085          VMR53(V530)}          VMR53(V537)}
3086  goto T1191;  goto T1195;
3087  T1191:;  T1195:;
3088          {object V531 = Cnil;          {object V538 = Cnil;
3089          VMR53(V531)}          VMR53(V538)}
3090          base[0]=base[0];          base[0]=base[0];
3091          return Cnil;          return Cnil;
3092  }  }
3093  /*      local entry for function CO1SPECIAL-FIX-DECL    */  /*      local entry for function CO1SPECIAL-FIX-DECL    */
3094    
3095  static object LI54(V534,V535)  static object LI54(V541,V542)
3096    
3097  object V534;register object V535;  object V541;register object V542;
3098  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3099  goto TTL;  goto TTL;
3100  TTL:;  TTL:;
3101          {object V537= (V534);          {object V544= (V541);
3102          if((V537!= VV[260])          if((V544!= VV[260])
3103          && (V537!= VV[261]))goto T1215;          && (V544!= VV[261]))goto T1219;
3104          V538= car((V535));          V545= car((V542));
3105          V539= cadr((V535));          V546= cadr((V542));
3106          base[0]= cddr((V535));          base[0]= cddr((V542));
3107          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3108          L55(base);          L55(base);
3109          vs_top=sup;          vs_top=sup;
3110          V540= vs_base[0];          V547= vs_base[0];
3111          V536= listA(4,(V534),/* INLINE-ARGS */V538,/* INLINE-ARGS */V539,V540);          V543= listA(4,(V541),/* INLINE-ARGS */V545,/* INLINE-ARGS */V546,V547);
3112          goto T1214;          goto T1218;
3113  goto T1215;  goto T1219;
3114  T1215:;  T1219:;
3115          if((V537!= VV[262])          if((V544!= VV[262])
3116          && (V537!= VV[263]))goto T1218;          && (V544!= VV[263]))goto T1222;
3117          V541= car((V535));          V548= car((V542));
3118          base[0]= cdr((V535));          base[0]= cdr((V542));
3119          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3120          L55(base);          L55(base);
3121          vs_top=sup;          vs_top=sup;
3122          V542= vs_base[0];          V549= vs_base[0];
3123          V536= listA(3,(V534),/* INLINE-ARGS */V541,V542);          V543= listA(3,(V541),/* INLINE-ARGS */V548,V549);
3124          goto T1214;          goto T1218;
3125    goto T1222;
3126    T1222:;
3127            V543= Cnil;}
3128  goto T1218;  goto T1218;
3129  T1218:;  T1218:;
3130          V536= Cnil;}          V550= (*(LnkLI259))(V543);
3131  goto T1214;          {object V551 = (*(LnkLI235))(/* INLINE-ARGS */V550);
3132  T1214:;          VMR54(V551)}
         V543= (*(LnkLI259))(V536);  
         {object V544 = (*(LnkLI235))(/* INLINE-ARGS */V543);  
         VMR54(V544)}  
3133          base[0]=base[0];          base[0]=base[0];
3134          return Cnil;          return Cnil;
3135  }  }
3136  /*      local entry for function CO1SUBLIS      */  /*      local entry for function CO1SUBLIS      */
3137    
3138  static object LI56(V547,V548)  static object LI56(V554,V555)
3139    
3140  object V547;register object V548;  object V554;register object V555;
3141  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3142  goto TTL;  goto TTL;
3143  TTL:;  TTL:;
3144          {register object V549;          {register object V556;
3145          V549= Cnil;switch((long)length((V548))){          V556= Cnil;switch((long)length((V555))){
3146          case 2:          case 2:
 goto T1226;  
 T1226:;  
         V549= VV[50];  
         if((VV[50])!=Cnil){  
         goto T1223;}  
         goto T1224;  
         case 4:  
 goto T1227;  
 T1227:;  
         if((caddr((V548)))==(VV[51])){  
         goto T1230;}  
         goto T1224;  
3147  goto T1230;  goto T1230;
3148  T1230:;  T1230:;
3149          {register object x= cadddr((V548)),V550= VV[195];          V556= VV[50];
3150          while(!endp(V550))          if((VV[50])!=Cnil){
3151          if(eql(x,V550->c.c_car)){          goto T1227;}
3152          goto T1234;          goto T1228;
3153          }else V550=V550->c.c_cdr;          case 4:
3154          goto T1233;}  goto T1231;
3155    T1231:;
3156            if((caddr((V555)))==(VV[51])){
3157            goto T1234;}
3158            goto T1228;
3159  goto T1234;  goto T1234;
3160  T1234:;  T1234:;
3161          V549= VV[196];          {register object x= cadddr((V555)),V557= VV[195];
3162          if((VV[196])!=Cnil){          while(!endp(V557))
3163          goto T1223;}          if(eql(x,V557->c.c_car)){
         goto T1224;  
 goto T1233;  
 T1233:;  
         {register object x= cadddr((V548)),V551= VV[197];  
         while(!endp(V551))  
         if(eql(x,V551->c.c_car)){  
3164          goto T1238;          goto T1238;
3165          }else V551=V551->c.c_cdr;          }else V557=V557->c.c_cdr;
3166          goto T1237;}          goto T1237;}
3167  goto T1238;  goto T1238;
3168  T1238:;  T1238:;
3169          V549= VV[50];          V556= VV[196];
3170          if((VV[50])!=Cnil){          if((VV[196])!=Cnil){
3171          goto T1223;}          goto T1227;}
3172          goto T1224;          goto T1228;
3173  goto T1237;  goto T1237;
3174  T1237:;  T1237:;
3175          {register object x= cadddr((V548)),V552= VV[198];          {register object x= cadddr((V555)),V558= VV[197];
3176          while(!endp(V552))          while(!endp(V558))
3177          if(eql(x,V552->c.c_car)){          if(eql(x,V558->c.c_car)){
3178          goto T1242;          goto T1242;
3179          }else V552=V552->c.c_cdr;          }else V558=V558->c.c_cdr;
3180          goto T1241;}          goto T1241;}
3181  goto T1242;  goto T1242;
3182  T1242:;  T1242:;
3183          V549= VV[48];          V556= VV[50];
3184          if((VV[48])!=Cnil){          if((VV[50])!=Cnil){
3185          goto T1223;}          goto T1227;}
3186          goto T1224;          goto T1228;
3187  goto T1241;  goto T1241;
3188  T1241:;  T1241:;
3189          goto T1224;          {register object x= cadddr((V555)),V559= VV[198];
3190            while(!endp(V559))
3191            if(eql(x,V559->c.c_car)){
3192            goto T1246;
3193            }else V559=V559->c.c_cdr;
3194            goto T1245;}
3195    goto T1246;
3196    T1246:;
3197            V556= VV[48];
3198            if((VV[48])!=Cnil){
3199            goto T1227;}
3200            goto T1228;
3201    goto T1245;
3202    T1245:;
3203            goto T1228;
3204          default:          default:
3205    goto T1232;
3206    T1232:;
3207            goto T1228;}
3208  goto T1228;  goto T1228;
3209  T1228:;  T1228:;
3210          goto T1224;}          {object V560 = Cnil;
3211  goto T1224;          VMR55(V560)}
3212  T1224:;  goto T1227;
3213          {object V553 = Cnil;  T1227:;
3214          VMR55(V553)}          {object V561;
 goto T1223;  
 T1223:;  
         {object V554;  
3215          vs_base=vs_top;          vs_base=vs_top;
3216          Lgensym();          Lgensym();
3217          vs_top=sup;          vs_top=sup;
3218          V554= vs_base[0];          V561= vs_base[0];
3219          V555= list(2,(V554),car((V548)));          V562= list(2,(V561),car((V555)));
3220          V556= make_cons(/* INLINE-ARGS */V555,Cnil);          V563= make_cons(/* INLINE-ARGS */V562,Cnil);
3221          V557= cadr((V548));          V564= cadr((V555));
3222          V558= list(3,VV[29],/* INLINE-ARGS */V556,list(4,VV[199],(V554),/* INLINE-ARGS */V557,list(2,VV[113],(V549))));          V565= list(3,VV[29],/* INLINE-ARGS */V563,list(4,VV[199],(V561),/* INLINE-ARGS */V564,list(2,VV[113],(V556))));
3223          {object V559 = (*(LnkLI235))(/* INLINE-ARGS */V558);          {object V566 = (*(LnkLI235))(/* INLINE-ARGS */V565);
3224          VMR55(V559)}}}          VMR55(V566)}}}
3225          base[0]=base[0];          base[0]=base[0];
3226          return Cnil;          return Cnil;
3227  }  }
3228  /*      local entry for function SUBLIS1-INLINE */  /*      local entry for function SUBLIS1-INLINE */
3229    
3230  static object LI57(V563,V564,V565)  static object LI57(V570,V571,V572)
3231    
3232  object V563;object V564;object V565;  object V570;object V571;object V572;
3233  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
3234  goto TTL;  goto TTL;
3235  TTL:;  TTL:;
3236          {object V566;          {object V573;
3237          V567= (VFUN_NARGS=4,(*(LnkLI264))(cadr((V565)),symbol_value(VV[200]),VV[201],VV[105]));          V574= (VFUN_NARGS=4,(*(LnkLI264))(cadr((V572)),symbol_value(VV[200]),VV[201],VV[105]));
3238          V566= car(/* INLINE-ARGS */V567);{object V568;          V573= car(/* INLINE-ARGS */V574);{object V575;
3239          {register object x= (V566),V569= VV[202];          {register object x= (V573),V576= VV[202];
3240          while(!endp(V569))          while(!endp(V576))
3241          if(eql(x,V569->c.c_car)){          if(eql(x,V576->c.c_car)){
3242          V568= V569;          V575= V576;
3243          goto T1248;          goto T1252;
3244          }else V569=V569->c.c_cdr;          }else V576=V576->c.c_cdr;
3245          V568= Cnil;}          V575= Cnil;}
3246  goto T1248;  goto T1252;
3247  T1248:;  T1252:;
3248          if(V568==Cnil)goto T1247;          if(V575==Cnil)goto T1251;
3249          goto T1246;          goto T1250;
3250  goto T1247;  goto T1251;
3251  T1247:;}  T1251:;}
3252          base[0]= VV[203];          base[0]= VV[203];
3253          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3254          Lerror();          Lerror();
3255          vs_top=sup;          vs_top=sup;
3256  goto T1246;  goto T1250;
3257  T1246:;  T1250:;
3258          princ_str("(check_alist(",VV[7]);          princ_str("(check_alist(",VV[7]);
3259          (void)((*(LnkLI213))((V563)));          (void)((*(LnkLI213))((V570)));
3260          princ_str("),sublis1(",VV[7]);          princ_str("),sublis1(",VV[7]);
3261          (void)((*(LnkLI213))((V563)));          (void)((*(LnkLI213))((V570)));
3262          princ_char(44,VV[7]);          princ_char(44,VV[7]);
3263          (void)((*(LnkLI213))((V564)));          (void)((*(LnkLI213))((V571)));
3264          princ_char(44,VV[7]);          princ_char(44,VV[7]);
3265          base[0]= Cnil;          base[0]= Cnil;
3266          base[1]= VV[204];          base[1]= VV[204];
3267          base[2]= (V566);          base[2]= (V573);
3268          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3269          Lformat();          Lformat();
3270          vs_top=sup;          vs_top=sup;
3271          V570= vs_base[0];          V577= vs_base[0];
3272          (void)((*(LnkLI213))(V570));          (void)((*(LnkLI213))(V577));
3273          {object V571 = Cnil;          {object V578 = Cnil;
3274          VMR56(V571)}}          VMR56(V578)}}
3275          base[0]=base[0];          base[0]=base[0];
3276          return Cnil;          return Cnil;
3277  }  }
3278  /*      local entry for function C1LIST-NTH     */  /*      local entry for function C1LIST-NTH     */
3279    
3280  static object LI58(V573)  static object LI58(V580)
3281    
3282  register object V573;  register object V580;
3283  {        VMB57 VMS57 VMV57  {        VMB57 VMS57 VMV57
3284  goto TTL;  goto TTL;
3285  TTL:;  TTL:;
3286          {register object V574;          {register object V581;
3287          V574= (VFUN_NARGS=0,(*(LnkLI208))());          V581= (VFUN_NARGS=0,(*(LnkLI208))());
3288          if(endp_prop((V573))){          if(endp_prop((V580))){
         goto T1264;}  
         if(!(endp_prop(cdr((V573))))){  
         goto T1263;}  
 goto T1264;  
 T1264:;  
         V575 = make_fixnum((long)length((V573)));  
         (void)((*(LnkLI209))(VV[151],small_fixnum(2),V575));  
 goto T1263;  
 T1263:;  
         if(endp_prop(cddr((V573)))){  
3289          goto T1268;}          goto T1268;}
3290          V576 = make_fixnum((long)length((V573)));          if(!(endp_prop(cdr((V580))))){
3291          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V576));          goto T1267;}
3292  goto T1268;  goto T1268;
3293  T1268:;  T1268:;
3294          {object V577= car((V573));          V582 = make_fixnum((long)length((V580)));
3295          if(!(type_of(V577)==t_fixnum||          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V582));
3296  type_of(V577)==t_bignum||  goto T1267;
3297  type_of(V577)==t_ratio||  T1267:;
3298  type_of(V577)==t_shortfloat||          if(endp_prop(cddr((V580)))){
3299  type_of(V577)==t_longfloat||          goto T1272;}
3300  type_of(V577)==t_complex)){          V583 = make_fixnum((long)length((V580)));
3301          goto T1272;}}          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V583));
3302    goto T1272;
3303    T1272:;
3304            {object V584= car((V580));
3305            if(!(type_of(V584)==t_fixnum||
3306    type_of(V584)==t_bignum||
3307    type_of(V584)==t_ratio||
3308    type_of(V584)==t_shortfloat||
3309    type_of(V584)==t_longfloat||
3310    type_of(V584)==t_complex)){
3311            goto T1276;}}
3312          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
3313          base[2]= car((V573));          base[2]= car((V580));
3314          base[3]= small_fixnum(10);          base[3]= small_fixnum(10);
3315          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3316          Lmonotonically_nondecreasing();          Lmonotonically_nondecreasing();
3317          vs_top=sup;          vs_top=sup;
3318          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3319          goto T1272;}          goto T1276;}
3320          V578= car((V573));          V585= car((V580));
3321          V579= make_cons(cadr((V573)),Cnil);          V586= make_cons(cadr((V580)),Cnil);
3322          {object V580 = list(4,VV[205],(V574),/* INLINE-ARGS */V578,(*(LnkLI219))(/* INLINE-ARGS */V579,(V574)));          {object V587 = list(4,VV[205],(V581),/* INLINE-ARGS */V585,(*(LnkLI219))(/* INLINE-ARGS */V586,(V581)));
3323          VMR57(V580)}          VMR57(V587)}
3324  goto T1272;  goto T1276;
3325  T1272:;  T1276:;
3326          {object V581 = list(4,VV[4],(V574),VV[206],(*(LnkLI219))((V573),(V574)));          {object V588 = list(4,VV[4],(V581),VV[206],(*(LnkLI219))((V580),(V581)));
3327          VMR57(V581)}}          VMR57(V588)}}
3328          base[0]=base[0];          base[0]=base[0];
3329          return Cnil;          return Cnil;
3330  }  }
3331  /*      local entry for function C2LIST-NTH-IMMEDIATE   */  /*      local entry for function C2LIST-NTH-IMMEDIATE   */
3332    
3333  static object LI59(V584,V585)  static object LI59(V591,V592)
3334    
3335  object V584;object V585;  object V591;object V592;
3336  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
3337          bds_check;          bds_check;
3338  goto TTL;  goto TTL;
3339  TTL:;  TTL:;
3340          {object V586;          {object V593;
3341          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
3342          V586= symbol_value(VV[22]);          V593= symbol_value(VV[22]);
3343          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
3344          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
3345          V585= (VFUN_NARGS=2,(*(LnkLI232))((V585),VV[207]));          V592= (VFUN_NARGS=2,(*(LnkLI232))((V592),VV[207]));
3346          princ_str("\n   {object V",VV[7]);          princ_str("\n   {object V",VV[7]);
3347          (void)((*(LnkLI213))((V586)));          (void)((*(LnkLI213))((V593)));
3348          princ_str("= ",VV[7]);          princ_str("= ",VV[7]);
3349          if((symbol_value(VV[25]))==Cnil){          if((symbol_value(VV[25]))==Cnil){
3350          goto T1289;}          goto T1293;}
3351          {register long V587;          {register long V594;
3352          register long V588;          register long V595;
3353          V587= fix((V584));          V594= fix((V591));
3354          V588= 0;          V595= 0;
3355    goto T1299;
3356    T1299:;
3357            if(!((V595)>=(V594))){
3358            goto T1300;}
3359            goto T1295;
3360    goto T1300;
3361    T1300:;
3362            princ_str("cdr(",VV[7]);
3363            V595= (long)(V595)+1;
3364            goto T1299;}
3365  goto T1295;  goto T1295;
3366  T1295:;  T1295:;
3367          if(!((V588)>=(V587))){          (void)((*(LnkLI213))(car((V592))));
3368          goto T1296;}          {register long V596;
3369          goto T1291;          register long V597;
3370  goto T1296;          V596= fix((V591));
3371  T1296:;          V597= 0;
3372          princ_str("cdr(",VV[7]);  goto T1315;
3373          V588= (long)(V588)+1;  T1315:;
3374          goto T1295;}          if(!((V597)>=(V596))){
3375  goto T1291;          goto T1316;}
3376  T1291:;          goto T1311;
3377          (void)((*(LnkLI213))(car((V585))));  goto T1316;
3378          {register long V589;  T1316:;
3379          register long V590;          princ_char(41,VV[7]);
3380          V589= fix((V584));          V597= (long)(V597)+1;
3381          V590= 0;          goto T1315;}
3382  goto T1311;  goto T1311;
3383  T1311:;  T1311:;
         if(!((V590)>=(V589))){  
         goto T1312;}  
         goto T1307;  
 goto T1312;  
 T1312:;  
         princ_char(41,VV[7]);  
         V590= (long)(V590)+1;  
         goto T1311;}  
 goto T1307;  
 T1307:;  
3384          princ_char(59,VV[7]);          princ_char(59,VV[7]);
3385          princ_str("\n   if((type_of(V",VV[7]);          princ_str("\n   if((type_of(V",VV[7]);
3386          (void)((*(LnkLI213))((V586)));          (void)((*(LnkLI213))((V593)));
3387          princ_str(")!=t_cons) && (",VV[7]);          princ_str(")!=t_cons) && (",VV[7]);
3388          (void)((*(LnkLI213))(car((V585))));          (void)((*(LnkLI213))(car((V592))));
3389          princ_str("!= Cnil))",VV[7]);          princ_str("!= Cnil))",VV[7]);
3390          princ_str("\n    FEwrong_type_argument(Scons,V",VV[7]);          princ_str("\n    FEwrong_type_argument(Scons,V",VV[7]);
3391          (void)((*(LnkLI213))((V586)));          (void)((*(LnkLI213))((V593)));
3392          princ_str(");",VV[7]);          princ_str(");",VV[7]);
3393          goto T1287;          goto T1291;
3394  goto T1289;  goto T1293;
3395  T1289:;  T1293:;
3396          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
3397          (void)((*(LnkLI213))(car((V585))));          (void)((*(LnkLI213))(car((V592))));
3398          {register long V591;          {register long V598;
3399          register long V592;          register long V599;
3400          V591= fix((V584));          V598= fix((V591));
3401          V592= 0;          V599= 0;
3402    goto T1343;
3403    T1343:;
3404            if(!((V599)>=(V598))){
3405            goto T1344;}
3406            goto T1339;
3407    goto T1344;
3408    T1344:;
3409            princ_str("\n   ->c.c_cdr",VV[7]);
3410            V599= (long)(V599)+1;
3411            goto T1343;}
3412  goto T1339;  goto T1339;
3413  T1339:;  T1339:;
         if(!((V592)>=(V591))){  
         goto T1340;}  
         goto T1335;  
 goto T1340;  
 T1340:;  
         princ_str("\n   ->c.c_cdr",VV[7]);  
         V592= (long)(V592)+1;  
         goto T1339;}  
 goto T1335;  
 T1335:;  
3414          princ_char(59,VV[7]);          princ_char(59,VV[7]);
3415  goto T1287;  goto T1291;
3416  T1287:;  T1291:;
3417          V593= list(2,VV[61],(V586));          V600= list(2,VV[61],(V593));
3418          (void)((VFUN_NARGS=1,(*(LnkLI214))(/* INLINE-ARGS */V593)));          (void)((VFUN_NARGS=1,(*(LnkLI214))(/* INLINE-ARGS */V600)));
3419          princ_char(125,VV[7]);          princ_char(125,VV[7]);
3420          {object V594 = (*(LnkLI233))();          {object V601 = (*(LnkLI233))();
3421          bds_unwind1;          bds_unwind1;
3422          bds_unwind1;          bds_unwind1;
3423          VMR58(V594)}}          VMR58(V601)}}
3424          base[0]=base[0];          base[0]=base[0];
3425          return Cnil;          return Cnil;
3426  }  }
# Line 3421  register object *base0; Line 3431  register object *base0;
3431  {       register object *base=vs_base;  {       register object *base=vs_base;
3432          register object *sup=base+VM59; VC59          register object *sup=base+VM59; VC59
3433          vs_reserve(VM59);          vs_reserve(VM59);
3434          {register object V595;          {register object V602;
3435          check_arg(1);          check_arg(1);
3436          V595=(base[0]);          V602=(base[0]);
3437          vs_top=sup;          vs_top=sup;
3438  goto TTL;  goto TTL;
3439  TTL:;  TTL:;
3440          {register object V596;          {register object V603;
3441          V596= Cnil;          V603= Cnil;
3442  goto T1355;  goto T1359;
3443  T1355:;  T1359:;
3444          if(!(type_of((V595))==t_cons)){          if(!(type_of((V602))==t_cons)){
3445          goto T1358;}          goto T1362;}
3446          goto T1357;          goto T1361;
3447  goto T1358;  goto T1362;
3448  T1358:;  T1362:;
3449          goto T1356;          goto T1360;
3450  goto T1357;  goto T1361;
3451  T1357:;  T1361:;
3452          {register object V597;          {register object V604;
3453          V597= car((V595));          V604= car((V602));
3454          if(!(type_of((V597))==t_cons)){          if(!(type_of((V604))==t_cons)){
3455          goto T1363;}          goto T1367;}
3456          V597= (*(LnkLI259))((V597));          V604= (*(LnkLI259))((V604));
3457          if(((V597))==Cnil){          if(((V604))==Cnil){
3458          goto T1363;}          goto T1367;}
3459          if(!((car((V597)))==(VV[106]))){          if(!((car((V604)))==(VV[106]))){
3460          goto T1363;}          goto T1367;}
3461          V596= make_cons((V597),(V596));          {register object V605;
3462          {register object V598;          V605= (V604);
3463          V598= car((V595));          V603= make_cons((V605),(V603));}
3464          V595= cdr((V595));          {register object V606;
3465            V606= car((V602));
3466            V602= cdr((V602));
3467            goto T1364;}
3468    goto T1367;
3469    T1367:;
3470          goto T1360;}          goto T1360;}
3471  goto T1363;  goto T1364;
3472  T1363:;  T1364:;
3473          goto T1356;}          goto T1359;
3474  goto T1360;  goto T1360;
3475  T1360:;  T1360:;
3476          goto T1355;          V607= nreverse((V603));
3477  goto T1356;          base[1]= nconc(/* INLINE-ARGS */V607,(V602));
 T1356:;  
         V599= nreverse((V596));  
         base[1]= nconc(/* INLINE-ARGS */V599,(V595));  
3478          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3479          return;          return;
3480          base[1]= Cnil;          base[1]= Cnil;

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