# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1488216102 0
# Node ID c6dd13c10ce417ef3623d3939193aaab4e0cfcfb
# Parent  42b1fe4f8f2702620c85346c9a09c3e8860619ff
Cleanup

diff -r 42b1fe4f8f27 -r c6dd13c10ce4 src/euler.lisp
--- a/src/euler.lisp	Mon Feb 27 17:13:34 2017 +0000
+++ b/src/euler.lisp	Mon Feb 27 17:21:42 2017 +0000
@@ -1487,12 +1487,11 @@
   (let ((primes (sieve 1000000)))
     (flet ((score (start)
              (iterate
-               (with sum = 0)
                (with score = 0)
                (with winner = 0)
                (for run :from 1)
                (for prime :in-vector primes :from start)
-               (incf sum prime)
+               (summing prime :into sum)
                (while (< sum 1000000))
                (when (primep sum)
                  (setf score run