*** empty log message ***

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index ad08e09..610d645 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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"