Date: Saturday, September 18, 2010 @ 23:31:12 Author: rtoy Path: /project/cmucl/cvsroot/src/tools

Modified: build-unidata.lisp

Oops. Fix long standing bug where the trie for Unicode 1.0 names was given the wrong split value.

--------------------+ build-unidata.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)

Index: src/tools/build-unidata.lisp diff -u src/tools/build-unidata.lisp:1.7 src/tools/build-unidata.lisp:1.8 --- src/tools/build-unidata.lisp:1.7 Sat Sep 18 16:58:28 2010 +++ src/tools/build-unidata.lisp Sat Sep 18 23:31:12 2010 @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /project/cmucl/cvsroot/src/tools/build-unidata.lisp,v 1.7 2010-09-18 20:58:28 rtoy Exp $") +(ext:file-comment "$Header: /project/cmucl/cvsroot/src/tools/build-unidata.lisp,v 1.8 2010-09-19 03:31:12 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -973,7 +973,7 @@ (multiple-value-bind (hvec mvec lvec) (pack ucd range (lambda (x) (pack-name x t dict)) 0 32 #x54) (setf (unidata-name1 *unicode-data*) - (make-ntrie32 :split #x72 :hvec hvec :mvec mvec :lvec lvec)))) + (make-ntrie32 :split #x54 :hvec hvec :mvec mvec :lvec lvec))))

(format t "~&Building general category table~%") (multiple-value-bind (hvec mvec lvec)