[Git][cmucl/cmucl][issue-158-darwin-pathnames-utf8] Fix typo: (or (or ...)) only needs one or

[Raymond Toy (@rtoy)]

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/beee0969a1d9c376378e61e19d576835d5df58f5

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/beee0969a1d9c376378e61e19d576835d5df58f5
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20230324/1d75d6e0/attachment.html>