From 72400f085c8c32226d226686dc3b3d6edc5be70d Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Sat, 3 May 2014 13:05:47 -0400
Subject: [PATCH] uiop/os: try to fix getcwd on abcl on Windows.

---
 uiop/os.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/uiop/os.lisp b/uiop/os.lisp
index d90e1abb..2a714b22 100644
--- a/uiop/os.lisp
+++ b/uiop/os.lisp
@@ -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)
-- 
GitLab