Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • rtoy's avatar
    0f17dd30
    Fix some issues with two-arg log function. (log 17 10f0), (log 17f0 · 0f17dd30
    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.
    0f17dd30
    History
    Fix some issues with two-arg log function. (log 17 10f0), (log 17f0
    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.