Commit c1c2f11c authored by Nikodemus Siivola's avatar Nikodemus Siivola
Browse files

1.0.24.44: bug in INVALID-ARRAY-INDEX-ERROR, leaving EXPECTED-TYPE slot unbound 

 * It's :EXPECTED-TYPE, not :TYPE. ...having compiler check calls to ERROR like
   this would be nice.

 * Marginally better test to catch this.
parent 1046ddb6

src/code/array.lisp

+1 −1
Original line number Diff line number Diff line
@@ -482,7 +482,7 @@ of specialized arrays is supported." 
         :array array

         :axis axis

         :datum index

         :type `(integer 0 (,bound))))

         :expected-type `(integer 0 (,bound))))



;;; SUBSCRIPTS has a dynamic-extent list structure and is destroyed

(defun %array-row-major-index (array subscripts

tests/array.pure.lisp

+2 −1
Original line number Diff line number Diff line
@@ -258,5 +258,6 @@ 
             (eval `(aref ,array 0 1 3))

           (sb-int:invalid-array-index-error (e)

             (when (and (eq array (sb-kernel::invalid-array-index-error-array e))

                        (= 3 (type-error-datum e)))

                        (= 3 (type-error-datum e))

                        (equal '(integer 0 (3)) (type-error-expected-type e)))

               :right)))))))

version.lisp-expr

+1 −1
Original line number Diff line number Diff line
@@ -17,4 +17,4 @@ 
;;; checkins which aren't released. (And occasionally for internal

;;; versions, especially for internal versions off the main CVS

;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)

"1.0.24.43"
 
"1.0.24.44"