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

Bug #1769218 reported by Paul F. Dietz on 2018-05-04
6
This bug affects 1 person
Affects Status Importance Assigned to Milestone
SBCL
Undecided
Unassigned

Bug Description

(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) wrote :

166100ad253bc4000bd838747e1e6f81363703d1

Changed in sbcl:
status: New → Fix Committed
To post a comment you must log in.
This report contains Public information  Edit
Everyone can see this information.

Other bug subscribers