SINGLE-FLOAT fell through ECASE expression. Wanted one of (DOUBLE-FLOAT).

[Paul F. Dietz]

(lambda () (atanh (coerce 0 '(double-float * (0.0d0))))) ;; bad coercion

==>

SINGLE-FLOAT fell through ECASE expression.
Wanted one of (DOUBLE-FLOAT).
   [Condition of type SB-KERNEL:CASE-FAILURE]

Restarts:
 0: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (SB-C::DOMAIN-SUBTYPEP #<SB-KERNEL:NUMERIC-TYPE (DOUBLE-FLOAT * (0.0d0))> -1.0d0 1.0d0)
  1: (SB-C::ELFUN-DERIVE-TYPE-SIMPLE #<SB-KERNEL:NUMERIC-TYPE (DOUBLE-FLOAT * (0.0d0))> #<FUNCTION ATANH> -1.0d0 1.0d0 -1 1 T)
  2: (SB-C::ONE-ARG-DERIVE-TYPE #<SB-C::LVAR 1 {1003EE17E3}> #<FUNCTION (LAMBDA (SB-C::ARG) :IN SB-C::ATANH-DERIVE-TYPE-OPTIMIZER) {221F7A7B}> #<FUNCTION ATANH>)
  3: ((FLET SB-C::PROCESS-INFO :IN SB-C::IR1-OPTIMIZE-COMBINATION))
  4: (SB-C::IR1-OPTIMIZE-COMBINATION #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME ATANH :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :GLOBA..
[...]

[Stas Boukarev (stassats)]

a5236bf2ba116dc7eabb53f7c5dfc7aa86b1aff7