defrec, rhymes with vec, because you can nth it

defrec.clj

(defmacro defrec [name args & body]
  (let [indexed-args (interleave (iterate inc 0) args)]
    `(defrecord ~name ~args
       clojure.lang.Indexed
       (nth [_# i#]
         (case i#
           ~@indexed-args
           (throw (IndexOutOfBoundsException.))))
       (nth [_# i# default#]
         (case i#
           ~@indexed-args
           default#))
       ~@body)))

example.clj

(defrec Point [x y])

(let [p (->Point 10 20)
      [x y] p]
  (println y x))
;=> 20 10