diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-08 13:17:02 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-08 13:17:02 -0700 |
commit | eb8298b38d24d9dd73ffc073d064b879d2159dfc (patch) | |
tree | 9cae0a03ceba67d69d9e68a16fb7f9900d18003c /src/combinator.lisp | |
parent | 0fc7adbc77760f24cd8a32d4b01587959e481c46 (diff) | |
download | consfigurator-eb8298b38d24d9dd73ffc073d064b879d2159dfc.tar.gz |
APPLY-AND-RUN: disable output hiding when at debug level above 1
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
-rw-r--r-- | src/combinator.lisp | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index b5fa8da..d2d02ff 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -117,8 +117,9 @@ apply the elements of REQUIREMENTS in reverse order." (propapps (remove-if #'null (if unapply (reverse propapps) propapps)))) (dolist (propapp propapps ret) - (let ((announce (not (get (get (car propapp) 'combinator) - 'inline-combinator)))) + (let ((announce (or (> 1 *consfigurator-debug-level*) + (not (get (get (car propapp) 'combinator) + 'inline-combinator))))) (multiple-value-bind (result output) ;; TODO Nested combinators can mean that we establish this ;; restart more than once, and they all appear in the debugger @@ -129,7 +130,8 @@ apply the elements of REQUIREMENTS in reverse order." (announce-propapp-apply propapp) (propapp-apply propapp)) (skip-property () :failed-change)) - (when (and output (not (eql result :no-change))) + (when (and output (or (> 1 *consfigurator-debug-level*) + (not (eql result :no-change)))) (fresh-line) (princ output)) (when announce |