From d6a6792b94882e781003cf47cfdb882ba3a96f6a Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Fri, 21 Oct 2011 20:35:49 -0700 Subject: [PATCH] (format t "a~0&b") should not output a newline between a and b. --- code/format.lisp | 14 ++++++++------ general-info/release-20c.txt | 3 +-- 2 files changed, 9 insertions(+), 8 deletions(-) diff --git a/code/format.lisp b/code/format.lisp index b8a9e76fb..704ec347a 100644 --- a/code/format.lisp +++ b/code/format.lisp @@ -1999,9 +1999,10 @@ (if params (expand-bind-defaults ((count 1)) params `(progn - (fresh-line stream) - (dotimes (i (1- ,count)) - (terpri stream)))) + (when (plusp ,count) + (fresh-line stream) + (dotimes (i (1- ,count)) + (terpri stream))))) '(fresh-line stream))) (def-format-interpreter #\& (colonp atsignp params) @@ -2010,9 +2011,10 @@ :complaint (intl:gettext "Cannot specify either colon or atsign for this directive."))) (interpret-bind-defaults ((count 1)) params - (fresh-line stream) - (dotimes (i (1- count)) - (terpri stream)))) + (when (plusp count) + (fresh-line stream) + (dotimes (i (1- count)) + (terpri stream))))) (def-format-directive #\| (colonp atsignp params) (when (or colonp atsignp) diff --git a/general-info/release-20c.txt b/general-info/release-20c.txt index ffe98b5c9..2db179460 100644 --- a/general-info/release-20c.txt +++ b/general-info/release-20c.txt @@ -1,7 +1,5 @@ ========================== C M U C L 20 c ============================= -[--- WORK IN PROGRESS ---] - The CMUCL project is pleased to announce the release of CMUCL 20c. This is a major release which contains numerous enhancements and bug fixes from the 20b release. @@ -60,6 +58,7 @@ New in this release: - Improve type propagation for LOAD-TIME-VALUE. - Add -O option to build.sh to allow specifying options to lisp when doing the builds. + - (format t "a~0&b") should not output a newline between a and b. * ANSI compliance fixes: - Fixes for signaling errors with READ-CHAR and READ-BYTE -- GitLab