diff --git a/format-f.lsp b/format-f.lsp index 674290f4898c7c30e747dc21dd1992d9ae86b488..a744d8e12a95221e9ba6e71c8cd5f68ccc27a7e9 100644 --- a/format-f.lsp +++ b/format-f.lsp @@ -25,7 +25,7 @@ collect (list x type s1 s2 s3))) nil) -(deftest format.f.2 +(deftest xoxoformat.f.2 (let ((*print-readably* nil) (fn (formatter "~f"))) (loop @@ -536,7 +536,10 @@ nil) (def-format-test format.f.45 - "~0f" (1.1) "1.1") + "~2f" (1.1) "1.0") + +(def-format-test format.f.45b + "~3f" (1.1) "1.1") ;; This fails on ECL 15.3.7 (def-format-test format.f.46