From 0c1e4f6d2efcc47210d37304d584b7cdcda08afc Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 14 Oct 2013 23:31:34 -0400
Subject: [PATCH] More test frobbing for SBCL/Windows

---
 test/asdf-pathname-test.script | 3 ++-
 test/test-run-program.script   | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script
index 8c8ab984..525716d9 100644
--- a/test/asdf-pathname-test.script
+++ b/test/asdf-pathname-test.script
@@ -122,8 +122,9 @@
                                           (print-condition-backtrace c))
                                         (return nil))))
                 (with-open-file (stream (component-pathname file)
-                                        :direction :output :if-exists :supersede
+                                        :direction :output :if-exists :rename-and-delete
                                         :if-does-not-exist :error)
+                  ;; SBCL on Windows hates :supersede here
                   (print start-time stream)
                   t)))
       (incf file-failures)
diff --git a/test/test-run-program.script b/test/test-run-program.script
index dccffc6a..9c0aa84c 100644
--- a/test/test-run-program.script
+++ b/test/test-run-program.script
@@ -5,7 +5,7 @@
 (defun dewindowize (x)
   (block ()
     (setf x (remove (code-char 13) x))
-    #+(and sbcl os-windows) ;; buggy implementations output extra space on Windows. Also old CCL.
+    ;;#+(and sbcl os-windows) ;; buggy implementations output extra space on Windows. Also old CCL.
     (when (eql #\space (last-char x))
       (return (subseq x 0 (1- (length x)))))
     x))
-- 
GitLab