From: Christophe Rhodes Date: Sun, 14 Apr 2013 19:02:08 +0000 (+0100) Subject: fix test for Blocked condition in canonical normalization X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=93f6ccd997abd7f4fcefeec1e4383e0249f0df01;p=sbcl.git fix test for Blocked condition in canonical normalization Would most likely otherwise fail in Jamo with combining characters in between. --- diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp index 6791452..ef51c23 100644 --- a/src/code/target-char.lisp +++ b/src/code/target-char.lisp @@ -773,7 +773,9 @@ character exists." (tagbody again (when (and (> (- i previous-starter-index) 2) - (= (ucd-ccc (lref result i)) (ucd-ccc (lref result (1- i))))) + ;; test for Blocked (Unicode 3.11 para. D115) + (>= (ucd-ccc (lref result (1- i))) + (ucd-ccc (lref result i)))) (when (= (ucd-ccc (lref result i)) 0) (setf previous-starter-index i)) (incf i)