(defun make-board ()
  (setf (board *game*) (make-array (list (+ (width *game*) 2)
                                         (+ (height *game*) 2))
                                   :initial-element 0)))