From c687d10681cb4455e27dceec68aa5379305ec76c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 7 Jun 2021 10:03:25 -0700 Subject: factor out LAMBDA-IGNORING-ARGS Signed-off-by: Sean Whitton --- src/combinator.lisp | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src/combinator.lisp') 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))) -- cgit v1.2.3