diff --git a/printer/format/format-e.lsp b/printer/format/format-e.lsp index a451d1b2c75348650fa7cb424dcb9c57ae4ea4a7..c25f54bff27022b2beae17912f260d91469a5a64 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)