wf2-atom-atoms.clj

           ;; 40 MB/s
           (let [rem (int (- (.remaining buffer) 4))]
            (loop [i (int 0)]
              (when (< i rem)
                (.get buffer)
                (.get buffer)
                (.get buffer)
                (.get buffer)
                (recur (unchecked-add i 4)))))

           ;; 200 MB/s
           (try
            (loop []
              (.get buffer)
              (.get buffer)
              (.get buffer)
              (.get buffer)
              (recur))
            (catch java.nio.BufferUnderflowException e))