Commit d34a8499 authored by pfdietz's avatar pfdietz

Fix possible problem in find-all-symbols: the symbols possibly don't have a...

Fix possible problem in find-all-symbols: the symbols possibly don't have a home package if they exist in other packages.
parent 0c177417
......@@ -20,9 +20,7 @@
(subsetp similar similar2)
(subsetp similar2 similar)
(loop for sym2 in similar
always (and (string= name (symbol-name sym2))
(member (symbol-package sym2)
all-packages))))
always (string= name (symbol-name sym2))))
(push sym failures))))))))
nil)
......
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