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)