(in-package :cl-lox)


(defun main ()
  (let* ((argv (uiop:command-line-arguments)) (argc (length argv)))
    (cond ((= argc 0) (run-repl))
          ((= argc 1) (run-file :path (car argv))))))


(defun make-exe ()
  (sb-ext:save-lisp-and-die "cl-lox" :toplevel #'main :executable t))