diff --git a/sample-files/file-error.txt b/file-error.txt similarity index 100% rename from sample-files/file-error.txt rename to file-error.txt diff --git a/files/file-error.lsp b/files/file-error.lsp index 8fe3b48eaa28d9e1b0420c39b5ac3bc310502f8b..43ae76bf2a02521400c62c9f7c7176c6f77fa1b4 100644 --- a/files/file-error.lsp +++ b/files/file-error.lsp @@ -56,7 +56,7 @@ t t t) (deftest file-error-pathname.5 - (with-open-file (s "sample-files/file-error.txt" :direction :input) + (with-open-file (s "file-error.txt" :direction :input) (let ((c (make-condition 'file-error :pathname s))) (values (notnot (typep c 'file-error)) @@ -65,7 +65,7 @@ t t t) (deftest file-error-pathname.6 - (let ((s (open "sample-files/file-error.txt" :direction :input))) + (let ((s (open "file-error.txt" :direction :input))) (close s) (let ((c (make-condition 'file-error :pathname s))) (values