multithreading - Common Lisp 中的WITH-OUTPUT-TO-STRING 与多线程

Question

我想做一些具有以下意义的事情:

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

根据我的理解，这是行不通的，因为通过线程外部的 with-output-to-string 动态反弹的 *standard-output* 不会占用线程内的效果。有哪些可能且值得推荐的方法？

本质上，我想捕获由另一个线程写入 *standard-output* 的输出。

Answer 1

可以将特殊变量重新绑定(bind)为线程本地:

(with-output-to-string (*standard-output*)
  (bt:join-thread
    (bt:make-thread
      (lambda ()
        (format *standard-output* "Hello World"))
      :initial-bindings `((*standard-output* . ,*standard-output*)))))

*initial-bindings* 是一个带有 (variable . value) 元素的列表。