X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fconstants.lisp;h=3c753ff6bbce2cc97aaf49b89c1b6c04004a8e6d;hb=4f87ff15a8a6259e59a297fcf74b0c6c8f60c1c4;hp=440adb36441e26fc36c670f6908cdb0e88c0494d;hpb=f12ff05dee073e9e2af0e1bef4569d0d19759cc5;p=sbcl.git

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index 440adb3..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)
@@ -367,8 +376,8 @@
  ;; utime(), utimes()
  #-win32
  (:type suseconds-t ; OAOOM warning: similar kludge in tools-for-build
-        #-(and darwin ppc) "suseconds_t"
-        #+(and darwin ppc) "int")
+        #+os-provides-suseconds-t "suseconds_t"
+        #-os-provides-suseconds-t "long")
 
  #-win32
  (:structure alien-utimbuf