From 39f36faa53013acd86a8beab4e4a61eb000d2fc1 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 9 Apr 2003 02:25:09 +0000
Subject: [PATCH] Added ignorable declarations to reduce warnings.

---
 ansi-tests/ansi-aux.lsp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp
index 3e66ab6d..3357d12b 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)
-- 
GitLab