projects
/
clnl
/ blob
d9780baf8b759fa9346ca8c04f1f3b3aaeeb493f
[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
)