X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tools-for-build%2Fucd.lisp;h=b1cae492216d061b327bb402bbbae9dfbeaf1ab0;hb=9b2b4bc76fc9026598e0cd1a9787a69392166f57;hp=7851c367ca5febaecaf7768b9ccc2395e70ba7b7;hpb=3eae72c237cbf119bfc4e8e6e9dd213d45eb6eed;p=sbcl.git

diff --git a/tools-for-build/ucd.lisp b/tools-for-build/ucd.lisp
index 7851c36..b1cae49 100644
--- a/tools-for-build/ucd.lisp
+++ b/tools-for-build/ucd.lisp
@@ -456,17 +456,17 @@
   (values))
 
 ;;; The stuff below is dependent on misc.lisp-expr being
-;;; (:LENGTH 206 :UPPERCASE (0 2) :LOWERCASE (1 3) :TITLECASE (4)).
+;;; (:LENGTH 215 :UPPERCASE (0 2) :LOWERCASE (1 3) :TITLECASE (4)).
 ;;;
 ;;; There are two entries for UPPERCASE and LOWERCASE because some
 ;;; characters have case (by Unicode standards) but are not
-;;; transformable character-by-character in a locale-independet way
+;;; transformable character-by-character in a locale-independent way
 ;;; (as CL requires for its standard operators).
 ;;;
 ;;; for more details on these debugging functions, see the description
 ;;; of the character database format in src/code/target-char.lisp
 
-(defparameter *length* 206)
+(defparameter *length* 215)
 
 (defun cp-index (cp)
   (let* ((cp-high (cp-high cp))