From 6f7c75ed060f3c824740cf0a471be4a235f2fe51 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 15 Nov 2017 06:12:58 -0800
Subject: find-max: tiny optimization for vectors.

* lib.c (find_max): The vector case must loop from
index one, not zero, so as not to wastefully compare the
initial max element to itself.
---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 41489315..ab6e3beb 100644
--- a/lib.c
+++ b/lib.c
@@ -8572,7 +8572,7 @@ val find_max(val seq, val testfun, val keyfun)
       val len = length(vec);
       val i;
 
-      for (i = zero; lt(i, len); i = succ(i)) {
+      for (i = one; lt(i, len); i = succ(i)) {
         val elt = ref(vec, i);
         val key = funcall1(keyfun, elt);
         if (funcall2(testfun, key, maxkey)) {
-- 
cgit v1.2.3