common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

hide-packages.test: don't look inside stack-allocated objects.

Browse source 
They might be already out of extent.
This commit is contained in:
Stas Boukarev 2024-12-16 11:35:16 +03:00
parent cdb96ab8de
commit 1a3235fdd2
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/hide-packages.test.sh Normal file → Executable file
View file

@ -162,8 +162,9 @@ run_sbcl <<\EOF
(print (read-from-string "keyword:x") (make-broadcast-stream))
;; Now walk all heap objects
(macrolet ((visit (that)
`(check-undesired
this ,that undesired-symbols undesired-strings hashes)))
`(unless (sb-ext:stack-allocated-p ,that)
(check-undesired
this ,that undesired-symbols undesired-strings hashes))))
(sb-vm:map-allocated-objects
(lambda (this type size)
(declare (ignore type size))