From cae10dd1d8688fdbcd1e4c3a16d0130b8e8cdb41 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Wed, 6 Mar 2013 00:13:22 -0800 Subject: [PATCH] Implement Rule WB13c for regional indicators. --- src/code/string.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/code/string.lisp b/src/code/string.lisp index 5a1a81403..7c6e3c16f 100644 --- a/src/code/string.lisp +++ b/src/code/string.lisp @@ -1653,6 +1653,12 @@ ;; Rule WB13a, WB13b (lookup (+ j next-j) cat)) (otherwise j))) + ((:regional_indicator) + (case cat + ((:regional_indicator) + ;; Rule WB13c + (lookup (+ j next-j) cat)) + (otherwise j))) (otherwise j))))))))) (declare (notinline lookup left-context)) (cond ((< i 0) -- GitLab