mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 07:50:26 -07:00
Code Issues Projects Releases Packages Wiki Activity

hash.d: compute hash_string properly

Browse source 
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-09-22 22:55:35 +02:00
parent 61b30811c1
commit 0d639873ff
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/hash.d
View file

@ -120,8 +120,7 @@ _hash_equal(int depth, cl_hashkey h, cl_object x)
case t_random: {
cl_object array = x->random.value;
return hash_string
(h, (unsigned char*)array->vector.self.b8,
array->vector.fillp);
(h, (unsigned char*)array->vector.self.b8, 4*624);
}
#ifdef ECL_SIGNED_ZERO
case t_singlefloat: {