X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdescribe.lisp;h=c727c4386c613e56669445ab249ac22fdaca5856;hb=45bc305be4e269d2e1a477c8e0ae9a64df1ccd1c;hp=23b619bf8bb988ddf89909cba136546d01b5eb89;hpb=6049dd2bf3dfe37080a30a4a751076c1254030bd;p=sbcl.git

diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp
index 23b619b..c727c43 100644
--- a/src/pcl/describe.lisp
+++ b/src/pcl/describe.lisp
@@ -106,7 +106,7 @@
             (format stream "~&  (~A ~{~S ~}~:S)~%"
                     gf-name
                     (method-qualifiers method)
-                    (unparse-specializers method))
+                    (unparse-specializers fun (method-specializers method)))
             (when (documentation method t)
               (format stream "~&    Method documentation: ~A"
                       (documentation method t))))))))