diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-25 13:30:09 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-25 13:30:09 -0700 |
| commit | e6794d9a1a6ab9a1368a7a53254d7cdba129c667 (patch) | |
| tree | 672aff442be6c98cac3198e72d7a7281b3906307 /src/property.lisp | |
| parent | 35eb5499eddc52bfb441a630647edd5ebb59439d (diff) | |
| download | consfigurator-e6794d9a1a6ab9a1368a7a53254d7cdba129c667.tar.gz | |
DEFPROP{SPEC,LIST}: include &AUX variables in :HOSTATTRS and :DESC
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 6 |
1 files 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) |