projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.0.16: fix SB-POSIX:READDIR to work when built with largefile
[sbcl.git]
/
contrib
/
sb-posix
/
posix-tests.lisp
diff --git
a/contrib/sb-posix/posix-tests.lisp
b/contrib/sb-posix/posix-tests.lisp
index
7cc725b
..
78b4754
100644
(file)
--- a/
contrib/sb-posix/posix-tests.lisp
+++ b/
contrib/sb-posix/posix-tests.lisp
@@
-428,12
+428,15
@@
#'string<)
(sort (append '("." "..")
(mapcar (lambda (p)
#'string<)
(sort (append '("." "..")
(mapcar (lambda (p)
- (enough-namestring p *current-directory*))
+ (let ((string (enough-namestring p *current-directory*)))
+ (if (pathname-name p)
+ string
+ (subseq string 0 (1- (length string))))))
(directory (make-pathname
:name :wild
:type :wild
:defaults *current-directory*))))
(directory (make-pathname
:name :wild
:type :wild
:defaults *current-directory*))))
- #'string<))
+ #'string<))
(sb-posix:closedir dir)))
t)
(sb-posix:closedir dir)))
t)