X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-alieneval.lisp;h=fec2359fbe4a35d3aab8d3671806cb17f8d9986e;hb=37200d73dfca16507809778574092cfb998711d5;hp=13143b8a99d2e09fac5af4c5a6c7cab704e5517b;hpb=aee8a5e9d8d7ccbd10534925ce43fb14dbd0ebd6;p=sbcl.git

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index 13143b8..fec2359 100644
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -180,10 +180,10 @@
     `(symbol-macrolet ((&auxiliary-type-definitions&
                         ,(append *new-auxiliary-types*
                                  (auxiliary-type-definitions env))))
-       #+(or x86 x86-64)
+       #!+(or x86 x86-64)
        (let ((sb!vm::*alien-stack* sb!vm::*alien-stack*))
          ,@body)
-       #-(or x86 x86-64)
+       #!-(or x86 x86-64)
        ,@body)))
 
 ;;;; runtime C values that don't correspond directly to Lisp types