(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)
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.18.36"
+"0.9.18.37"