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

Hash reader macros #n# and #n=# break with specialized arrays

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-08-19 12:22:18 +02:00
parent ec5647915a
commit 88251744a1
1 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/c/read.d
View file

@ -1173,22 +1173,22 @@ do_patch_sharp(cl_object x)
} while (CONSP(y));
break;
}
case t_vector: {
cl_index i;
for (i = 0; i < x->vector.fillp; i++)
x->vector.self.t[i] = do_patch_sharp(x->vector.self.t[i]);
case t_vector:
if (x->vector.elttype == aet_object) {
cl_index i;
for (i = 0; i < x->vector.fillp; i++)
x->vector.self.t[i] = do_patch_sharp(x->vector.self.t[i]);
}
break;
}
case t_array: {
cl_index i, j;
for (i = 0, j = 1; i < x->array.rank; i++)
j *= x->array.dims[i];
for (i = 0; i < j; i++)
x->array.self.t[i] = do_patch_sharp(x->array.self.t[i]);
case t_array:
if (x->vector.elttype == aet_object) {
cl_index i, j;
for (i = 0, j = 1; i < x->array.rank; i++)
j *= x->array.dims[i];
for (i = 0; i < j; i++)
x->array.self.t[i] = do_patch_sharp(x->array.self.t[i]);
}
break;
}
case t_complex: {
cl_object r = do_patch_sharp(x->complex.real);
cl_object i = do_patch_sharp(x->complex.imag);