From: Tobias C. Rittweiler <trittweiler@users.sourceforge.net>
Date: Thu, 4 Feb 2010 21:13:04 +0000 (+0000)
Subject: 1.0.35.3: Give initial thread function an explicit name..
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d548f26177a1a5e036ad3f0bd331546222be5a1e;p=sbcl.git

1.0.35.3: Give initial thread function an explicit name..

...for slightly improved backtrace experience.
---

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.
             ;;
diff --git a/version.lisp-expr b/version.lisp-expr
index ff405e3..e75d2bc 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.35.2"
+"1.0.35.3"