 (defmacro ws-add-deep-trace-fn!
   [fn-sym]
   `(ws-add-deep-trace-fn!* (util/fully-qualify-sym '~fn-sym)))
+(util/defalias-macro w-adtf! ws-add-deep-trace-fn!)
 
 (defn ws-add-trace-ns!*
   "`ns-sym` is a symbol that references an existing namespace. Applies an enabled

(defmacro ws-add-trace-fn!
  [fn-sym]
  `(ws-add-trace-fn!* (util/fully-qualify-sym '~fn-sym)))

(defn ws-add-deep-trace-fn!*
  "`fn-sym` is a symbol that references an existing function. Applies an

(defn ws-print
  [& [ws]]
  (#'com.billpiel.sayid.string-output/print-tree (or ws
                                                     (ws-deref!))))
(util/defalias w-pr ws-print)

(defn rec-print
  [& [rec]]
  (#'com.billpiel.sayid.string-output/print-tree (or rec
                                                     @recording)))
(util/defalias r-pr rec-print)

;; === END String Output functions
