diff --git a/ansi-tests/find-all-symbols.lsp b/ansi-tests/find-all-symbols.lsp index eedd05eadc7a27a5292a2840e44b66a9cb25b7ca..17fb9ccc439a43b92e9aa815f59bd40d30485ee9 100644 --- a/ansi-tests/find-all-symbols.lsp +++ b/ansi-tests/find-all-symbols.lsp @@ -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)