&this.clj

(require '[clojure.repl :as repl])

(defmacro &this []
  `(->> (Exception.)
        .getStackTrace
        (map bean)
        (filter #(= "invoke" (:methodName %)))
        (map #(read-string (repl/demunge (:className %))))
        (keep resolve)
        first))

(defn say-hello []
  ((fn []
     (println "inside" (&this))))
  (println "hello, bob"))