with-source-code

(defmacro with-source-code [[defsym name & body :as form]]
  `(def ~(with-meta name {:source-code (first `('~form))}) ~(var-get (eval form))))

(defmacro get-source-code [var-name] `(:source-code (meta (var ~var-name))))

(with-source-code (defn foobar [x y] (/ x y)))

(get-source-code foobar)