From 1402852dfb86c6cb9164d00aff4809817107b0dd Mon Sep 17 00:00:00 2001 From: Dave Cooper <open-source@genworks.com> Date: Mon, 21 Oct 2013 11:29:06 -0400 Subject: [PATCH] added lispworks to dewindowize for extra space on windows in run-program --- test/test-run-program.script | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/test-run-program.script b/test/test-run-program.script index cf9414c4..eb142481 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 (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)) -- GitLab