Not built in as far as I know and seems way too awfully specific for it to be built in. My solution:
(require '[net.cgrand.enlive-html :as html])
(def my-node '{:tag :p,
:content ("And, in a lower voice, \"Is this"
{:tag :em, :attrs nil, :content ("common")} "?\"")})
;; for escaped string:
(apply str (html/emit* (:content my-node)))
=> "And, in a lower voice, \"Is this<em>common</em>?\""
;; print in human readable form
(print (apply str (html/emit* (:content my-node))))
=> And, in a lower voice, "Is this<em>common</em>?"
nil