   (let [src (-> qual-sym
                 symbol
                 util/hunt-down-source)
-        xsrc (clojure.walk/macroexpand-all src)
-        traced-form (-> src
+        traced-form (-> #spy/d src
                         macroexpand
                         get-fn
                         (xpand-fn* meta'))]
     (util/eval-in-ns (-> ns' str symbol)
                      traced-form)))
-
 
 (defn ^{::trace/trace-type :deep-fn} composed-tracer-fn
   [m _]

  (swap! recent-trees
         assoc
         (:inner-path @tree-atom)
         tree-atom)
  #spy/d @recent-trees)

(defn mk-recent-tree-at-inner-path
  [inner-path recent-trees]

    (cons (first form)
          bods)))

(defn deref-children
  [tree-atom]
  (swap! (:children @tree-atom)
         #(mapv deref-children %))
  @tree-atom)

(defn record-trace-tree!
  [[tree-atom src-map]]
  (let [children (-> (@tree-atom nil)
                     deref-children
                     :children
                     deref)]
    (doseq [child children]
      (swap! (:children trace/*trace-log-parent*)
             conj
             child))))

(defn get-fn
  [[d s f & r]]
