Macro/AOT Issue

gistfile1.clj

(defmacro match-record
  ([matches expr]
     `(match-record ~matches ~expr nil))
  ([[record in] expr fail-expr]
     (println "Multimethods "(methods record-matcher) " class " (class record))
     (println "Record matcher " (record-matcher record) " class record " (class record))
     `(if-match [~(record-matcher record) ~in] ~expr ~fail-expr)))

(match-record [(new-baz {:bar ?e} ) nil]
              (some #(match-record [(new-baz {:bar false}) %] true) e))