Commit d6a6792b authored by Raymond Toy's avatar Raymond Toy

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

parent c3ec1280
......@@ -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)
......
========================== 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment