+
+(eval-when (:compile-toplevel :load-toplevel)
+ (defconstant +mode-rwx-all+ (logior sb-posix::s-irusr sb-posix::s-iwusr sb-posix::s-ixusr
+ sb-posix::s-irgrp sb-posix::s-iwgrp sb-posix::s-ixgrp
+ sb-posix::s-iroth sb-posix::s-iwoth sb-posix::s-ixoth)))