[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-check-location-filename-sanity): Guard
against target-filename being NIL.


--- /project/slime/cvsroot/slime/ChangeLog	2011/01/26 07:17:50	1.2170
+++ /project/slime/cvsroot/slime/ChangeLog	2011/01/28 19:19:30	1.2171
@@ -1,3 +1,8 @@
+2011-01-28  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-check-location-filename-sanity): Guard
+	against target-filename being NIL.
+
 2011-01-26  Helmut Eller  <heller at common-lisp.net>
 
 	Allow tail-merging in call-with-bindings.
--- /project/slime/cvsroot/slime/slime.el	2010/12/10 15:05:05	1.1352
+++ /project/slime/cvsroot/slime/slime.el	2011/01/28 19:19:30	1.1353
@@ -3222,7 +3222,8 @@
     (flet ((file-truename-safe (filename) (and filename (file-truename filename))))
       (let ((target-filename (file-truename-safe filename))
             (buffer-filename (file-truename-safe (buffer-file-name))))
-        (when buffer-filename
+        (when (and target-filename
+                   buffer-filename)
           (slime-maybe-warn-for-different-source-root
            target-filename buffer-filename))))))