X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fstream.impure.lisp;h=fdc294bf89d9b0dca7d5eeb4832a38d73b65600a;hb=f369c736b57608402903ce5c59be78a87ef23364;hp=f133a356ed33dfd814ac9f08ef196e918fc0f067;hpb=eadbbfbdfa228593bbc0841f38a44b5d8985a2fe;p=sbcl.git

diff --git a/tests/stream.impure.lisp b/tests/stream.impure.lisp
index f133a35..fdc294b 100644
--- 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)