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