From 6c09a30c1ae7d09ea93b937dce566068d0c4b6be Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 7 Apr 2021 22:45:36 -0700 Subject: FILE:DIRECTORY-EXISTS: ensure can accept pathnames Signed-off-by: Sean Whitton --- src/property/file.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/property/file.lisp') 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 -- cgit v1.2.3