mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 14:21:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

In #*, when the dimension is missing, the size of the vector is uninitialized (Jerry James)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-02-06 22:12:22 +01:00
parent 574f989070
commit ae35b67986
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/read.d
View file

@ -889,8 +889,8 @@ sharp_asterisk_reader(cl_object in, cl_object c, cl_object d)
FEreader_error("Too many elements in #*.", in, 0);
unlikely_if (dim && (dimcount == 0))
FEreader_error("Cannot fill the bit-vector #*.", in, 0);
last = ECL_STACK_REF(env,-1);
}
last = ECL_STACK_REF(env,-1);
x = ecl_alloc_simple_vector(dim, aet_bit);
for (i = 0; i < dim; i++) {
elt = (i < dimcount) ? env->stack[sp+i] : last;