X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdescribe.lisp;h=c727c4386c613e56669445ab249ac22fdaca5856;hb=d25e3478acccec70402ff32554669a982be8e281;hp=acd6eec584f536bac2f7a577b13ed5e05d4c90ff;hpb=3a5eefac8a65dfd36729031f0a9b9dd8c022b7f2;p=sbcl.git diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp index acd6eec..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)))))))) @@ -139,15 +139,10 @@ (format stream "~@[~&~@~]" (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)