gistfile1.txt

; Rule #1, fuck pastebin.

(declare get-rmi lookup-rmi MyMessage)

(defmacro invoke-rmi[hostname port nm iface mthd & args]
  `(let [r# (get-rmi ~hostname ~port)]
    (let [z# (lookup-rmi r# ~iface ~nm)]
     (. z# ~mthd ~@args))))

; and now use that macro

; This shouldn't eof.

(defn act
  [dd]
  (let [hh (:host dd) pp (:port dd)]
    (invoke-rmi hh pp "name" MyMessage saySomething "good")))