0.8.0.81:

	output to proper stream in DESCRIBE-OBJECT (HASH-TABLE T)

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index afbb66c..20a7548 100644 (file)
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -90,7 +90,7 @@
          "~&~@<Its REHASH-SIZE is ~S. ~_Its REHASH-THRESHOLD is ~S.~:>"
          (hash-table-rehash-size x)
          (hash-table-rehash-threshold x))
-  (fresh-line)
+  (fresh-line s)
   (pprint-logical-block (s nil)
     (let ((count (hash-table-count x)))
       (format s "It holds ~S key/value pair~:P~:[: ~2I~_~;.~]"

diff --git a/version.lisp-expr b/version.lisp-expr
index 4cd7d09..c8edac0 100644 (file)
--- 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.8.0.80"
+"0.8.0.81"