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