From a7879501ae25a4c8c60d8a208419e272ec4e3a7e Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Sat, 4 Jul 2015 20:21:32 -0400
Subject: [PATCH] Remove some test noise. A drop in the ocean unfortunately.

---
 tests/package-locks.impure.lisp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/tests/package-locks.impure.lisp b/tests/package-locks.impure.lisp
index 15f9977b8..096e8fb39 100644
--- a/tests/package-locks.impure.lisp
+++ b/tests/package-locks.impure.lisp
@@ -115,6 +115,7 @@
 
 (defmacro with-error-info ((string &rest args) &body forms)
   `(handler-bind ((error (lambda (e)
+                           (declare (ignorable e))
                            (format t ,string ,@args)
                            (finish-output))))
      (progn ,@forms)))
@@ -201,6 +202,7 @@
     (defmacro test:unused () ''foo)
     (setf (macro-function 'test:unused) (constantly 'foo))
     (define-compiler-macro test:unused (&whole form arg)
+      (declare (ignore arg))
       form)
     (setf (compiler-macro-function 'test:unused) (constantly 'foo))
 
@@ -241,6 +243,7 @@
     (define-setf-expander test:car (place)
       (multiple-value-bind (dummies vals newval setter getter)
           (get-setf-expansion place)
+        (declare (ignore newval setter))
         (let ((store (gensym)))
           (values dummies
                   vals
@@ -406,7 +409,7 @@
     (let ((error-count 0))
       ;; check that we don't get multiple errors from a single form
       (handler-bind ((package-lock-violation (lambda (x)
-                                               (declare (ignore x))
+                                               (declare (ignorable x))
                                                (incf error-count)
                                                (continue x))))
         (eval form)
@@ -418,8 +421,7 @@
 ;;;
 ;;; This is not part of the interface, but it is the behaviour we want
 (let* ((tmp "package-locks.tmp.lisp")
-       (fasl (compile-file-pathname tmp))
-       (n 0))
+       (fasl (compile-file-pathname tmp)))
   (dolist (form *illegal-runtime-forms*)
     (unwind-protect
          (with-simple-restart (next "~S failed, continue with next test" form)
@@ -427,6 +429,7 @@
            (with-open-file (f tmp :direction :output)
              (prin1 form f))
            (multiple-value-bind (file warnings failure-p) (compile-file tmp)
+             (declare (ignore file warnings failure-p))
              (set-test-locks t)
              (assert-error (load fasl)
                            sb-ext:package-lock-violation)))
-- 
2.11.4.GIT