projects
/
fiveam.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
9181201
)
Added :alphanumericp keyword to gen-character
author
Marco Baringer
<mb@bese.it>
Fri, 20 Jan 2006 17:26:25 +0000
(18:26 +0100)
committer
Marco Baringer
<mb@bese.it>
Fri, 20 Jan 2006 17:26:25 +0000
(18:26 +0100)
src/random.lisp
patch
|
blob
|
history
diff --git
a/src/random.lisp
b/src/random.lisp
index
0f66f84
..
6cf070d
100644
(file)
--- a/
src/random.lisp
+++ b/
src/random.lisp
@@
-120,8
+120,14
@@
returning true. This second run limit prevents that.")
(min (1+ most-negative-fixnum)))
(+ min (random (1+ (- max min)))))
(min (1+ most-negative-fixnum)))
(+ min (random (1+ (- max min)))))
-(defgenerator gen-character (&key (code (gen-integer :min 0 :max (1- char-code-limit))))
- (code-char (funcall code)))
+(defgenerator gen-character (&key (code (gen-integer :min 0 :max (1- char-code-limit)))
+ (alphanumericp nil))
+ (if alphanumericp
+ (code-char (funcall code))
+ (loop
+ for char = (code-char (funcall code))
+ until (alphanumericp char)
+ finally (return char))))
(defun gen-string (&key
(length (gen-integer :min 0 :max 80))
(defun gen-string (&key
(length (gen-integer :min 0 :max 80))