[slime-cvs] CVS slime

[jsnellman]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv6289

Modified Files:
	ChangeLog swank-source-file-cache.lisp 
Log Message:
	* swank-source-file-cache.lisp (buffer-first-change): Check
	whether a file exists before trying load it into the source cache.


--- /project/slime/cvsroot/slime/ChangeLog	2006/11/26 18:03:11	1.1008
+++ /project/slime/cvsroot/slime/ChangeLog	2006/11/26 18:08:30	1.1009
@@ -1,5 +1,10 @@
 2006-11-26  Juho Snellman  <jsnell at iki.fi>
 
+	* swank-source-file-cache.lisp (buffer-first-change): Check
+	whether a file exists before trying load it into the source cache.
+	
+2006-11-26  Juho Snellman  <jsnell at iki.fi>
+
 	Restore the way M-n and M-p used to work in the REPL. (cherry-picked
 	from a patch with other changes, sent by Attila Lendvai).
 
--- /project/slime/cvsroot/slime/swank-source-file-cache.lisp	2006/11/19 21:28:41	1.5
+++ /project/slime/cvsroot/slime/swank-source-file-cache.lisp	2006/11/26 18:08:30	1.6
@@ -41,8 +41,10 @@
 (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)))))
+  (unless (or (source-cached-p filename)
+              (not (ignore-errors (probe-file filename))))
+    (ignore-errors
+      (source-cache-get filename (file-write-date filename)))))
 
 (defun get-source-code (filename code-date)
   "Return the source code for FILENAME as written on DATE in a string.