10.\7f\7fCVS: ----------------------------------------------------------------------

[sbcl.git] / src / compiler / generic / utils.lisp

diff --git a/src/compiler/generic/utils.lisp b/src/compiler/generic/utils.lisp
index 1ebf85d..7b433a2 100644 (file)
--- a/src/compiler/generic/utils.lisp
+++ b/src/compiler/generic/utils.lisp
@@ -19,7 +19,7 @@
       (error "~W is too big for a fixnum." num)))
 
 ;;; Determining whether a constant offset fits in an addressing mode.
-#!+x86
+#!+(or x86 x86-64)
 (defun foldable-constant-offset-p (element-size lowtag data-offset offset)
   (if (< element-size n-byte-bits)
       nil