Fix xdump driver
[eow] / 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))