diff --git a/files/ensure-directories-exist.lsp b/files/ensure-directories-exist.lsp index bdb67b982566e31716ea1d9fd6750eecb2ace779..e6fea4b5e86eaac35e8a593a0292f092a02e1c24 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)