code.consxy.com Git - clnl/blob - 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  )