[cmucl-cvs] CMUCL commit: RELEASE-20B-BRANCH src/tools (build-unidata.lisp)

[Raymond Toy]

    Date: Saturday, September 18, 2010 @ 23:31:40
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/tools
     Tag: RELEASE-20B-BRANCH

Modified: build-unidata.lisp

Merge fix for 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.4 src/tools/build-unidata.lisp:1.4.14.1
--- src/tools/build-unidata.lisp:1.4	Fri Sep 11 12:22:35 2009
+++ src/tools/build-unidata.lisp	Sat Sep 18 23:31:40 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.4 2009-09-11 16:22:35 rtoy Rel $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/tools/build-unidata.lisp,v 1.4.14.1 2010-09-19 03:31:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -980,7 +980,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)