diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-07 10:03:25 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-07 10:03:25 -0700 |
| commit | c687d10681cb4455e27dceec68aa5379305ec76c (patch) | |
| tree | 01927e073ed4ec5bd5bb71d90fd2708ed2892fc6 /src/combinator.lisp | |
| parent | f2f487abcb06afb9226ef7337754dbe2323a6c09 (diff) | |
| download | consfigurator-c687d10681cb4455e27dceec68aa5379305ec76c.tar.gz | |
factor out LAMBDA-IGNORING-ARGS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
| -rw-r--r-- | src/combinator.lisp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index 7ba8ad6..68ae61e 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -239,15 +239,12 @@ FLAGFILE exists, PROPAPPS are assumed to all be already applied." (:retprop :type (propapptype propapp) :desc (get (car propapp) 'desc) :hostattrs (get (car propapp) 'hostattrs) - :check (lambda (&rest ignore) - (declare (ignore ignore)) + :check (lambda-ignoring-args (remote-exists-p flagfile)) - :apply (lambda (&rest ignore) - (declare (ignore ignore)) + :apply (lambda-ignoring-args (prog1 (propappapply propapp) (mrun "touch" flagfile))) - :unapply (lambda (&rest ignore) - (declare (ignore ignore)) + :unapply (lambda-ignoring-args (prog1 (propappunapply propapp) (mrun "rm" flagfile))) :args (cdr propapp))) |