From 49b507fb2819471003478262c67b13aa31f5b471 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Tue, 15 Oct 2013 18:39:13 -0400 Subject: [PATCH] Keep sbcl/windows workaround in asdf-pathname-test without breaking allegro. --- test/asdf-pathname-test.script | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script index 525716d9..89b73170 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) -- GitLab