Changeset 13289

Timestamp:

05/24/11 09:01:03 (12 years ago)

Author:

Mark Evenson

Message:

Fix ENSURE-DIRECTORIES-EXIST by loosening wild pathname restrictions.

CLHS: Function ENSURE-DIRECTORIES-EXIST "An error of type file-error
is signaled if the host, device, or directory part of pathspec is
wild."

File:

• trunk/abcl/src/org/armedbear/lisp/ensure-directories-exist.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/ensure-directories-exist.lisp

@@ -37 +37 @@
   (let ((pathname (pathname pathspec))
   (created-p nil))
-    (when (wild-pathname-p pathname)
+;;; CLHS: Function ENSURE-DIRECTORIES-EXIST "An error of type
+;;; file-error is signaled if the host, device, or directory part of
+;;; pathspec is wild."
+    (when (or (wild-pathname-p pathname :host)
+              (wild-pathname-p pathname :device)
+              (wild-pathname-p pathname :directory))
       (error 'file-error
-       :format-control "Bad place for a wild pathname."
+       :format-control "Bad place for a wild HOST, DEVICE, or DIRECTORY component."
        :pathname pathname))
     (let ((dir (pathname-directory pathname)))