X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffilesys.pure.lisp;h=f6ac941d9714948691cfd8d3b77c3a4ea165f42c;hb=83659744f9caa97aa83eb562d872b1c0127403c0;hp=4be0257a87c2dcb74d693666fe67eaf5136dfaba;hpb=0567612118d44cde39bb41058a4d06e771fcf0c6;p=sbcl.git diff --git a/tests/filesys.pure.lisp b/tests/filesys.pure.lisp index 4be0257..f6ac941 100644 --- a/tests/filesys.pure.lisp +++ b/tests/filesys.pure.lisp @@ -32,8 +32,7 @@ ;; We know a little bit about the structure of this result; ;; let's test to make sure that this test file is in it. (assert (find-if (lambda (pathname) - (search #-win32 "tests/filesys.pure.lisp" - #+win32 "tests\\filesys.pure.lisp" + (search "tests/filesys.pure.lisp" (namestring pathname))) dir))) ;;; In sbcl-0.9.7 DIRECTORY failed on pathnames with character-set