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:

 				 :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))))