/[gcl]/gcl/pcl/pcl_macros.c
ViewVC logotype

Diff of /gcl/pcl/pcl_macros.c

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

revision 1.4 by camm, Tue Sep 23 21:48:34 2003 UTC revision 1.5 by camm, Fri Oct 3 16:03:18 2003 UTC
# Line 342  T43:; Line 342  T43:;
342          goto T43;}          goto T43;}
343          goto T42;          goto T42;
344  T42:;  T42:;
345          V63= list(3,(V45),(V46),list(2,VV[28],listA(3,VV[24],V58,base[3])));          V63 = base[3];
346          V64= list(2,VV[33],(V45));          V64= list(3,(V45),(V46),list(2,VV[28],listA(3,VV[24],V58,V63)));
347          base[4]= list(3,VV[27],/* INLINE-ARGS */V63,list(4,VV[29],VV[30],list(4,VV[31],VV[32],/* INLINE-ARGS */V64,list(2,VV[33],(V46))),VV[28]));          V65= list(2,VV[33],(V45));
348            base[4]= list(3,VV[27],/* INLINE-ARGS */V64,list(4,VV[29],VV[30],list(4,VV[31],VV[32],/* INLINE-ARGS */V65,list(2,VV[33],(V46))),VV[28]));
349          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
350          return;}          return;}
351  }  }
# Line 354  static void L16() Line 355  static void L16()
355  {register object *base=vs_base;  {register object *base=vs_base;
356          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
357          vs_check;          vs_check;
358          {register object V65;          {register object V66;
359          object V66;          object V67;
360          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
361          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
362          V65=(base[0]);          V66=(base[0]);
363          vs_base=vs_base+1;          vs_base=vs_base+1;
364          if(vs_base>=vs_top){vs_top=sup;goto T45;}          if(vs_base>=vs_top){vs_top=sup;goto T45;}
365          V66=(base[1]);          V67=(base[1]);
366          vs_top=sup;          vs_top=sup;
367          goto T46;          goto T46;
368          goto T45;          goto T45;
369  T45:;  T45:;
370          V66= Cnil;          V67= Cnil;
371          goto T46;          goto T46;
372  T46:;  T46:;
373          {object V67;          {object V68;
         register object V68;  
374          register object V69;          register object V69;
375          V67= Cnil;          register object V70;
376          V68= Cnil;          V68= Cnil;
377          V69= Cnil;          V69= Cnil;
378          if(!(type_of(CMPcar((V65)))==t_string)){          V70= Cnil;
379            if(!(type_of(CMPcar((V66)))==t_string)){
380          goto T48;}          goto T48;}
381          if((CMPcdr((V65)))==Cnil){          if((CMPcdr((V66)))==Cnil){
382          goto T48;}          goto T48;}
383          {object V70;          {object V71;
384          V70= CMPcar((V65));          V71= CMPcar((V66));
385          V65= CMPcdr((V65));          V66= CMPcdr((V66));
386          V67= (V70);}          V68= (V71);}
387          goto T48;          goto T48;
388  T48:;  T48:;
389          goto T59;          goto T59;
390  T59:;  T59:;
391          if(((V65))!=Cnil){          if(((V66))!=Cnil){
392          goto T61;}          goto T61;}
393          goto T57;          goto T57;
394          goto T61;          goto T61;
395  T61:;  T61:;
396          V69= CMPcar((V65));          V70= CMPcar((V66));
397          goto T69;          goto T69;
398  T69:;  T69:;
399          if(type_of((V69))==t_cons||((V69))==Cnil){          if(type_of((V70))==t_cons||((V70))==Cnil){
400          goto T72;}          goto T72;}
401          goto T57;          goto T57;
402          goto T72;          goto T72;
403  T72:;  T72:;
404          if(!((CMPcar((V69)))==(VV[34]))){          if(!((CMPcar((V70)))==(VV[34]))){
405          goto T75;}          goto T75;}
406          goto T67;          goto T67;
407          goto T75;          goto T75;
408  T75:;  T75:;
409          {register object V71;          {register object V72;
410          object V72;          object V73;
411          base[2]= (V69);          base[2]= (V70);
412          base[3]= (V66);          base[3]= (V67);
413          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
414          Lmacroexpand_1();          Lmacroexpand_1();
415          if(vs_base>=vs_top){vs_top=sup;goto T80;}          if(vs_base>=vs_top){vs_top=sup;goto T80;}
416          V71= vs_base[0];          V72= vs_base[0];
417          vs_base++;          vs_base++;
418          if(vs_base>=vs_top){vs_top=sup;goto T81;}          if(vs_base>=vs_top){vs_top=sup;goto T81;}
419          V72= vs_base[0];          V73= vs_base[0];
420          vs_top=sup;          vs_top=sup;
421          goto T82;          goto T82;
422          goto T80;          goto T80;
423  T80:;  T80:;
424          V71= Cnil;          V72= Cnil;
425          goto T81;          goto T81;
426  T81:;  T81:;
427          V72= Cnil;          V73= Cnil;
428          goto T82;          goto T82;
429  T82:;  T82:;
430          if(!(((V71))==((V69)))){          if(!(((V72))==((V70)))){
431          goto T83;}          goto T83;}
432          if(((V72))==Cnil){          if(((V73))==Cnil){
433          goto T84;}          goto T84;}
434          goto T83;          goto T83;
435  T83:;  T83:;
436          V69= (V71);          V70= (V72);
437          goto T70;          goto T70;
438          goto T84;          goto T84;
439  T84:;  T84:;
# Line 442  T70:; Line 443  T70:;
443          goto T69;          goto T69;
444          goto T67;          goto T67;
445  T67:;  T67:;
446          {object V73;          {object V74;
447          V73= CMPcar((V65));          V74= CMPcar((V66));
448          V65= CMPcdr((V65));}          V66= CMPcdr((V66));}
449          {register object V74;          {register object V75;
450          register object V75;          register object V76;
451          V74= CMPcdr((V69));          V75= CMPcdr((V70));
452          V75= CMPcar((V74));          V76= CMPcar((V75));
453          goto T97;          goto T97;
454  T97:;  T97:;
455          if(!(((V74))==Cnil)){          if(!(((V75))==Cnil)){
456          goto T98;}          goto T98;}
457          goto T60;          goto T60;
458          goto T98;          goto T98;
459  T98:;  T98:;
460          V68= make_cons(V75,(V68));          V69= make_cons(V76,(V69));
461          V74= CMPcdr((V74));          V75= CMPcdr((V75));
462          V75= CMPcar((V74));          V76= CMPcar((V75));
463          goto T97;}          goto T97;}
464          goto T60;          goto T60;
465  T60:;  T60:;
466          goto T59;          goto T59;
467          goto T57;          goto T57;
468  T57:;  T57:;
469          base[2]= (V67);          base[2]= (V68);
470          if((V68)==Cnil){          if((V69)==Cnil){
471          base[3]= Cnil;          base[3]= Cnil;
472          goto T111;}          goto T111;}
473          V77= nreverse((V68));          V78= nreverse((V69));
474          V78= make_cons(VV[34],/* INLINE-ARGS */V77);          V79= make_cons(VV[34],/* INLINE-ARGS */V78);
475          base[3]= make_cons(/* INLINE-ARGS */V78,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V79,Cnil);
476          goto T111;          goto T111;
477  T111:;  T111:;
478          base[4]= (V65);          base[4]= (V66);
479          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
480          return;}          return;}
481          }          }
482  }  }
483  /*      local entry for function GET-DECLARATION        */  /*      local entry for function GET-DECLARATION        */
484    
485  static object LI17(object V80,object V79,object first,...)  static object LI17(object V81,object V80,object first,...)
486  {        {      
487          va_list ap;          va_list ap;
488          int narg = VFUN_NARGS; VMB17 VMS17 VMV17          int narg = VFUN_NARGS; VMB17 VMS17 VMV17
489          {register object V81;          {register object V82;
490          object V82;          object V83;
491          register object V83;          register object V84;
492          va_start(ap,first);          va_start(ap,first);
493          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
494          V81= V80;          V82= V81;
495          V82= V79;          V83= V80;
496          narg = narg - 2;          narg = narg - 2;
497          if (narg <= 0) goto T113;          if (narg <= 0) goto T113;
498          else {          else {
499          V83= first;}          V84= first;}
500          --narg; goto T114;          --narg; goto T114;
501          goto T113;          goto T113;
502  T113:;  T113:;
503          V83= Cnil;          V84= Cnil;
504          goto T114;          goto T114;
505  T114:;  T114:;
506          {register object V84;          {register object V85;
507          register object V85;          register object V86;
508          V84= (V82);          V85= (V83);
509          V85= CMPcar((V84));          V86= CMPcar((V85));
510          goto T119;          goto T119;
511  T119:;  T119:;
512          if(!(((V84))==Cnil)){          if(!(((V85))==Cnil)){
513          goto T120;}          goto T120;}
514          {object V86 = (V83);          {object V87 = (V84);
515          VMR17(V86)}          VMR17(V87)}
516          goto T120;          goto T120;
517  T120:;  T120:;
518          {register object V87;          {register object V88;
519          register object V88;          register object V89;
520          V87= CMPcdr((V85));          V88= CMPcdr((V86));
521          V88= CMPcar((V87));          V89= CMPcar((V88));
522          goto T128;          goto T128;
523  T128:;  T128:;
524          if(!(((V87))==Cnil)){          if(!(((V88))==Cnil)){
525          goto T129;}          goto T129;}
526          goto T124;          goto T124;
527          goto T129;          goto T129;
528  T129:;  T129:;
529          if(!(type_of((V88))==t_cons)){          if(!(type_of((V89))==t_cons)){
530          goto T133;}          goto T133;}
531          if(!((CMPcar((V88)))==((V81)))){          if(!((CMPcar((V89)))==((V82)))){
532          goto T133;}          goto T133;}
533          {object V89 = CMPcdr((V88));          {object V90 = CMPcdr((V89));
534          VMR17(V89)}          VMR17(V90)}
535          goto T133;          goto T133;
536  T133:;  T133:;
537          V87= CMPcdr((V87));          V88= CMPcdr((V88));
538          V88= CMPcar((V87));          V89= CMPcar((V88));
539          goto T128;}          goto T128;}
540          goto T124;          goto T124;
541  T124:;  T124:;
542          V84= CMPcdr((V84));          V85= CMPcdr((V85));
543          V85= CMPcar((V84));          V86= CMPcar((V85));
544          goto T119;}          goto T119;}
545          va_end(ap);          va_end(ap);
546          base[0]=base[0];          base[0]=base[0];
# Line 551  static void L18() Line 552  static void L18()
552  {register object *base=vs_base;  {register object *base=vs_base;
553          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
554          vs_check;          vs_check;
555          {object V90;          {object V91;
556          check_arg(1);          check_arg(1);
557          V90=(base[0]);          V91=(base[0]);
558          vs_top=sup;          vs_top=sup;
559          goto TTL;          goto TTL;
560  TTL:;  TTL:;
561          base[1]= symbol_name((V90));          base[1]= symbol_name((V91));
562          base[2]= (VV[35]->s.s_dbind);          base[2]= (VV[35]->s.s_dbind);
563          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
564          Lintern();          Lintern();
# Line 570  static object LI19(object first,...) Line 571  static object LI19(object first,...)
571  {        {      
572          va_list ap;          va_list ap;
573          int narg = VFUN_NARGS; VMB19 VMS19 VMV19          int narg = VFUN_NARGS; VMB19 VMS19 VMV19
574          {register object V91;          {register object V92;
575          va_start(ap,first);          va_start(ap,first);
576          narg= narg - 0;          narg= narg - 0;
577          V92 = list_vector_new(narg,first,ap);          V93 = list_vector_new(narg,first,ap);
578          V91= V92;          V92= V93;
579          base[0]= (V91);          base[0]= (V92);
580          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
581          Lcopy_list();          Lcopy_list();
582          vs_top=sup;          vs_top=sup;
583          V91= vs_base[0];          V92= vs_base[0];
584          {register object V93;          {register object V94;
585          V93= (V91);          V94= (V92);
586          goto T154;          goto T154;
587  T154:;  T154:;
588          if(((V93))!=Cnil){          if(((V94))!=Cnil){
589          goto T155;}          goto T155;}
590          base[0]=VV[132]->s.s_gfdef;          base[0]=VV[132]->s.s_gfdef;
591          base[1]= VV[36];          base[1]= VV[36];
592          {object V94;          {object V95;
593          V94= (V91);          V95= (V92);
594           vs_top=base+2;           vs_top=base+2;
595           while(V94!=Cnil)           while(V95!=Cnil)
596           {vs_push((V94)->c.c_car);V94=(V94)->c.c_cdr;}           {vs_push((V95)->c.c_car);V95=(V95)->c.c_cdr;}
597          vs_base=base+1;}          vs_base=base+1;}
598          (void) (*Lnk132)();          (void) (*Lnk132)();
599          vs_top=sup;          vs_top=sup;
600          {object V95 = vs_base[0];          {object V96 = vs_base[0];
601          VMR19(V95)}          VMR19(V96)}
602          goto T155;          goto T155;
603  T155:;  T155:;
604          V96= coerce_to_string(CMPcar((V93)));          V97= coerce_to_string(CMPcar((V94)));
605          ((V93))->c.c_car = /* INLINE-ARGS */V96;          ((V94))->c.c_car = /* INLINE-ARGS */V97;
606          V93= CMPcdr((V93));          V94= CMPcdr((V94));
607          goto T154;}          goto T154;}
608          va_end(ap);          va_end(ap);
609          base[0]=base[0];          base[0]=base[0];
# Line 614  static void L20() Line 615  static void L20()
615  {register object *base=vs_base;  {register object *base=vs_base;
616          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
617          vs_check;          vs_check;
618          {object V97;          {object V98;
         object V98;  
619          object V99;          object V99;
620            object V100;
621          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
622          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
623          V97=(base[0]);          V98=(base[0]);
624          V98=(base[1]);          V99=(base[1]);
625          vs_base=vs_base+2;          vs_base=vs_base+2;
626          if(vs_base>=vs_top){vs_top=sup;goto T165;}          if(vs_base>=vs_top){vs_top=sup;goto T165;}
627          V99=(base[2]);          V100=(base[2]);
628          vs_top=sup;          vs_top=sup;
629          goto T166;          goto T166;
630          goto T165;          goto T165;
631  T165:;  T165:;
632          V99= (VV[37]->s.s_dbind);          V100= (VV[37]->s.s_dbind);
633          goto T166;          goto T166;
634  T166:;  T166:;
635          base[3]= (VFUN_NARGS=2,(*(LnkLI133))((V97),(V98)));          base[3]= (VFUN_NARGS=2,(*(LnkLI133))((V98),(V99)));
636          base[4]= (V99);          base[4]= (V100);
637          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
638          Lintern();          Lintern();
639          return;          return;
# Line 646  static void L21() Line 647  static void L21()
647          vs_check;          vs_check;
648          check_arg(2);          check_arg(2);
649          vs_top=sup;          vs_top=sup;
650          {object V100=base[0]->c.c_cdr;          {object V101=base[0]->c.c_cdr;
651          if(endp(V100))invalid_macro_call();          if(endp(V101))invalid_macro_call();
652          base[2]= (V100->c.c_car);          base[2]= (V101->c.c_car);
653          V100=V100->c.c_cdr;          V101=V101->c.c_cdr;
654          if(endp(V100))invalid_macro_call();          if(endp(V101))invalid_macro_call();
655          base[3]= (V100->c.c_car);          base[3]= (V101->c.c_car);
656          V100=V100->c.c_cdr;          V101=V101->c.c_cdr;
657          {object V101=getf(V100,VV[39],OBJNULL);          {object V102=getf(V101,VV[39],OBJNULL);
658          if(V101==OBJNULL){          if(V102==OBJNULL){
659          base[4]= (VV[134]->s.s_gfdef);} else {          base[4]= (VV[134]->s.s_gfdef);} else {
660          base[4]= V101;          base[4]= V102;
661          }}          }}
662          {object V102=getf(V100,VV[135],OBJNULL);          {object V103=getf(V101,VV[135],OBJNULL);
663          if(V102==OBJNULL){          if(V103==OBJNULL){
664          base[5]= base[2];} else {          base[5]= base[2];} else {
665          base[5]= V102;          base[5]= V103;
666          }}          }}
667          check_other_key(V100,2,VV[39],VV[135]);}          check_other_key(V101,2,VV[39],VV[135]);}
668          {register object V103;          {register object V104;
669          register object V104;          register object V105;
670          object V105;          object V106;
         V103= Cnil;  
671          V104= Cnil;          V104= Cnil;
672          {object V106;          V105= Cnil;
673          object V107;          {object V107;
674            object V108;
675          if(type_of(base[2])==t_symbol){          if(type_of(base[2])==t_symbol){
676          goto T176;}          goto T176;}
677          if(type_of(base[2])==t_fixnum||          if(type_of(base[2])==t_fixnum||
# Line 682  type_of(base[2])==t_complex){ Line 683  type_of(base[2])==t_complex){
683          goto T176;}          goto T176;}
684          if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){          if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){
685          goto T177;}          goto T177;}
686          {register object x= CMPcar(base[2]),V108= VV[38];          {register object x= CMPcar(base[2]),V109= VV[38];
687          while(V108!=Cnil)          while(V109!=Cnil)
688          if(eql(x,V108->c.c_car)){          if(eql(x,V109->c.c_car)){
689          goto T184;          goto T184;
690          }else V108=V108->c.c_cdr;          }else V109=V109->c.c_cdr;
691          goto T177;}          goto T177;}
692          goto T184;          goto T184;
693  T184:;  T184:;
694          goto T176;          goto T176;
695  T176:;  T176:;
696          V106= base[2];          V107= base[2];
697          goto T175;          goto T175;
698          goto T177;          goto T177;
699  T177:;  T177:;
700          {object V109;          {object V110;
701          vs_base=vs_top;          vs_base=vs_top;
702          Lgensym();          Lgensym();
703          vs_top=sup;          vs_top=sup;
704          V109= vs_base[0];          V110= vs_base[0];
705          V103= make_cons(V109,(V103));          V104= make_cons(V110,(V104));
706          V104= make_cons(base[2],(V104));          V105= make_cons(base[2],(V105));
707          V106= (V109);}          V107= (V110);}
708          goto T175;          goto T175;
709  T175:;  T175:;
710          if(type_of(base[3])==t_symbol){          if(type_of(base[3])==t_symbol){
# Line 717  type_of(base[3])==t_complex){ Line 718  type_of(base[3])==t_complex){
718          goto T191;}          goto T191;}
719          if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){          if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){
720          goto T192;}          goto T192;}
721          {register object x= CMPcar(base[3]),V112= VV[38];          {register object x= CMPcar(base[3]),V113= VV[38];
722          while(V112!=Cnil)          while(V113!=Cnil)
723          if(eql(x,V112->c.c_car)){          if(eql(x,V113->c.c_car)){
724          goto T199;          goto T199;
725          }else V112=V112->c.c_cdr;          }else V113=V113->c.c_cdr;
726          goto T192;}          goto T192;}
727          goto T199;          goto T199;
728  T199:;  T199:;
729          goto T191;          goto T191;
730  T191:;  T191:;
731          V107= base[3];          V108= base[3];
732          goto T190;          goto T190;
733          goto T192;          goto T192;
734  T192:;  T192:;
735          {object V113;          {object V114;
736          vs_base=vs_top;          vs_base=vs_top;
737          Lgensym();          Lgensym();
738          vs_top=sup;          vs_top=sup;
739          V113= vs_base[0];          V114= vs_base[0];
740          V103= make_cons(V113,(V103));          V104= make_cons(V114,(V104));
741          V104= make_cons(base[3],(V104));          V105= make_cons(base[3],(V105));
742          V107= (V113);}          V108= (V114);}
743          goto T190;          goto T190;
744  T190:;  T190:;
745          V116= list(5,VV[0],(V106),(V107),VV[39],base[4]);          V117= list(5,VV[0],(V107),(V108),VV[39],base[4]);
746          V105= list(3,VV[17],/* INLINE-ARGS */V116,list(5,VV[40],VV[41],list(2,VV[42],base[5]),(V106),(V107)));}          V106= list(3,VV[17],/* INLINE-ARGS */V117,list(5,VV[40],VV[41],list(2,VV[42],base[5]),(V107),(V108)));}
         V121= reverse((V103));  
747          V122= reverse((V104));          V122= reverse((V104));
748          {object V118;          V123= reverse((V105));
749          object V119= /* INLINE-ARGS */V121;          {object V119;
750          object V120= /* INLINE-ARGS */V122;          object V120= /* INLINE-ARGS */V122;
751          if(V119==Cnil||V120==Cnil){          object V121= /* INLINE-ARGS */V123;
752          V117= Cnil;          if(V120==Cnil||V121==Cnil){
753            V118= Cnil;
754          goto T205;}          goto T205;}
755          base[7]=V118=MMcons(Cnil,Cnil);          base[7]=V119=MMcons(Cnil,Cnil);
756          goto T206;          goto T206;
757  T206:;  T206:;
758          (V118->c.c_car)= list(2,(V119->c.c_car),(V120->c.c_car));          (V119->c.c_car)= list(2,(V120->c.c_car),(V121->c.c_car));
759          if((V119=MMcdr(V119))==Cnil||(V120=MMcdr(V120))==Cnil){          if((V120=MMcdr(V120))==Cnil||(V121=MMcdr(V121))==Cnil){
760          V117= base[7];          V118= base[7];
761          goto T205;}          goto T205;}
762          V118=MMcdr(V118)=MMcons(Cnil,Cnil);          V119=MMcdr(V119)=MMcons(Cnil,Cnil);
763          goto T206;}          goto T206;}
764          goto T205;          goto T205;
765  T205:;  T205:;
766          base[7]= list(3,VV[24],V117,(V105));          V124 = (V106);
767            base[7]= list(3,VV[24],V118,V124);
768          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
769          return;}          return;}
770  }  }
# Line 774  static void L22() Line 776  static void L22()
776          vs_check;          vs_check;
777          check_arg(2);          check_arg(2);
778          vs_top=sup;          vs_top=sup;
779          {object V123=base[0]->c.c_cdr;          {object V125=base[0]->c.c_cdr;
780          if(endp(V123))invalid_macro_call();          if(endp(V125))invalid_macro_call();
781          base[2]= (V123->c.c_car);          base[2]= (V125->c.c_car);
782          V123=V123->c.c_cdr;          V125=V125->c.c_cdr;
783          if(endp(V123))invalid_macro_call();          if(endp(V125))invalid_macro_call();
784          base[3]= (V123->c.c_car);          base[3]= (V125->c.c_car);
785          V123=V123->c.c_cdr;          V125=V125->c.c_cdr;
786          if(endp(V123))invalid_macro_call();          if(endp(V125))invalid_macro_call();
787          base[4]= (V123->c.c_car);          base[4]= (V125->c.c_car);
788          V123=V123->c.c_cdr;          V125=V125->c.c_cdr;
789          if(!endp(V123))invalid_macro_call();}          if(!endp(V125))invalid_macro_call();}
790          {register object V124;          {register object V126;
791          register object V125;          register object V127;
         object V126;  
         V124= Cnil;  
         V125= Cnil;  
         {register object V127;  
792          object V128;          object V128;
793            V126= Cnil;
794            V127= Cnil;
795            {register object V129;
796            object V130;
797          if(type_of(base[2])==t_symbol){          if(type_of(base[2])==t_symbol){
798          goto T212;}          goto T212;}
799          if(type_of(base[2])==t_fixnum||          if(type_of(base[2])==t_fixnum||
# Line 803  type_of(base[2])==t_complex){ Line 805  type_of(base[2])==t_complex){
805          goto T212;}          goto T212;}
806          if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){          if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){
807          goto T213;}          goto T213;}
808          {register object x= CMPcar(base[2]),V129= VV[38];          {register object x= CMPcar(base[2]),V131= VV[38];
809          while(V129!=Cnil)          while(V131!=Cnil)
810          if(eql(x,V129->c.c_car)){          if(eql(x,V131->c.c_car)){
811          goto T220;          goto T220;
812          }else V129=V129->c.c_cdr;          }else V131=V131->c.c_cdr;
813          goto T213;}          goto T213;}
814          goto T220;          goto T220;
815  T220:;  T220:;
816          goto T212;          goto T212;
817  T212:;  T212:;
818          V127= base[2];          V129= base[2];
819          goto T211;          goto T211;
820          goto T213;          goto T213;
821  T213:;  T213:;
822          {object V130;          {object V132;
823          vs_base=vs_top;          vs_base=vs_top;
824          Lgensym();          Lgensym();
825          vs_top=sup;          vs_top=sup;
826          V130= vs_base[0];          V132= vs_base[0];
827          V124= make_cons(V130,(V124));          V126= make_cons(V132,(V126));
828          V125= make_cons(base[2],(V125));          V127= make_cons(base[2],(V127));
829          V127= (V130);}          V129= (V132);}
830          goto T211;          goto T211;
831  T211:;  T211:;
832          if(type_of(base[3])==t_symbol){          if(type_of(base[3])==t_symbol){
# Line 838  type_of(base[3])==t_complex){ Line 840  type_of(base[3])==t_complex){
840          goto T227;}          goto T227;}
841          if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){          if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){
842          goto T228;}          goto T228;}
843          {register object x= CMPcar(base[3]),V133= VV[38];          {register object x= CMPcar(base[3]),V135= VV[38];
844          while(V133!=Cnil)          while(V135!=Cnil)
845          if(eql(x,V133->c.c_car)){          if(eql(x,V135->c.c_car)){
846          goto T235;          goto T235;
847          }else V133=V133->c.c_cdr;          }else V135=V135->c.c_cdr;
848          goto T228;}          goto T228;}
849          goto T235;          goto T235;
850  T235:;  T235:;
851          goto T227;          goto T227;
852  T227:;  T227:;
853          V128= base[3];          V130= base[3];
854          goto T226;          goto T226;
855          goto T228;          goto T228;
856  T228:;  T228:;
857          {object V134;          {object V136;
858          vs_base=vs_top;          vs_base=vs_top;
859          Lgensym();          Lgensym();
860          vs_top=sup;          vs_top=sup;
861          V134= vs_base[0];          V136= vs_base[0];
862          V124= make_cons(V134,(V124));          V126= make_cons(V136,(V126));
863          V125= make_cons(base[3],(V125));          V127= make_cons(base[3],(V127));
864          V128= (V134);}          V130= (V136);}
865          goto T226;          goto T226;
866  T226:;  T226:;
867          V137= list(3,VV[43],(V128),(V127));          V139= list(3,VV[43],(V130),(V129));
868          V138= list(3,VV[45],(V127),list(3,VV[46],list(2,base[4],(V128)),(V127)));          V140= list(3,VV[45],(V129),list(3,VV[46],list(2,base[4],(V130)),(V129)));
869          V126= list(3,VV[17],/* INLINE-ARGS */V137,list(3,VV[44],/* INLINE-ARGS */V138,list(2,VV[22],(V127))));}          V128= list(3,VV[17],/* INLINE-ARGS */V139,list(3,VV[44],/* INLINE-ARGS */V140,list(2,VV[22],(V129))));}
870          V143= reverse((V124));          V145= reverse((V126));
871          V144= reverse((V125));          V146= reverse((V127));
872          {object V140;          {object V142;
873          object V141= /* INLINE-ARGS */V143;          object V143= /* INLINE-ARGS */V145;
874          object V142= /* INLINE-ARGS */V144;          object V144= /* INLINE-ARGS */V146;
875          if(V141==Cnil||V142==Cnil){          if(V143==Cnil||V144==Cnil){
876          V139= Cnil;          V141= Cnil;
877          goto T241;}          goto T241;}
878          base[6]=V140=MMcons(Cnil,Cnil);          base[6]=V142=MMcons(Cnil,Cnil);
879          goto T242;          goto T242;
880  T242:;  T242:;
881          (V140->c.c_car)= list(2,(V141->c.c_car),(V142->c.c_car));          (V142->c.c_car)= list(2,(V143->c.c_car),(V144->c.c_car));
882          if((V141=MMcdr(V141))==Cnil||(V142=MMcdr(V142))==Cnil){          if((V143=MMcdr(V143))==Cnil||(V144=MMcdr(V144))==Cnil){
883          V139= base[6];          V141= base[6];
884          goto T241;}          goto T241;}
885          V140=MMcdr(V140)=MMcons(Cnil,Cnil);          V142=MMcdr(V142)=MMcons(Cnil,Cnil);
886          goto T242;}          goto T242;}
887          goto T241;          goto T241;
888  T241:;  T241:;
889          base[6]= list(3,VV[24],V139,(V126));          V147 = (V128);
890            base[6]= list(3,VV[24],V141,V147);
891          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
892          return;}          return;}
893  }  }
# Line 896  static void L23() Line 899  static void L23()
899          vs_check;          vs_check;
900          check_arg(2);          check_arg(2);
901          vs_top=sup;          vs_top=sup;
902          {object V145=base[0]->c.c_cdr;          {object V148=base[0]->c.c_cdr;
903          if(endp(V145))invalid_macro_call();          if(endp(V148))invalid_macro_call();
904          base[2]= (V145->c.c_car);          base[2]= (V148->c.c_car);
905          V145=V145->c.c_cdr;          V148=V148->c.c_cdr;
906          if(endp(V145))invalid_macro_call();          if(endp(V148))invalid_macro_call();
907          base[3]= (V145->c.c_car);          base[3]= (V148->c.c_car);
908          V145=V145->c.c_cdr;          V148=V148->c.c_cdr;
909          base[4]= V145;}          base[4]= V148;}
910          {object V146;          {object V149;
911          object V147;          object V150;
912          object V148;          object V151;
913          base[5]= base[4];          base[5]= base[4];
914          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
915          (void) (*Lnk136)();          (void) (*Lnk136)();
916          if(vs_base>=vs_top){vs_top=sup;goto T246;}          if(vs_base>=vs_top){vs_top=sup;goto T246;}
917          V146= vs_base[0];          V149= vs_base[0];
918          vs_base++;          vs_base++;
919          if(vs_base>=vs_top){vs_top=sup;goto T247;}          if(vs_base>=vs_top){vs_top=sup;goto T247;}
920          V147= vs_base[0];          V150= vs_base[0];
921          vs_base++;          vs_base++;
922          if(vs_base>=vs_top){vs_top=sup;goto T248;}          if(vs_base>=vs_top){vs_top=sup;goto T248;}
923          V148= vs_base[0];          V151= vs_base[0];
924          vs_top=sup;          vs_top=sup;
925          goto T249;          goto T249;
926          goto T246;          goto T246;
927  T246:;  T246:;
928          V146= Cnil;          V149= Cnil;
929          goto T247;          goto T247;
930  T247:;  T247:;
931          V147= Cnil;          V150= Cnil;
932          goto T248;          goto T248;
933  T248:;  T248:;
934          V148= Cnil;          V151= Cnil;
935          goto T249;          goto T249;
936  T249:;  T249:;
937          {object V149;          {object V152;
938          object V150;          object V153;
939          base[5]= base[2];          base[5]= base[2];
940          base[6]= base[3];          base[6]= base[3];
941          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
942          (void) (*Lnk137)();          (void) (*Lnk137)();
943          if(vs_base>=vs_top){vs_top=sup;goto T253;}          if(vs_base>=vs_top){vs_top=sup;goto T253;}
944          V149= vs_base[0];          V152= vs_base[0];
945          vs_base++;          vs_base++;
946          if(vs_base>=vs_top){vs_top=sup;goto T254;}          if(vs_base>=vs_top){vs_top=sup;goto T254;}
947          V150= vs_base[0];          V153= vs_base[0];
948          vs_top=sup;          vs_top=sup;
949          goto T255;          goto T255;
950          goto T253;          goto T253;
951  T253:;  T253:;
952          V149= Cnil;          V152= Cnil;
953          goto T254;          goto T254;
954  T254:;  T254:;
955          V150= Cnil;          V153= Cnil;
956          goto T255;          goto T255;
957  T255:;  T255:;
958          base[5]= (V147);          V154 = (V153);
959          base[6]= (V149);          base[5]= (V150);
960          base[7]= make_cons(VV[47],(V148));          base[6]= (V152);
961            base[7]= make_cons(VV[47],(V151));
962          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
963          Lappend();          Lappend();
964          vs_top=sup;          vs_top=sup;
965          V151= vs_base[0];          V155= vs_base[0];
966          base[5]= listA(3,VV[24],(V150),V151);          base[5]= listA(3,VV[24],V154,V155);
967          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
968          return;}}          return;}}
969  }  }
# Line 970  static void L24() Line 974  static void L24()
974          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
975          vs_check;          vs_check;
976          bds_check;          bds_check;
977          {object V152;          {object V156;
978          object V153;          object V157;
979          check_arg(2);          check_arg(2);
980          V152=(base[0]);          V156=(base[0]);
981          V153=(base[1]);          V157=(base[1]);
982          vs_top=sup;          vs_top=sup;
983          goto TTL;          goto TTL;
984  TTL:;  TTL:;
985          {object V154;          {object V158;
986          bds_bind(VV[48],Cnil);          bds_bind(VV[48],Cnil);
987          V154= Cnil;          V158= Cnil;
988          (VV[48]->s.s_dbind)= VV[49];          (VV[48]->s.s_dbind)= VV[49];
989          V155= list(3,VV[50],VV[51],(V153));          V159= list(3,VV[50],VV[51],(V157));
990          V154= make_cons(/* INLINE-ARGS */V155,Cnil);          V158= make_cons(/* INLINE-ARGS */V159,Cnil);
991          V153= VV[51];          V157= VV[51];
992          V156= (*(LnkLI138))((V152),(V153));          V160 = (V158);
993          V157= nreverse(/* INLINE-ARGS */V156);          V161= (*(LnkLI138))((V156),(V157));
994          base[3]= nconc((V154),/* INLINE-ARGS */V157);          V162= nreverse(/* INLINE-ARGS */V161);
995            base[3]= nconc(V160,/* INLINE-ARGS */V162);
996          base[5]= Cnil;          base[5]= Cnil;
997          base[6]= (VV[48]->s.s_dbind);          base[6]= (VV[48]->s.s_dbind);
998          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
# Line 1001  TTL:; Line 1006  TTL:;
1006  }  }
1007  /*      local entry for function DESTRUCTURE-INTERNAL   */  /*      local entry for function DESTRUCTURE-INTERNAL   */
1008    
1009  static object LI25(V160,V161)  static object LI25(V165,V166)
1010    
1011  object V160;register object V161;  object V165;register object V166;
1012  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1013          goto TTL;          goto TTL;
1014  TTL:;  TTL:;
1015          {object V162;          {object V167;
1016          register object V163;          register object V168;
1017          register object V164;          register object V169;
1018          vs_base=vs_top;          vs_base=vs_top;
1019          Lgensym();          Lgensym();
1020          vs_top=sup;          vs_top=sup;
1021          V162= vs_base[0];          V167= vs_base[0];
1022          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
1023          V163= Cnil;          V168= Cnil;
1024          V164= Cnil;          V169= Cnil;
1025          {register object V165;          {register object V170;
1026          V165= (V160);          V170= (V165);
1027          goto T273;          goto T273;
1028  T273:;  T273:;
1029          if(((V165))!=Cnil){          if(((V170))!=Cnil){
1030          goto T274;}          goto T274;}
1031          goto T271;          goto T271;
1032          goto T274;          goto T274;
1033  T274:;  T274:;
1034          V163= CMPcar((V165));          V168= CMPcar((V170));
1035          if(!(type_of((V163))==t_symbol)){          V171 = (V168);
1036            if(!(type_of(V171)==t_symbol)){
1037          goto T280;}          goto T280;}
1038          {register object x= (V163),V166= VV[52];          {register object x= (V168),V172= VV[52];
1039          while(V166!=Cnil)          while(V172!=Cnil)
1040          if(x==(V166->c.c_car)){          if(x==(V172->c.c_car)){
1041          goto T283;          goto T283;
1042          }else V166=V166->c.c_cdr;}          }else V172=V172->c.c_cdr;}
1043          (VV[48]->s.s_dbind)= make_cons(V163,(VV[48]->s.s_dbind));          (VV[48]->s.s_dbind)= make_cons(V168,(VV[48]->s.s_dbind));
1044          goto T283;          goto T283;
1045  T283:;  T283:;
1046          if((CMPcdr((V165)))!=Cnil){          if((CMPcdr((V170)))!=Cnil){
1047          goto T288;}          goto T288;}
1048          {object V168;          {object V174;
1049          base[2]= (V163);          base[2]= (V168);
1050          base[3]= (V161);          base[3]= (V166);
1051          base[4]= Cnil;          base[4]= Cnil;
1052          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1053          L26(base);          L26(base);
1054          vs_top=sup;          vs_top=sup;
1055          V168= vs_base[0];          V174= vs_base[0];
1056          V164= make_cons((V168),(V164));          V169= make_cons((V174),(V169));
1057          goto T278;}          goto T278;}
1058          goto T288;          goto T288;
1059  T288:;  T288:;
1060          if(!(type_of(CMPcdr((V165)))==t_symbol)){          if(!(type_of(CMPcdr((V170)))==t_symbol)){
1061          goto T296;}          goto T296;}
1062          {object V169;          {object V175;
1063          base[2]= (V163);          base[2]= (V168);
1064          base[3]= (V161);          base[3]= (V166);
1065          base[4]= CMPcdr((V165));          base[4]= CMPcdr((V170));
1066          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1067          L26(base);          L26(base);
1068          vs_top=sup;          vs_top=sup;
1069          V169= vs_base[0];          V175= vs_base[0];
1070          V164= make_cons((V169),(V164));}          V169= make_cons((V175),(V169));}
1071          {object V170;          {object V176;
1072          V170= CMPcdr((V165));          V176= CMPcdr((V170));
1073          (VV[48]->s.s_dbind)= make_cons((V170),(VV[48]->s.s_dbind));}          (VV[48]->s.s_dbind)= make_cons((V176),(VV[48]->s.s_dbind));}
1074          goto T271;          goto T271;
1075          goto T296;          goto T296;
1076  T296:;  T296:;
1077          {register object x= (V163),V171= VV[53];          {register object x= (V168),V177= VV[53];
1078          while(V171!=Cnil)          while(V177!=Cnil)
1079          if(x==(V171->c.c_car)){          if(x==(V177->c.c_car)){
1080          goto T309;          goto T309;
1081          }else V171=V171->c.c_cdr;          }else V177=V177->c.c_cdr;
1082          goto T308;}          goto T308;}
1083          goto T309;          goto T309;
1084  T309:;  T309:;
# Line 1080  T309:; Line 1086  T309:;
1086          goto T278;          goto T278;
1087          goto T308;          goto T308;
1088  T308:;  T308:;
1089          {register object x= CMPcadr((V165)),V172= VV[54];          {register object x= CMPcadr((V170)),V178= VV[54];
1090          while(V172!=Cnil)          while(V178!=Cnil)
1091          if(x==(V172->c.c_car)){          if(x==(V178->c.c_car)){
1092          goto T313;          goto T313;
1093          }else V172=V172->c.c_cdr;          }else V178=V178->c.c_cdr;
1094          goto T312;}          goto T312;}
1095          goto T313;          goto T313;
1096  T313:;  T313:;
1097          {object V173;          {object V179;
1098          base[2]= (V163);          base[2]= (V168);
1099          base[3]= (V161);          base[3]= (V166);
1100          base[4]= Cnil;          base[4]= Cnil;
1101          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1102          L26(base);          L26(base);
1103          vs_top=sup;          vs_top=sup;
1104          V173= vs_base[0];          V179= vs_base[0];
1105          V164= make_cons((V173),(V164));}          V169= make_cons((V179),(V169));}
1106          base[0]= number_plus(base[0],small_fixnum(1));          base[0]= number_plus(base[0],small_fixnum(1));
1107          goto T278;          goto T278;
1108          goto T312;          goto T312;
1109  T312:;  T312:;
1110          {object V174;          {object V180;
1111          base[2]= (V163);          base[2]= (V168);
1112          base[3]= (V161);          base[3]= (V166);
1113          base[4]= (V161);          base[4]= (V166);
1114          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1115          L26(base);          L26(base);
1116          vs_top=sup;          vs_top=sup;
1117          V174= vs_base[0];          V180= vs_base[0];
1118          V164= make_cons((V174),(V164));          V169= make_cons((V180),(V169));
1119          goto T278;}          goto T278;}
1120          goto T280;          goto T280;
1121  T280:;  T280:;
1122          {object V175;          {object V181;
1123          V176= list(2,(V162),Cnil);          V182= list(2,(V167),Cnil);
1124          V177= make_cons(/* INLINE-ARGS */V176,Cnil);          V183= make_cons(/* INLINE-ARGS */V182,Cnil);
1125          base[2]= (V162);          base[2]= (V167);
1126          base[3]= (V161);          base[3]= (V166);
1127          if(!(type_of(CMPcdr((V165)))==t_symbol)){          if(!(type_of(CMPcdr((V170)))==t_symbol)){
1128          goto T333;}          goto T333;}
1129          base[4]= CMPcdr((V165));          base[4]= CMPcdr((V170));
1130          goto T331;          goto T331;
1131          goto T333;          goto T333;
1132  T333:;  T333:;
1133          base[4]= (V161);          base[4]= (V166);
1134          goto T331;          goto T331;
1135  T331:;  T331:;
1136          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1137          L26(base);          L26(base);
1138          vs_top=sup;          vs_top=sup;
1139          V178= vs_base[0];          V184= vs_base[0];
1140          if(!(type_of((V165))==t_cons)){          if(!(type_of((V170))==t_cons)){
1141          goto T337;}          goto T337;}
1142          V179= CMPcar((V165));          V185= CMPcar((V170));
1143          goto T335;          goto T335;
1144          goto T337;          goto T337;
1145  T337:;  T337:;
1146          V179= (V165);          V185= (V170);
1147          goto T335;          goto T335;
1148  T335:;  T335:;
1149          V180= (*(LnkLI138))(V179,(V162));          V186 = (V167);
1150          V175= listA(4,VV[24],/* INLINE-ARGS */V177,V178,nreverse(/* INLINE-ARGS */V180));          V187= (*(LnkLI138))(V185,V186);
1151          V164= make_cons((V175),(V164));}          V181= listA(4,VV[24],/* INLINE-ARGS */V183,V184,nreverse(/* INLINE-ARGS */V187));
1152          if(!(type_of(CMPcdr((V165)))==t_symbol)){          V169= make_cons((V181),(V169));}
1153            if(!(type_of(CMPcdr((V170)))==t_symbol)){
1154          goto T278;}          goto T278;}
1155          {object V181;          {object V188;
1156          V181= CMPcdr((V165));          V188= CMPcdr((V170));
1157          (VV[48]->s.s_dbind)= make_cons((V181),(VV[48]->s.s_dbind));}          (VV[48]->s.s_dbind)= make_cons((V188),(VV[48]->s.s_dbind));}
1158          goto T271;          goto T271;
1159          goto T278;          goto T278;
1160  T278:;  T278:;
1161          V165= CMPcdr((V165));          V170= CMPcdr((V170));
1162          goto T273;}          goto T273;}
1163          goto T271;          goto T271;
1164  T271:;  T271:;
1165          {object V182 = (V164);          {object V189 = (V169);
1166          VMR25(V182)}}          VMR25(V189)}}
1167          base[0]=base[0];          base[0]=base[0];
1168          return Cnil;          return Cnil;
1169  }  }
# Line 1168  static void L27() Line 1175  static void L27()
1175          vs_check;          vs_check;
1176          check_arg(2);          check_arg(2);
1177          vs_top=sup;          vs_top=sup;
1178          {object V183=base[0]->c.c_cdr;          {object V190=base[0]->c.c_cdr;
1179          {object V184=getf(V183,VV[139],OBJNULL);          {object V191=getf(V190,VV[139],OBJNULL);
1180          if(V184==OBJNULL){          if(V191==OBJNULL){
1181          base[2]= Cnil;} else {          base[2]= Cnil;} else {
1182          base[2]= V184;          base[2]= V191;
1183          }}          }}
1184          check_other_key(V183,1,VV[139]);}          check_other_key(V190,1,VV[139]);}
1185          V185= list(2,VV[57],base[2]);          V192= list(2,VV[57],base[2]);
1186          if(base[2]==Cnil){          if(base[2]==Cnil){
1187          V186= Cnil;          V193= Cnil;
1188          goto T349;}          goto T349;}
1189          V186= VV[59];          V193= VV[59];
1190          goto T349;          goto T349;
1191  T349:;  T349:;
1192          base[3]= list(3,VV[27],list(2,/* INLINE-ARGS */V185,list(2,VV[58],V186)),VV[60]);          base[3]= list(3,VV[27],list(2,/* INLINE-ARGS */V192,list(2,VV[58],V193)),VV[60]);
1193          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1194          return;          return;
1195  }  }
# Line 1194  static void L28() Line 1201  static void L28()
1201          vs_check;          vs_check;
1202          check_arg(2);          check_arg(2);
1203          vs_top=sup;          vs_top=sup;
1204          {object V187=base[0]->c.c_cdr;          {object V194=base[0]->c.c_cdr;
1205          if(endp(V187))invalid_macro_call();          if(endp(V194))invalid_macro_call();
1206          {object V188= (V187->c.c_car);          {object V195= (V194->c.c_car);
1207          if(endp(V188))invalid_macro_call();          if(endp(V195))invalid_macro_call();
1208          base[2]= (V188->c.c_car);          base[2]= (V195->c.c_car);
1209          V188=V188->c.c_cdr;          V195=V195->c.c_cdr;
1210          if(endp(V188))invalid_macro_call();          if(endp(V195))invalid_macro_call();
1211          base[3]= (V188->c.c_car);          base[3]= (V195->c.c_car);
1212          V188=V188->c.c_cdr;          V195=V195->c.c_cdr;
1213          if(!endp(V188))invalid_macro_call();}          if(!endp(V195))invalid_macro_call();}
1214          V187=V187->c.c_cdr;          V194=V194->c.c_cdr;
1215          if(endp(V187))invalid_macro_call();          if(endp(V194))invalid_macro_call();
1216          base[4]= (V187->c.c_car);          base[4]= (V194->c.c_car);
1217          V187=V187->c.c_cdr;          V194=V194->c.c_cdr;
1218          base[5]= V187;}          base[5]= V194;}
1219          {object V189;          {object V196;
1220          object V190;          object V197;
1221          object V191;          object V198;
1222          base[6]= base[5];          base[6]= base[5];
1223          base[7]= base[1];          base[7]= base[1];
1224          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1225          (void) (*Lnk136)();          (void) (*Lnk136)();
1226          if(vs_base>=vs_top){vs_top=sup;goto T353;}          if(vs_base>=vs_top){vs_top=sup;goto T353;}
1227          V189= vs_base[0];          V196= vs_base[0];
1228          vs_base++;          vs_base++;
1229          if(vs_base>=vs_top){vs_top=sup;goto T354;}          if(vs_base>=vs_top){vs_top=sup;goto T354;}
1230          V190= vs_base[0];          V197= vs_base[0];
1231          vs_base++;          vs_base++;
1232          if(vs_base>=vs_top){vs_top=sup;goto T355;}          if(vs_base>=vs_top){vs_top=sup;goto T355;}
1233          V191= vs_base[0];          V198= vs_base[0];
1234          vs_top=sup;          vs_top=sup;
1235          goto T356;          goto T356;
1236          goto T353;          goto T353;
1237  T353:;  T353:;
1238          V189= Cnil;          V196= Cnil;
1239          goto T354;          goto T354;
1240  T354:;  T354:;
1241          V190= Cnil;          V197= Cnil;
1242          goto T355;          goto T355;
1243  T355:;  T355:;
1244          V191= Cnil;          V198= Cnil;
1245          goto T356;          goto T356;
1246  T356:;  T356:;
1247          V192= list(3,list(2,VV[61],base[4]),base[2],base[3]);          V199= list(3,list(2,VV[61],base[4]),base[2],base[3]);
1248          V193= list(3,VV[50],base[2],VV[64]);          V200= list(3,VV[50],base[2],VV[64]);
1249          V194= list(3,VV[50],base[3],VV[66]);          V201= list(3,VV[50],base[3],VV[66]);
1250          V195= list(6,VV[62],VV[63],/* INLINE-ARGS */V193,VV[65],/* INLINE-ARGS */V194,make_cons(VV[44],(V191)));          V202= list(6,VV[62],VV[63],/* INLINE-ARGS */V200,VV[65],/* INLINE-ARGS */V201,make_cons(VV[44],(V198)));
1251          V196= make_cons(/* INLINE-ARGS */V195,Cnil);          V203= make_cons(/* INLINE-ARGS */V202,Cnil);
1252          base[6]= listA(3,VV[24],/* INLINE-ARGS */V192,append((V190),/* INLINE-ARGS */V196));          base[6]= listA(3,VV[24],/* INLINE-ARGS */V199,append((V197),/* INLINE-ARGS */V203));
1253          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1254          return;}          return;}
1255  }  }
# Line 1254  static void L29() Line 1261  static void L29()
1261          vs_check;          vs_check;
1262          check_arg(2);          check_arg(2);
1263          vs_top=sup;          vs_top=sup;
1264          {object V197=base[0]->c.c_cdr;          {object V204=base[0]->c.c_cdr;
1265          if(endp(V197))invalid_macro_call();          if(endp(V204))invalid_macro_call();
1266          base[2]= (V197->c.c_car);          base[2]= (V204->c.c_car);
1267          V197=V197->c.c_cdr;          V204=V204->c.c_cdr;
1268          if(endp(V197))invalid_macro_call();          if(endp(V204))invalid_macro_call();
1269          base[3]= (V197->c.c_car);          base[3]= (V204->c.c_car);
1270          V197=V197->c.c_cdr;          V204=V204->c.c_cdr;
1271          base[4]= V197;}          base[4]= V204;}
1272          base[5]= list(4,VV[16],base[2],base[3],make_cons(VV[44],base[4]));          base[5]= list(4,VV[16],base[2],base[3],make_cons(VV[44],base[4]));
1273          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1274          return;          return;
# Line 1274  static void L30() Line 1281  static void L30()
1281          vs_check;          vs_check;
1282          check_arg(2);          check_arg(2);
1283          vs_top=sup;          vs_top=sup;
1284          {object V198=base[0]->c.c_cdr;          {object V205=base[0]->c.c_cdr;
1285          if(endp(V198))invalid_macro_call();          if(endp(V205))invalid_macro_call();
1286          {object V199= (V198->c.c_car);          {object V206= (V205->c.c_car);
1287          if(endp(V199))invalid_macro_call();          if(endp(V206))invalid_macro_call();
1288          base[2]= (V199->c.c_car);          base[2]= (V206->c.c_car);
1289          V199=V199->c.c_cdr;          V206=V206->c.c_cdr;
1290          if(endp(V199))invalid_macro_call();          if(endp(V206))invalid_macro_call();
1291          base[3]= (V199->c.c_car);          base[3]= (V206->c.c_car);
1292          V199=V199->c.c_cdr;          V206=V206->c.c_cdr;
1293          if(endp(V199))invalid_macro_call();          if(endp(V206))invalid_macro_call();
1294          base[4]= (V199->c.c_car);          base[4]= (V206->c.c_car);
1295          V199=V199->c.c_cdr;          V206=V206->c.c_cdr;
1296          if(!endp(V199))invalid_macro_call();}          if(!endp(V206))invalid_macro_call();}
1297          V198=V198->c.c_cdr;          V205=V205->c.c_cdr;
1298          base[5]= V198;}          base[5]= V205;}
1299          V200= list(2,base[2],Cnil);          V207= list(2,base[2],Cnil);
1300          V201= list(2,/* INLINE-ARGS */V200,list(2,VV[67],base[3]));          V208= list(2,/* INLINE-ARGS */V207,list(2,VV[67],base[3]));
1301          V202= listA(3,VV[44],list(3,VV[50],base[2],VV[70]),base[5]);          V209= listA(3,VV[44],list(3,VV[50],base[2],VV[70]),base[5]);
1302          base[6]= list(3,VV[24],/* INLINE-ARGS */V201,list(3,VV[62],VV[68],list(4,VV[16],VV[69],/* INLINE-ARGS */V202,make_cons(base[4],Cnil))));          base[6]= list(3,VV[24],/* INLINE-ARGS */V208,list(3,VV[62],VV[68],list(4,VV[16],VV[69],/* INLINE-ARGS */V209,make_cons(base[4],Cnil))));
1303          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1304          return;          return;
1305  }  }
# Line 1304  static void L31() Line 1311  static void L31()
1311          vs_check;          vs_check;
1312          check_arg(2);          check_arg(2);
1313          vs_top=sup;          vs_top=sup;
1314          {object V203=base[0]->c.c_cdr;          {object V210=base[0]->c.c_cdr;
1315          if(endp(V203))invalid_macro_call();          if(endp(V210))invalid_macro_call();
1316          {object V204= (V203->c.c_car);          {object V211= (V210->c.c_car);
1317          if(endp(V204))invalid_macro_call();          if(endp(V211))invalid_macro_call();
1318          base[2]= (V204->c.c_car);          base[2]= (V211->c.c_car);
1319          V204=V204->c.c_cdr;          V211=V211->c.c_cdr;
1320          if(endp(V204))invalid_macro_call();          if(endp(V211))invalid_macro_call();
1321          base[3]= (V204->c.c_car);          base[3]= (V211->c.c_car);
1322          V204=V204->c.c_cdr;          V211=V211->c.c_cdr;
1323          if(!endp(V204))invalid_macro_call();}          if(!endp(V211))invalid_macro_call();}
1324          V203=V203->c.c_cdr;          V210=V210->c.c_cdr;
1325          base[4]= V203;}          base[4]= V210;}
1326          {register object V205;          {register object V212;
1327          register object V206;          register object V213;
1328          object V207;          object V214;
1329          V205= Cnil;          V212= Cnil;
1330          V206= Cnil;          V213= Cnil;
1331          {object V208;          {object V215;
1332          register object V209;          register object V216;
1333          if(type_of(base[2])==t_symbol){          if(type_of(base[2])==t_symbol){
1334          goto T361;}          goto T361;}
1335          if(type_of(base[2])==t_fixnum||          if(type_of(base[2])==t_fixnum||
# Line 1334  type_of(base[2])==t_complex){ Line 1341  type_of(base[2])==t_complex){
1341          goto T361;}          goto T361;}
1342          if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){          if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){
1343          goto T362;}          goto T362;}
1344          {register object x= CMPcar(base[2]),V210= VV[38];          {register object x= CMPcar(base[2]),V217= VV[38];
1345          while(V210!=Cnil)          while(V217!=Cnil)
1346          if(eql(x,V210->c.c_car)){          if(eql(x,V217->c.c_car)){
1347          goto T369;          goto T369;
1348          }else V210=V210->c.c_cdr;          }else V217=V217->c.c_cdr;
1349          goto T362;}          goto T362;}
1350          goto T369;          goto T369;
1351  T369:;  T369:;
1352          goto T361;          goto T361;
1353  T361:;  T361:;
1354          V208= base[2];          V215= base[2];
1355          goto T360;          goto T360;
1356          goto T362;          goto T362;
1357  T362:;  T362:;
1358          {object V211;          {object V218;
1359          vs_base=vs_top;          vs_base=vs_top;
1360          Lgensym();          Lgensym();
1361          vs_top=sup;          vs_top=sup;
1362          V211= vs_base[0];          V218= vs_base[0];
1363          V205= make_cons(V211,(V205));          V212= make_cons(V218,(V212));
1364          V206= make_cons(base[2],(V206));          V213= make_cons(base[2],(V213));
1365          V208= (V211);}          V215= (V218);}
1366          goto T360;          goto T360;
1367  T360:;  T360:;
1368          if(type_of(base[3])==t_symbol){          if(type_of(base[3])==t_symbol){
# Line 1369  type_of(base[3])==t_complex){ Line 1376  type_of(base[3])==t_complex){
1376          goto T376;}          goto T376;}
1377          if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){          if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){
1378          goto T377;}          goto T377;}
1379          {register object x= CMPcar(base[3]),V214= VV[38];          {register object x= CMPcar(base[3]),V221= VV[38];
1380          while(V214!=Cnil)          while(V221!=Cnil)
1381          if(eql(x,V214->c.c_car)){          if(eql(x,V221->c.c_car)){
1382          goto T384;          goto T384;
1383          }else V214=V214->c.c_cdr;          }else V221=V221->c.c_cdr;
1384          goto T377;}          goto T377;}
1385          goto T384;          goto T384;
1386  T384:;  T384:;
1387          goto T376;          goto T376;
1388  T376:;  T376:;
1389          V209= base[3];          V216= base[3];
1390          goto T375;          goto T375;
1391          goto T377;          goto T377;
1392  T377:;  T377:;
1393          {object V215;          {object V222;
1394          vs_base=vs_top;          vs_base=vs_top;
1395          Lgensym();          Lgensym();
1396          vs_top=sup;          vs_top=sup;
1397          V215= vs_base[0];          V222= vs_base[0];
1398          V205= make_cons(V215,(V205));          V212= make_cons(V222,(V212));
1399          V206= make_cons(base[3],(V206));          V213= make_cons(base[3],(V213));
1400          V209= (V215);}          V216= (V222);}
1401          goto T375;          goto T375;
1402  T375:;  T375:;
1403          V218= list(3,VV[71],(V209),VV[72]);          V225= list(3,VV[71],(V216),VV[72]);
1404          V219= list(3,VV[71],(V209),VV[73]);          V226= list(3,VV[71],(V216),VV[73]);
1405          V220= list(3,VV[74],(V208),(V209));          V227= list(3,VV[74],(V215),(V216));
1406          V221= list(3,/* INLINE-ARGS */V219,/* INLINE-ARGS */V220,list(3,VV[71],(V209),VV[75]));          V228= list(3,/* INLINE-ARGS */V226,/* INLINE-ARGS */V227,list(3,VV[71],(V216),VV[75]));
1407          V207= listA(3,VV[44],/* INLINE-ARGS */V218,append(base[4],/* INLINE-ARGS */V221));}          V214= listA(3,VV[44],/* INLINE-ARGS */V225,append(base[4],/* INLINE-ARGS */V228));}
1408          V226= reverse((V205));          V233= reverse((V212));
1409          V227= reverse((V206));          V234= reverse((V213));
1410          {object V223;          {object V230;
1411          object V224= /* INLINE-ARGS */V226;          object V231= /* INLINE-ARGS */V233;
1412          object V225= /* INLINE-ARGS */V227;          object V232= /* INLINE-ARGS */V234;
1413          if(V224==Cnil||V225==Cnil){          if(V231==Cnil||V232==Cnil){
1414          V222= Cnil;          V229= Cnil;
1415          goto T390;}          goto T390;}
1416          base[6]=V223=MMcons(Cnil,Cnil);          base[6]=V230=MMcons(Cnil,Cnil);
1417          goto T391;          goto T391;
1418  T391:;  T391:;
1419          (V223->c.c_car)= list(2,(V224->c.c_car),(V225->c.c_car));          (V230->c.c_car)= list(2,(V231->c.c_car),(V232->c.c_car));
1420          if((V224=MMcdr(V224))==Cnil||(V225=MMcdr(V225))==Cnil){          if((V231=MMcdr(V231))==Cnil||(V232=MMcdr(V232))==Cnil){
1421          V222= base[6];          V229= base[6];
1422          goto T390;}          goto T390;}
1423          V223=MMcdr(V223)=MMcons(Cnil,Cnil);          V230=MMcdr(V230)=MMcons(Cnil,Cnil);
1424          goto T391;}          goto T391;}
1425          goto T390;          goto T390;
1426  T390:;  T390:;
1427          base[6]= list(3,VV[24],V222,(V207));          V235 = (V214);
1428            base[6]= list(3,VV[24],V229,V235);
1429          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1430          return;}          return;}
1431  }  }
1432  /*      local entry for function PRINTING-RANDOM-THING-INTERNAL */  /*      local entry for function PRINTING-RANDOM-THING-INTERNAL */
1433    
1434  static object LI32(V230,V231)  static object LI32(V238,V239)
1435    
1436  object V230;object V231;  object V238;object V239;
1437  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1438          goto TTL;          goto TTL;
1439  TTL:;  TTL:;
1440          {object V232 = Cnil;          {object V240 = Cnil;
1441          VMR31(V232)}          VMR31(V240)}
1442          return Cnil;          return Cnil;
1443  }  }
1444  /*      local entry for function CAPITALIZE-WORDS       */  /*      local entry for function CAPITALIZE-WORDS       */
1445    
1446  static object LI33(object V233,object first,...)  static object LI33(object V241,object first,...)
1447  {        {      
1448          va_list ap;          va_list ap;
1449          int narg = VFUN_NARGS; VMB32 VMS32 VMV32          int narg = VFUN_NARGS; VMB32 VMS32 VMV32
1450          {object V234;          {object V242;
1451          register object V235;          register object V243;
1452          va_start(ap,first);          va_start(ap,first);
1453          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1454          V234= V233;          V242= V241;
1455          narg = narg - 1;          narg = narg - 1;
1456          if (narg <= 0) goto T393;          if (narg <= 0) goto T393;
1457          else {          else {
1458          V235= first;}          V243= first;}
1459          --narg; goto T394;          --narg; goto T394;
1460          goto T393;          goto T393;
1461  T393:;  T393:;
1462          V235= Ct;          V243= Ct;
1463          goto T394;          goto T394;
1464  T394:;  T394:;
1465          {register object V236;          {register object V244;
1466          base[0]= coerce_to_string((V234));          base[0]= coerce_to_string((V242));
1467          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1468          Lcopy_seq();          Lcopy_seq();
1469          vs_top=sup;          vs_top=sup;
1470          V236= vs_base[0];          V244= vs_base[0];
1471          {register object V237;          {register object V245;
1472          register object V238;          register object V246;
1473          register object V239;          register object V247;
1474          register object V240;          register object V248;
1475          V237= Ct;          V245= Ct;
1476          V238= CMPmake_fixnum((long)((V236))->v.v_fillp);          V246= CMPmake_fixnum((long)((V244))->v.v_fillp);
1477          V239= Cnil;          V247= Cnil;
1478          V240= small_fixnum(0);          V248= small_fixnum(0);
1479          goto T403;          goto T403;
1480  T403:;  T403:;
1481          if(!(number_compare((V240),(V238))==0)){          if(!(number_compare((V248),(V246))==0)){
1482          goto T404;}          goto T404;}
1483          {object V241 = (V236);          {object V249 = (V244);
1484          VMR32(V241)}          VMR32(V249)}
1485          goto T404;          goto T404;
1486  T404:;  T404:;
1487          V239= elt((V236),fix((V240)));          V247= elt((V244),fix((V248)));
1488          base[1]= (V239);          base[1]= (V247);
1489          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1490          Lboth_case_p();          Lboth_case_p();
1491          vs_top=sup;          vs_top=sup;
1492          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1493          goto T412;}          goto T412;}
1494          if(((V237))==Cnil){          if(((V245))==Cnil){
1495          goto T417;}          goto T417;}
1496          base[1]= (V239);          base[1]= (V247);
1497          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1498          Llower_case_p();          Llower_case_p();
1499          vs_top=sup;          vs_top=sup;
1500          V237= vs_base[0];          V245= vs_base[0];
1501          if(((V237))!=Cnil){          if(((V245))!=Cnil){
1502          goto T419;}          goto T419;}
1503          goto T415;          goto T415;
1504          goto T419;          goto T419;
1505  T419:;  T419:;
1506          base[1]= (V239);          V250 = (V244);
1507            V251 = (V248);
1508            base[1]= (V247);
1509          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1510          Lchar_upcase();          Lchar_upcase();
1511          vs_top=sup;          vs_top=sup;
1512          V242= vs_base[0];          V252= vs_base[0];
1513          (void)(elt_set((V236),fix((V240)),V242));          (void)(elt_set(V250,fix(V251),V252));
1514          goto T415;          goto T415;
1515          goto T417;          goto T417;
1516  T417:;  T417:;
1517          if(((V237))==Cnil){          if(((V245))==Cnil){
1518          goto T425;}          goto T425;}
1519          goto T415;          goto T415;
1520          goto T425;          goto T425;
1521  T425:;  T425:;
1522          base[1]= (V239);          V253 = (V244);
1523            V254 = (V248);
1524            base[1]= (V247);
1525          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1526          Lchar_downcase();          Lchar_downcase();
1527          vs_top=sup;          vs_top=sup;
1528          V243= vs_base[0];          V255= vs_base[0];
1529          (void)(elt_set((V236),fix((V240)),V243));          (void)(elt_set(V253,fix(V254),V255));
1530          goto T415;          goto T415;
1531  T415:;  T415:;
1532          V237= Cnil;          V245= Cnil;
1533          goto T410;          goto T410;
1534          goto T412;          goto T412;
1535  T412:;  T412:;
1536          base[1]= (V239);          base[1]= (V247);
1537          base[2]= VV[76];          base[2]= VV[76];
1538          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1539          Lchar_equal();          Lchar_equal();
1540          vs_top=sup;          vs_top=sup;
1541          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1542          goto T431;}          goto T431;}
1543          V237= Ct;          V245= Ct;
1544          if(((V235))!=Cnil){          if(((V243))!=Cnil){
1545          goto T410;}          goto T410;}
1546          (void)(elt_set((V236),fix((V240)),VV[77]));          (void)(elt_set((V244),fix((V248)),VV[77]));
1547          goto T410;          goto T410;
1548          goto T431;          goto T431;
1549  T431:;  T431:;
1550          V237= Cnil;          V245= Cnil;
1551          goto T410;          goto T410;
1552  T410:;  T410:;
1553          V240= number_plus((V240),small_fixnum(1));          V248= number_plus((V248),small_fixnum(1));
1554          goto T403;}}          goto T403;}}
1555          va_end(ap);          va_end(ap);
1556          base[0]=base[0];          base[0]=base[0];
# Line 1552  static void L34() Line 1564  static void L34()
1564          vs_check;          vs_check;
1565          check_arg(2);          check_arg(2);
1566          vs_top=sup;          vs_top=sup;
1567          {object V244=base[0]->c.c_cdr;          {object V256=base[0]->c.c_cdr;
1568          if(endp(V244))invalid_macro_call();          if(endp(V256))invalid_macro_call();
1569          base[2]= (V244->c.c_car);          base[2]= (V256->c.c_car);
1570          V244=V244->c.c_cdr;          V256=V256->c.c_cdr;
1571          if(endp(V244))invalid_macro_call();          if(endp(V256))invalid_macro_call();
1572          base[3]= (V244->c.c_car);          base[3]= (V256->c.c_car);
1573          V244=V244->c.c_cdr;          V256=V256->c.c_cdr;
1574          base[4]= V244;}          base[4]= V256;}
1575          base[5]= listA(4,VV[78],base[2],base[3],base[4]);          base[5]= listA(4,VV[78],base[2],base[3],base[4]);
1576          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1577          return;          return;
1578  }  }
1579  /*      local entry for function MAKE-CONSTANT-FUNCTION */  /*      local entry for function MAKE-CONSTANT-FUNCTION */
1580    
1581  static object LI36(V246)  static object LI36(V258)
1582    
1583  object V246;  object V258;
1584  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
1585          goto TTL;          goto TTL;
1586  TTL:;  TTL:;
1587          base[0]=MMcons((V246),Cnil);          base[0]=MMcons((V258),Cnil);
1588          {object V247 =          {object V259 =
1589          make_cclosure_new(LC65,Cnil,base[0],Cdata);          make_cclosure_new(LC65,Cnil,base[0],Cdata);
1590          VMR34(V247)}          VMR34(V259)}
1591          base[0]=base[0];          base[0]=base[0];
1592          return Cnil;          return Cnil;
1593  }  }
1594  /*      local entry for function FUNCTION-RETURNING-NIL */  /*      local entry for function FUNCTION-RETURNING-NIL */
1595    
1596  static object LI37(V249)  static object LI37(V261)
1597    
1598  object V249;  object V261;
1599  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
1600          goto TTL;          goto TTL;
1601  TTL:;  TTL:;
1602          {object V250 = Cnil;          {object V262 = Cnil;
1603          VMR35(V250)}          VMR35(V262)}
1604          return Cnil;          return Cnil;
1605  }  }
1606  /*      local entry for function FUNCTION-RETURNING-T   */  /*      local entry for function FUNCTION-RETURNING-T   */
1607    
1608  static object LI38(V252)  static object LI38(V264)
1609    
1610  object V252;  object V264;
1611  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
1612          goto TTL;          goto TTL;
1613  TTL:;  TTL:;
1614          {object V253 = Ct;          {object V265 = Ct;
1615          VMR36(V253)}          VMR36(V265)}
1616          return Cnil;          return Cnil;
1617  }  }
1618  /*      macro definition for FIND-CLASS-CELL-CLASS      */  /*      macro definition for FIND-CLASS-CELL-CLASS      */
# Line 1611  static void L39() Line 1623  static void L39()
1623          vs_check;          vs_check;
1624          check_arg(2);          check_arg(2);
1625          vs_top=sup;          vs_top=sup;
1626          {object V254=base[0]->c.c_cdr;          {object V266=base[0]->c.c_cdr;
1627          if(endp(V254))invalid_macro_call();          if(endp(V266))invalid_macro_call();
1628          base[2]= (V254->c.c_car);          base[2]= (V266->c.c_car);
1629          V254=V254->c.c_cdr;          V266=V266->c.c_cdr;
1630          if(!endp(V254))invalid_macro_call();}          if(!endp(V266))invalid_macro_call();}
1631          base[3]= list(2,VV[22],base[2]);          base[3]= list(2,VV[22],base[2]);
1632          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1633          return;          return;
# Line 1628  static void L40() Line 1640  static void L40()
1640          vs_check;          vs_check;
1641          check_arg(2);          check_arg(2);
1642          vs_top=sup;          vs_top=sup;
1643          {object V255=base[0]->c.c_cdr;          {object V267=base[0]->c.c_cdr;
1644          if(endp(V255))invalid_macro_call();          if(endp(V267))invalid_macro_call();
1645          base[2]= (V255->c.c_car);          base[2]= (V267->c.c_car);
1646          V255=V255->c.c_cdr;          V267=V267->c.c_cdr;
1647          if(!endp(V255))invalid_macro_call();}          if(!endp(V267))invalid_macro_call();}
1648          base[3]= list(2,VV[79],base[2]);          base[3]= list(2,VV[79],base[2]);
1649          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1650          return;          return;
# Line 1645  static void L41() Line 1657  static void L41()
1657          vs_check;          vs_check;
1658          check_arg(2);          check_arg(2);
1659          vs_top=sup;          vs_top=sup;
1660          {object V256=base[0]->c.c_cdr;          {object V268=base[0]->c.c_cdr;
1661          if(endp(V256))invalid_macro_call();          if(endp(V268))invalid_macro_call();
1662          base[2]= (V256->c.c_car);          base[2]= (V268->c.c_car);
1663          V256=V256->c.c_cdr;          V268=V268->c.c_cdr;
1664          if(!endp(V256))invalid_macro_call();}          if(!endp(V268))invalid_macro_call();}
1665          base[3]= list(2,VV[80],base[2]);          base[3]= list(2,VV[80],base[2]);
1666          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1667          return;          return;
# Line 1662  static void L42() Line 1674  static void L42()
1674          vs_check;          vs_check;
1675          check_arg(2);          check_arg(2);
1676          vs_top=sup;          vs_top=sup;
1677          {object V257=base[0]->c.c_cdr;          {object V269=base[0]->c.c_cdr;
1678          if(endp(V257))invalid_macro_call();          if(endp(V269))invalid_macro_call();
1679          base[2]= (V257->c.c_car);          base[2]= (V269->c.c_car);
1680          V257=V257->c.c_cdr;          V269=V269->c.c_cdr;
1681          if(!endp(V257))invalid_macro_call();}          if(!endp(V269))invalid_macro_call();}
1682          base[3]= VV[81];          base[3]= VV[81];
1683          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1684          return;          return;
1685  }  }
1686  /*      local entry for function FIND-CLASS-CELL        */  /*      local entry for function FIND-CLASS-CELL        */
1687    
1688  static object LI43(object V258,object first,...)  static object LI43(object V270,object first,...)
1689  {        {      
1690          va_list ap;          va_list ap;
1691          int narg = VFUN_NARGS; VMB41 VMS41 VMV41          int narg = VFUN_NARGS; VMB41 VMS41 VMV41
1692          {register object V259;          {register object V271;
1693          object V260;          object V272;
1694          va_start(ap,first);          va_start(ap,first);
1695          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1696          V259= V258;          V271= V270;
1697          narg = narg - 1;          narg = narg - 1;
1698          if (narg <= 0) goto T449;          if (narg <= 0) goto T449;
1699          else {          else {
1700          V260= first;}          V272= first;}
1701          --narg; goto T450;          --narg; goto T450;
1702          goto T449;          goto T449;
1703  T449:;  T449:;
1704          V260= Cnil;          V272= Cnil;
1705          goto T450;          goto T450;
1706  T450:;{object V261;  T450:;{object V273;
1707          base[0]= (V259);          base[0]= (V271);
1708          base[1]= (VV[82]->s.s_dbind);          base[1]= (VV[82]->s.s_dbind);
1709          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1710          Lgethash();          Lgethash();
1711          vs_top=sup;          vs_top=sup;
1712          V261= vs_base[0];          V273= vs_base[0];
1713          if(V261==Cnil)goto T452;          if(V273==Cnil)goto T452;
1714          {object V262 = V261;          {object V274 = V273;
1715          VMR41(V262)}          VMR41(V274)}
1716          goto T452;          goto T452;
1717  T452:;}  T452:;}
1718          if(((V260))!=Cnil){          if(((V272))!=Cnil){
1719          goto T457;}          goto T457;}
1720          if(((*(LnkLI140))((V259)))!=Cnil){          if(((*(LnkLI140))((V271)))!=Cnil){
1721          goto T459;}          goto T459;}
1722          base[0]= VV[83];          base[0]= VV[83];
1723          base[1]= (V259);          base[1]= (V271);
1724          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1725          Lerror();          Lerror();
1726          vs_top=sup;          vs_top=sup;
1727          goto T459;          goto T459;
1728  T459:;  T459:;
1729          {object V264;          {object V276;
1730          object V265;          object V277;
1731          V264= (VV[82]->s.s_dbind);          V276= (VV[82]->s.s_dbind);
1732          V266= (VV[141]->s.s_gfdef);          V278= (VV[141]->s.s_gfdef);
1733          V265= listA(3,Cnil,V266,Cnil);          V277= listA(3,Cnil,V278,Cnil);
1734          base[1]= V259;          base[1]= V271;
1735          base[2]= (V264);          base[2]= (V276);
1736          base[3]= (V265);          base[3]= (V277);
1737          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1738          siLhash_set();          siLhash_set();
1739          vs_top=sup;          vs_top=sup;
1740          {object V267 = vs_base[0];          {object V279 = vs_base[0];
1741          VMR41(V267)}}          VMR41(V279)}}
1742          goto T457;          goto T457;
1743  T457:;  T457:;
1744          {object V268 = Cnil;          {object V280 = Cnil;
1745          VMR41(V268)}          VMR41(V280)}
1746          va_end(ap);          va_end(ap);
1747          base[0]=base[0];          base[0]=base[0];
1748          return Cnil;}          return Cnil;}
1749          }          }
1750  /*      local entry for function FIND-CLASS-FROM-CELL   */  /*      local entry for function FIND-CLASS-FROM-CELL   */
1751    
1752  static object LI44(object V270,object V269,object first,...)  static object LI44(object V282,object V281,object first,...)
1753  {        {      
1754          va_list ap;          va_list ap;
1755          int narg = VFUN_NARGS; VMB42 VMS42 VMV42          int narg = VFUN_NARGS; VMB42 VMS42 VMV42
1756          {register object V271;          {register object V283;
1757          object V272;          object V284;
1758          object V273;          object V285;
1759          va_start(ap,first);          va_start(ap,first);
1760          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1761          V271= V270;          V283= V282;
1762          V272= V269;          V284= V281;
1763          narg = narg - 2;          narg = narg - 2;
1764          if (narg <= 0) goto T470;          if (narg <= 0) goto T470;
1765          else {          else {
1766          V273= first;}          V285= first;}
1767          --narg; goto T471;          --narg; goto T471;
1768          goto T470;          goto T470;
1769  T470:;  T470:;
1770          V273= Ct;          V285= Ct;
1771          goto T471;          goto T471;
1772  T471:;{object V274;  T471:;{object V286;
1773          V274= CMPcar((V272));          V286= CMPcar((V284));
1774          if(V274==Cnil)goto T473;          if(V286==Cnil)goto T473;
1775          {object V275 = V274;          {object V287 = V286;
1776          VMR42(V275)}          VMR42(V287)}
1777          goto T473;          goto T473;
1778  T473:;}{object V276;  T473:;}{object V288;
1779          if((VV[84]->s.s_dbind)==Cnil){          if((VV[84]->s.s_dbind)==Cnil){
1780          V276= Cnil;          V288= Cnil;
1781          goto T476;}          goto T476;}
1782          if(((*(LnkLI142))((V271)))!=Cnil){          if(((*(LnkLI142))((V283)))!=Cnil){
1783          goto T477;}          goto T477;}
1784          V276= Cnil;          V288= Cnil;
1785          goto T476;          goto T476;
1786          goto T477;          goto T477;
1787  T477:;  T477:;
1788          base[0]= (V271);          base[0]= (V283);
1789          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1790          (void) (*Lnk143)();          (void) (*Lnk143)();
1791          vs_top=sup;          vs_top=sup;
1792          V276= vs_base[0];          V288= vs_base[0];
1793          goto T476;          goto T476;
1794  T476:;  T476:;
1795          if(V276==Cnil)goto T475;          if(V288==Cnil)goto T475;
1796          {object V277 = V276;          {object V289 = V288;
1797          VMR42(V277)}          VMR42(V289)}
1798          goto T475;          goto T475;
1799  T475:;}  T475:;}
1800          if(((V273))!=Cnil){          if(((V285))!=Cnil){
1801          goto T481;}          goto T481;}
1802          {object V278 = Cnil;          {object V290 = Cnil;
1803          VMR42(V278)}          VMR42(V290)}
1804          goto T481;          goto T481;
1805  T481:;  T481:;
1806          if(((*(LnkLI140))((V271)))==Cnil){          if(((*(LnkLI140))((V283)))==Cnil){
1807          goto T484;}          goto T484;}
1808          base[0]= VV[85];          base[0]= VV[85];
1809          base[1]= (V271);          base[1]= (V283);
1810          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1811          Lerror();          Lerror();
1812          vs_top=sup;          vs_top=sup;
1813          {object V279 = vs_base[0];          {object V291 = vs_base[0];
1814          VMR42(V279)}          VMR42(V291)}
1815          goto T484;          goto T484;
1816  T484:;  T484:;
1817          base[0]= VV[86];          base[0]= VV[86];
1818          base[1]= (V271);          base[1]= (V283);
1819          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1820          Lerror();          Lerror();
1821          vs_top=sup;          vs_top=sup;
1822          {object V280 = vs_base[0];          {object V292 = vs_base[0];
1823          VMR42(V280)}          VMR42(V292)}
1824          va_end(ap);          va_end(ap);
1825          base[0]=base[0];          base[0]=base[0];
1826          return Cnil;}          return Cnil;}
1827          }          }
1828  /*      local entry for function FIND-CLASS-PREDICATE-FROM-CELL */  /*      local entry for function FIND-CLASS-PREDICATE-FROM-CELL */
1829    
1830  static object LI45(object V282,object V281,object first,...)  static object LI45(object V294,object V293,object first,...)
1831  {        {      
1832          va_list ap;          va_list ap;
1833          int narg = VFUN_NARGS; VMB43 VMS43 VMV43          int narg = VFUN_NARGS; VMB43 VMS43 VMV43
1834          {object V283;          {object V295;
1835          object V284;          object V296;
1836          object V285;          object V297;
1837          va_start(ap,first);          va_start(ap,first);
1838          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1839          V283= V282;          V295= V294;
1840          V284= V281;          V296= V293;
1841          narg = narg - 2;          narg = narg - 2;
1842          if (narg <= 0) goto T490;          if (narg <= 0) goto T490;
1843          else {          else {
1844          V285= first;}          V297= first;}
1845          --narg; goto T491;          --narg; goto T491;
1846          goto T490;          goto T490;
1847  T490:;  T490:;
1848          V285= Ct;          V297= Ct;
1849          goto T491;          goto T491;
1850  T491:;  T491:;
1851          if((CMPcar((V284)))!=Cnil){          if((CMPcar((V296)))!=Cnil){
1852          goto T493;}          goto T493;}
1853          (void)((VFUN_NARGS=3,(*(LnkLI144))((V283),(V284),(V285))));          (void)((VFUN_NARGS=3,(*(LnkLI144))((V295),(V296),(V297))));
1854          goto T493;          goto T493;
1855  T493:;  T493:;
1856          {object V286 = CMPcadr((V284));          {object V298 = CMPcadr((V296));
1857          VMR43(V286)}          VMR43(V298)}
1858          va_end(ap);          va_end(ap);
1859          return Cnil;}          return Cnil;}
1860          }          }
1861  /*      local entry for function LEGAL-CLASS-NAME-P     */  /*      local entry for function LEGAL-CLASS-NAME-P     */
1862    
1863  static object LI46(V288)  static object LI46(V300)
1864    
1865  object V288;  object V300;
1866  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
1867          goto TTL;          goto TTL;
1868  TTL:;  TTL:;
1869          if(type_of((V288))==t_symbol){          if(type_of((V300))==t_symbol){
1870          goto T496;}          goto T496;}
1871          {object V289 = Cnil;          {object V301 = Cnil;
1872          VMR44(V289)}          VMR44(V301)}
1873          goto T496;          goto T496;
1874  T496:;  T496:;
1875          {object V290 = ((((type_of((V288))==t_symbol&&((V288))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil?Ct:Cnil);          {object V302 = ((((type_of((V300))==t_symbol&&((V300))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil?Ct:Cnil);
1876          VMR44(V290)}          VMR44(V302)}
1877          return Cnil;          return Cnil;
1878  }  }
1879  /*      local entry for function FIND-CLASS     */  /*      local entry for function FIND-CLASS     */
1880    
1881  static object LI47(object V291,object first,...)  static object LI47(object V303,object first,...)
1882  {        {      
1883          va_list ap;          va_list ap;
1884          int narg = VFUN_NARGS; VMB45 VMS45 VMV45          int narg = VFUN_NARGS; VMB45 VMS45 VMV45
1885          {object V292;          {object V304;
1886          object V293;          object V305;
1887          object V294;          object V306;
1888          va_start(ap,first);          va_start(ap,first);
1889          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1890          V292= V291;          V304= V303;
1891          narg = narg - 1;          narg = narg - 1;
1892          if (narg <= 0) goto T498;          if (narg <= 0) goto T498;
1893          else {          else {
1894          V293= first;}          V305= first;}
1895          if (--narg <= 0) goto T499;          if (--narg <= 0) goto T499;
1896          else {          else {
1897          V294= va_arg(ap,object);}          V306= va_arg(ap,object);}
1898          --narg; goto T500;          --narg; goto T500;
1899          goto T498;          goto T498;
1900  T498:;  T498:;
1901          V293= Ct;          V305= Ct;
1902          goto T499;          goto T499;
1903  T499:;  T499:;
1904          V294= Cnil;          V306= Cnil;
1905          goto T500;          goto T500;
1906  T500:;  T500:;
1907          V295= (VFUN_NARGS=2,(*(LnkLI145))((V292),(V293)));          V307 = (V304);
1908          {object V296 = (VFUN_NARGS=3,(*(LnkLI144))((V292),/* INLINE-ARGS */V295,(V293)));          V308= (VFUN_NARGS=2,(*(LnkLI145))((V304),(V305)));
1909          VMR45(V296)}          V309 = (V305);
1910            {object V310 = (VFUN_NARGS=3,(*(LnkLI144))(V307,/* INLINE-ARGS */V308,V309));
1911            VMR45(V310)}
1912          va_end(ap);          va_end(ap);
1913          return Cnil;}          return Cnil;}
1914          }          }
1915  /*      local entry for function FIND-CLASS-PREDICATE   */  /*      local entry for function FIND-CLASS-PREDICATE   */
1916    
1917  static object LI48(object V297,object first,...)  static object LI48(object V311,object first,...)
1918  {        {      
1919          va_list ap;          va_list ap;
1920          int narg = VFUN_NARGS; VMB46 VMS46 VMV46          int narg = VFUN_NARGS; VMB46 VMS46 VMV46
1921          {object V298;          {object V312;
1922          object V299;          object V313;
1923          object V300;          object V314;
1924          va_start(ap,first);          va_start(ap,first);
1925          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1926          V298= V297;          V312= V311;
1927          narg = narg - 1;          narg = narg - 1;
1928          if (narg <= 0) goto T503;          if (narg <= 0) goto T503;
1929          else {          else {
1930          V299= first;}          V313= first;}
1931          if (--narg <= 0) goto T504;          if (--narg <= 0) goto T504;
1932          else {          else {
1933          V300= va_arg(ap,object);}          V314= va_arg(ap,object);}
1934          --narg; goto T505;          --narg; goto T505;
1935          goto T503;          goto T503;
1936  T503:;  T503:;
1937          V299= Ct;          V313= Ct;
1938          goto T504;          goto T504;
1939  T504:;  T504:;
1940          V300= Cnil;          V314= Cnil;
1941          goto T505;          goto T505;
1942  T505:;  T505:;
1943          V301= (VFUN_NARGS=2,(*(LnkLI145))((V298),(V299)));          V315 = (V312);
1944          {object V302 = (VFUN_NARGS=3,(*(LnkLI146))((V298),/* INLINE-ARGS */V301,(V299)));          V316= (VFUN_NARGS=2,(*(LnkLI145))((V312),(V313)));
1945          VMR46(V302)}          V317 = (V313);
1946            {object V318 = (VFUN_NARGS=3,(*(LnkLI146))(V315,/* INLINE-ARGS */V316,V317));
1947            VMR46(V318)}
1948          va_end(ap);          va_end(ap);
1949          return Cnil;}          return Cnil;}
1950          }          }
1951  /*      local entry for function SETF PCL FIND-CLASS    */  /*      local entry for function SETF PCL FIND-CLASS    */
1952    
1953  static object LI49(V305,V306)  static object LI49(V321,V322)
1954    
1955  register object V305;object V306;  register object V321;object V322;
1956  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
1957          goto TTL;          goto TTL;
1958  TTL:;  TTL:;
1959          if(((*(LnkLI140))((V306)))==Cnil){          if(((*(LnkLI140))((V322)))==Cnil){
1960          goto T509;}          goto T509;}
1961          {object V307;          {object V323;
1962          V307= (VFUN_NARGS=1,(*(LnkLI145))((V306)));          V323= (VFUN_NARGS=1,(*(LnkLI145))((V322)));
1963          (V307)->c.c_car = V305;          (V323)->c.c_car = V321;
1964          if(((VV[87]->s.s_dbind))==(VV[88])){          if(((VV[87]->s.s_dbind))==(VV[88])){
1965          goto T514;}          goto T514;}
1966          if(!(((VV[87]->s.s_dbind))==(VV[89]))){          if(!(((VV[87]->s.s_dbind))==(VV[89]))){
1967          goto T515;}          goto T515;}
1968          goto T514;          goto T514;
1969  T514:;  T514:;
1970          {object V311;          {object V327;
1971          base[2]= (V305);          base[2]= (V321);
1972          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1973          (void) (*Lnk147)(Lclptr147);          (void) (*Lnk147)(Lclptr147);
1974          vs_top=sup;          vs_top=sup;
# Line 1960  T514:; Line 1976  T514:;
1976          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1977          Lsymbol_function();          Lsymbol_function();
1978          vs_top=sup;          vs_top=sup;
1979          V311= vs_base[0];          V327= vs_base[0];
1980          (CMPcdr(V307))->c.c_car = (V311);          (CMPcdr(V323))->c.c_car = (V327);
1981          (void)(CMPcdr(V307));}          (void)(CMPcdr(V323));}
1982          if(((V305))==Cnil){          if(((V321))==Cnil){
1983          goto T525;}          goto T525;}
1984          base[0]= (V305);          base[0]= (V321);
1985          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1986          (void) (*Lnk148)(Lclptr148);          (void) (*Lnk148)(Lclptr148);
1987          vs_top=sup;          vs_top=sup;
1988          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1989          goto T525;}          goto T525;}
1990          {register object V312;          {register object V328;
1991          register object V313;          register object V329;
1992          V312= CMPcddr((V307));          V328= CMPcddr((V323));
1993          V313= CMPcar((V312));          V329= CMPcar((V328));
1994          goto T533;          goto T533;
1995  T533:;  T533:;
1996          if(!(((V312))==Cnil)){          if(!(((V328))==Cnil)){
1997          goto T534;}          goto T534;}
1998          {object V314 = Cnil;          {object V330 = Cnil;
1999          VMR47(V314)}          VMR47(V330)}
2000          goto T534;          goto T534;
2001  T534:;  T534:;
2002          V315= (VFUN_NARGS=4,(*(LnkLI150))((V305),CMPcar((V313)),Cnil,CMPcdr((V313))));          V331= (VFUN_NARGS=4,(*(LnkLI150))((V321),CMPcar((V329)),Cnil,CMPcdr((V329))));
2003          (void)((*(LnkLI149))(/* INLINE-ARGS */V315,VV[90]));          (void)((*(LnkLI149))(/* INLINE-ARGS */V331,VV[90]));
2004          V312= CMPcdr((V312));          V328= CMPcdr((V328));
2005          V313= CMPcar((V312));          V329= CMPcar((V328));
2006          goto T533;}          goto T533;}
2007          goto T525;          goto T525;
2008  T525:;  T525:;
2009          {object V316 = Cnil;          {object V332 = Cnil;
2010          VMR47(V316)}          VMR47(V332)}
2011          goto T515;          goto T515;
2012  T515:;  T515:;
2013          {object V317 = Cnil;          {object V333 = Cnil;
2014          VMR47(V317)}}          VMR47(V333)}}
2015          goto T509;          goto T509;
2016  T509:;  T509:;
2017          base[0]= VV[91];          base[0]= VV[91];
2018          base[1]= (V306);          base[1]= (V322);
2019          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2020          Lerror();          Lerror();
2021          vs_top=sup;          vs_top=sup;
2022          {object V318 = vs_base[0];          {object V334 = vs_base[0];
2023          VMR47(V318)}          VMR47(V334)}
2024          base[0]=base[0];          base[0]=base[0];
2025          return Cnil;          return Cnil;
2026  }  }
2027  /*      local entry for function SETF PCL FIND-CLASS-PREDICATE  */  /*      local entry for function SETF PCL FIND-CLASS-PREDICATE  */
2028    
2029  static object LI50(V321,V322)  static object LI50(V337,V338)
2030    
2031  object V321;object V322;  object V337;object V338;
2032  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
2033          goto TTL;          goto TTL;
2034  TTL:;  TTL:;
2035          if(((*(LnkLI140))((V322)))==Cnil){          if(((*(LnkLI140))((V338)))==Cnil){
2036          goto T547;}          goto T547;}
2037          {object V323;          {object V339;
2038          V323= (VFUN_NARGS=1,(*(LnkLI145))((V322)));          V339= (VFUN_NARGS=1,(*(LnkLI145))((V338)));
2039          (CMPcdr((V323)))->c.c_car = V321;          (CMPcdr((V339)))->c.c_car = V337;
2040          (void)(CMPcdr((V323)));          (void)(CMPcdr((V339)));
2041          {object V325 = V321;          {object V341 = V337;
2042          VMR48(V325)}}          VMR48(V341)}}
2043          goto T547;          goto T547;
2044  T547:;  T547:;
2045          base[0]= VV[92];          base[0]= VV[92];
2046          base[1]= (V322);          base[1]= (V338);
2047          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2048          Lerror();          Lerror();
2049          vs_top=sup;          vs_top=sup;
2050          {object V326 = vs_base[0];          {object V342 = vs_base[0];
2051          VMR48(V326)}          VMR48(V342)}
2052          base[0]=base[0];          base[0]=base[0];
2053          return Cnil;          return Cnil;
2054  }  }
# Line 2042  static void L51() Line 2058  static void L51()
2058  {register object *base=vs_base;  {register object *base=vs_base;
2059          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
2060          vs_check;          vs_check;
2061          {object V327;          {object V343;
2062          check_arg(1);          check_arg(1);
2063          V327=(base[0]);          V343=(base[0]);
2064          vs_top=sup;          vs_top=sup;
2065          goto TTL;          goto TTL;
2066  TTL:;  TTL:;
2067          base[1]= (VFUN_NARGS=1,(*(LnkLI151))((V327)));          base[1]= (VFUN_NARGS=1,(*(LnkLI151))((V343)));
2068          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2069          (void) (*Lnk152)(Lclptr152);          (void) (*Lnk152)(Lclptr152);
2070          return;          return;
# Line 2062  static void L52() Line 2078  static void L52()
2078          vs_check;          vs_check;
2079          check_arg(2);          check_arg(2);
2080          vs_top=sup;          vs_top=sup;
2081          {object V328=base[0]->c.c_cdr;          {object V344=base[0]->c.c_cdr;
2082          if(endp(V328))invalid_macro_call();          if(endp(V344))invalid_macro_call();
2083          base[2]= (V328->c.c_car);          base[2]= (V344->c.c_car);
2084          V328=V328->c.c_cdr;          V344=V344->c.c_cdr;
2085          base[3]= V328;}          base[3]= V344;}
2086          V329= list(2,VV[94],base[2]);          V345= list(2,VV[94],base[2]);
2087          V330= make_cons(/* INLINE-ARGS */V329,Cnil);          V346= make_cons(/* INLINE-ARGS */V345,Cnil);
2088          base[4]= list(3,VV[93],/* INLINE-ARGS */V330,listA(3,VV[95],VV[96],base[3]));          base[4]= list(3,VV[93],/* INLINE-ARGS */V346,listA(3,VV[95],VV[96],base[3]));
2089          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2090          return;          return;
2091  }  }
# Line 2081  static void L53() Line 2097  static void L53()
2097          vs_check;          vs_check;
2098          check_arg(2);          check_arg(2);
2099          vs_top=sup;          vs_top=sup;
2100          {object V331=base[0]->c.c_cdr;          {object V347=base[0]->c.c_cdr;
2101          {object V332=getf(V331,VV[153],OBJNULL);          {object V348=getf(V347,VV[153],OBJNULL);
2102          if(V332==OBJNULL){          if(V348==OBJNULL){
2103          base[2]= small_fixnum(0);} else {          base[2]= small_fixnum(0);} else {
2104          base[2]= V332;          base[2]= V348;
2105          }}          }}
2106          check_other_key(V331,1,VV[153]);}          check_other_key(V347,1,VV[153]);}
2107          V333= list(2,VV[97],base[2]);          V349= list(2,VV[97],base[2]);
2108          base[3]= list(3,VV[27],make_cons(/* INLINE-ARGS */V333,VV[98]),VV[99]);          base[3]= list(3,VV[27],make_cons(/* INLINE-ARGS */V349,VV[98]),VV[99]);
2109          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2110          return;          return;
2111  }  }
# Line 2101  static void L54() Line 2117  static void L54()
2117          vs_check;          vs_check;
2118          check_arg(2);          check_arg(2);
2119          vs_top=sup;          vs_top=sup;
2120          {object V334=base[0]->c.c_cdr;          {object V350=base[0]->c.c_cdr;
2121          if(endp(V334))invalid_macro_call();          if(endp(V350))invalid_macro_call();
2122          base[2]= (V334->c.c_car);          base[2]= (V350->c.c_car);
2123          V334=V334->c.c_cdr;          V350=V350->c.c_cdr;
2124          {object V335=getf(V334,VV[154],OBJNULL);          {object V351=getf(V350,VV[154],OBJNULL);
2125          if(V335==OBJNULL){          if(V351==OBJNULL){
2126          base[3]= (VV[55]->s.s_gfdef);} else {          base[3]= (VV[55]->s.s_gfdef);} else {
2127          base[3]= V335;          base[3]= V351;
2128          }}          }}
2129          check_other_key(V334,1,VV[154]);}          check_other_key(V350,1,VV[154]);}
2130          V336= list(2,VV[58],base[2]);          V352= list(2,VV[58],base[2]);
2131          V337= make_cons(/* INLINE-ARGS */V336,Cnil);          V353= make_cons(/* INLINE-ARGS */V352,Cnil);
2132          base[4]= list(3,VV[24],/* INLINE-ARGS */V337,list(2,VV[100],list(3,VV[101],VV[102],list(4,VV[16],VV[103],VV[104],list(3,VV[105],VV[106],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58])))))));          base[4]= list(3,VV[24],/* INLINE-ARGS */V353,list(2,VV[100],list(3,VV[101],VV[102],list(4,VV[16],VV[103],VV[104],list(3,VV[105],VV[106],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58])))))));
2133          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2134          return;          return;
2135  }  }
# Line 2125  static void L55() Line 2141  static void L55()
2141          vs_check;          vs_check;
2142          check_arg(2);          check_arg(2);
2143          vs_top=sup;          vs_top=sup;
2144          {object V338=base[0]->c.c_cdr;          {object V354=base[0]->c.c_cdr;
2145          if(endp(V338))invalid_macro_call();          if(endp(V354))invalid_macro_call();
2146          base[2]= (V338->c.c_car);          base[2]= (V354->c.c_car);
2147          V338=V338->c.c_cdr;          V354=V354->c.c_cdr;
2148          {object V339=getf(V338,VV[154],OBJNULL);          {object V355=getf(V354,VV[154],OBJNULL);
2149          if(V339==OBJNULL){          if(V355==OBJNULL){
2150          base[3]= (VV[55]->s.s_gfdef);} else {          base[3]= (VV[55]->s.s_gfdef);} else {
2151          base[3]= V339;          base[3]= V355;
2152          }}          }}
2153          check_other_key(V338,1,VV[154]);}          check_other_key(V354,1,VV[154]);}
2154          V340= list(2,VV[58],base[2]);          V356= list(2,VV[58],base[2]);
2155          V341= make_cons(/* INLINE-ARGS */V340,Cnil);          V357= make_cons(/* INLINE-ARGS */V356,Cnil);
2156          base[4]= list(3,VV[24],/* INLINE-ARGS */V341,list(2,VV[100],list(3,VV[101],VV[108],list(3,VV[105],VV[109],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58]))))));          base[4]= list(3,VV[24],/* INLINE-ARGS */V357,list(2,VV[100],list(3,VV[101],VV[108],list(3,VV[105],VV[109],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58]))))));
2157          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2158          return;          return;
2159  }  }
# Line 2149  static void L56() Line 2165  static void L56()
2165          vs_check;          vs_check;
2166          check_arg(2);          check_arg(2);
2167          vs_top=sup;          vs_top=sup;
2168          {object V342=base[0]->c.c_cdr;          {object V358=base[0]->c.c_cdr;
2169          if(endp(V342))invalid_macro_call();          if(endp(V358))invalid_macro_call();
2170          base[2]= (V342->c.c_car);          base[2]= (V358->c.c_car);
2171          V342=V342->c.c_cdr;          V358=V358->c.c_cdr;
2172          base[3]= V342;}          base[3]= V358;}
2173          base[4]= listA(3,VV[107],base[2],base[3]);          base[4]= listA(3,VV[107],base[2],base[3]);
2174          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2175          return;          return;
# Line 2166  static void L57() Line 2182  static void L57()
2182          vs_check;          vs_check;
2183          check_arg(2);          check_arg(2);
2184          vs_top=sup;          vs_top=sup;
2185          {object V343=base[0]->c.c_cdr;          {object V359=base[0]->c.c_cdr;
2186          if(endp(V343))invalid_macro_call();          if(endp(V359))invalid_macro_call();
2187          base[2]= (V343->c.c_car);          base[2]= (V359->c.c_car);
2188          V343=V343->c.c_cdr;          V359=V359->c.c_cdr;
2189          base[3]= V343;}          base[3]= V359;}
2190          base[4]= listA(3,VV[110],base[2],base[3]);          base[4]= listA(3,VV[110],base[2],base[3]);
2191          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2192          return;          return;
2193  }  }
2194  /*      local entry for function GET-SETF-FUNCTION-NAME */  /*      local entry for function GET-SETF-FUNCTION-NAME */
2195    
2196  static object LI58(V345)  static object LI58(V361)
2197    
2198  register object V345;  register object V361;
2199  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
2200          goto TTL;          goto TTL;
2201  TTL:;{object V346;  TTL:;{object V362;
2202          base[0]= (V345);          base[0]= (V361);
2203          base[1]= (VV[111]->s.s_dbind);          base[1]= (VV[111]->s.s_dbind);
2204          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2205          Lgethash();          Lgethash();
2206          vs_top=sup;          vs_top=sup;
2207          V346= vs_base[0];          V362= vs_base[0];
2208          if(V346==Cnil)goto T557;          if(V362==Cnil)goto T557;
2209          {object V347 = V346;          {object V363 = V362;
2210          VMR56(V347)}          VMR56(V363)}
2211          goto T557;          goto T557;
2212  T557:;}  T557:;}
2213          {object V349;          {object V365;
2214          object V350;          object V366;
2215          V349= (VV[111]->s.s_dbind);          V365= (VV[111]->s.s_dbind);
2216          {object V351;          {object V367;
2217          base[1]= (V345);          base[1]= (V361);
2218          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2219          Lsymbol_package();          Lsymbol_package();
2220          vs_top=sup;          vs_top=sup;
2221          V351= vs_base[0];          V367= vs_base[0];
2222          if(((V351))==Cnil){          if(((V367))==Cnil){
2223          goto T566;}          goto T566;}
2224          base[2]= Cnil;          base[2]= Cnil;
2225          base[3]= VV[112];          base[3]= VV[112];
2226          base[5]= (V351);          base[5]= (V367);
2227          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2228          Lpackage_name();          Lpackage_name();
2229          vs_top=sup;          vs_top=sup;
2230          base[4]= vs_base[0];          base[4]= vs_base[0];
2231          base[5]= symbol_name((V345));          base[5]= symbol_name((V361));
2232          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
2233          Lformat();          Lformat();
2234          vs_top=sup;          vs_top=sup;
# Line 2221  T557:;} Line 2237  T557:;}
2237          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2238          Lintern();          Lintern();
2239          vs_top=sup;          vs_top=sup;
2240          V350= vs_base[0];          V366= vs_base[0];
2241          goto T562;          goto T562;
2242          goto T566;          goto T566;
2243  T566:;  T566:;
2244          base[2]= Cnil;          base[2]= Cnil;
2245          base[3]= VV[114];          base[3]= VV[114];
2246          base[4]= symbol_name((V345));          base[4]= symbol_name((V361));
2247          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2248          Lformat();          Lformat();
2249          vs_top=sup;          vs_top=sup;
# Line 2235  T566:; Line 2251  T566:;
2251          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2252          Lmake_symbol();          Lmake_symbol();
2253          vs_top=sup;          vs_top=sup;
2254          V350= vs_base[0];}          V366= vs_base[0];}
2255          goto T562;          goto T562;
2256  T562:;  T562:;
2257          base[1]= V345;          base[1]= V361;
2258          base[2]= (V349);          base[2]= (V365);
2259          base[3]= (V350);          base[3]= (V366);
2260          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2261          siLhash_set();          siLhash_set();
2262          vs_top=sup;          vs_top=sup;
2263          {object V352 = vs_base[0];          {object V368 = vs_base[0];
2264          VMR56(V352)}}          VMR56(V368)}}
2265          base[0]=base[0];          base[0]=base[0];
2266          return Cnil;          return Cnil;
2267  }  }
# Line 2257  static void L59() Line 2273  static void L59()
2273          vs_check;          vs_check;
2274          check_arg(2);          check_arg(2);
2275          vs_top=sup;          vs_top=sup;
2276          {object V353=base[0]->c.c_cdr;          {object V369=base[0]->c.c_cdr;
2277          base[2]= V353;}          base[2]= V369;}
2278          base[3]= list(3,VV[115],VV[116],list(3,VV[117],list(2,VV[118],list(2,VV[42],base[2])),VV[119]));          base[3]= list(3,VV[115],VV[116],list(3,VV[117],list(2,VV[118],list(2,VV[42],base[2])),VV[119]));
2279          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2280          return;          return;
2281  }  }
2282  /*      local entry for function DO-STANDARD-DEFSETFS-FOR-DEFCLASS      */  /*      local entry for function DO-STANDARD-DEFSETFS-FOR-DEFCLASS      */
2283    
2284  static object LI60(V355)  static object LI60(V371)
2285    
2286  object V355;  object V371;
2287  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
2288          goto TTL;          goto TTL;
2289  TTL:;  TTL:;
2290          {register object V356;          {register object V372;
2291          register object V357;          register object V373;
2292          V356= (V355);          V372= (V371);
2293          V357= CMPcar((V356));          V373= CMPcar((V372));
2294          goto T585;          goto T585;
2295  T585:;  T585:;
2296          if(!(((V356))==Cnil)){          if(!(((V372))==Cnil)){
2297          goto T586;}          goto T586;}
2298          {object V358 = Cnil;          {object V374 = Cnil;
2299          VMR58(V358)}          VMR58(V374)}
2300          goto T586;          goto T586;
2301  T586:;  T586:;
2302          (void)((*(LnkLI155))((V357)));          (void)((*(LnkLI155))((V373)));
2303          V356= CMPcdr((V356));          V372= CMPcdr((V372));
2304          V357= CMPcar((V356));          V373= CMPcar((V372));
2305          goto T585;}          goto T585;}
2306          base[0]=base[0];          base[0]=base[0];
2307          return Cnil;          return Cnil;
2308  }  }
2309  /*      local entry for function DO-STANDARD-DEFSETF-1  */  /*      local entry for function DO-STANDARD-DEFSETF-1  */
2310    
2311  static object LI61(V360)  static object LI61(V376)
2312    
2313  register object V360;  register object V376;
2314  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
2315          goto TTL;          goto TTL;
2316  TTL:;  TTL:;
2317          if(((*(LnkLI156))((V360)))==Cnil){          if(((*(LnkLI156))((V376)))==Cnil){
2318          goto T596;}          goto T596;}
2319          {object V361 =((V360))->s.s_plist;          {object V377 =((V376))->s.s_plist;
2320           object ind= VV[120];           object ind= VV[120];
2321          while(V361!=Cnil){          while(V377!=Cnil){
2322          if(V361->c.c_car==ind){          if(V377->c.c_car==ind){
2323          if(((V361->c.c_cdr->c.c_car))!=Cnil){          if(((V377->c.c_cdr->c.c_car))!=Cnil){
2324          goto T597;}          goto T597;}
2325          goto T600;          goto T600;
2326          }else V361=V361->c.c_cdr->c.c_cdr;}}          }else V377=V377->c.c_cdr->c.c_cdr;}}
2327          goto T600;          goto T600;
2328  T600:;  T600:;
2329          goto T596;          goto T596;
2330  T596:;  T596:;
2331          (void)(sputprop((V360),VV[120],Ct));          (void)(sputprop((V376),VV[120],Ct));
2332          base[0]= (*(LnkLI157))((V360));          base[0]= (*(LnkLI157))((V376));
2333          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
2334          {object V362;          {object V378;
2335          vs_base=vs_top;          vs_base=vs_top;
2336          Lgensym();          Lgensym();
2337          vs_top=sup;          vs_top=sup;
2338          V362= vs_base[0];          V378= vs_base[0];
2339          {object V364;          {object V380;
2340          V364=          V380=
2341          make_cclosure_new(LC66,Cnil,base[0],Cdata);          make_cclosure_new(LC66,Cnil,base[0],Cdata);
2342          base[2]= V362;          base[2]= V378;
2343          base[3]= make_cons(VV[121],(V364));          base[3]= make_cons(VV[121],(V380));
2344          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2345          siLfset();          siLfset();
2346          vs_top=sup;}          vs_top=sup;}
2347          base[1]= list(3,VV[122],(V360),(V362));          base[1]= list(3,VV[122],(V376),(V378));
2348          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2349          Leval();          Leval();
2350          vs_top=sup;          vs_top=sup;
2351          {object V365 = vs_base[0];          {object V381 = vs_base[0];
2352          VMR59(V365)}}          VMR59(V381)}}
2353          goto T597;          goto T597;
2354  T597:;  T597:;
2355          {object V366 = Cnil;          {object V382 = Cnil;
2356          VMR59(V366)}          VMR59(V382)}
2357          base[0]=base[0];          base[0]=base[0];
2358          return Cnil;          return Cnil;
2359  }  }
2360  /*      local entry for function SETFBOUNDP     */  /*      local entry for function SETFBOUNDP     */
2361    
2362  static object LI62(V368)  static object LI62(V384)
2363    
2364  object V368;  object V384;
2365  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
2366          goto TTL;          goto TTL;
2367  TTL:;{object V369;  TTL:;{object V385;
2368          {object V370 =((V368))->s.s_plist;          {object V386 =((V384))->s.s_plist;
2369           object ind= VV[123];           object ind= VV[123];
2370          while(V370!=Cnil){          while(V386!=Cnil){
2371          if(V370->c.c_car==ind){          if(V386->c.c_car==ind){
2372          V369= (V370->c.c_cdr->c.c_car);          V385= (V386->c.c_cdr->c.c_car);
2373          goto T611;          goto T611;
2374          }else V370=V370->c.c_cdr->c.c_cdr;}          }else V386=V386->c.c_cdr->c.c_cdr;}
2375          V369= Cnil;}          V385= Cnil;}
2376          goto T611;          goto T611;
2377  T611:;  T611:;
2378          if(V369==Cnil)goto T610;          if(V385==Cnil)goto T610;
2379          {object V371 = V369;          {object V387 = V385;
2380          VMR60(V371)}          VMR60(V387)}
2381          goto T610;          goto T610;
2382  T610:;}{object V372;  T610:;}{object V388;
2383          {object V373 =((V368))->s.s_plist;          {object V389 =((V384))->s.s_plist;
2384           object ind= VV[124];           object ind= VV[124];
2385          while(V373!=Cnil){          while(V389!=Cnil){
2386          if(V373->c.c_car==ind){          if(V389->c.c_car==ind){
2387          V372= (V373->c.c_cdr->c.c_car);          V388= (V389->c.c_cdr->c.c_car);
2388          goto T613;          goto T613;
2389          }else V373=V373->c.c_cdr->c.c_cdr;}          }else V389=V389->c.c_cdr->c.c_cdr;}
2390          V372= Cnil;}          V388= Cnil;}
2391          goto T613;          goto T613;
2392  T613:;  T613:;
2393          if(V372==Cnil)goto T612;          if(V388==Cnil)goto T612;
2394          {object V374 = V372;          {object V390 = V388;
2395          VMR60(V374)}          VMR60(V390)}
2396          goto T612;          goto T612;
2397  T612:;}  T612:;}
2398          {object V375 =((V368))->s.s_plist;          {object V391 =((V384))->s.s_plist;
2399           object ind= VV[125];           object ind= VV[125];
2400          while(V375!=Cnil){          while(V391!=Cnil){
2401          if(V375->c.c_car==ind){          if(V391->c.c_car==ind){
2402          {object V376 = (V375->c.c_cdr->c.c_car);          {object V392 = (V391->c.c_cdr->c.c_car);
2403          VMR60(V376)}          VMR60(V392)}
2404          }else V375=V375->c.c_cdr->c.c_cdr;}          }else V391=V391->c.c_cdr->c.c_cdr;}
2405          {object V377 = Cnil;          {object V393 = Cnil;
2406          VMR60(V377)}}          VMR60(V393)}}
2407          return Cnil;          return Cnil;
2408  }  }
2409  /*      macro definition for ORIGINAL-DEFINITION        */  /*      macro definition for ORIGINAL-DEFINITION        */
# Line 2398  static void L63() Line 2414  static void L63()
2414          vs_check;          vs_check;
2415          check_arg(2);          check_arg(2);
2416          vs_top=sup;          vs_top=sup;
2417          {object V378=base[0]->c.c_cdr;          {object V394=base[0]->c.c_cdr;
2418          if(endp(V378))invalid_macro_call();          if(endp(V394))invalid_macro_call();
2419          base[2]= (V378->c.c_car);          base[2]= (V394->c.c_car);
2420          V378=V378->c.c_cdr;          V394=V394->c.c_cdr;
2421          if(!endp(V378))invalid_macro_call();}          if(!endp(V394))invalid_macro_call();}
2422          base[3]= list(3,VV[126],base[2],VV[127]);          base[3]= list(3,VV[126],base[2],VV[127]);
2423          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2424          return;          return;
2425  }  }
2426  /*      local entry for function REDEFINE-FUNCTION      */  /*      local entry for function REDEFINE-FUNCTION      */
2427    
2428  static object LI64(V381,V382)  static object LI64(V397,V398)
2429    
2430  register object V381;object V382;  register object V397;object V398;
2431  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
2432          goto TTL;          goto TTL;
2433  TTL:;  TTL:;
2434          base[0]= V381;          base[0]= V397;
2435          base[1]= (VV[128]->s.s_dbind);          base[1]= (VV[128]->s.s_dbind);
2436          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2437          Ladjoin();          Ladjoin();
2438          vs_top=sup;          vs_top=sup;
2439          (VV[128]->s.s_dbind)= vs_base[0];          (VV[128]->s.s_dbind)= vs_base[0];
2440          {object V384 =((V381))->s.s_plist;          {object V400 =((V397))->s.s_plist;
2441           object ind= VV[129];           object ind= VV[129];
2442          while(V384!=Cnil){          while(V400!=Cnil){
2443          if(V384->c.c_car==ind){          if(V400->c.c_car==ind){
2444          if(((V384->c.c_cdr->c.c_car))!=Cnil){          if(((V400->c.c_cdr->c.c_car))!=Cnil){
2445          goto T618;}          goto T618;}
2446          goto T620;          goto T620;
2447          }else V384=V384->c.c_cdr->c.c_cdr;}}          }else V400=V400->c.c_cdr->c.c_cdr;}}
2448          goto T620;          goto T620;
2449  T620:;  T620:;
2450          base[0]= (V381);          V401 = (V397);
2451            base[0]= (V397);
2452          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2453          Lsymbol_function();          Lsymbol_function();
2454          vs_top=sup;          vs_top=sup;
2455          V385= vs_base[0];          V402= vs_base[0];
2456          (void)(sputprop((V381),VV[129],V385));          (void)(sputprop(V401,VV[129],V402));
2457          goto T618;          goto T618;
2458  T618:;  T618:;
2459          base[0]= (V381);          base[0]= (V397);
2460          base[2]= (V382);          base[2]= (V398);
2461          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2462          Lsymbol_function();          Lsymbol_function();
2463          vs_top=sup;          vs_top=sup;
# Line 2448  T618:; Line 2465  T618:;
2465          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2466          siLfset();          siLfset();
2467          vs_top=sup;          vs_top=sup;
2468          {object V386 = vs_base[0];          {object V403 = vs_base[0];
2469          VMR62(V386)}          VMR62(V403)}
2470          base[0]=base[0];          base[0]=base[0];
2471          return Cnil;          return Cnil;
2472  }  }
# Line 2460  register object *base0; Line 2477  register object *base0;
2477  {       register object *base=vs_base;  {       register object *base=vs_base;
2478          register object *sup=base+VM63; VC63          register object *sup=base+VM63; VC63
2479          vs_check;          vs_check;
2480          {object V387;          {object V404;
2481          object V388;          object V405;
2482          check_arg(2);          check_arg(2);
2483          V387=(base[0]);          V404=(base[0]);
2484          V388=(base[1]);          V405=(base[1]);
2485          vs_top=sup;          vs_top=sup;
2486          {object V389;          {object V406;
2487          object V390;          object V407;
2488          object V391;          object V408;
2489          base[5]= CMPcdr((V387));          base[5]= CMPcdr((V404));
2490          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2491          Lbutlast();          Lbutlast();
2492          vs_top=sup;          vs_top=sup;
2493          V389= vs_base[0];          V406= vs_base[0];
2494          {object V392;          {object V409;
2495          object V393= (V389);          object V410= (V406);
2496          if(V393==Cnil){          if(V410==Cnil){
2497          V390= Cnil;          V407= Cnil;
2498          goto T628;}          goto T628;}
2499          base[5]=V392=MMcons(Cnil,Cnil);          base[5]=V409=MMcons(Cnil,Cnil);
2500          goto T629;          goto T629;
2501  T629:;  T629:;
2502          vs_base=vs_top;          vs_base=vs_top;
2503          Lgensym();          Lgensym();
2504          vs_top=sup;          vs_top=sup;
2505          V395= vs_base[0];          V412= vs_base[0];
2506          (V392->c.c_car)= list(2,V395,(V393->c.c_car));          V413 = (V410->c.c_car);
2507          if((V393=MMcdr(V393))==Cnil){          (V409->c.c_car)= list(2,V412,V413);
2508          V390= base[5];          if((V410=MMcdr(V410))==Cnil){
2509            V407= base[5];
2510          goto T628;}          goto T628;}
2511          V392=MMcdr(V392)=MMcons(Cnil,Cnil);          V409=MMcdr(V409)=MMcons(Cnil,Cnil);
2512          goto T629;}          goto T629;}
2513          goto T628;          goto T628;
2514  T628:;  T628:;
2515          {object V396;          {object V414;
2516          object V397= (V390);          object V415= (V407);
2517          if(V397==Cnil){          if(V415==Cnil){
2518          V391= Cnil;          V408= Cnil;
2519          goto T632;}          goto T632;}
2520          base[5]=V396=MMcons(Cnil,Cnil);          base[5]=V414=MMcons(Cnil,Cnil);
2521          goto T633;          goto T633;
2522  T633:;  T633:;
2523          (V396->c.c_car)= CMPcar((V397->c.c_car));          (V414->c.c_car)= CMPcar((V415->c.c_car));
2524          if((V397=MMcdr(V397))==Cnil){          if((V415=MMcdr(V415))==Cnil){
2525          V391= base[5];          V408= base[5];
2526          goto T632;}          goto T632;}
2527          V396=MMcdr(V396)=MMcons(Cnil,Cnil);          V414=MMcdr(V414)=MMcons(Cnil,Cnil);
2528          goto T633;}          goto T633;}
2529          goto T632;          goto T632;
2530  T632:;  T632:;
2531          base[5]= (V387);          base[5]= (V404);
2532          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2533          Llast();          Llast();
2534          vs_top=sup;          vs_top=sup;
2535          V398= vs_base[0];          V416= vs_base[0];
2536          base[5]= list(3,VV[24],(V390),listA(3,(base0[0]->c.c_car),CMPcar(V398),(V391)));          base[5]= list(3,VV[24],(V407),listA(3,(base0[0]->c.c_car),CMPcar(V416),(V408)));
2537          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2538          return;}          return;}
2539          }          }
# Line 2527  register object *base0; Line 2545  register object *base0;
2545  {       register object *base=vs_base;  {       register object *base=vs_base;
2546          register object *sup=base+VM64; VC64          register object *sup=base+VM64; VC64
2547          vs_check;          vs_check;
2548          {object V399;          {object V417;
2549          check_arg(1);          check_arg(1);
2550          V399=(base[0]);          V417=(base[0]);
2551          vs_top=sup;          vs_top=sup;
2552          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
2553          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2543  register object *base0; Line 2561  register object *base0;
2561  {       register object *base=vs_base;  {       register object *base=vs_base;
2562          register object *sup=base+VM65; VC65          register object *sup=base+VM65; VC65
2563          vs_check;          vs_check;
2564          {object V400;          {object V418;
2565          object V401;          object V419;
2566          object V402;          object V420;
2567          check_arg(3);          check_arg(3);
2568          V400=(base[0]);          V418=(base[0]);
2569          V401=(base[1]);          V419=(base[1]);
2570          V402=(base[2]);          V420=(base[2]);
2571          vs_top=sup;          vs_top=sup;
2572          goto TTL;          goto TTL;
2573  TTL:;  TTL:;
2574          {object V403;          {object V421;
2575          if(!(number_compare(small_fixnum(0),base0[0])==0)){          if(!(number_compare(small_fixnum(0),base0[0])==0)){
2576          goto T639;}          goto T639;}
2577          if((V400)==Cnil){          if((V418)==Cnil){
2578          V404= Cnil;          V422= Cnil;
2579          goto T641;}          goto T641;}
2580          V404= list(3,VV[50],(V400),list(2,VV[22],(V401)));          V422= list(3,VV[50],(V418),list(2,VV[22],(V419)));
2581          goto T641;          goto T641;
2582  T641:;  T641:;
2583          if((V402)==Cnil){          if((V420)==Cnil){
2584          V405= Cnil;          V423= Cnil;
2585          goto T642;}          goto T642;}
2586          V405= list(3,VV[50],(V402),list(2,VV[55],(V401)));          V423= list(3,VV[50],(V420),list(2,VV[55],(V419)));
2587          goto T642;          goto T642;
2588  T642:;  T642:;
2589          V403= list(3,VV[44],V404,V405);          V421= list(3,VV[44],V422,V423);
2590          goto T637;          goto T637;
2591          goto T639;          goto T639;
2592  T639:;  T639:;
2593          if(((V402))!=Cnil){          if(((V420))!=Cnil){
2594          goto T644;}          goto T644;}
2595          if((V400)==Cnil){          if((V418)==Cnil){
2596          V403= Cnil;          V421= Cnil;
2597          goto T637;}          goto T637;}
2598          V403= list(3,VV[50],(V400),(*(LnkLI158))(base0[0],(V401)));          V424 = (V418);
2599            V421= list(3,VV[50],V424,(*(LnkLI158))(base0[0],(V419)));
2600          goto T637;          goto T637;
2601          goto T644;          goto T644;
2602  T644:;  T644:;
2603          V406= list(3,VV[50],(V402),(*(LnkLI159))(base0[0],(V401)));          V425 = (V420);
2604          if((V400)==Cnil){          V426= list(3,VV[50],V425,(*(LnkLI159))(base0[0],(V419)));
2605          V407= Cnil;          if((V418)==Cnil){
2606            V427= Cnil;
2607          goto T646;}          goto T646;}
2608          V407= list(3,VV[50],(V400),list(2,VV[56],(V402)));          V427= list(3,VV[50],(V418),list(2,VV[56],(V420)));
2609          goto T646;          goto T646;
2610  T646:;  T646:;
2611          V403= list(3,VV[44],/* INLINE-ARGS */V406,V407);          V421= list(3,VV[44],/* INLINE-ARGS */V426,V427);
2612          goto T637;          goto T637;
2613  T637:;  T637:;
2614          base0[0]= small_fixnum(0);          base0[0]= small_fixnum(0);
2615          base[3]= (V403);          base[3]= (V421);
2616          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2617          return;}          return;}
2618          }          }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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