/[gcl]/gcl/clcs/clcs_kcl_cond.c
ViewVC logotype

Diff of /gcl/clcs/clcs_kcl_cond.c

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

revision 1.9 by camm, Tue Oct 7 21:07:34 2003 UTC revision 1.10 by camm, Thu Oct 23 15:30:05 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_kcl_cond.h"  #include "clcs_kcl_cond.h"
4  void init_clcs_kcl_cond(){do_init(VV);}  void init_clcs_kcl_cond(){do_init(VV);}
5  /*      local entry for function progn 'compile2168     */  /*      local entry for function progn 'compile2195     */
6    
7  static object LI1()  static object LI1()
8    
# Line 18  TTL:; Line 18  TTL:;
18          base[0]=base[0];          base[0]=base[0];
19          return Cnil;          return Cnil;
20  }  }
21  /*      local entry for function progn 'compile2180     */  /*      local entry for function progn 'compile2207     */
22    
23  static object LI2()  static object LI2()
24    
# Line 43  T3:; Line 43  T3:;
43          base[0]=base[0];          base[0]=base[0];
44          return Cnil;          return Cnil;
45  }  }
46  /*      local entry for function progn 'compile2193     */  /*      local entry for function progn 'compile2220     */
47    
48  static object LI3()  static object LI3()
49    
# Line 300  T67:; Line 300  T67:;
300          base[0]=base[0];          base[0]=base[0];
301          return Cnil;          return Cnil;
302  }  }
303  /*      local entry for function progn 'compile2343     */  /*      local entry for function progn 'compile2370     */
304    
305  static object LI8()  static object LI8()
306    
# Line 316  TTL:; Line 316  TTL:;
316          base[0]=base[0];          base[0]=base[0];
317          return Cnil;          return Cnil;
318  }  }
319  /*      local entry for function progn 'compile2355     */  /*      local entry for function progn 'compile2382     */
320    
321  static object LI9()  static object LI9()
322    
# Line 328  TTL:; Line 328  TTL:;
328          VMR9(V43)}          VMR9(V43)}
329          return Cnil;          return Cnil;
330  }  }
331  /*      local entry for function progn 'compile2367     */  /*      local entry for function progn 'compile2394     */
332    
333  static object LI10()  static object LI10()
334    
# Line 339  TTL:; Line 339  TTL:;
339          VMR10(V44)}          VMR10(V44)}
340          return Cnil;          return Cnil;
341  }  }
342  /*      local entry for function progn 'compile2475     */  /*      local entry for function progn 'compile2505     */
343    
344  static object LI11()  static object LI11()
345    
# Line 412  T87:; Line 412  T87:;
412          base[0]=base[0];          base[0]=base[0];
413          return Cnil;          return Cnil;
414  }  }
415  /*      local entry for function progn 'compile2503     */  /*      local entry for function progn 'compile2533     */
416    
417  static object LI13()  static object LI13()
418    
# Line 428  TTL:; Line 428  TTL:;
428          base[0]=base[0];          base[0]=base[0];
429          return Cnil;          return Cnil;
430  }  }
431  /*      local entry for function progn 'compile2515     */  /*      local entry for function progn 'compile2545     */
432    
433  static object LI14()  static object LI14()
434    
# Line 447  T100:; Line 447  T100:;
447          VMR14(V53)}          VMR14(V53)}
448          return Cnil;          return Cnil;
449  }  }
450  /*      local entry for function progn 'compile2528     */  /*      local entry for function progn 'compile2558     */
451    
452  static object LI15()  static object LI15()
453    
# Line 550  TTL:; Line 550  TTL:;
550          base[0]=base[0];          base[0]=base[0];
551          return Cnil;          return Cnil;
552  }  }
553  /*      local entry for function progn 'compile2620     */  /*      local entry for function progn 'compile2650     */
554    
555  static object LI18()  static object LI18()
556    
# Line 562  TTL:; Line 562  TTL:;
562          VMR18(V67)}          VMR18(V67)}
563          return Cnil;          return Cnil;
564  }  }
565  /*      local entry for function progn 'compile2652     */  /*      local entry for function progn 'compile2680     */
566    
567  static object LI19()  static object LI19()
568    
# Line 574  TTL:; Line 574  TTL:;
574          VMR19(V68)}          VMR19(V68)}
575          return Cnil;          return Cnil;
576  }  }
577  /*      local entry for function progn 'compile2684     */  /*      local entry for function progn 'compile2710     */
578    
579  static object LI20()  static object LI20()
580    
# Line 586  TTL:; Line 586  TTL:;
586          VMR20(V69)}          VMR20(V69)}
587          return Cnil;          return Cnil;
588  }  }
589  /*      local entry for function progn 'compile2696     */  /*      local entry for function progn 'compile2722     */
590    
591  static object LI21()  static object LI21()
592    
# Line 621  TTL:; Line 621  TTL:;
621          Lfind_package();          Lfind_package();
622          vs_top=sup;          vs_top=sup;
623          V73= vs_base[0];          V73= vs_base[0];
624          V74 = (VV[38]->s.s_dbind);          bds_bind(VV[38],make_cons(V73,(VV[38]->s.s_dbind)));
         bds_bind(VV[38],make_cons(V73,V74));  
625          base[4]= (V71);          base[4]= (V71);
626          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
627          (void) (*Lnk28)();          (void) (*Lnk28)();
# Line 639  register object *base0; Line 638  register object *base0;
638  {       register object *base=vs_base;  {       register object *base=vs_base;
639          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
640          vs_check;          vs_check;
641          {object V75;          {object V74;
642          V75=(base[0]);          V74=(base[0]);
643          vs_top=sup;          vs_top=sup;
644          if(((VV[33]->s.s_dbind))!=Cnil){          if(((VV[33]->s.s_dbind))!=Cnil){
645          goto T131;}          goto T131;}
646          if(((VV[27]->s.s_dbind))!=Cnil){          if(((VV[27]->s.s_dbind))!=Cnil){
647          goto T131;}          goto T131;}
648          (void)((*(LnkLI51))((V75)));          (void)((*(LnkLI51))((V74)));
649          {frame_ptr fr;          {frame_ptr fr;
650          fr=frs_sch((base0[3]->c.c_car));          fr=frs_sch((base0[3]->c.c_car));
651          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[49]);          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[49]);
652          base[1]= (V75);          base[1]= (V74);
653          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
654          unwind(fr,Cnil);}          unwind(fr,Cnil);}
655          goto T131;          goto T131;
656  T131:;  T131:;
657          (base0[2]->c.c_car)= (V75);          (base0[2]->c.c_car)= (V74);
658          base[1]= Cnil;          base[1]= Cnil;
659          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
660          return;          return;
# Line 668  register object *base0; Line 667  register object *base0;
667  {       register object *base=vs_base;  {       register object *base=vs_base;
668          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
669          vs_check;          vs_check;
670          {object V76;          {object V75;
671          V76=(base[0]);          V75=(base[0]);
672          vs_top=sup;          vs_top=sup;
673          base[1]= (V76);          base[1]= (V75);
674          base[2]= VV[29];          base[2]= VV[29];
675          base[3]= list(2,VV[28],list(2,VV[30],(base0[4]->c.c_car)));          base[3]= list(2,VV[28],list(2,VV[30],(base0[4]->c.c_car)));
676          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 686  register object *base0; Line 685  register object *base0;
685  {       register object *base=vs_base;  {       register object *base=vs_base;
686          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
687          vs_check;          vs_check;
688          {object V77;          {object V76;
689          vs_top[0]=Cnil;          vs_top[0]=Cnil;
690          {object *p=vs_top;          {object *p=vs_top;
691           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
692          V77=(base[0]);          V76=(base[0]);
693          vs_top=sup;          vs_top=sup;
694          (base0[1]->c.c_car)= (V77);          (base0[1]->c.c_car)= (V76);
695          {frame_ptr fr;          {frame_ptr fr;
696          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
697          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[34]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[34]);
# Line 707  register object *base0; Line 706  register object *base0;
706  {       register object *base=vs_base;  {       register object *base=vs_base;
707          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
708          vs_check;          vs_check;
709          {object V78;          {object V77;
710          V78=(base[0]);          V77=(base[0]);
711          vs_top=sup;          vs_top=sup;
712          base[1]= (V78);          base[1]= (V77);
713          base[2]= VV[10];          base[2]= VV[10];
714          base[4]= Cnil;          base[4]= Cnil;
715          base[5]= (base0[3]->c.c_car);          base[5]= (base0[3]->c.c_car);
716          {object V79;          {object V78;
717          V79= (base0[2]->c.c_car);          V78= (base0[2]->c.c_car);
718           vs_top=base+6;           vs_top=base+6;
719           while(V79!=Cnil)           while(V78!=Cnil)
720           {vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;}           {vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;}
721          vs_base=base+4;}          vs_base=base+4;}
722          Lformat();          Lformat();
723          vs_top=sup;          vs_top=sup;
# Line 735  register object *base0; Line 734  register object *base0;
734  {       register object *base=vs_base;  {       register object *base=vs_base;
735          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
736          vs_check;          vs_check;
737          {object V80;          {object V79;
738          vs_top[0]=Cnil;          vs_top[0]=Cnil;
739          {object *p=vs_top;          {object *p=vs_top;
740           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
741          V80=(base[0]);          V79=(base[0]);
742          vs_top=sup;          vs_top=sup;
743          (base0[1]->c.c_car)= (V80);          (base0[1]->c.c_car)= (V79);
744          {frame_ptr fr;          {frame_ptr fr;
745          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
746          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[14]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[14]);

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

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