git.pond.sub.org Git - eow/blob - util.lisp

   1 (in-package :empire)
   2
   3 (defun spawn-with-name (name function &rest args)
   4   "See SBCL documentation for SB-THREAD:MAKE-THREAD."
   5   (sb-thread:make-thread (lambda ()
   6                            (apply function args))
   7                          :name name))