X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhost-alieneval.lisp;h=dea6d47ceb5e2852f4c2786a32abe53d35e7271f;hb=230707c1899c1c008f7ce2ad97e2fd04849f7443;hp=4f018d641425858630607f5e9e4fdd1cf8d12971;hpb=dfbff798ed328e5507f97b4adccc57430e274407;p=sbcl.git

diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp
index 4f018d6..dea6d47 100644
--- a/src/code/host-alieneval.lisp
+++ b/src/code/host-alieneval.lisp
@@ -22,7 +22,7 @@
 
 (defun guess-alignment (bits)
   (cond ((null bits) nil)
-        #!-(or x86 (and ppc darwin)) ((> bits 32) 64)
+        #!-(or (and x86 (not win32)) (and ppc darwin)) ((> bits 32) 64)
         ((> bits 16) 32)
         ((> bits 8) 16)
         ((> bits 1) 8)