(defstruct (vector-input (:constructor make-vector-input (vector index)))
  (vector NIL :type (simple-array (unsigned-byte 8) *) :read-only T)
  (index 0 :type fixnum))

(defun foo (io)
  (nibbles:ub32ref/le (vector-input-vector io) (vector-input-index io)))