Skip to content
Snippets Groups Projects
Commit 39f36faa authored by pfdietz's avatar pfdietz
Browse files

Added ignorable declarations to reduce warnings.

parent 0ec144c6
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment