Raymond Toy pushed to branch issue-158-darwin-pathnames-utf8 at cmucl / cmucl
Commits: beee0969 by Raymond Toy at 2023-03-24T07:13:43-07:00 Fix typo: (or (or ...)) only needs one or
- - - - -
1 changed file:
- src/code/string.lisp
Changes:
===================================== src/code/string.lisp ===================================== @@ -1117,9 +1117,9 @@ (multiple-value-bind (code wide) (codepoint string i) (when wide (incf i)) (if (and darwinp - (or (or (<= #x2000 code #x2fff) - (<= #xf900 code #xfa6a) - (<= #x2f800 code #x2fa1d)))) + (or (<= #x2000 code #x2fff) + (<= #xf900 code #xfa6a) + (<= #x2f800 code #x2fa1d))) (out code) (let ((decomp (unicode-decomp code compatibility))) (if decomp (rec decomp 0 (length decomp)) (out code)))))))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/beee0969a1d9c376378e61e1...