From 0ff1e848c2c167a5aeb75caefc328d6755f1f5fc Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Mon, 21 May 2007 21:33:52 +0000
Subject: [PATCH] When copying a random state with MAKE-RANDOM-STATE, the data
 of the Mersenne-Twister has to be duplicated as well.

---
 src/c/num_rand.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/num_rand.d b/src/c/num_rand.d
index c62f263b0..bcb5e21a7 100644
--- a/src/c/num_rand.d
+++ b/src/c/num_rand.d
@@ -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);
 }