diff --git a/test/test-run-program.script b/test/test-run-program.script index cf9414c4424dcad29a522bf57e931e0b4aa6a45b..eb1424811957d21e7a1fb62796cbfa9f3522de1e 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))