|
Lines 233-239
Link Here
|
| 233 |
(logand mode (logior sb-posix::s-iread sb-posix::s-iwrite sb-posix::s-iexec))) |
233 |
(logand mode (logior sb-posix::s-iread sb-posix::s-iwrite sb-posix::s-iexec))) |
| 234 |
#.(logior sb-posix::s-iread sb-posix::s-iwrite sb-posix::s-iexec)) |
234 |
#.(logior sb-posix::s-iread sb-posix::s-iwrite sb-posix::s-iexec)) |
| 235 |
|
235 |
|
| 236 |
#-win32 |
236 |
#-(or win32 linux) |
| 237 |
(deftest stat.2 |
237 |
(deftest stat.2 |
| 238 |
(let* ((stat (sb-posix:stat "/")) |
238 |
(let* ((stat (sb-posix:stat "/")) |
| 239 |
(mode (sb-posix::stat-mode stat))) |
239 |
(mode (sb-posix::stat-mode stat))) |
|
Lines 254-260
Link Here
|
| 254 |
(< (- atime unix-now) 10)) |
254 |
(< (- atime unix-now) 10)) |
| 255 |
t) |
255 |
t) |
| 256 |
|
256 |
|
| 257 |
#-win32 |
257 |
#-(or win32 linux) |
| 258 |
(deftest stat.4 |
258 |
(deftest stat.4 |
| 259 |
(let* ((stat (sb-posix:stat (make-pathname :directory '(:absolute :up)))) |
259 |
(let* ((stat (sb-posix:stat (make-pathname :directory '(:absolute :up)))) |
| 260 |
(mode (sb-posix::stat-mode stat))) |
260 |
(mode (sb-posix::stat-mode stat))) |
