From: William Harold Newman <william.newman@airmail.net>
Date: Tue, 26 Feb 2002 02:24:54 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=78789912bae99e45b4c1a89be08164a5cac5b0ec;p=sbcl.git

*** empty log message ***
---

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index ad08e09..610d645 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -265,7 +265,7 @@
 			     (t commaed))))
 	  ;; colinc = 1, minpad = 0, padleft = t
 	  (format-write-field stream signed mincol 1 0 padchar t))
-	(princ number))))
+	(princ number stream))))
 
 (defun format-add-commas (string commachar commainterval)
   (let ((length (length string)))
diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 02958ff..665eaea 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -39,5 +39,8 @@
       do
       (assert (string= "#*101" (format nil "~S" #*101))))
 
+;;; bug in sbcl-0.7.1.25, reported by DB sbcl-devel 2002-02-25
+(assert (string= "0.5" (format nil "~2D" 0.5)))
+
 ;;; success
 (quit :unix-status 104)
diff --git a/version.lisp-expr b/version.lisp-expr
index 2fccdb5..c427b5a 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.1.24"
+"0.7.1.25"