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