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

When copying a random state with MAKE-RANDOM-STATE, the data of the Mersenne-Twister has to be duplicated as well.

Browse source
This commit is contained in:
jgarcia 2007-05-21 21:33:52 +00:00
parent f8765e14f1
commit 0ff1e848c2
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/num_rand.d
View file

@ -179,7 +179,7 @@ ecl_make_random_state(cl_object rs)
if (type_of(rs) != t_random) {
FEwrong_type_argument(@'random-state', rs);
}
z->random.value = rs->random.value;
z->random.value = cl_copy_seq(rs->random.value);
}
return(z);
}