src/zone.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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