1 files changed, 7 insertions, 1 deletions
diff --git a/src/zone.lisp b/src/zone.lisp
index 3121a5c..9a27f17 100644
--- a/src/zone.lisp
+++ b/src/zone.lisp
@@ -1,7 +1,8 @@
 (defpackage zone
   (:use :cl)
   (:export :new-zone
-		   :name))
+		   :name
+		   :get-commodity))
 
 (in-package :zone)
 
@@ -15,3 +16,8 @@
   (make-instance 'zone
 				 :name name
 				 :commodities commodities))
+
+(defmethod get-commodity ((z zone) commodity-name)
+  (find-if (lambda (c) (equal (commodities:name c)
+							  commodity-name))
+		   (commodities z)))