0.8.7.39:

	F_GETFL and test case from Helmut Eller for sb-posix

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index ff3846c..b5707b2 100644 (file)
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -281,6 +281,7 @@
  (:integer f-dupfd "F_DUPFD")
  (:integer f-getfd "F_GETFD")
  (:integer f-setfd "F_SETFD")
+ (:integer f-getfl "F_GETFL")
  (:integer f-setfl "F_SETFL")
  (:integer f-getlk "F_GETLK")
  (:integer f-setlk "F_SETLK")

diff --git a/contrib/sb-posix/posix-tests.lisp b/contrib/sb-posix/posix-tests.lisp
index 41d9b2f..469b739 100644 (file)
--- a/contrib/sb-posix/posix-tests.lisp
+++ b/contrib/sb-posix/posix-tests.lisp
@@ -326,3 +326,8 @@
     (sb-posix:syscall-error (c)
       (sb-posix:syscall-errno c)))
   #.sb-posix::eisdir)
+
+(deftest fcntl.1
+  (let ((fd (sb-posix:open "/dev/null" sb-posix::o-nonblock)))
+    (= (sb-posix:fcntl fd sb-posix::f-getfl) sb-posix::o-nonblock))
+  t)

diff --git a/version.lisp-expr b/version.lisp-expr
index a80db6b..2f07599 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.7.38"
+"0.8.7.39"