mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 07:12:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

ENSURE-DIRECTORIES-EXIST did not convert logical pathnames into physical pathnames before creating them

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-23 18:07:45 +01:00
parent a86bbd3605
commit e2aa42d050
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/CHANGELOG
View file

@ -150,6 +150,10 @@ ECL 11.1.1:
ECL 11.1.2
==========
* Bugs fixed:
- ENSURE-DIRECTORIES-EXIST did not work properly with logical pathnames.
* Visible changes:
- When printing error messages, the condition type is shown (M. Mondor)

2
src/lsp/mislib.lsp
View file

@ -261,6 +261,8 @@ where CREATED is true only if we succeeded on creating all directories."
(let* ((created nil)
(full-pathname (merge-pathnames pathname))
d)
(when (typep full-pathname 'logical-pathname)
(setf full-pathname (translate-logical-pathname full-pathname)))
(when (or (wild-pathname-p full-pathname :directory)
(wild-pathname-p full-pathname :host)
(wild-pathname-p full-pathname :device))