From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 30 Mar 2011 18:39:01 +0000 (+0000)
Subject: 1.0.47.7: sb-posix: add rdev member to stat
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f20b7ed7d74fcf84c38735cf01dc140670b627a6;p=sbcl.git

1.0.47.7: sb-posix: add rdev member to stat

  Patch by Philipp Marek.
---

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index c35bde0..3aab1b6 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -317,6 +317,8 @@
               ((unsigned 32) dev "dev_t" "st_dev")
               (nlink-t nlink "nlink_t" "st_nlink")
               (uid-t uid "uid_t" "st_uid")
+              #-mips
+              (dev-t rdev "dev_t" "st_rdev")
               (gid-t gid "gid_t" "st_gid")
               (off-t size "off_t" "st_size")
               (time-t atime "time_t" "st_atime")
diff --git a/contrib/sb-posix/defpackage.lisp b/contrib/sb-posix/defpackage.lisp
index da8b82b..ecdd292 100644
--- a/contrib/sb-posix/defpackage.lisp
+++ b/contrib/sb-posix/defpackage.lisp
@@ -17,6 +17,7 @@
            #:group-name #:group-gid #:group-passwd
            #:stat-mode #:stat-ino #:stat-dev #:stat-nlink #:stat-uid
            #:stat-gid #:stat-size #:stat-atime #:stat-mtime #:stat-ctime
+           #:stat-rdev
            #:termios-iflag #:termios-oflag #:termios-cflag
            #:termios-lflag #:termios-cc #:timeval-sec #:timeval-usec
            #:flock-type #:flock-whence #:flock-start #:flock-len
diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp
index ac580c7..3ac862e 100644
--- a/contrib/sb-posix/interface.lisp
+++ b/contrib/sb-posix/interface.lisp
@@ -524,6 +524,8 @@ not supported."
                          bytes.  For symbolic links, the length
                          in bytes of the filename contained in
                          the symbolic link.")
+   (rdev :initarg :rdev :reader stat-rdev
+          :documentation "For devices the device number.")
    (atime :initarg :atime :reader stat-atime
           :documentation "Time of last access.")
    (mtime :initarg :mtime :reader stat-mtime
diff --git a/version.lisp-expr b/version.lisp-expr
index 4834d4f..54b27c5 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -20,4 +20,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".)
-"1.0.47.6"
+"1.0.47.7"