1.1--- a/lisp/std/pkg.lisp	Fri Jun 07 15:33:59 2024 -0400
     1.2+++ b/lisp/std/pkg.lisp	Fri Jun 07 15:39:02 2024 -0400
     1.3@@ -393,6 +393,7 @@
     1.4    :current-lisp-implementation
     1.5    :save-lisp-tree-shake-and-die
     1.6    :save-lisp-and-live
     1.7+   :forget-shared-object
     1.8    :forget-shared-objects))
     1.9 
    1.10 (defpkg :std

     2.1--- a/lisp/std/sys.lisp	Fri Jun 07 15:33:59 2024 -0400
     2.2+++ b/lisp/std/sys.lisp	Fri Jun 07 15:39:02 2024 -0400
     2.3@@ -66,6 +66,13 @@
     2.4 
     2.5 (length (sb-di::list-allocated-objects :dynamic :test #'stringp))
     2.6 
     2.7+(defun forget-shared-object (name)
     2.8+  (setf (sb-alien::shared-object-dont-save
     2.9+         (find name sb-sys:*shared-objects*
    2.10+               :key 'sb-alien::shared-object-namestring
    2.11+               :test 'string-equal))
    2.12+        t))
    2.13+
    2.14 (defun forget-shared-objects ()
    2.15   "Set the DONT-SAVE slot of all objects in SB-SYS:*SHARED-OBJECTS* to T."
    2.16   (mapcar (lambda (obj) (setf (sb-alien::shared-object-dont-save obj) t)) sb-sys:*shared-objects*))