From c076d5501e7c12e8c9dcebbc30b117d0e9cc649d Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sat, 16 May 2015 22:09:57 -0700 Subject: [PATCH] Support for netbsd. From Robert Swindells. --- src/code/unix.lisp | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/src/code/unix.lisp b/src/code/unix.lisp index 8eed51d7e..3986edcf3 100644 --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -1226,6 +1226,27 @@ (st-fstype (array char 16)) (st-pad4 (array long 8)))) +#+netbsd +(def-alien-type nil + (struct stat + (st-dev dev-t) + (st-mode mode-t) + (st-ino ino-t) + (st-nlink nlink-t) + (st-uid uid-t) + (st-gid gid-t) + (st-rdev dev-t) + (st-atime (struct timespec-t)) + (st-mtime (struct timespec-t)) + (st-ctime (struct timespec-t)) + (st-birthtime (struct timespec-t)) + (st-size off-t) + (st-blocks off-t) + (st-blksize long) + (st-flags unsigned-long) + (st-gen unsigned-long) + (st-spare (array unsigned-long 2)))) + (defmacro extract-stat-results (buf) `(values T (slot ,buf 'st-dev) -- GitLab