From c2dc8ac5336601717af4e7bb09a67c19758181e0 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 2 Feb 2004 17:13:31 +0000 Subject: [PATCH] 0.8.7.39: F_GETFL and test case from Helmut Eller for sb-posix --- contrib/sb-posix/constants.lisp | 1 + contrib/sb-posix/posix-tests.lisp | 5 +++++ version.lisp-expr | 2 +- 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp index ff3846c..b5707b2 100644 --- 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 --- 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 --- 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" -- 1.7.10.4