Commit 39f36faa authored by pfdietz's avatar pfdietz
Browse files

Added ignorable declarations to reduce warnings.

parent 0ec144c6
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment