Division by zero in compiler on POSITION on empty vector

[Paul F. Dietz]

(LAMBDA (P1) (POSITION P1 #()))

==>

arithmetic error DIVISION-BY-ZERO signalled
Operation was (/ 0 0).
   [Condition of type DIVISION-BY-ZERO]

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

Backtrace:
  0: (SB-KERNEL::INTEGER-/-INTEGER 0 0)
  1: (SB-INT:PICK-BEST-SYMBOL-HASH-BITS NIL SXHASH 62)
  2: ((SB-C:DEFTRANSFORM POSITION) #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME POSITION :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :GLOB..
  3: (SB-C::IR1-TRANSFORM #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME POSITION :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTI..
[...]

[Paul F. Dietz (paul-f-dietz)]

Fixed in e65df8ef0e18