(defun make-threads (n name fn)
(loop for i from 1 to n
collect (make-thread fn :name (format nil "~A-~D" name i))))
(defun timed-join-thread (thread &optional (timeout +timeout+))
(defun make-threads (n name fn)
(loop for i from 1 to n
collect (make-thread fn :name (format nil "~A-~D" name i))))
(defun timed-join-thread (thread &optional (timeout +timeout+))