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/property/container.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/property/container.lisp')
-rw-r--r-- | src/property/container.lisp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/property/container.lisp b/src/property/container.lisp index a99bbb6..454cd75 100644 --- a/src/property/container.lisp +++ b/src/property/container.lisp @@ -58,13 +58,10 @@ container type." ,form :no-change)))) (:retprop :type (propapptype propapp) - :hostattrs (lambda (&rest ignore) - (declare (ignore ignore)) + :hostattrs (lambda-ignoring-args (propappattrs propapp)) - :apply (lambda (&rest ignore) - (declare (ignore ignore)) + :apply (lambda-ignoring-args (check-contained (propappapply propapp))) - :unapply (lambda (&rest ignore) - (declare (ignore ignore)) + :unapply (lambda-ignoring-args (check-contained (propappunapply propapp))) :args (cdr propapp)))) |