From 8513c6f273613b0ceb2b48c07da6a0b1803c32a5 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 6 Feb 2004 23:31:07 +0000 Subject: [PATCH] r8632: updates --- strings.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/strings.lisp b/strings.lisp index 732e8f0..4ef18f0 100644 --- a/strings.lisp +++ b/strings.lisp @@ -476,9 +476,9 @@ for characters in a string" (eval-when (:compile-toplevel :load-toplevel :execute) - (defvar +unambigous-charset+ + (defvar +unambiguous-charset+ "abcdefghjkmnpqrstuvwxyz123456789ABCDEFGHJKLMNPQSRTUVWXYZ") - (defconstant +unambigous-length+ (length +unambigous-charset+))) + (defconstant +unambiguous-length+ (length +unambiguous-charset+))) (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)))) - (:unambigous - (schar +unambigous-charset+ (random +unambigous-length+))) + (:unambiguous + (schar +unambiguous-charset+ (random +unambiguous-length+))) (:upper-lower-alpha (let ((n (random 52))) (if (>= n 26) -- 2.34.1