Compiler error due to range interaction with negative infinity

[Paul F. Dietz]

(lambda (x y) (subseq y (1+ (or (position 'a x) #.sb-ext:double-float-negative-infinity))))

==>

Can't decode NaN or infinity: #.SB-EXT:DOUBLE-FLOAT-NEGATIVE-INFINITY.
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] abort thread (#<THREAD tid=16699 "repl-thread" RUNNING {1001128003}>)

Backtrace:
  0: (SB-KERNEL:UNARY-TRUNCATE-DOUBLE-FLOAT-TO-BIGNUM #.SB-EXT:DOUBLE-FLOAT-NEGATIVE-INFINITY)
  1: (SB-C::NUMERIC-TYPE->INTERVAL #<SB-KERNEL:NUMERIC-TYPE (DOUBLE-FLOAT #.SB-EXT:DOUBLE-FLOAT-NEGATIVE-INFINITY #.SB-EXT:DOUBLE-FLOAT-NEGATIVE-INFINITY)> T)
  2: (SB-C::TYPE-APPROXIMATE-INTERVAL #<SB-KERNEL:UNION-TYPE (OR (MOD 17592186044415) (DOUBLE-FLOAT #.SB-EXT:DOUBLE-FLOAT-NEGATIVE-INFINITY #.SB-EXT:DOUBLE-FLOAT-NEGATIVE-INFINITY))> T)
  3: ((FLET SB-ALIEN:INT :IN SB-C::+-CONSTRAINT-PROPAGATE-BACK-OPTIMIZER) #S(SB-C::INTERVAL :LOW 1 :HIGH 17592186044415) #<SB-C::LVAR 1 {1007844E93}> #<SB-C::LVAR 2 {1007844FD3}>)
  4: (SB-C::+-CONSTRAINT-PROPAGATE-BACK-OPTIMIZER #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME + :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KI..
  5: (SB-C::CONSTRAINT-PROPAGATE-IN-BLOCK #<SB-C::CBLOCK 3 :START c4 {1007846213}> #S(SB-C::CONSET :VECTOR #*1111111000100000 :MIN 0 :MAX 11) T)
  6: (SB-C::FIND-BLOCK-TYPE-CONSTRAINTS #<SB-C::CBLOCK 3 :START c4 {1007846213}> T)
  7: (SB-C::FIND-AND-PROPAGATE-CONSTRAINTS #<SB-C:COMPONENT :NAME "<unknown>" {1007846503}>)
  8: (SB-C::CONSTRAINT-PROPAGATE #<SB-C:COMPONENT :NAME "<unknown>" {1007846503}>)
  9: (SB-C::IR1-OPTIMIZE-PHASE-1 #<SB-C:COMPONENT :NAME "<unknown>" {1007846503}>)
 10: (SB-C::IR1-PHASES #<SB-C:COMPONENT :NAME "<unknown>" {1007846503}>)
 11: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME "<unknown>" {1007846503}>)
 12: (SB-C::%COMPILE (LAMBDA (X Y) (SUBSEQ Y (1+ #))) NIL NIL)
[...]

x86-64, "2.4.1.123-37358cdb1"