diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-08 13:29:39 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-08 13:29:39 -0700 |
| commit | 5827de0b4a7057d5ce816c37391134b2428159f2 (patch) | |
| tree | 7462635e352112722fe7c00d2da3ce35b1fbfef2 /src/combinator.lisp | |
| parent | 16911629aa955fc69405de5c3fc2b818897f3e03 (diff) | |
| download | consfigurator-5827de0b4a7057d5ce816c37391134b2428159f2.tar.gz | |
APPLY-AND-PRINT: fix argument order
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
| -rw-r--r-- | src/combinator.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index d2d02ff..71ead21 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -117,7 +117,7 @@ apply the elements of REQUIREMENTS in reverse order." (propapps (remove-if #'null (if unapply (reverse propapps) propapps)))) (dolist (propapp propapps ret) - (let ((announce (or (> 1 *consfigurator-debug-level*) + (let ((announce (or (> *consfigurator-debug-level* 1) (not (get (get (car propapp) 'combinator) 'inline-combinator))))) (multiple-value-bind (result output) @@ -130,7 +130,7 @@ apply the elements of REQUIREMENTS in reverse order." (announce-propapp-apply propapp) (propapp-apply propapp)) (skip-property () :failed-change)) - (when (and output (or (> 1 *consfigurator-debug-level*) + (when (and output (or (> *consfigurator-debug-level* 1) (not (eql result :no-change)))) (fresh-line) (princ output)) |