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