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 @@
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)
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