- "~@[~&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))
- (flet (;; Turn a list of packages into something a human likes
- ;; to read.
- (humanize (package-list)
- (sort (mapcar #'package-name package-list) #'string<)))
- (format stream
- "~@[~&It uses packages named ~2I~{~:_~S~^ ~}~]"
- (humanize (package-use-list package)))
- (format stream
- "~@[~&It is used by packages named ~2I~{~:_~S~^ ~}~]"
- (humanize (package-used-by-list package))))))
+ "~@[~&~@<It is used by packages named ~2I~{~:_~S~^ ~}~:>~]"
+ (humanize (package-used-by-list package))))
+ (terpri stream))