From e2aa42d050ca1f475d9d8027424684568b02b041 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 23 Jan 2011 18:07:45 +0100 Subject: [PATCH] ENSURE-DIRECTORIES-EXIST did not convert logical pathnames into physical pathnames before creating them --- src/CHANGELOG | 4 ++++ src/lsp/mislib.lsp | 2 ++ 2 files changed, 6 insertions(+) diff --git a/src/CHANGELOG b/src/CHANGELOG index d3a765481..bbf7bdc29 100755 --- a/src/CHANGELOG +++ b/src/CHANGELOG @@ -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) diff --git a/src/lsp/mislib.lsp b/src/lsp/mislib.lsp index 57c4b70c1..1243e1299 100644 --- a/src/lsp/mislib.lsp +++ b/src/lsp/mislib.lsp @@ -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))