(in-package :empire)

(defun spawn-with-name (name function &rest args)
  "See SBCL documentation for SB-THREAD:MAKE-THREAD."
  (sb-thread:make-thread (lambda ()
                           (apply function args))
                         :name name))