doarray clojure iteration

doarray.clj

(defmacro doarray [[variable array] & body]
  (let [i (with-meta (gensym "i") {:tag Int64})
        var-type (or (-> variable meta :tag) 'Object)
        arr-type (symbol->array-type var-type)
        arr (with-meta (gensym "array") {:tag arr-type})]
    `(let [~arr ~array]
       (loop [~i 0]
         (if (= ~i (.Length ~arr))
           nil
           (let [~variable (aget ~arr ~i)]
             ~@body
             (recur (inc ~i))))))))