(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)