Reduce the (char-equal base-char base-char) transform for +sb-unicode.

Which has 7-bit base-chars.

Author: stassats

src/compiler/srctran.lisp

@@ -3405,7 +3405,9 @@
          (when (eql sum #x20)
            (let ((sum (+ ac bc)))
              (or (and (> sum 161) (< sum 213))
+                 #-sb-unicode
                  (and (> sum 415) (< sum 461))
+                 #-sb-unicode
                  (and (> sum 463) (< sum 477))))))))
 
 (defun transform-constant-char-equal (a b &optional (op 'char=))