From bf191a6f96f19adc74879bc543da3a7027c498da Mon Sep 17 00:00:00 2001 From: El-BG-1970 Date: Wed, 27 Jul 2022 17:50:07 +0200 Subject: first commit --- src/commodities.lisp | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 src/commodities.lisp (limited to 'src/commodities.lisp') diff --git a/src/commodities.lisp b/src/commodities.lisp new file mode 100644 index 0000000..2ce7cb7 --- /dev/null +++ b/src/commodities.lisp @@ -0,0 +1,16 @@ +(defpackage :commodities + (:use :cl) + (:export :new-commodity)) + +(in-package :commodities) + +(defclass commodity () + ((name :initarg :name + :reader name) + (price :initarg :price + :accessor price))) + +(defun new-commodity (name price) + (make-instance 'commodity + :name name + :price price)) -- cgit v1.2.3