Changeset 13289


Ignore:
Timestamp:
05/24/11 09:01:03 (10 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/ensure-directories-exist.lisp

    r11391 r13289  
    3737  (let ((pathname (pathname pathspec))
    3838  (created-p nil))
    39     (when (wild-pathname-p pathname)
     39;;; CLHS: Function ENSURE-DIRECTORIES-EXIST "An error of type
     40;;; file-error is signaled if the host, device, or directory part of
     41;;; pathspec is wild."
     42    (when (or (wild-pathname-p pathname :host)
     43              (wild-pathname-p pathname :device)
     44              (wild-pathname-p pathname :directory))
    4045      (error 'file-error
    41        :format-control "Bad place for a wild pathname."
     46       :format-control "Bad place for a wild HOST, DEVICE, or DIRECTORY component."
    4247       :pathname pathname))
    4348    (let ((dir (pathname-directory pathname)))
Note: See TracChangeset for help on using the changeset viewer.