projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8632: updates
[kmrcl.git]
/
strings.lisp
diff --git
a/strings.lisp
b/strings.lisp
index 732e8f075b9ac501e94443ae0b0324c778b23781..4ef18f0134e586755ab1cb9177e82ff53ca11b10 100644
(file)
--- a/
strings.lisp
+++ b/
strings.lisp
@@
-476,9
+476,9
@@
for characters in a string"
(eval-when (:compile-toplevel :load-toplevel :execute)
(eval-when (:compile-toplevel :load-toplevel :execute)
- (defvar +unambigous-charset+
+ (defvar +unambig
u
ous-charset+
"abcdefghjkmnpqrstuvwxyz123456789ABCDEFGHJKLMNPQSRTUVWXYZ")
"abcdefghjkmnpqrstuvwxyz123456789ABCDEFGHJKLMNPQSRTUVWXYZ")
- (defconstant +unambig
ous-length+ (length +unambig
ous-charset+)))
+ (defconstant +unambig
uous-length+ (length +unambigu
ous-charset+)))
(defun random-char (&optional (set :lower-alpha))
(ecase set
(defun random-char (&optional (set :lower-alpha))
(ecase set
@@
-491,8
+491,8
@@
for characters in a string"
(code-char (+ +char-code-lower-a+ n)))))
(:upper-alpha
(code-char (+ +char-code-upper-a+ (random 26))))
(code-char (+ +char-code-lower-a+ n)))))
(:upper-alpha
(code-char (+ +char-code-upper-a+ (random 26))))
- (:unambigous
- (schar +unambig
ous-charset+ (random +unambig
ous-length+)))
+ (:unambig
u
ous
+ (schar +unambig
uous-charset+ (random +unambigu
ous-length+)))
(:upper-lower-alpha
(let ((n (random 52)))
(if (>= n 26)
(:upper-lower-alpha
(let ((n (random 52)))
(if (>= n 26)