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

Diff of /gcl/lsp/assert.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:43 2002 UTC
# Line 487  goto T108; Line 487  goto T108;
487  T108:;  T108:;
488          if(!(type_of(car((V94)))==t_symbol)){          if(!(type_of(car((V94)))==t_symbol)){
489          goto T114;}          goto T114;}
490            {register object V98;
491          V98= make_cons(car((V94)),Cnil);          V98= make_cons(car((V94)),Cnil);
492          V95= make_cons(/* INLINE-ARGS */V98,(V95));          V95= make_cons((V98),(V95));}
493          {register object V99;          {register object V99;
494          V99= car((V94));          V99= car((V94));
495          V94= cdr((V94));          V94= cdr((V94));
# Line 496  T108:; Line 497  T108:;
497  goto T114;  goto T114;
498  T114:;  T114:;
499          {object V100= caar((V94));          {object V100= caar((V94));
500          if((V100!= VV[54]))goto T121;          if((V100!= VV[54]))goto T122;
501          V94= append(cdar((V94)),cdr((V94)));          V94= append(cdar((V94)),cdr((V94)));
502          goto T112;          goto T112;
503  goto T121;  goto T122;
504  T121:;  T122:;
505          if((V100!= VV[25]))goto T123;          if((V100!= VV[25]))goto T124;
506          {          {
507          object V101= cdar((V94));          object V101= cdar((V94));
508          if(endp(V101)){          if(endp(V101)){
509          goto T124;}          goto T125;}
510  goto T125;  goto T126;
511  T125:;  T126:;
512          {register object V102;          {register object V102;
513          V102= (V101->c.c_car);          V102= (V101->c.c_car);
514            {register object V103;
515          V103= list(2,VV[25],(V102));          V103= list(2,VV[25],(V102));
516          V95= make_cons(/* INLINE-ARGS */V103,(V95));}          V95= make_cons((V103),(V95));}}
517          V101=MMcdr(V101);          V101=MMcdr(V101);
518          if(endp(V101)){          if(endp(V101)){
519          (void)(cdar((V94)));          (void)(cdar((V94)));
         goto T124;}  
520          goto T125;}          goto T125;}
521  goto T124;          goto T126;}
522  T124:;  goto T125;
523    T125:;
524          {register object V104;          {register object V104;
525          V104= car((V94));          V104= car((V94));
526          V94= cdr((V94));          V94= cdr((V94));
527          goto T112;}          goto T112;}
528  goto T123;  goto T124;
529  T123:;  T124:;
530          if((V100!= VV[55]))goto T131;          if((V100!= VV[55]))goto T133;
         V96= make_cons(cadar((V94)),(V96));  
531          {register object V105;          {register object V105;
532          V105= car((V94));          V105= cadar((V94));
533          V94= cdr((V94));          V96= make_cons((V105),(V96));}
         goto T112;}  
 goto T131;  
 T131:;  
         V95= make_cons(car((V94)),(V95));  
534          {register object V106;          {register object V106;
535          V106= car((V94));          V106= car((V94));
536            V94= cdr((V94));
537            goto T112;}
538    goto T133;
539    T133:;
540            {register object V107;
541            V107= car((V94));
542            V95= make_cons((V107),(V95));}
543            {register object V108;
544            V108= car((V94));
545          V94= cdr((V94));}}          V94= cdr((V94));}}
546  goto T112;  goto T112;
547  T112:;  T112:;
548          goto T107;          goto T107;
549  goto T105;  goto T105;
550  T105:;  T105:;
551  goto T146;  goto T150;
552  T146:;  T150:;
553          if(!(endp_prop((V96)))){          if(!(endp_prop((V96)))){
554          goto T147;}          goto T151;}
555          goto T144;          goto T148;
556  goto T147;  goto T151;
557  T147:;  T151:;
558          if(!(type_of(car((V96)))==t_symbol)){          if(!(type_of(car((V96)))==t_symbol)){
559          goto T153;}          goto T157;}
560          V107= make_cons(car((V96)),Cnil);          {register object V109;
561          V97= make_cons(/* INLINE-ARGS */V107,(V97));          V109= make_cons(car((V96)),Cnil);
562          {register object V108;          V97= make_cons((V109),(V97));}
563          V108= car((V96));          {register object V110;
564            V110= car((V96));
565          V96= cdr((V96));          V96= cdr((V96));
566          goto T151;}          goto T155;}
567  goto T153;  goto T157;
568  T153:;  T157:;
569          if(!((caar((V96)))==(VV[38]))){          if(!((caar((V96)))==(VV[38]))){
570          goto T161;}          goto T166;}
571          V96= append(cdar((V96)),cdr((V96)));          V96= append(cdar((V96)),cdr((V96)));
572          goto T151;          goto T155;
573  goto T161;  goto T166;
574  T161:;  T166:;
575          V97= make_cons(car((V96)),(V97));          {register object V111;
576          {register object V109;          V111= car((V96));
577          V109= car((V96));          V97= make_cons((V111),(V97));}
578            {register object V112;
579            V112= car((V96));
580          V96= cdr((V96));}          V96= cdr((V96));}
581  goto T151;  goto T155;
582  T151:;  T155:;
583          goto T146;          goto T150;
584  goto T144;  goto T148;
585  T144:;  T148:;
586          base[0]= Cnil;          base[0]= Cnil;
587          base[1]= VV[39];          base[1]= VV[39];
588          base[2]= (V92);          base[2]= (V92);
589          base[3]= (V93);          base[3]= (V93);
590          base[4]= VV[40];          base[4]= VV[40];
591          {object V110;          {object V113;
592          object V111= (V97);          object V114= (V97);
593          if(endp(V111)){          if(endp(V114)){
594          base[5]= Cnil;          base[5]= Cnil;
595          goto T176;}          goto T182;}
596          base[6]=V110=MMcons(Cnil,Cnil);          base[6]=V113=MMcons(Cnil,Cnil);
597  goto T177;  goto T183;
598  T177:;  T183:;
599          (V110->c.c_cdr)= (*(LnkLI56))((V111->c.c_car));          (V113->c.c_cdr)= (*(LnkLI56))((V114->c.c_car));
600          {object cdr_V110=MMcdr(V110);while(!endp(cdr_V110)) {cdr_V110=MMcdr(cdr_V110);V110=MMcdr(V110);}}          {object cdr_V113=MMcdr(V113);while(!endp(cdr_V113)) {cdr_V113=MMcdr(cdr_V113);V113=MMcdr(V113);}}
601          V111=MMcdr(V111);          V114=MMcdr(V114);
602          if(endp(V111)){          if(endp(V114)){
603          base[6]=base[6]->c.c_cdr;          base[6]=base[6]->c.c_cdr;
604          base[5]= base[6];          base[5]= base[6];
605          goto T176;}          goto T182;}
606          goto T177;}          goto T183;}
 goto T176;  
 T176:;  
         base[6]= VV[41];  
         V112 = make_fixnum((long)length((V95)));  
         V116= reverse((V95));  
         {object V114;  
         object V115= /* INLINE-ARGS */V116;  
         if(endp(V115)){  
         V113= Cnil;  
         goto T181;}  
         base[8]=V114=MMcons(Cnil,Cnil);  
607  goto T182;  goto T182;
608  T182:;  T182:;
609          (V114->c.c_cdr)= (*(LnkLI56))((V115->c.c_car));          base[6]= VV[41];
610          {object cdr_V114=MMcdr(V114);while(!endp(cdr_V114)) {cdr_V114=MMcdr(cdr_V114);V114=MMcdr(V114);}}          V115 = make_fixnum((long)length((V95)));
611          V115=MMcdr(V115);          V119= reverse((V95));
612          if(endp(V115)){          {object V117;
613            object V118= /* INLINE-ARGS */V119;
614            if(endp(V118)){
615            V116= Cnil;
616            goto T187;}
617            base[8]=V117=MMcons(Cnil,Cnil);
618    goto T188;
619    T188:;
620            (V117->c.c_cdr)= (*(LnkLI56))((V118->c.c_car));
621            {object cdr_V117=MMcdr(V117);while(!endp(cdr_V117)) {cdr_V117=MMcdr(cdr_V117);V117=MMcdr(V117);}}
622            V118=MMcdr(V118);
623            if(endp(V118)){
624          base[8]=base[8]->c.c_cdr;          base[8]=base[8]->c.c_cdr;
625          V113= base[8];          V116= base[8];
626          goto T181;}          goto T187;}
627          goto T182;}          goto T188;}
628  goto T181;  goto T187;
629  T181:;  T187:;
630          base[7]= listA(3,(V97),V112,V113);          base[7]= listA(3,(V97),V115,V116);
631          vs_top=(vs_base=base+0)+8;          vs_top=(vs_base=base+0)+8;
632          Lformat();          Lformat();
633          vs_top=sup;          vs_top=sup;
634          {object V117 = vs_base[0];          {object V120 = vs_base[0];
635          VMR9(V117)}}          VMR9(V120)}}
636          base[0]=base[0];          base[0]=base[0];
637          return Cnil;          return Cnil;
638  }  }
639  /*      local entry for function TYPECASE-ERROR-STRINGS */  /*      local entry for function TYPECASE-ERROR-STRINGS */
640    
641  static object LI10(V119)  static object LI10(V122)
642    
643  register object V119;  register object V122;
644  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
645  goto TTL;  goto TTL;
646  TTL:;  TTL:;
647          if(!((car((V119)))==(VV[25]))){          if(!((car((V122)))==(VV[25]))){
648          goto T185;}switch((long)length(cdr((V119)))){          goto T191;}switch((long)length(cdr((V122)))){
649          case 0:          case 0:
650  goto T188;  goto T194;
651  T188:;  T194:;
652          {object V120 = VV[42];          {object V123 = VV[42];
653          VMR10(V120)}          VMR10(V123)}
654          case 1:          case 1:
655  goto T189;  goto T195;
656  T189:;  T195:;
657          {object V121 = list(2,VV[43],make_cons(cadr((V119)),Cnil));          {object V124 = list(2,VV[43],make_cons(cadr((V122)),Cnil));
658          VMR10(V121)}          VMR10(V124)}
659          case 2:          case 2:
660  goto T190;  goto T196;
661  T190:;  T196:;
662          {object V122 = list(2,VV[44],cdr((V119)));          {object V125 = list(2,VV[44],cdr((V122)));
663          VMR10(V122)}          VMR10(V125)}
664          default:          default:
665    goto T197;
666    T197:;
667            {object V126 = list(2,VV[45],make_cons(cdr((V122)),Cnil));
668            VMR10(V126)}
669            {object V127 = Cnil;
670            VMR10(V127)}}
671            {object V128 = Cnil;
672            VMR10(V128)}
673  goto T191;  goto T191;
674  T191:;  T191:;
675          {object V123 = list(2,VV[45],make_cons(cdr((V119)),Cnil));          if(!((car((V122)))==(VV[46]))){
676          VMR10(V123)}          goto T200;}
677          {object V124 = Cnil;          {object V129 = list(2,VV[47],cdr((V122)));
         VMR10(V124)}}  
         {object V125 = Cnil;  
         VMR10(V125)}  
 goto T185;  
 T185:;  
         if(!((car((V119)))==(VV[46]))){  
         goto T194;}  
         {object V126 = list(2,VV[47],cdr((V119)));  
         VMR10(V126)}  
 goto T194;  
 T194:;  
         if(endp_prop(cdr((V119)))){  
         goto T196;}  
         if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V119)))))!=Cnil){  
         goto T197;}  
 goto T196;  
 T196:;  
         {object V127;  
         {register object x= car((V119)),V128= VV[49];  
         while(!endp(V128))  
         if(type_of(V128->c.c_car)==t_cons &&eql(x,V128->c.c_car->c.c_car)){  
         V127= (V128->c.c_car);  
         goto T201;  
         }else V128=V128->c.c_cdr;  
         V127= Cnil;}  
 goto T201;  
 T201:;  
         if(((V127))==Cnil){  
         goto T203;}  
         {object V129 = list(2,cadr((V127)),Cnil);  
678          VMR10(V129)}          VMR10(V129)}
679    goto T200;
680    T200:;
681            if(endp_prop(cdr((V122)))){
682            goto T202;}
683            if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V122)))))!=Cnil){
684            goto T203;}
685    goto T202;
686    T202:;
687            {object V130;
688            {register object x= car((V122)),V131= VV[49];
689            while(!endp(V131))
690            if(type_of(V131->c.c_car)==t_cons &&eql(x,V131->c.c_car->c.c_car)){
691            V130= (V131->c.c_car);
692            goto T207;
693            }else V131=V131->c.c_cdr;
694            V130= Cnil;}
695    goto T207;
696    T207:;
697            if(((V130))==Cnil){
698            goto T209;}
699            {object V132 = list(2,cadr((V130)),Cnil);
700            VMR10(V132)}
701    goto T209;
702    T209:;
703            V133= (*(LnkLI58))(car((V122)));
704            {object V134 = list(2,VV[50],list(2,/* INLINE-ARGS */V133,car((V122))));
705            VMR10(V134)}}
706  goto T203;  goto T203;
707  T203:;  T203:;
708          V130= (*(LnkLI58))(car((V119)));          V135= (*(LnkLI58))(car((V122)));
709          {object V131 = list(2,VV[50],list(2,/* INLINE-ARGS */V130,car((V119))));          {object V136 = list(2,VV[51],list(2,/* INLINE-ARGS */V135,(V122)));
710          VMR10(V131)}}          VMR10(V136)}
 goto T197;  
 T197:;  
         V132= (*(LnkLI58))(car((V119)));  
         {object V133 = list(2,VV[51],list(2,/* INLINE-ARGS */V132,(V119)));  
         VMR10(V133)}  
711          return Cnil;          return Cnil;
712  }  }
713  /*      local entry for function BOIN-P */  /*      local entry for function BOIN-P */
714    
715  static object LI11(V135)  static object LI11(V138)
716    
717  object V135;  object V138;
718  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
719  goto TTL;  goto TTL;
720  TTL:;  TTL:;
721          V137= symbol_name((V135));          V140= symbol_name((V138));
722          V138= elt(/* INLINE-ARGS */V137,0);          V141= elt(/* INLINE-ARGS */V140,0);
723          {register object x= /* INLINE-ARGS */V138,V136= VV[52];          {register object x= /* INLINE-ARGS */V141,V139= VV[52];
724          while(!endp(V136))          while(!endp(V139))
725          if(eql(x,V136->c.c_car)){          if(eql(x,V139->c.c_car)){
726          {object V139 = V136;          {object V142 = V139;
727          VMR11(V139)}          VMR11(V142)}
728          }else V136=V136->c.c_cdr;          }else V139=V139->c.c_cdr;
729          {object V140 = Cnil;          {object V143 = Cnil;
730          VMR11(V140)}}          VMR11(V143)}}
731          return Cnil;          return Cnil;
732  }  }
733  static object  LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,1,ap);va_end(ap);return V1;} /* BOIN-P */  static object  LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,1,ap);va_end(ap);return V1;} /* BOIN-P */

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