X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-format.lisp;h=52c5b07d36a75e96190ddf0401d3ad0a33abb3a1;hb=41cb424785ec6daf0263acb1a6a8af9d41708990;hp=a5ef5e6eb44cded3f631e9a782ac514db774ed6a;hpb=8f1d4a2508e8d81564822a1668fe30a490b9c3f6;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index a5ef5e6..52c5b07 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -752,9 +752,10 @@
            :complaint
            "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-interpreter #\| (colonp atsignp params)
   (when (or colonp atsignp)