begginings of a gui

1 files changed, 8 insertions, 7 deletions

diff --git a/src/game.lisp b/src/game.lisp
index b55224a..08184fc 100644
--- a/src/game.lisp
+++ b/src/game.lisp
@@ -5,7 +5,8 @@
 		   :sell-item
 		   :change-zone
 		   :get-profit
-		   :get-profit-in-zone))
+		   :get-profit-in-zone
+		   :commodities-panel))
 
 (in-package :game)
 
@@ -65,10 +66,10 @@
 					 (player-item (player:find-item player name))
 					 (quantity (if player-item (cdr player-item) 0))
 					 (profit (if player-item
-								 (- price
-									(commodities:price (car player-item))))))
-				(list name
-					  price
-					  quantity
-					  profit)))
+								 (- price (commodities:price (car player-item)))
+								 0)))
+				(list :name name
+					  :price price
+					  :qty quantity
+					  :profit profit)))
 			(zone:get-commodities cur-zone))))