[nongnu] elpa/slime c8859791fd: source-file-cache: key using truenames.

[ELPA Syncer]

branch: elpa/slime
commit c8859791fdc4e67142d07774dc8f144f1860f873
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    source-file-cache: key using truenames.
    
    SBCL, for example, uses logical pathnames for its source locations.
---
 swank/source-file-cache.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/swank/source-file-cache.lisp b/swank/source-file-cache.lisp
index a6869609f8..1ccd231230 100644
--- a/swank/source-file-cache.lisp
+++ b/swank/source-file-cache.lisp
@@ -71,7 +71,7 @@ If the exact version cannot be found then return the current 
one from disk."
   "Return the source code for FILENAME as written on DATE in a string.
 Return NIL if the right version cannot be found."
   (when *cache-sourcecode*
-    (let* ((filename (pathname filename))
+    (let* ((filename (truename filename))
            (entry (gethash filename *source-file-cache*)))
       (cond ((and entry (equal date (source-cache-entry.date entry)))
              ;; Cache hit.
@@ -89,7 +89,7 @@ Return NIL if the right version cannot be found."
 
 (defun source-cached-p (filename)
   "Is any version of FILENAME in the source cache?"
-  (if (gethash (pathname filename) *source-file-cache*) t))
+  (if (gethash (truename filename) *source-file-cache*) t))
 
 (defun read-file (filename)
   "Return the entire contents of FILENAME as a string."