     (read [_ buff pos]
       (loop [index pos result [] types types]
         (if-let [type (first types)]
-          (let [[readeddata readedbytes] (read type buff index)]
+          (let [[readedbytes readeddata] (read type buff index)]
             (recur (+ index readedbytes)
                    (conj result readeddata)
                    (rest types)))


     IReadableSpec
     (read [_ buff pos]
       [(buffer/read-int buff pos)
        (Integer/BYTES)])

     IWritableSpec
     (write [_ buff pos value]


     IReadableSpec
     (read [_ buff pos]
       [(Long/BYTES)
        (buffer/read-long buff pos)])

     IWritableSpec
     (write [_ buff pos value]
