From 5696b3784546b071765be0eed7407d2ccbf6bd8b Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 19 Jan 2009 22:38:49 +0000
Subject: [PATCH] Use a float for the bounds of a float type specifier.

---
 code/rand-mt19937.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/rand-mt19937.lisp b/code/rand-mt19937.lisp
index e3647b565..a2fa532b6 100644
--- a/code/rand-mt19937.lisp
+++ b/code/rand-mt19937.lisp
@@ -6,7 +6,7 @@
 ;;; placed in the Public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.19 2008/09/02 13:38:03 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.20 2009/01/19 22:38:49 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -460,6 +460,6 @@
      (%random-integer arg state))
     (t
      (error 'simple-type-error
-	    :expected-type '(or (integer 1) (float (0))) :datum arg
+	    :expected-type '(or (integer 1) (float (0.0))) :datum arg
 	    :format-control "Argument is not a positive integer or a positive float: ~S"
 	    :format-arguments (list arg)))))
-- 
GitLab