Forked from
cmucl / cmucl
Source project has a limited visibility.
-
rtoy authored
10), and (log 17 10) returned different single-float results. I think this is allowed by ANSI CL, but I think it's unfortunate. Therefore, try to apply float contagion to the arguments before computing the log function. Also, if both args are single-floats or rationals, we coerce them to double-floats before computing the result. This makes (log 17 10) = (log 17.0 10). There are other cases still to be considered.
rtoy authored10), and (log 17 10) returned different single-float results. I think this is allowed by ANSI CL, but I think it's unfortunate. Therefore, try to apply float contagion to the arguments before computing the log function. Also, if both args are single-floats or rationals, we coerce them to double-floats before computing the result. This makes (log 17 10) = (log 17.0 10). There are other cases still to be considered.