X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fprint.impure.lisp;h=5ab865c41499989ff6c05b4a00626f137f4f4592;hb=6e5c24e786277417fedfea9a6844092de11775df;hp=7261f625893a0b9a483eb71cfa2e978a97c6f5c0;hpb=628c9c353690b012965ccd74d68e1b81e4a2a368;p=sbcl.git

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 7261f62..5ab865c 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -631,4 +631,8 @@
                     (assert (equal (row-major-aref a i) (row-major-aref copy i)))))))))
         :next))))
 
+(with-test (:name (:format :negative-colinc-and-mincol))
+  (assert (raises-error? (format nil "~-2a" 1)))
+  (assert (raises-error? (format nil "~,0a" 1))))
+
 ;;; success