diff --git a/src/code/string.lisp b/src/code/string.lisp index 5a1a814035f3752cba56e30234b936c1dd1f549b..7c6e3c16fa194b9cbb54ddb01961bbf8a2259cd1 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)