0.pre7.98:

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

diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp
index 998d45c..b02ccb0 100644 (file)
--- a/src/pcl/describe.lisp
+++ b/src/pcl/describe.lisp
@@ -115,7 +115,7 @@
            (ft "It has no name (the name is NIL).~%")))
       (ft "The direct superclasses are: ~:S, and the direct~%~
           subclasses are: ~:S. The class precedence list is:~%~S~%~
-          There are ~D methods specialized for this class."
+          There are ~W methods specialized for this class."
          (mapcar #'pretty-class (class-direct-superclasses class))
          (mapcar #'pretty-class (class-direct-subclasses class))
          (mapcar #'pretty-class (class-precedence-list class))