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

Add a kluge for testing getcwd on Windows.

parent 6c6f235e
...@@ -2,9 +2,12 @@ ...@@ -2,9 +2,12 @@
(defun getcwd-from-run-program () (defun getcwd-from-run-program ()
(uiop:parse-native-namestring (uiop:parse-native-namestring
(run-program (nest
(os-cond ((os-unix-p) '("pwd" "-P")) ((os-windows-p) "echo %cd%")) ;; TODO: fix run-program to use POWERSHELL.EXE rather than CMD, and remove this kluge.
:output '(:string :stripped t)) #+os-windows (string-trim " ")
(os-cond ((os-unix-p) '("pwd" "-P")) ((os-windows-p) "echo %cd%"))
:output '(:string :stripped t)))
:ensure-directory t)) :ensure-directory t))
(let ((asdf-directory (truename *asdf-directory*))) (let ((asdf-directory (truename *asdf-directory*)))
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