Commit b9bdc68da38c6ff46bb89780d9a8d722cbb2d0a2

Thomas de Grivel 2018-06-15T10:45:16

export type file-descriptor

diff --git a/cffi-unistd.lisp b/cffi-unistd.lisp
index 5edb30e..b26355d 100644
--- a/cffi-unistd.lisp
+++ b/cffi-unistd.lisp
@@ -18,6 +18,9 @@
 
 (in-package :cffi-unistd)
 
+(deftype file-descriptor ()
+  '(unsigned-byte 31))
+
 (defcfun ("access" c-access) :int
   (name :string)
   (type :int))
diff --git a/package.lisp b/package.lisp
index 3bb20d5..6c652b9 100644
--- a/package.lisp
+++ b/package.lisp
@@ -132,6 +132,7 @@
    #:fd-set-filter
    #:fd-zero
    #:fds-bits
+   #:file-descriptor
    #:fork
    #:getcwd
    #:getegid