branch: elpa/slime
commit 853c67080c9b00232f51d48d6330a1b82db3e64a
Author: Stas Boukarev <stass...@gmail.com>
Commit: Stas Boukarev <stass...@gmail.com>
Don't call truename on missing files.
---
swank/source-file-cache.lisp | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/swank/source-file-cache.lisp b/swank/source-file-cache.lisp
index 1ccd231230..a419cc6339 100644
--- a/swank/source-file-cache.lisp
+++ b/swank/source-file-cache.lisp
@@ -56,9 +56,10 @@ Maps from truename to source-cache-entry structure.")
(defimplementation buffer-first-change (filename)
"Load a file into the cache when the user modifies its buffer.
This is a win if the user then saves the file and tries to M-. into it."
- (unless (source-cached-p filename)
- (ignore-errors
- (source-cache-get filename (file-write-date filename))))
+ (when (probe-file filename)
+ (unless (source-cached-p filename)
+ (ignore-errors
+ (source-cache-get filename (file-write-date filename)))))
nil)
(defun get-source-code (filename code-date)
