Skip to content
Snippets Groups Projects
Commit 13e2381b authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

No native-namestring in ABCL, and not yet trivially wrapped in uiop/os. Use plain namestring.

parent eca5964e
No related branches found
No related tags found
No related merge requests found
......@@ -267,7 +267,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
(defun chdir (x)
"Change current directory, as per POSIX chdir(2), to a given pathname object"
(if-let (x (pathname x))
(or #+abcl (java:jstatic "setProperty" "java.lang.System" "user.dir" (native-namestring x))
(or #+abcl (java:jstatic "setProperty" "java.lang.System" "user.dir" (namestring x))
#+allegro (excl:chdir x)
#+clisp (ext:cd x)
#+clozure (setf (ccl:current-directory) x)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment