X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdescribe.lisp;h=d459b530fbaab4845f407ed14aaacf8dbabc4563;hb=93b89755004549ed5f20d1938fd6e54ee20650b2;hp=edaa29d754596248b14e091b6bab0e32c1532599;hpb=a062a5a55d8558173d27ea56d7ecde834e44e7e5;p=sbcl.git

diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp
index edaa29d..d459b53 100644
--- a/src/pcl/describe.lisp
+++ b/src/pcl/describe.lisp
@@ -91,7 +91,9 @@
 
 (defmethod describe-object ((fun standard-generic-function) stream)
   (format stream "~&~A is a generic function." fun)
-  (format stream "~&Its arguments are:~&  ~S"
+  (when (documentation fun t)
+    (format stream "~&  Function documentation: ~A" (documentation fun t)))
+  (format stream "~&Its lambda-list is:~&  ~S"
 	  (generic-function-pretty-arglist fun))
   (let ((methods (generic-function-methods fun)))
     (if (null methods)
@@ -99,13 +101,13 @@
 	(let ((gf-name (generic-function-name fun)))
 	  (format stream "~&Its methods are:")
 	  (dolist (method methods)
-	    (format stream "~2%    (~A ~{~S ~}~:S) =>"
+	    (format stream "~&  (~A ~{~S ~}~:S)~%"
 		    gf-name
 		    (method-qualifiers method)
 		    (unparse-specializers method))
-	    (describe (or (method-fast-function method)
-			  (method-function method))
-		      stream))))))
+	    (when (documentation method t)
+	      (format stream "~&    Method documentation: ~A"
+		      (documentation method t))))))))
 
 (defmethod describe-object ((class class) stream)
   (flet ((pretty-class (c) (or (class-name c) c)))