diff options
| -rw-r--r-- | src/combinator.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index f782367..62d8f47 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -171,7 +171,8 @@ ON-CHANGE in order." (mapcar #'propapptype propapps)) :desc (get (car propapp) 'desc) :hostattrs (lambda (&rest args) - (apply #'propattrs (car propapp) args)) + (apply #'propattrs (car propapp) args) + (mapc #'propappattrs propapps)) :apply (lambda (&rest args) (if (eql :no-change (propappapply (cons (car propapp) args))) |