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