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.

1 files changed, 1 insertions, 1 deletions

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)) {