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