ugly macro

gistfile1.clj

(defmacro defcontroller [name & actions]
  (let [iname (symbol (str "I" name))]
    `(do
       (defprotocol ~iname
         ~@(for [[m as & fs] actions]
             `(~m [~@as])))
       (deftype ~name []
         ~iname
         ~@(for [[m as & fs] actions] 
             `(~(with-meta m {:tag "test"}) [~'this ~@as] ~@fs))))))

user> (set! *print-meta* true)
true
user> (macroexpand-1 '(defcontroller Foo (x [a] (inc a))))
(do (defprotocol IFoo (x [a]))
    (deftype Foo [] IFoo
             (^"test" x [this a] ^{:line 1} (inc a))))