304 |
check_arg(3); |
check_arg(3); |
305 |
if (type_of(vs_base[1]) != t_fixnum || fix(vs_base[1]) < 0) |
if (type_of(vs_base[1]) != t_fixnum || fix(vs_base[1]) < 0) |
306 |
FEerror("~S is not a non-negative fixnum.", 1, vs_base[1]); |
FEerror("~S is not a non-negative fixnum.", 1, vs_base[1]); |
307 |
if (type_of(vs_base[0]) != t_cons) |
if (!consp(vs_base[0])) |
308 |
FEerror("~S is not a cons.", 1, vs_base[0]); |
FEerror("~S is not a cons.", 1, vs_base[0]); |
309 |
|
|
310 |
for (i = fix(vs_base[1]), l = vs_base[0]; i > 0; --i) { |
for (i = fix(vs_base[1]), l = vs_base[0]; i > 0; --i) { |
331 |
check_arg(2); |
check_arg(2); |
332 |
if (type_of(vs_base[0]) != t_fixnum || fix(vs_base[0]) < 0) |
if (type_of(vs_base[0]) != t_fixnum || fix(vs_base[0]) < 0) |
333 |
FEerror("~S is not a non-negative fixnum.", 1, vs_base[0]); |
FEerror("~S is not a non-negative fixnum.", 1, vs_base[0]); |
334 |
if (type_of(vs_base[1]) != t_cons) |
if (!consp(vs_base[1])) |
335 |
FEerror("~S is not a cons.", 1, vs_base[1]); |
FEerror("~S is not a cons.", 1, vs_base[1]); |
336 |
|
|
337 |
for (i = fix(vs_base[0]), l = vs_base[1]; i > 0; --i) { |
for (i = fix(vs_base[0]), l = vs_base[1]; i > 0; --i) { |