X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fsystem.lisp;h=46eedb58bda641e761e89c2ce8cc71370b457e93;hb=3fa2feb10ab827fc6cc2a85287e78b6e66b7bf4d;hp=ce91fb436651e8b64d1b5d1c72465e0b72093632;hpb=9b1fade83db8453b75b8c7380eb12ce41b5b889c;p=sbcl.git

diff --git a/src/compiler/x86-64/system.lisp b/src/compiler/x86-64/system.lisp
index ce91fb4..46eedb5 100644
--- a/src/compiler/x86-64/system.lisp
+++ b/src/compiler/x86-64/system.lisp
@@ -44,7 +44,7 @@
     (inst jmp :ne DONE)
 
     ;; Pick off fixnums.
-    (inst and al-tn 7)
+    (inst and al-tn fixnum-tag-mask)
     (inst jmp :e DONE)
 
     ;; must be an other immediate