Commit 0c1e4f6d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

More test frobbing for SBCL/Windows

parent bdde8a36
...@@ -122,8 +122,9 @@ ...@@ -122,8 +122,9 @@
(print-condition-backtrace c)) (print-condition-backtrace c))
(return nil)))) (return nil))))
(with-open-file (stream (component-pathname file) (with-open-file (stream (component-pathname file)
:direction :output :if-exists :supersede :direction :output :if-exists :rename-and-delete
:if-does-not-exist :error) :if-does-not-exist :error)
;; SBCL on Windows hates :supersede here
(print start-time stream) (print start-time stream)
t))) t)))
(incf file-failures) (incf file-failures)
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
(defun dewindowize (x) (defun dewindowize (x)
(block () (block ()
(setf x (remove (code-char 13) x)) (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)) (when (eql #\space (last-char x))
(return (subseq x 0 (1- (length x))))) (return (subseq x 0 (1- (length x)))))
x)) x))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment