diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script index 8c8ab984ff1dd2d48c502ab033a96779ba8d4d32..525716d9d84d22aa916c67e7a27c744b1a3a9433 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 dccffc6aca2ad7dd4df8f57e7d44dcc0feab712d..9c0aa84c105739433463ed5b9233252ada561c46 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))