diff options
| author | El-BG-1970 <elouan.gros.fr@gmail.com> | 2022-08-27 17:36:05 +0200 |
|---|---|---|
| committer | El-BG-1970 <elouan.gros.fr@gmail.com> | 2022-08-27 17:36:05 +0200 |
| commit | e056ac5d58e44a76a4185c37fce6948044b83c66 (patch) | |
| tree | b9f186a10f347822c30f64addf4126ce50a3bd1e /src/player.lisp | |
| parent | c7dbdf46a0ae76c15621fb4c4c320db1422b1e9b (diff) | |
| download | transacc-e056ac5d58e44a76a4185c37fce6948044b83c66.tar.gz | |
smart redisplay for panel and zone-prices panes
Diffstat (limited to 'src/player.lisp')
| -rw-r--r-- | src/player.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/player.lisp b/src/player.lisp index c9033ac..992c951 100644 --- a/src/player.lisp +++ b/src/player.lisp @@ -54,7 +54,8 @@ (when stocked-item (setq cash (+ cash (* (cdr stocked-item) - (commodities:price item)))))))) + (commodities:price item)))) + (cdr stocked-item))))) (defmethod find-item ((p player) name) (with-slots (stock) p |