From dd25ec9992371a9aa37e2dfdec64d9a149c54e79 Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Thu, 31 Aug 2006 18:13:25 +0200 Subject: [PATCH] Support code limit for gen-character --- src/random.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/random.lisp b/src/random.lisp index ba0abf8..f91ca46 100644 --- a/src/random.lisp +++ b/src/random.lisp @@ -191,7 +191,8 @@ BOUND)." (- (random (min (- most-negative) bound))))) type)))) -(defun gen-character (&key (code (gen-integer :min 0 :max (1- char-code-limit))) +(defun gen-character (&key (code-limit char-code-limit) + (code (gen-integer :min 0 :max (1- code-limit))) (alphanumericp nil)) "Returns a generator of characters. -- 1.7.10.4