https://git.spwbk.site/swatson/clwars/raw/master/clwars.lisp
___________________________________
(ql:quickload "closer-mop")
(load "~/Repos/clwars/game.lisp")

(defun reload()
 (load "~/Repos/clwars/clwars.lisp"))

(defun main ()
 (format t *menu-splash*)
 (format t "Press any key to start or q to quit: ")
 (if (string-not-equal (prompt-read "") "q")
     (progn
       (cls)
       (new-game))))