968 |
m->c.c_cdr = l; |
m->c.c_cdr = l; |
969 |
m = l; |
m = l; |
970 |
} |
} |
971 |
for (; !endp(m->c.c_cdr); m = m->c.c_cdr) |
for (; m->c.c_cdr!=Cnil && type_of(m->c.c_cdr)==t_cons; m = m->c.c_cdr); |
972 |
; |
if (m->c.c_cdr!=Cnil) { |
973 |
|
m->c.c_cdr=make_cons(m->c.c_cdr,Cnil); |
974 |
|
m = m->c.c_cdr; |
975 |
|
} |
976 |
} |
} |
977 |
if (x == Cnil) vs_base[0] = vs_top[-1]; |
if (x == Cnil) vs_base[0] = vs_top[-1]; |
978 |
else { |
else { |
1206 |
vs_popp; |
vs_popp; |
1207 |
return; |
return; |
1208 |
} |
} |
1209 |
vs_base[0] = Cnil; |
vs_base[0] = vs_base[0]==Cnil ? Ct : Cnil; |
1210 |
vs_popp; |
vs_popp; |
1211 |
return; |
return; |
1212 |
} |
} |