diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-20 12:39:20 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-20 13:33:58 -0700 |
| commit | 45e92cda3bb0b3aceabf27c6b3647e16b4b6e0d4 (patch) | |
| tree | 4afc700f3b9cbd6b77f69facde88328238ab3505 /src/property/file.lisp | |
| parent | a963c192c7daa1f162dfa467ff2f5ba57e16f167 (diff) | |
| download | consfigurator-45e92cda3bb0b3aceabf27c6b3647e16b4b6e0d4.tar.gz | |
drop FILE- prefix for two file properties
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/file.lisp')
| -rw-r--r-- | src/property/file.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 2d91943..6fc017f 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -17,11 +17,11 @@ (in-package :consfigurator.property.file) -(defprop file-has-content :posix (path lines) +(defprop has-content :posix (path lines) "Ensure there is a file at PATH whose lines are the elements of LINES." (:apply (writefile path (unlines lines)))) -(defprop file-contains-lines :posix (path lines) +(defprop contains-lines :posix (path lines) "Ensure there is a file at PATH containing each of LINES." (:apply (let ((new-lines (copy-list lines)) (existing-lines (lines (readfile path)))) |