[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv19832

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:
* swank-openmcl.lisp (source-note-to-source-location): Always
test *temp-file-map* first, because the temp-file might actually
exist during compilation but no longer when Emacs tries to open
it.
(slime-goto-location-buffer): Don't create buffers for
non-existent files.

--- /project/slime/cvsroot/slime/ChangeLog	2009/05/18 12:54:08	1.1765
+++ /project/slime/cvsroot/slime/ChangeLog	2009/05/19 09:51:54	1.1766
@@ -1,3 +1,12 @@
+2009-05-19  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-openmcl.lisp (source-note-to-source-location): Always
+	test *temp-file-map* first, because the temp-file might actually
+	exist during compilation but no longer when Emacs tries to open
+	it.
+	(slime-goto-location-buffer): Don't create buffers for
+	non-existent files.
+
 2009-05-18  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	* slime.el (slime-description-autofocus): New variable.
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/05/17 14:31:23	1.170
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/05/19 09:51:55	1.171
@@ -594,10 +594,10 @@
 
 (defun source-note-to-source-location (note if-nil-thunk)
   (labels ((filename-to-buffer (filename)
-             (cond ((probe-file filename)
-                    (list :file (namestring (truename filename))))
-                   ((gethash filename *temp-file-map*)
+             (cond ((gethash filename *temp-file-map*)
                     (list :buffer (gethash filename *temp-file-map*)))
+                   ((probe-file filename)
+                    (list :file (namestring (truename filename))))
                    (t (error "File ~s doesn't exist" filename)))))
     (cond (note
            (handler-case