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