Silence some variable set but not used warnings.

	* modules/ase/ase-interval.c(ase-interval): Provide usage for
          'args'.  Not removed in order to provide an additional stack
          reference for argument lisp objects.

	* modules/cl/cl-loop.c(cl:loop-sentence): Provide usage for
          'parse_result'.  Could be useful in debug inspection.

Signed-off-by: Nelson Ferreira <nelson.ferreira@ieee.org>

diff --git a/modules/ase/ase-interval.c b/modules/ase/ase-interval.c
index 2814745..6f781f1 100644 (file)
--- a/modules/ase/ase-interval.c
+++ b/modules/ase/ase-interval.c
@@ -3285,6 +3285,7 @@ If no special topology is given, it defaults to the po topology.
 {
        Lisp_Object result = Qnil;
        Lisp_Object args[2] = {lower, upper};
+        (void)args;
 
        CHECK_COMPARABLE(lower);
        if (NILP(upper))

diff --git a/modules/cl/cl-loop.c b/modules/cl/cl-loop.c
index 41b71a1..40d3148 100644 (file)
--- a/modules/cl/cl-loop.c
+++ b/modules/cl/cl-loop.c
@@ -1588,6 +1588,7 @@ The Common Lisp loop macro.
 
        /* now parse the stuff */
        parse_result = cl_loop_yyparse(&args, lsen, &context, &token);
+       (void)parse_result;
 
        UNGCPRO;
        return loop_sentence;