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

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

parent 2f103d42

uiop/os.lisp

+2 −2
Changes for uiop/os.lisp: 2 added lines, 2 removed lines.
Original line number Diff line number Diff line
@@ -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

    (or #+abcl (truename (symbol-call :asdf/filesystem :parse-native-namestring

                          (java:jstatic "getProperty" "java.lang.System" "user.dir")

                                                     :ensure-directory t)

                          :ensure-directory t))

        #+allegro (excl::current-directory)

        #+clisp (ext:default-directory)

        #+clozure (ccl:current-directory)