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

Commits: 361d18f9 by Raymond Toy at 2022-12-21T11:01:14-08:00 Fix typo normalizing directories.

We had written `(cdr directory)` but we really need just `directory` so that we keep the `:absolute` or `:relative` part of the directory.

- - - - -

1 changed file:

- src/code/pathname.lisp

Changes:

===================================== src/code/pathname.lisp ===================================== @@ -310,10 +310,11 @@ :darwinp t) piece)) (t - ;; What should we do about lisp::pattern objects? + ;; What should we do about lisp::pattern objects + ;; that occur in the name component? piece)))) (%make-pathname host device - (mapcar #'normalize-name (cdr directory)) + (mapcar #'normalize-name directory) (normalize-name name) (normalize-name type) version))))

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/361d18f9ed7f243bbc6ab880...