Commit 6043552a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Try harder for SBCL/Win.

parent 0c1e4f6d
......@@ -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))
......@@ -52,10 +52,6 @@
(run-program "echo foo ; echo bar >&2 ; echo baz ; echo quux >& 2"
:output :lines :error-output :output))))
#+(and sbcl os-windows)
(leave-test "SBCL run-program is a big fail on windows")
(DBG "Testing awkward legacy output capture via run-shell-command")
(let ((ok1 (format nil "; $ echo ok 1~%ok 1")))
(assert-equal
......
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