From 34a71bdd0bc698bb84793a9b9e87b2fe240ca8ba Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 27 Mar 2021 20:43:02 -0700 Subject: FILE:HAS-CONTENT: add description Signed-off-by: Sean Whitton --- src/property/file.lisp | 2 ++ 1 file changed, 2 insertions(+) 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)))))) -- cgit v1.2.3