Corrected handling of symbols and strings in RESOLVE path.

Pascal J. Bourguignon [2021-05-23 08:08]
Corrected handling of symbols and strings in RESOLVE path.
Filename
common-lisp/interactive/browser.lisp
diff --git a/common-lisp/interactive/browser.lisp b/common-lisp/interactive/browser.lisp
index 6ae0773..bed5f76 100644
--- a/common-lisp/interactive/browser.lisp
+++ b/common-lisp/interactive/browser.lisp
@@ -399,9 +399,9 @@ DO:         Displays the contents of the working directory and

 (defun resolve (path &key (directory nil))
   (setf path (typecase path
-               (string    path)
+               (string    (namestring (pathname path)))
                (pathname  (namestring path))
-               (symbol    (string-downcase path))
+               (symbol    (namestring (pathname (string-downcase path))))
                (character (string path))
                (number    (format nil "~A" path))
                (list      (cond ((eq :absolute (car path))
ViewGit