- "~@[~&It has nicknames ~{~:_~S~^ ~}~]"
- (package-nicknames package))
- (let* ((internal (sb-impl::package-internal-symbols package))
- (internal-count (- (sb-impl::package-hashtable-size internal)
- (sb-impl::package-hashtable-free internal)))
- (external (sb-impl::package-external-symbols package))
- (external-count (- (sb-impl::package-hashtable-size external)
- (sb-impl::package-hashtable-free external))))
- (format stream
- "~&It has ~S internal and ~S external symbols."
- internal-count external-count))
+ "~&It has ~S internal and ~S external symbols."
+ internal-count external-count))
+ (flet (;; Turn a list of packages into something a human likes
+ ;; to read.
+ (humanize (package-list)
+ (sort (mapcar #'package-name package-list) #'string<)))