X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fearly-assem.lisp;h=24501681467bdf4bc5f68f0fbf7b8ef56b221eed;hb=6a9bbe6f36179cee92001a1f9ed5ff38be512644;hp=13e756ad27b72cbec01e2233c21fb0ae9a5ed83c;hpb=8731c1a7c1a585d190151fa881050fb5e14c0616;p=sbcl.git

diff --git a/src/compiler/early-assem.lisp b/src/compiler/early-assem.lisp
index 13e756a..2450168 100644
--- a/src/compiler/early-assem.lisp
+++ b/src/compiler/early-assem.lisp
@@ -45,7 +45,8 @@
 ;;; the maximum alignment we can guarantee given the object format. If
 ;;; the loader only loads objects 8-byte aligned, we can't do any
 ;;; better then that ourselves.
-(def!constant max-alignment 3)
+(def!constant max-alignment sb!vm:n-lowtag-bits)
+
 
 (deftype alignment ()
   `(integer 0 ,max-alignment))