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

Add a kluge for testing getcwd on Windows.

parent 6c6f235e
......@@ -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*)))
......
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