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