From e6794d9a1a6ab9a1368a7a53254d7cdba129c667 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 25 May 2021 13:30:09 -0700 Subject: DEFPROP{SPEC,LIST}: include &AUX variables in :HOSTATTRS and :DESC Signed-off-by: Sean Whitton --- src/property.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/property.lisp b/src/property.lisp index e34b579..625e058 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -389,13 +389,11 @@ You can usually use DEFPROPLIST instead of DEFPROPSPEC, which see." (loop while (and (listp (car forms)) (keywordp (caar forms))) do (setf (getf slots (caar forms)) `(lambda (plist) - (destructuring-bind ,(ordinary-ll-without-&aux lambda) - (getf plist :orig-args) + (destructuring-bind ,lambda (getf plist :orig-args) ,@(and (member (caar forms) '(:desc :hostattrs)) `((declare (ignorable - ,@(ordinary-ll-variable-names - (ordinary-ll-without-&aux lambda)))))) + ,@(ordinary-ll-variable-names lambda))))) ,@(cdr (pop forms)))))) (setf (getf slots :hostattrs) `(lambda (plist) -- cgit v1.2.3