[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-25-gd6a6792

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  d6a6792b94882e781003cf47cfdb882ba3a96f6a (commit)
      from  c3ec1280d301ba9af8b1492b51c5e015bfb1b3ef (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit d6a6792b94882e781003cf47cfdb882ba3a96f6a
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Oct 21 20:35:49 2011 -0700

    (format t "a~0&b") should not output a newline between a and b.

diff --git a/code/format.lisp b/code/format.lisp
index b8a9e76..704ec34 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 ffe98b5..2db1794 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

-----------------------------------------------------------------------

Summary of changes:
 code/format.lisp             |   14 ++++++++------
 general-info/release-20c.txt |    3 +--
 2 files changed, 9 insertions(+), 8 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp