/[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.7 by camm, Tue Sep 23 21:48:26 2003 UTC revision 1.8 by camm, Fri Oct 3 16:03:15 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 'compile2186     */  /*      local entry for function progn 'compile2191     */
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 'compile2198     */  /*      local entry for function progn 'compile2203     */
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 'compile2211     */  /*      local entry for function progn 'compile2216     */
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 'compile2361     */  /*      local entry for function progn 'compile2366     */
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 'compile2373     */  /*      local entry for function progn 'compile2378     */
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 'compile2385     */  /*      local entry for function progn 'compile2390     */
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 'compile2487     */  /*      local entry for function progn 'compile2495     */
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 'compile2515     */  /*      local entry for function progn 'compile2523     */
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 'compile2527     */  /*      local entry for function progn 'compile2535     */
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 'compile2540     */  /*      local entry for function progn 'compile2548     */
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 'compile2632     */  /*      local entry for function progn 'compile2640     */
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 'compile2664     */  /*      local entry for function progn 'compile2672     */
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 'compile2696     */  /*      local entry for function progn 'compile2704     */
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 'compile2708     */  /*      local entry for function progn 'compile2716     */
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          bds_bind(VV[38],make_cons(V73,(VV[38]->s.s_dbind)));          V74 = (VV[38]->s.s_dbind);
625            bds_bind(VV[38],make_cons(V73,V74));
626          base[4]= (V71);          base[4]= (V71);
627          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
628          (void) (*Lnk28)();          (void) (*Lnk28)();
# Line 638  register object *base0; Line 639  register object *base0;
639  {       register object *base=vs_base;  {       register object *base=vs_base;
640          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
641          vs_check;          vs_check;
642          {object V74;          {object V75;
643          V74=(base[0]);          V75=(base[0]);
644          vs_top=sup;          vs_top=sup;
645          if(((VV[33]->s.s_dbind))!=Cnil){          if(((VV[33]->s.s_dbind))!=Cnil){
646          goto T131;}          goto T131;}
647          if(((VV[27]->s.s_dbind))!=Cnil){          if(((VV[27]->s.s_dbind))!=Cnil){
648          goto T131;}          goto T131;}
649          (void)((*(LnkLI51))((V74)));          (void)((*(LnkLI51))((V75)));
650          {frame_ptr fr;          {frame_ptr fr;
651          fr=frs_sch((base0[3]->c.c_car));          fr=frs_sch((base0[3]->c.c_car));
652          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[49]);          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[49]);
653          base[1]= (V74);          base[1]= (V75);
654          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
655          unwind(fr,Cnil);}          unwind(fr,Cnil);}
656          goto T131;          goto T131;
657  T131:;  T131:;
658          (base0[2]->c.c_car)= (V74);          (base0[2]->c.c_car)= (V75);
659          base[1]= Cnil;          base[1]= Cnil;
660          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
661          return;          return;
# Line 667  register object *base0; Line 668  register object *base0;
668  {       register object *base=vs_base;  {       register object *base=vs_base;
669          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
670          vs_check;          vs_check;
671          {object V75;          {object V76;
672          V75=(base[0]);          V76=(base[0]);
673          vs_top=sup;          vs_top=sup;
674          base[1]= (V75);          base[1]= (V76);
675          base[2]= VV[29];          base[2]= VV[29];
676          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)));
677          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 685  register object *base0; Line 686  register object *base0;
686  {       register object *base=vs_base;  {       register object *base=vs_base;
687          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
688          vs_check;          vs_check;
689          {object V76;          {object V77;
690          vs_top[0]=Cnil;          vs_top[0]=Cnil;
691          {object *p=vs_top;          {object *p=vs_top;
692           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
693          V76=(base[0]);          V77=(base[0]);
694          vs_top=sup;          vs_top=sup;
695          (base0[1]->c.c_car)= (V76);          (base0[1]->c.c_car)= (V77);
696          {frame_ptr fr;          {frame_ptr fr;
697          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
698          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 706  register object *base0; Line 707  register object *base0;
707  {       register object *base=vs_base;  {       register object *base=vs_base;
708          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
709          vs_check;          vs_check;
710          {object V77;          {object V78;
711          V77=(base[0]);          V78=(base[0]);
712          vs_top=sup;          vs_top=sup;
713          base[1]= (V77);          base[1]= (V78);
714          base[2]= VV[10];          base[2]= VV[10];
715          base[4]= Cnil;          base[4]= Cnil;
716          base[5]= (base0[3]->c.c_car);          base[5]= (base0[3]->c.c_car);
717          {object V78;          {object V79;
718          V78= (base0[2]->c.c_car);          V79= (base0[2]->c.c_car);
719           vs_top=base+6;           vs_top=base+6;
720           while(V78!=Cnil)           while(V79!=Cnil)
721           {vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;}           {vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;}
722          vs_base=base+4;}          vs_base=base+4;}
723          Lformat();          Lformat();
724          vs_top=sup;          vs_top=sup;
# Line 734  register object *base0; Line 735  register object *base0;
735  {       register object *base=vs_base;  {       register object *base=vs_base;
736          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
737          vs_check;          vs_check;
738          {object V79;          {object V80;
739          vs_top[0]=Cnil;          vs_top[0]=Cnil;
740          {object *p=vs_top;          {object *p=vs_top;
741           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
742          V79=(base[0]);          V80=(base[0]);
743          vs_top=sup;          vs_top=sup;
744          (base0[1]->c.c_car)= (V79);          (base0[1]->c.c_car)= (V80);
745          {frame_ptr fr;          {frame_ptr fr;
746          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
747          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.7  
changed lines
  Added in v.1.8

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