在不退出环境的情况下保存 CL 映像

Question

我想保存当前环境的"快照"，以便以后可以使用它，而不会弄乱它。（实质上是创建沙盒）

我知道我可以用(save-lisp-and-die "sbcl.core")保存图像。我也知道我可以用sbcl --core sbcl.core加载图像。

问题是我正在运行的线程，我甚至无法停止一秒钟，并且此命令将退出sbcl。

我的问题是：我可以在不退出环境的情况下创建映像吗？我正在寻找类似(save-lisp "sbcl.core")

如果有一种便携式方法可以做到这一点 - 那就太好了。如果没有 - 我对 SBCL 的解决方案感兴趣。

Answer 1

SBCL 核心保存根据 SBCL 手册的建议提供了以下功能：

(defun save-core (core-fn)
  (progn
    #+sbcl
    (let ((fork-result (sb-posix:fork)))
      (case fork-result
        (-1 (error "fork failed"))
        (0 (sb-ext:save-lisp-and-die core-fn :toplevel #'main :executable t))
        (otherwise (sb-posix:wait)))
      (format t "stand-alone core ~a saved" core-fn))
    #-sbcl
    (error "not available on this lisp")
    (values)))

不幸的是，它可能不适用于正在运行的线程。