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