We cannot take the truename of a directory.

Pascal J. Bourguignon [2019-02-13 23:10]
We cannot take the truename of a directory.
Filename
common-lisp/interactive/browser.lisp
diff --git a/common-lisp/interactive/browser.lisp b/common-lisp/interactive/browser.lisp
index 9881f6e..9d672e9 100644
--- a/common-lisp/interactive/browser.lisp
+++ b/common-lisp/interactive/browser.lisp
@@ -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 ()
ViewGit