From 07f9be96a046393b2f08a1cb25d66e7c28bf6bbb Mon Sep 17 00:00:00 2001
From: Cyrus Harmon <ch-sbcl@bobobeach.com>
Date: Sat, 3 Mar 2007 18:28:43 +0000
Subject: [PATCH] 1.0.3.22: fix with-pinned-object buglets  * on ppc types and
 variables were unused, which was causing a warning    which
 was getting promoted to an error. make them ignorable.  *
 #+(or x86 x86-64) -> #!+(or x86 x86-64) which should help
 building    from non sbcl hosts.  * also fix indentation in
 timeval struct definition

---
 src/code/host-alieneval.lisp |    9 +++++----
 src/code/unix.lisp           |   12 ++++++------
 2 files changed, 11 insertions(+), 10 deletions(-)

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)
diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index be0e228..7f655d1 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -189,15 +189,15 @@ SYSCALL-FORM. Repeat evaluation of SYSCALL-FORM if it is interrupted."
 ;; problematic on Darwin x86-64 (and wrong). Trying suseconds-t.
 #!-win32
 (define-alien-type nil
-    (struct timeval
-            (tv-sec time-t)             ; seconds
-            (tv-usec suseconds-t))) ; and microseconds
+  (struct timeval
+          (tv-sec time-t)           ; seconds
+          (tv-usec suseconds-t)))   ; and microseconds
 
 #!+win32
 (define-alien-type nil
-    (struct timeval
-            (tv-sec time-t)             ; seconds
-            (tv-usec long)))          ; and microseconds
+  (struct timeval
+          (tv-sec time-t)           ; seconds
+          (tv-usec long)))          ; and microseconds
 
 ;;;; resourcebits.h
 
-- 
1.7.10.4