From d548f26177a1a5e036ad3f0bd331546222be5a1e Mon Sep 17 00:00:00 2001 From: "Tobias C. Rittweiler" Date: Thu, 4 Feb 2010 21:13:04 +0000 Subject: [PATCH] 1.0.35.3: Give initial thread function an explicit name.. ...for slightly improved backtrace experience. --- src/code/target-thread.lisp | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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" -- 1.7.10.4