Uncaught type error in DEFTRANSFORM for SEARCH when :start1 index is out of range

[Paul F. Dietz]

(lambda ()
  (let ((a (make-array '(2) :initial-contents '(0 1))))
    (search #(0 1 0) a :start1 4 :end1 5)))

==>

The index 4 is too large.
   [Condition of type SB-KERNEL:INDEX-TOO-LARGE-ERROR]
[...]
  0: (ELT #(0 1 0) 4)
  1: ((SB-C:DEFTRANSFORM SEARCH) #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME SEARCH :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :GLOBAL-F..
[...]

[Stas Boukarev (stassats)]

166100ad253bc4000bd838747e1e6f81363703d1