diff options
| author | El-BG-1970 <elouangros@hotmail.com> | 2022-08-04 16:41:30 +0200 |
|---|---|---|
| committer | El-BG-1970 <elouangros@hotmail.com> | 2022-08-04 16:41:30 +0200 |
| commit | 5731684cca287633b7589c12ca1372eec5dc0f0a (patch) | |
| tree | f0920be6027b5d1d03d321fb9160735599f27cc4 /src/zone.lisp | |
| parent | 164b961cdd97c4ef324bbb0ae5f46b394201183b (diff) | |
| download | transacc-5731684cca287633b7589c12ca1372eec5dc0f0a.tar.gz | |
implemented game:change-zone
Diffstat (limited to 'src/zone.lisp')
| -rw-r--r-- | src/zone.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |