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

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