(in-package #:sod)

(defun make-lexer (string)
  (make-instance 'sod-token-scanner
		 :char-scanner (make-string-scanner string)
		 :filename "<string>"))