clwars.lisp 295 B

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