Commit 6ef45169 authored by Raymond Toy's avatar Raymond Toy
Browse files

Merge branch 'fix-issue-23' into 'master'

Use char-equal in position as indicted by phoe

See merge request !45
parents e4f8ad84 b21fe3dc
......@@ -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