Skip to content
Snippets Groups Projects
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 ansi-test/ansi-test!45
parents e4f8ad84 b21fe3dc
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment