blob: 9c0ba3220822d4aac01d0c0e4f65e3f5012ba1ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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))))
|
