Commit ff2a505b authored by pfdietz's avatar pfdietz

Removed two useless 'S' forms. The problem is gcl is using the variable, but...

Removed two useless 'S' forms.  The problem is gcl is using the variable, but doesn't support 'ignorable'.
parent 4c0d450f
......@@ -1018,14 +1018,12 @@ the condition to go uncaught if it cannot be classified."
(let ((num 0))
(declare (fixnum num))
(do-symbols (s p num)
s
(incf num))))
(defun num-external-symbols-in-package (p)
(let ((num 0))
(declare (fixnum num))
(do-external-symbols (s p num)
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