diff options
Diffstat (limited to 'src/player.lisp')
| -rw-r--r-- | src/player.lisp | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/src/player.lisp b/src/player.lisp index 32757d0..b5c8651 100644 --- a/src/player.lisp +++ b/src/player.lisp @@ -16,9 +16,11 @@ ((name :initarg :name :reader name) (cash :initarg :cash - :accessor cash) + :accessor cash + :reader get-cash) (debt :initarg :debt - :accessor debt) + :accessor debt + :reader get-debt) (hp :initform 100 :accessor hp) (clout :initform 0 @@ -34,14 +36,6 @@ :cash cash :debt debt)) -(defmethod get-debt ((p player)) - (with-slots (debt) p - debt)) - -(defmethod get-cash ((p player)) - (with-slots (cash) p - cash)) - (defmethod buy-item ((p player) item quantity) (with-slots (stock cash) p (let ((cost (* quantity |