X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhost-alieneval.lisp;h=66868d077c65104e5d90aecef78798b75d03112c;hb=599a126c55a6f28e0b5b8a931cb1628c2ee106a7;hp=328cff652bfa2991c0a6f9057da8aecd95ec637b;hpb=6fa968aaa8051da23cc3153a1c0e67addbea85f6;p=sbcl.git

diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp
index 328cff6..66868d0 100644
--- a/src/code/host-alieneval.lisp
+++ b/src/code/host-alieneval.lisp
@@ -463,15 +463,16 @@
                  ',type)))
 
 (def!macro maybe-with-pinned-objects (variables types &body body)
+  (declare (ignorable variables types))
   (let ((pin-variables
          ;; Only pin things on x86/x86-64, since on non-conservative
          ;; gcs it'd imply disabling the GC. Which is something we
          ;; don't want to do every time we're calling to C.
-         #+(or x86 x86-64)
+         #!+(or x86 x86-64)
          (loop for variable in variables
-               for type in types
-               when (invoke-alien-type-method :deport-pin-p type)
-               collect variable)))
+            for type in types
+            when (invoke-alien-type-method :deport-pin-p type)
+            collect variable)))
     (if pin-variables
         `(with-pinned-objects ,pin-variables
            ,@body)