1.0.28.65: fix compiling with *PROFILE-HASH-CACHE* set to T

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

diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp
index acd6eec..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))))))))
@@ -139,15 +139,10 @@
   (format stream
           "~@[~&~@<It has nicknames ~2I~{~:_~S~^ ~}~:>~]"
           (package-nicknames package))
-  (let* ((internal (package-internal-symbols package))
-         (internal-count (- (package-hashtable-size internal)
-                            (package-hashtable-free internal)))
-         (external (package-external-symbols package))
-         (external-count (- (package-hashtable-size external)
-                            (package-hashtable-free external))))
-    (format stream
-            "~&It has ~S internal and ~S external symbols."
-            internal-count external-count))
+  (format stream
+          "~&It has ~S internal and ~S external symbols."
+          (package-internal-symbol-count package)
+          (package-external-symbol-count package))
   (flet (;; Turn a list of packages into something a human likes
          ;; to read.
          (humanize (package-list)