(in-package :eris)

(defun subseq-shared (array start)
  (make-array (- (length array) start)
              :element-type (array-element-type array)
              :displaced-to array
              :displaced-index-offset start))

(defmacro make-octets (len &key (element 0))
  `(make-array ,len :element-type '(unsigned-byte 8) :initial-element ,element))