buffer.clj

(defmacro !integer [buffer offset size le? value]
  `(doto ~buffer
         ~@(map (fn [i]
                  `(aset ~(+ offset (if le? i (- size i 1)))
                         (unchecked-byte
                           (bit-and (unsigned-bit-shift-right ~value ~(* 8 i))
                                    0xFF))))
                (range size))))

(defmacro ?integer [buffer offset size le?]
  (reduce (fn [code i]
            `(bit-or ~code
                     (bit-shift-left (aget ~buffer ~(+ offset i))
                                     ~(* 8 (if le? i (- size i 1))))))
          0
          (range size)))