The memory image you sent told me that there is a symbol
sb-kernel::sb-vm which
is why hiding of the string "sb-vm" failed.
And the fact that SEARCH-ROOTS didn't expose the symbol tells me there may
be a bug in search-roots, which is unfortunate but unrelated to the problem.
Can you tell me all your build options and whether you are applying any
patches?
Also, try the following test, both in a freshly started image and inserted
within the hide-packages test.
I get 5 lines output when I run it. I suspect that you get at least 6 lines
of output.
* *(lpnwasinsop)*
"COMMON-LISP" is a symbol in #<PACKAGE "KEYWORD">
"SB-THREAD" is a symbol in #<PACKAGE "KEYWORD">
"SB-UNICODE" is a symbol in #<PACKAGE "KEYWORD">
"KEYWORD" is a symbol in #<PACKAGE "COMMON-LISP">
"KEYWORD" is a symbol in #<PACKAGE "KEYWORD">
(defun lpnwasinsop ()
"list-package-names-which-are-symbols-in-some-other-package"
(let* ((pkgs (list-all-packages))
(names (mapcar 'package-name pkgs)))
(dolist (name names)
(dolist (pkg pkgs)
(flet ((find-in-symbols (tbl)
(find name (sb-impl::package-hashtable-cells tbl)
:test (lambda (x y) (and (symbolp y) (string= x
y))))))
(when (or (find-in-symbols (sb-impl::package-internal-symbols
pkg))
(find-in-symbols (sb-impl::package-external-symbols
pkg)))
(format t "~S is a symbol in ~S~%" name pkg)))))))
>
>
