defn, but with source and env attached for introspection

gistfile1.clj

(defmacro defn*
  "Like clojure.core/defn, with the function definition in :source metadata and env in :env metadata."
  {:arglists (:arglists (meta #'defn))}
  [f & xs]
  `(defn ~(with-meta f (assoc (meta f)
                              :source `(quote ~&form)
                              :env `(zipmap (quote ~(keys &env))
                                            (list ~@(keys &env)))))
     ~@xs))