mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-10 19:22:39 -08:00
Code Issues Projects Releases Packages Wiki Activity

No need for using fixnnint() when we now the argument is a fixnum.

Browse source
This commit is contained in:
jgarcia 2006-11-01 17:46:44 +00:00
parent 17ecba77ed
commit d2d0dd1093
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/array.d
View file

@ -384,7 +384,7 @@ si_make_vector(cl_object etype, cl_object dim, cl_object adj,
} else if (fillp == Ct) {
x->vector.hasfillp = TRUE;
f = d;
} else if (FIXNUMP(fillp) && ((f = fixnnint(fillp)) <= d) && (f >= 0)) {
} else if (FIXNUMP(fillp) && ((f = fix(fillp)) <= d) && (f >= 0)) {
x->vector.hasfillp = TRUE;
} else {
fillp = ecl_type_error(@'make-array',"fill pointer",fillp,