                         (map #(unify spec %))
                         (filter #(not (= :fail %))))))
       true
-      (do (log/trace (str "no compiled bolts found for: " search-for-key))
-          (lazy-seq (lightning-bolts model spec 0 depth))))))
+      (lightning-bolts model spec 0 depth))))
 
 ;; a 'lightning bolts' is a dag that
 ;; has among paths, paths like [:head :head :head] and

  ;; And so on.
  ;;
  ;;
  (if (nil? spec)
    ;;    (throw (Exception. (str "wtf.")))
    nil
    (do
;;    (println (str "gen@" depth "; spec=" (dag_unify.core/strip-refs spec)))
  (log/trace (str "gen@" depth "; spec=" (show-spec spec)))
  (when (< depth max-depth)
    (let [bolts (or from-bolts
                    (get-bolts-for model spec 

                               "ok."))))
        result)))
   (filter #(not (= :fail %)))))
