From: Rudi Schlatte <rudi@constantly.at>
Date: Tue, 2 Oct 2007 07:17:26 +0000 (+0000)
Subject: 1.0.10.15: Some sb-posix constants for stat().
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=84ccdc996625fc5f9ded798146c38bc4a5002b27;p=sbcl.git

1.0.10.15: Some sb-posix constants for stat().

    Define S_IFMT and its friends S_IFIFO, S_IFDIR etc.
---

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index bf0fe3b..3c753ff 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -214,6 +214,15 @@
 
  ;; mode_t
  (:type mode-t "mode_t")
+ (:integer s-ifmt "S_IFMT" nil t)
+ (:integer s-ififo "S_IFIFO" nil t)
+ (:integer s-ifchr "S_IFCHR" nil t)
+ (:integer s-ifdir "S_IFDIR" nil t)
+ (:integer s-ifblk "S_IFBLK" nil t)
+ (:integer s-ifreg "S_IFREG" nil t)
+ (:integer s-iflnk "S_IFLNK" nil t)
+ (:integer s-ifsock "S_IFSOCK" nil t)
+ (:integer s-ifwht "S_IFWHT" nil t)
  (:integer s-isuid "S_ISUID" nil t)
  (:integer s-isgid "S_ISGID" nil t)
  (:integer s-isvtx "S_ISVTX" nil t)
diff --git a/version.lisp-expr b/version.lisp-expr
index 293c9d6..4b44c49 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".)
-"1.0.10.14"
+"1.0.10.15"