[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-fancy-inspector.lisp 
Log Message:
* swank-fancy-inspector.lisp (emacs-inspect): Work on methods
without associated generic function.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/10/28 13:30:31	1.425
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/12/09 19:55:57	1.426
@@ -1,3 +1,8 @@
+2010-12-09  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-fancy-inspector.lisp (emacs-inspect): Work on methods
+	without associated generic function.
+
 2010-10-28  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-package-fu.lisp (list-structure-symbols): Include the name
--- /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2010/07/02 11:44:15	1.29
+++ /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2010/12/09 19:55:57	1.30
@@ -412,23 +412,25 @@
       (all-slots-for-inspector gf))))
 
 (defmethod emacs-inspect ((method standard-method))
+  `(,@(if (swank-mop:method-generic-function method)
           `("Method defined on the generic function " 
-	    (:value ,(swank-mop:method-generic-function method)
-		    ,(inspector-princ
-		      (swank-mop:generic-function-name
-		       (swank-mop:method-generic-function method))))
-            (:newline)
-	    ,@(docstring-ispec "Documentation" method t)
-            "Lambda List: " (:value ,(swank-mop:method-lambda-list method))
-            (:newline)
-            "Specializers: " (:value ,(swank-mop:method-specializers method)
-                                     ,(inspector-princ (method-specializers-for-inspect method)))
-            (:newline)
-            "Qualifiers: " (:value ,(swank-mop:method-qualifiers method))
-            (:newline)
-            "Method function: " (:value ,(swank-mop:method-function method))
-            (:newline)
-            ,@(all-slots-for-inspector method)))
+            (:value ,(swank-mop:method-generic-function method)
+                    ,(inspector-princ
+                      (swank-mop:generic-function-name
+                       (swank-mop:method-generic-function method)))))
+          '("Method without a generic function"))
+      (:newline)
+      ,@(docstring-ispec "Documentation" method t)
+      "Lambda List: " (:value ,(swank-mop:method-lambda-list method))
+      (:newline)
+      "Specializers: " (:value ,(swank-mop:method-specializers method)
+                               ,(inspector-princ (method-specializers-for-inspect method)))
+      (:newline)
+      "Qualifiers: " (:value ,(swank-mop:method-qualifiers method))
+      (:newline)
+      "Method function: " (:value ,(swank-mop:method-function method))
+      (:newline)
+      ,@(all-slots-for-inspector method)))
 
 (defmethod emacs-inspect ((class standard-class))
           `("Name: " (:value ,(class-name class))