From 56d3ca4cf14ac1b2bac9c866daa98cdb803915fa Mon Sep 17 00:00:00 2001
From: Piotr Szarmanski
Date: Wed, 21 Sep 2022 22:50:14 +0200
Subject: Initial commit.

---
 src/common.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 src/common.lisp

(limited to 'src/common.lisp')

diff --git a/src/common.lisp b/src/common.lisp
new file mode 100644
index 0000000..3f078ff
--- /dev/null
+++ b/src/common.lisp
@@ -0,0 +1,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))
-- 
cgit v1.2.3