gistfile1.clj

(defn unresolvable-syms [form]
  (let [usyms (atom #{})
        _ (postwalk
            #(do
               (when (and (symbol? %) (nil? (resolve %)))
                 (swap! usyms conj %))
               %) form)]
    @usyms))

(defmacro exk [& args]
  "[name? doc? attr-map? prepost-map? body]"
  (let [{:keys [body] :as fn-decl} (args->fn-decl args)
        _ (when-not (nil? (:args fn-decl))
            (throw (Throwable. "exk takes no args.")))
    (fnk*
      (fn-decl->fnk-decl
        (assoc fn-decl :args (vec (unresolvable-syms body)))))))