diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-29 16:07:46 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-30 10:05:00 -0700 |
| commit | 5af8cff71135a3b0708aefa1cacf63b91eea9ca6 (patch) | |
| tree | ed72a6c3bbb35e8b688069cc4b390cbf565df750 | |
| parent | 83315fc895efe7a5253974a0ad38d360c208c511 (diff) | |
| download | consfigurator-5af8cff71135a3b0708aefa1cacf63b91eea9ca6.tar.gz | |
CONTAINER:WHEN-CONTAINED: return :NO-CHANGE when factor uncontained
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property/container.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/property/container.lisp b/src/property/container.lisp index 2c06dbd..a99bbb6 100644 --- a/src/property/container.lisp +++ b/src/property/container.lisp @@ -52,10 +52,11 @@ container type." (define-function-property-combinator when-contained* (contained propapp) (macrolet ((check-contained (form) `(let ((host-contained (get-hostattrs 'iscontained))) - (when (or (not host-contained) + (if (or (not host-contained) (loop for factor in contained always (member factor host-contained))) - ,form)))) + ,form + :no-change)))) (:retprop :type (propapptype propapp) :hostattrs (lambda (&rest ignore) (declare (ignore ignore)) |