(defpackage game
  (:use :cl)
  (:export :new-game))

(in-package :game)

(defclass game ()
  ((player :initarg player
		   :accessor player)
   (zones  :initarg zones
		   :accessor zones)
   (curzone :initarg start-zone
			:accessor cur-zone)))

(defun new-game (player zones start-zone)
  (make-instance 'game
				 :player player
				 :zones zones
				 :start-zone start-zone))