Factor INITIAL-THREAD-FUNCTION out of MAKE-THREAD