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

Diff of /gcl/lsp/defstruct.c

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

revision 1.8 by camm, Sat Oct 5 18:34:15 2002 UTC revision 1.9 by camm, Mon Oct 14 05:24:43 2002 UTC
# Line 371  T117:; Line 371  T117:;
371          if(!((car((V57)))==(VV[14]))){          if(!((car((V57)))==(VV[14]))){
372          goto T125;}          goto T125;}
373          V58= make_cons(VV[14],(V58));          V58= make_cons(VV[14],(V58));
374          {register object V66;          {register object V67;
         object V67;  
375          object V68;          object V68;
376          V66= cdr((V57));          object V69;
377          V67= Cnil;          V67= cdr((V57));
378          V68= Cnil;          V68= Cnil;
379            V69= Cnil;
380  goto T132;  goto T132;
381  T132:;  T132:;
382          if(!(endp_prop((V66)))){          if(!(endp_prop((V67)))){
383          goto T133;}          goto T133;}
384          base[0]= make_cons(VV[12],(V58));          base[0]= make_cons(VV[12],(V58));
385          {object V69;          {object V70;
386          object V70= (V49);          object V71= (V49);
387          if(endp(V70)){          if(endp(V71)){
388          base[1]= Cnil;          base[1]= Cnil;
389          goto T139;}          goto T139;}
390          base[2]=V69=MMcons(Cnil,Cnil);          base[2]=V70=MMcons(Cnil,Cnil);
391  goto T140;  goto T140;
392  T140:;  T140:;
393          if(!(type_of((V70->c.c_car))!=t_cons)){          if(!(type_of((V71->c.c_car))!=t_cons)){
394          goto T147;}          goto T147;}
395          V73= (V70->c.c_car);          V74= (V71->c.c_car);
396          goto T145;          goto T145;
397  goto T147;  goto T147;
398  T147:;  T147:;
399          V73= car((V70->c.c_car));          V74= car((V71->c.c_car));
400  goto T145;  goto T145;
401  T145:;  T145:;
402          {register object x= V73,V72= (V59);          {register object x= V74,V73= (V59);
403          while(!endp(V72))          while(!endp(V73))
404          if(eql(x,V72->c.c_car)){          if(eql(x,V73->c.c_car)){
405          goto T144;          goto T144;
406          }else V72=V72->c.c_cdr;          }else V73=V73->c.c_cdr;
407          goto T143;}          goto T143;}
408  goto T144;  goto T144;
409  T144:;  T144:;
410          (V69->c.c_cdr)= Cnil;          (V70->c.c_cdr)= Cnil;
411          goto T141;          goto T141;
412  goto T143;  goto T143;
413  T143:;  T143:;
414          (V69->c.c_cdr)= make_cons((V70->c.c_car),Cnil);          (V70->c.c_cdr)= make_cons((V71->c.c_car),Cnil);
415  goto T141;  goto T141;
416  T141:;  T141:;
417          {object cdr_V69=MMcdr(V69);while(!endp(cdr_V69)) {cdr_V69=MMcdr(cdr_V69);V69=MMcdr(V69);}}          {object cdr_V70=MMcdr(V70);while(!endp(cdr_V70)) {cdr_V70=MMcdr(cdr_V70);V70=MMcdr(V70);}}
418          V70=MMcdr(V70);          V71=MMcdr(V71);
419          if(endp(V70)){          if(endp(V71)){
420          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
421          base[1]= base[2];          base[1]= base[2];
422          goto T139;}          goto T139;}
# Line 430  T139:; Line 430  T139:;
430          goto T129;          goto T129;
431  goto T133;  goto T133;
432  T133:;  T133:;
433          {register object x= car((V66)),V74= VV[13];          {register object x= car((V67)),V75= VV[13];
434          while(!endp(V74))          while(!endp(V75))
435          if(eql(x,V74->c.c_car)){          if(eql(x,V75->c.c_car)){
436          goto T152;          goto T152;
437          }else V74=V74->c.c_cdr;          }else V75=V75->c.c_cdr;
438          goto T150;}          goto T150;}
439  goto T152;  goto T152;
440  T152:;  T152:;
441          if(!((car((V66)))==(VV[15]))){          if(!((car((V67)))==(VV[15]))){
442          goto T153;}          goto T153;}
443          V58= make_cons(VV[15],(V58));          V58= make_cons(VV[15],(V58));
444          V66= cdr((V66));          V67= cdr((V67));
445          if(endp_prop((V66))){          if(endp_prop((V67))){
446          goto T161;}          goto T161;}
447          if(type_of(car((V66)))==t_symbol){          if(type_of(car((V67)))==t_symbol){
448          goto T160;}          goto T160;}
449  goto T161;  goto T161;
450  T161:;  T161:;
451          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
452  goto T160;  goto T160;
453  T160:;  T160:;
454          V59= make_cons(car((V66)),(V59));          V59= make_cons(car((V67)),(V59));
455          V58= make_cons(car((V66)),(V58));          V58= make_cons(car((V67)),(V58));
456          V66= cdr((V66));          V67= cdr((V67));
457          if(!(endp_prop((V66)))){          if(!(endp_prop((V67)))){
458          goto T153;}          goto T153;}
459          base[0]= make_cons(VV[12],(V58));          base[0]= make_cons(VV[12],(V58));
460          {object V75;          {object V76;
461          object V76= (V49);          object V77= (V49);
462          if(endp(V76)){          if(endp(V77)){
463          base[1]= Cnil;          base[1]= Cnil;
464          goto T176;}          goto T176;}
465          base[2]=V75=MMcons(Cnil,Cnil);          base[2]=V76=MMcons(Cnil,Cnil);
466  goto T177;  goto T177;
467  T177:;  T177:;
468          if(!(type_of((V76->c.c_car))!=t_cons)){          if(!(type_of((V77->c.c_car))!=t_cons)){
469          goto T184;}          goto T184;}
470          V79= (V76->c.c_car);          V80= (V77->c.c_car);
471          goto T182;          goto T182;
472  goto T184;  goto T184;
473  T184:;  T184:;
474          V79= car((V76->c.c_car));          V80= car((V77->c.c_car));
475  goto T182;  goto T182;
476  T182:;  T182:;
477          {register object x= V79,V78= (V59);          {register object x= V80,V79= (V59);
478          while(!endp(V78))          while(!endp(V79))
479          if(eql(x,V78->c.c_car)){          if(eql(x,V79->c.c_car)){
480          goto T181;          goto T181;
481          }else V78=V78->c.c_cdr;          }else V79=V79->c.c_cdr;
482          goto T180;}          goto T180;}
483  goto T181;  goto T181;
484  T181:;  T181:;
485          (V75->c.c_cdr)= Cnil;          (V76->c.c_cdr)= Cnil;
486          goto T178;          goto T178;
487  goto T180;  goto T180;
488  T180:;  T180:;
489          (V75->c.c_cdr)= make_cons((V76->c.c_car),Cnil);          (V76->c.c_cdr)= make_cons((V77->c.c_car),Cnil);
490  goto T178;  goto T178;
491  T178:;  T178:;
492          {object cdr_V75=MMcdr(V75);while(!endp(cdr_V75)) {cdr_V75=MMcdr(cdr_V75);V75=MMcdr(V75);}}          {object cdr_V76=MMcdr(V76);while(!endp(cdr_V76)) {cdr_V76=MMcdr(cdr_V76);V76=MMcdr(V76);}}
493          V76=MMcdr(V76);          V77=MMcdr(V77);
494          if(endp(V76)){          if(endp(V77)){
495          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
496          base[1]= base[2];          base[1]= base[2];
497          goto T176;}          goto T176;}
# Line 505  T176:; Line 505  T176:;
505          goto T129;          goto T129;
506  goto T153;  goto T153;
507  T153:;  T153:;
508          if((car((V66)))==(VV[12])){          if((car((V67)))==(VV[12])){
509          goto T186;}          goto T186;}
510          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
511  goto T186;  goto T186;
512  T186:;  T186:;
513          V58= make_cons(VV[12],(V58));          V58= make_cons(VV[12],(V58));
514          {register object V80;          {register object V81;
515          V80= cdr((V66));          V81= cdr((V67));
516  goto T194;  goto T194;
517  T194:;  T194:;
518          if(!(endp_prop((V80)))){          if(!(endp_prop((V81)))){
519          goto T195;}          goto T195;}
520          goto T191;          goto T191;
521  goto T195;  goto T195;
522  T195:;  T195:;
523          V58= make_cons(car((V80)),(V58));          V58= make_cons(car((V81)),(V58));
524          if(!(type_of(car((V80)))!=t_cons)){          if(!(type_of(car((V81)))!=t_cons)){
525          goto T203;}          goto T203;}
526          if(!(type_of(car((V80)))==t_symbol)){          if(!(type_of(car((V81)))==t_symbol)){
527          goto T203;}          goto T203;}
528          V59= make_cons(car((V80)),(V59));          V59= make_cons(car((V81)),(V59));
529          goto T201;          goto T201;
530  goto T203;  goto T203;
531  T203:;  T203:;
532          if(!(type_of(caar((V80)))==t_symbol)){          if(!(type_of(caar((V81)))==t_symbol)){
533          goto T209;}          goto T209;}
534          if(endp_prop(cdar((V80)))){          if(endp_prop(cdar((V81)))){
535          goto T208;}          goto T208;}
536          if(!(endp_prop(cddar((V80))))){          if(!(endp_prop(cddar((V81))))){
537          goto T209;}          goto T209;}
538  goto T208;  goto T208;
539  T208:;  T208:;
540          V59= make_cons(caar((V80)),(V59));          V59= make_cons(caar((V81)),(V59));
541          goto T201;          goto T201;
542  goto T209;  goto T209;
543  T209:;  T209:;
544          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
545  goto T201;  goto T201;
546  T201:;  T201:;
547          V80= cdr((V80));          V81= cdr((V81));
548          goto T194;}          goto T194;}
549  goto T191;  goto T191;
550  T191:;  T191:;
551          base[0]= (V58);          base[0]= (V58);
552          {object V81;          {object V82;
553          object V82= (V49);          object V83= (V49);
554          if(endp(V82)){          if(endp(V83)){
555          base[1]= Cnil;          base[1]= Cnil;
556          goto T222;}          goto T222;}
557          base[2]=V81=MMcons(Cnil,Cnil);          base[2]=V82=MMcons(Cnil,Cnil);
558  goto T223;  goto T223;
559  T223:;  T223:;
560          if(!(type_of((V82->c.c_car))!=t_cons)){          if(!(type_of((V83->c.c_car))!=t_cons)){
561          goto T230;}          goto T230;}
562          V85= (V82->c.c_car);          V86= (V83->c.c_car);
563          goto T228;          goto T228;
564  goto T230;  goto T230;
565  T230:;  T230:;
566          V85= car((V82->c.c_car));          V86= car((V83->c.c_car));
567  goto T228;  goto T228;
568  T228:;  T228:;
569          {register object x= V85,V84= (V59);          {register object x= V86,V85= (V59);
570          while(!endp(V84))          while(!endp(V85))
571          if(eql(x,V84->c.c_car)){          if(eql(x,V85->c.c_car)){
572          goto T227;          goto T227;
573          }else V84=V84->c.c_cdr;          }else V85=V85->c.c_cdr;
574          goto T226;}          goto T226;}
575  goto T227;  goto T227;
576  T227:;  T227:;
577          (V81->c.c_cdr)= Cnil;          (V82->c.c_cdr)= Cnil;
578          goto T224;          goto T224;
579  goto T226;  goto T226;
580  T226:;  T226:;
581          (V81->c.c_cdr)= make_cons((V82->c.c_car),Cnil);          (V82->c.c_cdr)= make_cons((V83->c.c_car),Cnil);
582  goto T224;  goto T224;
583  T224:;  T224:;
584          {object cdr_V81=MMcdr(V81);while(!endp(cdr_V81)) {cdr_V81=MMcdr(cdr_V81);V81=MMcdr(V81);}}          {object cdr_V82=MMcdr(V82);while(!endp(cdr_V82)) {cdr_V82=MMcdr(cdr_V82);V82=MMcdr(V82);}}
585          V82=MMcdr(V82);          V83=MMcdr(V83);
586          if(endp(V82)){          if(endp(V83)){
587          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
588          base[1]= base[2];          base[1]= base[2];
589          goto T222;}          goto T222;}
# Line 597  T222:; Line 597  T222:;
597          goto T129;          goto T129;
598  goto T150;  goto T150;
599  T150:;  T150:;
600          if(!(type_of(car((V66)))!=t_cons)){          if(!(type_of(car((V67)))!=t_cons)){
601          goto T238;}          goto T238;}
602          V67= car((V66));          V68= car((V67));
603          goto T236;          goto T236;
604  goto T238;  goto T238;
605  T238:;  T238:;
606          if(!(endp_prop(cdar((V66))))){          if(!(endp_prop(cdar((V67))))){
607          goto T243;}          goto T243;}
608          V67= caar((V66));          V68= caar((V67));
609          goto T236;          goto T236;
610  goto T243;  goto T243;
611  T243:;  T243:;
612          goto T234;          goto T234;
613  goto T236;  goto T236;
614  T236:;  T236:;
615          base[0]= (V67);          base[0]= (V68);
616          base[1]= (V49);          base[1]= (V49);
617          base[2]= VV[16];          base[2]= VV[16];
618          base[3]= VV[112];          base[3]= VV[112];
619          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
620          Lmember();          Lmember();
621          vs_top=sup;          vs_top=sup;
622          V68= vs_base[0];          V69= vs_base[0];
623          if(((V68))==Cnil){          if(((V69))==Cnil){
624          goto T234;}          goto T234;}
625          V58= make_cons(car((V68)),(V58));          V58= make_cons(car((V69)),(V58));
626          goto T232;          goto T232;
627  goto T234;  goto T234;
628  T234:;  T234:;
629          V58= make_cons(car((V66)),(V58));          V58= make_cons(car((V67)),(V58));
630  goto T232;  goto T232;
631  T232:;  T232:;
632          if(!(type_of(car((V66)))!=t_cons)){          if(!(type_of(car((V67)))!=t_cons)){
633          goto T257;}          goto T257;}
634          if(type_of(car((V66)))==t_symbol){          if(type_of(car((V67)))==t_symbol){
635          goto T259;}          goto T259;}
636          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
637  goto T259;  goto T259;
638  T259:;  T259:;
639          V59= make_cons(car((V66)),(V59));          V59= make_cons(car((V67)),(V59));
640          goto T255;          goto T255;
641  goto T257;  goto T257;
642  T257:;  T257:;
643          if(type_of(caar((V66)))==t_symbol){          if(type_of(caar((V67)))==t_symbol){
644          goto T264;}          goto T264;}
645          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
646          goto T255;          goto T255;
647  goto T264;  goto T264;
648  T264:;  T264:;
649          if(endp_prop(cdar((V66)))){          if(endp_prop(cdar((V67)))){
650          goto T266;}          goto T266;}
651          if(!(endp_prop(cddar((V66))))){          if(!(endp_prop(cddar((V67))))){
652          goto T267;}          goto T267;}
653  goto T266;  goto T266;
654  T266:;  T266:;
655          V59= make_cons(caar((V66)),(V59));          V59= make_cons(caar((V67)),(V59));
656          goto T255;          goto T255;
657  goto T267;  goto T267;
658  T267:;  T267:;
659          if(type_of(caddar((V66)))==t_symbol){          if(type_of(caddar((V67)))==t_symbol){
660          goto T273;}          goto T273;}
661          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
662          goto T255;          goto T255;
663  goto T273;  goto T273;
664  T273:;  T273:;
665          if(endp_prop(cdddar((V66)))){          if(endp_prop(cdddar((V67)))){
666          goto T276;}          goto T276;}
667          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
668          goto T255;          goto T255;
669  goto T276;  goto T276;
670  T276:;  T276:;
671          V59= make_cons(caar((V66)),(V59));          V59= make_cons(caar((V67)),(V59));
672          V59= make_cons(caddar((V66)),(V59));          V59= make_cons(caddar((V67)),(V59));
673  goto T255;  goto T255;
674  T255:;  T255:;
675          V66= cdr((V66));          V67= cdr((V67));
676          goto T132;}          goto T132;}
677  goto T129;  goto T129;
678  T129:;  T129:;
# Line 699  goto T93; Line 699  goto T93;
699  T93:;  T93:;
700          if(((V45))!=Cnil){          if(((V45))!=Cnil){
701          goto T296;}          goto T296;}
702          {object V86 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48)));          {object V87 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48)));
703          VMR2(V86)}          VMR2(V87)}
704  goto T296;  goto T296;
705  T296:;  T296:;
706          if(((V45))==(VV[19])){          if(((V45))==(VV[19])){
# Line 711  T296:; Line 711  T296:;
711          goto T299;}          goto T299;}
712  goto T298;  goto T298;
713  T298:;  T298:;
714          {object V87 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48)));          {object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48)));
715          VMR2(V87)}          VMR2(V88)}
716  goto T299;  goto T299;
717  T299:;  T299:;
718          if(!(((V45))==(VV[20]))){          if(!(((V45))==(VV[20]))){
719          goto T306;}          goto T306;}
720          {object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48)));          {object V89 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48)));
721          VMR2(V88)}          VMR2(V89)}
722  goto T306;  goto T306;
723  T306:;  T306:;
724          {object V89;          {object V90;
725          base[0]= VV[21];          base[0]= VV[21];
726          base[1]= (V45);          base[1]= (V45);
727          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
728          Lerror();          Lerror();
729          vs_top=sup;          vs_top=sup;
730          V89= vs_base[0];          V90= vs_base[0];
731          if(((V89))==Cnil){          if(((V90))==Cnil){
732          goto T312;}          goto T312;}
733          {object V90 = (V89);          {object V91 = (V90);
734          VMR2(V90)}          VMR2(V91)}
735  goto T312;  goto T312;
736  T312:;  T312:;
737          {object V91 = Cnil;          {object V92 = Cnil;
738          VMR2(V91)}}}          VMR2(V92)}}}
739          base[0]=base[0];          base[0]=base[0];
740          return Cnil;          return Cnil;
741  }  }
# Line 750  TTL:; Line 750  TTL:;
750          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
751          Lerror();          Lerror();
752          vs_top=sup;          vs_top=sup;
753          {object V92 = vs_base[0];          {object V93 = vs_base[0];
754          VMR3(V92)}          VMR3(V93)}
755          base[0]=base[0];          base[0]=base[0];
756          return Cnil;          return Cnil;
757  }  }
758  /*      local entry for function MAKE-PREDICATE */  /*      local entry for function MAKE-PREDICATE */
759    
760  static object LI4(V98,V99,V100,V101,V102)  static object LI4(V99,V100,V101,V102,V103)
761    
762  object V98;object V99;register object V100;object V101;register object V102;  object V99;object V100;register object V101;object V102;register object V103;
763  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
764  goto TTL;  goto TTL;
765  TTL:;  TTL:;
766          {object V103;          {object V104;
767          V103= (((V100))==Cnil?Ct:Cnil);          V104= (((V101))==Cnil?Ct:Cnil);
768          if(((V103))==Cnil){          if(((V104))==Cnil){
769          goto T317;}          goto T317;}
770          {object V104 = (V103);          {object V105 = (V104);
771          VMR4(V104)}          VMR4(V105)}
772  goto T317;  goto T317;
773  T317:;  T317:;
774          if(((V100))==(VV[19])){          if(((V101))==(VV[19])){
775          goto T319;}          goto T319;}
776          if(!(type_of((V100))==t_cons)){          if(!(type_of((V101))==t_cons)){
777          goto T320;}          goto T320;}
778          if(!((car((V100)))==(VV[19]))){          if(!((car((V101)))==(VV[19]))){
779          goto T320;}          goto T320;}
780  goto T319;  goto T319;
781  T319:;  T319:;
782          if(((V101))!=Cnil){          if(((V102))!=Cnil){
783          goto T326;}          goto T326;}
784          base[0]= VV[23];          base[0]= VV[23];
785          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 787  T319:; Line 787  T319:;
787          vs_top=sup;          vs_top=sup;
788  goto T326;  goto T326;
789  T326:;  T326:;
790          V105= list(3,VV[27],VV[28],(V102));          V106= list(3,VV[27],VV[28],(V103));
791          V106= list(3,VV[30],VV[31],(V102));          V107= list(3,VV[30],VV[31],(V103));
792          {object V107 = list(4,VV[3],(V99),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V105,list(3,VV[29],/* INLINE-ARGS */V106,list(2,VV[11],(V98)))));          {object V108 = list(4,VV[3],(V100),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V106,list(3,VV[29],/* INLINE-ARGS */V107,list(2,VV[11],(V99)))));
793          VMR4(V107)}          VMR4(V108)}
794  goto T320;  goto T320;
795  T320:;  T320:;
796          if(!(((V100))==(VV[20]))){          if(!(((V101))==(VV[20]))){
797          goto T331;}          goto T331;}
798          if(((V101))!=Cnil){          if(((V102))!=Cnil){
799          goto T333;}          goto T333;}
800          base[0]= VV[32];          base[0]= VV[32];
801          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 803  T320:; Line 803  T320:;
803          vs_top=sup;          vs_top=sup;
804  goto T333;  goto T333;
805  T333:;  T333:;
806          if(!(number_compare((V102),small_fixnum(0))==0)){          if(!(number_compare((V103),small_fixnum(0))==0)){
807          goto T338;}          goto T338;}
808          {object V108 = list(4,VV[3],(V99),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V98)))));          {object V109 = list(4,VV[3],(V100),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V99)))));
809          VMR4(V108)}          VMR4(V109)}
810  goto T338;  goto T338;
811  T338:;  T338:;
812          V109= list(2,list(3,VV[38],(V102),VV[39]),VV[40]);          V110= list(2,list(3,VV[38],(V103),VV[39]),VV[40]);
813          {object V110 = list(4,VV[3],(V99),VV[36],listA(4,VV[37],/* INLINE-ARGS */V109,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V98))))),VV[44]));          {object V111 = list(4,VV[3],(V100),VV[36],listA(4,VV[37],/* INLINE-ARGS */V110,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V99))))),VV[44]));
814          VMR4(V110)}          VMR4(V111)}
815  goto T331;  goto T331;
816  T331:;  T331:;
817          {object V111;          {object V112;
818          base[0]= VV[45];          base[0]= VV[45];
819          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
820          Lerror();          Lerror();
821          vs_top=sup;          vs_top=sup;
822          V111= vs_base[0];          V112= vs_base[0];
823          if(((V111))==Cnil){          if(((V112))==Cnil){
824          goto T343;}          goto T343;}
825          {object V112 = (V111);          {object V113 = (V112);
826          VMR4(V112)}          VMR4(V113)}
827  goto T343;  goto T343;
828  T343:;  T343:;
829          {object V113 = Cnil;          {object V114 = Cnil;
830          VMR4(V113)}}}          VMR4(V114)}}}
831          base[0]=base[0];          base[0]=base[0];
832          return Cnil;          return Cnil;
833  }  }
834  /*      local entry for function PARSE-SLOT-DESCRIPTION */  /*      local entry for function PARSE-SLOT-DESCRIPTION */
835    
836  static object LI5(V116,V117)  static object LI5(V117,V118)
837    
838  register object V116;object V117;  register object V117;object V118;
839  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
840  goto TTL;  goto TTL;
841  TTL:;  TTL:;
842          {object V118;          {object V119;
843          object V119;          object V120;
         register object V120;  
844          register object V121;          register object V121;
845          V118= Cnil;          register object V122;
846          V119= Cnil;          V119= Cnil;
847          V120= Cnil;          V120= Cnil;
848          V121= Cnil;          V121= Cnil;
849          if(!(type_of((V116))!=t_cons)){          V122= Cnil;
850            if(!(type_of((V117))!=t_cons)){
851          goto T347;}          goto T347;}
852          V118= (V116);          V119= (V117);
853          goto T345;          goto T345;
854  goto T347;  goto T347;
855  T347:;  T347:;
856          if(!(endp_prop(cdr((V116))))){          if(!(endp_prop(cdr((V117))))){
857          goto T351;}          goto T351;}
858          V118= car((V116));          V119= car((V117));
859          goto T345;          goto T345;
860  goto T351;  goto T351;
861  T351:;  T351:;
862          V118= car((V116));          V119= car((V117));
863          V119= cadr((V116));          V120= cadr((V117));
864          {register object V122;          {register object V123;
         register object V123;  
865          register object V124;          register object V124;
866          V122= cddr((V116));          register object V125;
867          V123= Cnil;          V123= cddr((V117));
868          V124= Cnil;          V124= Cnil;
869            V125= Cnil;
870  goto T360;  goto T360;
871  T360:;  T360:;
872          if(!(endp_prop((V122)))){          if(!(endp_prop((V123)))){
873          goto T361;}          goto T361;}
874          goto T345;          goto T345;
875  goto T361;  goto T361;
876  T361:;  T361:;
877          V123= car((V122));          V124= car((V123));
878          if(!(endp_prop(cdr((V122))))){          if(!(endp_prop(cdr((V123))))){
879          goto T367;}          goto T367;}
880          base[0]= VV[46];          base[0]= VV[46];
881          base[1]= (V122);          base[1]= (V123);
882          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
883          Lerror();          Lerror();
884          vs_top=sup;          vs_top=sup;
885  goto T367;  goto T367;
886  T367:;  T367:;
887          V124= cadr((V122));          V125= cadr((V123));
888          {object V125= (V123);          {object V126= (V124);
889          if((V125!= VV[75]))goto T375;          if((V126!= VV[75]))goto T375;
890          V120= (V124);          V121= (V125);
891          goto T374;          goto T374;
892  goto T375;  goto T375;
893  T375:;  T375:;
894          if((V125!= VV[113]))goto T377;          if((V126!= VV[113]))goto T377;
895          V121= (V124);          V122= (V125);
896          goto T374;          goto T374;
897  goto T377;  goto T377;
898  T377:;  T377:;
899          base[0]= VV[47];          base[0]= VV[47];
900          base[1]= (V122);          base[1]= (V123);
901          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
902          Lerror();          Lerror();
903          vs_top=sup;}          vs_top=sup;}
904  goto T374;  goto T374;
905  T374:;  T374:;
906          V122= cddr((V122));          V123= cddr((V123));
907          goto T360;}          goto T360;}
908  goto T345;  goto T345;
909  T345:;  T345:;
910          {object V126 = list(5,(V118),(V119),(V120),(V121),(V117));          {object V127 = list(5,(V119),(V120),(V121),(V122),(V118));
911          VMR5(V126)}}          VMR5(V127)}}
912          base[0]=base[0];          base[0]=base[0];
913          return Cnil;          return Cnil;
914  }  }
915  /*      local entry for function OVERWRITE-SLOT-DESCRIPTIONS    */  /*      local entry for function OVERWRITE-SLOT-DESCRIPTIONS    */
916    
917  static object LI6(V129,V130)  static object LI6(V130,V131)
918    
919  object V129;register object V130;  object V130;register object V131;
920  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
921  goto TTL;  goto TTL;
922  TTL:;  TTL:;
923          if(((V130))!=Cnil){          if(((V131))!=Cnil){
924          goto T385;}          goto T385;}
925          {object V131 = Cnil;          {object V132 = Cnil;
926          VMR6(V131)}          VMR6(V132)}
927  goto T385;  goto T385;
928  T385:;  T385:;
929          {register object V132;          {register object V133;
930          base[0]= caar((V130));          base[0]= caar((V131));
931          base[1]= (V129);          base[1]= (V130);
932          base[2]= VV[16];          base[2]= VV[16];
933          base[3]= symbol_function(VV[114]);          base[3]= symbol_function(VV[114]);
934          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
935          Lmember();          Lmember();
936          vs_top=sup;          vs_top=sup;
937          V132= vs_base[0];          V133= vs_base[0];
938          if(((V132))==Cnil){          if(((V133))==Cnil){
939          goto T393;}          goto T393;}
940          if((cadddr(car((V132))))!=Cnil){          if((cadddr(car((V133))))!=Cnil){
941          goto T395;}          goto T395;}
942          if((cadddr(car((V130))))==Cnil){          if((cadddr(car((V131))))==Cnil){
943          goto T395;}          goto T395;}
944          base[0]= VV[48];          base[0]= VV[48];
945          base[1]= (V132);          base[1]= (V133);
946          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
947          Lerror();          Lerror();
948          vs_top=sup;          vs_top=sup;
949  goto T395;  goto T395;
950  T395:;  T395:;
951          {object V133;          {object V134;
952          object V134;          object V135;
953          V133= car((V132));          V134= car((V133));
954          V134= (*(LnkLI115))(caddr(car((V132))));          V135= (*(LnkLI115))(caddr(car((V133))));
955          if(type_of(cddr((V133)))!=t_cons)FEwrong_type_argument(Scons,cddr((V133)));          if(type_of(cddr((V134)))!=t_cons)FEwrong_type_argument(Scons,cddr((V134)));
956          (cddr((V133)))->c.c_car = (V134);          (cddr((V134)))->c.c_car = (V135);
957          (void)(cddr((V133)));}{object V136;          (void)(cddr((V134)));}{object V137;
958          V136= caddr(car((V132)));          V137= caddr(car((V133)));
959          if(V136==Cnil)goto T410;          if(V137==Cnil)goto T410;
960          V135= V136;          V136= V137;
961          goto T409;          goto T409;
962  goto T410;  goto T410;
963  T410:;}  T410:;}
964          V135= Ct;          V136= Ct;
965  goto T409;  goto T409;
966  T409:;  T409:;
967          V137= (*(LnkLI116))(V135);{object V139;          V138= (*(LnkLI116))(V136);{object V140;
968          V139= caddr(car((V130)));          V140= caddr(car((V131)));
969          if(V139==Cnil)goto T413;          if(V140==Cnil)goto T413;
970          V138= V139;          V139= V140;
971          goto T412;          goto T412;
972  goto T413;  goto T413;
973  T413:;}  T413:;}
974          V138= Ct;          V139= Ct;
975  goto T412;  goto T412;
976  T412:;  T412:;
977          V140= (*(LnkLI116))(V138);          V141= (*(LnkLI116))(V139);
978          if(equal(/* INLINE-ARGS */V137,/* INLINE-ARGS */V140)){          if(equal(/* INLINE-ARGS */V138,/* INLINE-ARGS */V141)){
979          goto T406;}          goto T406;}
980          base[0]= VV[49];          base[0]= VV[49];
981          base[1]= car((V132));          base[1]= car((V133));
982          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
983          Lerror();          Lerror();
984          vs_top=sup;          vs_top=sup;
985  goto T406;  goto T406;
986  T406:;  T406:;
987          V141= list(5,caar((V132)),cadar((V132)),caddar((V132)),cadddr(car((V132))),car(cddddr(car((V130)))));          V142= list(5,caar((V133)),cadar((V133)),caddar((V133)),cadddr(car((V133))),car(cddddr(car((V131)))));
988          V142= (*(LnkLI117))((V129),cdr((V130)));          V143= (*(LnkLI117))((V130),cdr((V131)));
989          {object V143 = make_cons(/* INLINE-ARGS */V141,/* INLINE-ARGS */V142);          {object V144 = make_cons(/* INLINE-ARGS */V142,/* INLINE-ARGS */V143);
990          VMR6(V143)}          VMR6(V144)}
991  goto T393;  goto T393;
992  T393:;  T393:;
993          V144= car((V130));          V145= car((V131));
994          V145= (*(LnkLI117))((V129),cdr((V130)));          V146= (*(LnkLI117))((V130),cdr((V131)));
995          {object V146 = make_cons(/* INLINE-ARGS */V144,/* INLINE-ARGS */V145);          {object V147 = make_cons(/* INLINE-ARGS */V145,/* INLINE-ARGS */V146);
996          VMR6(V146)}}          VMR6(V147)}}
997          base[0]=base[0];          base[0]=base[0];
998          return Cnil;          return Cnil;
999  }  }
1000  /*      local entry for function MAKE-T-TYPE    */  /*      local entry for function MAKE-T-TYPE    */
1001    
1002  static object LI7(V150,V151,V152)  static object LI7(V151,V152,V153)
1003    
1004  object V150;object V151;object V152;  object V151;object V152;object V153;
1005  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
1006  goto TTL;  goto TTL;
1007  TTL:;  TTL:;
1008          {object V153;          {object V154;
1009          V153= Cnil;          V154= Cnil;
1010          {register object V154;          {register object V155;
1011          V154= (VFUN_NARGS=5,(*(LnkLI118))((V150),VV[50],VV[51],VV[52],Ct));          V155= (VFUN_NARGS=5,(*(LnkLI118))((V151),VV[50],VV[51],VV[52],Ct));
1012          if(((V151))==Cnil){          if(((V152))==Cnil){
1013          goto T419;}          goto T419;}
1014          {object V155;          {object V156;
1015          object V156;          object V157;
1016          V155= get((V151),VV[53],Cnil);          V156= get((V152),VV[53],Cnil);
1017          V156= Cnil;          V157= Cnil;
1018          if((V155)!=Cnil){          if((V156)!=Cnil){
1019          goto T423;}          goto T423;}
1020          base[0]= VV[54];          base[0]= VV[54];
1021          base[1]= (V151);          base[1]= (V152);
1022          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1023          Lerror();          Lerror();
1024          vs_top=sup;          vs_top=sup;
1025  goto T423;  goto T423;
1026  T423:;  T423:;
1027          V156= structure_ref((V155),VV[53],2);          V157= structure_ref((V156),VV[53],2);
1028          {object V157;          {object V158;
1029          register object V158;          register object V159;
1030          V159 = make_fixnum((long)length((V156)));          V160 = make_fixnum((long)length((V157)));
1031          V157= (number_compare((V150),V159)<=0?((V150)):V159);          V158= (number_compare((V151),V160)<=0?((V151)):V160);
1032          V158= small_fixnum(0);          V159= small_fixnum(0);
1033  goto T431;  goto T431;
1034  T431:;  T431:;
1035          if(!(number_compare((V158),(V157))>=0)){          if(!(number_compare((V159),(V158))>=0)){
1036          goto T432;}          goto T432;}
1037          goto T419;          goto T419;
1038  goto T432;  goto T432;
1039  T432:;  T432:;
1040          V160= aref1((V156),fixint((V158)));          V161= aref1((V157),fixint((V159)));
1041          (void)(aset1((V154),fixint((V158)),/* INLINE-ARGS */V160));          (void)(aset1((V155),fixint((V159)),/* INLINE-ARGS */V161));
1042          V158= one_plus((V158));          V159= one_plus((V159));
1043          goto T431;}}          goto T431;}}
1044  goto T419;  goto T419;
1045  T419:;  T419:;
1046          {register object V161;          {register object V162;
1047          register object V162;          register object V163;
1048          V161= (V152);          V162= (V153);
1049          V162= car((V161));          V163= car((V162));
1050  goto T444;  goto T444;
1051  T444:;  T444:;
1052          if(!(endp_prop((V161)))){          if(!(endp_prop((V162)))){
1053          goto T445;}          goto T445;}
1054          goto T440;          goto T440;
1055  goto T445;  goto T445;
1056  T445:;  T445:;
1057          V153= car(cddddr((V162)));          V154= car(cddddr((V163)));
1058          {register object V163;          {register object V164;
1059          V163= caddr((V162));          V164= caddr((V163));
1060          base[1]= (V163);          base[1]= (V164);
1061          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1062          (void) (*Lnk119)();          (void) (*Lnk119)();
1063          vs_top=sup;          vs_top=sup;
1064          V164= vs_base[0];          V165= vs_base[0];
1065          if(!(number_compare(V164,symbol_value(VV[55]))<=0)){          if(!(number_compare(V165,symbol_value(VV[55]))<=0)){
1066          goto T451;}          goto T451;}
1067          base[1]= (V163);          base[1]= (V164);
1068          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1069          (void) (*Lnk120)();          (void) (*Lnk120)();
1070          vs_top=sup;          vs_top=sup;
1071          V165= vs_base[0];          V166= vs_base[0];
1072          (void)(aset1((V154),fixint((V153)),V165));}          (void)(aset1((V155),fixint((V154)),V166));}
1073  goto T451;  goto T451;
1074  T451:;  T451:;
1075          V161= cdr((V161));          V162= cdr((V162));
1076          V162= car((V161));          V163= car((V162));
1077          goto T444;}          goto T444;}
1078  goto T440;  goto T440;
1079  T440:;  T440:;
1080          V166 = make_fixnum((long)length(symbol_value(VV[56])));          V167 = make_fixnum((long)length(symbol_value(VV[56])));
1081          if(!(number_compare((V150),V166)<0)){          if(!(number_compare((V151),V167)<0)){
1082          goto T465;}          goto T465;}
1083          {register object V168;          {register object V169;
1084          V168= small_fixnum(0);          V169= small_fixnum(0);
1085  goto T470;  goto T470;
1086  T470:;  T470:;
1087          if(!(number_compare((V168),V150)>=0)){          if(!(number_compare((V169),V151)>=0)){
1088          goto T471;}          goto T471;}
1089          goto T467;          goto T467;
1090  goto T471;  goto T471;
1091  T471:;  T471:;
1092          {long V169= fix(aref1((V154),fixint((V168))));          {long V170= fix(aref1((V155),fixint((V169))));
1093          if((/* INLINE-ARGS */V169)==(0)){          if((/* INLINE-ARGS */V170)==(0)){
1094          goto T475;}}          goto T475;}}
1095          {object V170 = (V154);          {object V171 = (V155);
1096          VMR7(V170)}          VMR7(V171)}
1097  goto T475;  goto T475;
1098  T475:;  T475:;
1099          V168= one_plus((V168));          V169= one_plus((V169));
1100          goto T470;}          goto T470;}
1101  goto T467;  goto T467;
1102  T467:;  T467:;
1103          {object V171 = symbol_value(VV[56]);          {object V172 = symbol_value(VV[56]);
1104          VMR7(V171)}          VMR7(V172)}
1105  goto T465;  goto T465;
1106  T465:;  T465:;
1107          {object V172 = (V154);          {object V173 = (V155);
1108          VMR7(V172)}}}          VMR7(V173)}}}
1109          base[0]=base[0];          base[0]=base[0];
1110          return Cnil;          return Cnil;
1111  }  }
1112  /*      local entry for function ROUND-UP       */  /*      local entry for function ROUND-UP       */
1113    
1114  static object LI8(V175,V176)  static object LI8(V176,V177)
1115    
1116  long V175;long V176;  long V176;long V177;
1117  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
1118  goto TTL;  goto TTL;
1119  TTL:;  TTL:;
1120          base[0]= make_fixnum(V175);          base[0]= make_fixnum(V176);
1121          base[1]= make_fixnum(V176);          base[1]= make_fixnum(V177);
1122          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1123          Lceiling();          Lceiling();
1124          vs_top=sup;          vs_top=sup;
1125          V175= fix(vs_base[0]);          V176= fix(vs_base[0]);
1126          {long V177 = (long)(V175)*(V176);          {long V178 = (long)(V176)*(V177);
1127          VMR8((object)V177)}          VMR8((object)V178)}
1128          base[0]=base[0];          base[0]=base[0];
1129  }  }
1130  /*      local entry for function GET-SLOT-POS   */  /*      local entry for function GET-SLOT-POS   */
1131    
1132  static object LI9(V181,V182,V183)  static object LI9(V182,V183,V184)
1133    
1134  object V181;object V182;object V183;  object V182;object V183;object V184;
1135  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
1136  goto TTL;  goto TTL;
1137  TTL:;  TTL:;
1138          {register object V184;          {register object V185;
         object V185;  
1139          object V186;          object V186;
1140          V184= Cnil;          object V187;
1141          V185= Cnil;          V185= Cnil;
1142          V186= Cnil;          V186= Cnil;
1143          {register object V187;          V187= Cnil;
1144          register object V188;          {register object V188;
1145          V187= (V183);          register object V189;
1146          V188= car((V187));          V188= (V184);
1147            V189= car((V188));
1148  goto T493;  goto T493;
1149  T493:;  T493:;
1150          if(!(endp_prop((V187)))){          if(!(endp_prop((V188)))){
1151          goto T494;}          goto T494;}
1152          goto T489;          goto T489;
1153  goto T494;  goto T494;
1154  T494:;  T494:;
1155          if(((V188))==Cnil){          if(((V189))==Cnil){
1156          goto T498;}          goto T498;}
1157          if((car((V188)))==Cnil){          if((car((V189)))==Cnil){
1158          goto T498;}          goto T498;}
1159          V184= (*(LnkLI115))(caddr((V188)));          V185= (*(LnkLI115))(caddr((V189)));
1160          if(type_of(cddr(V188))!=t_cons)FEwrong_type_argument(Scons,cddr(V188));          if(type_of(cddr(V189))!=t_cons)FEwrong_type_argument(Scons,cddr(V189));
1161          (cddr(V188))->c.c_car = V184;          (cddr(V189))->c.c_car = V185;
1162          (void)(cddr(V188));          (void)(cddr(V189));
1163          {register object V191;          {register object V192;
1164          V191= cadr((V188));          V192= cadr((V189));
1165          base[1]= (V191);          base[1]= (V192);
1166          base[2]= (V184);          base[2]= (V185);
1167          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1168          (void) (*Lnk121)();          (void) (*Lnk121)();
1169          vs_top=sup;          vs_top=sup;
1170          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1171          goto T507;}          goto T507;}
1172          if(!(type_of((V191))==t_symbol)){          if(!(type_of((V192))==t_symbol)){
1173          goto T513;}          goto T513;}
1174          base[1]= (V191);          base[1]= (V192);
1175          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1176          Lconstantp();          Lconstantp();
1177          vs_top=sup;          vs_top=sup;
1178          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1179          goto T513;}          goto T513;}
1180          base[1]= (V191);          base[1]= (V192);
1181          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1182          Lsymbol_value();          Lsymbol_value();
1183          vs_top=sup;          vs_top=sup;
1184          V191= vs_base[0];          V192= vs_base[0];
1185  goto T513;  goto T513;
1186  T513:;  T513:;
1187          base[1]= (V191);          base[1]= (V192);
1188          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1189          Lconstantp();          Lconstantp();
1190          vs_top=sup;          vs_top=sup;
# Line 1193  T513:; Line 1193  T513:;
1193          goto T507;          goto T507;
1194  goto T521;  goto T521;
1195  T521:;  T521:;
1196          {object V193;          {object V194;
1197          V193= (*(LnkLI122))((V191),(V184));          V194= (*(LnkLI122))((V192),(V185));
1198          if(type_of(cdr(V188))!=t_cons)FEwrong_type_argument(Scons,cdr(V188));          if(type_of(cdr(V189))!=t_cons)FEwrong_type_argument(Scons,cdr(V189));
1199          (cdr(V188))->c.c_car = (V193);          (cdr(V189))->c.c_car = (V194);
1200          (void)(cdr(V188));}}          (void)(cdr(V189));}}
1201  goto T507;  goto T507;
1202  T507:;  T507:;
1203          {register object x= (V184),V194= VV[58];          {register object x= (V185),V195= VV[58];
1204          while(!endp(V194))          while(!endp(V195))
1205          if(x==(V194->c.c_car)){          if(x==(V195->c.c_car)){
1206          goto T527;          goto T527;
1207          }else V194=V194->c.c_cdr;          }else V195=V195->c.c_cdr;
1208          goto T498;}          goto T498;}
1209  goto T527;  goto T527;
1210  T527:;  T527:;
1211          V185= Ct;          V186= Ct;
1212  goto T498;  goto T498;
1213  T498:;  T498:;
1214          V187= cdr((V187));          V188= cdr((V188));
1215          V188= car((V187));          V189= car((V188));
1216          goto T493;}          goto T493;}
1217  goto T489;  goto T489;
1218  T489:;  T489:;
1219          {object V195;          {object V196;
1220          if(((V185))==Cnil){          if(((V186))==Cnil){
1221          goto T535;}          goto T535;}
1222          V195= Cnil;          V196= Cnil;
1223          goto T534;          goto T534;
1224  goto T535;  goto T535;
1225  T535:;  T535:;
1226          V196 = make_fixnum((long)length(symbol_value(VV[57])));          V197 = make_fixnum((long)length(symbol_value(VV[57])));
1227          if(number_compare((V181),V196)<0){          if(number_compare((V182),V197)<0){
1228          goto T537;}          goto T537;}
1229          V195= Cnil;          V196= Cnil;
1230          goto T534;          goto T534;
1231  goto T537;  goto T537;
1232  T537:;{object V197;  T537:;{object V198;
1233          V197= symbol_value(VV[57]);          V198= symbol_value(VV[57]);
1234          base[0]= Ct;          base[0]= Ct;
1235          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1236          (void) (*Lnk123)();          (void) (*Lnk123)();
1237          vs_top=sup;          vs_top=sup;
1238          V198= vs_base[0];          V199= vs_base[0];
1239          V195= list(3,V197,number_times((V181),V198),Cnil);}          V196= list(3,V198,number_times((V182),V199),Cnil);}
1240  goto T534;  goto T534;
1241  T534:;  T534:;
1242          if(((V195))==Cnil){          if(((V196))==Cnil){
1243          goto T542;}          goto T542;}
1244          {object V199 = (V195);          {object V200 = (V196);
1245          VMR9(V199)}          VMR9(V200)}
1246  goto T542;  goto T542;
1247  T542:;  T542:;
1248          {object V200;          {object V201;
1249          register long V201;          register long V202;
         long V202;  
1250          long V203;          long V203;
1251          object V204;          long V204;
1252          long V205;          object V205;
1253          V200= (VFUN_NARGS=5,(*(LnkLI118))((V181),VV[50],VV[59],VV[52],Ct));          long V206;
1254          V201= 0;          V201= (VFUN_NARGS=5,(*(LnkLI118))((V182),VV[50],VV[59],VV[52],Ct));
1255          V202= 0;          V202= 0;
1256          V203= 0;          V203= 0;
1257          V205= 0;          V204= 0;
1258          V204= Cnil;          V206= 0;
1259          {register object V206;          V205= Cnil;
1260          register object V207;          {register object V207;
1261          V206= (V183);          register object V208;
1262          V207= car((V206));          V207= (V184);
1263            V208= car((V207));
1264  goto T553;  goto T553;
1265  T553:;  T553:;
1266          if(!(endp_prop((V206)))){          if(!(endp_prop((V207)))){
1267          goto T554;}          goto T554;}
1268          goto T549;          goto T549;
1269  goto T554;  goto T554;
1270  T554:;  T554:;
1271          V204= caddr((V207));          V205= caddr((V208));
1272          base[1]= (V204);          base[1]= (V205);
1273          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1274          (void) (*Lnk119)();          (void) (*Lnk119)();
1275          vs_top=sup;          vs_top=sup;
1276          V203= fix(vs_base[0]);          V204= fix(vs_base[0]);
1277          V208 = make_fixnum(V203);          V209 = make_fixnum(V204);
1278          if(number_compare(V208,symbol_value(VV[55]))<=0){          if(number_compare(V209,symbol_value(VV[55]))<=0){
1279          goto T563;}          goto T563;}
1280          V204= Ct;          V205= Ct;
1281          if(type_of(cddr(V207))!=t_cons)FEwrong_type_argument(Scons,cddr(V207));          if(type_of(cddr(V208))!=t_cons)FEwrong_type_argument(Scons,cddr(V208));
1282          (cddr(V207))->c.c_car = Ct;          (cddr(V208))->c.c_car = Ct;
1283          (void)(cddr(V207));          (void)(cddr(V208));
1284          V203= fix(symbol_value(VV[55]));          V204= fix(symbol_value(VV[55]));
1285          V207= nconc((V207),VV[60]);          V208= nconc((V208),VV[60]);
1286  goto T563;  goto T563;
1287  T563:;  T563:;
1288          V205= (long)(*(LnkLI124))(V201,V203);          V206= (long)(*(LnkLI124))(V202,V204);
1289          if(!((V201)==(V205))){          if(!((V202)==(V206))){
1290          goto T576;}          goto T576;}
1291          goto T575;          goto T575;
1292  goto T576;  goto T576;
1293  T576:;  T576:;
1294          V186= Ct;          V187= Ct;
1295  goto T575;  goto T575;
1296  T575:;  T575:;
1297          V201= V205;          V202= V206;
1298          V211 = make_fixnum(V201);          V212 = make_fixnum(V202);
1299          (void)(aset1((V200),V202,V211));          (void)(aset1((V201),V203,V212));
1300          V212 = make_fixnum(V201);          V213 = make_fixnum(V202);
1301          base[1]= (V204);          base[1]= (V205);
1302          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1303          (void) (*Lnk123)();          (void) (*Lnk123)();
1304          vs_top=sup;          vs_top=sup;
1305          V213= vs_base[0];          V214= vs_base[0];
1306          V201= fix(number_plus(V212,V213));          V202= fix(number_plus(V213,V214));
1307          V202= (long)(V202)+(1);          V203= (long)(V203)+(1);
1308          V206= cdr((V206));          V207= cdr((V207));
1309          V207= car((V206));          V208= car((V207));
1310          goto T553;}          goto T553;}
1311  goto T549;  goto T549;
1312  T549:;  T549:;
# Line 1314  T549:; Line 1314  T549:;
1314          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1315          (void) (*Lnk123)();          (void) (*Lnk123)();
1316          vs_top=sup;          vs_top=sup;
1317          V214= vs_base[0];          V215= vs_base[0];
1318          V215 = make_fixnum((long)(*(LnkLI124))(V201,fix(V214)));          V216 = make_fixnum((long)(*(LnkLI124))(V202,fix(V215)));
1319          {object V216 = list(3,(V200),V215,(V186));          {object V217 = list(3,(V201),V216,(V187));
1320          VMR9(V216)}}}}          VMR9(V217)}}}}
1321          base[0]=base[0];          base[0]=base[0];
1322          return Cnil;          return Cnil;
1323  }  }
1324  /*      local entry for function DEFINE-STRUCTURE       */  /*      local entry for function DEFINE-STRUCTURE       */
1325    
1326  static object LI10(V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218,V217,va_alist)  static object LI10(V229,V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218,va_alist)
1327          object V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218,V217;          object V229,V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218;
1328          va_dcl          va_dcl
1329  {        {      
1330          va_list ap;          va_list ap;
1331          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
1332          {object V229;          {object V230;
1333          register object V230;          register object V231;
         object V231;  
1334          object V232;          object V232;
1335          object V233;          object V233;
1336          object V234;          object V234;
1337          register object V235;          object V235;
1338          object V236;          register object V236;
1339          object V237;          object V237;
1340          object V238;          object V238;
1341          object V239;          object V239;
1342          object V240;          object V240;
1343          register object V241;          object V241;
1344            register object V242;
1345          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1346          va_start(ap);          va_start(ap);
1347          if(narg <12) too_few_arguments();          if(narg <12) too_few_arguments();
1348          Vcs[0]=MMcons(V228,Cnil);          Vcs[0]=MMcons(V229,Cnil);
1349          V229= V227;          V230= V228;
1350          V230= V226;          V231= V227;
1351          V231= V225;          V232= V226;
1352          V232= V224;          V233= V225;
1353          V233= V223;          V234= V224;
1354          V234= V222;          V235= V223;
1355          V235= V221;          V236= V222;
1356          V236= V220;          V237= V221;
1357          V237= V219;          V238= V220;
1358          V238= V218;          V239= V219;
1359          V239= V217;          V240= V218;
1360          narg = narg - 12;          narg = narg - 12;
1361          if (narg <= 0) goto T595;          if (narg <= 0) goto T595;
1362          else {          else {
1363          V240= va_arg(ap,object);}          V241= va_arg(ap,object);}
1364          if (--narg <= 0) goto T596;          if (--narg <= 0) goto T596;
1365          else {          else {
1366          V241= va_arg(ap,object);}          V242= va_arg(ap,object);}
1367          --narg; goto T597;          --narg; goto T597;
1368  goto T595;  goto T595;
1369  T595:;  T595:;
1370          V240= Cnil;          V241= Cnil;
1371  goto T596;  goto T596;
1372  T596:;  T596:;
1373          V241= Cnil;          V242= Cnil;
1374  goto T597;  goto T597;
1375  T597:;  T597:;
1376          {object V242;          {object V243;
1377          object V243;          object V244;
         V242= Cnil;  
1378          V243= Cnil;          V243= Cnil;
1379          if(type_of((V230))==t_cons){          V244= Cnil;
1380            if(type_of((V231))==t_cons){
1381          goto T603;}          goto T603;}
1382          goto T602;          goto T602;
1383  goto T603;  goto T603;
1384  T603:;  T603:;
1385          if((car((V230)))==(VV[19])){          if((car((V231)))==(VV[19])){
1386          goto T605;}          goto T605;}
1387          goto T602;          goto T602;
1388  goto T605;  goto T605;
1389  T605:;  T605:;
1390          V230= VV[19];          V231= VV[19];
1391  goto T602;  goto T602;
1392  T602:;  T602:;
1393          V243= make_fixnum((long)length((V232)));          V244= make_fixnum((long)length((V233)));
1394          {register object V244;          {register object V245;
1395          register object V245;          register object V246;
1396          V244= (V232);          V245= (V233);
1397          V245= car((V244));          V246= car((V245));
1398  goto T614;  goto T614;
1399  T614:;  T614:;
1400          if(!(endp_prop((V244)))){          if(!(endp_prop((V245)))){
1401          goto T615;}          goto T615;}
1402          goto T610;          goto T610;
1403  goto T615;  goto T615;
1404  T615:;  T615:;
1405          if((V245)==Cnil){          if((V246)==Cnil){
1406          goto T619;}          goto T619;}
1407          if((car((V245)))!=Cnil){          if((car((V246)))!=Cnil){
1408          goto T620;}          goto T620;}
1409          goto T619;          goto T619;
1410  goto T620;  goto T620;
1411  T620:;  T620:;
1412          base[1]= (Vcs[0]->c.c_car);          base[1]= (Vcs[0]->c.c_car);
1413          base[2]= (V229);          base[2]= (V230);
1414          base[3]= (V230);          base[3]= (V231);
1415          base[4]= (V231);          base[4]= (V232);
1416          base[5]= (V235);          base[5]= (V236);
1417          base[6]= (V241);          base[6]= (V242);
1418          {object V246;          {object V247;
1419          V246= (V245);          V247= (V246);
1420           vs_top=base+7;           vs_top=base+7;
1421           while(!endp(V246))           while(!endp(V247))
1422           {vs_push(car(V246));V246=cdr(V246);}           {vs_push(car(V247));V247=cdr(V247);}
1423          vs_base=base+1;}          vs_base=base+1;}
1424          (void) (*Lnk125)();          (void) (*Lnk125)();
1425          vs_top=sup;          vs_top=sup;
1426  goto T619;  goto T619;
1427  T619:;  T619:;
1428          V244= cdr((V244));          V245= cdr((V245));
1429          V245= car((V244));          V246= car((V245));
1430          goto T614;}          goto T614;}
1431  goto T610;  goto T610;
1432  T610:;  T610:;
1433          if(((V233))==Cnil){          if(((V234))==Cnil){
1434          goto T634;}          goto T634;}
1435          if(((V241))!=Cnil){          if(((V242))!=Cnil){
1436          goto T634;}          goto T634;}
1437          base[0]= (V233);          base[0]= (V234);
1438          {object V247= (V230);          {object V248= (V231);
1439          if((V247!= Cnil))goto T641;          if((V248!= Cnil))goto T641;
1440          base[1]= symbol_function(VV[126]);          base[1]= symbol_function(VV[126]);
1441          goto T640;          goto T640;
1442  goto T641;  goto T641;
1443  T641:;  T641:;
1444          if((V247!= VV[20]))goto T642;          if((V248!= VV[20]))goto T642;
1445          base[1]= symbol_function(VV[127]);          base[1]= symbol_function(VV[127]);
1446          goto T640;          goto T640;
1447  goto T642;  goto T642;
1448  T642:;  T642:;
1449          if((V247!= VV[19]))goto T643;          if((V248!= VV[19]))goto T643;
1450          base[1]= symbol_function(VV[128]);          base[1]= symbol_function(VV[128]);
1451          goto T640;          goto T640;
1452  goto T643;  goto T643;
1453  T643:;  T643:;
1454          FEerror("The ECASE key value ~s is illegal.",1,V247);          FEerror("The ECASE key value ~s is illegal.",1,V248);
1455          base[1]= Cnil;          base[1]= Cnil;
1456          goto T640;}          goto T640;}
1457  goto T640;  goto T640;
# Line 1461  T640:; Line 1461  T640:;
1461          vs_top=sup;          vs_top=sup;
1462  goto T634;  goto T634;
1463  T634:;  T634:;
1464          if(((V230))!=Cnil){          if(((V231))!=Cnil){
1465          goto T646;}          goto T646;}
1466          if(!(((Vcs[0]->c.c_car))==(VV[53]))){          if(!(((Vcs[0]->c.c_car))==(VV[53]))){
1467          goto T646;}          goto T646;}
# Line 1469  T634:; Line 1469  T634:;
1469          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1470          (void) (*Lnk123)();          (void) (*Lnk123)();
1471          vs_top=sup;          vs_top=sup;
1472          V248= vs_base[0];          V249= vs_base[0];
1473          V249= number_times((V243),V248);          V250= number_times((V244),V249);
1474          base[0]= (VFUN_NARGS=5,(*(LnkLI118))(/* INLINE-ARGS */V249,VV[50],VV[61],VV[52],Ct));          base[0]= (VFUN_NARGS=5,(*(LnkLI118))(/* INLINE-ARGS */V250,VV[50],VV[61],VV[52],Ct));
1475          base[1]= (*(LnkLI129))((V243),Cnil,(V232));          base[1]= (*(LnkLI129))((V244),Cnil,(V233));
1476          base[2]= symbol_value(VV[57]);          base[2]= symbol_value(VV[57]);
1477          base[3]= (V232);          base[3]= (V233);
1478          base[4]= Ct;          base[4]= Ct;
1479          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1480          (void) (*Lnk130)();          (void) (*Lnk130)();
1481          vs_top=sup;          vs_top=sup;
1482          V242= vs_base[0];          V243= vs_base[0];
1483          goto T644;          goto T644;
1484  goto T646;  goto T646;
1485  T646:;  T646:;
1486          {object V250;          {object V251;
         object V251;  
1487          object V252;          object V252;
1488          object V253;          object V253;
1489          if((V235)==Cnil){          object V254;
1490          V253= Cnil;          if((V236)==Cnil){
1491            V254= Cnil;
1492          goto T658;}          goto T658;}
1493          V253= get((V235),VV[53],Cnil);          V254= get((V236),VV[53],Cnil);
1494  goto T658;  goto T658;
1495  T658:;  T658:;
1496          V250= Cnil;          V251= Cnil;
1497          V251= small_fixnum(0);          V252= small_fixnum(0);
1498          V252= Cnil;          V253= Cnil;
1499          if(((V253))==Cnil){          if(((V254))==Cnil){
1500          goto T659;}          goto T659;}
1501          if((structure_ref((V253),VV[53],11))==Cnil){          if((structure_ref((V254),VV[53],11))==Cnil){
1502          goto T662;}          goto T662;}
1503          if((structure_ref((V253),VV[53],3))==Cnil){          if((structure_ref((V254),VV[53],3))==Cnil){
1504          goto T663;}          goto T663;}
1505          {object V254;          {object V255;
1506          V254= get((Vcs[0]->c.c_car),VV[53],Cnil);          V255= get((Vcs[0]->c.c_car),VV[53],Cnil);
1507          if((V254)==Cnil){          if((V255)==Cnil){
1508          goto T668;}          goto T668;}
1509          V255= structure_ref((V254),VV[53],4);          V256= structure_ref((V255),VV[53],4);
1510          if((/* INLINE-ARGS */V255)==((V253))){          if((/* INLINE-ARGS */V256)==((V254))){
1511          goto T662;}}          goto T662;}}
1512  goto T668;  goto T668;
1513  T668:;  T668:;
1514  goto T663;  goto T663;
1515  T663:;  T663:;
1516          (void)((VFUN_NARGS=2,(*(LnkLI131))(VV[62],(V235))));          (void)((VFUN_NARGS=2,(*(LnkLI131))(VV[62],(V236))));
1517  goto T662;  goto T662;
1518  T662:;  T662:;
1519          {object V257;          {object V257;
1520          base[1]= (Vcs[0]->c.c_car);          object V259;
1521          base[2]= structure_ref(V253,VV[53],3);          V257= (Vcs[0]->c.c_car);
1522            base[1]= (V257);
1523            base[2]= structure_ref(V254,VV[53],3);
1524          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1525          Ladjoin();          Ladjoin();
1526          vs_top=sup;          vs_top=sup;
1527          V257= vs_base[0];          V259= vs_base[0];
1528          (void)(structure_set(V253,VV[53],3,(V257)));}          (void)(structure_set(V254,VV[53],3,(V259)));}
1529  goto T659;  goto T659;
1530  T659:;  T659:;
1531          if(((V230))!=Cnil){          if(((V231))!=Cnil){
1532          goto T673;}          goto T674;}
1533          V250= (*(LnkLI132))((V243),(V235),(V232));          V251= (*(LnkLI132))((V244),(V236),(V233));
1534          V251= cadr((V250));          V252= cadr((V251));
1535          V252= caddr((V250));          V253= caddr((V251));
1536          V250= car((V250));          V251= car((V251));
1537  goto T673;  goto T674;
1538  T673:;  T674:;
1539          if(((V230))==Cnil){          if(((V231))==Cnil){
1540          goto T685;}          goto T686;}
1541          V258= Cnil;          V260= Cnil;
1542          goto T684;          goto T685;
1543    goto T686;
1544    T686:;
1545            V260= (*(LnkLI129))((V244),(V236),(V233));
1546  goto T685;  goto T685;
1547  T685:;  T685:;
1548          V258= (*(LnkLI129))((V243),(V235),(V232));          V243= (VFUN_NARGS=32,(*(LnkLI133))(VV[63],(Vcs[0]->c.c_car),VV[64],(V244),VV[65],V260,VV[66],(V251),VV[67],(V252),VV[68],(V253),VV[69],(V235),VV[70],(V254),VV[71],(V237),VV[72],(V233),VV[73],(V238),VV[74],(V239),VV[75],(V231),VV[76],(V232),VV[77],(V241),VV[78],(V230)));}
 goto T684;  
 T684:;  
         V242= (VFUN_NARGS=32,(*(LnkLI133))(VV[63],(Vcs[0]->c.c_car),VV[64],(V243),VV[65],V258,VV[66],(V250),VV[67],(V251),VV[68],(V252),VV[69],(V234),VV[70],(V253),VV[71],(V236),VV[72],(V232),VV[73],(V237),VV[74],(V238),VV[75],(V230),VV[76],(V231),VV[77],(V240),VV[78],(V229)));}  
1549  goto T644;  goto T644;
1550  T644:;  T644:;
1551          {object V259;          {object V261;
1552          V259= get((Vcs[0]->c.c_car),VV[53],Cnil);          V261= get((Vcs[0]->c.c_car),VV[53],Cnil);
1553          if(!(((Vcs[0]->c.c_car))==(VV[53]))){          if(!(((Vcs[0]->c.c_car))==(VV[53]))){
1554          goto T691;}          goto T692;}
1555          if(((V259))==Cnil){          if(((V261))==Cnil){
1556          goto T693;}          goto T694;}
1557          (void)((VFUN_NARGS=1,(*(LnkLI131))(VV[79])));          (void)((VFUN_NARGS=1,(*(LnkLI131))(VV[79])));
1558  goto T693;  goto T694;
1559  T693:;  T694:;
1560          if((V259)!=Cnil){          if((V261)!=Cnil){
1561          goto T689;}          goto T690;}
1562          (void)(sputprop((Vcs[0]->c.c_car),VV[53],(V242)));          (void)(sputprop((Vcs[0]->c.c_car),VV[53],(V243)));
1563          goto T689;          goto T690;
1564  goto T691;  goto T692;
1565  T691:;  T692:;
1566          if(((V259))==Cnil){          if(((V261))==Cnil){
1567          goto T697;}          goto T698;}
1568          (void)((*(LnkLI134))((V259),(V242),(Vcs[0]->c.c_car)));          (void)((*(LnkLI134))((V261),(V243),(Vcs[0]->c.c_car)));
1569          goto T689;          goto T690;
1570  goto T697;  goto T698;
1571  T697:;  T698:;
1572          (void)(sputprop((Vcs[0]->c.c_car),VV[53],(V242)));          (void)(sputprop((Vcs[0]->c.c_car),VV[53],(V243)));
1573  goto T689;  goto T690;
1574  T689:;  T690:;
1575            if(((V241))==Cnil){
1576            goto T700;}
1577            (void)(sputprop((Vcs[0]->c.c_car),VV[80],(V241)));
1578    goto T700;
1579    T700:;
1580            if(((V231))!=Cnil){
1581            goto T688;}
1582          if(((V240))==Cnil){          if(((V240))==Cnil){
1583          goto T699;}          goto T688;}
1584          (void)(sputprop((Vcs[0]->c.c_car),VV[80],(V240)));          base[0]= (V240);
 goto T699;  
 T699:;  
         if(((V230))!=Cnil){  
         goto T687;}  
         if(((V239))==Cnil){  
         goto T687;}  
         base[0]= (V239);  
1585          base[1]= VV[3];          base[1]= VV[3];
1586          base[2]= VV[81];          base[2]= VV[81];
1587          base[3]= Ct;          base[3]= Ct;
1588          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1589          (void) (*Lnk109)();          (void) (*Lnk109)();
1590          vs_top=sup;          vs_top=sup;
1591          if((V241)!=Cnil){          if((V242)!=Cnil){
1592          goto T711;}          goto T712;}
1593          base[0]= (V239);          base[0]= (V240);
1594          base[1]=          base[1]=
1595          make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);          make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);
1596          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1597          siLfset();          siLfset();
1598          vs_top=sup;          vs_top=sup;
1599  goto T711;  goto T712;
1600  T711:;  T712:;
1601          (void)(sputprop((V239),VV[82],VV[83]));          (void)(sputprop((V240),VV[82],VV[83]));
1602          (void)(sputprop((V239),VV[84],(Vcs[0]->c.c_car)));}          (void)(sputprop((V240),VV[84],(Vcs[0]->c.c_car)));}
1603  goto T687;  goto T688;
1604  T687:;  T688:;
1605          {object V260 = Cnil;          {object V262 = Cnil;
1606          VMR10(V260)}}          VMR10(V262)}}
1607          va_end(ap);          va_end(ap);
1608          base[0]=base[0];          base[0]=base[0];
1609          return Cnil;}          return Cnil;}
# Line 1614  static void L11() Line 1616  static void L11()
1616          vs_reserve(VM11);          vs_reserve(VM11);
1617          check_arg(2);          check_arg(2);
1618          vs_top=sup;          vs_top=sup;
1619          {object V261=base[0]->c.c_cdr;          {object V263=base[0]->c.c_cdr;
1620          if(endp(V261))invalid_macro_call();          if(endp(V263))invalid_macro_call();
1621          base[2]= (V261->c.c_car);          base[2]= (V263->c.c_car);
1622          V261=V261->c.c_cdr;          V263=V263->c.c_cdr;
1623          base[3]= V261;}          base[3]= V263;}
1624          {register object V262;          {register object V264;
1625          object V263;          object V265;
         register object V264;  
         register object V265;  
1626          register object V266;          register object V266;
1627          register object V267;          register object V267;
1628          register object V268;          register object V268;
# Line 1634  static void L11() Line 1634  static void L11()
1634          register object V274;          register object V274;
1635          register object V275;          register object V275;
1636          register object V276;          register object V276;
1637          object V277;          register object V277;
1638          object V278;          register object V278;
1639          register object V279;          object V279;
1640          V262= base[3];          object V280;
1641          V263= Cnil;          register object V281;
1642          V264= Cnil;          V264= base[3];
1643          V265= Cnil;          V265= Cnil;
1644          V266= Cnil;          V266= Cnil;
1645          V267= Cnil;          V267= Cnil;
# Line 1655  static void L11() Line 1655  static void L11()
1655          V277= Cnil;          V277= Cnil;
1656          V278= Cnil;          V278= Cnil;
1657          V279= Cnil;          V279= Cnil;
1658            V280= Cnil;
1659            V281= Cnil;
1660          if(!(type_of(base[2])==t_cons)){          if(!(type_of(base[2])==t_cons)){
1661          goto T715;}          goto T716;}
1662          V263= cdr(base[2]);          V265= cdr(base[2]);
1663          base[2]= car(base[2]);          base[2]= car(base[2]);
1664  goto T715;  goto T716;
1665  T715:;  T716:;
1666          base[4]= coerce_to_string(base[2]);          base[4]= coerce_to_string(base[2]);
1667          base[5]= VV[85];          base[5]= VV[85];
1668          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1669          (void) (*Lnk107)();          (void) (*Lnk107)();
1670          vs_top=sup;          vs_top=sup;
1671          V264= vs_base[0];          V266= vs_base[0];
1672          base[5]= VV[86];          base[5]= VV[86];
1673          base[6]= coerce_to_string(base[2]);          base[6]= coerce_to_string(base[2]);
1674          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
# Line 1676  T715:; Line 1678  T715:;
1678          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1679          Lintern();          Lintern();
1680          vs_top=sup;          vs_top=sup;
1681          V266= vs_base[0];          V268= vs_base[0];
1682          base[5]= VV[87];          base[5]= VV[87];
1683          base[6]= coerce_to_string(base[2]);          base[6]= coerce_to_string(base[2]);
1684          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
# Line 1686  T715:; Line 1688  T715:;
1688          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1689          Lintern();          Lintern();
1690          vs_top=sup;          vs_top=sup;
1691          V268= vs_base[0];          V270= vs_base[0];
1692          base[5]= coerce_to_string(base[2]);          base[5]= coerce_to_string(base[2]);
1693          base[6]= VV[88];          base[6]= VV[88];
1694          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
# Line 1696  T715:; Line 1698  T715:;
1698          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1699          Lintern();          Lintern();
1700          vs_top=sup;          vs_top=sup;
1701          V269= vs_base[0];          V271= vs_base[0];
1702          {register object V280;          {register object V282;
1703          register object V281;          register object V283;
1704          register object V282;          register object V284;
1705          V280= (V263);          V282= (V265);
1706          V281= Cnil;          V283= Cnil;
1707          V282= Cnil;          V284= Cnil;
 goto T742;  
 T742:;  
         if(!(endp_prop((V280)))){  
         goto T743;}  
         goto T740;  
1708  goto T743;  goto T743;
1709  T743:;  T743:;
1710          if(!(type_of(car((V280)))==t_cons)){          if(!(endp_prop((V282)))){
1711          goto T749;}          goto T744;}
1712          if(endp_prop(cdar((V280)))){          goto T741;
1713          goto T749;}  goto T744;
1714          V281= caar((V280));  T744:;
1715          V282= cadar((V280));          if(!(type_of(car((V282)))==t_cons)){
1716          {object V283= (V281);          goto T750;}
1717          if((V283!= VV[78]))goto T757;          if(endp_prop(cdar((V282)))){
1718          if(((V282))!=Cnil){          goto T750;}
1719          goto T759;}          V283= caar((V282));
1720          V264= VV[89];          V284= cadar((V282));
1721          goto T747;          {object V285= (V283);
1722  goto T759;          if((V285!= VV[78]))goto T758;
1723  T759:;          if(((V284))!=Cnil){
1724          V264= (V282);          goto T760;}
1725          goto T747;          V266= VV[89];
1726  goto T757;          goto T748;
1727  T757:;  goto T760;
1728          if((V283!= VV[135]))goto T763;  T760:;
1729          if(((V282))!=Cnil){          V266= (V284);
1730          goto T765;}          goto T748;
1731          V267= Ct;  goto T758;
1732          goto T747;  T758:;
1733  goto T765;          if((V285!= VV[135]))goto T764;
1734  T765:;          if(((V284))!=Cnil){
1735          if(!(endp_prop(cddar((V280))))){          goto T766;}
1736          goto T769;}          V269= Ct;
1737          V265= make_cons((V282),(V265));          goto T748;
1738          goto T747;  goto T766;
1739  goto T769;  T766:;
1740  T769:;          if(!(endp_prop(cddar((V282))))){
1741          V265= make_cons(cdar((V280)),(V265));          goto T770;}
1742          goto T747;          V267= make_cons((V284),(V267));
1743  goto T763;          goto T748;
1744  T763:;  goto T770;
1745          if((V283!= VV[136]))goto T773;  T770:;
1746          V268= (V282);          V267= make_cons(cdar((V282)),(V267));
1747          goto T747;          goto T748;
1748  goto T773;  goto T764;
1749  T773:;  T764:;
1750          if((V283!= VV[52]))goto T775;          if((V285!= VV[136]))goto T774;
1751          V279= (V282);          V270= (V284);
1752          goto T747;          goto T748;
1753  goto T775;  goto T774;
1754  T775:;  T774:;
1755          if((V283!= VV[137]))goto T777;          if((V285!= VV[52]))goto T776;
1756          V269= (V282);          V281= (V284);
1757          V270= Ct;          goto T748;
1758          goto T747;  goto T776;
1759  goto T777;  T776:;
1760  T777:;          if((V285!= VV[137]))goto T778;
1761          if((V283!= VV[138]))goto T781;          V271= (V284);
1762          V271= cdar((V280));          V272= Ct;
1763          if((get((V282),VV[53],Cnil))!=Cnil){          goto T748;
1764          goto T747;}  goto T778;
1765    T778:;
1766            if((V285!= VV[138]))goto T782;
1767            V273= cdar((V282));
1768            if((get((V284),VV[53],Cnil))!=Cnil){
1769            goto T748;}
1770          base[4]= VV[90];          base[4]= VV[90];
1771          base[5]= (V282);          base[5]= (V284);
1772          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1773          Lerror();          Lerror();
1774          vs_top=sup;          vs_top=sup;
1775          goto T747;          goto T748;
1776  goto T781;  goto T782;
1777  T781:;  T782:;
1778          if((V283!= VV[71]))goto T788;          if((V285!= VV[71]))goto T789;
1779          if(type_of((V282))==t_cons){          if(type_of((V284))==t_cons){
1780          goto T790;}          goto T791;}
1781          goto T789;          goto T790;
1782    goto T791;
1783    T791:;
1784            if((car((V284)))==(VV[91])){
1785            goto T793;}
1786            goto T790;
1787    goto T793;
1788    T793:;
1789            V284= cadr((V284));
1790  goto T790;  goto T790;
1791  T790:;  T790:;
1792          if((car((V282)))==(VV[91])){          V274= (V284);
1793          goto T792;}          goto T748;
         goto T789;  
 goto T792;  
 T792:;  
         V282= cadr((V282));  
1794  goto T789;  goto T789;
1795  T789:;  T789:;
1796          V272= (V282);          if((V285!= VV[75]))goto T797;
1797          goto T747;          V275= (V284);
1798  goto T788;          goto T748;
1799  T788:;  goto T797;
1800          if((V283!= VV[75]))goto T796;  T797:;
1801          V273= (V282);          if((V285!= VV[139]))goto T799;
1802          goto T747;          V277= (V284);
1803  goto T796;          goto T748;
1804  T796:;  goto T799;
1805          if((V283!= VV[139]))goto T798;  T799:;
         V275= (V282);  
         goto T747;  
 goto T798;  
 T798:;  
1806          base[4]= VV[92];          base[4]= VV[92];
1807          base[5]= (V281);          base[5]= (V283);
1808          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1809          Lerror();          Lerror();
1810          vs_top=sup;          vs_top=sup;
1811          goto T747;}          goto T748;}
1812  goto T749;  goto T750;
1813  T749:;  T750:;
1814          if(!(type_of(car((V280)))==t_cons)){          if(!(type_of(car((V282)))==t_cons)){
1815          goto T804;}          goto T805;}
1816          V281= caar((V280));          V283= caar((V282));
1817          goto T802;          goto T803;
1818  goto T804;  goto T805;
1819  T804:;  T805:;
1820          V281= car((V280));          V283= car((V282));
1821  goto T802;  goto T803;
1822  T802:;  T803:;
1823          {object V284= (V281);          {object V286= (V283);
1824          if((V284!= VV[135]))goto T808;          if((V286!= VV[135]))goto T809;
1825          V265= make_cons((V266),(V265));          V267= make_cons((V268),(V267));
1826          goto T747;          goto T748;
1827  goto T808;  goto T809;
1828  T808:;  T809:;
1829          if((V284!= VV[78])          if((V286!= VV[78])
1830          && (V284!= VV[136])          && (V286!= VV[136])
1831          && (V284!= VV[137])          && (V286!= VV[137])
1832          && (V284!= VV[71]))goto T810;          && (V286!= VV[71]))goto T811;
1833          goto T747;          goto T748;
 goto T810;  
 T810:;  
         if((V284!= VV[76]))goto T811;  
         V274= Ct;  
         goto T747;  
1834  goto T811;  goto T811;
1835  T811:;  T811:;
1836            if((V286!= VV[76]))goto T812;
1837            V276= Ct;
1838            goto T748;
1839    goto T812;
1840    T812:;
1841          base[4]= VV[93];          base[4]= VV[93];
1842          base[5]= (V281);          base[5]= (V283);
1843          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1844          Lerror();          Lerror();
1845          vs_top=sup;}          vs_top=sup;}
1846  goto T747;  goto T748;
1847  T747:;  T748:;
1848          V280= cdr((V280));          V282= cdr((V282));
1849          goto T742;}          goto T743;}
1850  goto T740;  goto T741;
1851  T740:;  T741:;
1852          base[4]= coerce_to_string((V264));          base[4]= coerce_to_string((V266));
1853          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1854          Lintern();          Lintern();
1855          vs_top=sup;          vs_top=sup;
1856          V264= vs_base[0];          V266= vs_base[0];
1857          if((V271)==Cnil){          if((V273)==Cnil){
         goto T821;}  
         if(((V272))==Cnil){  
1858          goto T822;}          goto T822;}
1859          goto T821;          if(((V274))==Cnil){
1860            goto T823;}
1861            goto T822;
1862    goto T823;
1863    T823:;
1864            V287= get(car((V273)),VV[53],Cnil);
1865            V274= structure_ref(V287,VV[53],6);
1866  goto T822;  goto T822;
1867  T822:;  T822:;
1868          V285= get(car((V271)),VV[53],Cnil);          if(endp_prop((V264))){
1869          V272= structure_ref(V285,VV[53],6);          goto T827;}
1870  goto T821;          if(!(type_of(car((V264)))==t_string)){
1871  T821:;          goto T827;}
1872          if(endp_prop((V262))){          V280= car((V264));
1873          goto T826;}          V264= cdr((V264));
1874          if(!(type_of(car((V262)))==t_string)){  goto T827;
1875          goto T826;}  T827:;
1876          V278= car((V262));          if(((V273))==Cnil){
1877          V262= cdr((V262));          goto T835;}
1878  goto T826;          V288= get(car((V273)),VV[53],Cnil);
1879  T826:;          V289= structure_ref(V288,VV[53],16);
1880          if(((V271))==Cnil){          if(equal((V275),/* INLINE-ARGS */V289)){
1881          goto T834;}          goto T835;}
         V286= get(car((V271)),VV[53],Cnil);  
         V287= structure_ref(V286,VV[53],16);  
         if(equal((V273),/* INLINE-ARGS */V287)){  
         goto T834;}  
1882          base[4]= VV[94];          base[4]= VV[94];
1883          base[5]= car((V271));          base[5]= car((V273));
1884          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1885          Lerror();          Lerror();
1886          vs_top=sup;          vs_top=sup;
1887  goto T834;  goto T835;
1888  T834:;  T835:;
1889          if(((V271))!=Cnil){          if(((V273))!=Cnil){
1890          goto T844;}          goto T845;}
1891          V276= small_fixnum(0);          V278= small_fixnum(0);
1892          goto T842;          goto T843;
1893  goto T844;  goto T845;
1894  T844:;  T845:;
1895          V288= get(car((V271)),VV[53],Cnil);          V290= get(car((V273)),VV[53],Cnil);
1896          V276= structure_ref(V288,VV[53],14);          V278= structure_ref(V290,VV[53],14);
1897  goto T842;  goto T843;
1898  T842:;  T843:;
         if(((V273))==Cnil){  
         goto T849;}  
1899          if(((V275))==Cnil){          if(((V275))==Cnil){
1900          goto T849;}          goto T850;}
1901          V276= number_plus((V276),(V275));          if(((V277))==Cnil){
1902  goto T849;          goto T850;}
1903  T849:;          V278= number_plus((V278),(V277));
1904          if(((V273))==Cnil){  goto T850;
1905          goto T855;}  T850:;
1906          if(((V274))==Cnil){          if(((V275))==Cnil){
1907          goto T855;}          goto T856;}
1908          V277= (V276);          if(((V276))==Cnil){
1909          V276= one_plus((V276));          goto T856;}
1910  goto T855;          V279= (V278);
1911  T855:;          V278= one_plus((V278));
1912          {register object V289;  goto T856;
1913          register object V290;  T856:;
1914          V289= (V262);          {register object V291;
1915          V290= Cnil;          register object V292;
1916  goto T865;          V291= (V264);
1917  T865:;          V292= Cnil;
         if(!(endp_prop((V289)))){  
         goto T866;}  
         V262= nreverse((V290));  
         goto T863;  
1918  goto T866;  goto T866;
1919  T866:;  T866:;
1920          V291= (*(LnkLI140))(car((V289)),(V276));          if(!(endp_prop((V291)))){
1921          V290= make_cons(/* INLINE-ARGS */V291,(V290));          goto T867;}
1922          V276= one_plus((V276));          V264= nreverse((V292));
1923          V289= cdr((V289));          goto T864;
1924          goto T865;}  goto T867;
1925  goto T863;  T867:;
1926  T863:;          V293= (*(LnkLI140))(car((V291)),(V278));
1927          if(((V273))==Cnil){          V292= make_cons(/* INLINE-ARGS */V293,(V292));
1928          goto T878;}          V278= one_plus((V278));
1929          if(((V274))==Cnil){          V291= cdr((V291));
1930          goto T878;}          goto T866;}
1931          V292= list(2,Cnil,base[2]);  goto T864;
1932          V262= make_cons(/* INLINE-ARGS */V292,(V262));  T864:;
 goto T878;  
 T878:;  
         if(((V273))==Cnil){  
         goto T884;}  
1933          if(((V275))==Cnil){          if(((V275))==Cnil){
1934          goto T884;}          goto T879;}
1935          base[4]= (V275);          if(((V276))==Cnil){
1936            goto T879;}
1937            V294= list(2,Cnil,base[2]);
1938            V264= make_cons(/* INLINE-ARGS */V294,(V264));
1939    goto T879;
1940    T879:;
1941            if(((V275))==Cnil){
1942            goto T885;}
1943            if(((V277))==Cnil){
1944            goto T885;}
1945            base[4]= (V277);
1946          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1947          Lmake_list();          Lmake_list();
1948          vs_top=sup;          vs_top=sup;
1949          V293= vs_base[0];          V295= vs_base[0];
1950          V262= append(V293,(V262));          V264= append(V295,(V264));
1951  goto T884;  goto T885;
1952  T884:;  T885:;
1953          {object V294;          {object V296;
1954          V294= (((V271))==Cnil?Ct:Cnil);          V296= (((V273))==Cnil?Ct:Cnil);
1955          if(((V294))==Cnil){          if(((V296))==Cnil){
1956          goto T895;}          goto T896;}
1957          goto T892;          goto T893;
1958  goto T895;  goto T896;
1959  T895:;  T896:;
1960          if(!(endp_prop(cdr((V271))))){          if(!(endp_prop(cdr((V273))))){
1961          goto T898;}          goto T899;}
1962          V295= get(car((V271)),VV[53],Cnil);          V297= get(car((V273)),VV[53],Cnil);
1963          V296= structure_ref(V295,VV[53],7);          V298= structure_ref(V297,VV[53],7);
1964          V262= append(/* INLINE-ARGS */V296,(V262));          V264= append(/* INLINE-ARGS */V298,(V264));
1965          goto T892;          goto T893;
1966  goto T898;  goto T899;
1967  T898:;  T899:;
1968          {object V298;          {object V300;
1969          object V299= cdr((V271));          object V301= cdr((V273));
1970          if(endp(V299)){          if(endp(V301)){
1971          V297= Cnil;          V299= Cnil;
1972          goto T903;}          goto T904;}
1973          base[4]=V298=MMcons(Cnil,Cnil);          base[4]=V300=MMcons(Cnil,Cnil);
1974    goto T905;
1975    T905:;
1976            (V300->c.c_car)= (*(LnkLI140))((V301->c.c_car),small_fixnum(0));
1977            V301=MMcdr(V301);
1978            if(endp(V301)){
1979            V299= base[4];
1980            goto T904;}
1981            V300=MMcdr(V300)=MMcons(Cnil,Cnil);
1982            goto T905;}
1983  goto T904;  goto T904;
1984  T904:;  T904:;
1985          (V298->c.c_car)= (*(LnkLI140))((V299->c.c_car),small_fixnum(0));          V303= get(car((V273)),VV[53],Cnil);
1986          V299=MMcdr(V299);          V304= structure_ref(V303,VV[53],7);
1987          if(endp(V299)){          V305= (*(LnkLI117))(V299,/* INLINE-ARGS */V304);
1988          V297= base[4];          V264= append(/* INLINE-ARGS */V305,(V264));}
1989          goto T903;}  goto T893;
1990          V298=MMcdr(V298)=MMcons(Cnil,Cnil);  T893:;
1991          goto T904;}          if(((V269))==Cnil){
1992  goto T903;          goto T910;}
 T903:;  
         V301= get(car((V271)),VV[53],Cnil);  
         V302= structure_ref(V301,VV[53],7);  
         V303= (*(LnkLI117))(V297,/* INLINE-ARGS */V302);  
         V262= append(/* INLINE-ARGS */V303,(V262));}  
 goto T892;  
 T892:;  
1993          if(((V267))==Cnil){          if(((V267))==Cnil){
1994          goto T909;}          goto T908;}
         if(((V265))==Cnil){  
         goto T907;}  
1995          base[4]= VV[95];          base[4]= VV[95];
1996          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1997          Lerror();          Lerror();
1998          vs_top=sup;          vs_top=sup;
1999          goto T907;          goto T908;
2000  goto T909;  goto T910;
2001  T909:;  T910:;
2002          if(((V265))!=Cnil){          if(((V267))!=Cnil){
2003          goto T907;}          goto T908;}
2004          V265= make_cons((V266),Cnil);          V267= make_cons((V268),Cnil);
2005  goto T907;  goto T908;
2006  T907:;{object V304;  T908:;{object V306;
2007          {object V307;          {object V309;
2008          object V308= (V265);          object V310= (V267);
2009          if(endp(V308)){          if(endp(V310)){
2010          V306= Cnil;          V308= Cnil;
2011          goto T920;}          goto T921;}
2012          base[4]=V307=MMcons(Cnil,Cnil);          base[4]=V309=MMcons(Cnil,Cnil);
2013  goto T921;  goto T922;
2014  T921:;  T922:;
2015          base[5]= (V308->c.c_car);          base[5]= (V310->c.c_car);
2016          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2017          Lsymbolp();          Lsymbolp();
2018          vs_top=sup;          vs_top=sup;
2019          (V307->c.c_car)= vs_base[0];          (V309->c.c_car)= vs_base[0];
2020          V308=MMcdr(V308);          V310=MMcdr(V310);
2021          if(endp(V308)){          if(endp(V310)){
2022          V306= base[4];          V308= base[4];
         goto T920;}  
         V307=MMcdr(V307)=MMcons(Cnil,Cnil);  
2023          goto T921;}          goto T921;}
2024            V309=MMcdr(V309)=MMcons(Cnil,Cnil);
2025            goto T922;}
2026    goto T921;
2027    T921:;
2028            {register object x= Ct,V307= V308;
2029            while(!endp(V307))
2030            if(eql(x,V307->c.c_car)){
2031            V306= V307;
2032            goto T920;
2033            }else V307=V307->c.c_cdr;
2034            V306= Cnil;}
2035  goto T920;  goto T920;
2036  T920:;  T920:;
2037          {register object x= Ct,V305= V306;          if(V306==Cnil)goto T919;
2038          while(!endp(V305))          goto T918;
         if(eql(x,V305->c.c_car)){  
         V304= V305;  
         goto T919;  
         }else V305=V305->c.c_cdr;  
         V304= Cnil;}  
2039  goto T919;  goto T919;
2040  T919:;  T919:;}
2041          if(V304==Cnil)goto T918;          {object V311;
2042          goto T917;          base[6]= VV[96];
2043  goto T918;          base[7]= (V268);
2044  T918:;}          vs_top=(vs_base=base+6)+2;
         base[5]= VV[96];  
         base[6]= (V266);  
         vs_top=(vs_base=base+5)+2;  
2045          (void) (*Lnk107)();          (void) (*Lnk107)();
2046          vs_top=sup;          vs_top=sup;
2047          base[4]= vs_base[0];          base[5]= vs_base[0];
2048          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+5)+1;
2049          Lintern();          Lintern();
2050          vs_top=sup;          vs_top=sup;
2051          V309= vs_base[0];          V311= vs_base[0];
2052          V265= make_cons(V309,(V265));          V267= make_cons((V311),(V267));}
2053  goto T917;  goto T918;
2054  T917:;  T918:;
2055          if(((V273))==Cnil){          if(((V275))==Cnil){
2056          goto T929;}          goto T930;}
2057          if(((V274))!=Cnil){          if(((V276))!=Cnil){
2058          goto T929;}          goto T930;}
2059          if(((V270))==Cnil){          if(((V272))==Cnil){
2060          goto T934;}          goto T935;}
2061          base[4]= VV[97];          base[4]= VV[97];
2062          base[5]= (V269);          base[5]= (V271);
2063          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2064          Lerror();          Lerror();
2065          vs_top=sup;          vs_top=sup;
2066  goto T934;  goto T935;
2067  T934:;  T935:;
2068          V269= Cnil;          V271= Cnil;
2069  goto T929;  goto T930;
2070  T929:;  T930:;
         if(((V271))==Cnil){  
         goto T940;}  
         V271= car((V271));  
 goto T940;  
 T940:;  
         if(((V272))==Cnil){  
         goto T944;}  
2071          if(((V273))==Cnil){          if(((V273))==Cnil){
2072          goto T944;}          goto T941;}
2073            V273= car((V273));
2074    goto T941;
2075    T941:;
2076            if(((V274))==Cnil){
2077            goto T945;}
2078            if(((V275))==Cnil){
2079            goto T945;}
2080          base[4]= VV[98];          base[4]= VV[98];
2081          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2082          Lerror();          Lerror();
2083          vs_top=sup;          vs_top=sup;
2084  goto T944;  goto T945;
2085  T944:;  T945:;
2086          base[4]= VV[100];          base[4]= VV[100];
2087          base[5]= list(2,VV[11],base[2]);          base[5]= list(2,VV[11],base[2]);
2088          base[6]= list(2,VV[11],(V264));          base[6]= list(2,VV[11],(V266));
2089          base[7]= list(2,VV[11],(V273));          base[7]= list(2,VV[11],(V275));
2090          base[8]= list(2,VV[11],(V274));          base[8]= list(2,VV[11],(V276));
2091          base[9]= list(2,VV[11],(V262));          base[9]= list(2,VV[11],(V264));
2092          base[10]= list(2,VV[11],(V268));          base[10]= list(2,VV[11],(V270));
2093          base[11]= list(2,VV[11],(V279));          base[11]= list(2,VV[11],(V281));
2094          base[12]= list(2,VV[11],(V271));          base[12]= list(2,VV[11],(V273));
2095          base[13]= list(2,VV[11],(V272));          base[13]= list(2,VV[11],(V274));
2096          base[14]= list(2,VV[11],(V265));          base[14]= list(2,VV[11],(V267));
2097          base[15]= list(2,VV[11],(V276));          base[15]= list(2,VV[11],(V278));
2098          base[16]= list(2,VV[11],(V269));          base[16]= list(2,VV[11],(V271));
2099          base[17]= list(2,VV[11],(V278));          base[17]= list(2,VV[11],(V280));
2100          vs_top=(vs_base=base+4)+14;          vs_top=(vs_base=base+4)+14;
2101          Llist();          Llist();
2102          vs_top=sup;          vs_top=sup;
2103          V310= vs_base[0];          V312= vs_base[0];
2104          {object V312;          {object V314;
2105          object V313= (V265);          object V315= (V267);
2106          if(endp(V313)){          if(endp(V315)){
2107          base[4]= Cnil;          base[4]= Cnil;
2108          goto T966;}          goto T967;}
2109          base[5]=V312=MMcons(Cnil,Cnil);          base[5]=V314=MMcons(Cnil,Cnil);
2110  goto T967;  goto T968;
2111  T967:;  T968:;
2112          (V312->c.c_car)= (*(LnkLI141))(base[2],(V313->c.c_car),(V273),(V274),(V262));          (V314->c.c_car)= (*(LnkLI141))(base[2],(V315->c.c_car),(V275),(V276),(V264));
2113          V313=MMcdr(V313);          V315=MMcdr(V315);
2114          if(endp(V313)){          if(endp(V315)){
2115          base[4]= base[5];          base[4]= base[5];
         goto T966;}  
         V312=MMcdr(V312)=MMcons(Cnil,Cnil);  
2116          goto T967;}          goto T967;}
2117  goto T966;          V314=MMcdr(V314)=MMcons(Cnil,Cnil);
2118  T966:;          goto T968;}
2119          if(((V273))==Cnil){  goto T967;
2120          goto T971;}  T967:;
2121          if(((V269))==Cnil){          if(((V275))==Cnil){
2122          goto T971;}          goto T972;}
2123          V315= (*(LnkLI142))(base[2],(V269),(V273),(V274),(V277));          if(((V271))==Cnil){
2124          base[5]= make_cons(/* INLINE-ARGS */V315,Cnil);          goto T972;}
2125          goto T969;          V317= (*(LnkLI142))(base[2],(V271),(V275),(V276),(V279));
2126  goto T971;          base[5]= make_cons(/* INLINE-ARGS */V317,Cnil);
2127  T971:;          goto T970;
2128    goto T972;
2129    T972:;
2130          base[5]= Cnil;          base[5]= Cnil;
2131  goto T969;  goto T970;
2132  T969:;  T970:;
2133          V316= list(2,VV[11],base[2]);          V318= list(2,VV[11],base[2]);
2134          base[6]= make_cons(/* INLINE-ARGS */V316,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V318,Cnil);
2135          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2136          Lappend();          Lappend();
2137          vs_top=sup;          vs_top=sup;
2138          V311= vs_base[0];          V313= vs_base[0];
2139          base[4]= listA(3,VV[99],V310,V311);          base[4]= listA(3,VV[99],V312,V313);
2140          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2141          return;}          return;}
2142  }  }
# Line 2144  static object LI12(va_alist) Line 2147  static object LI12(va_alist)
2147  {        {      
2148          va_list ap;          va_list ap;
2149          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
2150          {object V317;          {object V319;
         object V318;  
         object V319;  
2151          object V320;          object V320;
2152          object V321;          object V321;
2153          object V322;          object V322;
# Line 2162  static object LI12(va_alist) Line 2163  static object LI12(va_alist)
2163          object V332;          object V332;
2164          object V333;          object V333;
2165          object V334;          object V334;
2166            object V335;
2167            object V336;
2168          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2169          va_start(ap);          va_start(ap);
2170          narg= narg - 0;          narg= narg - 0;
2171          {          {
2172          parse_key_new(narg,Vcs +0,(struct key *)&LI12key,ap);          parse_key_new(narg,Vcs +0,(struct key *)&LI12key,ap);
2173          V317=(Vcs[0]);          V319=(Vcs[0]);
2174          V318=(Vcs[1]);          V320=(Vcs[1]);
2175          V319=(Vcs[2]);          V321=(Vcs[2]);
2176          V320=(Vcs[3]);          V322=(Vcs[3]);
2177          V321=(Vcs[4]);          V323=(Vcs[4]);
2178          V322=(Vcs[5]);          V324=(Vcs[5]);
2179          V323=(Vcs[6]);          V325=(Vcs[6]);
2180          V324=(Vcs[7]);          V326=(Vcs[7]);
2181          V325=(Vcs[8]);          V327=(Vcs[8]);
2182          V326=(Vcs[9]);          V328=(Vcs[9]);
2183          V327=(Vcs[10]);          V329=(Vcs[10]);
2184          V328=(Vcs[11]);          V330=(Vcs[11]);
2185          V329=(Vcs[12]);          V331=(Vcs[12]);
2186          V330=(Vcs[13]);          V332=(Vcs[13]);
2187          V331=(Vcs[14]);          V333=(Vcs[14]);
2188          V332=(Vcs[15]);          V334=(Vcs[15]);
2189          V333=(Vcs[16]);          V335=(Vcs[16]);
2190          V334=(Vcs[17]);          V336=(Vcs[17]);
2191          base[0]= VV[53];          base[0]= VV[53];
2192          base[1]= (V317);          base[1]= (V319);
2193          base[2]= (V318);          base[2]= (V320);
2194          base[3]= (V319);          base[3]= (V321);
2195          base[4]= (V320);          base[4]= (V322);
2196          base[5]= (V321);          base[5]= (V323);
2197          base[6]= (V322);          base[6]= (V324);
2198          base[7]= (V323);          base[7]= (V325);
2199          base[8]= (V324);          base[8]= (V326);
2200          base[9]= (V325);          base[9]= (V327);
2201          base[10]= (V326);          base[10]= (V328);
2202          base[11]= (V327);          base[11]= (V329);
2203          base[12]= (V328);          base[12]= (V330);
2204          base[13]= (V329);          base[13]= (V331);
2205          base[14]= (V330);          base[14]= (V332);
2206          base[15]= (V331);          base[15]= (V333);
2207          base[16]= (V332);          base[16]= (V334);
2208          base[17]= (V333);          base[17]= (V335);
2209          base[18]= (V334);          base[18]= (V336);
2210          vs_top=(vs_base=base+0)+19;          vs_top=(vs_base=base+0)+19;
2211          siLmake_structure();          siLmake_structure();
2212          vs_top=sup;          vs_top=sup;
2213          {object V335 = vs_base[0];          {object V337 = vs_base[0];
2214          VMR12(V335)}          VMR12(V337)}
2215          va_end(ap);          va_end(ap);
2216          base[0]=base[0];          base[0]=base[0];
2217          return Cnil;}          return Cnil;}
2218          }}          }}
2219  /*      local entry for function CHECK-S-DATA   */  /*      local entry for function CHECK-S-DATA   */
2220    
2221  static object LI13(V339,V340,V341)  static object LI13(V341,V342,V343)
2222    
2223  register object V339;register object V340;object V341;  register object V341;register object V342;object V343;
2224  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
2225  goto TTL;  goto TTL;
2226  TTL:;  TTL:;
2227          if((structure_ref((V339),VV[53],3))==Cnil){          if((structure_ref((V341),VV[53],3))==Cnil){
2228          goto T995;}          goto T996;}
2229          V342= structure_ref((V339),VV[53],3);          V344= structure_ref((V341),VV[53],3);
2230          (void)(structure_set((V340),VV[53],3,/* INLINE-ARGS */V342));          (void)(structure_set((V342),VV[53],3,/* INLINE-ARGS */V344));
2231  goto T995;  goto T996;
2232  T995:;  T996:;
2233          if((structure_ref((V339),VV[53],11))==Cnil){          if((structure_ref((V341),VV[53],11))==Cnil){
2234          goto T998;}          goto T999;}
2235          (void)(structure_set((V340),VV[53],11,Ct));          (void)(structure_set((V342),VV[53],11,Ct));
2236  goto T998;  goto T999;
2237  T998:;  T999:;
2238          if(equalp((V340),(V339))){          if(equalp((V342),(V341))){
2239          goto T1002;}          goto T1003;}
2240          (void)((VFUN_NARGS=2,(*(LnkLI131))(VV[101],(V341))));          (void)((VFUN_NARGS=2,(*(LnkLI131))(VV[101],(V343))));
2241          {object V343 = sputprop((V341),VV[53],(V340));          {object V345 = sputprop((V343),VV[53],(V342));
2242          VMR13(V343)}          VMR13(V345)}
2243  goto T1002;  goto T1003;
2244  T1002:;  T1003:;
2245          {object V344 = Cnil;          {object V346 = Cnil;
2246          VMR13(V344)}          VMR13(V346)}
2247          return Cnil;          return Cnil;
2248  }  }
2249  /*      local entry for function FREEZE-DEFSTRUCT       */  /*      local entry for function FREEZE-DEFSTRUCT       */
2250    
2251  static object LI14(V346)  static object LI14(V348)
2252    
2253  object V346;  object V348;
2254  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
2255  goto TTL;  goto TTL;
2256  TTL:;  TTL:;
2257          {object V347;          {object V349;
2258          if(type_of((V346))==t_symbol){          if(type_of((V348))==t_symbol){
2259          goto T1006;}          goto T1007;}
2260          V347= Cnil;          V349= Cnil;
2261          goto T1005;          goto T1006;
2262    goto T1007;
2263    T1007:;
2264            V349= get((V348),VV[53],Cnil);
2265  goto T1006;  goto T1006;
2266  T1006:;  T1006:;
2267          V347= get((V346),VV[53],Cnil);          if(((V349))==Cnil){
2268  goto T1005;          goto T1010;}
2269  T1005:;          {object V350 = structure_set((V349),VV[53],11,Ct);
2270          if(((V347))==Cnil){          VMR14(V350)}
2271          goto T1009;}  goto T1010;
2272          {object V348 = structure_set((V347),VV[53],11,Ct);  T1010:;
2273          VMR14(V348)}          {object V351 = Cnil;
2274  goto T1009;          VMR14(V351)}}
 T1009:;  
         {object V349 = Cnil;  
         VMR14(V349)}}  
2275          return Cnil;          return Cnil;
2276  }  }
2277  /*      function definition for SHARP-S-READER  */  /*      function definition for SHARP-S-READER  */
# Line 2277  static void L15() Line 2280  static void L15()
2280  {register object *base=vs_base;  {register object *base=vs_base;
2281          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
2282          vs_reserve(VM15);          vs_reserve(VM15);
2283          {object V350;          {object V352;
2284          object V351;          object V353;
2285          object V352;          object V354;
2286          check_arg(3);          check_arg(3);
2287          V350=(base[0]);          V352=(base[0]);
2288          V351=(base[1]);          V353=(base[1]);
2289          V352=(base[2]);          V354=(base[2]);
2290          vs_top=sup;          vs_top=sup;
2291  goto TTL;  goto TTL;
2292  TTL:;  TTL:;
2293          if(((V352))==Cnil){          if(((V354))==Cnil){
2294          goto T1011;}          goto T1012;}
2295          if((symbol_value(VV[102]))!=Cnil){          if((symbol_value(VV[102]))!=Cnil){
2296          goto T1011;}          goto T1012;}
2297          base[3]= VV[103];          base[3]= VV[103];
2298          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2299          Lerror();          Lerror();
2300          vs_top=sup;          vs_top=sup;
2301  goto T1011;  goto T1012;
2302  T1011:;  T1012:;
2303          {register object V353;          {register object V355;
2304          register object V354;          register object V356;
2305          {object V355;          {object V357;
2306          base[5]= (V350);          base[5]= (V352);
2307          base[6]= Ct;          base[6]= Ct;
2308          base[7]= Cnil;          base[7]= Cnil;
2309          base[8]= Ct;          base[8]= Ct;
2310          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2311          Lread();          Lread();
2312          vs_top=sup;          vs_top=sup;
2313          V355= vs_base[0];          V357= vs_base[0];
2314          if((symbol_value(VV[102]))==Cnil){          if((symbol_value(VV[102]))==Cnil){
2315          goto T1023;}          goto T1024;}
2316          base[5]= Cnil;          base[5]= Cnil;
2317          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2318          return;          return;
2319  goto T1023;  goto T1024;
2320  T1023:;  T1024:;
2321          V353= (V355);}{object V356;          V355= (V357);}{object V358;
2322          V356= get(car((V353)),VV[53],Cnil);          V358= get(car((V355)),VV[53],Cnil);
2323          if(V356==Cnil)goto T1027;          if(V358==Cnil)goto T1028;
2324          V354= V356;          V356= V358;
2325          goto T1026;          goto T1027;
2326  goto T1027;  goto T1028;
2327  T1027:;}  T1028:;}
2328          base[5]= VV[104];          base[5]= VV[104];
2329          base[6]= car((V353));          base[6]= car((V355));
2330          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2331          Lerror();          Lerror();
2332          vs_top=sup;          vs_top=sup;
2333          V354= vs_base[0];          V356= vs_base[0];
2334  goto T1026;  goto T1027;
2335  T1026:;  T1027:;
2336          {register object V357;          {register object V359;
2337          V357= cdr((V353));          V359= cdr((V355));
2338  goto T1033;  goto T1034;
2339  T1033:;  T1034:;
2340          if(!(endp_prop((V357)))){          if(!(endp_prop((V359)))){
2341          goto T1034;}          goto T1035;}
2342          {register object V358;          {register object V360;
2343          V358= structure_ref((V354),VV[53],13);          V360= structure_ref((V356),VV[53],13);
2344  goto T1039;  goto T1040;
2345  T1039:;  T1040:;
2346          if(!(endp_prop((V358)))){          if(!(endp_prop((V360)))){
2347          goto T1040;}          goto T1041;}
2348          base[5]= VV[105];          base[5]= VV[105];
2349          base[6]= car((V353));          base[6]= car((V355));
2350          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2351          Lerror();          Lerror();
2352          return;          return;
2353  goto T1040;  goto T1041;
2354  T1040:;  T1041:;
2355          if(!(type_of(car((V358)))==t_symbol)){          if(!(type_of(car((V360)))==t_symbol)){
2356          goto T1046;}          goto T1047;}
2357          base[5]= car((V358));          base[5]= car((V360));
2358          {object V359;          {object V361;
2359          V359= cdr((V353));          V361= cdr((V355));
2360           vs_top=base+6;           vs_top=base+6;
2361           while(!endp(V359))           while(!endp(V361))
2362           {vs_push(car(V359));V359=cdr(V359);}           {vs_push(car(V361));V361=cdr(V361);}
2363          vs_base=base+6;}          vs_base=base+6;}
2364          super_funcall_no_event(base[5]);          super_funcall_no_event(base[5]);
2365          return;          return;
2366  goto T1046;  goto T1047;
2367  T1046:;  T1047:;
2368          V358= cdr((V358));          V360= cdr((V360));
2369          goto T1039;}          goto T1040;}
2370  goto T1034;  goto T1035;
2371  T1034:;  T1035:;
2372          base[5]= coerce_to_string(car((V357)));          base[5]= coerce_to_string(car((V359)));
2373          base[6]= VV[106];          base[6]= VV[106];
2374          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2375          Lintern();          Lintern();
2376          vs_top=sup;          vs_top=sup;
2377          V360= vs_base[0];          V362= vs_base[0];
2378          if(type_of((V357))!=t_cons)FEwrong_type_argument(Scons,(V357));          if(type_of((V359))!=t_cons)FEwrong_type_argument(Scons,(V359));
2379          ((V357))->c.c_car = V360;          ((V359))->c.c_car = V362;
2380          V357= cddr((V357));          V359= cddr((V359));
2381          goto T1033;}}          goto T1034;}}
2382          }          }
2383  }  }
2384  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 2385  register object *base0; Line 2388  register object *base0;
2388  {       register object *base=vs_base;  {       register object *base=vs_base;
2389          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
2390          vs_reserve(VM16);          vs_reserve(VM16);
2391          {object V361;          {object V363;
2392          check_arg(1);          check_arg(1);
2393          V361=(base[0]);          V363=(base[0]);
2394          vs_top=sup;          vs_top=sup;
2395          base[1]= (V361);          base[1]= (V363);
2396          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
2397          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2398          (void) (*Lnk146)();          (void) (*Lnk146)();
# Line 2403  register object *base0; Line 2406  register object *base0;
2406  {       register object *base=vs_base;  {       register object *base=vs_base;
2407          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
2408          vs_reserve(VM17);          vs_reserve(VM17);
2409          {object V362;          {object V364;
2410          check_arg(1);          check_arg(1);
2411          V362=(base[0]);          V364=(base[0]);
2412          vs_top=sup;          vs_top=sup;
2413          if(!(type_of((V362))==t_cons)){          if(!(type_of((V364))==t_cons)){
2414          goto T1065;}          goto T1066;}
2415          base[1]= car((V362));          base[1]= car((V364));
2416          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2417          return;          return;
2418  goto T1065;  goto T1066;
2419  T1065:;  T1066:;
2420          base[1]= Cnil;          base[1]= Cnil;
2421          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2422          return;          return;
# Line 2426  register object *base0; Line 2429  register object *base0;
2429  {       register object *base=vs_base;  {       register object *base=vs_base;
2430          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
2431          vs_reserve(VM18);          vs_reserve(VM18);
2432          {object V363;          {object V365;
2433          check_arg(1);          check_arg(1);
2434          V363=(base[0]);          V365=(base[0]);
2435          vs_top=sup;          vs_top=sup;
2436          base[1]= aref1((V363),fixint((base0[0]->c.c_car)));          base[1]= aref1((V365),fixint((base0[0]->c.c_car)));
2437          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2438          return;          return;
2439          }          }
# Line 2442  register object *base0; Line 2445  register object *base0;
2445  {       register object *base=vs_base;  {       register object *base=vs_base;
2446          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
2447          vs_reserve(VM19);          vs_reserve(VM19);
2448          {object V364;          {object V366;
2449          check_arg(1);          check_arg(1);
2450          V364=(base[0]);          V366=(base[0]);
2451          vs_top=sup;          vs_top=sup;
2452          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
2453          base[2]= (V364);          base[2]= (V366);
2454          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2455          siLlist_nth();          siLlist_nth();
2456          return;          return;
# Line 2460  register object *base0; Line 2463  register object *base0;
2463  {       register object *base=vs_base;  {       register object *base=vs_base;
2464          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
2465          vs_reserve(VM20);          vs_reserve(VM20);
2466          {object V365;          {object V367;
2467          check_arg(1);          check_arg(1);
2468          V365=(base[0]);          V367=(base[0]);
2469          vs_top=sup;          vs_top=sup;
2470          if(!(type_of((V365))==t_structure)){          if(!(type_of((V367))==t_structure)){
2471          goto T1070;}          goto T1071;}
2472          goto T1069;          goto T1070;
2473  goto T1070;  goto T1071;
2474  T1070:;  T1071:;
2475          base[1]= VV[5];          base[1]= VV[5];
2476          base[2]= (V365);          base[2]= (V367);
2477          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2478          Lerror();          Lerror();
2479          vs_top=sup;          vs_top=sup;
2480  goto T1069;  goto T1070;
2481  T1069:;  T1070:;
2482          base[1]= (V365);          base[1]= (V367);
2483          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
2484          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2485          (void) (*Lnk147)();          (void) (*Lnk147)();

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

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