GitLab

at 2024-05-14T06:52:07-07:00

Change unicode limit to 255

Set the limit to 255 so that all 8-bit characters have a fast path
that doesn't need to access the Unicode database.

Set unicode limit to 191

Update char-upcase and corresponding deftransform appropriately.

 ;; This MUST be greater than or equal to 127!

 (defconstant +unicode-lower-limit+

-  127

+  191

   "A character code strictly larger than this is handled using Unicode rules.")

   #+(and unicode (not unicode-bootstrap))

   (let ((m (char-code char)))

     (cond ((< 96 m 123) (code-char (- m 32)))

-          ((= m 181) char)

           ((> m +unicode-lower-limit+)

            (if (member (unicode-category m) '(92 32 75 109))

                char

   #+(and unicode (not unicode-bootstrap))

   '(let ((m (char-code x)))

     (cond ((< 96 m 123) (code-char (- m 32)))

-          ((= m 181) x)

           ((> m lisp::+unicode-lower-limit+)

            (if (member (unicode-category m) '(92 32 75 109))

                x

Raymond Toy pushed to branch issue-316-support-roundtrip-char-casing at cmucl / cmucl

Commits:

2 changed files:

Changes: