src/: Fix some docstrings.

[sod] / src / parser / parser-test.lisp

diff --git a/src/parser/parser-test.lisp b/src/parser/parser-test.lisp
index 1fb292d63a27e22067de12ea1c7d5411868df5fe..4041586d22b82fb024e855a125112196af15eba8 100644 (file)
--- a/src/parser/parser-test.lisp
+++ b/src/parser/parser-test.lisp
@@ -38,6 +38,7 @@ (defmacro assert-parse
   (once-only (string value winp consumedp)
     (with-gensyms (my-value my-winp my-consumedp label what)
       `(let ((,scanner (make-string-scanner ,string)))
   (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)
         (multiple-value-bind (,my-value ,my-winp ,my-consumedp)
             (with-parser-context
                 (character-scanner-context :scanner ,scanner)