Lispwork 的 Thread 程式範例

(loop for n below 1000 do
(mp:process-run-function
(gensym) ; name
nil ; keywords
#'(lambda (s n) ; function
(format s "running thread ~D~%" n)
(sleep 10))
*standard-output* n)) ; arguments to function