Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv6489/src/code

Modified Files:
	target-thread.lisp 
Log Message:
1.0.14.5: fix threaded builds

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


Index: target-thread.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-thread.lisp,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -d -r1.86 -r1.87
--- target-thread.lisp	28 Jan 2008 15:11:00 -0000	1.86
+++ target-thread.lisp	29 Jan 2008 14:08:27 -0000	1.87
@@ -679,20 +679,20 @@
             ;; 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