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){ |
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;} |
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;} |
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; |
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; |
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; |