/[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.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:19 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            }
25          if(endp(V1)){          if(endp(V1)){
26          base[5]= Cnil;          base[5]= Cnil;
27          } else {          } else {
28          base[5]= (V1->c.c_car);          base[5]= (V1->c.c_car);
29          V1=V1->c.c_cdr;}          V1=V1->c.c_cdr;
30            }
31          if(!endp(V1))invalid_macro_call();}          if(!endp(V1))invalid_macro_call();}
32          V2= list(2,VV[1],list(2,VV[2],base[2]));          V2= list(2,VV[1],list(2,VV[2],base[2]));
33          if((base[5])==Cnil){          if((base[5])==Cnil){
# Line 70  static void L2() Line 72  static void L2()
72          base[4]= Cnil;          base[4]= Cnil;
73          } else {          } else {
74          base[4]= (V6->c.c_car);          base[4]= (V6->c.c_car);
75          V6=V6->c.c_cdr;}          V6=V6->c.c_cdr;
76            }
77          if(!endp(V6))invalid_macro_call();}          if(!endp(V6))invalid_macro_call();}
78          if((base[4])==Cnil){          if((base[4])==Cnil){
79          goto T13;}          goto T13;}
# Line 107  static void L3() Line 110  static void L3()
110          base[4]= Cnil;          base[4]= Cnil;
111          } else {          } else {
112          base[4]= (V12->c.c_car);          base[4]= (V12->c.c_car);
113          V12=V12->c.c_cdr;}          V12=V12->c.c_cdr;
114            }
115          if(!endp(V12))invalid_macro_call();}          if(!endp(V12))invalid_macro_call();}
116          if((base[4])==Cnil){          if((base[4])==Cnil){
117          goto T17;}          goto T17;}
# Line 973  static void L24() Line 977  static void L24()
977          base[2]= Cnil;          base[2]= Cnil;
978          } else {          } else {
979          base[2]= (V144->c.c_car);          base[2]= (V144->c.c_car);
980          V144=V144->c.c_cdr;}          V144=V144->c.c_cdr;
981            }
982          if(!endp(V144))invalid_macro_call();}          if(!endp(V144))invalid_macro_call();}
983          base[3]= list(3,VV[36],Cnil,base[2]);          base[3]= list(3,VV[36],Cnil,base[2]);
984          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1000  static void L25() Line 1005  static void L25()
1005          base[4]= Cnil;          base[4]= Cnil;
1006          } else {          } else {
1007          base[4]= (V146->c.c_car);          base[4]= (V146->c.c_car);
1008          V146=V146->c.c_cdr;}          V146=V146->c.c_cdr;
1009            }
1010          if(!endp(V146))invalid_macro_call();}          if(!endp(V146))invalid_macro_call();}
1011          V145=V145->c.c_cdr;          V145=V145->c.c_cdr;
1012          base[5]= V145;          base[5]= V145;
# Line 1036  static void L26() Line 1042  static void L26()
1042          base[4]= Cnil;          base[4]= Cnil;
1043          } else {          } else {
1044          base[4]= (V151->c.c_car);          base[4]= (V151->c.c_car);
1045          V151=V151->c.c_cdr;}          V151=V151->c.c_cdr;
1046            }
1047          if(!endp(V151))invalid_macro_call();}          if(!endp(V151))invalid_macro_call();}
1048          V150=V150->c.c_cdr;          V150=V150->c.c_cdr;
1049          base[5]= V150;          base[5]= V150;

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

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