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