From d551549936347ec06656f3e9063a32cac1ad327e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 28 May 2021 11:32:27 -0700 Subject: :DESC, :HOSTATTRS: also declare supplied-p parameters IGNORABLE Signed-off-by: Sean Whitton --- src/property.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/property.lisp') 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) -- cgit v1.2.3