Re: [Sbcl-bugs] hide-packages.test.sh failure with 2.2.6

[Douglas Katzman <dougk@google.com>]

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)))))))