From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Thu, 31 Aug 2006 16:13:25 +0000 (+0200)
Subject: Support code limit for gen-character
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=dd25ec9992371a9aa37e2dfdec64d9a149c54e79;p=fiveam.git

Support code limit for gen-character
---

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.