Commit 7bb84d2e authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Punt on the final space emitted by CMD.EXE's echo on Windows.

It's not just present in buggy implementations,
it's inevitable on all implementations that rely on shell redirection.
parent eb8a5245
......@@ -5,7 +5,8 @@
(defun dewindowize (x)
(block ()
(setf x (remove (code-char 13) x))
#+(and (or sbcl lispworks) os-windows) ;; buggy implementations output extra space on Windows. Also old CCL.
;; Some buggy implementations output extra space on Windows;
;; Implementations that rely on shell redirection on Windows also do, as a limitation.
(when (eql #\space (last-char x))
(return (subseq x 0 (1- (length x)))))
x))
......
......@@ -760,7 +760,7 @@ It returns a process-info plist with possible keys:
(values (list normalized) ())))
(reduce/strcat
(append
before (redirect in "<") (redirect out ">") (redirect err " 2>")
before (redirect in " <") (redirect out " >") (redirect err " 2>")
(when (and directory (os-unix-p)) `("cd " (escape-shell-token directory) " ; "))
after)))))
......
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