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