From 912cb900e34ba8d03a5b6a46b7271e94b37f26e6 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 20 Apr 2004 11:04:47 +0000
Subject: [PATCH] Don't use probe-file on a directory

---
 ansi-tests/ensure-directories-exist.lsp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/ansi-tests/ensure-directories-exist.lsp b/ansi-tests/ensure-directories-exist.lsp
index 50e80433..4bfa4100 100644
--- a/ansi-tests/ensure-directories-exist.lsp
+++ b/ansi-tests/ensure-directories-exist.lsp
@@ -113,12 +113,12 @@
 ;; test is run
 (deftest ensure-directories-exist.8
   (let* ((subdir (make-pathname :directory '(:relative "scratch")
-				:defaults *default-pathname-defaults*)))
-    (assert (not (probe-file subdir)) ()
-	    "Delete subdirectory scratch!")
-    (let* ((pn (make-pathname :name "foo" :type "txt"
-			      :defaults subdir))
-	   (results nil)
+				:defaults *default-pathname-defaults*))
+	 (pn (make-pathname :name "foo" :type "txt"
+			    :defaults subdir)))
+    (assert (not (probe-file pn)) ()
+	    "Delete subdirectory scratch and its contents!")
+    (let* ((results nil)
 	   (verbosity
 	    (with-output-to-string
 	      (*standard-output*)
-- 
GitLab