From 11a9b9ba4fa60dd644d019300adc6859111b9c66 Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Sat, 26 Dec 2020 19:42:25 +0100
Subject: [PATCH] fix bogus error in ensure-directories-exist.8

The test would succeed only the first time it was run, since it was
creating a temporary directory each run which wasn't cleaned up.
---
 files/ensure-directories-exist.lsp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/files/ensure-directories-exist.lsp b/files/ensure-directories-exist.lsp
index bdb67b98..e6fea4b5 100644
--- a/files/ensure-directories-exist.lsp
+++ b/files/ensure-directories-exist.lsp
@@ -106,13 +106,14 @@
 
 ;;; Case where directory shouldn't exist
 
-;; The directort ansi-tests/scratch must not exist before this
-;; test is run
 (deftest ensure-directories-exist.8
   (let* ((subdir (make-pathname :directory '(:relative "scratch")
                                 :defaults *default-pathname-defaults*))
          (pn (make-pathname :name "foo" :type "txt"
                             :defaults subdir)))
+    (ignore-errors
+     (delete-file pn)
+     (delete-file subdir))
     (assert (not (probe-file pn)) ()
             "Delete subdirectory scratch and its contents!")
     (let* ((results nil)
-- 
GitLab