+
+#!+win32
+(progn
+ (defconstant o_rdonly 0)
+ (defconstant o_wronly 1)
+ (defconstant o_rdwr 2)
+ (defconstant o_creat #x100)
+ (defconstant o_trunc #x200)
+ (defconstant o_append #x008)
+ (defconstant o_excl #x400)
+ (defconstant enoent 2)
+ (defconstant eexist 17)
+ (defconstant espipe 29)
+ (defconstant o_binary #x8000)
+ (defconstant s-ifmt #xf000)
+ (defconstant s-ifdir #x4000)
+ (defconstant s-ifreg #x8000)
+ (define-alien-type ino-t short)
+ (define-alien-type time-t long)
+ (define-alien-type off-t long)
+ (define-alien-type size-t long)
+ (define-alien-type mode-t unsigned-short)
+
+ ;; For stat-wrapper hack (different-type or non-existing win32 fields).
+ (define-alien-type nlink-t short)
+ (define-alien-type uid-t short)
+ (define-alien-type gid-t short))