diff --git a/test/test-utilities.script b/test/test-utilities.script index 3f5f267d918eb84806e7592cedc7710b81b97323..9757f7dfc65bc97d18b76fb644fecf20dba645e3 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -2,9 +2,12 @@ (defun getcwd-from-run-program () (uiop:parse-native-namestring - (run-program - (os-cond ((os-unix-p) '("pwd" "-P")) ((os-windows-p) "echo %cd%")) - :output '(:string :stripped t)) + (nest + ;; TODO: fix run-program to use POWERSHELL.EXE rather than CMD, and remove this kluge. + #+os-windows (string-trim " ") + (run-program + (os-cond ((os-unix-p) '("pwd" "-P")) ((os-windows-p) "echo %cd%")) + :output '(:string :stripped t))) :ensure-directory t)) (let ((asdf-directory (truename *asdf-directory*)))