Merge pull request #126 from fare-patches/master

Better verbosity control for in-optimizer
guicho271828 · Apr 3, 2021 · 6963780 · 6963780
2 parents 0d5ed6c + c7e76a5
commit 6963780
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/level2/impl.lisp b/level2/impl.lisp
@@ -285,7 +285,7 @@ The default value of &optional arguments are '_, instead of nil."
 (defmacro in-optimizer (name &optional verbose)
   `(eval-when (:compile-toplevel :load-toplevel :execute)
      ,@(when verbose
-         `((format *trace-output* "~&Switching to the ~A optimizer~%" ',name)))
+         `((when ,verbose (format *trace-output* "~&Switching to the ~A optimizer~%" ',name))))
      (setf *optimizer* ',name)))
 
 (defmacro defoptimizer (name args &body body)

diff --git a/trivia.asd b/trivia.asd
@@ -6,5 +6,5 @@
   :mailto "guicho2.71828@gmail.com"
   :license "LLGPL"
   :depends-on ("trivia.balland2006")
-  :perform (load-op :after (o c) (eval (read-from-string "(trivia:in-optimizer :balland2006 t)")))
+  :perform (load-op :after (o c) (eval (read-from-string "(trivia:in-optimizer :balland2006 asdf:*asdf-verbose*)")))
   :in-order-to ((test-op (test-op "trivia.test"))))