Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
dd7200e4
Commit
dd7200e4
authored
Feb 21, 2010
by
Robert P. Goldman
Browse files
Proposed fix to ENSURE-DIRECTORY-PATHNAME for launchpad bug 525538.
parent
7937c555
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
dd7200e4
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment