projects
/
clnl
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add very simple first pass at lexer
[clnl]
/
src
/
main
/
main.lisp
1
(in-package #:cl-nl)
2
3
(defun e (ast) ast)
4
5
(defun r (str)
6
(let
7
((ast (cl-nl.lexer:lex str)))
8
(format t "AST for ~S became ~S~%" str ast)
9
ast))
10
11
(defun p (result) result)
12
13
(defun run ()
14
(loop for str = (read-line)
15
while str
16
do (p (e (r str))))
17
18
;(format t "AH HA~%")
19
)