[slime-cvs] CVS slime

[nsiivola]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (sbcl-source-file-p): When a buffer is not
associated with any file, M-. for names defined there ends up
calling SBCL-SOURCE-FILE-P with NIL -- guard against that.


--- /project/slime/cvsroot/slime/ChangeLog	2008/01/14 12:08:52	1.1267
+++ /project/slime/cvsroot/slime/ChangeLog	2008/01/17 05:53:44	1.1268
@@ -1,3 +1,9 @@
+2008-01-17 Nikodemus Siivola <nikodemus at random-state.net>
+
+	* swank-sbcl.lisp (sbcl-source-file-p): When a buffer is not
+	associated with any file, M-. for names defined there ends up
+	calling SBCL-SOURCE-FILE-P with NIL -- guard against that.
+
 2008-01-14  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime.el (sldb-mode): Add `sldb-quit' to `kill-buffer-hook' to
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2008/01/04 03:34:35	1.186
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2008/01/17 05:53:44	1.187
@@ -236,8 +236,9 @@
     (eql (mismatch "SB-" name) 3)))
 
 (defun sbcl-source-file-p (filename)
-  (loop for (_ pattern) in (logical-pathname-translations "SYS")
-        thereis (pathname-match-p filename pattern)))
+  (when filename
+    (loop for (_ pattern) in (logical-pathname-translations "SYS")
+          thereis (pathname-match-p filename pattern))))
 
 (defun guess-readtable-for-filename (filename)
   (if (sbcl-source-file-p filename)