Common Lisp多线程中捕获*standard-output*输出的可行方法

你对问题的分析完全正确：with-output-to-string创建的*standard-output*动态绑定仅在当前线程生效，新建线程会使用自身的动态环境，因此无法捕获子线程的输出。以下是几种可行且实用的解决方法：

方法1：显式传递输出流到子线程 #

直接将捕获用的输出流作为参数传入子线程的lambda，彻底避免依赖动态绑定，逻辑清晰且无额外环境依赖，是最推荐的基础方案：

(with-output-to-string (output-stream)
  (bt:join-thread
   (bt:make-thread
    (lambda (stream)
      (format stream "Hello World"))
    :arguments (list output-stream))))
;=> "Hello World"

方法2：在子线程内重新绑定*standard-output* #

如果子线程的代码必须依赖*standard-output*动态变量（比如调用的第三方函数直接使用该变量），可以在子线程内部显式将其绑定到目标输出流：

(with-output-to-string (output-stream)
  (bt:join-thread
   (bt:make-thread
    (lambda ()
      (let ((*standard-output* output-stream))
        (format *standard-output* "Hello World"))))))
;=> "Hello World"

这种方式适合无法修改子线程核心逻辑、必须保留*standard-output*依赖的场景。

方法3：线程局部存储或自定义动态变量（扩展方案） #

如果需要在多个线程间统一管理输出目标，可以自定义动态变量配合线程局部存储机制（部分CL实现支持，比如SBCL的sb-thread:thread-local），或者构建包含输出流的上下文对象传递给线程。不过对于简单的单线程捕获需求，前两种方法已经足够，此方案适合复杂多线程输出管理场景。

方法4：重定向全局*standard-output*（不推荐） #

不建议修改全局*standard-output*，因为会意外捕获其他并发线程的输出，但如果是隔离的测试场景可以临时使用：

(let ((output-stream (make-string-output-stream)))
  (let ((*standard-output* output-stream))
    (bt:join-thread
     (bt:make-thread
      (lambda ()
        (format *standard-output* "Hello World"))))
    (get-output-stream-string output-stream)))
;=> "Hello World"

内容的提问来源于stack exchange，提问作者digikar