(defvar *current-directory* *default-pathname-defaults*)
(defvar *this-file* *load-truename*)
+
+(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)))
\f
(deftest chdir.1
(sb-posix:chdir *test-directory*)
(dir2 (merge-pathnames
(make-pathname :directory '(:relative "unremovable"))
dir)))
- (sb-posix:mkdir dir #xffffffff)
- (sb-posix:mkdir dir2 #xffffffff)
+ (sb-posix:mkdir dir +mode-rwx-all+)
+ (sb-posix:mkdir dir2 +mode-rwx-all+)
(sb-posix:chmod dir 0)
(handler-case
(sb-posix:rmdir dir2)
(file (merge-pathnames
(make-pathname :name "unstatable")
dir)))
- (sb-posix:mkdir dir #xffffffff)
+ (sb-posix:mkdir dir +mode-rwx-all+)
(with-open-file (s file :direction :output)
(write "" :stream s))
(sb-posix:chmod dir 0)