From: Nikodemus S. <nik...@ra...> - 2011-03-30 18:39:08
|
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 |