Added kill-thread.lisp.