blob: 3f078ffc96b382573b763bac579e26c7868db9fd (
plain)
1
2
3
4
5
6
7
8
9
10
|
(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))
|
