diff --git a/test/test-utilities.script b/test/test-utilities.script index a1cb12e3ae80ec229b91d2eb3e288fe15dfbc70a..3f5f267d918eb84806e7592cedc7710b81b97323 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -3,7 +3,7 @@ (defun getcwd-from-run-program () (uiop:parse-native-namestring (run-program - (os-cond ((os-unix-p) "pwd") ((os-windows-p) "echo %cd%")) + (os-cond ((os-unix-p) '("pwd" "-P")) ((os-windows-p) "echo %cd%")) :output '(:string :stripped t)) :ensure-directory t))