src/commodities.lisp


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

(defpackage :commodities
  (:use :cl)
  (:export :new-commodity
		   :name
		   :price))

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