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

Diff of /gcl/cmpnew/gcl_cmptype.c

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:28 2003 UTC
# Line 116  T18:; Line 116  T18:;
116          register object V24;          register object V24;
117          V23= (*(LnkLI56))((V14));          V23= (*(LnkLI56))((V14));
118          V24= Cnil;          V24= Cnil;
119          {object V25= car((V23));          {object V25= CMPcar((V23));
120          if((V25!= VV[57])          if((V25!= VV[57])
121          && (V25!= VV[2]))goto T20;          && (V25!= VV[2]))goto T20;
122          if(endp_prop(cdr((V23)))){          if((CMPcdr((V23)))==Cnil){
123          goto T21;}          goto T21;}
124          if(!((VV[7])==(cadr((V23))))){          if(!((VV[7])==(CMPcadr((V23))))){
125          goto T28;}          goto T28;}
126          V24= Cnil;          V24= Cnil;
127          goto T26;          goto T26;
128          goto T28;          goto T28;
129  T28:;  T28:;
130          {object V26;          {object V26;
131          V26= (*(LnkLI58))(cadr((V23)));          V26= (*(LnkLI58))(CMPcadr((V23)));
132          if(((V26))==Cnil){          if(((V26))==Cnil){
133          goto T32;}          goto T32;}
134          V24= (V26);          V24= (V26);
# Line 146  T21:; Line 146  T21:;
146          VMR2(V27)}          VMR2(V27)}
147          goto T22;          goto T22;
148  T22:;  T22:;
149          if(endp_prop(cddr((V23)))){          if((CMPcddr((V23)))==Cnil){
150          goto T35;}          goto T35;}
151          if((caddr((V23)))==(VV[7])){          if((CMPcaddr((V23)))==(VV[7])){
152          goto T35;}          goto T35;}
153          if(eql(caddr((V23)),small_fixnum(1))){          if(eql(CMPcaddr((V23)),small_fixnum(1))){
154          goto T34;}          goto T34;}
155          if(!(type_of(caddr((V23)))==t_cons)){          if(!(type_of(CMPcaddr((V23)))==t_cons)){
156          goto T35;}          goto T35;}
157          if(!(((long)length(caddr((V23))))==(1))){          if(!(((long)length(CMPcaddr((V23))))==(1))){
158          goto T35;}          goto T35;}
159          goto T34;          goto T34;
160  T34:;  T34:;
# Line 178  T35:; Line 178  T35:;
178          goto T20;          goto T20;
179  T20:;  T20:;
180          if((V25!= VV[11]))goto T47;          if((V25!= VV[11]))goto T47;
181          V33= cdr((V23));          V33= CMPcdr((V23));
182          V34= list(2,VV[8],VV[9]);          V34= list(2,VV[8],VV[9]);
183          if(((*(LnkLI59))(/* INLINE-ARGS */V33,/* INLINE-ARGS */V34))==Cnil){          if(((*(LnkLI59))(/* INLINE-ARGS */V33,/* INLINE-ARGS */V34))==Cnil){
184          goto T49;}          goto T49;}
# Line 394  T130:; Line 394  T130:;
394          VMR2(V56)}          VMR2(V56)}
395          goto T135;          goto T135;
396  T135:;  T135:;
397          if(!((car((V23)))==(VV[34]))){          if(!((CMPcar((V23)))==(VV[34]))){
398          goto T140;}          goto T140;}
399          if((cddr((V23)))!=Cnil){          if((CMPcddr((V23)))!=Cnil){
400          goto T143;}          goto T143;}
401          {object V57 = list(2,VV[34],(*(LnkLI36))(cadr((V23))));          {object V57 = list(2,VV[34],(*(LnkLI36))(CMPcadr((V23))));
402          VMR2(V57)}          VMR2(V57)}
403          goto T143;          goto T143;
404  T143:;  T143:;
# Line 407  T143:; Line 407  T143:;
407          goto T140;          goto T140;
408  T140:;  T140:;
409          {object V59;          {object V59;
410          if((car((V23)))==(VV[35])){          if((CMPcar((V23)))==(VV[35])){
411          goto T146;}          goto T146;}
412          V59= Cnil;          V59= Cnil;
413          goto T145;          goto T145;
414          goto T146;          goto T146;
415  T146:;  T146:;
416          if(type_of(cadr((V23)))==t_symbol){          if(type_of(CMPcadr((V23)))==t_symbol){
417          goto T148;}          goto T148;}
418          V59= Cnil;          V59= Cnil;
419          goto T145;          goto T145;
420          goto T148;          goto T148;
421  T148:;  T148:;
422          V59= get(cadr((V23)),VV[36],Cnil);          {object V60 =(CMPcadr((V23)))->s.s_plist;
423             object ind= VV[36];
424            while(V60!=Cnil){
425            if(V60->c.c_car==ind){
426            V59= (V60->c.c_cdr->c.c_car);
427            goto T145;
428            }else V60=V60->c.c_cdr->c.c_cdr;}
429            V59= Cnil;}
430          goto T145;          goto T145;
431  T145:;  T145:;
432          if(((V59))==Cnil){          if(((V59))==Cnil){
433          goto T151;}          goto T151;}
434          {object V60 = (V59);          {object V61 = (V59);
435          VMR2(V60)}          VMR2(V61)}
436          goto T151;          goto T151;
437  T151:;  T151:;
438          {object V61 = Ct;          {object V62 = Ct;
439          VMR2(V61)}}}}}          VMR2(V62)}}}}}
440          base[0]=base[0];          base[0]=base[0];
441          return Cnil;          return Cnil;
442  }  }
443  /*      local entry for function TYPE-AND       */  /*      local entry for function TYPE-AND       */
444    
445  static object LI3(V64,V65)  static object LI3(V65,V66)
446    
447  register object V64;register object V65;  register object V65;register object V66;
448  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
449          goto TTL;          goto TTL;
450  TTL:;  TTL:;
451          if(!(equal((V64),(V65)))){          if(!(equal((V65),(V66)))){
452          goto T154;}          goto T154;}
453          {object V66 = (V64);          {object V67 = (V65);
454          VMR3(V66)}          VMR3(V67)}
455          goto T154;          goto T154;
456  T154:;  T154:;
457          if(!(((V64))==(Ct))){          if(!(((V65))==(Ct))){
458          goto T157;}          goto T157;}
459          {object V67 = (V65);          {object V68 = (V66);
460          VMR3(V67)}          VMR3(V68)}
461          goto T157;          goto T157;
462  T157:;  T157:;
463          if(!(((V64))==(VV[7]))){          if(!(((V65))==(VV[7]))){
464          goto T160;}          goto T160;}
465          {object V68 = (V65);          {object V69 = (V66);
466          VMR3(V68)}          VMR3(V69)}
467          goto T160;          goto T160;
468  T160:;  T160:;
469          if(!(((V64))==(VV[37]))){          if(!(((V65))==(VV[37]))){
470          goto T163;}          goto T163;}
471          {object V69 = (V65);          {object V70 = (V66);
472          VMR3(V69)}          VMR3(V70)}
473          goto T163;          goto T163;
474  T163:;  T163:;
475          if(!(((V65))==(VV[37]))){          if(!(((V66))==(VV[37]))){
476          goto T166;}          goto T166;}
477          {object V70 = (V64);          {object V71 = (V65);
478          VMR3(V70)}          VMR3(V71)}
479          goto T166;          goto T166;
480  T166:;  T166:;
481          if(!(((V65))==(Ct))){          if(!(((V66))==(Ct))){
482          goto T169;}          goto T169;}
483          {object V71 = (V64);          {object V72 = (V65);
484          VMR3(V71)}          VMR3(V72)}
485          goto T169;          goto T169;
486  T169:;  T169:;
487          if(!(((V65))==(VV[7]))){          if(!(((V66))==(VV[7]))){
488          goto T172;}          goto T172;}
489          {object V72 = (V64);          {object V73 = (V65);
490          VMR3(V72)}          VMR3(V73)}
491          goto T172;          goto T172;
492  T172:;  T172:;
493          if(!(type_of((V65))==t_cons)){          if(!(type_of((V66))==t_cons)){
494          goto T175;}          goto T175;}
495          if(!((car((V65)))==(VV[34]))){          if(!((CMPcar((V66)))==(VV[34]))){
496          goto T175;}          goto T175;}
497          V65= cadr((V65));          V66= CMPcadr((V66));
498          goto TTL;          goto TTL;
499          goto T175;          goto T175;
500  T175:;  T175:;
501          if(!(type_of((V64))==t_cons)){          if(!(type_of((V65))==t_cons)){
502          goto T183;}          goto T183;}
503          {object V73= car((V64));          {object V74= CMPcar((V65));
504          if((V73!= VV[2]))goto T185;          if((V74!= VV[2]))goto T185;
505          {object V74= cadr((V64));          {object V75= CMPcadr((V65));
506          if((V74!= VV[38]))goto T186;          if((V75!= VV[38]))goto T186;
507          if(!(((V65))==(VV[5]))){          if(!(((V66))==(VV[5]))){
508          goto T188;}          goto T188;}
509          {object V75 = (V65);          {object V76 = (V66);
510          VMR3(V75)}          VMR3(V76)}
511          goto T188;          goto T188;
512  T188:;  T188:;
513          {object V76 = Cnil;          {object V77 = Cnil;
514          VMR3(V76)}          VMR3(V77)}
515          goto T186;          goto T186;
516  T186:;  T186:;
517          if((V74!= VV[39]))goto T190;          if((V75!= VV[39]))goto T190;
518          if(!(((V65))==(VV[6]))){          if(!(((V66))==(VV[6]))){
519          goto T192;}          goto T192;}
520          {object V77 = (V65);          {object V78 = (V66);
521          VMR3(V77)}          VMR3(V78)}
522          goto T192;          goto T192;
523  T192:;  T192:;
524          {object V78 = Cnil;          {object V79 = Cnil;
525          VMR3(V78)}          VMR3(V79)}
526          goto T190;          goto T190;
527  T190:;  T190:;
528          if(!(type_of((V65))==t_cons)){          if(!(type_of((V66))==t_cons)){
529          goto T195;}          goto T195;}
530          if(!((car((V65)))==(VV[1]))){          if(!((CMPcar((V66)))==(VV[1]))){
531          goto T195;}          goto T195;}
532          if(!((cadr((V64)))==(cadr((V65))))){          if(!((CMPcadr((V65)))==(CMPcadr((V66))))){
533          goto T195;}          goto T195;}
534          {object V79 = (V65);          {object V80 = (V66);
535          VMR3(V79)}          VMR3(V80)}
536          goto T195;          goto T195;
537  T195:;  T195:;
538          {object V80 = Cnil;          {object V81 = Cnil;
539          VMR3(V80)}}          VMR3(V81)}}
540          goto T185;          goto T185;
541  T185:;  T185:;
542          if((V73!= VV[1]))goto T201;          if((V74!= VV[1]))goto T201;
543          if(!(type_of((V65))==t_cons)){          if(!(type_of((V66))==t_cons)){
544          goto T203;}          goto T203;}
545          if(!((car((V65)))==(VV[2]))){          if(!((CMPcar((V66)))==(VV[2]))){
546          goto T203;}          goto T203;}
547          if(!((cadr((V64)))==(cadr((V65))))){          if(!((CMPcadr((V65)))==(CMPcadr((V66))))){
548          goto T203;}          goto T203;}
549          {object V81 = (V64);          {object V82 = (V65);
550          VMR3(V81)}          VMR3(V82)}
551          goto T203;          goto T203;
552  T203:;  T203:;
553          {object V82 = Cnil;          {object V83 = Cnil;
554          VMR3(V82)}          VMR3(V83)}
555          goto T201;          goto T201;
556  T201:;  T201:;
557          if((V73!= VV[34]))goto T209;          if((V74!= VV[34]))goto T209;
558          V64= cadr((V64));          V65= CMPcadr((V65));
559          goto TTL;          goto TTL;
560          goto T209;          goto T209;
561  T209:;  T209:;
562          {object V83 = Cnil;          {object V84 = Cnil;
563          VMR3(V83)}}          VMR3(V84)}}
564          goto T183;          goto T183;
565  T183:;  T183:;
566          {object V84= (V64);          {object V85= (V65);
567          if((V84!= VV[5]))goto T213;          if((V85!= VV[5]))goto T213;
568          if(!(type_of((V65))==t_cons)){          if(!(type_of((V66))==t_cons)){
569          goto T215;}          goto T215;}
570          if(!((car((V65)))==(VV[2]))){          if(!((CMPcar((V66)))==(VV[2]))){
571          goto T215;}          goto T215;}
572          if(!((cadr((V65)))==(VV[38]))){          if(!((CMPcadr((V66)))==(VV[38]))){
573          goto T215;}          goto T215;}
574          {object V85 = (V64);          {object V86 = (V65);
575          VMR3(V85)}          VMR3(V86)}
576          goto T215;          goto T215;
577  T215:;  T215:;
578          {object V86 = Cnil;          {object V87 = Cnil;
579          VMR3(V86)}          VMR3(V87)}
580          goto T213;          goto T213;
581  T213:;  T213:;
582          if((V84!= VV[6]))goto T221;          if((V85!= VV[6]))goto T221;
583          if(!(type_of((V65))==t_cons)){          if(!(type_of((V66))==t_cons)){
584          goto T223;}          goto T223;}
585          if(!((car((V65)))==(VV[2]))){          if(!((CMPcar((V66)))==(VV[2]))){
586          goto T223;}          goto T223;}
587          if(!((cadr((V65)))==(VV[39]))){          if(!((CMPcadr((V66)))==(VV[39]))){
588          goto T223;}          goto T223;}
589          {object V87 = (V64);          {object V88 = (V65);
590          VMR3(V87)}          VMR3(V88)}
591          goto T223;          goto T223;
592  T223:;  T223:;
593          {object V88 = Cnil;          {object V89 = Cnil;
594          VMR3(V88)}          VMR3(V89)}
595          goto T221;          goto T221;
596  T221:;  T221:;
597          if((V84!= VV[61]))goto T229;          if((V85!= VV[61]))goto T229;
598          {register object x= (V65),V89= VV[40];          {register object x= (V66),V90= VV[40];
599          while(!endp(V89))          while(V90!=Cnil)
600          if(eql(x,V89->c.c_car)){          if(eql(x,V90->c.c_car)){
601          goto T232;          goto T232;
602          }else V89=V89->c.c_cdr;          }else V90=V90->c.c_cdr;
603          goto T231;}          goto T231;}
604          goto T232;          goto T232;
605  T232:;  T232:;
606          {object V90 = (V65);          {object V91 = (V66);
607          VMR3(V90)}          VMR3(V91)}
608          goto T231;          goto T231;
609  T231:;  T231:;
610          {object V91 = Cnil;          {object V92 = Cnil;
611          VMR3(V91)}          VMR3(V92)}
612          goto T229;          goto T229;
613  T229:;  T229:;
614          if((V84!= VV[62]))goto T233;          if((V85!= VV[62]))goto T233;
615          {register object x= (V65),V92= VV[41];          {register object x= (V66),V93= VV[41];
616          while(!endp(V92))          while(V93!=Cnil)
617          if(eql(x,V92->c.c_car)){          if(eql(x,V93->c.c_car)){
618          goto T236;          goto T236;
619          }else V92=V92->c.c_cdr;          }else V93=V93->c.c_cdr;
620          goto T235;}          goto T235;}
621          goto T236;          goto T236;
622  T236:;  T236:;
623          {object V93 = (V65);          {object V94 = (V66);
624          VMR3(V93)}          VMR3(V94)}
625          goto T235;          goto T235;
626  T235:;  T235:;
627          {object V94 = Cnil;          {object V95 = Cnil;
628          VMR3(V94)}          VMR3(V95)}
629          goto T233;          goto T233;
630  T233:;  T233:;
631          if((V84!= VV[3])          if((V85!= VV[3])
632          && (V84!= VV[12]))goto T237;          && (V85!= VV[12]))goto T237;
633          {register object x= (V65),V95= VV[42];          {register object x= (V66),V96= VV[42];
634          while(!endp(V95))          while(V96!=Cnil)
635          if(eql(x,V95->c.c_car)){          if(eql(x,V96->c.c_car)){
636          goto T240;          goto T240;
637          }else V95=V95->c.c_cdr;          }else V96=V96->c.c_cdr;
638          goto T239;}          goto T239;}
639          goto T240;          goto T240;
640  T240:;  T240:;
641          {object V96 = (V64);          {object V97 = (V65);
642          VMR3(V96)}          VMR3(V97)}
643          goto T239;          goto T239;
644  T239:;  T239:;
645          {object V97 = Cnil;          {object V98 = Cnil;
646          VMR3(V97)}          VMR3(V98)}
647          goto T237;          goto T237;
648  T237:;  T237:;
649          if((V84!= VV[63])          if((V85!= VV[63])
650          && (V84!= VV[64])          && (V85!= VV[64])
651          && (V84!= VV[65]))goto T241;          && (V85!= VV[65]))goto T241;
652          if(!(((V65))==(VV[10]))){          if(!(((V66))==(VV[10]))){
653          goto T243;}          goto T243;}
654          {object V98 = (V64);          {object V99 = (V65);
655          VMR3(V98)}          VMR3(V99)}
656          goto T243;          goto T243;
657  T243:;  T243:;
658          {object V99 = Cnil;          {object V100 = Cnil;
659          VMR3(V99)}          VMR3(V100)}
660          goto T241;          goto T241;
661  T241:;  T241:;
662          if((V84!= VV[66]))goto T245;          if((V85!= VV[66]))goto T245;
663          base[0]= (V64);          base[0]= (V65);
664          base[1]= (V65);          base[1]= (V66);
665          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
666          (void) (*Lnk60)();          (void) (*Lnk60)();
667          vs_top=sup;          vs_top=sup;
668          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
669          goto T247;}          goto T247;}
670          {object V100 = (V64);          {object V101 = (V65);
671          VMR3(V100)}          VMR3(V101)}
672          goto T247;          goto T247;
673  T247:;  T247:;
674          {object V101 = Cnil;          {object V102 = Cnil;
675          VMR3(V101)}          VMR3(V102)}
676          goto T245;          goto T245;
677  T245:;  T245:;
678          if((V84!= VV[11]))goto T251;          if((V85!= VV[11]))goto T251;
679          {object V102= (V65);          {object V103= (V66);
680          if((V102!= VV[10]))goto T252;          if((V103!= VV[10]))goto T252;
681          {object V103 = (V65);          {object V104 = (V66);
682          VMR3(V103)}          VMR3(V104)}
683          goto T252;          goto T252;
684  T252:;  T252:;
685          {object V104 = Cnil;          {object V105 = Cnil;
686          VMR3(V104)}}          VMR3(V105)}}
687          goto T251;          goto T251;
688  T251:;  T251:;
689          if((V84!= VV[10]))goto T253;          if((V85!= VV[10]))goto T253;
690          {object V105= (V65);          {object V106= (V66);
691          if((V105!= VV[11])          if((V106!= VV[11])
692          && (V105!= VV[61]))goto T254;          && (V106!= VV[61]))goto T254;
693          {object V106 = VV[10];          {object V107 = VV[10];
694          VMR3(V106)}          VMR3(V107)}
695          goto T254;          goto T254;
696  T254:;  T254:;
697          if((V105!= VV[63])          if((V106!= VV[63])
698          && (V105!= VV[64])          && (V106!= VV[64])
699          && (V105!= VV[65])          && (V106!= VV[65])
700          && (V105!= VV[39]))goto T255;          && (V106!= VV[39]))goto T255;
701          {object V107 = (V65);          {object V108 = (V66);
702          VMR3(V107)}          VMR3(V108)}
703          goto T255;          goto T255;
704  T255:;  T255:;
705          if((V105!= VV[66]))goto T256;          if((V106!= VV[66]))goto T256;
706          base[0]= (V65);          base[0]= (V66);
707          base[1]= (V64);          base[1]= (V65);
708          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
709          (void) (*Lnk60)();          (void) (*Lnk60)();
710          vs_top=sup;          vs_top=sup;
711          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
712          goto T258;}          goto T258;}
713          {object V108 = (V65);          {object V109 = (V66);
714          VMR3(V108)}          VMR3(V109)}
715          goto T258;          goto T258;
716  T258:;  T258:;
717          {object V109 = Cnil;          {object V110 = Cnil;
718          VMR3(V109)}          VMR3(V110)}
719          goto T256;          goto T256;
720  T256:;  T256:;
         {object V110 = Cnil;  
         VMR3(V110)}}  
         goto T253;  
 T253:;  
721          {object V111 = Cnil;          {object V111 = Cnil;
722          VMR3(V111)}}          VMR3(V111)}}
723            goto T253;
724    T253:;
725            {object V112 = Cnil;
726            VMR3(V112)}}
727          base[0]=base[0];          base[0]=base[0];
728          return Cnil;          return Cnil;
729  }  }
730  /*      local entry for function TYPE>= */  /*      local entry for function TYPE>= */
731    
732  static object LI4(V114,V115)  static object LI4(V115,V116)
733    
734  object V114;object V115;  object V115;object V116;
735  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
736          goto TTL;          goto TTL;
737  TTL:;  TTL:;
738          V116= (*(LnkLI67))((V114),(V115));          V117= (*(LnkLI67))((V115),(V116));
739          {object V117 = (equal(/* INLINE-ARGS */V116,(V115))?Ct:Cnil);          {object V118 = (equal(/* INLINE-ARGS */V117,(V116))?Ct:Cnil);
740          VMR4(V117)}          VMR4(V118)}
741          return Cnil;          return Cnil;
742  }  }
743  /*      local entry for function RESET-INFO-TYPE        */  /*      local entry for function RESET-INFO-TYPE        */
744    
745  static object LI5(V119)  static object LI5(V120)
746    
747  object V119;  object V120;
748  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
749          goto TTL;          goto TTL;
750  TTL:;  TTL:;
751          if((structure_ref((V119),VV[43],2))==Cnil){          if((STREF(object,(V120),8))==Cnil){
752          goto T263;}          goto T263;}
753          {object V120;          {object V121;
754          base[0]= (V119);          base[0]= (V120);
755          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
756          (void) (*Lnk68)();          (void) (*Lnk68)();
757          vs_top=sup;          vs_top=sup;
758          V120= vs_base[0];          V121= vs_base[0];
759          (void)(structure_set((V120),VV[43],2,Ct));          V122= Ct;
760          {object V121 = (V120);          STSET(object,(V121),8, Ct);
761          VMR5(V121)}}          (void)(Ct);
762            {object V123 = (V121);
763            VMR5(V123)}}
764          goto T263;          goto T263;
765  T263:;  T263:;
766          {object V122 = (V119);          {object V124 = (V120);
767          VMR5(V122)}          VMR5(V124)}
768          base[0]=base[0];          base[0]=base[0];
769          return Cnil;          return Cnil;
770  }  }
771  /*      local entry for function AND-FORM-TYPE  */  /*      local entry for function AND-FORM-TYPE  */
772    
773  static object LI6(V126,V127,V128)  static object LI6(V128,V129,V130)
774    
775  object V126;register object V127;object V128;  object V128;register object V129;object V130;
776  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
777          goto TTL;          goto TTL;
778  TTL:;  TTL:;
779          {register object V129;          {register object V131;
780          V129= Cnil;          V131= Cnil;
781          V130= structure_ref(cadr((V127)),VV[43],2);          V131= (*(LnkLI67))((V128),STREF(object,CMPcadr((V129)),8));
782          V129= (*(LnkLI67))((V126),/* INLINE-ARGS */V130);          if(((V131))!=Cnil){
         if(((V129))!=Cnil){  
783          goto T271;}          goto T271;}
784          (void)((VFUN_NARGS=3,(*(LnkLI69))(VV[44],(V128),(V126))));          (void)((VFUN_NARGS=3,(*(LnkLI69))(VV[44],(V130),(V128))));
785          goto T271;          goto T271;
786  T271:;  T271:;
787          V131= structure_ref(cadr((V127)),VV[43],2);          if(!(((V131))==(STREF(object,CMPcadr((V129)),8)))){
         if(!(((V129))==(/* INLINE-ARGS */V131))){  
788          goto T275;}          goto T275;}
789          {object V132 = (V127);          {object V132 = (V129);
790          VMR6(V132)}          VMR6(V132)}
791          goto T275;          goto T275;
792  T275:;  T275:;
793          {object V133;          {object V133;
794          base[0]= cadr((V127));          base[0]= CMPcadr((V129));
795          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
796          (void) (*Lnk68)();          (void) (*Lnk68)();
797          vs_top=sup;          vs_top=sup;
798          V133= vs_base[0];          V133= vs_base[0];
799          (void)(structure_set((V133),VV[43],2,(V129)));          V134= Ct;
800          {object V134 = listA(3,car((V127)),(V133),cddr((V127)));          STSET(object,(V133),8, (V131));
801          VMR6(V134)}}}          (void)((V131));
802            {object V135 = listA(3,CMPcar((V129)),(V133),CMPcddr((V129)));
803            VMR6(V135)}}}
804          base[0]=base[0];          base[0]=base[0];
805          return Cnil;          return Cnil;
806  }  }
807  /*      local entry for function CHECK-FORM-TYPE        */  /*      local entry for function CHECK-FORM-TYPE        */
808    
809  static object LI7(V138,V139,V140)  static object LI7(V139,V140,V141)
810    
811  object V138;object V139;object V140;  object V139;object V140;object V141;
812  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
813          goto TTL;          goto TTL;
814  TTL:;  TTL:;
815          V141= structure_ref(cadr((V139)),VV[43],2);          if(((*(LnkLI67))((V139),STREF(object,CMPcadr((V140)),8)))!=Cnil){
         if(((*(LnkLI67))((V138),/* INLINE-ARGS */V141))!=Cnil){  
816          goto T281;}          goto T281;}
817          {object V142 = (VFUN_NARGS=3,(*(LnkLI69))(VV[45],(V140),(V138)));          {object V142 = (VFUN_NARGS=3,(*(LnkLI69))(VV[45],(V141),(V139)));
818          VMR7(V142)}          VMR7(V142)}
819          goto T281;          goto T281;
820  T281:;  T281:;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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