[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
* swank-ccl.lisp (definition-name): Special case methods.

--- /project/slime/cvsroot/slime/ChangeLog	2009/08/15 08:34:48	1.1835
+++ /project/slime/cvsroot/slime/ChangeLog	2009/08/15 08:34:55	1.1836
@@ -10,6 +10,8 @@
 
 2009-08-15  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-ccl.lisp (definition-name): Special case methods.
+
 	* slime.el (slime-choose-overlay-region): Don't return zero length
 	regions for :eof.
 	(slime-show-buffer-position): The second argument to
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2009/08/10 19:30:22	1.3
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2009/08/15 08:34:56	1.4
@@ -617,7 +617,9 @@
        (lambda () "No source note available")))))
 
 (defun definition-name (type object)
-  (list (ccl:definition-type-name type) (ccl:name-of object)))
+  (case (ccl:definition-type-name type)
+    (method (ccl:name-of object))
+    (t (list (ccl:definition-type-name type) (ccl:name-of object)))))
 
 ;;; Utilities