diff options
| author | El-BG-1970 <elouan.gros.fr@gmail.com> | 2022-07-27 17:50:07 +0200 |
|---|---|---|
| committer | El-BG-1970 <elouan.gros.fr@gmail.com> | 2022-07-27 17:50:07 +0200 |
| commit | bf191a6f96f19adc74879bc543da3a7027c498da (patch) | |
| tree | d493855e8af162f130938d4f2f54a159aef2555d /src/zone.lisp | |
| download | transacc-bf191a6f96f19adc74879bc543da3a7027c498da.tar.gz | |
first commit
Diffstat (limited to 'src/zone.lisp')
| -rw-r--r-- | src/zone.lisp | 17 |
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)) |