diff options
author | Stas Boukarev <stassats@gmail.com> | 2024-09-13 22:34:53 +0300 |
---|---|---|
committer | Stas Boukarev <stassats@gmail.com> | 2024-09-13 22:34:53 +0300 |
commit | 30765e6e5aee5d908b7851bf0a218af8ec799a20 (patch) | |
tree | 80b64aab9be5fe8faa116363f942e65db76d78da | |
parent | ebd56a0c18ba6c0bc8eb630eab564659a7dc4405 (diff) |
Fix transform-%with-array-data/mumble
It has been broken for 17 years because it was never called.
-rw-r--r-- | src/compiler/array-tran.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp index f09a797a9..74295abd5 100644 --- a/src/compiler/array-tran.lisp +++ b/src/compiler/array-tran.lisp @@ -1998,8 +1998,8 @@ (%array-data array))) (len (length data)) (real-end (or end len))) - (unless (<= 0 start data-end lend) - (sequence-bounding-indices-bad-error array start end)) + (unless (<= 0 start real-end len) + (array-bounding-indices-bad-error array start end)) (values data 0 real-end 0)) `(let ((data (truly-the (simple-array ,element-type (*)) (%array-data array)))) |