1 files changed, 5 insertions, 0 deletions
diff --git a/src/util.lisp b/src/util.lisp
index d58cde8..cf3bc76 100644
--- a/src/util.lisp
+++ b/src/util.lisp
@@ -8,6 +8,11 @@
     `(eval-when (:compile-toplevel :load-toplevel :execute)
        ,@body)))
 
+(defun make-string-view (source start end)
+  (make-array (- end start) :element-type 'character
+              :displaced-to source
+              :displaced-index-offset start))
+
 (defun read-file-contents (file-name)
   (let* ((len 0)
          (contents