diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-30 17:10:26 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-06 21:18:24 -0700 |
commit | ff636c86378e1b73c235f7fd783e7526760c3721 (patch) | |
tree | fdd75a75f03511456428140a2f0756b69b5776dd /src/combinator.lisp | |
parent | 957c59641dd76c857f175acc4c33e84bd8dbbde4 (diff) | |
download | consfigurator-ff636c86378e1b73c235f7fd783e7526760c3721.tar.gz |
skip announcing properties starting with '%' unless debug level >=3
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
-rw-r--r-- | src/combinator.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index bcf532a..2f2d6f6 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -130,16 +130,16 @@ apply the elements of REQUIREMENTS in reverse order." (propapp-apply propapp))))) (dolist (propapp propapps return-value) (let ((announce - (or (> *consfigurator-debug-level* 1) - (and - (not (get (get (car propapp) 'combinator) - 'inline-combinator)) + (and (or (> *consfigurator-debug-level* 2) + (not (get (get (car propapp) 'combinator) + 'inline-combinator))) ;; We don't announce properties whose names begin with ;; '%' and which have no description; these are typically ;; DEFPROPs which exist only for use within a ;; DEFPROPLIST/DEFPROPSPEC defining an exported property. - (not (and (char= #\% (char (symbol-name (car propapp)) 0)) - (not (get (car propapp) 'desc))))))) + (not (and (< *consfigurator-debug-level* 3) + (char= #\% (char (symbol-name (car propapp)) 0)) + (not (get (car propapp) 'desc)))))) result) (unwind-protect-in-parent ;; TODO Nested combinators can mean that we establish this |