From: Marco Baringer Date: Tue, 24 Jan 2006 11:37:15 +0000 (+0100) Subject: Default minimum for gen-integer is most-negative-fixnum - 1, not most-negative-fixnum... X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f7d91555fd68221917e4323a1f4409011a6084f6;p=fiveam.git Default minimum for gen-integer is most-negative-fixnum - 1, not most-negative-fixnum + 1. --- 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)))