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

Diff of /gcl/cmpnew/cmpmulti.c

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

revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.7 by camm, Mon Oct 14 05:24:42 2002 UTC
# Line 333  object V53; Line 333  object V53;
333  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
334  goto TTL;  goto TTL;
335  TTL:;  TTL:;
336          {register object V54;          {object V54;
337          register object V55;          register object V55;
338          V54= (VFUN_NARGS=0,(*(LnkLI48))());          V54= (VFUN_NARGS=0,(*(LnkLI48))());
339          V55= Cnil;          V55= Cnil;
# Line 378  T204:; Line 378  T204:;
378  goto T207;  goto T207;
379  T207:;  T207:;
380          V58= (*(LnkLI57))((V58));          V58= (*(LnkLI57))((V58));
         V55= make_cons((V58),(V55));  
381          {register object V59;          {register object V59;
382          register object V60;          V59= (V58);
383          V59= (V54);          V55= make_cons((V59),(V55));}
384          V61= car((V58));          {register object V60;
385          V62= structure_ref((V59),VV[22],0);          register object V61;
386          V60= make_cons(/* INLINE-ARGS */V61,/* INLINE-ARGS */V62);          register object V62;
387          (void)(structure_set((V59),VV[22],0,(V60)));}          V60= car((V58));
388            V61= (V54);
389            V63= structure_ref((V61),VV[22],0);
390            V62= make_cons((V60),/* INLINE-ARGS */V63);
391            (void)(structure_set((V61),VV[22],0,(V62)));}
392          V57= cdr((V57));          V57= cdr((V57));
393          V58= car((V57));          V58= car((V57));
394          goto T199;}          goto T199;}
395  goto T195;  goto T195;
396  T195:;  T195:;
397          V63= reverse((V55));          V64= reverse((V55));
398          {object V64 = list(4,VV[19],(V54),/* INLINE-ARGS */V63,(*(LnkLI49))(cadr((V53)),(V54)));          {object V65 = list(4,VV[19],(V54),/* INLINE-ARGS */V64,(*(LnkLI49))(cadr((V53)),(V54)));
399          VMR7(V64)}}          VMR7(V65)}}
400          base[0]=base[0];          base[0]=base[0];
401          return Cnil;          return Cnil;
402  }  }
403  /*      local entry for function MULTIPLE-VALUE-CHECK   */  /*      local entry for function MULTIPLE-VALUE-CHECK   */
404    
405  static object LI8(V67,V68)  static object LI8(V68,V69)
406    
407  object V67;object V68;  object V68;object V69;
408  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
409  goto TTL;  goto TTL;
410  TTL:;  TTL:;
411          if((cdr((V67)))!=Cnil){          if((cdr((V68)))!=Cnil){
         goto T223;}  
         {object V69 = Cnil;  
         VMR8(V69)}  
 goto T223;  
 T223:;  
         if((car((V68)))==(VV[23])){  
412          goto T225;}          goto T225;}
413          {object V70 = Cnil;          {object V70 = Cnil;
414          VMR8(V70)}          VMR8(V70)}
415  goto T225;  goto T225;
416  T225:;  T225:;
417          {object V71;          if((car((V69)))==(VV[23])){
418          V71= caddr((V68));          goto T227;}
419          if(!(type_of((V71))==t_symbol)){          {object V71 = Cnil;
420          goto T229;}          VMR8(V71)}
421          {register object V72;  goto T227;
422          V72= get((V71),VV[24],Cnil);  T227:;
423          if((V72)==Cnil){          {object V72;
424          goto T229;}          V72= caddr((V69));
425          if(type_of((V72))==t_cons){          if(!(type_of((V72))==t_symbol)){
426          goto T234;}          goto T231;}
427          goto T229;          {register object V73;
428  goto T234;          V73= get((V72),VV[24],Cnil);
429  T234:;          if((V73)==Cnil){
430          if(((equal((V72),VV[25])?Ct:Cnil))==Cnil){          goto T231;}
431            if(type_of((V73))==t_cons){
432          goto T236;}          goto T236;}
433          goto T229;          goto T231;
434  goto T236;  goto T236;
435  T236:;  T236:;
436          if(!((cdr((V72)))==Cnil)){          if(((equal((V73),VV[25])?Ct:Cnil))==Cnil){
437          goto T229;}}          goto T238;}
438          {object V73 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V71)));          goto T231;
439          VMR8(V73)}  goto T238;
440  goto T229;  T238:;
441  T229:;          if(!((cdr((V73)))==Cnil)){
442          {object V74 = Cnil;          goto T231;}}
443          VMR8(V74)}}          {object V74 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72)));
444            VMR8(V74)}
445    goto T231;
446    T231:;
447            {object V75 = Cnil;
448            VMR8(V75)}}
449          return Cnil;          return Cnil;
450  }  }
451  /*      local entry for function C2MULTIPLE-VALUE-SETQ  */  /*      local entry for function C2MULTIPLE-VALUE-SETQ  */
452    
453  static object LI9(V77,V78)  static object LI9(V78,V79)
454    
455  register object V77;object V78;  register object V78;object V79;
456  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
457          bds_check;          bds_check;
458  goto TTL;  goto TTL;
459  TTL:;  TTL:;
460          {object V79;          {object V80;
461          V79= Cnil;          V80= Cnil;
462          (void)((*(LnkLI58))((V77),(V78)));          (void)((*(LnkLI58))((V78),(V79)));
463          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
464          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
465          (void)((*(LnkLI44))((V78)));          (void)((*(LnkLI44))((V79)));
466          V79= (VV[9]->s.s_dbind);          V80= (VV[9]->s.s_dbind);
467          bds_unwind1;          bds_unwind1;
468          bds_unwind1;          bds_unwind1;
469          if(symbol_value(VV[27])==Cnil){          if(symbol_value(VV[27])==Cnil){
470          goto T243;}          goto T245;}
471          (void)((*(LnkLI59))(Cnil,car((V79))));          (void)((*(LnkLI59))(Cnil,car((V80))));
472  goto T243;  goto T245;
473  T243:;  T245:;
         {register object V80;  
         V80= (V77);  
 goto T246;  
 T246:;  
         if(!(endp_prop((V80)))){  
         goto T247;}  
         goto T244;  
 goto T247;  
 T247:;  
474          {register object V81;          {register object V81;
475          V81= car((V80));          V81= (V78);
476    goto T248;
477    T248:;
478            if(!(endp_prop((V81)))){
479            goto T249;}
480            goto T246;
481    goto T249;
482    T249:;
483            {register object V82;
484            V82= car((V81));
485          princ_str("\n   if(vs_base<vs_top){",VV[6]);          princ_str("\n   if(vs_base<vs_top){",VV[6]);
486          (void)((*(LnkLI60))(VV[11],car((V81)),cadr((V81))));          (void)((*(LnkLI60))(VV[11],car((V82)),cadr((V82))));
487          if(endp_prop(cdr((V80)))){          if(endp_prop(cdr((V81)))){
488          goto T256;}          goto T258;}
489          princ_str("\n   vs_base++;",VV[6]);          princ_str("\n   vs_base++;",VV[6]);
490  goto T256;  goto T258;
491  T256:;  T258:;
492          princ_str("\n   }else{",VV[6]);          princ_str("\n   }else{",VV[6]);
493          (void)((*(LnkLI60))(Cnil,car((V81)),cadr((V81))));          (void)((*(LnkLI60))(Cnil,car((V82)),cadr((V82))));
494          princ_char(125,VV[6]);}          princ_char(125,VV[6]);}
495          V80= cdr((V80));          V81= cdr((V81));
496          goto T246;}          goto T248;}
497  goto T244;  goto T246;
498  T244:;  T246:;
499          if(((V77))!=Cnil){          if(((V78))!=Cnil){
500          goto T268;}          goto T270;}
501          princ_str("\n   if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]);          princ_str("\n   if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]);
502          {object V82 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11]));          {object V83 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11]));
503          VMR9(V82)}          VMR9(V83)}
504  goto T268;  goto T270;
505  T268:;  T270:;
506          if((symbol_value(VV[28]))==(VV[29])){          if((symbol_value(VV[28]))==(VV[29])){
507          goto T272;}          goto T274;}
508          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
509          (void)((*(LnkLI61))());          (void)((*(LnkLI61))());
510  goto T272;  goto T274;
511  T272:;  T274:;
512          V83= make_cons(VV[30],car((V77)));          V84= make_cons(VV[30],car((V78)));
513          {object V84 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V83));          {object V85 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V84));
514          VMR9(V84)}}          VMR9(V85)}}
515          base[0]=base[0];          base[0]=base[0];
516          return Cnil;          return Cnil;
517  }  }
518  /*      local entry for function C1MULTIPLE-VALUE-BIND  */  /*      local entry for function C1MULTIPLE-VALUE-BIND  */
519    
520  static object LI10(V86)  static object LI10(V87)
521    
522  object V86;  object V87;
523  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
524          bds_check;          bds_check;
525  goto TTL;  goto TTL;
526  TTL:;  TTL:;
527          {object V87;          {object V88;
         register object V88;  
528          register object V89;          register object V89;
529          object V90;          register object V90;
530          object V91;          object V91;
531          object V92;          object V92;
532          object V93;          object V93;
533          object V94;          object V94;
534          object V95;          object V95;
535          V87= (VFUN_NARGS=0,(*(LnkLI48))());          object V96;
536          V88= Cnil;          V88= (VFUN_NARGS=0,(*(LnkLI48))());
537          V89= Cnil;          V89= Cnil;
538          V90= Cnil;          V90= Cnil;
539          V91= Cnil;          V91= Cnil;
# Line 539  TTL:; Line 541  TTL:;
541          V93= Cnil;          V93= Cnil;
542          V94= Cnil;          V94= Cnil;
543          V95= Cnil;          V95= Cnil;
544            V96= Cnil;
545          bds_bind(VV[31],symbol_value(VV[31]));          bds_bind(VV[31],symbol_value(VV[31]));
546          if(endp_prop((V86))){          if(endp_prop((V87))){
547          goto T286;}          goto T288;}
548          if(!(endp_prop(cdr((V86))))){          if(!(endp_prop(cdr((V87))))){
549          goto T285;}          goto T287;}
550  goto T286;  goto T288;
551  T286:;  T288:;
552          V96 = make_fixnum((long)length((V86)));          V97 = make_fixnum((long)length((V87)));
553          (void)((*(LnkLI38))(VV[32],small_fixnum(2),V96));          (void)((*(LnkLI38))(VV[32],small_fixnum(2),V97));
554  goto T285;  goto T287;
555  T285:;  T287:;
556          base[2]= cddr((V86));          base[2]= cddr((V87));
557          base[3]= Cnil;          base[3]= Cnil;
558          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
559          (void) (*Lnk62)();          (void) (*Lnk62)();
560          if(vs_base<vs_top){          if(vs_base<vs_top){
561          V94= vs_base[0];          V95= vs_base[0];
562          vs_base++;          vs_base++;
563          }else{          }else{
564          V94= Cnil;}          V95= Cnil;}
565          if(vs_base<vs_top){          if(vs_base<vs_top){
566          V91= vs_base[0];          V92= vs_base[0];
567          vs_base++;          vs_base++;
568          }else{          }else{
569          V91= Cnil;}          V92= Cnil;}
570          if(vs_base<vs_top){          if(vs_base<vs_top){
571          V93= vs_base[0];          V94= vs_base[0];
572          vs_base++;          vs_base++;
573          }else{          }else{
574          V93= Cnil;}          V94= Cnil;}
575          if(vs_base<vs_top){          if(vs_base<vs_top){
576          V92= vs_base[0];          V93= vs_base[0];
577          vs_base++;          vs_base++;
578          }else{          }else{
579          V92= Cnil;}          V93= Cnil;}
580          if(vs_base<vs_top){          if(vs_base<vs_top){
581          V95= vs_base[0];          V96= vs_base[0];
582          }else{          }else{
583          V95= Cnil;}          V96= Cnil;}
584          vs_top=sup;          vs_top=sup;
585          (void)((*(LnkLI63))((V91)));          (void)((*(LnkLI63))((V92)));
586          {register object V97;          {register object V98;
587          register object V98;          register object V99;
588          V97= car((V86));          V98= car((V87));
589          V98= car((V97));          V99= car((V98));
590  goto T299;  goto T301;
591  T299:;  T301:;
592          if(!(endp_prop((V97)))){          if(!(endp_prop((V98)))){
593          goto T300;}          goto T302;}
594          goto T295;          goto T297;
595  goto T300;  goto T302;
596  T300:;  T302:;
597          {object V99;          {object V100;
598          V99= (*(LnkLI64))((V98),(V91),(V92),(V93));          V100= (*(LnkLI64))((V99),(V92),(V93),(V94));
599          V89= make_cons((V98),(V89));          V90= make_cons(V99,(V90));
600          V88= make_cons((V99),(V88));}          V89= make_cons(V100,(V89));}
601          V97= cdr((V97));          V98= cdr((V98));
602          V98= car((V97));          V99= car((V98));
603          goto T299;}          goto T301;}
604  goto T295;  goto T297;
605  T295:;  T297:;
606          V90= (*(LnkLI49))(cadr((V86)),(V87));          V91= (*(LnkLI49))(cadr((V87)),(V88));
         {register object V100;  
         object V101;  
         V100= reverse((V88));  
         V101= car((V100));  
 goto T320;  
 T320:;  
         if(!(endp_prop((V100)))){  
         goto T321;}  
         goto T316;  
 goto T321;  
 T321:;  
         (VV[31]->s.s_dbind)= make_cons((V101),(VV[31]->s.s_dbind));  
         V100= cdr((V100));  
         V101= car((V100));  
         goto T320;}  
 goto T316;  
 T316:;  
         (void)((*(LnkLI65))((V89),(V93),(V92)));  
         V94= (*(LnkLI66))((V95),(V94));  
         (void)((*(LnkLI67))((V87),cadr((V94))));  
         V102= structure_ref(cadr((V94)),VV[22],2);  
         (void)(structure_set((V87),VV[22],2,/* INLINE-ARGS */V102));  
607          {register object V103;          {register object V103;
608          object V104;          object V104;
609          V103= (V88);          V103= reverse((V89));
610          V104= car((V103));          V104= car((V103));
611  goto T341;  goto T322;
612  T341:;  T322:;
613          if(!(endp_prop((V103)))){          if(!(endp_prop((V103)))){
614          goto T342;}          goto T323;}
615          goto T337;          goto T318;
616  goto T342;  goto T323;
617  T342:;  T323:;
618          (void)((*(LnkLI68))((V104)));          (VV[31]->s.s_dbind)= make_cons(V104,(VV[31]->s.s_dbind));
619          V103= cdr((V103));          V103= cdr((V103));
620          V104= car((V103));          V104= car((V103));
621          goto T341;}          goto T322;}
622  goto T337;  goto T318;
623  T337:;  T318:;
624          {object V105 = list(5,VV[32],(V87),reverse((V88)),(V90),(V94));          (void)((*(LnkLI65))((V90),(V94),(V93)));
625            V95= (*(LnkLI66))((V96),(V95));
626            (void)((*(LnkLI67))((V88),cadr((V95))));
627            V106= structure_ref(cadr((V95)),VV[22],2);
628            (void)(structure_set((V88),VV[22],2,/* INLINE-ARGS */V106));
629            {register object V107;
630            object V108;
631            V107= (V89);
632            V108= car((V107));
633    goto T343;
634    T343:;
635            if(!(endp_prop((V107)))){
636            goto T344;}
637            goto T339;
638    goto T344;
639    T344:;
640            (void)((*(LnkLI68))((V108)));
641            V107= cdr((V107));
642            V108= car((V107));
643            goto T343;}
644    goto T339;
645    T339:;
646            {object V109 = list(5,VV[32],(V88),reverse((V89)),(V91),(V95));
647          bds_unwind1;          bds_unwind1;
648          VMR10(V105)}}          VMR10(V109)}}
649          base[0]=base[0];          base[0]=base[0];
650          return Cnil;          return Cnil;
651  }  }
652  /*      local entry for function C2MULTIPLE-VALUE-BIND  */  /*      local entry for function C2MULTIPLE-VALUE-BIND  */
653    
654  static object LI11(V109,V110,V111)  static object LI11(V113,V114,V115)
655    
656  object V109;object V110;object V111;  object V113;object V114;object V115;
657  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
658          bds_check;          bds_check;
659  goto TTL;  goto TTL;
660  TTL:;  TTL:;
661          {object V112;          {object V116;
662          register object V113;          register object V117;
663          object V114;          object V118;
664          V112= Cnil;          V116= Cnil;
665          V113= Cnil;          V117= Cnil;
666          bds_bind(VV[33],symbol_value(VV[33]));          bds_bind(VV[33],symbol_value(VV[33]));
667          bds_bind(VV[1],symbol_value(VV[1]));          bds_bind(VV[1],symbol_value(VV[1]));
668          bds_bind(VV[34],symbol_value(VV[34]));          bds_bind(VV[34],symbol_value(VV[34]));
669          bds_bind(VV[35],symbol_value(VV[35]));          bds_bind(VV[35],symbol_value(VV[35]));
670          V114= Cnil;          V118= Cnil;
671          (void)((*(LnkLI58))((V109),(V110)));          (void)((*(LnkLI58))((V113),(V114)));
672          {register object V115;          {register object V119;
673          register object V116;          register object V120;
674          V115= (V109);          V119= (V113);
675          V116= car((V115));          V120= car((V119));
676  goto T360;  goto T362;
677  T360:;  T362:;
678          if(!(endp_prop((V115)))){          if(!(endp_prop((V119)))){
679          goto T361;}          goto T363;}
680          goto T356;          goto T358;
681  goto T361;  goto T363;
682  T361:;  T363:;
683          {object V117;          {object V121;
684          V117= (*(LnkLI69))((V116));          V121= (*(LnkLI69))((V120));
685          if(((V117))==Cnil){          if(((V121))==Cnil){
686          goto T368;}          goto T370;}
687          {object V118;          {object V122;
688          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
689          V118= symbol_value(VV[5]);          V122= symbol_value(VV[5]);
690          (void)(structure_set((V116),VV[30],1,(V117)));          (void)(structure_set((V120),VV[30],1,(V121)));
691          (void)(structure_set((V116),VV[30],4,(V118)));          (void)(structure_set((V120),VV[30],4,(V122)));
692          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
693          if(((V112))!=Cnil){          if(((V116))!=Cnil){
694          goto T375;}          goto T377;}
695          princ_char(123,VV[6]);          princ_char(123,VV[6]);
696          V112= Ct;          V116= Ct;
697  goto T375;  goto T377;
698  T375:;  T377:;
699          base[5]= (V116);          base[5]= (V120);
700          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
701          (void) (*Lnk70)();          (void) (*Lnk70)();
702          vs_top=sup;          vs_top=sup;
703          goto T365;}          goto T367;}
704  goto T368;  goto T370;
705  T368:;  T370:;
706          V119= (*(LnkLI54))();          V123= (*(LnkLI54))();
707          (void)(structure_set((V116),VV[30],2,/* INLINE-ARGS */V119));}          (void)(structure_set((V120),VV[30],2,/* INLINE-ARGS */V123));}
708  goto T365;  goto T367;
709  T365:;  T367:;
710          V115= cdr((V115));          V119= cdr((V119));
711          V116= car((V115));          V120= car((V119));
712          goto T360;}          goto T362;}
713  goto T356;  goto T358;
714  T356:;  T358:;
715          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
716          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
717          (void)((*(LnkLI44))((V110)));          (void)((*(LnkLI44))((V114)));
718          V114= (VV[9]->s.s_dbind);          V118= (VV[9]->s.s_dbind);
719          bds_unwind1;          bds_unwind1;
720          bds_unwind1;          bds_unwind1;
721          if(symbol_value(VV[27])==Cnil){          if(symbol_value(VV[27])==Cnil){
722          goto T390;}          goto T392;}
723          (void)((*(LnkLI59))(Cnil,car((V114))));          (void)((*(LnkLI59))(Cnil,car((V118))));
724  goto T390;  goto T392;
725  T390:;  T392:;
726          bds_bind(VV[34],(VV[34]->s.s_dbind));          bds_bind(VV[34],(VV[34]->s.s_dbind));
727          bds_bind(VV[33],(VV[33]->s.s_dbind));          bds_bind(VV[33],(VV[33]->s.s_dbind));
728          bds_bind(VV[35],(VV[35]->s.s_dbind));          bds_bind(VV[35],(VV[35]->s.s_dbind));
729          {register object V120;          {register object V124;
730          V120= (V109);          V124= (V113);
731  goto T393;  goto T395;
732  T393:;  T395:;
733          if(!(endp_prop((V120)))){          if(!(endp_prop((V124)))){
734          goto T394;}          goto T396;}
735          bds_unwind1;          bds_unwind1;
736          bds_unwind1;          bds_unwind1;
737          bds_unwind1;          bds_unwind1;
738          goto T391;          goto T393;
739  goto T394;  goto T396;
740  T394:;  T396:;
741            {object V125;
742          setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));          setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));
743          V121= make_cons(symbol_value(VV[36]),Cnil);          V125= make_cons(symbol_value(VV[36]),Cnil);
744          V113= make_cons(/* INLINE-ARGS */V121,(V113));          V117= make_cons((V125),(V117));}
745          princ_str("\n   if(vs_base>=vs_top){",VV[6]);          princ_str("\n   if(vs_base>=vs_top){",VV[6]);
746          (void)((*(LnkLI61))());          (void)((*(LnkLI61))());
747          if(type_of(car((V113)))!=t_cons)FEwrong_type_argument(Scons,car((V113)));          if(type_of(car((V117)))!=t_cons)FEwrong_type_argument(Scons,car((V117)));
748          (car((V113)))->c.c_cdr = Ct;          (car((V117)))->c.c_cdr = Ct;
749          (void)(car((V113)));          (void)(car((V117)));
750          princ_str("goto T",VV[6]);          princ_str("goto T",VV[6]);
751          (void)((*(LnkLI46))(car(car((V113)))));          (void)((*(LnkLI46))(car(car((V117)))));
752          princ_char(59,VV[6]);          princ_char(59,VV[6]);
753          princ_char(125,VV[6]);          princ_char(125,VV[6]);
754          (void)((*(LnkLI71))(car((V120)),VV[37]));          (void)((*(LnkLI71))(car((V124)),VV[37]));
755          if(endp_prop(cdr((V120)))){          if(endp_prop(cdr((V124)))){
756          goto T412;}          goto T415;}
757          princ_str("\n   vs_base++;",VV[6]);          princ_str("\n   vs_base++;",VV[6]);
758  goto T412;  goto T415;
759  T412:;  T415:;
760          V120= cdr((V120));          V124= cdr((V124));
761          goto T393;}          goto T395;}
762  goto T391;  goto T393;
763  T391:;  T393:;
764          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
765          (void)((*(LnkLI61))());          (void)((*(LnkLI61))());
766          {object V122;          {object V126;
767          setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));          setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));
768          V122= make_cons(symbol_value(VV[36]),Cnil);          V126= make_cons(symbol_value(VV[36]),Cnil);
769          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
770          if(type_of((V122))!=t_cons)FEwrong_type_argument(Scons,(V122));          if(type_of((V126))!=t_cons)FEwrong_type_argument(Scons,(V126));
771          ((V122))->c.c_cdr = Ct;          ((V126))->c.c_cdr = Ct;
772          princ_str("goto T",VV[6]);          princ_str("goto T",VV[6]);
773          (void)((*(LnkLI46))(car((V122))));          (void)((*(LnkLI46))(car((V126))));
774          princ_char(59,VV[6]);          princ_char(59,VV[6]);
775          V113= reverse((V113));          V117= reverse((V117));
776          {register object V123;          {register object V127;
777          object V124;          object V128;
778          V123= (V109);          V127= (V113);
779          V124= car((V123));          V128= car((V127));
780  goto T436;  goto T439;
781  T436:;  T439:;
782          if(!(endp_prop((V123)))){          if(!(endp_prop((V127)))){
783          goto T437;}          goto T440;}
784          goto T432;          goto T435;
785  goto T437;  goto T440;
786  T437:;  T440:;
787          if((cdr(car((V113))))==Cnil){          if((cdr(car((V117))))==Cnil){
788          goto T441;}          goto T444;}
789          princ_str("\ngoto T",VV[6]);          princ_str("\ngoto T",VV[6]);
790          (void)((*(LnkLI46))(car(car((V113)))));          (void)((*(LnkLI46))(car(car((V117)))));
791          princ_char(59,VV[6]);          princ_char(59,VV[6]);
792          princ_str("\nT",VV[6]);          princ_str("\nT",VV[6]);
793          (void)((*(LnkLI46))(car(car((V113)))));          (void)((*(LnkLI46))(car(car((V117)))));
794          princ_str(":;",VV[6]);          princ_str(":;",VV[6]);
795  goto T441;  goto T444;
796  T441:;  T444:;
797          {object V125;          {object V129;
798          V125= car((V113));          V129= car((V117));
799          V113= cdr((V113));}          V117= cdr((V117));}
800          (void)((*(LnkLI71))((V124),Cnil));          (void)((*(LnkLI71))((V128),Cnil));
801          V123= cdr((V123));          V127= cdr((V127));
802          V124= car((V123));          V128= car((V127));
803          goto T436;}          goto T439;}
804  goto T432;  goto T435;
805  T432:;  T435:;
806          if((cdr((V122)))==Cnil){          if((cdr((V126)))==Cnil){
807          goto T421;}          goto T424;}
808          princ_str("\ngoto T",VV[6]);          princ_str("\ngoto T",VV[6]);
809          (void)((*(LnkLI46))(car((V122))));          (void)((*(LnkLI46))(car((V126))));
810          princ_char(59,VV[6]);          princ_char(59,VV[6]);
811          princ_str("\nT",VV[6]);          princ_str("\nT",VV[6]);
812          (void)((*(LnkLI46))(car((V122))));          (void)((*(LnkLI46))(car((V126))));
813          princ_str(":;",VV[6]);}          princ_str(":;",VV[6]);}
814  goto T421;  goto T424;
815  T421:;  T424:;
816          base[4]= (V111);          base[4]= (V115);
817          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
818          (void) (*Lnk72)();          (void) (*Lnk72)();
819          vs_top=sup;          vs_top=sup;
820          if(((V112))==Cnil){          if(((V116))==Cnil){
821          goto T473;}          goto T476;}
822          princ_char(125,VV[6]);          princ_char(125,VV[6]);
823          {object V126 = Cnil;          {object V130 = Cnil;
824          bds_unwind1;          bds_unwind1;
825          bds_unwind1;          bds_unwind1;
826          bds_unwind1;          bds_unwind1;
827          bds_unwind1;          bds_unwind1;
828          VMR11(V126)}          VMR11(V130)}
829  goto T473;  goto T476;
830  T473:;  T476:;
831          {object V127 = Cnil;          {object V131 = Cnil;
832          bds_unwind1;          bds_unwind1;
833          bds_unwind1;          bds_unwind1;
834          bds_unwind1;          bds_unwind1;
835          bds_unwind1;          bds_unwind1;
836          VMR11(V127)}}          VMR11(V131)}}
837          base[0]=base[0];          base[0]=base[0];
838          return Cnil;          return Cnil;
839  }  }

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

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