chiark / gitweb /
96ae996a72c616f0d36ff929e614eb59252b9bda
[sod] / src / hacks.lisp
1 (in-package #:sod)
2
3 (defun make-lexer (string)
4   (make-instance 'sod-token-scanner
5                  :char-scanner (make-string-scanner string)
6                  :filename "<string>"))