diff options
Diffstat (limited to 'src/lexer.lisp')
| -rw-r--r-- | src/lexer.lisp | 8 |
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)) |