Raymond Toy pushed to branch master at cmucl / cmucl Commits: aabe67a0 by Raymond Toy at 2024-07-25T13:16:53+00:00 Fix #340: Use +ascii-limit+ in srctran.lisp - - - - - 8a2dbcb3 by Raymond Toy at 2024-07-25T13:16:57+00:00 Merge branch 'issue-340-srctran-use-ascii-limit' into 'master' Fix #340: Use +ascii-limit+ in srctran.lisp Closes #340 and #337 See merge request cmucl/cmucl!237 - - - - - 1 changed file: - src/compiler/srctran.lisp Changes: ===================================== src/compiler/srctran.lisp ===================================== @@ -3313,8 +3313,8 @@ #+(and unicode (not unicode-bootstrap)) '(let* ((ac (char-code a)) (bc (char-code b))) - (if (and (<= ac #x7f) - (<= bc #x7f)) + (if (and (<= ac +ascii-limit+) + (<= bc +ascii-limit+)) ;; ASCII (let ((sum (logxor ac bc))) (or (zerop sum) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/5ad8c86eb3f7ad465f60332... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/5ad8c86eb3f7ad465f60332... You're receiving this email because of your account on gitlab.common-lisp.net.