diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-28 11:32:27 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-28 11:32:27 -0700 |
commit | d551549936347ec06656f3e9063a32cac1ad327e (patch) | |
tree | a3bc0207e5918baa0bbeb1bfae6b0c20b27eec44 /src/property.lisp | |
parent | 9d0b9be89a7a8025ce9b626183fc93a1d8fa2366 (diff) | |
download | consfigurator-d551549936347ec06656f3e9063a32cac1ad327e.tar.gz |
:DESC, :HOSTATTRS: also declare supplied-p parameters IGNORABLE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
-rw-r--r-- | src/property.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/property.lisp b/src/property.lisp index 625e058..8ac2c76 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -333,7 +333,8 @@ subroutine does not push any new hostattrs." `((declare (ignorable ,@(ordinary-ll-variable-names - (ordinary-ll-without-&aux lambda)))))) + (ordinary-ll-without-&aux lambda) + :include-supplied-p t))))) ,@slot))))) (define-property-defining-macro defpropspec (type lambda slots forms) @@ -393,7 +394,8 @@ You can usually use DEFPROPLIST instead of DEFPROPSPEC, which see." ,@(and (member (caar forms) '(:desc :hostattrs)) `((declare (ignorable - ,@(ordinary-ll-variable-names lambda))))) + ,@(ordinary-ll-variable-names + lambda :include-supplied-p t))))) ,@(cdr (pop forms)))))) (setf (getf slots :hostattrs) `(lambda (plist) |