X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Frandom.lisp;fp=src%2Frandom.lisp;h=f91ca4671535a10dbfd11c021ee75c5ff061ecf0;hb=dd25ec9992371a9aa37e2dfdec64d9a149c54e79;hp=ba0abf8d7833381ce3d65e0e1f697760361cff76;hpb=25b02b6e536197f46c8951fed21a452340328bb9;p=fiveam.git

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.