diff options
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) |