Commit 5f69652c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

uiop:getcwd wasn't doing what we wanted on LispWorks.

parent 49f75356
...@@ -262,7 +262,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie ...@@ -262,7 +262,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
#+ecl (ext:getcwd) #+ecl (ext:getcwd)
#+gcl (let ((*default-pathname-defaults* #p"")) (truename #p"")) #+gcl (let ((*default-pathname-defaults* #p"")) (truename #p""))
#+genera *default-pathname-defaults* ;; on a Lisp OS, it *is* canonical! #+genera *default-pathname-defaults* ;; on a Lisp OS, it *is* canonical!
#+lispworks (system:current-directory) #+lispworks (hcl:get-working-directory)
#+mkcl (mk-ext:getcwd) #+mkcl (mk-ext:getcwd)
#+sbcl (sb-ext:parse-native-namestring (sb-unix:posix-getcwd/)) #+sbcl (sb-ext:parse-native-namestring (sb-unix:posix-getcwd/))
#+xcl (extensions:current-directory) #+xcl (extensions: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