From e056ac5d58e44a76a4185c37fce6948044b83c66 Mon Sep 17 00:00:00 2001 From: El-BG-1970 Date: Sat, 27 Aug 2022 17:36:05 +0200 Subject: smart redisplay for panel and zone-prices panes --- src/player.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/player.lisp') 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 -- cgit v1.2.3