                     & {:keys [max-total-depth truncate-children]
                        :or {max-total-depth max-total-depth
                             truncate-children true}}]
-  (log/debug (str "generate-all: spec:" (strip-refs spec)))
+  (log/trace (str "generate-all: spec:" (strip-refs spec)))
   
   (let [language-model (if (future? language-model) @language-model language-model)
         total-depth (if total-depth total-depth 0)]

                           (unifyc spec rule)]
                       (if (fail? result)
                         (do
                           (log/debug (str " rule: " (:rule rule) " failed (2)"))
                           :fail)
                         (do
                           (log/debug (str " rule: " (:rule rule) " did not fail."))
                           result)))
                     (do
                       (log/debug (str " rule: " (:rule rule) " failed (1)"))
                       :fail)))
                 rules)))


                      " ]"))
      (lazy-mapcat
       (fn [bolt]
         (log/trace (str "add-all-comps: adding comps to bolt: " (show-bolt bolt language-model)))
         (add-all-comps-with-paths [bolt] language-model total-depth
                                   (find-comp-paths-in (bolt-depth bolt))
                                   truncate-children max-total-depth))
