 
 (defn ^:nrepl sayid-trace-fn
   [{:keys [transport fn-name fn-ns type] :as msg}]
-  (println [fn-name fn-ns type])
   (case type
         "outer" (sd/ws-add-trace-fn!* (util/qualify-sym fn-ns fn-name))
         "inner" (sd/ws-add-inner-trace-fn!* (util/qualify-sym fn-ns fn-name)))


(defn ^:nrepl sayid-trace-ns-by-pattern
  [{:keys [transport ns-pattern ref-ns] :as msg}]
  (println ns-pattern)
  (mapv #(-> %
             str
             symbol


(defn reply:clj->nrepl
  [msg out]
  (try (t/send (:transport msg)
               (response-for msg
                             :value (clj->nrepl out)))
