mirror of
https://github.com/MorizzG/cl-lox.git
synced 2025-12-06 04:22:42 +00:00
11 lines
285 B
Common Lisp
11 lines
285 B
Common Lisp
|
(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))
|