X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fthreads.pure.lisp;h=cb1a827f9ef106a267ef1e9458fea35c7af2c14d;hb=277ef97eeb9de2ad5982f44e5a34c0969e494bc0;hp=fbffaaab68d5c3ec46c88404c1552e4537ee6392;hpb=695734b2aff0e6b7ee7ea6f0424d3c0b46d088ca;p=sbcl.git

diff --git a/tests/threads.pure.lisp b/tests/threads.pure.lisp
index fbffaaa..cb1a827 100644
--- a/tests/threads.pure.lisp
+++ b/tests/threads.pure.lisp
@@ -110,12 +110,12 @@
                (values
                 (loop for r from 0 below n
                       collect
-                      (let ((r r))
-                        (sb-thread:make-thread (lambda ()
-                                                 (let ((sem semaphore))
-                                                   (dotimes (s i)
-                                                     (sb-thread:wait-on-semaphore sem))))
-                                               :name "reader")))
+                      (sb-thread:make-thread
+                       (lambda ()
+                         (let ((sem semaphore))
+                           (dotimes (s i)
+                             (sb-thread:wait-on-semaphore sem))))
+                       :name "reader"))
                 (* n i)))
              (make-writers (n readers i)
                (let ((j (* readers i)))
@@ -124,12 +124,12 @@
                     (let ((writers
                            (loop for w from 0 below n
                                  collect
-                                 (let ((w w))
-                                   (sb-thread:make-thread (lambda ()
-                                                            (let ((sem semaphore))
-                                                              (dotimes (s k)
-                                                                (sb-thread:signal-semaphore sem))))
-                                                          :name "writer")))))
+                                 (sb-thread:make-thread
+                                  (lambda ()
+                                    (let ((sem semaphore))
+                                      (dotimes (s k)
+                                        (sb-thread:signal-semaphore sem))))
+                                  :name "writer"))))
                       (assert (zerop rem))
                       writers)
                     (+ rem (* n k))))))