X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-thread.lisp;h=e51387281304e5e2ac372bec3b3eee85a9b385c9;hb=22de9286aa239843ab7bc2cb772009fba6bcd080;hp=c3cdf38d06895ac8c5f02cd3a91c543147baad4b;hpb=5e55f426de8fa579a0d6cfbfb3ac5433d530d3c9;p=sbcl.git

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index c3cdf38..e513872 100644
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -880,7 +880,7 @@ around and can be retrieved by JOIN-THREAD."
          (setup-sem (make-semaphore :name "Thread setup semaphore"))
          (real-function (coerce function 'function))
          (initial-function
-          (lambda ()
+          (named-lambda initial-thread-function ()
             ;; In time we'll move some of the binding presently done in C
             ;; here too.
             ;;