array-mac

array-mac.clj

(defmacro array-mac [t & elements]
  (let [^Type tt (resolve t)
        atypesym (symbol (str (.FullName tt) "[]"))
        asym (gensym "array_")
        setexprs (->> elements
                   (map-indexed
                     (fn [i x]
                       `(aset ~asym ~i ~x))))]
    `(let [~(with-meta asym {:tag atypesym}) (make-array ~t ~(count elements))]
       ~@setexprs
       ~asym)))

(array-mac Vector3 a b c)

expands to

(clojure.core/let
 [^UnityEngine.Vector3[] array_669 (clojure.core/make-array Vector3 3)]
 (clojure.core/aset array_669 0 a)
 (clojure.core/aset array_669 1 b)
 (clojure.core/aset array_669 2 c)
 array_669)