[Cmucl-cvs] [git] CMU Common Lisp branch rtoy-netbsd-64-bit-time-t updated. 20f-57-g0bb2950

Raymond Toy rtoy at common-lisp.net
Mon Oct 27 15:31:44 UTC 2014

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, rtoy-netbsd-64-bit-time-t has been updated
       via  0bb2950b26f392c41da55f01b4a7d52ae0648a3a (commit)
      from  088e156b8a32786a55269874e19496c2ba104fdf (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0bb2950b26f392c41da55f01b4a7d52ae0648a3a
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Mon Oct 27 08:23:38 2014 -0700

    Minor tweaks for solaris.

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index bc178f2..8e9e137 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -215,9 +215,9 @@
 (def-alien-type caddr-t (* char))
 (def-alien-type ino-t
-    #+(or linux (and bsd (not netbsd))) unsigned-long
     #+netbsd u-int64-t
-    #+alpha unsigned-int)
+    #+alpha unsigned-int
+    #-(or alpha netbsd) unsigned-long)
 (def-alien-type swblk-t long)
@@ -2363,7 +2363,9 @@
    returns NIL and the errno."
   (with-alien ((tv (struct timeval))
 	       #-(or svr4 netbsd) (tz (struct timezone)))
-    (syscall* (#+netbsd #-netbsd "gettimeofday" "__gettimeofday50" (* (struct timeval)) #-svr4 (* (struct timezone)))
+    (syscall* (#-netbsd "gettimeofday"
+	       #+netbsd  "__gettimeofday50"
+	       (* (struct timeval)) #-svr4 (* (struct timezone)))
 	      (values T
 		      (slot tv 'tv-sec)
 		      (slot tv 'tv-usec)


Summary of changes:
 src/code/unix.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

CMU Common Lisp

More information about the cmucl-cvs mailing list