Default minimum for gen-integer is most-negative-fixnum - 1, not most-negative-fixnum...

diff --git a/src/random.lisp b/src/random.lisp
index 9b94f40..bb4ba9e 100644 (file)
--- 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)))