Skip to content
Snippets Groups Projects
Commit b815e786 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix (format t "a~0&b"): No newline should be printed.

parent 7b6eb217
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment