diff options
Diffstat (limited to 'src/property/file.lisp')
-rw-r--r-- | src/property/file.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index f536c79..7d18e94 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -32,7 +32,9 @@ point in doing that here because WRITEFILE is synchronous." "Ensure there is a file at PATH whose content is CONTENT. CONTENT can be a list of lines or a single string." (declare (indent 1)) - (:apply (writefile path (if (listp content) (unlines content) content)))) + (:apply (writefile path (if (listp content) + (unlines content) + (format nil "~A~&" content))))) (defprop contains-lines :posix (path lines) "Ensure there is a file at PATH containing each of LINES once." |