diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-07 22:45:36 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-08 12:06:57 -0700 |
| commit | 6c09a30c1ae7d09ea93b937dce566068d0c4b6be (patch) | |
| tree | 7196dc380e1f241023a196707bf76f417911d3a4 /src/property/file.lisp | |
| parent | 7e6eafb3717ec7f2282a27c9b2068d172929c8f5 (diff) | |
| download | consfigurator-6c09a30c1ae7d09ea93b937dce566068d0c4b6be.tar.gz | |
FILE:DIRECTORY-EXISTS: ensure can accept pathnames
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/file.lisp')
| -rw-r--r-- | src/property/file.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 2644732..aaa3944 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -116,7 +116,7 @@ Uses CL-PPCRE:REGEX-REPLACE, which see for the syntax of REPLACE." (defprop directory-exists :posix (dir) "Ensure that a directory and its parents exists." - (:desc (strcat dir " exists")) + (:desc (strcat (unix-namestring dir) " exists")) (:apply (mrun "mkdir" "-p" dir) ;; assume it was already there |