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...