mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

ENSURE-DIRECTORIES-EXIST must merge the input pathname before building directories

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-04 10:43:56 +02:00
parent b32826a3f0
commit 029e5ba037
2 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -156,6 +156,8 @@ ECL 8.9.0:
- Negative and nonnegative zeros are not EQL.
- ENSURE-DIRECTORIES first has to merge the path with *DEFAULT-PATH...*
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

1
src/lsp/mislib.lsp
View file

@ -260,6 +260,7 @@ Sunday is the *last* day of the week!!"
(wild-pathname-p a-pathname :host)
(wild-pathname-p a-pathname :device))
(error 'file-error :pathname a-pathname))
(setf a-pathname (merge-pathnames a-pathname))
(dolist (item (pathname-directory a-pathname))
(setf d (nconc d (list item)))
(let ((p (make-pathname :name nil :type nil :directory d