Skip to content
Snippets Groups Projects
Commit 61c5e895 authored by Robert Goldman's avatar Robert Goldman
Browse files

ENSURE-DIRECTORY-PATHNAME in SUBDIRECTORIES.

In some cases a subdirectory pathname returned from this function was
not a DIRECTORY-PATHNAME (i.e., leaf directory name was in the
PATHNAME-NAME, not PATHNAME-DIRECTORY).  I used
ENSURE-DIRECTORY-PATHNAME to avoid this happening.
parent a0dc95e6
No related branches found
No related tags found
No related merge requests found
......@@ -250,7 +250,7 @@ The behavior in presence of symlinks is not portable. Use IOlib to handle such s
#+(or cmucl sbcl scl) (directory-pathname-p x)
#+genera (getf (cdr x) :directory)
#+lispworks (lw:file-directory-p x)
:when d :collect #+(or abcl allegro xcl) d
:when d :collect #+(or abcl allegro xcl) (ensure-directory-pathname d)
#+genera (ensure-directory-pathname (first x))
#+(or cmucl lispworks sbcl scl) x)))
(filter-logical-directory-results
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment