X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fpcl%2Fdescribe.lisp;h=4fd565aa38ca85154bcb0d4178fa61e1b5e54607;hb=beccf6c476f5cf2ef0bd839866527a46ec88d626;hp=d459b530fbaab4845f407ed14aaacf8dbabc4563;hpb=50e9f0e58a3b863085dc05845bfc6f5dbf82cdf2;p=sbcl.git

diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp
index d459b53..4fd565a 100644
--- a/src/pcl/describe.lisp
+++ b/src/pcl/describe.lisp
@@ -92,9 +92,11 @@
 (defmethod describe-object ((fun standard-generic-function) stream)
   (format stream "~&~A is a generic function." fun)
   (when (documentation fun t)
-    (format stream "~&  Function documentation: ~A" (documentation fun t)))
+    (format stream "~&Its documentation is: ~A" (documentation fun t)))
   (format stream "~&Its lambda-list is:~&  ~S"
 	  (generic-function-pretty-arglist fun))
+  (format stream "~&Its method-combination is:~&  ~S"
+	  (generic-function-method-combination fun))
   (let ((methods (generic-function-methods fun)))
     (if (null methods)
 	(format stream "~&It has no methods.~%")