Commit 96432651 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

test: use pwd -P to resolve symlinks.

parent a3ecae82
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
(defun getcwd-from-run-program () (defun getcwd-from-run-program ()
(uiop:parse-native-namestring (uiop:parse-native-namestring
(run-program (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)) :output '(:string :stripped t))
:ensure-directory t)) :ensure-directory t))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment