From 6dd1f8e20e6c6fb96a73674fd07c0ce44dbbd71c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Fri, 4 Sep 2015 11:29:14 +0200 Subject: [PATCH] restructure: sample-files directory file-error fix MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Daniel Kochmański <daniel@turtleware.eu> --- sample-files/file-error.txt => file-error.txt | 0 files/file-error.lsp | 4 ++-- 2 files changed, 2 insertions(+), 2 deletions(-) rename sample-files/file-error.txt => file-error.txt (100%) 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 8fe3b48e..43ae76bf 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 -- GitLab