(defpackage zone
  (:use :cl)
  (:export :new-zone
		   :name))

(in-package :zone)

(defclass zone ()
  ((name :initarg :name
		 :reader name)
   (commodities :initarg :commodities
				:accessor commodities)))

(defun new-zone (name commodities)
  (make-instance 'zone
				 :name name
				 :commodities commodities))