diff options
Diffstat (limited to 'src/commodities.lisp')
| -rw-r--r-- | src/commodities.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/commodities.lisp b/src/commodities.lisp index 474fe7d..1302a98 100644 --- a/src/commodities.lisp +++ b/src/commodities.lisp @@ -13,6 +13,7 @@ :accessor price))) (defun new-commodity (name price) - (make-instance 'commodity - :name name - :price price)) + (when (> price 0) + (make-instance 'commodity + :name name + :price price))) |