Commit 72400f08 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

uiop/os: try to fix getcwd on abcl on Windows.

parent 2f103d42
......@@ -247,9 +247,9 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
(defun getcwd ()
"Get the current working directory as per POSIX getcwd(3), as a pathname object"
(or #+abcl (symbol-call :asdf/filesystem :parse-native-namestring
(java:jstatic "getProperty" "java.lang.System" "user.dir")
:ensure-directory t)
(or #+abcl (truename (symbol-call :asdf/filesystem :parse-native-namestring
(java:jstatic "getProperty" "java.lang.System" "user.dir")
:ensure-directory t))
#+allegro (excl::current-directory)
#+clisp (ext:default-directory)
#+clozure (ccl:current-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