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

Diff of /gcl/lsp/gcl_evalmacros.c

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

revision 1.1.2.2 by camm, Tue Sep 23 18:39:19 2003 UTC revision 1.1.2.3 by camm, Tue Sep 23 18:56:17 2003 UTC
# Line 20  static void L1() Line 20  static void L1()
20          } else {          } else {
21          base[3]= (V1->c.c_car);          base[3]= (V1->c.c_car);
22          base[4]= Ct;          base[4]= Ct;
23          V1=V1->c.c_cdr;          V1=V1->c.c_cdr;}
         }  
24          if(endp(V1)){          if(endp(V1)){
25          base[5]= Cnil;          base[5]= Cnil;
26          } else {          } else {
27          base[5]= (V1->c.c_car);          base[5]= (V1->c.c_car);
28          V1=V1->c.c_cdr;          V1=V1->c.c_cdr;}
         }  
29          if(!endp(V1))invalid_macro_call();}          if(!endp(V1))invalid_macro_call();}
30          V2= list(2,VV[1],list(2,VV[2],base[2]));          V2= list(2,VV[1],list(2,VV[2],base[2]));
31          if((base[5])==Cnil){          if((base[5])==Cnil){
# Line 72  static void L2() Line 70  static void L2()
70          base[4]= Cnil;          base[4]= Cnil;
71          } else {          } else {
72          base[4]= (V6->c.c_car);          base[4]= (V6->c.c_car);
73          V6=V6->c.c_cdr;          V6=V6->c.c_cdr;}
         }  
74          if(!endp(V6))invalid_macro_call();}          if(!endp(V6))invalid_macro_call();}
75          if((base[4])==Cnil){          if((base[4])==Cnil){
76          goto T13;}          goto T13;}
# Line 110  static void L3() Line 107  static void L3()
107          base[4]= Cnil;          base[4]= Cnil;
108          } else {          } else {
109          base[4]= (V12->c.c_car);          base[4]= (V12->c.c_car);
110          V12=V12->c.c_cdr;          V12=V12->c.c_cdr;}
         }  
111          if(!endp(V12))invalid_macro_call();}          if(!endp(V12))invalid_macro_call();}
112          if((base[4])==Cnil){          if((base[4])==Cnil){
113          goto T17;}          goto T17;}
# Line 977  static void L24() Line 973  static void L24()
973          base[2]= Cnil;          base[2]= Cnil;
974          } else {          } else {
975          base[2]= (V144->c.c_car);          base[2]= (V144->c.c_car);
976          V144=V144->c.c_cdr;          V144=V144->c.c_cdr;}
         }  
977          if(!endp(V144))invalid_macro_call();}          if(!endp(V144))invalid_macro_call();}
978          base[3]= list(3,VV[36],Cnil,base[2]);          base[3]= list(3,VV[36],Cnil,base[2]);
979          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1005  static void L25() Line 1000  static void L25()
1000          base[4]= Cnil;          base[4]= Cnil;
1001          } else {          } else {
1002          base[4]= (V146->c.c_car);          base[4]= (V146->c.c_car);
1003          V146=V146->c.c_cdr;          V146=V146->c.c_cdr;}
         }  
1004          if(!endp(V146))invalid_macro_call();}          if(!endp(V146))invalid_macro_call();}
1005          V145=V145->c.c_cdr;          V145=V145->c.c_cdr;
1006          base[5]= V145;          base[5]= V145;
# Line 1042  static void L26() Line 1036  static void L26()
1036          base[4]= Cnil;          base[4]= Cnil;
1037          } else {          } else {
1038          base[4]= (V151->c.c_car);          base[4]= (V151->c.c_car);
1039          V151=V151->c.c_cdr;          V151=V151->c.c_cdr;}
         }  
1040          if(!endp(V151))invalid_macro_call();}          if(!endp(V151))invalid_macro_call();}
1041          V150=V150->c.c_cdr;          V150=V150->c.c_cdr;
1042          base[5]= V150;          base[5]= V150;

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