Commit b21fe3dc authored by Karsten Poeck's avatar Karsten Poeck Committed by Raymond Toy
Browse files

Use char-equal in position as indicted by phoe

parent e4f8ad84
...@@ -422,7 +422,8 @@ ...@@ -422,7 +422,8 @@
for format-string = (format nil "~~,~d,,0e" d) for format-string = (format nil "~~,~d,,0e" d)
for s1 = (let* ((*read-default-float-format* type) for s1 = (let* ((*read-default-float-format* type)
(s1 (format nil format-string x))) (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 with ret = nil
do (multiple-value-bind (s2 s3) do (multiple-value-bind (s2 s3)
(round-ratio-to-n-digits (rationalize x) d) (round-ratio-to-n-digits (rationalize x) d)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment