X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fx86%2Falloc.lisp;h=3131e454bf523bec6966b2fdec0b7e53967408bb;hb=063900ddad92b24ce64ae0d41942c40405047466;hp=84d49c5f26b34393109deb23766378040c9d150b;hpb=f5bb745fdcc44fb8781c188ee8a909efbca79f7b;p=sbcl.git

diff --git a/src/assembly/x86/alloc.lisp b/src/assembly/x86/alloc.lisp
index 84d49c5..3131e45 100644
--- a/src/assembly/x86/alloc.lisp
+++ b/src/assembly/x86/alloc.lisp
@@ -111,7 +111,7 @@
                ;; Now with the lock held, see if the symbol's tls index has been
                ;; set in the meantime.
                (loadw target other symbol-tls-index-slot other-pointer-lowtag)
-               (inst or target target)
+               (inst test target target)
                (inst jmp :ne release-tls-index-lock)
                ;; Allocate a new tls-index.
                (load-symbol-value target *free-tls-index*)