X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fthreads.pure.lisp;h=b10820a594d2e8be5903d992afaab7c9b010fa19;hb=5d5894082c39ca44da75d38859d669c7b2108f6a;hp=ef019a4b9f02a271f03bcb0d6f724aad31585ddd;hpb=66b919851a8564e8f21247703d54c01c293414f8;p=sbcl.git

diff --git a/tests/threads.pure.lisp b/tests/threads.pure.lisp
index ef019a4..b10820a 100644
--- a/tests/threads.pure.lisp
+++ b/tests/threads.pure.lisp
@@ -56,8 +56,7 @@
 #+sb-thread
 (with-test (:name without-interrupts+get-mutex)
   (let* ((lock (make-mutex))
-         (foo (get-mutex lock))
-         (bar nil)
+         (bar (progn (get-mutex lock) nil))
          (thread (make-thread (lambda ()
                                 (sb-sys:without-interrupts
                                     (with-mutex (lock)