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