X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-format.lisp;h=2024d07f5536a7eae03674895474b31ef2c80925;hb=c712f88b26cd7547ee984b90e18c134401335bc3;hp=9b339c616351522d5a74a83b97eb0c42ca0be9f2;hpb=b76a2a89806c3a86c171c436dc3f3b6ff1acfa82;p=sbcl.git

diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp
index 9b339c6..2024d07 100644
--- a/src/code/late-format.lisp
+++ b/src/code/late-format.lisp
@@ -602,9 +602,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-directive #\| (colonp atsignp params)