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