Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl
Commits:
1 changed file:
Changes:
src/code/unix.lisp
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -1111,6 +1111,14 @@
(d-type unsigned-char)
(d-name (array char 512))))
+#+(or linux svr4)
+; High-res time. Actually posix definition under svr4 name.
+(def-alien-type nil
+ (struct timestruc-t
+ (tv-sec time-t)
+ (tv-nsec long)))
+
+
;;; Large file support for Solaris. Define some of the 64-bit types
;;; we need. Unlike unix-glibc's large file support, Solaris's
;;; version is a little simpler because all of the 64-bit versions of