From 844020c42876479db3b2a881a528ac9b10c7e081 Mon Sep 17 00:00:00 2001 From: riton Date: Thu, 10 Jul 2025 12:43:06 +0300 Subject: string-view utility --- src/lexer.lisp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'src/lexer.lisp') 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)) -- cgit v1.2.3