From 69de6b9374810f06b59dacabf43acbfae85ec3c5 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Wed, 6 Aug 2003 14:07:40 +0000
Subject: [PATCH] #$ relies on MAKE-RANDOM-STATE.

---
 src/c/read.d | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/c/read.d b/src/c/read.d
index c94fd211e..563952451 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -1165,12 +1165,7 @@ sharp_dollar_reader(cl_object in, cl_object c, cl_object d)
 	if (d != Cnil && !read_suppress)
 		extra_argument('$', in, d);
 	c = read_object(in);
-	if (!FIXNUMP(c))
-		FEreader_error("Cannot make a random-state with the value ~S.",
-			       in, 1, c);
-	output = cl_alloc_object(t_random);
-	output->random.value = fix(c);
-	@(return output)
+	return cl_make_random_state(1, c);
 }
 
 /*