diff options
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/main.lisp b/src/main.lisp new file mode 100644 index 0000000..9c0ba32 --- /dev/null +++ b/src/main.lisp @@ -0,0 +1,17 @@ +(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)))) |