968 |
m->c.c_cdr = l; |
m->c.c_cdr = l; |
969 |
m = l; |
m = l; |
970 |
} |
} |
971 |
for (; m->c.c_cdr!=Cnil && type_of(m->c.c_cdr)==t_cons; m = m->c.c_cdr); |
for (; type_of(m->c.c_cdr)==t_cons; m = m->c.c_cdr); |
|
if (m->c.c_cdr!=Cnil) { |
|
|
m->c.c_cdr=make_cons(m->c.c_cdr,Cnil); |
|
|
m = m->c.c_cdr; |
|
|
} |
|
972 |
} |
} |
973 |
if (x == Cnil) vs_base[0] = vs_top[-1]; |
if (x == Cnil) vs_base[0] = vs_top[-1]; |
974 |
else { |
else { |
1196 |
|
|
1197 |
check_arg(2); |
check_arg(2); |
1198 |
for (x = vs_base[1]; !endp(x); x = x->c.c_cdr) |
for (x = vs_base[1]; !endp(x); x = x->c.c_cdr) |
|
/* if (dot_list_eq(x,vs_base[0])) {*/ |
|
1199 |
if (eql(fix_dot(x),vs_base[0])) { |
if (eql(fix_dot(x),vs_base[0])) { |
1200 |
vs_base[0] = Ct; |
vs_base[0] = Ct; |
1201 |
vs_popp; |
vs_popp; |
1202 |
return; |
return; |
1203 |
} |
} |
1204 |
vs_base[0] = vs_base[0]==Cnil ? Ct : Cnil; |
if (eql(x,vs_base[0])) |
1205 |
|
vs_base[0] = Ct; |
1206 |
|
else |
1207 |
|
vs_base[0] = Cnil; |
1208 |
vs_popp; |
vs_popp; |
1209 |
return; |
return; |
1210 |
} |
} |