0.9.1.27: (truename "symlink-to-dir") === (truename "symlink-to-dir/")

[sbcl.git] / tests / stream.impure.lisp

diff --git a/tests/stream.impure.lisp b/tests/stream.impure.lisp
index f133a35..fdc294b 100644 (file)
--- a/tests/stream.impure.lisp
+++ b/tests/stream.impure.lisp
@@ -141,6 +141,7 @@
           (with-open-file (f test :direction :output)
             (write-line "test" f))
           (test-mode :append)
+          (test-mode :overwrite)
           ;; FIXME: We really should recover supersede files as well, according to
           ;; CLOSE in CLHS, but at the moment we don't.
           ;; (test-mode :supersede)