1 (ql:quickload "closer-mop")
2 (load "~/Repos/clwars/game.lisp")
3
4 (defun reload()
5 (load "~/Repos/clwars/clwars.lisp"))
6
7 (defun main ()
8 (format t *menu-splash*)
9 (format t "Press any key to start or q to quit: ")
10 (if (string-not-equal (prompt-read "") "q")
11 (progn
12 (cls)
13 (new-game))))