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)
-                                          (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*))))
-                        #'string<)) 
+                        #'string<))
         (sb-posix:closedir dir)))
   t)