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

diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp
index 328cff6..66868d0 100644 (file)
--- 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 (file)
--- 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
 \f
 ;;;; resourcebits.h