diff --git a/compiler/array-tran.lisp b/compiler/array-tran.lisp index 586b6cce21f5dca1f4f4ba16c6ca09ce7bf797ae..86ed77bfebeaddbc442e30707b86adb213018571 100644 --- a/compiler/array-tran.lisp +++ b/compiler/array-tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.33 2003/04/27 11:43:43 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.34 2003/07/01 09:38:07 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -461,7 +461,7 @@ (unless (constant-continuation-p dimension) (give-up)) (let ((dim (continuation-value dimension))) - `(the (integer 0 ,dim) index))) + `(the (integer 0 (,dim)) index))) ;;; (deftransform %check-bound ((array dimension index) * * :policy (and (> speed safety) (= safety 0))) diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt index 187073d7c8763e23947c16ac75c2cdfb9e0057b6..0c0398c85cfeb417e675ff4c6faf91da47dabc03 100644 --- a/general-info/release-19a.txt +++ b/general-info/release-19a.txt @@ -140,6 +140,7 @@ New in this release: made them undisplayable. - Structure predicates no longer signaling an error when applied to obsolete instances. + - A DEFTRANSFORM for array bounds checking had an off-by-1 error. * Other changes: - Removed obsolete alias from MAKE-VECTOR to MAKE-ARRAY