diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script index 525716d9d84d22aa916c67e7a27c744b1a3a9433..89b73170eb6ab4265331761884f04243113b1807 100644 --- a/test/asdf-pathname-test.script +++ b/test/asdf-pathname-test.script @@ -122,9 +122,9 @@ (print-condition-backtrace c)) (return nil)))) (with-open-file (stream (component-pathname file) - :direction :output :if-exists :rename-and-delete + :direction :output :if-exists + (or #+(and sbcl os-windows) :rename-and-delete :supersede) :if-does-not-exist :error) - ;; SBCL on Windows hates :supersede here (print start-time stream) t))) (incf file-failures)