[Git][cmucl/cmucl][issue-158-darwin-pathnames] Fix typo normalizing directories.

[Raymond Toy (@rtoy)]

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/361d18f9ed7f243bbc6ab8805a9aa6d859154ce9

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/361d18f9ed7f243bbc6ab8805a9aa6d859154ce9
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/1414aaf9/attachment-0001.html>