loop2.lsp: ignore unused variable. Closes #14.
authorDaniel Kochmański <dkochmanski@hellsgate.pl>
Sat, 14 Mar 2015 21:05:46 +0000 (22:05 +0100)
committerDaniel Kochmański <dkochmanski@hellsgate.pl>
Sat, 14 Mar 2015 21:05:46 +0000 (22:05 +0100)
src/lsp/loop2.lsp

index 7b59d8e..4ce5f5d 100755 (executable)
@@ -1595,7 +1595,8 @@ Note that this is not a valid ANSI code."))
                          sequence-variable sequence-type
                          step-hack default-top
                          prep-phrases)
-  (declare (si::c-local))
+  (declare (si::c-local)
+          (ignore indexv-user-specified-p))
    (let ((endform nil)                         ;Form (constant or variable) with limit value.
         (sequencep nil)                        ;T if sequence arg has been provided.
         (testfn nil)                           ;endtest function