Commit 4c1d74b3 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

We cannot take the truename of a directory.

parent eab06baf
......@@ -224,7 +224,7 @@ same directory, so that the *default-pathname-defaults*, the
three synchronized.
")
(defvar *working-directory* #+mocl (user-homedir-pathname) #-mocl (truename (user-homedir-pathname))
(defvar *working-directory* (user-homedir-pathname)
"The current working directory")
(defun working-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