X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fassem.lisp;h=ba5c68e67214312458061645e731ea020dcc342c;hb=6a9bbe6f36179cee92001a1f9ed5ff38be512644;hp=716496c98fad0aeac996e330304e648d4588e909;hpb=d7a65edee206acbc002f634cea6f1af22be9fe55;p=sbcl.git

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index 716496c..ba5c68e 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -1270,8 +1270,7 @@
     (setf (segment-postits segment) (segment-postits other-segment))
     (dolist (postit postits)
       (emit-back-patch segment 0 postit)))
-  #!-x86 (emit-alignment segment nil max-alignment)
-  #!+x86 (emit-alignment segment nil max-alignment #x90)
+  (emit-alignment segment nil max-alignment #!+(or x86-64 x86) #x90)
   (let ((segment-current-index-0 (segment-current-index segment))
 	(segment-current-posn-0  (segment-current-posn  segment)))
     (incf (segment-current-index segment)