diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 20:43:02 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 20:45:37 -0700 |
| commit | 34a71bdd0bc698bb84793a9b9e87b2fe240ca8ba (patch) | |
| tree | 23681fa569be3b11bcb15952b7bd90f0efafcfee | |
| parent | aafc09450fc8cefa908e5774f9b2fb4b36001af2 (diff) | |
| download | consfigurator-34a71bdd0bc698bb84793a9b9e87b2fe240ca8ba.tar.gz | |
FILE:HAS-CONTENT: add description
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -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)))))) |