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