GitLab

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.

 ;;; 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.

   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)

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

Commits:

1 changed file:

Changes: