From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Tue, 29 Jan 2008 14:08:27 +0000 (+0000)
Subject: 1.0.14.5: fix threaded builds
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=960a53636bf8784e44740d8673b3abc2c4c08594;p=sbcl.git

1.0.14.5: fix threaded builds

 * Broken by 1.0.14.1: LET*, not LET in MAKE-THREAD now.
---

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index 218e355..c99c30b 100644
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -679,20 +679,20 @@ around and can be retrieved by JOIN-THREAD."
             ;; of Allegro's *cl-default-special-bindings*, as that is at
             ;; least accessible to users to secure their own libraries.
             ;;   --njf, 2006-07-15
-            (let ((*current-thread* thread)
-                  (*restart-clusters* nil)
-                  (*handler-clusters* nil)
-                  (*condition-restarts* nil)
-                  (sb!impl::*deadline* nil)
-                  (sb!impl::*step-out* nil)
-                  ;; internal printer variables
-                  (sb!impl::*previous-case* nil)
-                  (sb!impl::*previous-readtable-case* nil)
-                  (empty (vector))
-                  (sb!impl::*merge-sort-temp-vector* empty)
-                  (sb!impl::*zap-array-data-temp* empty)
-                  (sb!impl::*internal-symbol-output-fun* nil)
-                  (sb!impl::*descriptor-handlers* nil)) ; serve-event
+            (let* ((*current-thread* thread)
+                   (*restart-clusters* nil)
+                   (*handler-clusters* nil)
+                   (*condition-restarts* nil)
+                   (sb!impl::*deadline* nil)
+                   (sb!impl::*step-out* nil)
+                   ;; internal printer variables
+                   (sb!impl::*previous-case* nil)
+                   (sb!impl::*previous-readtable-case* nil)
+                   (empty (vector))
+                   (sb!impl::*merge-sort-temp-vector* empty)
+                   (sb!impl::*zap-array-data-temp* empty)
+                   (sb!impl::*internal-symbol-output-fun* nil)
+                   (sb!impl::*descriptor-handlers* nil)) ; serve-event
               (setf (thread-os-thread thread) (current-thread-sap-id))
               (with-mutex ((thread-result-lock thread))
                 (with-all-threads-lock
diff --git a/version.lisp-expr b/version.lisp-expr
index bbce251..ba76545 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.14.4"
+"1.0.14.5"