From: William Harold Newman <william.newman@airmail.net>
Date: Thu, 19 Jun 2003 18:18:13 +0000 (+0000)
Subject: 0.8.0.81:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=341543f0883bf5300785b56990e94093afd6d943;p=sbcl.git

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
--- 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
--- 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"