From 48790b1aff60e9a796c833e3cd1214893e7e87ae Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 5 Apr 2021 12:33:02 -0700 Subject: ON-CHANGE*: call all :HOSTATTRS subroutines Signed-off-by: Sean Whitton --- src/combinator.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/combinator.lisp') 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))) -- cgit v1.2.3