From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Tue, 7 Nov 2006 01:08:24 +0000 (+0000)
Subject: 0.9.18.37:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6049dd2bf3dfe37080a30a4a751076c1254030bd;p=sbcl.git

0.9.18.37:
	Commit Lutz Euler's "Patch: Fix symbol counts in DESCRIBE on
	  packages", sbcl-devel 2006-11-05.
---

diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp
index acd6eec..23b619b 100644
--- a/src/pcl/describe.lisp
+++ b/src/pcl/describe.lisp
@@ -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)
diff --git a/version.lisp-expr b/version.lisp-expr
index 97abb87..ab778cc 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; 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"