From b21fe3dc385dcb65fc439ef98d9cbbb363bc657e Mon Sep 17 00:00:00 2001
From: Karsten Poeck <karsten-a.poeck@gft.com>
Date: Sun, 17 Jan 2021 16:17:58 +0000
Subject: [PATCH] Use char-equal in position as indicted by phoe

---
 printer/format/format-e.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/printer/format/format-e.lsp b/printer/format/format-e.lsp
index 77a890b9..a451d1b2 100644
--- a/printer/format/format-e.lsp
+++ b/printer/format/format-e.lsp
@@ -422,7 +422,8 @@
           for format-string = (format nil "~~,~d,,0e" d)
           for s1 = (let* ((*read-default-float-format* type)
                           (s1 (format nil format-string x)))
-                     (subseq s1 (1+ (position #\. s1)) (position #\e s1)))
+                     ;; e might be lowercase or uppercase 
+                     (subseq s1 (1+ (position #\. s1)) (position #\e s1 :test #'char-equal)))
           with ret = nil
           do (multiple-value-bind (s2 s3)
                  (round-ratio-to-n-digits (rationalize x) d)
-- 
GitLab