From 78789912bae99e45b4c1a89be08164a5cac5b0ec Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Tue, 26 Feb 2002 02:24:54 +0000 Subject: [PATCH] *** empty log message *** --- src/code/target-format.lisp | 2 +- tests/print.impure.lisp | 3 +++ version.lisp-expr | 2 +- 3 files changed, 5 insertions(+), 2 deletions(-) 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" -- 1.7.10.4