(defparameter *game-file* #p"game-state.lisp")
(setf *read-eval* nil *print-circle* t
*print-pretty* t)
(defvar *board*)
(setq *board*
(let ((array (when (probe-file *game-file*)
(with-open-file (in *game-file*
:direction :input)
(read in)))))
(lambda () (when array (prin1 array)))))
(handler-case (funcall *board*)
(t (e) (format t "I am unhappy about ~a~%" e)))
(terpri)
(quit)