X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Farray.lisp;h=2cd1d081e807cb12adaa348726b1f39d050671a9;hb=a74b61e0469b5954e48600600c0b7b7fe4ff46f8;hp=a0983c2fe46150be4cae4d80e369991b9af48258;hpb=9f71619d17025cc309fefaeac51107ffa8ed5ee4;p=sbcl.git

diff --git a/src/compiler/x86/array.lisp b/src/compiler/x86/array.lisp
index a0983c2..2cd1d08 100644
--- a/src/compiler/x86/array.lisp
+++ b/src/compiler/x86/array.lisp
@@ -260,7 +260,7 @@
 		       (mask ,(1- (ash 1 bits)))
 		       (shift (* extra ,bits)))
 		  (unless (= value mask)
-		    (inst and old (lognot (ash mask shift))))
+		    (inst and old (ldb (byte 32 0) (lognot (ash mask shift)))))
 		  (unless (zerop value)
 		    (inst or old (ash value shift)))))
 	       (unsigned-reg