mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 20:31:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Set the value of the new field array.hasfillp to zero

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-21 22:20:41 +02:00
parent ba0d9f826e
commit d9d787f84d
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/array.d
View file

@ -421,6 +421,7 @@ si_make_pure_array(cl_object etype, cl_object dims, cl_object adj,
x->array.self.t = NULL; /* for GC sake */
x->array.rank = r;
x->array.elttype = (short)ecl_symbol_to_elttype(etype);
x->array.hasfillp = 0;
x->array.dims = (cl_index *)ecl_alloc_atomic_align(sizeof(cl_index)*r, sizeof(cl_index));
for (i = 0, s = 1; i < r; i++, dims = ECL_CONS_CDR(dims)) {
j = ecl_fixnum_in_range(@'make-array', "dimension",