1 files changed, 17 insertions, 0 deletions
diff --git a/src/zone.lisp b/src/zone.lisp
new file mode 100644
index 0000000..3121a5c
--- /dev/null
+++ b/src/zone.lisp
@@ -0,0 +1,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))