(in-package :cl-user)
(defpackage transacc
  (:use :cl)
  (:export :main))

(in-package :transacc)

(defun main ()
  (let ((player (player:init-player "Joze" 2000))
		(zones
		 (list
		  (zone:new-zone "Bronx"
						 (list (commodities:new-commodity "speed" 500)
							   (commodities:new-commodity "grass" 40))))))
	(assert (equal (zone:name (car zones)) "Bronx"))
	(assert (equal (player:name player) "Joze"))
	(format t "~a in the game" (player:name player))))