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

diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp
index 328cff6..92c529c 100644
--- a/src/code/host-alieneval.lisp
+++ b/src/code/host-alieneval.lisp
@@ -285,9 +285,6 @@
              `((%def-auxiliary-alien-types ',*new-auxiliary-types*)))
          ,@(when name
              `((%define-alien-type ',name ',alien-type)))))))
-(def!macro def-alien-type (&rest rest)
-  (deprecation-warning 'def-alien-type 'define-alien-type)
-  `(define-alien-type ,@rest))
 
 (eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
   (defun %def-auxiliary-alien-types (types)
@@ -463,15 +460,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)