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
1 changed file:
Changes:
| ... | ... | @@ -1117,9 +1117,9 @@ |
| 1117 | 1117 | (multiple-value-bind (code wide) (codepoint string i)
|
| 1118 | 1118 | (when wide (incf i))
|
| 1119 | 1119 | (if (and darwinp
|
| 1120 | - (or (or (<= #x2000 code #x2fff)
|
|
| 1121 | - (<= #xf900 code #xfa6a)
|
|
| 1122 | - (<= #x2f800 code #x2fa1d))))
|
|
| 1120 | + (or (<= #x2000 code #x2fff)
|
|
| 1121 | + (<= #xf900 code #xfa6a)
|
|
| 1122 | + (<= #x2f800 code #x2fa1d)))
|
|
| 1123 | 1123 | (out code)
|
| 1124 | 1124 | (let ((decomp (unicode-decomp code compatibility)))
|
| 1125 | 1125 | (if decomp (rec decomp 0 (length decomp)) (out code)))))))
|