clwars/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))))