From 09ae1f43c0cf244cdba5c9690e301c8a1aab2458 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Tue, 21 Sep 2010 09:25:26 +0200
Subject: [PATCH] Fixed type warning in macroexpansion of sequece iterators

---
 src/cmp/cmpopt-sequence.lsp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/cmp/cmpopt-sequence.lsp b/src/cmp/cmpopt-sequence.lsp
index 118fb5daa..9c80e96d6 100644
--- a/src/cmp/cmpopt-sequence.lsp
+++ b/src/cmp/cmpopt-sequence.lsp
@@ -140,8 +140,9 @@
 
 (defmacro do-in-seq ((%elt sequence &key (start 0) end output) &body body)
   (ext:with-unique-names (%start %iterator %counter %sequence)
-    (let* ((counter (and end `(- (or ,end most-positive-fixnum)
-                                 ,%start)))
+    (let* ((counter (if end
+                        `(- (or ,end most-positive-fixnum) ,%start)
+                        0))
            (test (if end
                      `(and ,%iterator (plusp ,%counter))
                      %iterator)))