Raymond Toy pushed to branch issue-316-support-roundtrip-char-casing at cmucl / cmucl Commits: 7db93de9 by Raymond Toy 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. - - - - - 5fca5677 by Raymond Toy at 2024-05-15T17:44:06-07:00 Set unicode limit to 191 Update char-upcase and corresponding deftransform appropriately. - - - - - 2 changed files: - src/code/char.lisp - src/compiler/srctran.lisp Changes: ===================================== src/code/char.lisp ===================================== @@ -62,7 +62,7 @@ ;; 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.") @@ -471,7 +471,6 @@ #+(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 ===================================== src/compiler/srctran.lisp ===================================== @@ -3345,7 +3345,6 @@ #+(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 View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/6633e24c7b2beeb21e743ba... -- This project does not include diff previews in email notifications. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/6633e24c7b2beeb21e743ba... You're receiving this email because of your account on gitlab.common-lisp.net.