[Git][cmucl/cmucl][issue-158-darwin-pathnames] Clean up implementation

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-158-darwin-pathnames at cmucl / cmucl


Commits:
08496138 by Raymond Toy at 2022-12-21T11:27:36-08:00
Clean up implementation

Remove the function `normalize-name` since it's in an flet now.

Make `*enable-darwin-path-normalization*` only defined on darwin,
which is the only OS where's it's needed.

- - - - -


1 changed file:

- src/code/pathname.lisp


Changes:

=====================================
src/code/pathname.lisp
=====================================
@@ -252,6 +252,7 @@
 ;;; This constructor is used to make an instance of the correct type
 ;;; from parsed arguments.
 
+#+darwin
 (defvar *enable-darwin-path-normalization* nil
   "When non-NIL, pathnames are on Darwin are normalized when created.
   Otherwise, the pathnames are unchanged.
@@ -259,22 +260,6 @@
   This must be NIL during bootstrapping because Unicode is not yet
   available.")
 
-(defun normalize-name (piece)
-  ;; Normalize Darwin pathnames by converting Hangul
-  ;; syllables to conjoining jamo, and converting the
-  ;; string to NFD form, but skipping over a range of
-  ;; characters.
-  (typecase piece
-    (string
-     (if *enable-darwin-path-normalization*
-	 (decompose (unicode::decompose-hangul piece)
-		    :compatibility nil
-		    :darwinp t)
-	 piece))
-    (t
-     ;; What should we do about lisp::pattern objects?
-     piece)))
-  
 (defun %make-pathname-object (host device directory name type version)
   (if (typep host 'logical-host)
       (flet ((upcasify (thing)



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/08496138d12cbf3f2b839d44003f2042401f4600

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/08496138d12cbf3f2b839d44003f2042401f4600
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/20221221/3d43bbb7/attachment-0001.html>