Commit 1402852d authored by Dave Cooper's avatar Dave Cooper Committed by Francois-Rene Rideau
Browse files

added lispworks to dewindowize for extra space on windows in run-program

parent 3c73a7a0
......@@ -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 (or sbcl lispworks) 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))
......
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