Commit c2dc8ac5 authored by Christophe Rhodes's avatar Christophe Rhodes
Browse files

0.8.7.39: 

	F_GETFL and test case from Helmut Eller for sb-posix
parent b20abacb

contrib/sb-posix/constants.lisp

+1 −0
Original line number Diff line number Diff line
@@ -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")

contrib/sb-posix/posix-tests.lisp

+5 −0
Original line number Diff line number Diff line
@@ -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)

version.lisp-expr

+1 −1
Original line number Diff line number Diff line
@@ -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"