1.0.47.7: sb-posix: add rdev member to stat
Patch by Philipp Marek.
Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.5236
diff -u -r1.5236 version.lisp-expr
--- version.lisp-expr 30 Mar 2011 18:06:04 -0000 1.5236
+++ version.lisp-expr 30 Mar 2011 18:35:24 -0000
@@ -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"
Index: contrib/sb-posix/constants.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/constants.lisp,v
retrieving revision 1.49
diff -u -r1.49 constants.lisp
--- contrib/sb-posix/constants.lisp 1 Sep 2010 18:11:10 -0000 1.49
+++ contrib/sb-posix/constants.lisp 30 Mar 2011 18:35:24 -0000
@@ -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")
Index: contrib/sb-posix/defpackage.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/defpackage.lisp,v
retrieving revision 1.17
diff -u -r1.17 defpackage.lisp
--- contrib/sb-posix/defpackage.lisp 30 Mar 2011 16:48:49 -0000 1.17
+++ contrib/sb-posix/defpackage.lisp 30 Mar 2011 18:35:24 -0000
@@ -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
Index: contrib/sb-posix/interface.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/interface.lisp,v
retrieving revision 1.65
diff -u -r1.65 interface.lisp
--- contrib/sb-posix/interface.lisp 30 Mar 2011 16:48:49 -0000 1.65
+++ contrib/sb-posix/interface.lisp 30 Mar 2011 18:35:24 -0000
@@ -524,6 +524,8 @@
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
|