From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: src/parser/parser-test.lisp: Suppress maybe-unused variable warning.
X-Git-Tag: 0.2.0~10
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/2b6a13568607789bb5a7d3f5639bc7aeebb258cf?hp=63a86f42b0da1a64f8970c3f3cc55d83c76e83df

src/parser/parser-test.lisp: Suppress maybe-unused variable warning.
---

diff --git a/src/parser/parser-test.lisp b/src/parser/parser-test.lisp
index 1fb292d..4041586 100644
--- a/src/parser/parser-test.lisp
+++ b/src/parser/parser-test.lisp
@@ -38,6 +38,7 @@
   (once-only (string value winp consumedp)
     (with-gensyms (my-value my-winp my-consumedp label what)
       `(let ((,scanner (make-string-scanner ,string)))
+	 (declare (ignorable ,scanner))
 	 (multiple-value-bind (,my-value ,my-winp ,my-consumedp)
 	     (with-parser-context
 		 (character-scanner-context :scanner ,scanner)