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

Remove the call to ecl_array_elttype() in ecl_aset_unsafe

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-03 09:35:35 +02:00
parent 2dc460e7a5
commit 8a3c9cea2c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/array.d
View file

@ -247,7 +247,7 @@ ecl_aref1(cl_object v, cl_index index)
cl_object
ecl_aset_unsafe(cl_object x, cl_index index, cl_object value)
{
switch (ecl_array_elttype(x)) {
switch (x->array.elttype) {
case aet_object:
x->array.self.t[index] = value;
break;
@ -261,7 +261,7 @@ ecl_aset_unsafe(cl_object x, cl_index index, cl_object value)
break;
#endif
case aet_bit: {
cl_fixnum i = ecl_fixnum_in_range(@'si::aset',"bit",value,0,1);
cl_fixnum i = ecl_fixnum_in_range(Cnil,"ASET value",value,0,1);
index += x->vector.offset;
if (i == 0)
x->vector.self.bit[index/CHAR_BIT] &= ~(0200>>index%CHAR_BIT);