From 5731684cca287633b7589c12ca1372eec5dc0f0a Mon Sep 17 00:00:00 2001 From: El-BG-1970 Date: Thu, 4 Aug 2022 16:41:30 +0200 Subject: implemented game:change-zone --- src/zone.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/zone.lisp') diff --git a/src/zone.lisp b/src/zone.lisp index 9a27f17..ee2fad5 100644 --- a/src/zone.lisp +++ b/src/zone.lisp @@ -18,6 +18,6 @@ :commodities commodities)) (defmethod get-commodity ((z zone) commodity-name) - (find-if (lambda (c) (equal (commodities:name c) - commodity-name)) + (find-if (lambda (c) (string= (commodities:name c) + commodity-name)) (commodities z))) -- cgit v1.2.3