From 332ad9e289e177f53a2502eb61cb71eb3f85eecf Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sun, 11 Oct 2015 12:00:46 +0100 Subject: [PATCH] hand-edit ConfusablesEdited.txt some more this removes the mistakes coming from literal #\< characters in confusablesSummary.txt. (fixes lp#1504739) --- NEWS | 2 ++ tests/unicode-misc.pure.lisp | 1 + tools-for-build/ConfusablesEdited.txt | 11 ++++++----- 3 files changed, 9 insertions(+), 5 deletions(-) diff --git a/NEWS b/NEWS index 58575d9cd..084b5a54d 100644 --- a/NEWS +++ b/NEWS @@ -4,6 +4,8 @@ changes relative to sbcl-1.2.16: * bug fix: calling COMPILE when SB-EXT:*EVALUATOR-MODE* was :INTERPRET would fail to perform "normal semantic processing such as macro expansion" as stipulated by X3J13 issue LOAD-TIME-EVAL. + * bug fix: SB-UNICODE:CONFUSABLE-P no longer treats "<" and the empty + string as confusable. (lp#1504739) changes in sbcl-1.2.16 relative to sbcl-1.2.15: * enhancement: by default, timers with a repeat interval do not "catch up" diff --git a/tests/unicode-misc.pure.lisp b/tests/unicode-misc.pure.lisp index 6a448b065..80f8abdc0 100644 --- a/tests/unicode-misc.pure.lisp +++ b/tests/unicode-misc.pure.lisp @@ -57,6 +57,7 @@ (assert (sb-unicode:confusable-p "l0" "1O")) (assert (sb-unicode:confusable-p "\"" "''")) (assert (not (sb-unicode:confusable-p "a" "A"))) + (assert (not (sb-unicode:confusable-p "" "<"))) #+sb-unicode (assert (sb-unicode:confusable-p (coerce '(#\a #\COMBINING_RING_ABOVE) 'string) diff --git a/tools-for-build/ConfusablesEdited.txt b/tools-for-build/ConfusablesEdited.txt index 54d5046b3..23c4f8140 100644 --- a/tools-for-build/ConfusablesEdited.txt +++ b/tools-for-build/ConfusablesEdited.txt @@ -1,7 +1,8 @@ -# Generated by taking confusablesSummary.txt, replacing the left arraws with < +# Generated by taking confusablesSummary.txt, replacing the left arrows with < # and running through # perl -Mutf8 -an -e 'print "\n" if /^$/; foreach (@F) { print "< " if /