Commit dd7200e4 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Proposed fix to ENSURE-DIRECTORY-PATHNAME for launchpad bug 525538.

parent 7937c555
......@@ -542,7 +542,15 @@ actually-existing directory."
"Converts the non-wild pathname designator PATHSPEC to directory form."
(cond
((stringp pathspec)
(pathname (concatenate 'string pathspec "/")))
(pathname
(let ((lastchar (aref pathspec (1- (length pathspec)))))
(cond ((or (eql lastchar #\;) (eql lastchar #\/)) pathspec)
((find #\; pathspec)
(concatenate 'string pathspec ";"))
(t
;; guess it's a string that's not a logical
;; pathname string
(concatenate 'string pathspec "/"))))))
((not (pathnamep pathspec))
(error "Invalid pathname designator ~S" pathspec))
((wild-pathname-p pathspec)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment