[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv23830

Modified Files:
	ChangeLog swank-asdf.lisp 
Log Message:
* swank-asdf.lisp (xref-doit): Guard against using on things
other than symbols and strings. slime-edit-uses may call it on
(setf function), and it'll pop into the debugger.
Report by Bart Botta.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/09/12 16:23:59	1.492
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/10/01 01:35:42	1.493
@@ -1,3 +1,10 @@
+2011-10-01  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-asdf.lisp (xref-doit): Guard against using on things
+	other than symbols and strings. slime-edit-uses may call it on
+	(setf function), and it'll pop into the debugger.
+	Report by Bart Botta.
+
 2011-09-12  Christophe Rhodes  <csr21 at cantab.net>
 
 	* slime-media.el (slime-dispatch-media-event): allow swank to
--- /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2010/07/04 15:55:29	1.30
+++ /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2011/10/01 01:35:42	1.31
@@ -38,15 +38,16 @@
       result)))
 
 (defmethod xref-doit ((type (eql :depends-on)) thing)
-  (loop for dependency in (who-depends-on thing)
-        for asd-file = (asdf:system-definition-pathname dependency)
-        when asd-file
+  (when (typep thing '(or string symbol))
+    (loop for dependency in (who-depends-on thing)
+          for asd-file = (asdf:system-definition-pathname dependency)
+          when asd-file
           collect (list dependency
                         (swank-backend::make-location
                          `(:file ,(namestring asd-file))
                          `(:position 1)
                          `(:snippet ,(format nil "(defsystem :~A" dependency)
-                           :align t)))))
+                           :align t))))))
 
 
 (defslimefun operate-on-system-for-emacs (system-name operation &rest keywords)