aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-10-12 11:04:05 -0500
committerGravatar Pouar <pouar@pouar.net>2020-10-12 11:04:05 -0500
commit37c4a6fe14fbfd62059ff1898818440ee33b000c (patch)
treec40c569ef7c143b8499d4bac6684d20fc01ae147
parentdocstrings and declares (diff)
this seems to be clearer in programmer intent
-rw-r--r--core/libexec/functions.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/core/libexec/functions.lisp b/core/libexec/functions.lisp
index 1843ddb..fa218dc 100644
--- a/core/libexec/functions.lisp
+++ b/core/libexec/functions.lisp
@@ -623,7 +623,7 @@
((and (> (health-of character) 0) faintedp)
(setf (fainted-of *battle*) (s:delq character (fainted-of *battle*)))
nil)
- (t (and faintedp t)))))
+ (t (not (null faintedp))))))
(defun handle-status-effects (character battle)
"Returns true if @var{CHARACTER} fainted and false if not, but only if in @var{BATTLE}, otherwise unspecified"
(declare (type base-character character)