X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcompiler%2Fx86%2Ftype-vops.lisp;h=206cf8118e5590175dc5c8088d1dde0f0b7490aa;hb=4eb1a6d3ad2b7dcc19ac0ec979a1eb1eb049659a;hp=f780568da280dcb3a086681941b8f05bf9ed78a3;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git

diff --git a/src/compiler/x86/type-vops.lisp b/src/compiler/x86/type-vops.lisp
index f780568..206cf81 100644
--- a/src/compiler/x86/type-vops.lisp
+++ b/src/compiler/x86/type-vops.lisp
@@ -118,7 +118,7 @@
 		 3))
 	  ((sc-is value control-stack)
 	   (inst test (make-ea :byte :base ebp-tn
-			       :disp (- (* (1+ offset) sb!vm:word-bytes)))
+			       :disp (- (* (1+ offset) n-word-bytes)))
 		 3))
 	  (t
 	   (inst test value 3)))))