X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-format.lisp;h=7ed2b55a1ff25bc46b327280584144e6de797a81;hb=8ea7b1a452fc87f91273c96bead8aa862bbc8b98;hp=52c5b07d36a75e96190ddf0401d3ad0a33abb3a1;hpb=805f1dda16b90116e3eacc8dba62c34f30ed0838;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index 52c5b07..7ed2b55 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -170,6 +170,14 @@
 ;;;; format interpreters and support functions for simple output
 
 (defun format-write-field (stream string mincol colinc minpad padchar padleft)
+  (when (and colinc (<= colinc 0))
+    (error 'format-error
+           :complaint "The value of colinc is ~a, should be a positive integer"
+           :args (list colinc)))
+  (when (and mincol (< mincol 0))
+    (error 'format-error
+           :complaint "The value of mincol is ~a, should be a non-negative integer"
+           :args (list mincol)))
   (unless padleft
     (write-string string stream))
   (dotimes (i minpad)