From a4e93f7b611ef9dfe1b4ac35a3ff0cc23303df0b Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Sun, 22 Dec 2019 16:37:40 +0100
Subject: [PATCH] cmp: fix compiler macro for sequence functions with :end
 argument

The :end argument was ignored previously.
---
 src/cmp/cmpopt-sequence.lsp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/cmp/cmpopt-sequence.lsp b/src/cmp/cmpopt-sequence.lsp
index 21ad2bd95..cbbf34416 100644
--- a/src/cmp/cmpopt-sequence.lsp
+++ b/src/cmp/cmpopt-sequence.lsp
@@ -161,7 +161,9 @@
             (unless ,test (return ,output))
             (let ((,%elt (si::seq-iterator-ref ,%sequence ,%iterator)))
               ,@body)
-            (setf ,%iterator (si::seq-iterator-next ,%sequence ,%iterator)))))))
+            (setf ,%iterator (si::seq-iterator-next ,%sequence ,%iterator))
+            ,(when end
+               `(decf ,%counter)))))))
 
 ;;;
 ;;; MEMBER