如何使用标签名称列表来启动线程

Question

我想使用标签名列表来定义用这些函数启动的线程的顺序/数量。但是它不起作用，因为SBCL抱怨：

  

DO-STUFF不会退色。

E.g：

(labels ((do-stuff (argI argII) (values argI argII))
         (do-stuff-II (argI argII) (values argII argI)))
  (mapcar #'(lambda(name)
              (sb-thread:make-thread name :arguments '(1 2)))
          '(do-stuff do-stuff-II do-stuff)))

使用将列表扩展为的宏：

(labels ((do-stuff (argI argII) (values argI argII))
         (do-stuff-II (argI argII) (values argII argI)))
  (let ((threads nil))
    (push (sb-thread:make-thread #'do-stuff :arguments '(1 2)) threads)
    (push (sb-thread:make-thread #'do-stuff-II :arguments '(1 2)) threads)
    (push (sb-thread:make-thread #'do-stuff :arguments '(1 2)) threads)
    threads))

有效，但由于使用了不必要的let和push，这让我觉得不那么优雅。

如何修复我的第一种方法？我必须写一个宏吗？

Answer 1

我目前无法访问SBCL进行测试，但问题似乎是你没有将函数传递给MAKE-THREAD，而是传递了符号。

替换它：

'(do-stuff do-stuff-II do-stuff)

有了这个：

(list #'do-stuff #'do-stuff-II #'do-stuff)

它应该有用。