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

Diff of /gcl/lsp/gcl_packlib.c

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

revision 1.1.2.2 by camm, Tue Sep 23 18:39:20 2003 UTC revision 1.1.2.3 by camm, Tue Sep 23 18:56:17 2003 UTC
# Line 120  static void L3() Line 120  static void L3()
120          base[3]= VV[0];          base[3]= VV[0];
121          } else {          } else {
122          base[3]= (V17->c.c_car);          base[3]= (V17->c.c_car);
123          V17=V17->c.c_cdr;          V17=V17->c.c_cdr;}
         }  
124          if(endp(V17)){          if(endp(V17)){
125          base[4]= Cnil;          base[4]= Cnil;
126          } else {          } else {
127          base[4]= (V17->c.c_car);          base[4]= (V17->c.c_car);
128          V17=V17->c.c_cdr;          V17=V17->c.c_cdr;}
         }  
129          if(!endp(V17))invalid_macro_call();}          if(!endp(V17))invalid_macro_call();}
130          V16=V16->c.c_cdr;          V16=V16->c.c_cdr;
131          base[5]= V16;}          base[5]= V16;}
# Line 229  static void L4() Line 227  static void L4()
227          base[3]= VV[0];          base[3]= VV[0];
228          } else {          } else {
229          base[3]= (V49->c.c_car);          base[3]= (V49->c.c_car);
230          V49=V49->c.c_cdr;          V49=V49->c.c_cdr;}
         }  
231          if(endp(V49)){          if(endp(V49)){
232          base[4]= Cnil;          base[4]= Cnil;
233          } else {          } else {
234          base[4]= (V49->c.c_car);          base[4]= (V49->c.c_car);
235          V49=V49->c.c_cdr;          V49=V49->c.c_cdr;}
         }  
236          if(!endp(V49))invalid_macro_call();}          if(!endp(V49))invalid_macro_call();}
237          V48=V48->c.c_cdr;          V48=V48->c.c_cdr;
238          base[5]= V48;}          base[5]= V48;}
# Line 313  static void L5() Line 309  static void L5()
309          base[3]= Cnil;          base[3]= Cnil;
310          } else {          } else {
311          base[3]= (V68->c.c_car);          base[3]= (V68->c.c_car);
312          V68=V68->c.c_cdr;          V68=V68->c.c_cdr;}
         }  
313          if(!endp(V68))invalid_macro_call();}          if(!endp(V68))invalid_macro_call();}
314          V67=V67->c.c_cdr;          V67=V67->c.c_cdr;
315          base[4]= V67;}          base[4]= V67;}

Legend:
Removed from v.1.1.2.2  
changed lines
  Added in v.1.1.2.3

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