common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fix ros dump with --destroy-packages-sbcl (#608) reported by Alexander Artemenko

Browse source
This commit is contained in:
SANO,Masatoshi 2026-02-27 18:12:28 +09:00
parent c7170d4cb7
commit ac187eadaa
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/dump-sbcl.lisp
View file

@ -126,10 +126,14 @@ IR1 (deftransform), IR2 (VOP) information in the infodb."
(setf (sb-impl::package-%shadowing-symbols package) nil)
(format t ".")
(setf (sb-impl::package-internal-symbols package)
(sb-impl::make-package-hashtable 0))
(if (fboundp 'sb-impl::make-symbol-table)
(sb-impl::make-symbol-table 0)
(sb-impl::make-package-hashtable 0)))
(format t ".")
(setf (sb-impl::package-external-symbols package)
(sb-impl::make-package-hashtable 0))
(if (fboundp 'sb-impl::make-symbol-table)
(sb-impl::make-symbol-table 0)
(sb-impl::make-package-hashtable 0)))
(format t ".")
(setf (sb-impl::package-tables package) #())
(format t ".")