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

ecl_equal: fix comparison of displaced bitvectors

Browse source 
Fixes #445
This commit is contained in:
Marius Gerbershagen 2018-12-19 22:58:18 +01:00
parent ed9ebb936b
commit d3420eb3d5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/predicate.d
View file

@ -377,8 +377,8 @@ ecl_equal(register cl_object x, cl_object y)
ox = x->vector.offset;
oy = y->vector.offset;
for (i = 0; i < x->vector.fillp; i++)
if((x->vector.self.bit[(i+ox)/8] & (0200>>(i+ox)%8))
!=(y->vector.self.bit[(i+oy)/8] & (0200>>(i+oy)%8)))
if(((x->vector.self.bit[(i+ox)/8] & (0200>>(i+ox)%8)) << ox)
!=((y->vector.self.bit[(i+oy)/8] & (0200>>(i+oy)%8)) << oy))
return(FALSE);
return(TRUE);
}