From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 6 Feb 2004 23:31:07 +0000 (+0000)
Subject: r8632: updates
X-Git-Tag: v1.96~85
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=8513c6f273613b0ceb2b48c07da6a0b1803c32a5;ds=sidebyside

r8632: updates
---

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)