From f7d91555fd68221917e4323a1f4409011a6084f6 Mon Sep 17 00:00:00 2001 From: Marco Baringer Date: Tue, 24 Jan 2006 12:37:15 +0100 Subject: [PATCH] Default minimum for gen-integer is most-negative-fixnum - 1, not most-negative-fixnum + 1. --- src/random.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/random.lisp b/src/random.lisp index 9b94f40..bb4ba9e 100644 --- a/src/random.lisp +++ b/src/random.lisp @@ -117,7 +117,7 @@ returning true. This second run limit prevents that.") (lambda () ,@body))) (defgenerator gen-integer (&key (max (1+ most-positive-fixnum)) - (min (1+ most-negative-fixnum))) + (min (1- most-negative-fixnum))) (+ min (random (1+ (- max min))))) (defgenerator gen-character (&key (code (gen-integer :min 0 :max (1- char-code-limit))) -- 1.7.10.4