diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp
index 3e66ab6d893ac897d15ea9afebe295bcb1fca826..3357d12bf47dcab19a782389f9ac692483a011a1 100644
--- a/ansi-tests/ansi-aux.lsp
+++ b/ansi-tests/ansi-aux.lsp
@@ -1295,12 +1295,14 @@ the condition to go uncaught if it cannot be classified."
   (let ((num 0))
     (declare (fixnum num))
     (do-symbols (s p num)
+      (declare (ignorable s))			 
       (incf num))))
 
 (defun num-external-symbols-in-package (p)
   (let ((num 0))
     (declare (fixnum num))
     (do-external-symbols (s p num)
+      (declare (ignorable s))			 
       (incf num))))
 
 (defun safely-delete-package (package-designator)