macro.clj

(defmacro defrel [name & args]
  (let [setsym (symbol (str name "-set"))
        idxsym (symbol (str name "-indexed"))]
   `(do
      (defmacro ~name [~@args]
        `(fn [a#]
           (answers a# ~~setsym ~~idxsym [~~@args])))
      (def ~setsym (atom #{}))
      (def ~idxsym (atom {})))))

;; when the macro'ed macro is run I see

(fn [a__1307533__auto__]
    (answers
     a__1307533__auto__
     #<Atom@4e22b7dc: #{}> ;; <-- I want symbols here
     #<Atom@72402ecb: {}>  ;; <-- and here
     ['even? q]))