my-macro.clj

(defmacro create-object [name props funcs]
  (let [m (reduce #(conj %1 [%2 nil]) {} props)
        d (str "dispatcher-" name)
       ]
    `(defn ~(symbol d) [msg# & params#]
       (cond
         ~@(map (fn [f]
            (symbol (str "(= " msg#  (first f) ") (apply " (last f) " (cons m " params# "))"))
           ) funcs)
       )
     )    
  )
)