[sod] / src / hacks.lisp

(in-package #:sod)

(defun make-lexer (string)
  (make-instance 'sod-token-scanner
		 :char-scanner (make-string-scanner string)
		 :filename "<string>"))
Commit	Line	Data
bf090e02 MW	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>"))