diff options
| -rw-r--r-- | src/property/file.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 45cc890..338f0d1 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -33,6 +33,8 @@ 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)) + (:desc (declare (ignore content)) + #?"${path} has defined content") (:apply (writefile path (etypecase content (cons (unlines content)) (string (format nil "~A~&" content)))))) |