diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-05 12:33:02 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-05 12:33:02 -0700 |
| commit | 48790b1aff60e9a796c833e3cd1214893e7e87ae (patch) | |
| tree | f0048e1b75e8ff1007bf46200fae88836f7c6164 /src/combinator.lisp | |
| parent | b44d416cd4ff27132f907d5822c286cc65488537 (diff) | |
| download | consfigurator-48790b1aff60e9a796c833e3cd1214893e7e87ae.tar.gz | |
ON-CHANGE*: call all :HOSTATTRS subroutines
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
| -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))) |