1.0.9.9: rename CLASS-SLOT-VECTOR to CLASS-SLOT-TABLE

[sbcl.git] / src / pcl / describe.lisp

diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp
index 23b619b..c727c43 100644 (file)
--- 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))))))))