From 74bd6251df040df666dde5512290e1ba993d79db Mon Sep 17 00:00:00 2001 From: Christophe Rhodes <csr21@cantab.net> Date: Thu, 24 Mar 2022 15:16:51 +0000 Subject: [PATCH] Adjust the expectation of FORMAT.E.6 Fixes #32 --- printer/format/format-e.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/printer/format/format-e.lsp b/printer/format/format-e.lsp index a451d1b2..c25f54bf 100644 --- a/printer/format/format-e.lsp +++ b/printer/format/format-e.lsp @@ -131,7 +131,7 @@ (format nil "~6e" x)) for s2 = (let ((*read-default-float-format* type)) (formatter-call-to-string fn x)) - unless (and (string-equal s " 1.e+0") (string-equal s s2)) + unless (and (string-equal s "1.0e+0") (string-equal s s2)) collect (list x s s2))) nil) -- GitLab