aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-07-15 10:31:01 -0500
committerGravatar Pouar <pouar@pouar.net>2020-07-15 10:31:01 -0500
commit4a06a87a96667c530c5c476d8aa8e516f870f3e3 (patch)
tree8c6cd33294a5d77af5a1f79ebe78713bb7bd11e2
parentiterate through this only once (diff)
declarations
The odds of having a list with a length longer than most-positive-fixnum on a modern 64bit system is extremly low, assuming it would even fit in ram
-rw-r--r--core/libexec.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/core/libexec.lisp b/core/libexec.lisp
index 16c7d5a..4a1d4a7 100644
--- a/core/libexec.lisp
+++ b/core/libexec.lisp
@@ -3381,9 +3381,9 @@ randomrange is @code{(random-from-range 85 100)}"
(target-element-types (element-type-of target))
(user-element-types (element-type-of user)))
(s:mvlet ((super-effective not-very-effective no-effect (funcall (lambda ()
- (iter (with super-effective = 0)
- (with not-very-effective = 0)
- (with no-effect = 0)
+ (iter (declaring fixnum with super-effective = 0)
+ (declaring fixnum with not-very-effective = 0)
+ (declaring fixnum with no-effect = 0)
(for target-element-type in target-element-types)
(case (type-match attack-element-type target-element-type)
(:super-effective (incf super-effective))