Loading src/code/filesys.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -1478,4 +1478,4 @@ optionally keeping some of the most recent old versions." (retry () :report "Try to create the directory again" (go retry)))))) ;; Only the first path in a search-list is considered. (return (values pathname created-p)))))) (return (values pathspec created-p)))))) tests/filesys.lisp +3 −3 Original line number Diff line number Diff line Loading @@ -10,7 +10,7 @@ (define-test unix-namestring.1.exists ;; Make sure the desired directories exist. (assert-equal #P"/tmp/foo/bar/hello.txt" (assert-equal "/tmp/foo/bar/hello.txt" (ensure-directories-exist "/tmp/foo/bar/hello.txt")) (dolist (path '("/tmp/hello.txt" "/tmp/foo/" Loading @@ -27,7 +27,7 @@ (define-test unix-namestring.1.non-existent ;; Make sure the desired directories exist. (assert-equal #P"/tmp/foo/bar/hello.txt" (assert-equal "/tmp/foo/bar/hello.txt" (ensure-directories-exist "/tmp/foo/bar/hello.txt")) ;; These paths contain directories that don't exist. (dolist (path '("/tmp/oops/" Loading @@ -42,7 +42,7 @@ (define-test unix-namestring.2 ;; Make sure the desired directories exist. (assert-equal #P"/tmp/foo/bar/hello.txt" (assert-equal "/tmp/foo/bar/hello.txt" (ensure-directories-exist "/tmp/foo/bar/hello.txt")) (unwind-protect (progn Loading Loading
src/code/filesys.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -1478,4 +1478,4 @@ optionally keeping some of the most recent old versions." (retry () :report "Try to create the directory again" (go retry)))))) ;; Only the first path in a search-list is considered. (return (values pathname created-p)))))) (return (values pathspec created-p))))))
tests/filesys.lisp +3 −3 Original line number Diff line number Diff line Loading @@ -10,7 +10,7 @@ (define-test unix-namestring.1.exists ;; Make sure the desired directories exist. (assert-equal #P"/tmp/foo/bar/hello.txt" (assert-equal "/tmp/foo/bar/hello.txt" (ensure-directories-exist "/tmp/foo/bar/hello.txt")) (dolist (path '("/tmp/hello.txt" "/tmp/foo/" Loading @@ -27,7 +27,7 @@ (define-test unix-namestring.1.non-existent ;; Make sure the desired directories exist. (assert-equal #P"/tmp/foo/bar/hello.txt" (assert-equal "/tmp/foo/bar/hello.txt" (ensure-directories-exist "/tmp/foo/bar/hello.txt")) ;; These paths contain directories that don't exist. (dolist (path '("/tmp/oops/" Loading @@ -42,7 +42,7 @@ (define-test unix-namestring.2 ;; Make sure the desired directories exist. (assert-equal #P"/tmp/foo/bar/hello.txt" (assert-equal "/tmp/foo/bar/hello.txt" (ensure-directories-exist "/tmp/foo/bar/hello.txt")) (unwind-protect (progn Loading