string-view utility

1 files changed, 2 insertions, 6 deletions

diff --git a/src/lexer.lisp b/src/lexer.lisp
index cd47881..3865cd6 100644
--- a/src/lexer.lisp
+++ b/src/lexer.lisp
@@ -103,18 +103,14 @@
     (lexer-read l)
     (loop :while (digit? (ch l))
           :do (lexer-read l))
-    (make-array (- (pos l) start) :element-type 'character
-                                    :displaced-to (input l)
-                                    :displaced-index-offset start)))
+    (make-string-view (input l) start (pos l))))
 
 (defmethod read-identifier ((l lexer))
   (let ((start (pos l)))
     (lexer-read l)
     (loop :while (letter? (ch l))
           :do (lexer-read l))
-    (make-array (- (pos l) start) :element-type 'character
-                                    :displaced-to (input l)
-                                    :displaced-index-offset start)))
+    (make-string-view (input l) start (pos l))))
 
 
 (defmethod lexer-tokens ((l lexer))