From bf191a6f96f19adc74879bc543da3a7027c498da Mon Sep 17 00:00:00 2001
From: El-BG-1970 <elouan.gros.fr@gmail.com>
Date: Wed, 27 Jul 2022 17:50:07 +0200
Subject: first commit

---
 src/zone.lisp | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 src/zone.lisp

(limited to 'src/zone.lisp')

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))
-- 
cgit v1.2.3