             (do
               (log/debug (str "bolts-with-comps:" depth "/" max-depth ":" (strip-refs spec) ": one or more bolts found."))
               bolts)))))
+
+
 
 ;; TODO: lightning-bolts should use this.
 (defn get-lexemes [model spec]

      (log/trace (str "language-model has no default function."))
      tree)))

(defn bolts-with-comps
  "return a lazy sequence of maps. Each member in this lazy sequence
  associates a lightning bolt with the complements of that bolt. The

          (merge
           {[]
            (filter not-fail? [lb])}
           (comp-paths-to-complements lb (find-comp-paths lb) model depth max-depth)))
        (let [bolts (lightning-bolts model spec depth max-depth)]
          (if (empty? bolts)
            (do
