Skip to content
Snippets Groups Projects
Commit 9c80670d authored by rtoy's avatar rtoy
Browse files

INNER-COERCE-REAL-BOUND needs to coerce to DOUBLE-DOUBLE-FLOAT, when

available.  Without this, we get things like

(c::specifier-type '(real 1d0 100/9)) ->
#<UNION-TYPE (OR (SINGLE-FLOAT 1.0 11.111111)
                 (DOUBLE-FLOAT 1.0d0 11.11111111111111d0)
                 (DOUBLE-DOUBLE-FLOAT 1.0w0
                  11.1111111111111107163651467999443w0)
                 (RATIONAL 1 100/9))>

instead of

#<UNION-TYPE (OR (SINGLE-FLOAT 1.0 11.111111)
                 (DOUBLE-FLOAT 1.0d0 11.11111111111111d0)
                 (DOUBLE-DOUBLE-FLOAT 1.0w0
                  11.1111111111111111111111111111111w0)
                 (RATIONAL 1 100/9))>

The bound for double-double-float is not quite correct in the former
result, and is correct in the latter.
parent 8e9dc0df
No related branches found
No related tags found
No related merge requests found
Loading
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